Новый контрагент (проблема)

Добрый день.<br>Есть вопрос:<br>Была создана новая база в 1С 7,7. При попытке создать нового контрагента в справочнике 1С выдаёт "Запрещён просмотр контрагента". Новая группа создаётся без проблем. Права админские. В старой базе всё создаётся и удаляется. В чём может быть причина?

база нетиповая ?

Приведите содержимое процедуры ВводНового() формы элемента справочника Контрагенты

да, база не типовая

справочник контрагентов-создание группы-создание нового контрагента (вот в этот момент вылезает сообщение)....... <br>если создавать юридическое лицо: справочники->юр. и физ. лица->стороние юр. лица, <br>юридическое лицо создаётся без проблем

Как связаны справочники <br>> справочник контрагентов<br>и<br>> справочники->юр. и физ. лица->стороние юр. лица<br>?<br><br>при создании юр. лица в справочнике<br>> справочники->юр. и физ. лица->стороние юр. лица<br>оно отображается в<br>> справочник контрагентов<br>?

нет, при создании юр. лица в справочнике<br>> справочники->юр. и физ. лица->стороние юр. лица<br>в справочнике контрагентов оно не отображается

> нет, при создании юр. лица в справочнике<br>> > справочники->юр. и физ. лица->стороние юр. лица<br>> в справочнике контрагентов оно не отображается<br>Следовательно справочники это разные.<br>Поэтому в режиме конфигуратора:<br>Пункт меню Конфигурация -> Открыть конфигурацию<br>в появившемся окне:<br>Справочники -> Контрагенты (двойной щелчок мыши)<br>в появившемся окне нажать кнопку Форма элемента<br>внизу появившегося окна перейти на закладку Модуль<br>в главном меню пункт меню Действия -> Процедуры и функции модуля<br>выбрать процедуру ВводНового нажать кнопку Перейти<br>начиная от<br>> Процедура ВводНового(...<br>и до ближайшего<br>> КонецПроцедуры<br>скопировать на форум весь текст!<br>и то же с процедурой ПриОткрытии()<br>!!!ЫыЫ!!!

"Процедура ВводНового(ФлагКопирования)<br> <br> Свойство = ВосстановитьЗначение("ОсновноеСвойствоКонтрагентов");<br><br> Если ФлагКопирования = 1 Тогда<br> // Эти реквизиты контрагента копировать не имеет смысла!<br> ЮрФизЛицо       = ПолучитьПустоеЗначение("Справочник");<br> ОсновнойДоговор = ПолучитьПустоеЗначение("Справочник.Договоры");<br> ОсновнойСчет = ПолучитьПустоеЗначение("Справочник.БанковскиеСчета");<br> <br> Если ПустоеЗначение(ОсновноеСвойство) = 0 Тогда // скопировали и основное свойство другого элемента<br>        Свойство       = ОсновноеСвойство.ЗначениеСвойства;<br> ОсновноеСвойство = ПолучитьПустоеЗначение("Справочник.СвойстваКонтрагентов");<br> КонецЕсли;<br> <br> КонецЕсли;<br> <br> НаименованиеОснДоговора = "Основной договор";<br> ВалютаВзаиморасчетов = глЗначениеПоУмолчанию("ОсновнаяВалютаВзаиморасчетов");<br> <br>КонецПроцедуры // ВводНового()<br><br><br>________________________________________________­______<br><br>Процедура ПриОткрытии()<br> <br> //идг-)<br> Если глПолучитьПолномочие("РазрешитьВидетьДокументы") = 0 Тогда<br> Если Менеджер <> глПользователь Тогда<br> Предупреждение("Запрещен просмотр контрагента!");<br> СтатусВозврата(0);<br> Возврат;<br> КонецЕсли; <br> КонецЕсли;<br> //идг(-<br> <br> Если Форма.ТолькоПросмотр() = 1 Тогда<br> Форма.кнОчиститьЮрЛицо.Доступность(0);<br> Форма.кнВводаЮрАдресаЮрЛица.Доступность(0);<br> Форма.кнВводаФактАдресаЮрЛица.Доступность(0);<br> <br> Форма.кнОчиститьФизЛицо.Доступность(0);<br> Форма.кнВводаУдостоверения.Доступность(0);<br> Форма.кнВводаЮрАдресаФизЛица.Доступность(0);<br> Форма.кнВводаФактАдресаФизЛица.Доступность(0);<br> <br> Форма.кнОчиститьОснДоговор.Доступность(0);<br> Форма.кнОчиститьСкидку.Доступность(0);<br> <br> Форма.кнОчиститьОснСчет.Доступность(0);<br> Форма.кнОчиститьБанкДляРасчетов.Доступность(0);<br> Форма.кнЗаполнитьОсновнойСчет.Доступность(0);<br> <br> Форма.кнЗаписать.Доступность(0);<br> Форма.кнОК.Доступность(0);<br> <br> Форма.КнопкаПоУмолчанию("кнЗакрыть");<br> Иначе<br> Форма.КнопкаПоУмолчанию("кнОк");<br> КонецЕсли;<br> <br> // Определение вида контрагента.<br> Номер = ВидКонтрагента.НайтиЗначение(ЮрФизЛицо.Вид());<br> ВидКонтрагента.ТекущаяСтрока(Макс(Номер, 1)); <br> ПриИзмененииВидаКонтрагента();<br> <br> // Заполнение реквизитов диалога.<br> // Если реквизиты справочника не заполнены - в диалоге <br> // сохранятся значения, присвоенные в процедуре ВводНового().<br> <br> Если ЮрФизЛицо.Выбран() = 1 Тогда<br> ПриИзмененииЮрФизЛица();<br> КонецЕсли;<br> <br> Если ОсновнойДоговор.Выбран() = 1 Тогда<br> ПриИзмененииОснДоговора();<br> КонецЕсли;<br> <br> Если ОсновнойСчет.Выбран() = 1 Тогда<br> ПриИзмененииОснСчета();<br> КонецЕсли;<br> <br> Если ОсновноеСвойство.Выбран() = 1 Тогда<br> Свойство = ОсновноеСвойство.ЗначениеСвойства;<br> КонецЕсли;<br> <br> // 1-й слой переназначается в ПриИзмененииВидаКонтрагента().<br> Активизировать("ВидКонтрагента");<br> <br> // Определим текущую закладку<br> Закладка = 0;<br> Если ПустоеЗначение(Форма.Параметр) = 0 Тогда // могли передать нужную закладку<br> Закладка = Форма.Закладки.Получить(Форма.Параметр);<br> КонецЕсли; <br> Закладка = Макс(1, Форма.Закладки.НайтиЗначение(Закладка));<br> Форма.Закладки.ТекущаяСтрока(Закладка);<br> Форма.ИспользоватьСлой(Форма.Закладки.ПолучитьЗначение(Закладка), 2);<br> <br> // Подпись к основному свойству.<br> Если ПустоеЗначение(Константа.ВидСвойстваКонтрагентов) = 0 Тогда<br> Заголовок = СокрЛП(Строка(Константа.ВидСвойстваКонтрагентов)) + ":";<br> Форма.ТекстСвойство.Заголовок(Заголовок);<br> КонецЕсли;<br> <br>КонецПроцедуры // ПриОткрытии()"

"Из первого поста<br>> В чём может быть причина?<br>Причина в процедуре ПриОткрытии()<br>Строки:<br>> //идг-)<br>> Если глПолучитьПолномочие("РазрешитьВидетьДокументы") = 0 Тогда<br>> Если Менеджер <> глПользователь Тогда<br>> Предупреждение("Запрещен просмотр контрагента!");<br>> СтатусВозврата(0);<br>> Возврат;<br>> КонецЕсли; <br>> КонецЕсли;<br>> //идг(-<br><br>Если просто закоментировать данный кусок кода, поставить // впереди каждой строки то будет работать.<br><br>Если нужен дальнейший разбор то нужно знать, что такое:<br>> РазрешитьВидетьДокументы<br>константа?<br>> Менеджер<br>что за переменная?<br>> глПользователь<br>Переменная глобального модуля? И как она инициируется?<br>Ну и содержимое функции глобального модуля лПолучитьПолномочие не помешает"