50 lines
2.3 KiB
Plaintext
50 lines
2.3 KiB
Plaintext
{
|
|
------------------------------------------------------------------------
|
|
FORMULARIO : ADFMMT013
|
|
OBJETIVO : Pantalla para introducir las informaciones de la
|
|
actualizacion de informacion personal.
|
|
Es utilizada por: ADPRMT013
|
|
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
|
|
|
|
screen size 24 by 80
|
|
{
|
|
Applicant's Dependents [f000] [b1 ]
|
|
\g-----------------------------------------------------------------------------
|
|
Fecha
|
|
Code And Dependents's Name ID Sex Birthdate
|
|
\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
|
|
adtb00013
|
|
attributes
|
|
f000 = adtb00013.cod_sol;
|
|
b1 = formonly.nombre1 type char,noentry;
|
|
f6 = adtb00013.cod_par,comments = "Digite Codigo de Parentesco";
|
|
f7 = adtb00013.sec_par,comments = "Digite Secuencia de Codigo Parentesco";
|
|
n1 = adtb00013.nombre,upshift,comments = "Digite Nombre del Dependiente";
|
|
ce = adtb00013.cedula,comments= "Digite Cedula del Dependiente";
|
|
s = adtb00013.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_reg13[7] (cod_par,sec_par,nombre,cedula,sexo,fecha)
|
|
end
|