Acbrgnre - Problemas na Impressão das Guias

[Fernando Rodrigo]

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

[Juliomar Marchetti]

Bom eu não entendi ao certo o porque o trecho do código acima que mostra o Add!

conseguiria pegar o exemplo e nele aplicar isso e nos fontes do gnre?

anexe dai aqui que podemos conferir e ajudar!

[Fernando Rodrigo]

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 ?

 

 

[Marcelo Calvi Belanga]

Bom dia @Fernando Rodrigo, conseguiu resolver essa questão desses separadores nas informações complementares?

Abraços

[Fernando Rodrigo]

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 ?

[Marcelo Calvi Belanga]

Sim

@Fernando Rodrigo, essa quebra de linha de que você está falando, não tem nada a ver com a emissão da Guia....

[Fernando Rodrigo]

20 horas atrás, Marcelo Calvi Belanga disse:

Sim

@Fernando Rodrigo, essa quebra de linha de que você está falando, não tem nada a ver com a emissão da Guia....

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

[joaoagra]

Olá, substitua o GNRE_GUIA.fr3  por esse, verifique se resolve.

Editado 2 Abril, 2016 por joaoagra

[Fernando Rodrigo]

5 horas atrás, joaoagra disse:

Olá, substitua o GNRE_GUIA.fr3  por esse, verifique se resolve.

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

Editado 2 Abril, 2016 por Fernando Rodrigo

[joaoagra]

faz assim:

if OpenDialog1.Execute then
  begin
    ACBrGNRE1.GuiasRetorno.Clear;
    ACBrGNRE1.GuiasRetorno.LoadFromFile(OpenDialog1.FileName);
    ACBrGNRE1.GuiasRetorno.Imprimir;
  end;

no onShow ou onCreate do formulário principal você coloca como abaixo:

ACBrGNREGuiaFR1.FastFile:= Path+'GNRE_GUIA.fr3';

Obs: só alimente a propriedade ACBrGNREGuiaFR1.FastFile em runtime, deixe em branco no modo designer.

também uso  FastReport 4.

Editado 2 Abril, 2016 por joaoagra

[Fernando Rodrigo]

8 horas atrás, joaoagra disse:

Olá, substitua o GNRE_GUIA.fr3  por esse, verifique se resolve.

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;

[joaoagra]

Fernando Rodrigo, chegou a testar a orientação que passe na resposta anterior?

no onShow ou onCreate do form:

ACBrGNREGuiaFR1.FastFile:= Path+'GNRE_GUIA.fr3';

//Sua rotina

if OpenDialog1.Execute then
  begin
    ACBrGNRE1.GuiasRetorno.Clear;
    ACBrGNRE1.GuiasRetorno.LoadFromFile(OpenDialog1.FileName);
    //TACBrGNREGuiaFR(ACBrGNRE1.GNREGuia).FastFile := 'GNRE_GUIA.fr3';
    ACBrGNRE1.GuiasRetorno.Imprimir;
  end;

[Fernando Rodrigo]

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

[joaoagra]

No meu apresentou essa mensagem também, isso ocorre porque a versão do fastreport não tem essa propriedade demostrado na mensagem:

é só substitui o arquivo ACBrGNREGuiaFRDM.dfm

...ACBR\Fontes\ACBrDFe\ACBrGNRE\GNRE\Fast

Editado 3 Abril, 2016 por joaoagra

[Fernando Rodrigo]

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

[Marcelo Calvi Belanga]

Bom tarde @joaoagra, eu não consigo testar, pois, uso o Fortes Report.

Qual alteração você fez no arquivo do Fast, para resolver esse problema?

[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;
 

[Marcelo Calvi Belanga]

Pois é @Fernando Rodrigo, estou usando o ACBrGNREGuiaRL e não  ACBrGNREGuiaFR, desta forma não consigo fazer como sugerido.

Aproveitando, como você contornou os erros de conversão do removerzeros que ocorre em alguns estados?

[Juliomar Marchetti]

Vejo que tu resolveu fazer um tour no fórum e postar em outros locais sobre o mesmo problema !

[Fernando Rodrigo]

Marcelo, não tive nenhum problema em nenhum estado, ja fiz as guias nos estados de (PR,MT,MA,MS,AL,AM,RS,RR,ES,RS,AC,PE,RO,SC,BA,AP,PA,PI,TO) e nenhum tive problema.

São Paulo e Rio não gera, minhas deu um afalha no xml mas acho que é erro deles. O resto fiz tudo normal, claro que tem alguns estados que tem algumas particularidades, tipo observação obrigatorio, codigo do produto que outro estados não é exigito, numero do danfe, em alguns estado não é obrigatorio e outros são.

[Marcelo Calvi Belanga]

@Fernando Rodrigo Você está usando o Fast ou Fortes report?

[Fernando Rodrigo]

Em 05/04/2016 at 17:43, Marcelo Calvi Belanga disse:

@Fernando Rodrigo Você está usando o Fast ou Fortes report?

Fastreport

[johnbh3]

Olá,

Galera deixa eu perguntar no site http://www.gnre.pe.gov.br/gnre/portal/GNRE_Gerar.jsp tem os estados disponiveis.

Então se eu gerar o GNRE pelo ACBr para essas UF's disponiveis no site e legal? Não precisa de nenhuma informação extra a ser adicionada? Tipo chave de nfe, produto.

Basta eu informar conforme o demo (Que é oficial)? Juridicamente valido?  Como dito, já sei que não contempla todas UF's

  with ACBrGNRE1.Guias.Add.GNRE do
  begin
    c01_UfFavorecida := 'PR';
    c02_receita := 100099;
    c28_tipoDocOrigem := 10;
    c04_docOrigem := '777777';
    c06_valorPrincipal := 120.50;
    c14_dataVencimento := Now;
    c15_convenio := '16461313';
    c17_inscricaoEstadualEmitente := '9023725557';
    c33_dataPagamento := Now;
  end;

[Fernando Rodrigo]

20 minutos atrás, johnbh3 disse:

Olá,

Galera deixa eu perguntar no site http://www.gnre.pe.gov.br/gnre/portal/GNRE_Gerar.jsp tem os estados disponiveis.

Então se eu gerar o GNRE pelo ACBr para essas UF's disponiveis no site e legal? Não precisa de nenhuma informação extra a ser adicionada? Tipo chave de nfe, produto.

Basta eu informar conforme o demo (Que é oficial)? Juridicamente valido?  Como dito, já sei que não contempla todas UF's

  with ACBrGNRE1.Guias.Add.GNRE do
  begin
    c01_UfFavorecida := 'PR';
    c02_receita := 100099;
    c28_tipoDocOrigem := 10;
    c04_docOrigem := '777777';
    c06_valorPrincipal := 120.50;
    c14_dataVencimento := Now;
    c15_convenio := '16461313';
    c17_inscricaoEstadualEmitente := '9023725557';
    c33_dataPagamento := Now;
  end;

cada estado tem sua configuração, o demo so faz uma demonstração de como é feito, tem estados que exige informações complementares como numero do danfe e outras informações, tem outros estados que vc tem que informar um produto, cada estado tem sua particularidade. Existem estado que o produto é o mesmo, mas tem outros que o produto muda o nome, então tem que entrar no site e ver qual de adapta mais na sua realidade.

http://www.gnre.pe.gov.br/gnre/portal/GNRE_LoteGerar.jsp

Segue como eu fiz o meu

 

  with ACBrGNRE1.Guias.Add.GNRE do
  begin
    c01_UfFavorecida              := 'PR';
    c02_receita                   := 100099; // codigo da receita
    c28_tipoDocOrigem             := 10;
    c04_docOrigem                 := '253701';
    c06_valorPrincipal            := 1.00;

    if c01_UfFavorecida = 'SC' then
       c10_valorTotal             := 1.00;

    c14_dataVencimento            := Now;
    c15_convenio                  := '16461313'; // codigo do convenio
    c33_dataPagamento             := Now;

    c27_tipoIdentificacaoEmitente := 1; //1 - CNPJ / 2 - CPF
    c03_idContribuinteEmitente    := '11111111111111';
//    c17_inscricaoEstadualEmitente := '102640394';
    c16_razaoSocialEmitente       := 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'; // Razão Social
    c18_enderecoEmitente          := 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'; // Endereço
    c20_ufEnderecoEmitente        := 'GO'; // Estado
    c19_municipioEmitente         := '08707'; // Codigo do IBGE do Municipio eX: 5208707 devera ser informado somente 08707
    c21_cepEmitente               := '74375740'; // cep do emitente
    c22_telefoneEmitente          := 'XXXXXXXXXX'; // telefone do emitente

    if c01_UfFavorecida <> 'BA' then
     begin
        // dados do destinatario
        c34_tipoIdentificacaoDestinatario := 1; // 1 - CNPJ / 2 - cpf
        c35_idContribuinteDestinatario    := '11111111111111'; // cnpj
        c38_municipioDestinatario         := '05300';  // Codigo do IBGE do Municipio eX: 5208707 devera ser informado somente 08707
        c37_razaoSocialDestinatario       := 'XXXXXXXXXXXXXXXXXXXXXXXX'; // razão social
     end;

    if (c01_UfFavorecida = 'MA') Or // MARANHÃO
        (c01_UfFavorecida = 'MS') Or // MATO GROSSO DO SUL
         (c01_UfFavorecida = 'MG') Or // MINAS GERAIS
          (c01_UfFavorecida = 'BA') Or // BAHIA
           (c01_UfFavorecida = 'CE') Or // CEARÁ
            (c01_UfFavorecida = 'AM') Or // AMAZONAS
             (c01_UfFavorecida = 'RR') Or // RIO GRANDE DO NORTE
              (c01_UfFavorecida = 'PI') Or // PIAUI
               (c01_UfFavorecida = 'TO') Or // PIAUI
                (c01_UfFavorecida = 'AC') then // ACRE
                  c26_produto := 33 // Comercio outros não especificados
    else
    if c01_UfFavorecida = 'AL' then // ALAGOAS
       c26_produto := 45
    else
    if (c01_UfFavorecida = 'PE') Or // PERNAMBUCO
        (c01_UfFavorecida = 'SC') Or // SANTA CATARINA
         (c01_UfFavorecida = 'CE') then // CEARA
           c26_produto := 20;

    if (c01_UfFavorecida = 'MA') Or // MARANHÃO
        (c01_UfFavorecida = 'MS') Or // MATO GROSSO DO SUL
         (c01_UfFavorecida = 'MG') Or // MINAS GERAIS
          (c01_UfFavorecida = 'BA') Or // BAHIA
           (c01_UfFavorecida = 'CE') Or // CEARÁ
            (c01_UfFavorecida = 'AM') Or // AMAZONAS
             (c01_UfFavorecida = 'RR') Or // RIO GRANDE DO NORTE
              (c01_UfFavorecida = 'PE') Or // PERNAMBUCO
               (c01_UfFavorecida = 'SC') Or // SANTA CATARINA
                (c01_UfFavorecida = 'AC') then // ACRE
                  c25_detalhamentoReceita := 12
    else
    if c01_UfFavorecida = 'MT' then // MATO GROSSO
       c25_detalhamentoReceita := 17
    else
    if c01_UfFavorecida = 'TO' then // TOCANTINS
       c25_detalhamentoReceita := 5;

    referencia.mes := '03';
    referencia.ano := 2016;

    // informar numero da nota fiscal eletronica
   if (c01_UfFavorecida = 'MS') Or // MATO GROSSO DO SUL
       (c01_UfFavorecida = 'RS') Or // RIO GRANDE DO SUL
         (c01_UfFavorecida = 'AM') Or // AMAZONAS
          (c01_UfFavorecida = 'RR') Or // RIO GRANDE DO NORTE
           (c01_UfFavorecida = 'PE') Or // PERNAMBUCO
            (c01_UfFavorecida = 'RO') Or // RONDONIA
             (c01_UfFavorecida = 'SC') Or // SANTA CATARINA
              (c01_UfFavorecida = 'AP') Or // AMAPA
               (c01_UfFavorecida = 'TO') Or // AMAPA
                (c01_UfFavorecida = 'AC') then
             begin
                camposExtras.Add;
                camposExtras.Items[0].campoextra.tipo   := 'T';
                camposExtras.Items[0].campoextra.valor  := '52160374115163000156550010002537011002537011';

                if (c01_UfFavorecida = 'MS') then // MATO GROSSO DO SUL
                   camposExtras.Items[0].campoextra.codigo := 27
                else
                if c01_UfFavorecida = 'RS' then
                   camposExtras.Items[0].campoextra.codigo := 74
                else
                if c01_UfFavorecida = 'AM' then
                   camposExtras.Items[0].campoextra.codigo := 12
                else
                if c01_UfFavorecida = 'RR' then
                   camposExtras.Items[0].campoextra.codigo := 36
                else
                if c01_UfFavorecida = 'PE' then
                  begin
                   camposExtras.Items[0].campoextra.codigo := 09;

                   camposExtras.Add;
                   camposExtras.Items[1].campoextra.codigo := 04;
                   camposExtras.Items[1].campoextra.tipo   := 'T';
                   camposExtras.Items[1].campoextra.valor  := c16_razaoSocialEmitente;

                  end
                else
                if c01_UfFavorecida = 'RO' then
                   camposExtras.Items[0].campoextra.codigo := 83
                else
                if c01_UfFavorecida = 'AC' then
                  begin
                   camposExtras.Items[0].campoextra.codigo := 76;

                   camposExtras.Add;
                   camposExtras.Items[1].campoextra.codigo := 68;
                   camposExtras.Items[1].campoextra.tipo   := 'T';
                   camposExtras.Items[1].campoextra.valor  := c16_razaoSocialEmitente;
                  end
                else
                if c01_UfFavorecida = 'TO' then
                  begin
                   camposExtras.Items[0].campoextra.codigo := 80;

                   camposExtras.Add;
                   camposExtras.Items[1].campoextra.codigo := 72;
                   camposExtras.Items[1].campoextra.tipo   := 'T';
                   camposExtras.Items[1].campoextra.valor  := c16_razaoSocialEmitente;
                  end
                else
                if c01_UfFavorecida = 'SC' then
                      camposExtras.Items[0].campoextra.codigo := 84
                else
                if c01_UfFavorecida = 'AP' then
                      camposExtras.Items[0].campoextra.codigo := 47;
             end
   else
    if c01_UfFavorecida = 'MG' then
       begin
          camposExtras.Add;
          camposExtras.Items[0].campoextra.codigo := 45; // 45; // minas gerais, ler o manual gnre
          camposExtras.Items[0].campoextra.tipo   := 'T';
          camposExtras.Items[0].campoextra.valor  := c16_razaoSocialEmitente;
       end
    else
    if c01_UfFavorecida = 'PR' then
       begin
          camposExtras.Add;
          camposExtras.Items[0].campoextra.codigo := 57;
          camposExtras.Items[0].campoextra.tipo   := 'T';
          camposExtras.Items[0].campoextra.valor  := c16_razaoSocialEmitente;

          camposExtras.Add;
          camposExtras.Items[1].campoextra.codigo := 57;
          camposExtras.Items[1].campoextra.tipo   := 'T';
          camposExtras.Items[1].campoextra.valor  := c16_razaoSocialEmitente;
       end
    else
    if c01_UfFavorecida = 'AL' then
       begin
          camposExtras.Add;
          camposExtras.Items[0].campoextra.codigo := 65;
          camposExtras.Items[0].campoextra.tipo   := 'T';
          camposExtras.Items[0].campoextra.valor  := c16_razaoSocialEmitente;

          camposExtras.Add;
          camposExtras.Items[1].campoextra.codigo := 65; // 45; // minas gerais, ler o manual gnre
          camposExtras.Items[1].campoextra.tipo   := 'T';
          camposExtras.Items[1].campoextra.valor  := c16_razaoSocialEmitente;
       end
  end;
 

Segue demo completo que estou utilizando

Delphi.zip

[johnbh3]

Existe no site o link TABELAS- http://www.gnre.pe.gov.br/gnre/portal/consultarTabelas.jsp

Eles não tem essa tabela em TXT? Você sabe dizer?
No site só vi para consulta.