Index: zTryout/TVE/Vanalles.cls.xml
===================================================================
diff -u -r60150 -r66425
--- zTryout/TVE/Vanalles.cls.xml	(.../Vanalles.cls.xml)	(revision 60150)
+++ zTryout/TVE/Vanalles.cls.xml	(.../Vanalles.cls.xml)	(revision 66425)
@@ -4,6 +4,28 @@
 <IncludeCode>Prod.Product</IncludeCode>
 <Super>TECH.RegisteredObject</Super>
 
+<Method name="Export">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>pFile</FormalSpec>
+<Implementation><![CDATA[
+	set filename = "c:\temp\exportglas.txt"
+	open filename:"nWS"
+	use filename
+	
+	 Set node = $Query(^HADPR("P"))
+	 While (node '= "") {
+		 set prnr = $E(node,12,*)
+		 set prnr = $E(prnr,1,$f(prnr,",")-2)
+	     if $F(node,prnr_",""G")>0 {
+	     	Write "Set "_node_ "="""_$get(@node)_"""",!
+	     }
+	     Set node = $Query(@node)
+	 }
+	 
+	 close filename
+]]></Implementation>
+</Method>
+
 <Method name="BepaalTransportData">
 <FormalSpec>KlantId:DOM.common.PartijID</FormalSpec>
 <Implementation><![CDATA[