使用API将AR收款不明入金转为未核销状态

使用API将AR收款不明入金转为未核销状态

DECLARE
  p_api_version               NUMBER;
  p_init_msg_list             VARCHAR2(200);
  p_commit                    VARCHAR2(200);
  p_validation_level          NUMBER;
  x_return_status             VARCHAR2(200);
  x_msg_count                 NUMBER;
  x_msg_data                  VARCHAR2(200);
  p_cash_receipt_id           NUMBER;
  p_pay_from_customer         NUMBER;
  p_comments                  VARCHAR2(200);
  p_payment_trxn_extension_id NUMBER;
  x_status                    VARCHAR2(200);
  p_customer_bank_account_id  NUMBER;
  p_count                     NUMBER;
BEGIN
  --
  fnd_global.apps_initialize(1110, 50683, 222); 
  --
  p_api_version       := 1.0;
  p_init_msg_list     := fnd_api.g_true;
  p_commit            := fnd_api.g_false;
  p_validation_level  := fnd_api.g_valid_level_full;
  p_cash_receipt_id   := 78043;
  --参数只能指定客户账户，没有提供事业所字段
  p_pay_from_customer := 1885;    --hz_cust_accounts.cust_account_id
  p_comments          := 'TEST RECEIPT_API';
  
  ar_receipt_update_api_pub.update_receipt_unid_to_unapp(p_api_version               => p_api_version,
                                                         p_init_msg_list             => p_init_msg_list,
                                                         p_commit                    => p_commit,
                                                         p_validation_level          => p_validation_level,
                                                         x_return_status             => x_return_status,
                                                         x_msg_count                 => x_msg_count,
                                                         x_msg_data                  => x_msg_data,
                                                         p_cash_receipt_id           => p_cash_receipt_id,
                                                         p_pay_from_customer         => p_pay_from_customer,
                                                         p_comments                  => p_comments,
                                                         p_payment_trxn_extension_id => p_payment_trxn_extension_id,
                                                         x_status                    => x_status,
                                                         p_customer_bank_account_id  => p_customer_bank_account_id);
  dbms_output.put_line('X_RETURN_STATUS = ' || x_return_status);
  dbms_output.put_line('X_MSG_COUNT = ' || x_msg_count);
  dbms_output.put_line('X_MSG_DATA = ' || x_msg_data);
  dbms_output.put_line('X_STATUS = ' || x_status);
  IF x_msg_count = 1 THEN
    dbms_output.put_line('l_msg_data ' || x_msg_data);
  ELSIF x_msg_count > 1 THEN
    LOOP
      p_count    := p_count + 1;
      x_msg_data := fnd_msg_pub.get(fnd_msg_pub.g_next, fnd_api.g_false);
      IF x_msg_data IS NULL THEN
        EXIT;
      END IF;
      dbms_output.put_line('Message' || p_count || ' ---' || x_msg_data);
    END LOOP;
  END IF;
END;