"Kelvados gamybos užsakymo eilutė yra nuoroda į kitas/ankstesnis nėra operaciją" klaidos pranešimas, kai paleidžiate Microsoft Dynamics NAV 2009 gamybos grafikas

Karštųjų pataisų informacija

Palaikomą naujausią pataisą dabar yra Microsoft. Tačiau jos skirtos tik šiame straipsnyje aprašytai problemai spręsti. Taikyti ją tik sistemoms, kuriose kyla ši konkreti problema. Šios karštosios pataisos gali būti papildomai išbandoma. Todėl, jei jums nelabai trukdo Ši problema, rekomenduojame palaukti kito "Microsoft Dynamics NAV 2009" pakeitimų paketo arba kitą versiją Microsoft Dynamics NAV, kuriame bus šios karštosios pataisos.

Pastaba. Konkrečiais atvejais už palaikymo skambučius gali būti atšaukti, jei techninės pagalbos specialistas Microsoft Dynamics ir susijusių produktų taikomi įprasti mokesčiai nustato, kad jūsų problemą galima išspręsti naudojant konkretų naujinimą. Į įprastos kainos už palaikymą taikomos papildomos palaikymo klausimams ir problemoms, kurių negalima išspręsti naudojant minėtą naujinimą.

Pastaba.

Pastaba. Visada bandymas kodas nustato kontroliuojamoje aplinkoje prieš taikydami nustato savo gamybos kompiuteriams.
Norėdami išspręsti šią problemą, atlikite šiuos veiksmus:

1. Pakeisti CreateOutboundXML funkcija – gamybos grafikas valdymo Kodinys (5500):
   Esamas kodas

   ...
   ScheduleOrder.SETDESTINATION(OStream);
   ScheduleOrder.InitializeHeader(InitialProdOrder1,Editable1);
   IF ScheduleOrder.EXPORT THEN BEGIN
   ProdSchedSetup.GanttXML.CREATEINSTREAM(IStream);
   OutboundXML.load(IStream);
   
   // Delete the following lines.
   END ELSE
   ERROR(Text002);
   // End of the lines.
   
   END
   END;
   END;
   
   PROCEDURE ConvertFromDDMMYY@2(DateIn@1000 : Text[30]) : Text[30];
   ...

   Pastaba.

   ...
   ScheduleOrder.SETDESTINATION(OStream);
   ScheduleOrder.InitializeHeader(InitialProdOrder1,Editable1);
   IF ScheduleOrder.EXPORT THEN BEGIN
   ProdSchedSetup.GanttXML.CREATEINSTREAM(IStream);
   OutboundXML.load(IStream);
   
   // Add the following lines.
   END ELSE BEGIN
   CLEAR(ProdSched);
   ERROR(Text002);
   END;
   // End of the lines.
   
   END
   END;
   END;
   
   PROCEDURE ConvertFromDDMMYY@2(DateIn@1000 : Text[30]) : Text[30];
   ...

2. Pakeisti eksportuoti gamybos grafikas XML prievadas (5500) taip:
   Esamas kodas 1

   ...
   { [{86CA14B5-EAF7-4A37-ADCC-ED8FB40C86E7}];6 ;PrevOperationNo ;Element ;Field ;
   DataType=Code;
   SourceField=Prod. Order Routing Line::Previous Operation No. }
   ...

   Atsarginis kodas 1

   ...
   { [{86CA14B5-EAF7-4A37-ADCC-ED8FB40C86E7}];6 ;PrevOperationNo ;Element ;Field ;
   DataType=Code;
   SourceField=Prod. Order Routing Line::Previous Operation No.;
   Export::OnBeforePassField=BEGIN
   IF CheckOperationNo("Prod. Order Routing Line","Prod. Order Routing Line"."Previous Operation No.") THEN
   ERROR(Text000,"Prod. Order Routing Line"."Prod. Order No.","Prod. Order Routing Line".FIELDCAPTION("Previous Operation No."),
   "Prod. Order Routing Line"."Previous Operation No.");
   END;
   }
   ...

   Esamas kodas 2

   ...
   { [{81A88AA3-07E1-43BF-B7A4-6F00E038BD51}];6 ;NextOperationNo ;Element ;Field ;
   DataType=Code;
   SourceField=Prod. Order Routing Line::Next Operation No. }
   ...

   Atsarginis kodas 2

   ...
   { [{81A88AA3-07E1-43BF-B7A4-6F00E038BD51}];6 ;NextOperationNo ;Element ;Field ;
   DataType=Code;
   SourceField=Prod. Order Routing Line::Next Operation No.;
   Export::OnBeforePassField=BEGIN
   IF CheckOperationNo("Prod. Order Routing Line","Prod. Order Routing Line"."Next Operation No.") THEN
   ERROR(Text000,"Prod. Order Routing Line"."Prod. Order No.","Prod. Order Routing Line".FIELDCAPTION("Next Operation No."),
   "Prod. Order Routing Line"."Next Operation No.");
   END;
   }
   ...

   Esamas kodas 3

   ...
   xProdOrderNo@1001 : Code[20];
   xProdOrderStatus@1002 : 'Simulated,Planned,Firm Planned,Released,Finished';
   xRoutingNo@1005 : Code[20];
   ...

   Pakeitimo kodas 3

   ...
   xProdOrderNo@1001 : Code[20];
   xProdOrderStatus@1002 : 'Simulated,Planned,Firm Planned,Released,Finished';
   xRoutingNo@1005 : Code[20];
   Text000@1101 : TextConst 'ENU=The routing in production order number %1 uses %2 %3, which does not exist.'; 
   ...

3. Įtraukti naują funkciją eksportuoti gamybos grafikas XML prievadas (5500) taip:

   PROCEDURE CheckOperationNo@15(ProdOrderRoutingLine@1001 : Record 5409;OperationNo@1000 : Code[20]) : Boolean;
   
   VAR
   CheckedProdOrderRoutingLine@1002 : Record 5409;
   BEGIN
   IF OperationNo = '' THEN
   EXIT(FALSE);
   WITH CheckedProdOrderRoutingLine DO BEGIN
   RESET;
   SETCURRENTKEY("Prod. Order No.","Routing Reference No.",Status,"Routing No.","Operation No.");
   SETRANGE("Prod. Order No.",ProdOrderRoutingLine."Prod. Order No.");
   SETRANGE("Routing Reference No.",ProdOrderRoutingLine."Routing Reference No.");
   SETRANGE(Status,ProdOrderRoutingLine.Status);
   SETRANGE("Routing No.",ProdOrderRoutingLine."Routing No.");
   SETRANGE("Operation No.",OperationNo);
   EXIT(ISEMPTY);
   END;
   END;
   
   BEGIN
   END