Поставщик Учетная Группа

[anatol33]

Уважаемые коллеги,

Возникла необходимость перенести поле "Поставщик Учетная Группа" на "Карточка Банк. Счета. Поставщика"
Это для того чтобы можно было одну карточку поставщика привязать к разным фин счетам кредиторки в зависимости от банковского счета.

Думаю добавить обработку на заказ покупки (39) и на фин журнал (81) для изменения значения из карточки поставщика на новое значение из поставщик банк счет. Насколько я посмотрел, значения этого поля можно менять в указанных таблицах.

Как Вы думаете этого будет достаточно для нормального функционирования системы?

[anatol33]

мда, а менять то многовато

Цитата:

Text-Export of : Table 23 Vendor [Fld/Cntrl/Elem.] Vendor Posting Group - Object Tree

Company : NAV
Database : Devtool

================================================================================

- Table 23 [Fld/Cntrl/Elem.] Vendor Posting Group
- Table 23 Vendor
* Key 3 "Vendor Posting Group";
- Table 38 Purchase Header
- FieldTrigger OnValidate 4 Pay-to Vendor No. [Code20]
* Vend.TESTFIELD("Vendor Posting Group");
* "Vendor Posting Group" := Vend."Vendor Posting Group";
- Table 81 Gen. Journal Line
- FieldTrigger OnValidate 4 Account No. [Code20]
* "Posting Group" := Vend."Vendor Posting Group";
- FieldTrigger OnValidate 11 Bal. Account No. [Code20]
* "Posting Group" := Vend."Vendor Posting Group";
- Table 751 Standard General Journal Line
- FieldTrigger OnValidate 4 Account No. [Code20]
* "Posting Group" := Vend."Vendor Posting Group";
- FieldTrigger OnValidate 11 Bal. Account No. [Code20]
* "Posting Group" := Vend."Vendor Posting Group";
- Report 33 Reconcile Cust. and Vend. Accs
- Procedure 3 CalcVendAccAmount(PostingGr : Code[10]) : Return : Decimal
* Vend.SETCURRENTKEY("Vendor Posting Group");
* Vend.SETRANGE("Vendor Posting Group",PostingGr);
- Procedure 7 CalcVendCreditAmount(PostingGr : Code[10] ;EntryType : Option []) : Return : Decimal
* Vend.SETCURRENTKEY("Vendor Posting Group");
* Vend.SETRANGE("Vendor Posting Group",PostingGr);
- Procedure 5 CalcVendDebitAmount(PostingGr : Code[10] ;EntryType : Option []) : Return : Decimal
* Vend.SETCURRENTKEY("Vendor Posting Group");
* Vend.SETRANGE("Vendor Posting Group",PostingGr);
- Report 393 Suggest Vendor Payments
- Local Procedure 6 SaveAmount()
* "Posting Group" := Vend2."Vendor Posting Group";
- Report 595 Adjust Exchange Rates
- Procedure 24 AdjustVendorLedgerEntry(VendLedgerEntry : Record 25;PostingDate2 : Date)
* "Currency Code",Vendor."Vendor Posting Group",
* "Currency Code",Vendor."Vendor Posting Group",
* "Currency Code",Vendor."Vendor Posting Group",
- Report 5194 Create Conts. from Vendors
- Trigger OnAfterGetRecord Dataitem 1 Table 23 Vendor
* Cont.TRANSFERFIELDS(Vendor);
- Report 8612 Create Vendor Journal Lines
- Trigger OnAfterGetRecord Dataitem 1 Table 23 Vendor
* IF Vendor."Vendor Posting Group" <> '' THEN
* IF VendorPostGrp.GET(Vendor."Vendor Posting Group") THEN BEGIN
* IF Vendor."Vendor Posting Group" <> '' THEN
* IF VendorPostGrp.GET(Vendor."Vendor Posting Group") THEN BEGIN
- Report 12451 Vendor G/L Turnover
- Trigger OnAfterGetRecord Dataitem 1 Vendor Table 23 Vendor
* IF NOT VendPostingGr.GET("Vendor Posting Group") THEN
- Report 12452 Advance Statement
- Procedure 1210001 GetDebitAccount(PurchesLineLoc : Record 39) : Return : Code[10]
* Vend.TESTFIELD(Vend."Vendor Posting Group");
* VendorPostingGroup.GET(Vend."Vendor Posting Group");
- Report 12454 Posted Advance Statement
- Procedure 1210001 GetDebitAccount(PurchesLineLoc : Record 123) : Return : Code[10]
* Vend.TESTFIELD(Vend."Vendor Posting Group");
* VendorPostingGroup.GET(Vend."Vendor Posting Group");
- Report 12465 Change Double Links
- Trigger OnAfterGetRecord Dataitem 1 Table 23 Vendor
* TmpVendor.TRANSFERFIELDS(Vend);
* TmpVendor.TRANSFERFIELDS(Vend);
* TRANSFERFIELDS(TmpVendor);
- Report 14810 Insurance Premium (App.6)
- Trigger OnPreDataItem Dataitem 1 Table 81 Gen. Journal Line
* VendorPostingGroup.SETRANGE(Code,Vendor."Vendor Posting Group");
* VendorPostingGroup.SETRANGE(Code,Vendor."Vendor Posting Group");
* VendorPostingGroup.SETRANGE(Code,Vendor."Vendor Posting Group");
* VendorPostingGroup.SETRANGE(Code,Vendor."Vendor Posting Group");
* VendorPostingGroup.SETRANGE(Code,Vendor."Vendor Posting Group");
* VendorPostingGroup.SETRANGE(Code,Vendor."Vendor Posting Group");
* VendorPostingGroup.SETRANGE(Code,Vendor."Vendor Posting Group");
* VendorPostingGroup.SETRANGE(Code,Vendor."Vendor Posting Group");
- Report 14811 Post Insurance Premium (App.6)
- Trigger OnPreDataItem Dataitem 1 Table 17 G/L Entry
* VendorPostingGroup.SETRANGE(Code,Vendor."Vendor Posting Group");
* VendorPostingGroup.SETRANGE(Code,Vendor."Vendor Posting Group");
* VendorPostingGroup.SETRANGE(Code,Vendor."Vendor Posting Group");
* VendorPostingGroup.SETRANGE(Code,Vendor."Vendor Posting Group");
* VendorPostingGroup.SETRANGE(Code,Vendor."Vendor Posting Group");
* VendorPostingGroup.SETRANGE(Code,Vendor."Vendor Posting Group");
* VendorPostingGroup.SETRANGE(Code,Vendor."Vendor Posting Group");
* VendorPostingGroup.SETRANGE(Code,Vendor."Vendor Posting Group");
- Report 14842 Spreadsheet Account
- Trigger OnAfterGetRecord Dataitem 1 Table 14821 Payroll Ledger Entry
* VendorPostingGroup.SETRANGE(Code,Vendor."Vendor Posting Group");
- Report 14843 Spreadsheet Department Account
- Trigger OnAfterGetRecord Dataitem 1 Table 14821 Payroll Ledger Entry
* VendorPostingGr.SETRANGE(Code,Vendor."Vendor Posting Group");
- Report 14902 Cash Report CO-4
- Trigger OnAfterGetRecord Dataitem 2 Table 271 Bank Account Ledger Entry
* Vendor.TESTFIELD("Vendor Posting Group");
* VendPostGroup.GET(Vendor."Vendor Posting Group");
- Report 14903 Cash Register (Month)
- Trigger OnAfterGetRecord Dataitem 2 Table 271 Bank Account Ledger Entry
* Vendor.TESTFIELD("Vendor Posting Group");
* VendPostGroup.GET(Vendor."Vendor Posting Group");
- Report 14913 Create Invent. Act Lines
- Trigger OnAfterGetRecord Dataitem 3 Table 23 Vendor
* IF NOT VendPostGroupBuffer.GET(VendLedgerEntry."Vendor Posting Group") THEN BEGIN
* VendPostGroup.GET(VendLedgerEntry."Vendor Posting Group");
- Codeunit 12 Gen. Jnl.-Post Line
- Local Procedure 13 PostVend()
* Vend.TESTFIELD("Vendor Posting Group");
* "Posting Group" := Vend."Vendor Posting Group";
- Local Procedure 14 PostBankAcc()
* Vend.TESTFIELD("Vendor Posting Group");
* CheckLedgEntry."Posting Group" := Vend."Vendor Posting Group";
- Procedure 41 VendPostApplyVendLedgEntry(VAR GenJnlLinePostApply : Record 81;VAR VendLedgEntryPostApply : Record 25)
* Vend.TESTFIELD("Vendor Posting Group");
* "Posting Group" := Vend."Vendor Posting Group";
- Procedure 1210014 PostVendVATForAdjustment(VAR GenJnlLine2 : Record 81;DtldVendLedgEntry : Record 380;VAR TempJnlLineDim2 : Record 356)
* VendPostingGr.GET(Vend."Vendor Posting Group");
- Codeunit 367 CheckManagement
- Procedure 1470002 CheckUnpostedVendor(VAR CheckLedgEntry : Record 272;VAR GenJnlLine : Record 81)
* VendPostGr.GET(Vendor."Vendor Posting Group");

================================================================================

Developer's Toolkit for Microsoft Dynamics NAV

[RedFox]

Цитата:

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

мда, а менять то многовато

Да наверное не очень много (даже из этого списка). Вам нужно для начала определиться когда и в каком месте будет подменяться одно-другим.
А потом править не долго

[Eugeny_F]

Обратите внимание на расчет курсовых разниц. При выполнении периодического задания система подхватывает учетную группу из карточки поставщика независимо от того, какая учетная группа используется в конкретной операции.

[anatol33]

Цитата:

Обратите внимание на расчет курсовых разниц. При выполнении периодического задания система подхватывает учетную группу из карточки поставщика независимо от того, какая учетная группа используется в конкретной операции.

интересно, это баг или фича?

[Eugeny_F]

Вопрос философский. Я все-таки склоняюсь к тому, что баг. В пятерке правда не проверял.

[anatol33]

Посмотрел FP2 для 5.0 SP1

Похожее реализовали для Договоров.

[RedFox]

Цитата:

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

Посмотрел FP2 для 5.0 SP1

Похожее реализовали для Договоров.

Будем надеяться, что все эти модификации над договором работают... и без фич!

[Павел Масленов]

А это последняя версия?

[anatol33]

не понятен вопрос,

последняя версия чего?

5.0 SP1 FP2 последняя версия Navision для российского рынка