Komunikat "nie można ukończyć transakcji, ponieważ spowoduje powstanie niezgodności w tabeli Zapis K/G" błąd podczas księgowania faktury zakupu w Ameryce Północnej wersji systemu Microsoft Dynamics NAV 2009

Szablon: CPR — szablon poprawka kodu systemu Navision

Nr błędu: 188277 (Obsługa zawartości)

Ten artykuł dotyczy firmy Microsoft dla następujących krajów i ustawień regionalnych języka.

  • Angielski (Kanada) (en-ca)

  • Angielski (Stany Zjednoczone) (en-us)

  • Hiszpański (Meksyk) (es-mx)

  • Francuski (Kanada) (fr-ca)

Objawy

Załóżmy, że zestaw programu CAD jako wartość dodatkowej walucie dla raportowania w oknie Ustawienia księgi głównej okno dialogowe w Ameryce Północnej wersji systemu Microsoft Dynamics NAV 2009. Podczas księgowania faktury zakupu, która zawiera podatek, pojawi się następujący komunikat o błędzie:

Nie można ukończyć transakcji, ponieważ spowoduje powstanie niezgodności w tabeli Zapis K/G. Sprawdź miejsce i sposób użycia funkcji CONSISTENT jest używany w transakcji Aby znaleźć przyczynę błędu.

Ten problem występuje w następujących produktach:

  • Północnoamerykański wersji systemu Microsoft Dynamics NAV 2009 R2

  • Północnoamerykański wersji dodatku Service Pack 1 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 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.

Jeśli ta poprawka nie została ogłoszona do publicznego pobierania (tzn. publiczny adres URL tej poprawki nie jest podany w treści artykułu), dystrybucja wymaga akceptacji kierownika technicznego, starszego członka zespołu lub menedżera i stosuje się następujące informacje:

  • Aby otrzymać poprawkę, klient musi napotkać błąd, który jest wymieniony w sekcji "Symptomy".

  • Należy śledzić klientom wysyła się poprawkę i przesłać im następny dodatek service pack, kiedy będzie dostępny (Jeśli zostanie wydany dodatek service pack).

Ta poprawka nie zostanie uwzględniona zostanie uwzględniona w dodatku service pack dla systemu Microsoft Dynamics NAV.



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 polach tabeli Wiersz kwoty podatku od sprzedaży (10011) w następujący sposób:
    Istniejący kod

    ...ESM=Es Informe jurisdicci¢n;
    FRC=Est une juridiction fiscale;
    ENC=Is Report-to Jurisdiction];
    Editable=No }
    }
    KEYS
    {
    { ;Tax Area Code for Key,Tax Jurisdiction Code,Tax %,Tax Group Code,Expense/Capitalize,Tax Type,Use Tax;
    ...

    Kod zastępczy

    ...
    ESM=Es Informe jurisdicci¢n;
    FRC=Est une juridiction fiscale;
    ENC=Is Report-to Jurisdiction];
    Editable=No }

    // Add the following line.
    { 10044; ;Tax Base Amount FCY ;Decimal }
    // End of the added line.

    }
    KEYS
    {
    { ;Tax Area Code for Key,Tax Jurisdiction Code,Tax %,Tax Group Code,Expense/Capitalize,Tax Type,Use Tax;
    ...
  2. Zmień kod w funkcji PostSalesTaxToGL w Codeunit Księgowanie sprzedaży (80) w następujący sposób:
    Istniejący kod

    ...END;
    GenJnlLine."Tax Jurisdiction Code" := TempSalesTaxAmtLine."Tax Jurisdiction Code";
    IF TempSalesTaxAmtLine."Tax Amount" <> 0 THEN BEGIN
    RemSalesTaxSrcAmt := RemSalesTaxSrcAmt +

    // Delete the following lines.
    CurrExchRate.ExchangeAmtLCYToFCY(
    UseDate,SalesHeader."Currency Code",TempSalesTaxAmtLine."Tax Amount",SalesHeader."Currency Factor");
    // End of the deleted lines.

    GenJnlLine."Source Curr. VAT Amount" :=
    SalesTaxCalculate.ArithmeticRound(RemSalesTaxSrcAmt,Currency."Amount Rounding Precision");
    RemSalesTaxSrcAmt := RemSalesTaxSrcAmt - GenJnlLine."Source Curr. VAT Amount";
    RemSalesTaxAmt := RemSalesTaxAmt + TempSalesTaxAmtLine."Tax Amount";
    ...

    Kod zastępczy

    ...END;
    GenJnlLine."Tax Jurisdiction Code" := TempSalesTaxAmtLine."Tax Jurisdiction Code";
    IF TempSalesTaxAmtLine."Tax Amount" <> 0 THEN BEGIN
    RemSalesTaxSrcAmt := RemSalesTaxSrcAmt +

    // Add the following lines.
    TempSalesTaxAmtLine."Tax Base Amount FCY" * TempSalesTaxAmtLine."Tax %" / 100;
    // End of the added lines.

    GenJnlLine."Source Curr. VAT Amount" :=
    SalesTaxCalculate.ArithmeticRound(RemSalesTaxSrcAmt,Currency."Amount Rounding Precision");
    RemSalesTaxSrcAmt := RemSalesTaxSrcAmt - GenJnlLine."Source Curr. VAT Amount";
    RemSalesTaxAmt := RemSalesTaxAmt + TempSalesTaxAmtLine."Tax Amount";
    ...
  3. Zmień kod w funkcji PostSalesTaxToGL w zam.-Post Codeunit (90) w następujący sposób:
    Istniejący kod

    ...END;
    GenJnlLine."Tax Jurisdiction Code" := TempSalesTaxAmtLine."Tax Jurisdiction Code";
    IF TempSalesTaxAmtLine."Tax Amount" <> 0 THEN BEGIN
    RemSalesTaxSrcAmt := RemSalesTaxSrcAmt +

    // Delete the following lines.
    CurrExchRate.ExchangeAmtLCYToFCY(
    Usedate,PurchHeader."Currency Code",TempSalesTaxAmtLine."Tax Amount",PurchHeader."Currency Factor");
    // End of the deleted lines.

    GenJnlLine."Source Curr. VAT Amount" :=
    SalesTaxCalculate.ArithmeticRound(RemSalesTaxSrcAmt,Currency."Amount Rounding Precision");
    RemSalesTaxSrcAmt := RemSalesTaxSrcAmt - GenJnlLine."Source Curr. VAT Amount";
    RemSalesTaxAmt := RemSalesTaxAmt + TempSalesTaxAmtLine."Tax Amount";
    ...

    Kod zastępczy

    ...END;
    GenJnlLine."Tax Jurisdiction Code" := TempSalesTaxAmtLine."Tax Jurisdiction Code";
    IF TempSalesTaxAmtLine."Tax Amount" <> 0 THEN BEGIN
    RemSalesTaxSrcAmt := RemSalesTaxSrcAmt +

    // Add the following line.
    TempSalesTaxAmtLine."Tax Base Amount FCY" * TempSalesTaxAmtLine."Tax %" / 100;
    // End of the added line.

    GenJnlLine."Source Curr. VAT Amount" :=
    SalesTaxCalculate.ArithmeticRound(RemSalesTaxSrcAmt,Currency."Amount Rounding Precision");
    RemSalesTaxSrcAmt := RemSalesTaxSrcAmt - GenJnlLine."Source Curr. VAT Amount";
    RemSalesTaxAmt := RemSalesTaxAmt + TempSalesTaxAmtLine."Tax Amount";
    ...
  4. Zmień kod w funkcji PostProvincialSalesTaxToGL w zam.-Post Codeunit (90) w następujący sposób:
    Istniejący kod

    ...TaxJurisdiction.TESTFIELD("Tax Account (Purchases)");
    GenJnlLine."Account No." := TaxJurisdiction."Tax Account (Purchases)";
    END;
    GenJnlLine.Amount := GenJnlLine."VAT Amount";

    // Delete the following lines.
    GenJnlLine."Source Curr. VAT Base Amount" := 0;
    GenJnlLine."VAT Base Amount (LCY)" := 0;
    GenJnlLine."VAT Base Amount" := 0;
    GenJnlLine."Source Curr. VAT Amount" := 0;
    // End of the deleted lines.

    GenJnlLine."VAT Amount (LCY)" := 0;
    GenJnlLine."VAT Amount" := 0;
    GenJnlLine.Quantity := 0;
    GenJnlLine."VAT Difference" := 0;
    ...

    Kod zastępczy

    ...TaxJurisdiction.TESTFIELD("Tax Account (Purchases)");
    GenJnlLine."Account No." := TaxJurisdiction."Tax Account (Purchases)";
    END;
    GenJnlLine.Amount := GenJnlLine."VAT Amount";

    // Add the following lines.
    GenJnlLine."Source Currency Amount" := GenJnlLine."Source Curr. VAT Amount";
    GenJnlLine."Source Curr. VAT Base Amount" := 0;
    GenJnlLine."VAT Base Amount (LCY)" := 0;
    GenJnlLine."VAT Base Amount" := 0;
    // End of the added lines.

    GenJnlLine."VAT Amount (LCY)" := 0;
    GenJnlLine."VAT Amount" := 0;
    GenJnlLine.Quantity := 0;
    GenJnlLine."VAT Difference" := 0;
    ...
  5. Zmień kod w funkcji AddSalesLine w Codeunit obliczyć podatek od sprzedaży (398) w następujący sposób:
    Istniejący kod 1

    ..."Round Tax" := TaxArea."Round Tax";
    TaxJurisdiction.GET("Tax Jurisdiction Code");
    "Is Report-to Jurisdiction" := ("Tax Jurisdiction Code" = TaxJurisdiction."Report-to Jurisdiction");
    END;

    // Delete the following line.
    "Tax Base Amount" := (SalesLine."Line Amount" - SalesLine."Inv. Discount Amount") / ExchangeFactor;
    // End of the deleted line.

    "Line Amount" := SalesLine."Line Amount" / ExchangeFactor;
    "Tax Liable" := SalesLine."Tax Liable";
    Quantity := SalesLine."Quantity (Base)";
    "Invoice Discount Amount" := SalesLine."Inv. Discount Amount";
    ...

    Kod zastępczy 1

    ..."Round Tax" := TaxArea."Round Tax";
    TaxJurisdiction.GET("Tax Jurisdiction Code");
    "Is Report-to Jurisdiction" := ("Tax Jurisdiction Code" = TaxJurisdiction."Report-to Jurisdiction");
    END;

    // Add the following line.
    SetTaxBaseAmount(TempSalesTaxLine,SalesLine."Line Amount" - SalesLine."Inv. Discount Amount",ExchangeFactor,FALSE);
    // End of the added line.

    "Line Amount" := SalesLine."Line Amount" / ExchangeFactor;
    "Tax Liable" := SalesLine."Tax Liable";
    Quantity := SalesLine."Quantity (Base)";
    "Invoice Discount Amount" := SalesLine."Inv. Discount Amount";
    ...

    Istniejący kod 2

    ...END ELSE BEGIN
    "Line Amount" := "Line Amount" + (SalesLine."Line Amount" / ExchangeFactor);
    IF SalesLine."Tax Liable" THEN
    "Tax Liable" := SalesLine."Tax Liable";

    // Delete the following line.
    "Tax Base Amount" := "Tax Base Amount" + ((SalesLine."Line Amount" - SalesLine."Inv. Discount Amount") / ExchangeFactor);
    // End of the deleted line.

    "Tax Amount" := 0;
    Quantity := Quantity + SalesLine."Quantity (Base)";
    "Invoice Discount Amount" := "Invoice Discount Amount" + SalesLine."Inv. Discount Amount";
    MODIFY;
    ...

    Kod zastępczy 2

    ...END ELSE BEGIN
    "Line Amount" := "Line Amount" + (SalesLine."Line Amount" / ExchangeFactor);
    IF SalesLine."Tax Liable" THEN
    "Tax Liable" := SalesLine."Tax Liable";

    // Add the following line.
    SetTaxBaseAmount(TempSalesTaxLine,SalesLine."Line Amount" - SalesLine."Inv. Discount Amount",ExchangeFactor,TRUE);
    // End of the added line.

    "Tax Amount" := 0;
    Quantity := Quantity + SalesLine."Quantity (Base)";
    "Invoice Discount Amount" := "Invoice Discount Amount" + SalesLine."Inv. Discount Amount";
    MODIFY;
    ...
  6. Zmień kod w funkcji AddSalesInvoiceLines w Codeunit obliczyć podatek od sprzedaży (398) w następujący sposób:
    Istniejący kod 1

    ..."Is Report-to Jurisdiction" :=
    ("Tax Jurisdiction Code" = TaxJurisdiction."Report-to Jurisdiction");
    END;
    "Line Amount" := SalesInvoiceLine."Line Amount" / ExchangeFactor;

    // Delete the following line.
    "Tax Base Amount" := SalesInvoiceLine."VAT Base Amount" / ExchangeFactor;
    // End of the deleted line.

    Quantity := SalesInvoiceLine.Quantity;
    "Tax Liable" := SalesInvoiceLine."Tax Liable";
    "Calculation Order" := TaxAreaLine."Calculation Order";
    InsertRec := TRUE;
    ...

    Kod zastępczy 1

    ..."Is Report-to Jurisdiction" :=
    ("Tax Jurisdiction Code" = TaxJurisdiction."Report-to Jurisdiction");
    END;
    "Line Amount" := SalesInvoiceLine."Line Amount" / ExchangeFactor;

    // Add the following line.
    SetTaxBaseAmount(TempSalesTaxLine,SalesInvoiceLine."VAT Base Amount",ExchangeFactor,FALSE);
    // End of the added line.

    Quantity := SalesInvoiceLine.Quantity;
    "Tax Liable" := SalesInvoiceLine."Tax Liable";
    "Calculation Order" := TaxAreaLine."Calculation Order";
    InsertRec := TRUE;
    ...

    Istniejący kod 2

    ...InsertRec := TRUE;
    INSERT;
    END ELSE BEGIN
    "Line Amount" := "Line Amount" + (SalesInvoiceLine."Line Amount" / ExchangeFactor);

    // Delete the following line.
    "Tax Base Amount" := "Tax Base Amount" + (SalesInvoiceLine."VAT Base Amount" / ExchangeFactor);
    // End of the deleted line.

    Quantity := Quantity + SalesInvoiceLine.Quantity;
    IF SalesInvoiceLine."Tax Liable" THEN
    "Tax Liable" := SalesInvoiceLine."Tax Liable";
    InsertRec := FALSE;
    ...

    Kod zastępczy 2

    ...InsertRec := TRUE;
    INSERT;
    END ELSE BEGIN
    "Line Amount" := "Line Amount" + (SalesInvoiceLine."Line Amount" / ExchangeFactor);

    // Add the following line.
    SetTaxBaseAmount(TempSalesTaxLine,SalesInvoiceLine."VAT Base Amount",ExchangeFactor,TRUE);
    // End of the added line.

    Quantity := Quantity + SalesInvoiceLine.Quantity;
    IF SalesInvoiceLine."Tax Liable" THEN
    "Tax Liable" := SalesInvoiceLine."Tax Liable";
    InsertRec := FALSE;
    ...
  7. Zmień kod w funkcji AddSalesCrMemoLines w Codeunit obliczyć podatek od sprzedaży (398) w następujący sposób:
    Istniejący kod 1

    ..."Is Report-to Jurisdiction" :=
    ("Tax Jurisdiction Code" = TaxJurisdiction."Report-to Jurisdiction");
    END;
    "Line Amount" := SalesCrMemoLine."Line Amount" / ExchangeFactor;

    // Delete the following line.
    "Tax Base Amount" := SalesCrMemoLine."VAT Base Amount" / ExchangeFactor;
    // End of the deleted line.

    Quantity := SalesCrMemoLine.Quantity;
    "Tax Liable" := SalesCrMemoLine."Tax Liable";
    "Calculation Order" := TaxAreaLine."Calculation Order";
    InsertRec := TRUE;
    ...

    Kod zastępczy 1

    ..."Is Report-to Jurisdiction" :=
    ("Tax Jurisdiction Code" = TaxJurisdiction."Report-to Jurisdiction");
    END;
    "Line Amount" := SalesCrMemoLine."Line Amount" / ExchangeFactor;

    // Add the following line.
    SetTaxBaseAmount(TempSalesTaxLine,SalesCrMemoLine."VAT Base Amount",ExchangeFactor,FALSE);
    // End of the added line.

    Quantity := SalesCrMemoLine.Quantity;
    "Tax Liable" := SalesCrMemoLine."Tax Liable";
    "Calculation Order" := TaxAreaLine."Calculation Order";
    InsertRec := TRUE;
    ...

    Istniejący kod 2

    ...InsertRec := TRUE;
    INSERT;
    END ELSE BEGIN
    "Line Amount" := "Line Amount" + (SalesCrMemoLine."Line Amount" / ExchangeFactor);

    // Delete the following line.
    "Tax Base Amount" := "Tax Base Amount" + (SalesCrMemoLine."VAT Base Amount" / ExchangeFactor);
    // End of the deleted line.

    Quantity := Quantity + SalesCrMemoLine.Quantity;
    IF SalesCrMemoLine."Tax Liable" THEN
    "Tax Liable" := SalesCrMemoLine."Tax Liable";
    InsertRec := FALSE;
    ...

    Kod zastępczy 2

    ...InsertRec := TRUE;
    INSERT;
    END ELSE BEGIN
    "Line Amount" := "Line Amount" + (SalesCrMemoLine."Line Amount" / ExchangeFactor);

    // Add the following line.
    SetTaxBaseAmount(TempSalesTaxLine,SalesCrMemoLine."VAT Base Amount",ExchangeFactor,TRUE);
    // End of the added line.

    Quantity := Quantity + SalesCrMemoLine.Quantity;
    IF SalesCrMemoLine."Tax Liable" THEN
    "Tax Liable" := SalesCrMemoLine."Tax Liable";
    InsertRec := FALSE;
    ...
  8. Zmień kod w funkcji AddPurchLine w Codeunit obliczyć podatek od sprzedaży (398) w następujący sposób:
    Istniejący kod 1

    ..."Round Tax" := TaxArea."Round Tax";
    TaxJurisdiction.GET("Tax Jurisdiction Code");
    "Is Report-to Jurisdiction" := ("Tax Jurisdiction Code" = TaxJurisdiction."Report-to Jurisdiction");
    END;

    // Delete the following line.
    "Tax Base Amount" := (PurchLine."Line Amount" - PurchLine."Inv. Discount Amount") / ExchangeFactor;
    // End of the deleted line.

    "Line Amount" := PurchLine."Line Amount" / ExchangeFactor;
    "Tax Liable" := PurchLine."Tax Liable";
    "Use Tax" := PurchLine."Use Tax";
    ...

    Kod zastępczy 1

    ..."Round Tax" := TaxArea."Round Tax";
    TaxJurisdiction.GET("Tax Jurisdiction Code");
    "Is Report-to Jurisdiction" := ("Tax Jurisdiction Code" = TaxJurisdiction."Report-to Jurisdiction");
    END;

    // Add the following line.
    SetTaxBaseAmount(TempSalesTaxLine,PurchLine."Line Amount" - PurchLine."Inv. Discount Amount",ExchangeFactor,FALSE);
    // End of the added line.

    "Line Amount" := PurchLine."Line Amount" / ExchangeFactor;
    "Tax Liable" := PurchLine."Tax Liable";
    "Use Tax" := PurchLine."Use Tax";
    ...

    Istniejący kod 2

    ...END ELSE BEGIN
    "Line Amount" := "Line Amount" + (PurchLine."Line Amount" / ExchangeFactor);
    IF PurchLine."Tax Liable" THEN
    "Tax Liable" := PurchLine."Tax Liable";

    // Delete the following line.
    "Tax Base Amount" := "Tax Base Amount" + ((PurchLine."Line Amount" - PurchLine."Inv. Discount Amount") / ExchangeFactor);
    // End of the deleted line.

    "Tax Amount" := 0;
    Quantity := Quantity + PurchLine."Quantity (Base)";
    "Invoice Discount Amount" := "Invoice Discount Amount" + PurchLine."Inv. Discount Amount";
    MODIFY;
    ...

    Kod zastępczy 2

    ...END ELSE BEGIN
    "Line Amount" := "Line Amount" + (PurchLine."Line Amount" / ExchangeFactor);
    IF PurchLine."Tax Liable" THEN
    "Tax Liable" := PurchLine."Tax Liable";

    // Add the following line.
    SetTaxBaseAmount(TempSalesTaxLine,PurchLine."Line Amount" - PurchLine."Inv. Discount Amount",ExchangeFactor,TRUE);
    // End of the added line.

    "Tax Amount" := 0;
    Quantity := Quantity + PurchLine."Quantity (Base)";
    "Invoice Discount Amount" := "Invoice Discount Amount" + PurchLine."Inv. Discount Amount";
    MODIFY;
    ...
  9. Zmień kod w funkcji AddPurchInvoiceLines w Codeunit obliczyć podatek od sprzedaży (398) w następujący sposób:
    Istniejący kod 1

    ..."Is Report-to Jurisdiction" :=
    ("Tax Jurisdiction Code" = TaxJurisdiction."Report-to Jurisdiction");
    END;
    "Line Amount" := PurchInvLine."Line Amount" / ExchangeFactor;

    // Delete the following line.
    "Tax Base Amount" := PurchInvLine."VAT Base Amount" / ExchangeFactor;
    // End of the deleted line.

    Quantity := PurchInvLine.Quantity;
    "Tax Liable" := PurchInvLine."Tax Liable";
    "Use Tax" := PurchInvLine."Use Tax";
    ...

    Kod zastępczy 1

    ..."Is Report-to Jurisdiction" :=
    ("Tax Jurisdiction Code" = TaxJurisdiction."Report-to Jurisdiction");
    END;
    "Line Amount" := PurchInvLine."Line Amount" / ExchangeFactor;

    // Add the following line.
    SetTaxBaseAmount(TempSalesTaxLine,PurchInvLine."VAT Base Amount",ExchangeFactor,FALSE);
    // End of the added line.

    Quantity := PurchInvLine.Quantity;
    "Tax Liable" := PurchInvLine."Tax Liable";
    "Use Tax" := PurchInvLine."Use Tax";
    ...

    Istniejący kod 2

    ...InsertRec := TRUE;
    INSERT;
    END ELSE BEGIN
    "Line Amount" := "Line Amount" + (PurchInvLine."Line Amount" / ExchangeFactor);

    // Delete the following line.
    "Tax Base Amount" := "Tax Base Amount" + (PurchInvLine."VAT Base Amount" / ExchangeFactor);
    // End of the deleted line.

    Quantity := Quantity + PurchInvLine.Quantity;
    IF PurchInvLine."Tax Liable" THEN
    "Tax Liable" := PurchInvLine."Tax Liable";
    InsertRec := FALSE;
    ...

    Kod zastępczy 2

    ...InsertRec := TRUE;
    INSERT;
    END ELSE BEGIN
    "Line Amount" := "Line Amount" + (PurchInvLine."Line Amount" / ExchangeFactor);

    // Add the following line.
    SetTaxBaseAmount(TempSalesTaxLine,PurchInvLine."VAT Base Amount",ExchangeFactor,TRUE);
    // End of the added line.

    Quantity := Quantity + PurchInvLine.Quantity;
    IF PurchInvLine."Tax Liable" THEN
    "Tax Liable" := PurchInvLine."Tax Liable";
    InsertRec := FALSE;
    ...
  10. Zmień kod w funkcji AddPurchCrMemoLines w Codeunit obliczyć podatek od sprzedaży (398) w następujący sposób:
    Istniejący kod 1

    ..."Is Report-to Jurisdiction" :=
    ("Tax Jurisdiction Code" = TaxJurisdiction."Report-to Jurisdiction");
    END;
    "Line Amount" := PurchCrMemoLine."Line Amount" / ExchangeFactor;

    // Delete the following line.
    "Tax Base Amount" := PurchCrMemoLine."VAT Base Amount" / ExchangeFactor;
    // End of the deleted line.

    Quantity := PurchCrMemoLine.Quantity;
    "Tax Liable" := PurchCrMemoLine."Tax Liable";
    "Use Tax" := PurchCrMemoLine."Use Tax";
    ...

    Kod zastępczy 1

    ..."Is Report-to Jurisdiction" :=
    ("Tax Jurisdiction Code" = TaxJurisdiction."Report-to Jurisdiction");
    END;
    "Line Amount" := PurchCrMemoLine."Line Amount" / ExchangeFactor;

    // Add the following line.
    SetTaxBaseAmount(TempSalesTaxLine,PurchCrMemoLine."VAT Base Amount",ExchangeFactor,FALSE);
    // End of the added line.

    Quantity := PurchCrMemoLine.Quantity;
    "Tax Liable" := PurchCrMemoLine."Tax Liable";
    "Use Tax" := PurchCrMemoLine."Use Tax";
    ...

    Istniejący kod 2

    ...InsertRec := TRUE;
    INSERT;
    END ELSE BEGIN
    "Line Amount" := "Line Amount" + (PurchCrMemoLine."Line Amount" / ExchangeFactor);

    // Delete the following line.
    "Tax Base Amount" := "Tax Base Amount" + (PurchCrMemoLine."VAT Base Amount" / ExchangeFactor);
    // End of the deleted line.

    Quantity := Quantity + PurchCrMemoLine.Quantity;
    IF PurchCrMemoLine."Tax Liable" THEN
    "Tax Liable" := PurchCrMemoLine."Tax Liable";
    InsertRec := FALSE;
    ...

    Kod zastępczy 2

    ...InsertRec := TRUE;
    INSERT;
    END ELSE BEGIN
    "Line Amount" := "Line Amount" + (PurchCrMemoLine."Line Amount" / ExchangeFactor);

    // Add the following line.
    SetTaxBaseAmount(TempSalesTaxLine,PurchCrMemoLine."VAT Base Amount",ExchangeFactor,TRUE);
    // End of the added line.

    Quantity := Quantity + PurchCrMemoLine.Quantity;
    IF PurchCrMemoLine."Tax Liable" THEN
    "Tax Liable" := PurchCrMemoLine."Tax Liable";
    InsertRec := FALSE;
    ...
  11. Zmień kod w funkcji AddServiceLine w Codeunit obliczyć podatek od sprzedaży (398) w następujący sposób:
    Istniejący kod 1

    ..."Round Tax" := TaxArea."Round Tax";
    TaxJurisdiction.GET("Tax Jurisdiction Code");
    "Is Report-to Jurisdiction" := ("Tax Jurisdiction Code" = TaxJurisdiction."Report-to Jurisdiction");
    END;

    // Delete the following line.
    "Tax Base Amount" := (ServiceLine."Line Amount" - ServiceLine."Inv. Discount Amount") / ExchangeFactor;
    // End of the deleted line.

    "Line Amount" := ServiceLine."Line Amount" / ExchangeFactor;
    "Tax Liable" := ServiceLine."Tax Liable";
    Quantity := ServiceLine."Quantity (Base)";
    "Invoice Discount Amount" := ServiceLine."Inv. Discount Amount";
    ...

    Kod zastępczy 1

    ..."Round Tax" := TaxArea."Round Tax";
    TaxJurisdiction.GET("Tax Jurisdiction Code");
    "Is Report-to Jurisdiction" := ("Tax Jurisdiction Code" = TaxJurisdiction."Report-to Jurisdiction");
    END;

    // Add the following line.
    SetTaxBaseAmount(TempSalesTaxLine,ServiceLine."Line Amount" - ServiceLine."Inv. Discount Amount",ExchangeFactor,FALSE);
    // End of the added line.

    "Line Amount" := ServiceLine."Line Amount" / ExchangeFactor;
    "Tax Liable" := ServiceLine."Tax Liable";
    Quantity := ServiceLine."Quantity (Base)";
    "Invoice Discount Amount" := ServiceLine."Inv. Discount Amount";
    ...

    Istniejący kod 2

    ...END ELSE BEGIN
    "Line Amount" := "Line Amount" + (ServiceLine."Line Amount" / ExchangeFactor);
    IF ServiceLine."Tax Liable" THEN
    "Tax Liable" := ServiceLine."Tax Liable";

    // Delete the following line.
    "Tax Base Amount" :=
    "Tax Base Amount" + ((ServiceLine."Line Amount" - ServiceLine."Inv. Discount Amount") / ExchangeFactor);
    // End of the deleted line.

    "Tax Amount" := 0;
    Quantity := Quantity + ServiceLine."Quantity (Base)";
    "Invoice Discount Amount" := "Invoice Discount Amount" + ServiceLine."Inv. Discount Amount";
    MODIFY;
    ...

    Kod zastępczy 2

    ...END ELSE BEGIN
    "Line Amount" := "Line Amount" + (ServiceLine."Line Amount" / ExchangeFactor);
    IF ServiceLine."Tax Liable" THEN
    "Tax Liable" := ServiceLine."Tax Liable";

    // Add the following line.
    SetTaxBaseAmount(TempSalesTaxLine,ServiceLine."Line Amount" - ServiceLine."Inv. Discount Amount",ExchangeFactor,TRUE);
    // End of the added line.

    "Tax Amount" := 0;
    Quantity := Quantity + ServiceLine."Quantity (Base)";
    "Invoice Discount Amount" := "Invoice Discount Amount" + ServiceLine."Inv. Discount Amount";
    MODIFY;
    ...
  12. Zmień kod w funkcji AddServInvoiceLines w Codeunit obliczyć podatek od sprzedaży (398) w następujący sposób:
    Istniejący kod 1

    ..."Is Report-to Jurisdiction" :=
    ("Tax Jurisdiction Code" = TaxJurisdiction."Report-to Jurisdiction");
    END;
    "Line Amount" := ServInvLine."Line Amount" / ExchangeFactor;

    // Delete the following lines.
    "Tax Base Amount" := ServInvLine."VAT Base Amount" / ExchangeFactor;
    Quantity := ServInvLine.Quantity;
    "Tax Liable" := ServInvLine."Tax Liable";

    // End of the deleted line.

    "Calculation Order" := TaxAreaLine."Calculation Order";
    InsertRec := TRUE;
    INSERT;
    ...

    Kod zastępczy 1

    ..."Is Report-to Jurisdiction" :=
    ("Tax Jurisdiction Code" = TaxJurisdiction."Report-to Jurisdiction");
    END;
    "Line Amount" := ServInvLine."Line Amount" / ExchangeFactor;

    // Add the following lines.
    SetTaxBaseAmount(TempSalesTaxLine,ServInvLine."VAT Base Amount",ExchangeFactor,FALSE);
    Quantity := ServInvLine.Quantity;
    "Tax Liable" := ServInvLine."Tax Liable";
    // End of the added lines.

    "Calculation Order" := TaxAreaLine."Calculation Order";
    InsertRec := TRUE;
    INSERT;
    ...

    Istniejący kod 2

    ...InsertRec := TRUE;
    INSERT;
    END ELSE BEGIN
    "Line Amount" := "Line Amount" + (ServInvLine."Line Amount" / ExchangeFactor);

    // Delete the following line.
    "Tax Base Amount" := "Tax Base Amount" + (ServInvLine."VAT Base Amount" / ExchangeFactor);
    // End of the deleted line.

    Quantity := Quantity + ServInvLine.Quantity;
    IF ServInvLine."Tax Liable" THEN
    "Tax Liable" := ServInvLine."Tax Liable";
    InsertRec := FALSE;
    ...

    Kod zastępczy 2

    ...InsertRec := TRUE;
    INSERT;
    END ELSE BEGIN
    "Line Amount" := "Line Amount" + (ServInvLine."Line Amount" / ExchangeFactor);

    // Add the following line.
    SetTaxBaseAmount(TempSalesTaxLine,ServInvLine."VAT Base Amount",ExchangeFactor,TRUE);
    // End of the added line.

    Quantity := Quantity + ServInvLine.Quantity;
    IF ServInvLine."Tax Liable" THEN
    "Tax Liable" := ServInvLine."Tax Liable";
    InsertRec := FALSE;
    ...
  13. Zmień kod w funkcji AddServCrMemoLines w Codeunit obliczyć podatek od sprzedaży (398) w następujący sposób:
    Istniejący kod 1

    ..."Is Report-to Jurisdiction" :=
    ("Tax Jurisdiction Code" = TaxJurisdiction."Report-to Jurisdiction");
    END;
    "Line Amount" := ServCrMemoLine."Line Amount" / ExchangeFactor;

    // Delete the following line.
    "Tax Base Amount" := ServCrMemoLine."VAT Base Amount" / ExchangeFactor;
    // End of the deleted line.

    Quantity := ServCrMemoLine.Quantity;
    "Tax Liable" := ServCrMemoLine."Tax Liable";

    "Calculation Order" := TaxAreaLine."Calculation Order";
    ...

    Kod zastępczy 1

    ..."Is Report-to Jurisdiction" :=
    ("Tax Jurisdiction Code" = TaxJurisdiction."Report-to Jurisdiction");
    END;
    "Line Amount" := ServCrMemoLine."Line Amount" / ExchangeFactor;

    // Add the following line.
    SetTaxBaseAmount(TempSalesTaxLine,ServCrMemoLine."VAT Base Amount",ExchangeFactor,FALSE);
    // End of the added line.

    Quantity := ServCrMemoLine.Quantity;
    "Tax Liable" := ServCrMemoLine."Tax Liable";

    "Calculation Order" := TaxAreaLine."Calculation Order";
    ...

    Istniejący kod 2

    ...InsertRec := TRUE;
    INSERT;
    END ELSE BEGIN
    "Line Amount" := "Line Amount" + (ServCrMemoLine."Line Amount" / ExchangeFactor);

    // Delete the following line.
    "Tax Base Amount" := "Tax Base Amount" + (ServCrMemoLine."VAT Base Amount" / ExchangeFactor);
    // End of the deleted line.

    Quantity := Quantity + ServCrMemoLine.Quantity;
    IF ServCrMemoLine."Tax Liable" THEN
    "Tax Liable" := ServCrMemoLine."Tax Liable";
    InsertRec := FALSE;
    ...

    Kod zastępczy 2

    ...InsertRec := TRUE;
    INSERT;
    END ELSE BEGIN
    "Line Amount" := "Line Amount" + (ServCrMemoLine."Line Amount" / ExchangeFactor);

    // Add the following line.
    SetTaxBaseAmount(TempSalesTaxLine,ServCrMemoLine."VAT Base Amount",ExchangeFactor,TRUE);
    // End of the added line.

    Quantity := Quantity + ServCrMemoLine.Quantity;
    IF ServCrMemoLine."Tax Liable" THEN
    "Tax Liable" := ServCrMemoLine."Tax Liable";
    InsertRec := FALSE;
    ...
  14. Dodawanie funkcji SetTaxBaseAmount w Codeunit obliczyć podatek od sprzedaży (398) w następujący sposób:

    LOCAL PROCEDURE SetTaxBaseAmount@1020031(VAR SalesTaxAmountLine@1020001 : Record 10011;Value@1020000 : Decimal;ExchangeFactor@1020002 : Decimal;Increment@1020003 : Boolean);      BEGIN
    WITH SalesTaxAmountLine DO BEGIN
    IF Increment THEN
    "Tax Base Amount FCY" += Value
    ELSE
    "Tax Base Amount FCY" := Value;
    "Tax Base Amount" := "Tax Base Amount FCY" / ExchangeFactor;
    END;
    END;



Wymagania wstępne

Musi mieć jedną z następujących produktów, w celu zastosowania tej poprawki:

  • Północnoamerykański wersji systemu Microsoft Dynamics NAV 2009 R2

  • Północnoamerykański wersji dodatku Service Pack 1 dla systemu Microsoft Dynamics NAV 2009

Informacje dotyczące usuwania

Nie można usunąć tej poprawki.

Powiązane artykuły

VSTF DynamicsNAVSE: 346494

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.

Autor: rmille
Writer: v-six
Weryfikacja tech.: btschosi; bwick
Redaktor:

Potrzebna dalsza pomoc?

Rozwijaj swoje umiejętności
Poznaj szkolenia
Uzyskuj nowe funkcje w pierwszej kolejności
Dołącz do niejawnych testerów firmy Microsoft

Czy te informacje były pomocne?

Dziękujemy za opinię!

Dziękujemy za opinię! Wygląda na to, że połączenie Cię z jednym z naszych agentów pomocy technicznej pakietu Office może być pomocne.

×