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,21 @@
+MAIN
+  CONNECT TO "smarmotech" USER 'jsoto' USING 'lmmjvsd2014' 
+  CALL actualizacion()
+END MAIN
+FUNCTION actualizacion()
+   DEFINE pnumdoc,pcodmov,IDX INT,
+          uscrea VARCHAR(50)
+   DECLARE buscar CURSOR FOR
+      SELECT DISTINCT a.num_doc,a.cod_mov,a.us_crea FROM iptb00006 a WHERE a.fecha <= '09/30/2021' AND
+                                                                        a.cod_n = 6
+      ORDER BY a.cod_mov,a.num_doc
+      
+     LET idx = 1
+     FOREACH buscar INTO pnumdoc,pcodmov,uscrea
+         UPDATE iptb00006 SET bodega = 23,us_mod='JSOTO',fech_mod=getdate()
+                                         WHERE num_Doc = pnumdoc AND cod_mov=pcodmov AND
+                                                us_crea = uscrea 
+         DISPLAY "ACTUALIZANDO ",pnumdoc," cod mov ",pcodmov," usuario ",uscrea," no registro ",idx                                       
+         LET idx = idx +1                                       
+     END FOREACH 
+END FUNCTION