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,32 @@
+MAIN
+
+  CONNECT TO "smarmotech" AS "MSSQL" USER 'jsoto' USING 'lmmjvsd2014'
+  CALL actsueldo()
+END MAIN
+
+FUNCTION actsueldo()
+  DEFINE idx,numemp INT,
+         sueldoant,sueldoact DEC(12,2),
+         nombre VARCHAR(100)
+
+
+  DECLARE buscar CURSOR FOR
+    SELECT a.num_emp,SUM(a.valor),b.sueldo_ac,b.nom1_emp+' '+b.apell1_emp
+    FROM notb00008 a,adtb00003 b 
+    WHERE a.num_emp = b.num_emp AND
+          a.fecha BETWEEN '03/01/2023' AND '03/31/2023' AND
+          a.cod_mov = 1 AND 
+          b.status_t IS NULL
+    GROUP BY a.num_emp,b.sueldo_ac,b.nom1_emp,b.apell1_emp
+
+    LET idx = 1
+    FOREACH buscar INTO numemp,sueldoant,sueldoact,nombre
+      IF sueldoant <> sueldoact THEN
+         DISPLAY numemp," ", nombre," ", sueldoant," ",sueldoact," id ",idx
+         UPDATE adtb00003 SET fecha_ultimo_aumento = '04/01/2023',us_mod = 'JSOTO',fech_mod=getdate()
+         WHERE num_emp = numemp
+
+         LET idx = idx + 1
+      END IF 
+    END FOREACH
+END FUNCTION