58 lines
2.3 KiB
Plaintext
58 lines
2.3 KiB
Plaintext
{
|
|
------------------------------------------------------------------------
|
|
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 marmotech
|
|
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 ]
|
|
[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;
|
|
instructions
|
|
screen record consart[4] (cod_mov,descrip_mov,cantidad,valor)
|
|
delimiters " "
|
|
end
|