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