Index: AXimpl/Controle/Order/Ax/AxOrderLijnConverter.cls.xml =================================================================== diff -u -r49225 -r49369 --- AXimpl/Controle/Order/Ax/AxOrderLijnConverter.cls.xml (.../AxOrderLijnConverter.cls.xml) (revision 49225) +++ AXimpl/Controle/Order/Ax/AxOrderLijnConverter.cls.xml (.../AxOrderLijnConverter.cls.xml) (revision 49369) @@ -8,15 +8,11 @@ AXimpl.Controle.Order.OrderLijn 1 + +%Library.GlobalCharacterStream +1 + + AXimpl.Formatter 1 @@ -91,10 +96,10 @@ 0) { - Set Inhoud = "Beste voorraadverantwoordelijke, "_$$$CRLF_$$$CRLF_"Gelieve onderstaand de lijst te vinden van producten waarvoor er een verschil in stock is opgemerkt tussen Admin en AX: " + Do ..InhoudStream.WriteLine("Beste voorraadverantwoordelijke, "_$$$CRLF_$$$CRLF_"Gelieve onderstaand de lijst te vinden van producten waarvoor er een verschil in stock is opgemerkt tussen Admin en AX: " _$$$CRLF_$$$CRLF _##class(TECH.StringUtils).AddTrailingSpace("ProductNr | ",12) _##class(TECH.StringUtils).AddTrailingSpace("Admin IdentNr | ",16) @@ -103,7 +108,7 @@ _##class(TECH.StringUtils).AddTrailingSpace("QtyVH in Admin | ",17) _##class(TECH.StringUtils).AddTrailingSpace("QtyVH op OrderLijnen | ",23) _##class(TECH.StringUtils).AddTrailingSpace("AxConfigIds",30) - _$$$CRLF_$$$CRLF + _$$$CRLF) Set OngelijkeStockLijstIterator = ##class(TECH.ListIterator).%New(..OngelijkeStockLijst) While (OngelijkeStockLijstIterator.HasNext()) { @@ -115,38 +120,38 @@ #dim QtyVHInAdmin As %String = StockVerschilRecord.QtyVHInAdmin_" | " #dim QtyVHOpOrderLijnen As %String = StockVerschilRecord.QtyVHOpOrderLijnen_" | " #dim AxConfigIds As %String = StockVerschilRecord.AxConfigIds - Set Inhoud = Inhoud - _##class(TECH.StringUtils).AlignRight(ProductNr," ",12) + Do ..InhoudStream.WriteLine( + ##class(TECH.StringUtils).AlignRight(ProductNr," ",12) _##class(TECH.StringUtils).AlignRight(IdentNummer," ",16) _##class(TECH.StringUtils).AlignRight(AxIdentNummer," ",15) _KortTekst _##class(TECH.StringUtils).AlignRight(QtyVHInAdmin," ",17) _##class(TECH.StringUtils).AlignRight(QtyVHOpOrderLijnen," ",23) - _AxConfigIds_$$$CRLF + _AxConfigIds) } } Else { - Set Inhoud = "Beste voorraadverantwoordelijke, "_$$$CRLF_$$$CRLF_"Er zijn geen producten waarvoor er een verschil in stock is opgemerkt tussen Admin en AX. " - _$$$CRLF_$$$CRLF + Do ..InhoudStream.WriteLine("Beste voorraadverantwoordelijke, "_$$$CRLF_$$$CRLF_"Er zijn geen producten waarvoor er een verschil in stock is opgemerkt tussen Admin en AX. " + _$$$CRLF_$$$CRLF) } - Set Inhoud = Inhoud_$$$CRLF_"Met vriendelijke groet, "_$$$CRLF_$$$CRLF_"ICT"_$$$CRLF + Do ..InhoudStream.WriteLine($$$CRLF_"Met vriendelijke groet, "_$$$CRLF_$$$CRLF_"ICT"_$$$CRLF) - Do ..VerstuurMail(Inhoud) + Do ..VerstuurMail(..InhoudStream) Quit ]]> -Inhoud:%String +InhoudStream:%Library.GlobalCharacterStream 1 ") Do MailMock.VerwachtMethodCall("VoegToeOntvanger", "Stockbeheer@VanHoecke.Be") Do MailMock.VerwachtMethodCall("ZetOnderwerp", "Overzicht verschillen stock tussen AX en Caché") - Do MailMock.VerwachtMethodCall("ZetInhoud", $$$ElkeWaarde) + Do MailMock.VerwachtMethodCall("ZetInhoudStream", $$$ElkeWaarde) Set MailApi = ##class(vhTest.Mock.TECH.Mail.MailAPI).%New() Do MailApi.VerwachtMethodCall("MaakNieuwMail").DanReturn(MailMock).ExactAantalKeer(1) Index: AXimpl/Controle/Order/OrderLijnControleGenerator.cls.xml =================================================================== diff -u -r49289 -r49369 --- AXimpl/Controle/Order/OrderLijnControleGenerator.cls.xml (.../OrderLijnControleGenerator.cls.xml) (revision 49289) +++ AXimpl/Controle/Order/OrderLijnControleGenerator.cls.xml (.../OrderLijnControleGenerator.cls.xml) (revision 49369) @@ -73,15 +73,11 @@ 1