Fernando Rodrigo

O meu gero dessa forma if ACBrGNRE1.Enviar(False) then begin ACBrGNRE1.GuiasRetorno.Clear; ACBrGNRE1.GuiasRetorno.LoadFromFile(ACBrGNRE1.Configuracoes.Arquivos.PathArqTXT + ACBrGNRE1.WebServices.Retorno.GNRERetorno.resGuia[0].RepresentacaoNumerica + '-gnre.txt'); TACBrGNREGuiaFR(ACBrGNRE1.GNREGuia).FastFile := ExtractFilePath(CONF_NFEDANFE_NFE.AsString) + 'GNRE_GUIA.fr3' ; ACBrGNRE1.GuiasRetorno.Imprimir; ACBrGNRE1.GuiasRetorno.ImprimirPDF; end;

esta normal agora que mudei o path do fastreport que estava apontando para o antigo ainda

Fiz dessa forma que vc me passou João Se colocar o componente ACBrGNREGuiaFR1 no formulário pode ser um form que não tem nada, quando vc executa ele da um erro abaixo em anexo Ja desinstalei todo o componente e instalei novamente, ja instalei o fastreport 4.0 e o 5.0 e continua o mesmo erro Essa propriedade que esta dizendo não existir, ele exista normal quando vc abre o componente Estava fazendo um negocio errado, a versão 4.0 do fastreport não tem essa propriedade, dai eu desinstalei a versao 4.0 e instalei a versao 5.0 so que o path library path estava setado a versao 4.0 ainda, tinha me esquecido de retirar. Agora deu certo, fez a impressão correto, com as quebras certinho. Valeu João pela força GNRE_GUIA1.pdf

Ola João, baixei seu arquivo e não esta funcionando da erro de violação. Veja como estou passando o codigo, segue anexo tambem o arquivo da GNRE que foi gerado Se colocar o componente tambem da erro, não sei se é a versão do fastreport que estou utilizando if OpenDialog1.Execute then begin ACBrGNRE1.GuiasRetorno.Clear; ACBrGNRE1.GuiasRetorno.LoadFromFile(OpenDialog1.FileName); TACBrGNREGuiaFR(ACBrGNRE1.GNREGuia).FastFile := 'GNRE_GUIA.fr3'; ACBrGNRE1.GuiasRetorno.Imprimir; end;

Ola João, baixei seu arquivo e não esta funcionando da erro de violação. Veja como estou passando o codigo, segue anexo tambem o arquivo da GNRE que foi gerado Se colocar o componente tambem da erro, não sei se é a versão do fastreport que estou utilizando Uso hoje o FastReport 4 if OpenDialog1.Execute then begin ACBrGNRE1.GuiasRetorno.Clear; ACBrGNRE1.GuiasRetorno.LoadFromFile(OpenDialog1.FileName); TACBrGNREGuiaFR(ACBrGNRE1.GNREGuia).FastFile := 'GNRE_GUIA.fr3'; ACBrGNRE1.GuiasRetorno.Imprimir; end; 858500000002010000901609930120160403270026136000-gnre.txt

Exatamente Marcelo, as guias estão sendo geradas normalmente, o problema é na impressão que não faz a quebra de linha

Não marcelo, esta do mesmo jeito, apesar da configuração do componente ter um caractere de separação (quebra de linha) ele não esta respeitando. vc tambem esta com esse problema ?

pessoal de uma olhada no install pq fiz o update e todos os componentes da pasta Acbr\Pacotes\Delphi\ACBrDFe deu erro na instalação. Estranho pq se vc for um por um (NF-e, Ct-e, MDF-e, GNR-e, Bloco-x) e compilar ele instala normal, mas se usar o install ele da erro nesses componentes, so que não diz nada onde é, so da erro. Não mudei em nada a configuração do ACBrInstall_Trunk2.ini somente fiz um update e instalei novamente. Alguem passou por isso ?

O que preciso é ter duas informações complementares na GNRE. Não é informado da maneira que postei acima ? Preciso do Numero da NF-e e o nome do destinatario nas informações complementares igual estou fazendo acima. O trecho do codigo acima não é informado dessa forma ?

Segue exemplo que esta funcionando que eu utilizei para fazer o meu Delphi.zip

Em alguns estados é obrigatório vc informar a chave da nota fiscal e uma observação conforme abaixo, so que quando é impresso os dados não são impressos corretamente conforme anexo. Vi que na configuração existe um | de separação so que não esta funcionando. Como irei fazer para fazer a impressão corretamente uma informado abaixo da outra e não truncado camposExtras.Add; camposExtras.Items[0].campoextra.codigo := 57; camposExtras.Items[0].campoextra.tipo := 'T'; camposExtras.Items[0].campoextra.valor := 'JOAOZINHO DE SOUZA'; camposExtras.Add; camposExtras.Items[1].campoextra.codigo := 57; camposExtras.Items[1].campoextra.tipo := 'T'; camposExtras.Items[1].campoextra.valor := 'XXXXXXXXXXXXXXXX'; // ID da nf-e

estou utilizando o exemplo para fazer as GNRE, onde deveria colocar esse problema ? Que eu saiba não estou infligindo nenhuma regra do fórum. Veja o nome do Tópico ( Acbrgnre - Problemas Com O Exemplo )

problema da mensagem resolvido, agora a quebra de linha quando é impresso o boleto para pagamento, tem como fazer o alinhamento dos dados nas informações complementares ?

pessoal outro problema que estou tendo, toda GNRE que estou enviado esta abrindo uma caixa de mensagem do proprio componente conforme imagem em anexo como faço para retirar ? pq o usuario tem que ficar clicando para sair da tela depois da tela abre outra com o numero do protocolo e tem que clicar novamente Existe alguma maneira de retirar ? A mensagem abre quando é enviado a GNRE

Em alguns estados é obrigatório vc informar a chave da nota fiscal e uma observação conforme abaixo, so que quando é impresso os dados não são impressos corretamente conforme anexo. Vi que na configuração existe um | de separação so que não esta funcionando. Como irei fazer para fazer a impressão corretamente uma informado abaixo da outra e não truncado camposExtras.Add; camposExtras.Items[0].campoextra.codigo := 57; camposExtras.Items[0].campoextra.tipo := 'T'; camposExtras.Items[0].campoextra.valor := 'JOAOZINHO DE SOUZA'; camposExtras.Add; camposExtras.Items[1].campoextra.codigo := 57; camposExtras.Items[1].campoextra.tipo := 'T'; camposExtras.Items[1].campoextra.valor := 'XXXXXXXXXXXXXXXX'; // ID da nf-e

acho que não tem como, a não ser que vc faça a alteração no componente, o que eu não aconselho

rotina para pegar enviar e pegar o txt e fazer a impressão em seguida if ACBrGNRE1.Enviar(False) then begin ACBrGNRE1.GuiasRetorno.Clear; ACBrGNRE1.GuiasRetorno.LoadFromFile(ACBrGNRE1.Configuracoes.Arquivos.PathSalvar + ACBrGNRE1.WebServices.Retorno.GNRERetorno.resGuia[0].RepresentacaoNumerica + '-gnre.txt'); ACBrGNRE1.GuiasRetorno.Imprimir; end;

anexo a unit modificada ACBrGNREGuiaFRFortes.pas

Caminho da unit Acbr\Fontes\ACBrDFe\ACBrGNRE\GNRE\Fortes

Bom dia pessoal, estou testando e enviando algumas GNRE para vários estados e testando para ver quais campos são obrigatórios em cada estado. Estou fazendo os testes para o estado do Maranhão e deparei com um erro no componente na unit ACBrGNREGuiaFRFortes.pas Na procedure TACBrGNREGuiaFR_Fortes.CarregaDado, esta escrito conforme abaixo, so que o campo vem zerado e esta dando erro de conversão como segue o arquivo em anexo ja da GNRE gerada e validada. Veja que se vc for imprimir utilizando o demo irá dar erro pq o campo DataLimitePagamento esta em preenchido com 00000000 pq não foi preenchido e tambem não é um campo obrigatorio. Para resolver o problema fiz conforme abaixo na linha que estava com problema. Dessa forma se consegue imprimir normal a GNRE. Não achei nenhum tópico referente a esse problema. // LINHA ORIGINAL FieldByName('DataLimitePagamento').AsDateTime := StrToDate(FormatarData(DataLimitePagamento)); // LINHA ALTERADA if DataLimitePagamento = '00000000' then FieldByName('DataLimitePagamento').AsDateTime := FieldByName('DataVencimento').AsDateTime else FieldByName('DataLimitePagamento').AsDateTime := StrToDate(FormatarData(DataLimitePagamento)); 858800000008010002991605781300000007033719819004-gnre.txt

Para resolver o problema que esta mostrado acima não anexe o componente de impressão da guia automatico, deverá ser feito em tempo de execução. Fazendo dessa forma não irá dar o erro e será impresso normal as guias, conforme abaixo ACBrGNRE1.Guias.Clear; GerarGNRE; ACBrGNRE1.Enviar; ACBrGNRE1.GuiasRetorno.Clear; ACBrGNRE1.GNREGuia := ACBrGNREGuiaRL1; ACBrGNRE1.GuiasRetorno.LoadFromFile(ACBrGNRE1.Configuracoes.Arquivos.Pathsalvar + ACBrGNRE1.WebServices.Retorno.GNRERetorno.resGuia[0].RepresentacaoNumerica+'-gnre.txt'); ACBrGNRE1.GuiasRetorno.Imprimir;

fiz tambem da mesma forma que o Marcelo Calvi, para fazer a impressão tive que clicar no botão imprimir e selecionar o arquio txt para impressão da guia

Quais são as configurações de envio que estão enviando, segue o meu de envio so que esta retornando que a inscrição estadual não esta cadastrada, so que ja recebi um e-mail dizendo que esta normal with ACBrGNRE1.Guias.Add.GNRE do begin c01_UfFavorecida := 'PR'; c02_receita := 100099; c28_tipoDocOrigem := 10; c04_docOrigem := '777777'; c06_valorPrincipal := 1.00; c14_dataVencimento := Now; c15_convenio := '16461313'; c17_inscricaoEstadualEmitente := '102640394'; c33_dataPagamento := Now; end; Segue e-mail de retorno so site Prezados Senhores, A sua empresa já foi habilitada a usar o WebService da GNRE. Equipe GNRE

Daniel juro que não vi esse 8 no cheque, acho que meu óculos esta vencido. Te peço mil desculpas por isso, esta normal o componente. Estou numa correria tremenda aqui no escritório para liberar uma versão no sistema, Como faço para trancar o tópico ?

Fiz a atualização do componente e agora esta fazendo a validação de cheques incorreto. O numero do cheque esta correto, porque peguei o meu próprio cheque para fazer os testes