Nova Melhoria GNRE

[Gustavo Déo da Silva]

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

[Juliana Tamizou]

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

[BigWings]

1 hora atrás, Gustavo Déo da Silva disse:

Segue unit corrigida em anexo...

Não consegui baixar... por favor anexe o arquivo novamente.

[Gustavo Déo da Silva]

ACBrGNREGuiaFRDM.pas

Segue o anexo...

 

Att.:

 

Gustavo Déo

ACBrGNREGuiaFRDM.pas

Edited March 4, 2020 by Gustavo Déo da Silva
Descrição

[BigWings]

Por favor teste com o arquivo anexo.

ACBrGNREGuiaFRDM.pas

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

[Gustavo Déo da Silva]

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

[BigWings]

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.

[Gustavo Déo da Silva]

16 minutos atrás, BigWings disse:

Obrigado por reportar.

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

Obrigado pela contribuição.

Eu que agradeço...

O tópico pode ser encerrado... 

Obrigado...