50 lines
1.1 KiB
Plaintext
50 lines
1.1 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 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
|