AR事务处理金额获取

DECLARE
– Local variables here
i INTEGER;
x_line_original NUMBER;
x_line_remaining NUMBER;
x_tax_original NUMBER;
x_tax_remaining NUMBER;
x_freight_orginal NUMBER;
x_freight_remaining NUMBER;
x_charges_original NUMBER;
x_charges_remaining NUMBER;
x_total_original NUMBER;
x_total_remaining NUMBER;
BEGIN
– Test statements here
mo_global.init(‘AR’);
mo_global.set_policy_context(‘S’,
262);
arp_bal_util.get_summary_trx_balances(p_customer_trx_id => 677227,
p_open_receivables_flag => NULL,
p_line_original => x_line_original, – 原始
p_line_remaining => x_line_remaining, –余额
p_tax_original => x_tax_original, – 原始
p_freight_original => x_freight_orginal, – 原始
p_freight_remaining => x_freight_remaining, –余额
p_tax_remaining => x_tax_remaining, –余额
p_charges_original => x_charges_original, – 原始
p_charges_remaining => x_charges_remaining, –余额
p_total_original => x_total_original, – 原始
p_total_remaining => x_total_remaining –余额
);

dbms_output.put_line(‘x_line_original:’ || x_line_original); –行
dbms_output.put_line(‘x_tax_original:’ || x_tax_original); –税
dbms_output.put_line(‘x_freight_orginal:’ || x_freight_orginal); –运费
dbms_output.put_line(‘x_charges_original:’ || x_charges_original); –费用
dbms_output.put_line(‘x_total_original:’ || x_total_original); –合计
dbms_output.put_line(‘=====================================’);
dbms_output.put_line(‘x_line_remaining:’ || x_line_remaining); –行
dbms_output.put_line(‘x_tax_remaining:’ || x_tax_remaining); –税
dbms_output.put_line(‘x_freight_remaining:’ || x_freight_remaining); –运费
dbms_output.put_line(‘x_charges_remaining:’ || x_charges_remaining); –费用
dbms_output.put_line(‘x_total_remaining:’ || x_total_remaining); –合计
END;