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>
This commit is contained in:
Abel López
2026-09-25 10:11:49 -04:00
co-authored by Claude Sonnet 5
parent 899f4ee138
commit 58909014ab
3 changed files with 8 additions and 6 deletions
+2 -2
View File
@@ -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) ---
+5 -3
View File
@@ -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"/>
+1 -1
View File
@@ -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