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