Jump to content

Assista click.png tectoy.png

C6 chamada_c6.png botao.png

Erro no registro 0300


asterix
  • Este tópico foi criado há 4117 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á 4117 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.