JSOTO Arreglo programa ipprmt005, quitando la conexion IFMX

PROYECTO/ipdir/ipprmt005.4gl

@@ -16,8 +16,10 @@ MAIN
    CALL ARG_VAL(2) RETURNING clave
 
    CONNECT to "smarmotech" AS "MSSQL" USER  usuarios USING clave
-   CONNECT TO "marmotech" AS "IFMX" USER usuarios USING clave
-   
+   -- Migracion Genero 6.0: se elimina la conexion IFMX (EXTERIOR).
+   -- La replicacion de iptb00020 a exterior.dbo.iptb00020 ahora la hace
+   -- un trigger en marmotech.dbo.iptb00020 (ver ipprmt005_trg_exterior.sql).
+
    CALL ipprmt005()
 END MAIN
 
@@ -81,11 +83,8 @@ FUNCTION ippcad012()
               VALUES (p_iptb20.cod_n,p_iptb20.producto,usuarios,getdate(),p_iptb20.comentario,p_iptb20.genera_orden,p_iptb20.instalacion)
               
               INSERT INTO iptb00035 (cod_n,cod_cat) VALUES (p_iptb20.cod_n,p_iptb20.cod_cat)
-        COMMIT WORK      
-              SET CONNECTION "IFMX"
-              INSERT INTO iptb00020 (cod_n,producto,us_crea,fech_crea,instalacion) VALUES 
-              (p_iptb20.cod_n,p_iptb20.producto,usuarios,getdate(),p_iptb20.instalacion)
-
+        COMMIT WORK
+              -- La replica a EXTERIOR la realiza el trigger en iptb00020.
               LET numero_msg = 1
               CALL msg(numero_msg)
 END FUNCTION 
@@ -230,16 +229,9 @@ SET CONNECTION "MSSQL"
                 WHERE cod_n    = p_iptb20.cod_n
       DELETE FROM iptb00035 WHERE cod_n = p_iptb20.cod_n
       INSERT INTO iptb00035 (cod_cat,cod_n) VALUES (p_iptb20.cod_cat,p_iptb20.cod_n)
-   COMMIT WORK   
-     SET CONNECTION "IFMX"
-      UPDATE iptb00020 SET producto = p_iptb20.producto,
-                           us_mod      = usuarios, 
-                           fech_mod    = getdate(),
-                           instalacion = p_iptb20.instalacion
-                WHERE cod_n    = p_iptb20.cod_n
-
-      SET CONNECTION "MSSQL"          
-      LET numero_msg = 13 
+   COMMIT WORK
+      -- La replica a EXTERIOR la realiza el trigger en iptb00020.
+      LET numero_msg = 13
       CALL msg(numero_msg) 
 
       EXIT INPUT
@@ -257,12 +249,7 @@ END INPUT
                                fech_mod    = GETDATE() 
                 WHERE cod_n   = p_iptb20.cod_n
 
-         SET CONNECTION "IFMX"
-         UPDATE iptb00020 SET status_t = "E",
-                              us_mod      = usuarios 
-                               
-                WHERE cod_n   = p_iptb20.cod_n
-
+         -- La replica del "borrado logico" a EXTERIOR la realiza el trigger.
          LET numero_msg = 39
          CALL msg(numero_msg)
       ELSE