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,106 @@
+{
+    PROGRAMA:           ipprmt021.4gl
+    OBJETIVO:           AUTORIZAR REQUISICIONES A ALMACENES
+    DESARROLLADO POR:   ING. JUAN SOTO
+    FECHA :             MAYO 5, 2022
+}
+GLOBALS
+"irprgb000.4gl"
+
+ DEFINE arr_busqueda DYNAMIC ARRAY OF RECORD
+           
+           estado         VARCHAR(50),
+           idestado int,
+           tipo_documento VARCHAR(100),
+           numeroid        INT,
+           fechadoc           DATE,
+           nombre              VARCHAR(100),
+           observacion,usuario VARCHAR(200),
+           cod_mov            INT ,
+           us_crea            VARCHAR(50)
+         END RECORD
+DEFINE nombreUsuario,email,etiqueta STRING
+MAIN
+ DEFER INTERRUPT
+   CALL ARG_VAL(1) RETURNING usuarios
+   CALL ARG_VAL(2) RETURNING clave
+ 
+   CONNECT to "smarmotech" USER  usuarios USING clave
+
+   
+   CALL ipprmt021()
+END MAIN
+FUNCTION ipprmt021()
+
+   OPEN WINDOW w1 WITH FORM "irfmmt021"
+     DIALOG ATTRIBUTE(UNBUFFERED)   
+     CONSTRUCT criterio ON b.estado,b.idestado FROM estado1,idestado1
+        BEFORE CONSTRUCT
+           LET etiqueta = "AUTORIZACIONES REQUISICIONES REPUESTOS"
+           DISPLAY BY NAME etiqueta
+           CALL estadosprocesos(2)
+           CALL arr_busqueda.clear()
+           
+        ON ACTION buscar ATTRIBUTE(TEXT="Buscar",IMAGE="find")
+              CALL arr_busqueda.clear()   
+             LET selec =
+                 "SELECT  b.estado,b.idestado,CAST(a.cod_mov AS VARCHAR(10))||' '||a.descrip_mov,b.numero_doc,b.fecha,c.nombre,
+                        b.observacion,' ',b.cod_mov,b.us_crea
+                 FROM irtb00005 a,irtb00057 b INNER JOIN irtb00061 d ON b.idestado = d.idestado
+                                    LEFT OUTER JOIN vetb00004 c ON c.tipo_cliente = b.tipo_cliente AND 
+                                                                             c.sec_cliente = b.sec_cliente 
+                 WHERE a.cod_mov = b.cod_mov AND
+                       b.status_t IS NULL AND
+        ", criterio CLIPPED
+    
+                PREPARE comando FROM selec              
+                DECLARE buscardata CURSOR FOR comando       
+
+                  LET idx = 1
+                  FOREACH buscardata INTO arr_busqueda[idx].*
+                     CALL usuarioSistema(arr_busqueda[idx].us_crea) RETURNING nombreUsuario,email
+                     LET arr_busqueda[idx].usuario = nombreUsuario
+                    LET idx = idx + 1
+                  END FOREACH     
+                  IF idx = 1 THEN
+                     CALL msg(3)
+                     CALL arr_busqueda.clear()
+                     
+                  END IF
+       END CONSTRUCT
+       INPUT ARRAY arr_busqueda FROM sautoriza.* ATTRIBUTE(WITHOUT DEFAULTS)
+            BEFORE INPUT
+               CALL estadosprocesos(1)
+      
+            ON CHANGE estado
+                    
+                     UPDATE irtb00057 SET estado = arr_busqueda[arr_curr()].estado,us_mod=usuarios,fech_mod=getdate()
+                                         
+                      WHERE numero_doc = arr_busqueda[arr_curr()].numeroid AND
+                            cod_mov = arr_busqueda[arr_curr()].cod_mov 
+
+           ON CHANGE observacion
+
+                     UPDATE irtb00057 SET us_mod=usuarios,fech_mod=getdate(),
+                                          observacion = arr_busqueda[arr_curr()].observacion 
+                                      
+                      WHERE numero_doc = arr_busqueda[arr_curr()].numeroid AND
+                            cod_mov = arr_busqueda[arr_curr()].cod_mov 
+           
+           ON CHANGE idestado
+          
+              
+                     UPDATE irtb00057 SET us_mod=usuarios,fech_mod=getdate(),
+                                          estado_proceso = arr_busqueda[arr_curr()].idestado
+                      WHERE numero_doc = arr_busqueda[arr_curr()].numeroid AND
+                            cod_mov = arr_busqueda[arr_curr()].cod_mov 
+
+           ON ACTION imprime ATTRIBUTE(TEXT="Imprimir", IMAGE="printer")
+             CALL impdocumentos(arr_busqueda[arr_curr()].numeroid,arr_busqueda[arr_curr()].cod_mov)             
+             AFTER INPUT
+           END INPUT   
+           ON ACTION CANCEL ATTRIBUTE(TEXT="Cancelar",IMAGE="quit")
+              EXIT PROGRAM
+      END DIALOG       
+   CLOSE WINDOW w1
+END FUNCTION