Transaction x Datasnap(3 camadas)
Estou migrando para 3 camadas, sistema em Depbi XE3 e Firebird.
Sempre usei a estrutura abaixo para realizar INSERT, DELETE, UPDATE NO banco(firebird) em duas camadas, como fica a questão das transações no DataSnap, alguém poderia me dar uma mãozinha.
var
trs_a : TDBXtransaction;
begin
trs_a := dm.patrimonio.BeginTransaction(TDBXisolations.ReadCommitted);
if messageDlg('Você tem certeza que quer Conciliar estes Itens ? ',
mtConfirmation, [MbYes, mbNo],1) = mrYes then
Begin
Try
dm.SQL_conciliado.Close;
dm.SQL_conciliado.commandText :=
…
…
…
…
dm.SQL_conciliado.Execute();
showmessage('A conciliação de Bens foi bem sucedida ! ');
edit7.Text := '';
edit8.Text := '';
edit9.Text := '';
edit10.Text := '';
tomatu := 0;
tomant := 0;
label17.Caption := inttostr(tomant);
label19.Caption := inttostr(tomatu);
dbsplano.Visible :=false;
speedbutton1.Click;
dm.patrimonio.CommitFreeAndNil(trs_a);
except
showmessage('A conciliação de Bens nao foi bem sucedida ! ');
dm.patrimonio.RollbackIncompleteFreeAndNil(trs_a);
End;
Ncajunior
Nilson Jr
Curtidas 0