Index: vhTest/Utils/APPS/TRANSP/dto/LeveringInfo.cls.xml
===================================================================
diff -u -r60415 -r66251
--- vhTest/Utils/APPS/TRANSP/dto/LeveringInfo.cls.xml	(.../LeveringInfo.cls.xml)	(revision 60415)
+++ vhTest/Utils/APPS/TRANSP/dto/LeveringInfo.cls.xml	(.../LeveringInfo.cls.xml)	(revision 66251)
@@ -60,6 +60,35 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefLeveringInfoMixMetLanggoed">
+<ClassMethod>1</ClassMethod>
+<ReturnType>APPS.TRANSP.dto.LeveringInfo</ReturnType>
+<Implementation><![CDATA[
+	#dim LeveringInfo as APPS.TRANSP.dto.LeveringInfo = ..GeefLeveringInfo()
+	
+	Set LeveringInfo.VerpakkingEenheden = ##class(APPS.TRANSP.dto.VerpakkingEenheid.VerpakkingEenheidLijst).%New()
+
+	Set VerpakkingEenheid = ##class(APPS.TRANSP.dto.VerpakkingEenheid.Europallet).%New()
+	Set VerpakkingEenheid.Aantal = 1
+	Set VerpakkingEenheid.Volgnummer = 1
+	Do LeveringInfo.VerpakkingEenheden.Insert(VerpakkingEenheid)
+
+	Set VerpakkingEenheid = ##class(APPS.TRANSP.dto.VerpakkingEenheid.Colli).%New()
+	Set VerpakkingEenheid.Aantal = 1
+	Set VerpakkingEenheid.Volgnummer = 2
+	Do LeveringInfo.VerpakkingEenheden.Insert(VerpakkingEenheid)
+
+	Set VerpakkingEenheid = ##class(APPS.TRANSP.dto.VerpakkingEenheid.Langgoed).%New()
+	Set VerpakkingEenheid.Aantal = 2
+	Set VerpakkingEenheid.Volgnummer = 3
+	Do LeveringInfo.VerpakkingEenheden.Insert(VerpakkingEenheid)
+	
+	Set LeveringInfo.AantalVerpakkingEenhedenTotaal = 4
+	
+	Quit LeveringInfo
+]]></Implementation>
+</Method>
+
 <Method name="GeefLeveringInfo">
 <ClassMethod>1</ClassMethod>
 <ReturnType>APPS.TRANSP.dto.LeveringInfo</ReturnType>
Index: APPS/TRANSP/impl/TransportService.cls.xml
===================================================================
diff -u -r63824 -r66251
--- APPS/TRANSP/impl/TransportService.cls.xml	(.../TransportService.cls.xml)	(revision 63824)
+++ APPS/TRANSP/impl/TransportService.cls.xml	(.../TransportService.cls.xml)	(revision 66251)
@@ -93,7 +93,7 @@
 	Set LeveringInfo.Telefoon = Levering.GeefAdres().GeefTelefoon()
 	Set LeveringInfo.Referentie = ..BepaalReferentie(RitID,LeveringID)
 	Set LeveringInfo.EmailVoorBevestiging = ..EmailVoorBevestigingBepaler.GeefEmailVoorBevestiging(Levering.GeefGeleverdAanKlantID())
-	Set LeveringInfo.AantalVerpakkingEenhedenTotaal = (Levering.GeefAantalColli() + Levering.GeefAantalEuroPalletten() + Levering.GeefAantalHalveEuroPalletten() + Levering.GeefAantalBuitenmaatsPalletten() + Levering.GeefAantalLanggoed())
+	Set LeveringInfo.AantalVerpakkingEenhedenTotaal = (Levering.GeefAantalColli() + Levering.GeefAantalEuroPalletten() + Levering.GeefAantalHalveEuroPalletten() + Levering.GeefAantalBuitenmaatsPalletten() + Levering.GeefAantalLanggoed() + Levering.GeefAantalWegwerpPalletten())
 	Set LeveringInfo.AantalVerpakkingEenhedenReedsVerdeeld = Levering.GeefAantalLanggoed()
 	Set LeveringInfo.Gewicht = Levering.GeefNettoGewicht()
 	Set LeveringInfo.GewichtReedsVerdeeld = ..GeefGewichtLanggoed(Levering)
Index: APPS/TRANSP/impl/VerpakkingEenheidFactory.cls.xml
===================================================================
diff -u -r40944 -r66251
--- APPS/TRANSP/impl/VerpakkingEenheidFactory.cls.xml	(.../VerpakkingEenheidFactory.cls.xml)	(revision 40944)
+++ APPS/TRANSP/impl/VerpakkingEenheidFactory.cls.xml	(.../VerpakkingEenheidFactory.cls.xml)	(revision 66251)
@@ -18,6 +18,8 @@
 		Set dtoVerpakkingEenheid = ##class(APPS.TRANSP.dto.VerpakkingEenheid.Langgoed).%New()
 	}ElseIf VerpakkingEenheidType = ##class(DOM.TRANSP.enu.VerpakkingEenheidType).BuitenmaatsPallet(){
 		Set dtoVerpakkingEenheid = ##class(APPS.TRANSP.dto.VerpakkingEenheid.BuitenmaatsPallet).%New()
+	}ElseIf VerpakkingEenheidType = ##class(DOM.TRANSP.enu.VerpakkingEenheidType).WegwerpPallet(){
+		Set dtoVerpakkingEenheid = ##class(APPS.TRANSP.dto.VerpakkingEenheid.Europallet).%New()
 	}
 	Quit dtoVerpakkingEenheid
 ]]></Implementation>
Index: vhTestFiles/UnitTests/APPS.TRANSP.Transsmart.impl.RequestDataBouwer/Test/TestdoBookingVRDinclusieflanggoedomwegwerppalettekunnenaangeven/doBookingRequestVRD.xml
===================================================================
diff -u
--- vhTestFiles/UnitTests/APPS.TRANSP.Transsmart.impl.RequestDataBouwer/Test/TestdoBookingVRDinclusieflanggoedomwegwerppalettekunnenaangeven/doBookingRequestVRD.xml	(revision 0)
+++ vhTestFiles/UnitTests/APPS.TRANSP.Transsmart.impl.RequestDataBouwer/Test/TestdoBookingVRDinclusieflanggoedomwegwerppalettekunnenaangeven/doBookingRequestVRD.xml	(revision 66251)
@@ -0,0 +1,93 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<doBooking xmlns="http://connect1.transwise.eu/TboxService/">
+  <bookingInfo>
+    <carrier>VRD</carrier>
+    <origin>WEB</origin>
+    <mailType>0</mailType>
+    <language>NL</language>
+    <action>doBooking</action>
+    <version>2.0</version>
+  </bookingInfo>
+  <shipmentInfo>
+    <reference>referentie</reference>
+    <additionalReferences>
+      <additionalReference>
+        <type>DELIVERYID</type>
+        <value>12345</value>
+      </additionalReference>
+      <additionalReference>
+        <type>CUSTOMER</type>
+        <value>1000</value>
+      </additionalReference>
+      <additionalReference>
+        <type>OTHER</type>
+        <value>referentie</value>
+      </additionalReference>
+    </additionalReferences>
+    <pickupDate>2011-06-30</pickupDate>
+    <serviceLevelTime>STANDARD</serviceLevelTime>
+    <inbound>0</inbound>
+    <loadmeter>0</loadmeter>
+    <noOfPackages>4</noOfPackages>
+    <shipmentLines>
+      <shipmentLine>
+        <lineNo>1</lineNo>
+        <packageType>Wwpallet</packageType>
+        <quantity>1</quantity>
+        <measurements>
+          <length>0</length>
+          <width>0</width>
+          <height>0</height>
+          <weight>.13</weight>
+          <sizeUom>CM</sizeUom>
+          <weightUom>KG</weightUom>
+        </measurements>
+      </shipmentLine>
+      <shipmentLine>
+        <lineNo>2</lineNo>
+        <packageType>BOX</packageType>
+        <quantity>1</quantity>
+        <measurements>
+          <length>0</length>
+          <width>0</width>
+          <height>0</height>
+          <weight>.13</weight>
+          <sizeUom>CM</sizeUom>
+          <weightUom>KG</weightUom>
+        </measurements>
+      </shipmentLine>
+      <shipmentLine>
+        <lineNo>3</lineNo>
+        <packageType>Wwpallet</packageType>
+        <quantity>2</quantity>
+        <measurements>
+          <length>0</length>
+          <width>0</width>
+          <height>0</height>
+          <weight>.13</weight>
+          <sizeUom>CM</sizeUom>
+          <weightUom>KG</weightUom>
+        </measurements>
+      </shipmentLine>
+    </shipmentLines>
+    <addresses>
+      <address>
+        <type>SEND</type>
+        <name>Van Hoecke</name>
+        <street1>Europark Noord</street1>
+        <city>Sint Niklaas</city>
+        <houseNo>9</houseNo>
+        <zipCode>9100</zipCode>
+        <countryCode>BE</countryCode>
+      </address>
+      <address>
+        <type>RECV</type>
+        <name>Een Belg</name>
+        <street1>Ankerstraat 91</street1>
+        <city>Sint-Niklaas</city>
+        <zipCode>9100</zipCode>
+        <countryCode>BE</countryCode>
+      </address>
+    </addresses>
+  </shipmentInfo>
+</doBooking>
\ No newline at end of file
Index: vhUnitTest/APPS/TRANSP/TransportService/GeefLeveringInfo/Rembours/Test.cls.xml
===================================================================
diff -u -r60139 -r66251
--- vhUnitTest/APPS/TRANSP/TransportService/GeefLeveringInfo/Rembours/Test.cls.xml	(.../Test.cls.xml)	(revision 60139)
+++ vhUnitTest/APPS/TRANSP/TransportService/GeefLeveringInfo/Rembours/Test.cls.xml	(.../Test.cls.xml)	(revision 66251)
@@ -84,6 +84,7 @@
 	do ..LeveringStub.IndienMethodCall("GeefNettoGewicht").DanReturn($$$DummyString)
 	do ..LeveringStub.IndienMethodCall("GeefAantalColli").DanReturn($$$DummyInteger)
 	do ..LeveringStub.IndienMethodCall("GeefAantalEuroPalletten").DanReturn($$$DummyInteger)
+	do ..LeveringStub.IndienMethodCall("GeefAantalWegwerpPalletten").DanReturn($$$DummyInteger)
 	do ..LeveringStub.IndienMethodCall("GeefAantalBuitenmaatsPalletten").DanReturn($$$DummyInteger)
 	do ..LeveringStub.IndienMethodCall("GeefAantalHalveEuroPalletten").DanReturn($$$DummyInteger)
 	do ..LeveringStub.IndienMethodCall("GeefAantalLanggoed").DanReturn($$$DummyInteger)
Index: vhUnitTest/APPS/TRANSP/TransportService/GeefLeveringInfo/BasisGegevens/Test.cls.xml
===================================================================
diff -u -r60139 -r66251
--- vhUnitTest/APPS/TRANSP/TransportService/GeefLeveringInfo/BasisGegevens/Test.cls.xml	(.../Test.cls.xml)	(revision 60139)
+++ vhUnitTest/APPS/TRANSP/TransportService/GeefLeveringInfo/BasisGegevens/Test.cls.xml	(.../Test.cls.xml)	(revision 66251)
@@ -70,6 +70,7 @@
 	do LeveringStub.IndienMethodCall("GeefAantalColli").DanReturn("0")
 	do LeveringStub.IndienMethodCall("GeefAantalBuitenmaatsPalletten").DanReturn("0")
 	do LeveringStub.IndienMethodCall("GeefAantalEuroPalletten").DanReturn("1")
+	do LeveringStub.IndienMethodCall("GeefAantalWegwerpPalletten").DanReturn("0")
 	do LeveringStub.IndienMethodCall("GeefAantalHalveEuroPalletten").DanReturn("0")
 	do LeveringStub.IndienMethodCall("GeefAantalLanggoed").DanReturn("0")
 	do LeveringStub.IndienMethodCall("GeefBedragRembours").DanReturn("0")
@@ -118,6 +119,7 @@
 	do LeveringStub.IndienMethodCall("GeefAantalColli").DanReturn("0")
 	do LeveringStub.IndienMethodCall("GeefAantalBuitenmaatsPalletten").DanReturn("0")
 	do LeveringStub.IndienMethodCall("GeefAantalEuroPalletten").DanReturn("1")
+	do LeveringStub.IndienMethodCall("GeefAantalWegwerpPalletten").DanReturn("0")
 	do LeveringStub.IndienMethodCall("GeefAantalHalveEuroPalletten").DanReturn("0")
 	do LeveringStub.IndienMethodCall("GeefAantalLanggoed").DanReturn("0")
 	do LeveringStub.IndienMethodCall("GeefBedragRembours").DanReturn("0")
@@ -165,6 +167,7 @@
 	do LeveringStub.IndienMethodCall("GeefAantalColli").DanReturn("0")
 	do LeveringStub.IndienMethodCall("GeefAantalBuitenmaatsPalletten").DanReturn("0")
 	do LeveringStub.IndienMethodCall("GeefAantalEuroPalletten").DanReturn("1")
+	do LeveringStub.IndienMethodCall("GeefAantalWegwerpPalletten").DanReturn("0")
 	do LeveringStub.IndienMethodCall("GeefAantalHalveEuroPalletten").DanReturn("0")
 	do LeveringStub.IndienMethodCall("GeefAantalLanggoed").DanReturn("0")
 	do LeveringStub.IndienMethodCall("GeefBedragRembours").DanReturn("0")
Index: vhUnitTest/APPS/TRANSP/Transsmart/impl/RequestDataBouwer/Test.cls.xml
===================================================================
diff -u -r63996 -r66251
--- vhUnitTest/APPS/TRANSP/Transsmart/impl/RequestDataBouwer/Test.cls.xml	(.../Test.cls.xml)	(revision 63996)
+++ vhUnitTest/APPS/TRANSP/Transsmart/impl/RequestDataBouwer/Test.cls.xml	(.../Test.cls.xml)	(revision 66251)
@@ -63,6 +63,22 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test doBooking VRD inclusief langgoed om wegwerppalet te kunnen aangeven">
+<Implementation><![CDATA[
+	#dim DateTimeAPI as TECH.DateTime.DateTimeAPI = ##class(TECH.Context).Instance().GeefDateTimeAPI()
+
+	#dim LeveringInfo as APPS.TRANSP.dto.LeveringInfo = ##class(vhTest.Utils.APPS.TRANSP.dto.LeveringInfo).GeefLeveringInfoMixMetLanggoed()
+	#dim Datum as %Date = +(DateTimeAPI.CurrentHorolog())	
+	Set LeveringInfo.AfleverDatum = ##class(TECH.DateTime).BerekenWerkdag(Datum,1)
+	Set RitMock = ##class(vhTest.Mock.DOM.TRANSP.Rit).%New()
+	Do RitMock.VerwachtMethodCall("GeefTransporteur").DanReturn(##class(DOM.TRANSP.enu.Transporteur).VRD())
+	Do RitMock.VerwachtMethodCall("GeefID").DanReturn(12345)
+	Do ..DataExporteerder.ExporteerDataTransferObject(..Bouwer.MaakdoBookingRequest(LeveringInfo,RitMock), "doBookingRequestVRD.xml", "")
+	Do RitMock.Verifieer()
+	Do $$$AssertCorrectGemaakteBestanden(..GeefBestandLocatie())
+]]></Implementation>
+</Method>
+
 <Method name="Test doBooking VRD Met costcenter voor Haefele BE">
 <Implementation><![CDATA[
 	#dim DateTimeAPI as TECH.DateTime.DateTimeAPI = ##class(TECH.Context).Instance().GeefDateTimeAPI()
Index: vhUnitTest/APPS/TRANSP/TransportService/GeefLeveringInfo/VerpakkingEenheden/Test.cls.xml
===================================================================
diff -u -r60139 -r66251
--- vhUnitTest/APPS/TRANSP/TransportService/GeefLeveringInfo/VerpakkingEenheden/Test.cls.xml	(.../Test.cls.xml)	(revision 60139)
+++ vhUnitTest/APPS/TRANSP/TransportService/GeefLeveringInfo/VerpakkingEenheden/Test.cls.xml	(.../Test.cls.xml)	(revision 66251)
@@ -73,6 +73,7 @@
 
 	do ..LeveringStub.IndienMethodCall("GeefAantalColli").DanReturn(0)
 	do ..LeveringStub.IndienMethodCall("GeefAantalEuroPalletten").DanReturn(0)
+	do ..LeveringStub.IndienMethodCall("GeefAantalWegwerpPalletten").DanReturn(0)
 	do ..LeveringStub.IndienMethodCall("GeefAantalLanggoed").DanReturn(0)
 	do ..LeveringStub.IndienMethodCall("GeefVerpakkingEenheden").DanReturn(##class(%ListOfObjects).%New())
 	do ..LeveringStub.IndienMethodCall("GeefBonIterator").DanReturn(##class(TECH.ListIterator).%New(##class(%ListOfObjects).%New()))
@@ -92,6 +93,7 @@
 	do ..LeveringStub.IndienMethodCall("GeefAantalColli").DanReturn(1)
 	do ..LeveringStub.IndienMethodCall("GeefAantalEuroPalletten").DanReturn(0)
 	do ..LeveringStub.IndienMethodCall("GeefAantalLanggoed").DanReturn(0)
+	do ..LeveringStub.IndienMethodCall("GeefAantalWegwerpPalletten").DanReturn(0)
 	do ..LeveringStub.IndienMethodCall("GeefVerpakkingEenheden").DanReturn(VerpakkingEenheden)
 	do ..LeveringStub.IndienMethodCall("GeefBonIterator").DanReturn(##class(TECH.ListIterator).%New(##class(%ListOfObjects).%New()))
 
@@ -118,6 +120,7 @@
 	
 	do ..LeveringStub.IndienMethodCall("GeefAantalColli").DanReturn(1)
 	do ..LeveringStub.IndienMethodCall("GeefAantalEuroPalletten").DanReturn(0)
+	do ..LeveringStub.IndienMethodCall("GeefAantalWegwerpPalletten").DanReturn(0)
 	do ..LeveringStub.IndienMethodCall("GeefAantalLanggoed").DanReturn(2)
 	do ..LeveringStub.IndienMethodCall("GeefAantalBuitenmaatsPalletten").DanReturn(3)
 	do ..LeveringStub.IndienMethodCall("GeefVerpakkingEenheden").DanReturn(VerpakkingEenhedenDrieItems)