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

[RedFox]

Цитата:

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

Вроде все должно выглядеть так:

IF GenJnlLine."Bal. Account Type"= Acc::"Bank Account" THEN GenJnlLine."Bal. Account Type" :=4;
 IF GenJnlLine."Bal. Account Type"=4 THEN BEGIN
   IF BankAccount.FIND('-') THEN

Первая строчка для меня малеха не понятно. Так как таблица 270 "Bank Account" имеет первичный ключ "Account No" (а это рано "Account No" и "Bal. Account No"), то лучше использовать GET и это будет гораздо быстрее работать, чем фильтр в любой версии.

Цитата:

	REPEAT
	  IF BankAccount."No." =  GenJnlLine."Bal. Account No." THEN
	  if BankAccount."Min. Balance" > BankAccount.Balance - GenJnlLine.Amount THEN EXIT;
	UNTIL BankAccount.NEXT =0;
END;

EXIT не очень удачная конструкция в данному случае. ЛУчше использовать ERROR - и транзакцию прерывает (а не просто выходит!!!! из CU) и информативное сообщение можно пользователю послать ;-)

Цитата:

вот только я не пойму почему при любых значениях поле BankAccount.Balance принимает значение 0 ?!

Тип поля - FlowField. Нужно вызывать CALCFIELD вроде как

[by_HT]

Цитата:

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

Первая строчка для меня малеха не понятно. Так как таблица 270 "Bank Account" имеет первичный ключ "Account No" (а это рано "Account No" и "Bal. Account No"), то лучше использовать GET и это будет гораздо быстрее работать, чем фильтр в любой версии.

IF GenJnlLine."Bal. Account Type"=4 THEN BEGIN

Этим я хотел узнать правдо ли у нас Bal. Account Type имеет значение: Bank Account.
а этой строкой:

IF GenJnlLine."Bal. Account Type"= Acc::"Bank Account" THEN GenJnlLine."Bal. Account Type" :=4;

Я присваеваю значение...
Буду очень рад, если ты напишешь, как это сделать гораздо правельней!
Я так и не разобрался с Get.

Цитата:

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

EXIT не очень удачная конструкция в данному случае. ЛУчше использовать ERROR - и транзакцию прерывает (а не просто выходит!!!! из CU) и информативное сообщение можно пользователю послать ;-)

ясно..спасиб!

Цитата:

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

Тип поля - FlowField. Нужно вызывать CALCFIELD вроде как

Ого, я и не мог предположить... =(

Пока у меня выходит так:

IF GenJnlLine."Bal. Account Type"= Acc::"Bank Account" THEN GenJnlLine."Bal. Account Type" :=4;
 IF GenJnlLine."Bal. Account Type"=4 THEN BEGIN
  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;
END;

[apanko]

Цитата:

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

IF GenJnlLine."Bal. Account Type"=4 THEN BEGIN

Этим я хотел узнать правдо ли у нас Bal. Account Type имеет значение: Bank Account.
а этой строкой:

IF GenJnlLine."Bal. Account Type"= Acc::"Bank Account" THEN GenJnlLine."Bal. Account Type" :=4;

Я присваеваю значение...

GenJnlLine."Bal. Account Type"=4 это ОС. Поля типа Option считаются с 0, а не с 1.
Смысл присваивания действительно не ясен. Чтобы убедиться в том, что счет правильного типа достаточно:

IF GenJnlLine."Bal. Account Type"=GenJnlLine."Bal. Account Type"::"Bank Account" THEN

Что касается GET

IF BankAccount.GET(GenJnlLine."Bal. Account No." ) THEN

PS
Документация Где найти документацию?
Книги книги по Navision