Новое Распределяем каналы MAX по категориям и территориям. Читать новость
Открытый канал ID 79861994209395

1СПересылка

Открыть в MAX

Публикации за период

По реакциям

Поиск и вся лента — после бесплатной регистрации. Свои даты — по подписке; владелец канала видит их бесплатно. Сортировка по реакциям — по подписке. Зарегистрироваться

Загрузка…

&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)

// ... твой отбор из параметров ...

ПодключитьОбработчикИзмененияДанных("Список.Отбор", "ПриИзмененииОтбора");

ОбновитьИтогСуммы();

КонецПроцедуры

&НаСервере
Процедура ПриИзмененииОтбора(ИзмененныйЭлемент)
ОбновитьИтогСуммы();
КонецПроцедуры

&НаКлиенте
Процедура ПриАктивизацииОкна()
ОбновитьИтогСуммыНаСервере();
КонецПроцедуры

&НаСервере
Процедура ОбновитьИтогСуммыНаСервере()
ОбновитьИтогСуммы();
КонецПроцедуры

&НаСервере
Процедура ОбновитьИтогСуммы()

Если Параметры.Свойство("Отбор")
И Параметры.Отбор.Свойство("Основание") Тогда

Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| ЕСТЬNULL(СУММА(Оплата.Сумма), 0) КАК Сумма
|ИЗ
| Документ.Оплата КАК Оплата
|ГДЕ
| Оплата.Основание = &Основание";
Запрос.УстановитьПараметр("Основание", Параметры.Отбор.Основание);

ИтоговаяСумма = Запрос.Выполнить().Выгрузить()[0].Сумма;

Иначе
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| ЕСТЬNULL(СУММА(Оплата.Сумма), 0) КАК Сумма
|ИЗ
| Документ.Оплата КАК Оплата";

ИтоговаяСумма = Запрос.Выполнить().Выгрузить()[0].Сумма;

КонецЕсли;

Элементы.Сумма.ТекстПодвала = "Итого: " + Формат(ИтоговаяСумма, "ЧДЦ=2; ЧГ=3,0");

КонецПроцедуры
Просмотры: 3
Перейти в пост Открыть в MAX Сообщить о неточности
&НаСервере
Процедура ОбновитьИтогСуммы()

Если Параметры.Свойство("Отбор")
И Параметры.Отбор.Свойство("Основание") Тогда

Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| ЕСТЬNULL(СУММА(Оплата.Сумма), 0) КАК Сумма
|ИЗ
| Документ.Оплата КАК Оплата
|ГДЕ
| Оплата.Основание = &Основание";
Запрос.УстановитьПараметр("Основание", Параметры.Отбор.Основание);

ИтоговаяСумма = Запрос.Выполнить().Выгрузить()[0].Сумма;

Иначе
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| ЕСТЬNULL(СУММА(Оплата.Сумма), 0) КАК Сумма
|ИЗ
| Документ.Оплата КАК Оплата";

ИтоговаяСумма = Запрос.Выполнить().Выгрузить()[0].Сумма;

КонецЕсли;

// Прямая запись текста в подвал колонки
Элементы.Сумма.ТекстПодвала = "Итого: " + Формат(ИтоговаяСумма, "ЧДЦ=2; ЧГ=3,0");

КонецПроцедуры
Просмотры: 2
Перейти в пост Открыть в MAX Сообщить о неточности
ВКонтакте Телеграм Одноклассники
Избранное в datool.ru

Следите за каналом в личном кабинете

Зарегистрируйтесь в datool.ru, чтобы добавить канал «1СПересылка» в избранное и отслеживать его показатели.

Зарегистрироваться
Для владельцев каналов

Подтвердите свой канал

Войдите или зарегистрируйтесь в datool.ru, затем добавьте нашего бота в канал по инструкции в личном кабинете. После проверки владения замок исчезнет и вам станет доступно управление каналом.

Войти или зарегистрироваться

Сообщить о неточности

Опишите, что нужно исправить. Если есть источник, добавьте ссылку.

Вы покидаете datool.ru

Ссылка ведёт на внешний сайт. datool.ru не отвечает за его содержимое — проверьте адрес, прежде чем вводить пароли или платёжные данные.

Переход через 10 с

Перейти