Помогите с обработкой

1С v8

☑

0 KENT2007

25.07.12

✎

09:51

Нужно отобрать оказание услуг за период в таб часть
потом распечатать все содержимое с сортировкой по контрагенту

1 butterbean

25.07.12

✎

09:52

запросом

2 KENT2007

25.07.12

✎

09:52

документы в таб часть попадают

3 kyrgyz

25.07.12

✎

09:52

(0) Объязательно ли обработка? Почему отчет не годиться?
УФ или обычная форма?

4 KENT2007

25.07.12

✎

09:52

Выборка = ДокументыДляВыбора.Получить();
Пока Выборка.Следующий() Цикл
Для Каждого ТекСтрокаДок Из ДокументыДляВыбора Цикл

ТабДокумент = Новый ТабличныйДокумент;
ТабДокумент.ИмяПараметровПечати = "ПАРАМЕТРЫ_ПЕЧАТИ_ОказаниеУслуг_Акты";

Макет = ПолучитьМакет("Акт");
ОбластьМакета = Макет.ПолучитьОбласть("Акт");
ОбластьМакета.Параметры.ТекстЗаголовка = "" + ОбщегоНазначения.ПолучитьНомерНаПечать(Выборка)+"/"+Выборка.НомерСтроки
+ " от " + Формат(Выборка.Дата, "ДФ='дд ММММ гггг'")+ " г.";;

ОбластьМакета.Параметры.ДатаВыдачи= Формат(Выборка.Дата, "ДФ='дд ММММ гггг'")+ " г.";;

ОбластьМакета.Параметры.ПериодНач= " с " + Формат(НачалоМесяца(Выборка.Дата), "ДФ='дд ММММ гггг'") + " по " +Формат(КонецМесяца(Выборка.Дата), "ДФ='дд ММММ гггг'");

ПредставлениеПоставщика = ФормированиеПечатныхФорм.ОписаниеОрганизации(УправлениеКонтактнойИнформацией.СведенияОЮрФизЛице(Выборка.Организация, Выборка.Дата), "НаименованиеДляПечатныхФорм,");
ОбластьМакета.Параметры.ПредставлениеПоставщика = ПредставлениеПоставщика;
ПредставлениеПолучателя = ФормированиеПечатныхФорм.ОписаниеОрганизации(УправлениеКонтактнойИнформацией.СведенияОЮрФизЛице(Выборка.Получатель, Выборка.Дата), "НаименованиеДляПечатныхФорм,");
ОбластьМакета.Параметры.ПредставлениеПолучателя = ПредставлениеПолучателя;

Док = ТекСтрокаДок.Документ.Ссылка;
//Сумма=;

НомерДог=Выборка.ДоговорКонтрагента.Номер;
ОбластьМакета.Параметры.НомерДог=НомерДог;

ТабДокумент.Вывести(ОбластьМакета);
КонецЦикла;
КонецЦикла;

5 KENT2007

25.07.12

✎

09:53

не могу теперь пройтись по ним с получить контр сумма и номер договора

6 KENT2007

25.07.12

✎

09:53

обыная форма

7 KENT2007

25.07.12

✎

09:56

так не перебирает
Выборка = ДокументыДляВыбора.Получить();
Пока Выборка.Следующий() Цикл
Для Каждого ТекСтрокаДок Из ДокументыДляВыбора Цикл

8 KENT2007

25.07.12

✎

09:59

(3) может и отчет, тогда запросом выбрать оказание улуг за период и все в печать?

9 lEvGl

гуру

25.07.12

✎

10:00

[code]Запрос = Новый Запрос;
Запрос.Текст = "тратата";
Результат = Запрос.Выполнить().Выгрузить();
Для Каждого Строка Из Результат Цикл
тратата
КонецЦикла;[/code]

10 kyrgyz

25.07.12

✎

10:07

юзай СКД Помучаешься достаточно за то потом будешь наслаждаться

11 KENT2007

25.07.12

✎

10:10

пробую отчет
Запрос = Новый Запрос;
Запрос.УстановитьПараметр("Начало", Начало);
Запрос.УстановитьПараметр("Конец", Конец);

Запрос.Текст =
"ВЫБРАТЬ
| ОказаниеУслуг.Ссылка.Номер,
| ОказаниеУслуг.Ссылка.Дата,
| ОказаниеУслуг.Ссылка.Организация,
| ВЫБОР
| КОГДА (НЕ ОказаниеУслуг.Ссылка.Номенклатура.НаименованиеПолное ПОДОБНО """")
| ТОГДА ВЫРАЗИТЬ(ОказаниеУслуг.Ссылка.Номенклатура.НаименованиеПолное КАК СТРОКА(1000))
| ИНАЧЕ ОказаниеУслуг.Ссылка.Номенклатура.Наименование
| КОНЕЦ КАК Товар,
| ОказаниеУслуг.Ссылка.Номенклатура.БазоваяЕдиницаИзмерения КАК ЕдиницаИзмерения,
| ОказаниеУслуг.НомерСтроки КАК НомерСтроки,
| ОказаниеУслуг.Контрагент КАК Получатель,
| ОказаниеУслуг.ДоговорКонтрагента,
| ОказаниеУслуг.Цена КАК Цена,
| ОказаниеУслуг.ДоговорКонтрагента.Номер
|ИЗ
| Документ.ОказаниеУслуг.Контрагенты КАК ОказаниеУслуг
|ГДЕ
| ОказаниеУслуг.Сумма > 0
| И ОказаниеУслуг.Ссылка.Дата МЕЖДУ &Начало И &Конец
|
|УПОРЯДОЧИТЬ ПО
| ОказаниеУслуг.Контрагент";

Выборка = Запрос.Выполнить().Выбрать();

ТабДокумент = Новый ТабличныйДокумент;
ТабДокумент.ИмяПараметровПечати = "ПАРАМЕТРЫ_ПЕЧАТИ_ОказаниеУслуг_Акты";

Пока Выборка.Следующий() Цикл

Макет = ПолучитьМакет("Акт");
ОбластьМакета = Макет.ПолучитьОбласть("Акт");
ОбластьМакета.Параметры.ТекстЗаголовка = "" + ОбщегоНазначения.ПолучитьНомерНаПечать(Выборка)+"/"+Выборка.НомерСтроки
+ " от " + Формат(Выборка.Дата, "ДФ='дд ММММ гггг'")+ " г.";;

ОбластьМакета.Параметры.ДатаВыдачи= Формат(Выборка.Дата, "ДФ='дд ММММ гггг'")+ " г.";;

ОбластьМакета.Параметры.ПериодНач= " с " + Формат(НачалоМесяца(Выборка.Дата), "ДФ='дд ММММ гггг'") + " по " +Формат(КонецМесяца(Выборка.Дата), "ДФ='дд ММММ гггг'");

ПредставлениеПоставщика = ФормированиеПечатныхФорм.ОписаниеОрганизации(УправлениеКонтактнойИнформацией.СведенияОЮрФизЛице(Выборка.Организация, Выборка.Дата), "НаименованиеДляПечатныхФорм,");
ОбластьМакета.Параметры.ПредставлениеПоставщика = ПредставлениеПоставщика;

ПредставлениеПолучателя = ФормированиеПечатныхФорм.ОписаниеОрганизации(УправлениеКонтактнойИнформацией.СведенияОЮрФизЛице(Выборка.Получатель, Выборка.Дата), "НаименованиеДляПечатныхФорм,");
ОбластьМакета.Параметры.ПредставлениеПолучателя = ПредставлениеПолучателя;
ОбластьМакета.Параметры.Заполнить(Выборка);

Сумма = Выборка.Сумма;

НомерДог=Выборка.ДоговорКонтрагента.Номер;
ОбластьМакета.Параметры.НомерДог=НомерДог;
ТабДокумент.Вывести(ОбластьМакета);

КонецЦикла;

12 KENT2007

25.07.12

✎

10:25

вроде как все отбирает а макет не выводит

13 KENT2007

25.07.12

✎

10:26

подскажите что не так

14 Fedot200

25.07.12

✎

10:29

(12) Что значит макет не выводит?

15 hhhh

25.07.12

✎

10:29

(13)

Пока Выборка.Следующий() Цикл
Для Каждого ТекСтрокаДок Из ДокументыДляВыбора Цикл

ТабДокумент = Новый ТабличныйДокумент;

под столом!

16 KENT2007

25.07.12

✎

10:30

форму печатную
ТабДокумент.Вывести(ОбластьМакета);

17 Fedot200

25.07.12

✎

10:32

Макет = ПолучитьМакет("Акт");

18 KENT2007

25.07.12

✎

10:32

(15) уже переделал через запрос

19 Fedot200

25.07.12

✎

10:32

17 Зачем это в цикле?

20 KENT2007

25.07.12

✎

10:34

(19) раньше работало из документа

21 KENT2007

25.07.12

✎

10:34

вот последний вариант

Процедура КнопкаСформироватьНажатие(Кнопка)
Запрос = Новый Запрос;
Запрос.УстановитьПараметр("Начало", Начало);
Запрос.УстановитьПараметр("Конец", Конец);

Запрос.Текст =
"ВЫБРАТЬ
| ОказаниеУслуг.Ссылка.Номер,
| ОказаниеУслуг.Ссылка.Дата,
| ОказаниеУслуг.Ссылка.Организация,
| ВЫБОР
| КОГДА (НЕ ОказаниеУслуг.Ссылка.Номенклатура.НаименованиеПолное ПОДОБНО """")
| ТОГДА ВЫРАЗИТЬ(ОказаниеУслуг.Ссылка.Номенклатура.НаименованиеПолное КАК СТРОКА(1000))
| ИНАЧЕ ОказаниеУслуг.Ссылка.Номенклатура.Наименование
| КОНЕЦ КАК Товар,
| ОказаниеУслуг.Ссылка.Номенклатура.БазоваяЕдиницаИзмерения КАК ЕдиницаИзмерения,
| ОказаниеУслуг.НомерСтроки КАК НомерСтроки,
| ОказаниеУслуг.Контрагент КАК Получатель,
| ОказаниеУслуг.ДоговорКонтрагента,
| ОказаниеУслуг.ДоговорКонтрагента.Номер,
| ОказаниеУслуг.Сумма
|ИЗ
| Документ.ОказаниеУслуг.Контрагенты КАК ОказаниеУслуг
|ГДЕ
| ОказаниеУслуг.Сумма > 0
| И ОказаниеУслуг.Ссылка.Дата МЕЖДУ &Начало И &Конец
|
|УПОРЯДОЧИТЬ ПО
| ОказаниеУслуг.Контрагент";

Выборка = Запрос.Выполнить().Выбрать();

ТабДокумент = Новый ТабличныйДокумент;
ТабДокумент.ИмяПараметровПечати = "ПАРАМЕТРЫ_ПЕЧАТИ_ОказаниеУслуг_Акты";

Макет = ПолучитьМакет("Акт");
ОбластьМакета = Макет.ПолучитьОбласть("Акт");

Пока Выборка.Следующий() Цикл

ОбластьМакета.Параметры.ТекстЗаголовка = "" + ОбщегоНазначения.ПолучитьНомерНаПечать(Выборка)+"/"+Выборка.НомерСтроки
+ " от " + Формат(Выборка.Дата, "ДФ='дд ММММ гггг'")+ " г.";;

ОбластьМакета.Параметры.ДатаВыдачи= Формат(Выборка.Дата, "ДФ='дд ММММ гггг'")+ " г.";;

ОбластьМакета.Параметры.ПериодНач= " с " + Формат(НачалоМесяца(Выборка.Дата), "ДФ='дд ММММ гггг'") + " по " +Формат(КонецМесяца(Выборка.Дата), "ДФ='дд ММММ гггг'");

ПредставлениеПоставщика = ФормированиеПечатныхФорм.ОписаниеОрганизации(УправлениеКонтактнойИнформацией.СведенияОЮрФизЛице(Выборка.Организация, Выборка.Дата), "НаименованиеДляПечатныхФорм,");
ОбластьМакета.Параметры.ПредставлениеПоставщика = ПредставлениеПоставщика;

ПредставлениеПолучателя = ФормированиеПечатныхФорм.ОписаниеОрганизации(УправлениеКонтактнойИнформацией.СведенияОЮрФизЛице(Выборка.Получатель, Выборка.Дата), "НаименованиеДляПечатныхФорм,");
ОбластьМакета.Параметры.ПредставлениеПолучателя = ПредставлениеПолучателя;

ОбластьМакета.Параметры.Заполнить(Выборка);

Сумма = Выборка.Сумма;
НомерДог=Выборка.ДоговорКонтрагента.Номер;
ОбластьМакета.Параметры.НомерДог=НомерДог;

КонецЦикла;
ТабДокумент.Вывести(ОбластьМакета);

КонецПроцедуры

22 Fedot200

25.07.12

✎

10:35

ОбластьМакета = Макет.ПолучитьОбласть("Акт");

23 Fedot200

25.07.12

✎

10:35

это зачем в цикле?

24 KENT2007

25.07.12