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

来源：互联网发布：日系文艺男装淘宝店铺编辑：程序博客网时间：2024/05/17 08:08
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;
0 0