Commit inicial: fuentes MBS ERP (Genero 6) + .gitignore + docs/SETUP_PC_MBS.md

PROYECTOS/otrodir/busca.err

@@ -0,0 +1,70 @@
+DATABASE rayovac
+GLOBALS 
+| 
+|      Database not found or no system permission.
+| See error number -329.
+| 
+|      The database "rayovac" cannot be found or opened.  If the database 
+| exists, check the database permissions on the database.  In 
+| addition, check the system permissions on the database directory 
+| and its ascendant directories.
+| See error number -4305.
+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 intb00001
+WHERE cod_n = 5
+
+ORDER BY 1,2,3,4
+START REPORT saca TO "reporte1"
+
+FOREACH busca_ir INTO codigos1.*
+SELECT * INTO codigos.* FROM irtb00002
+WHERE @cod_n = codigos1.cod_n and
+      @cod_grupo = codigos1.cod_grupo and
+      @cod_tipo = codigos1.cod_tipo and
+      @cod_sec = codigos1.cod_sec
+
+IF status = notfound THEN
+SELECT * INTO codigos.* FROM irtb00001
+WHERE @cod_n = codigos1.cod_n and
+      @cod_grupo = codigos1.cod_grupo and
+      @cod_tipo = codigos1.cod_tipo and
+      @cod_sec = codigos1.cod_sec
+
+IF status = notfound THEN
+   OUTPUT TO REPORT saca(codigos1.*,codigos.*)
+END IF
+END IF
+END FOREACH
+FINISH REPORT saca
+END FUNCTION
+
+REPORT saca(z,x)
+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 INTB00001 Y NO ESTAN EN IRTB0002"
+print column 1, today
+print column 1, time
+skip 1 line
+print column 1, "ARTICULOS..."
+
+SKIP 1 LINE
+ON EVERY ROW
+PRINT COLUMN 1, z.cod_n using "&","-",z.cod_grupo using "&","-",
+ z.cod_tipo using "&&","-",z.cod_sec using "&&&"," ",z.descrip_esp
+ON LAST ROW
+PRINT "TOTAL REGISTROS: ",count(*) using "&&&&"
+END REPORT