Функция глТекущийДолг(Фирма, Договор, Роль) Экспорт Перем Рез; Если (ПустоеЗначение(Фирма) =1) или (ПустоеЗначение(Договор)=1) Тогда Рез = 0; Иначе Если нРег(Роль) = "поставщик" Тогда РабРег = Регистр.Поставщики; Рез = РабРег.СводныйОстаток(Фирма, Договор, , , "СуммаВал"); ИначеЕсли нРег(Роль) = "покупатель" Тогда РабРег = Регистр.Покупатели; Рез = РабРег.СводныйОстаток(Фирма, Договор, , , ,"СуммаВал"); ИначеЕсли нРег(Роль) = "все" Тогда РабРег = Регистр.Поставщики; Рез = РабРег.СводныйОстаток(Фирма, Договор, , , "СуммаВал"); РабРег = Регистр.Покупатели; Рез = Рез + РабРег.СводныйОстаток(Фирма, Договор, , , ,"СуммаВал"); Иначе Рез = 0; КонецЕсли; КонецЕсли; Возврат Рез; КонецФункции |