48 lines
2.2 KiB
Plaintext
48 lines
2.2 KiB
Plaintext
{
|
|
------------------------------------------------------------------------
|
|
FORMULARIO : ADFMMT024
|
|
OBJETIVO : Pantalla para introducir las informaciones de la
|
|
actualizacion de informacion personal.
|
|
Es utilizada por: ADPRMT024
|
|
PROGRAMADOR : Tadeo A. Ferreras F.
|
|
FECHA REALIZACION : Noviembre 01, 1995
|
|
------------------------------------------------------------------------
|
|
}
|
|
database rayovac
|
|
screen size 24 by 80
|
|
{
|
|
Ficha No. [f000]-[f001]-[f2]-[f3] [b1 ]
|
|
\g-----------------------------------------------------------------------------
|
|
Fecha
|
|
Codigo y Nombre Dependientes Cedula Sexo Nacim.
|
|
\g-----------------------------------------------------------------------------
|
|
[f6]-[f7 ][n1 ][ce ][s][fe ]
|
|
[f6]-[f7 ][n1 ][ce ][s][fe ]
|
|
[f6]-[f7 ][n1 ][ce ][s][fe ]
|
|
[f6]-[f7 ][n1 ][ce ][s][fe ]
|
|
[f6]-[f7 ][n1 ][ce ][s][fe ]
|
|
[f6]-[f7 ][n1 ][ce ][s][fe ]
|
|
[f6]-[f7 ][n1 ][ce ][s][fe ]
|
|
}
|
|
end
|
|
tables
|
|
adtb00034,adtb00003
|
|
attributes
|
|
f000 = adtb00003.num_emp;
|
|
f001 = adtb00003.departamento;
|
|
f2 = adtb00003.nivel_emp;
|
|
f3 = adtb00003.cod_puesto;
|
|
b1 = formonly.nombre1 type char,noentry;
|
|
|
|
f6 = adtb00034.cod_par,comments = "Digite Codigo de Parentesco";
|
|
f7 = adtb00034.sec_par,comments = "Digite Secuencia de Codigo Parentesco";
|
|
n1 = adtb00034.nombre,upshift,comments = "Digite Nombre del Dependiente";
|
|
ce = adtb00034.cedula,comments= "Digite Cedula del Dependiente";
|
|
s = adtb00034.sexo,include = ("M","F"),upshift,comments=
|
|
"Digite El Sexo: M = Masculino, F = Femenino";
|
|
fe = formonly.fecha type date,format = "dd/mm/yyyy",comments =
|
|
"Digite Fecha de Nacimento";
|
|
instructions
|
|
screen record scr_reg34[7] (cod_par,sec_par,nombre,cedula,sexo,fecha)
|
|
end
|