unsigned MarkSelectedRecords(HandleSelectedRecord const Handle, TcxCustomGridView * View, String const &CheckedFieldName=_T("Checked"))
{
	using vavan::PChar;
	size_t SelectedCnt;
	{
	TcxDBDataController * const dc = polymorphic_downcast<TcxDBDataController*>(View->DataController);
	SelectedCnt=dc->GetSelectedCount();
	if(!SelectedCnt)return 0;
	TVClientDataSet * const dsTarget=polymorphic_downcast<TVClientDataSet*>(dc->DataSource->DataSet);
	CPField fldChecked(BindField(dsTarget,CheckedFieldName));
	DISABLE_ENABLE_CONTROLS_CLONES(dsTarget);
	SAVE_RESTORE_PROPERTY(_T("OnCalcFields"),dsTarget,System::TMethod());
	SHOW_HIDE_BUSY(_T("Отмечаю записи"),SelectedCnt);
	DISABLE_ENABLE_CONSTRAINTS(dsTarget);
	SAVE_RESTORE_PROPERTY(_T("AggregatesActive"),dsTarget,false);
	SAVE_RESTORE_BOOKMARK(dsTarget);
	BEGIN_END_UPDATE(*View,lsimImmediate);
	if(dc->IsGridMode())
	{
		for(size_t i=0;i<SelectedCnt;++i)
		{
			TBookmarkStr bm=dc->GetSelectedBookmark(i);
//			if(/*dsTarget->BookmarkValid(const_cast<TBookmark>(bm.data()))*/true)
			{
				dsTarget->Bookmark=bm;
				DataSetEdit g(dsTarget);
				if(hsrMark==Handle || hsrInvert==Handle && !fldChecked->AsBoolean)
				{
					fldChecked->AsBoolean=true;
				}
				else
				{
					fldChecked->Clear();
				}
				g.Post();
				ProgressBusy();
			}
		}
	}
	else
	{
		SAVE_RESTORE_INDEX(dsTarget,dc->KeyFieldNames);
//		TVVarRec vr[1];
		TcxRowInfo RowInfo;
		for(size_t i=0;i<SelectedCnt;++i)
		{
			RowInfo=dc->GetRowInfo(dc->GetSelectedRowIndex(i));
//			vr[0]=dc->GetRecordId(RowInfo.RecordIndex);
			if(!dsTarget->Locate(dc->KeyFieldNames,dc->GetRecordId(RowInfo.RecordIndex),LocateOptionsAll))
			{
				throw Exception(NewFmtStr(_T("Record not found")));
			}

			DataSetEdit g(dsTarget);
			if(hsrMark==Handle || hsrInvert==Handle && !fldChecked->AsBoolean)
			{
				fldChecked->AsBoolean=true;
			}
			else
			{
				fldChecked->Clear();
			}
			g.Post();
			ProgressBusy();
		}
		dc->ClearSelection();
	}
	}
	return SelectedCnt;
}