Index: APPS/AKP/AankoopControle/BLUM/impl/DespatchNaarCSBSOConverteerder.cls.xml
===================================================================
diff -u -r36343 -r37273
--- APPS/AKP/AankoopControle/BLUM/impl/DespatchNaarCSBSOConverteerder.cls.xml	(.../DespatchNaarCSBSOConverteerder.cls.xml)	(revision 36343)
+++ APPS/AKP/AankoopControle/BLUM/impl/DespatchNaarCSBSOConverteerder.cls.xml	(.../DespatchNaarCSBSOConverteerder.cls.xml)	(revision 37273)
@@ -24,8 +24,8 @@
 <FormalSpec>DELVRY03:APPS.AKP.AankoopControle.BLUM.XML.Transport.Despatch.DELVRY03</FormalSpec>
 <ReturnType>APPS.AKP.AankoopControle.BLUM.TXT.TransportEnFaktuur.CSBSO</ReturnType>
 <Implementation><![CDATA[
-	#dim CSBSO as APPS.AKP.AankoopControle.BLUM.TXT.TransportEnFaktuur.CSBSO = ##class(APPS.AKP.AankoopControle.BLUM.TXT.TransportEnFaktuur.CSBSO).%New()
-	#dim CSBSO11 as APPS.AKP.AankoopControle.BLUM.TXT.TransportEnFaktuur.CSBS011 = ##class(APPS.AKP.AankoopControle.BLUM.TXT.TransportEnFaktuur.CSBS011).%New()
+	#Dim CSBSO as APPS.AKP.AankoopControle.BLUM.TXT.TransportEnFaktuur.CSBSO = ##class(APPS.AKP.AankoopControle.BLUM.TXT.TransportEnFaktuur.CSBSO).%New()
+	#Dim CSBSO11 as APPS.AKP.AankoopControle.BLUM.TXT.TransportEnFaktuur.CSBS011 = ##class(APPS.AKP.AankoopControle.BLUM.TXT.TransportEnFaktuur.CSBS011).%New()
 	do ..VoegToeCSBSOHeader(CSBSO,DELVRY03)
 	do ..VoegToeCSBSO11(CSBSO11,DELVRY03)	
 	do CSBSO.CSBSO11List.Insert(CSBSO11)
@@ -61,7 +61,7 @@
 	set CSBSO11.DeliveryAddress = "Van Hoecke -XL"
 	set CSBSO11.TransportationMode = "L"	
 		
-	#dim CSBSO21 as APPS.AKP.AankoopControle.BLUM.TXT.TransportEnFaktuur.CSBS021 = ##Class(APPS.AKP.AankoopControle.BLUM.TXT.TransportEnFaktuur.CSBS021).%New()	
+	#Dim CSBSO21 as APPS.AKP.AankoopControle.BLUM.TXT.TransportEnFaktuur.CSBS021 = ##Class(APPS.AKP.AankoopControle.BLUM.TXT.TransportEnFaktuur.CSBS021).%New()	
 	do ..VoegToeCSBSO21(CSBSO21,DELVRY03)	
 	do CSBSO11.CSBSO21List.Insert(CSBSO21)
 ]]></Implementation>
@@ -71,26 +71,26 @@
 <FormalSpec>CSBSO21:APPS.AKP.AankoopControle.BLUM.TXT.TransportEnFaktuur.CSBS021,DELVRY03:APPS.AKP.AankoopControle.BLUM.XML.Transport.Despatch.DELVRY03</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	#dim counter as %Integer = 1
-	#dim varnaam as %String
+	#Dim counter as %Integer = 1
+	#Dim varnaam as %String
 	set CSBSO21.ShipmentID = DELVRY03.IDOC.E1EDL20.GetAt(1).VBELN
 	set CSBSO21.ShipmentDate = ..GeefShipmentDateYYMMDD(DELVRY03)
 	set CSBSO21.GrosWeight = DELVRY03.IDOC.E1EDL20.GetAt(1).BTGEW
 	set CSBSO21.NetWeight = 0
 	set CSBSO21.ShiptoCustomerNr = ..GeefShipToCustomerNr(DELVRY03)
 
-	#dim E1EDL20 as APPS.AKP.AankoopControle.BLUM.XML.Transport.Despatch.E1EDL20 = DELVRY03.IDOC.E1EDL20.GetAt(1)
+	#Dim E1EDL20 as APPS.AKP.AankoopControle.BLUM.XML.Transport.Despatch.E1EDL20 = DELVRY03.IDOC.E1EDL20.GetAt(1)
 	
-	#dim E1EDL24Iterator As TECH.ListIterator = ##Class(TECH.ListIterator).%New(E1EDL20.E1EDL24)
-	#dim E1EDL24 as APPS.AKP.AankoopControle.BLUM.XML.Transport.Despatch.E1EDL24	
+	#Dim E1EDL24Iterator As TECH.ListIterator = ##Class(TECH.ListIterator).%New(E1EDL20.E1EDL24)
+	#Dim E1EDL24 as APPS.AKP.AankoopControle.BLUM.XML.Transport.Despatch.E1EDL24	
 	While E1EDL24Iterator.HasNext(){
 		set E1EDL24 = E1EDL24Iterator.Next()
 		Set $Property(CSBSO21,"Colli"_ counter) = E1EDL24.MATKL
 		Set $Property(CSBSO21,"NrOfColli"_ counter) = +E1EDL24.LGMNG
 		set counter = counter + 1
 	}
 	
-	#dim CSBSO31 as APPS.AKP.AankoopControle.BLUM.TXT.TransportEnFaktuur.CSBS031 = ##Class(APPS.AKP.AankoopControle.BLUM.TXT.TransportEnFaktuur.CSBS031).%New()	
+	#Dim CSBSO31 as APPS.AKP.AankoopControle.BLUM.TXT.TransportEnFaktuur.CSBS031 = ##Class(APPS.AKP.AankoopControle.BLUM.TXT.TransportEnFaktuur.CSBS031).%New()	
 	do ..VoegToeCSBSO31(CSBSO31,DELVRY03)	
 	do CSBSO21.CSBSO31List.Insert(CSBSO31)
 ]]></Implementation>
@@ -110,17 +110,17 @@
 	set CSBSO31.DeliveryCustomerNr = ..GeefShipToCustomerNr(DELVRY03)
 	set CSBSO31.InvoicingCustomerNr = CSBSO31.DeliveryCustomerNr
 
-	#dim E1EDL37Iterator As TECH.ListIterator = ##Class(TECH.ListIterator).%New(DELVRY03.IDOC.E1EDL20.GetAt(1).E1EDL37)
-	#dim E1EDL37 as APPS.AKP.AankoopControle.BLUM.XML.Transport.Despatch.E1EDL37
+	#Dim E1EDL37Iterator As TECH.ListIterator = ##Class(TECH.ListIterator).%New(DELVRY03.IDOC.E1EDL20.GetAt(1).E1EDL37)
+	#Dim E1EDL37 as APPS.AKP.AankoopControle.BLUM.XML.Transport.Despatch.E1EDL37
 	While E1EDL37Iterator.HasNext(){
 		set E1EDL37 = E1EDL37Iterator.Next()
-		#dim E1EDL44Iterator As TECH.ListIterator = ##Class(TECH.ListIterator).%New(E1EDL37.E1EDL44)
-		#dim E1EDL44 as APPS.AKP.AankoopControle.BLUM.XML.Transport.Despatch.E1EDL44
+		#Dim E1EDL44Iterator As TECH.ListIterator = ##Class(TECH.ListIterator).%New(E1EDL37.E1EDL44)
+		#Dim E1EDL44 as APPS.AKP.AankoopControle.BLUM.XML.Transport.Despatch.E1EDL44
 		While E1EDL44Iterator.HasNext(){
 			set E1EDL44 = E1EDL44Iterator.Next()
-			#dim arraysleutel as %String = E1EDL44.KDMAT _ E1EDL44.VBELN _ E1EDL44.POSNR
+			#Dim arraysleutel as %String = E1EDL44.KDMAT _ E1EDL44.VBELN _ E1EDL44.POSNR
 			if 'CSBSO31.CSBSO41Array.IsDefined(arraysleutel){
-				#dim CSBSO41 as APPS.AKP.AankoopControle.BLUM.TXT.TransportEnFaktuur.CSBS041 = ##class(APPS.AKP.AankoopControle.BLUM.TXT.TransportEnFaktuur.CSBS041).%New()
+				#Dim CSBSO41 as APPS.AKP.AankoopControle.BLUM.TXT.TransportEnFaktuur.CSBS041 = ##class(APPS.AKP.AankoopControle.BLUM.TXT.TransportEnFaktuur.CSBS041).%New()
 				set CSBSO41.ABNr = ..GeefABNr(E1EDL44)
 				set CSBSO41.ABLijnNr = ..GeefABLnNr(E1EDL44)
 				set CSBSO41.OrderLineCompletion = "C"
@@ -177,9 +177,9 @@
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	#dim E1EDL46Iterator As TECH.ListIterator = ##Class(TECH.ListIterator).%New(E1EDL44.E1EDL46)
-	#dim E1EDL46 as APPS.AKP.AankoopControle.BLUM.XML.Transport.Despatch.E1EDL46
-	#dim orderlinecustomer as %String = ""
+	#Dim E1EDL46Iterator As TECH.ListIterator = ##Class(TECH.ListIterator).%New(E1EDL44.E1EDL46)
+	#Dim E1EDL46 as APPS.AKP.AankoopControle.BLUM.XML.Transport.Despatch.E1EDL46
+	#Dim orderlinecustomer as %String = ""
 	While (E1EDL46Iterator.HasNext()) && (orderlinecustomer =""){ 
 		set E1EDL46 = E1EDL46Iterator.Next()		
 		set:(E1EDL46.UII = "ZON" ) orderlinecustomer = E1EDL46.SERNR
@@ -193,9 +193,9 @@
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	#dim E1EDL46Iterator As TECH.ListIterator = ##Class(TECH.ListIterator).%New(E1EDL44.E1EDL46)
-	#dim E1EDL46 as APPS.AKP.AankoopControle.BLUM.XML.Transport.Despatch.E1EDL46
-	#dim nrofpackages as %Integer = 0
+	#Dim E1EDL46Iterator As TECH.ListIterator = ##Class(TECH.ListIterator).%New(E1EDL44.E1EDL46)
+	#Dim E1EDL46 as APPS.AKP.AankoopControle.BLUM.XML.Transport.Despatch.E1EDL46
+	#Dim nrofpackages as %Integer = 0
 	While (E1EDL46Iterator.HasNext()) && (nrofpackages = 0){ 
 		set E1EDL46 = E1EDL46Iterator.Next()		
 		set:(E1EDL46.UII = "ZNP" ) nrofpackages = E1EDL46.SERNR
@@ -209,9 +209,9 @@
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	#dim E1EDL46Iterator As TECH.ListIterator = ##Class(TECH.ListIterator).%New(E1EDL44.E1EDL46)
-	#dim E1EDL46 as APPS.AKP.AankoopControle.BLUM.XML.Transport.Despatch.E1EDL46
-	#dim pieces as %Integer = 0
+	#Dim E1EDL46Iterator As TECH.ListIterator = ##Class(TECH.ListIterator).%New(E1EDL44.E1EDL46)
+	#Dim E1EDL46 as APPS.AKP.AankoopControle.BLUM.XML.Transport.Despatch.E1EDL46
+	#Dim pieces as %Integer = 0
 	While (E1EDL46Iterator.HasNext()) && (pieces = 0){ 
 		set E1EDL46 = E1EDL46Iterator.Next()		
 		set:(E1EDL46.UII = "ZQP" ) pieces = E1EDL46.SERNR
@@ -225,9 +225,9 @@
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	#dim E1EDL46Iterator As TECH.ListIterator = ##Class(TECH.ListIterator).%New(E1EDL44.E1EDL46)
-	#dim E1EDL46 as APPS.AKP.AankoopControle.BLUM.XML.Transport.Despatch.E1EDL46
-	#dim abnr as %String = ""
+	#Dim E1EDL46Iterator As TECH.ListIterator = ##Class(TECH.ListIterator).%New(E1EDL44.E1EDL46)
+	#Dim E1EDL46 as APPS.AKP.AankoopControle.BLUM.XML.Transport.Despatch.E1EDL46
+	#Dim abnr as %String = ""
 	While (E1EDL46Iterator.HasNext()) && (abnr = ""){ 
 		set E1EDL46 = E1EDL46Iterator.Next()		
 		set:(E1EDL46.UII = "ZVN" ) abnr = E1EDL46.SERNR
@@ -241,9 +241,9 @@
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	#dim E1EDL46Iterator As TECH.ListIterator = ##Class(TECH.ListIterator).%New(E1EDL44.E1EDL46)
-	#dim E1EDL46 as APPS.AKP.AankoopControle.BLUM.XML.Transport.Despatch.E1EDL46
-	#dim ablnnr as %String = ""
+	#Dim E1EDL46Iterator As TECH.ListIterator = ##Class(TECH.ListIterator).%New(E1EDL44.E1EDL46)
+	#Dim E1EDL46 as APPS.AKP.AankoopControle.BLUM.XML.Transport.Despatch.E1EDL46
+	#Dim ablnnr as %String = ""
 	While (E1EDL46Iterator.HasNext()) && (ablnnr = ""){ 
 		set E1EDL46 = E1EDL46Iterator.Next()		
 		set:(E1EDL46.UII = "ZVP" ) ablnnr = E1EDL46.SERNR
@@ -257,12 +257,12 @@
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	#dim E1EDL20 as APPS.AKP.AankoopControle.BLUM.XML.Transport.Despatch.E1EDL20 = DELVRY03.IDOC.E1EDL20.GetAt(1)
+	#Dim E1EDL20 as APPS.AKP.AankoopControle.BLUM.XML.Transport.Despatch.E1EDL20 = DELVRY03.IDOC.E1EDL20.GetAt(1)
 	
-	#dim E1ADRM1Iterator As TECH.ListIterator = ##Class(TECH.ListIterator).%New(E1EDL20.E1ADRM1)
-	#dim E1ADRM1 as APPS.AKP.AankoopControle.BLUM.XML.Transport.Despatch.E1ADRM1
+	#Dim E1ADRM1Iterator As TECH.ListIterator = ##Class(TECH.ListIterator).%New(E1EDL20.E1ADRM1)
+	#Dim E1ADRM1 as APPS.AKP.AankoopControle.BLUM.XML.Transport.Despatch.E1ADRM1
 	
-	#dim CustomerNr as String = ""
+	#Dim CustomerNr as String = ""
 	
 	While E1ADRM1Iterator.HasNext(){
 		set E1ADRM1 = E1ADRM1Iterator.Next()
@@ -277,11 +277,11 @@
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	#dim E1EDL20Iterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(DELVRY03.IDOC.E1EDL20)
-	#dim E1EDL20 as APPS.AKP.AankoopControle.BLUM.XML.Transport.Despatch.E1EDL20
-	#dim E1EDT13Iterator As TECH.ListIterator
-	#dim E1EDT13 as APPS.AKP.AankoopControle.BLUM.XML.Transport.Despatch.E1EDT13
-	#dim Shipmentdate as %String = ""
+	#Dim E1EDL20Iterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(DELVRY03.IDOC.E1EDL20)
+	#Dim E1EDL20 as APPS.AKP.AankoopControle.BLUM.XML.Transport.Despatch.E1EDL20
+	#Dim E1EDT13Iterator As TECH.ListIterator
+	#Dim E1EDT13 as APPS.AKP.AankoopControle.BLUM.XML.Transport.Despatch.E1EDT13
+	#Dim Shipmentdate as %String = ""
 	
 	While E1EDL20Iterator.HasNext(){
 		set E1EDL20 = E1EDL20Iterator.Next()
@@ -300,11 +300,11 @@
 <Private>1</Private>
 <Implementation><![CDATA[
 	
-	#dim E1EDL20Iterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(DELVRY03.IDOC.E1EDL20)
-	#dim E1EDL20 as APPS.AKP.AankoopControle.BLUM.XML.Transport.Despatch.E1EDL20
+	#Dim E1EDL20Iterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(DELVRY03.IDOC.E1EDL20)
+	#Dim E1EDL20 as APPS.AKP.AankoopControle.BLUM.XML.Transport.Despatch.E1EDL20
 	
-	#dim E1EDT13Iterator As TECH.ListIterator
-	#dim E1EDT13 as APPS.AKP.AankoopControle.BLUM.XML.Transport.Despatch.E1EDT13
+	#Dim E1EDT13Iterator As TECH.ListIterator
+	#Dim E1EDT13 as APPS.AKP.AankoopControle.BLUM.XML.Transport.Despatch.E1EDT13
 	
 	While E1EDL20Iterator.HasNext(){
 		set E1EDL20 = E1EDL20Iterator.Next()
@@ -316,7 +316,7 @@
 	}
 	
 	/* ofwel 
-	#dim ISDD as %String = DELVRY03.IDOC.E1EDL20.GetAt(1).E1EDT13.GetAt(1).ISDD
+	#Dim ISDD as %String = DELVRY03.IDOC.E1EDL20.GetAt(1).E1EDT13.GetAt(1).ISDD
 	set CSBSO.CSBSOHeader.MIOTCR = $EXTRACT(ISDD,7,8) _"-" _$EXTRACT(ISDD,5,6) _"-" _$EXTRACT(ISDD,3,4)
 	wegens maar één occurence of E1EDL20 en E1EDT13 in een bestand.
 	*/