Commit inicial: fuentes MBS ERP (Genero 6) + .gitignore + docs/SETUP_PC_MBS.md

2026-08-18 20:59:52 -04:00
commit 454973e269
5978 changed files with 2664094 additions and 0 deletions
@@ -0,0 +1,92 @@
+{
+   PROGRAMA:            MaintainXAct
+   OBJETIVO:            Actualizar informacion en la plataforma MaintainX
+   FECHA DESARROLLO:    08/05/2026
+
+}
+SCHEMA smarmotech
+
+GLOBALS
+    DEFINE usuarios, clave VARCHAR(50)
+END GLOBALS
+MAIN
+
+    DEFER INTERRUPT
+    CALL STARTLOG("irprmt36.log")
+    CALL ARG_VAL(1) RETURNING usuarios
+    CALL ARG_VAL(2) RETURNING clave
+
+    CONNECT TO "smarmotech" USER usuarios USING clave
+
+    CALL proceso()
+
+END MAIN
+FUNCTION proceso()
+
+    DEFINE
+        items RECORD LIKE irtb00002.*,
+        answer STRING
+
+    DECLARE buscaitems CURSOR FOR
+        SELECT a.cod_n,
+            a.cod_grupo,
+            a.cod_tipo,
+            a.cod_sec,
+            ISNULL(SUM(b.cantidad_2), 0),
+            ISNULL(a.exist_min, 0),
+            ISNULL(c.costo_st, 0),
+            a.id_maintainx,
+            a.descrip_esp
+            FROM irtb00002 a,
+                irtb00006 b
+                    LEFT OUTER
+                    JOIN irtb00013 c
+                    ON b.cod_n = c.cod_n
+                        AND b.cod_grupo = c.cod_grupo
+                        AND b.cod_tipo = c.cod_tipo
+                        AND b.cod_Sec = c.cod_sec
+                        AND c.mes_fin = 12
+                        AND c.ano = 2026
+            WHERE a.cod_n = b.cod_n
+                AND a.cod_grupo = b.cod_grupo
+                AND a.cod_tipo = b.cod_tipo
+                AND a.cod_Sec = b.cod_sec
+                AND a.enviarMX IS NOT NULL
+                AND a.status_t IS NULL
+                AND b.status_t IS NULL
+            GROUP BY a.cod_n,
+                a.cod_grupo,
+                a.cod_tipo,
+                a.cod_sec,
+                a.exist_min,
+                a.id_maintainx,
+                c.costo_st,
+                a.descrip_esp
+
+    FOREACH buscaitems
+        INTO items.cod_n,
+            items.cod_grupo,
+            items.cod_tipo,
+            items.cod_sec,
+            items.existencia,
+            items.exist_min,
+            items.descrip_ing,
+            items.id_maintainx,
+            items.descrip_esp
+
+        CALL ApiMaintainR(
+            'PATCH', items.id_maintainx, items.*, usuarios)
+            RETURNING answer
+        DISPLAY "PROCESE ESTE ITEM: ",
+            items.cod_n,
+            "-",
+            items.cod_grupo,
+            "-",
+            items.cod_tipo,
+            "-",
+            items.cod_sec,
+            " answ: ",
+            answer
+    END FOREACH
+
+END FUNCTION