Erro ao Imprimir GNRE

[Fernando Rodrigo]

Juliomar, esta com erro na compilação

Na unit na pasta Acbr\Fontes\ACBrDFe\ACBrGNRE\GNRE\Fast

Unit ACBrGNREGuiaFRDM.pas

constructor TdmACBrGNREFR.Create(AOwner: TComponent);

Campos

Transparency    := False;

PdfA            := False;

Se comentar o campo passa normal

Desistalei todo o acbr excluindo os registros antigos e deu o mesmo erro

 

 

 

 

Editado 22 Dezembro, 2016 por Fernando Rodrigo

[Juliomar Marchetti]

Sim isso quer dizer que sua versão do fast report é inferior a 5.0

usamos sempre a última versão.

[emanuels_ces]

Juliomar estou com o mesmo problema, mas estou utilizando o FastReport 5.3.16 onde aparece no Install Components do Delphi XE10 que o FastReport 5. está instalado conforme imagem anexo.

O que pode ser ? grato.

 

 

 

[Juliomar Marchetti]

Certo é qual é o tipo Standard, Professional Enterprise?

[emanuels_ces]

@Juliomar Marchetti, é o Fast Report Enterprise.

Obrigado pelo retorno.

[Danny]

Bom dia colegas!

Ocorre um erro na impressão e fiz uma alteração que resolveu.

Por algum motivo o PeriodoReferencia vem vazio no retorno, mesmo sendo enviado corretamente, e gera o erro quando carrego o "resultado" para imprimir.

Segue em anexo a alteração.

Obrigado.

ACBrGNReGuiaRL.pas

[Juliomar Marchetti]

3 horas atrás, danny disse:

Bom dia colegas!

Ocorre um erro na impressão e fiz uma alteração que resolveu.

Por algum motivo o PeriodoReferencia vem vazio no retorno, mesmo sendo enviado corretamente, e gera o erro quando carrego o "resultado" para imprimir.

Segue em anexo a alteração.

Obrigado.

ACBrGNReGuiaRL.pas

no svn

[Danny]

Juliomar, a unit que você subiu está igual a que estava anteriormente com o problema.

Será que você não se confundiu na hora de subir pro svn?

[Juliomar Marchetti]

28 minutos atrás, danny disse:

Juliomar, a unit que você subiu está igual a que estava anteriormente com o problema.

Será que você não se confundiu na hora de subir pro svn?

Tem razão. mas agora vendo não é legal tratar com except!

o bom é ver o que está ocorrendo pra não gerar essa tag e tratar se ela não está nula.

[Danny]

Tentei verificar o que ocorre, fiz vários testes em ambiente de homologação, mas não entendi o motivo pelo qual no retorno o campo PeriodoReferencia vez ou outra vem vazio.

Na unit este campo é criado como ftString. Não entendo porque logo abaixo é tratado como "AsInteger".

Creio que nesta situação o mais conveniente seria o except.

Porém o que você sugere seria algo parecido com isso?

      if cdsItens.FieldByName('PeriodoReferencia').Text = '' then
        sReferencia := 'Mensal'
      else
        Case cdsItens.FieldByName('PeriodoReferencia').AsInteger of
          0: sReferencia := 'Mensal';
          1: sReferencia := '1a Quinzena';
          2: sReferencia := '2a Quinzena';
          3: sReferencia := '1o Decêndio';
          4: sReferencia := '2o Decêndio';
          5: sReferencia := '3o Decêndio';
        end;
 

[Juliomar Marchetti]

Isso ou verificar se não está nulo o campo.

[Danny]

Olá Juliomar.

Fiz a alteração que você sugeriu.

Segue a unit em anexo.

Obrigado.

ACBrGNReGuiaRL.pas

[Juliomar Marchetti]

7 horas atrás, danny disse:

Olá Juliomar.

Fiz a alteração que você sugeriu.

Segue a unit em anexo.

Obrigado.

ACBrGNReGuiaRL.pas

No svn a alteração 

Obrigado