Denne artikel gælder for Microsoft Dynamics NAV for alle lande og landestandarder.
Symptomer
Antag, at du aktiverer indstillingen Tilbageførsel af eksakte omkostninger i dialogboksen Salgsopsætning & Debitoropsætning i Microsoft Dynamics NAV. I denne situation modtager du følgende fejlmeddelelse, når du kører funktionen Kopiér dokument på en delvis salgsstatistik:
Bemærk
Salgsleverance Shipment_No, linjenr. Line_No kopieres ikke, fordi det fulde antal på den bogførte bilagslinje allerede er anvendt manuelt.
Dette problem opstår i følgende produkter:
- Microsoft Dynamics NAV 2009 R2
- Microsoft Dynamics NAV 2009 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 Service Pack til Microsoft Dynamics NAV 2009 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. De vil dog ikke ændre disse eksempler for at give ekstra funktionalitet eller konstruere procedurer for at opfylde 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 følge disse trin:
Slet følgende globale variabler i kopiér dokumentenhed (6620):
Text030@1025 : TextConst 'ENU=%1 %2, line no. %3 is not copied because the full quantity on the posted document line is already manually applied.'; Text031@1038 : TextConst 'ENU=Return document line contains only the original document line quantity, that is not already manually applied.'; SomeAreFixed@1045 : Boolean; CopyDimensions@1050 : Boolean;Tilføj følgende globale variabler i kopiér dokumentenhed (6620):
Text030@1025 : TextConst 'ENU=One or more return document lines were not copied. This is because quantities on the posted document line are already fully or partially applied and therefore the Exact Cost Reversing Link could not be created.'; Text031@1038 : TextConst 'ENU=Return document line contains only the original document line quantity, that is not already manually applied.'; SomeAreFixed@1045 : Boolean; CopyDimensions@1050 : Boolean; WarningDone@1051 : Boolean; LinesApplied@1052 : Boolean;Skift koden i funktionen SplitPstdSalesLinesPerILE i Kopiér dokument mgt. codeunit (6620) på følgende måde:
Eksisterende kode 1... IF "Shipped Qty. Not Returned" = 0 THEN // Delete the following lines. ERROR(Text030,"Document Type","Document No.","Document Line No."); FromSalesLineBuf := FromSalesLine; IF -"Shipped Qty. Not Returned" < ABS(FromSalesLine."Quantity (Base)") THEN BEGIN IF FromSalesLine."Quantity (Base)" > 0 THEN FromSalesLineBuf."Quantity (Base)" := -"Shipped Qty. Not Returned" ELSE FromSalesLineBuf."Quantity (Base)" := "Shipped Qty. Not Returned"; IF FromSalesLineBuf."Qty. per Unit of Measure" = 0 THEN FromSalesLineBuf.Quantity := FromSalesLineBuf."Quantity (Base)" ELSE FromSalesLineBuf.Quantity := ROUND(FromSalesLineBuf."Quantity (Base)" / FromSalesLineBuf."Qty. per Unit of Measure",0.00001); END; FromSalesLine."Quantity (Base)" := FromSalesLine."Quantity (Base)" - FromSalesLineBuf."Quantity (Base)"; FromSalesLine.Quantity := FromSalesLine.Quantity - FromSalesLineBuf.Quantity; FromSalesLineBuf."Appl.-from Item Entry" := "Entry No."; FromSalesLineBuf."Line No." := NextLineNo; NextLineNo := NextLineNo + 1; FromSalesLineBuf."Document No." := "Document No."; IF GetSalesDocType(ItemLedgEntry) IN [FromSalesLineBuf."Document Type"::Order,FromSalesLineBuf."Document Type"::"Return Order"] THEN FromSalesLineBuf."Shipment Line No." := 1; IF NOT FromShptOrRcpt THEN UpdateRevSalesLineAmount( FromSalesLineBuf,OrgQtyBase, FromSalesHeader."Prices Including VAT",ToSalesHeader."Prices Including VAT"); FromSalesLineBuf.INSERT; // End of the lines. UNTIL (NEXT = 0) OR (FromSalesLine."Quantity (Base)" = 0); ...Erstatningskode 1
... IF "Shipped Qty. Not Returned" = 0 THEN // Add the following lines. LinesApplied := TRUE; IF "Shipped Qty. Not Returned" < 0 THEN BEGIN FromSalesLineBuf := FromSalesLine; IF -"Shipped Qty. Not Returned" < ABS(FromSalesLine."Quantity (Base)") THEN BEGIN IF FromSalesLine."Quantity (Base)" > 0 THEN FromSalesLineBuf."Quantity (Base)" := -"Shipped Qty. Not Returned" ELSE FromSalesLineBuf."Quantity (Base)" := "Shipped Qty. Not Returned"; IF FromSalesLineBuf."Qty. per Unit of Measure" = 0 THEN FromSalesLineBuf.Quantity := FromSalesLineBuf."Quantity (Base)" ELSE FromSalesLineBuf.Quantity := ROUND(FromSalesLineBuf."Quantity (Base)" / FromSalesLineBuf."Qty. per Unit of Measure",0.00001); END; FromSalesLine."Quantity (Base)" := FromSalesLine."Quantity (Base)" - FromSalesLineBuf."Quantity (Base)"; FromSalesLine.Quantity := FromSalesLine.Quantity - FromSalesLineBuf.Quantity; FromSalesLineBuf."Appl.-from Item Entry" := "Entry No."; FromSalesLineBuf."Line No." := NextLineNo; NextLineNo := NextLineNo + 1; FromSalesLineBuf."Document No." := "Document No."; IF GetSalesDocType(ItemLedgEntry) IN [FromSalesLineBuf."Document Type"::Order,FromSalesLineBuf."Document Type"::"Return Order"] THEN FromSalesLineBuf."Shipment Line No." := 1; IF NOT FromShptOrRcpt THEN UpdateRevSalesLineAmount( FromSalesLineBuf,OrgQtyBase, FromSalesHeader."Prices Including VAT",ToSalesHeader."Prices Including VAT"); FromSalesLineBuf.INSERT; END; // End of the lines. UNTIL (NEXT = 0) OR (FromSalesLine."Quantity (Base)" = 0); ...Eksisterende kode 2
... MissingExCostRevLink := TRUE; END; ...Erstatningskode 2
... MissingExCostRevLink := TRUE; // Add the following line. CheckUnappliedLines(LinesApplied,MissingExCostRevLink); END; ...Skift koden i funktionen SplitPstdPurchLinesPerILE i kopiér dokumentenhed (6620) på følgende måde:
Eksisterende kode 1... ApplyRec@1011 : Record 339; // Delete the following line. AllAreFixed@1012 : Boolean; BEGIN ...Erstatningskode 1
... ApplyRec@1011 : Record 339; BEGIN ...Eksisterende kode 2
... REPEAT // Delete the following lines. IF "Remaining Quantity" = 0 THEN BEGIN AllAreFixed := TRUE; ApplyRec.AppliedOutbndEntryExists("Entry No.",FALSE); IF ApplyRec.FINDFIRST THEN REPEAT AllAreFixed := AllAreFixed AND ApplyRec.Fixed; UNTIL ApplyRec.NEXT = 0; IF AllAreFixed THEN ERROR(Text030,"Document Type","Document No.","Document Line No."); END; // End of the lines. IF NOT ApplyFully THEN BEGIN ...Erstatningskode 2
... REPEAT IF NOT ApplyFully THEN BEGIN ...Eksisterende kode 3
... END; ...Erstatningskode 3
... END; // Add the following line. CheckUnappliedLines(SkippedLine,MissingExCostRevLink); ...Skift koden i funktionen CheckUnappliedLines i Kopiér dokumentopsætning (6620) på følgende måde:
Eksisterende kode... BEGIN ...Erstatningskode
... // Add the following lines. LOCAL PROCEDURE CheckUnappliedLines@86(SkippedLine@1000 : Boolean;VAR MissingExCostRevLink@1001 : Boolean); BEGIN IF SkippedLine AND MissingExCostRevLink THEN BEGIN IF NOT WarningDone THEN MESSAGE(Text030); MissingExCostRevLink := FALSE; WarningDone := TRUE; END; END; // End of the lines. BEGIN ...
Forudsætninger
Du skal have et af følgende produkter installeret for at anvende dette hotfix:
- Microsoft Dynamics NAV 2009 R2
- Microsoft Dynamics NAV 2009 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.