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