Objawy
Gdy używasz "sprzedają aby/nr dostawcy" jako wartość "Bill do/Sell do kalkulacji VAT" w oknie dialogowym Ustawienia księgi głównej (GL) po zainstalowaniu KB2705249, transakcji zakupu nie są obsługiwane poprawnie. Wykonaj kroki opisane w sekcji zmiany kodu , aby rozwiązać ten problem. Ten problem występuje w następujących produktach:
-
Microsoft Dynamics NAV 2009 R2
-
Microsoft Dynamics NAV 2009 SP1
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 2009 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. Nie będą jednak 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 systemu Microsoft Dynamics NAV są wylogowani systemu. Obejmuje to usług systemu Microsoft Dynamics NAV aplikacji serwera (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 9015 identyfikator obiektu systemu
obiekt.
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:
-
Zmień kod w pól w tabeli Nagłówek sprzedaży (36) w następujący sposób:
Istniejący kod 1..."Bill-to Country/Region Code" := Cust."Country/Region Code";
// Delete the following line.
"VAT Country/Region Code" := Cust."Country/Region Code";
// End of the deleted line.
IF NOT SkipBillToContact THEN
...Kod zastępczy 1
... "Bill-to Country/Region Code" := Cust."Country/Region Code";
IF NOT SkipBillToContact THEN
...Istniejący kod 2
...// Delete the following line.
"Gen. Bus. Posting Group" := Cust."Gen. Bus. Posting Group";
// End of the deleted line.
GLSetup.GET;
...Kod zastępczy 2
...GLSetup.GET;
...Istniejący kod 3
...GLSetup.GET;
// Delete the following line.
IF GLSetup."Bill-to/Sell-to VAT Calc." = GLSetup."Bill-to/Sell-to VAT Calc."::"Bill-to/Pay-to No." THEN
// End of the deleted line.
"VAT Bus. Posting Group" := Cust."VAT Bus. Posting Group";
...Kod zastępczy 3
...GLSetup.GET;
// Add the following line.
IF GLSetup."Bill-to/Sell-to VAT Calc." = GLSetup."Bill-to/Sell-to VAT Calc."::"Bill-to/Pay-to No." THEN BEGIN
// End of the added line.
"VAT Bus. Posting Group" := Cust."VAT Bus. Posting Group";
...Istniejący kod 4
..."VAT Bus. Posting Group" := Cust."VAT Bus. Posting Group";
"Customer Posting Group" := Cust."Customer Posting Group";
...Kod zastępczy 4
..."VAT Bus. Posting Group" := Cust."VAT Bus. Posting Group";
// Add the following lines.
"VAT Country/Region Code" := Cust."Country/Region Code";
"VAT Registration No." := Cust."VAT Registration No.";
"Gen. Bus. Posting Group" := Cust."Gen. Bus. Posting Group";
END;
// End of the added lines.
"Customer Posting Group" := Cust."Customer Posting Group";
...Istniejący kod 5
...Reserve := Cust.Reserve;
// Delete the following line.
"VAT Registration No." := Cust."VAT Registration No.";
// End of the deleted line.
IF "Document Type" = "Document Type"::Order THEN
...Kod zastępczy 5
...Reserve := Cust.Reserve;
IF "Document Type" = "Document Type"::Order THEN
... -
Zmień kod w pól w tabeli Nagłówek zakupu (38) w następujący sposób:
Istniejący kod 1..."Pay-to County" := Vend.County;
// Delete the following lines.
"Pay-to Country/Region Code" := Vend."Country/Region Code";
"VAT Country/Region Code" := Vend."Country/Region Code";
// End of the deleted lines.
IF NOT SkipPayToContact THEN
...Kod zastępczy 1
..."Pay-to County" := Vend.County;
IF NOT SkipPayToContact THEN
...Istniejący kod 2
... "Vendor Posting Group" := Vend."Vendor Posting Group";
// Delete the following line.
"Gen. Bus. Posting Group" := Vend."Gen. Bus. Posting Group";
// End of the deleted line.
GLSetup.GET;
...Kod zastępczy 2
..."Vendor Posting Group" := Vend."Vendor Posting Group";
GLSetup.GET;
...Istniejący kod 3
...GLSetup.GET;
// Delete the following line.
IF GLSetup."Bill-to/Sell-to VAT Calc." = GLSetup."Bill-to/Sell-to VAT Calc."::"Bill-to/Pay-to No." THEN
// End of the deleted line.
"VAT Bus. Posting Group" := Vend."VAT Bus. Posting Group";
...Kod zastępczy 3
...GLSetup.GET;
// Add the following line.
IF GLSetup."Bill-to/Sell-to VAT Calc." = GLSetup."Bill-to/Sell-to VAT Calc."::"Bill-to/Pay-to No." THEN BEGIN
// End of the added line.
"VAT Bus. Posting Group" := Vend."VAT Bus. Posting Group";
...Istniejący kod 4
..."VAT Bus. Posting Group" := Vend."VAT Bus. Posting Group";
"Prices Including VAT" := Vend."Prices Including VAT";
...Kod zastępczy 4
... "VAT Bus. Posting Group" := Vend."VAT Bus. Posting Group";
// Add the following lines.
"VAT Country/Region Code" := Vend."Country/Region Code";
"VAT Registration No." := Vend."VAT Registration No.";
"Gen. Bus. Posting Group" := Vend."Gen. Bus. Posting Group";
END;
// End of the added lines.
"Prices Including VAT" := Vend."Prices Including VAT";
...Istniejący kod 5
...VALIDATE("Currency Code");
// Delete the following line.
"VAT Registration No." := Vend."VAT Registration No.";
// End of the deleted line.
IF "Document Type" = "Document Type"::Order THEN
...Kod zastępczy 5
...VALIDATE("Currency Code");
IF "Document Type" = "Document Type"::Order THEN
... -
Zmień kod w pól w tabeli Nagłówek usługi (5900) w następujący sposób:
Istniejący kod 1... "Bill-to County" := Cust.County;
// Delete the following line.
"Bill-to Country/Region Code" := Cust."Country/Region Code";
// End of the deleted line.
IF NOT SkipBillToContact THEN
...Kod zastępczy 1
..."Bill-to County" := Cust.County;
IF NOT SkipBillToContact THEN
...Istniejący kod 2
...
// Delete the following line.
"Gen. Bus. Posting Group" := Cust."Gen. Bus. Posting Group";
// End of the deleted line.
GLSetup.GET;
...Kod zastępczy 2
...
GLSetup.GET;
...Istniejący kod 3
...GLSetup.GET;
// Delete the following line.
IF GLSetup."Bill-to/Sell-to VAT Calc." = GLSetup."Bill-to/Sell-to VAT Calc."::"Bill-to/Pay-to No." THEN
// End of the deleted line.
"VAT Bus. Posting Group" := Cust."VAT Bus. Posting Group";
...Kod zastępczy 3
...GLSetup.GET;
// Add the following line.
IF GLSetup."Bill-to/Sell-to VAT Calc." = GLSetup."Bill-to/Sell-to VAT Calc."::"Bill-to/Pay-to No." THEN BEGIN
// End of the added line.
"VAT Bus. Posting Group" := Cust."VAT Bus. Posting Group";
...Istniejący kod 4
..."VAT Bus. Posting Group" := Cust."VAT Bus. Posting Group";
"Customer Posting Group" := Cust."Customer Posting Group";
...Kod zastępczy 4
... "VAT Bus. Posting Group" := Cust."VAT Bus. Posting Group";
// Add the following lines.
"VAT Registration No." := Cust."VAT Registration No.";
"VAT Country/Region Code" := Cust."Country/Region Code";
"Gen. Bus. Posting Group" := Cust."Gen. Bus. Posting Group";
END;
// End of the added lines.
"Customer Posting Group" := Cust."Customer Posting Group";
...Istniejący kod 5
... Reserve := Cust.Reserve;
// Delete the following line.
"VAT Registration No." := Cust."VAT Registration No.";
// End of the deleted line.
ValidateServPriceGrOnServItem;
...Kod zastępczy 5
...Reserve := Cust.Reserve;
ValidateServPriceGrOnServItem;
... -
Zmień kod w funkcji InsertVAT w dziennika gł.-Post wiersza Codeunit (12) w następujący sposób:
Istniejący kod
...VATEntry."Bill-to/Pay-to No." := "Bill-to/Pay-to No.";
// Delete the following lines.
IF "Bill-to/Pay-to No." <> '' THEN
CASE VATEntry.Type OF
VATEntry.Type::Purchase:
BEGIN
IF Vend."No." <> "Bill-to/Pay-to No." THEN
Vend.GET("Bill-to/Pay-to No.");
VATEntry."Country/Region Code" := Vend."Country/Region Code";
VATEntry."VAT Registration No." := Vend."VAT Registration No.";
END;
VATEntry.Type::Sale:
BEGIN
IF Cust."No." <> "Bill-to/Pay-to No." THEN
Cust.GET("Bill-to/Pay-to No.");
VATEntry."Country/Region Code" := Cust."Country/Region Code";
VATEntry."VAT Registration No." := Cust."VAT Registration No.";
END;
END;
// End of the deleted lines.
...Kod zastępczy
... VATEntry."Bill-to/Pay-to No." := "Bill-to/Pay-to No.";
// Add the following lines.
VATEntry."Country/Region Code" := "Country/Region Code";
VATEntry."VAT Registration No." := "VAT Registration No.";
// End of the added lines.
... -
Zmień kod w funkcji CopyFields w dziennika gł.-Księgowanie seryjne Codeunit [13] w następujący sposób:
Istniejący kod 1... GenJnlLine7."Ship-to/Order Address Code" := GenJnlLine4."Ship-to/Order Address Code";
GenJnlLine7.MODIFY;
...Kod zastępczy 1
...GenJnlLine7."Ship-to/Order Address Code" := GenJnlLine4."Ship-to/Order Address Code";
// Add the following lines.
GenJnlLine7."VAT Registration No." := GenJnlLine4."VAT Registration No.";
GenJnlLine7."Country/Region Code" := GenJnlLine4."Country/Region Code";
// End of the added lines.
GenJnlLine7.MODIFY;
...Istniejący kod 2
... GenJnlLine7."Ship-to/Order Address Code" := GenJnlLine4."Ship-to/Order Address Code";
GenJnlLine7.MODIFY;
...Kod zastępczy 2
...GenJnlLine7."Ship-to/Order Address Code" := GenJnlLine4."Ship-to/Order Address Code";
// Add the following lines.
GenJnlLine7."VAT Registration No." := GenJnlLine4."VAT Registration No.";
GenJnlLine7."Country/Region Code" := GenJnlLine4."Country/Region Code";
// End of the added lines.
GenJnlLine7.MODIFY;
...
Wymagania wstępne
Musi mieć jedną z następujących produktów, w celu zastosowania tej poprawki:
-
Microsoft Dynamics NAV 2009 R2
-
Microsoft Dynamics NAV 2009 SP1
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żytkowaniadla innych względów.
