Funktion Warenausgang stornieren -Zu/Abschläge mitstornieren

Hat schon mal jemand diese Stornofunktion so erweitert, dass auch die Zu-/Abschläge mit storniert werden? Problem ist nämlich, dass die Stornofunktion nichts bringt, wenn diese nicht mitstorniert werden.
Grüße thommes.

Hat schon mal jemand diese Stornofunktion so erweitert, dass auch die Zu-/Abschläge mit storniert werden?

Ja. Habe ich und es funktioniert. Was willst du genau wissen?

Prima. Hättest Du was dagegen, den Codeteil hier reinzustellen? Hat das dann durchgängig funktioniert?

Ich habe zusätzlich neue Codeunit (Undo Purchase ... non-item) angelegt damit es mit standard sich unterscheidet.

Die Funktionaufruf kann man in getrennte MenuItem aufrufen oder direkt innerhalb nach standard MenuItem einbinden.

ACHTUNG!! Die Code basiert von Codeunit 5813 in Nav. 3.60!!

Code:

 
OnRun(VAR Rec : Record "Purch. Rcpt. Line")
....
SetHideDialog(NewHideDialog : Boolean)
....

Code()
WITH PurchRcptLine DO BEGIN
  SETRANGE(Correction,FALSE);

  REPEAT
    IF NOT HideDialog THEN
      Window.OPEN(Text007);
    CheckPurchRcptLine(PurchRcptLine);
  UNTIL NEXT = 0;

  FIND('-');
  REPEAT
    IF NOT HideDialog THEN
      Window.OPEN(Text001);

    InsertNewReceiptLine(PurchRcptLine);

    UpdateOrderLine(PurchRcptLine);

    IF ("Blanket Order No." <> '') AND ("Blanket Order Line No." <> 0) THEN
      UpdateBlanketOrder(PurchRcptLine);

    "Qty. Rcd. Not Invoiced" := 0;
    Correction := TRUE;
    MODIFY;

  UNTIL NEXT = 0;
END;



CheckPurchRcptLine(PurchRcptLine : Record "Purch. Rcpt. Line")
WITH PurchRcptLine DO BEGIN
  TESTFIELD(Type);
  TESTFIELD("Qty. Rcd. Not Invoiced",Quantity);
END;


InsertNewReceiptLine(OldPurchReceiptLine : Record "Purch. Rcpt. Line")
Code gleich wie standard ausser:
  InsertItemEntryRelation.....  (wegfallen)


UpdateOrderLine(PurchRcptLine : Record "Purch. Rcpt. Line")
WITH PurchRcptLine DO BEGIN
  IF PurchLine.GET("Document Type"::Order,"Order No.","Order Line No.") THEN BEGIN
    PurchLine."Quantity Received" := PurchLine."Quantity Received" - Quantity;
    PurchLine."Qty. Received (Base)" := PurchLine."Qty. Received (Base)" - "Quantity (Base)";
    PurchLine.InitOutstanding;
    PurchLine.InitQtyToReceive;
    PurchLine.MODIFY;
  END;
END;


Die Funktion ist schon seit fast einem Jahr im Live-Betrieb verwendet worden. Aber trotzdem garranti gibt es nicht

Danke! Werd's mal testen.