Trigger Raise Error

Question

Hi,
During the Creating Trigger, Created with Warning.
In User Errors their as display the error of
NAME      TYPE      SEQUENCE LINE      POSITION      TEXT
JOBSCHQTY      TRIGGER      1     29     42     PL/SQL: ORA-00984: column not allowed here
JOBSCHQTY      TRIGGER      2     26     8     PL/SQL: SQL Statement ignored
JOBSCHQTY      TRIGGER      3     39     42     PL/SQL: ORA-00984: column not allowed here
JOBSCHQTY      TRIGGER      4     36     8     PL/SQL: SQL Statement ignored
Trigger is :
Create or Replace Trigger JobSchQty before insert on Joschedule for each row
Declare
Qtysu Number(15,3);
RcptQty Number(15,3);
Partno Char(9);
begin
If :New.JoScheduleno > 1 Then
If :New.Unitid in (1,2) Then
Select Partnumber,Qty_Scheduled_Su into Partno,Qtysu From JoSchedule
where Unitid = :New.Unitid
     and Joborderno = :New.Joborderno
     and Joslno = :New.Joslno
     and JoScheduleno = :New.JoScheduleno - 1;
     Select Sum(Recd_qty_su) into RcptQty From Grinitem
Where Unitid = :New.Unitid
          and Grinno in (select Grinno From Grinmain
                         Where Unitid = :New.Unitid
                         and Purorderno = :New.Joborderno)
          and PartNumber = Partno;
If :New.Partnumber <> Partno Then
     If :New.Qty_Scheduled_Su <> Qtysu Then
          If Nvl(Rcptqty,0) > :New.Qty_Scheduled_Su Then
          Insert into JoErrorSch (Unitid,JOBORDERNO,JOSCHEDULE,JOBSCHEDULEDT,OLD_PARTNO,NEW_PARTNO,OLDQTYSU,NEWQTYSU,RCPTQTYSU,ERRORCODE)
                    Values (:New.Unitid,New.JobOrderno,New.JOSCHEDULENO,:New.JOSCHEDULEDT ,Partno,:New.Partnumber,Qtysu,:New.QTY_SCHEDULED_SU,RcptQty,'Part Number Changed for Rcpt in Old');     
          End If;
     End if;
Else
          If Nvl(Rcptqty,0) > :New.Qty_Scheduled_Su Then
          Insert into JoErrorSch (Unitid,JOBORDERNO ,JOSCHEDULE,JOBSCHEDULEDT ,OLD_PARTNO,NEW_PARTNO,OLDQTYSU,NEWQTYSU,RCPTQTYSU,ERRORCODE)
                    Values (:New.Unitid,New.JobOrderno,New.JOSCHEDULENO,:New.JOSCHEDULEDT ,Partno,:New.Partnumber,Qtysu,:New.QTY_SCHEDULED_SU,RcptQty,'Qty is Missmatch Between Prev. SCH.');     
          End If;          
End if;
End if;
End if;
End;
Please Guidence Me.
Regards,
C V S

Answer 1

CREATE OR REPLACE TRIGGER jobschqty
   BEFORE INSERT
   ON joschedule
   FOR EACH ROW
DECLARE
   qtysu     NUMBER (15, 3);
   rcptqty   NUMBER (15, 3);
   partno    CHAR (9);
BEGIN
   IF :NEW.joscheduleno > 1
   THEN
      IF :NEW.unitid IN (1, 2)
      THEN
         SELECT partnumber, qty_scheduled_su
           INTO partno, qtysu
           FROM joschedule
          WHERE unitid = :NEW.unitid
            AND joborderno = :NEW.joborderno
            AND joslno = :NEW.joslno
            AND joscheduleno = :NEW.joscheduleno - 1;
         SELECT SUM (recd_qty_su)
           INTO rcptqty
           FROM grinitem
          WHERE unitid = :NEW.unitid
            AND grinno IN (SELECT grinno
                             FROM grinmain
                            WHERE unitid = :NEW.unitid AND purorderno = :NEW.joborderno)
            AND partnumber = partno;
         IF :NEW.partnumber != partno
         THEN
            IF :NEW.qty_scheduled_su != qtysu
            THEN
               IF NVL (rcptqty, 0) > :NEW.qty_scheduled_su
               THEN
                  INSERT INTO joerrorsch
                              (unitid, joborderno, joschedule, jobscheduledt, old_partno,
                               new_partno, oldqtysu, newqtysu, rcptqtysu,
                               errorcode
                       VALUES (:NEW.unitid, :NEW.joborderno, :NEW.joscheduleno, :NEW.joscheduledt, partno,
                               :NEW.partnumber, qtysu, :NEW.qty_scheduled_su, rcptqty,
                               'Part Number Changed for Rcpt in Old'
               END IF;
            END IF;
         ELSE
            IF NVL (rcptqty, 0) > :NEW.qty_scheduled_su
            THEN
               INSERT INTO joerrorsch
                           (unitid, joborderno, joschedule, jobscheduledt, old_partno, new_partno,
                            oldqtysu, newqtysu, rcptqtysu, errorcode
                    VALUES (:NEW.unitid, :NEW.joborderno, :NEW.joscheduleno, :NEW.joscheduledt, partno, :NEW.partnumber,
                            qtysu, :NEW.qty_scheduled_su, rcptqty, 'Qty is Missmatch Between Prev. SCH.'
            END IF;
         END IF;
      END IF;
   END IF;
END;:new instead of new