Index: APPS/PM/Maatwerk/impl/VhConfig/Converter/EncowayNaarDom/PpsKenmerken.cls.xml =================================================================== diff -u -r73832 -r73866 --- APPS/PM/Maatwerk/impl/VhConfig/Converter/EncowayNaarDom/PpsKenmerken.cls.xml (.../PpsKenmerken.cls.xml) (revision 73832) +++ APPS/PM/Maatwerk/impl/VhConfig/Converter/EncowayNaarDom/PpsKenmerken.cls.xml (.../PpsKenmerken.cls.xml) (revision 73866) @@ -32,6 +32,7 @@ ElseIf (CharacteristicKey = "Width") { Do PpsKenmerken.SetAt(CharacteristicValue, "Breedte") } ElseIf (CharacteristicKey = "Print") { Do PpsKenmerken.SetAt(CharacteristicValue, "Print") } ElseIf (CharacteristicKey = "SideHeight") { Do PpsKenmerken.SetAt(CharacteristicValue, "ZijkantHoogte") } + ElseIf (CharacteristicKey = "Groove") { Do PpsKenmerken.SetAt(CharacteristicValue, "Groef") } Else { do ##class(vhLib.Logger).%New("VhConfig.Converter").Error("EncowayNaarDom", "Geen vertaling gevonden voor PpsKenmerk '" _ CharacteristicKey _ "'.") } Index: APPS/PM/Maatwerk/impl/VhConfig/Converter/RolnaamProcessor.cls.xml =================================================================== diff -u -r73832 -r73866 --- APPS/PM/Maatwerk/impl/VhConfig/Converter/RolnaamProcessor.cls.xml (.../RolnaamProcessor.cls.xml) (revision 73832) +++ APPS/PM/Maatwerk/impl/VhConfig/Converter/RolnaamProcessor.cls.xml (.../RolnaamProcessor.cls.xml) (revision 73866) @@ -39,6 +39,8 @@ Set RolnaamVoorCache = ##class(TECH.StringUtils).Replace(EncowayRolnaam, "CoverCapOuter", "AfdekkapBuiten") } ElseIf (EncowayRolnaam = "CrossGallery") { Set RolnaamVoorCache = ##class(TECH.StringUtils).Replace(EncowayRolnaam, "CrossGallery", "Dwarsverdeling") + } ElseIf (EncowayRolnaam = "CrossGalleryConnector") { + Set RolnaamVoorCache = ##class(TECH.StringUtils).Replace(EncowayRolnaam, "CrossGalleryConnector", "DwarsverdelingHouder") } ElseIf (EncowayRolnaam = "CrossGalleryDoubleConnector") { Set RolnaamVoorCache = ##class(TECH.StringUtils).Replace(EncowayRolnaam, "CrossGalleryDoubleConnector", "DwarsverdelingDubbelHouder") } ElseIf (EncowayRolnaam = "CrossGalleryLower") { @@ -47,6 +49,8 @@ Set RolnaamVoorCache = ##class(TECH.StringUtils).Replace(EncowayRolnaam, "DesignElementFront", "InschuifElementVoor") } ElseIf ((EncowayRolnaam = "DesignElementOuter") || (EncowayRolnaam = "DesignElementOuter.Left") || (EncowayRolnaam = "DesignElementOuter.Right")) { Set RolnaamVoorCache = ##class(TECH.StringUtils).Replace(EncowayRolnaam, "DesignElementOuter", "DesignZijkantBuiten") + } ElseIf (EncowayRolnaam = "DesignElementOuterDamper") { + Set RolnaamVoorCache = ##class(TECH.StringUtils).Replace(EncowayRolnaam, "DesignElementOuterDamper", "DesignZijkantDemping") } ElseIf (EncowayRolnaam = "DesignElementSide") { Set RolnaamVoorCache = ##class(TECH.StringUtils).Replace(EncowayRolnaam, "DesignElementSide", "InschuifElementZijkant") } ElseIf (EncowayRolnaam = "FrontAttachment") { @@ -55,12 +59,30 @@ Set RolnaamVoorCache = ##class(TECH.StringUtils).Replace(EncowayRolnaam, "FrontBaseStabiliser", "BevestigingBodemFront") } ElseIf ((EncowayRolnaam = "FrontFixing") || (EncowayRolnaam = "FrontFixing.Left") || (EncowayRolnaam = "FrontFixing.Right")) { Set RolnaamVoorCache = ##class(TECH.StringUtils).Replace(EncowayRolnaam, "FrontFixing", "FrontHouder") + } ElseIf (EncowayRolnaam = "FrontPanel") { + Set RolnaamVoorCache = ##class(TECH.StringUtils).Replace(EncowayRolnaam, "FrontPanel", "Voorstuk") + } ElseIf (EncowayRolnaam = "GalleryFront") { + Set RolnaamVoorCache = ##class(TECH.StringUtils).Replace(EncowayRolnaam, "GalleryFront", "RelingVoor") + } ElseIf (EncowayRolnaam = "GallerySide") { + Set RolnaamVoorCache = ##class(TECH.StringUtils).Replace(EncowayRolnaam, "GallerySide", "RelingZijkant") } ElseIf (EncowayRolnaam = "LatchSet") { Set RolnaamVoorCache = ##class(TECH.StringUtils).Replace(EncowayRolnaam, "LatchSet", "MeenemerSet") + } ElseIf (EncowayRolnaam = "Packaging.ProboxBottomBox") { + Set RolnaamVoorCache = ##class(TECH.StringUtils).Replace(EncowayRolnaam, "Packaging.ProboxBottomBox", "Verpakking.ProboxBodemdoos") + } ElseIf (EncowayRolnaam = "Packaging.ProboxCoverBox") { + Set RolnaamVoorCache = ##class(TECH.StringUtils).Replace(EncowayRolnaam, "Packaging.ProboxCoverBox", "Verpakking.ProboxDekseldoos") + } ElseIf (EncowayRolnaam = "Packaging.ProboxPallet") { + Set RolnaamVoorCache = ##class(TECH.StringUtils).Replace(EncowayRolnaam, "Packaging.ProboxPallet", "Verpakking.ProboxPallet") + } ElseIf (EncowayRolnaam = "Packaging.ProboxPartsBox") { + Set RolnaamVoorCache = ##class(TECH.StringUtils).Replace(EncowayRolnaam, "Packaging.ProboxPartsBox", "Verpakking.ProboxOnderdelendoos") + } ElseIf (EncowayRolnaam = "Packaging.ProboxWrap") { + Set RolnaamVoorCache = ##class(TECH.StringUtils).Replace(EncowayRolnaam, "Packaging.ProboxWrap", "Verpakking.ProboxWikkel") } ElseIf (EncowayRolnaam = "Packaging.V1BoxWithCover") { Set RolnaamVoorCache = ##class(TECH.StringUtils).Replace(EncowayRolnaam, "Packaging.V1BoxWithCover", "Verpakking.V1DoosMetDeksel") } ElseIf (EncowayRolnaam = "Packaging.V1Sleeve") { Set RolnaamVoorCache = ##class(TECH.StringUtils).Replace(EncowayRolnaam, "Packaging.V1Sleeve", "Verpakking.V1LODoos") + } ElseIf (EncowayRolnaam = "Packaging.Wrap") { + Set RolnaamVoorCache = ##class(TECH.StringUtils).Replace(EncowayRolnaam, "Packaging.Wrap", "Verpakking.Wikkel") } ElseIf ((EncowayRolnaam = "Runner") || (EncowayRolnaam = "Runner.Left") || (EncowayRolnaam = "Runner.Right")) { Set RolnaamVoorCache = ##class(TECH.StringUtils).Replace(EncowayRolnaam, "Runner", "Geleider") } ElseIf ((EncowayRolnaam = "SiphonCap.Z1") || (EncowayRolnaam = "SiphonCap.Z2")) { @@ -77,9 +99,11 @@ Set RolnaamVoorCache = ##class(TECH.StringUtils).Replace(EncowayRolnaam, "TOBUnit", "TiponBlumotionEenheid") } ElseIf (EncowayRolnaam = "TransportLock") { Set RolnaamVoorCache = ##class(TECH.StringUtils).Replace(EncowayRolnaam, "TransportLock", "TransportZekerheid") + } ElseIf (EncowayRolnaam = "Mat") { + Set RolnaamVoorCache = "Mat" } Else { #dim ErrorBoodschap As %String = "Geen vertaling gevonden voor Rolnaam '" _ EncowayRolnaam _ "' bij het converteren." - Do ##class(vhLib.Logger).%New("VhConfig.Converter").Error("EncowayNaarDom", ErrorBoodschap) + Do ##class(vhLib.Logger).%New("VhConfig.Converter.RolnaamProcessor").Error("EncowayNaarDom", ErrorBoodschap) Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.UnimplementedException).%New(ErrorBoodschap)) } Index: APPS/PM/Maatwerk/dto/VhConfig/Halffabrikaat.cls.xml =================================================================== diff -u -r73585 -r73866 --- APPS/PM/Maatwerk/dto/VhConfig/Halffabrikaat.cls.xml (.../Halffabrikaat.cls.xml) (revision 73585) +++ APPS/PM/Maatwerk/dto/VhConfig/Halffabrikaat.cls.xml (.../Halffabrikaat.cls.xml) (revision 73866) @@ -87,7 +87,7 @@ %Decimal - + TECH.String @@ -210,6 +210,9 @@ RolenameParent + +RoleNameParent + Index: APPS/PM/Maatwerk/impl/VhConfig/Converter/HalffabItemsBoom.cls.xml =================================================================== diff -u -r73828 -r73866 --- APPS/PM/Maatwerk/impl/VhConfig/Converter/HalffabItemsBoom.cls.xml (.../HalffabItemsBoom.cls.xml) (revision 73828) +++ APPS/PM/Maatwerk/impl/VhConfig/Converter/HalffabItemsBoom.cls.xml (.../HalffabItemsBoom.cls.xml) (revision 73866) @@ -162,7 +162,7 @@ Set HalffabItem.Aantal = +(Halffabrikaat.Quantity) Set HalffabItem.OpnemenInEindproduct = Halffabrikaat.IncludeInFinalProduct - Set HalffabItem.ProductieRoute = Halffabrikaat.ProductionFlow + Set HalffabItem.ProductieRoute = ..GeefVertaaldeProductieRoute(Halffabrikaat.ProductionFlow) Do HalffabItem.ZetOmschrijvingVoorDocs(Halffabrikaat.DescriptionDocs) Do HalffabItem.ZetOmschrijvingVoorPicking(Halffabrikaat.DescriptionPicking) @@ -183,7 +183,7 @@ Set HalffabItem.AfmetingMetBewerkingVerlies = +(Halffabrikaat.DimensionWithProcessingLoss) Set HalffabItem.AfmetingTeBekomen = +(Halffabrikaat.DimensionToBe) Set HalffabItem.OpnemenInEindproduct = Halffabrikaat.IncludeInFinalProduct - Set HalffabItem.ProductieRoute = Halffabrikaat.ProductionFlow + Set HalffabItem.ProductieRoute = ..GeefVertaaldeProductieRoute(Halffabrikaat.ProductionFlow) Set HalffabItem.TeBekomenAantal = +(Halffabrikaat.QuantityToBe) Do HalffabItem.ZetOmschrijvingVoorDocs(Halffabrikaat.DescriptionDocs) Do HalffabItem.ZetOmschrijvingVoorPicking(Halffabrikaat.DescriptionPicking) @@ -194,6 +194,7 @@ #dim BewerkingDimensie As %String = BewerkingDimensiesIterator.Key() Set:(BewerkingDimensie = "Length") BewerkingDimensie = "Lengte" + Set:(BewerkingDimensie = "Width") BewerkingDimensie = "Breedte" Do HalffabItem.ZetBewerkteDimensie(BewerkingDimensie,+(Afmeting)) } @@ -209,13 +210,19 @@ ") #dim ReferentieHalffabItem As DOM.PM.Maatwerk.Calc.HF.Halffab = ..HalffabItemsBoom.GeefHalffabItem(RolnaamParent) + If ($$$Not($IsObject(ReferentieHalffabItem))) { + #dim ErrorBoodschap As %String = "Geen ReferentieHalffabItem met RolnaamParent '" _ RolnaamParent _ "' gevonden voor InbegrepenHFItem '" _ RolnaamVoorCache _ "'" + Do ##class(vhLib.Logger).%New("APPS.PM.Maatwerk.impl.VhConfig.Converter.HalffabItemsBoom").Error("GeefIngebrepenHalffabItem", ErrorBoodschap) + Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.ObjectExpectedException).%New(ErrorBoodschap)) + } + 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.ProductieRoute = ..GeefVertaaldeProductieRoute(Halffabrikaat.ProductionFlow) Set HalffabItem.HalffabItem = ReferentieHalffabItem Do HalffabItem.ZetOmschrijvingVoorDocs(Halffabrikaat.DescriptionDocs) Do HalffabItem.ZetOmschrijvingVoorPicking(Halffabrikaat.DescriptionPicking) @@ -262,6 +269,26 @@ + + + + + + +ProductionFlow:%String +%String + + Index: vhTest/Fake/DOM/PM/Maatwerk/Calc/HF/SamengesteldHalffabItem.cls.xml =================================================================== diff -u -r56766 -r73866 --- vhTest/Fake/DOM/PM/Maatwerk/Calc/HF/SamengesteldHalffabItem.cls.xml (.../SamengesteldHalffabItem.cls.xml) (revision 56766) +++ vhTest/Fake/DOM/PM/Maatwerk/Calc/HF/SamengesteldHalffabItem.cls.xml (.../SamengesteldHalffabItem.cls.xml) (revision 73866) @@ -69,20 +69,17 @@ Aantal:%Decimal - + Rol:%String - + VolledigeRolNaam:%String - +