Сообщить("НачДата = "+НачДата+" Тип /"+ТипЗначенияСтр(НачДата)+"/");

ПрошлоДней=Число(НачДата-Дата('03.01.1994'));

Перем Док;

//*********************************************************************
Функция ПолучитьОплату(ТекДок)
    ПодчиненныеДокументы = "";
    Док.ВыбратьПодчиненныеДокументы(,,ТекДок);
    Пока Док.ПолучитьДокумент()=1 Цикл
        Если (Док.Вид() <> "ПриходныйКассовый") Тогда
            Продолжить;
        КонецЕсли; // (Док.Вид() неравно "ПКО")
        ПодчиненныеДокументы=ПодчиненныеДокументы+Док.ДатаДок+", "+Док.СуммаСНДС+"; ";
    КонецЦикла;
    Возврат ПодчиненныеДокументы;
КонецФункции //ПолучитьОплату

//*********************************************************************
// Процедура генерации запроса Сформировать.
//
Процедура Сформировать()
    Перем Запрос, ТекстЗапроса, Таб;
    //Создание объекта типа Запрос
    Запрос = СоздатьОбъект("Запрос");
    ТекстЗапроса = 
    "//{{ЗАПРОС(Сформировать)
    |Период с ВыбНачПериода по ВыбКонПериода;
    |РасходнаяРеализатора = Документ.РасходнаяРеализатора.ТекущийДокумент;
    |Контрагент = Документ.РасходнаяРеализатора.Контрагент;
    |СуммаСНДС = Документ.РасходнаяРеализатора.СуммаСНДС;
    |Оплачено = Документ.РасходнаяРеализатора.Оплачено;
    |Функция Сумма = Сумма(СуммаСНДС);
    |Функция РасходнаяРеализатораОплаченоСумма = Сумма(РасходнаяРеализатора.Оплачено);
    |Группировка РасходнаяРеализатора упорядочить по РасходнаяРеализатора.Контрагент, РасходнаяРеализатора.ДатаДок, РасходнаяРеализатора.НомерДок, РасходнаяРеализатора.Оплачено, РасходнаяРеализатора.ДолгПоНакл, РасходнаяРеализатора.Город, РасходнаяРеализатора.Улица все ВошедшиеВЗапрос;
    |Условие(Контрагент в ВыбКонтрагент);
    |"//}}ЗАПРОС
;
    
    Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
        Возврат;
    КонецЕсли;
    
    // Подготовка к заполнению выходных форм данными запроса
    Таб = СоздатьОбъект("Таблица");
    Таб.ИсходнаяТаблица("Сформировать");
    // Заполнение полей "Заголовок"
    Таб.ВывестиСекцию("Заголовок");
    Состояние("Заполнение выходной таблицы...");
    Таб.Опции(0, 0, Таб.ВысотаТаблицы(), 0);
    Док=СоздатьОбъект("Документ");
    Пока Запрос.Группировка(1) = 1 Цикл
        // Заполнение полей РасходнаяРеализатора 
        ТекДок=Запрос.РасходнаяРеализатора;
        ПодчиненныеДокументы=ПолучитьОплату(ТекДок);
        Таб.ВывестиСекцию("РасходнаяРеализатора");
    КонецЦикла;
    // Заполнение полей "Итого"
    Таб.ВывестиСекцию("Итого");
    // Вывод заполненной формы
    Таб.ТолькоПросмотр(1);
    Таб.Показать("Сформировать", "");
КонецПроцедуры

докус = СоздатьОбъект("Документ.ПриходнаяНакладная");

                
Если глИТост.ПолучитьСубконто(1,,ТекущийЭлемент()) = 1 Тогда
    Ост = глИТост.СКД("К");
КонецЕсли;