97
23
Специализированны
й сайт по тематике
информационных
систем и сетей
http://www.citforum.ru
24
Требования,
предъявляемые к
компьютерам,
представленным на
сертификацию в
фирму «1С» для
получения логотипа
«Совместимо!
Система программ
1С:Предприятие»
https://1c.ru/rus/products/1c/predpr/compat/hard/demand.
htm
25
Университетская
библиотека онлайн
http://biblioclub.ru
26
Федеральное
агентство по
техническому
регулированию и
метрологии
(Росстандарт)
http://www.gost.ru
98
ПРИЛОЖЕНИЕ 1. ТЕКСТ ПРОГРАММНЫХ МОДУЛЕЙ
Модель формы документа «Заявка»
&НаКлиенте
Процедура ЗагрузитьСДиска(Команда)
АдресВХранилище = "";
ВыбранноеИмяФайла = "";
Если ПоместитьФайл(АдресВХранилище, , ВыбранноеИмяФайла, ,
УникальныйИдентификатор) Тогда
Файл = Новый Файл(ВыбранноеИмяФайла);
ИмяФайлаКартинки = Файл.Имя;
СсылкаНаКартинку = АдресВХранилище;
Модифицированность = Истина;
КонецЕсли;
КонецПроцедуры
&НаСервере
Процедура ПередЗаписьюНаСервере(Отказ, ТекущийОбъект,
ПараметрыЗаписи)
// Получить файл из хранилища и поместить его в объект
Если ЭтоАдресВременногоХранилища(СсылкаНаКартинку) Тогда
ДвоичныеДанные =
ПолучитьИзВременногоХранилища(СсылкаНаКартинку);
ТекущийОбъект.ФайлКартинки = Новый
ХранилищеЗначения(ДвоичныеДанные, Новый СжатиеДанных(9));
ТекущийОбъект.ИмяФайлаКартинки = ИмяФайлаКартинки;
99
КонецЕсли;
КонецПроцедуры
&НаСервере
Процедура ПриЗаписиНаСервере(Отказ, ТекущийОбъект,
ПараметрыЗаписи)
// Удалить файл из временного хранилища.
Если ЭтоАдресВременногоХранилища(СсылкаНаКартинку) Тогда
УдалитьИзВременногоХранилища(СсылкаНаКартинку);
СсылкаНаКартинку =
ПолучитьНавигационнуюСсылку(ТекущийОбъект.Ссылка, "ФайлКартинки");
КонецЕсли;
КонецПроцедуры
&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
Если Объект.ИмяФайлаКартинки > "" Тогда
СсылкаНаКартинку =
ПолучитьНавигационнуюСсылку(Объект.Ссылка, "ФайлКартинки");
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура СохранитьНаДиск(Команда)
Если Объект.ИмяФайлаКартинки = "" Тогда
Предупреждение("У товара нет сохраненной в базе картинки");
Иначе
100
СсылкаНаФайлВИБ =
ПолучитьНавигационнуюСсылку(Объект.Ссылка, "ФайлКартинки");
ПолучитьФайл(СсылкаНаФайлВИБ,
Объект.ИмяФайлаКартинки, Истина);
КонецЕсли;
КонецПроцедуры
Команда Печать: Модуль команды (Документ «Заявка»)
&НаКлиенте
Процедура ОбработкаКоманды(ПараметрКоманды,
ПараметрыВыполненияКоманды)
//{{_КОНСТРУКТОР_ПЕЧАТИ(Печать)
ТабДок = Новый ТабличныйДокумент;
Печать(ТабДок, ПараметрКоманды);
ТабДок.ОтображатьСетку = Ложь;
ТабДок.Защита = Ложь;
ТабДок.ТолькоПросмотр = Ложь;
ТабДок.ОтображатьЗаголовки = Ложь;
ТабДок.Показать();
//}}
КонецПроцедуры
&НаСервере
Процедура Печать(ТабДок, ПараметрКоманды)
Документы.Заявка.Печать(ТабДок, ПараметрКоманды);
КонецПроцедуры
101
Документ «Заявка»: Модуль менеджера
Процедура Печать(ТабДок, Ссылка) Экспорт
//{{_КОНСТРУКТОР_ПЕЧАТИ(Печать)
Макет = Документы.Заявка.ПолучитьМакет("Печать");
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| Заявка.Дата,
| Заявка.Кабинет,
| Заявка.КонтактныеДанные,
| Заявка.Номер,
| Заявка.ОписаниеПроблемы,
| Заявка.Сотрудник,
| Заявка.Филиал
|ИЗ
| Документ.Заявка КАК Заявка
|ГДЕ
| Заявка.Ссылка В (&Ссылка)";
Запрос.Параметры.Вставить("Ссылка", Ссылка);
Выборка = Запрос.Выполнить().Выбрать();
ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");
Шапка = Макет.ПолучитьОбласть("Шапка");
ТабДок.Очистить();
102
ВставлятьРазделительСтраниц = Ложь;
Пока Выборка.Следующий() Цикл
Если ВставлятьРазделительСтраниц Тогда
ТабДок.ВывестиГоризонтальныйРазделительСтраниц();
КонецЕсли;
ТабДок.Вывести(ОбластьЗаголовок);
Шапка.Параметры.Заполнить(Выборка);
ТабДок.Вывести(Шапка, Выборка.Уровень());
ВставлятьРазделительСтраниц = Истина;
КонецЦикла;
//}}
КонецПроцедуры
Команда Печать: Модуль команды (Задача «Работа с заявками»)
&НаКлиенте
Процедура ОбработкаКоманды(ПараметрКоманды,
ПараметрыВыполненияКоманды)
//{{_КОНСТРУКТОР_ПЕЧАТИ(Печать)
ТабДок = Новый ТабличныйДокумент;
Печать(ТабДок, ПараметрКоманды);
ТабДок.ОтображатьСетку = Ложь;
ТабДок.Защита = Ложь;
ТабДок.ТолькоПросмотр = Ложь;
103
ТабДок.ОтображатьЗаголовки = Ложь;
ТабДок.Показать();
//}}
КонецПроцедуры
&НаСервере
Процедура Печать(ТабДок, ПараметрКоманды)
Задачи.РаботаСЗаявками.Печать(ТабДок, ПараметрКоманды);
КонецПроцедуры
Задача «Работа с заявками»: Модуль менеджера
Процедура Печать(ТабДок, Ссылка) Экспорт
//{{_КОНСТРУКТОР_ПЕЧАТИ(Печать)
Макет = Задачи.РаботаСЗаявками.ПолучитьМакет("Печать");
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| РаботаСЗаявками.Дата,
|
РаботаСЗаявками.КомментарииОтСотрудникаТехническогоОтдела,
| РаботаСЗаявками.НомерЗаявки,
| РаботаСЗаявками.СотрудникПАОМОЭСК,
| РаботаСЗаявками.СотрудникТехническогоОтдела
|ИЗ
| Задача.РаботаСЗаявками КАК РаботаСЗаявками
104
|ГДЕ
| РаботаСЗаявками.Ссылка В (&Ссылка)";
Запрос.Параметры.Вставить("Ссылка", Ссылка);
Выборка = Запрос.Выполнить().Выбрать();
ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");
Шапка = Макет.ПолучитьОбласть("Шапка");
ОбластьОписание = Макет.ПолучитьОбласть("Описание");
ОбластьПодписи = Макет.ПолучитьОбласть("Подписи");
ТабДок.Очистить();
ВставлятьРазделительСтраниц = Ложь;
Пока Выборка.Следующий() Цикл
Если ВставлятьРазделительСтраниц Тогда
ТабДок.ВывестиГоризонтальныйРазделительСтраниц();
КонецЕсли;
ТабДок.Вывести(ОбластьЗаголовок);
Шапка.Параметры.Заполнить(Выборка);
ТабДок.Вывести(Шапка, Выборка.Уровень());
ТабДок.Вывести(ОбластьОписание);
ТабДок.Вывести(ОбластьПодписи);
ВставлятьРазделительСтраниц = Истина;
КонецЦикла;
//}}
КонецПроцедуры