//**************************************
Процедура НоваяЗаявка()
Если Вопрос("Создать заявку для текущего клиента?","Да+Нет")="Да" Тогда
ОбнаруженнаяЗаявка=ПроверитьЗаявкиПоКлиенту();
Если ПустоеЗначение(ОбнаруженнаяЗаявка)=0 Тогда
Если Вопрос("Внимание! Для данного клиента в указанный день уже была сформирована заявка"+РазделительСтрок+
"Вы всё равно хотите ввести новую заявку?","Да+Нет")="Да" Тогда
СписокПараметров=СоздатьОбъект("СписокЗначений");
СписокПараметров.ДобавитьЗначение(1,"Новый");
СписокПараметров.ДобавитьЗначение(ДатаДок,"ДатаДок");
СписокПараметров.ДобавитьЗначение(Клиент,"Клиент");
СписокПараметров.ДобавитьЗначение(глВзятьКонтекст(Контекст));
ОткрытьФорму("Документ.РасходнаяНакладная",СписокПараметров,);
//ОткрытьФорму("Документ.РасходнаяНакладная",СписокПараметров,ТекущийДокумент());
Иначе
Если Вопрос("Открыть обнаруженную заявку для просмотра?","Да+Нет")="Да" Тогда
ОткрытьФорму(ОбнаруженнаяЗаявка.ТекущийДокумент());
Возврат;
КонецЕсли;
КонецЕсли;
Иначе
СписокПараметров=СоздатьОбъект("СписокЗначений");
СписокПараметров.ДобавитьЗначение(1,"Новый");
СписокПараметров.ДобавитьЗначение(ДатаДок,"ДатаДок");
СписокПараметров.ДобавитьЗначение(Клиент,"Клиент");
СписокПараметров.ДобавитьЗначение(глВзятьКонтекст(Контекст));
ОткрытьФорму("Документ.РасходнаяНакладная",СписокПараметров);
КонецЕсли;
Иначе
Возврат;
КонецЕсли;
КонецПроцедуры
Только я создаю док с помощью этой процетуры и не сохраняю его выдает :
Ошибка ----"Прекращена работа программы 1с:v7 starter program (multi-user)"
! | Правила, п.4 |