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,148 @@
+{
+-------------------------------------------------------------------------------
+PROGRAMA             :  IRPRRP013
+OBJETIVO             :  Validacion Maestra de Maquina
+PROGRAMADOR          :  Tadeo A. Ferreras F.       
+FECHA REALIZACION    :  Enero 29, 1993.  
+-------------------------------------------------------------------------------
+}
+GLOBALS "irprgb000.4gl"
+
+MAIN                
+   DEFER INTERRUPT
+    CALL STARTLOG("irprrp13.log")
+   CALL ARG_VAL(1) RETURNING usuarios
+   CALL ARG_VAL(2) RETURNING clave
+   CALL ARG_VAL(3) RETURNING impresor
+
+  CONNECT to "smarmotech" USER  usuarios USING clave
+   SELECT * INTO p_companias.* FROM companias
+   CALL irprrp013()
+END MAIN
+
+FUNCTION irprrp013()
+
+    DEFINE maquina RECORD
+      codigo       LIKE irtb00009.codigo,
+      nombre       LIKE irtb00009.nombre,    
+      unidad_med   LIKE irtb00009.unidad_med,
+      modelo       LIKE irtb00009.modelo,
+      serie        LIKE irtb00009.serie,  
+      fabricante   LIKE irtb00009.fabricante,
+      ubicacion    ,
+      codigo_externo VARCHAR(100),
+      departamento INT,
+      nombre_dpto LIKE adtb00001.nom_dpto
+    END RECORD
+        
+
+ #WHENEVER ERROR CONTINUE
+
+    OPTIONS
+       FORM LINE 8,
+       ERROR LINE 23,
+       COMMENT LINE 21
+
+    CLEAR SCREEN
+
+    OPEN FORM irfmrp13 FROM "irfmrp013"
+    DISPLAY FORM irfmrp13
+    
+    DISPLAY "irprrp013" AT 4,3
+    DISPLAY "Validacion Maestra de Maquina" AT 6,25
+
+    
+
+    CONSTRUCT criterio ON a.codigo,a.nombre,a.departamento, a.codigo_externo,a.serie,a.modelo
+                     FROM codigo,nombre,departamento,codigo_externo,serie,modelo
+    BEFORE CONSTRUCT
+       CALL busca_departamento()    
+    AFTER CONSTRUCT
+      IF int_flag THEN
+         CALL msg(2)
+         RETURN
+      END IF 
+      EXIT CONSTRUCT
+     END CONSTRUCT 
+      
+    LET SELEC = 
+      "SELECT UNIQUE a.codigo,a.nombre,a.unidad_med,a.modelo,a.serie, ",
+      "       a.fabricante,a.ubicacion,a.codigo_externo,a.departamento,ISNULL(b.nom_dpto,'NO TIENE') ",
+      "FROM irtb00009 a LEFT OUTER JOIN adtb00001 b ON a.departamento =b.departamento ",
+      "WHERE a.status_t IS NULL AND ",criterio CLIPPED
+  
+
+    PREPARE busca FROM selec
+   
+    DECLARE accion CURSOR FOR busca
+
+      DISPLAY "                                                " 
+              AT 19,14 
+      DISPLAY "<< Reporte Generandose ...  Por Favor Espere >>" 
+              AT 19,14 ATTRIBUTE (REVERSE) 
+    LET idx = 1
+    LET r_filename = 'irprrp013.4rp'
+    LET preview=1
+    FOREACH accion INTO maquina.* 
+
+        IF idx = 1 THEN 
+           IF fgl_report_loadCurrentSettings(r_filename) THEN                          
+
+                LET preview=1                           
+                CALL seleccionarsalida() RETURNING r_output      -- load the .4rp file
+                CALL fgl_report_selectDevice(r_output)           -- changing default
+                CALL fgl_report_selectPreview(preview)           -- changing default
+                CALL fgl_report_configurexlsxdevice(null,null,null,false,false,null,1)
+                LET handler = fgl_report_commitCurrentSettings() -- commit changes
+            START REPORT reporte_13 TO XML HANDLER handler
+        END IF
+         LET idx = 2
+      END IF
+   OUTPUT TO REPORT reporte_13(maquina.*)
+   END FOREACH
+    IF idx > 1 THEN
+       FINISH REPORT reporte_13
+    ELSE
+      CALL fgl_winmessage("INFO","NO EXISTEN DATOS CON LA CONDICION SOLICITADA","INFO")
+    END IF 
+    
+
+ END FUNCTION
+
+    REPORT reporte_13(x)
+       DEFINE x RECORD
+         codigo       LIKE irtb00009.codigo,
+         nombre       LIKE irtb00009.nombre,    
+         unidad_med   LIKE irtb00009.unidad_med,
+         modelo       LIKE irtb00009.modelo,  
+         serie        LIKE irtb00009.serie,  
+         fabricante   LIKE irtb00009.fabricante,
+         ubicacion    ,
+         codigo_externo VARCHAR(100),
+         departamento  LIKE adtb00001.departamento,
+         nombre_depto  LIKE adtb00001.nom_dpto
+       END RECORD,
+          registros INT
+
+    DEFINE hora CHAR(5)
+  
+     ORDER BY x.departamento,x.nombre 
+    FORMAT
+     FIRST PAGE HEADER
+   
+        LET hora = TIME
+            
+        
+
+      ON EVERY ROW
+
+         PRINTX x.*,p_companias.nombre,HORA
+
+     SKIP 1 LINE
+
+     ON LAST ROW
+       LET registros = count(*)
+       PRINTX registros
+
+     END REPORT
+