Всем привет. Это же форум по 1С?
Собственно сабж, есть столбец с названием ДельтаСумма, заполняется вот так:
ОбластьМакетаДанные.Параметры.ДельтаСумма=ОбластьМакетаДанные.Параметры.Дельта* ОбластьМакетаДанные.Параметры.ЦенаЗаЕд;
Как вывести внизу итог по этому столбцу?
ИтогДельтаСумма=?
вручную посчитать сумму и вывести
ПечИтог
покажи откуда данные берутся, к примеру ОбластьМакетаДанные.Параметры.Дельта
...запрос, тз?
ОбластьМакетаДанные=Макет.ПолучитьОбласть("Данные");
ТЗ=Новый ТаблицаЗначений;
ТЗ.Колонки.Добавить("Материал");
ТЗ.Колонки.Добавить("ЕдИзм");
ТЗ.Колонки.Добавить("НормаРасхНа1",ОписаниеТиповЧ ); //ИЗ РЕГ СВЕД КОМПЛЕКТУЮЩИЕ НОМЕНКЛАТУРЫ
ТЗ.Колонки.Добавить("НормаРасхНаЗаявку",ОписаниеТиповЧ); //из док-та внутр заказ
ТЗ.Колонки.Добавить("ФактИзрасх",ОписаниеТиповЧ); //ИЗ ТРЕБ-НАКЛ+КОМПЛ_НОМЕНКЛ
ТЗ.Колонки.Добавить("ФактИзрасхНаСумму",ОписаниеТиповЧ);
ТЗ.Колонки.Добавить("ЦенаЗаЕд",ОписаниеТиповЧ);
Для каждого строка из ТЗ цикл
ОбластьМакетаДанные.Параметры.Материал=строка.Материал;
ОбластьМакетаДанные.Параметры.ЕдИзм=строка.ЕдИзм;
ОбластьМакетаДанные.Параметры.НаЗаявку=строка.НормаРасхНаЗаявку;
ОбластьМакетаДанные.Параметры.ЦенаЗаЕд=строка.ЦенаЗаЕд;
искстр=ВыборкаТЗ.Найти(строка.Материал,"Номенклатура");
Если искстр=Неопределено Тогда
ОбластьМакетаДанные.Параметры.ФактИзрасходованоКол=строка.ФактИзрасх;
ОбластьМакетаДанные.Параметры.ФактИзрасходованоСум=строка.ФактИзрасхНаСумму;
Иначе
ОбластьМакетаДанные.Параметры.ФактИзрасходованоКол=искстр.КоличествоРасход;
ОбластьМакетаДанные.Параметры.ФактИзрасходованоСум=искстр.КоличествоРасход*строка.ЦенаЗаЕд;
ИтФактИзрасходованоКол=ИтФактИзрасходованоКол+искстр.КоличествоРасход;
ИтФактИзрасхСум=ИтФактИзрасхСум+искстр.КоличествоРасход*строка.ЦенаЗаЕд;
ОбластьМакетаДанные.Параметры.Дельта=(строка.ФактИзрасх+искстр.КоличествоРасход)-строка.НормаРасхНаЗаявку;
ОбластьМакетаДанные.Параметры.ДельтаСумма=ОбластьМакетаДанные.Параметры.Дельта* ОбластьМакетаДанные.Параметры.ЦенаЗаЕд;(4) не, покажи
ОбластьМакетаДанные.Параметры.Дельта = ЧтоТут
ОбластьМакетаДанные.Параметры.Дельта=(строка.ФактИзрасх+искстр.КоличествоРасход)-строка.НормаРасхНаЗаявку;
это внизу (4)
Итог = Итог + ((строка.ФактИзрасх+искстр.КоличествоРасход)-строка.НормаРасхНаЗаявку)*строка.ЦенаЗаЕд ОбластьМакетаДанные.Параметры.ИтогДельтаСумма = Итог;
строка, искстр... тогда тупо, до цикла:
ИтогДельтаСумма=0;
в цикле:
ИтогДельтаСумма=ИтогДельтаСумма + (ОбластьМакетаДанные.Параметры.Дельта* ОбластьМакетаДанные.Параметры.ЦенаЗаЕд;)
Уии, ништяк, я прям как программист. Взял Вариант палпетровича, т.к. семёркин надо в
Если искстр=Неопределено Иначе
класть, а то если оно неопределено, то искстр.КоличествоРасход не обнаружено
о, спасибо автору, открыл для себЯ - оказывается здесь прикольно коды выкладывать можно :)
Выборка = Документы.РеализацияТоваровУслуг.Выбрать(ДатаНач, КонецДня(ДатаКон)); Пока Выборка.Следующий() Цикл ЗаписатьXML(ЗаписьXML, Выборка.Ссылка.ПолучитьОбъект()); КонецЦикла;
(11)Ругалось, я починил.
весь код писал не я, я только добавил Дельта и ДельтаСумма