Ora-01456

Question

Am attempting to link a Stored Procedure into a new Crystal report using an ODBC datasource.
Receiving the following Oracle/ODBC error : ora-01456: may not peform insert/delete/update operation inside a READ ONLY transaction.
Database is an Oracle 10G, ODBC driver is 9.2.0.0 and Crystal report is version 8.0.1.1.
The error only appears in procedures performing an update - it seems to occur with the RAISE statement of the EXCEPTION error handling at the end of the procedure.
Have verified that procedure which only performs SELECTs and no UPDATE/DELETE/INSERT does work with the ODBC driver.
Code for SP :
CREATE OR REPLACE PROCEDURE P_ps_VC_NEW_SALES_tst2
io_vc_new_sales_cursor IN OUT k_new_sales.vc_new_sales_cursor
, branch_from IN NUMBER -- 1
, branch_to IN NUMBER -- 2
, date_from IN DATE -- 3
, date_to IN DATE -- 4
, product_from IN VARCHAR2 DEFAULT NULL -- 5
, product_to IN VARCHAR2 DEFAULT NULL -- 6
, customer_from IN NUMBER DEFAULT NULL -- 7
, customer_to IN NUMBER DEFAULT NULL -- 8
, company_value IN cpwcompany.cpwcompany%TYPE DEFAULT NULL -- 9
, class_1 IN VARCHAR2 DEFAULT NULL -- 10
, class_2 IN VARCHAR2 DEFAULT NULL -- 11
, class_3 IN VARCHAR2 DEFAULT NULL -- 12
, line_type IN VARCHAR2 DEFAULT NULL -- 13
is
v_crystal_rep_seq NUMBER;
v_branch_from NUMBER := branch_from; -- 1
v_branch_to NUMBER := branch_to; -- 2
v_date_from DATE := date_from; -- 3
v_date_to DATE := date_to; -- 4
v_part_from VARCHAR2(20) := RTRIM(UPPER(product_from)); -- 5
v_part_to VARCHAR2(20) := RTRIM(UPPER(product_to)); -- 6
v_contact_from NUMBER := customer_from; -- 7
v_contact_to NUMBER := customer_to; -- 8
v_company cpwcompany.cpwcompany%TYPE :=RTRIM(UPPER(company_value)); -- 9
v_prclas1 VARCHAR2(5) := class_1; -- 10
v_prclas2 VARCHAR2(5) := class_2; -- 11
v_prclas3 VARCHAR2(5) := class_3; -- 12
v_tpltyp VARCHAR2(3) := line_type; -- 13
v_rowcount NUMBER(10) := 0;
v_ret_rowcount NUMBER(10) := 0;
v_branch_from_p NUMBER := branch_from;
v_branch_to_p NUMBER := branch_to;
v_use_part VARCHAR2(1) := 'F'; -- 1
v_use_contact VARCHAR2(1) := 'F'; -- 2
v_use_co VARCHAR2(1) := 'F'; -- 3
v_use_prclas123 VARCHAR2(1) := 'F'; -- 4
v_use_prclas3 VARCHAR2(1) := 'F'; -- 5
v_use_tpl_typ VARCHAR2(1) := 'F'; -- 6
v_crystal_rep_tmp NUMBER;
v_co_tot NUMBER;
v_co_tot_all NUMBER;
v_sqlcode NUMBER := 0;
v_sqlerrm VARCHAR2(100);
v_start_time DATE;
v_phase NUMBER := 0;
v_path VARCHAR2(10);
v_gross_margin NUMBER := 0;
v_gross_margin_pct NUMBER := 0;
v_discount_pct NUMBER := 0;
PROCEDURE p_get_branches
IS
-- Get next 60 branches.
CURSOR c_branch
IS
SELECT branch
FROM branch
WHERE branch >= v_branch_from_p
ORDER BY branch
r_branch c_branch%ROWTYPE;
BEGIN
v_rowcount := 0;
v_branch_to_p := LEAST(0,v_branch_from - 1);
OPEN c_branch;
LOOP
FETCH c_branch INTO r_branch;
EXIT WHEN c_branch%NOTFOUND;
EXIT WHEN r_branch.branch > v_branch_to;
v_branch_to_p := r_branch.branch;
v_rowcount := v_rowcount + 1;
EXIT WHEN v_rowcount >= 60;
END LOOP;
CLOSE c_branch;
END p_get_branches;
BEGIN
v_phase := 100;
v_start_time := SYSDATE;
-- Stage 1.
-- Sort out input parameters.
IF v_company IS NULL
THEN
v_company := '%';
END IF;
v_company := REPLACE(v_company,'*','%');
IF v_prclas1 IS NULL
THEN
v_prclas1 := '%';
END IF;
v_prclas1 := REPLACE(v_prclas1,'*','%');
IF v_prclas2 IS NULL
THEN
v_prclas2 := '%';
END IF;
v_prclas2 := REPLACE(v_prclas2,'*','%');
IF v_prclas3 IS NULL
THEN
v_prclas3 := '%';
END IF;
v_prclas3 := REPLACE(v_prclas3,'*','%');
IF v_tpltyp IS NULL
THEN
v_tpltyp := '%';
END IF;
v_tpltyp := REPLACE(v_tpltyp,'*','%');
IF v_part_from IN ('%','*')
THEN
v_part_from := NULL;
END IF;
IF v_part_to IN ('%','*')
THEN
v_part_to := NULL;
END IF;
IF SUBSTR(v_part_to,1,1) <=
CHR(ASCII(SUBSTR(v_part_from,1,1)) + 1) AND
SUBSTR(v_part_to,1,1) >= 'A'
THEN
v_use_part := 'T';
END IF;
IF v_contact_to < (v_contact_from + 100)
THEN
v_use_contact := 'T';
END IF;
IF SUBSTR(v_prclas3,1,1) BETWEEN '0' AND '9' AND
SUBSTR(v_prclas3,2,1) BETWEEN '0' AND '9' AND
SUBSTR(v_prclas3,3,1) BETWEEN '0' AND '9'
THEN
v_use_prclas3 := 'T';
END IF;
IF v_prclas1 BETWEEN '0' AND '999' AND
v_prclas2 BETWEEN '0' AND '999' AND
v_prclas3 BETWEEN '0' AND '999'
THEN
v_use_prclas3 := 'F';
v_use_prclas123 := 'T';
END IF;
IF v_tpltyp != '%'
THEN
v_use_tpl_typ := 'T';
END IF;
IF v_use_part = 'F' AND
v_use_contact = 'F' AND
v_use_prclas3 = 'F' AND
NVL(v_company,'%') != '%'
THEN
SELECT COUNT(*)
INTO v_co_tot
FROM branch
WHERE cpwcompany = v_company
AND branch BETWEEN v_branch_from AND v_branch_to
SELECT COUNT(*)
INTO v_co_tot_all
FROM branch
WHERE branch BETWEEN v_branch_from AND v_branch_to
IF v_co_tot IS NOT NULL AND
v_co_tot_all > 0 AND
v_co_tot_all > 20 AND
( v_co_tot / v_co_tot_all ) < 0.25
THEN
v_use_co := 'T';
END IF;
END IF;
v_phase := 200;
SELECT crystal_rep_seq.NEXTVAL
INTO v_crystal_rep_seq
FROM DUAL
INSERT INTO crystal_rep_log
VALUES
( v_crystal_rep_seq
, 'CSaSa024 New Sales Report with Commissions'
, SUBSTR(v_branch_from ||' '|| v_branch_to ||' '|| v_date_from ||' '||
v_date_to || ' ' || v_part_from || ' ' ||
v_part_to || ' ' || v_contact_from || ' ' || v_contact_to || ' ' ||
v_company || ' ' || v_prclas1 || ' ' ||
v_prclas2 || ' ' || v_prclas3 || ' ' || v_tpltyp,1, 100
, SYSDATE, TO_CHAR(SYSDATE,'hh24:mi:ss')
, NULL, NULL
, 0, NULL, NULL
COMMIT;
insert into VC_NEW_SALES_DETAILED_LOG values (v_crystal_rep_seq,1,TO_CHAR(SYSDATE,'hh24:mi:ss'),
'Report initialised'||v_use_part||v_use_contact||v_use_co||v_use_prclas123||v_use_prclas3||v_use_tpl_typ);
commit;
v_phase := 300;
v_path := NULL;
IF
v_use_part = 'T' OR -- 1
v_use_contact = 'T' OR -- 2
v_use_co = 'T' OR -- 3
v_use_prclas123 = 'T' OR -- 4
v_use_prclas3 = 'T' OR -- 5
v_use_tpl_typ = 'T' -- 6
THEN
insert into VC_NEW_SALES_DETAILED_LOG values (
v_crystal_rep_seq,
2,
TO_CHAR(SYSDATE,'hh24:mi:ss'),
'special path '||'9');
commit;
SELECT crystal_rep_seq.CURRVAL
INTO v_crystal_rep_tmp
FROM DUAL
IF v_use_contact = 'T'
THEN
v_phase := 320;
v_path := 'CONTACT:';
INSERT INTO vc_new_sales_tab
( vc_new_sales_tab_ID
, TRANSACTION
SELECT
v_crystal_rep_tmp
, transaction
FROM transaction t1
WHERE t1.invoice_dat BETWEEN v_date_from AND v_date_to
AND t1.branch BETWEEN v_branch_from AND v_branch_to
AND t1.contact BETWEEN v_contact_from AND v_contact_to
ELSIF v_use_prclas123 = 'T'
THEN
v_phase := 325;
v_path := 'PRCLS123:';
INSERT INTO vc_new_sales_tab
( vc_new_sales_tab_ID
, TRANSACTION
SELECT
v_crystal_rep_tmp
, t1.transaction
FROM transaction t1,
tprodline t2,
product t3
WHERE t1.invoice_dat BETWEEN v_date_from AND v_date_to
AND t1.branch BETWEEN v_branch_from AND v_branch_to
AND t2.transaction = t1.transaction
AND t3.product = t2.product
AND t3.prclas1 = v_prclas1
AND t3.prclas2 = v_prclas2
AND t3.prclas3 = v_prclas3
GROUP BY t1.transaction
ELSIF v_use_part = 'T'
THEN
v_phase := 330;
v_path := 'PART:';
INSERT INTO vc_new_sales_tab
( vc_new_sales_tab_ID
, TRANSACTION
SELECT
v_crystal_rep_tmp
, t1.transaction
FROM transaction t1,
tprodline t2,
product t3
WHERE t1.invoice_dat BETWEEN v_date_from AND v_date_to
AND t1.branch BETWEEN v_branch_from AND v_branch_to
AND t2.transaction = t1.transaction
AND t3.product = t2.product
AND t3.part BETWEEN v_part_from AND v_part_to
GROUP BY t1.transaction
ELSIF v_use_tpl_typ = 'T'
THEN
v_phase := 335;
v_path := 'TPLTYP:';
INSERT INTO vc_new_sales_tab
( vc_new_sales_tab_ID
, TRANSACTION
SELECT
v_crystal_rep_tmp
, t1.transaction
FROM transaction t1,
tprodline t2
WHERE t1.invoice_dat BETWEEN v_date_from AND v_date_to
AND t1.branch BETWEEN v_branch_from AND v_branch_to
AND t2.transaction = t1.transaction
AND t2.tpltyp = v_tpltyp
GROUP BY t1.transaction
ELSIF v_use_prclas3 = 'T'
THEN
v_phase := 340;
v_path := 'PRCLS3:';
INSERT INTO vc_new_sales_tab
( vc_new_sales_tab_ID
, TRANSACTION
SELECT
v_crystal_rep_tmp
, t1.transaction
FROM transaction t1,
tprodline t2,
product t3
WHERE t1.invoice_dat BETWEEN v_date_from AND v_date_to
AND t1.branch BETWEEN v_branch_from AND v_branch_to
AND t2.transaction = t1.transaction
AND t3.product = t2.product
AND t3.prclas3 = v_prclas3
GROUP BY t1.transaction
ELSE
insert into VC_NEW_SALES_DETAILED_LOG values (v_crystal_rep_seq,3,TO_CHAR(SYSDATE,'hh24:mi:ss'),
'special path ready to insert wanted transactions '||v_company);
commit;
v_phase := 350;
v_path := 'COMPANY:';
INSERT INTO vc_new_sales_tab
( vc_new_sales_tab_ID
, TRANSACTION
SELECT
v_crystal_rep_tmp
, transaction
FROM transaction t1,
branch t2
WHERE t1.invoice_dat BETWEEN v_date_from AND v_date_to
AND t1.branch BETWEEN v_branch_from AND v_branch_to
AND t2.branch = t1.branch
AND t2.cpwcompany LIKE v_company
END IF;
v_ret_rowcount := SQL%ROWCOUNT;
insert into VC_NEW_SALES_DETAILED_LOG values (v_crystal_rep_seq,4,TO_CHAR(SYSDATE,'hh24:mi:ss'),
'special path: Inserted only wanted transactions ' || v_ret_rowcount);
commit;
COMMIT;
insert into VC_NEW_SALES_DETAILED_LOG values (v_crystal_rep_seq,5,TO_CHAR(SYSDATE,'hh24:mi:ss'),
'special path: Commited the changes. Ready to insert from the view. '||v_crystal_rep_tmp||','||v_date_from||','||v_date_to||','||v_branch_from||','||v_branch_to||','||v_company||','||v_prclas1||','||v_prclas2||','||v_prclas3);
commit;
v_phase := v_phase + 1;
INSERT INTO vc_new_sales_tab
SELECT /*+ ORDERED */
v_crystal_rep_seq
, t1.*
, F_COMM_VALUES(t1.transaction,t1.tprodline,t1.invoice_dat,t1.product, t1.prod_qty)
FROM vc_new_sales_tab t0,
vc_new_sales t1
WHERE t0.vc_new_sales_tab_id = v_crystal_rep_tmp
AND t1.transaction = t0.transaction
AND t1.invoice_dat BETWEEN v_date_from AND v_date_to
AND t1.branch BETWEEN v_branch_from AND v_branch_to
AND t1.cpwcompany LIKE v_company
AND t1.prclas1 LIKE v_prclas1
AND t1.prclas2 LIKE v_prclas2
AND t1.prclas3 LIKE v_prclas3
AND t1.tpltyp LIKE v_tpltyp
AND t1.part BETWEEN NVL(v_part_from,' ')
AND NVL(v_part_to,'zzzzz')
AND (t1.contact BETWEEN NVL(v_contact_from,0)
AND NVL(v_contact_to,99999999999999)
or t1.contact is null or t1.contact = 0)
v_ret_rowcount := SQL%ROWCOUNT;
insert into VC_NEW_SALES_DETAILED_LOG values (v_crystal_rep_seq,6,TO_CHAR(SYSDATE,'hh24:mi:ss'),
'special path: ' || v_ret_rowcount || ' Rows inserted from the view.');
commit;
COMMIT;
insert into VC_NEW_SALES_DETAILED_LOG values (v_crystal_rep_seq,7,TO_CHAR(SYSDATE,'hh24:mi:ss'),
'special path: Rows commited.');
commit;
ELSE
insert into VC_NEW_SALES_DETAILED_LOG values (v_crystal_rep_seq,8,TO_CHAR(SYSDATE,'hh24:mi:ss'),
'We don t use a special path. Ready to insert rows from view.');
commit;
v_branch_from_p := v_branch_from;
LOOP
p_get_branches;
IF v_branch_to_p < v_branch_from_p
THEN
EXIT;
END IF;
insert into VC_NEW_SALES_DETAILED_LOG values (v_crystal_rep_seq,9,TO_CHAR(SYSDATE,'hh24:mi:ss'),
'Just before the INSERT statement. ('||v_phase||')'||' '||v_branch_from_p||' '||v_branch_to_p||' '||v_date_from||' '||v_date_to);
commit;
INSERT INTO vc_new_sales_tab
SELECT /*+ RULE */
v_crystal_rep_seq
, B.CPWCOMPANY
, T.BRANCH
, nvl(SA.SALESAREA,'NONE') SALESAREA
, nvl(SA.DESCR,'NONE') salesarea_desc
, nvl(SD.SALESDIVISION,'NONE') SALESDIVISION
, nvl(SD.DESCR,'NONE') salesdivision_desc
, T.OPEN_DAT
, T.INVOICE_DAT
, T.CLOSED_DAT
, T.TRANSACTION
, T.OPEN_TIM -- New Field (returned with open date query)
, TP.TPRODLINE
, tc.tconnline -- for testing
, T.DOCKET_NUM
, PART.PART
, NVL(PMODEL.WAP_FLG,'~') WAP_FLG
, P.ITEMCOND_ID
, TPT.DESCR TPL_DESCR
, TPT.TPLTYP
, RWTYP.DESCR RETURN_REASON_DESC
, P.PRODUCT
, NVL(P.PRCLAS1,'None') PRCLAS1
, NVL(P.PRCLAS2,'None') PRCLAS2
, NVL(P.PRCLAS3,'None') PRCLAS3
, NVL(P.DESCR,'~') PRODUCT_DESC
, NVL(TC.TARIFF,'~') TARIFF
, NVL(TC.TARVARTYP,'~') TARVARTYP
, NVL(CTYP.DESCR,'~') CON_TYPE_DSC
, T.TRANS_STATUS -- Optional
, T.TRANS_TYPE TRANSACTION_TYPE
, NVL(T.CONTACT,0) CONTACT
, NVL(decode(ins.promotion_flg,'T','Y','N'),'~') EARLY_BIRD
, T.EMPLOYEE_TRANS
, T.EMPLOYEE_COMMIS
, NVL(TPT.SAL_GL_COD,PR3.SAL_GL_COD) GL_SAL_COD
, NVL(NVL(TPT.COS_GL_COD,PR3.COS_GL_COD),'~') GL_COST_COD
, NVL(D.DISCWHY,'~') DISCWHY
, ' '||NVL(translate(D.TEXT,chr(13),' '),'~')||' ' TEXT
, NVL(TPP.PPLAN,0) PPLAN
, NVL(TP.ORDER_QTY,0) PROD_QTY
, NVL(TP.RETAIL_AMT,0) UNIT_RETAIL_AMT
, NVL(TP.RETAIL_AMT,0)*NVL(TP.ORDER_QTY,0) TOT_RETAIL_AMT
, NVL(TP.SALE_AMT,0) UNIT_SALE_AMT
, NVL(TP.SALE_AMT * TP.ORDER_QTY,0) TOT_SALE_AMT
, NVL((TP.SALE_AMT * 100 / (100 + TP.VATRATE)) * TP.ORDER_QTY,0) TOT_NET_AMT
, NVL(TP.ORDER_QTY*(TP.RETAIL_AMT- TP.SALE_AMT),0) TOT_DISC_AMT
, NVL((TP.SALE_AMT - (TP.SALE_AMT * 100 / (100 + TP.VATRATE))) * TP.ORDER_QTY,0) TOT_VAT_AMT
, NVL(TP.VATRATE,0) VATRATE
, NVL(f_sales_cost_amt(tp.transaction, tp.tprodline),0) PROD_COST_AMT
, ((nvl(f_sales_cost_amt(tp.transaction, tp.tprodline),0) + nvl(f_prod_lossinvalue(tp.transaction,tp.tprodline),0)) * TP.ORDER_QTY) PROD_TOTCOST_AMT
, ((NVL((f_prod_lossinvalue(tp.transaction,tp.tprodline)),0) * tp.order_qty)* -1) LOSSINVALUE -- Check this
, SUBSTR(f_comm_bands(tp.transaction,tp.tprodline,T.INVOICE_DAT),1,5) COMMSN_BAND
, F_COMM_VALUES(t.transaction,tp.tprodline,t.invoice_dat,tp.product, tp.order_qty) COMMISSIONS_OUTPUT
FROM
connection c
, tconnline tc
, retwhy rw
, retwhytyp rwtyp
, branch b
, salesarea sa
, salesdivision sd
, connect_type ctyp
, tpplan tpp
, tpltyp tpt
, discount d
, product p
, insurance ins
, tprodline tp -- Driving Table
, transaction t
, prclas3 pr3
, part
, partmodel pmodel
WHERE
t.invoice_dat BETWEEN v_date_from AND v_date_to and
t.branch BETWEEN v_branch_from_p AND v_branch_to_p and
part.part BETWEEN NVL(v_part_from,' ') and NVL(v_part_to,'zzzzz') and
p.prclas1 LIKE v_prclas1 and
p.prclas2 LIKE v_prclas2 and
p.prclas3 LIKE v_prclas3 and
(t.contact BETWEEN NVL(v_contact_from,0) AND NVL(v_contact_to,99999999999999)
or t.contact is null) and
b.cpwcompany LIKE v_company and
PR3.prclas1 (+) = P.prclas1 and
PR3.prclas2 (+) = P.prclas2 and
PR3.prclas3 (+) = P.prclas3 and
P.product (+) = TP.product and
PART.PART (+) = P.PART and
pmodel.partmodel (+) = part.partmodel and
TP.transaction (+) = T.transaction and
T.branch = B.branch and
SA.salesarea (+) = B.salesarea and
SD.salesdivision (+) = SA.salesdivision and
TC.transaction (+) = TP.transaction and
TC.tprodline (+) = TP.tprodline and
RW.transaction (+) = TP.transaction and
RW.tprodline (+) = TP.tprodline and
INS.transaction (+) = TP.transaction and
INS.tprodline (+) = TP.tprodline and
D.transaction (+) = TP.transaction and
D.tprodline (+) = TP.tprodline and
TPT.tpltyp (+) = TP.tpltyp and
C.tconnline (+) = TC.tconnline and
RWTYP.retwhytyp (+) = RW.retwhytyp and
TPP.servcon (+) = C.servcon and
CTYP.connect_type (+) = C.connect_type and
C.SEQNO (+) = 1
v_ret_rowcount := SQL%ROWCOUNT;
insert into VC_NEW_SALES_DETAILED_LOG values (v_crystal_rep_seq,9,TO_CHAR(SYSDATE,'hh24:mi:ss'),
v_ret_rowcount || ' Rows inserted into table. ('||v_phase||')');
commit;
COMMIT;
insert into VC_NEW_SALES_DETAILED_LOG values (v_crystal_rep_seq,10,TO_CHAR(SYSDATE,'hh24:mi:ss'),
'Changes commited. ('||v_phase||')');
commit;
v_branch_from_p := v_branch_to_p + 1;
v_phase := v_phase + 1;
END LOOP;
END IF;
COMMIT;
insert into VC_NEW_SALES_DETAILED_LOG values (v_crystal_rep_seq,11,TO_CHAR(SYSDATE,'hh24:mi:ss'),
'All changes commited.');
commit;
v_phase := 400;
DELETE vc_new_sales_tab t1
WHERE t1.vc_new_sales_tab_id = v_crystal_rep_seq
AND t1.transaction IS NOT NULL
AND t1.tprodline IS NULL
v_ret_rowcount := SQL%ROWCOUNT;
insert into VC_NEW_SALES_DETAILED_LOG values (v_crystal_rep_seq,12,TO_CHAR(SYSDATE,'hh24:mi:ss'),
v_ret_rowcount || ' Deletion if quick.');
commit;
v_phase := 410;
DELETE vc_new_sales_tab t1
WHERE t1.part IS NOT NULL
AND EXISTS
(SELECT NULL
FROM product t2
WHERE t2.product = t1.product
AND t2.part != t1.part
AND EXISTS
(SELECT NULL
FROM vc_new_sales_tab t3,
product t4
WHERE t3.vc_new_sales_tab_id = t1.vc_new_sales_tab_id
AND t3.transaction = t1.transaction
AND t3.tprodline = t1.tprodline
AND t4.product = t3.product
AND t4.part = t3.part
AND t1.vc_new_sales_tab_id = v_crystal_rep_seq
v_ret_rowcount := SQL%ROWCOUNT;
insert into VC_NEW_SALES_DETAILED_LOG values (v_crystal_rep_seq,13,TO_CHAR(SYSDATE,'hh24:mi:ss'),
v_ret_rowcount || ' Quick deletion done.');
commit;
v_phase := 420;
END IF;
v_phase := 500;
insert into VC_NEW_SALES_DETAILED_LOG values (v_crystal_rep_seq,14,TO_CHAR(SYSDATE,'hh24:mi:ss'),
'Duplicate deletion.');
commit;
DELETE vc_new_sales_tab t1
WHERE EXISTS
(SELECT /*+ RULE */
NULL
FROM vc_new_sales_tab t2
WHERE
t2.vc_new_sales_tab_id = v_crystal_rep_seq
AND t2.transaction = t1.transaction
AND t2.tprodline = t1.tprodline
AND t2.rowid || '' > t1.rowid
AND t1.vc_new_sales_tab_id = v_crystal_rep_seq
v_ret_rowcount := SQL%ROWCOUNT;
insert into VC_NEW_SALES_DETAILED_LOG values (v_crystal_rep_seq,15,TO_CHAR(SYSDATE,'hh24:mi:ss'),
v_ret_rowcount || ' duplicate deletionS done.');
commit;
COMMIT;
insert into VC_NEW_SALES_DETAILED_LOG values (v_crystal_rep_seq,16,TO_CHAR(SYSDATE,'hh24:mi:ss'),
'Duplicate deletetion commited.');
commit;
insert into VC_NEW_SALES_DETAILED_LOG values (v_crystal_rep_seq,17,TO_CHAR(SYSDATE,'hh24:mi:ss'),
'Ready to select rows from temp table.');
commit;
v_phase := 600;
OPEN io_vc_new_sales_cursor FOR
SELECT /*+ RULE */
VC_NEW_SALES_TAB_ID
, CPWCOMPANY
, BRANCH
, SALESAREA
, SALESAREA_DESC
, SALESDIVISION
, SALESDIVISION_DESC
, OPEN_DAT
, INVOICE_DAT
, CLOSED_DAT
, TRANSACTION
, OPEN_TIM
, TPRODLINE
, TCONNLINE
, DOCKET_NUM
, PART
, WAP_FLG
, ITEMCOND_ID
, TPL_DESCR
, TPLTYP
, RETURN_REASON_DESC
, PRODUCT
, PRCLAS1
, PRCLAS2
, PRCLAS3
, PRODUCT_DESC
, TARIFF
, TARVARTYP
, CON_TYPE_DSC
, TRANS_STATUS
, TRANSACTION_TYPE
, CONTACT
, EARLY_BIRD
, EMPLOYEE_TRANS
, EMPLOYEE_COMMIS
, GL_SAL_COD
, GL_COST_COD
, DISCWHY
, TEXT
, PPLAN
, PROD_QTY
, UNIT_RETAIL_AMT
, TOT_RETAIL_AMT
, UNIT_SALE_AMT
, TOT_SALE_AMT
, TOT_NET_AMT
, TOT_DISC_AMT
, TOT_VAT_AMT
, VATRATE
, PROD_COST_AMT
, PROD_TOTCOST_AMT
, LOSSINVALUE
, COMMSN_BAND -- Insert Commissions Bands next
, to_number(nvl(
substr(COMMISSIONS_OUTPUT
, 1
, (instr(COMMISSIONS_OUTPUT,'*',1,1)-1)
),0)
) COMMSN_BASIC
, to_number(nvl(
substr(COMMISSIONS_OUTPUT
, (instr(COMMISSIONS_OUTPUT,'*',1,1)+1)
, ((instr(COMMISSIONS_OUTPUT,'*',1,2)-
instr(COMMISSIONS_OUTPUT,'*',1,1))-1)
),0)
) COMMSN_VOLUME
, to_number(nvl(
substr(COMMISSIONS_OUTPUT
, (instr(COMMISSIONS_OUTPUT,'*',1,2)+1)
, ((instr(COMMISSIONS_OUTPUT,'*',1,3)-
instr(COMMISSIONS_OUTPUT,'*',1,2))-1)
),0)
) COMMSN_LOYALTY
, to_number(nvl(
substr(COMMISSIONS_OUTPUT
, (instr(COMMISSIONS_OUTPUT,'*',1,3)+1)
, ((instr(COMMISSIONS_OUTPUT,'*',1,4)-
instr(COMMISSIONS_OUTPUT,'*',1,3))-1)
),0)
) COMMSN_ITEM
, to_number(nvl(
substr(COMMISSIONS_OUTPUT
, (instr(COMMISSIONS_OUTPUT,'*',1,4)+1)
, ((instr(COMMISSIONS_OUTPUT,'*',1,5)-
instr(COMMISSIONS_OUTPUT,'*',1,4))-1)
),0)
) COMMSN_OTHER
, to_number(nvl(
substr(COMMISSIONS_OUTPUT
, (instr(COMMISSIONS_OUTPUT,'*',1,5)+1)
, ((instr(COMMISSIONS_OUTPUT,'*',1,6)-
instr(COMMISSIONS_OUTPUT,'*',1,5))-1)
),0)
) COMMSN_PRODUCT
FROM vc_new_sales_tab
WHERE vc_new_sales_tab_id = v_crystal_rep_seq
ORDER BY transaction, tprodline
v_ret_rowcount := SQL%ROWCOUNT;
insert into VC_NEW_SALES_DETAILED_LOG values (v_crystal_rep_seq,18,TO_CHAR(SYSDATE,'hh24:mi:ss'),
v_ret_rowcount || ' Rows selected from temp table.');
commit;
-- Stage 7.
-- Record processing end.
v_phase := 700;
UPDATE crystal_rep_log
SET run_date_en = SYSDATE,
run_date_en_time = TO_CHAR(SYSDATE, 'hh24:mi:ss'),
rep_params = SUBSTR(v_path || rep_params, 1, 100)
WHERE crystal_rep_id = v_crystal_rep_seq
COMMIT;
insert into VC_NEW_SALES_DETAILED_LOG values (v_crystal_rep_seq,19,TO_CHAR(SYSDATE,'hh24:mi:ss'),
'Report terminated');
commit;
EXCEPTION
WHEN OTHERS THEN
v_sqlcode := sqlcode;
v_sqlerrm := SUBSTR(sqlerrm,1,100);
UPDATE crystal_rep_log
SET run_date_en = SYSDATE,
run_date_en_time = TO_CHAR(SYSDATE, 'hh24:mi:ss'),
run_status = -1,
run_sqlcode = v_sqlcode,
run_sqlerrm = SUBSTR('STAGE '||v_phase||' '||v_sqlerrm,1,100)
WHERE crystal_rep_id = v_crystal_rep_seq
COMMIT;
RAISE;
END P_ps_VC_NEW_SALES_tst2;

Answer 1

Thanks for the suggestion but does not work for me.
Firstly, using the Oracle native driver causes a ref cursor parameter to be added to the report parameters.
More importantly, Crystal returns the following error :
- Cannot open database.
- File integrity error.
I suspect that our version of Crystal (8.0.1.1) is incompatible with Oracle 10g - this version of Crystal is not supported any longer.