Files
MBS/PROYECTO/addir/adfmmt020.per
T

70 lines
2.5 KiB
Plaintext

{
------------------------------------------------------------------------
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