Index: vhUnitTest/APPS/TRANSP/GLS/Bericht/RequestDataBouwer/TestVolgnummerVerpakkingEenheid.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/TRANSP/GLS/Bericht/RequestDataBouwer/TestVolgnummerVerpakkingEenheid.cls.xml	(revision 0)
+++ vhUnitTest/APPS/TRANSP/GLS/Bericht/RequestDataBouwer/TestVolgnummerVerpakkingEenheid.cls.xml	(revision 40533)
@@ -0,0 +1,107 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.TRANSP.GLS.Bericht.RequestDataBouwer.TestVolgnummerVerpakkingEenheid">
+<Super>vhUnitTest.APPS.TRANSP.GLS.Bericht.RequestDataBouwer.TestBase</Super>
+
+<Parameter name="ReferentieSuffix">
+<Type>%String</Type>
+<Default>FPL</Default>
+</Parameter>
+
+<UDLText name="T">
+<Content><![CDATA[
+// Leveringinfo bevat data zoals door AX gestuurd : 1 container (in dit geval de 2e van 3)
+
+]]></Content>
+</UDLText>
+
+<Method name="TestAXBericht">
+<Implementation><![CDATA[
+	Set RequestBouwer = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.impl.RequestDataBouwer).%New()
+	
+	#dim LeveringData As APPS.TRANSP.dto.LeveringInfo = ..GeefLeveringData()
+	Set LeveringData.Gewicht = 60
+	Set LeveringData.AantalVerpakkingEenhedenTotaal = 3
+	
+	set VerpakkingEenheid = ##class(APPS.TRANSP.dto.VerpakkingEenheid.Europallet).%New()
+
+	set VerpakkingEenheid.Aantal = 1
+	Set VerpakkingEenheid.Volgnummer = 2
+	
+	do LeveringData.VerpakkingEenheden.Insert(VerpakkingEenheid)
+			
+	#dim Requests As List Of APPS.TRANSP.GLS.Bericht.dto.Request =  RequestBouwer.MaakRequests(LeveringData,##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze).Freight())
+	If $$$AssertEquals(Requests.Count(),1)	{
+		#dim Request1 As APPS.TRANSP.GLS.GLSv1.Bericht.dto.ParcelRequest = Requests.GetAt(1)
+
+		Do $$$AssertEquals(Request1.T8904,"002","VolgNr")
+		Do $$$AssertEquals(Request1.T8905,"003","Aantal")			
+	}
+]]></Implementation>
+</Method>
+
+<Method name="Test LeveringInfo met aantal 2 voor verpakkingeenheid">
+<Implementation><![CDATA[
+	Set RequestBouwer = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.impl.RequestDataBouwer).%New()
+	
+	#dim LeveringData As APPS.TRANSP.dto.LeveringInfo = ..GeefLeveringData()
+	Set LeveringData.Gewicht = 60
+	Set LeveringData.AantalVerpakkingEenhedenTotaal = 2
+	
+	set VerpakkingEenheid = ##class(APPS.TRANSP.dto.VerpakkingEenheid.Europallet).%New()
+
+	set VerpakkingEenheid.Aantal = 2
+	Set VerpakkingEenheid.Volgnummer = 666
+	
+	do LeveringData.VerpakkingEenheden.Insert(VerpakkingEenheid)
+			
+	#dim Requests As List Of APPS.TRANSP.GLS.Bericht.dto.Request =  RequestBouwer.MaakRequests(LeveringData,##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze).Freight())
+	If $$$AssertEquals(Requests.Count(),2)	{
+		#dim Request1 As APPS.TRANSP.GLS.GLSv1.Bericht.dto.ParcelRequest = Requests.GetAt(1)
+
+		Do $$$AssertEquals(Request1.T8904,"001","VolgNr")
+		Do $$$AssertEquals(Request1.T8905,"002","Aantal")			
+		#dim Request2 As APPS.TRANSP.GLS.GLSv1.Bericht.dto.ParcelRequest = Requests.GetAt(2)
+
+		Do $$$AssertEquals(Request2.T8904,"002","VolgNr")
+		Do $$$AssertEquals(Request2.T8905,"002","Aantal")
+			
+	}
+]]></Implementation>
+</Method>
+
+<Method name="Test LeveringInfo Met 2 verpakkingEenheden met elk aantal 2">
+<Implementation><![CDATA[
+	Set RequestBouwer = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.impl.RequestDataBouwer).%New()
+	
+	#dim LeveringData As APPS.TRANSP.dto.LeveringInfo = ..GeefLeveringData()
+	Set LeveringData.Gewicht = 60
+	Set LeveringData.AantalVerpakkingEenhedenTotaal = 4
+	
+	set VerpakkingEenheid = ##class(APPS.TRANSP.dto.VerpakkingEenheid.Europallet).%New()
+	set VerpakkingEenheid.Aantal = 2
+	Set VerpakkingEenheid.Volgnummer = 666
+	do LeveringData.VerpakkingEenheden.Insert(VerpakkingEenheid)
+	set VerpakkingEenheid2 = ##class(APPS.TRANSP.dto.VerpakkingEenheid.Europallet).%New()
+	set VerpakkingEenheid2.Aantal = 2
+	Set VerpakkingEenheid2.Volgnummer = 666
+	do LeveringData.VerpakkingEenheden.Insert(VerpakkingEenheid2)
+			
+	#dim Requests As List Of APPS.TRANSP.GLS.Bericht.dto.Request =  RequestBouwer.MaakRequests(LeveringData,##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze).Freight())
+	If $$$AssertEquals(Requests.Count(),4)	{
+		#dim Request1 As APPS.TRANSP.GLS.GLSv1.Bericht.dto.ParcelRequest = Requests.GetAt(1)
+
+		Do $$$AssertEquals(Request1.T8904,"001","VolgNr")
+		Do $$$AssertEquals(Request1.T8905,"004","Aantal")			
+		#dim Request2 As APPS.TRANSP.GLS.GLSv1.Bericht.dto.ParcelRequest = Requests.GetAt(4)
+
+		Do $$$AssertEquals(Request2.T8904,"004","VolgNr")
+		Do $$$AssertEquals(Request2.T8905,"004","Aantal")
+			
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/TRANSP/GLS/GLSv1/Bericht/impl/RequestDataBouwer.cls.xml
===================================================================
diff -u -r40505 -r40533
--- APPS/TRANSP/GLS/GLSv1/Bericht/impl/RequestDataBouwer.cls.xml	(.../RequestDataBouwer.cls.xml)	(revision 40505)
+++ APPS/TRANSP/GLS/GLSv1/Bericht/impl/RequestDataBouwer.cls.xml	(.../RequestDataBouwer.cls.xml)	(revision 40533)
@@ -155,6 +155,7 @@
 		If ($Length(VerpakkingEenheidType) && (VerpakkingEenheidType '= VerpakkingEenheid.Type)) && (VerzendWijze = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze).FreightCashOnDelivery()){
 			Set VerzendWijze = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze).Freight()
 		}		
+		Set:($Length(VerpakkingEenheid.Volgnummer) & (VerpakkingEenheid.Aantal=1)  & (LeveringInfo.VerpakkingEenheden.Count() = 1)) VolgNr = VerpakkingEenheid.Volgnummer
 		#dim i As %Integer
 		For i=1:1:VerpakkingEenheid.Aantal {
 			if VerpakkingEenheid.Type = ##class(DOM.TRANSP.enu.VerpakkingEenheidType).Langgoed() {
Index: APPS/TRANSP/dto/VerpakkingEenheid.cls.xml
===================================================================
diff -u -r29059 -r40533
--- APPS/TRANSP/dto/VerpakkingEenheid.cls.xml	(.../VerpakkingEenheid.cls.xml)	(revision 29059)
+++ APPS/TRANSP/dto/VerpakkingEenheid.cls.xml	(.../VerpakkingEenheid.cls.xml)	(revision 40533)
@@ -14,6 +14,10 @@
 <Required>1</Required>
 </Property>
 
+<Property name="Volgnummer">
+<Type>%Integer</Type>
+</Property>
+
 <Method name="Accept">
 <Abstract>1</Abstract>
 <FormalSpec>Visitor:APPS.TRANSP.VerpakkingEenheidVisitor</FormalSpec>