Home » Developer & Programmer » Forms » FRM 40102 Records must be inserted or deleted first (forms6i)
|
|
|
|
| Re: FRM 40102 Records must be inserted or deleted first [message #517637 is a reply to message #517630] |
Wed, 27 July 2011 00:46   |
 |
rajendaroracle
Messages: 80
Registered: May 2011
Location: India
|
Member |
|
|
BEGIN
GO_BLOCK('XXSS_PO_REQUISITION_TEMP');
FIRST_RECORD;
IF :SYSTEM.LAST_RECORD= 'TRUE' THEN
BEGIN
UPDATE XXSS_PO_REQUISITION_TEMP
SET LINE_NO = :XXSS_PO_REQUISITION_TEMP.LINE_NO,
ITEM_CODE = :XXSS_PO_REQUISITION_TEMP.ITEM_CODE,
ITEM_DESCRIPTION = :XXSS_PO_REQUISITION_TEMP.ORACLE_ITEMDESC,
UOM = :XXSS_PO_REQUISITION_TEMP.UOM,
QUANTITY = :XXSS_PO_REQUISITION_TEMP.QUANTITY,
NEED_BY_DATE = :XXSS_PO_REQUISITION_TEMP.NEED_BY_DATE,
PROJECT = :XXSS_PO_REQUISITION_TEMP.PROJECT,
TASK_NAME = :XXSS_PO_REQUISITION_TEMP.TASK_NAME,
BUYER = :CONTROL.BUYER,
REQ_TYPE = :CONTROL.REQ_TYPE,
STATUS = :CONTROL.STATUS,
ORGANIZATION_CODE = :CONTROL.ORG_CODE,
LOCATION = :CONTROL.LOCATION,
SUBINVENTORY = :CONTROL.SUBINVENTORY,
CREATED_BY = FND_GLOBAL.USER_ID,
CREATION_DATE = SYSDATE,
LAST_UPDATED_BY = FND_GLOBAL.USER_ID,
LAST_UPDATED_DATE = SYSDATE,
LAST_UPDATED_LOGIN = FND_GLOBAL.USER_ID,
LOADED_FLAG = 'P'
WHERE LOADED_FLAG = 'P';
STANDARD.COMMIT;
END;
END IF;
END;
-----------SUBMITT REQUEST--------------
DECLARE
L_REQUESTID NUMBER ;
V_REQ_NO NUMBER(20);
V_RETURN BOOLEAN;
V_PHASE VARCHAR2(10);
V_STATUS VARCHAR2(10);
V_DEV_PHASE VARCHAR2(10);
V_DEV_STATUS VARCHAR2(10);
V_MESSAGE VARCHAR2(10);
V_REC_NUMBER NUMBER;
BEGIN
L_REQUESTID := FND_REQUEST.SUBMIT_REQUEST('PO',
'XXSSREQINTERFACE',
'XXSS Interface Prog',
SYSDATE,
FALSE,
CHR(0),
'', '', '', '', '', '', '', '', '',
'', '' ,'' ,'', '', '', '', '', '', '',
'', '' ,'' ,'', '', '', '', '', '', '',
'', '' ,'' ,'', '', '', '', '', '', '',
'', '' ,'' ,'', '', '', '', '', '', '',
'', '' ,'' ,'', '', '', '', '', '', '',
'', '' ,'' ,'', '', '', '', '', '', '',
'', '' ,'' ,'', '', '', '', '', '', '',
'', '' ,'' ,'', '', '', '', '', '', '',
'', '' ,'' ,'', '', '', '', '', '', ''
);
STANDARD.COMMIT;
FND_MESSAGE.SET_STRING('Request Id:'||L_REQUESTID);
FND_MESSAGE.SHOW;
V_RETURN := FND_CONCURRENT.WAIT_FOR_REQUEST(L_REQUESTID,
60,
0,
V_PHASE,
V_STATUS,
V_DEV_PHASE,
V_DEV_STATUS,
V_MESSAGE);
FOR J IN 1.. :PARAMETER.RECORD_COUNT LOOP
IF :XXSS_PO_REQUISITION_TEMP.REQUISITION_CHECKBOX='Y' THEN
BEGIN
SELECT PRHL.SEGMENT1
INTO :XXSS_PO_REQUISITION_TEMP.REQ_NUMBER
FROM FND_CONCURRENT_REQUESTS FCR ,
PO_REQUISITION_HEADERS_ALL PRHL
WHERE FCR.REQUEST_ID=PRHL.REQUEST_ID
AND FCR.PARENT_REQUEST_ID=L_REQUESTID;
END;
/*-------FRM 40102 RECORDS MUST BE INSERTED OR DELETED FIRST [MESSAGE #517630 IS A REPLY TO MESSAGE #517628]----------*/
-- IF :SYSTEM.LAST_RECORD= 'TRUE' THEN
-- EXIT;
-- ELSIF :SYSTEM.LAST_RECORD= 'FALSE' THEN
NEXT_RECORD;
-- END IF;
--NEXT_RECORD;
ELSIF :XXSS_PO_REQUISITION_TEMP.REQUISITION_CHECKBOX IS NULL THEN
NEXT_RECORD;
END IF;
END LOOP;
FIRST_RECORD;
GO_BLOCK('XXSS_PO_REQUISITION_TEMP');
GO_RECORD(:CONTROL.F_CURRENT_RECORD);
EXCEPTION
WHEN OTHERS THEN
NULL;
--FND_MESSAGE.SET_STRING('Check the errors');
--FND_MESSAGE.SHOW;
END;
GO_RECORD(:CONTROL.F_CURRENT_RECORD);
IF :XXSS_PO_REQUISITION_TEMP.REQ_NUMBER IS NULL
AND :XXSS_PO_REQUISITION_TEMP.REQUISITION_CHECKBOX = 'Y'THEN
BEGIN
GO_BLOCK('XXSS_PO_REQUISITION_ERRORS');
EXECUTE_QUERY;
END;
END IF;
|
|
|
|
|
|
|
|
|
|
| Re: FRM 40102 Records must be inserted or deleted first [message #517662 is a reply to message #517654] |
Wed, 27 July 2011 03:15 |
|
rajendaroracle
Messages: 80
Registered: May 2011
Location: India
|
Member |
|
|
Quote:BEGIN
GO_BLOCK('XXSS_PO_REQUISITION_TEMP');
FIRST_RECORD;
IF :SYSTEM.LAST_RECORD= 'TRUE' THEN
BEGIN
UPDATE XXSS_PO_REQUISITION_TEMP
SET LINE_NO = :XXSS_PO_REQUISITION_TEMP.LINE_NO,
ITEM_CODE = :XXSS_PO_REQUISITION_TEMP.ITEM_CODE,
ITEM_DESCRIPTION = :XXSS_PO_REQUISITION_TEMP.ORACLE_ITEMDESC,
UOM = :XXSS_PO_REQUISITION_TEMP.UOM,
QUANTITY = :XXSS_PO_REQUISITION_TEMP.QUANTITY,
NEED_BY_DATE = :XXSS_PO_REQUISITION_TEMP.NEED_BY_DATE,
PROJECT = :XXSS_PO_REQUISITION_TEMP.PROJECT,
TASK_NAME = :XXSS_PO_REQUISITION_TEMP.TASK_NAME,
BUYER = :CONTROL.BUYER,
REQ_TYPE = :CONTROL.REQ_TYPE,
STATUS = :CONTROL.STATUS,
ORGANIZATION_CODE = :CONTROL.ORG_CODE,
LOCATION = :CONTROL.LOCATION,
SUBINVENTORY = :CONTROL.SUBINVENTORY,
CREATED_BY = FND_GLOBAL.USER_ID,
CREATION_DATE = SYSDATE,
LAST_UPDATED_BY = FND_GLOBAL.USER_ID,
LAST_UPDATED_DATE = SYSDATE,
LAST_UPDATED_LOGIN = FND_GLOBAL.USER_ID,
LOADED_FLAG = 'P'
WHERE LOADED_FLAG = 'P';
STANDARD.COMMIT;
END;
END IF;
END;
-----------SUBMITT REQUEST--------------
DECLARE
L_REQUESTID NUMBER ;
V_REQ_NO NUMBER(20);
V_RETURN BOOLEAN;
V_PHASE VARCHAR2(10);
V_STATUS VARCHAR2(10);
V_DEV_PHASE VARCHAR2(10);
V_DEV_STATUS VARCHAR2(10);
V_MESSAGE VARCHAR2(10);
V_REC_NUMBER NUMBER;
BEGIN
L_REQUESTID := FND_REQUEST.SUBMIT_REQUEST('PO',
'XXSSREQINTERFACE',
'XXSS Interface Prog',
SYSDATE,
FALSE,
CHR(0),
'', '', '', '', '', '', '', '', '',
'', '' ,'' ,'', '', '', '', '', '', '',
'', '' ,'' ,'', '', '', '', '', '', '',
'', '' ,'' ,'', '', '', '', '', '', '',
'', '' ,'' ,'', '', '', '', '', '', '',
'', '' ,'' ,'', '', '', '', '', '', '',
'', '' ,'' ,'', '', '', '', '', '', '',
'', '' ,'' ,'', '', '', '', '', '', '',
'', '' ,'' ,'', '', '', '', '', '', '',
'', '' ,'' ,'', '', '', '', '', '', ''
);
STANDARD.COMMIT;
FND_MESSAGE.SET_STRING('Request Id:'||L_REQUESTID);
FND_MESSAGE.SHOW;
V_RETURN := FND_CONCURRENT.WAIT_FOR_REQUEST(L_REQUESTID,
60,
0,
V_PHASE,
V_STATUS,
V_DEV_PHASE,
V_DEV_STATUS,
V_MESSAGE);
FOR J IN 1.. :PARAMETER.RECORD_COUNT LOOP
IF :XXSS_PO_REQUISITION_TEMP.REQUISITION_CHECKBOX='Y' THEN
BEGIN
SELECT PRHL.SEGMENT1
INTO :XXSS_PO_REQUISITION_TEMP.REQ_NUMBER
FROM FND_CONCURRENT_REQUESTS FCR ,
PO_REQUISITION_HEADERS_ALL PRHL
WHERE FCR.REQUEST_ID=PRHL.REQUEST_ID
AND FCR.PARENT_REQUEST_ID=L_REQUESTID;
END;
/*-------FRM 40102 RECORDS MUST BE INSERTED OR DELETED FIRST [MESSAGE #517630 IS A REPLY TO MESSAGE #517628]----------*/
-- IF :SYSTEM.LAST_RECORD= 'TRUE' THEN
-- EXIT;
-- ELSIF :SYSTEM.LAST_RECORD= 'FALSE' THEN
NEXT_RECORD;
-- END IF;
--NEXT_RECORD;
ELSIF :XXSS_PO_REQUISITION_TEMP.REQUISITION_CHECKBOX IS NULL THEN
NEXT_RECORD;
END IF;
END LOOP;
FIRST_RECORD;
GO_BLOCK('XXSS_PO_REQUISITION_TEMP');
GO_RECORD(:CONTROL.F_CURRENT_RECORD);
EXCEPTION
WHEN OTHERS THEN
NULL;
--FND_MESSAGE.SET_STRING('Check the errors');
--FND_MESSAGE.SHOW;
END;
GO_RECORD(:CONTROL.F_CURRENT_RECORD);
IF :XXSS_PO_REQUISITION_TEMP.REQ_NUMBER IS NULL
AND :XXSS_PO_REQUISITION_TEMP.REQUISITION_CHECKBOX = 'Y'THEN
BEGIN
GO_BLOCK('XXSS_PO_REQUISITION_ERRORS');
EXECUTE_QUERY;
END;
END IF;
|
|
|
|
|
|
| Re: FRM 40102 Records must be inserted or deleted first [message #517681 is a reply to message #517664] |
Wed, 27 July 2011 04:50 |
 |
Littlefoot
Messages: 21818
Registered: June 2005
Location: Croatia, Europe
|
Senior Member
Account Moderator |
|
|
I saw you created several "testing" messages. None of them was a success. You need to use [code] and [/code] tags - the ones you used in the second message you posted in this topic. That's perfectly OK.
You need to INDENT code, so that it is clearly visible which statements belong to which section. For example, this is what you did: FOR J IN 1.. :PARAMETER.RECORD_COUNT LOOP
IF :XXSS_PO_REQUISITION_TEMP.REQUISITION_CHECKBOX='Y' THEN
BEGIN
SELECT PRHL.SEGMENT1 FOR J IN 1.. :PARAMETER.RECORD_COUNT LOOP
IF :XXSS_PO_REQUISITION_TEMP.REQUISITION_CHECKBOX='Y' THEN
BEGIN
SELECT PRHL.SEGMENT1
If you used <Tab> to indent code, it might not be displayed correctly so, if you really expect someone to assist, put some effort in making your request understandable. If you ignore to do that, people will ignore your questions and answer the ones that are easy to read and understand. Basically, it's up to you. Now it makes at least 2 your questions that remained unanswered, simply because you refuse to post them properly. What a shame!
|
|
|
|
Goto Forum:
Current Time: Sun Sep 08 23:00:38 CDT 2024
|
] 
Blog
Search
Help
Members
Register
Login
Home
