Fejlmeddelelsen "Reservationsposten findes ikke", når du bogfører en afgang for en produktionsordre, der er oprettet ud fra en salgsordre, når du annullerer reservationen for produktionsordren i Microsoft Dynamics NAV 2009

Gælder for
Dynamics NAV 2009

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

Symptomer

Antag, at du opretter en produktionsordre for en vare ud fra en salgsordre i Microsoft Dynamics NAV 2009. Du annullerer reservationsantallet for produktionsordren. I denne situation modtager du følgende fejlmeddelelse, når du bogfører afgangen for produktionsordren:

Bemærk

Reservationsposten findes ikke. Identifikationsfelter og værdier:Postnr.='postnummer',Positiv='Nej'.

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. Du kan ændre koden i kontrolelementerne i formularen Reservationsposter (497) på følgende måde:
    Eksisterende kode

    ...
Text004 +
Text005,FALSE,ReservEntry."Quantity (Base)",
ReservEntry."Item No.",ReservEngineMgt.CreateForText(Rec),
ReservEngineMgt.CreateFromText(Rec))
THEN BEGIN

// Delete the following line.
ReservEngineMgt.CloseReservEntry2(ReservEntry);

COMMIT;
END;
UNTIL ReservEntry.NEXT = 0;
END;
}
...

    Erstatningskode

    ...
Text004 +
Text005,FALSE,ReservEntry."Quantity (Base)",
ReservEntry."Item No.",ReservEngineMgt.CreateForText(Rec),
ReservEngineMgt.CreateFromText(Rec))
THEN BEGIN

// Add the following line.
ReservEngineMgt.CancelReservation(ReservEntry);

COMMIT;
END;
UNTIL ReservEntry.NEXT = 0;
END;
}
...

  2. Du kan ændre koden i kontrolelementerne i formularen Reservation (498) på følgende måde:
    Eksisterende kode

    ...
ReservEntry2.SETRANGE("Reservation Status",ReservEntry2."Reservation Status"::Reservation);
IF ReservEntry2.FIND('-') THEN
REPEAT
ReservEntry3.GET(ReservEntry2."Entry No.",NOT ReservEntry2.Positive);
IF RelatesToSummEntry(ReservEntry3,Rec) THEN BEGIN

// Delete the following line.
ReservEngineMgt.CloseReservEntry2(ReservEntry2);

RecordsFound := TRUE;
END;
UNTIL ReservEntry2.NEXT = 0;
IF RecordsFound THEN
...

    Erstatningskode

    ...
ReservEntry2.SETRANGE("Reservation Status",ReservEntry2."Reservation Status"::Reservation);
IF ReservEntry2.FIND('-') THEN
REPEAT
ReservEntry3.GET(ReservEntry2."Entry No.",NOT ReservEntry2.Positive);
IF RelatesToSummEntry(ReservEntry3,Rec) THEN BEGIN

// Add the following line.
ReservEngineMgt.CancelReservation(ReservEntry2);

RecordsFound := TRUE;
END;
UNTIL ReservEntry2.NEXT = 0;
IF RecordsFound THEN
...

  3. Rediger koden i kontrolelementerne i formen Tilgængelige – salgslinjer (499) på følgende måde:
    Eksisterende kode

    ...
ReserveSalesLine.FilterReservFor(ReservEntry2,Rec);
IF ReservEntry2.FIND('-') THEN BEGIN
UpdateReservMgt;
REPEAT

// Delete the following line.
ReservEngineMgt.CloseReservEntry2(ReservEntry2);

UNTIL ReservEntry2.NEXT = 0;
UpdateReservFrom;
END;
END;
...

    Erstatningskode

    ...
ReserveSalesLine.FilterReservFor(ReservEntry2,Rec);
IF ReservEntry2.FIND('-') THEN BEGIN
UpdateReservMgt;
REPEAT

// Add the following line.
ReservEngineMgt.CancelReservation(ReservEntry2);

UNTIL ReservEntry2.NEXT = 0;
UpdateReservFrom;
END;
END;
...

  4. Du kan ændre koden i kontrolelementerne i formen Tilgængelige – rekvisitionslinjer (500) på følgende måde:
    Eksisterende kode

    ...
ReserveReqLine.FilterReservFor(ReservEntry2,Rec);
IF ReservEntry2.FIND('-') THEN BEGIN
UpdateReservMgt;
REPEAT

// Delete the following line.
ReservEngineMgt.CloseReservEntry2(ReservEntry2);

UNTIL ReservEntry2.NEXT = 0;
UpdateReservFrom;
END;
END;
...

    Erstatningskode

    ...
ReserveReqLine.FilterReservFor(ReservEntry2,Rec);
IF ReservEntry2.FIND('-') THEN BEGIN
UpdateReservMgt;
REPEAT

// Add the following line.
ReservEngineMgt.CancelReservation(ReservEntry2);

UNTIL ReservEntry2.NEXT = 0;
UpdateReservFrom;
END;
END;
...

  5. Du kan ændre koden i kontrolelementerne i formularen Tilgængelige - købslinjer (501) på følgende måde:
    Eksisterende kode

    ...
ReservePurchLine.FilterReservFor(ReservEntry2,Rec);
IF ReservEntry2.FIND('-') THEN BEGIN
UpdateReservMgt;
REPEAT

// Delete the following line.
ReservEngineMgt.CloseReservEntry2(ReservEntry2);

UNTIL ReservEntry2.NEXT = 0;
UpdateReservFrom;
END;
END;
...

    Erstatningskode

    ...
ReservePurchLine.FilterReservFor(ReservEntry2,Rec);
IF ReservEntry2.FIND('-') THEN BEGIN
UpdateReservMgt;
REPEAT

// Add the following line.
ReservEngineMgt.CancelReservation(ReservEntry2);

UNTIL ReservEntry2.NEXT = 0;
UpdateReservFrom;
END;
END;
...

  6. Rediger koden i Kontrolelementerne i formen Tilgængelige - varekladdelinjer (502) på følgende måde:
    Eksisterende kode

    ...
ReservEntry2.COPY(ReservEntry);
ReserveItemJnlLine.FilterReservFor(ReservEntry2,Rec);
IF ReservEntry2.FIND('-') THEN BEGIN
UpdateReservMgt;
REPEAT

// Delete the following line.
ReservEngineMgt.CloseReservEntry2(ReservEntry2);

UNTIL ReservEntry2.NEXT = 0;
UpdateReservFrom;
END;
END;
...

    Erstatningskode

    ...
ReservEntry2.COPY(ReservEntry);
ReserveItemJnlLine.FilterReservFor(ReservEntry2,Rec);
IF ReservEntry2.FIND('-') THEN BEGIN
UpdateReservMgt;
REPEAT

// Add the following line.
ReservEngineMgt.CancelReservation(ReservEntry2);

UNTIL ReservEntry2.NEXT = 0;
UpdateReservFrom;
END;
END;
...

  7. Skift koden i Kontrolelementerne i feltet Tilgængelig – Vare ledg. Formularen Poster (504) på følgende måde:
    Eksisterende kode

    ...
ERROR(Text99000000);
ReservEntry2.SETRANGE("Expected Receipt Date");
IF ReservEntry2.FIND('-') THEN BEGIN
UpdateReservMgt;
REPEAT

// Delete the following line.
ReservEngineMgt.CloseReservEntry2(ReservEntry2);

UNTIL ReservEntry2.NEXT = 0;
TotalAvailQty := TotalAvailQty + QtyReservedThisLine;
MaxQtyToReserve := MaxQtyToReserve + QtyReservedThisLine;
UpdateReservFrom;
...

    Erstatningskode

    ...
ERROR(Text99000000);
ReservEntry2.SETRANGE("Expected Receipt Date");
IF ReservEntry2.FIND('-') THEN BEGIN
UpdateReservMgt;
REPEAT

// Add the following line.
ReservEngineMgt.CancelReservation(ReservEntry2);

UNTIL ReservEntry2.NEXT = 0;
TotalAvailQty := TotalAvailQty + QtyReservedThisLine;
MaxQtyToReserve := MaxQtyToReserve + QtyReservedThisLine;
UpdateReservFrom;
...

  8. Rediger koden i Kontrolelementerne i formen Tilgængelige - servicelinjer (5999) på følgende måde:
    Eksisterende kode

    ...
ReserveServiceInvLine.FilterReservFor(ReservEntry2,Rec);
IF ReservEntry2.FIND('-') THEN BEGIN
UpdateReservMgt;
REPEAT

// Delete the following line.
ReservEngineMgt.CloseReservEntry2(ReservEntry2);

UNTIL ReservEntry2.NEXT = 0;
UpdateReservFrom;
END;
END;
...

    Erstatningskode

    ...
ReserveServiceInvLine.FilterReservFor(ReservEntry2,Rec);
IF ReservEntry2.FIND('-') THEN BEGIN
UpdateReservMgt;
REPEAT

// Add the following line.
ReservEngineMgt.CancelReservation(ReservEntry2);

UNTIL ReservEntry2.NEXT = 0;
UpdateReservFrom;
END;
END;
...

  9. Skift koden i kontrolelementerne i feltet Tilgæn. - Formularen Varesporingslinjer (6503) på følgende måde:
    Eksisterende kode

    ...
OnPush=BEGIN
IF NOT EnableReservations THEN
EXIT;
IF NOT CONFIRM(Text001,FALSE) THEN
EXIT;

// Delete the following line.
ReservEngineMgt.CloseReservEntry2(Rec);

UpdateReservFrom;
END;
}
{ ID=36;
ShortCutKey=Shift+F5;
...

    Erstatningskode

    ...
OnPush=BEGIN
IF NOT EnableReservations THEN
EXIT;
IF NOT CONFIRM(Text001,FALSE) THEN
EXIT;

// Add the following line.
ReservEngineMgt.CancelReservation(Rec);

UpdateReservFrom;
END;
}
{ ID=36;
ShortCutKey=Shift+F5;
...

  10. Rediger koden i kontrolelementerne i formen Tilgængelige – overflytningslinjer (99000896) på følgende måde:
    Eksisterende kode

    ...
ReserveTransLine.FilterReservFor(ReservEntry2,Rec,Direction);
IF ReservEntry2.FIND('-') THEN BEGIN
UpdateReservMgt;
REPEAT

// Delete the following line.
ReservEngineMgt.CloseReservEntry2(ReservEntry2);

UNTIL ReservEntry2.NEXT = 0;
UpdateReservFrom;
END;
END;
...

    Erstatningskode

    ...
ReserveTransLine.FilterReservFor(ReservEntry2,Rec,Direction);
IF ReservEntry2.FIND('-') THEN BEGIN
UpdateReservMgt;
REPEAT

// Add the following line.
ReservEngineMgt.CancelReservation(ReservEntry2);

UNTIL ReservEntry2.NEXT = 0;
UpdateReservFrom;
END;
END;
...

  11. Du kan ændre koden i kontrolelementerne i formen Tilgængelige - prod.ordrelinjer (99000897) på følgende måde:
    Eksisterende kode

    ...
ReserveProdOrderLine.FilterReservFor(ReservEntry2,Rec);
IF ReservEntry2.FIND('-') THEN BEGIN
UpdateReservMgt;
REPEAT

// Delete the following line.
ReservEngineMgt.CloseReservEntry2(ReservEntry2);

UNTIL ReservEntry2.NEXT = 0;
UpdateReservFrom;
END;
END;
...

    Erstatningskode

    ...
ReserveProdOrderLine.FilterReservFor(ReservEntry2,Rec);

IF ReservEntry2.FIND('-') THEN BEGIN
UpdateReservMgt;
REPEAT

// Add the following line.
ReservEngineMgt.CancelReservation(ReservEntry2);

UNTIL ReservEntry2.NEXT = 0;
UpdateReservFrom;
END;
END;
...

  12. Rediger koden i Kontrol i feltet Tilgængelig – prod.ordre comp. (99000898) på følgende måde:
    Eksisterende kode

    ...
ReserveProdOrderComp.FilterReservFor(ReservEntry2,Rec);
IF ReservEntry2.FIND('-') THEN BEGIN
UpdateReservMgt;
REPEAT

// Delete the following line.
ReservEngineMgt.CloseReservEntry2(ReservEntry2);

UNTIL ReservEntry2.NEXT = 0;
UpdateReservFrom;
END;
END;
...

    Erstatningskode

    ...
ReserveProdOrderComp.FilterReservFor(ReservEntry2,Rec);
IF ReservEntry2.FIND('-') THEN BEGIN
UpdateReservMgt;
REPEAT

// Add the following line.
ReservEngineMgt.CancelReservation(ReservEntry2);

UNTIL ReservEntry2.NEXT = 0;
UpdateReservFrom;
END;
END;
...

  13. Skift koden i kontrolelementerne i feltet Tilgæn. - Formularen Planlægningskomponenter (99000900) på følgende måde:
    Eksisterende kode

    ...
IF ReservEntry2.FIND('-') THEN BEGIN
UpdateReservMgt;
REPEAT
IF ReservEntry2."Quantity (Base)" < 0 THEN
ERROR(Text002);

// Delete the following line.
ReservEngineMgt.CloseReservEntry2(ReservEntry2);

UNTIL ReservEntry2.NEXT = 0;
UpdateReservFrom;
END;
END;
...

    Erstatningskode

    ...
IF ReservEntry2.FIND('-') THEN BEGIN
UpdateReservMgt;
REPEAT
IF ReservEntry2."Quantity (Base)" < 0 THEN
ERROR(Text002);

// Add the following line.
ReservEngineMgt.CancelReservation(ReservEntry2);

UNTIL ReservEntry2.NEXT = 0;
UpdateReservFrom;
END;
END;
...

  14. Skift koden i funktionen CloseReservEntry2 i Reservation Engine Mgt. codeunit (99000831) på følgende måde:
    Eksisterende kode 1

    ...
LostReservationQty@1019 : Decimal;
Text008@1020 : TextConst 'ENU="You cannot state %1 or %2 on a demand when it is linked to a supply by %3 = %4."';
ReservationsModified@1021 : Boolean;
IsPick@1022 : Boolean;

// Delete the following line.
PROCEDURE CloseReservEntry2@9(ReservEntry@1002 : Record 337);

VAR
ReservEntry3@1003 : Record 337;
LastEntryNo@1004 : Integer;
BEGIN
ReservEntry.TESTFIELD("Reservation Status",ReservEntry."Reservation Status"::Reservation);
...

    Erstatningskode 1

    ...
LostReservationQty@1019 : Decimal;
Text008@1020 : TextConst 'ENU="You cannot state %1 or %2 on a demand when it is linked to a supply by %3 = %4."';
ReservationsModified@1021 : Boolean;
IsPick@1022 : Boolean;

// Add the following line.
PROCEDURE CancelReservation@9(ReservEntry@1002 : Record 337);

VAR
ReservEntry3@1003 : Record 337;
LastEntryNo@1004 : Integer;
BEGIN
ReservEntry.TESTFIELD("Reservation Status",ReservEntry."Reservation Status"::Reservation);
...

    Eksisterende kode 2

    ...
ReservEntry3.GET(ReservEntry."Entry No.",NOT ReservEntry.Positive);
IF (ReservEntry3."Lot No." <> '') OR (ReservEntry3."Serial No." <> '') OR
(ReservEntry."Lot No." <> '') OR (ReservEntry."Serial No." <> '') THEN BEGIN
ReservEntry."Reservation Status" := ReservEntry."Reservation Status"::Surplus;

// Delete the following lines.
ReservEntry3."Reservation Status" := ReservEntry3."Reservation Status"::Surplus;
ReservEntry.MODIFY;
ReservEntry3.DELETE;
ReservEntry3."Entry No." := LastEntryNo + 1;
// End of the lines.

ReservEntry3.INSERT;
TempSurplusEntry.DELETEALL;
UpdateTempSurplusEntry(ReservEntry);
UpdateTempSurplusEntry(ReservEntry3);
UpdateOrderTracking(TempSurplusEntry);
...

    Erstatningskode 2

    ...
ReservEntry3.GET(ReservEntry."Entry No.",NOT ReservEntry.Positive);
IF (ReservEntry3."Lot No." <> '') OR (ReservEntry3."Serial No." <> '') OR
(ReservEntry."Lot No." <> '') OR (ReservEntry."Serial No." <> '') THEN BEGIN
ReservEntry."Reservation Status" := ReservEntry."Reservation Status"::Surplus;

// Add the following lines.
ReservEntry.Binding := ReservEntry.Binding::" ";
ReservEntry3."Reservation Status" := ReservEntry3."Reservation Status"::Surplus;
ReservEntry3.Binding := ReservEntry3.Binding::" ";
RevertDateToSourceDate(ReservEntry);
ReservEntry.MODIFY;
ReservEntry3.DELETE;
ReservEntry3."Entry No." := LastEntryNo + 1;
RevertDateToSourceDate(ReservEntry3);
// End of the lines.

ReservEntry3.INSERT;
TempSurplusEntry.DELETEALL;
UpdateTempSurplusEntry(ReservEntry);
UpdateTempSurplusEntry(ReservEntry3);
UpdateOrderTracking(TempSurplusEntry);
...

  15. Skift koden i funktionen CloseReservEntry i Reservation Engine Mgt. codeunit (99000831) på følgende måde:
    Eksisterende kode

    ...
UpdateOrderTracking(TempSurplusEntry);
END ELSE
CloseReservEntry(ReservEntry,TRUE,FALSE);
END;

// Delete the following lines.
PROCEDURE CloseReservEntry@20(ReservEntry@1000 : Record 337;ReTrack@1001 : Boolean;DeleteAll@1002 : Boolean);
VAR
ReservEntry2@1003 : Record 337;
SurplusReservEntry@1004 : Record 337;
DummyReservEntry@1005 : Record 337;
TotalQty@1006 : Decimal;
AvailabilityDate@1007 : Date;
BEGIN
ReservEntry.DELETE;
GetItem(ReservEntry."Item No.");
IF ReservEntry."Reservation Status" = ReservEntry."Reservation Status"::Prospect THEN
EXIT;
IF ReservEntry."Reservation Status" = ReservEntry."Reservation Status"::Surplus THEN BEGIN
IF Item."Order Tracking Policy" = Item."Order Tracking Policy"::"Tracking & Action Msg." THEN
ReservMgt.ModifyActionMessage(ReservEntry."Entry No.",0,TRUE); // Delete related action messages
END ELSE BEGIN
IF ReservEntry.Binding = ReservEntry.Binding::"Order-to-Order" THEN
IF Item."Order Tracking Policy" = Item."Order Tracking Policy"::"Tracking & Action Msg." THEN
ReservMgt.ModifyActionMessage(ReservEntry."Entry No.",0,TRUE); // Delete related action messages
ReservEntry2.GET(ReservEntry."Entry No.",NOT ReservEntry.Positive);
IF (Item."Order Tracking Policy" = Item."Order Tracking Policy"::None) AND
(((ReservEntry.Binding = ReservEntry.Binding::"Order-to-Order") AND ReservEntry2.Positive )OR
((ReservEntry2."Serial No." = '') AND (ReservEntry2."Lot No." = ''))) THEN
ReservEntry2.DELETE
ELSE BEGIN
ReservEntry2."Reservation Status" := ReservEntry2."Reservation Status"::Surplus;
IF ReservEntry2.Positive THEN BEGIN
AvailabilityDate := ReservEntry2."Expected Receipt Date";
ReservEntry2."Shipment Date" := 0D
END ELSE BEGIN
AvailabilityDate := ReservEntry2."Shipment Date";
ReservEntry2."Expected Receipt Date" := 0D;
END;
ReservEntry2.MODIFY;
ReservEntry2."Quantity (Base)" :=
ReservMgt.MatchSurplus(ReservEntry2,SurplusReservEntry,ReservEntry2."Quantity (Base)",NOT ReservEntry2.Positive,
AvailabilityDate,Item."Order Tracking Policy");
IF ReservEntry2."Quantity (Base)" = 0 THEN BEGIN
ReservEntry2.DELETE(TRUE);
END ELSE BEGIN
ReservEntry2.MODIFY;
IF Item."Order Tracking Policy" = Item."Order Tracking Policy"::"Tracking & Action Msg." THEN BEGIN
ModifyActionMessageDating(ReservEntry2);
IF DeleteAll THEN
ReservMgt.IssueActionMessage(ReservEntry2,FALSE,ReservEntry)
ELSE
ReservMgt.IssueActionMessage(ReservEntry2,FALSE,DummyReservEntry);
END;
END;
END;
END;
IF ReTrack THEN BEGIN
TotalQty := ReservMgt.SourceQuantity(ReservEntry,TRUE);
ReservMgt.AutoTrack(TotalQty);
END;
END;
PROCEDURE ModifyReservEntry@68(ReservEntry@1000 : Record 337;NewQuantity@1001 : Decimal;NewDescription@1002 : Text[50];ModifyReserved@1003 : Boolean);
VAR
TotalQty@1004 : Decimal;
BEGIN
ReservEntry.TESTFIELD("Reservation Status",ReservEntry."Reservation Status"::Reservation);
IF NewQuantity * ReservEntry."Quantity (Base)" < 0 THEN
IF NewQuantity < 0 THEN
ERROR(Text000,ReservEntry.FIELDCAPTION("Quantity (Base)"))
ELSE
ERROR(Text001,ReservEntry.FIELDCAPTION("Quantity (Base)"));
IF NewQuantity = 0 THEN
ERROR(Text002);
IF ABS(NewQuantity) > ABS(ReservEntry."Quantity (Base)") THEN
ERROR(Text003,ReservEntry.FIELDCAPTION("Quantity (Base)"));
IF ModifyReserved THEN BEGIN
IF ReservEntry."Item No." <> Item."No." THEN
GetItem(ReservEntry."Item No.");
ReservEntry.GET(ReservEntry."Entry No.",ReservEntry.Positive); // Get existing entry
ReservEntry.VALIDATE("Quantity (Base)",NewQuantity);
ReservEntry.Description := NewDescription;
ReservEntry."Changed By" := USERID;
ReservEntry.MODIFY;
IF Item."Order Tracking Policy" > Item."Order Tracking Policy"::None THEN BEGIN
TotalQty := ReservMgt.SourceQuantity(ReservEntry,TRUE);
ReservMgt.AutoTrack(TotalQty);
END;
IF ReservEntry.GET(ReservEntry."Entry No.",NOT ReservEntry.Positive) THEN BEGIN // Get related entry
ReservEntry.VALIDATE("Quantity (Base)",-NewQuantity);
ReservEntry.Description := NewDescription;
ReservEntry."Changed By" := USERID;
ReservEntry.MODIFY;
IF Item."Order Tracking Policy" > Item."Order Tracking Policy"::None THEN BEGIN
TotalQty := ReservMgt.SourceQuantity(ReservEntry,TRUE);
ReservMgt.AutoTrack(TotalQty);
END;
// End of the lines.

END;
END;
END;
...

    Erstatningskode

    ...
UpdateOrderTracking(TempSurplusEntry);
END ELSE
CloseReservEntry(ReservEntry,TRUE,FALSE);
END;

// Add the following lines.
LOCAL PROCEDURE RevertDateToSourceDate@49(VAR ReservEntry@1000 : Record 337);
VAR
SalesLine@1002 : Record 37;
PurchaseLine@1003 : Record 39;
TransferLine@1004 : Record 5741;
ServiceLine@1005 : Record 5902;
ProdOrderLine@1006 : Record 5406;
RequisitionLine@1007 : Record 246;
ProdOrderComponent@1008 : Record 5407;
PlanningComponent@1009 : Record 99000829;
JobJournalLine@1010 : Record 210;
ItemJournalLine@1011 : Record 83;
BOMJournalLine@1012 : Record 89;
ItemLedgerEntry@1013 : Record 32;
BEGIN
WITH ReservEntry DO BEGIN
CASE "Source Type" OF
DATABASE::"Sales Line":
BEGIN
SalesLine.GET("Source Subtype","Source ID","Source Ref. No.");
IF SalesLine.Quantity < 0 THEN
ChangeDateFieldOnResEntry(ReservEntry,ReservEntry."Expected Receipt Date",TRUE)
ELSE
ChangeDateFieldOnResEntry(ReservEntry,SalesLine."Shipment Date",FALSE);
END;
DATABASE::"Purchase Line":
BEGIN
PurchaseLine.GET("Source Subtype","Source ID","Source Ref. No.");
IF PurchaseLine.Quantity < 0 THEN
ChangeDateFieldOnResEntry(ReservEntry,"Shipment Date",TRUE)
ELSE
ChangeDateFieldOnResEntry(ReservEntry,PurchaseLine."Expected Receipt Date",FALSE);
END;
DATABASE::"Requisition Line":
BEGIN
RequisitionLine.GET("Source ID","Source Batch Name","Source Ref. No.");
ChangeDateFieldOnResEntry(ReservEntry,RequisitionLine."Due Date",FALSE);
END;
DATABASE::"Planning Component":
BEGIN
PlanningComponent.GET("Source ID","Source Batch Name","Source Prod. Order Line","Source Ref. No.");
ChangeDateFieldOnResEntry(ReservEntry,PlanningComponent."Due Date",FALSE);
END;
DATABASE::"BOM Journal Line":
BEGIN
BOMJournalLine.GET("Source ID","Source Batch Name","Source Ref. No.");
ChangeDateFieldOnResEntry(ReservEntry,BOMJournalLine."Posting Date",FALSE);
END;
DATABASE::"Item Journal Line":
BEGIN
ItemJournalLine.GET("Source ID","Source Batch Name","Source Ref. No.");
ChangeDateFieldOnResEntry(ReservEntry,ItemJournalLine."Posting Date",FALSE);
END;
DATABASE::"Job Journal Line":
BEGIN
JobJournalLine.GET("Source ID","Source Batch Name","Source Ref. No.");
ChangeDateFieldOnResEntry(ReservEntry,JobJournalLine."Posting Date",FALSE);
END;
DATABASE::"Item Ledger Entry":
BEGIN
ItemLedgerEntry.GET("Source Ref. No.");
ChangeDateFieldOnResEntry(ReservEntry,ItemLedgerEntry."Posting Date",FALSE);
END;
DATABASE::"Prod. Order Line":
BEGIN
ProdOrderLine.GET("Source Subtype","Source ID","Source Prod. Order Line");
ChangeDateFieldOnResEntry(ReservEntry,ProdOrderLine."Due Date",FALSE);
END;
DATABASE::"Prod. Order Component":
BEGIN
ProdOrderComponent.GET("Source Subtype","Source ID","Source Prod. Order Line","Source Ref. No.");
ChangeDateFieldOnResEntry(ReservEntry,ProdOrderComponent."Due Date",FALSE);
EXIT;
END;
DATABASE::"Transfer Line":
BEGIN
TransferLine.GET("Source ID","Source Ref. No.");
IF ReservEntry.Positive THEN
ChangeDateFieldOnResEntry(ReservEntry,TransferLine."Receipt Date",FALSE)
ELSE
ChangeDateFieldOnResEntry(ReservEntry,TransferLine."Shipment Date",FALSE);
END;
DATABASE::"Service Line":
BEGIN
ServiceLine.GET("Source Subtype","Source ID","Source Ref. No.");
ChangeDateFieldOnResEntry(ReservEntry,ServiceLine."Posting Date",FALSE);
END;
// End of the lines.

END;
END;
END;
...

  16. Du kan ændre koden i funktionen ChangeDateFieldOnResEntry i Reservation Engine Mgt. codeunit (99000831) på følgende måde:
    Eksisterende kode

    ...
END;
END;
END;
PROCEDURE CreateForText@70(ReservEntry@1000 : Record 337) : Text[80];
BEGIN
IF ReservEntry.GET(ReservEntry."Entry No.",FALSE) THEN
EXIT(CreateText(ReservEntry))
ELSE
...

    Erstatningskode

    ...
END;
END;
END;

// Add the following lines.
LOCAL PROCEDURE ChangeDateFieldOnResEntry@50(VAR ReservEntry@1000 : Record 337;NewDate@1002 : Date;Reversal@1003 : Boolean);
BEGIN
IF ReservEntry.Positive XOR Reversal THEN BEGIN
ReservEntry."Expected Receipt Date" := NewDate;
ReservEntry."Shipment Date" := 0D;
END ELSE BEGIN
ReservEntry."Expected Receipt Date" := 0D;
ReservEntry."Shipment Date" := NewDate;
END;
END;
PROCEDURE CloseReservEntry@20(ReservEntry@1000 : Record 337;ReTrack@1001 : Boolean;DeleteAll@1002 : Boolean);
VAR
ReservEntry2@1003 : Record 337;
SurplusReservEntry@1004 : Record 337;
DummyReservEntry@1005 : Record 337;
TotalQty@1006 : Decimal;
AvailabilityDate@1007 : Date;
BEGIN
ReservEntry.DELETE;
GetItem(ReservEntry."Item No.");
IF ReservEntry."Reservation Status" = ReservEntry."Reservation Status"::Prospect THEN
EXIT;
IF ReservEntry."Reservation Status" = ReservEntry."Reservation Status"::Surplus THEN BEGIN
IF Item."Order Tracking Policy" = Item."Order Tracking Policy"::"Tracking & Action Msg." THEN
ReservMgt.ModifyActionMessage(ReservEntry."Entry No.",0,TRUE); // Delete related action messages
END ELSE BEGIN
IF ReservEntry.Binding = ReservEntry.Binding::"Order-to-Order" THEN
IF Item."Order Tracking Policy" = Item."Order Tracking Policy"::"Tracking & Action Msg." THEN
ReservMgt.ModifyActionMessage(ReservEntry."Entry No.",0,TRUE); // Delete related action messages
ReservEntry2.GET(ReservEntry."Entry No.",NOT ReservEntry.Positive);
IF (Item."Order Tracking Policy" = Item."Order Tracking Policy"::None) AND
(((ReservEntry.Binding = ReservEntry.Binding::"Order-to-Order") AND ReservEntry2.Positive )OR
((ReservEntry2."Serial No." = '') AND (ReservEntry2."Lot No." = ''))) THEN
ReservEntry2.DELETE
ELSE BEGIN
ReservEntry2."Reservation Status" := ReservEntry2."Reservation Status"::Surplus;
IF ReservEntry2.Positive THEN BEGIN
AvailabilityDate := ReservEntry2."Expected Receipt Date";
ReservEntry2."Shipment Date" := 0D
END ELSE BEGIN
AvailabilityDate := ReservEntry2."Shipment Date";
ReservEntry2."Expected Receipt Date" := 0D;
END;
ReservEntry2.MODIFY;
ReservEntry2."Quantity (Base)" :=
ReservMgt.MatchSurplus(ReservEntry2,SurplusReservEntry,ReservEntry2."Quantity (Base)",NOT ReservEntry2.Positive,
AvailabilityDate,Item."Order Tracking Policy");
IF ReservEntry2."Quantity (Base)" = 0 THEN BEGIN
ReservEntry2.DELETE(TRUE);
END ELSE BEGIN
ReservEntry2.MODIFY;
IF Item."Order Tracking Policy" = Item."Order Tracking Policy"::"Tracking & Action Msg." THEN BEGIN
ModifyActionMessageDating(ReservEntry2);
IF DeleteAll THEN
ReservMgt.IssueActionMessage(ReservEntry2,FALSE,ReservEntry)
ELSE
ReservMgt.IssueActionMessage(ReservEntry2,FALSE,DummyReservEntry);
END;
END;
END;
END;
IF ReTrack THEN BEGIN
TotalQty := ReservMgt.SourceQuantity(ReservEntry,TRUE);
ReservMgt.AutoTrack(TotalQty);
END;
END;
PROCEDURE ModifyReservEntry@68(ReservEntry@1000 : Record 337;NewQuantity@1001 : Decimal;NewDescription@1002 : Text[50];ModifyReserved@1003 : Boolean);
VAR
TotalQty@1004 : Decimal;
BEGIN
ReservEntry.TESTFIELD("Reservation Status",ReservEntry."Reservation Status"::Reservation);
IF NewQuantity * ReservEntry."Quantity (Base)" < 0 THEN
IF NewQuantity < 0 THEN
ERROR(Text000,ReservEntry.FIELDCAPTION("Quantity (Base)"))
ELSE
ERROR(Text001,ReservEntry.FIELDCAPTION("Quantity (Base)"));
IF NewQuantity = 0 THEN
ERROR(Text002);
IF ABS(NewQuantity) > ABS(ReservEntry."Quantity (Base)") THEN
ERROR(Text003,ReservEntry.FIELDCAPTION("Quantity (Base)"));
IF ModifyReserved THEN BEGIN
IF ReservEntry."Item No." <> Item."No." THEN
GetItem(ReservEntry."Item No.");
ReservEntry.GET(ReservEntry."Entry No.",ReservEntry.Positive); // Get existing entry
ReservEntry.VALIDATE("Quantity (Base)",NewQuantity);
ReservEntry.Description := NewDescription;
ReservEntry."Changed By" := USERID;
ReservEntry.MODIFY;
IF Item."Order Tracking Policy" > Item."Order Tracking Policy"::None THEN BEGIN
TotalQty := ReservMgt.SourceQuantity(ReservEntry,TRUE);
ReservMgt.AutoTrack(TotalQty);
END;
IF ReservEntry.GET(ReservEntry."Entry No.",NOT ReservEntry.Positive) THEN BEGIN // Get related entry
ReservEntry.VALIDATE("Quantity (Base)",-NewQuantity);
ReservEntry.Description := NewDescription;
ReservEntry."Changed By" := USERID;
ReservEntry.MODIFY;
IF Item."Order Tracking Policy" > Item."Order Tracking Policy"::None THEN BEGIN
TotalQty := ReservMgt.SourceQuantity(ReservEntry,TRUE);
ReservMgt.AutoTrack(TotalQty);
END;
END;
END;
END;
// End of the lines.

PROCEDURE CreateForText@70(ReservEntry@1000 : Record 337) : Text[80];
BEGIN
IF ReservEntry.GET(ReservEntry."Entry No.",FALSE) THEN
EXIT(CreateText(ReservEntry))
ELSE
...

          

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.