Gerei meu primeiro XML (um teste de aprendizado) com uma contribuição que pesquei aqui (acho que do Quintas) , mas o arquivo gerado não abre no explorer como um XML tradicional...
Aliás, ele nem abre ....
Fiz o que de errado, pessoal ?
*--------------
Func XmlNfe
*-------------
ArquivoXml="TESTANDO.XML"
xNomemp="TESTE INDUSTRIA LTDA"
xestEmp="BR"
xCidEmp="CAPITAL"
xEndEmp="PORTO SECO"
xNumnot=Alltrim(str(tnumnot,6))
xDatemi=Dtoc(tdatemi)
xNatureza="PRIVADA"
xNomcli=Alltrim(Tnomcli)
xEndcli=Alltrim(tendcli)
XcgcCli=strzero(Tcgccli)
Xcidcli=Alltrim(Tcidcli)
Xestcli=Testcli
xCgcEmp="96715079853"
xref="AC1KG"
xquant="1.4567"
xvalor="1234.45"
mXmlNota := XmlTag("notafiscal",xNumnot) + XmlTag("emissao",xDatemi) + XmlTag("natureza",xnatureza)
mXmlEmitente := XmlTag("cnpj",xcgcEmp) + XmlTag("nome",xNomEmp) + XmlTag("endereco",xEndEmp) + XmlTag("cidade",xCidEmp) + XmlTag("UF", xEstEmp)
mXmlDestinatario := XmlTag("cnpj",xCgcCli) + XmlTag("nome",xNomCli) + XmlTag("endereco",xEndCli) + XmlTag("cidade",xCidCli) + XmlTag("UF",xEstCli)
mXmlProduto := XmlTag("Referencia",xref) + XmlTag("Qtde",xquant) + XmlTag("Valor",xValor)
mXmlGeral := XmlTag("Nota",mXmlNota) + XmlTag("emitente",mXmlEmitente) + XmlTag("destinatario",mXmlDestinatario) + XmlTag("produto",mXmlProduto)
MemoWrit(ArquivoXml,mXmlGeral)
hb_alert(ArquivoXml+" gerado ")
retu
*--------------------------------------------
Function XmlTag(cTag, cConteudo)
*--------------------------------------------
Local cTexto := ""
cTexto := "<" + cTag + ">" + cConteudo + "</" + cTag + ">"
A seguir o conteudo do arquivo TESTANDO.XML que foi gerado pela rotina
<Nota><notafiscal>16137</notafiscal><emissao>16/03/2018</emissao><natureza>PRIVADA</natureza></Nota><emitente><cnpj>96715079853</cnpj><nome>TESTE INDUSTRIA LTDA</nome><endereco>PORTO SECO</endereco><cidade>CAPITAL</cidade><UF>BR</UF></emitente><destinatario><cnpj>04510940000181</cnpj><nome>A GOMES</nome><endereco>RUA SANTOS DUMONT</endereco><cidade>SALVADOR</cidade><UF>BA</UF></destinatario><produto><Referencia>AC1KG</Referencia><Qtde>1.4567</Qtde><Valor>1234.45</Valor></produto>