客户信用额度

SalesTable下新建方法

void custCreditLimit(CustAccount _custAccount)
{
    CustCreditLimit custCreditLimit;
    AmountMST       balance;
    AmountMST       orderBalance;
    CustTable       custTable;
    Amount          amount,creditAmount;
    SalesLine       salesLine;
    boolean         ret = true;
    ;

    custTable = CustTable::find(_custAccount);

    while select salesLine where salesLine.CustAccount == custTable.AccountNum
    {
        amount = amount + (salesLine.RemainSalesPhysical / salesLine.SalesQty) * salesLine.CurrencyTaxInclusiveAmount;
    }

    if(!amount)
    {
        ret = false;
        amount = 100;
    }
    custCreditLimit = CustCreditLimit::construct(custTable);
    CustCreditLimit.addAmountMST(amount);
    CustCreditLimit.typeOfCreditMaxCheck(CustParameters::find().CreditMaxCheck);
    CustCreditLimit.warning(CustParameters::find().CreditLineError == CreditLineErrorType::Warning);

    [balance, orderBalance] = custCreditLimit.balance();

    if(ret)
    {
        creditAmount = custTable.CreditMax - balance - orderBalance;
    }
    else
    {
        creditAmount = custTable.CreditMax - balance;
    }

    if(creditAmount < 0)
    {
        warning(strFmt("客户%1信用额度已超额",_custAccount));
    }

}

另参考：

public static boolean creditLimitCheck(    SalesTable         _salesTable,    boolean            _skipThrowError = false,    CustCreditMaxCheck _creditMaxCheck = CustParameters::find().CreditMaxCheck){    CustCreditLimit custCreditLimit;    boolean         ret = true;    if (CustCreditLimit::mustCheckCreditLimit(_salesTable, _creditMaxCheck))    {        custCreditLimit = CustCreditLimit::construct(_salesTable);        custCreditLimit.typeOfCreditMaxCheck(_creditMaxCheck);        if (!custCreditLimit.check())        {            if (CustParameters::find().CreditLineError == CreditLineErrorType::Error)            {                if (!_skipThrowError)                {                    throw error(strFmt("@WAX2951", _salesTable.SalesId));                }                else                {                    ret = false;                }            }        }    }    return ret;}