Gnre - Não Gera Guia Sem Mostrar Mensagem De Erro

[colmanetti]

Na unit ACBrGNREWebServices.pas  na linha 658 está causando erro.

 

 

 {$IFDEF SoapHTTP}

        Stream := TMemoryStream.Create;

        StrStream := TStringStream.Create('');

        try

          ReqResp.Execute(Acao.Text, Stream);  // Dispara exceptions no caso de erro

          StrStream.CopyFrom(Stream, 0);

          FRetornoWS := TiraAcentos(ParseText(StrStream.DataString, True));

        finally

          StrStream.Free;

          Stream.Free;

        end;

      {$ELSE}

        ReqResp.Data := Acao.Text;

        FRetornoWS := ReqResp.Execute;

      {$ENDIF}

      FRetWS     := SeparaDados( FRetornoWS, 'processarResponse');

 

      //StrStream.Free;   *********LINHA COM ERRO

 

 

[Juliomar Marchetti]

correção no SVN