m.tiporequisicao = m.OROOT.selectNodes("Documento/Linhas/Etiquetas/tiporequisicao").Item(0).Text ** READ LIST OF ETIQUETAS m.ONODELIST = M.OROOT.selectNodes("Documento/Linhas/Etiquetas") For Each ONODE As 'MSXML2.IXMLDOMNode' In M.ONODELIST m.qttetiqueta = m.ONODE.selectNodes("quantidaderequerida").Item(0).Text If Val(m.qttetiqueta) <> 0 m.qttetiqueta = m.ONODE.selectNodes("quantidaderequerida").Item(0).Text m.dedata = m.ONODE.selectNodes("datarequeridainicial").Item(0).Text m.atedata = m.ONODE.selectNodes("datarequeridafinal").Item(0).Text *!* Date conversion m.dedata = Ctod(Substr(m.dedata,7,2)+'.'+Substr(m.dedata,5,2)+'.'+Substr(m.dedata,1,4)) m.atedata = Ctod(Substr(m.atedata ,7,2)+'.'+Substr(m.atedata ,5,2)+'.'+Substr(m.atedata,1,4)) Endif ** Percorre a lista de OrderItems ** note: but what about when Val(m.qttetiqueta) == 0 ? Select mbicursor Append Blank ** [snip] Do u_bottdeb With 'mbicursor' EndforHello António,