Lockbox（加密箱）收款导入

lin547978825

哪位高人用过 Lockbox 导入过数据，麻烦进来指点一下小弟。。。

纵横四海

我真是做过这个程序。很可惜我不能給你源代码。因为这个涉及到保密。
请问你对加密箱导入那个部分不理解？我会給你一定的指导的。如果要让我全部贴出程序，有点为难。

纵横四海

1. procedure submit_a_lockbox(p_org_id number,
   
2. p_date date,
   
3. p_file_flag varchar2,
   
4. p_lockbox_number varchar2) is
   
5. 
   
6. ---假设的传递的参数为如下情形
   
7. --- p_file_flag REC_FS001
   
8. --- p_lockbox_flag BDBJ001
   
9. --- p_date为需要导入数据的当天
   
10. 
    
11. data_file varchar2(128);
    
12. req_id number;
    
13. p_lockbox_id number;
    
14. l_save_output_flag varchar2(1);
    
15. v_phase VARCHAR2(100);
    
16. v_status VARCHAR2(100);
    
17. v_dev_phase VARCHAR2(100);
    
18. v_dev_status VARCHAR2(100);
    
19. v_message VARCHAR2(400);
    
20. v_status_code varchar2(1);
    
21. v_phase_code varchar2(1);
    
22. L_BL_RESULT BOOLEAN;
    
23. p_TRANSMISSION_NAME VARCHAR2(400);
    
24. begin
    
25. 
    
26. 
    
27. 
    
28. data_file := p_file_flag;
    
29. 
    
30. select t.lockbox_id
    
31. into p_lockbox_id
    
32. from ar_lockboxes_all t
    
33. where t.lockbox_number = p_lockbox_number;
    
34. 
    
35. 
    
36. req_id := fnd_request.submit_request('AR',
    
37. 'ARLPLB',
    
38. null,
    
39. null,
    
40. false,
    
41. ----一下为加密箱导入的参数列表
    
42. 'Y', --新建传输
    
43. null,
    
44. --传输标识
    
45. null,
    
46. --原始请求编号
    
47. --p_TRANSMISSION_NAME,
    
48. 'BDBJ_LOCKBOX' ||
    
49. to_char(sysdate, 'YYYYMMDDHH24MISS'),
    
50. 
    
51. 'Y', --提交导入
    
52. data_file, --数据文件
    
53. 'cux_ar_rec_import', --控制文件
    
54. 1000, --传输格式标识
    
55. 'Y', --提交验证
    
56. 'N', --支付无关发票
    
57. p_lockbox_id,
    
58. --加密箱id
    
59. null, --GL 日期
    
60. 'A', --报表格式
    
61. 'Y', --仅限于完全合格的批
    
62. 'Y', --提交过帐批
    
63. 'N', --别名搜索选项
    
64. 'N', --过帐部分金额或拒绝整项收款
    
65. null, --USSGL 事务处理代码
    
66. p_org_id --组织标识
    
67. );
    
68. commit;
    
69. --dbms_output.put_line('Hello!');
    
70. --cux_my_public_pkg.print('Submit Request ID = '||to_char(req_id));
    
71. if req_id IS null OR req_id = 0 then
    
72. RETURN;
    
73. END if;
    
74. L_BL_RESULT := fnd_concurrent.wait_for_request(req_id,
    
75. 1,
    
76. 0,
    
77. v_phase,
    
78. v_status,
    
79. v_dev_phase,
    
80. v_dev_status,
    
81. v_message); --then
    
82. 
    
83. if V_DEV_PHASE <> 'COMPLETE' AND V_DEV_STATUS <> 'NORMAL' then
    
84. 
    
85. print(RPAD('x_phase', 20, ' ') || '=' || v_PHASE);
    
86. print(RPAD('x_status=', 20, ' ') || '=' || v_STATUS);
    
87. print(RPAD('x_dev_phase=', 20, ' ') || '=' || v_DEV_PHASE);
    
88. print(RPAD('x_dev_status=', 20, ' ') || '=' || v_DEV_STATUS);
    
89. print(RPAD('x_message=', 20, ' ') || '=' || v_MESSAGE);
    
90. --fnd_message.set_string('REQUEST_ID ='||ln_conc_request_id||'的请求发生错误，请联系系统管理员！');
    
91. --fnd_message.error;
    
92. --raise form_trigger_failure;
    
93. end if;
    
94. 
    
95. end submit_a_lockbox;
    

复制代码

lin547978825

回复 纵横四海 的帖子

十分感谢，好像这个难度有点高，所以方案改成用API了，还是非常感谢！

纵横四海

lin547978825 发表于 2011/5/19 09:37
回复 纵横四海 的帖子

十分感谢，好像这个难度有点高，所以方案改成用API了，还是非常感谢！

API也是调用系统标准的API。API也是调用一个SQLLoader导入程序，然后后台处理。

lin547978825

回复 纵横四海 的帖子

恩，是的。

纵横四海

lin547978825 发表于 2011/5/19 10:54
回复 纵横四海 的帖子

恩，是的。

你有好的东西也分享出来吧。。。

lin547978825

回复 纵横四海 的帖子

好的，这里是我研究Lockbox的时候找的文档，希望能对用Lockbox的有帮助吧。不过是英文的，看起来挺费劲的。

dernly

虽然英语能力有限，还是好奇下来看看，我有翻译词典，嘿嘿~~~
谢谢LZ分享！！！

lijiajian

两位前辈交流，学习了，谢谢

zhuhgjava

我顶顶顶顶！

Carmen-killua

学习学习，好好学习

Carmen-killua

学习学习，好好学习

moshav

嗚嗚，沒法下載，好想看看呢！

zhenghf

学习

quroger

学习了，谢谢分享