Erro no registro 0300

[asterix]

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?

[EMBarbosa]

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.

[asterix]

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.

[EMBarbosa]

Foi pro SVN, favor conferir...