From 58909014aba3e31672db28d522170797ed6412ea Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Abel=20L=C3=B3pez?= <alopez@marmotech.local>
Date: Fri, 25 Sep 2026 10:11:49 -0400
Subject: [PATCH] Registra noprmt023 (Maestra de Departamentos) y corrige bug
 de MaintainX

Se agrega noprmt023 al proyecto usando nofmmt023.4fd. Este programa
conecta a dos bases (smarmotech y marmotech/EXTERIOR via Informix
legado) para sincronizar departamentos en ambas.

Se agrega environment FGLPROFILE al Application para que resuelva la
conexion dual via PROYECTO/config/fglprofile. Se corrige ese archivo:
dbi.database.smarmotech.source apuntaba a un DSN "marmotech250s" que
nunca se creo; se cambia al DSN real existente "marmotech18".

Se corrige eLiminar: llamaba a la API real de MaintainX (DELETE) con
solo validar que id_maintainx no fuera null, ignorando el checkbox
"Enviar a MaintainX" (apicheck). Ahora requiere ambas condiciones.

Probado ciclo completo (Adicionar, Buscar, Escoger, eLiminar,
Departamentos Relacionados) verificando sincronizacion entre
smarmotech y EXTERIOR.

Co-Authored-By: Claude Sonnet 5 <noreply@anthropic.com>
---
 PROYECTO/config/fglprofile   | 4 ++--
 PROYECTO/mbsERP.4pw          | 8 +++++---
 PROYECTO/nodir/noprmt023.4gl | 2 +-
 3 files changed, 8 insertions(+), 6 deletions(-)

diff --git a/PROYECTO/config/fglprofile b/PROYECTO/config/fglprofile
index 56e9925..2fe14c0 100644
--- a/PROYECTO/config/fglprofile
+++ b/PROYECTO/config/fglprofile
@@ -1,10 +1,10 @@
 dbi.default.driver = "dbmsqt"
 dbi.database.mydatabase.source = "mydatabase.db"
 
-# --- MBS ERP: conexion smarmotech -> .250/marmotech (DSN ODBC18 marmotech250s) ---
+# --- MBS ERP: conexion smarmotech -> .250/marmotech (DSN ODBC18 marmotech18) ---
 # La autenticacion la provee el login (CONNECT ... USER usuario USING clave).
 # OJO: el runtime debe tener el driver dbmsnc (esta en fgl602, NO en el 6.00.01 de GST603).
-dbi.database.smarmotech.source = "marmotech250s"
+dbi.database.smarmotech.source = "marmotech18"
 dbi.database.smarmotech.driver = "dbmsnc"
 
 # --- MBS ERP: conexion marmotech -> .250/EXTERIOR (DSN ODBC18 marmotech) ---
diff --git a/PROYECTO/mbsERP.4pw b/PROYECTO/mbsERP.4pw
index 06451de..06259f9 100644
--- a/PROYECTO/mbsERP.4pw
+++ b/PROYECTO/mbsERP.4pw
@@ -480,6 +480,7 @@
         <File filePath="nodir/nofmmt016.per"/>
         <File filePath="nodir/nofmmt018.per"/>
         <File filePath="nodir/nofmmt019.per"/>
+        <File filePath="nodir/nofmmt023.4fd"/>
       </Library>
       <Library binaryName="FUNCIONES_NO" id="-306412216" label="FUNCIONES_NO">
         <File filePath="nodir/noprgb000.4gl"/>
@@ -522,6 +523,10 @@
         <Configuration commandLineArguments="alopez Lopez2023" id="-700000062" label="Configuration"/>
         <File filePath="nodir/noprmt019.4gl"/>
       </Application>
+      <Application binaryName="noprmt023" dependencies="-1026233879,-764824792,-306412216,-335228674" environment="file:FGLPROFILE=$(ProjectDir)/config/fglprofile" id="-700000063" label="noprmt023">
+        <Configuration commandLineArguments="alopez Lopez2023" id="-700000064" label="Configuration"/>
+        <File filePath="nodir/noprmt023.4gl"/>
+      </Application>
     </Group>
     <Group id="1667448785" label="PRODUCTOS TERMINADOS">
       <Library binaryName="FORMULARIOS_IP" dependencies="-1026233879" id="-1826025351" label="FORMULARIOS_IP">
@@ -640,17 +645,14 @@
       <Application binaryName="ipprrp002" dependencies="1763548104,-1026233879,-764824792" externalDependencies="libgre.42x" id="-960000017" label="ipprrp002">
         <Configuration commandLineArguments="jpeguero Peguero2023" id="-961000017" label="Configuration"/>
         <File compilerOptions="--build-rdd" filePath="ipdir/ipprrp002.4gl"/>
-        <File filePath="ipdir/ipfmrp002.4fd"/>
       </Application>
       <Application binaryName="ipprrp002_1" dependencies="1763548104,-1026233879,-764824792" externalDependencies="libgre.42x" id="-960000018" label="ipprrp002_1">
         <Configuration commandLineArguments="jpeguero Peguero2023" id="-961000018" label="Configuration"/>
         <File compilerOptions="--build-rdd" filePath="ipdir/ipprrp002_1.4gl"/>
-        <File filePath="ipdir/ipfmrp002_1.4fd"/>
       </Application>
       <Application binaryName="ipprrp052" dependencies="1763548104,-1026233879,-764824792" externalDependencies="libgre.42x" id="-960000019" label="ipprrp052">
         <Configuration commandLineArguments="jpeguero Peguero2023" id="-961000019" label="Configuration"/>
         <File compilerOptions="--build-rdd" filePath="ipdir/ipprrp052.4gl"/>
-        <File filePath="ipdir/ipfmrp052.4fd"/>
       </Application>
       <Application binaryName="ipprrp050" dependencies="1763548104,-1026233879,-764824792" externalDependencies="libgre.42x" id="-960000020" label="ipprrp050">
         <Configuration commandLineArguments="jpeguero Peguero2023" id="-961000020" label="Configuration"/>
diff --git a/PROYECTO/nodir/noprmt023.4gl b/PROYECTO/nodir/noprmt023.4gl
index c42da61..414ff39 100644
--- a/PROYECTO/nodir/noprmt023.4gl
+++ b/PROYECTO/nodir/noprmt023.4gl
@@ -542,7 +542,7 @@ FUNCTION nopcmf023()
 ## AQUI SE ELIMINAN LOS REGISTROS
         COMMAND KEY("L") "eLiminar"
 
-            IF depto.id_maintainx IS NOT NULL THEN
+            IF apicheck AND depto.id_maintainx IS NOT NULL THEN
                 CALL ApiMaintainD(
                     'DELETE', depto.id_maintainx, depto.*, usuarios)
                     RETURNING answer