1с 7.7 Бухгалтерия Подскажите как заполнить значениями таблицу Печатной формы?

Новая тема
Показывать по 10 20 40 сообщений
"> я тебе закинул 100р еще вчера!

а я и не заметил ;-)


ну что разобрался с суммой по товарам?"
нет не получается никак, че то я не могу разобраться, я вообще про эти проходы ни где информацию найти не могу!
> нет не получается никак, че то я не могу разобраться, я вообще про эти проходы ни где информацию найти не могу!

тебе суммирующие колонки по товарам нужны внизу и всё?
я тогда около 9 выложу...
> > нет не получается никак, че то я не могу разобраться, я вообще про эти проходы ни где информацию найти не могу!
>
> тебе суммирующие колонки по товарам нужны внизу и всё?
> я тогда около 9 выложу...

Да только они остались.
держи >>> http://slil.ru/27908951
"а вот и сам текст


Процедура Сформировать()
Перем Запрос, ТекстЗапроса, Таб;
//Создание объекта типа Запрос
Запрос = СоздатьОбъект("Запрос");
ТекстЗапроса =
"//{{ЗАПРОС(Сформировать)
|Период с ВыбНачПериода по ВыбКонПериода;
|ОбрабатыватьДокументы все;
//|Без итогов;
|Контрагент = Документ.РасходнаяНакладная.Контрагент;
//|Контрагент = Документ.РасходнаяНакладная.ТекущийДокумент;
|Товар = Документ.РасходнаяНакладная.Товар;
|Количество = Документ.РасходнаяНакладная.Количество;
//|ТекДок = Документ.РасходнаяНакладная.ТекущийДокумент;
|Функция Кол = Сумма(Количество);
|Группировка Контрагент без групп;
|Группировка Товар без Групп все ВошедшиеВЗапрос;
|"//}}ЗАПРОС
;
// Если ошибка в запросе, то выход из процедуры
Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
Возврат;
КонецЕсли;

// Подготовка к заполнению выходных форм данными запроса
Таб = СоздатьОбъект("Таблица");
Таб.ИсходнаяТаблица("Сформировать");
// Заполнение полей "Заголовок"
Таб.ВывестиСекцию("Заголовок|КонтДок");
Состояние("Заполнение выходной таблицы...");
Таб.Опции(0, 0, Таб.ВысотаТаблицы(), 0);
ТЗ = СоздатьОбъект("ТаблицаЗначений");
ДатаДок = """";

ФлагПервогоПрохода = 1;
Пока Запрос.Группировка(1) = 1 Цикл
Контрагент = Запрос.Контрагент;
Если ФлагПервогоПрохода = 0 Тогда
Таб.ВывестиСекцию("Сформировать|КонтДок");    
КонецЕсли;
ТЗ.НоваяСтрока();
КолТовара = 0;
Пока Запрос.Группировка(2) = 1 Цикл
Кол = Запрос.Кол;
КолТовара = КолТовара + 1;

Если ФлагПервогоПрохода = 1 Тогда
Товар = Запрос.Товар;
Таб.ПрисоединитьСекцию("Заголовок|Товар");

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

// Вывод заполненной формы
Таб.ТолькоПросмотр(1);
Таб.Показать("Сформировать", """");
КонецПроцедуры"
теперь-то разобрался?
ну так то или не то?
А как сделать такой же отбор, только чтобы рядом с колонкой количества была колонка сумма?
> А как сделать такой же отбор, только чтобы рядом с колонкой количества была колонка сумма?

сумма чего ?
Читают тему
(гостей: 1)

Быстрый переход