Jump to content

dev botao

Erro no registro 0300


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

Recommended Posts

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?

Link to comment
Share on other sites

  • Consultores

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.
Link to comment
Share on other sites

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.

Link to comment
Share on other sites

  • 2 weeks later...
  • Consultores

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.
Link to comment
Share on other sites

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

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
×
×
  • 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.

The popup will be closed in 10 seconds...
The popup will be closed in 10 seconds...