Systemet opretter en duplikeret serviceartikel forkert, når du bogfører en salgsordre for en vare, der bruger en serviceartikelgruppe, hvor afkrydsningsfeltet Opret serviceartikel er markeret i Microsoft Dynamics NAV 2009

Gælder for
Dynamics NAV 2009

Denne artikel gælder for Microsoft Dynamics NAV for alle lande og landestandarder.

Symptomer

Lad os antage, at du markerer afkrydsningsfeltet Opret serviceartikel for en serviceartikelgruppe for en vare i Microsoft Dynamics NAV 2009. Derefter skal du oprette en serviceartikel for varen. Derefter skal du bogføre en salgsordre for varen. I denne situation oprettes der en duplikeret serviceartikel. 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, 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 følge disse trin:

  1. Opret en variabel i proceduren CreateServItemOnSalesLineShpt i ServItemManagement codeunit (5920), og angiv derefter variablen på følgende måde:

    • Navn: ServItemWithSerialNoExist@1009
    • DataType: boolesk værdi

  2. Du kan ændre koden i Proceduren CreateServItemOnSalesLineShpt i ServItemManagement codeunit (5920) på følgende måde:
    Eksisterende kode

    ...
FOR x := 1 TO SalesLine."Qty. to Ship (Base)" DO BEGIN
CLEAR(ServItem);

// Delete the following lines.
ServItem.INIT; 
ServMgtSetup.TESTFIELD("Service Item Nos."); 
NoSeriesMgt.InitSeries(
ServMgtSetup."Service Item Nos.",ServItem."No. Series",0D,ServItem."No.",ServItem."No. Series"); 
ServItem.INSERT;
// End of the lines.

ServItem."Sales/Serv. Shpt. Document No." := SalesShipmentLine."Document No.";
ServItem."Sales/Serv. Shpt. Line No." := SalesShipmentLine."Line No.";
ServItem."Shipment Type" := ServItem."Shipment Type"::Sales;
ServItem.VALIDATE(Description,
COPYSTR(SalesLine.Description,1,MAXSTRLEN(ServItem.Description)));
ServItem."Description 2" := COPYSTR(
STRSUBSTNO('%1 %2',SalesHeader."Document Type",SalesHeader."No."),
1,MAXSTRLEN(ServItem."Description 2"));
ServItem.VALIDATE("Customer No.",SalesHeader."Sell-to Customer No.");
ServItem.VALIDATE("Ship-to Code",SalesHeader."Ship-to Code");
ServItem.OmitAssignResSkills(TRUE);
ServItem.VALIDATE("Item No.",Item."No.");
ServItem.OmitAssignResSkills(FALSE);
IF TrackingLinesExist THEN
ServItem."Serial No." := TempReservEntry."Serial No.";
ServItem."Variant Code" := SalesLine."Variant Code";
...

    Erstatningskode

    ...
FOR x := 1 TO SalesLine."Qty. to Ship (Base)" DO BEGIN
CLEAR(ServItem);

// Add the following lines.
ServItemWithSerialNoExist := FALSE; 
IF TempReservEntry."Serial No." <> '' THEN BEGIN 
ServItem.SETRANGE("Item No.",SalesLine."No."); 
ServItem.SETRANGE("Serial No.",TempReservEntry."Serial No."); 
IF ServItem.FINDFIRST THEN 
ServItemWithSerialNoExist := TRUE; 
END;
IF (TempReservEntry."Serial No." = '') OR (NOT ServItemWithSerialNoExist) THEN BEGIN 
ServItem.INIT; 
ServMgtSetup.TESTFIELD("Service Item Nos."); 
NoSeriesMgt.InitSeries(
ServMgtSetup."Service Item Nos.",ServItem."No. Series",0D,ServItem."No.",ServItem."No. Series"); 
ServItem.INSERT; 
END; 
// End of the lines.

ServItem."Sales/Serv. Shpt. Document No." := SalesShipmentLine."Document No.";
ServItem."Sales/Serv. Shpt. Line No." := SalesShipmentLine."Line No.";
ServItem."Shipment Type" := ServItem."Shipment Type"::Sales;
ServItem.VALIDATE(Description,
COPYSTR(SalesLine.Description,1,MAXSTRLEN(ServItem.Description)));
ServItem."Description 2" := COPYSTR(
STRSUBSTNO('%1 %2',SalesHeader."Document Type",SalesHeader."No."),
1,MAXSTRLEN(ServItem."Description 2"));
ServItem.VALIDATE("Customer No.",SalesHeader."Sell-to Customer No.");
ServItem.VALIDATE("Ship-to Code",SalesHeader."Ship-to Code");
ServItem.OmitAssignResSkills(TRUE);
ServItem.VALIDATE("Item No.",Item."No.");
ServItem.OmitAssignResSkills(FALSE);
IF TrackingLinesExist THEN
ServItem."Serial No." := TempReservEntry."Serial No.";
ServItem."Variant Code" := SalesLine."Variant Code";
...

          

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.