Страница 1 из 1
параметры функции boSetTuneEx
Добавлено: 30 авг 2007, 13:25
Гаврилюк Марина
Вопрос такой: в отчете пишу
function boSetTuneEx (string, word, comp, boolean) : word;
boSetTuneEx('RGHTBL.NOUPDATE.CURSVAL',ttUser,0065000000000017h,true);
при компиляции тычет в 12 позицию и говорит, что ожидала параметр.
В чем дело и как правильно задать параметры этой функции?
Добавлено: 30 авг 2007, 17:17
Den
Да вродь все компиляется...что в .frm что в .vip
.form wfvwfrvr
.ard
.table blank
.var
li1: word;
.endvar
.begin
li1:=boSetTuneEx('Fin.User.cPlansSch',ttuser,0000000000000004h,true);
end.
.endform
Добавлено: 31 авг 2007, 11:17
Гаврилюк Марина
Версия 7.12:
.form tuneusers
.ard
.table blank
.var
li1: word;
.endvar
.begin
!_loop x$users
li1:=boSetTuneEx('RGHTBL.NOUPDATE.CURSVAL',ttuser,0065000000000017h,true);
if li1<>1
{
NoProtectRecord(#CURSVAL, true);
NoProtectRecord(#KLVAL, true);
}
else
{
ProtectRecord(#CURSVAL, true);
ProtectRecord(#KLVAL, true);
}
end.
.endform
Выдает ошибку ttuser,нет такой функции поля ли метода (позиция 50) строки li1:=boSetTuneEx('RGHTBL.NOUPDATE.CURSVAL',ttuser,0065000000000017h,true);
Добавлено: 31 авг 2007, 11:40
Den
Подключи в проекте сборки TUNES.INC. Там эта константа описана. Ну или прямо в форме
ttUSER = 0; // Пользователя
ttGroup = 1; // Группы
Добавлено: 31 авг 2007, 13:22
Гаврилюк Марина
Спасибо, откомпилировала только когда 0 напрямую указала вместо ttUser.