баланс кассы, р/с

[by_HT]

Спасибо конечно всем.... особое спасибо RedFoxу!
если "Account Type"::"Bank Account": то

IF GenJnlLine."Account Type" = GenJnlLine."Account Type"::"Bank Account" THEN BEGIN
 IF (BankAccount.CALCFIELDS(Balance) = TRUE) AND (BankAccount.Balance <> 0) THEN
  IF BankAccount."Min. Balance" >= BankAccount.Balance - GenJnlLine.Amount THEN ERROR(Text013);
END;

в случае "Bal. Account Type"::"Bank Account": то

IF GenJnlLine."Bal. Account Type" = GenJnlLine."Bal. Account Type"::"Bank Account" THEN BEGIN
 IF (BankAccount.CALCFIELDS(Balance) = TRUE) AND (BankAccount.Balance <> 0) THEN
  IF BankAccount."Min. Balance" >= BankAccount.Balance - GenJnlLine.Amount THEN ERROR(Text013);
END;

В случае 200 банковских счетов и 500 строк фин. журнала..... здесь я понятие и не имею что мне делать =(

[RedFox]

Цитата:

Сообщение от by_HT

Спасибо конечно всем.... особое спасибо RedFoxу!
если "Account Type"::"Bank Account": то

IF GenJnlLine."Account Type" = GenJnlLine."Account Type"::"Bank Account" THEN BEGIN
 IF (BankAccount.CALCFIELDS(Balance) = TRUE) AND (BankAccount.Balance <> 0) THEN
  IF BankAccount."Min. Balance" >= BankAccount.Balance - GenJnlLine.Amount THEN ERROR(Text013);
END;

в случае "Bal. Account Type"::"Bank Account": то

IF GenJnlLine."Bal. Account Type" = GenJnlLine."Bal. Account Type"::"Bank Account" THEN BEGIN
 IF (BankAccount.CALCFIELDS(Balance) = TRUE) AND (BankAccount.Balance <> 0) THEN
  IF BankAccount."Min. Balance" >= BankAccount.Balance - GenJnlLine.Amount THEN ERROR(Text013);
END;

Я не знаю может быть у тебя такое или нет, но в одном разделе жунала может быть несколько строк. Поэтому нужно проверять, как мне кажется, не по строчно, а суммарно по учитываемому разделу жунала.

Цитата:

В случае 200 банковских счетов и 500 строк фин. журнала..... здесь я понятие и не имею что мне делать =(

В случае, когда больше чем 1 банковских счетов - группировка и проверка каждого. При этом нужно учитывать ОБА "Account Type" и "Bal. Account Type" в одной под-проверке.
Но в таком случае лучше вынести проверку в отдельную процедуру.

P.S. Еще раз уточню - случай такой абстрактный может быть, а может и не быть