Open Inerface最简单例子（导入本位币日记帐）（11.5.10.2 PROD环境测试通过）

脚本如下：

DECLARE
  l_iface_rec             gl_interface%ROWTYPE;
  l_request_id            NUMBER;
  l_set_of_books_id       NUMBER := 1001;
  l_user_je_source_name   gl_je_sources_tl.user_je_source_name%TYPE := 'Purchasing';
  l_user_je_category_name gl_je_categories_tl.user_je_category_name%TYPE := 'Purchases';
  l_je_source_name        gl_je_sources_tl.je_source_name%TYPE;
  l_interface_run_id      NUMBER;

BEGIN

  fnd_global.apps_initialize(user_id => 1110, resp_id => 50237, resp_appl_id => 20003);

  SELECT gl_interface_control_s.NEXTVAL INTO l_iface_rec.group_id FROM dual;
  l_iface_rec.status                := 'NEW';
  l_iface_rec.set_of_books_id       := l_set_of_books_id;
  l_iface_rec.accounting_date       := SYSDATE;
  l_iface_rec.date_created          := SYSDATE;
  l_iface_rec.created_by            := fnd_global.user_id;
  l_iface_rec.actual_flag           := 'A';
  l_iface_rec.user_je_source_name   := l_user_je_source_name;
  l_iface_rec.user_je_category_name := l_user_je_category_name;
  l_iface_rec.reference1            := 'Reference1';
  l_iface_rec.reference2            := 'Reference2';
  l_iface_rec.reference5            := 'Reference5';
  l_iface_rec.reference10           := 'Reference10';
  l_iface_rec.currency_code         := 'CNY';

  --dr
  l_iface_rec.code_combination_id := 1037;
  l_iface_rec.entered_dr          := 100;
  l_iface_rec.accounted_dr        := 100;
  l_iface_rec.entered_cr          := NULL;
  l_iface_rec.accounted_cr        := NULL;
  INSERT INTO gl_interface VALUES l_iface_rec;

  --cr
  l_iface_rec.code_combination_id := 1033;
  l_iface_rec.entered_dr          := NULL;
  l_iface_rec.accounted_dr        := NULL;
  l_iface_rec.entered_cr          := 100;
  l_iface_rec.accounted_cr        := 100;
  INSERT INTO gl_interface VALUES l_iface_rec;

  --submit request
  SELECT MAX(jes.je_source_name)
    INTO l_je_source_name
    FROM gl_je_sources_vl jes
   WHERE jes.user_je_source_name = l_user_je_source_name;

  SELECT gl_interface_control_s.NEXTVAL INTO l_interface_run_id FROM dual;

  INSERT INTO gl_interface_control
    (je_source_name, group_id, interface_run_id, set_of_books_id, status)
  VALUES
    (l_je_source_name, l_iface_rec.group_id, l_interface_run_id, l_set_of_books_id, 'S');

  l_request_id := fnd_request.submit_request('SQLGL',
                                             'GLLEZL',
                                             '',
                                             to_char(SYSDATE, 'YYYY/MM/DD HH24:MI:SS'),
                                             FALSE,
                                             l_interface_run_id,
                                             l_set_of_books_id,
                                             'N',
                                             NULL,
                                             NULL,
                                             'N',
                                             'O',
                                             chr(0));

  COMMIT;
  dbms_output.put_line('Request ID ' || l_request_id);
END;