Нашли ошибку? Выделите
текст с ошибкой и нажмите кнопку "Сообщить об ошибке"
или CTRL+ENTER.
Справочная
система на версию 10.1
от 27/06/2023,
© ООО «ФОРСАЙТ»,
UpdateSequence(Options: RdsUpdateSequenceOptions);
Options. Тип сдвига.
Метод UpdateSequence обновляет сиквенс.
Для открытия справочника НСИ используйте метод IRdsDictionary.Open.
Для выполнения примера предполагается наличие:
репозитория НСИ с идентификатором «OBJ_RDS», содержащего справочник НСИ с идентификатором «T_SOURCE_RDS»;
формы, содержащей компонент Button с идентификатором «Button1».
Пример является обработчиком события OnClick для компонента «Button1». Добавьте ссылки на системные сборки «Metabase», «Rds».
Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
Mb: IMetabase;
iRdsDatabaseKey: Integer;
pDict: IRdsDictionary;
pDictInst: IRdsDictionaryInstance;
pData: IRdsDictionaryElementData;
Begin
Mb := MetabaseClass.Active;
iRdsDatabaseKey := Mb.GetObjectKeyById("OBJ_RDS");
pDict := Mb.ItemByIdNamespace("T_SOURSE_RDS", iRdsDatabaseKey).Edit As IRdsDictionary;
pDict.Attributes.Order.Hidden := False;
(pDict As IMetabaseObject).Save;
pDictInst := pDict.Open(Null);
pDictInst.ClearData;
pData := pDictInst.CreateElementData;
pData.Value(1) := "1";
pDictInst.Insert(-2, pData);
pData := pDictInst.CreateElementData;
pData.Value(1) := "2";
pDictInst.Insert(-2, pData);
pDict.IsBigDictionary := True;
pDict.UpdateSequence(RdsUpdateSequenceOptions.Key Or RdsUpdateSequenceOptions.Order);
(pDict As IMetabaseObject).Save;
pDictInst := pDict.Open(Null);
pData.Value(1) := "3";
pDictInst.Insert(-2, pData);
pData.Value(1) := "4";
pDictInst.Insert(-2, pData);
pDict.IsBigDictionary := False;
(pDict As IMetabaseObject).Save;
Mb.DeleteObject((pDict As IMetabaseObject).Key);
End Sub Button1OnClick;
После выполнения примера для справочника НСИ будет обновлен сиквенс.
См. также: