procedure TdlgUsers.DoClicks(IDType: Integer; IsOn: Integer);
var i: Integer;
begin
  for i := 0 to GridPDsDBTV.DataController.RecordCount-1 do
  if (IDType = 0) or (IDType = StrToIntDef(VarToStr(GridPDsDBTV.DataController.Values[i,GridPDsDBTVColIDType.Index]),0)) then
    GridPDsDBTV.DataController.Values[i,GridPDsDBTVColISON.Index] := IsOn;
  GridPDsDBTV.DataController.Post(); //ничо не постит
end;

procedure TdlgUsers.DoClicks(IDType: Integer; IsOn: Integer);
var i: Integer;
  MT: TBookmark;
begin
//  for i := 0 to GridPDsDBTV.DataController.RecordCount-1 do
//  if (IDType = 0) or (IDType = StrToIntDef(VarToStr(GridPDsDBTV.DataController.Values[i,GridPDsDBTVColIDType.Index]),0)) then
//    GridPDsDBTV.DataController.Values[i,GridPDsDBTVColISON.Index] := IsOn;
  try
    DM.TRNShort.StartTransaction;
    with FDQExp do
    try
      MT := GetBookmark;
      DisableControls;
      First;
      while not EOF do
      begin
        if IDTYPE in [0, FieldByName('IDTYPE').AsInteger] then
        begin
          Edit; FieldByName('ISON').AsInteger := ISON; Post;
        end;
        Next;
      end;
      DM.TRNShort.Commit;
      if BookmarkValid(MT) then GotoBookmark(MT);

    finally
      EnableControls;
    end;
  except
    on e:exception do
    begin
      DM.TRNShort.Rollback;
    end;
  end;
end;