Müşteri > BankChequeTable

Aşağıdaki kodu çalıştırdığınızda müşterinin çekleriyle ilgili problem olduğunda veriler doğru girildiyse problemin gitmesini sağlar.

static void Bank_custTable (Args _args)
{
    BankChequeTable     BankChequeTable;
    CustTable           custTable;
    ;

    ttsbegin;

    while select forupdate custTable
        where custTable.Blocked != CustVendorBlocked::All
           && custTable.CreditMax > 1
    {
        select forupdate  sum(AmountMST) from BankChequeTable
            where BankChequeTable.Customer               == custTable.AccountNum
            &&    BankChequeTable.DocumentStatus         != LedgerTransTxt::RejectedToCust
            &&    BankChequeTable.DocumentStatus         != LedgerTransTxt::PaidCust
            &&    BankChequeTable.ETGCiroPayment         == NoYes::No;

        if(custTable.RiskAmount != BankChequeTable.AmountMST )
        {
            custTable.RiskAmount = BankChequeTable.AmountMST;
            custTable.update();
        }
    }

    ttscommit;
}