{
----------------------------------------------------------------------------
 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   
ACTION DEFAULTS
 ACTION busca_foto (TEXT="Buscar Fotos")
END

TOOLBAR 
  ITEM nuevo (TEXT="Empleados", IMAGE="new", COMMENT="Nuevo Empleado")
  ITEM buscar (TEXT="Buscar Empleado", IMAGE="find", COMMENT="Criterio de busqueda")
 SEPARATOR
  ITEM salir (TEXT="Salir", IMAGE="quit")
END

LAYOUT (TEXT="MAESTRA EMPLEADOS", STYLE="basic")
GRID

{
<G "Empleados"                                                                  >
  Ficha No.   [f000]-[f001]-[f2]-[f3    ]                    [i101             ]
  Nombre      [n                    ][n1                   ]
  Apellidos   [a1                   ][a2                   ] [sh      ]

 <G  "Generales"                                          ><G                              >
  Puesto      [l                             ]              LOCALIDAD:[lo                 ]
  Depto.      [m                             ]                 STATUS:[s1           ]
  Dir.        [f004                      ]                    Casa No:[f005       ]
  Urbanizacion[f006           ]            [f007      ]       Credito [cr1  ]
  Ced         [f010       ]  Serie         [f011  ]           Licencia [m1         ]
  Telefono    [f008         ]Fecha de Naci.[p         ]       Sexo[x][ tx          ]
  Nacionalidad[p1] [p2                         ]               Poncha  [c3]   
  Estado Civil[a] [c       ] Tipo de Sangre[f03]              Sueldo   [s          ]
  Nomina[d]   [d1          ] Fecha Entrada [fe        ]       F.Salida [fs         ]
  Paga Seguro [z]            Codigo TSS    [c1        ][c2]   Cuenta_no[cta        ]

<G                                                                               >
  [k]Usuario Creador [f11      ]        Usuario Modificador[f13      ] 
     Fecha Creacion  [f12             ] Fecha Creacion     [f14             ]
}
end
tables
adtb00007,adtb00003,
adtb00001,adtb00004
ATTRIBUTES
COMBOBOX cr1 = formonly.credito,INCLUDE=("SI","NO");
COMBOBOX lo = formonly.localidad;
IMAGE i101 =formonly.fotos,STRETCH = BOTH,AUTOSCALE;
BUTTON sh: busca_foto;
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,scroll;
f005 = adtb00003.casa_num,upshift;
f006 = adtb00003.barrio,upshift,scroll;
f007 = adtb00003.urbanizacion,upshift,scroll;
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 = formonly.telefono,format="(###)###-####";
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;
COMBOBOX c3 = adtb00003.cod_seg3,include=(1,0),comments = "1- CONTROL ASISTENCIA   0- NO CONTROL",DEFAULT=1;
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