Registros C591 e C595 não somam ao Bloco 9

[Felix Fernandes]

Olá.

Estava gerando o SPED Fiscal com os registros C591 e C595, e observei que eles não estão sendo totalizados no bloco 9.

Acredito que para solucionar, deve-se acrescentar o seguinte trecho ao método TACBrSPEDFiscal.WriteRegistroC990

       if Bloco_C.RegistroC591Count > 0 then
       begin
         with New do
         begin
           REG_BLC := 'C591';
           QTD_REG_BLC := Bloco_C.RegistroC591Count;
         end;
       end;
       if Bloco_C.RegistroC595Count > 0 then
       begin
         with New do
         begin
           REG_BLC := 'C595';
           QTD_REG_BLC := Bloco_C.RegistroC595Count;
         end;
       end;

Poderiam dar uma conferida se é isso mesmo, e subir a alteração pra galera?

Desde já agradeço.

[EMBarbosa]

19 horas atrás, Felix Fernandes disse:

Olá.

Estava gerando o SPED Fiscal com os registros C591 e C595, e observei que eles não estão sendo totalizados no bloco 9.

Acredito que para solucionar, deve-se acrescentar o seguinte trecho ao método TACBrSPEDFiscal.WriteRegistroC990

       if Bloco_C.RegistroC591Count > 0 then
       begin
         with New do
         begin
           REG_BLC := 'C591';
           QTD_REG_BLC := Bloco_C.RegistroC591Count;
         end;
       end;
       if Bloco_C.RegistroC595Count > 0 then
       begin
         with New do
         begin
           REG_BLC := 'C595';
           QTD_REG_BLC := Bloco_C.RegistroC595Count;
         end;
       end;

Poderiam dar uma conferida se é isso mesmo, e subir a alteração pra galera?

Desde já agradeço.

Olá Felix.

Por favor, anexe os arquivos alterados. Isso facilita a análise.

[Felix Fernandes]

Boa tarde. Segue arquivo modificado.

ACBrSpedFiscal.pas

[EMBarbosa]

31 minutos atrás, Felix Fernandes disse:

Boa tarde. Segue arquivo modificado.

ACBrSpedFiscal.pas 79 kB · 0 downloads

Muito obrigado pela contribuição.
Fiz a implementação baseada nela.
Subi as alterações para o SVN na Revisão  18898.
Pelo que vi está tudo certo.
Queira por favor atualizar, testar e reportar qualquer problema.

Mais uma vez obrigado.