PACKAGE BODY REP_REPORTS
IS

PROCEDURE PRC_QUOTATION_NUMBER_TABLE IS

ln_error      NUMBER(6);
lv_error      VARCHAR2(1000);


BEGIN

EXECUTE IMMEDIATE 'TRUNCATE TABLE rep_quotation_number_temp';

--NA RAZIE INSERT TESTOWY

--NALEŻY DODAĆ OBSŁUGĘ BŁĘDÓW - CZY MAM SAM DODAĆ PAKIET Z OBSUGĄ BŁĘDÓW, CZY DACIE COŚ GOTOWEGO?

INSERT INTO rep_quotation_number_temp
(ID,LP,STRUKTURA_SIECI,OSOBA,OKRES,POSREDNIK,RODZAJ_PRODUKTU,LICZBA_KONTRAKTOW_ZAWARTYCH,LICZBA_KWOTACJI,LICZBA_REKWOTACJI,
 ODMIANA_OWA,OSOBA_KWOTUJACA_Z_CENTRALI)
SELECT
ROWNUM AS ID,ROWNUM AS LP,
'STRUKTURA'||ROWNUM AS STRUKTURA_SIECI,
'OSOBA'||ROWNUM AS OSOBA,
'2012/Q2' AS OKRES,
'POSREDNIK1' AS POSREDNIK,
'OW' AS RODZAJ_PRODUKTU,
100 AS LICZBA_KONTRAKTOW_ZAWARTYCH,
50 AS LICZBA_KWOTACJI,
30 AS LICZBA_REKWOTACJI,
'NEFORMALNE NOWE' AS ODMIANA_OWA,
'TEST' AS OSOBA_KWOTUJACA_Z_CENTRALI
FROM PRD_ITEM;

COMMIT;

END;

PROCEDURE PRC_QUOTATION_NUMBER_CURSOR (pv_siec IN VARCHAR2,pd_data_od IN DATE, pd_data_do IN DATE, pv_typkwotacji IN VARCHAR2,
                                       pv_odmianaowa IN VARCHAR2, pv_rodzajokresu IN VARCHAR2, pv_rodzajraportu IN VARCHAR2, pv_osobacentrala IN VARCHAR2,
                                       C_CURSOR OUT T_CURSOR, PN_ERROR OUT NUMBER, PV_ERROR OUT VARCHAR2) IS

LV_SQL VARCHAR2(1000);

BEGIN

PRC_QUOTATION_NUMBER_TABLE;

LV_SQL := 'SELECT * FROM rep_quotation_number_temp';

PN_ERROR := 0;
PV_ERROR := 'OK';

OPEN C_CURSOR FOR lV_SQL;

END;

END REP_REPORTS;