1С Бухгалтерия, Вывод итога сумм определенных строк таблицы

[drwhite]

Здравствуйте! Например есть "Приходный ордер". В нем таблица со столбцами "№, Отделение, Вид платежа, Сумма". Как вывести сумму по определенному виду платежа? (и как ее вывести прописью?)

[prog1c7.7]

в одном  ПКО есть один платеж.
ПКО - уникальный документ - по нему так сказать касса оприходуется,
он может быть создан по отчету либо еще какому основанию.
вопрос не совсем понятен. Если нужно прописью, то в конфигураторе -
документы-ПриходныйОрдер-форма-таблица- свойства ячейки покрутите где сумма стоит,но вообщето она и так прописью там.
можно поточнее вопрос?

[drwhite]

Можно... Пример по строкам отчета:
№     Отделение     Вид платежа    Сумма
1            А              Пенсия           500
2            Б             Комуналка      1000
3            В              Пенсия           800
4            Г               УТСЗН           300
5            Д            Комуналка        250

Итого                                          2850
          Та же сумма прописью

Итого: Пенсия 1300, Комуналка 1250, УТСЗН 300

Вот

[prog1c7.7]

"вид платежа" это у нормальных конф. "основание" чтоли?
заполняется вручную или выбирается из списка как то?

[prog1c7.7]

ПКО=СоздатьОбъект("Документ.приходныйордер");
   ПКО.ВыбратьДокументы(Дата1,Дата2);
      ТБ = СоздатьОбъект("ТаблицаЗначений");
              ТБ.НоваяКолонка("Номер");
              ТБ.НоваяКолонка("Сумма");
              ТБ.НоваяКолонка("ПринятоОт");
              ТБ.НоваяКолонка("ДатаДок");
              ТБ.НоваяКолонка("Основание");
              ТБ.НоваяКолонка("Субконто");        
   Таб=СоздатьОбъект("Таблица");  
   Таб.ИсходнаяТаблица("Таблица");    
   Таб.ВывестиСекцию("Шапка");
   Пока ПКО.ПолучитьДокумент()=1 Цикл
// но если очень много то надо запросом
// дальше писать?

[prog1c7.7]

вот люди пошли а? отчет за них напиши, кошмар какой-то,правда мужики? 

[drwhite]

Можно... Пример по строкам отчета:
№     Отделение     Вид платежа    Сумма
1            А              Пенсия           500
2            Б             Комуналка      1000
3            В              Пенсия           800
4            Г               УТСЗН           300
5            Д            Комуналка        250

Итого                                          2850
          Та же сумма прописью

Итого: Пенсия 1300, Комуналка 1250, УТСЗН 300

Вот
Меня интересует эта строка: Итого: Пенсия 1300, Комуналка 1250, УТСЗН 300!!!

[drwhite]

Меня интересует эта строка: Итого: Пенсия 1300, Комуналка 1250, УТСЗН 300!!!

[drwhite]

"вид платежа" это у нормальных конф. "основание" чтоли?
заполняется вручную или выбирается из списка как то?

из справочника

[prog1c7.7]

Процедура Выполнить()
   ПКО=СоздатьОбъект("Документ.приходныйордер");
   ПКО.ВыбратьДокументы(Дата1,Дата2);

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

      ТБ.Свернуть("Видплатежа","Сумма");  
      Строка1 = "Итого: ";
      ТБ.ВыбратьСтроки();
      Пока ТБ.ПолучитьСтроку() = 1 Цикл
         Строка1 = Строка1 + " " + ТБ.ВидПлатежа + " " + ТБ.Сумма;
      КонецЦикла;
      Таб.ВывестиСекцию("ИтогПоПлат");
      ИтогоВсего = ТБ.Итог("Сумма");
      Таб.ВывестиСекцию("Итоговсего");
           Таб.Опции(0);
           Таб.Показать();
КонецПроцедуры



// Как то так