Записите за входяща регистрация се отпечатват неочаквано в отчета "Доставчик – баланс до дата" (321) дори ако затворите записите за входяща регистрация в рамките на датата на филтриране на отчета в шведската версия на Microsoft Dynamics NAV 2009

Отнася се за
Dynamics NAV 2009

Тази статия се отнася за Microsoft Dynamics NAV за езиково-географската променлива за шведски (se).

Симптоми

Разгледайте следния сценарий в шведската версия на Microsoft Dynamics NAV 2009:

  • Прилагате 2801885 за горещи поправки.
  • Публикувате входящ регистрационен запис за фактура за покупка за доставчик.
  • Можете да затворите записа за входяща регистрация, като публикувате фактурата за покупка.
  • Стартирате отчета "Доставчик – баланс до момента" (321) за доставчика чрез филтриране до дата, която включва както датите на публикуване на записа за входяща регистрация, така и фактурата за покупка.

В този случай записът за входяща регистрация се отпечатва неочаквано. Този проблем възниква в следните продукти:

  • Шведската версия на Microsoft Dynamics NAV 2009 R2
  • Шведската версия на Microsoft Dynamics NAV 2009 Service Pack 1

За допълнителна информация относно 2801885 за горещи поправки щракнете върху следния номер на статия, за да прегледате статията в базата знания на Microsoft:

2801885 Записите за входяща регистрация не се показват в отчета "Доставчик – баланс до дата", ако сте затворили записите за входяща регистрация на дата, която е след датата на филтриране на отчета в шведската версия на Microsoft Dynamics NAV 2009

Решение

Информация за горещи поправки

Поддържа гореща поправка вече се предлага от Microsoft. Целта му е обаче само да коригира проблема, който е описан в тази статия. Прилагайте го само към системи, които срещат този конкретен проблем. Тази гореща корекция може да бъде подложена на допълнително тестване. Ето защо, ако не сте сериозно засегнати от този проблем, ви препоръчваме да изчакате следващия сервизен пакет за Microsoft Dynamics NAV 2009 или следващата версия на Microsoft Dynamics NAV, която съдържа тази гореща корекция.

Забележка: При специални случаи таксите, които обикновено се начисляват за свързани с поддръжката разговори, могат да бъдат отменени, ако специалист по техническа поддръжка за Microsoft Dynamics и свързаните продукти реши, че проблемът може да бъде решен със специфична актуализация. Стандартните такси за поддръжката ще важат за допълнителни въпроси, свързани с нея, както и за проблеми, които не спадат към съответната актуализация.

            
          

Информация за инсталиране

Microsoft предоставя примери за програмиране само за илюстрация, без гаранция, нито изрична, или подразбираща се. Това включва, но не се ограничава до, подразбиращите се гаранции за продаваемост или годност за определена цел. В тази статия се предполага, че сте запознати с езика за програмиране, който се демонстрира, и с инструментите, които се използват за създаване и за процедури за отстраняване на грешки. Инженерите по поддръжка на Microsoft могат да ви помогнат да обяснят функционалността на дадена процедура, но няма да променят тези примери, за да предоставят допълнителна функционалност или да конструират процедури, които да отговарят на вашите конкретни изисквания.

Забележка Преди да инсталирате тази гореща корекция, уверете се, че всички потребители на клиента на Microsoft Navision са излезли от системата. Това включва потребители на клиенти на Microsoft Navision Application Services (NAS). Когато внедрявате тази гореща корекция, трябва да сте единственият клиентски потребител е влязъл.

За да приложите тази гореща корекция, трябва да имате лиценз за разработчик.

Препоръчваме на потребителския акаунт в прозореца за влизане в Windows или в прозореца за влизане в база данни да бъде присвоен ИД на роля "SUPER". Ако на потребителския акаунт не може да бъде присвоен ИД на роля "SUPER", трябва да се уверите, че този потребителски акаунт има следните разрешения:

  • Разрешението за промяна за обекта, който ще променяте.
  • Разрешението за изпълнение за обекта 5210 на системен обект с ИД 5210 и за обекта 9015 на системен обект.

                
Забележка: Не е необходимо да имате права за хранилищата за данни, освен ако не трябва да извършите поправка на данни.

Промени в кода

Забележка: Винаги тествайте корекциите на кода в контролирана среда, преди да ги приложите към производствените си компютри.
За да решите този проблем, изпълнете следните стъпки:

  1. Променете кода в секцията "Елемент на данни номер 4" в отчета "Доставчик – баланс към днешна дата" (321), както следва:
    Съществуващ код

    ...
    IF FINDSET THEN
    REPEAT
    IF Open THEN
    MARK(TRUE);
    
    // Delete the following lines.
    IF AppliedInwardRegEntry.GET("Applies-to Entry") THEN
    MARK(AppliedInwardRegEntry."Posting Date" <= MaxDate);
    // End of the lines.
    
    UNTIL NEXT = 0;
    SETCURRENTKEY("Entry No.");
    SETRANGE(Open);
    ...
    

    Код за подмяна

    ...
    IF FINDSET THEN
    REPEAT
    IF Open THEN
    MARK(TRUE);
    
    // Add the following lines.
    IF AppliedInwardRegEntry.GET("Applies-to Entry") THEN
    MARK(AppliedInwardRegEntry."Posting Date" > MaxDate);
    // End of the lines.
    
    UNTIL NEXT = 0;
    SETCURRENTKEY("Entry No.");
    SETRANGE(Open);
    ...
    
  2. Променете кода в секцията "Свойства" в кодовата единица "Покупка.-Поща" (90) както следва:
    Съществуващ код

    ...
    PurchSetup.GET;
    InwRegHeader.SETRANGE("Document Type",PurchHeader."Document Type");
    InwRegHeader.SETRANGE("Document No.",PurchHeader."No.");
    InwRegHeader.SETRANGE(Status, InwRegHeader.Status::Posted);
    
    // Delete the following lines.
    IF InwRegHeader.FIND('-') THEN
    InwRegReverse.RUN(InwRegHeader);
    // End of the lines.
    
    PurchInvHeader.INIT;
    PurchInvHeader.TRANSFERFIELDS(PurchHeader);
    IF "Document Type" = "Document Type"::Order THEN BEGIN
    PurchInvHeader."Pre-Assigned No. Series" := '';
    ...
    

    Код за подмяна

    ...
    PurchSetup.GET;
    InwRegHeader.SETRANGE("Document Type",PurchHeader."Document Type");
    InwRegHeader.SETRANGE("Document No.",PurchHeader."No.");
    InwRegHeader.SETRANGE(Status, InwRegHeader.Status::Posted);
    
    // Add the following lines.
    IF InwRegHeader.FINDFIRST THEN BEGIN
    InwRegReverse.SetPostingDate("Posting Date");
    InwRegReverse.RUN(InwRegHeader);
    END;
    // End of the lines.
    
    PurchInvHeader.INIT;
    PurchInvHeader.TRANSFERFIELDS(PurchHeader);
    IF "Document Type" = "Document Type"::Order THEN BEGIN
    PurchInvHeader."Pre-Assigned No. Series" := '';
    ...
    
  3. Променете кода в секцията "Глобални променливи" в кодовата единица "Inward Reg.-Reverse" (11203), както следва:
    Съществуващ код

    ...
    PreviousDim1Code@1070021 : Code[20];
    PreviousDim2Code@1070022 : Code[20];
    DimensionsOnTotalTrans@1070023 : Boolean;
    GenJnlCheckLine@1070024 : Codeunit 11;
    Text005@1070025 : TextConst 'ENU=is not within your range of allowed posting dates;SVE=„r inte i ditt till†tna intervall f”r bokf”ringsdatum';
    PROCEDURE MakeInwRegEntriesReverse@1070000();
    BEGIN
    IF InwRegEntry.FIND('+') THEN
    ...
    

    Код за подмяна

    ...
    PreviousDim1Code@1070021 : Code[20];
    PreviousDim2Code@1070022 : Code[20];
    DimensionsOnTotalTrans@1070023 : Boolean;
    GenJnlCheckLine@1070024 : Codeunit 11;
    Text005@1070025 : TextConst 'ENU=is not within your range of allowed posting dates;SVE=„r inte i ditt till†tna intervall f”r bokf”ringsdatum';
    
    // Add the following line.
    PostingDate@1070030 : Date;
    
    PROCEDURE MakeInwRegEntriesReverse@1070000();
    BEGIN
    IF InwRegEntry.FIND('+') THEN
    ...
    
  4. Променете кода във функцията MakeInwRegEntryReverse в кодовата единица "Inward Reg.-Reverse" (11203), както следва:
    Съществуващ код

    ...
    InwRegEntry."Entry No." := NextEntryNo;
    InwRegEntry."Applies-to Entry" := "Entry No.";
    InwRegEntry.Open := FALSE;
    InwRegEntry."Source Type" := "Source Type";
    InwRegEntry."Source No." := "Source No.";
    
    // Delete the following line.
    InwRegEntry."Posting Date" := InwHeader."Posting Date";
    
    InwRegEntry."Vendor Posting Group" := "Vendor Posting Group";
    InwRegEntry."Gen. Bus. Posting Group" := "Gen. Bus. Posting Group";
    InwRegEntry."Vendor No." := "Vendor No.";
    InwRegEntry."Document No." := "Document No.";
    InwRegEntry."Line No." := "Line No.";
    ...
    

    Код за подмяна

    ...
    InwRegEntry."Entry No." := NextEntryNo;
    InwRegEntry."Applies-to Entry" := "Entry No.";
    InwRegEntry.Open := FALSE;
    InwRegEntry."Source Type" := "Source Type";
    InwRegEntry."Source No." := "Source No.";
    
    // Add the following line.
    InwRegEntry."Posting Date" := PostingDate; 
    
    InwRegEntry."Vendor Posting Group" := "Vendor Posting Group";
    InwRegEntry."Gen. Bus. Posting Group" := "Gen. Bus. Posting Group";
    InwRegEntry."Vendor No." := "Vendor No.";
    InwRegEntry."Document No." := "Document No.";
    InwRegEntry."Line No." := "Line No.";
    ...
    

          

Предварителни изисквания

Трябва да имате инсталиран един от следните продукти, за да приложите тази гореща корекция:

  • Шведската версия на Microsoft Dynamics NAV 2009 R2
  • Шведската версия на Microsoft Dynamics NAV 2009 Service Pack 1

Информация за премахване

Не можете да премахнете тази гореща корекция.

Състояние

Microsoft потвърждава, че това е проблем в продуктите на Microsoft, които са изброени в раздела „Важи за“.

Забележка: Това е статия "FAST PUBLISH", създадена директно от организацията за поддръжка на Microsoft. Информацията, съдържаща се тук, е предоставена както е в отговор на възникващи проблеми. В резултат на бързината на предоставянето им, материалите могат да включват печатни грешки и могат да бъдат коригирани по всяко време без предизвестие. Вижте условията на използване за други съображения.