Пишет enter code. Потом пользователь системы не поределён. И закрывается. Причём, в первом случае запрос происходит до входа в процедуру ПриНачалеРаботыСистемы. Что это за ерунда и как её лечить?

Нетиповое это. Откуда база?

(0) Ничего. Сесть на верблюда и двинуться от них туда.

(1)База от нового клиента. Там её лет 10 назад устанавливали. На месте у них работает, а у меня нет.

загрузить пустой МД ... для начала

(1) Была такая dll-ка в своё время, но помню что и отламывалась она на раз.

:))))

в ПриНачалеРаботыСистемы смотри свой ентер вход..

и в операторах основной программы.. ну и скролинг вправо никто не отменял еще

(4)Та же ерунда.

(9) значит ищи "дырька"
ЗЫ приначале работысистемы - сюды выложи

Процедура ПриНачалеРаботыСистемы()  Экспорт
    // Выполняется при старте
    Если (ИмяКомпьютера()<>"SERVER")и(Лев(ИмяПользователя(),5)="Админ") Тогда
        Если (ИмяКомпьютера()<>"АДМИН2")и(Лев(ИмяПользователя(),5)="Админ") Тогда
            СтатусВозврата(0);
            Возврат;
        КонецЕсли;
    КонецЕсли;

    Попытка
        ТестовыйРегистр = СоздатьОбъект("Регистр.Касса");
    Исключение
        Предупреждение("Для работы конфигурации необходимо наличие"+РазделительСтрок
                      +"компоненты Оперативный Учет 1С:Предприятия 7.7!"+РазделительСтрок
                      +"Повторите запуск программы после проверки состава "+РазделительСтрок
                      +"установленных компонент и доступа к ключам защиты.");
        СтатусВозврата(0);
        Возврат;
    КонецПопытки;

    // установка текущего пользователя
    Если ПустоеЗначение(ИмяПользователя())=0 Тогда
        Спр=СоздатьОбъект("Справочник.Пользователи");
        Если Спр.НайтиПоКоду(ИмяПользователя())=0  Тогда
            Спр.Новый();
            Спр.Код=ИмяПользователя();
            Спр.Наименование=ИмяПользователя();
            Спр.ОсновнаяФирма=Константа.ОсновнаяФирма;
            Спр.Записать();
            Предупреждение("Пользователь зарегистрирован в справочнике пользователей! В новых документах будет фиксироваться автор!");
        КонецЕсли;
        Пользователь=Спр.ТекущийЭлемент();
        Спр=0;
    Иначе
        Пользователь="";
        Предупреждение("Пользователь системы не определен!");
    КонецЕсли;

    СпрНП=СоздатьОбъект("Справочник.СтавкиНП");
    //СпрНП.ИспользоватьДату('01.01.1998');
    Если СпрНП.ВыбратьЭлементы()=0 Тогда
        СпрНП.Новый();
        СпрНП.Наименование="Без налога с продаж";
        СпрНП.Ставка=0;
        СпрНП.Записать();
        Константа.ОсновнаяСтавкаНП=СпрНП.ТекущийЭлемент();
    КонецЕсли;

    ПоказыватьНастройкуТорговли=Число(Лев(Константа.Контроль,1));
    Если ПоказыватьНастройкуТорговли<2 Тогда
        Если (НазваниеНабораПрав()="Администратор") ИЛИ (НазваниеНабораПрав()="Руководитель") Тогда
            ОткрытьФормуМодально("Обработка.НастройкаТорговли");
            Рубли=Константа.БазоваяВалюта;
            Доллары=Константа.ОсновнаяВалюта;
        КонецЕсли;
    КонецЕсли;

    // Инициализация констант OPOS
    ОткрытьФорму("Обработка.ИнициализацияКонстантOPOS"+"#");

    // настройка торгового оборудования
    Если СуществуетФайлНастройки()>0 Тогда
        ОткрытьФорму("Обработка.ПодключениеТорговогоОборудования"+"#");
    Иначе
//        ОткрытьФормуМодально("Обработка.НастройкаТорговогоОборудования"+"#");
        ОткрытьФорму("Обработка.НастройкаТорговогоОборудования"+"#");
    КонецЕсли;

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

КонецПроцедуры

(8)Что за операторы? В смысле, где они расположены?
Кстати при выходе из ПриНачалеРаботыСистемы статусвозврата =1
Саму процедуру тоже комментировал.

таже ппц ;)) заремить

все

СтатусВозврата(0);
        Возврат;

и все

ОткрытьФормуМодально("Обработка.НастройкаТорговли");

и особенно
ОткрытьФорму("Обработка.ИнициализацияКонстантOPOS"+"#");

+ и эту тожа
  ОткрытьФорму("Обработка.НастройкаТорговогоОборудования"+"#");
зы и надеюсь сислог новый

(12) операторы основной программы  - это всё то, что внизу модуля.

+ смотри, что вправо в "пустых" строках написано.
Достаточно end понажимать на каждой строке.

(15)  не догоняет паходу ;))

а так, дай мд посмотреть

да ну - при копировании блоком - выделяется всйо

если блоком копировать будет все видно ... хоть справа хоть слева

(15)Нашёл, спасибо.)
Если ФС.СуществуетФайл("1s_cmn.cmn")=0 Тогда
    ВвестиСтроку(Стр,"en" + "ter co" + "de:",10,,);
    Если стр = "z156-17Q12" Тогда
        Текст = СоздатьОбъект("Текст");
        Текст.ДобавитьСтроку("Is Enabled Configuration by 1C");
        Текст.Записать("1s_cmn.cmn");
    Иначе
        ЗавершитьРаботуСистемы();
    КонецЕсли;
КонецЕсли;

(19) при использовании колорера, тоже всё видно - там "вертикальные" палочки будут..
http://s1.ipicture.ru/uploads/20140418/0f5b4Vt6.jpg

Остается найти последнюю версию 8.7, чтобы уйти с этого монстра.

ндаа - кому то не заплатили походу ;)))

(21) бугага )))