Index: zTryout/TVE/Vanalles.cls.xml
===================================================================
diff -u -r51951 -r57777
--- zTryout/TVE/Vanalles.cls.xml	(.../Vanalles.cls.xml)	(revision 51951)
+++ zTryout/TVE/Vanalles.cls.xml	(.../Vanalles.cls.xml)	(revision 57777)
@@ -4,6 +4,29 @@
 <IncludeCode>Prod.Product</IncludeCode>
 <Super>TECH.RegisteredObject</Super>
 
+<Method name="BepaalTransportData">
+<FormalSpec>KlantId:DOM.common.PartijID</FormalSpec>
+<Implementation><![CDATA[
+	#dim Rit As DOM.TRANSP.impl.DataM.DataMRit
+	#dim RitId As %String = 1
+	
+	For  { Set RitId = $Order(^TRANSP("D",RitId)) Quit:(RitId="")
+		Set Rit = ##class(DOM.TRANSP.impl.DataM.DataMRit).%New(RitId)
+		If (##class(DOM.TRANSP.enu.Transporteur).TTC() = Rit.GeefTransporteur()) {
+			#dim LeveringIterator = Rit.GeefLeveringIterator()
+			#dim Levering As DOM.TRANSP.impl.DataM.DataMLevering
+			While LeveringIterator.HasNext() {
+				Set Levering = LeveringIterator.Next()
+				If $zdth(Rit.GeefOphaalTimeStamp(),3)>65014 {
+					w !,Rit.GeefOphaalTimeStamp()_";"_Levering.GeefRitID()_";"_Levering.GeefGeleverdAanKlantID()_";"_Rit.GeefGewichtInGram()_";"_Levering.GeefAantalColli()_";"_Levering.GeefAantalEuroPalletten()_";"_Levering.GeefAantalHalveEuroPalletten()_";"_Levering.GeefAantalLanggoed()_";"
+				}
+			}
+		}
+	}
+	Quit ""
+]]></Implementation>
+</Method>
+
 <Method name="KlantDataJuistZetten">
 <ClassMethod>1</ClassMethod>
 <Implementation><![CDATA[