Home » Developer & Programmer » Forms » Post-INSERT TRIGGER raised unhandled error (Oracle 9i, xp)
Post-INSERT TRIGGER raised unhandled error [message #493619] |
Wed, 09 February 2011 01:56 |
naveed35
Messages: 5 Registered: March 2010
|
Junior Member |
|
|
I am facing a post trigger problem.
No error while compiling.
please check coding and help
DECLARE
mYPACCT VARCHAR2(10);
mTRNNO NUMBER; mVNO NUMBER; mSR NUMBER; mNARRATION VARCHAR2(200); mCHCODE VARCHAR2(10); mPARTY VARCHAR2(200);
mBRAND VARCHAR2(200); mYARN VARCHAR2(200);
BEGIN
BEGIN
SELECT YPACCT INTO mYPACCT FROM CONFIG;
EXCEPTION WHEN NO_DATA_FOUND THEN NULL;
END;
IF nvl(:YPURCH.JTRNNO,0) = 0 THEN
BEGIN
SELECT NVL(MAX(NVL(TRNNO,0)),0) + 1 INTO mTRNNO FROM JMST ;
EXCEPTION WHEN NO_DATA_FOUND THEN mTRNNO := 1;
END;
BEGIN
SELECT NVL(MAX(NVL(VOUCHNO,0)),0) + 1 INTO mVNO FROM JMST
WHERE VTYPE = 'JY';
EXCEPTION WHEN NO_DATA_FOUND THEN mVNO := 1;
END;
UPDATE YPURCH SET JTRNNO = mTRNNO WHERE TRNNO = :YPURCH.TRNNO;
ELSE
mTRNNO := :YPURCH.JTRNNO;
BEGIN
SELECT VOUCHNO INTO mVNO FROM JMST WHERE TRNNO = mTRNNO;
EXCEPTION WHEN NO_DATA_FOUND THEN
BEGIN
SELECT NVL(MAX(NVL(VOUCHNO,0)),0) + 1 INTO mVNO FROM JMST
WHERE TRNDATE = :PDATE AND VTYPE = 'JY';
EXCEPTION WHEN NO_DATA_FOUND THEN mVNO := 1;
END;
END;
DELETE JDTL WHERE TRNNO = :YPURCH.JTRNNO;
DELETE JMST WHERE TRNNO = :YPURCH.JTRNNO;
END IF; -- JTRNNO IS NULL
INSERT INTO JMST (TRNNO,TRNDATE, VTYPE, VOUCHNO)
VALUES (mTRNNO,:PDATE,'JY',mVNO);
BEGIN
SELECT B.YBDESC,YCOUNT || ' ' ||
BLEND || ' ' || RATIO || ':'|| YSHADE
INTO mBRAND ,mYARN
FROM YPCONT,YBRAND B, YARN
WHERE ypcont.YPCONTNO = :YPURCH.CONTNO AND YARN.CODE = YPCONT.YCODE
AND b.YBCODE = YPCONT.Brand;
EXCEPTION WHEN NO_DATA_FOUND THEN mBRAND := 'NIL';
END;
begin
select chart.chcode,chart.chdesc into mchcode,mparty from chart,ypcont
where ypcont.ypcontno = :ypurch.contno and chart.chcode = ypcont.ycode;
exception when no_data_found then null;
end;
mNARRATION := :PBAG || ' BAGS @ ' || :RATE || ' ' || mBRAND || ' ' || mYARN ;
BEGIN
SELECT NVL(MAX(NVL(SR,0)),0) + 1 INTO mSR FROM JDTL WHERE TRNNO = mTRNNO;
EXCEPTION WHEN NO_DATA_FOUND THEN mSR := 1;
END;
--DR TO YP ACCT
INSERT INTO JDTL (TRNNO,SR,CHCODE,NARRATION,DR,CR)
VALUES (mTRNNO, mSR, mYPACCT, mPARTY || ' ' || mNARRATION, :PVALUE,0);
BEGIN
SELECT NVL(MAX(NVL(SR,0)),0) + 1 INTO mSR FROM JDTL WHERE TRNNO = mTRNNO;
EXCEPTION WHEN NO_DATA_FOUND THEN mSR := 1;
END;
--CR TO PARTY
INSERT INTO JDTL (TRNNO,SR,CHCODE,NARRATION,DR,CR)
VALUES (mTRNNO, mSR, mCHCODE, mNARRATION, 0,:PVALUE);
END;
Thanks!
|
|
|
|
|
|
|
|
|
|
Goto Forum:
Current Time: Mon Feb 03 15:48:07 CST 2025
|