Registro obrigatorio H005

[Gr@c@]

Estou gerando sped de uma empresa, com bloco H sem movimento (IND_MOV = imSemDados). Porém está exigindo o bloco H005. Não consigo gerá-lo porque não gera sem valor. O que devo fazer?  

procedure TBloco_H.WriteRegistroH001;
begin
  if Assigned(RegistroH001) then
  begin
     with RegistroH001 do
     begin
       Add( LFill( 'H001' ) +
            LFill( Integer(IND_MOV), 0 ) ) ;

       if IND_MOV = imComDados then =======================> aqui
       begin
          WriteRegistroH005(FRegistroH001);
       end;
     end;

     RegistroH990.QTD_LIN_H := RegistroH990.QTD_LIN_H + 1;
  end;
end;

 

[Gr@c@]

2 horas atrás, Gr@c@ disse:

Estou gerando sped de uma empresa, com bloco H sem movimento (IND_MOV = imSemDados). Porém está exigindo o bloco H005. Não consigo gerá-lo porque não gera sem valor. O que devo fazer?  

procedure TBloco_H.WriteRegistroH001;
begin
  if Assigned(RegistroH001) then
  begin
     with RegistroH001 do
     begin
       Add( LFill( 'H001' ) +
            LFill( Integer(IND_MOV), 0 ) ) ;

       if IND_MOV = imComDados then =======================> aqui
       begin
          WriteRegistroH005(FRegistroH001);
       end;
     end;

     RegistroH990.QTD_LIN_H := RegistroH990.QTD_LIN_H + 1;
  end;
end;

 

Obrigada, já percebi o erro. conforme o manual do SPED "Este registro deve ser gerado para abertura do bloco H, indicando se há registros de informações no bloco.
Obrigatoriamente deverá ser informado “0” no campo IND_MOV no período de referência fevereiro de cada ano.Contribuinte que apresente inventário com periodicidade anual ou trimestral, caso apresente o inventário de 31/12 na EFD ICMS IPI de dezembro ou janeiro, deve repetir a informação na escrituração de fevereiro. No registro H005 Atribuir valor Zero ao inventário significa escriturar sem estoque. Se não houver registro H010, o valor do campo VL_INV do H004 deve ser “0” (zero).".