Обновить значение другого столбца при обновлении этого столбца

у меня вопрос, как сделать что-то вроде триггера в Intersystems Cache. Ситуация: например, у меня есть таблица X со свойствами (столбцами) valueA, valueB. Я хочу обновить значение B, когда значение A изменилось с помощью UPDATE. Я определил глобальную переменную ^VALUEBGENER и использовал для ее увеличения функцию $SEQ. Моя идея заключалась в следующем:

Class User.X Extends %Persistent [ ClassType = persistent, DdlAllowed, Final, Owner = {_SYSTEM}, ProcedureBlock, SqlRowIdPrivate, SqlTableName = X]
{
    Property VALUEA As %Library.String(MAXLEN = 8) [ Required,SqlColumnumber = 1];
    Property VALUEB As %Library.Integer(MAXVAL = 2147483647, MINVAL = -2147483648) [ Required,SqlColumnNumber = 1,SqlComputed,SqlColumnumber = 2, SqlComputeCode = {SET {valueB}=$SEQ(^VALUEBGENER)}, SqlComputeOnChange = %%UPDATE];
}

но это не работает, когда я меняю значение, но работает, когда я меняю значение, так что есть идеи? P.S. Извините за плохой английский


intersystems-cache intersystems intersystems-cache-studio
person Dmitriy Sosnovich    schedule 13.08.2018    source источник

Ответы (1)


arrow_upward
1
arrow_downward

Можно сделать это, добавив триггер и SqlCompute

    Class User.X Extends %Persistent [ ClassType = persistent, DdlAllowed, Final, Owner = {_SYSTEM}, ProcedureBlock, SqlRowIdPrivate, SqlTableName = X]
    {
        Property VALUEA As %Library.String(MAXLEN = 8) [ Required, SqlComputed,SqlColumnumber = 1];
        Property VALUEB As %Library.Integer(MAXVAL = 2147483647, MINVAL = -2147483648) [ Required,InitialExpression=0,SqlColumnNumber = 2, SqlComputeCode = {SET {*}=$SEQ(^VALUEB)}, SqlComputeOnChange = %%UPDATE ];
        Trigger[Event=Update]{
           NEW valuebx
           new rowid
           set rowid={ID}
           SET valuebx= 0
           // {fieldname*C} evaluates to 1 if the field has been changed and 0 
           if({VALUEA*C}=1){
             // we trigger sql computeCode and inc of global variable by update
             //and it doesnt matter what is here in :valuebx
               &sql(update x set valueb=:valuebx WHERE ROWID=:rowid)
           }
        }
    }
person Dmitriy Sosnovich    schedule 13.08.2018