Index: APPS/Verpakking/DoosAanvuller.cls.xml
===================================================================
diff -u -r71574 -r71582
--- APPS/Verpakking/DoosAanvuller.cls.xml	(.../DoosAanvuller.cls.xml)	(revision 71574)
+++ APPS/Verpakking/DoosAanvuller.cls.xml	(.../DoosAanvuller.cls.xml)	(revision 71582)
@@ -76,14 +76,20 @@
 	#dim ProductAPI As DOM.PM.ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI()
 	#dim Product As DOM.PM.impl.MaatwerkProductImpl = ProductAPI.GeefProduct(ProductId)
 	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = Product.GeefIngegevenKenmerken()
-	#dim IsVariantLade As %Boolean = (IngegevenKenmerken.GeefFamilie() = ##class(DOM.PM.enu.Familie).Lade())	
+	#dim IsVariantLade As %Boolean = (IngegevenKenmerken.GeefFamilie() = ##class(DOM.PM.enu.Familie).Lade())
 	
-	If (IsVariantLade) {
-		#dim BerekenSpecificatie As DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie = Product.GeefBerekeningsSpecificatie()
-		Set KlantinstellingenRepository = ##class(DOM.Halux.AAP.KlantinstellingenRepository).%New()
-		#dim KlantInstellingen As DOM.Halux.AAP.Klantinstellingen = KlantinstellingenRepository.ZoekViaKlantId(BerekenSpecificatie.GeefKlantID())
+	Try {
+		If (IsVariantLade) {
+			#dim BerekenSpecificatie As DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie = Product.GeefBerekeningsSpecificatie()
+			Set KlantinstellingenRepository = ##class(DOM.Halux.AAP.KlantinstellingenRepository).%New()
+			#dim KlantInstellingenIterator As TECH.Iterator = KlantinstellingenRepository.ZoekViaKlantId(BerekenSpecificatie.GeefKlantID())
 		
-		Set HeeftXSKarton = KlantInstellingen.IsBlumXs
+			While KlantInstellingenIterator.HasNext() {
+				Set HeeftXSKarton = KlantInstellingenIterator.Next().IsBlumXs
+			}
+		}	
+	} Catch {
+		Do ##class(vhLib.Logger).%New("VH doos service").Info("Bepalen klant", "Klant kon niet worden bepaald. Er kon dus niet bepaald worden of er afwijkend karton nodig is of niet voor productId '"_ ProductId_"'.")
 	}
 	
 	Quit HeeftXSKarton
@@ -102,8 +108,10 @@
 		Set BasisDoos.LogoPrint = "BLANK"
 		
 		//Zo lang er problemen zijn met kaderdeurkartons op het orgaluxmachine moet kartonopdracht naar TAOR worden verstuurd, daarbij horen deze parameters
-		;Set BasisDoos.LogoPrint = "TBX DRAWER"
-		;set BasisDoos.CardBoardThickness = 4.2
+		If (MachineId = ##class(APPS.Verpakking.enu.MachineID).TAOR()) || (MachineId = ##class(APPS.Verpakking.enu.MachineID).HALUX()) {
+			Set BasisDoos.LogoPrint = "TBX DRAWER"
+			Set BasisDoos.CardBoardThickness = 4.2
+		}
 		
 		Set BasisDoos.Depth = Params("HOOGTE") + 20
 		Set BasisDoos.Height = Params("KADAANTAL") * 43.5
Index: vhDeploy/Deploy20230828OpvullenDataKartonBlumXS.cls.xml
===================================================================
diff -u -r71576 -r71582
--- vhDeploy/Deploy20230828OpvullenDataKartonBlumXS.cls.xml	(.../Deploy20230828OpvullenDataKartonBlumXS.cls.xml)	(revision 71576)
+++ vhDeploy/Deploy20230828OpvullenDataKartonBlumXS.cls.xml	(.../Deploy20230828OpvullenDataKartonBlumXS.cls.xml)	(revision 71582)
@@ -12,9 +12,9 @@
 <ClassMethod>1</ClassMethod>
 <Implementation><![CDATA[
 	Set KartonData = ##class(APPS.Verpakking.Data.Karton).%New()
-	Set KartonData.CardboardID = "BLANK BC 1400"
+	Set KartonData.CardboardID = "XS 1650"
 	Set KartonData.LogoPrint = "XS"
-	Set KartonData.Dikte = 6.7
+	Set KartonData.Dikte = 4.2
 	Set KartonData.Breedte = 1650.0
 	Set KartonData.Kost = 0.858
 	Set KartonData.Actief = 1
@@ -24,19 +24,21 @@
 	Do KartonData.%Save()
 	
 	Set KartonData = ##class(APPS.Verpakking.Data.Karton).%New()
-	Set KartonData.CardboardID = "BLANK BC 2400"
+	Set KartonData.CardboardID = "XS 2400"
 	Set KartonData.LogoPrint = "XS"
-	Set KartonData.Dikte = 6.7
+	Set KartonData.Dikte = 4.2
 	Set KartonData.Breedte = 2400.0
 	Set KartonData.Kost = 1.332
 	Set KartonData.Actief = 1
 	Set KartonData.ProductId = "4442203"
 	Set KartonData.MachineId = ##class(APPS.Verpakking.enu.MachineID).TAOR()
 	
+	Do KartonData.%Save()
+	
 	Set KartonData = ##class(APPS.Verpakking.Data.Karton).%New()
-	Set KartonData.CardboardID = "BLANK BC 1400"
+	Set KartonData.CardboardID = "XS 1650"
 	Set KartonData.LogoPrint = "XS"
-	Set KartonData.Dikte = 6.7
+	Set KartonData.Dikte = 4.2
 	Set KartonData.Breedte = 1650.0
 	Set KartonData.Kost = 0.858
 	Set KartonData.Actief = 1
@@ -46,14 +48,14 @@
 	Do KartonData.%Save()
 	
 	Set KartonData = ##class(APPS.Verpakking.Data.Karton).%New()
-	Set KartonData.CardboardID = "BLANK BC 2400"
+	Set KartonData.CardboardID = "XS 2400"
 	Set KartonData.LogoPrint = "XS"
-	Set KartonData.Dikte = 6.7
+	Set KartonData.Dikte = 4.2
 	Set KartonData.Breedte = 2400.0
 	Set KartonData.Kost = 1.332
 	Set KartonData.Actief = 1
 	Set KartonData.ProductId = "4442203"
-	Set KartonData.MachineId = ##class(APPS.Verpakking.enu.MachineID).VH()
+	Set KartonData.MachineId = ##class(APPS.Verpakking.enu.MachineID).HALUX()
 	
 	Do KartonData.%Save()
 ]]></Implementation>