AR 客户本月回款代码,OracleEBS代码库,德仔网

代码语言

代码分类

【OracleEBS】 AR 客户本月回款

作者:Dezai.CN / 发布于2013/1/7/ 629

function returnmoneyformula return number is
    l_receive_amount1 number;
    l_receive_amount2 number;
    returnmoney       number;
begin
    select nvl(sum(acr.functional_amount), 0) --付款
      into l_receive_amount1
      from ar_cash_receipts_v acr
     where to_char(acr.gl_date, 'YYYY-MM-DD') between
           to_char(:startdate, 'YYYY-MM-DD') and
           to_char(:enddate, 'YYYY-MM-DD')
       and acr.state != 'REVERSED'
       and acr.customer_id =
           (select a.customer_id
              from ar_customers a
             where a.customer_number = :customer_number);
    select nvl(sum(araa.amount_applied), 0) --退款
      into l_receive_amount2
      from ar_cash_receipt_history_all    acrh,
           ar_cash_receipts_all           acr,
           ar_receivable_applications_all araa
     where to_char(acrh.gl_date, 'YYYY-MM-DD') between
           to_char(:startdate, 'YYYY-MM-DD') and
           to_char(:enddate, 'YYYY-MM-DD')
       and acrh.status != 'REVERSED'
       and acr.cash_receipt_id = acrh.cash_receipt_id
       and acrh.cash_receipt_history_id = araa.cash_receipt_history_id
       and araa.applied_customer_trx_id is null
       and acrh.org_id = acr.org_id
       and araa.display = 'Y'
       and araa.status = 'ACTIVITY'
       and acr.pay_from_customer =
           (select a.customer_id
              from ar_customers a
             where a.customer_number = :customer_number);
    returnmoney := (l_receive_amount1 - l_receive_amount2);
    return nvl(returnmoney, 0);
end;

评论列表

本站所提供的代码，版权归原作者所有，若有侵犯作者版权，请与我们联系，我们将立即删除或修改。谢谢!
本站所有代码发布及提供者。

试试其它关键字

　本月回款　

同语言下

可能有用的

Dezai.CN贡献的其它代码(4037)