Painel de líderes

Caros colegas, estou anexando os arquivos que alterei para fazer a geração dos arquivos TXT da NFe 3.10. Algumas notas importantes: 1) O manual do txt possui vários erros. Alguns deles: Não traz as tags pai, como "BA|" e "GA|", mas sem elas o emissor recusa o arquivo. Mostra o refCTe (B19) como filho do refNFP (B10), mas na verdade, ele é filho do NFref (B01). 2) Criei uma uma procedure gtEliminarRegistros no pcnGerador para eliminar os registros não utilizados (identica à rotina que já existia em gtAjustarRegistros) e alterei a wGrupo para realizar essa "limpeza" sempre que um grupo for fechado. Essa alteração é importante para evitar erros na geração de alguns registros (e.g., BA13/BA14, GA02/GA03). Apenas para deixar mais claro qual o erro que ocorre: With NFe.autXML.Add Do CNPJCPF := '00000000000000'; With NFe.autXML.Add Do CNPJCPF := '11111111111111'; With NFe.autXML.Add Do CNPJCPF := '11111111111'; With NFe.autXML.Add Do CNPJCPF := '22222222222222'; Esse código gera no TXT os seguintes registros: GA| GA02|00000000000000 GA03|11111111111 GA| GA02|11111111111111 GA03|11111111111 GA| GA02|22222222222222 GA03|11111111111 GA| GA02|22222222222222 3) Existem muitas situações que eu não testei. Eu mantive a convenção de comentar um //ok no final das linhas testadas. 4) A maior parte das correções aqui são consequência direta de erros no manual do TXT. A equipe do ACBr está dependendo de a receita liberar uma versão corrigida do manual para corrigir os fontes no SVN oficial. Além disso, como não sou da equipe, não posso garantir que os arquivos no SVN oficial serão exatamente esses que coloco aqui. Eles são apenas uma sugestão que funciona para mim e para alguns colegas que deram feedback. pcnGerador.pas pcnLayoutTXT.pas pcnNFeW.pas pcnNFeRTXT.pas

Thiago e William Mattos bom dia ! Agradeço muito pela sua resposta , deu certinho Precisando de mim, estarei à disposição no for necessário.

baixe essa versão no svn svn://svn.code.sf.net/p/fortesreport/svn/trunk e faça assim: abra o arquivo RLibWinDXE3.dpk clique com o botão direito em RLibWinDXE3.bpl no lado direito da IDE clique em save as.. e salve com RLibWinDXE7.dpk depois va em build e install eu faço assim e comigo funciona

João e Claudemir, Tem outras correções também. Vejam este tópico, onde estou tentando centralizar essas correções: Abraços, Gabriel.

Pessoal, estava passando por esse probleminha, quando migrei da versão 2.0 para 3.10. E sempre que era um cliente pessoa fisica ou até juridica que não possui I.E, ocorria esse problema de não aceitar a tag com o nome "ISENTO", dái lendo aqui mesmo no forum alguém comentou aque não precisava informar a TAG, á penas deixa-la em branco. Tenho um exemplo que usei literalmente no meu sistema.. E muito obrigado á todos os Membros do Forum, como por exemplo: Fundador, Moderado etc.. Obrigado á todos. // verifica se o cliente possui I.E e se é fisico ou Juridico IF qrnfe_cliente.fieldbyname('TIPO').Asinteger = 1 then Begin // Dest.IE := 'ISENTO'; Dest.indIEDest := inNaoContribuinte; End; IF qrnfe_cliente.fieldbyname('TIPO').Asinteger = 2 then Begin if qrnfe_cliente.fieldbyname('rg').asstring ='' then Begin //Dest.IE := 'ISENTO'; Dest.indIEDest := inIsento; end; End; IF qrnfe_cliente.fieldbyname('TIPO').Asinteger = 2 then Begin if qrnfe_cliente.fieldbyname('rg').asstring <>'' then Begin Dest.IE := sn(qrnfe_cliente.fieldbyname('rg').asstring); Dest.indIEDest := inContribuinte; end; End;