Jump to content

Delphi chamada_delphi.png acbr.png

C6 chamada_c6.png botao.png

Registro 0200 Acumulando


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

Recommended Posts

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

Rodrigo ®¿®

Curitiba-PR

Link to comment
Share on other sites

  • Consultores

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

[]'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

  • Consultores

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

[]'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

  • 1 month later...

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.

Link to comment
Share on other sites

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.

--
Isaque Pinheiro
Aracruz/ES - Brasil
___________________________________________________________________________
Site Oficial: www.isaquepinheiro.com.br 
Youtube: youtube.com/isaquepinheirooficialbr
Facebook: facebook.com.br/isaquepinheirooficialbr
Instagram: instagram.com/isaquepinheirooficialbr
Linkdin: https://www.linkedin.com/in/isaquepinheirooficialbr

Conheça o Projeto ORMBr Framework for Delphi - https://www.ormbr.com.br

 

Link to comment
Share on other sites

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