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

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

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

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

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

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

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

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

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

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

"Процедура ВводНового(ФлагКопирования)

Свойство = ВосстановитьЗначение("ОсновноеСвойствоКонтрагентов");

Если ФлагКопирования = 1 Тогда
// Эти реквизиты контрагента копировать не имеет смысла!
ЮрФизЛицо       = ПолучитьПустоеЗначение("Справочник");
ОсновнойДоговор = ПолучитьПустоеЗначение("Справочник.Договоры");
ОсновнойСчет    = ПолучитьПустоеЗначение("Справочник.БанковскиеСчета");

Если ПустоеЗначение(ОсновноеСвойство) = 0 Тогда // скопировали и основное свойство другого элемента
       Свойство         = ОсновноеСвойство.ЗначениеСвойства;
ОсновноеСвойство = ПолучитьПустоеЗначение("Справочник.СвойстваКонтрагентов");
КонецЕсли;

КонецЕсли;

НаименованиеОснДоговора = "Основной договор";
ВалютаВзаиморасчетов    = глЗначениеПоУмолчанию("ОсновнаяВалютаВзаиморасчетов");

КонецПроцедуры // ВводНового()


________________________________________________­______

Процедура ПриОткрытии()

//идг-)
Если глПолучитьПолномочие("РазрешитьВидетьДокументы") = 0 Тогда
Если Менеджер <> глПользователь Тогда
   Предупреждение("Запрещен просмотр контрагента!");
СтатусВозврата(0);
Возврат;
КонецЕсли;    
КонецЕсли;
//идг(-

Если Форма.ТолькоПросмотр() = 1 Тогда
Форма.кнОчиститьЮрЛицо.Доступность(0);
Форма.кнВводаЮрАдресаЮрЛица.Доступность(0);
Форма.кнВводаФактАдресаЮрЛица.Доступность(0);

Форма.кнОчиститьФизЛицо.Доступность(0);
Форма.кнВводаУдостоверения.Доступность(0);
Форма.кнВводаЮрАдресаФизЛица.Доступность(0);
Форма.кнВводаФактАдресаФизЛица.Доступность(0);

Форма.кнОчиститьОснДоговор.Доступность(0);
Форма.кнОчиститьСкидку.Доступность(0);

Форма.кнОчиститьОснСчет.Доступность(0);
Форма.кнОчиститьБанкДляРасчетов.Доступность(0);
Форма.кнЗаполнитьОсновнойСчет.Доступность(0);

Форма.кнЗаписать.Доступность(0);
Форма.кнОК.Доступность(0);

Форма.КнопкаПоУмолчанию("кнЗакрыть");
Иначе
   Форма.КнопкаПоУмолчанию("кнОк");
КонецЕсли;

// Определение вида контрагента.
Номер = ВидКонтрагента.НайтиЗначение(ЮрФизЛицо.Вид());
ВидКонтрагента.ТекущаяСтрока(Макс(Номер, 1));
ПриИзмененииВидаКонтрагента();

// Заполнение реквизитов диалога.
// Если реквизиты справочника не заполнены - в диалоге
// сохранятся значения, присвоенные в процедуре ВводНового().

Если ЮрФизЛицо.Выбран() = 1 Тогда
ПриИзмененииЮрФизЛица();
КонецЕсли;

Если ОсновнойДоговор.Выбран() = 1 Тогда
ПриИзмененииОснДоговора();
КонецЕсли;

Если ОсновнойСчет.Выбран() = 1 Тогда
ПриИзмененииОснСчета();
КонецЕсли;

Если ОсновноеСвойство.Выбран() = 1 Тогда
Свойство = ОсновноеСвойство.ЗначениеСвойства;
КонецЕсли;

// 1-й слой переназначается в ПриИзмененииВидаКонтрагента().
Активизировать("ВидКонтрагента");

// Определим текущую закладку
Закладка = 0;
Если ПустоеЗначение(Форма.Параметр) = 0  Тогда // могли передать нужную закладку
Закладка = Форма.Закладки.Получить(Форма.Параметр);
КонецЕсли;
Закладка = Макс(1, Форма.Закладки.НайтиЗначение(Закладка));
Форма.Закладки.ТекущаяСтрока(Закладка);
Форма.ИспользоватьСлой(Форма.Закладки.ПолучитьЗначение(Закладка), 2);

// Подпись к основному свойству.
Если ПустоеЗначение(Константа.ВидСвойстваКонтрагентов) = 0  Тогда
Заголовок = СокрЛП(Строка(Константа.ВидСвойстваКонтрагентов)) + ":";
Форма.ТекстСвойство.Заголовок(Заголовок);
КонецЕсли;

КонецПроцедуры // ПриОткрытии()"

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

Если просто закоментировать данный кусок кода, поставить // впереди каждой строки то будет работать.

Если нужен дальнейший разбор то нужно знать, что такое:
> РазрешитьВидетьДокументы
константа?
> Менеджер
что за переменная?
> глПользователь
Переменная глобального модуля? И как она инициируется?
Ну и содержимое функции глобального модуля лПолучитьПолномочие не помешает"