ERRO PIS\COFINS

[evertonbuenolima]

Bom dia,

Estou com um problema com o acbrpiscofins, quando estou mando gerar o arquivo o campo [ DTFIN ] quando esta gravando ele não está obdecendo a data passada sempre ela é modificada, os bloco [ A,C,D,F ] estou passando em [ IND_MOV = imsemdados ] e quando é preenchido no arquivo txt ele esta colocando 0. E ao validar o arquivo esta apresendo esses erros de validação ainda não conseguir encontrar solução caso alguem tenha passado por isso e conseguiu uma solução da um ajudinha ai ^.^

Att,

Éverton Bueno Lima

[EMBarbosa]

Por favor, verifique o demo. Acho que ele tem ambos os exemplos.

[evertonbuenolima]

Ola amigo, com os exemplos esta acontecendo a mesma coisa

|A001|0| <==== Deveria ficar: |A001|1|

|A990|2|

|C001|0| <==== Deveria ficar: |C001|1|

|C990|2|

|D001|0| <==== Deveria ficar: |D001|1|

|D990|2|

|F001|0| <==== Deveria ficar: |F001|1|

|F990|2|

Esse teste foi realizado com o exemplo [ ACBRPISCOFINS ], não marcando os arquivos acima para ser gerado.

Att,

Éverton

[EMBarbosa]

???

Observe o bloco 1 a tag imSemDados

   with ACBrSPEDPisCofins1.Bloco_1 do

   begin

      with Registro1001New do

      begin

         IND_MOV := imSemDados;

      end;

   end;

[/code]

[evertonbuenolima]

Estou passando

with ACBrSPEDPisCofins1.Bloco_A do

begin

with RegistroA001New do

begin

IND_MOV := imSemDados;

end;

ACBrSPEDPisCofins1.WriteBloco_A(True);

end;

e quando entra no [ ACBRPISCOFINS ] nesse procedure

procedure TACBrSPEDPisCofins.WriteBloco_A( FechaBloco : Boolean );

begin

if Bloco_A.Gravado then exit ;

if not Bloco_0.Gravado then

WriteBloco_0;

/// BLOCO A

WriteRegistroA001;

******************** Esse campo está trazendo sempre [ imcomdados ] *******************************

if Bloco_A.RegistroA001.IND_MOV = imSemDados then

FechaBloco := True ;

***************************************************************************************

if FechaBloco then

WriteRegistroA990;

Bloco_A.WriteBuffer;

Bloco_A.Conteudo.Clear;

Bloco_A.Gravado := FechaBloco;

end;

Att,

Everton

[EMBarbosa]

seu componente deve estar desatualizado ou eu não estou entendendo o seu problema.

Eu fiz o Seguinte:

Abri o demo do SPEDpisCofins

Mudei o código de icomDados para isemDados (linha 927):

   with ACBrSPEDPisCofins1.Bloco_A do

   begin

      with RegistroA001New do

      begin

         IND_MOV := imSemDados;

         //

         with RegistroA010New do

         begin

[/code]


Cliquei em Todos os Blocos.

Cliquei em Gerar TXT.

Veja aí o resultado do Bloco A:



......

|0990|60|

|A001|1|

|A990|2|

|C001|0|

......

[evertonbuenolima]

Amigo, obrigado pela ajuda realmente o exemplo informando imsemdados ele colocou corretamente no txt, vou verificar aqui pq o meu esta deixando errado.

Obrigaod pela ajuda.....

[EMBarbosa]

Amigo, obrigado pela ajuda realmente o exemplo informando imsemdados ele colocou corretamente no txt, vou verificar aqui pq o meu esta deixando errado.

Obrigaod pela ajuda.....

Espero que resolva.

Uma sugestão é tentar mudar o código removendo o with. As vezes o uso dele confunde mais do que ajuda principalmente na hora de fazer o debug.