Условие при выборе

Функция Долг (ЭлементыФормы) Экспорт
Запрос = Новый Запрос;
Запрос.Текст = "ВЫБРАТЬ
| ДоговорыКонтрагентов.Ссылка КАК Ссылка,
| ДоговорыКонтрагентов.СрокДействия КАК СрокДействия,
| ДоговорыКонтрагентов.ПометкаУдаления КАК Пометка
|ИЗ
| Справочник.ДоговорыКонтрагентов КАК ДоговорыКонтрагентов
|ГДЕ
| ДоговорыКонтрагентов.ВидВзаиморасчетов = ЗНАЧЕНИЕ(Справочник.ВидыВзаиморасчетов.ИТС)
| И ДоговорыКонтрагентов.Владелец = &Владелец";
Запрос.УстановитьПараметр("Владелец", Контрагент);
Дог1 = Запрос.Выполнить().Выбрать();
Если Дог1.Следующий() Тогда
Если НЕ Дог1.Пометка Тогда
Если Дог1.СрокДействия > Дата Тогда
ЭлементыФормы.ГиперСсылкаДоговорНаУслуги.ЦветТекста = WebЦвета.Зеленый;
ЭлементыФормы.ГиперСсылкаДоговорНаУслуги.Заголовок= Дог1.Ссылка;
Иначе
ЭлементыФормы.ГиперСсылкаДоговорНаУслуги.ЦветТекста = WebЦвета.Красный;
ЭлементыФормы.ГиперСсылкаДоговорНаУслуги.Заголовок= Дог1.Ссылка;
КонецЕсли;
Иначе
ЭлементыФормы.ГиперСсылкаДоговорНаУслуги.ЦветТекста = WebЦвета.ОранжевоКрасный;
ЭлементыФормы.ГиперСсылкаДоговорНаУслуги.Заголовок = "Договора на ИТС нет";
КонецЕсли;
Иначе
КонецЕсли;

Запрос = Новый Запрос;
Запрос.Текст = "ВЫБРАТЬ
| ДоговорыКонтрагентов.Ссылка КАК Ссылка,
| ДоговорыКонтрагентов.СрокДействия КАК СрокДействия,
| ДоговорыКонтрагентов.ПометкаУдаления КАК Пометка
|ИЗ
| Справочник.ДоговорыКонтрагентов КАК ДоговорыКонтрагентов
|ГДЕ
| ДоговорыКонтрагентов.ВидВзаиморасчетов = ЗНАЧЕНИЕ(Справочник.ВидыВзаиморасчетов.Сопровождение)
| И ДоговорыКонтрагентов.Владелец = &Владелец";
Запрос.УстановитьПараметр("Владелец", Контрагент);
Дог2 = Запрос.Выполнить().Выбрать();
Если Дог2.Следующий() Тогда
Если НЕ Дог2.Пометка Тогда
Если Дог2.СрокДействия > Дата Тогда
ЭлементыФормы.НадписьПодпискаИТС.ЦветТекста = WebЦвета.Зеленый;
ЭлементыФормы.НадписьПодпискаИТС.Заголовок= Дог2.Ссылка;
Иначе
ЭлементыФормы.НадписьПодпискаИТС.ЦветТекста = WebЦвета.Красный;
ЭлементыФормы.НадписьПодпискаИТС.Заголовок= Дог2.Ссылка;
КонецЕсли;
Иначе
ЭлементыФормы.НадписьПодпискаИТС.ЦветТекста = WebЦвета.ОранжевоКрасный;
ЭлементыФормы.НадписьПодпискаИТС.Заголовок = "Договора на услуги нет";
КонецЕсли;
Иначе
КонецЕсли;

Запрос = Новый Запрос;
Запрос.Текст ="ВЫБРАТЬ
| ВзаиморасчетыСКонтрагентамиОстатки.СуммаВзаиморасчетовОстаток
|ИЗ
| РегистрНакопления.ВзаиморасчетыСКонтрагентами.Остатки(
| &Дата,
| ДоговорКонтрагента.ВидВзаиморасчетов = ЗНАЧЕНИЕ(Справочник.ВидыВзаиморасчетов.ОбучениеКОРП)
| ИЛИ ДоговорКонтрагента.ВидВзаиморасчетов = ЗНАЧЕНИЕ(Справочник.ВидыВзаиморасчетов.ОбучениеФЛ)
| ИЛИ ДоговорКонтрагента.ВидВзаиморасчетов = ЗНАЧЕНИЕ(Справочник.ВидыВзаиморасчетов.ОбучениеЮЛ)
| ИЛИ ДоговорКонтрагента.ВидВзаиморасчетов = ЗНАЧЕНИЕ(Справочник.ВидыВзаиморасчетов.Поставка)
| И Контрагент = &Контрагент) КАК ВзаиморасчетыСКонтрагентамиОстатки";
Запрос.УстановитьПараметр("Дата", ТекущаяДата());
Запрос.УстановитьПараметр("Контрагент",Контрагент);
СальдоРезультат = Запрос.Выполнить().Выбрать();
Если СальдоРезультат.Следующий() Тогда
Если СальдоРезультат.СуммаВзаиморасчетовОстаток < 0 Тогда
ЭлементыФормы.НадписьСальдоВзаиморасчетов.ЦветТекста = WebЦвета.Зеленый;
ЭлементыФормы.НадписьСальдоВзаиморасчетов.Заголовок = "Долгов нет";
Иначе
ЭлементыФормы.НадписьСальдоВзаиморасчетов.ЦветТекста = WebЦвета.Красный;
ЭлементыФормы.НадписьСальдоВзаиморасчетов.Заголовок = "Долг составляет: " + СальдоРезультат.СуммаВзаиморасчетовОстаток;
КонецЕсли;
КонецЕсли;