Erro Na Criação Registro 0210 (Bloco K)

[netstart]

Bom dia pessoal, estou testando a geração dos blocos que serão necessários para o bloco K, e quando alimentei o componente especificamente no registro 0210, deu alguns erros que acredito ter corrigido, vou anexar as units alteradas para analise, coloquei em comentário a flag para geração apenas 2015 somente para teste.

ACBrEFDBloco_0.pas

ACBrEFDBloco_0_Class.pas

ACBrSpedFiscal.pas

[EMBarbosa]

Por favor, poderia dizer quais são os erros que você corrigiu?

[netstart]

Estava tentado alimentar o componente com os registros 0210 assim:

  IBQRegistros0210.First;

  while not(IBQRegistros0210.Eof) do

  begin

    with ACBrSPEDFiscal1.Bloco_0.Registro0210New do // aqui retorna erro de violação de acesso

    begin

      COD_ITEM_COMP := IBQRegistros0210.FieldByName('COD_ITEM_COMP').AsString;

      QTD_COMP      := IBQRegistros0210.FieldByName('QTD_COMP').AsFloat;

      PERDA         := IBQRegistros0210.FieldByName('PERDA').AsFloat;

    end;

    IBQRegistros0210.Next;

  end;

  Como esta dando erro, fui debugando percebi que a linha de criação estava faltando como nos outros registro:

  

unit ACBrEFDBloco_0;  

constructor TRegistro0200.Create(AOwner: TRegistro0001);

begin

   FRegistro0205 := TRegistro0205List.Create;

   FRegistro0206 := TRegistro0206List.Create;

   FRegistro0210 := TRegistro0210List.Create;  // linha inserida

   FRegistro0220 := TRegistro0220List.Create;

end;

 

destructor TRegistro0200.Destroy;

begin

  FRegistro0205.Free;

  FRegistro0206.Free;

  FRegistro0210.Free; // linha inserida

  FRegistro0220.Free;

  inherited;

end;

Outras alterações fiz fazendo busca no registro 0220 e verificando se existia algum parecido 0210 onde não tinha coloquei como na unit ACBrSpedFiscal: :

         //Inserido

         if Bloco_0.Registro0210Count > 0 then

         begin

            with New do

            begin

               REG_BLC := '0210';

               QTD_REG_BLC := Bloco_0.Registro0210Count;

            end;

         end;

        // Fim 

[Juliomar Marchetti]

Boa tarde

tomei a liberdade e conferi!

sim alguns haviam erros mas outro já havia sido corrigido!

mantenha se possível uma vez na semana atualizado seus fontes!

 

Obrigado pela contribuição já está disponível

[centuryinf]

Boa tarde,

 

atualizei os fontes e alimento o registro 0210  mas ele não gera...

e não retorna nenhum erro..

 

alguma ajuda??

[dvdmengarda]

O registro 0210 só é enviado para o arquivo quando o período utilizado é a partir de 01/01/2015, assim como o "Bloco K"

[centuryinf]

Obrigado pela dica