-2

Estou gerando um arquivo .txt com informações de uma nota fiscal eletrônica, este é importado no aplicativo gratuito do governo SEFAZ para a geração da nota.

O genexus está gerando o arquivo .txt com caracteres especiais.

Quando faz a quebra de pagina ele coloca um símbolo estranho no txt e isso impede que o SEFAZ leia o .txt.

Quero um procedimento pra limpar estes .txt ou alguma outra forma de corrigir o problema.

H|7|NF NF: 6155|
I|54| | PAO DE ESPINAFRE|19023000 ||5906|CX |60.0000|97.9200|5875.20| |CX |60.0000|97.9200| | | | |1|||
M
N
N10d|0|400|
Q
Q04|08|
S
S04|08|
W
W02|0.00|0.00|0|0|42980.40|0|0|0|0|0|0|0|0|42980.40|
W23|||||||
X|1||
X03|FELIPPI ARMAZENAGENS LTDA|253175313|25 DE JULHO 870|SC|JARAGUA DO SUL|
X04|00825615000157|
X18||SC||
X26|480||||4212.000|4860.000|
Z||BASE DO CALCULO DO ICMS: 0.00 VALOR DO ICMS: 0.00 EMPRESA OPTANTE PELO SIMPLES NACIONAL
♀

Este é um exemplo do final de uma nota, após o Z, ele gera esse caractere

ENTÃO O GENEXUS CONVERTE MEU RELATÓRIO MODO TEXTO EM UM ARQUIVO TXT COM O NOME QUE EU SALVEI NA VARIAVEL &ArqNom a baixo o source do relatório

For Each NotNum
   Where NotNum = &NotNum
      // Capa
      &B = &B +'|'+ Trim(cUF)+'|'+Trim(cNF)+'|'+Trim(NatDesSub)+'|2'+'|'+Trim(cMod)+'|'+Trim(serie)+'|'+Trim(nNF)+'|'+trim(dEmi)+'|'+trim(dSaiEnt)+'|'+trim(hSaiEnt)+'|1'+'|'+Trim(tpNF)+'|'+trim(tpImp)+'|'+trim(tpEmis)+'|'+trim(cDV)+'|'+trim(tpAmb)+'|'+trim(finNFe)+'|'+trim(procEmi)+'|'+trim(verProc)+' |'+'|'+'|'
      &B = Trim(&B)
      &C = &C +'|'+ Trim(xnome)+'|'+'|'+trim(IE)+'|'+'|'+'|'+'|'+'1'+'|'
      &C = Trim(&C)
      &C02 = '|'+ Trim(cnpj)
      &C02 =  Trim(&C02)
      &C05 = &C05 + '|'+ Trim(xLgr)+'|'+trim(nro)+'|'+trim(xCpl)+'|'+trim(xBairro)+'|'+trim(cMun)+'|'+trim(xMun)+'|'+Trim(UF)+'|'+trim(CEP)+'|'+trim(cPais)+'|'+trim(xPais)+'|'+trim(Fone)+'|'
      &C05 = Trim(&C05)
         &X03 = &X03 +'|'+ trim(traxnome)+'|'+trim(traie)+'|'+trim(traxender)+'|'+trim(trauf)+'|'+trim(traxmun)+'|'
         &X03 = trim(&X03)
         &X04 = &X04 +'|'+ Trim(tracnpj)+'|'
         &X04 = trim(&X04)
         &X18 = &X18 +'|'+ trim(traplaca)+'|'+trim(travuf)+'|'+'|'
         &X18 = trim(&X18)
      &E = &E +'|'+ Trim(FxNome)+'|'+Trim(FIE)+'|'+'|'+'|'
      &E = Trim(&E)
      &E02 = &E02 +'|'+ trim(Fcnpj)
      &E02 = trim(&E02)
      &E05 = &E05 +'|'+ Trim(FxLgr)+'|'+trim(Fnro)+'|'+trim(FxCpl)+'|'+trim(FxBairro)+'|'+trim(FcMun)+'|'+trim(FxMun)+'|'+Trim(FUF)+'|'+trim(FCEP)+'|'+trim(FcPais)+'|'+trim(FxPais)+'|'+trim(Ffone)+'|'
      &E05 = Trim(&E05)
      Print capa
      For Each cItem
         Where cImprime = 'S'
         &Item = cItem
         &NotImportada = 'NF '+trim(numnota)
         &NotImportada = trim(&NotImportada)
         &H = &H +'|'+ Trim(str(cItem))+'|'+&NotImportada+'|'
         &H = Trim(&H)
         &vProd = Trim(vProd) + '00000000'
         &I = &I +'|'+ Trim(cProd)+'| '+Trim(cEAN)+'| '+trim(xProd)+'|'+Trim(NCM)+' |'+'|'+trim(CFOP)+'|'+Trim(uCom)+' |'+Trim(qCom)+'|'+Trim(vUnCom)+'|'+trim(vProd)+'|'+' |'+trim(uCom)+' |'+trim(qCom)+'|'+trim(vUnCom)+'| '+'| '+'| '+'| '+'|'+trim(indTot)+'|'+'|'+'|'
         &I = Trim(&I)         
         Do 'N10d'
         Print ITENS
         &H = ''
         &I = ''
     EndFor      
         &W02 = &W02 +'|'+ Trim(totvbc)+'|'+trim(totvicms)+'|'+'0|'+'0|'+trim(totvprod)+'|'+'0|'+'0|'+'0|'+'0|'+'0|'+'0'+'|'+'0'+'|'+'0|'+trim(totvnf)+'|'
         &W02 = trim(&W02)
         &X = &X +'|'+ trim(modfrete)+'|'
         &X = trim(&X)+'|'
         &X26 = &X26 +'|'+ trim(qvol)+'|'+'|'+'|'+'|'+trim(pesol)+'|'+trim(pesob)+'|'
         &X26 = trim(&X26)
         &Z = &Z +'|'+'|'+ 'BASE DO CALCULO DO ICMS: '+ trim(totvbc) + ' VALOR DO ICMS: ' + trim(totvicms) + ' EMPRESA OPTANTE PELO SIMPLES NACIONAL'
         &Z= trim(&Z)
         Print FIM
EndFor

msg('Arquivo TXT gerado com sucesso')

Sub 'N10d'
   &N10d = ''
   &Q04 = ''
   &S04 = ''
   For Each NotNum cItem 
      Where NotNum = &NotNum
      Where cItem  = &Item
      &N10d = &N10d +'|'+'0'+'|'+trim(CST)+'|'
      &N10d = Trim(&N10d)
      &Q04 = &Q04 +'|'+trim(uTrib)+'|'
      &Q04 = trim(&Q04)
      &S04 = &S04 +'|'+ Trim(uTrib)+'|'
      &S04 = Trim(&S04)
      exit
   EndFor
EndSub
//
4
  • 3
    Você tinha colocado duas tags de linguagens. Ou o problema é com uma ou com outra? Está certo agora? Só com estas informações fica difícil responder. EU diria que o programa que está gerando este arquivo está colocando este caractere, tem que olhar todo o código e tirar o código que coloca este intruso.
    – Maniero
    20/12/2014 às 13:56
  • 1
    <gambiarra>Uma forma bem simples de arrumar o problema é depois que o arquivo for gerado, abrir ele, excluir o e salvar.</gambiarra> 20/12/2014 às 18:40
  • Esse caractere não seria o Ctrl-Z que o windows sempre incluí ao final de um arquivo texto? Não sei muito de visual basic mas deve existir uma opção de criar o arquivo como "binário"; isso deve impedir a inclusão do ^Z no final. 22/12/2014 às 12:50
  • 1
    Cadê a sua dúvida de programação? 22/12/2014 às 14:02

1 Resposta 1

1

Quando é criado um arquivo texto utilizando "Open For Append", sempre é posta uma linha em branco abaixo da linha escrita. Nesse caso utilizo a função abaixo para remover a linha em branco.


    Private Function RemoverLinhaEmBranco(ByVal sTexto As String)

    Dim i                     As Long
    Dim vtrLinhas()           As String
    Dim strTexto              As String

    vtrLinhas = Split(sTexto, vbCrLf)

    For i = LBound(vtrLinhas) To UBound(vtrLinhas)

        If Trim(vtrLinhas(i))  vbNullString Then
            If i = LBound(vtrLinhas) Then
                strTexto = strTexto & vtrLinhas(i)
            Else
                strTexto = strTexto & vbCrLf & vtrLinhas(i)
            End If
        End If

    Next i

    RemoverLinhaEmBranco = strTexto

End Function

1
  • 1
    A desculpe, não reparei que era uma resposta em minha fila de analise, pensei que era uma pergunta. Vou remover o comentário acima já que não faz sentido. Mas de qualquer forma sua resposta não está muito clara em relação a pergunta, se puder explicar uma pouco melhor o que sua solução auxilia para solucionar a pergunta, fica mais claro, para quem a ler. (Só que a pergunta também não ajuda muito, li e re-li a pergunta e não entendi o problema real do OP. Hehe) 16/01/2015 às 16:36

Você deve fazer log-in para responder a esta pergunta.

Esta não é a resposta que você está procurando? Pesquise outras perguntas com a tag .