51 lines
2.1 KiB
Plaintext
51 lines
2.1 KiB
Plaintext
{
|
|
------------------------------------------------------------------------
|
|
FORMULARIO : NOFMCS001
|
|
OBJETIVO : Pantalla que consulta los movimientos de la nomina
|
|
totalizados
|
|
Es utilizada por: NOFMCS001
|
|
PROGRAMADOR : Ing. Juan Soto
|
|
FECHA REALIZACION : Diciembre 16, 1993
|
|
------------------------------------------------------------------------
|
|
}
|
|
schema smarmotech
|
|
screen size 24 by 80
|
|
{
|
|
Numero de Nomina [f002] Tipo de Empleado [c] [te ]
|
|
\g--------------------------------------------------------------------------
|
|
Movimiento Cantidad Valor
|
|
\g--------------------------------------------------------------------------
|
|
[f4] [b ] [f005 ] [f006 ]
|
|
[f4] [b ] [f005 ] [f006 ]
|
|
[f4] [b ] [f005 ] [f006 ]
|
|
[f4] [b ] [f005 ] [f006 ]
|
|
[f4] [b ] [f005 ] [f006 ]
|
|
[f4] [b ] [f005 ] [f006 ]
|
|
[f4] [b ] [f005 ] [f006 ]
|
|
[f4] [b ] [f005 ] [f006 ]
|
|
[f4] [b ] [f005 ] [f006 ]
|
|
[f4] [b ] [f005 ] [f006 ]
|
|
No Movimientos: [k2 ] Neto: [k1 ]
|
|
}
|
|
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;
|
|
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;
|
|
k1 = formonly.c_neto;
|
|
k2 = formonly.idx_n;
|
|
instructions
|
|
screen record consart[10] (cod_mov,descrip_mov,cantidad,valor)
|
|
delimiters " "
|
|
end
|