Имя: Пароль:
1C
1С v8
Отображение проводки в печатной форме документа.
0 tg30000
 
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
up
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
конструктор делает так....


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


"ВЫБРАТЬ
                            |    ВложенныйЗапрос.Номенклатура,
                            |    ВЫРАЗИТЬ(ВложенныйЗапрос.Номенклатура.НаименованиеПолное КАК СТРОКА(1000)) КАК ТоварНаименование,
                            |    ВложенныйЗапрос.Номенклатура.Код КАК ТоварКод,
                            |    ВложенныйЗапрос.НомерСтроки,
                            |    ВложенныйЗапрос.Количество КАК КоличествоПринято,
                            |    ВложенныйЗапрос.ЕдиницаИзмерения,
                            |    ВложенныйЗапрос.ЕдиницаИзмеренияКод,
                            |    ВложенныйЗапрос.СчетДт,
                            |    ВложенныйЗапрос.СчетКт
                            |ИЗ
                            |    (ВЫБРАТЬ
                            |        ПоступлениеТоваровУслуг.Номенклатура КАК Номенклатура,
                            |        МИНИМУМ(ПоступлениеТоваровУслуг.НомерСтроки) КАК НомерСтроки,
                            |        ПоступлениеТоваровУслуг.Количество КАК Количество,
                            |        ПоступлениеТоваровУслуг.ЕдиницаИзмерения КАК ЕдиницаИзмерения,
                            |        ПоступлениеТоваровУслуг.ЕдиницаИзмерения.Код КАК ЕдиницаИзмеренияКод,
                            |        Хозрасчетный.СчетДт КАК СчетДт,
                            |        Хозрасчетный.СчетКт КАК СчетКт
                            |    ИЗ
                            |        РегистрБухгалтерии.Хозрасчетный КАК Хозрасчетный
                            |            ВНУТРЕННЕЕ СОЕДИНЕНИЕ Документ.ПоступлениеТоваровУслуг.Товары КАК ПоступлениеТоваровУслуг
                            |            ПО Хозрасчетный.Регистратор = ПоступлениеТоваровУслуг.Ссылка
                            |    ГДЕ
                            |        Хозрасчетный.Регистратор = &ТекущийДокумент
                            |      СчётДт<>&Счёт1903
                            |    СГРУППИРОВАТЬ ПО
                            |        ПоступлениеТоваровУслуг.Номенклатура,
                            |        ПоступлениеТоваровУслуг.Количество,
                            |        ПоступлениеТоваровУслуг.ЕдиницаИзмерения,
                            |        ПоступлениеТоваровУслуг.ЕдиницаИзмерения.Код,
                            |        Хозрасчетный.СчетДт,
                            |        Хозрасчетный.СчетКт) КАК ВложенныйЗапрос
                            |
                            |УПОРЯДОЧИТЬ ПО
                            |    ВложенныйЗапрос.НомерСтроки";
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
109 tg30000
 
09.08.11
07:40
ой не вьеду... что не так..
110 tg30000
 
09.08.11
08:27
отладчик отправил в глобальный модуль ...там не разобрался..
111 Мимохожий Однако
 
09.08.11
08:55
Когда в голове каша,  надо подождать, когда дойдет :-)
112 tg30000
 
09.08.11
09:52
ап..
113 tg30000
 
09.08.11
10:50
ап.
Есть два вида языков, одни постоянно ругают, а вторыми никто не пользуется.