{
------------------------------------------------------------------------
 FORMULARIO        : ADFMMT020
 OBJETIVO          : Pantalla para introducir las informaciones de las
                     entradas y salidas de los empleados. 
                     Es utilizada por: ADPRMT020
 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="FORMULARIO MANTENIMIENTO HORARIO DE EMPLEADOS", STYLE="basic")
  
GRID
{
<G "EMPLEADO"                                                                      >
  Fecha        [f000      ]  
  Ficha No.    [f001]-[f002]-[f3]-[f4][a                                       ]
  Departamento [b                                   ]

<G "DATOS"                            >
   Horas Entrada       Horas Salida
    [f005 ]             [f006 ]
    [f005 ]             [f006 ]
    [f005 ]             [f006 ]
    [f005 ]             [f006 ]
    [f005 ]             [f006 ]

<G                                                                                >
 Estado del Registro [j]
 Usuario Creador     [f007            ]   Usuario Modificador  [f009            ]
 Fecha Creacion      [f008            ]   Fecha Modificacion   [f010            ]
}
end
end
tables
adtb00023,adtb00001
attributes
dateedit f000 = adtb00023.fecha,format = "dd/mm/yyyy";
f001 = adtb00023.num_emp,autonext,
 comments = "Digite la ficha del empleado o Presione Ctrl-W para busqueda";
f002 = adtb00023.departamento,autonext,
 comments = "Digite el departamento del empleado";
f3 = adtb00023.nivel_emp,autonext,
 comments = "Digite el nivel del empleado";
f4 = adtb00023.cod_puesto,autonext,
 comments = "Digite el puesto del empleado";
a = formonly.descrip1,noentry;
b = adtb00001.nom_dpto,noentry;
f005 = adtb00023.hora_ent,picture = "##:##",
comments = "Digite la hora de entrada en formato de 24 horas. Ej: 13:00";
f006 = adtb00023.hora_sal,picture = "##:##",
comments = "Digite la hora de salida en formato de 24 horas. Ej: 13:00";
j =    adtb00023.status_t,noentry;
f007 = formonly.usuario_c,noentry;
f008 = formonly.fecha_c,noentry;
f009 = formonly.usuario_m,noentry;
f010 = formonly.fecha_m,noentry;
instructions
  screen record consart[5] (hora_ent,hora_sal)
  delimiters " "
end