Feilmeldingen «Reservasjonsoppføringen finnes ikke» når du publiserer utdata for en produksjonsordre som er opprettet fra en salgsordre etter at du har kansellert reservasjonen for produksjonsordren i Microsoft Dynamics NAV 2009

Gjelder for
Dynamics NAV 2009

Denne artikkelen gjelder for Microsoft for alle land og alle språkinnstillinger.

Symptomer

Anta at du oppretter en produksjonsordre for en vare fra en salgsordre i Microsoft Dynamics NAV 2009. Du avbryter reservasjonsantallet for produksjonsordren. Når du i denne situasjonen publiserer utdataene for produksjonsordren, får du følgende feilmelding:

Obs!

Reservasjonsoppføringen finnes ikke. Identifikasjonsfelt og verdier:Oppføringsnr.='oppføringsnummer',Positiv='Nei'.

Dette problemet oppstår i følgende produkter:

  • Microsoft Dynamics NAV 2009 R2
  • Microsoft Dynamics NAV 2009 Service Pack 1

      

Oppløsning

Hurtigreparasjonsinformasjon

En støttet hurtigreparasjon er nå tilgjengelig fra Microsoft. Det er imidlertid bare ment å rette opp problemet som er beskrevet i denne artikkelen. Bruk den bare på systemer som opplever dette spesifikke problemet. Denne hurtigreparasjonen kan få ytterligere testing. Hvis du ikke er alvorlig påvirket av dette problemet, anbefaler vi derfor at du venter på den neste Microsoft Dynamics NAV 2009-oppdateringspakken eller den neste Microsoft Dynamics NAV-versjonen som inneholder denne hurtigreparasjonen.

Obs! I spesielle tilfeller kan kostnader som vanligvis påløper for støtteanrop, bli avbrutt hvis en technical support professional for Microsoft Dynamics og relaterte produkter bestemmer at en bestemt oppdatering vil løse problemet. De vanlige støttekostnadene gjelder for ytterligere støttespørsmål og problemer som ikke kvalifiserer for den aktuelle oppdateringen.

            
          

Installasjonsinformasjon

Microsoft tilbyr programmeringseksempler bare for illustrasjon, uten garanti enten uttrykt eller underforstått. Dette omfatter, men er ikke begrenset til, de underforståtte garantiene om salgbarhet eller egnethet for et bestemt formål. Denne artikkelen antar at du er kjent med programmeringsspråket som demonstreres, og med verktøyene som brukes til å opprette og feilsøke prosedyrer. Microsoft kundestøtteteknikere kan bidra til å forklare funksjonaliteten til en bestemt prosedyre, men de vil ikke endre disse eksemplene for å gi ekstra funksjonalitet eller konstruere prosedyrer for å oppfylle dine spesifikke krav.

Obs! Før du installerer denne hurtigreparasjonen, må du kontrollere at alle Microsoft Navision-klientbrukere er logget av systemet. Dette inkluderer microsoft Navision Application Services (NAS)-klientbrukere. Du bør være den eneste klientbrukeren som er logget på når du implementerer denne hurtigreparasjonen.

Hvis du vil implementere denne hurtigreparasjonen, må du ha en utviklerlisens.

Vi anbefaler at brukerkontoen i Windows-påloggingsvinduet eller i vinduet Pålogginger for database tilordnes rolle-ID-en SUPER. Hvis brukerkontoen ikke kan tilordnes rolle-IDen SUPER, må du kontrollere at brukerkontoen har følgende tillatelser:

  • Endre-tillatelsen for objektet du skal endre.
  • Execute-tillatelsen for Objektet System Object ID 5210 og systemobjekt-ID 9015-objektet.

                
Vær oppmerksom på at du ikke trenger å ha rettigheter til datalagrene med mindre du må utføre datareparasjon.

Kodeendringer

Obs! Test alltid kodeløsninger i et kontrollert miljø før du bruker løsningene på produksjonsdatamaskinene.
Følg disse trinnene for å løse dette problemet:

  1. Endre koden i kontrollene i skjemaet Reservasjonsposter (497) på følgende måte:
    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. Endre koden i kontrollene i reservasjonsskjemaet (498) på følgende måte:
    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. Endre koden i kontrollene i skjemaet Tilgjengelige - salgslinjer (499) på følgende måte:
    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. Endre koden i kontrollene i skjemaet Tilgjengelige – rekvisisjonslinjer (500) på følgende måte:
    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. Endre koden i kontrollene i skjemaet Tilgjengelige – Kjøpslinjer (501) på følgende måte:
    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. Endre koden i kontrollene i skjemaet Tilgjengelige - varekladdelinjer (502) på følgende måte:
    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. Endre koden i kontrollene i tilgjengelig - element-ledg. Oppføringsskjema (504) som følger:
    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. Endre koden i kontrollene i skjemaet Tilgjengelige - servicelinjer (5999) på følgende måte:
    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. Endre koden i kontrollene i Tilgr. – Skjema for elementsporingslinjer (6503) som følger:
    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. Endre koden i kontrollene i skjemaet Tilgjengelige - overføringslinjer (99000896) på følgende måte:
    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. Endre koden i kontrollene i skjemaet Tilgjengelige - prod. ordrelinjer (99000897) på følgende måte:
    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. Endre koden i kontrollene i tilgjengelig - prod. ordrekomp. skjema (99000898) som følger:
    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. Endre koden i kontrollene i Tilgr. – Skjema for planleggingskomponenter (99000900) som følger:
    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. Endre koden i CloseReservEntry2-funksjonen i reservasjonsmotorens mgt. kodeenhet (99000831) på følgende måte:
    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. Endre koden i closereserventry-funksjonen i reservasjonsmotorens mgt. kodeenhet (99000831) på følgende måte:
    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. Endre koden i changeDateFieldOnResEntry-funksjonen i reservasjonsmotorens mgt. kodeenhet (99000831) på følgende måte:
    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
...

          

Forutsetninger

Du må ha ett av følgende produkter installert for å bruke denne hurtigreparasjonen:

  • Microsoft Dynamics NAV 2009 R2
  • Microsoft Dynamics NAV 2009 Service Pack 1

Informasjon om fjerning

Du kan ikke fjerne denne hurtigreparasjonen.

Status

Microsoft har bekreftet at dette er et problem i Microsoft-produktene som er oppført i delen «Gjelder for».

Obs! Dette er en «FAST PUBLISH»-artikkel som er opprettet direkte fra Microsofts støtteorganisasjon. Informasjonen i dette er angitt som svar på nye problemer. Som et resultat av hastigheten på å gjøre det tilgjengelig, kan materialene inkludere typografiske feil og kan bli revidert når som helst uten varsel. Se vilkår for bruk for andre hensyn.