Вернуться   Андрей Панько. Заметки про Dynamics NAV > Dynamics NAV (Navision)
Справка Пользователи Календарь Поиск Сообщения за день Все разделы прочитаны

Dynamics NAV (Navision) Заметки про Dynamics NAV (ранее Navision) и аддон LS Retail

Ответ
 
Опции темы Поиск в этой теме
  #1  
Старый 19.09.2006, 17:57
apanko apanko вне форума
Администратор
 
Регистрация: 15.08.2006
Сообщения: 1,629
Про выверку

Почитывая на досуге книги посвященные Navision, неоднократно встречал упоминание термина "выверка". Чувствуя в глубине души, что эта опция не очень актуальна, я ее игнорировал. Но сегодня решил с ней разобраться, дабы в знаниях не было пробелов.

Данная опция актуальна для финансовых счетов и финансовых журналов. Включается она в карточке счета, на закладке Общее, параметр Выверять счет. После того как опция была включена, в финансовом журнале становиться доступно окно Выверка (Ctrl+F9), точнее оно было доступно и ранее, но теперь в нем стали появляться данные. Данные в окне Выверка, это итог по строкам финансового журнала, в разрезе финасовых счетов с фильтрацией по полю "Выверять счет".

Пример:
Для счетов 50 и 51 параметр Выверять счет = Да.
Остаток на начало:
сч 50 - 200
сч 51 - 7000

Финансовый журнал содежит следующие операции
Код:
Дата |Документ|Счет|Сумма 19.08.06| Doc1 | 50 | -100 19.08.06| Doc1 | 71 | 100 19.08.06| Doc2 | 50 | 3 000 19.08.06| Doc2 | 51 | -3 000
В окне Выверка будут указаны следующие строки:
Код:
Счет | Оборот в журнале | Сумма после учета 50 | 2900 (-100+3000) | 3100 (200+2900) 51 | -3000 | 4000 (7000-3000)

Последний раз редактировалось apanko, 21.09.2006 в 13:51.
Ответить с цитированием
  #2  
Старый 21.09.2006, 13:48
apanko apanko вне форума
Администратор
 
Регистрация: 15.08.2006
Сообщения: 1,629
Фича

Замечено:
1. В выверку всегда попадают финансовые счета, у которых включена опция "Выверять счета". Причем не зависимо от того упоминаются они в указанном журнале или нет. Мягко говоря сбивает с толку.

2. В выверку попадают финасовые счета связанные с банковскими счетам через Банк Учетные группы. Но только для тех банковских счетов, которые указанны в строках журнала.

Для более корректного отображения окна Выверка предлагается в Форме 345 изменить функции:

Код:
SetGenJnlLine(NewGenJnlLine) GenJnlLine.COPY(NewGenJnlLine); Heading := GenJnlLine."Journal Batch Name"; GLAccNetChange.DELETEALL; GLAcc.SETCURRENTKEY("Reconciliation Account"); GLAcc.SETRANGE("Reconciliation Account",TRUE); IF GLAcc.FIND('-') THEN REPEAT InsertGLAccNetChange; UNTIL GLAcc.NEXT = 0; IF GenJnlLine.FIND('-') THEN REPEAT SaveNetChange( GenJnlLine."Account Type",GenJnlLine."Account No.", ROUND(GenJnlLine."Amount (LCY)" / (1 + GenJnlLine."VAT %" / 100))); SaveNetChange( GenJnlLine."Bal. Account Type",GenJnlLine."Bal. Account No.", -ROUND(GenJnlLine."Amount (LCY)" / (1 + GenJnlLine."Bal. VAT %" / 100))); UNTIL GenJnlLine.NEXT = 0; IF GLAccNetChange.FIND('-') THEN; SaveNetChange(AccType,AccNo,NetChange) IF AccNo = '' THEN EXIT; CASE AccType OF GenJnlLine."Account Type"::"Фин. Счет": IF NOT GLAccNetChange.GET(AccNo) THEN EXIT; GenJnlLine."Account Type"::"Банк. Счет": BEGIN IF AccNo <> BankAcc."No." THEN BEGIN BankAcc.GET(AccNo); BankAcc.TESTFIELD("Bank Acc. Posting Group"); BankAccPostingGr.GET(BankAcc."Bank Acc. Posting Group"); BankAccPostingGr.TESTFIELD("G/L Bank Account No."); END; AccNo := BankAccPostingGr."G/L Bank Account No."; IF NOT GLAccNetChange.GET(AccNo) THEN BEGIN GLAcc.GET(AccNo); InsertGLAccNetChange; END; END; ELSE EXIT; END; GLAccNetChange."Net Change in Jnl." := GLAccNetChange."Net Change in Jnl." + NetChange; GLAccNetChange."Balance after Posting" := GLAccNetChange."Balance after Posting" + NetChange; GLAccNetChange.MODIFY;

На

Код:
SetGenJnlLine(NewGenJnlLine) GenJnlLine.COPY(NewGenJnlLine); Heading := GenJnlLine."Journal Batch Name"; GLAccNetChange.DELETEALL; // заремировать часть кода отвечающего за добавление в окно //Выверка всех финансовых счетов с включенной опцией //"Выверять счет" // GLAcc.SETCURRENTKEY("Reconciliation Account"); // GLAcc.SETRANGE("Reconciliation Account",TRUE); // IF GLAcc.FIND('-') THEN // REPEAT // InsertGLAccNetChange; // UNTIL GLAcc.NEXT = 0; IF GenJnlLine.FIND('-') THEN REPEAT SaveNetChange( GenJnlLine."Account Type",GenJnlLine."Account No.", ROUND(GenJnlLine."Amount (LCY)" / (1 + GenJnlLine."VAT %" / 100))); SaveNetChange( GenJnlLine."Bal. Account Type",GenJnlLine."Bal. Account No.", -ROUND(GenJnlLine."Amount (LCY)" / (1 + GenJnlLine."Bal. VAT %" / 100))); UNTIL GenJnlLine.NEXT = 0; IF GLAccNetChange.FIND('-') THEN; SaveNetChange(AccType,AccNo,NetChange) IF AccNo = '' THEN EXIT; CASE AccType OF GenJnlLine."Account Type"::"Фин. Счет": IF NOT GLAccNetChange.GET(AccNo) THEN BEGIN //Вставка в окно Выверка финансовых счетов // EXIT; GLAcc.GET(AccNo); IF GLAcc."Reconciliation Account" THEN InsertGLAccNetChange ELSE EXIT; //пропускаем фин. счета у которых опция выключена END; GenJnlLine."Account Type"::"Банк. Счет": BEGIN IF AccNo <> BankAcc."No." THEN BEGIN BankAcc.GET(AccNo); BankAcc.TESTFIELD("Bank Acc. Posting Group"); BankAccPostingGr.GET(BankAcc."Bank Acc. Posting Group"); BankAccPostingGr.TESTFIELD("G/L Bank Account No."); END; AccNo := BankAccPostingGr."G/L Bank Account No."; IF NOT GLAccNetChange.GET(AccNo) THEN BEGIN GLAcc.GET(AccNo); InsertGLAccNetChange; END; END; ELSE EXIT; END; GLAccNetChange."Net Change in Jnl." := GLAccNetChange."Net Change in Jnl." + NetChange; GLAccNetChange."Balance after Posting" := GLAccNetChange."Balance after Posting" + NetChange; GLAccNetChange.MODIFY;

Примечания:
1. Из-за несколько ограниченной лицензии, проверку не проводил.
2. Грамотные разработчики добавляют флажок в соответсвующую таблицу настройка, и уже в зависимости от этого флажка отображают либо в классическом виде, либо в кастомизированном.
Ответить с цитированием
Ответ


Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения
BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.


Часовой пояс GMT +4, время: 15:52.

Контакты: e-mail, телефон: +7(926)1805967 - Архив - Вверх

Microsoft Most Valuable Professional
vBulletin v3.5.4, Copyright ©2000-2018, Jelsoft Enterprises Ltd.
Русский перевод: zCarot, Vovan & Co
Права на все материалы, опубликованные на блогофоруме принадлежат Андрею Панько, если в самом материале не указано иное.
Рейтинг@Mail.ru Rambler's Top100