Files
MBS/PROYECTO/nodir/nofmmt024.per
T

65 lines
2.5 KiB
Plaintext

{
------------------------------------------------------------------
FORMULARIO : NOFMMT004
OBJETIVO : Capturar registros de la Tabla de Puestos
PROGRAMADOR : Ing. Betania Guerrero Perez
FECHA REALIZACION : Mayo 20, 1993
------------------------------------------------------------------
}
schema smarmotech
TOOLBAR
ITEM nuevo (TEXT="Puestos", IMAGE="new", COMMENT="Nuevo Puesto")
ITEM buscar (TEXT="Buscar Puestos", IMAGE="find", COMMENT="Criterio de busqueda")
SEPARATOR
ITEM salir (TEXT="Salir", IMAGE="quit")
END
LAYOUT (TEXT="MAESTRA PUESTOS", STYLE="basic")
GRID
{
Codigo del Puesto [f0 ]
Nombre del Puesto [f001 ]
Otra Descripcion [ot ]
Funcion Basica [f002 ]
[f003 ]
Codigo SIRLA [SR1 ]
Nivel [c] Salario Minimo [a ] Salario Maximo [b ]
Tipo Puesto [tp1 ] Supervisa [s1 ]
[j]
Usuario Creador [f004 ] Usuario Modificador [f006 ]
Fecha Creacion [f005 ] Fecha Modificacion [f007 ]
}
end
tables
adtb00004
ATTRIBUTES
COMBOBOX s1 = formonly.supervisor,ITEMS=("SI","NO"),DEFAULT="NO";
COMBOBOX tp1 = formonly.tipo_puesto, ITEMS=("ADMINISTRACION","FABRICA"),DEFAULT="ADMINISTRACION";
f0 = adtb00004.cod_puesto,autonext,
comments = "Digite el codigo del Puesto";
f001 = adtb00004.nom_puesto,upshift,scroll,
comments = "Digite el nombre del Puesto";
ot = formonly.otra_descripcion,scroll,upshift;
f002 = adtb00004.funciones,upshift,
comments = "Digite las funciones relacionadas al Puesto";
f003 = adtb00004.funcion1,upshift,
comments = "Digite las funciones relacionadas al Puesto";
c = adtb00004.nivel_sal,autonext,
comments = "Digite el nivel salarial del Puesto";
a = adtb00004.salario_min,
comments = "Digite el Salario Minimo para el Puesto";
b = adtb00004.salario_max,
comments = "Digite el Salario Maximo para el Puesto";
sr1 = adtb00004.cod_puesto_sirla,COMMENTS = "Digite el ID del puesto para el DGT3 Y DGT4";
j = adtb00004.status_t,noentry;
f004 = adtb00004.us_crea,noentry;
f005 = adtb00004.fech_crea,noentry;
f006 = adtb00004.us_mod,noentry;
f007 = adtb00004.fech_mod,noentry;
instructions
delimiters " "
end