Index: APPS/TRANSP/VRD/FTPConfig.cls.xml
===================================================================
diff -u
--- APPS/TRANSP/VRD/FTPConfig.cls.xml	(revision 0)
+++ APPS/TRANSP/VRD/FTPConfig.cls.xml	(revision 60034)
@@ -0,0 +1,66 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.TRANSP.VRD.FTPConfig">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="GeefConfigTest">
+<ClassMethod>1</ClassMethod>
+<ReturnType>TECH.Ftp.FtpConfiguratie</ReturnType>
+<Implementation><![CDATA[
+	Set FtpConfig=##class(TECH.Ftp.FtpConfiguratie).%New()
+	Set FtpConfig.ServerBestandsLocatie="import-test"
+	Do ..InstellenConfigProduction(FtpConfig)
+	Quit FtpConfig
+]]></Implementation>
+</Method>
+
+<Method name="GeefConfigProduction">
+<ClassMethod>1</ClassMethod>
+<ReturnType>TECH.Ftp.FtpConfiguratie</ReturnType>
+<Implementation><![CDATA[
+	Set FtpConfig=##class(TECH.Ftp.FtpConfiguratie).%New()
+	Set FtpConfig.ServerBestandsLocatie="import-live"
+	Do ..InstellenConfigProduction(FtpConfig)
+	Quit FtpConfig
+]]></Implementation>
+</Method>
+
+<Method name="InstellenConfigProduction">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>FtpConfig:TECH.Ftp.FtpConfiguratie</FormalSpec>
+<ReturnType>TECH.Ftp.FtpConfiguratie</ReturnType>
+<Implementation><![CDATA[
+	Set FtpConfig.Adres="ftp.go4tms.net"
+	Set FtpConfig.Gebruiker="vanhoecke"
+	Set FtpConfig.Paswoord="Xazi8673"
+	Set FtpConfig.Poort=21  ; ->  pportnumber to be confirmed
+	Set FtpConfig.ServerBestandsLocatie="current" ;--> dorect?
+]]></Implementation>
+</Method>
+
+<Method name="VerplaatsBestandNaarVRD">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>XMLBestandsNaam:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set FtpConfig = ..GeefConfigProduction()
+	Set FtpServer=##class(TECH.Ftp.impl.FtpAPI).%New()
+
+	Do FtpServer.Connecteer(FtpConfig)
+
+	TRY {
+		//Do FtpServer.VerwijderBestand(..FileName)
+		Do FtpServer.VerzendBestand(XMLBestandsNaam) 
+		// Filenaam in global steken? Transportinschatting_<datum>?
+		// of  import-test -  import-live als naamgeving maar dan mogelijks meerdere files op die locatie gezet?? 
+		
+	} Catch	{
+		Do ##class(TECH.ExceptionHandler).Catch()	
+	}
+	
+	Do FtpServer.VerbreekVerbinding()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/TRANSP/VRD/TransportInschatting.cls.xml
===================================================================
diff -u
--- APPS/TRANSP/VRD/TransportInschatting.cls.xml	(revision 0)
+++ APPS/TRANSP/VRD/TransportInschatting.cls.xml	(revision 60034)
@@ -0,0 +1,139 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.TRANSP.VRD.TransportInschatting">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="VerzendLijstNaarVRD">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>XMLBestandsNaam:%String</FormalSpec>
+<Implementation><![CDATA[	Set FtpConfig = ##class(APPS.TRANSP.VRD.FTPConfig).%New().VerplaatsBestandNaarVRD(XMLBestandsNaam)
+]]></Implementation>
+</Method>
+
+<Method name="ConverteerLijstNaarXml">
+<ClassMethod>1</ClassMethod>
+</Method>
+
+<Method name="GeefLijst">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	Set (CONSNr,ORDNr,OLUNr,SOLNr)=""
+	Set (Count1,Count2,Count3,CountArrayVRD)=0
+	kill Array
+	Set CONSNr = 0
+	While $$$HasLength($ORDER(^ORDW("D",CONSNr))) {
+		Set CONSNr =$ORDER(^ORDW("D",CONSNr)) 
+		Set Rec=^ORDW("D",CONSNr)
+		Set KLNr=$PIECE(Rec,"\")
+		
+		Set Status=$PIECE(Rec,"\",20)
+		CONTINUE:Status="" ; Staat W,P,A,B zijn toegelaten
+		Set DueOut=+$PIECE(Rec,"\",3)
+		If CONSNr = "300018" || CONSNr = "300017" {
+			Do ##class(Tools.Wlip).%New(43).String("DueOut"_ DueOut)
+		}
+		CONTINUE:DueOut'=+$HOROLOG ; niet voor vandaag
+		Do ##class(Tools.Wlip).%New(43).String("due out vandaag")
+		Do ##class(Tools.Wlip).%New(43).String("klant "_KLNr)
+		Set Vzw=$PIECE(Rec,"\",2)
+		Do ##class(Tools.Wlip).%New(43).String("Vzw "_Vzw)
+		CONTINUE:Vzw'="DI1"
+		Set Count1=Count1+1 
+		Do ##class(Tools.Wlip).%New(43).String("VOOR CheckOpTransport ")
+		CONTINUE:..CheckOpTransport(KLNr,CONSNr)
+		Set Count2=Count2+1
+		Do ##class(Tools.Wlip).%New(43).String("voor kenmerken")
+		Do ..GetKenmerken(KLNr,CONSNr,.Gewicht,.AantalMaatwerk)
+		Set AdresID=$PIECE($GET(^ORDW("D",CONSNr,"A")),"\",29)
+		Do ##class(Tools.Wlip).%New(43).String("AdresID "_AdresID)
+		Do ##class(Tools.Wlip).%New(43).String("KLNr "_KLNr)
+		Do ##class(Tools.Wlip).%New(43).String("Gewicht "_Gewicht)
+		Do ##class(Tools.Wlip).%New(43).String("AantalMaatwerk "_AantalMaatwerk)
+		Set AantalMaatwerk = 4
+		Set Gewicht = 20
+		Do ##class(Tools.Wlip).%New(43).String("AdresID_KLNr "_AdresID_KLNr)
+		Do ##class(Tools.Wlip).%New(43).String("CONSNr "_CONSNr)
+		Set Array(AdresID_KLNr,CONSNr)=$LISTBUILD(KLNr,AdresID,Gewicht, AantalMaatwerk)
+			Do ##class(Tools.Wlip).%New(43).String(Array(AdresID_KLNr,CONSNr))
+	}
+	Do ##class(Tools.Wlip).%New(43).String("na eerste loop")
+
+	; kleine en geen maatwerk er uit gooien
+	Kill ArrayVRD
+	Set (Key, CONSNr)=""
+	Set Key =$ORDER(Array(Key)) 
+	WHILE ($$$Not(Key="")) {
+		Do ##class(Tools.Wlip).%New(43).String("In tweede loop"_CONSNr)
+		Set KLNr=""
+		Set Gewicht=""
+		Set AantalMaatwerk=""
+		Set CONSNr = 0
+		Set CONSNr =$ORDER(Array(Key,CONSNr))
+		WHILE ($$$Not(CONSNr="")) {
+			Do ##class(Tools.Wlip).%New(43).String("Binnen tweede loop, start derde loop"_CONSNr)
+			Set Gewicht=Gewicht+$LIST(Array(Key,CONSNr),3)
+			Set AantalMaatwerk=AantalMaatwerk+$LIST(Array(Key,CONSNr),4)
+			Set KLNr=$LIST(Array(Key,CONSNr),1)
+			Set AdresID=$LIST(Array(Key,CONSNr),2)
+			Set Adres=$GET(^ORDW("D",CONSNr,"A"))
+			Set CONSNr =$ORDER(Array(Key,CONSNr))
+			Do ##class(Tools.Wlip).%New(43).String("Einde tweede loop, start derde loop"_CONSNr)
+		}
+		
+		Quit:(Gewicht<20)&&($$$Not(AantalMaatwerk)) ; 20Kg en geen maatwerk
+		
+		Do ##class(Tools.Wlip).%New(43).String("array aanvullen"_AdresID)
+		Set ArrayVRD(AdresID)=$LISTBUILD(KLNr,$PIECE(Adres,"\",2,8),AdresID,Gewicht,AantalMaatwerk)
+		Set CountArrayVRD=CountArrayVRD+1
+		Set Key =$ORDER(Array(Key)) 
+	}
+	Do ##class(Tools.Wlip).%New(43).String("na tweede loop")
+	write !
+	zwrite Count1,Count2,CountArrayVRD,ArrayVRD
+	Quit
+]]></Implementation>
+</Method>
+
+<Method name="CheckOpTransport">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>KLNr:%String,CONSNr:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	Do ##class(Tools.Wlip).%New(43).String("CheckOpTransport")
+	Quit $Piece($Get(^KUL(KLNr,"F",CONSNr,1)),"\",8)'=""
+]]></Implementation>
+</Method>
+
+<Method name="GetKenmerken">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>KLNr:%String,COSNr:%String,Gewicht:%Integer,AantalMaatwerk:%Integer</FormalSpec>
+<Implementation><![CDATA[
+	Do ##class(Tools.Wlip).%New(43).String("GetKenmerken")
+	Set (ORDNr,OLUNr,SOLNr)=""
+	Set (Gewicht,AantalMaatwerk)=0
+	
+	Set CONSNr = 0
+	Set CONSNr =$ORDER(^ORDW("D",CONSNr,"D",ORDNr))
+	WHILE ($$$Not(CONSNr="")) {
+		;For Set ORDNr=$O(^ORDW("D",CONSNr,"D",ORDNr)) Quit:ORDNr="" Do
+		Set CONSNr = 0
+		Set CONSNr =$ORDER(^ORDW("D",CONSNr,"D",ORDNr,OLUNr))
+		WHILE ($$$Not(CONSNr="")) {
+		;. For Set OLUNr=$O(^ORDW("D",CONSNr,"D",ORDNr,OLUNr)) Quit:OLUNr="" Do
+			Set Rec=^(OLUNr)
+			Set PRNr=$PIECE(Rec,"\",1)
+			Set Qty=$PIECE(Rec,"\",4)
+			Set ProdGrp=$$PRODGRP^PRODUKT(PRNr)
+			Set:",TBX,LBX,TA.B,KAD,"[(","_ProdGrp_",") AantalMaatwerk=AantalMaatwerk+Qty
+			// TODO $$$PRGet en $$$Gewicht
+			//Set Gewicht=Gewicht+($$$PRGet($$$Gewicht)*Qty/1000)
+			Set Gewicht=Gewicht+(20*Qty/1000)
+		}
+	}
+	Quit
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/TRANSP/VRD/XMLTransportInschattingHelper.cls.xml
===================================================================
diff -u
--- APPS/TRANSP/VRD/XMLTransportInschattingHelper.cls.xml	(revision 0)
+++ APPS/TRANSP/VRD/XMLTransportInschattingHelper.cls.xml	(revision 60034)
@@ -0,0 +1,75 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.TRANSP.VRD.XMLTransportInschattingHelper">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="MaakXMLTransportInschatting">
+<ReturnType>WS.Transsmart.tns.doDelete</ReturnType>
+<Implementation><![CDATA[
+	Set XmlBericht = ##class(APPS.TRANSP.VRD.XML.Go4TMS).%New()
+	Set XmlBericht.envelope = ..GeefEnvelope(Reference)
+		
+	Quit XmlBericht
+]]></Implementation>
+</Method>
+
+<Method name="GeefEnvelope">
+<ReturnType>WS.Transsmart.tns.doDelete</ReturnType>
+<Implementation><![CDATA[
+	Set Enveloppe = ##class(APPS.TRANSP.VRD.XML.envelope).%New()
+	Set Enveloppe.order = ..GeefOrder(Reference)
+		
+	Quit Enveloppe
+]]></Implementation>
+</Method>
+
+<Method name="GeefOrder">
+<ReturnType>WS.Transsmart.tns.doDelete</ReturnType>
+<Implementation><![CDATA[
+	Set Order = ##class(APPS.TRANSP.VRD.XML.order).%New()
+	Set Order.Orderlines = ..GeefOrder(Reference)
+		
+	Quit Order
+]]></Implementation>
+</Method>
+
+<UDLText name="T">
+<Content><![CDATA[
+// Moet een iterator worden, doorgekregen van de GeefLijstmethode
+
+]]></Content>
+</UDLText>
+
+<Method name="GeefOrderLines">
+<FormalSpec>orders:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set AdresId = ""
+	
+	Set Line = ##class(APPS.TRANSP.VRD.XML.line).%New()
+	
+	While $$$HasLength(orders) {
+		
+		
+		//If $$$Not(AdresId = orders.adresid)
+		//{
+			// nieuwe lijn aanmaken
+			Set Line = ##class(APPS.TRANSP.VRD.XML.line).%New()
+		//}
+		
+		// Good
+		Set Good = ##class(APPS.TRANSP.VRD.XML.good).%New()
+		//Good.grossweight = orders.gewicht
+		Set Adres = ##class(APPS.TRANSP.VRD.XML.addr).%New()
+		//Adres ophalen obv orders.adresid en dan hier invullen
+		
+		Set Line.addrs = Adres
+		Set Line.goods = Good
+		Do Line.goods.Insert(Good)
+		
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>