```1c
    ТабДок=ЭлементыФормы.ПолеТабличногоДокумента1;
    МакетПечать=ПолучитьМакет("Печать_Макет");

    ТекущийПериод = НачалоДня(ТекущаяДата());
    Горизонт = КонецМесяца(ГоризонтПланирования);
    _Период = НачалоМесяца(ТекущийПериод);
    _КонПериод = КонецДня(Горизонт);

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

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

    Выборка=Заказы.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);

    НомерСтрокиДата = 6;

    ОбластьСтрока = МакетПечать.ПолучитьОбласть("Таблица");
    СтрокаЗаказов=";
    Пока _Период <= _КонПериод Цикл
    ЕстьЗаказыЗаДень = Ложь;

    Пока Выборка.НайтиСледующий(_Период, "Дата") Цикл
    ЕстьЗаказыЗаДень = Истина;

    ВыборкаКонтрагенты = Выборка.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);
    НомерСтрокиКонтрагент = 0;
    Пока ВыборкаКонтрагенты.Следующий() Цикл
    ОбластьСтрока.Параметры.Заполнить(ВыборкаКонтрагенты);
    ЗаказыСписок = ";

    ВыборкаЗаказы = ВыборкаКонтрагенты.Выбрать();

    Пока ВыборкаЗаказы.Следующий() Цикл
    ЗаказыСписок = ЗаказыСписок + ?(ЗаказыСписок = ", ", ", " ) + ВыборкаЗаказы.Заказ;
    КонецЦикла;

    ОбластьСтрока.Параметры.Заказ = ЗаказыСписок;

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

    НомерСтрокиКонтрагент = НомерСтрокиКонтрагент + 1;

    КонецЦикла;

    ТабДок.Область(НомерСтрокиДата,1, НомерСтрокиДата + НомерСтрокиКонтрагент - 1, 1).Объединить();
    НомерСтрокиДата = НомерСтрокиДата + НомерСтрокиКонтрагент;
    КонецЦикла;

    Если Не ЕстьЗаказыЗаДень Тогда
    ОбластьСтрока.Параметры.Заполнить(Новый Структура("Дата, Контрагент, Заказ, Вес, Объем, Сумма", _Период, NULL, NULL, NULL, NULL, NULL));

    ТабДок.Вывести(ОбластьСтрока);
    КонецЕсли;
    _Период = КонецДня(_Период) + 1;
    КонецЦикла;
```

Не правильно выводится, заполнила 2 контрагентов для отгрузки на 2 число,а вышло вот так? Подскажите пожалуйста,где подправить
---
```1c
    Если Не ЕстьЗаказыЗаДень Тогда
    ОбластьСтрока.Параметры.Заполнить(Новый Структура("Дата, Контрагент, Заказ, Вес, Объем, Сумма", _Период, NULL, NULL, NULL, NULL, NULL));

    ТабДок.Вывести(ОбластьСтрока);
    Иначе
    НомерСтрокиДата = НомерСтрокиДата +1;
    КонецЕсли;
```

По идеи так.
---
Если у Вас в выборке по запросу находит дату 01.03.2019 Выборка.НайтиСледующий(_Период, "Дата") от 1 марта, точно день отгрузки в документе заказа стоит 2 марта?
---
НомерСтрокиДата не увеличивается, если в данной дате нет данных о контрагенте.
---
```1c
    Если Не ЕстьЗаказыЗаДень Тогда
    ОбластьСтрока.Параметры.Заполнить(Новый Структура("Дата, Контрагент, Заказ, Вес, Объем, Сумма", _Период, NULL, NULL, NULL, NULL, NULL));

    ТабДок.Вывести(ОбластьСтрока);
    Иначе
    НомерСтрокиДата = НомерСтрокиДата +1;
    КонецЕсли;
```

По идеи так.
---
Блин,точно,только без иначе
спасибо)