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,49 @@
+DATABASE rayovac
+GLOBALS 
+DEFINE codigos RECORD LIKE irtb00002.*
+DEFINE codigos1 RECORD LIKE intb00001.*
+END GLOBALS
+MAIN
+CALL busca()
+END MAIN
+
+FUNCTION busca()
+
+DECLARE busca_ir CURSOR FOR
+SELECT *FROM irtb00002
+ORDER BY 1,2,3,4
+START REPORT saca TO "reporte"
+
+FOREACH busca_ir INTO codigos.*
+SELECT * INTO codigos1.* FROM intb00001
+WHERE @cod_n = codigos.cod_n and
+      @cod_grupo = codigos.cod_grupo and
+      @cod_tipo = codigos.cod_tipo and
+      @cod_sec = codigos.cod_sec
+
+IF status = notfound THEN
+   OUTPUT TO REPORT saca(codigos.*,codigos1.*)
+END IF
+END FOREACH
+FINISH REPORT saca
+END FUNCTION
+
+REPORT saca(x,z)
+DEFINE x record like irtb00002.*
+DEFINE z RECORD LIKE intb00001.*
+DEFINE descripcion CHAR(30)
+
+format
+page header
+print column 1,
+"REPORTE DE CODIGOS QUE ESTAN EN IRTB00002 Y NO ESTAN EN INTB0001"
+print column 1, today
+print column 1, time
+skip 1 line
+print column 1, "ARTICULOS..."
+
+SKIP 1 LINE
+ON EVERY ROW
+PRINT COLUMN 1, x.cod_n using "&","-",x.cod_grupo using "&","-",
+ x.cod_tipo using "&&","-",x.cod_sec using "&&&"," ",z.descrip_esp
+END REPORT