Registro 0200 Acumulando

[rodrigod6]

Estou passando um erro que ocorreu comigo e reportando a solução que fiz.

Gostaria de verificar por que foi feito esta alteração :

O meu chamado continua o mesmo :

with ACBrSpedFiscal1.Bloco_0.Registro0200New do

Pois quando gera os itens estão saindo assim no arquivo :

PROD A

PROD A|PROD B

PROD A|PROD B|PROD C

PROD A|PROD B|PROD C|PROD D

e assim por diante !!!

SOLUÇÃO :

O Problema está em (ACBrEFDBloco_0_Class.pas) :

procedure TBloco_0.WriteRegistro0200(Reg0001: TRegistro0001) ;

Antes:

//...

for intFor := 0 to Reg0001.Registro0200.Count - 1 do

     begin

        with Reg0001.Registro0200.Items[intFor] do

        begin

//...

  Add( LFill('0200') +

               LFill( COD_ITEM ) +

//...

AGORA :

//...

    strLinha := '';

     for intFor := 0 to Reg0001.Registro0200.Count - 1 do

     begin

        with Reg0001.Registro0200.Items[intFor] do

        begin

//...

  strLinha := strLinha +

                      LFill('0200') +

//...

          Add( strLinha );

//...

Dai fica acumulando ... Solução encontrada até o momento foi:

//...

    strLinha := '';

     for intFor := 0 to Reg0001.Registro0200.Count - 1 do

     begin

       [b] strLinha := '';    //<----- AQUI[/b]

        with Reg0001.Registro0200.Items[intFor] do

        begin

//...

Alguém sabe porque foi alterado isso ?

Rodrigo

[EMBarbosa]

Me parece que o Isaque adicionou um(alguns) evento(s) no componente. Isso deve ter introduzido o bug.

EDIT: ver também http://www.djsystem.com.br/acbr/mantis/view.php?id=1146

[EMBarbosa]

Subi uma correção para isso. Favor testar.

[JLuis]

Bom dia,

Após atualizar o ACBr (hoje) também tive este problema do acúmulo e precisei fazer o ajuste sugerido de reinicializar a variável strLinha no ponto indicado abaixo:

// ACBrEFDBloco_0_Class ... procedure TBloco_0.WriteRegistro0200(Reg0001: TRegistro0001) ;

for intFor := 0 to Reg0001.Registro0200.Count - 1 do

begin

strLinha := ''; // <<<-------- Acrescentar

with Reg0001.Registro0200.Items[intFor] do

begin

Não sei se é a melhor solução mas se não houver outra seria interessante alguém subir esta alteração para o SVN evitando assim problemas para outros usuários.

Desde já agradeço.

[Isaque Pinheiro]

Bom dia,

Após atualizar o ACBr (hoje) também tive este problema do acúmulo e precisei fazer o ajuste sugerido de reinicializar a variável strLinha no ponto indicado abaixo:

// ACBrEFDBloco_0_Class ... procedure TBloco_0.WriteRegistro0200(Reg0001: TRegistro0001) ;

for intFor := 0 to Reg0001.Registro0200.Count - 1 do

begin

strLinha := ''; //

with Reg0001.Registro0200.Items[intFor] do

begin

Não sei se é a melhor solução mas se não houver outra seria interessante alguém subir esta alteração para o SVN evitando assim problemas para outros usuários.

Desde já agradeço.

Pessoal, peço desculpas a vocês por minha falha, fiz a alteração sugerida e subi para o SVN, por gentileza testem e me deem um retorno o mais rápido possível se funcionou, fico no aguardo para algum ajuste se preciso.

Essas alterações foram para implementar eventos no componentes para atender a necessidade de gerar um leiaute em um formato diferente do SPED, pois alguns sistemas de contabilidade exigem um formato diferente.