Dit artikel is van toepassing op Microsoft Dynamics NAV voor de Landinstellingen van de Indiase (in)-taal.
Symptomen
Stel dat u een betaling hebt met een servicebelasting die is opgegeven in de Indiase versie van Microsoft Dynamics NAV 2009. U maakt een inkoopfactuur met meerdere regels met verschillende dimensiewaarden die op de betaling moeten worden toegepast. In dit geval ontvangt u het volgende foutbericht wanneer u de aankoopfactuur boekt:
Opmerking
Het toegepaste betalingsdocument xxxx mag geen bedrag hebben dat groter is dan bedrag toepassen.
Dit probleem treedt op in de volgende producten:
- De Indiase versie van Microsoft Dynamics NAV 2009 R2
- De Indiase versie van Microsoft Dynamics NAV 2009 Service Pack 1 (SP1)
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 daarom aan te wachten op het volgende Microsoft Dynamics NAV-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 helpen bij het uitleggen van de functionaliteit van een bepaalde procedure, maar ze zullen deze voorbeelden niet wijzigen om extra functionaliteit te bieden of procedures te maken die voldoen aan uw specifieke vereisten.
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:
Wijzig de code in de functie FillInvPostingBuffer in de Purch.-Post codeunit (90) als volgt:
Bestaande code... InvPostingBuffer[1].SetTaxAmountswithVAT(AmountLoadedonInventory,InputOutputTaxAmount,CapitalGoods,VatablePurchaseTaxAmount,0); IF (PurchLine."Service Tax Amount" <> 0) THEN BEGIN FillSTaxPostingBuffer(PurchLine,PurchLineACY); // Delete the following lines. STaxPostingBuffer2.TRANSFERFIELDS(STaxPostingBuffer[1]); STaxPostingBuffer2.Amount := // End of the lines. STaxPostingBuffer2."Service Tax Base Amount" + STaxPostingBuffer2."Service Tax Amount" + STaxPostingBuffer2."Service Tax eCess Amount" + STaxPostingBuffer2."Service Tax SHE Cess Amount"; IF NOT STaxPostingBuffer2.INSERT THEN STaxPostingBuffer2.MODIFY; END; ...Vervangende code
... InvPostingBuffer[1].SetTaxAmountswithVAT(AmountLoadedonInventory,InputOutputTaxAmount,CapitalGoods,VatablePurchaseTaxAmount,0); IF (PurchLine."Service Tax Amount" <> 0) THEN BEGIN FillSTaxPostingBuffer(PurchLine,PurchLineACY); // Add the following lines. STaxPostingBuffer2.TRANSFERFIELDS(STaxPostingBuffer[2]); STaxPostingBuffer2.Amount := STaxPostingBuffer2.Amount + // End of the lines. STaxPostingBuffer2."Service Tax Base Amount" + STaxPostingBuffer2."Service Tax Amount" + STaxPostingBuffer2."Service Tax eCess Amount" + STaxPostingBuffer2."Service Tax SHE Cess Amount"; IF NOT STaxPostingBuffer2.INSERT THEN STaxPostingBuffer2.MODIFY; END; ...Wijzig de code in de functie UpdSvcTaxPostingBuffer in de Purch.-Post codeunit (90) als volgt:
Bestaande code... END; LOCAL PROCEDURE UpdSvcTaxPostingBuffer@1280031(); VAR TempDimBuf@1280001 : TEMPORARY Record 360; // Delete the following line. EntryNo@1280000 : Integer; BEGIN TempDocDim.RESET; TempDocDim.SETRANGE("Table ID",DATABASE::"Purchase Line"); TempDocDim.SETRANGE("Line No.",PurchLine."Line No."); IF TempDocDim.FIND('-') THEN ...Vervangende code
... END; LOCAL PROCEDURE UpdSvcTaxPostingBuffer@1280031(); VAR TempDimBuf@1280001 : TEMPORARY Record 360; // Add the following line. EntryNo1@1280000 : Integer; BEGIN TempDocDim.RESET; TempDocDim.SETRANGE("Table ID",DATABASE::"Purchase Line"); TempDocDim.SETRANGE("Line No.",PurchLine."Line No."); IF TempDocDim.FIND('-') THEN ...Wijzig de code in de functie UpdSvcTaxPostingBuffer in de Purch.-Post codeunit (90) als volgt:
Bestaande code... TempDimBuf."Table ID" := TempDocDim."Table ID"; TempDimBuf."Dimension Code" := TempDocDim."Dimension Code"; TempDimBuf."Dimension Value Code" := TempDocDim."Dimension Value Code"; TempDimBuf.INSERT; UNTIL TempDocDim.NEXT = 0; // Delete the following lines. EntryNo := DimBufMgt.FindDimensions(TempDimBuf); IF EntryNo = 0 THEN EntryNo := DimBufMgt.InsertDimensions(TempDimBuf); // End of the lines. SvcTaxPostingBuffer[1]."Dimension Entry No." := EntryNo; SvcTaxPostingBuffer[2] := SvcTaxPostingBuffer[1]; IF SvcTaxPostingBuffer[2].FIND THEN BEGIN SvcTaxPostingBuffer[2]."Service Tax Base Amount" := SvcTaxPostingBuffer[2]."Service Tax Base Amount" + SvcTaxPostingBuffer[1]."Service Tax Base Amount"; ...Vervangende code
... TempDimBuf."Table ID" := TempDocDim."Table ID"; TempDimBuf."Dimension Code" := TempDocDim."Dimension Code"; TempDimBuf."Dimension Value Code" := TempDocDim."Dimension Value Code"; TempDimBuf.INSERT; UNTIL TempDocDim.NEXT = 0; // Add the following lines. EntryNo1 := DimBufMgt.FindDimensions(TempDimBuf); IF EntryNo1 = 0 THEN EntryNo1 := DimBufMgt.InsertDimensions(TempDimBuf); // End of the lines. SvcTaxPostingBuffer[1]."Dimension Entry No." := EntryNo; SvcTaxPostingBuffer[2] := SvcTaxPostingBuffer[1]; IF SvcTaxPostingBuffer[2].FIND THEN BEGIN SvcTaxPostingBuffer[2]."Service Tax Base Amount" := SvcTaxPostingBuffer[2]."Service Tax Base Amount" + SvcTaxPostingBuffer[1]."Service Tax Base Amount"; ...Wijzig de code in de functie UpdSTaxPostingBuffer in purch.-Post codeunit (90) als volgt:
Bestaande code... END; LOCAL PROCEDURE UpdSTaxPostingBuffer@1500010(); VAR TempDimBuf@1500001 : TEMPORARY Record 360; // Delete the following line. EntryNo@1500000 : Integer; BEGIN TempDocDim.RESET; TempDocDim.SETRANGE("Table ID",DATABASE::"Purchase Line"); TempDocDim.SETRANGE("Line No.",PurchLine."Line No."); IF TempDocDim.FIND('-') THEN ...Vervangende code
... END; LOCAL PROCEDURE UpdSTaxPostingBuffer@1500010(); VAR TempDimBuf@1500001 : TEMPORARY Record 360; // Add the following line. EntryNo1@1500000 : Integer; BEGIN TempDocDim.RESET; TempDocDim.SETRANGE("Table ID",DATABASE::"Purchase Line"); TempDocDim.SETRANGE("Line No.",PurchLine."Line No."); IF TempDocDim.FIND('-') THEN ...Wijzig de code in de functie UpdSTaxPostingBuffer in purch.-Post codeunit (90) als volgt:
Bestaande code... TempDimBuf."Table ID" := TempDocDim."Table ID"; TempDimBuf."Dimension Code" := TempDocDim."Dimension Code"; TempDimBuf."Dimension Value Code" := TempDocDim."Dimension Value Code"; TempDimBuf.INSERT; UNTIL TempDocDim.NEXT = 0; // Delete the following lines. EntryNo := DimBufMgt.FindDimensions(TempDimBuf); IF EntryNo = 0 THEN EntryNo := DimBufMgt.InsertDimensions(TempDimBuf); // End of the lines. STaxPostingBuffer[1]."Dimension Entry No." := EntryNo; STaxPostingBuffer[2] := STaxPostingBuffer[1]; IF STaxPostingBuffer[2].FIND THEN BEGIN STaxPostingBuffer[2]."Service Tax Base Amount" := STaxPostingBuffer[2]."Service Tax Base Amount" + STaxPostingBuffer[1]."Service Tax Base Amount"; ...Vervangende code
... TempDimBuf."Table ID" := TempDocDim."Table ID"; TempDimBuf."Dimension Code" := TempDocDim."Dimension Code"; TempDimBuf."Dimension Value Code" := TempDocDim."Dimension Value Code"; TempDimBuf.INSERT; UNTIL TempDocDim.NEXT = 0; // Add the following lines. EntryNo1 := DimBufMgt.FindDimensions(TempDimBuf); IF EntryNo1 = 0 THEN EntryNo1 := DimBufMgt.InsertDimensions(TempDimBuf); // End of the lines. STaxPostingBuffer[1]."Dimension Entry No." := EntryNo; STaxPostingBuffer[2] := STaxPostingBuffer[1]; IF STaxPostingBuffer[2].FIND THEN BEGIN STaxPostingBuffer[2]."Service Tax Base Amount" := STaxPostingBuffer[2]."Service Tax Base Amount" + STaxPostingBuffer[1]."Service Tax Base Amount"; ...Wijzig de code in de functie UpdSTaxApplicationBuffer2 in de Purch.-Post codeunit (90) als volgt:
Bestaande code... END; LOCAL PROCEDURE UpdSTaxApplicationBuffer2@1500020(); VAR TempDimBuf@1500001 : TEMPORARY Record 360; // Delete the following line. EntryNo@1500000 : Integer; BEGIN TempDocDim.RESET; TempDocDim.SETRANGE("Table ID",DATABASE::"Purchase Line"); TempDocDim.SETRANGE("Line No.",PurchLine."Line No."); IF TempDocDim.FIND('-') THEN ...Vervangende code
... END; LOCAL PROCEDURE UpdSTaxApplicationBuffer2@1500020(); VAR TempDimBuf@1500001 : TEMPORARY Record 360; // Add the following line. EntryNo1@1500000 : Integer; BEGIN TempDocDim.RESET; TempDocDim.SETRANGE("Table ID",DATABASE::"Purchase Line"); TempDocDim.SETRANGE("Line No.",PurchLine."Line No."); IF TempDocDim.FIND('-') THEN ...Wijzig de code in de functie UpdSTaxApplicationBuffer2 in de Purch.-Post codeunit (90) als volgt:
Bestaande code... TempDimBuf."Table ID" := TempDocDim."Table ID"; TempDimBuf."Dimension Code" := TempDocDim."Dimension Code"; TempDimBuf."Dimension Value Code" := TempDocDim."Dimension Value Code"; TempDimBuf.INSERT; UNTIL TempDocDim.NEXT = 0; // Delete the following lines. EntryNo := DimBufMgt.FindDimensions(TempDimBuf); IF EntryNo = 0 THEN EntryNo := DimBufMgt.InsertDimensions(TempDimBuf); // End of the lines. STaxPostingBuffer[1]."Dimension Entry No." := EntryNo; STaxPostingBuffer[2] := STaxPostingBuffer[1]; IF STaxPostingBuffer[2].FIND THEN BEGIN STaxPostingBuffer[2]."Service Tax Base Amount" := ...Vervangende code
... TempDimBuf."Table ID" := TempDocDim."Table ID"; TempDimBuf."Dimension Code" := TempDocDim."Dimension Code"; TempDimBuf."Dimension Value Code" := TempDocDim."Dimension Value Code"; TempDimBuf.INSERT; UNTIL TempDocDim.NEXT = 0; // Add the following lines. EntryNo1 := DimBufMgt.FindDimensions(TempDimBuf); IF EntryNo1 = 0 THEN EntryNo1 := DimBufMgt.InsertDimensions(TempDimBuf); // End of the lines. STaxPostingBuffer[1]."Dimension Entry No." := EntryNo; STaxPostingBuffer[2] := STaxPostingBuffer[1]; IF STaxPostingBuffer[2].FIND THEN BEGIN STaxPostingBuffer[2]."Service Tax Base Amount" := ...Wijzig de code in de functie CheckAmounttoApplyofApplPmt in de Purch.-Post codeunit (90) als volgt:
Bestaande code... BEGIN ExecuteForLookup := ApplLookupOk; END; PROCEDURE CheckAmounttoApplyofApplPmt@1500018(OldVendLedgEntry@1500001 : Record 25;ServiceTaxEntry@1500000 : Record 16473); BEGIN STaxPostingBuffer2.RESET; STaxPostingBuffer2.SETRANGE("Service Tax Group Code",ServiceTaxEntry."Service Tax Group Code"); STaxPostingBuffer2.SETRANGE("Service Tax Registration No.",ServiceTaxEntry."Service Tax Registration No."); ...Vervangende code
... BEGIN ExecuteForLookup := ApplLookupOk; END; PROCEDURE CheckAmounttoApplyofApplPmt@1500018(OldVendLedgEntry@1500001 : Record 25;ServiceTaxEntry@1500000 : Record 16473); // Add the following lines. VAR STAmount@1600000 : Decimal; // End of the lines. BEGIN STaxPostingBuffer2.RESET; STaxPostingBuffer2.SETRANGE("Service Tax Group Code",ServiceTaxEntry."Service Tax Group Code"); STaxPostingBuffer2.SETRANGE("Service Tax Registration No.",ServiceTaxEntry."Service Tax Registration No."); ...Wijzig de code in de functie CheckAmounttoApplyofApplPmt in de Purch.-Post codeunit (90) als volgt:
Bestaande code... STaxPostingBuffer2.RESET; STaxPostingBuffer2.SETRANGE("Service Tax Group Code",ServiceTaxEntry."Service Tax Group Code"); STaxPostingBuffer2.SETRANGE("Service Tax Registration No.",ServiceTaxEntry."Service Tax Registration No."); // Delete the following lines. IF STaxPostingBuffer2.FINDFIRST THEN BEGIN IF OldVendLedgEntry."Amount to Apply" > STaxPostingBuffer2.Amount THEN ERROR(Text16520,OldVendLedgEntry."Document No.",STaxPostingBuffer2.Amount) IF STaxPostingBuffer2.FINDFIRST THEN BEGIN IF OldVendLedgEntry."Amount to Apply" > STaxPostingBuffer2.Amount THEN ERROR(Text16520,OldVendLedgEntry."Document No.",STaxPostingBuffer2.Amount) ELSE STaxPostingBuffer2.Amount -= OldVendLedgEntry."Amount to Apply"; STaxPostingBuffer2.MODIFY; END ELSE STaxPostingBuffer2.Amount -= OldVendLedgEntry."Amount to Apply"; STaxPostingBuffer2.MODIFY; // End of the lines. END ...Vervangende code
... STaxPostingBuffer2.RESET; STaxPostingBuffer2.SETRANGE("Service Tax Group Code",ServiceTaxEntry."Service Tax Group Code"); STaxPostingBuffer2.SETRANGE("Service Tax Registration No.",ServiceTaxEntry."Service Tax Registration No."); // Add the following lines. IF STaxPostingBuffer2.FINDSET THEN BEGIN REPEAT STAmount += STaxPostingBuffer2.Amount; STaxPostingBuffer2.MODIFY; UNTIL STaxPostingBuffer2.NEXT = 0; IF OldVendLedgEntry."Amount to Apply" > STAmount THEN ERROR(Text16520,OldVendLedgEntry."Document No.",STAmount) ELSE STaxPostingBuffer2.Amount -= OldVendLedgEntry."Amount to Apply"; // End of the lines. END ...
Vereisten
U moet een van de volgende producten hebben geïnstalleerd om deze hotfix toe te passen:
- De Indiase versie van Microsoft Dynamics NAV 2009 R2
- De Indiase versie van Microsoft Dynamics NAV 2009 Service Pack 1 (SP1)
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.