Галактика в вопросах и ответах

то edward_K Может быть rereadrecord(#specdog_p)? Пробовала так if(GetFirst specdog <> tsOk) { Insert specdog set specdog.cdog = coDog, specdog.bkod = KodMU, ...... ; rereadrecord(#specdog_p); ...... } Результат этот же ;(( . Насчет инсертов вынести в функцию, то это не получится - они разные...

Кто вас учил писать программы на випе?

Что, так плохо? Никто, самиздат.

Помогите, пожалуйста, беда ващще!!! Имеется интерфейс с предварительно описанными таблицами в памяти:  (подробно описывать не буду, опытные галактиоиды должны понять) table struct SpecDog ( CDog : comp,   kod : string,  ......) with index (MyReestr 00 = CDog + Kod,  ......); Interface  ReestR 'Реест...

const #include Tunes.inc end; #include CrTune.vih VipInterface CreateTunePatch_USER Implements ObjCreateTunePlugin; Interface CreateTunePatch_User; var wState : word; create view; Public function SetLastDateModTune : date; { SetLastDateModTune := Cur_Date; } Public Procedure AddTunePatch(TR : objCre...

procedure ProtectRecord (iTable : integer; protect : boolean);
Параметры

iPanel : integer - номер панели.

Что такое номер панели, извините?

где лежит найти описание функции protectrecord?

Может есть у кого перечень стандартных интерфейсов ?

Я добавила настройку, а вышеуказанный ( вообще-то он часть vip-a)ard компил-ся без проблем, но блокировка таблиц не происходит.

Добавить то добавит. Только как,Вы правильно заметили, без пересборки исходника нужного каталога, это смысла не будет иметь..

А Protect(#Cursval,true) (или NoProtect- соответственно)..... Это в каких случаях работает?

Если можно хоть какой-нибудь пример... Мой вариант (не работает): const #include Tunes.inc end; .form tuneusers .ard .table blank .var li1: boolean; .endvar .begin li1:=boGetTuneEx('RGHTBL.NOUPDATE.KLVAL',0,0065000000000017h); end. if li1=true; { ProtectRecord(#CURSVAL, true); ProtectRecord(#KLVAL, ...

Есть ли возможность блокировать изменение, добавление записей (функцией protect) стандартного каталога, например CURSVAL?
Не в Protecte! Права на таблицы и т.д...это знакомо... а в vip-е?

Спасибо, откомпилировала только когда 0 напрямую указала вместо ttUser.

Версия 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(#K...

Вопрос такой: в отчете пишу

function boSetTuneEx (string, word, comp, boolean) : word;

boSetTuneEx('RGHTBL.NOUPDATE.CURSVAL',ttUser,0065000000000017h,true);
при компиляции тычет в 12 позицию и говорит, что ожидала параметр.

В чем дело и как правильно задать параметры этой функции?

То есть права на таблицы-запрет модификации.... У нас как-то заведено ограничивать по меню, ну по полям, условиям. Таблицы даются все на полный доступ.

А в 8-й версии те же особенности?