oracle导入凭证问题解决,EBS通过接口导入凭证失败

11i和R12中提交GL import请求有点不太一样，11i中需insert GL_INTERFACE_CONTROL表，R12中通过API返回Get

11i：

-------------------------------------------------------------------------------------------------------------------------------------------------------

L_SET_OF_BOOKS_ID := FND_PROFILE.VALUE('GL_SET_OF_BKS_ID');

SELECT GL_JOURNAL_IMPORT_S.NEXTVAL INTO X_INTERFACE_RUN_ID FROM DUAL;

INSERT INTO GL_INTERFACE_CONTROL

(JE_SOURCE_NAME,

STATUS,

INTERFACE_RUN_ID,

GROUP_ID,

SET_OF_BOOKS_ID,

PACKET_ID)

VALUES

(L_SOURCE_NAME,

'S',

X_INTERFACE_RUN_ID,

P_IN_GROUP_ID,

L_SET_OF_BOOKS_ID,

NULL);

BEGIN

X_CONC_ID := FND_REQUEST.SUBMIT_REQUEST(APPLICATION => 'SQLGL',

PROGRAM     => 'GLLEZL',

DESCRIPTION => NULL,

START_TIME  => SYSDATE,

SUB_REQUEST => FALSE,

ARGUMENT1   => TO_CHAR(X_INTERFACE_RUN_ID),

ARGUMENT2   => TO_CHAR(L_SET_OF_BOOKS_ID),

ARGUMENT3   => 'N',

ARGUMENT4   => NULL,

ARGUMENT5   => NULL,

ARGUMENT6   => 'N',

ARGUMENT7   => 'N');

IF X_CONC_ID = 0 THEN

DEBUG_LOG('ID: ' || TO_CHAR(X_CONC_ID) || ' error= ' || SQLCODE || '/' ||

SQLERRM);

ELSE

DEBUG_LOG('Submitted request_id ' || x_conc_id);

COMMIT;

END IF;

------------------------------------------------------------------------------------------------------------------------------------

R12中：

------------------------------------------------------------------------------------------------------------------------------------

--Get access_set_id..starts

BEGIN

SELECT access_set_id

INTO l_access_set_id

FROM gl_access_sets

WHERE default_ledger_id = l_set_of_books_id;

EXCEPTION

WHEN no_data_found THEN

--DBMS_OUTPUT.PUT_LINE('Concurrent Request ' || LN_CONC_REQ_ID || ' not found in FND_CONCURRENT_REQUESTS ');

write_log('There is no data for set_of_book_id:' ||

l_set_of_books_id);

END;

--Get access_set_id..ends

--Get interface_run_id..starts

gl_journal_import_pkg.populate_interface_control(user_je_source_name => lv_source,

group_id => ln_group_id,

set_of_books_id => l_set_of_books_id

interface_run_id => ln_iface_run_id,

table_name => NULL,

processed_data_action => NULL);

COMMIT;

BEGIN

--Get request_id for Journal Import..starts

ln_conc_req_id := apps.fnd_request.submit_request(application => 'SQLGL', -- application short name

program => 'GLLEZL' ,  -- program short name

description => NULL ,

start_time => NULL,

sub_request => FALSE,

argument1 => ln_iface_run_id,

argument2 => l_access_set_id,

argument3 => 'N',

argument4 => NULL,

argument5 => NULL,

argument6 => 'N',

argument7 => 'N',

argument8 => 'Y'

);

COMMIT;

END;

--------------------------------------------------------------------------------------------------------------------------------------------