1с 7.7 Бухгалтерия Подскажите как заполнить значениями таблицу Печатной формы?
18.08.2009
06:50
#31
"> я тебе закинул 100р еще вчера!<br><br>а я и не заметил
<br><br><br>ну что разобрался с суммой по товарам?"

18.08.2009
06:59
#32
нет не получается никак, че то я не могу разобраться, я вообще про эти проходы ни где информацию найти не могу!
18.08.2009
07:18
#33
> нет не получается никак, че то я не могу разобраться, я вообще про эти проходы ни где информацию найти не могу!<br><br>тебе суммирующие колонки по товарам нужны внизу и всё?<br>я тогда около 9 выложу...
18.08.2009
07:21
#34
> > нет не получается никак, че то я не могу разобраться, я вообще про эти проходы ни где информацию найти не могу!<br>> <br>> тебе суммирующие колонки по товарам нужны внизу и всё?<br>> я тогда около 9 выложу...<br><br>Да только они остались.<br>
18.08.2009
10:37
#36
"а вот и сам текст<br><br><br>Процедура Сформировать()<br> Перем Запрос, ТекстЗапроса, Таб;<br> //Создание объекта типа Запрос<br> Запрос = СоздатьОбъект("Запрос");<br> ТекстЗапроса = <br> "//{{ЗАПРОС(Сформировать)<br> |Период с ВыбНачПериода по ВыбКонПериода;<br> |ОбрабатыватьДокументы все;<br> //|Без итогов;<br> |Контрагент = Документ.РасходнаяНакладная.Контрагент;<br> //|Контрагент = Документ.РасходнаяНакладная.ТекущийДокумент;<br> |Товар = Документ.РасходнаяНакладная.Товар;<br> |Количество = Документ.РасходнаяНакладная.Количество;<br> //|ТекДок = Документ.РасходнаяНакладная.ТекущийДокумент;<br> |Функция Кол = Сумма(Количество);<br> |Группировка Контрагент без групп;<br> |Группировка Товар без Групп все ВошедшиеВЗапрос; <br> |"//}}ЗАПРОС<br> ;<br> // Если ошибка в запросе, то выход из процедуры<br> Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда<br> Возврат;<br> КонецЕсли;<br><br> // Подготовка к заполнению выходных форм данными запроса<br> Таб = СоздатьОбъект("Таблица");<br> Таб.ИсходнаяТаблица("Сформировать");<br> // Заполнение полей "Заголовок"<br> Таб.ВывестиСекцию("Заголовок|КонтДок");<br> Состояние("Заполнение выходной таблицы...");<br> Таб.Опции(0, 0, Таб.ВысотаТаблицы(), 0); <br> ТЗ = СоздатьОбъект("ТаблицаЗначений");<br> ДатаДок = """";<br> <br> ФлагПервогоПрохода = 1;<br> Пока Запрос.Группировка(1) = 1 Цикл<br> Контрагент = Запрос.Контрагент;<br> Если ФлагПервогоПрохода = 0 Тогда<br> Таб.ВывестиСекцию("Сформировать|КонтДок"); <br> КонецЕсли;<br> ТЗ.НоваяСтрока();<br> КолТовара = 0; <br> Пока Запрос.Группировка(2) = 1 Цикл<br> Кол = Запрос.Кол;<br> КолТовара = КолТовара + 1;<br> <br> Если ФлагПервогоПрохода = 1 Тогда<br> Товар = Запрос.Товар;<br> Таб.ПрисоединитьСекцию("Заголовок|Товар");<br> <br> ТЗ.НоваяКолонка("К"+КолТовара, "Число"); <br> Иначе <br> Таб.ПрисоединитьСекцию("Сформировать|Товар");<br> КонецЕсли;<br> ТЗ.УстановитьЗначение(""""+ТЗ.КоличествоСтрок(),"К"+КолТовара, Кол);<br> КонецЦикла;<br> Если ФлагПервогоПрохода = 1 Тогда<br> ФлагПервогоПрохода = 0;<br> Таб.ВывестиСекцию("Сформировать|КонтДок");<br> Для н = 1 по ТЗ.КоличествоКолонок() Цикл<br> Кол = ТЗ.ПолучитьЗначение(1,"К"+н);<br> Таб.ПрисоединитьСекцию("Сформировать|Товар");<br> КонецЦикла;<br> КонецЕсли;<br> КонецЦикла;<br> Таб.ВывестиСекцию("Итог|КонтДок");<br> Для н = 1 по ТЗ.КоличествоКолонок() Цикл<br> Итог = ТЗ.Итог("К"+н);<br> Таб.ПрисоединитьСекцию("Итог|Товар");<br> КонецЦикла;<br><br> // Вывод заполненной формы<br> Таб.ТолькоПросмотр(1);<br> Таб.Показать("Сформировать", """");<br>КонецПроцедуры"
1C8.2 УПП 1.3: Ошибка СУБД: Не удалось привязать составной идентификатор - что делать?Установка локальной 1С 7.7 на Windows 7 64bit Home Edition
Читают тему
(гостей: 1)