Index: APPS/LEV/LeverancierService.cls.xml
===================================================================
diff -u -r1085 -r1087
--- APPS/LEV/LeverancierService.cls.xml	(.../LeverancierService.cls.xml)	(revision 1085)
+++ APPS/LEV/LeverancierService.cls.xml	(.../LeverancierService.cls.xml)	(revision 1087)
@@ -1,5 +1,5 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel) 5.0.21 (Build 6408U)" ts="2011-05-02 11:58:50">
 <Class name="APPS.LEV.LeverancierService">
 <Description><![CDATA[
 JBL + 2011-04-18 
@@ -13,6 +13,8 @@
 <IncludeCode>TECH.Error</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject</Super>
+<TimeChanged>62213,43129.447108</TimeChanged>
+<TimeCreated>62203,48816.380487</TimeCreated>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Method name="GeefLeverancierLijst">
@@ -101,7 +103,7 @@
 	Set dtoLeverancierId = ..Leverancier2LeverancierId(Leverancier)			
 	Do dtoLeverancierBestand.Leveranciers.Insert(dtoLeverancierId)		
 	
-	set LeverancierBestand = ..ExportXML(LeverancierBestand, Bestandsnaam)
+	set LeverancierBestand = ..ExportXML(dtoLeverancierBestand, Bestandsnaam)
 	
 	$$$TECHErrorTrapOff
 	Quit LeverancierBestand
@@ -219,4 +221,5 @@
 </Data>
 </Storage>
 </Class>
+<Checksum value="3698854408"/>
 </Export>