{
------------------------------------------------------------------------
 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