Registra noprmt024 (Maestra de Puestos) y corrige duplicado en Nuevo
Se agrega noprmt024 al proyecto usando nofmmt024.per. Se corrige adpcad023(): tras un INSERT exitoso el codigo hacia NEXT FIELD nom_puesto para permitir capturar otro puesto, pero sin limpiar los campos del registro anterior. Combinado con el orden real de tabulacion del formulario (nivel_sal/salario_min/salario_max quedan antes que cod_puesto_sirla en el orden de atributos, aunque visualmente aparecen despues), esto permitia disparar un segundo INSERT accidental con datos incompletos/residuales del registro previo. Se agrega CLEAR FORM y reset de los campos tras cada insercion exitosa, igual que en los demas programas de Nuevo ya corregidos. Probado ciclo completo: Nuevo (confirmado que ya no duplica), Buscar, Escoger y eLiminar sobre puesto de prueba. Co-Authored-By: Claude Sonnet 5 <noreply@anthropic.com>
This commit is contained in:
co-authored by
Claude Sonnet 5
parent
58909014ab
commit
303a722875
@@ -160,7 +160,18 @@ FUNCTION adpcad023()
|
||||
|
||||
LET numero_msg = 1
|
||||
CALL msg(numero_msg)
|
||||
NEXT FIELD nom_puesto
|
||||
CLEAR FORM
|
||||
LET puesto.nom_puesto = NULL
|
||||
LET puesto.otra_descripcion = NULL
|
||||
LET puesto.funciones = NULL
|
||||
LET puesto.funcion1 = NULL
|
||||
LET puesto.nivel_sal = NULL
|
||||
LET puesto.salario_min = NULL
|
||||
LET puesto.salario_max = NULL
|
||||
LET puesto.tipo_puesto = NULL
|
||||
LET puesto.supervisor = NULL
|
||||
LET puesto.cod_puesto_sirla = NULL
|
||||
NEXT FIELD nom_puesto
|
||||
|
||||
|
||||
|
||||
|
||||
Reference in New Issue
Block a user