From 303a722875b9690d3eaefd0e293ff40fb7e7f96c Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Abel=20L=C3=B3pez?= Date: Fri, 25 Sep 2026 11:48:21 -0400 Subject: [PATCH] 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 --- PROYECTO/mbsERP.4pw | 5 +++++ PROYECTO/nodir/noprmt024.4gl | 13 ++++++++++++- 2 files changed, 17 insertions(+), 1 deletion(-) diff --git a/PROYECTO/mbsERP.4pw b/PROYECTO/mbsERP.4pw index 06259f9..9bf96a6 100644 --- a/PROYECTO/mbsERP.4pw +++ b/PROYECTO/mbsERP.4pw @@ -481,6 +481,7 @@ + @@ -527,6 +528,10 @@ + + + + diff --git a/PROYECTO/nodir/noprmt024.4gl b/PROYECTO/nodir/noprmt024.4gl index a707bec..992c6af 100644 --- a/PROYECTO/nodir/noprmt024.4gl +++ b/PROYECTO/nodir/noprmt024.4gl @@ -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