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

Доброго времени суток всем.
В интерфесе используется функция блокировки таблиц
ProtectRecord(#BaseDoc, true);
ProtectRecord(#SpStep, true);
ProtectRecord(#StepDoc, true);
Но при этом необходимо, чтобы одно из полей, например, BaseDoc.Name, было доступно для модификации. Как это сделать, кто-нибудь знает?

Методы типа: SetFieldOption, ClearFieldOption не проходят, пробовал

Заранее спасибо

ProtectRecord блокирует СРАЗУ ВСЕ ПОЛЯ записи от ввода. Поэтому ни одна из функций не снимет эту защиту частично.
Не проще ли при описании скрина/броуза ненужным полям установить атрибут Protect, а нужным NoProtect ???

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

Процедура ProtectRecord (integer, boolean)

Назначение

Устанавливает или снимает защиту от ввода для всей записи.

Описание

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

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

protect : boolean - установить /снять защиту.

aleks1232321

ProtectRecord блокирует работу с буфером записи указанной таблицы, вы ни как не сделаете что бы часть буфера не блокировалось, т.к. это свойство одно для всей записи.

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

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

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

Описание взял из документации, даже не прочитав его, прошу простить.
Там конечно опечатка: не iPanel, а iTable - номер таблицы.
Вот несколько примеров

if (isProtected(#Oborot)) ProtectRecord(#Oborot,false);


if (CalPlan.Status <> 0)
ProtectRecord(#SpDocNal, true)
else
ProtectRecord(#SpDocNal, false);

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 : objCreateTune);
{
TR.AddTune(ttUserTune,'RGHTBL.NOUPDATE.KLVAL','RGHTBL.NOUPDATE','каталога курсов валют',ftBoolean,'1','',0);
TR.SetNextNumberTune (5001);
TR.SetParent('0065000000000017h');
}
end.

#include TuneSpec.vih

VipInterface PostTunePatch_user implements ObjPostTunePlugin;

Interface PostTunePatch_user;
Create view;

Public Function PostUpdatePatch (TuneRef : TuneFuncObj; TuneCode : string; TuneObj : word; TuneUser : comp) : boolean;
{

PostUpdatePatch := true;

case UpCase(TuneCode) of
'RGHTBL.NOUPDATE.KLVAL':
{
if boGetTuneEx('RGHTBL.NOUPDATE.KLVAL',0,0065000000000017h)=1
{ _loop x$users
{
ProtectRecord(#CURSVAL, true);
^
неверная функция, параметр или метод
ProtectRecord(#KLVAL, true);
}
}
else
{_loop x$users
{
NoProtectRecord(#CURSVAL, true);
NoProtectRecord(#KLVAL, true);
}
}
else
PostUpdatePatch := false;
end; // case

} // PostUpdatePatch

end. // интерфейс

Ну и как с этим бороться?

попробуйте префикс tn вместо #.

попробуйте указать таблицы в create view