Jump to content

Assista click.png tectoy.png

C6 chamada_c6.png botao.png

Nova Melhoria GNRE


Go to solution Solved by BigWings,
  • Este tópico foi criado há 811 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

Bom dia @Italo Jurisato Junior, @Juliana Tamizou...

Nova sugestão de melhoria para a impressão da GNRE..

Unit : ACBrGNREGuiaFRDM

método: procedure TdmACBrGNREFR.CarregaDados;

 

Na impressão da Guia em Fast Report, quando a origem do dado é o XML da Versão 2.0, o cnpj do emitente está ficando em branco, pois uma propriedade (TipoDocEmitente) usada no Case, é vazia devido a não existir no XML...

Sendo assim proponho a seguinte solução...

Antes

      case TipoDocEmitente of
        1: FieldByName('DocEmitente').AsString := FormatMaskText('000\.000\.000\-00;0', DocEmitente);
        2: FieldByName('DocEmitente').AsString := FormatMaskText('00\.000\.000\/0000\-00;0', DocEmitente);
        3: FieldByName('DocEmitente').AsString := RemoverZeros(DocEmitente);
      end;

 

Corrigido...

      if Length(DocEmitente) = 11 then
        FieldByName('DocEmitente').AsString := FormatMaskText('000\.000\.000\-00;0', DocEmitente)
      else if Length(DocEmitente) = 14 then
        FieldByName('DocEmitente').AsString := FormatMaskText('00\.000\.000\/0000\-00;0', DocEmitente)
      else
        FieldByName('DocEmitente').AsString := RemoverZeros(DocEmitente);

 

Segue unit corrigida em anexo...

 

Att.:

 

Gustavo Déo

 

 

ACBrGNREGuiaFRDM.pas

  • Like 1
Link to comment
Share on other sites

  • Administradores

Obrigado pela contribuição, em breve será validada para possível inclusão ao svn

Consultora SAC ACBr

Juliana Tamizou
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.  Discord

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil


Participe de nosso canal no Discord e fique ainda mais próximo da Comunidade !!

Link to comment
Share on other sites

16 horas atrás, BigWings disse:

Por favor teste com o arquivo anexo.

ACBrGNREGuiaFRDM.pas 12 kB · 0 downloads

Acredito que desta forma mantém melhor a retrocompatibilidade com a versão 1.00.

Bom dia...

Eu já havia testado com a versão 1.00 no modelo que passei e havia funcionado...

Mas sua solução tb funcionou perfeitamente... 

Obrigado!!! 

 

Att.:

 

Gustavo Déo

Link to comment
Share on other sites

  • Moderadores
  • Solution
32 minutos atrás, Gustavo Déo da Silva disse:

Eu já havia testado com a versão 1.00 no modelo que passei e havia funcionado...

Mas sua solução tb funcionou perfeitamente... 

Obrigado por reportar.

Enviei o ajuste para o repositório, rev. 19327.

Obrigado pela contribuição.

  • Like 1
Equipe ACBr BigWings
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

 

 

Link to comment
Share on other sites

  • Este tópico foi criado há 811 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.
Guest
This topic is now closed to further replies.
×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.