Sped Fiscal - Não esta permitindo Gerar um Arquivo em Branco com o IND_MOV = 0 no TXT

[Jefferson Lupinacci]

Ao Informar ao Componente que deverá gerar um arquivo zerado IND_MOV = imSemDados o componente sempre preenche com 1 não respeitando o parametro informado

 

Como esta atualmente não respeitando o parametro

procedure TBloco_0.WriteRegistro0001 ;
begin
  if Assigned(FRegistro0001) then
  begin
     with FRegistro0001 do
     begin
        Add( LFill( '0001' ) +
             LFill( Integer(IND_MOV), 0 ) ) ;

        WriteRegistro0005(FRegistro0001) ;
        WriteRegistro0015(FRegistro0001) ;
        WriteRegistro0100(FRegistro0001) ;
        if IND_MOV = imComDados then
        begin
          WriteRegistro0150(FRegistro0001) ;
          WriteRegistro0190(FRegistro0001) ;
          WriteRegistro0200(FRegistro0001) ;
          WriteRegistro0300(FRegistro0001) ;
          WriteRegistro0400(FRegistro0001) ;
          WriteRegistro0450(FRegistro0001) ;
          WriteRegistro0460(FRegistro0001) ;
          WriteRegistro0500(FRegistro0001) ;
          WriteRegistro0600(FRegistro0001) ;
        end;
     end;

     Registro0990.QTD_LIN_0 := Registro0990.QTD_LIN_0 + 1;
  end;
end;

 

sugestão de alteração para o funcionamento

procedure TBloco_0.WriteRegistro0001 ;
begin
  if Assigned(FRegistro0001) then
  begin
    with FRegistro0001 do
    begin

      if IND_MOV = imSemDados then
        Add( LFill( '0001' ) + LFill( Integer(0), 0 ) )
      else
        Add( LFill( '0001' ) + LFill( Integer(1), 0 ) );

      WriteRegistro0005(FRegistro0001) ;
      WriteRegistro0015(FRegistro0001) ;
      WriteRegistro0100(FRegistro0001) ;

      if IND_MOV = imComDados then
      begin
        WriteRegistro0150(FRegistro0001) ;
        WriteRegistro0190(FRegistro0001) ;
        WriteRegistro0200(FRegistro0001) ;
        WriteRegistro0300(FRegistro0001) ;
        WriteRegistro0400(FRegistro0001) ;
        WriteRegistro0450(FRegistro0001) ;
        WriteRegistro0460(FRegistro0001) ;
        WriteRegistro0500(FRegistro0001) ;
        WriteRegistro0600(FRegistro0001) ;
      end;

    end;

 

[Juliomar Marchetti]

Boa noite

estranhamente você é a única pessoa que reportou isso pois não houve outros relatos!

uso o mesmo para gerar aqui na empresa e trabalhos particulares e não tenho problemas!

veja como está alimentando o componente!