62 lines
1.3 KiB
Plaintext
62 lines
1.3 KiB
Plaintext
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 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
|