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

[by_HT]

RedFox Я сделал как ты указал в 11 кодеюните =))
Мне хватило 6 строк:

  IF BankAccount.FIND('-') THEN
   REPEAT
	IF BankAccount."No." =  GenJnlLine."Bal. Account No." THEN
	 IF (BankAccount.CALCFIELDS(Balance) = TRUE) AND (BankAccount.Balance <> 0) THEN
	  IF BankAccount."Min. Balance" >= BankAccount.Balance - GenJnlLine.Amount THEN ERROR(Text010);
   UNTIL BankAccount.NEXT =0;