23. Mai 2007 13:37
23. Mai 2007 13:40
24. Mai 2007 11:07
IF NewStatus = NewStatus::Finished THEN BEGIN
  CheckBeforeFinishProdOrder(ProdOrder);
  FlushProdOrder(ProdOrder,NewStatus,NewPostingDate);
  // Eigener Code - 25.05.07 - H_RM ++++++++++++++++++++ 
  {
  ErrorIfUnableToClearWIP(ProdOrder);
  }
  ProdLineLocal.SETRANGE(Status,ProdOrder.Status);
  ProdLineLocal.SETRANGE("Prod. Order No.",ProdOrder."No.");
  IF ProdLineLocal.FINDSET THEN
    REPEAT
      IF NOT OutputExists(ProdLineLocal) THEN BEGIN
        ProdCompLocal.SETRANGE(Status,ProdLineLocal.Status);
        ProdCompLocal.SETRANGE("Prod. Order No.",ProdLineLocal."Prod. Order No.");
        ProdCompLocal.SETRANGE("Prod. Order Line No.",ProdLineLocal."Line No.");
        IF ProdCompLocal.FINDSET THEN
        REPEAT
        // Produktionen mit Abweichungen zwischen "Erw. Menge" und "Restmenge" (also Verbrauchssumme <> 0) nicht auf beendet setzen!
          IF ProdCompLocal."Expected Quantity" <> ProdCompLocal."Remaining Quantity" THEN
            ERROR(Text009,ProdLineLocal."Line No.",ToProdOrder.TABLECAPTION,ProdLineLocal."Prod. Order No.");
        UNTIL ProdCompLocal.NEXT = 0;
      END;
    UNTIL ProdLineLocal.NEXT = 0;
  // EigenerCode - 25.05.07 - H_RM ---------------------------------------------
  TransProdOrder(ProdOrder);
 
 
24. Mai 2007 11:25
24. Mai 2007 11:29
24. Mai 2007 14:25
25. Mai 2007 10:17