60 lines
2.3 KiB
Plaintext
60 lines
2.3 KiB
Plaintext
{
|
|
------------------------------------------------------------------------
|
|
FORMULARIO : ADFMMT021
|
|
OBJETIVO : Pantalla para introducir las informaciones de las
|
|
amonestaciones que reciben los empleados.
|
|
Es utilizada por: ADPRMT021
|
|
PROGRAMADOR : Ing. Betania Guerrero Perez
|
|
FECHA REALIZACION : Junio 24, 1993
|
|
------------------------------------------------------------------------
|
|
}
|
|
database rayovac
|
|
screen size 24 by 80
|
|
{
|
|
Amonestacion No. [f000] Fecha [f001 ]
|
|
Ficha No.[f002]-[f003]-[f4]-[f5] [a ]
|
|
Departamento [f6 ]
|
|
Violacion [f007 ]
|
|
[f008 ]
|
|
Aceptado [f009]-[f010]-[f1]-[f2][b ]
|
|
Supervisor [f013]-[f014]-[f3]-[f7][c ]
|
|
[j]
|
|
Usuario Creador [f017 ] Usuario Modificador [f019 ]
|
|
Fecha Creacion [f018 ] Fecha Modificador [f020 ]
|
|
}
|
|
end
|
|
tables
|
|
adtb00026,adtb00001
|
|
attributes
|
|
f000 = adtb00026.amon_num,noentry;
|
|
f001 = adtb00026.fecha,format = "dd/mm/yyyy";
|
|
f002 = adtb00026.num_emp,autonext,
|
|
comments = "Digite la ficha del empleado o Presione Ctrl-W para busqueda";
|
|
f003 = adtb00026.departamento,noentry;
|
|
f4 = adtb00026.nivel_emp,noentry;
|
|
f5 = adtb00026.cod_puesto,noentry;
|
|
a = formonly.descrip3,noentry;
|
|
f6 = adtb00001.nom_dpto,noentry;
|
|
f007 = adtb00026.violacion,upshift;
|
|
f008 = adtb00026.violacion1,upshift;
|
|
f009 = adtb00026.num1_emp,autonext,
|
|
comments = "Digite la ficha del empleado o Presione Ctrl-W para busqueda";
|
|
f010 = adtb00026.departamento1,noentry;
|
|
f1 = adtb00026.nivel1_emp,noentry;
|
|
f2 = adtb00026.cod1_puesto,noentry;
|
|
b = formonly.descrip1,noentry;
|
|
f013 = adtb00026.num2_emp,autonext,
|
|
comments = "Digite la ficha del empleado o Presione Ctrl-W para busqueda";
|
|
f014 = adtb00026.departamento2,noentry;
|
|
f3 = adtb00026.nivel2_emp,noentry;
|
|
f7 = adtb00026.cod2_puesto,noentry;
|
|
c = formonly.descrip2,noentry;
|
|
j = adtb00026.status_t,noentry;
|
|
f017 = adtb00026.us_crea,noentry;
|
|
f018 = adtb00026.fech_crea,noentry;
|
|
f019 = adtb00026.us_mod,noentry;
|
|
f020 = adtb00026.fech_mod,noentry;
|
|
instructions
|
|
delimiters " "
|
|
end
|