Fórum Transaction x Datasnap(3 camadas) #461040

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