Abel LópezandClaude Sonnet 5.5
548dc62d4a
- Registra adprmt017 y sus formularios (adfmmt017, adfmwd007/008/017/018/019) en ADMINISTRACION PERSONAL. adfmwd009.per no se registra: solo lo abre busca_movi(), que nadie llama. - adfunciones.4gl pasa a la libreria FUNCIONES_ADF (el mismo archivo no puede estar en dos aplicaciones); noprcs004 y adprmt017 dependen de ella. - adfmwd008.per: DATABASE rayovac -> smarmotech (-6601). - adprmt017.4gl: CONVERT(CHAR(10),fecha,103/101) hacia variables DATE -> se lee la columna fecha directa (-1205); sexo del titular con ISNULL(cod_par,0)=0 (adtb00021 tiene cod_par/sec_par NULL); un tipo_mov vacio (AUMENTO SALARIAL, CONTRATACION) ya no se atora en cod_sol. Verificado contra la BD .250: Nuevo de AUMENTO SALARIAL (accion 5387, empleado 110) graba adtb00020 sin cambiar adtb00003. Capacitacion/Desvinculacion no probadas: las tablas adtb00059-62 no existen en la .250. Co-Authored-By: Claude Sonnet 5.5 <noreply@anthropic.com>
35 lines
1.1 KiB
Plaintext
35 lines
1.1 KiB
Plaintext
{
|
|
------------------------------------------------------------------------
|
|
FORMULARIO : ADFMWD008
|
|
OBJETIVO : Pantalla que muestra los niveles de los empleados
|
|
Es utilizada por: ADPRMT017,ADPRMT018
|
|
PROGRAMADOR : Ing. Betania Guerrero Perez
|
|
FECHA REALIZACION : Junio 24, 1993
|
|
------------------------------------------------------------------------
|
|
}
|
|
DATABASE smarmotech
|
|
SCREEN SIZE 24 by 80
|
|
{
|
|
Busqueda de los Niveles de Empleados
|
|
\g-----------------------------------------\g
|
|
Codigo Descripcion
|
|
\g-----------------------------------------\g
|
|
[f2] [f3 ]
|
|
[f2] [f3 ]
|
|
[f2] [f3 ]
|
|
[f2] [f3 ]
|
|
[f2] [f3 ]
|
|
[f2] [f3 ]
|
|
}
|
|
end
|
|
tables
|
|
adtb00024
|
|
attributes
|
|
f2 = adtb00024.nivel_emp,autonext;
|
|
f3 = adtb00024.desc_nivel,upshift,
|
|
comments = "<Esc> Busca Todos Los Niveles";
|
|
instructions
|
|
screen record s_nivel[6] (nivel_emp,desc_nivel)
|
|
delimiters " "
|
|
end
|