Nieoczekiwanie można księgować w tabeli podatku VAT w okresie podatku VAT, który jest rozliczona i zamknięta w norweskiej wersji systemu Microsoft Dynamics NAV 2009


Ten artykuł dotyczy systemu Microsoft Dynamics NAV dla ustawień regionalnych języka norweski (no).

Objawy


W tabeli podatku od wartości dodanej (VAT) można księgować w okresie podatku VAT, który jest rozliczona i nieoczekiwanie zamknięty w norweskiej wersji systemu Microsoft Dynamics NAV 2009.
Ten problem występuje w następujących produktach:
  • Norweskiej wersji systemu Microsoft Dynamics NAV 2009 R2
  • Norweskiej wersji z dodatkiem Service Pack 1 (SP1) dla systemu Microsoft Dynamics NAV 2009

Rozwiązanie


Informacje o poprawce

Obsługiwana poprawka jest obecnie udostępniana przez firmę Microsoft. Jednak to jest przeznaczona tylko do usunięcia problemu opisanego w tym artykule. Zastosuj ją tylko w systemach, w których występuje ten problem. Ta poprawka może być wciąż w fazie testowania. Jeśli dany system nie jest poważnie narażony na ten problem, firma Microsoft zaleca, aby poczekać na następny dodatek service pack dla systemu Microsoft Dynamics NAV lub następną wersję systemu Microsoft Dynamics NAV, zawierający tę poprawkę.

Uwaga W wyjątkowych przypadkach opłaty, telefonujący do pomocy technicznej mogą zostać anulowane, jeśli pomocy technicznej dla systemu Microsoft Dynamics i produktów powiązanych Określa, że określonej aktualizacji, można rozwiązać swój problem. Koszty obsługi zwykłych zastosuje się do dodatkowych pytań i problemów, których nie można rozwiązać przy użyciu określonej aktualizacji.


Informacje dotyczące instalacji

Firma Microsoft podaje przykłady programowania wyłącznie, bez jakichkolwiek gwarancji wyrażonych wprost lub domyślnie. To obejmuje, ale nie jest ograniczona, ustawowej rękojmi co do przydatności handlowej lub przydatności do określonego celu. W tym artykule założono, że użytkownik zna demonstrowany język programowania oraz narzędzia, które są używane do tworzenia i debugowania procedur. Wykwalifikowani pracownicy pomocy technicznej firmy Microsoft mogą pomóc w wyjaśnieniu, jak działa określona procedura, ale nie będą modyfikować tych przykładów ani dodawać funkcjonalności i konstruować procedur w celu zaspokojenia określonych potrzeb użytkownika.

Uwaga Przed zainstalowaniem tej poprawki należy zweryfikować, że wszyscy użytkownicy klienta Microsoft Navision są wylogowani systemu. Dotyczy to również użytkowników klienta Microsoft Navision Application Services (NAS). Powinny być użytkownika klienta, który jest zalogowany w momencie wdrożyć tę poprawkę.

Aby wdrożyć tę poprawkę, musi mieć licencję deweloperską.

Firma Microsoft zaleca, aby do konta użytkownika w oknie identyfikatorów logowania systemu Windows lub w oknie identyfikatorów logowania bazy danych być przypisany identyfikator roli "SUPER". Jeśli konto użytkownika nie można przypisać Identyfikatora roli "SUPER", należy sprawdzić, czy konto użytkownika ma następujące uprawnienia:
  • Uprawnienie Modyfikacja dla obiektu, który będzie zmieniany.
  • Uprawnienie Execute obiektu 5210 identyfikator obiektu systemu i dla obiektu 9015 identyfikator obiektu systemu .


Uwaga Nie trzeba mieć prawa do magazynów danych, chyba że konieczne jest przeprowadzenie naprawy danych.

Zmiany kodu

Uwaga Zawsze test poprawki kodu w kontrolowanym środowisku przed zastosowaniem poprawki na komputerach produkcyjnych.
Aby rozwiązać ten problem, wykonaj następujące kroki:
  1. Zmień kod w pól w tabeli ustawień użytkownika (91) w następujący sposób:
    Istniejący kod
    ...CaptionML=ENU=Purchase Resp. Ctr. Filter }
    { 5900; ;Service Resp. Ctr. Filter;Code10 ;TableRelation="Responsibility Center";
    CaptionML=ENU=Service Resp. Ctr. Filter }

    // Delete the following line.
    }

    KEYS
    {
    { ;User ID ;Clustered=Yes }
    ...
    Kod zastępczy
    ...CaptionML=ENU=Purchase Resp. Ctr. Filter }
    { 5900; ;Service Resp. Ctr. Filter;Code10 ;TableRelation="Responsibility Center";
    CaptionML=ENU=Service Resp. Ctr. Filter }

    // Add the following lines.
    { 10600; ;Application always Allowed;Boolean }
    }
    // End of the lines.

    KEYS
    {
    { ;User ID ;Clustered=Yes }
    ...
  2. Zmień kod w pól w tabeli Ustawienia księgi głównej (98) w następujący sposób:
    Istniejący kod
    ...END;

    CaptionML=ENU=Prepayment Unrealized VAT }
    { 10601; ;Non-Taxable ;Boolean ;CaptionML=ENU=Non-Taxable }
    }
    KEYS
    ...
    Kod zastępczy
    ...END;

    CaptionML=ENU=Prepayment Unrealized VAT }

    // Add the following line.
    { 10600; ;Application always Allowed;Boolean }

    { 10601; ;Non-Taxable ;Boolean ;CaptionML=ENU=Non-Taxable }
    }
    KEYS
  3. Zmień kod w formantach w formularzu Ustawienia księgi głównej (118) w następujący sposób:
    Istniejący kod 1
    ...}
    CONTROLS
    {
    // Delete the following line.
    { 1 ;TabControl ;220 ;220 ;12980;7150 ;HorzGlue=Both;

    VertGlue=Both;
    PageNamesML=ENU=General,Numbering,Dimensions,Reporting,Application }
    { 6 ;TextBox ;3850 ;990 ;1650 ;440 ;ParentControl=1;
    ...
    Kod zastępczy 1
    ...}
    CONTROLS
    {

    // Add the following line.
    { 1 ;TabControl ;220 ;220 ;12980;7700 ;HorzGlue=Both;

    VertGlue=Both;
    PageNamesML=ENU=General,Numbering,Dimensions,Reporting,Application }
    { 6 ;TextBox ;3850 ;990 ;1650 ;440 ;ParentControl=1;
    ...
    Istniejący kod 2
    ...ShowCaption=No;
    SourceExpr="Check G/L Account Usage" }
    { 69 ;Label ;440 ;5720 ;3300 ;440 ;ParentControl=60 }
    { 1080002;CheckBox ;10230;5610 ;440 ;440 ;ParentControl=1;
    InPage=0;
    ShowCaption=No;
    ...
    Kod zastępczy 2
    ...ShowCaption=No;
    SourceExpr="Check G/L Account Usage" }
    { 69 ;Label ;440 ;5720 ;3300 ;440 ;ParentControl=60 }

    // Add the following lines.
    { 1080000;CheckBox ;10230;6160 ;440 ;440 ;ParentControl=1;
    InPage=0;
    ShowCaption=No;
    SourceExpr="Application always Allowed" }
    { 1080001;Label ;6820 ;6160 ;3300 ;440 ;ParentControl=1080000;
    InPage=0 }
    // End of the lines.

    { 1080002;CheckBox ;10230;5610 ;440 ;440 ;ParentControl=1;
    InPage=0;
    ShowCaption=No;
    ...
    Istniejący kod 3
    ...SourceExpr="Non-Taxable" }
    { 1080003;Label ;6820 ;5610 ;3300 ;440 ;ParentControl=1080002;
    InPage=0 }

    // Delete the following line.
    { 82 ;TextBox ;10230;6160 ;2750 ;440 ;ParentControl=1;

    InPage=0;
    SourceExpr="Bill-to/Sell-to VAT Calc." }
    ...
    Kod zastępczy 3
    ...SourceExpr="Non-Taxable" }
    { 1080003;Label ;6820 ;5610 ;3300 ;440 ;ParentControl=1080002;
    InPage=0 }

    // Add the following line.
    { 82 ;TextBox ;10230;6710 ;2750 ;440 ;ParentControl=1;

    InPage=0;
    SourceExpr="Bill-to/Sell-to VAT Calc." }
    ...
    Istniejący kod 4
    ...InPage=0;
    SourceExpr="Bill-to/Sell-to VAT Calc." }

    // Delete the following lines.
    { 83 ;Label ;6820 ;6160 ;3300 ;440 ;ParentControl=82 }
    { 84 ;CheckBox ;10230;6710 ;440 ;440 ;ParentControl=1;
    // End of the lines.

    InPage=0;
    ShowCaption=No;
    SourceExpr="Print VAT specification in LCY" }
    ...
    Kod zastępczy 4
    ...InPage=0;
    SourceExpr="Bill-to/Sell-to VAT Calc." }

    // Add the following lines.
    { 83 ;Label ;6820 ;6710 ;3300 ;440 ;ParentControl=82 }
    { 84 ;CheckBox ;10230;7260 ;440 ;440 ;ParentControl=1;
    // End of the lines.

    InPage=0;
    ShowCaption=No;
    SourceExpr="Print VAT specification in LCY" }
    ...
    Istniejący kod 5
    ...InPage=0;
    ShowCaption=No;
    SourceExpr="Print VAT specification in LCY" }

    // Delete the following line.
    { 85 ;Label ;6820 ;6710 ;3300 ;440 ;ParentControl=84 }

    { 86 ;CheckBox ;10230;3960 ;440 ;440 ;ParentControl=1;
    InPage=0;
    ShowCaption=No;
    ...
    Kod zastępczy 5
    ...InPage=0;
    ShowCaption=No;
    SourceExpr="Print VAT specification in LCY" }

    // Add the following line.
    { 85 ;Label ;6820 ;7260 ;3300 ;440 ;ParentControl=84 }

    { 86 ;CheckBox ;10230;3960 ;440 ;440 ;ParentControl=1;
    InPage=0;
    ShowCaption=No;
    ...
    Istniejący kod 6
    ...ShowCaption=No;
    SourceExpr="Payment Tolerance Warning" }
    { 81 ;Label ;440 ;3300 ;3300 ;440 ;ParentControl=80 }

    // Delete the following line.
    { 52 ;CommandButton;3740 ;7590 ;2200 ;550 ;HorzGlue=Right;

    VertGlue=Bottom;
    Default=Yes;
    PushAction=LookupOK;
    ...
    Kod zastępczy 6
    ...ShowCaption=No;
    SourceExpr="Payment Tolerance Warning" }
    { 81 ;Label ;440 ;3300 ;3300 ;440 ;ParentControl=80 }

    // Add the following line.
    { 52 ;CommandButton;3740 ;8250 ;2200 ;550 ;HorzGlue=Right;

    VertGlue=Bottom;
    Default=Yes;
    PushAction=LookupOK;
    ...
    Istniejący kod 7
    ...Default=Yes;
    PushAction=LookupOK;
    InvalidActionAppearance=Hide }

    // Delete the following line.
    { 53 ;CommandButton;6160 ;7590 ;2200 ;550 ;HorzGlue=Right;

    VertGlue=Bottom;
    Cancel=Yes;
    PushAction=LookupCancel;
    ...
    Kod zastępczy 7
    ...Default=Yes;
    PushAction=LookupOK;
    InvalidActionAppearance=Hide }

    // Add the following line.
    { 53 ;CommandButton;6160 ;8250 ;2200 ;550 ;HorzGlue=Right;

    VertGlue=Bottom;
    Cancel=Yes;
    PushAction=LookupCancel;
    ...
    Istniejący kod 8
    ...Cancel=Yes;
    PushAction=LookupCancel;
    InvalidActionAppearance=Hide }

    // Delete the following line.
    { 54 ;CommandButton;11000;7590 ;2200 ;550 ;HorzGlue=Right;

    VertGlue=Bottom;
    PushAction=FormHelp }
    ...
    Kod zastępczy 8
    ...Cancel=Yes;
    PushAction=LookupCancel;
    InvalidActionAppearance=Hide }

    // Add the following line.
    { 54 ;CommandButton;11000;8250 ;2200 ;550 ;HorzGlue=Right;

    VertGlue=Bottom;
    PushAction=FormHelp }
    ...
    Istniejący kod 9
    ...VertGlue=Bottom;
    PushAction=FormHelp }

    // Delete the following line.
    { 42 ;MenuButton ;8580 ;7590 ;2200 ;550 ;HorzGlue=Right;

    VertGlue=Bottom;
    CaptionML=ENU=F&unctions;
    Menu=MENUITEMS
    ...
    Kod zastępczy 9
    ...VertGlue=Bottom;
    PushAction=FormHelp }

    // Add the following line.
    { 42 ;MenuButton ;8580 ;8250 ;2200 ;550 ;HorzGlue=Right;

    VertGlue=Bottom;
    CaptionML=ENU=F&unctions;
    Menu=MENUITEMS
    ...
  4. Zmień kod w formantach w formularzu Ustawienia użytkownika (119) w następujący sposób:
    Istniejący kod 1
    ...SourceExpr="User ID" }
    { 3 ;Label ;0 ;0 ;0 ;0 ;ParentControl=2;
    InColumnHeading=Yes }

    // Delete the following line.
    { 4 ;TextBox ;0 ;0 ;3011 ;0 ;ParentControl=1;

    InColumn=Yes;
    SourceExpr="Allow Posting From" }
    { 5 ;Label ;0 ;0 ;0 ;0 ;ParentControl=4;
    ...
    Kod zastępczy 1
    ...SourceExpr="User ID" }
    { 3 ;Label ;0 ;0 ;0 ;0 ;ParentControl=2;
    InColumnHeading=Yes }

    // Add the following line.
    { 4 ;TextBox ;0 ;0 ;1650 ;0 ;ParentControl=1;

    InColumn=Yes;
    SourceExpr="Allow Posting From" }
    { 5 ;Label ;0 ;0 ;0 ;0 ;ParentControl=4;
    ...
    Istniejący kod 2
    ...SourceExpr="Allow Posting From" }
    { 5 ;Label ;0 ;0 ;0 ;0 ;ParentControl=4;
    InColumnHeading=Yes }

    // Delete the following line.
    { 6 ;TextBox ;0 ;0 ;3300 ;0 ;ParentControl=1;

    InColumn=Yes;
    SourceExpr="Allow Posting To" }
    { 7 ;Label ;0 ;0 ;0 ;0 ;ParentControl=6;
    ...
    Kod zastępczy 2
    ...SourceExpr="Allow Posting From" }
    { 5 ;Label ;0 ;0 ;0 ;0 ;ParentControl=4;
    InColumnHeading=Yes }

    // Add the following line.
    { 6 ;TextBox ;0 ;0 ;1650 ;0 ;ParentControl=1;

    InColumn=Yes;
    SourceExpr="Allow Posting To" }
    { 7 ;Label ;0 ;0 ;0 ;0 ;ParentControl=6;
    ...
    Istniejący kod 3
    ...SourceExpr="Allow Posting To" }
    { 7 ;Label ;0 ;0 ;0 ;0 ;ParentControl=6;
    InColumnHeading=Yes }
    { 8 ;CheckBox ;0 ;0 ;1650 ;0 ;ParentControl=1;
    InColumn=Yes;
    SourceExpr="Register Time" }
    ...
    Kod zastępczy 3
    SourceExpr="Allow Posting To" }{ 7 ;Label ;0 ;0 ;0 ;0 ;ParentControl=6;
    InColumnHeading=Yes }

    // Add the following lines.
    { 1080000;CheckBox ;4286 ;550 ;1650 ;440 ;ParentControl=1;
    InColumn=Yes;
    ShowCaption=No;
    SourceExpr="Application always Allowed" }
    { 1080001;Label ;6160 ;330 ;3300 ;440 ;ParentControl=1080000;
    InColumnHeading=Yes }
    // End of the lines.

    { 8 ;CheckBox ;0 ;0 ;1650 ;0 ;ParentControl=1;
    InColumn=Yes;
    SourceExpr="Register Time" }
    ...
  5. Dodawanie zmiennej globalnej w dziennika gł.-codeunit Sprawdź linii (11), a następnie określ zmienną w następujący sposób:
    • Nazwa: AllowPostingInClosedVATPeriod
    • Typ danych: Boolean
  6. Zmień kod w funkcji RunCheck w dziennika gł.-codeunit Sprawdź linii (11) w następujący sposób:
    Istniejący kod
    ...IF DateNotAllowed("Posting Date") THEN
    FIELDERROR("Posting Date",Text001);

    // Delete the following line.
    VATTools.RunCheckNorwegianVAT(GenJnlLine);

    IF ("Document Date" <> 0D) THEN
    IF ("Document Date" <> NORMALDATE("Document Date")) AND
    ...
    Kod zastępczy
    ...IF DateNotAllowed("Posting Date") THEN
    FIELDERROR("Posting Date",Text001);

    // Add the following line.
    VATTools.RunCheckNorwegianVAT(GenJnlLine,AllowPostingInClosedVATPeriod);

    IF ("Document Date" <> 0D) THEN
    IF ("Document Date" <> NORMALDATE("Document Date")) AND
    ...
  7. Zmień kod w funkcji CheckPostingPeriod w dziennika gł.-codeunit Sprawdź linii (11) w następujący sposób:
    Istniejący kod
    ...OverrideDimErr := TRUE;
    END;

    BEGIN
    END.
    }
    ...
    Kod zastępczy
    ...OverrideDimErr := TRUE;
    END;

    // Add the following lines.
    PROCEDURE CheckPostingPeriod@1000000001(CheckPeriod@1080000 : Boolean);
    VAR
    AllowPosting@1080001 : Boolean;
    BEGIN
    IF CheckPeriod THEN BEGIN
    AllowPostingFrom := 0D;
    AllowPostingTo := 0D;
    AllowPostingInClosedVATPeriod := FALSE;
    END ELSE BEGIN
    AllowPosting := FALSE;
    GLSetup.GET;
    AllowPosting := GLSetup."Application always Allowed";
    IF NOT AllowPosting THEN
    IF UserSetup.GET(USERID) THEN
    AllowPosting := UserSetup."Application always Allowed";
    IF AllowPosting THEN BEGIN
    AllowPostingFrom := 0D;
    AllowPostingTo := 31129999D;
    END ELSE BEGIN
    AllowPostingFrom := 0D;
    AllowPostingTo := 0D;
    END;
    AllowPostingInClosedVATPeriod := AllowPosting;
    END;
    END;
    // End of the lines.

    BEGIN
    END.
    }
  8. Zmień kod w funkcji CustPostApplyCustLedgEntry w dziennika gł.-codeunit linii Post (12) w następujący sposób:
    Istniejący kod
    ...TempJnlLineDim.DELETEALL;
    DimMgt.CopyLedgEntryDimToJnlLineDim(LedgEntryDim,TempJnlLineDim);

    // Delete the following line.
    GenJnlCheckLine.RunCheck(GenJnlLine,TempJnlLineDim);

    InitCodeUnit;
    ...
    Kod zastępczy
    ...TempJnlLineDim.DELETEALL;
    DimMgt.CopyLedgEntryDimToJnlLineDim(LedgEntryDim,TempJnlLineDim);

    // Add the following lines.
    GenJnlCheckLine.CheckPostingPeriod(FALSE);
    GenJnlCheckLine.RunCheck(GenJnlLine,TempJnlLineDim);
    GenJnlCheckLine.CheckPostingPeriod(TRUE);
    // End of the lines.

    InitCodeUnit;
    ...
  9. Zmień kod w funkcji VendPostApplyVendLedgEntry w dziennika gł.-codeunit linii Post (12) w następujący sposób:
    Istniejący kod
    ...TempJnlLineDim.DELETEALL;
    DimMgt.CopyLedgEntryDimToJnlLineDim(LedgEntryDim,TempJnlLineDim);

    // Delete the following lines.
    //GenJnlCheckLine.CheckPostingPeriod(FALSE); // NO0005
    GenJnlCheckLine.RunCheck(GenJnlLine,TempJnlLineDim);
    //GenJnlCheckLine.CheckPostingPeriod(TRUE); // NO0005
    // End of the lines.

    InitCodeUnit;
    ...
    Kod zastępczy
    ...TempJnlLineDim.DELETEALL;
    DimMgt.CopyLedgEntryDimToJnlLineDim(LedgEntryDim,TempJnlLineDim);

    // Add the following lines.
    GenJnlCheckLine.CheckPostingPeriod(FALSE);
    GenJnlCheckLine.RunCheck(GenJnlLine,TempJnlLineDim);
    GenJnlCheckLine.CheckPostingPeriod(TRUE);
    // End of the lines.

    InitCodeUnit;
    ...
  10. Zmień kod w funkcji RunCheckNorwegianVAT w codeunit norweski narzędzia VAT (10600) w następujący sposób:
    Istniejący kod 1
    ...EXIT(VATPeriod."Period No.");
    END;

    // Delete the following line.
    PROCEDURE RunCheckNorwegianVAT@1080009(GenJnlLine@1080000 : Record 81);

    VAR
    SettledVATPeriod@1080003 : Record 10601;
    VATProdPostGrp@1080002 : Record 324;
    ...
    Kod zastępczy 1
    EXIT(VATPeriod."Period No.");END;

    // Add the following line.
    PROCEDURE RunCheckNorwegianVAT@1080009(GenJnlLine@1080000 : Record 81;VAR AllowPostingInClosedVATPeriod@1080001 : Boolean);

    VAR
    SettledVATPeriod@1080003 : Record 10601;
    VATProdPostGrp@1080002 : Record 324;
    ...
    Istniejący kod 2
    ...GLSetup@1080004 : Record 98;
    BEGIN
    WITH GenJnlLine DO BEGIN
    IF "VAT Base Amount Type" <> "VAT Base Amount Type"::Automatic THEN BEGIN
    IF ("Gen. Posting Type" = "Gen. Posting Type"::Purchase) OR
    ("Bal. Gen. Posting Type" = "Bal. Gen. Posting Type"::Purchase)
    ...
    Kod zastępczy 2
    ...GLSetup@1080004 : Record 98;
    BEGIN
    WITH GenJnlLine DO BEGIN

    // Add the following lines.
    IF AllowPostingInClosedVATPeriod THEN
    AllowPostingInClosedVATPeriod := FALSE
    ELSE
    IF SettledVATPeriod.GET(DATE2DMY("Posting Date",3),VATPeriodNo("Posting Date")) THEN
    IF SettledVATPeriod.Closed THEN
    FIELDERROR("Posting Date",STRSUBSTNO(Text005,SettledVATPeriod.Year,SettledVATPeriod."Period No."));
    // End of the lines.

    IF "VAT Base Amount Type" <> "VAT Base Amount Type"::Automatic THEN BEGIN
    IF ("Gen. Posting Type" = "Gen. Posting Type"::Purchase) OR
    ("Bal. Gen. Posting Type" = "Bal. Gen. Posting Type"::Purchase)
    ...

Wymagania wstępne

Musi mieć jedną z następujących produktów, w celu zastosowania tej poprawki:
  • Norweskiej wersji systemu Microsoft Dynamics NAV 2009 R2
  • Norweskiej wersji z dodatkiem Service Pack 1 (SP1) dla systemu Microsoft Dynamics NAV 2009

Informacje dotyczące usuwania

Nie można usunąć tej poprawki.

Stan


Firma Microsoft potwierdziła, że jest to problem występujący w produktach firmy Microsoft wymienionych w sekcji „Dotyczy”.
Uwaga Jest to artykuł " szybkiej publikacji" tworzony bezpośrednio przez organizację pomocy technicznej firmy Microsoft. Informacje zawarte w niniejszym dokumencie są dostarczane jako odpowiedź na pojawiające się problemy. W wyniku przyspieszonego udostępnienia, materiały te mogą zawierać błędy typograficzne i mogą być zmieniane w dowolnym czasie bez uprzedzenia. Zobacz Warunki użytkowania w celu uzyskania innych informacji.