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;