{
------------------------------------------------------------------------
 FORMULARIO        : ADFMWD004
 OBJETIVO          : Pantalla que muestra los empleados de la empresa   
                     Es utilizada por: ADPRMT010,ADPRMT016,ADPRMT017,ADPRMT018
                     ADPRMT019,ADPRMT020,ADPRMT021
 PROGRAMADOR       : Ing. Betania Guerrero Perez
 FECHA REALIZACION : Junio 24, 1993  
------------------------------------------------------------------------
}
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="BUSQUEADA EMPLEADOS")
  GRID
{
                     Busqueda de Empleados
 <g                                                                                             >
  <t                                                                                          >
   [f1  ][f2  ][f5][f6] [f3             ] [f7             ][f4             ] [f8             ]
   [f1  ][f2  ][f5][f6] [f3             ] [f7             ][f4             ] [f8             ]
   [f1  ][f2  ][f5][f6] [f3             ] [f7             ][f4             ] [f8             ]
   [f1  ][f2  ][f5][f6] [f3             ] [f7             ][f4             ] [f8             ]
   [f1  ][f2  ][f5][f6] [f3             ] [f7             ][f4             ] [f8             ]
  
}
end
tables
 adtb00003
attributes
f1  = adtb00003.num_emp,TITLE="FICHA EMPLEADO";
f2  = adtb00003.departamento,autonext;
f5  = adtb00003.nivel_emp,autonext;
f6  = adtb00003.cod_puesto,autonext;
f3  = adtb00003.nom1_emp,TITLE="PRIMER NOMBRE";
f7  = adtb00003.nom2_emp;
f4 = adtb00003.apell1_emp,TITLE="PRIMER APELLIDO";
f8 = adtb00003.apell2_emp;
instructions
   screen record s_empleado (num_emp,departamento,nivel_emp,cod_puesto,
                                nom1_emp,nom2_emp,apell1_emp,apell2_emp)
 delimiters " "
end