gelöst [RTC] Bestellvorschlagszeilen nicht löschen

Hi,
Ich habe eine Frage zur CU 333.
Nach einer Ergänzung lassen sich nun optional auch Anfragen erstellen.
Egal ob Bestellungen / Anfragen erstellt wurden, werden die Bestellvorschlagszeilen gelöscht.

Wenn eine Anfrage erstellt wurde, dann sollen die Bestellvorschlagszeilen nicht gelöscht werden.
Ich vermute, dass sich dies mit einer Schleife realisieren lässt.

Welche zeile in der cu333 sorgt dafür, dass die Bestellvorschlagszeilen gelöscht werden?
Habe nach DELETE bzw. DELETEALL gesucht und jeweils getestet, jedoch komme ich an dieser Stelle nicht weiter.

Ich würde mich über eure Hilfe sehr freuen und verbleibe

MfG

Zuletzt geändert von Shibby01 am 24. April 2012 19:20, insgesamt 1-mal geändert.

Ich glaube, das Löschen wird in einer der nachfolgenden CUs durchgeführt. Schau mal in die Carry Out Action.

Werde dabei noch nicht schlau.
Im Report 493 "Carry Out Action..." wird nur auf die CodeUnit 333 verwiesen, somit denke ich das ich da gut aufgehoben bin.
Hat noch jemand einen Tipp für mich?

MfG

Stimmt, die Carry Out Action löscht die Planungs-, aber nicht die Bestellvorschläge.

In der CU333 sind zwei Deletes, die jeweils einem Kommentar "// Not a recurring journal" folgen (nicht unmittelbar, aber kurz dahinter). Kommentiere doch mal beide aus.

Hallo,
hab beides mal auskommentiert, wie von ihnen geschildert, dennoch werden die Bestellvorschlagszeilen geleert.
wäre für weitere ideen sehr dankbar und verleibe

mfg

Hier ein paar Stellen (ob alle oder nur ein paar von dir aufgerufen werden, verrät dir der Debugger):

Report 699, OnAfterGetRecord (2x)
Report 99001020, CheckCopyToWksh (1x), CheckLine (1x)
Codeunit 333, Code (1x), FinalizeOrderHeader (1x)
Codeunit 5431, Code (1x)
Codeunit 5522, GetOrdersToPlan (1x), InsertAltSupplySubstitution (1x),
Codeunit 99000813, OnRun (2x)
Codeunit 99000854, MaintainPlanningLine (2x)
Codeunit 99000886, RemoveReqLines (1x)

Im Cronus klappt es wie beschrieben.

Einmal hier (Funktion Code):

Code:

  IF OrderCounter <> 0 THEN
    IF NOT ReqTemplate.Recurring THEN BEGIN
      // Not a recurring journal
      ReqLine2.COPY(ReqLine);
      ReqLine2.SETFILTER("Vendor No.",'<>%1','');
      IF ReqLine2.FIND('-') THEN; // Remember the last line
      IF FIND('-') THEN
        REPEAT
          TempFailedReqLine := ReqLine;
         // IF NOT TempFailedReqLine.FIND THEN <---
           // DELETE(TRUE); <---
        UNTIL NEXT = 0;
      TempJnlLineDim.DELETEALL;

und hier (FinalizeOrderHeader):

Code:

  // Not a recurring journal
  OrderLineCounter := OrderLineCounter + LineCount;
  IF NOT PlanningResiliency THEN
    Window.UPDATE(5,OrderLineCounter);
  ReqLine2.COPY(ReqLine);
  ReqLine2.SETRANGE("Vendor No.",PurchOrderHeader."Buy-from Vendor No.");
  ReqLine2.SETRANGE("Sell-to Customer No.",PurchOrderHeader."Sell-to Customer No.");
  ReqLine2.SETRANGE("Ship-to Code",PurchOrderHeader."Ship-to Code");
  ReqLine2.SETRANGE("Order Address Code",PurchOrderHeader."Order Address Code");
  ReqLine2.SETRANGE("Currency Code",PurchOrderHeader."Currency Code");
  IF ReqLine2.FIND('-') THEN BEGIN
    ReqLine2.BlockDynamicTracking(TRUE);
    ReservEntry.SETCURRENTKEY(
       "Source ID","Source Ref. No.","Source Type","Source Subtype",
       "Source Batch Name","Source Prod. Order Line");
    REPEAT
      TempFailedReqLine := ReqLine2;
      IF NOT TempFailedReqLine.FIND THEN BEGIN
        ReserveReqLine.FilterReservFor(ReservEntry,ReqLine2);
        ReservEntry.DELETEALL(TRUE);
       // ReqLine2.DELETE(TRUE); <---

Alles klar, es läuft so wie gewünscht.
Besten Dank für Eure Hilfe.

MfG