Código Delphi [-] Result := False; // nunca sabemos que puede pasar. Try miClientDataSet.post; miClientDataSet.ApplyUpdates(0); IBTransaction1.Commit; Result := True; // todo ha salido bien Except IBTransaction1.Rollback; end;
Result := False; // nunca sabemos que puede pasar. Try miClientDataSet.post; miClientDataSet.ApplyUpdates(0); IBTransaction1.Commit; Result := True; // todo ha salido bien Except IBTransaction1.Rollback; end;