TECH.RegisteredObject TECH.File.FileWriter 1 Tools.Populator 1 1 1 %Status 1 Oproepen via Do ##class(zTryout.WV.APPS.EC.EDIImport).TestMail() 1 " #define FilePath "F:\Temp\productiedetailDoc.xml" #dim RuntimeContext As TECH.Context.RuntimeContext = ##class(TECH.Context.RuntimeContext).Instance() ;Do RuntimeContext.ZetGebruikerID("4682||1007") #dim MailAPI As TECH.Mail.MailAPI = ##class(TECH.Context).Instance().GeefMailAPI() #dim Mail As TECH.Mail.Mail = MailAPI.MaakNieuwMail() Do Mail.ZetOnderwerp("Test EDI Alpnach (By WimV) "_$ZDT($H,3)) Do Mail.ZetVerzender($$$AlpnachMail("Test By WimV")) Do Mail.VoegToeOntvanger("WV@vanhoecke.be") ;Do Mail.VoegToeOntvangerBCC("WV@vanhoecke.be") #dim MsgBody As %String = "THIS IS A TEST FROM ICT-VAN HOECKE !!! "_$$$CRLF_"EDI-file in attachment should be processed by Van Hoecke NotesMail."_$$$CRLF_"Please forward to WV@vanhoecke.be"_$$$CRLF_" Thanks." #dim Attachments As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes($$$FilePath) Do Mail.ZetIsHTML($$$False) Do Mail.ZetInhoud(MsgBody) Do Mail.VoegToeBijlagen(Attachments) Do Mail.ZetOmleiden($$$False) Do MailAPI.VerstuurMail(Mail) ]]> Oproepen via Do ##class(zTryout.WV.APPS.EC.EDIImport).%New().ExportXML() Oproepen via Do ##class(zTryout.WV.APPS.EC.EDIImport).%New().ImportFromXML() TestMethod Create XMLSchema for EDI Oproepen via Do ##class(zTryout.WV.APPS.EC.EDIImport).%New().CreateXMLSchema() BestandNaam:%String %Status BestandNaam:%String 1 zTryout.WV.APPS.EC.dto.EdiOrder EdiOrder:TECH.DataTransferObject,BestandNaam:%String 1 1 zTryout.WV.APPS.EC.dto.EdiOrder 1 zTryout.WV.APPS.EC.dto.EdiAankoper 1 zTryout.WV.APPS.EC.dto.EdiAankoper 1 zTryout.WV.APPS.EC.dto.EdiAankoper 1 zTryout.WV.APPS.EC.dto.EdiAankoper LijnNummer:%String="",ProductEigenschappen:zTryout.WV.APPS.EC.dto.EdiProductEigenschappen="" 1 zTryout.WV.APPS.EC.dto.EdiOrderLijn 1 zTryout.WV.APPS.EC.dto.EdiProductEigenschappen 1 zTryout.WV.APPS.EC.dto.EdiProductEigenschappen 1 zTryout.WV.APPS.EC.dto.EdiProductEigenschappen 1 zTryout.WV.APPS.EC.dto.EdiProductEigenschappen