17. September 2021 08:25
IF Type = Type::Item THEN BEGIN
IF Item.GET("No.") THEN
IF Item."show Document Note" THEN
MESSAGE(Item."Document Note");
IF SKU.GET("Location Code","No.","Variant Code") THEN
IF SKU."show Document Note" THEN
MESSAGE(SKU."Document Note")
END;
IF Item.GET("Item No.") THEN BEGIN
IF Item."show Document Note" THEN
MESSAGE(Item."Document Note");
IF SKU.GET("Location Code","Item No.","Variant Code") THEN
IF SKU."show Document Note" THEN
MESSAGE(SKU."Document Note")
END;
17. September 2021 08:56
17. September 2021 09:49
InsertProdOrderLine(ReqLine : Record "Requisition Line";ProdOrder : Record "Production Order";Item : Record Item)
ProdOrderLine.SETRANGE("Prod. Order No.",ProdOrder."No.");
ProdOrderLine.SETRANGE(Status,ProdOrder.Status);
ProdOrderLine.LOCKTABLE;
IF ProdOrderLine.FINDLAST THEN
NextLineNo := ProdOrderLine."Line No." + 10000
ELSE
NextLineNo := 10000;
ProdOrderLine.INIT;
ProdOrderLine.BlockDynamicTracking(TRUE);
ProdOrderLine.Status := ProdOrder.Status;
ProdOrderLine."Prod. Order No." := ProdOrder."No.";
ProdOrderLine."Line No." := NextLineNo;
ProdOrderLine."Item No." := ReqLine."No.";
//HHU
[align=]ProdOrderLine.VALIDATE("Item No.",ReqLine."No.");[/align]
ProdOrderLine.VALIDATE("Unit of Measure Code",ReqLine."Unit of Measure Code");
ProdOrderLine."Production BOM Version Code" := ReqLine."Production BOM Version Code";
ProdOrderLine."Routing Version Code" := ReqLine."Routing Version Code";
ProdOrderLine."Routing Type" := ReqLine."Routing Type";
17. September 2021 10:01
17. September 2021 10:17