Имя: Пароль:
1C
1С v8
Отчет УПД разделить позиции
0 Яна93
 
03.09.15
16:37
Всем привет! У меня возникла небольшая проблема с отчетом УПД. В общем в реализации товаров и услуг в кладке Услуги завела несколько позиций..указав количество и цены...в итоге когда выбираю вывод на печать УПД он сгруппировывает услуги у которых одинаковая цена..я скачала внешнюю печатную форму УПД и пыталась в ней настроить группировку, но видимо я очень давно не практиковалась и не смогла убрать эту группировку...

вот код внешнего отчета универсального передаточного документа:

Функция СобратьДанныеПоРеализацияТоваровУслуг(ТекущееОснование, ДанныеСчетаФактуры)
    Перем ПодразделениеОтветственныхЛиц;

    Запрос = Новый Запрос;
    Если ТипЗнч(ТекущееОснование) = Тип("ДокументСсылка.РеализацияОтгруженныхТоваров") Тогда
        Запрос.УстановитьПараметр("ДокументОснование", ТекущееОснование.ДокументОтгрузки);
    Иначе
        Запрос.УстановитьПараметр("ДокументОснование", ТекущееОснование);
    КонецЕсли;
    Запрос.УстановитьПараметр("ПустойКонтрагент", Справочники.Ю_ГрузополучателиПетрол.ПустаяСсылка());

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

    //////|";
    "ВЫБРАТЬ
    |    РеализацияТоваровУслугТовары.Номенклатура КАК Товар,
    |    ВЫРАЗИТЬ(РеализацияТоваровУслугТовары.Номенклатура.НаименованиеПолное КАК СТРОКА(1000)) КАК ТоварНаименование,
    |    РеализацияТоваровУслугТовары.Номенклатура.Код КАК ТоварКод,
    |    РеализацияТоваровУслугТовары.Номенклатура.Артикул КАК ТоварАртикул,
    |    РеализацияТоваровУслугТовары.СтранаПроисхождения КАК СтранаПроисхождения,
    |    РеализацияТоваровУслугТовары.СтранаПроисхождения.НаименованиеПолное КАК ПредставлениеСтраны,
    |    РеализацияТоваровУслугТовары.СтранаПроисхождения.Код КАК СтранаПроисхожденияКод,
    |    РеализацияТоваровУслугТовары.Номенклатура.БазоваяЕдиницаИзмерения.Представление КАК ЕдиницаИзмерения,
    |    РеализацияТоваровУслугТовары.Номенклатура.БазоваяЕдиницаИзмерения.Код КАК ЕдиницаИзмеренияКод,
    |    РеализацияТоваровУслугТовары.НомерГТД КАК НомерГТД,
    |    РеализацияТоваровУслугТовары.НомерГТД.Представление КАК ПредставлениеГТД,
    |    Сумма(РеализацияТоваровУслугТовары.Количество) КАК Количество,
    |    Сумма(РеализацияТоваровУслугТовары.Цена) КАК Цена,
    ////|    РеализацияТоваровУслугТовары.Цена КАК Цена,
    |    РеализацияТоваровУслугТовары.СтавкаНДС КАК СтавкаНДС,
    |    Сумма(РеализацияТоваровУслугТовары.СуммаНДС) КАК СуммаНДС,
    |    Сумма(РеализацияТоваровУслугТовары.Сумма) КАК Сумма,
    |    РеализацияТоваровУслугТовары.НомерСтроки КАК НомерСтроки,
    |    ВЫБОР
    |        КОГДА РеализацияТоваровУслугТовары.СтавкаНДС = ЗНАЧЕНИЕ(Перечисление.СтавкиНДС.БезНДС)
    |            ТОГДА 0
    |        ИНАЧЕ 1
    |    КОНЕЦ КАК ЕстьНДС,
    |    ""Товары"" КАК ВидПоступления
    |ИЗ
    |    Документ.РеализацияТоваровУслуг.Товары КАК РеализацияТоваровУслугТовары
    |ГДЕ
    |    РеализацияТоваровУслугТовары.Ссылка = &ДокументОснование
    |СГРУППИРОВАТЬ ПО
    |   РеализацияТоваровУслугТовары.Номенклатура,
    |   РеализацияТоваровУслугТовары.СтранаПроисхождения,
    |   РеализацияТоваровУслугТовары.НомерГТД,
    |   РеализацияТоваровУслугТовары.Количество,
    |   Цена,
    |   СуммаНДС,
    |   Сумма,
    |   РеализацияТоваровУслугТовары.НомерСтроки,
    |   РеализацияТоваровУслугТовары.СтавкаНДС
    |";

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

        |    РеализацияТоваровУслугУслуги.Ссылка = &ДокументОснование
        |УПОРЯДОЧИТЬ ПО
        |    ВидПоступления
        //|    ";

        |    НомерСтроки";
    Иначе
        Запрос.Текст = Запрос.Текст +
        "УПОРЯДОЧИТЬ ПО
        |    НомерСтроки";

    КонецЕсли;
    
    ВыборкаСтрокТовары = Запрос.Выполнить().Выбрать();

    ДанныеДляПечати = Новый Структура();
    
    Поставщик = Шапка.Поставщик;
    Грузоотправитель = Шапка.Грузоотправитель;
    ДанныеДляПечати.Вставить("Организация",      Шапка.Организация);
    ДанныеДляПечати.Вставить("Номер",            ДанныеСчетаФактуры.Номер);
    ДанныеДляПечати.Вставить("Дата",             ДанныеСчетаФактуры.Дата);
    ДанныеДляПечати.Вставить("НомерПРД",         "");
    ДанныеДляПечати.Вставить("ДатаПРД",          "");
    ДанныеДляПечати.Вставить("Поставщик",        Поставщик);
    ДанныеДляПечати.Вставить("Грузоотправитель", Грузоотправитель);
    ДанныеДляПечати.Вставить("Покупатель",       Шапка.Покупатель);
    ДанныеДляПечати.Вставить("Грузополучатель",  Шапка.Грузополучатель);
    ДанныеДляПечати.Вставить("АдресДоставки",    Шапка.АдресДоставки);
    ДанныеДляПечати.Вставить("Сумма",            Шапка.Сумма);
    ДанныеДляПечати.Вставить("Валюта",           Шапка.Валюта);
    ДанныеДляПечати.Вставить("УчитыватьНДС",     Шапка.УчитыватьНДС);
    ДанныеДляПечати.Вставить("СуммаВключаетНДС", Шапка.СуммаВключаетНДС);
    ////ДанныеДляПечати.Вставить("Доверенность",     Шапка.Доверенность);
    
    

    Руководители = ОбщегоНазначения.ОтветственныеЛица(Шапка.Организация, ДанныеСчетаФактуры.Дата);//, ПодразделениеОтветственныхЛиц);
    ДанныеДляПечати.Вставить(?(РегламентированнаяОтчетность.ЭтоПБОЮЛ(Шапка.Поставщик), "ФИОПБОЮЛ", "ФИОРуководителя"), Руководители.РуководительПредставление);
    ДанныеДляПечати.Вставить("ФИОГлавногоБухгалтера", Руководители.ГлавныйБухгалтерПредставление);

    Товары = СоздатьТаблицуДляЗаполнениеТабличнойЧастиДанныхПечати();
    
    ЕстьТовары = Ложь;
    ЕстьУслуги = Ложь;
    СчетФактураБезНДС = (ВыборкаСтрокТовары.Количество() > 0);

    Пока ВыборкаСтрокТовары.Следующий() = 1 Цикл

        ЕстьТовары = ЕстьТовары ИЛИ (ВыборкаСтрокТовары.ВидПоступления = "Товары");
        ЕстьУслуги = ЕстьУслуги ИЛИ (ВыборкаСтрокТовары.ВидПоступления = "Услуги") ИЛИ (ВыборкаСтрокТовары.ВидПоступления = "АгентскиеУслуги");
        СчетФактураБезНДС = СчетФактураБезНДС И (ВыборкаСтрокТовары.ЕстьНДС = 0);
        
        Строчка = Товары.Добавить();
        Строчка.Товар                  = ВыборкаСтрокТовары.Товар;
        Строчка.ТоварНаименование      = СокрЛП(ВыборкаСтрокТовары.ТоварНаименование);
        Строчка.ТоварКод               = ВыборкаСтрокТовары.ТоварКод;
        Строчка.ТоварАртикул           = ВыборкаСтрокТовары.ТоварАртикул;
        Строчка.СтранаПроисхождения    = ВыборкаСтрокТовары.СтранаПроисхождения;
        Строчка.ПредставлениеСтраны    = ?(НЕ ЗначениеЗаполнено(ВыборкаСтрокТовары.ПредставлениеСтраны),
                                                ВыборкаСтрокТовары.СтранаПроисхождения, ВыборкаСтрокТовары.ПредставлениеСтраны);
        Строчка.СтранаПроисхожденияКод = ВыборкаСтрокТовары.СтранаПроисхожденияКод;
        Строчка.НомерГТД               = ВыборкаСтрокТовары.НомерГТД;
        Строчка.ПредставлениеГТД       = ВыборкаСтрокТовары.ПредставлениеГТД;
        Строчка.Количество             = ВыборкаСтрокТовары.Количество;
        Строчка.ЕдиницаИзмерения       = ВыборкаСтрокТовары.ЕдиницаИзмерения;
        Строчка.ЕдиницаИзмеренияКод    = ВыборкаСтрокТовары.ЕдиницаИзмеренияКод;
        Строчка.Цена                   = ВыборкаСтрокТовары.Цена;
        Строчка.СтавкаНДС              = ВыборкаСтрокТовары.СтавкаНДС;
        Строчка.СуммаНДС               = ВыборкаСтрокТовары.СуммаНДС;
        Строчка.Сумма                  = ВыборкаСтрокТовары.Сумма;
        
    КонецЦикла;
    
    ДанныеДляПечати.Вставить("ТабличнаяЧасть",         Товары);
    ДанныеДляПечати.Вставить("СчетФактураБезНДС",     СчетФактураБезНДС);
    
    // Параметры для универсального передаточного документа
    //Если ЗначениеЗаполнено(Шапка.ОтпускПроизвел) Тогда
    //    ДанныеДляПечати.Вставить("ФИОКладовщика", ОбщегоНазначения.ФамилияИнициалыФизЛица(Шапка.ОтпускПроизвел));
    //    ДанныеПодотчетногоЛица = ОбщегоНазначения.ДанныеФизЛица(Шапка.Организация, Шапка.ОтпускПроизвел, ДанныеСчетаФактуры.Дата);
    //    Если ЗначениеЗаполнено(ДанныеПодотчетногоЛица.Должность) Тогда
    //        ДанныеДляПечати.Вставить("ДолжностьКладовщика", "" + ДанныеПодотчетногоЛица.Должность);
    //    Иначе
    //        ДанныеДляПечати.Вставить("ДолжностьКладовщика", "");
    //    КонецЕсли;
    //ИначеЕсли ЗначениеЗаполнено(Шапка.Склад) И ЕстьТовары Тогда
     Если ЗначениеЗаполнено(Шапка.Склад) Тогда
        Срез = РегистрыСведений.ОтветственныеЛица.СрезПоследних(ДанныеСчетаФактуры.Дата, Новый Структура("СтруктурнаяЕдиница", Шапка.Склад));
        Если Срез.Количество() > 0 Тогда
            ДанныеПодотчетногоЛица = ОбщегоНазначения.ДанныеФизЛица(Шапка.Организация, Срез[0].ФизическоеЛицо, ДанныеСчетаФактуры.Дата);
            ДанныеДляПечати.Вставить("ФИОКладовщика", "" + ДанныеПодотчетногоЛица.Представление);
            ДанныеДляПечати.Вставить("ДолжностьКладовщика", "" + ДанныеПодотчетногоЛица.Должность);
        Иначе
            ДанныеДляПечати.Вставить("ФИОКладовщика", "");
            ДанныеДляПечати.Вставить("ДолжностьКладовщика", "");
        КонецЕсли;
    ИначеЕсли ЕстьУслуги Тогда
        Если ЗначениеЗаполнено(Шапка.Руководитель) И Шапка.Руководитель <> Руководители.Руководитель Тогда
            ДанныеПодотчетногоЛица = ОбщегоНазначения.ДанныеФизЛица(Шапка.Организация, Шапка.Руководитель, ДанныеСчетаФактуры.Дата);
            ФИОРуководителя = ОбщегоНазначения.ФамилияИнициалыФизЛица(Шапка.Руководитель) + " " + Шапка.ЗаРуководителяПоПриказу;
            ДанныеДляПечати.Вставить("ФИОКладовщика",        ФИОРуководителя);
            ДанныеДляПечати.Вставить("ДолжностьКладовщика", "" + ДанныеПодотчетногоЛица.Должность);
        Иначе
            ДанныеДляПечати.Вставить("ФИОКладовщика",       Руководители.РуководительПредставление);
            ДанныеДляПечати.Вставить("ДолжностьКладовщика", Руководители.РуководительДолжность);
        КонецЕсли;
    Иначе
        ДанныеДляПечати.Вставить("ФИОКладовщика", "");
        ДанныеДляПечати.Вставить("ДолжностьКладовщика", "");
    КонецЕсли;


    
    

    Возврат ДанныеДляПечати;

КонецФункции // СобратьДанныеПоРеализацияТоваровУслуг()
Здесь можно обсудить любую тему при этом оставаясь на форуме для 1Сников, который нужен для работы. Ymryn