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,123 @@
+GLOBALS
+ "irprgb000.4gl"
+ {
+FUNCTION ccodn()
+ DEFINE pcod_n SMALLINT, pdesc_n char(20)
+        
+  CALL kcodn.clear()
+  
+  DECLARE busca_inventario CURSOR FOR
+    SELECT a.cod_n,a.producto FROM iptb00020 a
+    WHERE cod_inv = '7'
+    
+  FOREACH busca_inventario INTO pcod_n,pdesc_n
+   CALL kcodn.additem(pcod_n,pdesc_n)
+  END FOREACH
+
+
+END FUNCTION
+FUNCTION ccodgrupo()
+DEFINE pcod_grupo SMALLINT, pdesc_grupo char(20)
+        
+  CALL kcodgrupo.clear()
+  
+  DECLARE busca_grupo CURSOR FOR
+    SELECT a.cod_grupo,a.descripcion FROM iptb00029 a
+     WHERE cod_inv = '7'
+
+    
+  FOREACH busca_grupo INTO pcod_grupo,pdesc_grupo
+   CALL kcodgrupo.additem(pcod_grupo,pdesc_grupo)
+  END FOREACH
+
+
+END FUNCTION
+FUNCTION ccodtipo()
+DEFINE pcod_tipo SMALLINT, pdesc_tipo char(20)
+        
+  CALL kcodtipo.clear()
+  
+  DECLARE busca_tipo CURSOR FOR
+    SELECT a.cod_tipo,a.descripcion FROM iptb00024 a
+    WHERE cod_inv = '7'
+    
+  FOREACH busca_tipo INTO pcod_tipo,pdesc_tipo
+   CALL kcodtipo.additem(pcod_tipo,pdesc_tipo)
+  END FOREACH
+
+
+END FUNCTION
+
+}
+
+FUNCTION reimprime(xprograma)
+  DEFINE xprograma CHAR(20)
+  
+  IF xprograma = 'irprmt036' THEN
+     CONSTRUCT criterio ON a.cod_mov,a.num_doc,a.fecha,a.sec_a FROM
+                          cod_mov,num_doc,fecha,depto_a
+  AFTER CONSTRUCT
+   IF INT_FLAG THEN
+      LET INT_FLAG = FALSE
+      CALL msg(2)
+      EXIT PROGRAM
+   END IF
+   END CONSTRUCT
+      LET selec = "SELECT distinct b.cod_mov,b.descrip_mov,a.num_doc,",
+              "       CONVERT(CHAR(10),a.fecha,103),a.depto_a,a.num_emp FROM irtb00006 a,irtb00005 b ",
+              " WHERE ",criterio CLIPPED," AND ",
+              "       a.cod_mov = b.cod_mov AND a.status_t IS NULL "
+  
+
+
+   ELSE
+        CONSTRUCT criterio ON a.num_doc,a.fecha,a.sec_a FROM
+                               num_doc,fecha,depto_a
+    LET selec = "SELECT distinct b.cod_mov,b.descrip_mov,a.num_doc,",
+              "       CONVERT(CHAR(10),a.fecha,103),a.depto_a,a.num_emp FROM intb00006 a,intb00005 b ",
+              " WHERE ",criterio CLIPPED," AND a.cod_mov =36 and ",
+              "       a.cod_mov = b.cod_mov AND a.status_t IS NULL "
+  
+   
+  END IF 
+   PREPARE breimprime FROM selec
+    DECLARE bdocumento SCROLL CURSOR FOR breimprime
+   OPEN bdocumento
+    
+   FETCH FIRST bdocumento INTO otros_mov.cod_mov,otros_mov.descrip_mov,
+                               otros_mov.num_doc,otros_mov.fecha,  
+                               datos1.num_doc
+
+                               IF STATUS = NOTFOUND THEN
+                                  CALL msg(3)
+                                  RETURN
+                               END IF
+                               
+    CALL busca_info()
+           
+   MENU "NAVEGACION:"
+     COMMAND "Siguiente" "Busca el siguiente documento"
+       FETCH NEXT bdocumento INTO  otros_mov.cod_mov,otros_mov.descrip_mov,
+                               otros_mov.num_doc,otros_mov.fecha,  
+                               datos1.depto_a,pnum_emp
+       CALL busca_info()
+   
+     COMMAND "Primero" "Busca el siguiente documento"
+       FETCH FIRST bdocumento INTO  otros_mov.cod_mov,otros_mov.descrip_mov,
+                               otros_mov.num_doc,otros_mov.fecha,  
+                               datos1.depto_a,pnum_emp
+        CALL busca_info() 
+      COMMAND "Anterior" "Busca el Registrosiguiente documento"
+       FETCH PREVIOUS bdocumento INTO  otros_mov.cod_mov,otros_mov.descrip_mov,
+                               otros_mov.num_doc,otros_mov.fecha,  
+                               datos1.depto_a,pnum_emp
+        CALL busca_info()
+      COMMAND "Ultimo" "Busca el Ultimo Documento"
+       FETCH LAST bdocumento INTO  otros_mov.cod_mov,otros_mov.descrip_mov,
+                               otros_mov.num_doc,otros_mov.fecha,  
+                               datos1.depto_a,pnum_emp
+         CALL busca_info()
+      COMMAND KEY("T") "reTornar" "Salir de busqueda"
+        EXIT MENU
+     END MENU
+  END FUNCTION