Steps to load the Gl Code Combination By Using FND_FLEX_KEYVAL.VALIDATE_SEGS
STEP 1 :
xx_combination_error_status
CREATE TABLE APPS.XX_COMBINATION_ERROR_STATUS
(
CODE VARCHAR2(2000 BYTE),
STATUS VARCHAR2(2000 BYTE),
ERROR_MSG VARCHAR2(4000 BYTE)
)
create table XX_ACCOUNT_COMBINATIONS (CODE VARCHAR2(2000))
edit XX_ACCOUNT_COMBINATIONS --where CODE='11.01010.H123.0000.00.00'
insert into XX_ACCOUNT_COMBINATIONS values ('11.82804.6006.0000.00.00')
Select * from GL_CODE_COMBINATIONS_KFV where CONCATENATED_SEGMENTS in ('11.00000.6006.0000.00.00' ,
'11.82804.6006.0000.00.00',
'18.00000.3020.0000.00.00')
CREATE OR REPLACE FUNCTION APPS.XXX_CREATE_CCID
( P_CONCAT_SEGS IN VARCHAR2
) RETURN VARCHAR2
IS
L_STATUS BOOLEAN;
L_COA_ID NUMBER;
BEGIN
SELECT CHART_OF_ACCOUNTS_ID
INTO L_COA_ID
FROM GL_SETS_OF_BOOKS
WHERE SET_OF_BOOKS_ID = 2023;-- –UPDATE THIS WITH SET OF BOOKS ID
L_STATUS := FND_FLEX_KEYVAL.VALIDATE_SEGS(
'CREATE_COMBINATION',
'SQLGL',
'GL#',
L_COA_ID,
P_CONCAT_SEGS,
'V',
SYSDATE,
'ALL', NULL, NULL, NULL, NULL,
FALSE,FALSE, NULL, NULL, NULL);
IF L_STATUS THEN
RETURN 'S';
ELSE
RETURN 'F';
END IF;
END ;
/
STEP 2 :
DECLARE
My_MSG VARCHAR2 (4000);
P_CONCAT_SEGS VARCHAR2 (240);
CURSOR C1
IS
SELECT DISTINCT CODE FROM XX_ACCOUNT_COMBINATIONS;
BEGIN
FOR I IN C1
LOOP
BEGIN
SELECT XXX_CREATE_CCID (I.CODE) INTO P_CONCAT_SEGS FROM DUAL;
EXCEPTION
WHEN OTHERS
THEN
DBMS_OUTPUT.put_line ('NO' || SQLERRM);
END;
DBMS_OUTPUT.put_line (P_CONCAT_SEGS);
My_Msg := SQLERRM;
INSERT INTO xx_combination_error_status (code, status, ERROR_MSG)
VALUES (i.code, P_CONCAT_SEGS, My_Msg);
END LOOP;
END;
select * from xx_combination_error_status where STATUS='F'
select * from GL_CODE_COMBINATIONS_KFV
xx_combination_error_status
CREATE TABLE APPS.XX_COMBINATION_ERROR_STATUS
(
CODE VARCHAR2(2000 BYTE),
STATUS VARCHAR2(2000 BYTE),
ERROR_MSG VARCHAR2(4000 BYTE)
)
create table XX_ACCOUNT_COMBINATIONS (CODE VARCHAR2(2000))
edit XX_ACCOUNT_COMBINATIONS --where CODE='11.01010.H123.0000.00.00'
insert into XX_ACCOUNT_COMBINATIONS values ('11.82804.6006.0000.00.00')
Select * from GL_CODE_COMBINATIONS_KFV where CONCATENATED_SEGMENTS in ('11.00000.6006.0000.00.00' ,
'11.82804.6006.0000.00.00',
'18.00000.3020.0000.00.00')
CREATE OR REPLACE FUNCTION APPS.XXX_CREATE_CCID
( P_CONCAT_SEGS IN VARCHAR2
) RETURN VARCHAR2
IS
L_STATUS BOOLEAN;
L_COA_ID NUMBER;
BEGIN
SELECT CHART_OF_ACCOUNTS_ID
INTO L_COA_ID
FROM GL_SETS_OF_BOOKS
WHERE SET_OF_BOOKS_ID = 2023;-- –UPDATE THIS WITH SET OF BOOKS ID
L_STATUS := FND_FLEX_KEYVAL.VALIDATE_SEGS(
'CREATE_COMBINATION',
'SQLGL',
'GL#',
L_COA_ID,
P_CONCAT_SEGS,
'V',
SYSDATE,
'ALL', NULL, NULL, NULL, NULL,
FALSE,FALSE, NULL, NULL, NULL);
IF L_STATUS THEN
RETURN 'S';
ELSE
RETURN 'F';
END IF;
END ;
/
STEP 2 :
DECLARE
My_MSG VARCHAR2 (4000);
P_CONCAT_SEGS VARCHAR2 (240);
CURSOR C1
IS
SELECT DISTINCT CODE FROM XX_ACCOUNT_COMBINATIONS;
BEGIN
FOR I IN C1
LOOP
BEGIN
SELECT XXX_CREATE_CCID (I.CODE) INTO P_CONCAT_SEGS FROM DUAL;
EXCEPTION
WHEN OTHERS
THEN
DBMS_OUTPUT.put_line ('NO' || SQLERRM);
END;
DBMS_OUTPUT.put_line (P_CONCAT_SEGS);
My_Msg := SQLERRM;
INSERT INTO xx_combination_error_status (code, status, ERROR_MSG)
VALUES (i.code, P_CONCAT_SEGS, My_Msg);
END LOOP;
END;
select * from xx_combination_error_status where STATUS='F'
select * from GL_CODE_COMBINATIONS_KFV
Its impressive to know something about your note on Oracle apps Course. Please do share your articles like this your articles for our awareness. Mostly we do also provide Online Training on Cub training oracle apps course.
ReplyDelete