Index: AXimpl/Dynamics/InventoryOut/SyncAll.cls.xml
===================================================================
diff -u -r49027 -r49031
--- AXimpl/Dynamics/InventoryOut/SyncAll.cls.xml	(.../SyncAll.cls.xml)	(revision 49027)
+++ AXimpl/Dynamics/InventoryOut/SyncAll.cls.xml	(.../SyncAll.cls.xml)	(revision 49031)
@@ -13,6 +13,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="OngelijkeStockProductNrLijst">
+<Type>%ListOfDataTypes</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="AXimplFormatter">
 <Type>AXimpl.Formatter</Type>
 <Private>1</Private>
@@ -48,8 +53,13 @@
 <Private>1</Private>
 </Property>
 
+<Property name="MailApi">
+<Type>TECH.Mail.MailAPI</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>Generator:AXimpl.Generator,ProductIterator:AXimpl.Admin.DOM.PM.ProductIterator,BundelGrootte:%Integer=90,MaatwerkIterator:AXimpl.Dynamics.InventoryOut.MaatwerkIterator,PRNrAxConfigIdRepository:AXimpl.Dynamics.InventoryOut.PRNrAxConfigIdVoorraadHistoriekRepository,AXimplFormatter:AXimpl.Formatter,ProductRepository:Prod.ProductRepository,AxInventSyncCreator:AXimpl.Dynamics.InventoryOut.Converter.AxInventSyncCreator</FormalSpec>
+<FormalSpec>Generator:AXimpl.Generator,ProductIterator:AXimpl.Admin.DOM.PM.ProductIterator,BundelGrootte:%Integer=90,MaatwerkIterator:AXimpl.Dynamics.InventoryOut.MaatwerkIterator,PRNrAxConfigIdRepository:AXimpl.Dynamics.InventoryOut.PRNrAxConfigIdVoorraadHistoriekRepository,AXimplFormatter:AXimpl.Formatter,ProductRepository:Prod.ProductRepository,AxInventSyncCreator:AXimpl.Dynamics.InventoryOut.Converter.AxInventSyncCreator,MailApi:TECH.Mail.MailAPI=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -62,8 +72,10 @@
 	Set ..PRNrAxConfigIdRepository = $$$Inject(PRNrAxConfigIdRepository, ##class(AXimpl.Dynamics.InventoryOut.PRNrAxConfigIdVoorraadHistoriekRepository).%New())
 	Set ..AXimplFormatter = $$$Inject(AXimplFormatter, ##class(AXimpl.Formatter).%New())
 	Set ..AxInventSyncCreator = $$$Inject(AxInventSyncCreator, ##class(AXimpl.Dynamics.InventoryOut.Converter.AxInventSyncCreator).%New())
+	Set ..MailApi = $$$Inject(MailApi, ##class(TECH.Mail.impl.MailAPI).%New())
 	Set ..BundelGrootte = BundelGrootte
 	Set ..OngelijkeStockLijst = ##class(%ListOfDataTypes).%New()
+	Set ..OngelijkeStockProductNrLijst = ##class(%ListOfDataTypes).%New()
 	
 	Quit $$$OK
 ]]></Implementation>
@@ -125,7 +137,10 @@
 			Set BundelTeller = 0
 		}
 	}
-	Do ..MailVoorraadbeheer()
+	
+	If (..OngelijkeStockLijst.Count() > 0) {
+		Do ..MailVoorraadbeheer()
+	}
 		
 	Quit
 ]]></Implementation>
@@ -135,19 +150,20 @@
 <FormalSpec>PRNr:%String,AxMaatwerkGenerischItemId:%String,QtyVHPerProductNr:%String</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	#dim StockOrderLijnen As %String = ..AXimplFormatter.FormatInventSyncProductQuantity(QtyVHPerProductNr)
+	#dim QtyVHOpOrderLijnen As %String = ..AXimplFormatter.FormatInventSyncProductQuantity(QtyVHPerProductNr)
 	#dim InventSyncObject As AXif.Dynamics.Inventory.MessageParts.AxdEntityInventSync = ..AxInventSyncCreator.MaakInventSync(PRNr)
-	#dim StockAdmin As %String = InventSyncObject.QtyVH
+	#dim QtyVHInAdmin As %String = InventSyncObject.QtyVH
 	#dim Product As Prod.Product = ..ProductRepository.GeefViaID(PRNr)
 		
-	If $$$Not(StockAdmin = StockOrderLijnen) {
+	If ($$$Not(QtyVHInAdmin = QtyVHOpOrderLijnen) && $$$Not(##class(TECH.ListUtils).Contains(..OngelijkeStockProductNrLijst,PRNr))) {
+		Do ..OngelijkeStockProductNrLijst.Insert(PRNr)
 		Set StockVerschil = ##class(AXimpl.Dynamics.InventoryOut.dto.StockVerschil).%New()
-		Set StockVerschil.AxIdentNummer = AxMaatwerkGenerischItemId
+		Set StockVerschil.AxIdentNummer = $$$If($$$HasLength(AxMaatwerkGenerischItemId),AxMaatwerkGenerischItemId,Product.IdentNummer)
 		Set StockVerschil.IdentNummer = Product.IdentNummer
 		Set StockVerschil.KortTekst = Product.KortTekst
 		Set StockVerschil.ProductNr = PRNr
-		Set StockVerschil.QtyVHInAdmin = StockAdmin
-		Set StockVerschil.QtyVHOpOrderLijnen = StockOrderLijnen
+		Set StockVerschil.QtyVHInAdmin = QtyVHInAdmin
+		Set StockVerschil.QtyVHOpOrderLijnen = QtyVHOpOrderLijnen
 		Do ..OngelijkeStockLijst.Insert(StockVerschil)
 	}
 	
@@ -158,10 +174,59 @@
 <Method name="MailVoorraadbeheer">
 <Private>1</Private>
 <Implementation><![CDATA[
-	;W !,"Ongelijke stock voor Product: '"_PRNr_"' - '"_Product.IdentNummer_"' - '"_Product.KortTekst_"' ... StockAdmin = '"_StockAdmin_"' en StockOrderLijnen = '"_StockOrderLijnen_"'"
+	#dim Inhoud As %String = ""
+	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: "
+	_$$$CRLF_$$$CRLF
+	_##class(TECH.StringUtils).AddTrailingSpace("ProductNr | ",12)
+	_##class(TECH.StringUtils).AddTrailingSpace("Admin IdentNr | ",16)
+	_##class(TECH.StringUtils).AddTrailingSpace("AX ItemId    | ",15)
+	_##class(TECH.StringUtils).AddTrailingSpace("KortTekst                 | ",28)
+	_##class(TECH.StringUtils).AddTrailingSpace("QtyVH in Admin | ",17)
+	_##class(TECH.StringUtils).AddTrailingSpace("QtyVH op OrderLijnen",20)
+	_$$$CRLF_$$$CRLF
+	Set OngelijkeStockLijstIterator = ##class(TECH.ListIterator).%New(..OngelijkeStockLijst)
+	
+	While (OngelijkeStockLijstIterator.HasNext()) {
+		#dim StockVerschilRecord As AXimpl.Dynamics.InventoryOut.dto.StockVerschil = OngelijkeStockLijstIterator.Next()
+		#dim ProductNr As %String = StockVerschilRecord.ProductNr
+		#dim IdentNummer As %String = StockVerschilRecord.IdentNummer
+		#dim AxIdentNummer As %String = StockVerschilRecord.AxIdentNummer
+		#dim KortTekst As %String = StockVerschilRecord.KortTekst
+		#dim QtyVHInAdmin As %String = StockVerschilRecord.QtyVHInAdmin
+		#dim QtyVHOpOrderLijnen As %String = StockVerschilRecord.QtyVHOpOrderLijnen
+		Set Inhoud = Inhoud
+		_##class(TECH.StringUtils).AddTrailingSpace(ProductNr,12)
+		_##class(TECH.StringUtils).AddTrailingSpace(IdentNummer,16)
+		_##class(TECH.StringUtils).AddTrailingSpace(AxIdentNummer,15)
+		_##class(TECH.StringUtils).AddTrailingSpace(KortTekst,28)
+		_##class(TECH.StringUtils).AlignRight(QtyVHInAdmin," ",14)
+		_##class(TECH.StringUtils).AlignRight(QtyVHOpOrderLijnen," ",23)
+		_$$$CRLF
+	}
+	
+	Set Inhoud = Inhoud_$$$CRLF_"Met vriendelijke groet, "_$$$CRLF_$$$CRLF_"ICT"_$$$CRLF
+	
+	Do ..VerstuurMail(Inhoud)
+	
 	Quit
 ]]></Implementation>
 </Method>
+
+<Method name="VerstuurMail">
+<FormalSpec>Inhoud:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim Mail As TECH.Mail.Mail = ..MailApi.MaakNieuwMail()
+	
+	Do Mail.ZetVerzender($$$SystemMail("SyncAll Maatwerk"))
+	Do Mail.VoegToeOntvanger("Stockbeheer@VanHoecke.Be")
+	Do Mail.ZetOnderwerp("Overzicht verschillen stock tussen AX en Caché")
+	Do Mail.ZetInhoud(Inhoud)
+	Do ..MailApi.VerstuurMail(Mail)
+	
+	Quit
+]]></Implementation>
+</Method>
 </Class>