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