Index: vhTest/Integratie/Unishop/PurchaseOrderService001/Service/Test.cls.xml
===================================================================
diff -u -r35246 -r35404
--- vhTest/Integratie/Unishop/PurchaseOrderService001/Service/Test.cls.xml	(.../Test.cls.xml)	(revision 35246)
+++ vhTest/Integratie/Unishop/PurchaseOrderService001/Service/Test.cls.xml	(.../Test.cls.xml)	(revision 35404)
@@ -47,18 +47,17 @@
 
 <Method name="Test">
 <Implementation><![CDATA[
-    do ..ServiceRequest()
-    
+	do ..ServiceRequest()
     do ..DataExporteerder.ResetBestandTeller()
-    do ..ResetPersistentData()
-    
     do ..XmlProcessing()
 	
+    do ..ResetPersistentData()
+    
 	set FileUtils = ##class(TECH.impl.FileUtils).%New()
     do $$$AssertTrue(FileUtils.ZijnBestandenInMapGelijk(..GeefBestandLocatie("XmlExport"), ..GeefBestandLocatie("Service")))
     
     do $$$AssertCorrectGemaakteBestanden(..GeefBestandLocatie("XmlExport"))
-    do $$$AssertCorrectGemaakteBestanden(..GeefBestandLocatie("Service"))
+    do $$$AssertCorrectGemaakteBestanden(..GeefBestandLocatie("Service"))   ; reeds gecontroleerd in method ..ServiceRequest()
 ]]></Implementation>
 </Method>
 
@@ -81,16 +80,19 @@
 	#dim DoorbesteldeOfferte As APPS.EC.dto.Offerte = ..ExterneVerkoopService.GeefOfferteEnHerberekenIndienNodig(2)
 	do ##class(vhTest.Utils.APPC.EC.dto.Offerte).VerwijderPersistenteIDVanOfferteDto(DoorbesteldeOfferte)
 	do ..DataExporteerder.ExporteerDataTransferObject(DoorbesteldeOfferte, "DoorbesteldeOfferte.xml","XmlExport")
+	
+    #dim Offerte1 As APPS.EC.dto.Offerte = ##class(APPS.ApplicatieContext).Instance().GeefVerkoopAPI().GeefOfferteService().GeefOfferte(1)
+    Do ##class(APPS.VKP.Offerte.impl.BesteldeOfferteMelderSFS).%New().Meld(Offerte1)
 ]]></Implementation>
 </Method>
 
 <Method name="ServiceRequest">
 <Private>1</Private>
 <Implementation><![CDATA[
 	#dim MockHttpPost As vhTest.Mock.TECH.Http.HttpAPI = ##class(vhTest.Mock.TECH.Http.HttpAPI).MockInstance()
-    set FakeHttpPoster = ##class(TECH.Http.impl.PosterFileDumper).%New(..GeefBestandLocatie("Service"))
-    do MockHttpPost.IndienMethodCall("GeefHttpPoster").DanReturn(FakeHttpPoster)
-
+	set FakeHttpPoster = ##class(TECH.Http.impl.PosterFileDumper).%New(..GeefBestandLocatie("Service"))
+	do MockHttpPost.IndienMethodCall("GeefHttpPoster").DanReturn(FakeHttpPoster)
+	
 	set Request = ##class(EXT.Unishop.PurchaseOrder001.CreateOrder.Request).%New()
 	set Request.Merkteken = "3}Z7Mb-(8aP*P/[]"
 	
@@ -115,12 +117,12 @@
 
 	set Service = ##class(EXT.Unishop.PurchaseOrder001.Service).%New()
 	#dim Response As EXT.Unishop.PurchaseOrder001.CreateOrder.Response = Service.CreateOrder(Request)
-	
+
 	if $$$AssertEquals(Response.OfferteID,1) {
 		#dim Offerte As APPS.EC.dto.Offerte = ..ExterneVerkoopService.GeefOfferteEnHerberekenIndienNodig(1)
 		do ##class(vhTest.Utils.APPC.EC.dto.Offerte).VerwijderPersistenteIDVanOfferteDto(Offerte)
 		do ..DataExporteerder.ExporteerDataTransferObject(Offerte, "Offerte.xml" , "Service")
-	
+
 		#dim DoorbesteldeOfferte As APPS.EC.dto.Offerte = ..ExterneVerkoopService.GeefOfferteEnHerberekenIndienNodig(2)
 		do ##class(vhTest.Utils.APPC.EC.dto.Offerte).VerwijderPersistenteIDVanOfferteDto(DoorbesteldeOfferte)
 		do ..DataExporteerder.ExporteerDataTransferObject(DoorbesteldeOfferte, "DoorbesteldeOfferte.xml" , "Service")