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
-
+