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