Expression is not executing.......

Question

in the if loop im trying to add a date with a number... the expression i showed below is not executing...
DECLARE
EID VARCHAR2 (20);
DB DATE;
FN varchar2(100);
LN varchar2(20);
BL BOOLEAN := TRUE;
x number;
APP NUMBER;
REA VARCHAR2(200);
BEGIN
SELECT EMPNO,DOB,FNAME,LNAME
INTO EID,DB,FN,LN
FROM GENINFO
WHERE EMPNO=:P12_EMPNO AND DOB=:P12_DOB;
SELECT NVL(MAX(APP_NO),0)+1
into APP from leave_form;
SELECT REASON into REA from leave_form
WHERE EMP_NO=:P12_EMPNO;
:EMP_NO1:=EID;
:CREATED_BY1:=FN||' '||LN;
:APP_DATE1:=sysdate;
:APP_NO1:=APP;
:REASON1:=REA;
BL := TRUE;
:BLNF:=sys.DIUTIL.bool_to_int (BL);
--htp.prn(x);
EXCEPTION
when no_data_found then
BL := FALSE;
:BLNF:=sys.DIUTIL.bool_to_int (BL);
--htp.prn(x);
IF :P12_FDATE IS NOT NULL AND :P12_TDATE IS NOT NULL THEN
:P12_TDATE:=TO_CHAR(TO_DATE(':P12_FDATE','DD-MM-YYYY') + :P12_NO_OF_DAYS_REQ,'DD-MM-YYYY');-----this expression is not executing
INSERT INTO LEAVE_FORM(EMP_NO,APP_NO,APP_DATE,NO_OF_DAYS_REQ,FDATE,TDATE,LEAVE_TYPE,REASON) VALUES(:EMP_NO1+1,:APP_NO1,:APP_DATE1,:P12_NO_OF_DAYS_REQ,:P12_FDATE,:P12_TDATE,:P12_LEAVE_TYPE,:REASON1);
END IF;
END;
Edited by: 794244 on Feb 17, 2011 5:48 AM

Answer 1

Try this...
DECLARE
   EID   VARCHAR2 (20);
   DB    DATE;
   FN    VARCHAR2 (100);
   LN    VARCHAR2 (20);
   BL    BOOLEAN := TRUE;
   x     NUMBER;
   APP   NUMBER;
   REA   VARCHAR2 (200);
BEGIN
   SELECT   EMPNO,
            DOB,
            FNAME,
            LNAME
     INTO   EID,
            DB,
            FN,
            LN
     FROM   GENINFO
    WHERE   EMPNO = :P12_EMPNO AND DOB = :P12_DOB;
   SELECT   NVL (MAX (APP_NO), 0) + 1 INTO APP FROM leave_form;
   SELECT   REASON
     INTO   REA
     FROM   leave_form
    WHERE   EMP_NO = :P12_EMPNO;
   :EMP_NO1 := EID;
   :CREATED_BY1 := FN || ' ' || LN;
   :APP_DATE1 := SYSDATE;
   :APP_NO1 := APP;
   :REASON1 := REA;
   BL := TRUE;
   :BLNF := sys.DIUTIL.bool_to_int (BL);
--htp.prn(x);
EXCEPTION
   WHEN NO_DATA_FOUND
   THEN
      BL := FALSE;
      :BLNF := sys.DIUTIL.bool_to_int (BL);
      --htp.prn(x);
      IF :P12_FDATE IS NOT NULL AND :P12_TDATE IS NOT NULL
      THEN
         :P12_TDATE := TO_DATE(:P12_FDATE, 'DD-MM-YYYY') + :P12_NO_OF_DAYS_REQ; -----this expression is not executing
         INSERT INTO LEAVE_FORM (EMP_NO,
                                 APP_NO,
                                 APP_DATE,
                                 NO_OF_DAYS_REQ,
                                 FDATE,
                                 TDATE,
                                 LEAVE_TYPE,
                                 REASON)
           VALUES   (:EMP_NO1 + 1,
                     :APP_NO1,
                     :APP_DATE1,
                     :P12_NO_OF_DAYS_REQ,
                     :P12_FDATE,
                     :P12_TDATE,
                     :P12_LEAVE_TYPE,
                     :REASON1);
      END IF;
END;Cheers
Ben