如何利用Interface更新一揽子价格分段？

xhlin

这两天在R12下测试使用Interface来批量更新BPA的Price Break，但是遇到一个问题：新增价格分段没有问题，但是却无法将原有价格分段失效掉，即无法更新已有价格的END_DATE，请高手指教。

更新价格分段END_DATE的测试代码：

1. DECLARE
   
2. 
   
3.   l_iface_rec       po.po_headers_interface%ROWTYPE;
   
4. 
   
5.   l_iface_lines_rec po.po_lines_interface%ROWTYPE;
   
6. 
   
7.   l_inface_location_rec po.po_line_locations_interface%rowtype;  l_org_id  NUMBER := 81; --OU ID
   
8. 
   
9.   l_user_id NUMBER := 5433; --User ID?SysadminBEGIN  l_iface_rec.org_id := l_org_id;
   
10. 
    
11.   SELECT po_headers_interface_s.NEXTVAL
    
12. 
    
13.     INTO l_iface_rec.interface_header_id
    
14. 
    
15.     FROM dual;
    
16. 
    
17.   l_iface_rec.process_code          := 'PENDING';
    
18. 
    
19.   l_iface_rec.action                := 'UPDATE';
    
20. 
    
21.   l_iface_rec.document_type_code    := 'BLANKET';
    
22. 
    
23.   l_iface_rec.document_subtype      := NULL;
    
24. 
    
25.   l_iface_rec.document_num          := '20101101032';
    
26. 
    
27.   l_iface_rec.approval_status       := 'APPROVAL';--'INITIATE APPROVAL';
    
28. 
    
29.   l_iface_rec.vendor_id             := 50058;
    
30. 
    
31.   l_iface_rec.vendor_site_id        := 1404;
    
32. 
    
33.   l_iface_rec.interface_source_code := 'Test Only';
    
34. 
    
35.   l_iface_rec.batch_id              := 10010;  INSERT INTO po.po_headers_interface VALUES l_iface_rec;  l_iface_lines_rec.interface_header_id := l_iface_rec.interface_header_id;
    
36. 
    
37.   l_iface_lines_rec.process_code        := 'PENDING';
    
38. 
    
39.   l_iface_lines_rec.action              := 'UPDATE';
    
40. 
    
41.   l_iface_lines_rec.line_num            := 1;
    
42. 
    
43.   l_iface_lines_rec.po_line_id          := 90929;
    
44. 
    
45.   l_iface_lines_rec.shipment_num        := 1;
    
46. 
    
47.   l_iface_lines_rec.line_location_id    := 131533;
    
48. 
    
49.   l_iface_lines_rec.shipment_type       := 'PRICE BREAK';
    
50. 
    
51. 
    
52.   SELECT po_lines_interface_s.NEXTVAL
    
53. 
    
54.     INTO l_iface_lines_rec.interface_line_id
    
55. 
    
56.     FROM dual;
    
57. 
    
58.   INSERT INTO po_lines_interface VALUES l_iface_lines_rec;    l_inface_location_rec.interface_header_id := l_iface_rec.interface_header_id;
    
59. 
    
60.   l_inface_location_rec.interface_line_id   := l_iface_lines_rec.interface_line_id;
    
61. 
    
62.   l_inface_location_rec.process_code        := 'PENDING';
    
63. 
    
64.   --l_inface_location_rec.action              := 'UPDATE';
    
65. 
    
66.   l_inface_location_rec.shipment_type       := 'PRICE BREAK';
    
67. 
    
68.   l_inface_location_rec.shipment_num        := 1;
    
69. 
    
70.   l_inface_location_rec.line_location_id    := 131533;
    
71. 
    
72.   l_inface_location_rec.ship_to_organization_id := 83;
    
73. 
    
74.   l_inface_location_rec.ship_to_location_id := 142;
    
75. 
    
76.   l_inface_location_rec.start_date          := to_date('2010-10-28','yyyy/mm/dd');
    
77. 
    
78.   l_inface_location_rec.end_date            := trunc(sysdate);
    
79. 
    
80.   l_inface_location_rec.price_override      := 25.2;
    
81. 
    
82.   
    
83. 
    
84.   SELECT po_line_locations_interface_s.NEXTVAL
    
85. 
    
86.     INTO l_inface_location_rec.interface_line_location_id
    
87. 
    
88.     FROM dual;
    
89. 
    
90.   INSERT INTO po_line_locations_interface VALUES l_inface_location_rec;
    
91. 
    
92. END;

复制代码