Показать сообщение отдельно
Старый 15.02.2018, 12:05   #10  
Ace of Database is offline
Ace of Database
Участник
Аватар для Ace of Database
 
870 / 637 (23) +++++++
Регистрация: 14.10.2004
Копирование настроек формы "Используемые продукты" от текущего пользователя пользователю с кодом "Вася".
Может подойдет, но я сам не рискнул запустить Код легче написать, чем запускать
X++:
static void Job168(Args _args)
{
    Name                formName = "EcoResProductPerCompanyListPage";
    UserId              toUserId = "Вася";
    SysLastValue        SysLastValue;
    SysLastValue        newSysLastValue;
    ;
    select firstonly SysLastValue where
        SysLastValue.elementName == formName &&
        SysLastValue.recordType == UtilElementType::Usersetup &&
        SysLastValue.company == curExt() &&
        SysLastValue.UserId ==  curUserId();
    if (SysLastValue.RecId)
    {
        ttsbegin;
        select forupdate firstonly newSysLastValue where
            newSysLastValue.elementName == formName &&
            newSysLastValue.recordType == UtilElementType::Usersetup &&
            newSysLastValue.company == curExt() &&
            newSysLastValue.UserId == toUserId;
        if (newSysLastValue.RecId)
            newSysLastValue.delete();
        newSysLastValue = null;
        buf2buf(SysLastValue, newSysLastValue);
        newSysLastValue.userId = ToUserId;
        newSysLastValue.insert();
        ttscommit;
    }
}
__________________
Мои утилиты для Аксапты версий 3.0-2012: http://aceofdatabase.blogspot.com/
За это сообщение автора поблагодарили: 252301901 (1).