{
    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