Erro FCONT

[Massao Aihara]

Abri esse topico para informar que no fonte "ACBrSpedFCONT.pas"

Quando vai totalizar o Registro M025 no bloco 9,

Esta fixando o valor 1 na quantidade:

"QTD_REG_BLC := 1;"

alterei o meu para:

"QTD_REG_BLC := Bloco_M.RegistroM025.Count;"

Qualquer outros "erros" que eu for encontrando vo postar nesse topico mesmo para aproveita-lo.

~ Akai ~

[EMBarbosa]

Estou fazendo uma verificação aqui que o M020 também está assim.

Não tenho a documentação aqui comigo do FCONT.

Pode confirmar que esses registros podem ser gerados mais de um por arquivo?

Outra coisa, observando o código do J930, parece que não é só trocar o count...

Então a correção que deve ser feita deve ser a seguinte:

function TACBrSPEDFCont.WriteRegistroM020: AnsiString;

begin

   Result := Bloco_M.WriteRegistroM020;


   if Bloco_J.RegistroM020.Count > 0 then

   begin

     with Bloco_9.Registro9900.New do

     begin

        REG_BLC := 'M020';

        QTD_REG_BLC := Bloco_M.RegistroM020.Count;

     end;

   end;


end;


function TACBrSPEDFCont.WriteRegistroM025: AnsiString;

begin

   Result := Bloco_M.WriteRegistroM025;


   if Bloco_J.RegistroM025.Count > 0 then

   begin

     with Bloco_9.Registro9900.New do

     begin

       REG_BLC := 'M025';

       QTD_REG_BLC := Bloco_M.RegistroM025.Count;

     end;

   end;

end;

[/code]


EDIT: Será que pode testar aí e me dar um retorno?


Sobre outros erros:

1) Crie tópicos novos sempre que os erros não tiverem relação entre si. 

2) Use uma descrição mais detalhada no título possível. 

Não precisa economizar. Isso torna muito mais fácil pesquisar depois.

[Massao Aihara]

ok's...pelo documentação do sped fcont o M020 ocorre uma vez so por arquivo

m025 varias/arquivo

m030 ate 4 vezes/arquivo

m155 varos/arquivo

...

Se quiser passo a lista por email.

Dei uma testada aqui e gerou certo...

mas desque baixei o validador 4.6 do site da receita...valida o layout ai

ele vai validar os dados e fica validando validando...

e depois de ums 15~20min ele fecha o programa e nao retorna nada,

sera que isso acontece so comigo?

[EMBarbosa]

Hmm... então a alteração ao Registro M020 não era necessária...

Não sei quanto ao seu validador. Como não tenho usado aqui não posso afirmar... mas o validador do SPED PIS/Confins estava com bug e foi atualizado. Não duvido que possa haver algum erro também...

Teste com outros arquivos.

Não tem necessidade de me enviar nada por e-mail. Se você achar necessário mais alguma alteração além dessa sugerida, pode usar aqui o fórum mesmo.

[Massao Aihara]

ok

...vou tentar gerar um arquivo menor aqui para ver se valida...

obrigado!!!

[EMBarbosa]

Já enviei para o SVN a correção. revisão 3049

[AMOliveira]

Já enviei para o SVN a correção. revisão 3049

Parcero, atualizei a biblioteca e não esta compilando o ACBrSpedFCont.pas

if Bloco_J.RegistroM025.Count > 0 then

não seria isso

if Bloco_M.RegistroM025.Count > 0 then

??

Abraço,

[EMBarbosa]

Barbaridade chê ... passou despercebido.

Obrigado pela pronta resposta.

Já corrigi e submeti ao SVN.

[igmaster2000]

meu amigo, vc onseguiu passar seu fcont pelo componente, como vc fez isso, onde esta esta versão.

[Juliomar Marchetti]

Chegou a ver a data do post igmaster2000?