Estou fazendo um projeto que usa um servidor REST com FireDac.
Utilizo uma função Genérica para dar meus select
mas quando tento dar meu ApplyUpdates
ele não da erro nenhum mas os dados não são refletidos no DB.
Meu Applyupdates
:
function TServerMethods.ApplyUpdates(banco, tabela : String; const DeltaList: TFDJSONDeltas; var Mensagem : String) : Boolean;
var
LApply : IFDJSONDeltasApplyUpdates;
Query : TFDQuery;
begin
mensagem := '';
result := false;
try
try
LApply := TFDJSONDeltasApplyUpdates.Create(DeltaList);
Query := CriaQuery(banco,Tabela);
Query.Open();
LApply.ApplyUpdates(banco + '.' + tabela, Query.Command);
if LApply.Errors.Count > 0 then
raise Exception.Create(LApply.Errors.Strings.ToString);
result := true;
except
on E:Exception do
begin
mensagem := 'Ocorreu um Erro na atualização: ' + #13#10 + E.Message;
end;
end;
finally
end;
end;
Acredito que o problema esteja aqui mas existe a vaga possibilidade do erro estar no meu binding (que gero em tempo de execução).
Muito Obrigado.