persistent TECH.Persistent %String 1 VerstuurdFactuurID 1 Do ##class(APPS.OV.impl.FactuurSFS).VerstuurAlleNietVerzondenFacturen() 1 0) { #dim MailAPI As TECH.Mail.MailAPI = ##class(TECH.Context).Instance().GeefMailAPI() #dim Mail As TECH.Mail.Mail = MailAPI.MaakNieuwMail() Do Mail.ZetOnderwerp("Invoices Van Hoecke nv") Do Mail.ZetVerzender("bbe@vanhoecke.be") Do Mail.VoegToeOntvanger("boe@sfsunimarket.biz") Do Mail.VoegToeBijlagen(TeMailenFacturen) Do MailAPI.VerstuurMail(Mail) } ]]> 1 Factuur:DOM.VKP.Factuur %Boolean 1 FactuurID:%String %Boolean 1 Factuur:DOM.VKP.Factuur 1 %Boolean 1 FactuurID:%String 1 APPS.OV.dto.Invoice 1 FactuurID:%String 1 %String 1 1 TECH.Iterator %Library.CacheStorage ^APPS.OV.impl.FactuurSFSD FactuurSFSDefaultData ^APPS.OV.impl.FactuurSFSD ^APPS.OV.impl.FactuurSFSI ^APPS.OV.impl.FactuurSFSS %%CLASSNAME