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