Отображение проводки в печатной форме документа.

1С v8

29.07.11

✎

13:59

Подскажите пожалуйста каким образом можно получить в печатной форме проводки которые делает документ? я не имею ввиду проводки которые вводятся в поля документа при нажатии на тт , а те которые зашиты в самом модуле.

Вот текст модуля ПоступлениеТоваровУслуг, но в принципе не важно какой документ.

Функция ПечатьАктаСписания()

//------------------------------------------------------- получаем валюту регламентированного отчета
мВалютаРегламентированногоУчета = Константы.ВалютаРегламентированногоУчета.Получить();

//-------------------------------------------------------запрос для получения информации в Шапка /ЗаголовокДокумента--

Запрос = Новый Запрос;
Запрос.УстановитьПараметр("ТекущийДокумент", СсылкаНаОбъект.Ссылка);
Запрос.УстановитьПараметр("ДатаДок", СсылкаНаОбъект.Дата);

Запрос.УстановитьПараметр("ВалютаДокумента", мВалютаРегламентированногоУчета);
Запрос.Текст =
"ВЫБРАТЬ
| ПоступлениеТоваровУслуг.Номер КАК Номер,
| ПоступлениеТоваровУслуг.Дата КАК ДатаСоставления,
| ПоступлениеТоваровУслуг.Организация,
| ПоступлениеТоваровУслуг.УчитыватьНДС,
| ПоступлениеТоваровУслуг.СуммаВключаетНДС,
| ВЫБОР
| КОГДА ПоступлениеТоваровУслуг.ВалютаДокумента = &ВалютаДокумента
| ТОГДА ""71.01""
| ИНАЧЕ ""71.21""
| КОНЕЦ КАК СубСчет,
| ПоступлениеТоваровУслуг.а1,
| ПоступлениеТоваровУслуг.а2,
| ПоступлениеТоваровУслуг.СкладОрдер,
//--------СчетУчетаРасчетовСКонтрагентом--
| ПоступлениеТоваровУслуг.СчетУчетаРасчетовСКонтрагентом
|ИЗ
| Документ.ПоступлениеТоваровУслуг КАК ПоступлениеТоваровУслуг
|ГДЕ
| ПоступлениеТоваровУслуг.Ссылка = &ТекущийДокумент";

Шапка = Запрос.Выполнить().Выбрать();
Шапка.Следующий();

//--------------------------------------------------------запрос строк документа------

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

//---------------------------------------------------------получаем форму макета "Макет"---
Макет = ПолучитьМакет("Макет");
//-----------------------------------------------начинаем получать области нашего макета---

ОбластьМакетаШапка = Макет.ПолучитьОбласть("Шапка");
ОбластьМакетаЗаголовокДокумента = Макет.ПолучитьОбласть("ЗаголовокДокумента");
ОбластьМакетаЗаголовокТаблицы = Макет.ПолучитьОбласть("ЗаголовокТаблицы");
ОбластьМакетаСтрока = Макет.ПолучитьОбласть("Строка");
ОбластьМакетаПодвалСтрок = Макет.ПолучитьОбласть("ПодвалСтрок");
ОбластьМакетаИтого = Макет.ПолучитьОбласть("Итого");
ОбластьМакетаПодвал = Макет.ПолучитьОбласть("Подвал");

//------------------------------------------------------------------ заполняем даные макета из запроса написанного ранее--

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

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

// Выводим заголовок докмента
ОбластьМакетаЗаголовокДокумента.Параметры.Заполнить(Шапка);
ТабДокумент.Вывести(ОбластьМакетаЗаголовокДокумента);

// -------------------------------------------------------Выводим заголовок таблицы
ТабДокумент.Вывести(ОбластьМакетаЗаголовокТаблицы);

// -------------------------------------------------------Инициализация итогов в документе
ИтогоКоличествоПринято = 0;
ИтогоСуммаБезНДС = 0;
ИтогоСуммаНДС = 0;
ИтогоВсегоСНДС = 0;
Ном = 0;

// --------------------------------------------------Инициализация счетчиков страниц и строк
НомерСтраницы = 1;
НомерСтроки = 0;
КоличествоСтрок = ЗапросТовары.Количество();

// -----------------------------------------------------Выводим многострочную часть докмента

Для Каждого ВыборкаСтрок Из ЗапросТовары Цикл

НомерСтроки = НомерСтроки + 1;

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

КоличествоПринято = ВыборкаСтрок.КоличествоПринято;

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

КонецЦикла;

// Выводим итоги по документу
ТабДокумент.Вывести(ОбластьМакетаИтого);
ТабДокумент.Вывести(ОбластьМакетаПодвал);

Возврат ТабДокумент;

КонецФункции // ПечатьАктаСписания()

Подскажите кто знает.

1 tg30000

29.07.11

✎

14:03

Т.е. хотелось что бы в строке при обходе табличной части , заполнить колонки /Дт/ и Кт/ документа. Как это осуществить?
напремер:
фара/шт/1/ 10.6/60.02/ => вот....

2 tg30000

29.07.11

✎

14:16

Ну подскажите как это реализовать?

3 tg30000

01.08.11

✎

04:40

up.

4 tg30000

01.08.11

✎

05:48

5 IamAlexy

01.08.11

✎

05:51

вот этот пассаж "я не имею ввиду проводки которые вводятся в поля документа при нажатии на тт , а те которые зашиты в самом модуле" поясни?

6 tg30000

01.08.11

✎

07:01

Не судите строго за термины)
я имею ввиду, что если счета я заношу сам в докумнт посредствон нажания двойной "тт" => счета учета (БУ) то я их умею получать в запросе, но допустим счет материалов который я ранее присвоил в "установка параметров учета номенклатуры) я не знаю как правильно получить из запроса к нему путь....

7 tg30000

01.08.11

✎

07:03

т.е. проводки то формируются верно, но как счета из этих проводок тобразить в печатной форме документа я затрудняюсь тут..

8 Wobland

01.08.11

✎

07:13

ВЫБРАТЬ
Хозрасчетный.СчетДт,
Хозрасчетный.СчетКт
ИЗ
РегистрБухгалтерии.Хозрасчетный КАК Хозрасчетный
ГДЕ
Хозрасчетный.Регистратор = &Регистратор

9 tg30000

01.08.11

✎

07:15

сейчас попробую... но вроде делал так.. заранее спасибо за ответ. Напишу что получилось..

10 Wobland

01.08.11

✎

07:17

>заранее спасибо за ответ
заранее - это когда в (0) ;)

11 tg30000

01.08.11

✎

07:21

{ВнешняяОбработка.ПО_ПТиУ.МодульОбъекта(80)}: Ошибка при вызове метода контекста (Выполнить): {(25, 7)}: Ожидается выражение ")"
<<?>>Хозрасчетный.Регистратор = &Регистратор
ЗапросТовары = ЗапросПоТоварам.Выполнить().Выгрузить();
по причине:
{(25, 7)}: Ожидается выражение ")"
<<?>>Хозрасчетный.Регистратор = &Регистратор

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

12 tg30000

01.08.11

✎

07:23

подтупливаю чего то...)

13 Wobland

01.08.11

✎

07:23

(11) можно я не буду скобки за тебя расставлять? юзай конструктор. +Code не открывал даже

14 Wobland

01.08.11

✎

07:25

И там, а не скобка

15 tg30000

01.08.11

✎

07:30

16 tg30000

01.08.11

✎

07:31

ГДЕ
Хозрасчетный.Регистратор = &Регистратор

не ставит, я сам ставлю но видимо неправильно..

17 Wobland

01.08.11

✎

07:32

ты в (11) не соединяешь. попробуй в (15) вместо
ГДЕ ПоступлениеТоваровУслуг.Ссылка = &ТекущийДокумент
сделать Регистратор=&ТекущийДокумент

18 tg30000

01.08.11

✎

07:35

ок... сейчас попробую..

19 tg30000

01.08.11

✎

07:38

Wobland большое Вам человеческое спасибо!!!)))
счета отобразились , правда пропали сами записи номенклатуры , видимо из-за удаления

ПоступлениеТоваровУслуг.Ссылка = &ТекущийДокумент

но с этим постараюсь разобраться)

еще раз спасибо!

20 Wobland

01.08.11

✎

07:40

(19) ну лениво мне с утра в понедельник разбираться. таблица-источник у тебя должна быть сама ТЧ Поступления, а не Поступление.ТЧ

21 tg30000

01.08.11

✎

07:43

Приятно, что есть еще люди которые вместо того что бы "поиздеваться " подскажут что делать ))
Я сам постараюсь дальше разобраться)
Спасибо еще раз!)

22 Wobland

01.08.11

✎

07:43

(21) а я в (13) издевался ведь ;)
на здоровье

23 tg30000

01.08.11

✎

07:49

Вы то не издевались вовсем уж )) , но зачастую как я смотрю и темах кто-нибудь задает вапрос... может и совсем простой, но большинство старается посмеяться хотя в большинстве они сами не сильно глубого вникают в программу а лишь поверхностно..
В общем как то так))

24 tg30000

01.08.11

✎

11:45

Вроде выводится и сами строки и счета, но не знаю как отображать только счета по материалам( например только проводки 10.5 - 26 и т.д.) , а то отображается и НДС . как его убрать?

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

25 tg30000

01.08.11

✎

11:48

ой..)) т.е. 10.6 - 60.2 ))) и др.
т.е как из двух проводок которые делает документ например :
1)10.6 - 60.2
2)19.03 - 60.02
Отображать в печатной форме документа только №1.
А то в цикле выводится все проводки и в том числе и ндс-ные.

26 tg30000

01.08.11

✎

11:49

может какое-нибудь условие ставиться? кто подскажет?

27 hhhh

01.08.11

✎

11:52

(26) ну вставь проверку на счет 19. Если он, тогда не выводить. Это же элементарно, Ватсон.

28 tg30000

01.08.11

✎

11:56

Спасибо, попробую сделать.

29 tg30000

01.08.11

✎

11:57

Только вот в каком месте запроса его пихать?? не особо силен только учусь...

30 vicof

01.08.11

✎

12:02

ГДЕ Хозрасчетный.СчетДт = &СчетДт

31 tg30000

01.08.11

✎

12:06

а как условие привязать к данному запросу? В условие же нужно явно указать счет ндс ? как это описать грамотно?

32 vicof

01.08.11

✎

12:07

так же как и условие по регистратору

33 vicof

01.08.11

✎

12:07

http://chistov.spb.ru/publ/free_webinar/6
почитай

34 tg30000

01.08.11

✎

12:11

очень интересный сайт ! спасибо скачаю, но только дому на работе инет медленный.
Может кто подскажет примерный текст условия?

35 vicof

01.08.11

✎

12:14

(34) я тебе в (30) точный текст подсказал
ГДЕ
Хозрасчетный.Регистратор = &ТекущийДокумент
И
Хозрасчетный.СчетДт = &СчетДт

36 tg30000

01.08.11

✎

12:18

а как указать что все кроме проводки ндс-ной (19.03 - 60.02 к примеру)
где сам 19.03 прописать ?

37 tg30000

01.08.11

✎

12:19

Извиняюсь ..может и элементарный вопрос конечно...

38 vicof

01.08.11

✎

12:19

ГДЕ НЕ Хозрасчетный.СчетДт = &СчетДт

39 tg30000

01.08.11

✎

12:20

ооо, спасибо Вам vicof , попробую !

40 tg30000

01.08.11

✎

12:28

| ГДЕ
| Хозрасчетный.Регистратор = &ТекущийДокумент
| И Хозрасчетный.СчетДт.Код <> &19

так или по другому?

41 tg30000

01.08.11

✎

12:30

запутался...

42 vicof

01.08.11

✎

12:30

ГДЕ
Хозрасчетный.Регистратор = &ТекущийДокумент
И
Хозрасчетный.СчетДт = &СчетДт

Запрос.УстановитьПараметр("СчетДт", ПланыСчетов.Хозрасчетный.НДСПоПриобретеннымМПЗ);

43 tg30000

01.08.11

✎

12:33

пишет

{ВнешняяОбработка.ПО_ПТиУ.МодульОбъекта(71,60)}: Ожидается ключевое слово 'КонецФункции' ('EndFunction')
| Запрос.УстановитьПараметр("<<?>>СчетДт", ПланыСчетов.Хозрасчетный.НДСПоПриобретеннымМПЗ); (Проверка: Толстый клиент (обычное приложение))
{ВнешняяОбработка.ПО_ПТиУ.МодульОбъекта(83,43)}: Ошибка в выражении
ЗапросТовары = ЗапросПоТоварам.Выполнить(<<?>>).Выгрузить(); (Проверка: Толстый клиент (обычное приложение))
{ВнешняяОбработка.ПО_ПТиУ.МодульОбъекта(177,10)}: Оператор Возврат (Return) не может употребляться вне процедуры или функции
Возврат <<?>>ТабДокумент; (Проверка: Толстый клиент (обычное приложение))
{ВнешняяОбработка.ПО_ПТиУ.МодульОбъекта(177,22)}: Обнаружено логическое завершение исходного текста модуля
Возврат ТабДокумент;<<?>> (Проверка: Толстый клиент (обычное приложение))

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

44 hhhh

01.08.11

✎

12:36

(43) ну это, не торопись, параметры нужно устанавливать не в тексте запроса, а после текста.

45 tg30000

01.08.11

✎

12:38

аа, т.е запрос не трогать а в выводе многострочной части документа писать нужно условие ?

46 tg30000

01.08.11

✎

12:41

вот мой текст каторый я писал(пока без вывода сумм и т.д.)
куда вставить условие что не отображать проводки по 19.03 в печатной форме? И что за текст ?

Функция ПечатьАктаСписания()

//------------------------------------------------------- получаем валюту регламентированного отчета
мВалютаРегламентированногоУчета = Константы.ВалютаРегламентированногоУчета.Получить();

//-------------------------------------------------------запрос для получения информации в Шапка /ЗаголовокДокумента--

Запрос = Новый Запрос;
Запрос.УстановитьПараметр("ТекущийДокумент", СсылкаНаОбъект.Ссылка);
Запрос.УстановитьПараметр("ДатаДок", СсылкаНаОбъект.Дата);
// Запрос.УстановитьПараметр("Организация", СсылкаНаОбъект.Организация);
Запрос.УстановитьПараметр("ВалютаДокумента", мВалютаРегламентированногоУчета);
Запрос.Текст =
"ВЫБРАТЬ
| ПоступлениеТоваровУслуг.Номер КАК Номер,
| ПоступлениеТоваровУслуг.Дата КАК ДатаСоставления,
| ПоступлениеТоваровУслуг.Организация,
| ПоступлениеТоваровУслуг.УчитыватьНДС,
| ПоступлениеТоваровУслуг.СуммаВключаетНДС,
| ВЫБОР
| КОГДА ПоступлениеТоваровУслуг.ВалютаДокумента = &ВалютаДокумента
| ТОГДА ""71.01""
| ИНАЧЕ ""71.21""
| КОНЕЦ КАК СубСчет,
| ПоступлениеТоваровУслуг.а1,
| ПоступлениеТоваровУслуг.а2,
| ПоступлениеТоваровУслуг.СкладОрдер,
| ПоступлениеТоваровУслуг.СчетУчетаРасчетовСКонтрагентом,
| ПоступлениеТоваровУслуг.Контрагент,
| ПоступлениеТоваровУслуг.Контрагент.Код
|ИЗ
| Документ.ПоступлениеТоваровУслуг КАК ПоступлениеТоваровУслуг
|ГДЕ
| ПоступлениеТоваровУслуг.Ссылка = &ТекущийДокумент";

Шапка = Запрос.Выполнить().Выбрать();
Шапка.Следующий();

//--------------------------------------------------------запрос строк документа------

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

//---------------------------------------------------------получаем форму макета "Макет"---
Макет = ПолучитьМакет("Макет");
//-----------------------------------------------начинаем получать области нашего макета---

ОбластьМакетаШапка = Макет.ПолучитьОбласть("Шапка");
ОбластьМакетаЗаголовокДокумента = Макет.ПолучитьОбласть("ЗаголовокДокумента");
ОбластьМакетаЗаголовокТаблицы = Макет.ПолучитьОбласть("ЗаголовокТаблицы");
ОбластьМакетаСтрока = Макет.ПолучитьОбласть("Строка");
ОбластьМакетаПодвалСтрок = Макет.ПолучитьОбласть("ПодвалСтрок");
ОбластьМакетаИтого = Макет.ПолучитьОбласть("Итого");
ОбластьМакетаПодвал = Макет.ПолучитьОбласть("Подвал");

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

//------------------------------------------------------------------ заполняем даные макета из запроса написанного ранее--

ОбластьМакетаШапка.Параметры.Заполнить(Шапка);
// ОбластьМакетаШапка.Параметры.ПредставлениеОрганизации = ФормированиеПечатныхФорм.ОписаниеОрганизации(СведенияОПокупателе);
// ОбластьМакетаШапка.Параметры.ОрганизацияПоОКПО = СведенияОПокупателе.КодПоОКПО;
//ОбластьМакетаШапка.Параметры.НомерДокумента = ОбщегоНазначения.ПолучитьНомерНаПечать(Шапка);

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

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

// -------------------------------------------------------Выводим заголовок таблицы
ТабДокумент.Вывести(ОбластьМакетаЗаголовокТаблицы);

// -------------------------------------------------------Инициализация итогов в документе
ИтогоКоличествоПринято = 0;
ИтогоСуммаБезНДС = 0;
ИтогоСуммаНДС = 0;
ИтогоВсегоСНДС = 0;
Ном = 0;

// --------------------------------------------------Инициализация счетчиков страниц и строк
НомерСтраницы = 1;
НомерСтроки = 0;
КоличествоСтрок = ЗапросТовары.Количество();

// -----------------------------------------------------Выводим многострочную часть докмента

Для Каждого ВыборкаСтрок Из ЗапросТовары Цикл

НомерСтроки = НомерСтроки + 1;

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

//----------------------
КоличествоПринято = ВыборкаСтрок.КоличествоПринято;
// ВсегоСНДС = (ВыборкаСтрок.Стоимость
// + ?(Шапка.СуммаВключаетНДС, 0, ВыборкаСтрок.СуммаНДС));
//СуммаНДС = ВыборкаСтрок.СуммаНДС;
// Цена = (ВсегоСНДС - СуммаНДС) / ?(КоличествоПринято = 0, 1, КоличествоПринято);

ТабДокумент.Вывести(ОбластьМакетаСтрока); //--обязательно размещать вывод строки в теле цикла(иначе выводится соответственно последняя строка формы--

КонецЦикла;

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

// Выводим итоги по документу
ТабДокумент.Вывести(ОбластьМакетаИтого);

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

Возврат ТабДокумент;

КонецФункции // ПечатьАктаСписания()

47 tg30000

01.08.11

✎

12:41

*который

48 hhhh

01.08.11

✎

12:44

(47) ну то, что черным цветом - это у тебя тексты запросов. А синее - сама программа. УстановитьПараметр() ты пытаешься засандалить в черную часть.

49 tg30000

01.08.11

✎

12:55

я понял что я пытаюсь его в запрос, а как сделать иначе Куда его вставлять?
сюда?

// -----------------------------------------------------Выводим многострочную часть докмента

Для Каждого ВыборкаСтрок Из ЗапросТовары Цикл

НомерСтроки = НомерСтроки + 1;

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

//----------------------

КоличествоПринято = ВыборкаСтрок.КоличествоПринято;
// ВсегоСНДС = (ВыборкаСтрок.Стоимость

// + ?(Шапка.СуммаВключаетНДС, 0, ВыборкаСтрок.СуммаНДС));

//СуммаНДС = ВыборкаСтрок.СуммаНДС;

// Цена = (ВсегоСНДС - СуммаНДС) / ?(КоличествоПринято = 0, 1, КоличествоПринято);

ТабДокумент.Вывести(ОбластьМакетаСтрока); //--обязательно размещать вывод строки в теле цикла(иначе выводится соответственно последняя строка формы--

КонецЦикла;

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

// Выводим итоги по документу

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

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

50 tg30000

01.08.11

✎

12:57

я просто не пойму принцип...
запрос получает данные из БД
остальное служит для вывода в печатную форму.
куда поставить условие и как его описать что бы связать и то и то ?

51 NetDozor

01.08.11

✎

12:59

ЗапросПоТоварам = Новый Запрос();
ЗапросПоТоварам.УстановитьПараметр("ТекущийДокумент", СсылкаНаОбъект.Ссылка);
ЗапросПоТоварам.УстановитьПараметр("СчетДт", ПланыСчетов.Хозрасчетный.НДСПоПриобретеннымМПЗ);

52 tg30000

01.08.11

✎

13:05

спасибо за ответ, а как описать что бы не показывать проводки по ндс 19.3 , а только 10.5(10.6 и др.) -60.2

не могу сообразить..

53 tg30000

01.08.11

✎

13:06

всем спасибо за ответы! поехал на курсы.
если кому не сложно подскажите с условием..

54 tg30000

01.08.11

✎

19:38

up.

55 tg30000

02.08.11

✎

05:08

56 tg30000

02.08.11

✎

06:59

как же все таки вставить условие и как правильно описать что бы 19.03 не попадал в печатную форму...

57 Wobland

02.08.11

✎

07:03

(56) ГДЕ СчётДт<>&Счёт1903 к примеру

58 tg30000

02.08.11

✎

07:34

Спасибо , попробую.

59 tg30000

02.08.11

✎

07:35

только вот куда его запихать правильно будет, в запрос или там нельзя, а ниже в теле цикла?

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

60 Wobland

02.08.11

✎

07:36

(59) ГДЕ - это только про запросы ;)

61 tg30000

02.08.11

✎

07:38

просто я запутался потому что выше комментировали что нельзя в запросы вставлять..

62 tg30000

02.08.11

✎

07:39

ну курсы уже хожу по 8.2. скоро тоже буду разбираться... только конечно нужно еще много вникать..

63 Wobland

02.08.11

✎

07:43

(61) выше только (38) увидел ;)

64 tg30000

02.08.11

✎

07:49

65 Wobland

02.08.11

✎

07:50

(64) не надо тупо копипастить, надо ещё мозг подключать. в (57) была обозначена идея. та же идея была обозначено и в (38), но синтаксически более верно

66 tg30000

02.08.11

✎

07:53

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

67 Wobland

02.08.11

✎

07:55

а что там такое в (42) написано?

68 Wobland

02.08.11

✎

07:56

+(67) всю ветку читал плохо

69 tg30000

02.08.11

✎

07:58

70 tg30000

02.08.11

✎

08:00

ГДЕ
Хозрасчетный.Регистратор = &ТекущийДокумент
И
Хозрасчетный.СчетДт = &СчетДт

а Хозрасчетный.СчетДт = &СчетДт как тут условие то прописать что 19.03 не попадает?

или

Запрос.УстановитьПараметр("СчетДт", ПланыСчетов.Хозрасчетный.НДСПоПриобретеннымМПЗ);

поможет исключить?

71 Wobland

02.08.11

✎

08:06

Запрос.УстановитьПараметр() должен быть между Новый Запрос; и Запрос.Выполнить(). это не кусок текста

72 tg30000

02.08.11

✎

08:12

ошибки...
что-то я тупой и еще тупее тупого..)

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

73 Wobland

02.08.11

✎

08:14

(72) думай. читай побольше и думай. запросу устанавливаешь параметр с именем СчётДт, а в тексте запроса употребляешь параметр с именем Счёт1903

74 Wobland

02.08.11

✎

08:20

плюс параметр устанавливаешь Запросу, а текст запроса - ЗапросуПоТоварам

75 tg30000

02.08.11

✎

08:21

ага, что "плюс параметр устанавливаешь Запросу, а текст запроса - ЗапросуПоТоварам"
только сейчас увидел! Спасибо.

76 tg30000

02.08.11

✎

08:23

можно вопрос? а

ЗапросПоТоварам.УстановитьПараметр("СчетДт", ПланыСчетов.Хозрасчетный.НДСПоПриобретеннымМПЗ);

получается мы присваеваем(получаем)

СчетДт=НДСПоПриобретеннымМПЗ

такое соответствие?

77 Wobland

02.08.11

✎

08:29

>получается мы присваеваем(получаем)
формулировка мне не нравится, но направление мысли верное ;)

78 tg30000

02.08.11

✎

08:31

т.е начало будет так...

ЗапросПоТоварам = Новый Запрос();
ЗапросПоТоварам.УстановитьПараметр("СчетДт", ПланыСчетов.Хозрасчетный.НДСПоПриобретеннымМПЗ);
ЗапросПоТоварам.УстановитьПараметр("ТекущийДокумент", СсылкаНаОбъект.Ссылка);
ЗапросПоТоварам.Текст = "ВЫБРАТЬ

79 tg30000

02.08.11

✎

08:32

только как же теперь вставить условие? в сам текст запроса

80 tg30000

02.08.11

✎

08:34

и так мы имеем "СчетДт" в который передали => НДСПоПриобретеннымМПЗ

теперь нужно выводить все кроме => НДСПоПриобретеннымМПЗ

81 Wobland

02.08.11

✎

08:37

щас матом ругаться начну

ГДЕ
Хозрасчетный.Регистратор = &ТекущийДокумент
И
Хозрасчетный.СчетДт = &СчетДт

82 Wobland

02.08.11

✎

08:37

+(81)
ГДЕ
Хозрасчетный.Регистратор = &ТекущийДокумент
И
НЕ Хозрасчетный.СчетДт = &СчетДт

83 tg30000

02.08.11

✎

08:42

ооо, да .. теперь с Вашей помощию все работает!!!)
Спасибо Вам огромное!!!!!

только теперь уловил суть запроса этого!!!

Спасибо всем огромное....не судите строго ....буду читать и практиковаться!

Еще раз СПАСИБО всем кто принимал посильное участие))

84 tg30000

05.08.11

✎

11:15

Подскажите пожалуйста в чем дело....
добавил вывод в печатную форму стета Дт и Кт
после этого начало двоить или троить количество и сумма соответственно...в общем сколько строг столько и умножает...
до добавления вывода счетов все ок было...
подскажите что не так с циклом или с чем еще ....

Функция ПечатьАктаСписания()

Запрос = Новый Запрос;
Запрос.УстановитьПараметр("ТекущийДокумент", СсылкаНаОбъект);
Запрос.Текст =
"ВЫБРАТЬ
| ТребованиеНакладная.Номер,
| ТребованиеНакладная.Дата,
| ТребованиеНакладная.Организация,
| ТребованиеНакладная.Склад,
| ТребованиеНакладная.а1,
| ТребованиеНакладная.а2,
| ТребованиеНакладная.а3,
| ТребованиеНакладная.а4
|ИЗ
| Документ.ТребованиеНакладная КАК ТребованиеНакладная
|ГДЕ
| ТребованиеНакладная.Ссылка = &ТекущийДокумент";

Шапка = Запрос.Выполнить().Выбрать();
Шапка.Следующий();

//Запрос = Новый Запрос;
//Запрос.УстановитьПараметр("ТекущийДокумент", СсылкаНаОбъект);

СтруктраПараметров = Новый Структура();
СтруктраПараметров.Вставить("ТекущийДокумент", СсылкаНаОбъект);
СтруктраПараметров.Вставить("Регистратор", СсылкаНаОбъект);
СтруктраПараметров.Вставить("НачГраница", Новый Граница(СсылкаНаОбъект.Дата, ВидГраницы.Включая));

ТекстЗапроса = "ВЫБРАТЬ
| ТребованиеНакладная.Номенклатура,
| ВЫРАЗИТЬ(ТребованиеНакладная.Номенклатура.НаименованиеПолное КАК СТРОКА(1000)) КАК МатериалНаименование,
| ТребованиеНакладная.Номенклатура.Код КАК НоменклатурныйНомер,
| ТребованиеНакладная.ЕдиницаИзмерения.Представление КАК ЕдиницаИзмеренияНаименование,
| ТребованиеНакладная.ЕдиницаИзмерения.ЕдиницаПоКлассификатору.Код КАК ЕдиницаИзмеренияКод,
| ТребованиеНакладная.Характеристика,
| ТребованиеНакладная.Серия,
| ТребованиеНакладная.Количество,
| ТребованиеНакладная.Счет,
| ТребованиеНакладная.НомерСтроки КАК НомерСтроки,
| ВЫРАЗИТЬ(ЕСТЬNULL(ТаблицаСебестоимостиОбороты.Стоимость, 0) * ТребованиеНакладная.Количество * ТребованиеНакладная.Коэффициент / ЕСТЬNULL(ТребованиеНакладная.Номенклатура.ЕдиницаХраненияОстатков.Коэффициент, 1) / ЕСТЬNULL(ТаблицаСебестоимостиОбороты.Количество, 1) КАК ЧИСЛО(15, 2)) КАК Сумма,
| ТребованиеНакладная.СчетДт,
| ТребованиеНакладная.СчетКт
|ИЗ
| (ВЫБРАТЬ
| ТребованиеНакладная.Номенклатура КАК Номенклатура,
| ТребованиеНакладная.ЕдиницаИзмерения КАК ЕдиницаИзмерения,
| ТребованиеНакладная.Коэффициент КАК Коэффициент,
| ТребованиеНакладная.Счет КАК Счет,
| ТребованиеНакладная.ХарактеристикаНоменклатуры КАК Характеристика,
| ТребованиеНакладная.СерияНоменклатуры КАК Серия,
| СУММА(ТребованиеНакладная.Количество) КАК Количество,
| МИНИМУМ(ТребованиеНакладная.НомерСтроки) КАК НомерСтроки,
| Хозрасчетный.СчетДт КАК СчетДт,
| Хозрасчетный.СчетКт КАК СчетКт
| ИЗ
| РегистрБухгалтерии.Хозрасчетный КАК Хозрасчетный
| ВНУТРЕННЕЕ СОЕДИНЕНИЕ Документ.ТребованиеНакладная.Материалы КАК ТребованиеНакладная
| ПО Хозрасчетный.Регистратор = ТребованиеНакладная.Ссылка
| ГДЕ
| ТребованиеНакладная.Ссылка = &ТекущийДокумент
|
| СГРУППИРОВАТЬ ПО
| ТребованиеНакладная.Номенклатура,
| ТребованиеНакладная.ЕдиницаИзмерения,
| ТребованиеНакладная.Коэффициент,
| ТребованиеНакладная.ХарактеристикаНоменклатуры,
| ТребованиеНакладная.СерияНоменклатуры,
| ТребованиеНакладная.Счет,
| Хозрасчетный.СчетДт,
| Хозрасчетный.СчетКт) КАК ТребованиеНакладная
| ЛЕВОЕ СОЕДИНЕНИЕ ТаблицаСебестоимостиОбороты КАК ТаблицаСебестоимостиОбороты
| ПО ТребованиеНакладная.Номенклатура = ТаблицаСебестоимостиОбороты.Номенклатура
| И (ТаблицаСебестоимостиОбороты.Регистратор = &Регистратор)
| И (ТребованиеНакладная.Характеристика = ТаблицаСебестоимостиОбороты.ХарактеристикаНоменклатуры
| ИЛИ ТаблицаСебестоимостиОбороты.ХарактеристикаНоменклатуры = ""Не используется"")
| И (ТребованиеНакладная.Серия = ТаблицаСебестоимостиОбороты.СерияНоменклатуры
| ИЛИ ТаблицаСебестоимостиОбороты.СерияНоменклатуры = ""Не используется"")
| И (ТребованиеНакладная.Счет = ТаблицаСебестоимостиОбороты.СчетУчета
| ИЛИ ТаблицаСебестоимостиОбороты.СчетУчета = ""Не используется"")
|ГДЕ
| (ТаблицаСебестоимостиОбороты.Регистратор = &ТекущийДокумент
| ИЛИ ТаблицаСебестоимостиОбороты.Регистратор ЕСТЬ NULL )
|
|УПОРЯДОЧИТЬ ПО
| НомерСтроки";

ТаблицаЗатрат = УправлениеЗапасами.ПолучитьТаблицуЗатратДляПечатиИЗаполненияДокументов(СсылкаНаОбъект, ТекстЗапроса, СтруктраПараметров);

Если ТаблицаЗатрат = Неопределено Тогда
Возврат Неопределено;
КонецЕсли;

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

// Вывод заголовка
Макет = ПолучитьМакет("Макет");
Область = Макет.ПолучитьОбласть("Шапка");
Область.Параметры.Заполнить(шапка);

Область.Параметры.ДатаДок=Формат(СсылкаНаОбъект.Дата,"ДЛФ=Д");
Область.Параметры.НомерДок=Число(СсылкаНаОбъект.Номер);
//Область.Параметры.Сотр1=ФИОФизЛица(Комиссия1);
//Область.Параметры.Сотр2=ФИОФизЛица(Комиссия2);
//Область.Параметры.Сотр3=ФИОФизЛица(Комиссия3);
//Область.Параметры.Должность1=Комиссия1.Должность;
//Область.Параметры.Должность2=Комиссия2.Должность;
//Область.Параметры.Должность3=Комиссия3.Должность;

// Область.Параметры.Сотр1="("+ ФИОФизЛица(Комиссия1)+")";
// Область.Параметры.Сотр2="("+ ФИОФизЛица(Комиссия2)+")";
//Область.Параметры.Сотр3="("+ ФИОФизЛица(Комиссия3)+")";

//Область.Параметры.ПериодСписания=Формат(СсылкаНаОбъект.Дата,"ДФ=""ММММ гггг""");
Область.Параметры.Склад=СсылкаНаОбъект.Склад;
Область.Параметры.Подразделение=СсылкаНаОбъект.Подразделение;
Область.Параметры.Организация=СсылкаНаОбъект.Организация;

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

//Вывод строк
Область = Макет.ПолучитьОбласть("Тело");

//Нпп=0;
Сумма=0;
Для Каждого ВыборкаПоСтрокам Из ТаблицаЗатрат Цикл
//Нпп=Нпп+1;
Сумма=Сумма+ВыборкаПоСтрокам.Сумма;
//Область.Параметры.Нпп=Нпп;
//Область.Параметры.Имя=ВыборкаПоСтрокам.МатериалНаименование;
Область.Параметры.Цена = ?( ВыборкаПоСтрокам.Количество = 0, ВыборкаПоСтрокам.Сумма, Окр(ВыборкаПоСтрокам.Сумма / ВыборкаПоСтрокам.Количество, 2, 1));
Область.Параметры.Заполнить(ВыборкаПоСтрокам);
ТабДокумент.Вывести(Область);

КонецЦикла;

// Вывод подвала
Область = Макет.ПолучитьОбласть("Подвал");
Область.Параметры.Заполнить(Шапка);
//Область.Параметры.Сумма=Формат(Сумма,"ЧЦ=15; ЧДЦ=2")+" руб.";
мВалютаРегламентированногоУчета = глЗначениеПеременной("ВалютаРегламентированногоУчета");
//Область.Параметры.СуммаПрописью = ОбщегоНазначения.СформироватьСуммуПрописью(Сумма, мВалютаРегламентированногоУчета);

//Область.Параметры.Должность1=Комиссия1.Должность;
// Область.Параметры.Сотр4="("+ ФИОФизЛица(Комиссия4)+")";
//Область.Параметры.Сотр5="("+ ФИОФизЛица(Комиссия5)+")";

Область.Параметры.ПолеВвода1=ПолеВвода1 ;

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

Возврат ТабДокумент;

КонецФункции // ПечатьАктаСписания()

85 tg30000

05.08.11

✎

11:16

*сколько строк столько и множит....

86 Ахиллес

05.08.11

✎

11:26

(85) Ты неделю уже отчет пишешь, вместо того что бы открыть типовой отчет "Движения документа"и тупо скопипастить оттуда кусок кода.

87 tg30000

05.08.11

✎

11:29

если скопировать я так не разберусь... хочу понимать что делаю..

что в данной ситуации не так? может кто подсказать?

88 Ахиллес

05.08.11

✎

11:33

Сори. Мне даже на плюсики жать лень, не то, что разбираться.
Когда я пишу свои доработки, я по максимуму использую возможности типовых конфигураций, не люблю давить батоны бестолку. Чего и всем желаю.

89 tg30000

05.08.11

✎

11:40

Я бы тоже был рад так делать, если бы не бухгалтерия...

90 tg30000

05.08.11

✎

11:41

вопрос остается открытым , если кто сможет помочь буду очень рад..

91 hhhh

05.08.11

✎

12:03

(90) ну вот ты пишешь

| ВНУТРЕННЕЕ СОЕДИНЕНИЕ Документ.ТребованиеНакладная.Материалы КАК ТребованиеНакладная
| ПО Хозрасчетный.Регистратор = ТребованиеНакладная.Ссылка

допустим в регистре по этому регистратору у тебя 10 строк и в требовании накладной 10 строк. ты пишешь СОЕДИНЕНИЕ, значит в результате каждая строка регистратора у тебя соединяется с каждой строкой документа. Получится 10*10 = 100 строк. Ты же сам этого хочешь, и сам же удивляешься.

92 tg30000

05.08.11

✎

12:14

что же делать ... я конструктором пока только делаю...
что нужно изменить?

93 tg30000

05.08.11

✎

12:27

up...

94 hhhh

05.08.11

✎

12:37

(92) сказать бухгалтеру, что в требовании накладной допускается только одна строчка, если лень внутреннее соединение переписывать.

95 tg30000

05.08.11

✎

12:41

я если бы знал что то переписал бы...

96 hhhh

05.08.11

✎

12:43

(95) ну вот ниже, смотри какая у тебя офигенная связь

ПО ТребованиеНакладная.Номенклатура = ТаблицаСебестоимостиОбороты.Номенклатура
| И (ТаблицаСебестоимостиОбороты.Регистратор = &Регистратор)
| И (ТребованиеНакладная.Характеристика = ТаблицаСебестоимостиОбороты.ХарактеристикаНоменклатуры
| ИЛИ ТаблицаСебестоимостиОбороты.ХарактеристикаНоменклатуры = ""Не используется"")
| И (ТребованиеНакладная.Серия = ТаблицаСебестоимостиОбороты.СерияНоменклатуры
| ИЛИ ТаблицаСебестоимостиОбороты.СерияНоменклатуры = ""Не используется"")
| И (ТребованиеНакладная.Счет = ТаблицаСебестоимостиОбороты.СчетУчета
| ИЛИ ТаблицаСебестоимостиОбороты.СчетУчета = ""Не используется"")

почему же в первом случае ты поленился, написал только по регистратору, а во втором всё чётко, подробно расписал?

97 tg30000

05.08.11

✎

12:50

Спасибо Вам за ответ постараюсь разобраться вечером, поехал на курсы по 1с ке.... я только еще начинаю... так что не особо въезжаю....

98 tg30000

08.08.11

✎

09:33

не разобрался так что с запросом изменить..

99 tg30000

08.08.11

✎

10:01

ап...

100 tg30000

09.08.11

✎

05:53

Подскажите что можно поправит...

101 Wobland

09.08.11

✎

06:32

(100) ни фига не понял. в чём беда?

102 tg30000

09.08.11

✎

06:57

Да проблемма в том что если в документе более одной строки то он задваивает или затраивает колучество и сумму по строчкам... не пойму как убрать это ..уже даже не знаю что сделать...т.е. что-то неправильно стало когда добавил хозрасчетный ..не так как-то нужно делать соединение или еще что-то... подскажите если несложно...

103 Мимохожий Однако

09.08.11

✎

07:03

Включи отладчик и посмотри в проблемных местах.
Разбей свою задачу на несколько небольших задач и сделай пробные подходы по ним. Разгребать чужой код сложно, т.к. для поставленной задачи нет исходных условий и формализованной цели. Полезно еще рисовать на листочке, прежде чем бросаться кодировать. ИМХО, начни сначала.

104 tg30000

09.08.11

✎

07:07

Я бы проверил отладчиком но не знаю как внешнюю обработку подключить к нему... что в системе я могу посмотреть , а эту как привезать к отладчику не знаю..

105 Мимохожий Однако

09.08.11

✎

07:10

На инфостарте была опубликована небольшая обработка для отладки внешних печатных форм.

106 tg30000

09.08.11

✎

07:11

Вот последный вариант который двоит, троит..

Функция ПечатьАктаСписания()

Запрос = Новый Запрос;
Запрос.УстановитьПараметр("ТекущийДокумент", СсылкаНаОбъект);
Запрос.Текст =
"ВЫБРАТЬ
| ТребованиеНакладная.Номер,
| ТребованиеНакладная.Дата,
| ТребованиеНакладная.Организация,
| ТребованиеНакладная.Склад,
| ТребованиеНакладная.а1,
| ТребованиеНакладная.а2,
| ТребованиеНакладная.а3,
| ТребованиеНакладная.а4
|ИЗ
| Документ.ТребованиеНакладная КАК ТребованиеНакладная
|ГДЕ
| ТребованиеНакладная.Ссылка = &ТекущийДокумент";

Шапка = Запрос.Выполнить().Выбрать();
Шапка.Следующий();

//Запрос = Новый Запрос;
//Запрос.УстановитьПараметр("ТекущийДокумент", СсылкаНаОбъект);

СтруктраПараметров = Новый Структура();
СтруктраПараметров.Вставить("ТекущийДокумент", СсылкаНаОбъект);
СтруктраПараметров.Вставить("Регистратор", СсылкаНаОбъект);
СтруктраПараметров.Вставить("НачГраница", Новый Граница(СсылкаНаОбъект.Дата, ВидГраницы.Включая));

ТекстЗапроса = "ВЫБРАТЬ
| ТребованиеНакладная.Номенклатура,
| ВЫРАЗИТЬ(ТребованиеНакладная.Номенклатура.НаименованиеПолное КАК СТРОКА(1000)) КАК МатериалНаименование,
| ТребованиеНакладная.Номенклатура.Код КАК НоменклатурныйНомер,
| ТребованиеНакладная.ЕдиницаИзмерения.Представление КАК ЕдиницаИзмеренияНаименование,
| ТребованиеНакладная.ЕдиницаИзмерения.ЕдиницаПоКлассификатору.Код КАК ЕдиницаИзмеренияКод,
| ТребованиеНакладная.Характеристика,
| ТребованиеНакладная.Серия,
| ТребованиеНакладная.Количество,
| ТребованиеНакладная.Счет,
| ТребованиеНакладная.НомерСтроки КАК НомерСтроки,
| ВЫРАЗИТЬ(ЕСТЬNULL(ТаблицаСебестоимостиОбороты.Стоимость, 0) * ТребованиеНакладная.Количество * ТребованиеНакладная.Коэффициент / ЕСТЬNULL(ТребованиеНакладная.Номенклатура.ЕдиницаХраненияОстатков.Коэффициент, 1) / ЕСТЬNULL(ТаблицаСебестоимостиОбороты.Количество, 1) КАК ЧИСЛО(15, 2)) КАК Сумма,
| ТребованиеНакладная.СчетДт,
| ТребованиеНакладная.СчетКт
|ИЗ
| (ВЫБРАТЬ
| ТребованиеНакладная.Номенклатура КАК Номенклатура,
| ТребованиеНакладная.ЕдиницаИзмерения КАК ЕдиницаИзмерения,
| ТребованиеНакладная.Коэффициент КАК Коэффициент,
| ТребованиеНакладная.Счет КАК Счет,
| ТребованиеНакладная.ХарактеристикаНоменклатуры КАК Характеристика,
| ТребованиеНакладная.СерияНоменклатуры КАК Серия,
| СУММА(ТребованиеНакладная.Количество) КАК Количество,
| МИНИМУМ(ТребованиеНакладная.НомерСтроки) КАК НомерСтроки,
| Хозрасчетный.СчетДт КАК СчетДт,
| Хозрасчетный.СчетКт КАК СчетКт
| ИЗ
| РегистрБухгалтерии.Хозрасчетный КАК Хозрасчетный
| ВНУТРЕННЕЕ СОЕДИНЕНИЕ Документ.ТребованиеНакладная.Материалы КАК ТребованиеНакладная
| ПО Хозрасчетный.Регистратор = ТребованиеНакладная.Ссылка
| ГДЕ
| ТребованиеНакладная.Ссылка = &ТекущийДокумент
|
| СГРУППИРОВАТЬ ПО
| ТребованиеНакладная.Номенклатура,
| ТребованиеНакладная.ЕдиницаИзмерения,
| ТребованиеНакладная.Коэффициент,
| ТребованиеНакладная.ХарактеристикаНоменклатуры,
| ТребованиеНакладная.СерияНоменклатуры,
| ТребованиеНакладная.Счет,
| Хозрасчетный.СчетДт,
| Хозрасчетный.СчетКт) КАК ТребованиеНакладная
| ЛЕВОЕ СОЕДИНЕНИЕ ТаблицаСебестоимостиОбороты КАК ТаблицаСебестоимостиОбороты
| ПО ТребованиеНакладная.Номенклатура = ТаблицаСебестоимостиОбороты.Номенклатура
| И (ТаблицаСебестоимостиОбороты.Регистратор = &Регистратор)
| И (ТребованиеНакладная.Характеристика = ТаблицаСебестоимостиОбороты.ХарактеристикаНоменклатуры
| ИЛИ ТаблицаСебестоимостиОбороты.ХарактеристикаНоменклатуры = ""Не используется"")
| И (ТребованиеНакладная.Серия = ТаблицаСебестоимостиОбороты.СерияНоменклатуры
| ИЛИ ТаблицаСебестоимостиОбороты.СерияНоменклатуры = ""Не используется"")
| И (ТребованиеНакладная.Счет = ТаблицаСебестоимостиОбороты.СчетУчета
| ИЛИ ТаблицаСебестоимостиОбороты.СчетУчета = ""Не используется"")
|ГДЕ
| (ТаблицаСебестоимостиОбороты.Регистратор = &ТекущийДокумент
| ИЛИ ТаблицаСебестоимостиОбороты.Регистратор ЕСТЬ NULL )
|
|УПОРЯДОЧИТЬ ПО
| НомерСтроки";

ТаблицаЗатрат = УправлениеЗапасами.ПолучитьТаблицуЗатратДляПечатиИЗаполненияДокументов(СсылкаНаОбъект, ТекстЗапроса, СтруктраПараметров);

Если ТаблицаЗатрат = Неопределено Тогда
Возврат Неопределено;
КонецЕсли;

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

// Вывод заголовка
Макет = ПолучитьМакет("Макет");
Область = Макет.ПолучитьОбласть("Шапка");
Область.Параметры.Заполнить(шапка);

Область.Параметры.ДатаДок=Формат(СсылкаНаОбъект.Дата,"ДЛФ=Д");
Область.Параметры.НомерДок=Число(СсылкаНаОбъект.Номер);

//Область.Параметры.ПериодСписания=Формат(СсылкаНаОбъект.Дата,"ДФ=""ММММ гггг""");
Область.Параметры.Склад=СсылкаНаОбъект.Склад;
Область.Параметры.Подразделение=СсылкаНаОбъект.Подразделение;
Область.Параметры.Организация=СсылкаНаОбъект.Организация;

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

//Вывод строк
Область = Макет.ПолучитьОбласть("Тело");

//Нпп=0;
Сумма=0;
Для Каждого ВыборкаПоСтрокам Из ТаблицаЗатрат Цикл
//Нпп=Нпп+1;
Сумма=Сумма+ВыборкаПоСтрокам.Сумма;
//Область.Параметры.Нпп=Нпп;
//Область.Параметры.Имя=ВыборкаПоСтрокам.МатериалНаименование;
Область.Параметры.Цена = ?( ВыборкаПоСтрокам.Количество = 0, ВыборкаПоСтрокам.Сумма, Окр(ВыборкаПоСтрокам.Сумма / ВыборкаПоСтрокам.Количество, 2, 1));
Область.Параметры.Заполнить(ВыборкаПоСтрокам);
ТабДокумент.Вывести(Область);

КонецЦикла;

// Вывод подвала
Область = Макет.ПолучитьОбласть("Подвал");
Область.Параметры.Заполнить(Шапка);
//Область.Параметры.Сумма=Формат(Сумма,"ЧЦ=15; ЧДЦ=2")+" руб.";
мВалютаРегламентированногоУчета = глЗначениеПеременной("ВалютаРегламентированногоУчета");
//Область.Параметры.СуммаПрописью = ОбщегоНазначения.СформироватьСуммуПрописью(Сумма, мВалютаРегламентированногоУчета);

Область.Параметры.ПолеВвода1=ПолеВвода1 ;

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

Возврат ТабДокумент;

КонецФункции // ПечатьАктаСписания()

107 tg30000

09.08.11

✎

07:12

(105) Спасибо за совет, сейчас поищу обработку.

108 Мимохожий Однако

09.08.11

✎

07:15

(105)+ http://infostart.ru/public/73418/

109 tg30000

09.08.11