{
----------------------------------------------------------------------------
 FORMULARIO        : NOFMMT003
 OBJETIVO          : Pantalla para actualizar las informaciones comunes de
                     la accion de personal y la maestra de empleados.
                     Es utilizada por: ADPRMT022
 PROGRAMADOR       : JUAN SOTO
 FECHA REALIZACION : FEBRERO 18, 1998.
----------------------------------------------------------------------------
}
database smarmotech   
screen size 24 by 80
{
Ficha No.[f000]-[f001]-[f2]-[f3    ]
Nombre   [n                    ][n1                   ]
Apellidos[a1                   ][a2                   ]
Puesto[l                             ] STATUS:[s1           ]
Depto.[m                             ]
Dir.[f004                      ] [f005] [f006           ] [f007           ]
Ced [f010       ]Serie [f011  ]Fecha Aumento              Sexo[x][ tx       ]
Telefono    [f008        ]         Fecha de Nacimiento [p         ] 
Nacionalidad[p1] [p2                         ]     Licencia [m1         ]
Estado Civil[a] [c       ] Tipo de Sangre [f03]    Sueldo   [s          ]  
Nomina[d]   [d1          ] Fecha de Entrada [fe        ]F.Salida[fs         ]
Paga Seguro [z]       Codigo TSS[c1         ][c2][c3   ]Cuenta_no[cta       ]
[k]Usuario Creador [f11      ]        Usuario Modificador[f13      ]
   Fecha Creacion  [f12             ] Fecha Creacion     [f14             ]
}
end
tables
adtb00007,adtb00003,
adtb00001,adtb00004
attributes

fs   = formonly.fecha_salida type date,format = "dd/mm/yyyy";
cta  = adtb00003.cuenta_no;
s1   = formonly.descrip_st;
f000 = adtb00003.num_emp;
f001 = adtb00003.departamento;
f2 = adtb00003.nivel_emp;
f3 = adtb00003.cod_puesto;
n = adtb00003.nom1_emp,upshift;
n1 = adtb00003.nom2_emp,upshift;
a1 = adtb00003.apell1_emp,upshift;
a2 = adtb00003.apell2_emp,upshift;
l = adtb00004.nom_puesto,noentry;
m = adtb00001.nom_dpto,noentry;
f004 = adtb00003.calle,upshift;
f005 = adtb00003.casa_num,upshift;
f006 = adtb00003.barrio,upshift;
f007 = adtb00003.urbanizacion,upshift;
f010 = adtb00003.cedula,autonext,comments = "Digite la cedula del empleado";
f011 = adtb00003.serie,autonext,comments = "Digite la serie del empleado";
p = adtb00003.fech_nac,format = "dd/mm/yyyy",
 comments = "Digite la fecha de nacimiento del empleado";
p1 = adtb00003.cod_nac,autonext,
 comments = "Digite la nacionalidad del empleado";
p2 = adtb00007.nom_nac,noentry;
m1 = adtb00003.licencia;
f008 = adtb00003.telefono,upshift,picture="###-####";
a = adtb00003.estado_civil,upshift,include = ("S", "C"),
 comments = "Digite S = Soltero, C = Casado";
c = formonly.descr,noentry;
f03 = adtb00003.tipo_sangre,
 comments = "Digite el tipo de sangre del empleado";
s = adtb00003.sueldo_ac;
d = adtb00003.nomina, upshift,include = ("Q", "S", "V","J"),
 comments = "Digite Q = Quincenal, S = Semanal, V = Vendedor J-Jornales";
d1 = formonly.descrip,noentry;
fe = adtb00003.fech_efec,format = "dd/mm/yyyy";
x  = formonly.p_sexo type char,upshift,include= ("M","F"),comments =
     "Digite  M  Para SEXO MASCULINO   y  F Para FEMENINO";
tx = formonly.tipo_sexo,noentry;
c1 = adtb00003.cod_seg1;
c2 = adtb00003.cod_seg2;
c3 = adtb00003.cod_seg3;
z  = adtb00003.paga_seg,include=("S","N"),required,upshift,comments=
     "Digite S  si el empleado paga SEGURO,  N en caso contario";
k = adtb00003.status_t,noentry;
f11 = adtb00003.us_crea,noentry;
f12 = adtb00003.fech_crea,noentry;
f13 = adtb00003.us_mod,noentry;
f14 = adtb00003.fech_mod,noentry;
instructions
  delimiters " "
end