Group by in PL/SQL

Question

Hi,
Begin
SELECT
PR.VENDOR_CODE INTO PR_VENDORE_CODE_V,
SUM(PRD.rejected_qty) INTO PR_REJECTED_QTY_V
FROM
PURCHASE_RETURN PR,
PURCHASE_RETURN_DETAIL PRD
WHERE
PR.PR_NO = PRD.PR_NO AND
PR.COMPANY_CODE = company_code_fk_V AND
PR.PR_NO = purchae_return_no_FK_v
GROUP BY
PR_VENDORE_CODE_V;
End;
it gives me an error groupby function not allowed here.
pls help

Answer 1

Thanks !
Opops i again got an error.
(1): PLS-00323: subprogram or cursor 'PRO_EXCISE_RG23A_PART1_N' is declared in a package specification and must be defined in the package body
SPEC
PACKAGE PACK_EXCISE_REGISTER_ENTRIES
AS PROCEDURE PRO_EXCISE_RG23A_PART1_N (user_id_fk_V IN EXCISE_RG23A_PART1_N.user_id_fk%TYPE,
company_code_fk_V IN EXCISE_RG23A_PART1_N.company_code_fk%TYPE ,
gpi_bill_entry_no_v IN EXCISE_RG23A_PART1_N.gpi_bill_entry_no%TYPE,
gpi_bill_entry_date_v IN EXCISE_RG23A_PART1_N.gpi_bill_entry_date%TYPE,
qty_issue_slip_v IN EXCISE_RG23A_PART1_N.qty_issue_slip%TYPE,
issue_slip_date_v IN EXCISE_RG23A_PART1_N.issue_slip_date%TYPE,
issue_slip_no_fk_v IN EXCISE_RG23A_PART1_N.issue_slip_no_fk%TYPE,
purchae_return_no_FK_v IN EXCISE_RG23A_PART1_N.purchae_return_no_FK%TYPE,
pr_vendor_code_fk_v IN EXCISE_RG23A_PART1_N.pr_vendor_code_fk%TYPE,
qty_purchase_return_v IN EXCISE_RG23A_PART1_N.qty_purchase_return%TYPE,
balance_qty_stock_v IN EXCISE_RG23A_PART1_N. BALANCE_QTY_STOCK%TYPE,
EXCISE_INSERT_TYPE_V VARCHAR2
END;
PACKAGE BODY
PACKAGE BODY PACK_EXCISE_REGISTER_ENTRIES AS
PROCEDURE PRO_EXCISE_RG23A_PART1_N( user_id_fk_V IN EXCISE_RG23A_PART1_N.user_id_fk%TYPE,
company_code_fk_V IN EXCISE_RG23A_PART1_N.company_code_fk%TYPE ,
/* GET MATERIAL RECEIPT(GRN) VALUES*/
--gpi_bill_entry_no_v is also used for domestic invoice as DOMESTIC NO
--also used for grn no
gpi_bill_entry_no_v IN EXCISE_RG23A_PART1_N.gpi_bill_entry_no%TYPE,
gpi_bill_entry_date_v IN EXCISE_RG23A_PART1_N.gpi_bill_entry_date%TYPE,
/* GET ISSUSE TO PRODUCTION VALUES*/
qty_issue_slip_v IN EXCISE_RG23A_PART1_N.qty_issue_slip%TYPE,
issue_slip_date_v IN EXCISE_RG23A_PART1_N.issue_slip_date%TYPE,
issue_slip_no_fk_v IN EXCISE_RG23A_PART1_N.issue_slip_no_fk%TYPE,
/* GET PURCHASE RETURN TO VENDORE VALUES*/
purchae_return_no_FK_v IN EXCISE_RG23A_PART1_N.purchae_return_no_FK%TYPE,
pr_vendor_code_fk_v IN EXCISE_RG23A_PART1_N.pr_vendor_code_fk%TYPE,
qty_purchase_return_v IN EXCISE_RG23A_PART1_N.qty_purchase_return%TYPE,
/*RECEIVE TYPE FOR RG23 ENTRIES*/
EXCISE_INSERT_TYPE_V VARCHAR2)
IS
EXCISE_MAXCODE_V NUMBER;
EXCISE_SL_NO_V NUMBER;
/*USED FOR MATERIAL RECEIPT*/
RECEIPT_ID_V VARCHAR2(50);
RECEIPT_DATE_V DATE;
VENDORE_CODE_V VARCHAR2(50);
ITEM_DESC_V VARCHAR2(50);
ITEM_QTY_UOM_V VARCHAR2(50);
/*USED FOR DOMESTIC INVOICE*/
DOMESTIC_TARIFF_CODE_V VARCHAR2(20);
DOMESTIC_EXCISE_DUTY_V NUMBER;
DOMESTIC_CESS_DUTY_V NUMBER;
/*USED FOR PURCHASE RETURN TO VENDORE*/
PR_VENDORE_CODE_V VARCHAR2(20);
PR_REJECTED_QTY_V NUMBER;
BEGIN
IF EXCISE_INSERT_TYPE_V ='GRN' THEN
DECLARE
/*Create Cursor to get Material Receipt(GRN) Values*/
CURSOR GET_GRN_RECEIPT_CUR IS
SELECT
RM.receipt_id,
RM.receipt_date,
VM.CODE,
IMDESC.ITEM_DESC,
SUM(RD.received_qty) || ' ' || UM.UOM_NAME AS ITEM_QTY_UOM
FROM
RECEIPT_MASTER RM,
RECEIPT_DETAIL RD,
VENDOR_MASTER VM,
uom_master UM,
SELECT
RD.RECEIPT_ID,
IM.CODE,
CASE WHEN RD.HEAT_NO IS NOT NULL THEN 'STEEL' ELSE IM.NAME END AS ITEM_DESC
FROM
RECEIPT_DETAIL RD,
ITEM_MASTER IM
WHERE
IM.CODE = RD.ITEM_CODE
) IMDESC
WHERE
RM.receipt_id = RD.receipt_id AND
RM.vendor_id = VM.code AND
RM.company_code = company_code_fk_V AND
IMDESC.receipt_id = RM.receipt_id AND
UM.UOM_CODE = RD.PO_UNIT AND
RM.RECEIPT_ID = gpi_bill_entry_no_v
GROUP BY
RM.receipt_id, RM.receipt_date,
VM.CODE, VM.EXCISE_range,
VM.excise_collectorate, IMDESC.ITEM_DESC, UM.UOM_NAME;
BEGIN
SELECT NVL(MAX(sl_no),0) +1 INTO EXCISE_SL_NO_V FROM EXCISE_RG23A_PART1_N ;
/*Check to see if cursor is already open. If not, open it. */
IF NOT GET_GRN_RECEIPT_CUR%ISOPEN THEN
OPEN GET_GRN_RECEIPT_CUR;
END IF;
LOOP
/* Retrieve each row of the result of the above query into PL/SQL variables: */
FETCH GET_GRN_RECEIPT_CUR INTO RECEIPT_ID_V, RECEIPT_DATE_V, VENDORE_CODE_V,
ITEM_DESC_V, ITEM_QTY_UOM_V;
/* Insert into Excise Register 23A Part 1 AGAINST GRN ENTRY(S)*/
INSERT INTO EXCISE_RG23A_PART1_N
(user_id_fk,
transaction_date,
company_code_fk,
sl_no,
rg23ap1_id_pk,
rg23ap1_date,
receive_input_desc,
qty_received_in_units,
gpi_bill_entry_no,
gpi_bill_entry_date,
gpi_vendor_code_fk,
balance_qty_stock,
entry_mode)
VALUES
(user_id_fk_V,
SYSDATE,
company_code_FK_V,
EXCISE_SL_NO_V,
(SELECT NVL(MAX(rg23ap1_id_pk),0) +1 FROM EXCISE_RG23A_PART1_N),
SYSDATE,
ITEM_DESC_V,
ITEM_QTY_UOM_V,
RECEIPT_ID_V,
RECEIPT_DATE_V,
VENDORE_CODE_V,
NVL((SELECT balance_qty_stock FROM EXCISE_RG23A_PART1_N WHERE
rg23ap1_id_pk = (SELECT MAX(rg23ap1_id_pk) -1 FROM EXCISE_RG23A_PART1_N) - qty_received_in_units),0),
'GRN');
/* Finish entry(s) in Excise Register 23A Part 1 AGAINST GRN ENTRY(S)*/
END LOOP;
/* Free cursor used by the query */
CLOSE GET_GRN_RECEIPT_CUR;
/* Insert into Excise Register Part 2 AGAINST GRN ENTRY(S)*/
INSERT INTO EXCISE_RG23A_PART2_N(
user_id_fk,
transaction_date,
company_code_fk,
sl_no,
rg23ap2_date,
open_bal_bed,
open_bal_cess,
fca_bill_no,
fca_date,
fca_vendor_code_fk,
received_bed,
received_cess,
total_bed,
total_cess,
entry_mode)
VALUES(
user_id_fk_V,
SYSDATE,
company_code_FK_V,
(SELECT NVL(MAX(sl_no),0) FROM EXCISE_RG23A_PART1_N),
SYSDATE,
NVL((SELECT balance_bed FROM EXCISE_RG23A_PART2_N WHERE
sl_no = (SELECT MAX(sl_no) -1 FROM EXCISE_RG23A_PART2_N)),0),
NVL((SELECT balacne_cess FROM EXCISE_RG23A_PART2_N WHERE
sl_no = (SELECT MAX(sl_no) -1 FROM EXCISE_RG23A_PART2_N)),0),
gpi_bill_entry_no_v,
gpi_bill_entry_date_v,
(SELECT gpi_vendor_code_fk FROM EXCISE_RG23A_PART1_N
WHERE sl_no = (SELECT NVL(MAX(rg23ap1_id_pk),0) FROM EXCISE_RG23A_PART1_N)),
(SELECT EXCISE_DUTY FROM RECEIPT_MASTER WHERE RECEIPT_ID = gpi_bill_entry_no_v),
(SELECT CESS_DUTY FROM RECEIPT_MASTER WHERE RECEIPT_ID = gpi_bill_entry_no_v),
(NVL((SELECT balance_bed FROM EXCISE_RG23A_PART2_N WHERE
sl_no = (SELECT MAX(sl_no) -1 FROM EXCISE_RG23A_PART2_N)),0) + (SELECT EXCISE_DUTY FROM RECEIPT_MASTER WHERE RECEIPT_ID = gpi_bill_entry_no_v)),
(NVL((SELECT balacne_cess FROM EXCISE_RG23A_PART2_N WHERE
sl_no = (SELECT MAX(sl_no) -1 FROM EXCISE_RG23A_PART2_N)),0) + (SELECT CESS_DUTY FROM RECEIPT_MASTER WHERE RECEIPT_ID = gpi_bill_entry_no_v)),
'GRN');
/* Finish entry(s) in Excise Register 23A Part 2 AGAINST GRN ENTRY(S)*/
END;
END IF;
IF EXCISE_INSERT_TYPE_V ='PRV' THEN
BEGIN
/*Create Select Statement to get Purchase Return to Vendor Values*/
SELECT PR.VENDOR_CODE, SUM(PRD.rejected_qty) INTO PR_VENDORE_CODE_V, PR_REJECTED_QTY_V
FROM
PURCHASE_RETURN PR,
PURCHASE_RETURN_DETAIL PRD
WHERE
PR.PR_NO = PRD.PR_NO AND
PR.COMPANY_CODE = company_code_fk_V AND
PR.PR_NO = purchae_return_no_FK_v;
/* Insert into Excise Register 23A part 1 AGAINST PURCHASE RETURN TO VENDORE*/
INSERT INTO EXCISE_RG23A_PART1_N(
user_id_fk,
transaction_date,
company_code_fk,
sl_no,
rg23ap1_id_pk,
rg23ap1_date,
purchae_return_no_fk,
pr_vendor_code_fk,
qty_purchase_return,
balance_qty_stock,
entry_mode)
VALUES(
user_id_fk_V,
SYSDATE,
company_code_FK_V,
EXCISE_SL_NO_V,
(SELECT NVL(MAX(rg23ap1_id_pk),0) +1 FROM EXCISE_RG23A_PART1_N),
SYSDATE,
purchae_return_no_FK_v,
PR_VENDORE_CODE_V,
PR_REJECTED_QTY_V,
NVL((SELECT balance_qty_stock FROM EXCISE_RG23A_PART1_N WHERE
rg23ap1_id_pk = (SELECT MAX(rg23ap1_id_pk) -1 FROM EXCISE_RG23A_PART1_N) - qty_received_in_units),0),
'PRN');
/* Finish entry(s) in Excise Register 23A Part 1 AGAINST PURCHASE RETURN TO VENDORE*/
END;
END IF;
IF EXCISE_INSERT_TYPE_V ='DI' THEN
BEGIN
/*GET EXCIE_DUTY FROM DOMESTIC INVOICE*/
SELECT chapterheading_code,
(ROUND(((di_m_bed_pc/100) * di_m_totalamount),2)),
ROUND((((di_m_bed_pc/100) * di_m_totalamount) * (di_m_cess_pc/100)),2)
INTO DOMESTIC_TARIFF_CODE_V, DOMESTIC_EXCISE_DUTY_V, DOMESTIC_CESS_DUTY_V
FROM
domesticinvoice_master
WHERE
DI_M_CODE= gpi_bill_entry_no_v;
/* Insert into Excise Register Part 2 AGAINST DOMESTIC INVOICE*/
INSERT INTO EXCISE_RG23A_PART2_N(
user_id_fk,
transaction_date,
company_code_fk,
open_bal_bed,
open_bal_cess,
tariff_head_code,
bed_debit,
cess_debit,
total_bed,
total_cess,
entry_mode)
VALUES(
user_id_fk_V,
SYSDATE,
company_code_FK_V,
NVL((SELECT balance_bed FROM EXCISE_RG23A_PART2_N WHERE
sl_no = (SELECT MAX(sl_no) -1 FROM EXCISE_RG23A_PART2_N)),0),
NVL((SELECT balacne_cess FROM EXCISE_RG23A_PART2_N WHERE
sl_no = (SELECT MAX(sl_no) -1 FROM EXCISE_RG23A_PART2_N)),0),
DOMESTIC_TARIFF_CODE_V,
DOMESTIC_EXCISE_DUTY_V,
DOMESTIC_CESS_DUTY_V,
(NVL((SELECT balance_bed FROM EXCISE_RG23A_PART2_N WHERE
sl_no = (SELECT MAX(sl_no) -1 FROM EXCISE_RG23A_PART2_N)),0) - DOMESTIC_EXCISE_DUTY_V),
(NVL((SELECT balacne_cess FROM EXCISE_RG23A_PART2_N WHERE
sl_no = (SELECT MAX(sl_no) -1 FROM EXCISE_RG23A_PART2_N)),0) - DOMESTIC_CESS_DUTY_V),
'DI');
/* Finish entry(s) in Excise Register 23A Part 2 AGAINST DOMESTIC INVOICE*/
END;
END IF;
--END;
END PRO_EXCISE_RG23A_PART1_N;
END PACK_EXCISE_REGISTER_ENTRIES;
-- End of DDL Script for Package Body FORGE.PACK_EXCISE_REGISTER_ENTRIES