Ten artykuł dotyczy funkcji Microsoft Dynamics NAV dla ustawień regionalnych języka polskiego (pl).
Objawy
Załóżmy, że w polskiej wersji programu Microsoft Dynamics NAV 2009 R2 jest księgowana nota kredytowa ze sprzedaży zawierająca odroczony podatek VAT. Podczas próby zrealizowania podatku VAT w oknie dialogowym Arkusz aplikacji vat pojawia się następujący komunikat o błędzie:
Uwaga
W tym miejscu nie można obsłużyć odroczonego podatku VAT dla faktury korygującej sprzedaży.
Rozwiązanie
Informacje dotyczące poprawek
Obsługiwana poprawka jest teraz dostępna od firmy Microsoft. Jednak jego celem jest tylko naprawienie problemu opisanego w tym artykule. Zastosuj ją tylko do systemów, w których występuje ten konkretny problem. Ta poprawka może wymagać dodatkowych testów. Dlatego jeśli ten problem cię nie dotyczy poważnie, zalecamy poczekanie na kolejny dodatek Service Pack dla oprogramowania Microsoft Dynamics NAV 2009 lub następną wersję microsoft Dynamics NAV zawierającą tę poprawkę.
Uwaga W specjalnych przypadkach opłaty, które zwykle naliczane są w związku z połączeniami pomocy technicznej, mogą zostać anulowane, jeśli specjalista pomocy technicznej w zakresie oprogramowania Microsoft Dynamics i produktów pokrewnych ustali, że określona aktualizacja rozwiąże problem. Typowe koszty pomocy technicznej będą miały zastosowanie do dodatkowych pytań dotyczących pomocy technicznej i problemów, które nie kwalifikują się do określonej aktualizacji.
Informacje o instalacji
Firma Microsoft udostępnia przykłady programowania wyłącznie w celach ilustracyjnych, bez gwarancji wyrażonej lub dorozumianej. To obejmuje między innymi dorozumiane gwarancje przydatności handlowej lub przydatności do określonego celu. W tym artykule założono, że znasz język programowania, który jest demonstrowany, oraz narzędzia, które są używane do tworzenia i debugowania procedur. Inżynierowie pomocy technicznej firmy Microsoft mogą pomóc w objaśnieniu funkcjonalności określonej procedury, ale nie zmodyfikują tych przykładów w celu zapewnienia dodatkowych funkcji ani skonstruowania procedur spełniających określone wymagania.
Uwaga Przed zainstalowaniem tej poprawki sprawdź, czy wszyscy użytkownicy klienckich usługi Microsoft Navision wylogowali się z systemu. Dotyczy to również użytkowników klienckich usług Microsoft Navision Application Services (NAS). Należy być jedynym użytkownikiem klienckim, który jest zalogowany podczas implementowania tej poprawki.
Aby zaimplementować tę poprawkę, musisz mieć licencję dewelopera.
Zalecamy przypisanie do konta użytkownika w oknie Logowania systemu Windows lub w oknie Logowania bazy danych identyfikator roli "SUPER". Jeśli do konta użytkownika nie można przypisać identyfikatora roli "SUPER", należy sprawdzić, czy konto użytkownika ma następujące uprawnienia:
- Uprawnienie Modyfikuj dla obiektu, który ma zostać zmieniony.
- Uprawnienie Execute dla obiektu System Object ID 5210 i obiektu System Object ID 9015.
Uwaga Nie musisz mieć praw do magazynów danych, chyba że musisz wykonać naprawę danych.
Zmiany kodu
Uwaga Przed zastosowaniem poprawek do komputerów produkcyjnych należy zawsze testować poprawki kodu w środowisku kontrolowanym.
Aby rozwiązać ten problem, wykonaj następujące czynności:
Usuń następujące parametry z funkcji RealizePostponedVAT z genu. Koder-dekoder Jnl.-Post Line (12):
- TransactionNo
- VATEntryNo
- VAR TempJnlLineDim2
Dodaj nowy parametr w funkcji RealizePostponedVAT w gen. Jnl.-Post Line codeunit (12), a następnie określ parametr w następujący sposób:
- Nazwa: VATEntry
- DataType: Record (Typ danych): Record (Typ danych): Record (Rejestru
- Podtyp: Wpis VAT (254)
Zmień kod w funkcji RealizePostponedVAT w gen. Koder-dekoder Jnl.-Post Line (12) w następujący sposób:
Istniejący kod 1... GenJnlLine.COPY(GenJnlLine2); // Delete the following lines. TempJnlLineDim.RESET; TempJnlLineDim.DELETEALL; DimMgt.CopyJnlLineDimToJnlLineDim(TempJnlLineDim2,TempJnlLineDim); // End of the lines. GLSetup.GET; SourceCodeSetup.GET; ...Kod zastępczy 1
... GenJnlLine.COPY(GenJnlLine2); // Add the following line. PreparePostponedVATDim(VATEntry,TempJnlLineDim); GLSetup.GET; SourceCodeSetup.GET; ...Istniejący kod 2
... InitCodeUnit; // Delete the following lines. VATEntryNoToRealize := VATEntryNo; IF GenJnlLine."Account Type" = GenJnlLine."Account Type"::Customer THEN BEGIN CustLedgEntry."Transaction No." := TransactionNo; // End of the lines. CustUnrealizedVAT(CustLedgEntry,GenJnlLine.Amount) END ELSE BEGIN ...Kod zastępczy 2
... InitCodeUnit; // Add the following lines. VATEntryNoToRealize := VATEntry."Entry No."; IF GenJnlLine."Account Type" = GenJnlLine."Account Type"::Customer THEN BEGIN CustLedgEntry."Transaction No." := VATEntry."Transaction No."; //End of the lines. CustUnrealizedVAT(CustLedgEntry,GenJnlLine.Amount) END ELSE BEGIN ...Istniejący kod 3
... CustUnrealizedVAT(CustLedgEntry,GenJnlLine.Amount) END ELSE BEGIN // Delete the following line. VendLedgEntry."Transaction No." := TransactionNo; VendUnrealizedVAT(VendLedgEntry,GenJnlLine.Amount); END; VATEntryNoToRealize := 0; ...Kod zastępczy 3
... CustUnrealizedVAT(CustLedgEntry,GenJnlLine.Amount) END ELSE BEGIN // Add the following line. VendLedgEntry."Transaction No." := VATEntry."Transaction No."; VendUnrealizedVAT(VendLedgEntry,GenJnlLine.Amount); END; VATEntryNoToRealize := 0; ...Usuń następujące parametry z funkcji ReversePostponedVAT z genu. Koder-dekoder Jnl.-Post Line (12):
- TransactionNo
- VATEntryNo
- VAR TempJnlLineDim2
Dodaj nowy parametr w funkcji ReversePostponedVAT w podaniu genu. Jnl.-Post Line codeunit (12), a następnie określ parametr w następujący sposób:
- Nazwa: PostponedVATEntry
- DataType: Record (Typ danych): Record (Typ danych): Record (Rejestru
- Podtyp: Wpis VAT (254)
Zmień kod w funkcji ReversePostponedVAT w genie. Koder-dekoder Jnl.-Post Line (12) w następujący sposób:
Istniejący kod 1... GenJnlLine.COPY(GenJnlLine2); // Delete the following lines. TempJnlLineDim.RESET; TempJnlLineDim.DELETEALL; DimMgt.CopyJnlLineDimToJnlLineDim(TempJnlLineDim2,TempJnlLineDim); // End of the lines. SourceCodeSetup.GET; GenJnlLine."Source Code" := SourceCodeSetup.Reversal; ...Kod zastępczy 1
... GenJnlLine.COPY(GenJnlLine2); // Add the following lines. PreparePostponedVATDim(PostponedVATEntry,TempJnlLineDim); //End of the lines. SourceCodeSetup.GET; GenJnlLine."Source Code" := SourceCodeSetup.Reversal; ...Istniejący kod 2
... VATEntry.LOCKTABLE; UnrealVATEntry.SETCURRENTKEY("Transaction No."); // Delete the following lines. IF VATEntryNo <> 0 THEN UnrealVATEntry.SETRANGE("Entry No.",VATEntryNo) ELSE UnrealVATEntry.SETRANGE("Transaction No.",TransactionNo); // End of the lines. IF UnrealVATEntry.FINDSET(TRUE) THEN REPEAT VATEntry.SETCURRENTKEY("Unrealized VAT Entry No."); ...Kod zastępczy 2
... VATEntry.LOCKTABLE; UnrealVATEntry.SETCURRENTKEY("Transaction No."); // Add the following lines. IF PostponedVATEntry."Entry No." <> 0 THEN UnrealVATEntry.SETRANGE("Entry No.",PostponedVATEntry."Entry No.") ELSE UnrealVATEntry.SETRANGE("Transaction No.",PostponedVATEntry."Transaction No."); //End of the lines. IF UnrealVATEntry.FINDSET(TRUE) THEN REPEAT VATEntry.SETCURRENTKEY("Unrealized VAT Entry No."); ...Utwórz nową funkcję PreparePostponedVATDim w gen. Koder-dekoder Jnl.-Post Line (12) w następujący sposób:
LOCAL PROCEDURE PreparePostponedVATDim@1170010(VATEntry@1170003 : Record 254;VAR TempJnlLineDim@1170000 : Record 356); VAR GLEntryVATEntryLink@1170002 : Record 253; LedgEntryDim@1170001 : Record 355; BEGIN TempJnlLineDim.RESET; TempJnlLineDim.DELETEALL; IF VATEntry.GetCVLedgEntryNo(TempJnlLineDim) = 0 THEN BEGIN GLEntryVATEntryLink.SETRANGE("VAT Entry No.",VATEntry."Entry No."); IF GLEntryVATEntryLink.FINDFIRST THEN BEGIN LedgEntryDim.SETRANGE("Table ID",DATABASE::"G/L Entry"); LedgEntryDim.SETRANGE("Entry No.",GLEntryVATEntryLink."G/L Entry No."); DimMgt.CopyLedgEntryDimToJnlLineDim(LedgEntryDim,TempJnlLineDim); END; END; END;Zmień kod w funkcji PostponeVATEntry w koderze vatmanagement (12376) w następujący sposób:
Istniejący kod... VATEntry.TESTFIELD("Postponed VAT",FALSE); VATEntry.TESTFIELD("Unrealized VAT Entry No.",0); IF NOT AllowSalesCrMemo AND // Delete the following lines. (VATEntry."Unrealized Base" <> 0) AND (VATEntry.Type = VATEntry.Type::Sale) AND (VATEntry."Document Type" = VATEntry."Document Type"::"Credit Memo") // End of the lines. THEN ERROR(Text010); UNTIL VATEntry.NEXT = 0 ...Kod zastępczy
... VATEntry.TESTFIELD("Postponed VAT",FALSE); VATEntry.TESTFIELD("Unrealized VAT Entry No.",0); IF NOT AllowSalesCrMemo AND // Add the following line. IsPostponedSalesCrMemoVAT(VATEntry) AND HasPostedCrMemo(VATEntry."Document No.") THEN ERROR(Text010); UNTIL VATEntry.NEXT = 0 ...Zmień kod w funkcji RealizeVATEntry w koderze VATManagement (12376) w następujący sposób:
Istniejący kod... VATEntry.TESTFIELD("Postponed VAT",TRUE); VATEntry.TESTFIELD("Unrealized VAT Entry No.",0); IF NOT AllowSalesCrMemo AND // Delete the following lines. (VATEntry."Unrealized Base" <> 0) AND (VATEntry.Type = VATEntry.Type::Sale) AND (VATEntry."Document Type" = VATEntry."Document Type"::"Credit Memo") // End of the lines. THEN ERROR(Text010); UNTIL VATEntry.NEXT = 0 ...Kod zastępczy
... VATEntry.TESTFIELD("Postponed VAT",TRUE); VATEntry.TESTFIELD("Unrealized VAT Entry No.",0); IF NOT AllowSalesCrMemo AND // Add the following line. IsPostponedSalesCrMemoVAT(VATEntry) AND HasPostedCrMemo(VATEntry."Document No.") THEN ERROR(Text010); UNTIL VATEntry.NEXT = 0 ...Usuń następujące zmienne lokalne w funkcji PostUnrealVAT z kodera-dekodera VATZarządzanie (12376):
- TempJnlLineDim
- EntryNo
Zmień kod w funkcji PostUnrealVAT w kodenitzie VATManagement (12376) w następujący sposób:
Istniejący kod... ERROR(Text011, VATEntry.FIELDCAPTION("Posting Date"),VATEntry."Posting Date", VATEntry.FIELDCAPTION("Entry No."),VATEntry."Entry No."); // Delete the following lines. EntryNo := VATEntry.GetCVLedgEntryNo(TempJnlLineDim); IF EntryNo <> 0 THEN BEGIN GenJnlLine."Document Type" := VATEntry."Document Type"; GenJnlLine."Document No." := VATEntry."Document No."; GenJnlLine."Postponed VAT" := TRUE; GenJnlLine."VAT Date" := VATDate; GenJnlLine."Posting Date" := VATDate; IF VATEntry."Postponed VAT" THEN GenJnlLine.Description := Text008 ELSE GenJnlLine.Description := Text009; GenJnlLine.Description := COPYSTR( STRSUBSTNO(GenJnlLine.Description,VATEntry."Document Type",VATEntry."Document No."), 1,MAXSTRLEN(GenJnlLine.Description)); GenJnlLine."System-Created Entry" := TRUE; CASE VATEntry.Type OF VATEntry.Type::Sale: GenJnlLine."Account Type" := GenJnlLine."Account Type"::Customer; VATEntry.Type::Purchase: GenJnlLine."Account Type" := GenJnlLine."Account Type"::Vendor; END; IF Type = Type::Realize THEN PostGenJnlLine.RealizePostponedVAT(GenJnlLine,VATEntry."Transaction No.",VATEntry."Entry No.",TempJnlLineDim) ELSE // Reverse PostGenJnlLine.ReversePostponedVAT(GenJnlLine,VATEntry."Transaction No.",VATEntry."Entry No.",TempJnlLineDim); END; // End of the lines. ...Kod zastępczy
... ERROR(Text011, VATEntry.FIELDCAPTION("Posting Date"),VATEntry."Posting Date", VATEntry.FIELDCAPTION("Entry No."),VATEntry."Entry No."); // Add the following lines. GenJnlLine."Document Type" := VATEntry."Document Type"; GenJnlLine."Document No." := VATEntry."Document No."; GenJnlLine."Postponed VAT" := TRUE; GenJnlLine."VAT Date" := VATDate; GenJnlLine."Posting Date" := VATDate; IF VATEntry."Postponed VAT" THEN GenJnlLine.Description := Text008 ELSE GenJnlLine.Description := Text009; GenJnlLine.Description := COPYSTR( STRSUBSTNO(GenJnlLine.Description,VATEntry."Document Type",VATEntry."Document No."), 1,MAXSTRLEN(GenJnlLine.Description)); GenJnlLine."System-Created Entry" := TRUE; CASE VATEntry.Type OF VATEntry.Type::Sale: GenJnlLine."Account Type" := GenJnlLine."Account Type"::Customer; VATEntry.Type::Purchase: GenJnlLine."Account Type" := GenJnlLine."Account Type"::Vendor; END; IF Type = Type::Realize THEN PostGenJnlLine.RealizePostponedVAT(GenJnlLine,VATEntry) ELSE // Reverse PostGenJnlLine.ReversePostponedVAT(GenJnlLine,VATEntry); //End of the lines. ...Utwórz nową funkcję HasPostedCrMemo w koderze VATManagement (12376) w następujący sposób:
LOCAL PROCEDURE HasPostedCrMemo@1170007(DocumentNo@1170000 : Code[20]) : Boolean; VAR SalesCrMemoHeader@1170001 : Record 114; BEGIN EXIT(SalesCrMemoHeader.GET(DocumentNo)); END;Utwórz nową funkcję IsPostponedSalesCrMemoVAT w koderze VATManagement (12376) w następujący sposób:
LOCAL PROCEDURE IsPostponedSalesCrMemoVAT@1170008(VATEntry@1170000 : Record 254) : Boolean; BEGIN EXIT( (VATEntry."Unrealized Base" <> 0) AND (VATEntry.Type = VATEntry.Type::Sale) AND (VATEntry."Document Type" = VATEntry."Document Type"::"Credit Memo")); END;
Wymagania wstępne
Aby zastosować tę poprawkę, musisz mieć zainstalowaną polską wersję oprogramowania Microsoft Dynamics NAV 2009 R2.
Informacje o usunięciu
Nie można usunąć tej poprawki.
Stan
Firma Microsoft potwierdziła, że jest to problem dotyczący produktów firmy Microsoft wymienionych w sekcji „Dotyczy”.
Uwaga Jest to artykuł "SZYBKIE PUBLIKOWANIE" utworzony bezpośrednio z poziomu organizacji pomocy technicznej firmy Microsoft. Informacje zawarte w niniejszym artykule są dostarczane w stanie odpowiadającym na pojawiające się problemy. Ze względu na szybkość jego udostępnienia materiały mogą zawierać błędy typograficzne i mogą zostać poprawione w dowolnym momencie bez powiadomienia. Zobacz Warunki użytkowania , aby zapoznać się z innymi zagadnieniami.