Index: APPS/PM/Maatwerk/impl/VhConfig/Converter/HalffabItemsBoom.cls.xml =================================================================== diff -u -r73568 -r73585 --- APPS/PM/Maatwerk/impl/VhConfig/Converter/HalffabItemsBoom.cls.xml (.../HalffabItemsBoom.cls.xml) (revision 73568) +++ APPS/PM/Maatwerk/impl/VhConfig/Converter/HalffabItemsBoom.cls.xml (.../HalffabItemsBoom.cls.xml) (revision 73585) @@ -151,11 +151,11 @@ #dim Halffab As DOM.PM.Maatwerk.Calc.HF.Halffab = ..GeefHalffab(Halffabrikaat, RolnaamVoorEncoway) Set HalffabItem = ##class(DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem).%New(..HalffabContext, RolnaamVoorCache, Halffab) - Set HalffabItem.Aantal = +(Halffabrikaat.Aantal) - Set HalffabItem.OpnemenInEindproduct = Halffabrikaat.OpnemenInEindproduct - Set HalffabItem.ProductieRoute = Halffabrikaat.ProductieRoute - Do HalffabItem.ZetOmschrijvingVoorDocs(Halffabrikaat.OmschrijvingVoorDocs) - Do HalffabItem.ZetOmschrijvingVoorPicking(Halffabrikaat.OmschrijvingVoorPicking) + Set HalffabItem.Aantal = +(Halffabrikaat.Quantity) + Set HalffabItem.OpnemenInEindproduct = Halffabrikaat.IncludeInFinalProduct + Set HalffabItem.ProductieRoute = Halffabrikaat.ProductionFlow + Do HalffabItem.ZetOmschrijvingVoorDocs(Halffabrikaat.DescriptionDocs) + Do HalffabItem.ZetOmschrijvingVoorPicking(Halffabrikaat.DescriptionPicking) Quit HalffabItem ]]> @@ -169,17 +169,17 @@ #dim Halffab As DOM.PM.Maatwerk.Calc.HF.Halffab = ..GeefHalffab(Halffabrikaat, RolnaamVoorEncoway) Set HalffabItem = ##class(DOM.PM.Maatwerk.Calc.HF.BewerktHalffabItem).%New(..HalffabContext, RolnaamVoorCache, Halffab) - Set HalffabItem.Aantal = +(Halffabrikaat.Aantal) - Set HalffabItem.AfmetingAangerekendPerStuk = +(Halffabrikaat.AfmetingAangerekendPerStuk) - Set HalffabItem.AfmetingMetBewerkingVerlies = +(Halffabrikaat.AfmetingMetBewerkingVerlies) - Set HalffabItem.AfmetingTeBekomen = +(Halffabrikaat.AfmetingTeBekomen) - Set HalffabItem.OpnemenInEindproduct = Halffabrikaat.OpnemenInEindproduct - Set HalffabItem.ProductieRoute = Halffabrikaat.ProductieRoute - Set HalffabItem.TeBekomenAantal = +(Halffabrikaat.TeBekomenAantal) - Do HalffabItem.ZetOmschrijvingVoorDocs(Halffabrikaat.OmschrijvingVoorDocs) - Do HalffabItem.ZetOmschrijvingVoorPicking(Halffabrikaat.OmschrijvingVoorPicking) + Set HalffabItem.Aantal = +(Halffabrikaat.Quantity) + Set HalffabItem.AfmetingAangerekendPerStuk = +(Halffabrikaat.DimensionChargedPerPiece) + Set HalffabItem.AfmetingMetBewerkingVerlies = +(Halffabrikaat.DimensionWithProcessingLoss) + Set HalffabItem.AfmetingTeBekomen = +(Halffabrikaat.DimensionToBe) + Set HalffabItem.OpnemenInEindproduct = Halffabrikaat.IncludeInFinalProduct + Set HalffabItem.ProductieRoute = Halffabrikaat.ProductionFlow + Set HalffabItem.TeBekomenAantal = +(Halffabrikaat.QuantityToBe) + Do HalffabItem.ZetOmschrijvingVoorDocs(Halffabrikaat.DescriptionDocs) + Do HalffabItem.ZetOmschrijvingVoorPicking(Halffabrikaat.DescriptionPicking) - #dim BewerkingDimensiesIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(Halffabrikaat.BewerkingDimensies) + #dim BewerkingDimensiesIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(Halffabrikaat.ProcessingDimensions) While (BewerkingDimensiesIterator.HasNext()) { #dim Afmeting As %Decimal = BewerkingDimensiesIterator.Next() #dim BewerkingDimensie As %String = BewerkingDimensiesIterator.Key() @@ -198,16 +198,16 @@ ") #dim ReferentieHalffabItem As DOM.PM.Maatwerk.Calc.HF.Halffab = ..HalffabItemsBoom.GeefHalffabItem(RolnaamParent) - Set HalffabItem.Aantal = +(Halffabrikaat.Aantal) //TO DO PVR: Moet aantal op 0?? Encoway stuurt niet 0 mee - Set HalffabItem.OpnemenInEindproduct = Halffabrikaat.OpnemenInEindproduct - Set HalffabItem.ProductieRoute = Halffabrikaat.ProductieRoute + Set HalffabItem.Aantal = +(Halffabrikaat.Quantity) //TO DO PVR: Moet aantal op 0?? Encoway stuurt niet 0 mee + Set HalffabItem.OpnemenInEindproduct = Halffabrikaat.IncludeInFinalProduct + Set HalffabItem.ProductieRoute = Halffabrikaat.ProductionFlow Set HalffabItem.HalffabItem = ReferentieHalffabItem - Do HalffabItem.ZetOmschrijvingVoorDocs(Halffabrikaat.OmschrijvingVoorDocs) - Do HalffabItem.ZetOmschrijvingVoorPicking(Halffabrikaat.OmschrijvingVoorPicking) + Do HalffabItem.ZetOmschrijvingVoorDocs(Halffabrikaat.DescriptionDocs) + Do HalffabItem.ZetOmschrijvingVoorPicking(Halffabrikaat.DescriptionPicking) Quit HalffabItem ]]> @@ -229,17 +229,17 @@ #dim ProductID As %Integer = ..GeefIdentNummerVanHalffab(Halffabrikaat.ProductId) Set Halffab = ##class(DOM.PM.Maatwerk.Calc.HF.Halffab.Encoway).%New(ProductID) - Set Halffab.PpsKenmerken = $Select($$$HasLength(Halffabrikaat.PpsKenmerken): Halffabrikaat.PpsKenmerken, 1:##class(%ArrayOfDataTypes).%New()) + Set Halffab.PpsCharacteristics = $Select($$$HasLength(Halffabrikaat.PpsCharacteristics): Halffabrikaat.PpsCharacteristics, 1:##class(%ArrayOfDataTypes).%New()) - Set Halffab.LadeDiepte = Halffabrikaat.Kenmerken.GetAt("LadeDiepte") - Set Halffab.LadeHoogte = Halffabrikaat.Kenmerken.GetAt("LadeHoogte") - Set Halffab.LadeKleur = Halffabrikaat.Kenmerken.GetAt("LadeKleur") - Set Halffab.RugHoogte = Halffabrikaat.Kenmerken.GetAt("RugHoogte") - Set Halffab.RugWandMateriaal = Halffabrikaat.Kenmerken.GetAt("RugwandMateriaal") - Set Halffab.VoorwandType = Halffabrikaat.Kenmerken.GetAt("VoorwandType") + Set Halffab.LadeDiepte = Halffabrikaat.Characteristics.GetAt("BoxSystemDepth") + Set Halffab.LadeHoogte = Halffabrikaat.Characteristics.GetAt("BoxSystemHeight") + Set Halffab.LadeKleur = Halffabrikaat.Characteristics.GetAt("BoxSystemColour") + Set Halffab.RugHoogte = Halffabrikaat.Characteristics.GetAt("BackHeight") + Set Halffab.RugWandMateriaal = Halffabrikaat.Characteristics.GetAt("BackSideMaterial") + Set Halffab.VoorwandType = Halffabrikaat.Characteristics.GetAt("FrontType") - Set:(Rol = "RugHout") Halffab.RugWandMateriaal = "Hout" - Set:(Rol = "RugStaal") Halffab.RugWandMateriaal = "Staal" + Set:(Rol = "BackWood") Halffab.RugWandMateriaal = "Hout" + Set:(Rol = "BackSteel") Halffab.RugWandMateriaal = "Staal" Quit Halffab ]]>