27. Mai 2014 14:50
REPEAT
IF ProdBOMHeader.GET(ProdBomComponent."Production BOM No.") THEN
IF ProdBomComponent."Version Code" <> '' THEN BEGIN
ProductionBOMVersion.GET(ProdBomComponent."Production BOM No.",ProdBomComponent."Version Code");
CalculateDeeperLevel := ProductionBOMVersion.Status = ProductionBOMVersion.Status::Certified;
END ELSE
CalculateDeeperLevel := ProdBOMHeader.Status = ProdBOMHeader.Status::Certified;
IF CalculateDeeperLevel THEN BEGIN
ProdBOMHeader."Low-Level Code" :=
CalcLevels(Type::"Production BOM",ProdBomComponent."Production BOM No.",Level,LevelDepth + 1) - Level;
ActLevel := ProdBOMHeader."Low-Level Code" + Level;
IF ActLevel > TotalLevels THEN
TotalLevels := ActLevel;
END;
UNTIL ProdBomComponent.NEXT = 0;
IF ProdBOMComponent.FIND('-') THEN
REPEAT
IF ProdBOMComponent."Version Code" <> '' THEN BEGIN
ProductionBOMVersion.GET(ProdBOMComponent."Production BOM No.",ProdBOMComponent."Version Code");
CalculateDeeperLevel := ProductionBOMVersion.Status <> ProductionBOMVersion.Status::Closed;
END ELSE BEGIN
ProdBOMHeader.GET(ProdBOMComponent."Production BOM No.");
CalculateDeeperLevel := ProdBOMHeader.Status <> ProdBOMHeader.Status::Closed;
END;
CASE ProdBOMComponent.Type OF
ProdBOMComponent.Type::Item:
BEGIN
CompItem.GET(ProdBOMComponent."No.");
IF (CompItem."Low-Level Code" - 1) <> LowLevelCode THEN BEGIN
xLowLevelCode := CompItem."Low-Level Code";
CompItem."Low-Level Code" :=
CalcLevels(ProdBOMComponent.Type::Item,ProdBOMComponent."No.",0,0);
IF CompItem."Low-Level Code" <> xLowLevelCode THEN BEGIN
CompItem.MODIFY;
RecalcLowerLevels(CompItem."Production BOM No.",CompItem."Low-Level Code");
END;
END;
END;
ProdBOMComponent.Type::"Production BOM":
BEGIN
ProdBOMHeader.GET(ProdBOMComponent."No.");
IF (ProdBOMHeader."Low-Level Code" - 1) <> LowLevelCode THEN BEGIN
xLowLevelCode := ProdBOMHeader."Low-Level Code";
ProdBOMHeader."Low-Level Code" :=
CalcLevels(ProdBOMComponent.Type::"Production BOM",ProdBOMComponent."No.",0,0);
IF ProdBOMHeader."Low-Level Code" <> xLowLevelCode THEN BEGIN
ProdBOMHeader.MODIFY;
RecalcLowerLevels(ProdBOMHeader."No.",ProdBOMHeader."Low-Level Code" - 1);
END;
END;
END;
END;
UNTIL ProdBOMComponent.NEXT = 0;
27. Mai 2014 15:10
AlphaWeibchen hat geschrieben:Fert.Stückliste F100Komponente --> Verwendung: A100 wird angezeigtStückliste --> Verwendung: F100
27. Mai 2014 15:32
27. Mai 2014 15:56
AlphaWeibchen hat geschrieben:Bsp. Artikel ist eine Uhr Artikelstückliste (ist für den Verkauf): Uhr, Zertifikat, Box
27. Mai 2014 16:39
28. Mai 2014 07:19