Сум-ие значений эл. столбца документа и вывод рез. в другое поле

[Шамиль 2210]

Здравствуйте!
Зашел в тупик, не могу вывести сумму значений из столбца "Сумма" в поле "Итоговая сумма".


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

[LexaK]

всего одну команду надо добавить

Код Выделить Развернуть


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


[Шамиль 2210]

Здравствуйте! Итоговая сумма не выходит.

[LexaK]

ее надо где-то на форме разместить, вот для проверки добавьте команду сообщения

Код Выделить Развернуть

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

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



[antoneus]

А что, в итоговом поле надо вывести итоговую сумму из всех документов (зачем)? Или только из текущего? Если только из текущего, тогда

Код Выделить Развернуть

ИтоговаяСумма = Объект.ТабЧасть.Итог("Сумма");
Но возможно, ИтоговаяСумма - это реквизит документа? Тогда

Код Выделить Развернуть

ТекущийОбъект.ИтоговаяСумма = Объект.ТабЧасть.Итог("Сумма")