ORA-00932 error

Question

Dear all,
I am getting the following error when i try to compile a package body.
The following error has occurred:
PACKAGE BODY BTPL.STOCK
On line: 27
PL/SQL: ORA-00932: inconsistent datatypes: expected NUMBER got -
Details:
PACKAGE BODY BTPL.STOCK
On line: 27
PL/SQL: ORA-00932: inconsistent datatypes: expected NUMBER got -
can someone finds me the solution for the issue posted.
Thanks in Advance.
Nirmal

Answer 1

The following is the code
CREATE OR REPLACE PACKAGE BODY STOCK
IS
PROCEDURE POPULATE_OPENING_BALANCE(GivenDate in Varchar2)
IS
BEGIN
delete from STOCK_TEMP_OPEN_BALANCE;
FOR I IN
select
     nvl(a.cst_material,b.cst_material) temp_material,
     nvl(a.cst_receiving_vendor,b.cst_receiving_vendor) temp_vendor,
     nvl(cst_quantity,0) temp_opening_balance,
     (nvl(received_qty,0)-nvl(cst_quantity,0)) received_qty,
     nvl(consumed_qty,0) consumed_qty,
     (nvl(received_qty,0)- nvl(consumed_qty,0)) stock_qty,
     a.uom uom
from
     select
          nvl(r.cst_material,c.cst_material) cst_material,
          nvl(r.cst_receiving_vendor,c.cst_receiving_vendor) cst_receiving_vendor,
          nvl(r.received_qty,0) received_qty,
          nvl(c.consumed_qty,0)consumed_qty,
          r.uom uom
     from
          SELECT
               lpad(cst_material,18,0) cst_material,
               cst_receiving_vendor,
               (SUM (cst_quantity)) received_qty,
               unit_of_measure uom
          FROM
               select
                    lpad(cst_material,18,0) cst_material,
                    cst_receiving_vendor,
                    cst_quantity,
                    CST_UNIT_OF_MEASURE unit_of_measure
               from
                    STOCK_DATA c
               WHERE
                    (cst_doc_date between to_date('26/11/2006','dd/mm/yyyy') and (to_date(GivenDate,'dd/mm/yyyy')))
                    and ((CST_MOVEMENT_TYPE='101' and CST_SPL_INDICATOR ='O')
                         or CST_MOVEMENT_TYPE='541'
                         or CST_MOVEMENT_TYPE='544'
                         or CST_MOVEMENT_TYPE='545'
                         or (CST_MOVEMENT_TYPE='552' and CST_SPL_INDICATOR ='O'))
               union all
                    select
                         lpad(temp_material,18,0)
                         cst_material,temp_vendor cst_receiving_vendor,
                         temp_opening_balance cst_quantity,
                         temp_uom unit_of_measure
                    from
                    STOCK_OPEN_BALANCE_261106
          group by cst_material,cst_receiving_vendor,unit_of_measure
     )r
     full outer join
          select
               lpad(cst_material,18,0) cst_material,
               cst_receiving_vendor,
               (SUM (cst_quantity)) consumed_qty,
               CST_UNIT_OF_MEASURE uom
          from
               STOCK_DATA
          where
               (cst_doc_date between to_date('26/11/2006','dd/mm/yyyy')
               and (to_date(GivenDate,'dd/mm/yyyy')))
               and (CST_MOVEMENT_TYPE='543'
                    or CST_MOVEMENT_TYPE='542'
                    OR CST_MOVEMENT_TYPE='546'
                    OR (CST_MOVEMENT_TYPE='102' and CST_SPL_INDICATOR ='O')
                    or (CST_MOVEMENT_TYPE='551' and CST_SPL_INDICATOR ='O'))
               GROUP BY cst_material,cst_receiving_vendor,CST_UNIT_OF_MEASURE
     )c
     on
     r.cst_receiving_vendor=c.cst_receiving_vendor
     and r.cst_material=c.cst_material
)a
full outer join
     select
          lpad(temp_material,18,0) cst_material,
          temp_vendor cst_receiving_vendor,
          temp_opening_balance cst_quantity
     from
          STOCK_OPEN_BALANCE_261106
) b
on
a.cst_material = b.cst_material and
a.cst_receiving_vendor=b.cst_receiving_vendor
LOOP
INSERT INTO STOCK_TEMP_OPEN_BALANCE (TEMP_MATERIAL, TEMP_VENDOR,TEMP_OPENING_BALANCE, TEMP_RECEIVED_QTY, TEMP_CONSUMED_QTY, TEMP_STOCK_QTY,TEMP_UOM
VALUES
(I.TEMP_MATERIAL,I.TEMP_VENDOR,I.TEMP_OPENING_BALANCE,I.RECEIVED_QTY,I.CONSUMED_QTY,I.STOCK_QTY,I.UOM
END LOOP;
END POPULATE_OPENING_BALANCE;
------------------ END POPULATE_OPENING_BALANCE ------
PROCEDURE STOCK_ANALYSIS_DETAILED_REPORT(FromDate varchar2,ToDate varchar2)
AS
OPENING_BALANCE NUMBER:=0;
prev_vendor VARCHAR2(75) := 'NONE';
prev_material VARCHAR2(75) := 'NONE';
BEGIN
delete STOCK_ANALYSIS_TABLE;
FOR I IN
select
     cst_doc_no,
     cst_doc_date,
     cst_movement_type,
     cst_grgi_slip_no,
     cst_material,
     cst_receiving_vendor,
     received_qty,
     consumed_qty,
     status,
     NVL((SELECT TEMP_STOCK_QTY FROM STOCK_TEMP_OPEN_BALANCE WHERE TEMP_VENDOR= cst_receiving_vendor AND TEMP_MATERIAL=cst_material),0) OPENING_BALANCE,
     UOM,
     dc_no,
     dc_date,
     dc_doc_no
from
     (     select
               cst_doc_no,
               cst_doc_date,
               cst_movement_type,
               cst_grgi_slip_no,
               lpad(cst_material,18,0) cst_material,
               cst_receiving_vendor ,
               sum(cst_quantity) received_qty,
               0 consumed_qty,
               'received' status,
               cst_unit_of_measure UOM,
               dc_no dc_no,
               dc_date dc_date,
               dc_doc_no dc_doc_no
          from
               STOCK_DATA c
          WHERE
               (cst_doc_date between to_date(FromDate,'dd/mm/yyyy') and to_date(ToDate,'dd/mm/yyyy'))
               and (
                    (CST_MOVEMENT_TYPE='101' and CST_SPL_INDICATOR ='O') or
                    CST_MOVEMENT_TYPE='541' or
                    CST_MOVEMENT_TYPE='544' or
                    CST_MOVEMENT_TYPE='545' or
                    (CST_MOVEMENT_TYPE='552' and CST_SPL_INDICATOR ='O')
          group by
               cst_material,cst_receiving_vendor,cst_doc_date,cst_doc_no,cst_movement_type,
               cst_grgi_slip_no,cst_unit_of_measure,dc_no,dc_date,dc_doc_no
     UNION
          select
               cst_doc_no,
               cst_doc_date,
               cst_movement_type,
               cst_grgi_slip_no,
               lpad(cst_material,18,0) cst_material ,
               cst_receiving_vendor,
               0 received_qty,
               (SUM (cst_quantity)) consumed_qty,
               'consumed' status,
               CST_UNIT_OF_MEASURE UOM,
               dc_no dc_no,
               dc_date dc_date,
               dc_doc_no dc_doc_no
          from
               STOCK_DATA
          where
               (cst_doc_date between to_date(FromDate,'dd/mm/yyyy') and to_date(ToDate,'dd/mm/yyyy'))
               and (CST_MOVEMENT_TYPE='543'
               or CST_MOVEMENT_TYPE='542'
               OR CST_MOVEMENT_TYPE='546'
               OR (CST_MOVEMENT_TYPE='102' and CST_SPL_INDICATOR ='O')
               or (CST_MOVEMENT_TYPE='551' and CST_SPL_INDICATOR ='O'))
          group by
               cst_material,cst_receiving_vendor,cst_doc_date,cst_doc_no,cst_movement_type,
               cst_grgi_slip_no,cst_unit_of_measure,dc_no,dc_date,dc_doc_no
order by cst_receiving_vendor,cst_material,cst_doc_date asc, status desc
LOOP
IF not(i.cst_receiving_vendor = prev_vendor AND i.cst_material = prev_material) THEN
OPENING_BALANCE := i.OPENING_BALANCE;
END IF;
INSERT INTO STOCK_ANALYSIS_TABLE
(CST_DOC_NO, CST_DOC_DATE, CST_MOVEMENT_TYPE,
CST_GRGI_SLIP_NO, CST_MATERIAL, CST_RECEIVING_VENDOR,
RECEIVED_QTY, CONSUMED_QTY, STATUS, OPENING_BALANCE, STOCK_QTY,
UOM, DC_NO, DC_DATE, DC_DOC_NO
VALUES
i.cst_doc_no,
i.cst_doc_date,
i.cst_movement_type,
i.cst_grgi_slip_no,
i.cst_material,
i.cst_receiving_vendor,
i.received_qty,
i.consumed_qty,
i.status,
OPENING_BALANCE ,
(OPENING_BALANCE+i.received_qty)-i.consumed_qty,
i.uom,
i.dc_no,
i.dc_date,
i.dc_doc_no
OPENING_BALANCE := (OPENING_BALANCE+i.received_qty)-i.consumed_qty;
prev_vendor := i.cst_receiving_vendor;
prev_material := i.cst_material ;
END LOOP;
END STOCK_ANALYSIS_DETAILED_REPORT;
------- END STOCK_ANALYSIS_DETYAILED_REPORT ------
PROCEDURE AGING_REPORT(GivenDate in Varchar2)
AS
vPrevVendor varchar2(25) := 'V';
vPrevMaterial varchar2(25) := 'M';
vCurrentVendor varchar2(25) := null;
vCurrentMaterial varchar2(25) := null;
vConsumedQty number:=0;
vStockQty number := 0;
vStockFlag varchar2(5) := 'Y';
vQtyFlag varchar2(5) := 'Y';
vCountFlag number := 0;
BEGIN
delete STOCK_AGING_TABLE;
FOR I IN (
select
CST_DOC_NO, CST_DOC_DATE, CST_MATERIAL, CST_RECEIVING_VENDOR, RECEIVED_QTY, CONSUMED_QTY, OPENING_BALANCE,
UOM,DC_NO,DC_DATE,DC_DOC_NO,CST_GRGI_SLIP_NO
from STOCK_ANALYSIS_TABLE
LOOP
     vCurrentVendor := I.CST_RECEIVING_VENDOR;
     vCurrentMaterial := I.CST_MATERIAL;
     IF vPrevVendor = i.CST_RECEIVING_VENDOR AND vPrevMaterial= i.CST_MATERIAL THEN
          IF vStockFlag='Y' THEN
          vStockFlag := 'N';
               FOR J IN(select CONSUMED_QTY from STOCK_ANALYSIS_TABLE
               WHERE CST_RECEIVING_VENDOR = i.CST_RECEIVING_VENDOR and CST_MATERIAL = i.CST_MATERIAL) LOOP
                    vConsumedQty := vConsumedQty+J.CONSUMED_QTY;
               END LOOP;
          vConsumedQty := ( vConsumedQty - (I.OPENING_BALANCE + I.RECEIVED_QTY));
          ELSIF vQtyFlag = 'Y' THEN
                    vConsumedQty := (vConsumedQty - I.RECEIVED_QTY);
          END IF;
          IF     vConsumedQty <= 0 THEN
               IF vQtyFlag = 'Y' THEN
               vQtyFlag := 'N';
               vStockQty := abs(vConsumedQty);
               ELSE
               vStockQty := I.RECEIVED_QTY;
               END IF;
               INSERT INTO STOCK_AGING_TABLE
               (SAT_DOC_DATE,SAT_DOC_NO,SAT_VENDOR,SAT_MATERIAL,SAT_STOCK_QTY,SAT_NO_OF_DAYS,SAT_UOM, SAT_DC_NO, SAT_DC_DATE, SAT_DC_DOC_NO,SAT_GR_GI_SLIP_NO)
               VALUES
               I.CST_DOC_DATE,I.CST_DOC_NO,I.CST_RECEIVING_VENDOR,I.CST_MATERIAL,vStockQty,(to_date(GivenDate,'dd/mm/yyyy') - I.CST_DOC_DATE),I.UOM,I.DC_NO,I.DC_DATE,I.DC_DOC_NO,I.CST_GRGI_SLIP_NO
          END IF;
     ELSIF(vPrevVendor <> vCurrentVendor AND vPrevMaterial <> vCurrentMaterial) THEN
               select count(CST_MATERIAL) into vCountFlag from STOCK_ANALYSIS_TABLE
               WHERE CST_RECEIVING_VENDOR = vCurrentVendor and CST_MATERIAL = vCurrentMaterial;
               IF vCountFlag = 1 THEN
               INSERT INTO STOCK_AGING_TABLE
               (SAT_DOC_DATE,SAT_DOC_NO,SAT_VENDOR,SAT_MATERIAL,SAT_STOCK_QTY,SAT_NO_OF_DAYS,SAT_UOM, SAT_DC_NO, SAT_DC_DATE, SAT_DC_DOC_NO,SAT_GR_GI_SLIP_NO)
               VALUES
               I.CST_DOC_DATE,I.CST_DOC_NO,I.CST_RECEIVING_VENDOR,I.CST_MATERIAL,(I.OPENING_BALANCE+I.RECEIVED_QTY),(to_date('31/03/2007','dd/mm/yyyy') - I.CST_DOC_DATE),I.UOM,I.DC_NO,I.DC_DATE,I.DC_DOC_NO,I.CST_GRGI_SLIP_NO
          vStockFlag := 'Y';
               vQtyFlag := 'Y';
               vConsumedQty := 0;
               END IF;
     ELSE
          vStockFlag := 'Y';
               vQtyFlag := 'Y';
               vConsumedQty := 0;
     END IF;
vPrevVendor := I.CST_RECEIVING_VENDOR;
vPrevMaterial := I.CST_MATERIAL;
END LOOP;
END AGING_REPORT;
END STOCK;
/