Дипломная работа: Автоматизация расчетов с поставщиками и подрядчиками в ООО «Городской супермаркет»
Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
72
Ошибка в e-mail
Подтверждение на рассылку актов
Сообщение об успешной рассылке актов
73
Приложение 4. Текст модуля рассылки актов сверки
#Область ОбщиеПроцедурыИФункции
&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
Объект.Организация.ТипЗначения = Новый
ОписаниеТипов("СправочникСсылка.Организации");
Объект.СписокКонтрагентов.ТипЗначения = Новый
ОписаниеТипов("СправочникСсылка.Контрагенты");
Объект.СписокДоговоров.ТипЗначения = Новый
ОписаниеТипов("СправочникСсылка.ДоговорыКонтрагентов");
Объект.СписокВидовДоговоров.ТипЗначения = Новый
ОписаниеТипов("ПеречислениеСсылка.ВидыДоговоровКонтрагентов");
Объект.СписокСчетов.ТипЗначения = Новый
ОписаниеТипов("ПланСчетовСсылка.Хозрасчетный");
//Определяем список доступных значений печатных форм
Объект.СписокПечатныхФорм.ТипЗначения = Новый ОписаниеТипов("Строка");
СписокДоступныхЗначений = Новый СписокЗначений;
СписокДоступныхЗначений.Добавить("АктСверки", "Акт сверки взаиморасчетов");
СписокДоступныхЗначений.Добавить("АктСверкиСПечатьюИПодписью", "Акт сверки
взаиморасчетов с печатью и подписью");
Объект.СписокПечатныхФорм.ДоступныеЗначения = СписокДоступныхЗначений;
//Определяем список доступных значений форматов сохранения
СписокДоступныхЗначений = Новый СписокЗначений;
СписокДоступныхЗначений.Добавить(ТипФайлаТабличногоДокумента.PDF, "PDF");
СписокДоступныхЗначений.Добавить(ТипФайлаТабличногоДокумента.XLSX, "Excel");
Объект.СписокФорматовСохранения.ДоступныеЗначения = СписокДоступныхЗначений;
КонецПроцедуры
&НаКлиенте
Процедура ПриОткрытии(Отказ)
74
Элементы.СписокДоговоров.Видимость = Объект.ПоДоговорам;
Элементы.СписокВидовДоговоров.Видимость = Объект.ПоВидамДоговоров;
Элементы.СписокВидовСчетов.Видимость = Объект.ПоСчетам;
КонецПроцедуры
&НаКлиенте
Процедура ОбработкаВыбора(ВыбранноеЗначение, ИсточникВыбора)
Если ТипЗнч(ВыбранноеЗначение) = Тип("СписокЗначений") Тогда
Объект.СписокДоговоров.ЗагрузитьЗначения(ВыбранноеЗначение.ВыгрузитьЗначения());
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура СообщитьОбОшибке(Текст, Поле)
Сообщение = Новый СообщениеПользователю;
Сообщение.Текст = Текст;
Сообщение.Поле = Поле;
Сообщение.Сообщить();
КонецПроцедуры
&НаКлиенте
Процедура УстановитьПометку(Команда)
Для каждого СтрокаТЧ Из Объект.АктыСверки Цикл
СтрокаТЧ.Пометка = Истина;
КонецЦикла;
75
КонецПроцедуры
&НаКлиенте
Процедура СнятьПометку(Команда)
Для каждого СтрокаТЧ Из Объект.АктыСверки Цикл
СтрокаТЧ.Пометка = Ложь;
КонецЦикла;
КонецПроцедуры
&НаКлиенте
Процедура АктыСверкиАктСверкиПриИзменении(Элемент)
ЗаполнитьСтрокуТЧ(Элементы.АктыСверки.ТекущиеДанные.НомерСтроки);
КонецПроцедуры
&НаКлиенте
Функция ПроверитьНаличиеВыбранныхЭлементов()
// Проверяем наличие хотя бы одного выбранного на печать акта сверки
ВыбраныЭлементы = Ложь;
Для каждого СтрокаТЧ Из Объект.АктыСверки Цикл
Если СтрокаТЧ.Пометка Тогда
ВыбраныЭлементы = Истина;
Прервать;
КонецЕсли;
КонецЦикла;
Возврат ВыбраныЭлементы;
КонецФункции
76
&НаСервере
Процедура ЗаполнитьСтрокуТЧ(НомерСтроки)
СтрокаТЧ = Объект.АктыСверки[НомерСтроки - 1];
Запрос = Новый Запрос;
Запрос.Текст = "ВЫБРАТЬ
| СУММА(АктСверкиВзаиморасчетовПоДаннымОрганизации.Дебет) КАК Дебет,
| СУММА(АктСверкиВзаиморасчетовПоДаннымОрганизации.Кредит) КАК
Кредит,
| АктСверкиВзаиморасчетовПоДаннымОрганизации.Ссылка.Организация КАК
Организация,
| АктСверкиВзаиморасчетовПоДаннымОрганизации.Ссылка.Контрагент КАК
Контрагент,
| АктСверкиВзаиморасчетовПоДаннымОрганизации.Ссылка.ВалютаДокумента
КАК Валюта,
| АктСверкиВзаиморасчетовПоДаннымОрганизации.Ссылка.ДоговорКонтрагента
КАК Договор,
| АктСверкиВзаиморасчетовПоДаннымОрганизации.Ссылка.СверкаСогласована
КАК Согласован,
| ИСТИНА КАК Пометка,
| АктСверкиВзаиморасчетовПоДаннымОрганизации.Ссылка.ОстатокНаНачало
КАК ОстатокНаНачало
|ПОМЕСТИТЬ ВТ_ДанныеПоАкту
|ИЗ
| Документ.АктСверкиВзаиморасчетов.ПоДаннымОрганизации КАК
АктСверкиВзаиморасчетовПоДаннымОрганизации
|ГДЕ
| АктСверкиВзаиморасчетовПоДаннымОрганизации.Ссылка = &Ссылка
|
|СГРУППИРОВАТЬ ПО
| АктСверкиВзаиморасчетовПоДаннымОрганизации.Ссылка.ВалютаДокумента,
| АктСверкиВзаиморасчетовПоДаннымОрганизации.Ссылка.Контрагент,
| АктСверкиВзаиморасчетовПоДаннымОрганизации.Ссылка.Организация,
|
АктСверкиВзаиморасчетовПоДаннымОрганизации.Ссылка.ДоговорКонтрагента,
| АктСверкиВзаиморасчетовПоДаннымОрганизации.Ссылка.СверкаСогласована,
Источник: https://baza.diplomsite.ru/previewfile/581