Имя: Пароль:
1C
1С v8
помогите пожалуйста вывести итог
0 valushka991
 
04.12.14
09:12
помогите пожалуйста вывести итог

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

    
    
    для Каждого стр  из ТабличнаяЧасть   цикл
        ОбластьТабличнаяЧасть.Параметры.НомерСтроки=Номер;
        ОбластьТабличнаяЧасть.Параметры.Товар=стр.Товар;
        ОбластьТабличнаяЧасть.Параметры.Количество = стр.Количество;
        ОбластьТабличнаяЧасть.Параметры.Цена=стр.Цена;
        ОбластьТабличнаяЧасть.Параметры.Сумма=стр.Сумма;
          ТабДок.Вывести(ОбластьТабличнаяЧасть);
      
        ОбластьИтог.Параметры.ИтогПоДокументу=ОбластьИтог;
        

    СумИтог=0;
    КолИтог=0;
    
           СумИтог=СумИтог+выб.Сумма;
        КолИтог=КолИтог+выб.Количество;
    КонецЦикла;    
    КонецЦикла;    
        ОбластьИтог.Параметры.Сумма=СумИтог;
        ОбластьИтог.Параметры.Сумма=КолИтог;
ТабДок.Вывести(ОбластьИтог);
    

ОбластьТабличнаяЧастьШапка=Макет.ПолучитьОбласть("ШапкаТаблицы1");
    
        ТабДок.Вывести(ОбластьИтог);
                  
   ТабДок.ОтображатьСетку = Ложь;
    ТабДок.Защита = Ложь;
    ТабДок.ТолькоПросмотр = Ложь;
    ТабДок.ОтображатьЗаголовки = Ложь;
    ТабДок.ОриентацияСтраницы = ОриентацияСтраницы.Ландшафт;
    ТабДок.АвтоМасштаб = Истина;
    ТабДок.Показать();
       //ТабДок.Вывести();

КонецПроцедуры
1 Wobland
 
04.12.14
09:13
посылаю тебе луч помощи
2 valushka991
 
04.12.14
09:17
(1) я серьезно
3 Wobland
 
04.12.14
09:18
(2) думаешь, я шучу?
4 pessok
 
04.12.14
09:19
(0) судя по коду, ты вывел его дважды
5 Спящая
 
04.12.14
09:19
стр.Сумма  и выб.Сумма - как то наверное надо определится по точнее...
6 pessok
 
04.12.14
09:19
ОбластьИтог.Параметры.Сумма=СумИтог;
        ОбластьИтог.Параметры.Сумма=КолИтог;
этапять! сегодня же только четверг
7 pessok
 
04.12.14
09:20
ОбластьИтог.Параметры.ИтогПоДокументу=ОбластьИтог;
воу...
8 hhhh
 
04.12.14
09:20
(6)+        ОбластьИтог.Параметры.ИтогПоДокументу=ОбластьИтог;


а это уже не пятница, а суббота.
9 pessok
 
04.12.14
09:20
(0) исползуй конструктор выходных форм
10 dubraver
 
04.12.14
09:21
тоже смешно:
для Каждого стр  из ТабличнаяЧасть   цикл


    СумИтог=0;
    КолИтог=0;
    
        СумИтог=СумИтог+выб.Сумма;
        КолИтог=КолИтог+выб.Количество;
    КонецЦикла;
11 hhhh
 
04.12.14
09:23
(2) в общем, выбросьте полностью этот кусок, выйдите на свежий воздух, чтобы все пары алкоголя выветрились из организма, потом сядьте, напишите этот кусок заново.
12 valushka991
 
04.12.14
09:25
мне нужно в подвале вывести сразу 2 итога
1 итог-количество
2итог- сумма

        ОбластьИтог.Параметры.ИтогПоДокументу=ОбластьИтог;
        
    СумИтог=0;
    КолИтог=0;
      
           СумИтог=СумИтог+стр.Сумма;
        КолИтог=КолИтог+стр.Количество;
13 pessok
 
04.12.14
09:25
+(11)
убрать все расчеты внутри цикла
после цикла дописать
ОбластьИтог.Параметры.Сумма = ТабличнаяЧасть.Итог("Сумма")
14 pessok
 
04.12.14
09:26
+(12) тогда в подвале должно быть два параметра - сумма, количество
код будет
ОбластьИтог.Параметры.Сумма = ТабличнаяЧасть.Итог("Сумма");
ОбластьИтог.Параметры.Количество= ТабличнаяЧасть.Итог("Количество")
15 pessok
 
04.12.14
09:27
для Каждого стр  из ТабличнаяЧасть   цикл
ОбластьТабличнаяЧасть.Параметры.Заполнить(стр);
КонецЦикла;

ОбластьИтог.Параметры.Сумма = ТабличнаяЧасть.Итог("Сумма");
ОбластьИтог.Параметры.Количество= ТабличнаяЧасть.Итог("Количество")
16 pessok
 
04.12.14
09:28
+(15) ну и в цикле еще ТабДок.Вывести(ОбластьТабличнаяЧасть);
17 valushka991
 
04.12.14
09:43
(15) все ровно не выводит
18 pessok
 
04.12.14
09:48
Процедура ОсновныеДействияФормыПечатьТовара(Кнопка)
    ТабДок=Новый ТабличныйДокумент;
    Макет=ПолучитьМакет("Печать");
    ОбластьЗаголовок= Макет.ПолучитьОбласть("Заголовок");
    Шапка= Макет.ПолучитьОбласть("Шапка");
    ОбластьТабличнаяЧастьШапка = Макет.ПолучитьОбласть("ТабличнаяЧастьШапка");      
    ОбластьТабличнаяЧасть= Макет.ПолучитьОбласть("ТабличнаяЧасть");
    ОбластьИтог = Макет.ПолучитьОбласть("Итог");
    Шапка.Параметры.Номер=Номер ;
    Шапка.Параметры.Дата = Дата;
    Шапка.Параметры.Склад =Склад;
    Шапка.Параметры.Организация =Организация;
    ТабДок.Вывести(Шапка);
    
    ТабДок.Вывести(ОбластьТабличнаяЧастьШапка);
    
    для Каждого стр  из ТабличнаяЧасть   цикл
        ОбластьТабличнаяЧасть.Параметры.Заполнить(стр);
        ТабДок.Вывести(ОбластьТабличнаяЧасть);
    КонецЦикла;        
    
    ОбластьИтог.Параметры.Сумма=ТабличнаяЧасть.Итог("Сумма");
    ОбластьИтог.Параметры.Количество=ТабличнаяЧасть.Итог("Количество");
    ТабДок.Вывести(ОбластьИтог);
    
    
    ТабДок.ОтображатьСетку = Ложь;
    ТабДок.Защита = Ложь;
    ТабДок.ТолькоПросмотр = Ложь;
    ТабДок.ОтображатьЗаголовки = Ложь;
    ТабДок.ОриентацияСтраницы = ОриентацияСтраницы.Ландшафт;
    ТабДок.АвтоМасштаб = Истина;
    ТабДок.Показать();
    
КонецПроцедуры
19 valushka991
 
04.12.14
10:28
{Документ.ПоступлениеТоваровИУслуг.Форма.ФормаДокумента1.Форма(44)}: Метод объекта не обнаружен (ОбластьИтог)
        ОбластьИтог.Параметры.СуммаПоДокументу=ТабличнаяЧасть.ОбластьИтог("ИтогСумма");
20 pessok
 
04.12.14
10:30
ОбластьИтог.Параметры.СуммаПоДокументу=ТабличнаяЧасть.ОбластьИтог("ИтогСумма");

это я очепятался

ОбластьИтог.Параметры.СуммаПоДокументу=ТабличнаяЧасть.Итог("ИтогСумма");
21 pessok
 
04.12.14
10:30
а, нет, я не очепятался, это ты не смогла правильно скипипейстить :)
22 pessok
 
04.12.14
10:31
Итог - это метод табличной части, к табличному документа не имеет отношения
23 valushka991
 
04.12.14
10:42
одинаковая ошибка хоть так,хоть так
24 pessok
 
04.12.14
10:42
давай весь код
25 valushka991
 
04.12.14
10:43
{Документ.ПоступлениеТоваровИУслуг.Форма.ФормаДокумента1.Форма(44)}: Ошибка при вызове метода контекста (Итог)
        ОбластьИтог.Параметры.СуммаПоДокументу=ТабличнаяЧасть.Итог("ИтогСумма");
по причине:
Недопустимое значение параметра (параметр номер '1') (Колонка не принадлежит коллекции)
26 valushka991
 
04.12.14
10:44
Процедура ОсновныеДействияФормыПечатьТовара(Кнопка)
    ТабДок=Новый ТабличныйДокумент;
    ТабДок.Очистить();
    Макет=ПолучитьМакет("Печать");
    ОбластьЗаголовок= Макет.ПолучитьОбласть("Заголовок");
    Шапка= Макет.ПолучитьОбласть("Шапка");
    ОбластьТабличнаяЧастьШапка = Макет.ПолучитьОбласть("ТабличнаяЧастьШапка");       
    ОбластьТабличнаяЧасть= Макет.ПолучитьОбласть("ТабличнаяЧасть");
    ОбластьИтог = Макет.ПолучитьОбласть("Итог");
        Шапка.Параметры.Номер=Номер ;
    Шапка.Параметры.Дата = Дата;
    Шапка.Параметры.Склад =Склад;
    Шапка.Параметры.Организация =Организация;
       ТабДок.Вывести(Шапка);
      
     ТабДок.Вывести(ОбластьТабличнаяЧастьШапка);

    
    
    для Каждого стр  из ТабличнаяЧасть   цикл
        ОбластьТабличнаяЧасть.Параметры.НомерСтроки=Номер;
        ОбластьТабличнаяЧасть.Параметры.Товар=стр.Товар;
        ОбластьТабличнаяЧасть.Параметры.Количество = стр.Количество;
        ОбластьТабличнаяЧасть.Параметры.Цена=стр.Цена;
        ОбластьТабличнаяЧасть.Параметры.Сумма=стр.Сумма;
          ТабДок.Вывести(ОбластьТабличнаяЧасть);
    
    ОбластьИтог.Параметры.ИтогПоДокументу=ОбластьИтог;

     ОбластьТабличнаяЧасть.Параметры.Заполнить(стр);
    ТабДок.Вывести(ОбластьТабличнаяЧасть);    
    КонецЦикла;
        ОбластьИтог.Параметры.СуммаПоДокументу=ТабличнаяЧасть.Итог("ИтогСумма");
    ОбластьИтог.Параметры.ИтогПоДокументу=ТабличнаяЧасть.Итог("ИтогКоличество");
    ТабДок.Вывести(ОбластьИтог);
        
    
                      
   ТабДок.ОтображатьСетку = Ложь;
    ТабДок.Защита = Ложь;
    ТабДок.ТолькоПросмотр = Ложь;
    ТабДок.ОтображатьЗаголовки = Ложь;
    ТабДок.ОриентацияСтраницы = ОриентацияСтраницы.Ландшафт;
    ТабДок.АвтоМасштаб = Истина;
    ТабДок.Показать();
27 pessok
 
04.12.14
10:44
(25) это НЕ та же самая ошибка
в метод Итог передается имя колонки. У тебя в ТЧ документа есть колонка ИтогСумма? Думаю, что нет, что имя колонки таки "Итог"
З.Ы. Почему нельзя просто взять и вставить рабочий код из (18)?
28 pessok
 
04.12.14
10:45
(26) убери копрокод, вставь код из (18). Он работает.
если нужно оставить копрокод, то

ОбластьИтог.Параметры.СуммаПоДокументу=ТабличнаяЧасть.Итог("ИтогСумма");
    ОбластьИтог.Параметры.ИтогПоДокументу=ТабличнаяЧасть.Итог("ИтогКоличество");

замени на

ОбластьИтог.Параметры.СуммаПоДокументу=ТабличнаяЧасть.Итог("Сумма");
    ОбластьИтог.Параметры.ИтогПоДокументу=ТабличнаяЧасть.Итог("Количество");
29 pessok
 
04.12.14
10:46
+(27) что имя колокни таки "Сумма" :)
30 pessok
 
04.12.14
10:48
Процедура ОсновныеДействияФормыПечатьТовара(Кнопка)
    ТабДок=Новый ТабличныйДокумент;
    Макет=ПолучитьМакет("Печать");
    ОбластьЗаголовок= Макет.ПолучитьОбласть("Заголовок");
    Шапка= Макет.ПолучитьОбласть("Шапка");
    ОбластьТабличнаяЧастьШапка = Макет.ПолучитьОбласть("ТабличнаяЧастьШапка");      
    ОбластьТабличнаяЧасть= Макет.ПолучитьОбласть("ТабличнаяЧасть");
    ОбластьИтог = Макет.ПолучитьОбласть("Итог");
    Шапка.Параметры.Заполнить(ЭтотОбъект);
    ТабДок.Вывести(Шапка);
    
    ТабДок.Вывести(ОбластьТабличнаяЧастьШапка);
    
    для Каждого стр  из ТабличнаяЧасть   цикл
        ОбластьТабличнаяЧасть.Параметры.Заполнить(стр);
        ТабДок.Вывести(ОбластьТабличнаяЧасть);
    КонецЦикла;        
    
    ОбластьИтог.Параметры.Сумма=ТабличнаяЧасть.Итог("Сумма");
    ОбластьИтог.Параметры.Количество=ТабличнаяЧасть.Итог("Количество");
    ТабДок.Вывести(ОбластьИтог);
    
    
    ТабДок.ОтображатьСетку = Ложь;
    ТабДок.Защита = Ложь;
    ТабДок.ТолькоПросмотр = Ложь;
    ТабДок.ОтображатьЗаголовки = Ложь;
    ТабДок.ОриентацияСтраницы = ОриентацияСтраницы.Ландшафт;
    ТабДок.АвтоМасштаб = Истина;
    ТабДок.Показать();
    
КонецПроцедуры
31 pessok
 
04.12.14
10:48
и не надо ничего своего дописывать. просто вставь код из (30)
32 valushka991
 
04.12.14
10:55
33 MiniMuk
 
04.12.14
10:57
А где фотка?
34 valushka991
 
04.12.14
10:57
{Документ.ПоступлениеТоваровИУслуг.Форма.ФормаДокумента1.Форма(128)}: Поле объекта не обнаружено (Сумма)
    ОбластьИтог.Параметры.Сумма=ТабличнаяЧасть.Итог("Сумма");
35 pessok
 
04.12.14
11:42
(34) ну так имя параметра то подставь...
36 Ifkerri
 
04.12.14
11:45
(34)  ОбластьИтог.Параметры.СуммаПоДокументу=ТабличнаяЧасть.Итог("Сумма");