Index: AXimpl/Dynamics/SalesOrderIn/Converter/Mailer.cls.xml =================================================================== diff -u -r48546 -r48549 --- AXimpl/Dynamics/SalesOrderIn/Converter/Mailer.cls.xml (.../Mailer.cls.xml) (revision 48546) +++ AXimpl/Dynamics/SalesOrderIn/Converter/Mailer.cls.xml (.../Mailer.cls.xml) (revision 48549) @@ -46,10 +46,10 @@ #dim Titel As %String = ##class(TECH.StringUtils).BuildText("Voor order '{0}' van klant '{1}' met KlantId '{2}' is er een orderlijn geblokkeerd.", Order.GeefID(), Klant.GeefNaam(), Klant.GeefID()) - #dim Inhoud As %String = ##class(TECH.StringUtils).BuildText("Voor klant '{0}' met KlantId '{1}'", Klant.GeefNaam(), Klant.GeefID()) - Set Inhoud = Inhoud _##class(TECH.StringUtils).BuildText(" is er op datum en tijd {0}" _$$$CRLF, ..DateTimeAPI.CurrentTimeStamp()) - Set Inhoud = Inhoud _##class(TECH.StringUtils).BuildText("een order '{0}' geïmporteerd van Ax naar admin ", Order.GeefID()) - Set Inhoud = Inhoud _##class(TECH.StringUtils).BuildText("waarop een orderlijn met inventransid '{0}' reeds geblokkeerd is." _$$$CRLF, InventTransId) + #dim Inhoud As %String = ##class(TECH.StringUtils).BuildText("Voor klant '{0}' met KlantId '{1}' ", Klant.GeefNaam(), Klant.GeefID()) + Set Inhoud = Inhoud _##class(TECH.StringUtils).BuildText("is er op datum en tijd {0}" _$$$CRLF, ..DateTimeAPI.CurrentTimeStamp()) + Set Inhoud = Inhoud _##class(TECH.StringUtils).BuildText("een order '{0}' geïmporteerd van Ax naar admin ", Order.GeefID()) + Set Inhoud = Inhoud _##class(TECH.StringUtils).BuildText("waarop een orderlijn met inventransid '{0}' reeds geblokkeerd is." _$$$CRLF, InventTransId) Set Inhoud = Inhoud _"Dit wil zeggen dat het orderlijn reeds klaar staat voor picking of in verwerking is bij productie " Set Inhoud = Inhoud _"en er geen update uitgevoerd wordt op deze lijn." _$$$CRLF _$$$CRLF If (Order.GeefAantalLijnenMetAxInventTransId(InventTransId) > 1){ @@ -68,9 +68,9 @@ #dim Titel As %String = ##class(TECH.StringUtils).BuildText("Voor order '{0}' van klant '{1}' met KlantId '{2}' is er een fout opgetreden.",OrderID, Klant.GeefNaam(), Klant.GeefID()) - #dim Inhoud As %String = ##class(TECH.StringUtils).BuildText("Voor klant '{0}' met KlantId '{1}'", Klant.GeefNaam(), Klant.GeefID()) - Set Inhoud = Inhoud _##class(TECH.StringUtils).BuildText(" is er op datum en tijd {0}"_$$$CRLF, ..DateTimeAPI.CurrentTimeStamp()) - Set Inhoud = Inhoud _##class(TECH.StringUtils).BuildText("een fout opgetreden bij order '{0}' tijdens het importeren van AX naar admin." _$$$CRLF, OrderID) + #dim Inhoud As %String = ##class(TECH.StringUtils).BuildText("Voor klant '{0}' met KlantId '{1}' ", Klant.GeefNaam(), Klant.GeefID()) + Set Inhoud = Inhoud _##class(TECH.StringUtils).BuildText("is er op datum en tijd {0}"_$$$CRLF, ..DateTimeAPI.CurrentTimeStamp()) + Set Inhoud = Inhoud _##class(TECH.StringUtils).BuildText("een fout opgetreden bij order '{0}' tijdens het importeren van AX naar admin." _$$$CRLF, OrderID) Set Inhoud = Inhoud _"Mogelijks is het order helemaal niet of gedeeltelijk aangemaakt in admin." _$$$CRLF _$$$CRLF Set Inhoud = Inhoud _Exceptie.GeefOmschrijving() Set Inhoud = Inhoud _Exceptie.GeefExtraInfo()