[Erro] Registro 9900 não traz informações do Registro 1010.

[VistoTecnologia]

Bom Dia, devido aos testes do paf e adiantamento de data na ECF, cheguei no mes 07 da ECF. Por isso fui gerar o Sped Fiscal e pediu o Registro 1010.

Criei e Alimentei da seguinte forma:

with ACBrSPEDFiscal1.Bloco_1.Registro1001New do

begin

IND_MOV := imComDados;

end;

with ACBrSPEDFiscal1.Bloco_1.Registro1010New do

begin

IND_EXP := 'N';

IND_CCRF := 'N';

IND_COMB := 'N';

IND_USINA := 'N';

IND_VA := 'N';

IND_EE := 'N';

IND_CART := 'N';

IND_FORM := 'N';

IND_AER := 'N';

end;

Porém ele traz a seguinte mensagem no validador: "É Necessário Totalizar os registros no bloco 9".

Obrigado.

[EMBarbosa]

Acho que não entendi o erro. Mas tente da seguinte forma.

  with ACBrSPEDFiscal1.Bloco_1.Registro1001New do

  begin

    IND_MOV := imComDados;

    with Registro1010New do

    begin

      IND_EXP   := 'N';

      IND_CCRF  := 'N';

      IND_COMB  := 'N';

      IND_USINA := 'N';

      IND_VA    := 'N';

      IND_EE    := 'N';

      IND_CART  := 'N';

      IND_FORM  := 'N';

      IND_AER   := 'N';

    end;

  end;

[/code]


Se não funcionar. Favor dar mais detalhes sobre o erro e, se possível, o que poderia ser feito para corrigir.

[Luiz Paulo]

Olá,

Aconteceu comigo esse mesmo problema.

Eu baixei esta semana o validador do Sped e pra mim passar sem problemas tive de modificar os fontes do acbr.

Era assim:

procedure TACBrSPEDFiscal.WriteRegistro1001;

begin

Bloco_1.WriteRegistro1001;

//

with Bloco_9.Registro9900 do

begin

with New do

begin

REG_BLC := '1001';

QTD_REG_BLC := 1;

end;

end;

if Bloco_1.Registro1001.IND_MOV = imComDados then

begin

with Bloco_9.Registro9900 do

begin

if Bloco_1.Registro1100Count > 0 then

begin

with New do

begin

REG_BLC := '1100';

QTD_REG_BLC := Bloco_1.Registro1100Count;

end;

end;

....

E ficou assim:

procedure TACBrSPEDFiscal.WriteRegistro1001;

begin

Bloco_1.WriteRegistro1001;

//

with Bloco_9.Registro9900 do

begin

with New do

begin

REG_BLC := '1001';

QTD_REG_BLC := 1;

end;

end;

if Bloco_1.Registro1001.IND_MOV = imComDados then

begin

with Bloco_9.Registro9900 do

begin

///// -> Acrescentado

if Bloco_1.Registro1010Count > 0 then

begin

with New do

begin

REG_BLC := '1010';

QTD_REG_BLC := 1;

end;

end;

////

if Bloco_1.Registro1100Count > 0 then

begin

with New do

begin

REG_BLC := '1100';

QTD_REG_BLC := Bloco_1.Registro1100Count;

end;

end;

Será feito alguma modificação semelhante no acbr para ajustar isso?

Att,

Luiz Paulo

[EMBarbosa]

Se desejar, anexe as units alteradas para análise.

[Luiz Paulo]

Boa Tarde,

Anexei a alteração que fiz na Unit "ACBrSpedFiscal.pas" relacionado a registro 1010 do Sped.

Espero que seja útil.

Att.

Luiz Paulo Ferrari

ACBrSpedFiscal.pas

[EMBarbosa]

Pelo que eu testei hoje, essa sua alteração não é necessária.

O componente no estado atual já gera o 1010. Mas você precisa informar icomDados como no meu exemplo anterior.

[Luiz Paulo]

Pelo que eu testei hoje, essa sua alteração não é necessária.

O componente no estado atual já gera o 1010. Mas você precisa informar icomDados como no meu exemplo anterior.

Na época o validador apresentava o erro que não havia o totalizador do registro 1010 mesmo informando o icomDados.

Mas, o pessoal do Acbr alterou isso no dia 05 de Julho e agora o código já está certo.

Att

Luiz Paulo