CLEAR(CC2); CLEAR(MqBUS); CREATE(CC2); CREATE(MqBUS); CC2.AddBusAdapter(MqBUS,1); MqBUS.OpenWriteQueue('.\Private$\fromNavision',0,0); MqBUS.SenderAuthenticationLevel:= 2; OutMsg := CC2.CreateoutMessage('Message queue://'); IF ISCLEAR(XMLDom) THEN CREATE(XMLDom); XMLDomMgmt.SetNormalCase; XMLProccesingInst := XMLDom.createProcessingInstruction('xml','version=''1.0'' encoding=''windows-1252'''); XmlNode := XMLDom.appendChild(XMLProccesingInst); CLEAR(XmlNode); XmlNode := XMLDom.createElement('Description'); XmlNode.text:='Red Ribbons'; XMLDom.appendChild(XmlNode); OutS.WRITE(XMLDom.documentElement); OutMsg.Send(0);
Comments
MVP - Dynamics NAV
My BLOG
NAVERTICA a.s.