{
------------------------------------------------------------------------
 FORMULARIO        : NOFMCS002
 OBJETIVO          : Pantalla que consulta los ingresos que tienen los
	             empleados
                     Es utilizada por: NOFMCS002
 PROGRAMADOR       : Ing. Betania Guerrero Perez
 FECHA REALIZACION : Septiembre 01, 1993
------------------------------------------------------------------------
}
database smarmotech
screen size 24 by 80
{
Numero de Nomina [f002]            Tipo de Empleado [c] [te       ]
Codigo Empleado[f000][f001][f2][f3][a                             ]
\g--------------------------------------------------------------------------
 Movimiento                                  Cantidad           Valor
\g--------------------------------------------------------------------------
 [f4] [b                             ]  [f005        ]     [f006        ]
 [f4] [b                             ]  [f005        ]     [f006        ]
 [f4] [b                             ]  [f005        ]     [f006        ]
 [f4] [b                             ]  [f005        ]     [f006        ]
                                             Monto Pagado  [f7          ]
[j]
Usuario Creador  [f007     ]             Usuario Modificador  [f009     ]
Fecha Creacion   [f008            ]      Fecha Modificacion   [f010            ]
}
end
tables
notb00008,notb00002,
adtb00003
attributes
f002 = notb00008.num_nomi,autonext,
 comments = "Digite el numero de nomina";
c = notb00008.tipo_emp,autonext,upshift,
 comments = "Digite Q- Quincenal, S- Semanal, V- Vendedor";
te = formonly.descr,noentry;
f000 = adtb00003.num_emp,autonext,
 comments = "Digite la ficha del empleado o Presione Ctrl-W para busqueda";
f001 = adtb00003.departamento,autonext,
 comments = "Digite el departamento del empleado";
f2 = adtb00003.nivel_emp,noentry;
f3 = adtb00003.cod_puesto,noentry;
a = formonly.descrip1,noentry;
f4 = notb00008.cod_mov,autonext,
 comments = "Digite el codigo de movimiento o Presione Ctrl-W para busqueda";
b = notb00002.descrip_mov,noentry;
f005 = notb00008.cantidad,noentry;
f006 = notb00008.valor,noentry;
j = notb00008.status_t,noentry;
f007 = notb00008.us_crea,noentry;
f008 = notb00008.fech_crea,noentry;
f009 = notb00008.us_mod,noentry;
f010 = notb00008.fech_mod,noentry;
f7   = formonly.monto,noentry;
instructions
  screen record consart[4] (cod_mov,descrip_mov,cantidad,valor)
  delimiters " "
end