Index: BL/PPS/TBX/OptiVHoss.cls.xml
===================================================================
diff -u -r29059 -r56511
--- BL/PPS/TBX/OptiVHoss.cls.xml	(.../OptiVHoss.cls.xml)	(revision 29059)
+++ BL/PPS/TBX/OptiVHoss.cls.xml	(.../OptiVHoss.cls.xml)	(revision 56511)
@@ -645,6 +645,8 @@
 <Private>1</Private>
 <Implementation><![CDATA[
 	Kill ..Products
+	Kill ..Skipped
+	
 	Set Count=0
 	For I=1:1:$LL(..lbTOENrs) Do
 	. Set TOENr=$LG(..lbTOENrs,I)
@@ -662,6 +664,23 @@
 	. . . For J=1:1:$P(LRec,"\",3) Do ; qty
 	. . . . Set Count=Count+1
 	. . . . Set ..Products(Count)=$LB(PRNr,(TOENr_";"_$P(LRec,"\",15)),Type,Diepte,Breedte,Count,..SlotCat(Type,Diepte),KlantOrdRef,KlantProdRef,TransportRef)
+	
+	If $$$aHasSubNodes(..Skipped) {
+		#dim EmailAdres As %String = ##class(TECH.Config.ConfigMgr).Instance().GetString("BL.PPS.TBX.OptiVHoss_MailTo")
+		#dim MailAPI As TECH.Mail.MailAPI = ##class(TECH.Context).Instance().GeefMailAPI()
+		#dim Mail As TECH.Mail.Mail = MailAPI.MaakNieuwMail()
+		Do Mail.ZetVerzender($$$SystemMail("OptiVhoss"))
+		Do Mail.ZetOnderwerp("Lades niet toegevoegd in VHoss (TBX)")
+		Do Mail.VoegToeOntvanger(EmailAdres)
+		#dim Bericht As %String = "Onderstaande TBX-lades kunnen NIET in een productie VHoss worden opgenomen."_$c(13,10)
+		Set Bericht = Bericht_"Indien de ladecode nog niet ondersteund is in method DefinieerSlotLadeTypes(), dan toevoegen aan de lijst."_$c(13,10)
+		Set Bericht = Bericht_"Anders moeten deze laden apart geproduceerd en verpakt worden!"_$c(13,10)_$c(13,10)
+		Set Bericht = Bericht_..Skipped2Tekst($$$CRLF)   ; lades met foutieve afmetingen of niet-ondersteunde specs.
+		Do Mail.ZetInhoud(Bericht)
+		Do MailAPI.VerstuurMail(Mail)			
+		
+		Do ##class(vhLib.Logger).%New("HALUX.VHOSS").Warning("BldProductSequence",Bericht)
+	}
 ]]></Implementation>
 </Method>