谁有GL_INTERFACE接口的写入语句?

黑枪

问个弱弱的问题...接口表具体有什么作用啊?

sandyliang

一个简单的手工插入GL凭证的代码。

/*
created by l_x_yuan@sohu.com
查找gl_interface状态错误代码
select * from fnd_lookup_values v where v.LOOKUP_TYPE='PSP_SUSP_AC_ERRORS' and v.language='ZHS';
*/

DECLARE
  l_group_id         NUMBER;
  l_interface_run_id NUMBER;
  l_req_id           NUMBER;
  l_complete_flag    BOOLEAN;
  l_session_id       NUMBER;
  l_phase            VARCHAR2(100);
  l_status           VARCHAR2(100);
  l_dev_phase        VARCHAR2(100);
  l_dev_status       VARCHAR2(100);
  l_message          VARCHAR2(1000);
BEGIN
  SELECT gl_journal_import_s.NEXTVAL INTO l_group_id FROM dual;
  SELECT gl_interface_control_s.NEXTVAL INTO l_interface_run_id FROM dual;

  fnd_global.apps_initialize(user_id           => 1046
                            ,resp_id           => 50186
                            ,resp_appl_id      => 101
                            ,security_group_id => 0);
                           
  --user_je_category_name字段取值GL_JE_CATEGORIES
  --user_je_source_name和je_source_name字段取值GL_JE_SOURCES
  INSERT INTO gl_interface
    (status, set_of_books_id, accounting_date, currency_code, date_created, created_by, actual_flag,
     user_je_category_name, user_je_source_name, currency_conversion_rate, entered_dr, entered_cr,
     code_combination_id, group_id)
  VALUES
    ('NEW', 1, to_date('20051220', 'yyyymmdd'), 'RMB', SYSDATE, 1046, 'A', '1现金凭证', '人工', 1,
     1200, NULL, 2477441, l_group_id);

  INSERT INTO gl_interface
    (status, set_of_books_id, accounting_date, currency_code, date_created, created_by, actual_flag,
     user_je_category_name, user_je_source_name, currency_conversion_rate, entered_dr, entered_cr,
     code_combination_id, group_id)
  VALUES
    ('NEW', 1, to_date('20051220', 'yyyymmdd'), 'RMB', SYSDATE, 1046, 'A', '1现金凭证', '人工', 1,
     NULL, 1200, 37807, l_group_id);

  INSERT INTO gl_interface_control
    (set_of_books_id, interface_run_id, je_source_name, group_id, status, packet_id)
  VALUES
    (1, l_interface_run_id, 'Manual', l_group_id, 'S', NULL);

  l_req_id := fnd_request.submit_request(application => 'SQLGL'
                                        ,program     => 'GLLEZL'
                                        ,description => '员工报销日记帐'
                                        ,start_time  => NULL
                                        ,sub_request => NULL
                                        ,argument1   => l_interface_run_id
                                        ,argument2   => 1
                                        ,argument3   => 'N'
                                        ,argument4   => NULL
                                        ,argument5   => NULL
                                        ,argument6   => 'N'
                                        ,argument7   => 'O');

  IF l_req_id <= 0 THEN
    fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
    fnd_message.set_token('PROCEDURE', 'CUX_GL_INTERFACE_PKG.submit_interface_import_request');
  ELSIF l_req_id > 0 THEN
    fnd_message.set_name('SQLGL', 'GL_CONC_REQUEST_SUBMITTED');
    fnd_message.set_token('REQUEST_ID', l_req_id);
    COMMIT;
    l_complete_flag := fnd_concurrent.wait_for_request(l_req_id
                                                      ,1
                                                      ,0
                                                      ,l_phase
                                                      ,l_status
                                                      ,l_dev_phase
                                                      ,l_dev_status
                                                      ,l_message);
  END IF;

END;

hphubei

最初由 镶黄旗 发布
[B]好历害呀，不仅是技术高手，而且是财务高手哇！ [/B]

高手谈不上，就是靠这个混饭吃吧，呵呵，勉强混口饭吃

zhongzhong12345

/*
created by l_x_yuan@sohu.com
查找gl_interface状态错误代码
select * from fnd_lookup_values v where v.LOOKUP_TYPE='PSP_SUSP_AC_ERRORS' and v.language='ZHS';
*/


To: sandyliang  

by l_x_yuan@sohu.com  是否為閣下？這樣精彩的 PL/SQL ，Oracle 內置包的熟練用法，佩服佩服﹗真是一山更比一山高﹗﹗﹗﹗

領教了﹗