Имя: Пароль:
1C
1С v8
Отчет ТОРГ-29 и Вид договора
0 RomakON
 
22.06.17
14:56
Добрый день, Инфостартовцы!
Подскажите пожалуйста, с решением задачи.

Есть отчет, ТОРГ-29, который выводит Приход и Расход (по Основному договору и договору с Комитентом)
Необходимо реализовать вывод отчета только по Основному договору.

Код:
Процедура ОбновитьОтчет() Экспорт

    Если Не ЗначениеЗаполнено(ДатаНач) ИлИ Не ЗначениеЗаполнено(ДатаКон) Тогда
        Предупреждение("Не выбран период!");
        Возврат;
    КонецЕсли;

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

    мТабДок = ЭлементыФормы.ДокументРезультат;

    мТабДок.Очистить();

    Макет = ЭтотОбъект.ПолучитьМакет("Макет");

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

    ВыбМОЛ = РегистрыСведений.ОтветственныеЛица.ПолучитьПоследнее(КонецДня(ДатаКон), Новый Структура("СтруктурнаяЕдиница", Склад)).ФизическоеЛицо;

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

    ОбластьМакета.Параметры.Номер = НомерОтчета;
    ВысотаЗаголовка = ОбластьМакета.ВысотаТаблицы;

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

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

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

    Запрос = Новый Запрос;
    Запрос.УстановитьПараметр("Дата1", НачалоДня(ДатаНач));
    Запрос.УстановитьПараметр("Дата2", КонецДня(ДатаКон));
    Запрос.УстановитьПараметр("Склад", Склад);
    // ДС (
    Запрос.УстановитьПараметр("Вспомогательная", Справочники.Номенклатура.НайтиПоКоду("00000112515"));
    Запрос.УстановитьПараметр("НоменклатурнаяГруппа",НоменклатурнаяГруппа );
    // ДС )

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

    Запрос.Текст = ТекстЗапроса;

    МассивРезультатов = Запрос.ВыполнитьПакет();
    РезултатОстаков = МассивРезультатов[0];
    РезультатЗапроса = МассивРезультатов[1];

    Если РезултатОстаков.Пустой() Тогда
        НачОст = 0;
        КонОст = 0;
    Иначе
        ВыборкаСтрокаОстатков = РезултатОстаков.Выбрать();
        ВыборкаСтрокаОстатков.Следующий();
        НачОст = ВыборкаСтрокаОстатков.НачОст;
        //НачОст = ПолучитьОстаокВРозницеНаДату(НачалоДня(ДатаНач));
        КонОст = ВыборкаСтрокаОстатков.КонОст;
    КонецЕсли;
    Себестоимость = 0;
    ОбластьМакета = Макет.ПолучитьОбласть("ОстатокНачала");
    ОбластьМакета.Параметры.ДатаНачала = "Остаток на " + Формат(ДатаНач, "ДЛФ=Д");
    ОбластьМакета.Параметры.НачСтоимостьВсего = ОбщегоНазначения.ФорматСумм(НачОст);
    Себестоимость = ПолучитьСебестоимостьНаДату(НачалоДня(ДатаНач));
    ОбластьМакета.Параметры.Себестоимость = Себестоимость;
    мТабДок.Вывести(ОбластьМакета);

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

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

    ТЗПриходы.Сортировать("ДатаДок Возр");

    // ДС (
    ПрихСебестоимостьВсего = 0;
    // ДС )
    ОбластьМакета = Макет.ПолучитьОбласть("Строка");

    Для Каждого СтрокаПрихода Из ТЗПриходы Цикл
        ОбластьМакета.Параметры.Докум = СтрокаПрихода.Док;
        ОбластьМакета.Параметры.Расшифровка = СтрокаПрихода.Док;
        // ДС (
        Если Не СтрокаПрихода.Док.Метаданные().Имя = "ПоступлениеТоваровУслуг" Тогда
            ОбластьМакета.Параметры.ДатаДокумента = СтрокаПрихода.ДатаДок;
            ОбластьМакета.Параметры.НомерДокумента = СтрокаПрихода.НомерДок;
        Иначе
            ОбластьМакета.Параметры.ДатаДокумента = СтрокаПрихода.Док.ДатаВходящегоДокумента;
            ОбластьМакета.Параметры.НомерДокумента = СтрокаПрихода.Док.НомерВходящегоДокумента;
        КонецЕсли;    
        // ДС )
        ОбластьМакета.Параметры.СуммаТовара = ОбщегоНазначения.ФорматСумм(СтрокаПрихода.Приход);
        ОбластьМакета.Параметры.СуммаТары = ОбщегоНазначения.ФорматСумм(0);
        // ДС (
        Если ЗначениеЗаполнено(СтрокаПрихода.Док) Тогда
            Если ОбщегоНазначения.ЕстьРеквизитДокумента("Контрагент", СтрокаПрихода.Док.Метаданные()) Тогда
                ОбластьМакета.Параметры.Контрагент = СтрокаПрихода.Док.Контрагент;
            ИначеЕсли ТипЗнч(СтрокаПрихода.Док) = Тип("ДокументСсылка.ПеремещениеТоваров") Тогда
                ОбластьМакета.Параметры.Контрагент = СтрокаПрихода.Док.СкладОтправитель;
            Иначе
                ОбластьМакета.Параметры.Контрагент = "";
            КонецЕсли;
        Иначе
            ОбластьМакета.Параметры.Контрагент = "";
        КонецЕсли;
        ОбластьМакета.Параметры.Себестоимость = ПолучитьСебестоимостьПоДокументу(СтрокаПрихода.Док,"Приход");
        ПрихСебестоимостьВсего = ПрихСебестоимостьВсего + Число(?(ОбластьМакета.Параметры.Себестоимость = Null,0,ОбластьМакета.Параметры.Себестоимость));
        
        Если СтрокаПрихода.Док.Метаданные().Имя = "ПеремещениеТоваров" Тогда
            ОбластьМакета.Параметры.Инфо = "Отправитель: " + СтрокаПрихода.Док.СкладОтправитель + " Получатель: " + СтрокаПрихода.Док.СкладПолучатель;
        ИначеЕсли    СтрокаПрихода.Док.Метаданные().Имя = "ОприходованиеТоваров" Тогда
            ОбластьМакета.Параметры.Инфо = "Отправитель: " + СтрокаПрихода.Док.СкладОтправитель + " Получатель: " + СтрокаПрихода.Док.Склад;
        Иначе    
            ОбластьМакета.Параметры.Инфо = "";
        КонецЕсли;    

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

    Приход = ТЗПриходы.Итог("Приход");

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

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

    мТабДок.ВывестиГоризонтальныйРазделительСтраниц();

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

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

    ТЗРасходы.Сортировать("ДатаДок Возр");

    ОбластьМакета = Макет.ПолучитьОбласть("Строка");
    // ДС (
    РасхСебестоимостьВсего = 0;
    // ДС )
    Расход = 0;
    Для Каждого СтрокаРасхода Из ТЗРасходы Цикл
        ОбластьМакета.Параметры.Докум = СтрокаРасхода.Док;
        ОбластьМакета.Параметры.Расшифровка = СтрокаРасхода.Док;
        ОбластьМакета.Параметры.ДатаДокумента = СтрокаРасхода.ДатаДок;
        ОбластьМакета.Параметры.НомерДокумента = СтрокаРасхода.НомерДок;
        // ДС (
        //Если НЕ СтрокаРасхода.Док.Метаданные().Имя = "ОтчетОРозничныхПродажах" Тогда
            ОбластьМакета.Параметры.СуммаТовара = ОбщегоНазначения.ФорматСумм(СтрокаРасхода.Расход);
            Расход = Расход + СтрокаРасхода.Расход;
        //Иначе    
        //    ОбластьМакета.Параметры.СуммаТовара = ОбщегоНазначения.ФорматСумм(дсРасчитатьСуммуПоДокументу(СтрокаРасхода.Док));
        //    Расход = Расход + дсРасчитатьСуммуПоДокументу(СтрокаРасхода.Док);
        //КонецЕсли;    
        // ДС )
        ОбластьМакета.Параметры.СуммаТары = ОбщегоНазначения.ФорматСумм(0);
        // ДС (
        Если ЗначениеЗаполнено(СтрокаРасхода.Док) Тогда
            Если ОбщегоНазначения.ЕстьРеквизитДокумента("Контрагент", СтрокаРасхода.Док.Метаданные()) Тогда
                ОбластьМакета.Параметры.Контрагент = СтрокаРасхода.Док.Контрагент;
            ИначеЕсли ТипЗнч(СтрокаРасхода.Док) = Тип("ДокументСсылка.ПеремещениеТоваров") Тогда
                ОбластьМакета.Параметры.Контрагент = СтрокаРасхода.Док.СкладПолучатель;
            Иначе
                ОбластьМакета.Параметры.Контрагент = "";
            КонецЕсли;
        Иначе
            ОбластьМакета.Параметры.Контрагент = "";
        КонецЕсли;
        ОбластьМакета.Параметры.Себестоимость = ПолучитьСебестоимостьПоДокументу(СтрокаРасхода.Док,"Расход");
        РасхСебестоимостьВсего = РасхСебестоимостьВсего + Число(?(ОбластьМакета.Параметры.Себестоимость=Null,0,ОбластьМакета.Параметры.Себестоимость));
        // ДС )
        
        Если СтрокаРасхода.Док.Метаданные().Имя = "ПеремещениеТоваров" Тогда
            ОбластьМакета.Параметры.Инфо = "Отправитель: " + СтрокаРасхода.Док.СкладОтправитель + " Получатель: " + СтрокаРасхода.Док.СкладПолучатель;
        ИначеЕсли    СтрокаРасхода.Док.Метаданные().Имя = "ОприходованиеТоваров" Тогда
            ОбластьМакета.Параметры.Инфо = "Отправитель: " + СтрокаРасхода.Док.СкладОтправитель + " Получатель: " + СтрокаРасхода.Док.Склад;
        Иначе    
            ОбластьМакета.Параметры.Инфо = "";
        КонецЕсли;    
        
        мТабДок.Вывести(ОбластьМакета);
    КонецЦикла;

    //Расход = ТЗРасходы.Итог("Расход");

    ОбластьМакета = Макет.ПолучитьОбласть("ИтогоРасход");
    ОбластьМакета.Параметры.РасхСтоимостьВсего = ОбщегоНазначения.ФорматСумм(Расход);
    // ДС (
    ОбластьМакета.Параметры.РасхСебестоимостьВсего = РасхСебестоимостьВсего;
    // ДС )
    мТабДок.Вывести(ОбластьМакета);

    ОбластьМакета = Макет.ПолучитьОбласть("ОстатокКонец");
    ОбластьМакета.Параметры.ДатаКонца = "Остаток на " + Формат(ДатаКон, "ДЛФ=Д");
    //ОбластьМакета.Параметры.КонСтоимостьВсего = ОбщегоНазначения.ФорматСумм(КонОст);
    ОбластьМакета.Параметры.КонСтоимостьВсего = ОбщегоНазначения.ФорматСумм(Приход + НачОст-Расход);
    ОбластьМакета.Параметры.КонСебестоимостьСтоимостьВсего = ОбщегоНазначения.ФорматСумм(ПрихСебестоимостьВсего+Себестоимость-РасхСебестоимостьВсего);
    мТабДок.Вывести(ОбластьМакета);

    ОбластьМакета = Макет.ПолучитьОбласть("Подвал");
    ОбластьМакета.Параметры.МОЛ = ?(ЗначениеЗаполнено(ВыбМОЛ), ВыбМОЛ, "");
    мТабДок.Вывести(ОбластьМакета);

    мТабДок.ПовторятьПриПечатиСтроки = ПовторятьПриПечатиСтроки;

    НомерОтчета = НомерОтчета + 1;

КонецПроцедуры // ОбновитьОтчет()
1 Tatitutu
 
22.06.17
15:37
Доброго времени суток, заблудившийся в пути !
2 Масянька
 
22.06.17
15:40
+ (1) Бегемотик! Миленький! Выдыхай! (С)
3 RomakON
 
22.06.17
15:44
Немного напутал с названием форума :) Прошу прощения, Мистовцы! ;)
4 pessok
 
22.06.17
15:45
(3) мистяне мы
чего хотел то?
5 RomakON
 
22.06.17
15:46
(4) Подскажите пожалуйста, с решением задачи.
6 Масянька
 
22.06.17
15:53
Предлагаю "Прошу прощения, Мистовцы!" рассматривать, как оскорбление... В рамках традиции :))))
7 pessok
 
22.06.17
15:54
Если Договор.ВидДоговора = СКомитентом Тогда
Продолжить;
КонецЕсли