Index: vhUnitTest/APPS/VKP/impl/OfferteService/VerpakkingConvertor/Converteer/TBX/TestVerpakkingType.cls.xml
===================================================================
diff -u -r41633 -r41635
--- vhUnitTest/APPS/VKP/impl/OfferteService/VerpakkingConvertor/Converteer/TBX/TestVerpakkingType.cls.xml	(.../TestVerpakkingType.cls.xml)	(revision 41633)
+++ vhUnitTest/APPS/VKP/impl/OfferteService/VerpakkingConvertor/Converteer/TBX/TestVerpakkingType.cls.xml	(.../TestVerpakkingType.cls.xml)	(revision 41635)
@@ -3,8 +3,8 @@
 <Class name="vhUnitTest.APPS.VKP.impl.OfferteService.VerpakkingConvertor.Converteer.TBX.TestVerpakkingType">
 <Super>vhUnitTest.TestCase</Super>
 
-<Method name="Test: geeft verpakkingtype Probox terug van een TBX lade in Probox verpakkingtype">
-<Implementation><![CDATA[	Do ..VerpakkinglistVerpakkingTypeTesten(1, ##class(DOM.PM.enu.TBXVerpakking).ProboxMetOnderdelen(),##class(APPS.VKP.Offerte.enu.VerpakkingType).Probox())
+<Method name="Test: geeft verpakkingtype V1 terug van een TBX lade in Probox verpakkingtype voor berekenen van vast aantal lades op pallet">
+<Implementation><![CDATA[	Do ..VerpakkinglistVerpakkingTypeTesten(1, ##class(DOM.PM.enu.TBXVerpakking).ProboxMetOnderdelen(),##class(APPS.VKP.Offerte.enu.VerpakkingType).V1())
 ]]></Implementation>
 </Method>
 
Index: APPS/VKP/impl/OfferteService/VerpakkingConvertor.cls.xml
===================================================================
diff -u -r41633 -r41635
--- APPS/VKP/impl/OfferteService/VerpakkingConvertor.cls.xml	(.../VerpakkingConvertor.cls.xml)	(revision 41633)
+++ APPS/VKP/impl/OfferteService/VerpakkingConvertor.cls.xml	(.../VerpakkingConvertor.cls.xml)	(revision 41635)
@@ -99,11 +99,8 @@
 	Do VerzendVerpakkingList.VoegToeList(LadeVerpakkingList.ZoekVerpakkingen(##class(APPS.VKP.Offerte.enu.VerpakkingType).FlatpackV1(),##class(APPS.VKP.Offerte.enu.LadeType).Taorbox()))
 	Do VerzendVerpakkingList.VoegToeList(LadeVerpakkingList.ZoekVerpakkingen(##class(APPS.VKP.Offerte.enu.VerpakkingType).V1(),##class(APPS.VKP.Offerte.enu.LadeType).LegraboxPure()))
 	Do VerzendVerpakkingList.VoegToeList(LadeVerpakkingList.ZoekVerpakkingen(##class(APPS.VKP.Offerte.enu.VerpakkingType).V1(),##class(APPS.VKP.Offerte.enu.LadeType).Tandembox()))
+	Do VerzendVerpakkingList.VoegToeList(..GeefTandemboxProboxAlsV1(LadeVerpakkingList))
 	
-	// omdat palletten voor tandembox berekend worden per vast aantal lades (16 op 1 pallet) en dus niet afhankelijk is van afmeting of gewicht,
-	// mogen we tandembox probox niet omzetten naar proboxdozen als verpakking voor op een pallet te zetten. We hebben hiervoor het juiste aantal lades nodig.
-	Do VerzendVerpakkingList.VoegToeList(LadeVerpakkingList.ZoekVerpakkingen(##class(APPS.VKP.Offerte.enu.VerpakkingType).Probox(),##class(APPS.VKP.Offerte.enu.LadeType).Tandembox()))
-	
 	#dim LadeTypesVoorProbox As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
 	Do LadeTypesVoorProbox.Insert(##class(APPS.VKP.Offerte.enu.LadeType).LegraboxPure())
 	Do LadeTypesVoorProbox.Insert(##class(APPS.VKP.Offerte.enu.LadeType).Taorbox())
@@ -129,6 +126,25 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefTandemboxProboxAlsV1">
+<FormalSpec>LadeVerpakkingList:APPS.VKP.Offerte.dto.VerpakkingList</FormalSpec>
+<ReturnType>APPS.VKP.Offerte.dto.VerpakkingList</ReturnType>
+<Implementation><![CDATA[
+	
+	// omdat palletten voor tandembox berekend worden per vast aantal lades (16 op 1 pallet) en dus niet afhankelijk is van afmeting of gewicht,
+	// mogen we tandembox probox niet omzetten naar proboxdozen als verpakking voor op een pallet te zetten. We hebben hiervoor het juiste aantal lades nodig.
+
+	#dim TandemboxLadeVerpakkingList As APPS.VKP.Offerte.dto.VerpakkingList
+	Set TandemboxLadeVerpakkingList = LadeVerpakkingList.ZoekVerpakkingen(##class(APPS.VKP.Offerte.enu.VerpakkingType).Probox(),##class(APPS.VKP.Offerte.enu.LadeType).Tandembox())
+	#dim TandemboxLadeVerpakkingListIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(TandemboxLadeVerpakkingList)
+	While TandemboxLadeVerpakkingListIterator.HasNext() {
+		#dim Verpakking As APPS.VKP.Offerte.dto.Verpakking = TandemboxLadeVerpakkingListIterator.Next()
+		Set Verpakking.VerpakkingType = ##class(APPS.VKP.Offerte.enu.VerpakkingType).V1()
+	}
+	Quit TandemboxLadeVerpakkingList
+]]></Implementation>
+</Method>
+
 <Method name="GeefProboxAfmeting">
 <Private>1</Private>
 <ReturnType>APPS.TRANSP.OfferteService.dto.Afmeting</ReturnType>