Raden i intrastatbatchen för varorna summerar varuraden och tjänstraden på fakturan när du kör funktionen Hämta poster i en intrastatdagbok i den italienska versionen av Microsoft Dynamics NAV

Gäller för
Dynamics NAV 2009 Service Pack 1 Microsoft Dynamics NAV 5.0 Service Pack 1

Den här artikeln gäller Microsoft Dynamics NAV för språkspråket italienska (it).

Symptom

Anta att en eu-faktura (EU) innehåller två rader för samma artikelnummer i den italienska versionen av Microsoft Dynamics NAV. En rad är en varulinje och den andra linjen är en servicelinje. I det här fallet, när du kör funktionen Hämta poster i en Intrastat-journal, summerar raden i intrastatbatchen för varorna två rader i fakturan.
Dessutom kan du inte ange transportsätt för varor eller "modalità di erogazione" för tjänster om varorna och tjänsterna ingår i samma faktura. Det här problemet uppstår även om varorna och tjänsterna använder olika artikelnummer eller olika radtyper.

Det här problemet uppstår i följande produkter:

  • Den italienska versionen av Microsoft Dynamics NAV 2009 Service Pack 1 (SP1)
  • Den italienska versionen av Microsoft Dynamics NAV 5.0 Service Pack 1 (SP1)

Lösning

Snabbkorrigeringsinformation

En snabbkorrigering som stöds är nu tillgänglig från Microsoft. Det är dock bara avsett att åtgärda problemet som beskrivs i den här artikeln. Använd den bara på system som har det här specifika problemet. Den här snabbkorrigeringen kan få ytterligare tester. Om du inte drabbas hårt av det här problemet rekommenderar vi därför att du väntar på nästa Microsoft Dynamics NAV Service Pack eller nästa Microsoft Dynamics NAV-version som innehåller den här snabbkorrigeringen.

Obs! I särskilda fall kan avgifter som vanligtvis uppkommer för supportsamtal avbrytas om en teknisk supporttekniker för Microsoft Dynamics och relaterade produkter fastställer att en specifik uppdatering löser problemet. De vanliga supportkostnaderna gäller för ytterligare supportfrågor och problem som inte är berättigade till den aktuella uppdateringen.

            
          

Installationsinformation

Microsoft tillhandahåller endast programmeringsexempel i visningssyfte, utan att någon form av garanti uttrycks eller är underförstådd. Detta omfattar men är inte begränsat till underförstådda garantier för säljbarhet eller lämplighet för ett visst ändamål. Den här artikeln förutsätter att du är bekant med programmeringsspråket som demonstreras och med de verktyg som används för att skapa och felsöka procedurer. Microsofts supporttekniker kan hjälpa till att förklara funktionaliteten i en viss procedur, men de ändrar inte de här exemplen för att tillhandahålla ytterligare funktioner eller konstruera procedurer för att uppfylla dina specifika krav.

Obs! Innan du installerar den här snabbkorrigeringen kontrollerar du att alla Microsoft Navision-klientanvändare loggas ut från systemet. Detta omfattar användare av Microsoft Navision Application Services (NAS). Du bör vara den enda klientanvändare som är inloggad när du implementerar snabbkorrigeringen.

Om du vill implementera den här snabbkorrigeringen måste du ha en utvecklarlicens.

Vi rekommenderar att användarkontot i fönstret Windows-inloggningar eller i fönstret Databasinloggningar tilldelas roll-ID:t "SUPER". Om användarkontot inte kan tilldelas superroll-ID måste du kontrollera att användarkontot har följande behörigheter:

  • Behörigheten Ändra för det objekt som du kommer att ändra.
  • Körbehörigheten för systemobjekt-ID 5210-objektet och för 9015-objektet Systemobjekt-ID.

                
Obs! Du behöver inte ha rättigheter till datakällorna om du inte behöver utföra datareparation.

Kodändringar

Obs! Testa alltid korrigeringar av kod i en kontrollerad miljö innan du tillämpar korrigeringarna på produktionsdatorerna.
Lös problemet genom att ändra koden i artikeltransaktionerna – OnAfterGetRecord-utlösaren i rapporten Hämta artikeltransaktioner (594) enligt följande:

Befintlig kod

...
IF ValueEntry.FINDSET(FALSE,FALSE) THEN BEGIN
CASE ValueEntry."Item Ledger Entry Type" OF
ValueEntry."Item Ledger Entry Type" :: Purchase: BEGIN
IF ValueEntry."Invoiced Quantity" > 0 THEN BEGIN
PurchInvLine.SETRANGE("Document No.",ValueEntry."Document No.");
PurchInvLine.SETRANGE(Type, PurchInvLine.Type::Item);
PurchInvLine.SETRANGE("No.",ValueEntry."Item No.");
IF PurchInvLine.FIND('-') THEN BEGIN
PurchInvHeader.GET(ValueEntry."Document No.");
REPEAT
TotalInvoicedQty := TotalInvoicedQty + PurchInvLine.Quantity;
IF PurchInvHeader."Currency Factor" <> 0 THEN
TotalAmt := TotalAmt + (PurchInvLine.Amount / PurchInvHeader."Currency Factor")
ELSE
TotalAmt := TotalAmt + PurchInvLine.Amount;
UNTIL PurchInvLine.NEXT = 0;
END ELSE BEGIN
PurchRcptLine.SETRANGE("Document No.",ValueEntry."Document No.");
PurchRcptLine.SETRANGE(Type, PurchRcptLine.Type::Item);
PurchRcptLine.SETRANGE("No.",ValueEntry."Item No.");
IF PurchRcptLine.FIND('-') THEN BEGIN
REPEAT
IF PurchRcptLine.Correction = TRUE THEN
CorrectionFound := TRUE;
DocItemSum += PurchRcptLine."Quantity Invoiced";
UNTIL PurchRcptLine.NEXT = 0;
IF (DocItemSum = 0) AND CorrectionFound THEN CurrReport.SKIP;
END;
END;
END ELSE BEGIN
PurchCrMemoLine.SETRANGE("Document No.",ValueEntry."Document No.");
PurchCrMemoLine.SETRANGE(Type, PurchInvLine.Type::Item);
PurchCrMemoLine.SETRANGE("No.",ValueEntry."Item No.");
IF PurchCrMemoLine.FIND('-') THEN BEGIN
PurchCrMemoHdr.GET(ValueEntry."Document No.");
REPEAT
TotalInvoicedQty := TotalInvoicedQty - PurchCrMemoLine.Quantity;
IF PurchCrMemoHdr."Currency Factor" <> 0 THEN
TotalAmt := TotalAmt - (PurchCrMemoLine.Amount / PurchCrMemoHdr."Currency Factor")
ELSE
TotalAmt := TotalAmt - PurchCrMemoLine.Amount;
UNTIL PurchCrMemoLine.NEXT = 0;
END ELSE BEGIN
PurchRcptLine.SETRANGE("Document No.",ValueEntry."Document No.");
PurchRcptLine.SETRANGE(Type, PurchRcptLine.Type::Item);
PurchRcptLine.SETRANGE("No.",ValueEntry."Item No.");
IF PurchRcptLine.FIND('-') THEN BEGIN
REPEAT
IF PurchRcptLine.Correction = TRUE THEN
CorrectionFound := TRUE;
DocItemSum += PurchRcptLine."Quantity Invoiced";
UNTIL PurchRcptLine.NEXT = 0;
IF (DocItemSum = 0) AND CorrectionFound THEN CurrReport.SKIP;
END;
END;
END;
END;

ValueEntry."Item Ledger Entry Type" :: Sale: BEGIN
IF ValueEntry."Invoiced Quantity" < 0 THEN BEGIN
SalesInvoiceLine.SETRANGE("Document No.",ValueEntry."Document No.");
SalesInvoiceLine.SETRANGE(Type, SalesInvoiceLine.Type::Item);
SalesInvoiceLine.SETRANGE("No.",ValueEntry."Item No.");
IF SalesInvoiceLine.FIND('-') THEN BEGIN
SalesInvoiceHeader.GET(ValueEntry."Document No.");
REPEAT
TotalInvoicedQty := TotalInvoicedQty - SalesInvoiceLine.Quantity;
IF SalesInvoiceHeader."Currency Factor" <> 0 THEN
TotalAmt := TotalAmt - (SalesInvoiceLine.Amount / SalesInvoiceHeader."Currency Factor")
ELSE
TotalAmt := TotalAmt - (SalesInvoiceLine.Amount);
UNTIL SalesInvoiceLine.NEXT = 0;
END ELSE BEGIN
SalesShipLine.SETRANGE("Document No.",ValueEntry."Document No.");
SalesShipLine.SETRANGE(Type, SalesShipLine.Type::Item);
SalesShipLine.SETRANGE("No.",ValueEntry."Item No.");
IF SalesShipLine.FIND('-') THEN BEGIN
REPEAT
IF SalesShipLine.Correction = TRUE THEN
CorrectionFound := TRUE;
DocItemSum += SalesShipLine."Quantity Invoiced";
UNTIL SalesShipLine.NEXT = 0;
IF (DocItemSum = 0) AND CorrectionFound THEN CurrReport.SKIP;
END;
END;
END ELSE BEGIN
SalesCrMemoLine.SETRANGE("Document No.",ValueEntry."Document No.");
SalesCrMemoLine.SETRANGE(Type,SalesCrMemoLine.Type::Item);
SalesCrMemoLine.SETRANGE("No.",ValueEntry."Item No.");
IF SalesCrMemoLine.FIND('-') THEN BEGIN
SalesCrMemoHeader.GET(ValueEntry."Document No.");
REPEAT
TotalInvoicedQty := TotalInvoicedQty + SalesCrMemoLine.Quantity;
IF SalesCrMemoHeader."Currency Factor" <>0 THEN
TotalAmt := TotalAmt + (SalesCrMemoLine.Amount / SalesCrMemoHeader."Currency Factor")
ELSE
TotalAmt := TotalAmt + SalesCrMemoLine.Amount;
UNTIL SalesCrMemoLine.NEXT = 0;
END ELSE BEGIN
SalesShipLine.SETRANGE("Document No.",ValueEntry."Document No.");
SalesShipLine.SETRANGE(Type, SalesShipLine.Type::Item);
SalesShipLine.SETRANGE("No.",ValueEntry."Item No.");
IF SalesShipLine.FIND('-') THEN BEGIN
...

Ersättningskod

...
IF ValueEntry.FINDSET(FALSE,FALSE) THEN BEGIN
CASE ValueEntry."Item Ledger Entry Type" OF
ValueEntry."Item Ledger Entry Type" :: Purchase: BEGIN
IF ValueEntry."Invoiced Quantity" > 0 THEN BEGIN
PurchInvLine.SETRANGE("Document No.",ValueEntry."Document No.");
PurchInvLine.SETRANGE(Type, PurchInvLine.Type::Item);
PurchInvLine.SETRANGE("No.",ValueEntry."Item No.");

// Add the following line.
PurchInvLine.SETRANGE("Line No.",ValueEntry."Document Line No."); 

IF PurchInvLine.FIND('-') THEN BEGIN
PurchInvHeader.GET(ValueEntry."Document No.");
REPEAT
TotalInvoicedQty := TotalInvoicedQty + PurchInvLine.Quantity;
IF PurchInvHeader."Currency Factor" <> 0 THEN
TotalAmt := TotalAmt + (PurchInvLine.Amount / PurchInvHeader."Currency Factor")
ELSE
TotalAmt := TotalAmt + PurchInvLine.Amount;
UNTIL PurchInvLine.NEXT = 0;
END ELSE BEGIN
PurchRcptLine.SETRANGE("Document No.",ValueEntry."Document No.");
PurchRcptLine.SETRANGE(Type, PurchRcptLine.Type::Item);
PurchRcptLine.SETRANGE("No.",ValueEntry."Item No.");

// Add the following line.
PurchRcptLine.SETRANGE("Line No.",ValueEntry."Document Line No."); 

IF PurchRcptLine.FIND('-') THEN BEGIN
REPEAT
IF PurchRcptLine.Correction = TRUE THEN
CorrectionFound := TRUE;
DocItemSum += PurchRcptLine."Quantity Invoiced";
UNTIL PurchRcptLine.NEXT = 0;
IF (DocItemSum = 0) AND CorrectionFound THEN CurrReport.SKIP;
END;
END;
END ELSE BEGIN
PurchCrMemoLine.SETRANGE("Document No.",ValueEntry."Document No.");
PurchCrMemoLine.SETRANGE(Type, PurchInvLine.Type::Item);
PurchCrMemoLine.SETRANGE("No.",ValueEntry."Item No.");

// Add the following line.
PurchCrMemoLine.SETRANGE("Line No.",ValueEntry."Document Line No."); 

IF PurchCrMemoLine.FIND('-') THEN BEGIN
PurchCrMemoHdr.GET(ValueEntry."Document No.");
REPEAT
TotalInvoicedQty := TotalInvoicedQty - PurchCrMemoLine.Quantity;
IF PurchCrMemoHdr."Currency Factor" <> 0 THEN
TotalAmt := TotalAmt - (PurchCrMemoLine.Amount / PurchCrMemoHdr."Currency Factor")
ELSE
TotalAmt := TotalAmt - PurchCrMemoLine.Amount;
UNTIL PurchCrMemoLine.NEXT = 0;
END ELSE BEGIN
PurchRcptLine.SETRANGE("Document No.",ValueEntry."Document No.");
PurchRcptLine.SETRANGE(Type, PurchRcptLine.Type::Item);
PurchRcptLine.SETRANGE("No.",ValueEntry."Item No.");

// Add the following line.
PurchRcptLine.SETRANGE("Line No.",ValueEntry."Document Line No."); 

IF PurchRcptLine.FIND('-') THEN BEGIN
REPEAT
IF PurchRcptLine.Correction = TRUE THEN
CorrectionFound := TRUE;
DocItemSum += PurchRcptLine."Quantity Invoiced";
UNTIL PurchRcptLine.NEXT = 0;
IF (DocItemSum = 0) AND CorrectionFound THEN CurrReport.SKIP;
END;
END;
END;
END;

ValueEntry."Item Ledger Entry Type" :: Sale: BEGIN
IF ValueEntry."Invoiced Quantity" < 0 THEN BEGIN
SalesInvoiceLine.SETRANGE("Document No.",ValueEntry."Document No.");
SalesInvoiceLine.SETRANGE(Type, SalesInvoiceLine.Type::Item);
SalesInvoiceLine.SETRANGE("No.",ValueEntry."Item No.");

// Add the following line.
SalesInvoiceLine.SETRANGE("Line No.",ValueEntry."Document Line No."); 

IF SalesInvoiceLine.FIND('-') THEN BEGIN
SalesInvoiceHeader.GET(ValueEntry."Document No.");
REPEAT
TotalInvoicedQty := TotalInvoicedQty - SalesInvoiceLine.Quantity;
IF SalesInvoiceHeader."Currency Factor" <> 0 THEN
TotalAmt := TotalAmt - (SalesInvoiceLine.Amount / SalesInvoiceHeader."Currency Factor")
ELSE
TotalAmt := TotalAmt - (SalesInvoiceLine.Amount);
UNTIL SalesInvoiceLine.NEXT = 0;
END ELSE BEGIN
SalesShipLine.SETRANGE("Document No.",ValueEntry."Document No.");
SalesShipLine.SETRANGE(Type, SalesShipLine.Type::Item);
SalesShipLine.SETRANGE("No.",ValueEntry."Item No.");

// Add the following line.
SalesShipLine.SETRANGE("Line No.",ValueEntry."Document Line No."); 

IF SalesShipLine.FIND('-') THEN BEGIN
REPEAT
IF SalesShipLine.Correction = TRUE THEN
CorrectionFound := TRUE;
DocItemSum += SalesShipLine."Quantity Invoiced";
UNTIL SalesShipLine.NEXT = 0;
IF (DocItemSum = 0) AND CorrectionFound THEN CurrReport.SKIP;
END;
END;
END ELSE BEGIN
SalesCrMemoLine.SETRANGE("Document No.",ValueEntry."Document No.");
SalesCrMemoLine.SETRANGE(Type,SalesCrMemoLine.Type::Item);
SalesCrMemoLine.SETRANGE("No.",ValueEntry."Item No.");

// Add the following line.
SalesCrMemoLine.SETRANGE("Line No.",ValueEntry."Document Line No."); 

IF SalesCrMemoLine.FIND('-') THEN BEGIN
SalesCrMemoHeader.GET(ValueEntry."Document No.");
REPEAT
TotalInvoicedQty := TotalInvoicedQty + SalesCrMemoLine.Quantity;
IF SalesCrMemoHeader."Currency Factor" <>0 THEN
TotalAmt := TotalAmt + (SalesCrMemoLine.Amount / SalesCrMemoHeader."Currency Factor")
ELSE
TotalAmt := TotalAmt + SalesCrMemoLine.Amount;
UNTIL SalesCrMemoLine.NEXT = 0;
END ELSE BEGIN
SalesShipLine.SETRANGE("Document No.",ValueEntry."Document No.");
SalesShipLine.SETRANGE(Type, SalesShipLine.Type::Item);
SalesShipLine.SETRANGE("No.",ValueEntry."Item No.");

// Add the following line.
SalesShipLine.SETRANGE("Line No.",ValueEntry."Document Line No."); 

IF SalesShipLine.FIND('-') THEN BEGIN
...

              

Krav

Du måste ha någon av följande produkter installerade för att kunna använda den här snabbkorrigeringen:

  • Den italienska versionen av Microsoft Dynamics NAV 2009 Service Pack 1
  • Den italienska versionen av Microsoft Dynamics NAV 5.0 Service Pack 1

Information om borttagning

Du kan inte ta bort den här snabbkorrigeringen.

Status

Microsoft har bekräftat att detta är ett problem i de Microsoft-produkter som anges i avsnittet "Gäller".

Obs! Det här är en "FAST PUBLISH"-artikel som skapats direkt från Microsofts supportorganisation. Den information som finns häri tillhandahålls i befintligt format som svar på framväxande problem. Till följd av hur snabbt materialet blir tillgängligt kan materialet innehålla typografiska fel och kan komma att revideras när som helst utan föregående meddelande. Se användningsvillkor för andra överväganden.