{
------------------------------------------------------------------------
 FORMULARIO        : NOFMMT010
 OBJETIVO          : Pantalla que captura los codigos de seguro social
                     Es utilizada por: NOPRMT010
 PROGRAMADOR       : Tadeo A. Ferreras 
 FECHA REALIZACION : Agosto 19, 1993 
------------------------------------------------------------------------
}
database marmotech
screen size 24 by 80
{
Empleado      [f1  ][f2  ][f3][f4][nomb                          ]
                                  [dpto                          ]
Seguro Social [s1][s2][s3   ]
[j]
Usuario Creador  [f007     ]            Usuario Modificador  [f009     ]
Fecha Creacion   [f008            ]     Fecha Modificacion   [f010            ]
}
end
tables
adtb00003
attributes
f1   = adtb00003.num_emp,noentry;
f2   = adtb00003.departamento,noentry;
f3   = adtb00003.nivel_emp,noentry;
f4   = adtb00003.cod_puesto,noentry;
nomb = formonly.nombre type char,noentry;
dpto = formonly.nom_dpto type char,noentry;
s1   = adtb00003.cod_seg1,autonext,comments = "Digite el numero del aseguro";
s2   = adtb00003.cod_seg2,autonext,comments = "Digite el numero del aseguro";
s3   = adtb00003.cod_seg3,comments = "Digite el numero del aseguro";
j = adtb00003.status_t,noentry;
f007 = adtb00003.us_crea,noentry;
f008 = adtb00003.fech_crea,noentry;
f009 = adtb00003.us_mod,noentry;
f010 = adtb00003.fech_mod,noentry;
instructions
  delimiters " "
end