Index: PVE/XML/Aventos.cls.xml
===================================================================
diff -u -r734 -r1019
--- PVE/XML/Aventos.cls.xml	(.../Aventos.cls.xml)	(revision 734)
+++ PVE/XML/Aventos.cls.xml	(.../Aventos.cls.xml)	(revision 1019)
@@ -1,108 +1,4 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-01-27 17:01:05">
-<Class name="PVE.XML.Aventos">
-<ProcedureBlock>1</ProcedureBlock>
-<Super>%RegisteredObject,%XML.Adaptor</Super>
-<TimeChanged>61712,38862.353884</TimeChanged>
-<ClassDefinitionError>0</ClassDefinitionError>
-
-<Property name="Lijst">
-<Type>BL.MB.UGLYPicking.Aventosbak.Doc.Aventos</Type>
-<Collection>list</Collection>
-</Property>
-
-<Method name="ImportXML">
-<ClassMethod>1</ClassMethod>
-<Implementation><![CDATA[
-	     
-    Set reader = ##class(%XML.Reader).%New()
-
-    // Begin processing of the file
-
-    set sc=reader.OpenFile("\\notes01\shared\P V E\aventostemp_30186.xml")
-    If $$$ISERR(sc) Do WARN^vhTXTPOP($$ParseStatus^vhLib(sc),"Fout bij inlezen XML") Quit
-    // Associate a class name with the XML element name
-    w "OK",!
-    Do reader.Correlate("DOCS","BL.MB.UGLYPicking.Aventosbak.Doc.Aventos")
-    If $$$ISERR(sc) Do WARN^vhTXTPOP($$ParseStatus^vhLib(sc),"Fout bij inlezen XML")
-    
-    // Read objects from xml file
-    set i=0
-    For  Quit:'(reader.Next(.object,.sc))  Do
-    . set Aantal=object.Bakken.Count()
-    . For i=1:1:Aantal Do
-    . . set Bak=object.Bakken.GetAt(i)
-    . . w Bak.VolgNr," ",Bak.TransportRef,!,!
-    . . For j=1:1:Bak.Vakken.Count() Do
-    . . . Set Vak=Bak.Vakken.GetAt(j)
-    . . . w $J(Vak.Nr,3),$J(Vak.KlantRitNr,20),$J(Vak.KlantProductCode,20),$J(Vak.ProductReferentie.GetAt(1),25),$J(Vak.VolgNr,5),!
-    . . . f k=2:1:Vak.ProductReferentie.Count() w $J(Vak.ProductReferentie.GetAt(k),68),!
-    . . w !,!
-    . ;if $system.Status.IsError(savestatus) Do WARN^vhTXTPOP($$ParseStatus^vhLib(Status),"Fout bij invullen bakken voor aventosproducten")
-    // If error found during processing, show it
-    If $system.Status.IsError(sc) Do WARN^vhTXTPOP($$ParseStatus^vhLib(sc),"Fout bij inlezen XML")
-]]></Implementation>
-</Method>
-
-<Method name="ConvertToXL">
-<ClassMethod>1</ClassMethod>
-<Implementation><![CDATA[
-	Set bl=..%New()
-	Set reader = ##class(%XML.Reader).%New()
-
-    ; Begin import van het XML-bestand
-
-    set sc=reader.OpenFile("\\notes01\shared\P V E\aventostemp_30186.xml")
-    If $$$ISERR(sc) Do WARN^vhTXTPOP($$ParseStatus^vhLib(sc),"Fout bij inlezen XML") Quit
-    
-    ; Associate a class name with the XML element name
-    Do reader.Correlate("DOCS","BL.MB.UGLYPicking.Aventosbak.Doc.Aventos")
-    If $$$ISERR(sc) Do WARN^vhTXTPOP($$ParseStatus^vhLib(sc),"Fout bij inlezen XML")
-    
-    ;Inlezen van objecten van een xml-bestand
-    set i=0
-    For  Quit:'(reader.Next(.object,.sc))  Do
-    . Do bl.Lijst.Insert(object)
-    If $system.Status.IsError(sc) Do WARN^vhTXTPOP($$ParseStatus^vhLib(sc),"Fout bij inlezen XML")
-    Do reader.Close()
-   	
-   	;opslaan in een excelbestand
-   	Set Dev=$$OPEN^vhDEV(,"ExportXL.csv","W","T")
-	Use Dev
-	For nr=1:1:bl.Lijst.Count() Do
-	. Set AventosBak=bl.Lijst.GetAt(nr)
-	. set Aantal=AventosBak.Bakken.Count()
-    . For i=1:1:Aantal Do
-    . . set Bak=AventosBak.Bakken.GetAt(i)
-    . . w "Transportrefernetie;",Bak.TransportRef,!
-    . . W "Verpakkingsnummer;",Bak.VolgNr,!,!
-    . . W "Vak;Koker;RitNr;Product;Product referentie van Hoecke;VolgNr",!
-    . . For j=1:1:Bak.Vakken.Count() Do
-    . . . Set Vak=Bak.Vakken.GetAt(j)
-    . . . w Vak.Nr,";",Vak.Koker,";",Vak.KlantRitNr,";",Vak.KlantProductCode,";",Vak.ProductReferentie.GetAt(1),";",Vak.VolgNr,!
-    . . . f k=2:1:Vak.ProductReferentie.Count() w ";;;;",Vak.ProductReferentie.GetAt(k),!
-	. . w !,!
-	Do CLOSE^vhDEV(Dev)
-]]></Implementation>
-</Method>
-
-<Method name="ShowElements">
-<ClassMethod>1</ClassMethod>
-<Implementation><![CDATA[
-    // Create an instance of %XML.TextReader (returned by reference)
-    Set sc = ##class(%XML.TextReader).ParseFile("\\notes01\shared\P V E\aventostemp_30186.xml",.reader)
-    
-    // Read all elements within the document
-    If ($$$ISOK(sc)) Do
-    . For  Quit:'(reader.Read())  Do
-    . . if reader.Value'="" w ": ",reader.Value
-    . . ;if reader.Value'="" w reader.NodeType,! r test
-    . . ;if reader.NodeType'="" w "..",reader.NodeType,!
-    . . if reader.NodeType="element" w !,reader.Name
-    . . 
-    . . ;W reader.NodeType," ",reader.Name," ",reader.Value,!
-]]></Implementation>
-</Method>
-</Class>
-<Checksum value="2543179861"/>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-19 16:14:43">
+<Checksum value="4124772870"/>
 </Export>