Имя: Пароль:
1C
1C 7.7
v7: Итоговая сумма в форме М-11
,
0 oreshka7387
 
24.10.12
09:06
Товарищи форумчане, помогите, пожалуйста. В частности, для ПУБ, бух попросила сделать вывод итоговой суммы (в форме её нет). Промучилась полдня. На 8 реализовала за пол-часа, на 7.7 - ну ни в какую. Может, кто-то уже делал? Подскажите, как эту итоговую сумму вывести? Ну или ссылочку на обработку дайте, пожалуйста...
1 ЧеловекДуши
 
24.10.12
09:13
Галочку поставь "Итоги"

А по сути, НечегоНеПонимаю, какие итоги, куда, зачем?
Осень на дворе?
2 ЧеловекДуши
 
24.10.12
09:15
http://blanker.ru/doc/13

Ну дак добавь в конец этой таблицы Строчку
"Итого: " и суммируй те колонки, на какие укажет Гл.Бух :)
3 ЧеловекДуши
 
24.10.12
09:16
+ Хотя по факту, там почему-то не предусмотрены итоги :)
4 miki
 
24.10.12
09:18
(3)потому что, себестоимость по этому документу рассчитывается при его проведении.
5 ДенисЧ
 
24.10.12
09:23
(4) а в нормальной конфе документы только проведённые печатаются... :-)
6 oreshka7387
 
24.10.12
09:24
вот... данные колонки Сумма рассчитываются фактически при проведении и выводятся только при печати, т.е. в ТЧ документа её нет. А по печатной форме не получается у меня получить итог колонки Сумма
7 ДенисЧ
 
24.10.12
09:25
(6) при формировании формы бери движения документа, оттуда бери суммы... А итог просто суммированием считай
8 ЧеловекДуши
 
24.10.12
09:25
(6)Если в документе нет галочки Итого, а вносить такого рода изменение в ломы, то:

ДОк.ВыгрузитьТабличнуюЧасть(ТЗ);
Итого = ТЗ.Итог("Моя Сумма");

и Вуаля, у тебя итоги :)
9 ЧеловекДуши
 
24.10.12
09:26
(4)Я про то, что в табличной части Формы М-11, нет итоговой строчки :)
10 oreshka7387
 
24.10.12
09:35
вот часть типового кода:
   Таб = СоздатьОбъект("Таблица");
   Таб.ИсходнаяТаблица("М-11");

   Т = СоздатьОбъект("ТаблицаЗначений");
   ВыгрузитьТабличнуюЧасть(Т);
   Т.НоваяКолонка("Сумма", "Число");
.....
   Т.Свернуть("ВидМПЗвТЧ, МПЗ, ЕдиницаИзмерения", "Отпущено, Сумма");
   СекцияСтрока = Таб.ПолучитьСекцию("Строка");
   Т.ВыбратьСтроки();
   Пока Т.ПолучитьСтроку() = 1 Цикл

       Если (Т.ВидМПЗвТЧ = Перечисление.ВидыМПЗ.Материалы) Тогда
           СекцияСтрока.Субсчет = Т.МПЗ.Субсчет;
       ИначеЕсли (Т.ВидМПЗвТЧ = Перечисление.ВидыМПЗ.Продукция) Тогда
           СекцияСтрока.Субсчет = "43";
       ИначеЕсли (Т.ВидМПЗвТЧ = Перечисление.ВидыМПЗ.Полуфабрикаты) Тогда
           СекцияСтрока.Субсчет = "21";
       ИначеЕсли (Т.ВидМПЗвТЧ = Перечисление.ВидыМПЗ.Товары) Тогда
           СекцияСтрока.Субсчет = "41.4";
       КонецЕсли;
       СекцияСтрока.МатЦенность = Т.МПЗ;
       СекцияСтрока.Код = Т.МПЗ.Код;
       Если Т.ЕдиницаИзмерения.Выбран() = 1 Тогда
           СекцияСтрока.ЕдиницаИзмеренияКод = Т.ЕдиницаИзмерения.ЕдиницаИзмерения.Код;
           СекцияСтрока.ЕдиницаИзмерения = Т.ЕдиницаИзмерения.ЕдиницаИзмерения;
       Иначе
           СекцияСтрока.ЕдиницаИзмеренияКод = Т.МПЗ.ЕдиницаИзмерения.Код;
           СекцияСтрока.ЕдиницаИзмерения = Т.МПЗ.ЕдиницаИзмерения;
       КонецЕсли;
       СекцияСтрока.Затребовано = глФорматКол(Т.Отпущено);
       СекцияСтрока.Отпущено = глФорматКол(Т.Отпущено);
       СекцияСтрока.Сумма = глФорматСум(Т.Сумма, "0");    
       СекцияСтрока.ЦенаБезНДС = глФорматСум(?(Т.Отпущено = 0, 0, Т.Сумма/Т.Отпущено), "0");  
   
       Таб.ВывестиСекцию(СекцияСтрока);
       Состояние("Выведено строк: " + Т.НомерСтроки);

   КонецЦикла;
   
   Таб.ВывестиСекцию("Подвал");

вот в подвале хотят видеть итог по колонке сумма
11 oreshka7387
 
24.10.12
09:36
(8) спасибо, сейчас попробую
12 ЧеловекДуши
 
24.10.12
09:39
(11)Вот твое решение:

Итого = Т.Итог("Сумма");
Таб.ВывестиСекцию("Итого");

Секцию Итого добавишь сама....
13 ЧеловекДуши
 
24.10.12
09:39
+(11)Код вставить после цикла, но перед "Подвалом"
14 oreshka7387
 
24.10.12
09:56
блииин... как же ш все просто-то оказывается! спасибо тебе, добрый человек! (12)
Есть два вида языков, одни постоянно ругают, а вторыми никто не пользуется.