if Client.Send(RequestMessage, ResponseMessage) then begin ResponseMessage.Content().ReadAs(InStrmResponse); Data.SetCurrentKey(TempLineNo); if Data.Find('+') then TempLineNo := Data.TempLineNo; if XmlDocument.ReadFrom(InStrmResponse, xmlDoc) then begin xmlnsMgr.AddNamespace('ns', 'http://www.company.com.br'); if xmlDoc.SelectNodes('//ns:Movimentacao', xmlnsMgr, xmlNodList) then begin foreach xmlNodRoot in xmlNodList do begin xmlNodRoot.SelectSingleNode('ns:Codigo', xmlnsMgr, xmlNod1); xmlNodRoot.SelectSingleNode('ns:TipoMovimentacao', xmlnsMgr, xmlNod2); xmlNodRoot.SelectSingleNode('ns:DataMovimentacao', xmlnsMgr, xmlNod3); xmlNodRoot.SelectSingleNode('ns:EmpresaOrigem/ns:IDUnihealth', xmlnsMgr, xmlNod4); xmlNodRoot.SelectSingleNode('ns:CentroCustoOrigem/ns:IDUnihealth', xmlnsMgr, xmlNod5); xmlNodRoot.SelectSingleNode('//ns:CentroCustoOrigem/ns:CodigoExterno', xmlnsMgr, xmlNod6); xmlNodRoot.SelectSingleNode('ns:EmpresaDestino/ns:IDUnihealth', xmlnsMgr, xmlNod7); xmlNodRoot.SelectSingleNode('ns:CentroCustoDestino/ns:IDUnihealth', xmlnsMgr, xmlNod8); xmlNodRoot.SelectSingleNode('//ns:CentroCustoDestino/ns:CodigoExterno', xmlnsMgr, xmlNod9); xmlNodRoot.SelectSingleNode('ns:TipoDocumento', xmlnsMgr, xmlNod10); xmlNodRoot.SelectSingleNode('//ns:CodigoDocumento', xmlnsMgr, xmlNod11); xmlNodRoot.SelectSingleNode('ns:Produto/ns:IDUnihealth', xmlnsMgr, xmlNod12); xmlNodRoot.SelectSingleNode('ns:Produto/ns:CodigoExterno', xmlnsMgr, xmlNod13); xmlNodRoot.SelectSingleNode('//ns:CodigoProdutoSecundario', xmlnsMgr, xmlNod14); xmlNodRoot.SelectSingleNode('//ns:CodigoEmbalagemProduto', xmlnsMgr, xmlNod15); xmlNodRoot.SelectSingleNode('ns:Quantidade', xmlnsMgr, xmlNod16); xmlNodRoot.SelectSingleNode('ns:Valor', xmlnsMgr, xmlNod17); xmlNodRoot.SelectSingleNode('ns:Lote', xmlnsMgr, xmlNod18); xmlNodRoot.SelectSingleNode('ns:Validade', xmlnsMgr, xmlNod19); xmlNodRoot.SelectSingleNode('ns:CodigoItemDocumento', xmlnsMgr, xmlNod20); xmlNodRoot.SelectSingleNode('ns:Usuario', xmlnsMgr, xmlNod21); xmlNodRoot.SelectSingleNode('ns:CodigoEtiqueta', xmlnsMgr, xmlNod22); xmlNodRoot.SelectSingleNode('ns:Identificador', xmlnsMgr, xmlNod23); TempLineNo := TempLineNo + 1; Data.TempLineNo := TempLineNo; Data.Init(); Data.Insert(true); Data.Codigo := (xmlNod1.AsXmlElement().InnerXml); Data.TipoMovimentacao := (xmlNod2.AsXmlElement().InnerText); txtDate := (xmlNod3.AsXmlElement().InnerText); txtNewDate := CopyStr(txtDate, 1, 4) + '-' + CopyStr(txtDate, 6, 2) + '-' + CopyStr(txtDate, 9, 2) + ' ' + CopyStr(txtDate, 12, 2) + ':' + CopyStr(txtDate, 15, 2) + ':' + CopyStr(txtDate, 18, 2); Evaluate(formatDate, txtNewDate); Data.DateMovimentacao := formatDate; Data.EmpresaOrigemIDUnihealth := (xmlNod4.AsXmlElement().InnerText); Data.CentroCustoOrigemIDUnihealth := (xmlNod5.AsXmlElement().InnerText); Data.CentroCustoOrigemCodExterno := (xmlNod6.AsXmlElement().InnerText); Data.EmpresaDestinoIDUnihealth := (xmlNod7.AsXmlElement().InnerText); Data.CentroCustDestinoIDUnihealth := (xmlNod8.AsXmlElement().InnerText); Data.CentroCustDestinoIDCodExterno := (xmlNod9.AsXmlElement().InnerText); Data.TipoDocumento := (xmlNod10.AsXmlElement().InnerText); Data.CodigoDocumento := (xmlNod11.AsXmlElement().InnerText); Data.ProductoIDUnihealth := (xmlNod12.AsXmlElement().InnerText); Data.ProductoCodigoExterno := (xmlNod13.AsXmlElement().InnerText); Data.CodigoProdutoSecundario := (xmlNod14.AsXmlElement().InnerText); Data.CodigoEmbalagemProduto := (xmlNod15.AsXmlElement().InnerText); Data.Quantidade := (xmlNod16.AsXmlElement().InnerText); Data.Valor := (xmlNod17.AsXmlElement().InnerText); Data.Lote := (xmlNod18.AsXmlElement().InnerText); Data.Validade := (xmlNod19.AsXmlElement().InnerText); Data.CodigoItemDocumento := (xmlNod20.AsXmlElement().InnerText); Data.Usuario := (xmlNod21.AsXmlElement().InnerText); Data.CodigoEtiqueta := (xmlNod22.AsXmlElement().InnerText); Data.Identificador := (xmlNod23.AsXmlElement().InnerText); Data.Modify(true); end; end; end;