Ir para conteúdo
  • Cadastre-se

dev botao

Erro ao Imprimir GNRE


fredericofg
  • Este tópico foi criado há 2515 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

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

 

 

 

 

Sem título.png

Editado por Fernando Rodrigo
Link para o comentário
Compartilhar em outros sites

  • 3 meses depois ...
  • 1 mês depois ...
  • Moderadores
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

Consultor SAC ACBr Juliomar Marchetti
 

Projeto ACBr

skype: juliomar
telegram: juliomar
e-mail: [email protected]
http://www.juliomarmarchetti.com.br
MVP_NewLogo_100x100_Black-02.png
 

 

Link para o comentário
Compartilhar em outros sites

  • Moderadores
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.

Consultor SAC ACBr Juliomar Marchetti
 

Projeto ACBr

skype: juliomar
telegram: juliomar
e-mail: [email protected]
http://www.juliomarmarchetti.com.br
MVP_NewLogo_100x100_Black-02.png
 

 

Link para o comentário
Compartilhar em outros sites

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;
 

Link para o comentário
Compartilhar em outros sites

  • Moderadores
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

  • Curtir 1
Consultor SAC ACBr Juliomar Marchetti
 

Projeto ACBr

skype: juliomar
telegram: juliomar
e-mail: [email protected]
http://www.juliomarmarchetti.com.br
MVP_NewLogo_100x100_Black-02.png
 

 

Link para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 2515 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.