97 lines
4.1 KiB
Plaintext
97 lines
4.1 KiB
Plaintext
{
|
|
------------------------------------------------------------------------
|
|
FORMULARIO : ADFMMT010
|
|
OBJETIVO : Pantalla para introducir las informaciones de la
|
|
requisicion de personal.
|
|
Es utilizada por: ADPRMT010
|
|
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
|
|
|
|
screen size 24 by 80
|
|
{
|
|
Numero Documento: [f002] Fecha: [f000 ] Fecha Requerido: [f001 ]
|
|
Departamento: [f004] [b ]
|
|
Requerimiento: [f] [c ] Razon: [t ]
|
|
Puesto: [f5] [d ]
|
|
Funciones: [g ]
|
|
[g4 ]
|
|
Edad Minima: [f6] Sueldo Semanal: [f003 ] Sueldo Mensual: [f005 ]
|
|
Experiencia: [h][k ] Educacion: [m ] [n ]
|
|
\g-----------------------------------------------------------------------------
|
|
Codigo Descripcion Nivel Pericia
|
|
[f9] [f8 ] [a]
|
|
[f9] [f8 ] [a]
|
|
[f9] [f8 ] [a]
|
|
Requerido Por: [x ][y ][r ][s ] [g1 ]
|
|
Aprobado Por: [x1 ][y1 ][r1][s1] [g2 ]
|
|
Aprobado Por: [x2 ][y2 ][r2][s2] [g3 ]
|
|
}
|
|
end
|
|
tables
|
|
adtb00011,adtb00001,
|
|
adtb00004,adtb00005,
|
|
adtb00006,adtb00009
|
|
attributes
|
|
f002 = adtb00011.num_doc,autonext,
|
|
comments = "Digite el Numero del Documento";
|
|
f000 = adtb00011.fecha,format = "dd/mm/yyyy";
|
|
f001 = adtb00011.fech_req,format = "dd/mm/yyyy";
|
|
f004 = adtb00011.depart,autonext,
|
|
comments = "Digite el codigo del Departamento o Presione Ctr-l W para busqueda";
|
|
b = adtb00001.nom_dpto,noentry;
|
|
f = adtb00011.tipo_req,autonext,include = (1,2),
|
|
comments = "Digite 1 = Adicion, 2 = Reemplazo";
|
|
c = formonly.descr,noentry;
|
|
t = adtb00011.razon_vac,upshift,
|
|
comments = "Digite la Razon de la Vacante";
|
|
f5 = adtb00011.cod_puesto_r,autonext,
|
|
comments = "Digite el Codigo del Puesto o Presione Ctr-l W para busqueda";
|
|
d = adtb00004.nom_puesto,noentry;
|
|
g = adtb00004.funciones,noentry;
|
|
g4 = adtb00004.funcion1,noentry;
|
|
f6 = adtb00011.edad_min,autonext,
|
|
comments = "Digite la Edad Minima Requerida para la vacante";
|
|
f003 = adtb00011.salario_sem;
|
|
f005 = adtb00011.salario_men;
|
|
h = adtb00011.experiencia,autonext,include = (1,2,3),
|
|
comments = "Digite 1 = Necesaria, 2 = Deseable, 3 = No Necesaria";
|
|
k = formonly.descrip,noentry;
|
|
m = adtb00011.cod_educa,autonext,comments =
|
|
"Digite el Codigo del Nivel Educativo o Presione Ctrl-W para busqueda";
|
|
n = adtb00005.nom_educa,noentry;
|
|
f9 = adtb00006.cod_pericia,autonext,
|
|
comments ="Digite el Codigo de la Pericia o Presione Ctrl-W para busqueda";
|
|
f8 = adtb00006.nom_pericia,noentry;
|
|
a = adtb00011.status_per,autonext,upshift,
|
|
comments = "Digite D = Deseable o N = Necesario";
|
|
x = adtb00011.num_emp,autonext,
|
|
comments = "Digite la ficha del empleado o Presione Ctrl-W para busqueda";
|
|
y = adtb00011.departamento,noentry;
|
|
r = adtb00011.nivel_emp,noentry;
|
|
s = adtb00011.cod_puesto,noentry;
|
|
g1 = formonly.empleado,noentry;
|
|
x1 = adtb00011.num1_emp,autonext,
|
|
comments = "Digite la ficha del empleado o Presione Ctrl-W para busqueda";
|
|
y1 = adtb00011.departamento1,noentry;
|
|
r1 = adtb00011.nivel1_emp,noentry;
|
|
s1 = adtb00011.cod1_puesto,noentry;
|
|
g2 = formonly.empleado1,noentry;
|
|
x2 = adtb00011.num2_emp,autonext,
|
|
comments = "Digite la ficha del empleado o Presione Ctrl-W para busqueda";
|
|
y2 = adtb00011.departamento2,noentry;
|
|
r2 = adtb00011.nivel2_emp,noentry;
|
|
s2 = adtb00011.cod2_puesto,noentry;
|
|
g3 = formonly.empleado2,noentry;
|
|
instructions
|
|
screen record consart[3] (cod_pericia,nom_pericia,status_per)
|
|
end
|