Index: AX/Uitgaand/MAG/dto/TransportOutDrop.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/MAG/dto/TransportOutDrop.cls.xml	(revision 0)
+++ AX/Uitgaand/MAG/dto/TransportOutDrop.cls.xml	(revision 54968)
@@ -0,0 +1,418 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.MAG.dto.TransportOutDrop">
+<IncludeCode>Prod.Product,BL.Derde.LevSpecifiek</IncludeCode>
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="PRNr">
+<Type>%String</Type>
+<Transient>1</Transient>
+</Property>
+
+<Property name="Product">
+<Type>AX.Uitgaand.PM.Product.impl.Product</Type>
+<Transient>1</Transient>
+</Property>
+
+<Property name="ShippingDatum">
+<Type>%String</Type>
+</Property>
+
+<Property name="ShipmentNumber">
+<Type>%String</Type>
+</Property>
+
+<Property name="ShipmentType">
+<Type>%String</Type>
+</Property>
+
+<Property name="Transporteur">
+<Type>%String</Type>
+</Property>
+
+<Property name="RouteNr">
+<Type>%String</Type>
+</Property>
+
+<Property name="DCCode">
+<Type>%String</Type>
+</Property>
+
+<Property name="Klant">
+<Type>%String</Type>
+</Property>
+
+<Property name="Gemeente">
+<Type>%String</Type>
+</Property>
+
+<Property name="Gewicht">
+<Type>%String</Type>
+</Property>
+
+<Property name="Land">
+<Type>%String</Type>
+</Property>
+
+<Property name="ShipToCode">
+<Type>%String</Type>
+</Property>
+
+<Property name="LaadlijstNummer">
+<Type>%String</Type>
+</Property>
+
+<Property name="PicklijstNummer">
+<Type>%String</Type>
+</Property>
+
+<Property name="PickDatum">
+<Type>%String</Type>
+</Property>
+
+<Property name="Picklocatie">
+<Type>%String</Type>
+</Property>
+
+<Property name="OrderType1">
+<Type>%String</Type>
+</Property>
+
+<Property name="OrdernummerKlant">
+<Type>%String</Type>
+</Property>
+
+<Property name="OrderDatum">
+<Type>%String</Type>
+</Property>
+
+<Property name="KitComponentNvt">
+<Type>%String</Type>
+</Property>
+
+<Property name="ItemId">
+<Type>%String</Type>
+</Property>
+
+<Property name="Lades">
+<Type>%String</Type>
+</Property>
+
+<Property name="Productielijn">
+<Type>%String</Type>
+</Property>
+
+<Property name="Omschrijving">
+<Type>%String</Type>
+</Property>
+
+<Property name="UMShipped">
+<Type>%String</Type>
+</Property>
+
+<Property name="LineType">
+<Type>%String</Type>
+</Property>
+
+<Property name="DelType1">
+<Type>%String</Type>
+</Property>
+
+<Property name="DelType2">
+<Type>%String</Type>
+</Property>
+
+<Property name="DelRouteNr">
+<Type>%String</Type>
+</Property>
+
+<Property name="DelNoteNr">
+<Type>%String</Type>
+</Property>
+
+<Property name="DelNoteGroupNr">
+<Type>%String</Type>
+</Property>
+
+<Property name="UM">
+<Type>%String</Type>
+</Property>
+
+<Property name="LengteUM">
+<Type>%String</Type>
+</Property>
+
+<Property name="BreedteUM">
+<Type>%String</Type>
+</Property>
+
+<Property name="HoogteUM">
+<Type>%String</Type>
+</Property>
+
+<Property name="VerzendWijze">
+<Type>%String</Type>
+</Property>
+
+<Property name="VerzendWijzeOrig">
+<Type>%String</Type>
+</Property>
+
+<Property name="ExportLabels">
+<Type>%String</Type>
+<MultiDimensional>1</MultiDimensional>
+<Private>1</Private>
+<Transient>1</Transient>
+</Property>
+
+<Property name="OpnemenInExport">
+<Type>%Boolean</Type>
+<Transient>1</Transient>
+</Property>
+
+<Property name="AantalOrderlijnen">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="AantalCollies">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="AantalPalletEur">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="AantalPalletHalf">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="AantalPalletBig">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="AantalLanggoed">
+<Type>%Integer</Type>
+</Property>
+
+<Method name="ExportDrop">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	Set Dev=$$OPEN^vhDEV("\\notes01\shared\p v\","TransportDrop "_$TR($ZDT($H),"/:")_".txt","W","T")
+	Use Dev
+	Write "ShipDate	ShipNbr	DelNoteNbr	ShipToCode	AantalLijnen	UMShipped	DelWeight	DCCode	TransportFirm	DelRouteNr	DelType1	NbrCollie	NbrPalletEur	NbrPalletHalf	NbrPalletBig	NbrLanggoed	Cost",!
+	Set ID=""
+	For  Set ID=$O(%Drop(ID)) Quit:ID=""  Do
+	. Do %Drop(ID).Write()
+	. Write !
+	Do CLOSE^vhDEV(Dev)
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeAanDrop">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>pxLijn:AX.Uitgaand.MAG.dto.TransportOutLijn</FormalSpec>
+<Implementation><![CDATA[
+	Set ID=pxLijn.LaadlijstNummer
+	If $D(%Drop(ID))
+	{
+		Set pxDrop=%Drop(ID)
+	}
+	Else
+	{
+		Set pxDrop=..%New()
+		Set %Drop(ID)=pxDrop
+		Set pxDrop.ShippingDatum=pxLijn.ShippingDatum
+		Set pxDrop.ShipmentNumber=pxLijn.ShipmentNumber
+		Set pxDrop.LaadlijstNummer=pxLijn.LaadlijstNummer
+		Set pxDrop.ShipToCode=pxLijn.ShipToCode
+		Set pxDrop.DCCode=pxLijn.DCCode
+		Set pxDrop.Transporteur=pxLijn.Transporteur
+		Set pxDrop.DelRouteNr=pxLijn.DelRouteNr
+		Set pxDrop.DelType1=pxLijn.DelType1
+		Do pxDrop.AddCollie()
+	}
+	Set pxDrop.AantalOrderlijnen=pxDrop.AantalOrderlijnen+1
+	Set pxDrop.UMShipped=pxDrop.UMShipped+pxLijn.UMShipped
+	Set pxDrop.Gewicht=pxDrop.Gewicht+pxLijn.Gewicht
+]]></Implementation>
+</Method>
+
+<Method name="Write">
+<Implementation><![CDATA[
+	Write $$$ExcelDat(..ShippingDatum),*9,..ShipmentNumber,*9,..LaadlijstNummer,*9,..ShipToCode,*9,..AantalOrderlijnen,*9, ..UMShipped,*9,$$$ExcelNum(..Gewicht)
+	Write *9,..DCCode, *9,..Transporteur,*9,..DelRouteNr,*9,..DelType1
+	Write *9,$S(..AantalCollies:..AantalCollies,1:"")
+	Write *9,$S(..AantalPalletEur:..AantalPalletEur,1:"")
+	Write *9,$S(..AantalPalletHalf:..AantalPalletHalf,1:"")
+	Write *9,$S(..AantalPalletBig:..AantalPalletBig,1:"")
+	Write *9,$S(..AantalLanggoed:..AantalLanggoed,1:"")
+	Write *9,$$$ExcelNum($G(^PVGLSKost(..LaadlijstNummer)))
+]]></Implementation>
+</Method>
+
+<Method name="AddCollie">
+<Implementation><![CDATA[
+	Set TranspNr=..ShipmentNumber
+	Set MasterBonNr=..LaadlijstNummer
+	If TranspNr'="",MasterBonNr'="",$D(^TRANSP("D",TranspNr,"D",MasterBonNr))
+	{
+		Set ..AantalCollies=+$G(^TRANSP("D",TranspNr,"D",MasterBonNr,"Q","C"))
+		Set ..AantalPalletEur=+$G(^TRANSP("D",TranspNr,"D",MasterBonNr,"Q","E"))
+		Set ..AantalPalletHalf=+$G(^TRANSP("D",TranspNr,"D",MasterBonNr,"Q","P"))
+		Set ..AantalPalletBig=+$G(^TRANSP("D",TranspNr,"D",MasterBonNr,"Q","B"))
+		Set ..AantalLanggoed=+$G(^TRANSP("D",TranspNr,"D",MasterBonNr,"Q","L"))
+	}
+]]></Implementation>
+</Method>
+
+<Method name="DefineLabels">
+<Implementation><![CDATA[
+ Do ..SetLabel("ShippingDatum","I10","DATE")
+ Do ..SetLabel("ShipmentNumber","I11","TXT")
+ Do ..SetLabel("LaadlijstNummer","I12","TXT")
+ Do ..SetLabel("ShipToCode","I13","TXT")
+
+ Do ..SetLabel("ItemId","I21","TXT")
+ Do ..SetLabel("Omschrijving","I22","TXT")
+ Do ..SetLabel("UMShipped","I23",)
+ Do ..SetLabel("Gewicht","I24","")
+
+ Do ..SetLabel("DCCode","I31","TXT")
+ 
+ Do ..SetLabel("PicklijstNummer","I41","TXT")
+ Do ..SetLabel("PickDatum","I42","DATE")
+ Do ..SetLabel("OrdernummerKlant","I44","TXT")
+ Do ..SetLabel("OrderDatum","I45","DATE")
+ Do ..SetLabel("Klant","I46","TXT")
+
+ Do ..SetLabel("Transporteur","I51","TXT")
+ Do ..SetLabel("DelRouteNr","I52","TXT")
+ Do ..SetLabel("DelType1","I53","TXT")
+ ;Do ..SetLabel("DelType2","","TXT")
+
+ Do ..SetLabel("LineType","I69")
+
+ ;Do ..SetLabel("VerzendWijze","K402","TXT")
+ ;Do ..SetLabel("Picklocatie","K408","TXT")
+ ;Do ..SetLabel("KitComponentNvt","K410","TXT")
+ ;Do ..SetLabel("LengteUM","K416")
+ ;Do ..SetLabel("BreedteUM","K417")
+ ;Do ..SetLabel("HoogteUM","K418")
+ ;Do ..SetLabel("TotaalVerstuurdUM","K419")
+ ;Do ..SetLabel("PalletSscc","K424","TXT")
+ ;Do ..SetLabel("TypeDrager","K425","TXT")
+ ;Do ..SetLabel("Stroom","K428","TXT")
+]]></Implementation>
+</Method>
+
+<Method name="SetLabel">
+<FormalSpec>Naam:%String,Code:%String,DataType:%String,Qty:%Integer</FormalSpec>
+<Implementation><![CDATA[	Set ..ExportLabels(Code,Naam)=$LB($G(DataType),$G(Qty))
+]]></Implementation>
+</Method>
+
+<Method name="WriteHeader">
+<FormalSpec><![CDATA[SubVolgNr:%Integer="",&Maanden:%String]]></FormalSpec>
+<Implementation><![CDATA[
+	Set Key1=$O(..ExportLabels(""))
+	While Key1'=""
+	{
+		Set Key2=$O(..ExportLabels(Key1,""))
+		While Key2'=""
+		{
+			Set ArrayType=$LG(..ExportLabels(Key1,Key2))
+			If "TXT,DATE"[ArrayType
+			{
+				Write Key1,$S(SubVolgNr:"."_SubVolgNr,1:""),":",Key2,*9	
+			}
+			Elseif "DataType"=ArrayType
+			{
+				For I=$LG(..ExportLabels(Key1,Key2),2):-1:1
+				{
+					Write Key1,".",I,":",..GeefMaand(I,.Maanden,2),":",Key2,*9
+				}
+				
+			}
+			Else  ; Object
+			{
+				For I=$LG(..ExportLabels(Key1,Key2),2):-1:1
+				{
+					Set obj= $zobjclassmethod(ArrayType,"%New")
+					Do obj.WriteHeader(I_":"_..GeefMaand(I,.Maanden))
+				}
+			}
+			Set Key2=$O(..ExportLabels(Key1,Key2))
+		}
+		Set Key1=$O(..ExportLabels(Key1))
+	}
+]]></Implementation>
+</Method>
+
+<Method name="GeefMaand">
+<FormalSpec><![CDATA[I:%Integer,&Maanden:%Integer,NeemPiece:%Integer]]></FormalSpec>
+<Implementation><![CDATA[
+	Set Maand=$O(Maanden(""))
+	While Maand'=""
+	{
+		If $P(Maanden(Maand),"\")=I	Set GevondenMaand=$$EXTDATE^vhLib.DataTypes($S($G(NeemPiece):$P(Maanden(Maand),"\",NeemPiece),1:Maand),"DM")
+		Set Maand=$O(Maanden(Maand))
+	}
+	Quit $G(GevondenMaand)
+]]></Implementation>
+</Method>
+
+<Method name="WriteData">
+<Implementation><![CDATA[
+	Set Key1=$O(..ExportLabels(""))
+	While Key1'=""
+	{
+		Set Key2=$O(..ExportLabels(Key1,""))
+		While Key2'=""
+		{
+			Set ArrayType=$LG(..ExportLabels(Key1,Key2))
+			If ArrayType=""
+			{
+				Write $$$ExcelNum($zobjProperty(%this,Key2)),*9
+			}
+			ElseIf ArrayType="TXT"
+			{
+				Write $zobjProperty(%this,Key2),*9
+			}
+			ElseIf ArrayType="DATE"
+			{
+				Write $$$ExcelDat($zobjProperty(%this,Key2)),*9
+			}
+			Elseif "DataType"=ArrayType
+			{
+				#dim Array as %ArrayOfDataTypes =($zobjProperty(%this,Key2))
+				Set Element=Array.GetNext(.Key) 
+				Set Count=0
+				While Key'=""
+				{
+					Set Count=Count+1
+					Write Element,*9
+					Set Element=Array.GetNext(.Key) 
+				}
+			}
+			Else  ; object
+			{
+				#dim ArrayObj as %ArrayOfObjects =($zobjProperty(%this,Key2))
+				Set Element=ArrayObj.GetNext(.Key) 
+				Set Count=0
+				While Key'=""
+				{
+					Set Count=Count+1
+					Do Element.WriteData()
+					Set Element=ArrayObj.GetNext(.Key) 
+				}
+			}
+			Set Key2=$O(..ExportLabels(Key1,Key2))
+		}
+		Set Key1=$O(..ExportLabels(Key1))
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AX/Uitgaand/MAG/dto/Artikel.cls.xml
===================================================================
diff -u -r53245 -r54968
--- AX/Uitgaand/MAG/dto/Artikel.cls.xml	(.../Artikel.cls.xml)	(revision 53245)
+++ AX/Uitgaand/MAG/dto/Artikel.cls.xml	(.../Artikel.cls.xml)	(revision 54968)
@@ -278,7 +278,7 @@
 		Do ..FirstDayOfStock()
 		Do ..ECAssortiment()
 		Do ..Sourcing()
-		Do ..Locatie()
+		;Do ..Locatie()
 ]]></Implementation>
 </Method>
 
@@ -576,15 +576,15 @@
  Do ..SetLabel("SourcingVH", 140)
  Do ..SetLabel("SourcingHLX", 141)
  Do ..SetLabel("AssortimentEC", 160,"TXT")
- Do ..SetLabel("FirstDateOfStock", 169,"DATE")
- Do ..SetLabel("ABCPicking", 170)
- Do ..SetLabel("BeginStock", 200, "DataType",13)
- Do ..SetLabel("StockVH", 201.1)
- Do ..SetLabel("StockHLX", 201.2)
- Do ..SetLabel("DefaultMagazijn", 202,"TXT")
- Do ..SetLabel("TransLoc", 224,"TXT")
- Do ..SetLabel("AantalProducten", 998)
- Do ..SetLabel("arTrans", 999, "AX.Uitgaand.MAG.dto.ArtikelTransactiesPerMaand",12)
+ ;Do ..SetLabel("FirstDateOfStock", 169,"DATE")
+ ;Do ..SetLabel("ABCPicking", 170)
+ ; Do ..SetLabel("BeginStock", 200, "DataType",13)
+ ;Do ..SetLabel("StockVH", 201.1)
+ ;Do ..SetLabel("StockHLX", 201.2)
+ ;Do ..SetLabel("DefaultMagazijn", 202,"TXT")
+ ;Do ..SetLabel("TransLoc", 224,"TXT")
+ ;Do ..SetLabel("AantalProducten", 998)
+ ;Do ..SetLabel("arTrans", 999, "AX.Uitgaand.MAG.dto.ArtikelTransactiesPerMaand",12)
 ]]></Implementation>
 </Method>
 
Index: AX/Uitgaand/MAG/dto/TransportOutTrip.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/MAG/dto/TransportOutTrip.cls.xml	(revision 0)
+++ AX/Uitgaand/MAG/dto/TransportOutTrip.cls.xml	(revision 54968)
@@ -0,0 +1,420 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.MAG.dto.TransportOutTrip">
+<IncludeCode>Prod.Product,BL.Derde.LevSpecifiek</IncludeCode>
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="PRNr">
+<Type>%String</Type>
+<Transient>1</Transient>
+</Property>
+
+<Property name="Product">
+<Type>AX.Uitgaand.PM.Product.impl.Product</Type>
+<Transient>1</Transient>
+</Property>
+
+<Property name="ShippingDatum">
+<Type>%String</Type>
+</Property>
+
+<Property name="ShipmentNumber">
+<Type>%String</Type>
+</Property>
+
+<Property name="ShipmentType">
+<Type>%String</Type>
+</Property>
+
+<Property name="Transporteur">
+<Type>%String</Type>
+</Property>
+
+<Property name="RouteNr">
+<Type>%String</Type>
+</Property>
+
+<Property name="DCCode">
+<Type>%String</Type>
+</Property>
+
+<Property name="Klant">
+<Type>%String</Type>
+</Property>
+
+<Property name="Gemeente">
+<Type>%String</Type>
+</Property>
+
+<Property name="Gewicht">
+<Type>%String</Type>
+</Property>
+
+<Property name="Land">
+<Type>%String</Type>
+</Property>
+
+<Property name="AantalShipToCode">
+<Type>%String</Type>
+</Property>
+
+<Property name="LaadlijstNummer">
+<Type>%String</Type>
+</Property>
+
+<Property name="PicklijstNummer">
+<Type>%String</Type>
+</Property>
+
+<Property name="PickDatum">
+<Type>%String</Type>
+</Property>
+
+<Property name="Picklocatie">
+<Type>%String</Type>
+</Property>
+
+<Property name="OrderType1">
+<Type>%String</Type>
+</Property>
+
+<Property name="OrdernummerKlant">
+<Type>%String</Type>
+</Property>
+
+<Property name="OrderDatum">
+<Type>%String</Type>
+</Property>
+
+<Property name="KitComponentNvt">
+<Type>%String</Type>
+</Property>
+
+<Property name="ItemId">
+<Type>%String</Type>
+</Property>
+
+<Property name="Lades">
+<Type>%String</Type>
+</Property>
+
+<Property name="Productielijn">
+<Type>%String</Type>
+</Property>
+
+<Property name="Omschrijving">
+<Type>%String</Type>
+</Property>
+
+<Property name="UMShipped">
+<Type>%String</Type>
+</Property>
+
+<Property name="LineType">
+<Type>%String</Type>
+</Property>
+
+<Property name="DelType1">
+<Type>%String</Type>
+</Property>
+
+<Property name="DelType2">
+<Type>%String</Type>
+</Property>
+
+<Property name="DelRouteNr">
+<Type>%String</Type>
+</Property>
+
+<Property name="DelNoteNr">
+<Type>%String</Type>
+</Property>
+
+<Property name="DelNoteGroupNr">
+<Type>%String</Type>
+</Property>
+
+<Property name="UM">
+<Type>%String</Type>
+</Property>
+
+<Property name="LengteUM">
+<Type>%String</Type>
+</Property>
+
+<Property name="BreedteUM">
+<Type>%String</Type>
+</Property>
+
+<Property name="HoogteUM">
+<Type>%String</Type>
+</Property>
+
+<Property name="VerzendWijze">
+<Type>%String</Type>
+</Property>
+
+<Property name="VerzendWijzeOrig">
+<Type>%String</Type>
+</Property>
+
+<Property name="ExportLabels">
+<Type>%String</Type>
+<MultiDimensional>1</MultiDimensional>
+<Private>1</Private>
+<Transient>1</Transient>
+</Property>
+
+<Property name="OpnemenInExport">
+<Type>%Boolean</Type>
+<Transient>1</Transient>
+</Property>
+
+<Property name="AantalOrderlijnen">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="AantalCollies">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="AantalPalletEur">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="AantalPalletHalf">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="AantalPalletBig">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="AantalLanggoed">
+<Type>%Integer</Type>
+</Property>
+
+<Method name="ExportTrip">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	Set Dev=$$OPEN^vhDEV("\\notes01\shared\p v\","TransportTrip "_$TR($ZDT($H),"/:")_".txt","W","T")
+	Use Dev
+	Write "ShipDate	ShipNbr	AantalShipToCode	AantalLijnen	UMShipped	DelWeight	DCCode	TransportFirm	DelType1	NbrCollie	NbrPalletEur	NbrPalletHalf	NbrPalletBig	NbrLanggoed	Cost",!
+	Set ID=""
+	For  Set ID=$O(%Trip(ID)) Quit:ID=""  Do
+	. Do %Trip(ID).Write()
+	. Write !
+	Do CLOSE^vhDEV(Dev)
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeAanTrip">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>pxLijn:AX.Uitgaand.MAG.dto.TransportOutLijn</FormalSpec>
+<Implementation><![CDATA[
+	Set ID=pxLijn.ShipmentNumber
+	If $D(%Trip(ID))
+	{
+		Set pxTrip=%Trip(ID)
+	}
+	Else
+	{
+		Set pxTrip=..%New()
+		Set %Trip(ID)=pxTrip
+		Set pxTrip.ShippingDatum=pxLijn.ShippingDatum
+		Set pxTrip.ShipmentNumber=pxLijn.ShipmentNumber
+		Set pxTrip.DCCode=pxLijn.DCCode
+		Set pxTrip.Transporteur=pxLijn.Transporteur
+		;Set pxTrip.DelRouteNr=pxLijn.DelRouteNr
+		Set pxTrip.DelType1=pxLijn.DelType1
+		Do pxTrip.AddCollie()
+	}
+	If '$D(%TripLaadLijst(pxLijn.ShipmentNumber,pxLijn.LaadlijstNummer))
+	{
+		 Set pxTrip.AantalShipToCode=pxTrip.AantalShipToCode+1
+		 Set %TripLaadLijst(pxLijn.ShipmentNumber,pxLijn.LaadlijstNummer)=""
+	}
+	Set pxTrip.AantalOrderlijnen=pxTrip.AantalOrderlijnen+1
+	Set pxTrip.UMShipped=pxTrip.UMShipped+pxLijn.UMShipped
+	Set pxTrip.Gewicht=pxTrip.Gewicht+pxLijn.Gewicht
+]]></Implementation>
+</Method>
+
+<Method name="Write">
+<Implementation><![CDATA[
+	Write $$$ExcelDat(..ShippingDatum),*9,..ShipmentNumber,*9,..AantalShipToCode,*9,..AantalOrderlijnen,*9, ..UMShipped,*9,$$$ExcelNum(..Gewicht)
+	Write *9,..DCCode, *9,..Transporteur,*9,..DelType1
+	Write *9,$S(..AantalCollies:..AantalCollies,1:"")
+	Write *9,$S(..AantalPalletEur:..AantalPalletEur,1:"")
+	Write *9,$S(..AantalPalletHalf:..AantalPalletHalf,1:"")
+	Write *9,$S(..AantalPalletBig:..AantalPalletBig,1:"")
+	Write *9,$S(..AantalLanggoed:..AantalLanggoed,1:"")
+]]></Implementation>
+</Method>
+
+<Method name="AddCollie">
+<Implementation><![CDATA[
+	Set TranspNr=..ShipmentNumber
+	Set MasterBonNr=..LaadlijstNummer
+	If TranspNr'="",MasterBonNr'="",$D(^TRANSP("D",TranspNr,"D",MasterBonNr))
+	{
+		Set ..AantalCollies=+$G(^TRANSP("D",TranspNr,"D",MasterBonNr,"Q","C"))
+		Set ..AantalPalletEur=+$G(^TRANSP("D",TranspNr,"D",MasterBonNr,"Q","E"))
+		Set ..AantalPalletHalf=+$G(^TRANSP("D",TranspNr,"D",MasterBonNr,"Q","P"))
+		Set ..AantalPalletBig=+$G(^TRANSP("D",TranspNr,"D",MasterBonNr,"Q","B"))
+		Set ..AantalLanggoed=+$G(^TRANSP("D",TranspNr,"D",MasterBonNr,"Q","L"))
+	}
+]]></Implementation>
+</Method>
+
+<Method name="DefineLabels">
+<Implementation><![CDATA[
+ Do ..SetLabel("ShippingDatum","I10","DATE")
+ Do ..SetLabel("ShipmentNumber","I11","TXT")
+ Do ..SetLabel("LaadlijstNummer","I12","TXT")
+ Do ..SetLabel("ShipToCode","I13","TXT")
+
+ Do ..SetLabel("ItemId","I21","TXT")
+ Do ..SetLabel("Omschrijving","I22","TXT")
+ Do ..SetLabel("UMShipped","I23",)
+ Do ..SetLabel("Gewicht","I24","")
+
+ Do ..SetLabel("DCCode","I31","TXT")
+ 
+ Do ..SetLabel("PicklijstNummer","I41","TXT")
+ Do ..SetLabel("PickDatum","I42","DATE")
+ Do ..SetLabel("OrdernummerKlant","I44","TXT")
+ Do ..SetLabel("OrderDatum","I45","DATE")
+ Do ..SetLabel("Klant","I46","TXT")
+
+ Do ..SetLabel("Transporteur","I51","TXT")
+ Do ..SetLabel("DelRouteNr","I52","TXT")
+ Do ..SetLabel("DelType1","I53","TXT")
+ ;Do ..SetLabel("DelType2","","TXT")
+
+ Do ..SetLabel("LineType","I69")
+
+ ;Do ..SetLabel("VerzendWijze","K402","TXT")
+ ;Do ..SetLabel("Picklocatie","K408","TXT")
+ ;Do ..SetLabel("KitComponentNvt","K410","TXT")
+ ;Do ..SetLabel("LengteUM","K416")
+ ;Do ..SetLabel("BreedteUM","K417")
+ ;Do ..SetLabel("HoogteUM","K418")
+ ;Do ..SetLabel("TotaalVerstuurdUM","K419")
+ ;Do ..SetLabel("PalletSscc","K424","TXT")
+ ;Do ..SetLabel("TypeDrager","K425","TXT")
+ ;Do ..SetLabel("Stroom","K428","TXT")
+]]></Implementation>
+</Method>
+
+<Method name="SetLabel">
+<FormalSpec>Naam:%String,Code:%String,DataType:%String,Qty:%Integer</FormalSpec>
+<Implementation><![CDATA[	Set ..ExportLabels(Code,Naam)=$LB($G(DataType),$G(Qty))
+]]></Implementation>
+</Method>
+
+<Method name="WriteHeader">
+<FormalSpec><![CDATA[SubVolgNr:%Integer="",&Maanden:%String]]></FormalSpec>
+<Implementation><![CDATA[
+	Set Key1=$O(..ExportLabels(""))
+	While Key1'=""
+	{
+		Set Key2=$O(..ExportLabels(Key1,""))
+		While Key2'=""
+		{
+			Set ArrayType=$LG(..ExportLabels(Key1,Key2))
+			If "TXT,DATE"[ArrayType
+			{
+				Write Key1,$S(SubVolgNr:"."_SubVolgNr,1:""),":",Key2,*9	
+			}
+			Elseif "DataType"=ArrayType
+			{
+				For I=$LG(..ExportLabels(Key1,Key2),2):-1:1
+				{
+					Write Key1,".",I,":",..GeefMaand(I,.Maanden,2),":",Key2,*9
+				}
+				
+			}
+			Else  ; Object
+			{
+				For I=$LG(..ExportLabels(Key1,Key2),2):-1:1
+				{
+					Set obj= $zobjclassmethod(ArrayType,"%New")
+					Do obj.WriteHeader(I_":"_..GeefMaand(I,.Maanden))
+				}
+			}
+			Set Key2=$O(..ExportLabels(Key1,Key2))
+		}
+		Set Key1=$O(..ExportLabels(Key1))
+	}
+]]></Implementation>
+</Method>
+
+<Method name="GeefMaand">
+<FormalSpec><![CDATA[I:%Integer,&Maanden:%Integer,NeemPiece:%Integer]]></FormalSpec>
+<Implementation><![CDATA[
+	Set Maand=$O(Maanden(""))
+	While Maand'=""
+	{
+		If $P(Maanden(Maand),"\")=I	Set GevondenMaand=$$EXTDATE^vhLib.DataTypes($S($G(NeemPiece):$P(Maanden(Maand),"\",NeemPiece),1:Maand),"DM")
+		Set Maand=$O(Maanden(Maand))
+	}
+	Quit $G(GevondenMaand)
+]]></Implementation>
+</Method>
+
+<Method name="WriteData">
+<Implementation><![CDATA[
+	Set Key1=$O(..ExportLabels(""))
+	While Key1'=""
+	{
+		Set Key2=$O(..ExportLabels(Key1,""))
+		While Key2'=""
+		{
+			Set ArrayType=$LG(..ExportLabels(Key1,Key2))
+			If ArrayType=""
+			{
+				Write $$$ExcelNum($zobjProperty(%this,Key2)),*9
+			}
+			ElseIf ArrayType="TXT"
+			{
+				Write $zobjProperty(%this,Key2),*9
+			}
+			ElseIf ArrayType="DATE"
+			{
+				Write $$$ExcelDat($zobjProperty(%this,Key2)),*9
+			}
+			Elseif "DataType"=ArrayType
+			{
+				#dim Array as %ArrayOfDataTypes =($zobjProperty(%this,Key2))
+				Set Element=Array.GetNext(.Key) 
+				Set Count=0
+				While Key'=""
+				{
+					Set Count=Count+1
+					Write Element,*9
+					Set Element=Array.GetNext(.Key) 
+				}
+			}
+			Else  ; object
+			{
+				#dim ArrayObj as %ArrayOfObjects =($zobjProperty(%this,Key2))
+				Set Element=ArrayObj.GetNext(.Key) 
+				Set Count=0
+				While Key'=""
+				{
+					Set Count=Count+1
+					Do Element.WriteData()
+					Set Element=ArrayObj.GetNext(.Key) 
+				}
+			}
+			Set Key2=$O(..ExportLabels(Key1,Key2))
+		}
+		Set Key1=$O(..ExportLabels(Key1))
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AX/Uitgaand/MAG/dto/TransportOutLijn.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/MAG/dto/TransportOutLijn.cls.xml	(revision 0)
+++ AX/Uitgaand/MAG/dto/TransportOutLijn.cls.xml	(revision 54968)
@@ -0,0 +1,570 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.MAG.dto.TransportOutLijn">
+<IncludeCode>Prod.Product,BL.Derde.LevSpecifiek</IncludeCode>
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="PRNr">
+<Type>%String</Type>
+<Transient>1</Transient>
+</Property>
+
+<Property name="Product">
+<Type>AX.Uitgaand.PM.Product.impl.Product</Type>
+<Transient>1</Transient>
+</Property>
+
+<Property name="ShippingDatum">
+<Type>%String</Type>
+</Property>
+
+<Property name="ShipmentNumber">
+<Type>%String</Type>
+</Property>
+
+<Property name="ShipmentType">
+<Type>%String</Type>
+</Property>
+
+<Property name="Transporteur">
+<Type>%String</Type>
+</Property>
+
+<Property name="RouteNr">
+<Type>%String</Type>
+</Property>
+
+<Property name="DCCode">
+<Type>%String</Type>
+</Property>
+
+<Property name="Klant">
+<Type>%String</Type>
+</Property>
+
+<Property name="Gemeente">
+<Type>%String</Type>
+</Property>
+
+<Property name="Gewicht">
+<Type>%String</Type>
+</Property>
+
+<Property name="Land">
+<Type>%String</Type>
+</Property>
+
+<Property name="ShipToCode">
+<Type>%String</Type>
+</Property>
+
+<Property name="LaadlijstNummer">
+<Type>%String</Type>
+</Property>
+
+<Property name="PicklijstNummer">
+<Type>%String</Type>
+</Property>
+
+<Property name="PickDatum">
+<Type>%String</Type>
+</Property>
+
+<Property name="Picklocatie">
+<Type>%String</Type>
+</Property>
+
+<Property name="OrderType1">
+<Type>%String</Type>
+</Property>
+
+<Property name="OrdernummerKlant">
+<Type>%String</Type>
+</Property>
+
+<Property name="OrderDatum">
+<Type>%String</Type>
+</Property>
+
+<Property name="KitComponentNvt">
+<Type>%String</Type>
+</Property>
+
+<Property name="ItemId">
+<Type>%String</Type>
+</Property>
+
+<Property name="Lades">
+<Type>%String</Type>
+</Property>
+
+<Property name="Productielijn">
+<Type>%String</Type>
+</Property>
+
+<Property name="Omschrijving">
+<Type>%String</Type>
+</Property>
+
+<Property name="UMShipped">
+<Type>%String</Type>
+</Property>
+
+<Property name="LineType">
+<Type>%String</Type>
+</Property>
+
+<Property name="DelType1">
+<Type>%String</Type>
+</Property>
+
+<Property name="DelType2">
+<Type>%String</Type>
+</Property>
+
+<Property name="DelRouteNr">
+<Type>%String</Type>
+</Property>
+
+<Property name="DelNoteNr">
+<Type>%String</Type>
+</Property>
+
+<Property name="DelNoteGroupNr">
+<Type>%String</Type>
+</Property>
+
+<Property name="UM">
+<Type>%String</Type>
+</Property>
+
+<Property name="LengteUM">
+<Type>%String</Type>
+</Property>
+
+<Property name="BreedteUM">
+<Type>%String</Type>
+</Property>
+
+<Property name="HoogteUM">
+<Type>%String</Type>
+</Property>
+
+<Property name="TotaalVerstuurdUM">
+<Type>%String</Type>
+</Property>
+
+<Property name="PalletSscc">
+<Type>%String</Type>
+</Property>
+
+<Property name="TypeDrager">
+<Type>%String</Type>
+</Property>
+
+<Property name="Stroom">
+<Type>%String</Type>
+</Property>
+
+<Property name="VerzendWijze">
+<Type>%String</Type>
+</Property>
+
+<Property name="VerzendWijzeOrig">
+<Type>%String</Type>
+</Property>
+
+<Property name="SOPRConvertor">
+<Type>AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor</Type>
+<Transient>1</Transient>
+</Property>
+
+<Property name="SOPRIterator">
+<Type>TECH.Iterator</Type>
+<Transient>1</Transient>
+</Property>
+
+<Property name="ExportLabels">
+<Type>%String</Type>
+<MultiDimensional>1</MultiDimensional>
+<Private>1</Private>
+<Transient>1</Transient>
+</Property>
+
+<Property name="OpnemenInExport">
+<Type>%Boolean</Type>
+<Transient>1</Transient>
+</Property>
+
+<Property name="BasisData">
+<Type>AX.Uitgaand.MAG.impl.ExportOutbound</Type>
+<Transient>1</Transient>
+</Property>
+
+<Property name="Dimensie">
+<Type>AX.Uitgaand.MAG.dto.Dimensie</Type>
+<Transient>1</Transient>
+</Property>
+
+<Method name="CreatePicking">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>BasisData:AX.Uitgaand.MAG.impl.ExportOutbound,ComponentNVT:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set px=..%New()
+	Set px.BasisData=BasisData
+	Do px.VulinPicking(ComponentNVT)
+	Quit px
+]]></Implementation>
+</Method>
+
+<Method name="CreateMoeder">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>BasisData:AX.Uitgaand.MAG.impl.ExportOutbound</FormalSpec>
+<Implementation><![CDATA[
+	Set px=..%New()
+	Set px.BasisData=BasisData
+	Do px.VulinMoeder()
+	Quit px
+]]></Implementation>
+</Method>
+
+<Method name="%OnNew">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Do ..DefineLabels()
+	Set ..DCCode="Sint-Niklaas"
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="VulinPicking">
+<FormalSpec>ComponentNVT:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set ..PRNr=$LG(..BasisData.lbSOL,1)
+	Do ..VulinProduct()
+	Do ..VulinConsolidatie()
+	Set ..TotaalVerstuurdUM=$LG(..BasisData.lbSOL,2)
+	Do ..VulinDimensies()
+]]></Implementation>
+</Method>
+
+<Method name="VerdeelAantal">
+<FormalSpec>Aantal</FormalSpec>
+<Implementation><![CDATA[
+	Set ..UMShipped=Aantal
+	Set Sign=$S(Aantal<0:-1,1:1)
+	Set Aantal=Aantal*Sign
+	Set (QtyPallet,QtyGVP,QtyKVP)=0
+	If ..Product.Prijs.Leverancier.Nummer=5005
+	{
+		Set AantalInPallet=..Product.Basis.PalletAantal
+		Set AantalInGVP=..Product.Prijs.GrootVerpakking	
+		Set:AantalInGVP=1 AantalInGVP=""
+		Set AantalInKVP=..Product.Prijs.NormaleVerpakking	
+		Set:AantalInKVP=1 AantalInKVP=""
+		If (Aantal'<AantalInPallet) && (AantalInPallet>1)
+		{
+			Set QtyPallet=(Aantal\AantalInPallet)
+			Set Aantal=Aantal-(QtyPallet*AantalInPallet)
+		}
+		If (Aantal'<AantalInGVP) && (AantalInGVP>1)
+		{
+			Set QtyGVP=(Aantal\AantalInGVP)
+			Set Aantal=Aantal-(QtyGVP*AantalInGVP)
+		}
+		If (Aantal'<AantalInKVP) && (AantalInKVP>1)
+		{
+			Set QtyKVP=(Aantal\AantalInKVP)
+			Set Aantal=Aantal-(QtyKVP*AantalInKVP)
+		}
+		Set ..LineType=$E($S(Aantal:"&L0",1:"")_$S(QtyKVP:"&L1",1:"")_$S(QtyGVP:"&L2",1:"")_$S(QtyPallet:"&L3",1:""),2,99)
+		;Set ..UMShipped=..UMShipped_" = "_Aantal_" : "_QtyKVP_"("_AantalInKVP_") : "_QtyGVP_"("_AantalInGVP_") : "_QtyPallet_"("_AantalInPallet_")"
+	}
+	Else
+	{
+			Set ..LineType="L0"
+	}
+	Set ..Gewicht=..UMShipped*..Product.Basis.GewichtPerDuizendStuksInKG
+]]></Implementation>
+</Method>
+
+<Method name="IsOrgal">
+<Implementation><![CDATA[
+		Set MPRNr=$P(..BasisData.OLRec,"\",1)
+		Quit ($$AantalKinderen^PRBS(MPRNr)>0)&&($$ISORGAL^PRODUKT2(MPRNr)||$$IsOrgaluxOpMaat^PRODUKT2(MPRNr)||$$IsTaorCubicover^PRODUKT2(MPRNr))
+]]></Implementation>
+</Method>
+
+<Method name="VulinMoeder">
+<Implementation><![CDATA[
+	Set ..PRNr=$P(..BasisData.OLRec,"\",1)
+	Set ..KitComponentNvt="Kit"
+	Set ..TotaalVerstuurdUM=$P(..BasisData.OLRec,"\",4)
+	Set ..Lades="NVT"
+	Do ..VulinConsolidatie()
+	Do ..VulinProduct()
+	Do ..VerdeelAantal(..TotaalVerstuurdUM)
+]]></Implementation>
+</Method>
+
+<Method name="VulinConsolidatie">
+<Implementation><![CDATA[
+	Set ..Klant=$P(..BasisData.CONSRec,"\")
+	Set ..PicklijstNummer=..BasisData.CONSNr
+	Set ..PickDatum=+$P(..BasisData.CONSRec,"\",19)
+	Set ..OrdernummerKlant=..BasisData.ORDNr
+]]></Implementation>
+</Method>
+
+<Method name="VulinProduct">
+<Implementation><![CDATA[
+	Set ..Product=##class(AX.Uitgaand.PM.Product.impl.Product).%New(..PRNr)
+	Set SOPRPRNr=..BasisData.SOPRConvertor.GeefVervangProductDoorSOPRInAX(..PRNr,1)
+	Set:SOPRPRNr="" SOPRPRNr=..PRNr
+	Set ..ItemId=$$$ProductGet(SOPRPRNr,$$$IdentNummer)
+	Set ..Omschrijving=..Product.Basis.KortTekst
+	Set ..UM="STK"
+	;Set Dimensie=##class(AX.Uitgaand.MAG.dto.Dimensie).%New(..Product)
+]]></Implementation>
+</Method>
+
+<Method name="VulinDimensies">
+<Implementation><![CDATA[
+	If (..Product.Prijs.Leverancier.%Id()=$$$LevHalux)&&('..Product.Basis.StockNietStock)
+	{
+		Set ..Dimensie=##class(AX.Uitgaand.MAG.dto.Dimensie).%New(..Product)
+		Set ..Lades=..Dimensie.ProductGroep
+		Set ..LengteUM=..Dimensie.Diepte
+		Set ..BreedteUM=..Dimensie.Breedte
+		Set ..HoogteUM=..Dimensie.Hoogte
+		Set ..TypeDrager=..Dimensie.Verpakkingsvorm
+		;Set ..Productielijn=..GeefProductielijn()
+		;If ..Productielijn="" Set ..Productielijn=..Dimensie.ProductGroep
+		;Set ..PalletSscc=$$ListToPieces^vhLib($LG(..BasisData.lbSOL,3))
+		;Set ..Picklocatie="TRANSIT"
+		;Set ..Stroom=16
+		;If ..Dimensie.ProductGroep="DIV" Set ..Stroom=19,..Productielijn="Voormontage"
+	}
+	Else
+	{
+		Set ..Lades=..Dimensie.ProductGroep
+		Set:..Lades="" ..Lades="NVT"
+		Set ..Stroom=15
+		If $$$ProductGet(..PRNr,$$$PalletQty)'>..TotaalVerstuurdUM Set ..Stroom=14
+	}
+	If $$$ProductGet(..PRNr,$$$LinkType)?1(1"HH",1"HHS") Set ..Stroom=18
+]]></Implementation>
+</Method>
+
+<Method name="GeefMagLocatie">
+<FormalSpec>lbPallet:%List</FormalSpec>
+<Implementation><![CDATA[
+	/*
+	Set sc=result.Prepare("SELECT i.loc_id,t.IsPickbaar,loc_trans"
+	_" FROM EWMS.Inventory i"
+	_"LEFT OUTER JOIN EWMS.Locations l on I.Loc_Id=L.Loc_ID"
+	_"LEFT OUTER JOIN EWMS.TransLoc t on t.loc_m=l.loc_M and t.loc_g=l.loc_g and t.loc_x=l.loc_x and t.loc_y=l.loc_y"
+	_"WHERE (product = ?) AND (i.loc_m<5)")
+
+	*/
+
+	If $D(^||LocatieCache(..PRNr)) { 
+		Set ResultLoc=^||LocatieCache(..PRNr) 
+	} Else {
+		Set PickLoc="",PalletInLoc="",PalletInAuto="",ResultLoc=""
+
+		Set result=##class(%ResultSet).%New("%DynamicQuery:SQL")
+		Set sc=result.Prepare("SELECT i.loc_id as LocId,t.loc_ispickbaar as IsPickbaar,loc_trans as LocTrans,l.loc_m as LocM"
+		_" FROM EWMS.Inventory i"
+		_" LEFT OUTER JOIN EWMS.Locations l on I.Loc_Id=L.Loc_ID"
+		_" LEFT OUTER JOIN EWMS.TransLoc t on t.loc_m=l.loc_M and t.loc_g=l.loc_g and t.loc_x=l.loc_x and t.loc_y=l.loc_y"
+		_" WHERE (product = ?) AND (i.loc_m<5)")
+		If $$$ISERR(sc) Do DisplayError^%apiOBJ(sc) Quit ""
+		Set sc=result.Execute(..PRNr)
+		If $$$ISERR(sc) Do DisplayError^%apiOBJ(sc) Quit ""
+		If result.Next(.sc) {
+			Set:result.Data("IsPickbaar") PickLoc=result.Data("LocTrans")
+			Set:result.Data("LocM")=1 PalletInAuto=1
+			Set:$LF(lbPallet,+result.Data("LocId"))&&(PalletInLoc="") PalletInLoc=result.Data("LocTrans")
+		}
+		If $$$ISERR(sc) Do DisplayError^%apiOBJ(sc) Quit ""
+
+		If PickLoc'="" { Set ResultLoc=PickLoc }
+		ElseIf PalletInAuto { Set ResultLoc="APM" }
+		Else { Set ResultLoc=PalletInLoc }
+		
+		If ResultLoc="",..Product.Basis.OpslagZone=1 Set ResultLoc="APM"
+
+		Set ^||LocatieCache(..PRNr)=ResultLoc
+	}
+	Quit ResultLoc ;_" : "_$$ListToPieces^vhLib(lbPallet,";")
+]]></Implementation>
+</Method>
+
+<Method name="GeefProductielijn">
+<Implementation><![CDATA[
+	Set result=##class(%ResultSet).%New("%DynamicQuery:SQL")
+	Set sc=result.Prepare("SELECT Werkpost FROM APPS_VKP_Maatwerk_LadeRegistratie_impl.Registratie WHERE PRNr=? order by tijdstip desc")
+	If $$$ISERR(sc) Do DisplayError^%apiOBJ(sc) Quit ""
+	Set sc=result.Execute(..PRNr)
+	If $$$ISERR(sc) Do DisplayError^%apiOBJ(sc) Quit ""
+	If result.Next(.sc) {
+ 		Set Productielijn=result.Data("Werkpost")
+	}
+	If $$$ISERR(sc) Do DisplayError^%apiOBJ(sc) Quit ""
+	Set Productielijn=$case($G(Productielijn),"P1":"L1","P2":"L4","LP1":"L1","LP2":"L2","LP3":"L3",:"")
+	Quit $G(Productielijn)
+]]></Implementation>
+</Method>
+
+<Method name="DefineLabels">
+<Implementation><![CDATA[
+ Do ..SetLabel("ShippingDatum","I10","DATE")
+ Do ..SetLabel("ShipmentNumber","I11","TXT")
+ Do ..SetLabel("LaadlijstNummer","I12","TXT")
+ Do ..SetLabel("ShipToCode","I13","TXT")
+
+ Do ..SetLabel("ItemId","I21","TXT")
+ Do ..SetLabel("Omschrijving","I22","TXT")
+ Do ..SetLabel("UMShipped","I23",)
+ Do ..SetLabel("Gewicht","I24","")
+
+ Do ..SetLabel("DCCode","I31","TXT")
+ 
+ Do ..SetLabel("PicklijstNummer","I41","TXT")
+ Do ..SetLabel("PickDatum","I42","DATE")
+ Do ..SetLabel("OrdernummerKlant","I44","TXT")
+ Do ..SetLabel("OrderDatum","I45","DATE")
+ Do ..SetLabel("Klant","I46","TXT")
+
+ Do ..SetLabel("Transporteur","I51","TXT")
+ Do ..SetLabel("DelRouteNr","I52","TXT")
+ Do ..SetLabel("DelType1","I53","TXT")
+ ;Do ..SetLabel("DelType2","","TXT")
+
+ Do ..SetLabel("LineType","I69")
+
+ ;Do ..SetLabel("VerzendWijze","K402","TXT")
+ ;Do ..SetLabel("Picklocatie","K408","TXT")
+ ;Do ..SetLabel("KitComponentNvt","K410","TXT")
+ ;Do ..SetLabel("LengteUM","K416")
+ ;Do ..SetLabel("BreedteUM","K417")
+ ;Do ..SetLabel("HoogteUM","K418")
+ ;Do ..SetLabel("TotaalVerstuurdUM","K419")
+ ;Do ..SetLabel("PalletSscc","K424","TXT")
+ ;Do ..SetLabel("TypeDrager","K425","TXT")
+ ;Do ..SetLabel("Stroom","K428","TXT")
+]]></Implementation>
+</Method>
+
+<Method name="SetLabel">
+<FormalSpec>Naam:%String,Code:%String,DataType:%String,Qty:%Integer</FormalSpec>
+<Implementation><![CDATA[	Set ..ExportLabels(Code,Naam)=$LB($G(DataType),$G(Qty))
+]]></Implementation>
+</Method>
+
+<Method name="WriteHeader">
+<FormalSpec><![CDATA[SubVolgNr:%Integer="",&Maanden:%String]]></FormalSpec>
+<Implementation><![CDATA[
+	Set Key1=$O(..ExportLabels(""))
+	While Key1'=""
+	{
+		Set Key2=$O(..ExportLabels(Key1,""))
+		While Key2'=""
+		{
+			Set ArrayType=$LG(..ExportLabels(Key1,Key2))
+			If "TXT,DATE"[ArrayType
+			{
+				Write Key1,$S(SubVolgNr:"."_SubVolgNr,1:""),":",Key2,*9	
+			}
+			Elseif "DataType"=ArrayType
+			{
+				For I=$LG(..ExportLabels(Key1,Key2),2):-1:1
+				{
+					Write Key1,".",I,":",..GeefMaand(I,.Maanden,2),":",Key2,*9
+				}
+				
+			}
+			Else  ; Object
+			{
+				For I=$LG(..ExportLabels(Key1,Key2),2):-1:1
+				{
+					Set obj= $zobjclassmethod(ArrayType,"%New")
+					Do obj.WriteHeader(I_":"_..GeefMaand(I,.Maanden))
+				}
+			}
+			Set Key2=$O(..ExportLabels(Key1,Key2))
+		}
+		Set Key1=$O(..ExportLabels(Key1))
+	}
+]]></Implementation>
+</Method>
+
+<Method name="GeefMaand">
+<FormalSpec><![CDATA[I:%Integer,&Maanden:%Integer,NeemPiece:%Integer]]></FormalSpec>
+<Implementation><![CDATA[
+	Set Maand=$O(Maanden(""))
+	While Maand'=""
+	{
+		If $P(Maanden(Maand),"\")=I	Set GevondenMaand=$$EXTDATE^vhLib.DataTypes($S($G(NeemPiece):$P(Maanden(Maand),"\",NeemPiece),1:Maand),"DM")
+		Set Maand=$O(Maanden(Maand))
+	}
+	Quit $G(GevondenMaand)
+]]></Implementation>
+</Method>
+
+<Method name="WriteData">
+<Implementation><![CDATA[
+	Set Key1=$O(..ExportLabels(""))
+	While Key1'=""
+	{
+		Set Key2=$O(..ExportLabels(Key1,""))
+		While Key2'=""
+		{
+			Set ArrayType=$LG(..ExportLabels(Key1,Key2))
+			If ArrayType=""
+			{
+				Write $$$ExcelNum($zobjProperty(%this,Key2)),*9
+			}
+			ElseIf ArrayType="TXT"
+			{
+				Write $zobjProperty(%this,Key2),*9
+			}
+			ElseIf ArrayType="DATE"
+			{
+				Write $$$ExcelDat($zobjProperty(%this,Key2)),*9
+			}
+			Elseif "DataType"=ArrayType
+			{
+				#dim Array as %ArrayOfDataTypes =($zobjProperty(%this,Key2))
+				Set Element=Array.GetNext(.Key) 
+				Set Count=0
+				While Key'=""
+				{
+					Set Count=Count+1
+					Write Element,*9
+					Set Element=Array.GetNext(.Key) 
+				}
+			}
+			Else  ; object
+			{
+				#dim ArrayObj as %ArrayOfObjects =($zobjProperty(%this,Key2))
+				Set Element=ArrayObj.GetNext(.Key) 
+				Set Count=0
+				While Key'=""
+				{
+					Set Count=Count+1
+					Do Element.WriteData()
+					Set Element=ArrayObj.GetNext(.Key) 
+				}
+			}
+			Set Key2=$O(..ExportLabels(Key1,Key2))
+		}
+		Set Key1=$O(..ExportLabels(Key1))
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AX/Uitgaand/MAG/dto/TransportShipToCode.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/MAG/dto/TransportShipToCode.cls.xml	(revision 0)
+++ AX/Uitgaand/MAG/dto/TransportShipToCode.cls.xml	(revision 54968)
@@ -0,0 +1,105 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.MAG.dto.TransportShipToCode">
+<IncludeCode>Prod.Product,BL.Derde.LevSpecifiek</IncludeCode>
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="ShipToCode">
+<Type>%String</Type>
+</Property>
+
+<Property name="Klant">
+<Type>%String</Type>
+</Property>
+
+<Property name="Gemeente">
+<Type>%String</Type>
+</Property>
+
+<Property name="Land">
+<Type>%String</Type>
+</Property>
+
+<Property name="Straat">
+<Type>%String</Type>
+</Property>
+
+<Property name="PostCode">
+<Type>%String</Type>
+</Property>
+
+<Method name="DeleteAll">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[	Kill ^PVAdres
+]]></Implementation>
+</Method>
+
+<Method name="ExportAdressen">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	Set Dev=$$OPEN^vhDEV("\\notes01\shared\p v\","CustomerDeliveryAddress "_$TR($ZDT($H),"/:")_".txt","W","T")
+	Use Dev
+	Write "ShipToCode	DelZipCode	DelTown	DelCountry	ShipToCustomerCategorie1	ShipToCustomerCategorie2	CustomerCode",!
+	Set AdresRec=""
+	For  Set AdresRec=$O(^PVAdres("A",AdresRec)) Quit:AdresRec=""  Do
+	. Set AdresNr=$P(^PVAdres("A",AdresRec),"\")
+	. Set KLNr=$P(AdresRec,"\")
+	. Set Postcode=$P(AdresRec,"\",6)
+	. Set:Postcode?1.2A1"-"1.E Postcode=$P(Postcode,"-",2,3)
+	. Set Gemeente=$P(AdresRec,"\",7)
+	. Set Land=$$LAND^vhRtn1($P(AdresRec,"\",8),1,1)
+	. Set VerzendW=$P(AdresRec,"\",11)
+	. Set TransportType=$P(AdresRec,"\",10)
+	. Write AdresNr,*9,Postcode,*9,Gemeente,*9,Land,*9,VerzendW,*9,TransportType,*9,KLNr
+	. Write !
+	Do CLOSE^vhDEV(Dev)
+]]></Implementation>
+</Method>
+
+<Method name="ExportKlanten">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	Set Dev=$$OPEN^vhDEV("\\notes01\shared\p v\","Customer "_$TR($ZDT($H),"/:")_".txt","W","T")
+	Use Dev
+	Write "CustomerCode	CustName	CustZipCode	CustTown	CustCountry	BillToCustomerCategorie1	BillToCustomerCategorie2	BillToCustomerCategorie3",!
+	Set KLNr=""
+	For  Set KLNr=$O(^PVAdres("K",KLNr)) Quit:KLNr=""  Do
+	. Set Klant=##class(Derde.Klant.Klant).%OpenId(KLNr)
+	. Set AdresRec="",AdresMem="",AdresMax=0
+	. For  Set AdresRec=$O(^PVAdres("K",KLNr,AdresRec)) Quit:AdresRec=""  Do
+	. . If ^PVAdres("K",KLNr,AdresRec)>AdresMax Set AdresMem=AdresRec
+	. Set Postcode=$P(AdresMem,"\",6)
+	. Set:Postcode?1.2A1"-"1.E Postcode=$P(Postcode,"-",2,3)
+	. Set Gemeente=$P(AdresMem,"\",7)
+	. Set Land=$$LAND^vhRtn1($P(AdresMem,"\",8),1,1)
+	. Write KLNr,*9,Klant.Naam,*9,Postcode,*9,Gemeente,*9,Land,*9,Klant.Sektor,*9,Klant.Divisie ;,*9,Klant.Aktiviteit
+	. Write !
+	Do CLOSE^vhDEV(Dev)
+]]></Implementation>
+</Method>
+
+<Method name="GeefShipToCode">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>KLNr:%String,AdresRec:%String,px:AX.Uitgaand.MAG.dto.TransportOutLijn</FormalSpec>
+<Implementation><![CDATA[
+	
+
+	Set AdresRec=KLNr_"\"_$P(AdresRec,"\",2,8)_"\\"_px.DelType1_"\"_px.VerzendWijze
+	If $D(^PVAdres("A",AdresRec))
+	{
+		Set $P(^PVAdres("A",AdresRec),"\",3)=$P(^PVAdres("A",AdresRec),"\",3)+1
+		Set ^PVAdres("K",KLNr,$P(AdresRec,"\",1,8))=+1
+	}
+	Else
+	{
+		Set ^PVAdres("A",AdresRec)=$I(^PVAdres)_"\"_KLNr
+		Set ^PVAdres("K",KLNr)=""
+		Set ^PVAdres("K",KLNr,$P(AdresRec,"\",1,8))=$G(^PVAdres("K",KLNr,$P(AdresRec,"\",1,8)))+1
+	}
+	Quit $P(^PVAdres("A",AdresRec),"\")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AX/Uitgaand/MAG/impl/ImportGLSKost.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/MAG/impl/ImportGLSKost.cls.xml	(revision 0)
+++ AX/Uitgaand/MAG/impl/ImportGLSKost.cls.xml	(revision 54968)
@@ -0,0 +1,132 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.MAG.impl.ImportGLSKost">
+<IncludeCode>BL.Derde.LevSpecifiek,BL.Derde.KlantSpecifiek,Prod.Product</IncludeCode>
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="ImportAll">
+<Description>
+D ##Class(AX.Uitgaand.MAG.impl.ImportGLSKost).%New().ImportAll()</Description>
+<Implementation><![CDATA[
+	Kill ^PVGLSKost
+	D ..ImportGLSFreightAll()
+	D ..ImportGLSParcel()
+	D ..ImportTTC()
+]]></Implementation>
+</Method>
+
+<Method name="ImportGLSFreightAll">
+<Description>
+D ##Class(AX.Uitgaand.MAG.impl.ImportGLSKost).%New().ImportGLSFreightAll()</Description>
+<Implementation><![CDATA[
+	Do GETFILES^vhDEV("\\NOTES01\msmgateway\GLS PV",.List,"*","F")
+	Set Name=""
+	
+	For  Set Name=$O(List(Name)) Quit:Name=""  Do
+	. Write Name,!
+	. Do ..ImportBestand(Name)
+]]></Implementation>
+</Method>
+
+<Method name="ImportBestand">
+<FormalSpec>FilePath</FormalSpec>
+<Implementation><![CDATA[
+	Set reader=##class(TECH.FileReader).%New(FilePath)
+	Do reader.SetDelimiter(";") ; optioneel, default is TAB
+	Do reader.SetHeaderRow(1) ; optioneel, default = 1
+	Do reader.SetFirstDataRow(2) ; optioneel, default = 2
+	;Do reader.SetTranslateHeader2UpperCase() ; optioneel, default=0
+	;Do reader.AddHeaderTranslation("Your reference", "referentie afzender") ; optioneel, 1 per translatie
+	;Do reader.AddHeaderTranslation("Bedrag", "bedrag") ; optioneel, 1 per translatie
+	While reader.Next()
+	{
+		
+			Set datum=$$INTDATE^vhLib.DataTypes(reader.Data("datum document"))
+			If datum>$$INTDATE^vhLib.DataTypes("01/08/18")
+			{
+			Set bonref=reader.Data("referentie afzender")
+			Set bonref=+$P(bonref,"X",2)
+			Set bedrag=+$TR(reader.Data("bedrag"),",",".")
+			Set ^PVGLSKost(bonref)=$G(^PVGLSKost(bonref))+bedrag
+			Set ^PVGLSKost(bonref,"GLSF")=$G(^PVGLSKost(bonref,"GLSF"))+bedrag
+			}
+			;Set y=reader.Column(1)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="ImportGLSParcel">
+<Description>
+D ##Class(AX.Uitgaand.MAG.impl.ImportGLSKost).%New().ImportGLSParcel()</Description>
+<Implementation><![CDATA[
+	Set Name="\\NOTES01\shared\p v\GLS Parcel Van Hoecke - Zendingen 2018-Q4.txt"
+	Write Name,!
+	Do ..ImportGLSParcelBestand(Name)
+]]></Implementation>
+</Method>
+
+<Method name="ImportGLSParcelBestand">
+<FormalSpec>FilePath</FormalSpec>
+<Implementation><![CDATA[
+	Set reader=##class(TECH.FileReader).%New(FilePath)
+	;Do reader.SetDelimiter(";") ; optioneel, default is TAB
+	Do reader.SetHeaderRow(1) ; optioneel, default = 1
+	Do reader.SetFirstDataRow(2) ; optioneel, default = 2
+	;Do reader.AddHeaderTranslation("Bedrag", "bedrag") ; optioneel, 1 per translatie
+	While reader.Next()
+	{
+			Set bonref=reader.Data("Your reference")
+			Set bonref=+$P(bonref,"X",2)
+			Set fuel=+$TR(reader.Data("Fuel surcharge"),",",".")
+			Set toeslag=+$TR(reader.Data("Surcharges"),",",".")
+			Set km=+$TR(reader.Data("Kilometer charge"),",",".")
+			Set bedrag=+$TR(reader.Data("Transport"),",",".")
+			Set ^PVGLSKost(bonref)=$G(^PVGLSKost(bonref))+(bedrag+fuel+km+toeslag)
+			Set ^PVGLSKost(bonref,"GLSP")=$G(^PVGLSKost(bonref,"GLSP"))+(bedrag+fuel+km+toeslag)
+			;Set y=reader.Column(1)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="ImportTTC">
+<Description>
+D ##Class(AX.Uitgaand.MAG.impl.ImportGLSKost).%New().ImportTTC()</Description>
+<Implementation><![CDATA[
+	Set Name="\\NOTES01\shared\p v\TTC Van hoecke december.txt"
+	Write Name,!
+	Do ..ImportTTCBestand(Name)
+	Set Name="\\NOTES01\shared\p v\TTC sept okt nov 2018.txt"
+	Write Name,!
+	Do ..ImportTTCBestand(Name)
+]]></Implementation>
+</Method>
+
+<Method name="ImportTTCBestand">
+<FormalSpec>FilePath</FormalSpec>
+<Implementation><![CDATA[
+	Set reader=##class(TECH.FileReader).%New(FilePath)
+	;Do reader.SetDelimiter(";") ; optioneel, default is TAB
+	Do reader.SetHeaderRow(1) ; optioneel, default = 1
+	Do reader.SetFirstDataRow(2) ; optioneel, default = 2
+	;Do reader.AddHeaderTranslation("Uw referentie", "Referentie") ; optioneel, 1 per translatie
+	;Do reader.AddHeaderTranslation("Tarief", "Bedrag") ; optioneel, 1 per translatie
+	While reader.Next()
+	{
+			;	k %x m %x=reader.Data ;zw %x
+			Set bonref=$G(reader.Data("Referentie"))
+			Set bonref=+bonref
+			If bonref?6N
+			{
+				;Set fuel=+$TR(reader.Data("? Fuel surcharge"),",",".")
+				Set bedrag=+$TR(reader.Data("Bedrag"),",",".")
+				Set ^PVGLSKost(bonref)=$G(^PVGLSKost(bonref))+bedrag
+				Set ^PVGLSKost(bonref,"TTC")=$G(^PVGLSKost(bonref,"TTC"))+bedrag
+			}
+			;Set y=reader.Column(1)
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AX/Uitgaand/MAG/impl/ExportProductMaster.cls.xml
===================================================================
diff -u -r53245 -r54968
--- AX/Uitgaand/MAG/impl/ExportProductMaster.cls.xml	(.../ExportProductMaster.cls.xml)	(revision 53245)
+++ AX/Uitgaand/MAG/impl/ExportProductMaster.cls.xml	(.../ExportProductMaster.cls.xml)	(revision 54968)
@@ -45,8 +45,8 @@
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	Set ..SOPRConvertor=##class(AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor).%New()
-	Set ..RefDatum=$$INTDATE^vhLib.DataTypes("01/07/2018")
-	Set ..StartDatum=$$CALCDATE^vhLib.DataTypes(..RefDatum,"M",-12,"FD")
+	Set ..RefDatum=$$INTDATE^vhLib.DataTypes("25/12/2018")
+	Set ..StartDatum=$$CALCDATE^vhLib.DataTypes(..RefDatum,"M",-4,"FD")
 	Do ..BepaalMaanden()
 	Kill ^||LogFlowVerwerkteProducten
 	Quit $$$OK
@@ -63,7 +63,7 @@
 	Use Dev
 	Do ..WriteHeader() Write !
 	Use 0
-	Set Filter=##class(AX.Uitgaand.MAG.impl.ProductIteratorFilterExclMaatwerk).%New(..StartDatum)
+	Set Filter="" ; ##class(AX.Uitgaand.MAG.impl.ProductIteratorFilterExclMaatwerk).%New(..StartDatum)
 	Set ..ProductIterator=##class(ProductIterator).%New(Filter)
 	Set Count=0
 	Set Verwerkt=0
@@ -131,7 +131,7 @@
 <Implementation><![CDATA[
 	Merge Maanden=..VoorraadMaanden
 	Set px=##class(AX.Uitgaand.MAG.dto.Artikel).Create(..Product,..SOPRIterator)
-	Do px.AanvullenMetVoorraad(.Maanden)
+	;Do px.AanvullenMetVoorraad(.Maanden)
 	Do px.AanvullenMetTransacties(.Maanden,..RefDatum)
 	Quit px
 ]]></Implementation>
Index: AX/Uitgaand/MAG/impl/ProductIterator.cls.xml
===================================================================
diff -u -r52359 -r54968
--- AX/Uitgaand/MAG/impl/ProductIterator.cls.xml	(.../ProductIterator.cls.xml)	(revision 52359)
+++ AX/Uitgaand/MAG/impl/ProductIterator.cls.xml	(.../ProductIterator.cls.xml)	(revision 54968)
@@ -33,7 +33,7 @@
 <Implementation><![CDATA[
 	Set ..QueryAPI = $$$Implementation(QueryAPI,##class(TECH.Context).Instance().GeefQueryAPI())
 	Do ..VoerUitQuery()
-	Set Filter=$$$Implementation(Filter,##class(AX.Uitgaand.MAG.impl.ProductIteratorFilter).%New(StartDatum))
+	Set Filter=$$$Implementation(Filter,##class(AX.Uitgaand.MAG.impl.ProductIteratorFilter).%New($$INTDATE^vhLib.DataTypes("01/10/18")))
 	Set ResultSetIterator = ##class(TECH.ResultSetIterator).%New(..ResultSet)
 	Set ..DynIterator = ##class(TECH.DynamicIterator).%New(ResultSetIterator,,Filter)
 	Quit $$$OK
Index: AX/Uitgaand/MAG/impl/ExportOutbound.cls.xml
===================================================================
diff -u -r53245 -r54968
--- AX/Uitgaand/MAG/impl/ExportOutbound.cls.xml	(.../ExportOutbound.cls.xml)	(revision 53245)
+++ AX/Uitgaand/MAG/impl/ExportOutbound.cls.xml	(.../ExportOutbound.cls.xml)	(revision 54968)
@@ -48,7 +48,7 @@
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	Set ..SOPRConvertor=##class(AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor).%New()
-	Set ..RefDatum=$$INTDATE^vhLib.DataTypes("01/07/2018")
+	Set ..RefDatum=$$INTDATE^vhLib.DataTypes("01/10/2018")
 	Set ..StartDatum=$$CALCDATE^vhLib.DataTypes(..RefDatum,"M",-AantalMaanden,"FD")
 	Kill ^||LocatieCache
 	Quit $$$OK
@@ -187,7 +187,7 @@
 	If TranspNr=""
 	{
 		Set px.ShippingDatum=px.PickDatum
-		Set px.ShipmentNumber=""
+		Set px.ShipmentNumber=px.PickDatum_":"_VerzendWijze_$S(VerzendWijze="AFH":":"_KLNr,1:"")
 	}
 	Else
 	{
Index: AX/Uitgaand/MAG/impl/ExportTransportOut.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/MAG/impl/ExportTransportOut.cls.xml	(revision 0)
+++ AX/Uitgaand/MAG/impl/ExportTransportOut.cls.xml	(revision 54968)
@@ -0,0 +1,342 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.MAG.impl.ExportTransportOut">
+<IncludeCode>BL.Derde.KlantSpecifiek,BL.Derde.LevSpecifiek,Prod.Product</IncludeCode>
+<Super>TECH.RegisteredObject,TECH.Filter</Super>
+
+<Property name="RefDatum">
+<Type>%Date</Type>
+</Property>
+
+<Property name="StartDatum">
+<Type>%Date</Type>
+</Property>
+
+<Property name="SOPRConvertor">
+<Type>AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor</Type>
+</Property>
+
+<Property name="CONSNr">
+<Type>%String</Type>
+</Property>
+
+<Property name="ORDNr">
+<Type>%String</Type>
+</Property>
+
+<Property name="OLRec">
+<Type>%String</Type>
+</Property>
+
+<Property name="lbSOL">
+<Type>%List</Type>
+</Property>
+
+<Property name="CONSRec">
+<Type>%String</Type>
+</Property>
+
+<Property name="AantalKinderen">
+<Type>%Integer</Type>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>AantalMaanden=3</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Do ##class(AX.Uitgaand.MAG.dto.TransportShipToCode).DeleteAll()
+	Kill %Drop
+	Kill %Trip
+	Kill %TripLaadLijst
+	Set ..SOPRConvertor=##class(AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor).%New()
+	Set ..RefDatum=$$INTDATE^vhLib.DataTypes("23/12/2018")
+	Set ..StartDatum=$$CALCDATE^vhLib.DataTypes(..RefDatum,"M",-AantalMaanden,"FD")
+	Kill ^||LocatieCache
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkAlle">
+<Description>
+d ##class(AX.Uitgaand.MAG.impl.ExportTransportOut).%New().VerwerkAlle()</Description>
+<ProcedureBlock>0</ProcedureBlock>
+<Implementation><![CDATA[
+	Write @F11,@F1
+	Set Dev=$$OPEN^vhDEV("\\notes01\shared\p v\","TransportLijn "_$TR($ZDT($H),"/:")_".txt","W","T")
+	Use Dev
+	Do ..WriteHeader() Write !
+	Set Count=0
+	Set Verwerkt=0
+	Set ..CONSNr=$O(^ORDW("D",""))
+	While ..CONSNr'="" ;&&(Verwerkt<200)
+	{
+		Set Count=Count+1
+		If ..IsGeldig()
+		{
+			Set Verwerkt=Verwerkt+1
+			Do ..VerwerkConsolidatie()
+		}
+		If Count#100=0
+		{
+			Use 0
+			Set FP=2301 Write @F,@F1
+			Write " ",Verwerkt," / ",Count
+			Use Dev
+		}
+		Set ..CONSNr=$O(^ORDW("D",..CONSNr))
+	}
+	Do CLOSE^vhDEV(Dev)
+	Set FP=2301	Write @F,@F1
+	Write Verwerkt," / ",Count
+	Do ##class(AX.Uitgaand.MAG.dto.TransportShipToCode).ExportAdressen()
+	Do ##class(AX.Uitgaand.MAG.dto.TransportShipToCode).ExportKlanten()
+	Do ##class(AX.Uitgaand.MAG.dto.TransportOutDrop).ExportDrop()
+	Do ##class(AX.Uitgaand.MAG.dto.TransportOutTrip).ExportTrip()
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkConsolidatie">
+<Implementation><![CDATA[
+	Set ..CONSRec=^ORDW("D",..CONSNr)
+	
+	Set ..ORDNr=$O(^ORDW("D",..CONSNr,"D",""))
+	While ..ORDNr'=""
+	{
+		Set OLUNr=$O(^ORDW("D",..CONSNr,"D",..ORDNr,""))
+		While OLUNr'=""
+		{
+			Set ..OLRec=^ORDW("D",..CONSNr,"D",..ORDNr,OLUNr)
+	
+			If ..IsGeldigLijn()
+			{
+				/*#dim itKind as TECH.ArrayOneDimIterator =..GeefKinderIterator(OLUNr)
+				
+				Do itKind.Reset()
+				While itKind.HasNext()
+				{
+					Set ..lbSOL=itKind.Next()
+					Do ..VerwerkPicking()
+				}
+				
+				If ..AantalKinderen>1 */
+				Do ..VerwerkMoeder()
+			}
+			Set OLUNr=$O(^ORDW("D",..CONSNr,"D",..ORDNr,OLUNr))
+		}
+		Set ..ORDNr=$O(^ORDW("D",..CONSNr,"D",..ORDNr))
+	}
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkPicking">
+<Implementation><![CDATA[
+	If ..AantalKinderen > 1
+	{
+			Set ComponentNVT="Component"
+	}
+	Else 
+	{
+		Set ComponentNVT="NVT"
+	}
+	Set px=##class(AX.Uitgaand.MAG.dto.TransportOutLijn).CreatePicking(%this,ComponentNVT)
+	Do ..VulinTransport(px)
+	Do ..VulinAdres(px)
+	Do px.WriteData() Write !
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkMoeder">
+<Implementation><![CDATA[
+	Set px=##class(AX.Uitgaand.MAG.dto.TransportOutLijn).CreateMoeder(%this)
+	Do ..VulinTransport(px)
+	Do ..VulinAdres(px)
+	Do ..VulInOrderdatum(px)
+	
+	Do ##class(AX.Uitgaand.MAG.dto.TransportOutDrop).VoegToeAanDrop(px)
+	Do ##class(AX.Uitgaand.MAG.dto.TransportOutTrip).VoegToeAanTrip(px)
+	
+	Do px.WriteData() Write !
+]]></Implementation>
+</Method>
+
+<Method name="VulinAdres">
+<FormalSpec>px:AX.Uitgaand.MAG.dto.TransportOutLijn</FormalSpec>
+<Implementation><![CDATA[
+	Set KLNr=$P(..CONSRec,"\")
+	Set AdrRec=$G(^ORDW("D",..CONSNr,"A"))
+	Set:$E(px.VerzendWijze,1,2)="OD" px.DelRouteNr=$P(AdrRec,"\",26)
+	Set:AdrRec="" AdrRec=^KKL(^KK1(KLNr),0)
+	Set LandCode=$P(AdrRec,"\",8)
+
+	Set px.ShipToCode=##class(AX.Uitgaand.MAG.dto.TransportShipToCode).GeefShipToCode(KLNr,AdrRec,px)
+	Set px.Land=$$LAND^vhRtn1(LandCode,1,1)
+	Set px.Gemeente=$P(AdrRec,"\",7)
+	Set:px.LaadlijstNummer="" px.LaadlijstNummer=px.PickDatum_":"_px.ShipToCode
+]]></Implementation>
+</Method>
+
+<Method name="VulInOrderdatum">
+<FormalSpec>px:AX.Uitgaand.MAG.dto.BewegingOutbound</FormalSpec>
+<Implementation><![CDATA[
+	Set KLNr=$P(..CONSRec,"\")
+	Set LijnNr=99
+	For  Set LijnNr=$O(^KUL(KLNr,"F",..CONSNr,LijnNr)) Quit:LijnNr'?3.N  Do
+	. If $P($P(^KUL(KLNr,"F",..CONSNr,LijnNr),"\",17),"#")="KF5" Do
+	. . Set ORDNr=+$P($P(^KUL(KLNr,"F",..CONSNr,LijnNr),"\",5)," - ")
+	. . If ORDNr=..ORDNr  Do
+	. . . Set px.OrderDatum=+$P($P(^KUL(KLNr,"F",..CONSNr,LijnNr),"\",4),"#",3)
+	. . . Set:px.OrderDatum="" px.OrderDatum=$$INTDATE^vhLib.DataTypes($P($P(^KUL(KLNr,"F",..CONSNr,LijnNr),"\",5)," - ",2),"DKP")
+]]></Implementation>
+</Method>
+
+<Method name="VulinTransport">
+<FormalSpec>px:AX.Uitgaand.MAG.dto.BewegingOutbound</FormalSpec>
+<Implementation><![CDATA[
+	Set KLNr=$P(..CONSRec,"\")
+	Set BONRec=$G(^KUL(KLNr,"F",..CONSNr,1))
+	Set:BONRec="" BONRec=$G(^KUL(KLNr,"G",..CONSNr,1))
+	Set TranspIndex=$P(BONRec,"\",8)
+	Set TranspNr=$P(TranspIndex,";",1)
+	Set TranspBonGroup=$P(TranspIndex,";",2)
+	Set Transporteur=""
+	If (TranspNr'="") {
+		If '$D(^TRANSP("D",TranspNr)) {
+			Set TranspIndex="", TranspNr="",TranspBonGroup=""
+		} Else {
+			Set Transporteur=$P(^TRANSP("D",TranspNr),"\",1)
+		}
+	}		
+	Set VerzendWijzeOrig=$P($P(BONRec,"\",7)," - ")
+	Set:VerzendWijzeOrig="" VerzendWijzeOrig=$P($P(..CONSRec,"\",2),"#")
+	Set VerzendWijze=$P(VerzendWijzeOrig,"#")
+	Set VerzendWijze=$P(VerzendWijze," ")
+	Set VerzendWijze=$P(VerzendWijze,"`")
+	Set VerzendWijze=$P(VerzendWijze,";")
+
+	Set px.DelType1=..VertaalShipment(Transporteur,VerzendWijze) ;_"("_VerzendWijze_")"
+	Set px.VerzendWijze=VerzendWijze
+	Set px.Transporteur=..VertaalTransporteur(Transporteur,VerzendWijze)
+	Set:(px.Transporteur="")&&(KLNr=12486) px.Transporteur="SFS"
+	Set:(px.Transporteur="JETC") px.DelType1="express"
+	
+	If TranspNr=""
+	{
+		Set px.ShippingDatum=px.PickDatum
+		Set px.ShipmentNumber=px.PickDatum_":"_VerzendWijze_$S(VerzendWijze="AFH":":"_KLNr,1:"")
+		Set px.LaadlijstNummer=""
+	}
+	Else
+	{
+		Set px.ShippingDatum=$P(^TRANSP("D",TranspNr),"\",11)
+		Set px.ShipmentNumber=TranspNr
+		Set:$P(TranspIndex,";",2) px.LaadlijstNummer=$P(TranspIndex,";",2)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="VertaalShipment">
+<FormalSpec>Transporteur:%String,VerzendW:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set TransporteurCode=""
+	Set:Transporteur=""&&(VerzendW'="") Transporteur=$P($G(^RES("KLANT","PI","VERZENDWIJZE","D",VerzendW)),"`",12)
+	Set:Transporteur'="" TransporteurCode=$P($G(^TRANSP("T",Transporteur)),"\")_"("_Transporteur_")"
+	
+	Quit:TransporteurCode="TMJ" "express"
+	Quit:TransporteurCode="JETC" "express"
+	Quit:TransporteurCode="JETL" "express"
+	Quit:TransporteurCode="FEDEX" "express"
+	Quit:$E(VerzendW,1,3)="SNT" "express"
+	Quit:$E(VerzendW,1,3)="EXU" "express"
+
+	Quit:$E(VerzendW,1,3)="SRV" "vertegenwoordiger"
+	Quit:$E(VerzendW,1,3)="INT" "vertegenwoordiger"
+	Quit:VerzendW?1"R"2N "vertegenwoordiger"
+
+	Quit:$E(VerzendW,1,2)="AF" "afhaling"
+
+	Quit:$E(VerzendW,1,2)="DI" "groupage"
+	Quit:$E(VerzendW,1,2)="DD" "groupage"
+	Quit:$E(VerzendW,1,2)="DH" "groupage"
+	Quit:VerzendW?1"E"2N "groupage"
+	Quit:VerzendW?1"U"2N "groupage"
+	
+	Quit "dedicated"
+]]></Implementation>
+</Method>
+
+<Method name="VertaalTransporteur">
+<FormalSpec>Transporteur:%String,VerzendW:%String</FormalSpec>
+<Implementation><![CDATA[
+	If VerzendW="SFS" Quit "SFS"
+	If VerzendW?1"E"2N Quit "Export"
+	If VerzendW?1"U"2N Quit "UPS"
+	Set:Transporteur=""&&(VerzendW'="") Transporteur=$P($G(^RES("KLANT","PI","VERZENDWIJZE","D",VerzendW)),"`",12)
+	Set:Transporteur'="" TransporteurCode=$P($G(^TRANSP("T",Transporteur)),"\") ;_"("_Transporteur_")"
+	Quit $G(TransporteurCode,VerzendW)
+]]></Implementation>
+</Method>
+
+<Method name="GeefKinderIterator">
+<FormalSpec>OLUNr:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set ..AantalKinderen=0
+	Kill ProdCnt
+	Set SOLNr=$O(^ORDW("D",..CONSNr,"D",..ORDNr,OLUNr,""))
+	While SOLNr'=""
+	{
+		Set PRNr=$P(^ORDW("D",..CONSNr,"D",..ORDNr,OLUNr,SOLNr),"\")
+		Set Aantal=$P(^ORDW("D",..CONSNr,"D",..ORDNr,OLUNr,SOLNr),"\",3)
+		Set Pallet=$P(^ORDW("D",..CONSNr,"D",..ORDNr,OLUNr,SOLNr),"\",10)
+		Set Key=PRNr_";"_$S(";TBX;LBX;TAO;"[(";"_$$GENTYP^HAD(PRNr)_";"):Pallet,1:"*")
+		If '$D(Prod(PRNr))
+		{
+			Set ..AantalKinderen=..AantalKinderen+1
+			Set Prod(PRNr)=""
+		}
+		If '$D(ProdCnt(Key))
+		{
+			Set ProdCnt(Key)=$LB(PRNr,Aantal)
+		}
+		Else
+		{
+			Set $LI(ProdCnt(Key),2)=$LG(ProdCnt(Key),2)+Aantal
+		}
+		Set $LI(ProdCnt(Key),3)=$LG(ProdCnt(Key),3)_$LB(Pallet)
+		Set SOLNr=$O(^ORDW("D",..CONSNr,"D",..ORDNr,OLUNr,SOLNr))
+	}
+	Quit ##class(TECH.ArrayOneDimIterator).%New(.ProdCnt)
+]]></Implementation>
+</Method>
+
+<Method name="IsGeldig">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	Set CONSRec=^ORDW("D",..CONSNr)
+	Quit:$P(^ORDW("D",..CONSNr),"\")=$$$KlantHalux 0
+	Set PickDatum=+$P(^ORDW("D",..CONSNr),"\",19)
+	Quit:..RefDatum<PickDatum 0
+	Quit:..StartDatum>PickDatum 0
+	Quit 1
+]]></Implementation>
+</Method>
+
+<Method name="IsGeldigLijn">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	Quit:$P(..OLRec,"\",4)'>0 0
+	
+	Quit 1
+]]></Implementation>
+</Method>
+
+<Method name="WriteHeader">
+<Implementation><![CDATA[	Do ##class(AX.Uitgaand.MAG.dto.TransportOutLijn).%New().WriteHeader()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>