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,65 @@
+SCHEMA smarmotech
+
+MAIN
+DEFINE usuarios,clave CHAR(50),
+  pnumemp smallint,
+  pfecha char(10),
+  pfecha_r char(10),
+  pvalor DEC(12,2),
+  cuenta smallint
+  
+  
+ DEFER INTERRUPT
+ 
+ CALL ARG_VAL(1) RETURNING usuarios
+ CALL ARG_VAL(2) RETURNING clave
+ 
+ CONNECT TO "smarmotech" USER usuarios USING clave
+ 
+ DECLARE busca_empleados CURSOR FOR
+   
+  SELECT a.num_emp,MAX(a.valor),CAST(b.fech_efec AS CHAR(10))
+  FROM tmpaumento a,adtb00003 b 
+  WHERE  a.cod_mov =1 AND a.valor <> 0 AND a.num_nomi IS NOT NULL AND 
+  a.num_emp = b.num_emp AND b.status_t IS NULL 
+  GROUP BY a.num_emp,b.fech_efec
+  
+  DISPLAY "EN PROCESO...."
+  START REPORT emplea TO "EMPLEA.TXT" 
+  DELETE FROM tmpfempleados
+  FOREACH busca_empleados INTO pnumEmp,pvalor,pfecha_r
+       LET pfecha = NULL
+       SELECT CAST(min(a.fecha) AS CHAR(10)) INTO pfecha
+       FROM tmpaumento a
+       WHERE a.num_emp = pnumemp AND a.valor = pvalor
+       
+       OUTPUT TO REPORT emplea(pnumemp,pfecha,pfecha_r,pvalor)       
+    
+  END FOREACH
+  FINISH REPORT emplea
+  DISPLAY "PROCESO TERMINADO"
+END MAIN
+REPORT emplea(xnumemp,xfecha,xfecha1,xvalor)
+ DEFINE xnumemp smallint,
+ xfecha,xfecha1 char(10),
+ xvalor,xvalorant dec(12,2),
+ actualiza CHAR(1)
+
+ ORDER BY xnumemp,xfecha
+ FORMAT
+ BEFORE GROUP OF xfecha
+  LET actualiza = "N"
+  #LET xvalorant = xvalor
+  LET xvalorant = 0
+  SELECT MAX(a.valor) INTO xvalorant FROM notb00008 a WHERE a.num_emp=xnumemp AND a.fecha < xfecha AND
+  cod_mov = 1 AND num_nomi IS NOT NULL
+  IF xvalorant =0 OR xvalorant IS NULL THEN
+     LET xfecha=NULL
+  END IF
+ON EVERY ROW
+    
+   INSERT INTO tmpfempleados VALUES (xNUMEMP,xfecha,xfecha1,xvalorant,xvalor,null)
+   PRINT xnumemp,' ',xfecha,' ',xvalor
+   LET actualiza = "S"
+
+END REPORT