Populate Line and Master details

Question

hi All,
I have created 3 form 1.Quotation 2.Autocreate 3.Purchase Order.
Autocreate form is having Only one field Quotation Number(LOV) and one button 'Autocreate'
I want whenever i select Quotation number and press 'Autocreate' button purchase order form should open and populate all details of master and line in Purcahse order form Quotation.
I have written folloing query but only header details are populating not line ....pl help
:GLOBAL.REQ_NO1 := 'Requsition.REQ_NO';
:GLOBAL.QUOT_NO1 := 'Quotation.QUOT_NO';
IF
:GLOBAL.REQ_NO1 = 'Requsition.REQ_NO' THEN
GO_BLOCK('PO_HEADERS');
:PO_HEADERS.REQ_NO := :FND_FORM.REQ_NO;
ELSIF
:GLOBAL.QUOT_NO1 = 'Quotation.QUOT_NO' THEN
GO_BLOCK('PO_HEADERS');
:PO_HEADERS.QUOT_NO :=:FND_FORM.QUOT_NO;
END IF;
Please help
Ar

Answer 1

Hello
I have created this code .
DECLARE
TYPE REQ_LINE_REC IS RECORD
P_LINE_NUM NUMBER,
P_ITEM_CODE VARCHAR2(10),
P_DESCRIPTION VARCHAR2(240),
P_UOM VARCHAR2(10),
P_PRICE NUMBER,
P_CATEGORY VARCHAR2(30),
P_QUANTITY NUMBER)--,
P_NEEDBYDATE DATE );
P_LINE REQ_LINE_REC;
CURSOR ITEM_CUR is
SELECT LINE_NUM,ITEM_CODE,DESCRIPTION,UOM,PRICE,CATEGORY,QUANTITY,NEED_BY_DATE
FROM PO_REQUISITION_LINE;
-- WHERE REQ_NO =:FND_FORM.REQ_NO;
BEGIN
     :PO_HEADERS.REQ_NO := :FND_FORM.REQ_NO;
     GO_BLOCK('PO_LINES');
     --OPEN ITEM_CUR;
     FOR rec IN ITEM_CUR LOOP
     --IF :SYSTEM.RECORD_STATUS!='NEW' THEN
--CREATE_RECORD;
--END IF;
FETCH ITEM_CUR INTO P_LINE;
EXIT WHEN ITEM_CUR%NOTFOUND;
:PO_LINES.LINE_NUM := P_LINE.P_LINE_NUM ;
:PO_LINES.ITEM := P_LINE.P_ITEM_CODE;
:PO_LINES.DESCRIPTION := P_LINE.P_DESCRIPTION;
:PO_LINES.UOM := P_LINE.P_UOM ;
:PO_LINES.PRICE := P_LINE.P_PRICE ;
:PO_LINES.CATEGORY := P_LINE.P_CATEGORY ;
:PO_LINES.QUANTITY := P_LINE.P_QUANTITY;
:PO_LINES.NEED_BY_DATE := P_LINE.NEEDBYDATE;
END LOOP;
END ITEM_CUR;
but loop is noot working here. it give only single value in po_line table...
Plz Help...
Archana