PROBLEMA COM

GUIGOR 30/01/2017 16:07:20
#471151
boa tarde amigos,

seguinte estou utilizando a caixa de texto RichTextBox para colocar o conteudo do xml de uma nfce, pois o txtbox normal limita a quantidade de caracteres, entao eu pego esse conteudo do banco e coloco na caixa de texto ele e colocado normalmente, sendo que quando eu vou gerar um novo arquivo xml. ele ate gera o xml sendo que parece a seguinte letra na frente:
{tf1\ansi\deff0{\fonttbl{\f0\fnil\fcharset0 MS Sans Serif;}}
\viewkind4\uc1\pard\lang1046\f0\fs17
depois vem o conteudo do xml que esta na caixa de texto e no final ele coloca:
\par
\par
\par
\par
\par }
veja a imagem em anexo de como esta a caixa de texto


onde o meu codigo para gerar o xml é:
Dim CaminhoPastaXML As String

CaminhoPastaXML = [Ô]d:\[Ô] & Trim(TxtChave) & [Ô]-nfe.XML[Ô]

Open CaminhoPastaXML For Output As #1 [ô]ABRE O ARQUIVO PARA GRAVAÇÃO
Print #1, TxtXML
Close #1
MARCELO.TREZE 30/01/2017 22:24:55
#471166 Resposta escolhida
simples resposta

Dim CaminhoPastaXML As String

CaminhoPastaXML = [Ô]d:\[Ô] & Trim(TxtChave) & [Ô]-nfe.XML[Ô]

Open CaminhoPastaXML For Output As #1 [ô]ABRE O ARQUIVO PARA GRAVAÇÃO
Print #1, TxtXML[txt-color=#e80000].Text[/txt-color]
Close #1
SINCLAIR 31/01/2017 08:11:54
#471169
GUIGOR,

Faz algum tempo que não mexo com VB6, mas até onde lembro o limite de uma TextBox é de 64Kb, mais que suficiente para mostrar o conteúdo de uma NFe, que não pode ter tamanho superior a 50Kb, incluindo a assinatura que consome, em média 8Kb. NFe com mais de 50Kb são recusadas pela Secretaria de Estado da Fazenda.

Para enviar mais de 50Kb de nota por vez, só se for por lote.
Tópico encerrado , respostas não são mais permitidas
Voltar