65 lines
2.7 KiB
Plaintext
65 lines
2.7 KiB
Plaintext
{
|
|
------------------------------------------------------------------------
|
|
FORMULARIO : ADFMMT015
|
|
OBJETIVO : Pantalla para introducir las informaciones de las
|
|
experiencias de trabajo de la solicitud de empleo.
|
|
Es utilizada por: ADPRMT015
|
|
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
|
|
{
|
|
Applicant's Number[f000] [b ]
|
|
\g-----------------------------------------------------------------------------
|
|
J O B E X P E R I E N C E A N D R E T I R M E N T
|
|
\g-----------------------------------------------------------------------------
|
|
[f001 ] [f6] [c ]
|
|
[f002 ] [f003] [f004 ] [f005 ]
|
|
[f007 ] [f008]-[f009]
|
|
[d ]
|
|
[f001 ] [f6] [c ]
|
|
[f002 ] [f003] [f004 ] [f005 ]
|
|
[f007 ] [f008]-[f009]
|
|
[d ]
|
|
}
|
|
end
|
|
tables
|
|
adtb00016,adtb00004
|
|
attributes
|
|
f000 = adtb00016.cod_sol,autonext,
|
|
comments = "Digite el codigo del solicitante";
|
|
b = formonly.nombre,noentry;
|
|
f001 = adtb00016.nom_empr,upshift,
|
|
comments = "Digite el nombre de la empresa";
|
|
f002 = adtb00016.calle,upshift,
|
|
comments = "Digite el nombre de la calle";
|
|
f003 = adtb00016.casa_num,autonext,
|
|
comments = "Digite el numero del local donde esta la empresa";
|
|
f004 = adtb00016.barrio,upshift,
|
|
comments = "Digite el nombre del barrio";
|
|
f005 = adtb00016.urbanizacion,upshift,
|
|
comments = "Digite el nombre de la urbanizacion";
|
|
f6 = adtb00016.cod_puesto,autonext,
|
|
comments = "Digite el codigo del Puesto o Presione Ctrl-W para busqueda";
|
|
c = adtb00004.nom_puesto,noentry;
|
|
f007 = adtb00016.sueldo,comments = "Digite el sueldo percibido";
|
|
f008 = adtb00016.ano_ini,autonext,
|
|
comments = "Digite el ano de inicio en la empresa";
|
|
f009 = adtb00016.ano_fin,
|
|
comments = "Digite el ano de salida de la empresa";
|
|
d = adtb00016.desc_retiro,upshift,
|
|
comments ="Digite las causas que motivaron el retiro";
|
|
instructions
|
|
screen record consart[2] (nom_empr,cod_puesto,nom_puesto,calle,casa_num,
|
|
barrio,urbanizacion,sueldo,ano_ini,ano_fin,desc_retiro)
|
|
end
|