Ir para conteúdo
  • Cadastre-se

dev botao

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

Recommended Posts

Postado

Ola Pessoal Boa Tarde

Gerando o registro 0300 pelo componente, o campo 03 "IDENT_MERC" do referido registro esta montando errado, quando o manual diz que este campo deve ser Caracter de 1 posição, quando passado para o mesmo por exemplo um valor correto = 1 "BEM", o mesmo retorna algo parecido com uma data.

algume ja passou por isso?

  • Consultores
Postado

Olá,

Acabei de observar esse mesmo erro no Demo. Está acontecendo no Delphi 2010. O motivo é que no método TBloco_0.WriteRegistro0300, onde é chamado LFill( IDENT_MERC ), o compilador do Delphi por algum motivo está usando a função LFill incorreta. Está sendo chamada a função LFill para parâmetros TDateTime ao invés da LFill para Integer.

Abaixo uma correção provisória até que alguém tenha mais tempo pra verificar. ACBrEFDBloco_0_Class.pas linha 685


Add( LFill('0300') +
LFill( COD_IND_BEM ) +
LFill( IDENT_MERC, 1) +
LFill( DESCR_ITEM ) +
LFill( COD_PRNC ) +
LFill( COD_CTA ) +
DFill( NR_PARC, 0 ) ) ;
[/code]

EDIT: Se isso ocorreu aqui pode ser que ocorra em outros lugares também.

[]'s

Consultor SAC ACBr

Elton
Profissionalize o ACBr na sua empresa, conheça o ACBr Pro.

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

Um engenheiro de Controle de Qualidade(QA) entra num bar. Pede uma cerveja. Pede zero cervejas.
Pede 99999999 cervejas. Pede -1 cervejas. Pede um jacaré. Pede asdfdhklçkh.
Postado

Olá,

Acabei de observar esse mesmo erro no Demo. Está acontecendo no Delphi 2010. O motivo é que no método TBloco_0.WriteRegistro0300, onde é chamado LFill( IDENT_MERC ), o compilador do Delphi por algum motivo está usando a função LFill incorreta. Está sendo chamada a função LFill para parâmetros TDateTime ao invés da LFill para Integer.

Abaixo uma correção provisória até que alguém tenha mais tempo pra verificar. ACBrEFDBloco_0_Class.pas linha 685


             Add( LFill('0300') +

                  LFill( COD_IND_BEM ) +

                  LFill( IDENT_MERC, 1) +

                  LFill( DESCR_ITEM ) +

                  LFill( COD_PRNC ) +

                  LFill( COD_CTA ) +

                  DFill( NR_PARC, 0 ) ) ;

vlw amigo vou fazer um teste aqui e posto um fedback assim que possivel...

EDIT: Se isso ocorreu aqui pode ser que ocorra em outros lugares também.

  • 2 semanas depois ...
  • Consultores
Postado

Foi pro SVN, favor conferir...

[]'s

Consultor SAC ACBr

Elton
Profissionalize o ACBr na sua empresa, conheça o ACBr Pro.

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

Um engenheiro de Controle de Qualidade(QA) entra num bar. Pede uma cerveja. Pede zero cervejas.
Pede 99999999 cervejas. Pede -1 cervejas. Pede um jacaré. Pede asdfdhklçkh.
  • Este tópico foi criado há 5044 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.

The popup will be closed in 10 segundos...