Fórum Transação DbExpress multi camadas #373626

function TLocServ.CarregaFeriados(CodFilial:Integer; Chave: WideString;
  var Messagem: WideString): TSOAPAttachment;
  var
  DataModule:TDM_LOCADORA;
  cdsTemp:TClientDataSet;
begin
 if  ValidaChave(Chave) then
  begin
    DataModule := TDM_LOCADORA.Create(nil);
    try
      with DataModule do
       begin
        Messagem := ´´;
        cdsTemp := TClientDataSet.Create(nil);
        strErro := TStringList.Create;
        cdsTemp.Name := ´cdsTemp´;
        cdsTemp.SetProvider(dspConsultas);
        qryCONSULTAS.Close;
        qryCONSULTAS.CommandText := ´select * from FERIADOS where CODFILIAL=:CODFILIAL order by DATA´;
        qryCONSULTAS.Params[0].AsInteger := CodFilial;
        cdsTemp.Open;
        Registro := TStringStream.Create(cdsTemp.XMLData);
        Registro.Position := 0;
        Result := TSOAPAttachment.Create;
        Result.SetSourceStream(Registro);
       end;
    except on msg:Exception do
      begin
       strErro.Add(´Erro no processo de seleção dos Feriados!´);
       strErro.Add(´Mensagem Original: ´ +msg.Message);
       Messagem := ´Erro no processo de seleção dos Feriados!´+#1313+msg.Message;
      end;
    end;
  end else Messagem := ´Chave de Execução Invalida!´;
end;

//Variavel usada para invocar os métodos da WSDL importadas da Camada Servidora
GetLocadora :=GetILocServ();
//Transporto os dados processados no Servidor para a Camada Cliente passando alguns parametros
cdsCONSULTAS.LoadFromStream(GetLocadora.CarregaFeriados(GlbFilial, ´MINHA_CHAVE_VALIDACAO´, Mensagem).SourceStream);