Bug (in Unigui) - "DataSet not in Edit or Insert mode" on event "onAfterEdit"

[Skyp]

There is a form on which there is a TvirtualTable (Unidac package) or Tfdmemtable (FireDAC package)(tried both).

uniDBCheckBox components bound to DataSource:

When changing the DataSource, I try to edit adjacent records in the same DataSet (code onAfterEdit): 

procedure TUFrameTreeRulesF.FFrmStructVTableAfterEdit(DataSet: TDataSet);
  procedure MainUpd;
    procedure UpdateRefresh(aIsEnabled, aIsNotifyInface, aIsNotifyEMail: Boolean; aParentStr: string);
    var
      lvq: TVirtualQuery; /// throught query (localSQL)
      lwherestr: string;
    const
      CDefUpdateParentStr : string = 'UPDATE source SET %s WHERE  (idname=:pname OR idname LIKE :pname2) OR id=:pname;';
  begin
      lwherestr := EmptyStr;
      lvq := TVirtualQuery.Create(nil);
      try
       lvq.SourceDataSets.Add(FFrmStruct.VTable, 'source');
        if FIsEnabledChange then
        begin
          lwherestr := lwherestr + 'isEnabled = :pIsEnabled';
        end;
        if FIsNotifyInfaceChange then
        begin
          lwherestr := ifthen(lwherestr.IsEmpty, EmptyStr, ',') +
            'IsEnableNotifyInface =:pIsEnableNotifyInface';
        end;
        if FIsNotifyEMailChange then
        begin
          lwherestr := ifthen(lwherestr.IsEmpty, EmptyStr, ',') +
            'IsEnabledNotifyEmail=:pIsEnabledNotifyEmail';
        end;
        if not lwherestr.IsEmpty then
        begin
          lvq.sql.Text := Format(CDefUpdateParentStr, [lwherestr]);
          lvq.ParamByName('pname').AsString := aParentStr;
          lvq.ParamByName('pname2').AsString := aParentStr + '%';
          if FIsNotifyEMailChange then
            lvq.ParamByName('pIsEnabledNotifyEmail').AsBoolean :=
              aIsNotifyEMail;
          if FIsNotifyInfaceChange then
            lvq.ParamByName('pIsEnableNotifyInface').AsBoolean :=
              aIsNotifyInface;
          if FIsEnabledChange then
            lvq.ParamByName('pIsEnabled').AsBoolean := aIsEnabled;
          lvq.Prepare;
         try
            lvq.Execute;
          except
            on e: exception do
              lwherestr := e.message; /// check
          end;
        end;
      finally
        if Assigned(lvq) then
          lvq.Destroy;
        lvq := nil;
      end;
    end;

  var
    lubookmark: TBookmark;
    lparentid: string;
  begin
      FFrmStruct.VTable.AfterEdit := nil;
      lubookmark := FFrmStruct.VTable.Bookmark;
      FFrmStruct.UDbBuissnesObjectTree.BeginUpdate;
      FFrmStruct.VTable.DisableControls;
      FIsChangeSel := True;
      if not FFrmStruct.VTable.FieldByName('idname').AsString.IsEmpty then
        lparentid := FFrmStruct.VTable.FieldByName('idname').AsString
      else
        lparentid := FFrmStruct.VTable.FieldByName('id').AsString;
      FFrmStruct.VTable.edit;
      UpdateRefresh(UDBChBox.Checked, UDBCBNotifyInface.Checked,
       UDBCheckBoxNotifyEmail.Checked, lparentid);
      FFrmStruct.VTable.post;
      FFrmStruct.UDbBuissnesObjectTree.Refresh;
      FFrmStruct.VTable.EnableControls;
      FFrmStruct.UDbBuissnesObjectTree.EndUpdate;
      FFrmStruct.VTable.AfterEdit := FFrmStructVTableAfterEdit;
     if Assigned(lubookmark) then
     FFrmStruct.VTable.GotoBookmark(lubookmark);
    self.hidemask;
  end;

begin
  self.ShowMask('Обновляю данные...');
  FIsEnabledChange := not FFrmStruct.BeforeIsEnabledChange = UDBChBox.Checked;
  FIsNotifyInfaceChange := not FFrmStruct.BeforeisNotifyChange =
    UDBCBNotifyInface.Checked;
  FIsNotifyEMailChange := not FFrmStruct.BeforeIsNotifyEmail =
    UDBCheckBoxNotifyEmail.Checked;
  MainUpd;
  UBtnApplySetting.Enabled := True;
end;

After I get the error : "DataSet not in Edit or Insert mode" =( 

At the same time, after the error occurred, the DataSet was updated (as expected, the code above worked (it works)). I have an error happening in the UniDbCheckBox.pas module:

I quickly corrected this via a "crutch" (hack):

 

Version:  1.90.0.1564