AR 调整应收发票脚本

DECLARE

g_created_by NUMBER := fnd_global.user_id;
g_creation_date  DATE := SYSDATE;
g_last_updated_by  NUMBER := fnd_global.user_id;
g_last_updated_date DATE := SYSDATE;
g_last_updated_login  NUMBER := fnd_global.login_id;
    
l_msg_count NUMBER;
l_msg_data VARCHAR2(2000);
l_return_status VARCHAR2(30);
l_adj_rec   ar_adjustments%ROWTYPE;
l_new_adjust_number   ar_adjustments.adjustment_number%TYPE;
l_new_adjust_id   ar_adjustments.adjustment_id%TYPE;

l_error_msg  VARCHAR2(2000);
BEGIN
 
  mo_global.init('AR');
  mo_global.set_policy_context('S',101);
  fnd_global.apps_initialize(user_id      => 1330,
                                              resp_id      => 50838,
                                              resp_appl_id => 20004);
                                  
   l_adj_rec.created_by := g_created_by;
   l_adj_rec.creation_date := g_creation_date;
   l_adj_rec.last_updated_by := g_last_updated_by;
   l_adj_rec.last_update_date := g_last_updated_date;
   l_adj_rec.last_update_login := g_last_updated_login;
   
   l_adj_rec.amount :=  100;
   l_adj_rec.apply_date := TRUNC(SYSDATE);
   l_adj_rec.gl_date := TRUNC(SYSDATE);
   l_adj_rec.set_of_books_id := 2021;
   l_adj_rec.code_combination_id := 7003;
   l_adj_rec.type := 'LINE';
   l_adj_rec.status := 'A'; --'W'等待审批 ，'A' 审批
   l_adj_rec.customer_trx_id := 13008;
   l_adj_rec.payment_schedule_id := '13029';--计划付款表ID
   l_adj_rec.receivables_trx_id := '1003';--收款类型
   l_adj_rec.created_from  := 'ARXTWADJ';  
                                            
  ar_adjust_pub.create_adjustment (
          p_api_name    => 'AR_ADJUST_PUB',
          p_api_version   => 1.0,
          p_init_msg_list => fnd_api.g_true,
          p_commit_flag   => fnd_api.g_false,
          p_msg_count   => l_msg_count,
          p_msg_data    => l_msg_data,
          p_return_status => l_return_status,
          p_adj_rec   => l_adj_rec,
          p_new_adjust_number => l_new_adjust_number,
          p_new_adjust_id => l_new_adjust_id
           );
    dbms_output.put_line('l_msg_count := '||l_msg_count);
    dbms_output.put_line('l_msg_data := '||l_msg_data);
    dbms_output.put_line('l_return_status := '||l_return_status);
    dbms_output.put_line('l_new_adjust_number := '||l_new_adjust_number);
    dbms_output.put_line('l_new_adjust_id := '||l_new_adjust_id);
    
      IF l_msg_count = 1 THEN  
         dbms_output.put_line('error_msg_data := '||fnd_message.get);
      ELSE
      FOR I IN 1 .. l_msg_count LOOP
             l_error_msg:=  substr(fnd_msg_pub.get(p_encoded => fnd_api.g_false), 1, 255);
             dbms_output.put_line('l_error_msg := '||l_error_msg);
      END LOOP;     
      END IF;
END ;

--应收账款经理 -> 设置 -> 审批限额 设置用户审批权限
--当用户权限不足时候，生生的调整账单是未审批的