42 lines
1.5 KiB
Plaintext
42 lines
1.5 KiB
Plaintext
{
|
|
------------------------------------------------------------------------
|
|
FORMULARIO : NOFMCS004
|
|
OBJETIVO : Pantalla para desplegar informacion referente al
|
|
acumulado por movimiento de los empleados.
|
|
PROGRAMA Q. LO USA: NOPRCS004
|
|
PROGRAMADOR : Tadeo A. Ferreras F.
|
|
FECHA REALIZACION : Agosto 23, 1993
|
|
------------------------------------------------------------------------
|
|
}
|
|
schema smarmotech
|
|
screen size 24 by 80
|
|
{
|
|
|
|
Codigo del Empleado [empl]-[dept]-[a1]-[a2]
|
|
[nomb ]
|
|
[dpto ]
|
|
\g----------------------------------------------------------\g
|
|
Movimiento Acumulado
|
|
\g----------------------------------------------------------\g
|
|
[f00] [des ][val ]
|
|
[f00] [des ][val ]
|
|
[f00] [des ][val ]
|
|
[f00] [des ][val ]
|
|
}
|
|
end
|
|
attributes
|
|
empl = formonly.num_emp type integer,comments =
|
|
"Digite el numero del empleado";
|
|
dept = formonly.departamento,noentry;
|
|
a1 = formonly.nivel_emp,noentry;
|
|
a2 = formonly.cod_puesto,noentry;
|
|
nomb = formonly.nombre type char,noentry;
|
|
dpto = formonly.nom_dpto type char,noentry;
|
|
f00 = formonly.cod_mov;
|
|
des = formonly.descrip_mov type char,noentry;
|
|
val = formonly.valor,noentry;
|
|
instructions
|
|
delimiters " "
|
|
screen record acumul1(cod_mov,descrip_mov,valor)
|
|
end
|