Мас101=Новый массив ;
          Мас101.Добавить(ПланыСчетов.Хозрасчетный.Полуфабрикаты);
           Мас101.Добавить(ПланыСчетов.Хозрасчетный.СебестоимостьПродажНеОблагаемаяЕНВД);
                     Мас102=Новый массив ;
           Мас102.Добавить(ПланыСчетов.Хозрасчетный.Товары);
           Мас102.Добавить(ПланыСчетов.Хозрасчетный.Материалы);
      Мас11=Новый Массив;
        Для Каждого Стр из Настройка Цикл
            мас11.Добавить(Стр.Номенклатура);
        КонецЦикла;
        Запрос = Новый Запрос;
    Запрос.Текст =
        "ВЫБРАТЬ
        |    ХозрасчетныйОборотыДтКт.Период,
        |    ХозрасчетныйОборотыДтКт.Регистратор,
        |    ХозрасчетныйОборотыДтКт.СчетДт,
        |    ХозрасчетныйОборотыДтКт.СчетКт,
        |    ХозрасчетныйОборотыДтКт.СубконтоДт1,
        |    ХозрасчетныйОборотыДтКт.СубконтоДт2,
        |    ХозрасчетныйОборотыДтКт.СубконтоДт3,
        |    ХозрасчетныйОборотыДтКт.СубконтоКт1,
        |    ХозрасчетныйОборотыДтКт.СубконтоКт2,
        |    ХозрасчетныйОборотыДтКт.СубконтоКт3,
        |    ХозрасчетныйОборотыДтКт.Организация,
        |    ХозрасчетныйОборотыДтКт.ВалютаДт,
        |    ХозрасчетныйОборотыДтКт.ВалютаКт,
        |    ХозрасчетныйОборотыДтКт.СуммаОборот,
        |    ХозрасчетныйОборотыДтКт.ВалютнаяСуммаОборотДт,
        |    ХозрасчетныйОборотыДтКт.ВалютнаяСуммаОборотКт,
        |    ХозрасчетныйОборотыДтКт.КоличествоОборотДт,
        |    ХозрасчетныйОборотыДтКт.КоличествоОборотКт
        |ИЗ
        |    РегистрБухгалтерии.Хозрасчетный.ОборотыДтКт(&НачПериода, &КонПериода, Регистратор, СчетДт В ИЕРАРХИИ (&СписокДт21), , СчетКт В ИЕРАРХИИ (&СписокКт10), , Организация = &Организация) КАК ХозрасчетныйОборотыДтКт
        |ГДЕ
        |    ХозрасчетныйОборотыДтКт.СубконтоКт1 В(&Мас11)";

    Запрос.УстановитьПараметр("КонПериода", КонецДня(КонПериода));
    Запрос.УстановитьПараметр("НачПериода", НачПериода);
    Запрос.УстановитьПараметр("Организация", Организация);
    Запрос.УстановитьПараметр("СписокДт21", Мас101);
    Запрос.УстановитьПараметр("СписокКт10",Мас102);
     Запрос.УстановитьПараметр("мас11",Мас11);
    
     Результат = Запрос.Выполнить();
   Выборка = Результат.Выбрать();




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

                    
        Пока Выборка.Следующий()Цикл
            ОбластьСтрока.Параметры.НаимП=Выборка.СубконтоКт1;
            ОбластьСтрока.Параметры.НаимС=Выборка.СубконтоДт1;
            ОбластьСтрока.Параметры.Скл=Выборка.СубконтоДт2;
            ОбластьСтрока.Параметры.Кол=Выборка.Количество();
            ОбластьСтрока.Параметры.ОбщСт=Выборка.СуммаОборот;
             ОбластьСтрока.Параметры.Цен=Окр(Выборка.СуммаОборот/Выборка.Количество(),2);
             ОбластьСтрока.Параметры.Ист="ДебитСч"+Выборка.СчетДт;

         КонецЦикла;
  

            ТабДок.ОтображатьСетку = Ложь;
    ТабДок.Защита = Ложь;
    ТабДок.ТолькоПросмотр = Ложь;
    ТабДок.ОтображатьЗаголовки = Ложь;
    ТабДок.ОриентацияСтраницы = ОриентацияСтраницы.Ландшафт;
    ТабДок.АвтоМасштаб = Истина;
    ТабДок.Показать();
     ТабДок = Запрос.Выполнить().Выгрузить();
КонецПроцедуры

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

выводит пустую таблицу

найди в коде хоть одно Вывести()

А где в цикле вывод области строки?

(0) Перед КонецЦикла; вставь

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

ТабДок.Вывести(Макет);
ТабДок = Запрос.Выполнить().Выгрузить();

это что ??

и где строка ТабДок.Вывести(ОбластьСтрока);

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

все равно не работает(((

Пока Выборка.Следующий()Цикл
            ОбластьСтрока.Параметры.НаимП=Выборка.СубконтоКт1;
            ОбластьСтрока.Параметры.НаимС=Выборка.СубконтоДт1;
            ОбластьСтрока.Параметры.Скл=Выборка.СубконтоДт2;
            ОбластьСтрока.Параметры.Кол=Выборка.Количество();
            ОбластьСтрока.Параметры.ОбщСт=Выборка.СуммаОборот;
             ОбластьСтрока.Параметры.Цен=Окр(Выборка.СуммаОборот/Выборка.Количество(),2);
             ОбластьСтрока.Параметры.Ист="ДебитСч"+Выборка.СчетДт;
                ТабДок.Вывести(ОбластьСтрока);

         КонецЦикла;
  
            
                        ТабДок.ОтображатьСетку = Ложь;
    ТабДок.Защита = Ложь;
    ТабДок.ТолькоПросмотр = Ложь;
    ТабДок.ОтображатьЗаголовки = Ложь;
    ТабДок.ОриентацияСтраницы = ОриентацияСтраницы.Ландшафт;
    ТабДок.АвтоМасштаб = Истина;
    ТабДок.Показать();
    
КонецПроцедуры

(8) Ты (5) внимательно изучила? И да - "до" и "после" в русском имеют разные значения

я уже переставила все ровно не работает(((

(11) а у тебя результат запроса не пустой?)

(11) попробуй так

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

http://infostart.ru/public/249176/

(0) Оооо, так ты девушка...
На этом форуме девушкам принято сначала фотку в личную карточку выкладывать, а потом уже спрашивать. И чем удачнее фото, тем лучше отвветы.

а без фото что помочь нельзя?

(16) тебе помогло (13)? и ответь на (12) :D

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

вы ведь и выводите пустой макет. И сами потом удивляетесь.

(20) а без него он у меня выводит только заголовок и шапку

(17) не помогло(

(21) всё равно не надо. Не нужен вам пустой бланк. Надо заполненный.

(22) значит в запрос ничего не попадает, вот и выводит только заголовок и шапку.

(24) так я же говорил

и что мне сделать что бы бланк выводил заполненный а не пустой?

проверить а что собственно есть в результате запроса

(26) проверьте

      |ГДЕ
        |    ХозрасчетныйОборотыДтКт.СубконтоКт1 В(&Мас11)";

может номенклатура не первое субконто? В плане счетов посмотрите.

(28) там все верно.просто до этого у меня заполнялась таблица .потом я переписала код и все больше она не заполняется

(29) кинь код процедуры еще раз целиком

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

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

        
        Пока Выборка.Следующий()Цикл
            ОбластьСтрока.Параметры.НаимП1=Выборка.СубконтоКт1;
            ОбластьСтрока.Параметры.НаимС1=Выборка.СубконтоДт1;
            ОбластьСтрока.Параметры.Скл1=Выборка.СубконтоДт2;
            ОбластьСтрока.Параметры.Кол1=Выборка.Количество();
            ОбластьСтрока.Параметры.ОбщСт1=Выборка.СуммаОборот;
             ОбластьСтрока.Параметры.Цен1=Окр(Выборка.СуммаОборот/Выборка.Количество(),2);
             ОбластьСтрока.Параметры.Ист1="ДебитСч"+Выборка.СчетДт;

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

        
    //////////////////////////////////////////////////////////////////////////////////////////////////    
    
                    Мас101=Новый массив ;
          Мас101.Добавить(ПланыСчетов.Хозрасчетный.Полуфабрикаты);
           Мас101.Добавить(ПланыСчетов.Хозрасчетный.СебестоимостьПродажНеОблагаемаяЕНВД);
                     Мас102=Новый массив ;
           Мас102.Добавить(ПланыСчетов.Хозрасчетный.Товары);
           Мас102.Добавить(ПланыСчетов.Хозрасчетный.Материалы);
      Мас11=Новый Массив;
        Для Каждого Стр из Настройка Цикл
            мас11.Добавить(Стр.Номенклатура);
        КонецЦикла;
        Запрос = Новый Запрос;
    Запрос.Текст =
        "ВЫБРАТЬ
        |    ХозрасчетныйОборотыДтКт.Период,
        |    ХозрасчетныйОборотыДтКт.Регистратор,
        |    ХозрасчетныйОборотыДтКт.СчетДт,
        |    ХозрасчетныйОборотыДтКт.СчетКт,
        |    ХозрасчетныйОборотыДтКт.СубконтоДт1,
        |    ХозрасчетныйОборотыДтКт.СубконтоДт2,
        |    ХозрасчетныйОборотыДтКт.СубконтоДт3,
        |    ХозрасчетныйОборотыДтКт.СубконтоКт1,
        |    ХозрасчетныйОборотыДтКт.СубконтоКт2,
        |    ХозрасчетныйОборотыДтКт.СубконтоКт3,
        |    ХозрасчетныйОборотыДтКт.Организация,
        |    ХозрасчетныйОборотыДтКт.ВалютаДт,
        |    ХозрасчетныйОборотыДтКт.ВалютаКт,
        |    ХозрасчетныйОборотыДтКт.СуммаОборот,
        |    ХозрасчетныйОборотыДтКт.ВалютнаяСуммаОборотДт,
        |    ХозрасчетныйОборотыДтКт.ВалютнаяСуммаОборотКт,
        |    ХозрасчетныйОборотыДтКт.КоличествоОборотДт,
        |    ХозрасчетныйОборотыДтКт.КоличествоОборотКт
        |ИЗ
        |    РегистрБухгалтерии.Хозрасчетный.ОборотыДтКт(&НачПериода, &КонПериода, Регистратор, СчетДт В ИЕРАРХИИ (&СписокДт21), , СчетКт В ИЕРАРХИИ (&СписокКт10), , Организация = &Организация) КАК ХозрасчетныйОборотыДтКт
        |ГДЕ
        |    ХозрасчетныйОборотыДтКт.СубконтоКт1 В(&Мас11)";

    Запрос.УстановитьПараметр("КонПериода", КонецДня(КонПериода));
    Запрос.УстановитьПараметр("НачПериода", НачПериода);
    Запрос.УстановитьПараметр("Организация", Организация);
    Запрос.УстановитьПараметр("СписокДт21", Мас101);
    Запрос.УстановитьПараметр("СписокКт10",Мас102);
     Запрос.УстановитьПараметр("мас11",Мас11);
    
     Результат = Запрос.Выполнить();
   Выборка = Результат.Выбрать();




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

                    
        Пока Выборка.Следующий()Цикл
            ОбластьСтрока.Параметры.НаимП=Выборка.СубконтоКт1;
            ОбластьСтрока.Параметры.НаимС=Выборка.СубконтоДт1;
            ОбластьСтрока.Параметры.Скл=Выборка.СубконтоДт2;
            ОбластьСтрока.Параметры.Кол=Выборка.Количество();
            ОбластьСтрока.Параметры.ОбщСт=Выборка.СуммаОборот;
             ОбластьСтрока.Параметры.Цен=Окр(Выборка.СуммаОборот/Выборка.Количество(),2);
             ОбластьСтрока.Параметры.Ист="ДебитСч"+Выборка.СчетДт;
                ТабДок.Вывести(ОбластьСтрока);

         КонецЦикла;
  
            
   ТабДок.ОтображатьСетку = Ложь;
    ТабДок.Защита = Ложь;
    ТабДок.ТолькоПросмотр = Ложь;
    ТабДок.ОтображатьЗаголовки = Ложь;
    ТабДок.ОриентацияСтраницы = ОриентацияСтраницы.Ландшафт;
    ТабДок.АвтоМасштаб = Истина;
    ТабДок.Показать();
     ТабДок = Запрос.Вывести();
КонецПроцедуры

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

точно есть

очень много мелких ошибок. пятница. Может вам лучше на понедельник это дело перенести?

(34) нееет мне сегодня нужно увы(((

ну например, отношения к проблеме не имеет.

            ОбластьСтрока.Параметры.Кол=Выборка.Количество();

Выборка.Количество() - это количество строчек в вашей выборке. А вам надо наверно количество товара.

(35) в последнем коде 2 разных варианта кода? или оба функционируют в процедуре? чтот я просто не понял

там 2 таблицы .одна идет по Дебиту Другая По Кредиту.

Так что выводит?:

ТабДок = Новый ТабличныйДокумент;      
Результат = Запрос.Выполнить();
Если Результат.Пустой() Тогда
    Предупреждение("Результат - пустой!");
    Возврат;
КонецЕсли;

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

Пока Выборка.Следующий()Цикл
    ОбластьСтрока.Параметры.НаимП=Выборка.СубконтоКт1;
    ОбластьСтрока.Параметры.НаимС=Выборка.СубконтоДт1;
    ОбластьСтрока.Параметры.Скл=Выборка.СубконтоДт2;
    ОбластьСтрока.Параметры.Кол=Выборка.Количество();
    ОбластьСтрока.Параметры.ОбщСт=Выборка.СуммаОборот;
    ОбластьСтрока.Параметры.Цен=Окр(Выборка.СуммаОборот/Выборка.Количество(),2);
    ОбластьСтрока.Параметры.Ист="ДебитСч"+Выборка.СчетДт;
    ТабДок.Вывести(ОбластьСтрока);
КонецЦикла;

ТабДок.Показать();

нет не то. одна идет на затраты  а другая списание.

(39) вывести должна
1 предприятие
2 НаименСырья
3 Склад
3 количество
4 общая стоимость
5 цена
6 источник

(41) На вопрос ответь

(42) куда в таблицу?

ВОт привет в читабельный вид)


МассивКТ10 = Новый Массив;
МассивКТ10.Добавить(ПланыСчетов.Хозрасчетный.Материалы);
МассивКТ10.Добавить(ПланыСчетов.Хозрасчетный.Товары);

МассивСубконто = Новый Массив;
Для Каждого Стр из Настройка Цикл
    МассивСубконто.Добавить(Стр.Номенклатура);
КонецЦикла;

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

Запрос.УстановитьПараметр("КонПериода", КонецДня(КонПериода));
Запрос.УстановитьПараметр("НачПериода", НачПериода);
Запрос.УстановитьПараметр("Организация", Организация);
Запрос.УстановитьПараметр("СписокДт10", МассивКТ10);
Запрос.УстановитьПараметр("СписокКт60",ПланыСчетов.Хозрасчетный.РасчетыСПоставщикамиИПодрядчиками);
Запрос.УстановитьПараметр("МассивСубконто",МассивСубконто);


Результат = Запрос.Выполнить();

Если НЕ Результат.Пустой() Тогда
    
    Выборка = Результат.Выбрать();
        
    ТабДокПервый = Новый ТабличныйДокумент;
    
    Макет = ПолучитьМакет("Макет");
    
    Область = Макет.ПолучитьОбласть("Заголовок");
    ТабДокПервый.Вывести(Область);
    
    ОбластьШапка = Макет.ПолучитьОбласть("ШапкаТаблицы");
    ОбластьШапка.Параметры.Заполнить(Выборка);    
    ТабДокПервый.Вывести(ОбластьШапка);
    
    ОбластьСтрока = Макет.ПолучитьОбласть("ОблСтрока");
        
    Пока Выборка.Следующий()Цикл
        
        ОбластьСтрока.Параметры.НаимП1=Выборка.СубконтоКт1;
        ОбластьСтрока.Параметры.НаимС1=Выборка.СубконтоДт1;
        ОбластьСтрока.Параметры.Скл1=Выборка.СубконтоДт2;
        ОбластьСтрока.Параметры.Кол1=Выборка.КоличествоДт;
        ОбластьСтрока.Параметры.ОбщСт1=Выборка.СуммаОборот;
        ОбластьСтрока.Параметры.Цен1=Окр(Выборка.СуммаОборот/Выборка.КоличествоДт,2);
        ОбластьСтрока.Параметры.Ист1="ДебитСч"+Выборка.СчетДт;
        
        ТабДокПервый.Вывести(ОбластьСтрока,Выборка.Уровень());
        
    КонецЦикла;
    
    ТабДокПервый.ОтображатьСетку = Ложь;
    ТабДокПервый.Защита = Ложь;
    ТабДокПервый.ТолькоПросмотр = Ложь;
    ТабДокПервый.ОтображатьЗаголовки = Ложь;
    ТабДокПервый.ОриентацияСтраницы = ОриентацияСтраницы.Ландшафт;
    ТабДокПервый.АвтоМасштаб = Истина;
    
    ТабДок.Показать();
    
Иначе
    
    Сообщить("Первый пустой");
    
КонецЕсли;


///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

МассивДТ21 = Новый Массив ;
МассивДТ21.Добавить(ПланыСчетов.Хозрасчетный.Полуфабрикаты);
МассивДТ21.Добавить(ПланыСчетов.Хозрасчетный.СебестоимостьПродажНеОблагаемаяЕНВД);

МассивКТ10 = Новый Массив ;
МассивКТ10.Добавить(ПланыСчетов.Хозрасчетный.Товары);
МассивКТ10.Добавить(ПланыСчетов.Хозрасчетный.Материалы);

МассивСубконто = Новый Массив;
Для Каждого Стр из Настройка Цикл
    МассивСубконто.Добавить(Стр.Номенклатура);
КонецЦикла;

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

Запрос.УстановитьПараметр("КонПериода", КонецДня(КонПериода));
Запрос.УстановитьПараметр("НачПериода", НачПериода);
Запрос.УстановитьПараметр("Организация", Организация);
Запрос.УстановитьПараметр("СписокДт21", МассивДТ21);
Запрос.УстановитьПараметр("СписокКт10",МассивКТ10);
Запрос.УстановитьПараметр("МассивСубконто",МассивСубконто);

Результат = Запрос.Выполнить();

Если НЕ Результат.Пустой() Тогда
    
    Выборка = Результат.Выбрать();
    
    // Зачем очищать если мы новый содаем
    ТабДокВторой = Новый ТабличныйДокумент;      
    
    Макет = ПолучитьМакет("Макет");
    
    Область = Макет.ПолучитьОбласть("Заголовок1");
    ТабДокВторой.Вывести(Область);
    
    // ??? Шапка таблицы из параметров состоит? Тогда нужно заполнять наименованиями полей
    ОбластьШапка = Макет.ПолучитьОбласть("ШапкаТаблицы1");
    ОбластьШапка.Параметры.Заполнить(Выборка);
    ТабДокВторой.Вывести(ОбластьШапка);
    
    ОбластьСтрока = Макет.ПолучитьОбласть("ОблСтрока1");
    
    Пока Выборка.Следующий()Цикл
        ОбластьСтрока.Параметры.НаимП = Выборка.СубконтоКт1;
        ОбластьСтрока.Параметры.НаимС = Выборка.СубконтоДт1;
        ОбластьСтрока.Параметры.Скл = Выборка.СубконтоДт2;
        ОбластьСтрока.Параметры.Кол = Выборка.КоличествоДт);
        ОбластьСтрока.Параметры.ОбщСт = Выборка.СуммаОборот;
        ОбластьСтрока.Параметры.Цен = Окр(Выборка.СуммаОборот/Выборка.КоличествоДт,2);
        ОбластьСтрока.Параметры.Ист = "ДебитСч" + Выборка.СчетДт;
        
        // Указываем уровень чтобы не перезаписывал одну и ту же строчку
        ТабДокВторой.Вывести(ОбластьСтрока,Выборка.Уровень());    
    КонецЦикла;
    
    
    ТабДокВторой.ОтображатьСетку = Ложь;
    ТабДокВторой.Защита = Ложь;
    ТабДокВторой.ТолькоПросмотр = Ложь;
    ТабДокВторой.ОтображатьЗаголовки = Ложь;
    ТабДокВторой.ОриентацияСтраницы = ОриентацияСтраницы.Ландшафт;
    ТабДокВторой.АвтоМасштаб = Истина;
    
    ТабДокВторой.Показать();
    
Иначе
    
    Сообщить("Пусто!");
    
КонецЕсли;

(43) в (1) что у тебя написано?

ну так получилось?

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

(447) покажи свой код целиком

(47) оба выдают пустой?

(48) погоди до (447) еще не дошли

(49) да оба я не могу Сюда скрины сделать
http://vk.com/id93378113 добавь меня

(15) На этом форуме принято не оффтопить в тематике.
Сначала помогать, потом фотку вымогать.

Даже не вымогать, а вежливо попросить и благодарная девушка возможно, согласится выставить своё фото.

(52) (53) А кто вымогает? Это просто совет новому участнику форума :)
Кто не хочет - не выкладывает, никакой принудиловки нет...
Но я таким не помогаю, обычно :)