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,72 @@
+GLOBALS
+  DEFINE   idx smallint
+
+END GLOBALS
+MAIN
+  DEFER INTERRUPT
+  CALL STARTLOG("cumpleano.txt")
+ 
+ CONNECT to "smarmotech" USER  "conecta_mtech" USING "conecta"
+ 
+ CALL cumpleanos()
+END MAIN
+
+FUNCTION cumpleanos()
+  DEFINE rcumple RECORD
+    nombre    VARCHAR(100),
+    departamento VARCHAR(100)
+  END RECORD,
+     archivo VARCHAR(20),
+     HANDLER om.SaxDocumentHandler
+  
+
+  DECLARE busca_cumple CURSOR FOR
+
+  SELECT RTRIM(a.nom1_emp)||' '||a.apell1_emp,b.nom_dpto FROM adtb00003 a,adtb00001 b
+  WHERE a.departamento = b.departamento AND
+        DAY(a.fech_nac) = DAY(TODAY) AND 
+        MONTH(a.fech_nac) = MONTH(TODAY) AND a.status_t IS NULL
+        
+# "file:///f:/master/IMAGENES/logo_cumple.png"
+   LET idx=1  
+   LET archivo = 'cumpleanos.4rp'
+   FOREACH busca_cumple INTO rcumple.*
+      IF idx = 1 THEN
+        IF fgl_report_loadCurrentSettings(archivo) THEN    -- load the .4rp file
+      
+         CALL fgl_report_selectDevice("PDF")     
+         CALL fgl_report_selectPreview(false)
+                
+         CALL fgl_report_setOutputFileName("cumpleanos.pdf")
+            
+         LET handler = fgl_report_commitCurrentSettings()    -- commit changes
+         START REPORT r_cumple TO XML HANDLER HANDLER
+         
+       ELSE
+         EXIT PROGRAM    
+       END IF
+     END IF
+     OUTPUT TO REPORT r_cumple(rcumple.*)
+     LET idx = idx + 1
+   END FOREACH
+   IF idx > 1 THEN   
+      FINISH REPORT r_cumple
+   END IF     
+END FUNCTION
+REPORT r_cumple(x)
+  DEFINE X RECORD
+    nombre    VARCHAR(100),
+    departamento VARCHAR(100)
+  END RECORD,
+  fecha VARCHAR(10),
+  chlable VARCHAR(100)
+
+  FORMAT
+    
+  ON EVERY ROW
+
+    LET fecha = TODAY USING "dd/mm/yyyy"
+    LET chlable='CUMPLEAÑOS DEL DIA  ',fecha
+    
+    PRINTX x.*,idx,chlable
+END REPORT