61 lines
2.6 KiB
Plaintext
61 lines
2.6 KiB
Plaintext
{
|
|
------------------------------------------------------------------------
|
|
FORMULARIO : ADFMMT018
|
|
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
|
|
------------------------------------------------------------------------
|
|
}
|
|
SCHEMA smarmotech
|
|
|
|
TOOLBAR
|
|
ITEM nuevo (TEXT="Nuevo", IMAGE="new", COMMENT="Adicionar Registos")
|
|
ITEM buscar (TEXT="Buscar", IMAGE="find", COMMENT="Buscar Regustros") SEPARATOR
|
|
ITEM salir (TEXT="Salir", COMMENT = "Salir del Programa", IMAGE="quit")
|
|
END
|
|
|
|
LAYOUT (TEXT="FORMULARIO MANTENIMIENTO REGISTRO DE INFORMACION", STYLE="basic")
|
|
|
|
GRID
|
|
|
|
{
|
|
<G >
|
|
Ficha No. [f000]-[f001]-[f2]-[f3] [b1 ]
|
|
|
|
<G "INFORMACION DE DEPENDIENTES" > Fecha
|
|
Codigo Nombre Dependientes Cedula Sexo Nacim.
|
|
[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 ]
|
|
Descripcion Pariente [pa ]
|
|
}
|
|
end
|
|
End
|
|
tables
|
|
adtb00021,adtb00003
|
|
attributes
|
|
f000 = adtb00003.num_emp;
|
|
f001 = adtb00003.departamento;
|
|
f2 = adtb00003.nivel_emp;
|
|
f3 = adtb00003.cod_puesto;
|
|
b1 = formonly.nombre1 type char,noentry;
|
|
pa = formonly.descrip_pa type char,noentry;
|
|
|
|
f6 = adtb00021.cod_par,comments = "Digite Codigo de Parentesco";
|
|
f7 = adtb00021.sec_par,comments = "Digite Secuencia de Codigo Parentesco";
|
|
n1 = adtb00021.nombre,upshift,comments = "Digite Nombre del Dependiente";
|
|
ce = adtb00021.cedula,comments= "Digite Cedula del Dependiente";
|
|
s = adtb00021.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_reg18[7] (cod_par,sec_par,nombre,cedula,sexo,fecha)
|
|
end
|