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:
co-authored by
Claude Sonnet 5
parent
899f4ee138
commit
58909014ab
@@ -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
@@ -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"/>
|
||||
|
||||
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user