Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
23 ноя 2024, 01:00

Отчет по реализации продукции

Автор ШЛК, 07 сен 2010, 11:53

0 Пользователей и 1 гость просматривают эту тему.

ШЛК

Делаю отчет по реализации продукции за период.

При выводе на печать строк Суммы  все печатаются в первой колонке, а надо  как в 111.jpg

Myti


ШЛК

НПП = 0;
   Для J=1 по СписокТоваров.РазмерСписка()Цикл   
          Товар = ТЗТовар.ПолучитьЗначение(J,"Товар");
          НПП = НПП + 1;
        Таб.ВывестиСекцию("Товар|Начало");   
         Для K=1 по ТЗСчет.КоличествоСтрок() Цикл
            Счет=ТЗСчет.ПолучитьЗначение(K,"ДтСчет");
              
            ТЗ.ВыбратьСтроки();
            Пока ТЗ.ПолучитьСтроку()=1 Цикл
               Если ТЗ.Товар = Товар  Тогда   
                  Если ТЗ.КорСчет = Счет  Тогда   
                      Контрагент = ТЗ.Контрагент   ;
                      Основание = ТЗ.Основание;
                      Количество = ТЗ.Количество;
                      Сумма = ТЗ.Сумма;   
                      Таб.ВывестиСекцию("Строка|Начало");
                     Таб.ПрисоединитьСекцию("Строка|ДтСч");
                   КонецЕсли;
               КонецЕсли;
            КонецЦикла;    
         КонецЦикла;   
     КонецЦикла;

Myti

Товар|Начало - все верно.проблема в секциях.
Читайте:
ВывестиСекцию
ПрисоединитьСекцию

ШЛК

Мне кажется не хватает цикла для того, чтобы ПрисоединитьСекцию вывести за пределы этого цикла.

Myti

Прикрепляй файл как получается,и как нада.

ШЛК

Все получилось. Код такой кому будет интересно. Спасибо всем


   Для J=1 по СписокТоваров.РазмерСписка()Цикл   
       Товар = ТЗТовар.ПолучитьЗначение(J,"Товар");
       Таб.ВывестиСекцию("Товар|Начало");
      
       ТЗ.ВыбратьСтроки();
       Пока ТЗ.ПолучитьСтроку()=1 Цикл
           Если ТЗ.Товар = Товар  Тогда
               Контрагент = ТЗ.Контрагент    ;
               Основание = ТЗ.Основание;
               Количество = ТЗ.Количество;
               КорСчет = ТЗ.КорСчет;
            СуммаСч = ТЗ.Сумма;
               Таб.ВывестиСекцию("Строка|Начало");
           
               Для K=1 по ТЗСчет.КоличествоСтрок() Цикл
               Счет=ТЗСчет.ПолучитьЗначение(K,"ДтСчет");
                   Сумма = ?(КорСчет = Счет, СуммаСч, 0);
                   Таб.ПрисоединитьСекцию("Строка|ДтСч");
            КонецЦикла;
         КонецЕсли;
         
      КонецЦикла;   
   КонецЦикла;

Теги:

Похожие темы (5)

Рейтинг@Mail.ru

Поиск