Files
MBS/PROYECTO/addir/adfmmt016.per
T

94 lines
3.9 KiB
Plaintext

{
------------------------------------------------------------------------
FORMULARIO : ADFMMT016
OBJETIVO : Pantalla para introducir las informaciones del
proceso de seleccion y contratacion de empleados.
Es utilizada por: ADPRMT016
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 PROFESIONES", STYLE="basic")
GRID
{
<G >
Fecha [f000 ] Expediente de [f009] [g ]
A [f001]-[f002]-[f3]-[f4] [n ]
De [f1 ]-[f02 ]-[b ]-[c ] [d ]
Recomendacion [f][h ]
Comentarios [f011 ]
Entrevistado Por [f014]-[f015]-[f6]-[f7] [p ]
Aprobado Por [f018]-[f019]-[f2]-[f5] [p1 ]
Acciones Descripcion Accion
[f13] [m ] [a]
[f13] [m ] [a]
[f13] [m ] [a]
}
end
end
tables
adtb00018,adtb00008
attributes
dateedit f000 = adtb00018.fecha,format = "dd/mm/yyyy";
f009 = adtb00018.cod_sol,autonext,
comments = "Digite el codigo del solicitante";
g = formonly.descrip3,noentry;
f001 = adtb00018.num_emp,autonext,
comments = "Digite la ficha del empleado o Presione Ctrl-W para busqueda";
f002 = adtb00018.departamento,autonext,
comments = "Digite el departamento del empleado";
f3 = adtb00018.nivel_emp,autonext,
comments = "Digite el nivel del empleado";
f4 = adtb00018.cod_puesto,autonext,
comments = "Digite el puesto del empleado";
n = formonly.descrip1,noentry;
f1 = formonly.num3_emp,autonext,
comments = "Digite la ficha del empleado o Presione Ctrl-W para busqueda";
f02 = formonly.departamento3,autonext,
comments = "Digite el departamento del empleado";
b = formonly.nivel3_emp,autonext,
comments = "Digite el nivel del empleado";
c = formonly.cod3_puesto,autonext,
comments = "Digite el puesto del empleado";
d = formonly.descrip2,noentry;
f = adtb00018.recomendacion,autonext,include = (1,2,3),
comments = "Digite 1= Aceptarlo, 2= Mantenerlo en Archivo, 3= No le interesa";
h = formonly.descrip,noentry;
f011 = adtb00018.otros_com,upshift;
f014 = adtb00018.num1_emp,autonext,
comments = "Digite la ficha del empleado o Presione Ctrl-W para busqueda";
f015 = adtb00018.departamento1,autonext,
comments ="Digite el departamento del empleado";
f6 = adtb00018.nivel1_emp,autonext,
comments = "Digite el nivel del empleado";
f7 = adtb00018.cod1_puesto,autonext,
comments = "Digite el puesto del empleado";
p = formonly.descrip4,noentry;
f018 = adtb00018.num2_emp,autonext,
comments = "Digite la ficha del empleado o Presione Ctrl-W para busqueda";
f019 = adtb00018.departamento2,autonext,
comments = "Digite el departamento del empleado";
f2 = adtb00018.nivel2_emp,autonext,
comments = "Digite el nivel del empleado";
f5 = adtb00018.cod2_puesto,autonext,
comments = "Digite el puesto del empleado";
p1 = formonly.descrip5,noentry;
f13 = adtb00018.cod_requi,autonext,
comments = "Digite el codigo del requisito o Presione Ctrl-W para busqueda";
m = adtb00008.requisito,noentry;
a = adtb00018.ind_requi,upshift,autonext,include = ("S","N"),
comments = "Digite S o N";
instructions
screen record consart[3] (cod_requi,requisito,ind_requi)
end