estoy usando un cursor para traer diferentes datos de dos tablas las cuales son dependientes de una tabla madre pero se desglosa en dos, no lo puedo traer con select debido a que habra inconsistencia en los datos y devolveria vacia la consulta, por ende el cursor.
DECLARE
TYPE tRecepciones IS REF CURSOR;
cRecepciones tRecepciones;
vNum_OC NUMBER;
vNum_FA NUMBER;
vRut VARCHAR2(15);
vProveedor VARCHAR2(200);
vEMPRESA VARCHAR2(15);
vTIENDA VARCHAR2(15);
vDate DATE;
BEGIN
OPEN cRecepciones FOR 'SELECT DISTINCT NUMERO_OC, NUM_PACKING_SLIP,FECHA_CREACION
FROM XXX_PO_XXX
WHERE 0 = 0
AND FECHA_CREACION BETWEEN TO_DATE(''01-09-2021'',''DD-MM-YYYY'') AND TO_DATE(''02-09-2021'',''DD-MM-YYYY'')' ;
LOOP
FETCH cRecepciones INTO vNum_OC, vNum_FA,vDate; --> fetch pasa los valores de la instancia a las variables.
BEGIN
SELECT DISTINCT DECODE(EMPRESA, 2, 'X1', 3, 'X2', 'X3'), TIENDA, RUT , PROVEEDOR
INTO vEMPRESA, vTIENDA , vRut, vProveedor
FROM XXX_OC_XXX_V9
WHERE 0 = 0
AND NUMERO_OC = vNum_OC;
DBMS_OUTPUT.PUT_LINE('vEMPRESA: ' ||vEMPRESA ||' - '||' vTIENDA: '|| vTIENDA ||' - '|| ' vRut: ' || vRut || ' - ' || 'vProveedor: ' || vProveedor ||' - '|| 'vNum_OC : ' || vNum_OC ||' - '|| 'vNum_FA : '||vNum_FA || ' - '|| 'vdate: '||vdate);
EXCEPTION
WHEN NO_DATA_FOUND THEN
BEGIN
SELECT DISTINCT DECODE(EMPRESA, 2, 'X1', 3, 'X2', 'X3'), TIENDA, RUT, PROVEEDOR
INTO vEMPRESA, vTIENDA , vRut, vProveedor
FROM XXX_AR_XXX_XJ_V9
WHERE NUMERO_FACTURA = vNum_FA;
DBMS_OUTPUT.PUT_LINE('vEMPRESA: ' ||vEMPRESA ||' - '||' vTIENDA: '|| vTIENDA ||' - '|| ' vRut: ' || vRut || ' - ' || 'vProveedor: ' || vProveedor ||' - '|| 'vNum_OC : ' || vNum_OC ||' - '|| 'vNum_FA : '||vNum_FA || ' - '|| 'vdate: '||vdate);
EXCEPTION
WHEN OTHERS THEN
DBMS_OUTPUT.PUT_LINE('Error 01: ' || SQLERRM);
END;
END;
EXIT WHEN cRecepciones%NOTFOUND;
END LOOP;
CLOSE cRecepciones;
EXCEPTION
WHEN OTHERS THEN
DBMS_OUTPUT.PUT_LINE('Error 02: ' || SQLERRM);
END;
En contexto un vNum_oc puede tener varias vNum_FA pero no el mismo repetido.