Denne artikel gælder for Microsoft Dynamics NAV for landestandarden for italiensk (it).
Symptomer
Antag, at du bogfører en faktura, der indeholder to linjer af samme vare i den italienske version af Microsoft Dynamics NAV. Når du opretter en Intrastat-kladde, fungerer Intrastat-kladden ikke som forventet. Systemet viser kun den første linje.
Dette problem opstår i følgende produkter:
- Den italienske version af Microsoft Dynamics NAV 2009 Service Pack 1
- Den italienske version af Microsoft Dynamics NAV 5.0 Service Pack 1
Løsning
Oplysninger om hotfix
Et understøttet hotfix er nu tilgængeligt fra Microsoft. Det er dog kun beregnet til at løse det problem, der er beskrevet i denne artikel. Anvend den kun på systemer, der oplever dette specifikke problem. Dette hotfix kan blive testet yderligere. Hvis du ikke er alvorligt berørt af dette problem, anbefaler vi derfor, at du venter på den næste Microsoft Dynamics NAV-servicepakke eller den næste Microsoft Dynamics NAV-version, der indeholder dette hotfix.
Bemærk! I særlige tilfælde kan gebyrer, der normalt påløber for supportopkald, blive annulleret, hvis en teknisk supportmedarbejder til Microsoft Dynamics og relaterede produkter afgør, at en bestemt opdatering løser dit problem. De sædvanlige supportomkostninger gælder for yderligere supportspørgsmål og -problemer, der ikke er kvalificeret til den pågældende opdatering.
Installationsoplysninger
Microsoft leverer kun programmeringseksempler til illustration uden garanti, hverken udtrykt eller underforstået. Dette omfatter, men er ikke begrænset til, underforståede garantier for salgbarhed eller egnethed til et bestemt formål. I denne artikel antages det, at du kender det programmeringssprog, der demonstreres, og med de værktøjer, der bruges til at oprette og foretage fejlfinding af procedurer. Microsofts supportteknikere kan hjælpe med at forklare funktionaliteten af en bestemt procedure, men de vil ikke ændre disse eksempler for at give ekstra funktionalitet eller konstruere procedurer, der opfylder dine specifikke krav.
Bemærk! Før du installerer dette hotfix, skal du kontrollere, at alle microsoft Navision-klientbrugere er logget af systemet. Dette omfatter klientbrugere af Microsoft Navision Application Services (NAS). Du bør være den eneste klientbruger, der er logget på, når du implementerer dette hotfix.
Hvis du vil implementere dette hotfix, skal du have en udviklerlicens.
Vi anbefaler, at brugerkontoen i vinduet Windows-logon eller i vinduet Databaselogon tildeles rolle-id'et "SUPER". Hvis brugerkontoen ikke kan tildeles rolle-id'et "SUPER", skal du kontrollere, at brugerkontoen har følgende tilladelser:
- Tilladelsen Rediger for det objekt, du vil ændre.
- Tilladelsen Execute for System Object ID 5210-objektet og for System Object ID 9015-objektet.
Bemærk! Du behøver ikke at have rettigheder til datalagrene, medmindre du skal udføre datareparation.
Kodeændringer
Bemærk! Test altid koderettelser i et kontrolleret miljø, før du anvender rettelserne på dine produktionscomputere.
Du kan løse dette problem ved at ændre koden i funktionen FromSentToOpen i Vend. Bill List-Change Status codeunit (12171) på følgende måde:
Eksisterende kode
...
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.");
// Delete 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.");
// Delete 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.");
// Delete 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.");
// Delete 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.");
// Delete 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.");
// Delete 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.");
// Delete 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.");
// Delete the following line.
SalesShipLine.SETRANGE("Line No.",ValueEntry."Document Line No.");
IF SalesShipLine.FIND('-') THEN BEGIN
...
Erstatningskode
...
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.SETFILTER(PurchInvLine."Service Tariff No.",'%1', ' ');
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.");
// Add the following line.
PurchCrMemoLine.SETFILTER(PurchCrMemoLine."Service Tariff No.",'%1', ' ');
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.");
SalesInvoiceLine.SETFILTER(SalesInvoiceLine."Service Tariff No.",'%1', ' ');
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.");
// Add the following line.
SalesCrMemoLine.SETFILTER(SalesCrMemoLine."Service Tariff No.",'%1', ' ');
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
...
Forudsætninger
Du skal have et af følgende produkter installeret for at anvende dette hotfix:
- Den italienske version af Microsoft Dynamics NAV 2009 Service Pack 1
- Den italienske version af Microsoft Dynamics NAV 5.0 Service Pack 1
Oplysninger om fjernelse
Du kan ikke fjerne dette hotfix.
Status
Microsoft har bekræftet, at dette er et problem i de Microsoft-produkter, der er angivet i afsnittet "Gælder for".
Bemærk! Dette er en "FAST PUBLISH"-artikel, der er oprettet direkte fra Microsoft-supportorganisationen. Oplysningerne heri leveres, som de er som svar på nye problemer. Som følge af den hastighed, der er ved at stille den til rådighed, kan materialerne indeholde typografiske fejl og kan til enhver tid revideres uden varsel. Se Vilkår for anvendelse for andre overvejelser.