ign="justify"> 100. Якщо Леч.вибран ()=0 тоді
101. повідомити ( Виберіть значення: наявність лікування! Документ не проведений. );
. непроводітьдокумент ();
. повернення;
. КонецЕсли;
. Якщо Пустоезначеніе (Екс)=1 тоді
. повідомити ( Введіть значення в поле Додаткові екскурсії або поставте немає! Документ не проведений. );
. непроводітьдокумент ();
. повернення;
. КонецЕсли;
. Якщо Пустоезначеніе (Доп)=1 тоді
. повідомити ( Виберіть значення: Додаткові оплачені послуги або поставте немає! Документ не проведений. );
. непроводітьдокумент ();
. повернення;
. КонецЕсли;
. Якщо ФІО_Сотр.вибран ()=0 тоді
. повідомити ( Виберіть співробітника, який уклав договір! Документ не проведений. );
. непроводітьдокумент ();
. повернення;
. КонецЕсли;
. Регістр.Продажа.Прівязиватьстроку (1);
. Вибратьстрокі ();
. Поки Получітьстроку ()=1 Цикл
. Регістр.Продажа.Курорт=Курорт;
. Регістр.Продажа.Страна=Країна;
. Регістр.Продажа.Цена=Цена_договора;
. Регістр.Продажа.ДвіженіеПріходВиполніть ();
. КонецЦікла;
. КонецПроцедури
Додаток 2
Код модуля форми
1. ПроцедураПріОткритіі ()
2. ПріЗапісіПерепроводіть (1);
3. Виконавець= НОфондМоніторінг raquo ;;
. Адрес_ісп= 249038г.Обнінскул.Гурьяновад.19 raquo ;;
. КонецПроцедури
. ПроцедураАвт ()
. Ціна=Договор.Цена_договора;
. Ед_ізм= шт raquo ;;
. Колво= 1 raquo ;;
. Сума=Ціна;
. Предмет_счета=laquo;Предоставлениеуслугпоорганизациисанаторно-курортноголечениясотрудниковпредприятияraquo;
. КонецПроцедури
. ПроцедураАвтоподстановка ()
. Еслидоговор.тип=перечисление.тип_клиента.физ_лицотогда
. Сообщить(laquo;ДанныйтипдокументаимеетсмыслтолькодляЮридическихлиц!Выберитедругойдоговор!raquo;);
. Договір= raquo ;;
. Повернення;
. Інакше
. Клієнт=Договор.Юр_орг;
. Адреса=Кліент.Юр_адрес;
. Дат_Дог=ДатаДок;
. Номер_дог=Договор.Номер_дог;
. Авт ();
. КонецЕсли
. КонецПроцедури
. ПроцедураПечать ()
. Таб=СоздатьОб'ект ( Таблиця );
. Таб.ІсходнаяТабліца ( Таблиця );
. ЕсліПустоезначеніе (договір)=1тогда
. Сообщить(laquo;Выберитеномердоговора!Печатьневозможна!raquo;);
. Повернення;
. ІначеЕсліПустоезначеніе (Номер_акта)=1тогда
. Сообщить(laquo;Выберитеномеракта!Печатьневозможна!raquo;);
. Повернення;
. ІначеЕсліКолічествоСтрок () lt; gt; 1тогда
. Сообщить(laquo;Предметсчетаможетбытьтолькоодин!Печатьневозможна!raquo;);
. НеПроводітьДокумент ();
. Повернення;
. Інакше
. СуммаПропісью=Формат (Ціна, ЧПДС );
. Пропис ( );
. ДатаПропісью=Формат (Дат_Дог, Д (0) ДДММММГГГГ );
. Таб.ВивестіСекцію ( Акт );
. Таб.ПараметриСтраніци (2 ,,,,, 0,0 ,,, 1);
. Таб.ТолькоПросмотр (1);
. Таб.Показать(laquo;Печатьактавыполненныхработraquo;,laquo;raquo;);
. КонецЕсли;
. КонецПроцедури
Код модуля документа
1. Процедура ОбработкаПроведенія ()
2. Якщо Пустоезначеніе (договір)=1 тоді
. Повідомити ( Виберіть номер договору! Документ не прове...
