Index: vhPowerTools/APPS/EC/ExterneVerkoopPowerService.cls.xml
===================================================================
diff -u -r54208 -r54447
--- vhPowerTools/APPS/EC/ExterneVerkoopPowerService.cls.xml	(.../ExterneVerkoopPowerService.cls.xml)	(revision 54208)
+++ vhPowerTools/APPS/EC/ExterneVerkoopPowerService.cls.xml	(.../ExterneVerkoopPowerService.cls.xml)	(revision 54447)
@@ -62,6 +62,45 @@
 ]]></Implementation>
 </Method>
 
+<Method name="IntractoMelderBestelStatussenOpnieuwDoorgeven">
+<Description>
+Deze method is alleen zinvol voor VH-offertes.  Dus enkel VH-OfferteID invullen! 
+Oproepen via : 
+    Do ##class(vhPowerTools.APPS.EC.ExterneVerkoopPowerService).%New().IntractoMelderBestelStatussenOpnieuwDoorgeven(OfferteID) </Description>
+<FormalSpec>OfferteID:%String</FormalSpec>
+<Implementation><![CDATA[
+	#dim Offerte As APPS.VKP.impl.Offerte = ##class(APPS.VKP.impl.Offerte).OpenId( OfferteID )
+	#dim PersonalityVanOfferte As DOM.common.enu.Personality = ##class(DOM.common.enu.Personality).VanHoecke()   ; Ter controle, anders loopt het mis bij Status vs ExterneID. 
+	
+	If $$$Not(Offerte.IsVhisie4()) {
+		Do ##class(TECH.Exceptions.InvalidInputException).Throw("Bestel StatusUpdate is niet mogelijk, want offerte '"_OfferteID_"' is geen Vhisie4-order.")
+	}
+	If $$$Not(Offerte.GeefPersonalityID() = PersonalityVanOfferte) {
+		Do ##class(TECH.Exceptions.InvalidInputException).Throw("Bestel StatusUpdate is niet mogelijk, want offerte '"_OfferteID_"' is niet voor PersonalityId '"_PersonalityVanOfferte_"' .")
+	}
+	If (Offerte.GeefKlantBestellingId() = "") {
+		Do ##class(TECH.Exceptions.InvalidInputException).Throw("Bestel StatusUpdate is niet mogelijk, want offerte '"_OfferteID_"' heeft geen KlantBestelling, m.a.w is niet gekoppeld aan een Handel.")
+	}
+	If Offerte.GeefBestelStatus() = ##class(APPS.VKP.Offerte.enu.BestelStatus).Offerte() {
+		Do ##class(TECH.Exceptions.InvalidInputException).Throw("Bestel StatusUpdate is niet mogelijk, want offerte '"_OfferteID_"' is nog niet besteld.")
+	}
+	If Offerte.GeefBestelStatus() = ##class(APPS.VKP.Offerte.enu.BestelStatus).Doorbesteld() {
+		Do ##class(TECH.Exceptions.InvalidInputException).Throw("Bestel StatusUpdate is niet mogelijk, want offerte '"_OfferteID_"' is reeds DOORBESTELD.")
+	}
+	
+	#dim EDInr As %String = Offerte.GeefEDINummerVoorEindklant()
+	#dim VHOfferteExterneId As %String = Offerte.GeefExterneId()
+	Set IntractoMelder = ##class(WSimpl.EC.Unishop.OrderConfirmation.Service.IntractoMelder).%New()	
+
+	Write !,"Offerte met externe ID '"_EDInr_"' (voor handel) wordt op status '2' {ERP}         gezet ... "
+	Do IntractoMelder.UpdateCartStatus(EDInr,##class(WSimpl.EC.Unishop.OrderConfirmation.Service.IntractoMelder.enu.Status).ERP())
+	Write " KLAAR. "
+	Write !,"Offerte met externe ID '"_VHOfferteExterneId_"' (voor VH)     wordt op status '3' {KlaarVoorOV} gezet ... "
+	Do IntractoMelder.UpdateCartStatus(VHOfferteExterneId,##class(WSimpl.EC.Unishop.OrderConfirmation.Service.IntractoMelder.enu.Status).KlaarVoorOV())
+	Write " KLAAR. "
+]]></Implementation>
+</Method>
+
 <Method name="ZetOfferteOpNietBesteld">
 <Description>
 Do ##class(vhPowerTools.APPS.EC.ExterneVerkoopPowerService).%New().ZetOfferteOpNietBesteld( ??? )