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