44 lines
1.7 KiB
Plaintext
44 lines
1.7 KiB
Plaintext
{
|
|
------------------------------------------------------------------------
|
|
FORMULARIO : NOFMCS003
|
|
OBJETIVO : Pantalla para desplegar informacion referente a los
|
|
cheques emitidos a travez de la nomina.
|
|
PROGRAMA Q. LO USA: NOPRCS003
|
|
PROGRAMADOR : Tadeo A. Ferreras F.
|
|
FECHA REALIZACION : Agosto 23, 1993
|
|
------------------------------------------------------------------------
|
|
}
|
|
database marmotech
|
|
screen size 24 by 80
|
|
{
|
|
|
|
Numero de la Nomina [nom ] Tipo de Nomina [t]
|
|
\g---------------------------------------------------------------------\g
|
|
Cheque No. Empleado Monto Cheque
|
|
\g---------------------------------------------------------------------\g
|
|
[f000 ] [f001] [f005 ][f006 ] [valor ]
|
|
[f000 ] [f001] [f005 ][f006 ] [valor ]
|
|
[f000 ] [f001] [f005 ][f006 ] [valor ]
|
|
[f000 ] [f001] [f005 ][f006 ] [valor ]
|
|
[f000 ] [f001] [f005 ][f006 ] [valor ]
|
|
[f000 ] [f001] [f005 ][f006 ] [valor ]
|
|
[f000 ] [f001] [f005 ][f006 ] [valor ]
|
|
[f000 ] [f001] [f005 ][f006 ] [valor ]
|
|
}
|
|
end
|
|
tables
|
|
notb00009
|
|
attributes
|
|
nom = formonly.numero_nom type integer,comments =
|
|
"Digite el numero de la nomina a que se aplicaron los cheques";
|
|
t = formonly.tipo_emp,upshift;
|
|
f000 = notb00009.cheque_no;
|
|
f001 = notb00009.num_emp;
|
|
f005 = formonly.nombre type char,noentry;
|
|
f006 = formonly.apellido type char,noentry;
|
|
valor= notb00009.monto,noentry;
|
|
instructions
|
|
screen record cheque1[8] (cheque_no,num_emp,nombre,apellido,monto)
|
|
delimiters " "
|
|
end
|