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!