Скажите, пожалуйста, можно ли сделать так, чтобы каталогизатор мог только создавать новые записи и не мог редактировать уже созданные? Может нужно что-то в ini-файле подправить?

Можно, пример такой настройки приводился тут:

[irbis.gpntb.ru]

Если в краце:
1. Запрет на редактирование и ввод записей в базу данных.
В файле DBNAME.MNU напротив латинского названия БД ставим -
2. Запрет на изменение записи пользователем. При этом есть возможность ввести и сохранить новую запись.
В файл DBNFLC.PFT добавляем в самом начале перед кодом

if (&uf('+0')<>ref(mfn,&uf('+0'))) and (val(mfn)<>val('0000-1')) then '1Корректировка записи запрещена' else

а в конце добавляем

fi



Редактировано 2 раз. Последний раз 05.05.2010 17:25 пользователем Gena.

попробывал - не выходит:

в файле DBNFLC.PFT (конкретной базы) в начале
if (&uf('+0')<>ref(mfn,&uf('+0'))) and (val(mfn)<>val('0000-1')) then '1Корректировка записи запрещена' else
......
.....
в конце
fi

а перед fi надо запятую ставить, когда идет
fi
fi
------
fi,
fi

???

Поставьте перед последним Фи запятую, а после слова ЕЛСЕ в первой строчки ОБЯЗАТЕЛЬНО ДОЛЖЕН БЫТЬ ПРОЕБЕЛ. У меня все работает нормально

спасибо. всё работает. дело было в пробеле после else

1-й
if (v200<>ref(mfn,v200)) or (v910<>ref(mfn,v910)) then '1Вы не имеете права корректировать поля 200 и 910' else &uf('6dbnflc') fi
2-й
if (mfn>0) and (&uf('IPRIVATE,FIO,')<>&uf('Av907^B#1)) then '1Вы не меете права корректировать записи, созданные другими пользователями' else &uf('6dbnflc') fi

1-й вариант у меня работает, а вот 2-й почему-то нет.... в чём может быть дело?

Потому что либо в INI-файле не указан текущий пользователь, либо в первом повторении 907 поля какая-то бяка.

в INI-файле не указан текущий пользователь
это вы про что? про FIO?

Угу

1. в ини-файле фио: иванов иван
2. про бяку в 907: что значит бяка? к примеру есть документы где 4 разных фамилии идут...
3. а код точно правельный?
if (mfn>0) and (&uf('IPRIVATE,FIO,')<>&uf('Av907^B#1)) then '1Вы не меете права корректировать записи, созданные другими пользователями' else &uf('6dbnflc') fi
4. в ини файле
[Entry]
dbnflc=dbnflc1
в базе соответственно dbnflc1.pft
...
не работает и всё тут!

Ладно, тогда зайдем "со двора": приведите точное содержание первого повторения поля 907 и точное значение параметра FIO из секции PRIVATE клиентского ини-файла, с которым работает пользователь.

Ну и еще, раз уж на то пошло, то &uf('6dbnflc') рациональнее заменить на &uf('6',&uf('IEntry,dbnflc,')).

А в целом формат корректный.

поле 907: ^CПК^A20100512^BВарников Р.С.

felk_c.ini
[Private]
REGWORK=
NAMEREG=
PODR=
READ=
ETR=ПК
FIO=Фельк Т.Т.

При таких настройках пользователю при нажатии на кнопку "Сохранить" будет выдано предупреждение о том, что он не может корректировать запись.

А у вас сохраняется что ли? В чем проявляется нерабочесть?

да, у меня сохраняется. никакого предупреждения не выдаёт.

а если первый вариант - на запрет полей 200 и 910, то всё работает!
if (v200<>ref(mfn,v200)) or (v910<>ref(mfn,v910)) then '1Вы не имеете права корректировать поля 200 и 910' else &uf('6dbnflc') fi

if (mfn>0) and (&uf('IPRIVATE,FIO,')<>&uf('Av907^b#1')) then '1 Вы не имеете права корректировать записи, созданные другими пользователями' else &uf('6',&uf('IEntry,dbnflc,')) fi

Попробуйте вот так. Был пропущен закрывающий безусловный литерал в конструкции &uf('Av907^b#1').



Редактировано 1 раз. Последний раз 13.05.2010 11:00 пользователем Панев Максим.

Панев Максим написал(а):
-------------------------------------------------------
> if (mfn>0) and
> (&uf('IPRIVATE,FIO,')<>&uf('Av907^b#1')) then '1
> Вы не имеете права корректировать записи,
> созданные другими пользователями' else
> &uf('6',&uf('IEntry,dbnflc,')) fi
>
> Попробуйте вот так. Был пропущен закрывающий
> безусловный литерал в конструкции
> &uf('Av907^b#1').


Здравствуйте!
Я попробовал ваш формат.Все нормально работает до того когда нужно изменить свою запись,т.е. после корректировки своей записи после того как нажимаешь на Сохранить АРМ завершает работу.На машине в диспетчере задач процесс не остается, а на TCP/IP сервере в списке зарегистрированных клиентов пользователь стоит.
И64,9.1

все работает, спасибо!
(был пропущен закрывающий безусловный литерал в конструкции)

но дело в другом - теперь я сам не могу редактировать тут запись которую создал, как только нажал "сохранить". идея то была в том, что другие пользователи не смогут её редактировать, а я смогу...



Редактировано 5 раз. Последний раз 13.05.2010 15:00 пользователем nwchades.

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

я попробывал создать новую запись. и как только я её сохранил, то сразу потерял доступ к редактированию. в чем проблема? сейчас же никаких данных в поле не было ведь запись новая.

выложите сюда эту запись в текстовом формате и ВАШ ини файл, а так же какой именно формат вы используете для разграничения прав на редактирование

....вот!

а запись... :)

какую запись?

nwchades написал(а):
-------------------------------------------------------
> я попробывал создать новую запись. и как только я
> её сохранил, то сразу потерял доступ к
> редактированию.

выложите эту запись, к которой вы потеряли доступ на редактирование

в чем проблема? сейчас же никаких
> данных в поле не было ведь запись новая.

dbnflc1.pft

if (mfn>0) and (&uf('IPRIVATE,FIO,')<>&uf('Av907^B#1')) then '1Вы не меете права корректировать записи, созданные другими пользователями' else &uf('6',&uf('IEntry,dbnflc,')) fi

...так как быть?

Дык емае :). Ибо нефиг кастомизировать где не нужно. Сейчас у вас сделано так:
1. В ини-файле в "Entry -> dbnflc" прописан dbnflc1.
2. При вызове его в качестве ФЛК делается проверка и после прохождения опять выполняется файл из "Entry -> dbnflc". Получается зацикливание.

Решения как всегда 2.
1. Убрать предложенную мной доработку &uf('6',&uf('IEntry,dbnflc,')). В таком варианте она должны выглядеть так &uf('6dbnflc'). Получается что мы тут привязываемся к конкретному имени файла. Но что поделать, это доработка. Я ее предложил, не подумав на 2 шага вперед.
2. Вставлять условие проверки непосредственно в dbnflc.pft.
Т.е. в начало файла вставляете

if (mfn>0) and (&uf('IPRIVATE,FIO,')<>&uf('Av907^B#1')) then 
 '1Вы не имеете права корректировать записи, созданные другими пользователями' 
else

а в конец

fi

У меня так все работает.



Редактировано 1 раз. Последний раз 20.05.2010 10:44 пользователем Панев Максим.

а можно сам файлик целиком? у меня всё равно ничего не работает! странно...

Давайте лучше не так. Лучше вы сюда свой выложите, мы его поправим и будет всем счастье.

вот файлики... :)