Gerei um XML mas ele nem abre

[lugab]

Bom dia, pessoal..
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 ?

Código: Selecionar todos

*--------------
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>

[JoséQuintas]

Só uma coisa simples: o XML tem começo e fim, uma tag envolvendo tudo.
Só copiei do post e acrescentei o <teste> e </teste>

[lugab]

Sim, Quintas... agora funcionou..
Muitíssmo obrigado

Agora eu vou apanhar pra gerar a NFE, pq o programa aqui da loja é um "clipper antigo" que gera um .TXT que não da pra ninguém compreender

[lugab]

Alguém pode me disponibilizar um XML de NFE ainda não assinado ?

É que todos os exemplos que tenho ja estão assinados e eu não sei quais tags são obrigatórias no início do arquivo


Grato

[JoséQuintas]

É só o bloco anterior a assinatura.
Tem o bloco externo, e dentro tem dois blocos: nota e assinatura
A geração é só do primeiro bloco.

[lugab]

Oi Quintas, eu até sei que é por aí, mas eu precisava ver como são essas linhas iníciais, pq uma coisa é ver e outra coisa é imaginar como deve ser, entende ?.
Eu nunca vi um XML antes de ser alterado pelo Sefaz....

Se for possível, qdo vc gerar um novo XML e antes de processar o arquivo vc poderia colar as 4 linhas inicias e as 4 últimas aqui pra mim?
Se não puder colar, ao menos mostre como deve ficar, alterando o exemplo abaixo

Código: Selecionar todos

<?xml version="1.0" encoding="UTF-8"?>
-<nfeProc xmlns="http://www.portalfiscal.inf.br/nfe" versao="3.10">
    -<NFe xmlns="http://www.portalfiscal.inf.br/nfe">
       -<infNFe versao="3.10" Id="NFe29180303094290000178550010000161021090197063">
         -<ide>
             <cUF>29</cUF>

[JoséQuintas]

Código: Selecionar todos

<NFe xmlns="http://www.portalfiscal.inf.br/nfe">
<infNFe versao="3.10" Id="NFe29180303094290000178550010000161021090197063">
...
</infNFe>
</NFe>

Lembrando que é tudo numa linha só, isso de mostrar uma coisa em cada linha é apenas pra visualizar melhor.

[MSDN]

Acesse esse site http://www.unimake.com.br/uninfe/# e clique em Downloads, na parte superior ( botão verde ), será mostrado um link para vc baixar modelos de NF-e, NFC-e, NFS-e, MDF-e, etc.

[lugab]

Obrigado, Quintas, obrigado, Marcelo...

Acho que agora sai !!!!!!