{
------------------------------------------------------------------------
 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