Index: vhPowerTools/APPS/EC/ExterneVerkoopPowerService.cls.xml =================================================================== diff -u -r54447 -r55902 --- vhPowerTools/APPS/EC/ExterneVerkoopPowerService.cls.xml (.../ExterneVerkoopPowerService.cls.xml) (revision 54447) +++ vhPowerTools/APPS/EC/ExterneVerkoopPowerService.cls.xml (.../ExterneVerkoopPowerService.cls.xml) (revision 55902) @@ -52,11 +52,18 @@ } } Else { - Set KlantBestellingMelder = ##class(APPS.VKP.Offerte.impl.BesteldeOfferteMelder).%New() - Do KlantBestellingMelder.VerwittigVerwerker(Offerte) - - If InteractieMetUser { - Write !,"De KlantBestellingMelder heeft de verwerker (shop-personality '"_Offerte.GeefPersonality().GeefCode()_"') verwittigd.",! + If Offerte.GeefAutomatischeVerwerking() { + Set OrderSluiter = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.BestelWinkelkar.OrderSluiter).%New() + Do OrderSluiter.MaakEnSluitOrderViaOfferteID(Offerte.GeefID()) + If InteractieMetUser { + Write !,"Het order '"_ Offerte.GeefOrderID() _"' is automatisch aangemaakt en gesloten voor shop-personality '"_Offerte.GeefPersonality().GeefCode()_". Kijk in vhLib.Logging voor resultaat!",! + } + } Else { + Set KlantBestellingMelder = ##class(APPS.VKP.Offerte.impl.BesteldeOfferteMelder).%New() + Do KlantBestellingMelder.VerwittigVerwerker(Offerte) + If InteractieMetUser { + Write !,"De KlantBestellingMelder heeft de verwerker (shop-personality '"_Offerte.GeefPersonality().GeefCode()_"') verwittigd.",! + } } } ]]>