Files

49 lines
1.5 KiB
Plaintext

{
SISTEMA : SISTEMA DE PERSONAL
FORMULARIO : ADFMMT023.PER
FUNCTION : REGISTRO DE PERMISOS PARA TARDANZAS
(ADPRMT023.4GL)
AUTOR : TADEO A. FERRERAS F.
FECHA : OCT. 18, 1994
}
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 PERMISOS", STYLE="basic")
GRID
{
<G >
Empleado [ne ] [noi ]
Fecha Efectiva [fe ] Cantidad de Dias [cdi ]
<G >
Estado del Registro[j]
Usuario Creador [uc ]Usuario Modificador [um ]
Fecha Creacion [fc ]Fecha Modificacion [fm ]
}
end
end
tables
adtb00032
attributes
ne = adtb00032.num_emp;
dateedit fe = adtb00032.fecha,format = "dd/mm/yyyy";
cdi = adtb00032.num_dia;
j = adtb00032.status_t,noentry;
uc = adtb00032.us_crea,noentry;
fc = adtb00032.fech_crea,noentry;
um = adtb00032.us_mod,noentry;
fm = adtb00032.fech_mod,noentry;
noi = formonly.nombre type char,noentry;
instructions
delimiters " "
end