Het systeem vult de 'Amt. Rcd. Het veld Geen factuur' in de inkooporder wanneer u een ontvangstbevestiging voor een aankoop voltooit in de Noord-Amerikaanse versie van Microsoft Dynamics NAV 2009

Van toepassing op
Dynamics NAV 2009

Dit artikel is van toepassing op Microsoft Dynamics NAV voor de volgende landen en taalinstellingen.

  • Engels-Canada (en-ca)
  • Engels-VS (en-us)
  • Spaans-Mexico (es-mx)
  • French-Canada (fr-ca)

Symptomen

Stel dat u een inkooporder maakt in de Noord-Amerikaanse versie van Microsoft Dynamics NAV 2009 R2 en in Microsoft Dynamics NAV 2009 Service Pack 1 (SP1). Als u het veld Belastinggebied op leeg instelt, vult het systeem de Amt. Rcd niet in. Geen factuurveld in de inkooporder wanneer u een ontvangstbevestiging bij de aankoop voltooit.

Oplossing

Hotfix-informatie

Er is nu een ondersteunde hotfix beschikbaar bij Microsoft. Het is echter alleen bedoeld om het probleem op te lossen dat in dit artikel wordt beschreven. Pas deze alleen toe op systemen die dit specifieke probleem ondervinden. Deze hotfix kan aanvullende tests ontvangen. Als u niet ernstig last hebt van dit probleem, raden we u aan te wachten op het volgende Microsoft Dynamics NAV 2009-servicepack of de volgende Microsoft Dynamics NAV-versie die deze hotfix bevat.

Opmerking In speciale gevallen kunnen kosten die gewoonlijk worden gemaakt voor ondersteuningsoproepen worden geannuleerd als een technische ondersteuningsmedewerker voor Microsoft Dynamics en gerelateerde producten vaststelt dat een specifieke update uw probleem oplost. De gebruikelijke ondersteuningskosten zijn van toepassing op aanvullende ondersteuningsvragen en problemen die niet in aanmerking komen voor de specifieke update in kwestie.

          

Installatie-informatie

Microsoft biedt programmeervoorbeelden uitsluitend ter illustratie, zonder uitdrukkelijke of impliciete garantie. Dit omvat, maar is niet beperkt tot, de impliciete garanties van verkoopbaarheid of geschiktheid voor een bepaald doel. In dit artikel wordt ervan uitgegaan dat u bekend bent met de programmeertaal die wordt gedemonstreerd en met de hulpprogramma's die worden gebruikt om procedures te maken en fouten op te sporen. Microsoft-ondersteuningstechnici kunnen u helpen de functionaliteit van een bepaalde procedure uit te leggen. Zij zullen echter deze voorbeelden niet wijzigen om extra functionaliteit te bieden of procedures te maken om aan uw specifieke vereisten te voldoen.

Opmerking Voordat u deze hotfix installeert, controleert u of alle Microsoft Navision-clientgebruikers zijn afgemeld bij het systeem. Dit geldt ook voor gebruikers van Microsoft Navision Application Services (NAS). U moet de enige clientgebruiker zijn die is aangemeld wanneer u deze hotfix implementeert.

Als u deze hotfix wilt implementeren, moet u een ontwikkelaarslicentie hebben.

We raden u aan om aan het gebruikersaccount in het venster Windows-aanmeldingen of in het venster Databaseaanmeldingen de rol-id 'SUPER' toe te wijzen. Als de rol-id 'SUPER' niet kan worden toegewezen aan het gebruikersaccount, moet u controleren of het gebruikersaccount de volgende machtigingen heeft:

  • De machtiging Wijzigen voor het object dat u gaat wijzigen.
  • De machtiging Uitvoeren voor het object Systeemobject-id 5210 en voor het object Systeemobject-id 9015.

                
Opmerking U hoeft geen rechten te hebben voor de gegevensarchieven, tenzij u gegevensherstel moet uitvoeren.

Codewijzigingen

Opmerking Test altijd codecorrecties in een beheerde omgeving voordat u de correcties toepast op uw productiecomputers.
Voer de volgende stappen uit om dit probleem op te lossen:

  1. Wijzig de code in de functie InitOutstandingAmount in de tabel Verkoopregel (37) als volgt:
    Bestaande code

    ...
    "Shipped Not Invoiced (LCY)" := 0;
    "Return Rcd. Not Invd." := 0;
    "Return Rcd. Not Invd. (LCY)" := 0;
    END ELSE BEGIN
    GetSalesHeader;
    
    // Delete the following lines.
    IF SalesHeader.Status = SalesHeader.Status::Released THEN
    AmountInclVAT := "Amount Including VAT"
    ELSE
    // End of the lines.
    
    IF SalesHeader."Prices Including VAT" THEN
    AmountInclVAT := "Line Amount" - "Inv. Discount Amount"
    ELSE
    IF "VAT Calculation Type" = "VAT Calculation Type"::"Sales Tax" THEN
    AmountInclVAT :=
    "Line Amount" - "Inv. Discount Amount" +
    ROUND(
    SalesTaxCalculate.CalculateTax(
    "Tax Area Code","Tax Group Code","Tax Liable",SalesHeader."Posting Date",
    "Line Amount" - "Inv. Discount Amount","Quantity (Base)",SalesHeader."Currency Factor"),
    Currency."Amount Rounding Precision")
    ELSE
    AmountInclVAT :=
    ROUND(
    ("Line Amount" - "Inv. Discount Amount") *
    (1 + "VAT %" / 100 * (1 - SalesHeader."VAT Base Discount %" / 100)),
    Currency."Amount Rounding Precision");
    VALIDATE(
    "Outstanding Amount",
    ROUND(
    AmountInclVAT * "Outstanding Quantity" / Quantity,
    Currency."Amount Rounding Precision"));
    ...
    
    

    Vervangende code

    ...
    "Shipped Not Invoiced (LCY)" := 0;
    "Return Rcd. Not Invd." := 0;
    "Return Rcd. Not Invd. (LCY)" := 0;
    END ELSE BEGIN
    GetSalesHeader;
    IF SalesHeader."Prices Including VAT" THEN
    AmountInclVAT := "Line Amount" - "Inv. Discount Amount"
    ELSE
    IF "VAT Calculation Type" = "VAT Calculation Type"::"Sales Tax" THEN
    AmountInclVAT :=
    "Line Amount" - "Inv. Discount Amount" +
    ROUND(
    SalesTaxCalculate.CalculateTax(
    "Tax Area Code","Tax Group Code","Tax Liable",SalesHeader."Posting Date",
    "Line Amount" - "Inv. Discount Amount","Quantity (Base)",SalesHeader."Currency Factor"),
    Currency."Amount Rounding Precision")
    ELSE
    AmountInclVAT :=
    ROUND(
    ("Line Amount" - "Inv. Discount Amount") *
    (1 + "VAT %" / 100 * (1 - SalesHeader."VAT Base Discount %" / 100)),
    Currency."Amount Rounding Precision");
    VALIDATE(
    "Outstanding Amount",
    ROUND(
    AmountInclVAT * "Outstanding Quantity" / Quantity,
    Currency."Amount Rounding Precision"));
    ...
    
    
  2. Wijzig de code in de functie InitOutstandingAmount in de tabel Inkoopregel (39) als volgt:
    Bestaande code

    ...
    "Amt. Rcd. Not Invoiced (LCY)" := 0;
    "Return Shpd. Not Invd." := 0;
    "Return Shpd. Not Invd. (LCY)" := 0;
    END ELSE BEGIN
    GetPurchHeader;
    
    // Delete the following lines.
    IF PurchHeader.Status = PurchHeader.Status::Released THEN
    AmountInclVAT := "Amount Including VAT"
    ELSE
    // End of the lines.
    
    IF PurchHeader."Prices Including VAT" THEN
    AmountInclVAT := "Line Amount" - "Inv. Discount Amount"
    ELSE
    IF "VAT Calculation Type" = "VAT Calculation Type"::"Sales Tax" THEN BEGIN
    IF "Use Tax" THEN
    AmountInclVAT := "Line Amount" - "Inv. Discount Amount"
    ELSE
    AmountInclVAT :=
    "Line Amount" - "Inv. Discount Amount" +
    ROUND(
    SalesTaxCalculate.CalculateTax(
    "Tax Area Code","Tax Group Code","Tax Liable",PurchHeader."Posting Date",
    "Line Amount" - "Inv. Discount Amount","Quantity (Base)",PurchHeader."Currency Factor"),
    Currency."Amount Rounding Precision")
    END ELSE
    AmountInclVAT :=
    ROUND(
    ("Line Amount" - "Inv. Discount Amount") *
    (1 + "VAT %" / 100 * (1 - PurchHeader."VAT Base Discount %" / 100)),
    Currency."Amount Rounding Precision");
    VALIDATE(
    "Outstanding Amount",
    ROUND(
    AmountInclVAT * "Outstanding Quantity" / Quantity,
    Currency."Amount Rounding Precision"));
    ...
    
    

    Vervangende code

    ...
    "Amt. Rcd. Not Invoiced (LCY)" := 0;
    "Return Shpd. Not Invd." := 0;
    "Return Shpd. Not Invd. (LCY)" := 0;
    END ELSE BEGIN
    GetPurchHeader;
    IF PurchHeader."Prices Including VAT" THEN
    AmountInclVAT := "Line Amount" - "Inv. Discount Amount"
    ELSE
    IF "VAT Calculation Type" = "VAT Calculation Type"::"Sales Tax" THEN BEGIN
    IF "Use Tax" THEN
    AmountInclVAT := "Line Amount" - "Inv. Discount Amount"
    ELSE
    AmountInclVAT :=
    "Line Amount" - "Inv. Discount Amount" +
    ROUND(
    SalesTaxCalculate.CalculateTax(
    "Tax Area Code","Tax Group Code","Tax Liable",PurchHeader."Posting Date",
    "Line Amount" - "Inv. Discount Amount","Quantity (Base)",PurchHeader."Currency Factor"),
    Currency."Amount Rounding Precision")
    END ELSE
    AmountInclVAT :=
    ROUND(
    ("Line Amount" - "Inv. Discount Amount") *
    (1 + "VAT %" / 100 * (1 - PurchHeader."VAT Base Discount %" / 100)),
    Currency."Amount Rounding Precision");
    VALIDATE(
    "Outstanding Amount",
    ROUND(
    AmountInclVAT * "Outstanding Quantity" / Quantity,
    Currency."Amount Rounding Precision"));
    ...
    
    

Vereisten

U moet een van de volgende producten hebben geïnstalleerd om deze hotfix toe te passen:

  • De Noord-Amerikaanse versie van Microsoft Dynamics NAV 2009 R2
  • De Noord-Amerikaanse versie van Microsoft Dynamics NAV 2009 Service Pack 1

Verwijderingsgegevens

U kunt deze hotfix niet verwijderen.

Status

Microsoft heeft bevestigd dat dit een probleem is bij de Microsoft-producten die worden vermeld in het gedeelte 'Van toepassing op'.

Opmerking Dit is een artikel 'FAST PUBLISH' dat rechtstreeks vanuit de microsoft-ondersteuningsorganisatie is gemaakt. De hierin opgenomen informatie wordt als zodanig verstrekt als reactie op nieuwe problemen. Als gevolg van de snelheid waarmee het beschikbaar wordt gesteld, kunnen de materialen typografische fouten bevatten en te allen tijde zonder voorafgaande kennisgeving worden herzien. Zie Gebruiksvoorwaarden voor andere overwegingen.