销售订单行重订价

销售

DECLARE
   l_sel_rec_tbl   oe_globals.selected_record_tbl;
   l_return_status VARCHAR2(100);
   l_msg_count     NUMBER;
   l_msg_data      VARCHAR2(100);
   x_msg_data      VARCHAR2(1000);

BEGIN
   mo_global.init('ONT');
   oe_msg_pub.initialize;
   oe_debug_pub.initialize;
   fnd_global.apps_initialize(user_id      => 1170,
                              resp_id      => 50717,
                              resp_appl_id => 20005);
   l_sel_rec_tbl(1).get="_blank">id1 := 3012; --LINE_ID/HEADER_ID
   l_sel_rec_tbl(1).org_id := 82;
   oe_order_adj_pvt.price_action(p_selected_records => l_sel_rec_tbl,
                                 p_price_level      => 'LINE' --'LINE'/'ORDER'
                                ,
                                 x_return_status    => l_return_status,
                                 x_msg_count        => l_msg_count,
                                 x_msg_data         => l_msg_data);

   IF l_msg_count > 0 THEN
      FOR l_index IN 1 .. l_msg_count LOOP
         l_msg_data := oe_msg_pub.get(p_msg_index => l_index,
                                      p_encoded   => 'F');
         x_msg_data := x_msg_data || '-' || l_msg_data;
      END LOOP;
   
      dbms_output.put_line('E');
      dbms_output.put_line('l_return_status:' || l_return_status);
      dbms_output.put_line('l_msg_count:' || l_msg_count);
      dbms_output.put_line('x_msg_data:' || x_msg_data);
   
   ELSE
      dbms_output.put_line('S');
      dbms_output.put_line('l_return_status:' || l_return_status);
      dbms_output.put_line('l_msg_count:' || l_msg_count);
      dbms_output.put_line('x_msg_data:' || x_msg_data);
   END IF; -- IF l_msg_count > 0 THEN
END;

/*SELECT * FROM OE_PRICE_ADJUSTMENTS;*/



订价 订单 销售
您的回应...

相关话题

查看全部

也许你感兴趣

换一批

热门标签

更多