Index: vhPowerTools/APPS/EC/ExterneVerkoopPowerService.cls.xml =================================================================== diff -u -r61443 -r63672 --- vhPowerTools/APPS/EC/ExterneVerkoopPowerService.cls.xml (.../ExterneVerkoopPowerService.cls.xml) (revision 61443) +++ vhPowerTools/APPS/EC/ExterneVerkoopPowerService.cls.xml (.../ExterneVerkoopPowerService.cls.xml) (revision 63672) @@ -92,17 +92,36 @@ 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 { - Do ..Logger.Info("De KlantBestellingMelder heeft de verwerker (shop-personality '"_Offerte.GeefPersonality().GeefCode()_"') verwittigd.") - Write !,"De KlantBestellingMelder heeft de verwerker (shop-personality '"_Offerte.GeefPersonality().GeefCode()_"') verwittigd.",! + If (..IsVerwittigVerwerkerMogelijk(Offerte)) { + Set KlantBestellingMelder = ##class(APPS.VKP.Offerte.impl.BesteldeOfferteMelder).%New() + Do KlantBestellingMelder.VerwittigVerwerker(Offerte) + If InteractieMetUser { + Do ..Logger.Info("De KlantBestellingMelder heeft de verwerker (shop-personality '"_Offerte.GeefPersonality().GeefCode()_"') verwittigd.") + Write !,"De KlantBestellingMelder heeft de verwerker (shop-personality '"_Offerte.GeefPersonality().GeefCode()_"') verwittigd.",! + } } + Else { + #dim MeldingTekst As %String = "ERROR : Deze offerte is NIET consistent met de normale bestellingsflow, want ze is niet gekoppeld aan een leveranciersofferte." + Set MeldingTekst = MeldingTekst _ $$$CRLF _ " !!! Kijk de Offerte-ketting na (via SQL) en in VHISIE4 (bij indirecte winkelmandjes)." + Set MeldingTekst = MeldingTekst _ $$$CRLF _ " !!! Indien nodig, gebruik BestelAfhandelingOpnieuwVerwerken met RetryMetRaiseEvent=1." + Do ..Logger.Info("BestelAfhandelingOpnieuwVerwerken",MeldingTekst) + If InteractieMetUser { + Write !!,MeldingTekst,!! + } + } } } ]]> + +Offerte:APPS.VKP.impl.Offerte +1 +%Boolean + + + Deze method is alleen zinvol voor VH-offertes. Dus enkel VH-OfferteID invullen!