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:
Abel López
2026-09-25 11:48:21 -04:00
co-authored by Claude Sonnet 5
parent 58909014ab
commit 303a722875
2 changed files with 17 additions and 1 deletions
+12 -1
View File
@@ -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