Имя: Пароль:
1C
1С v8
Вывести на макет текущего пользователя
0 kukulkan
 
14.03.21
17:15
Привет! Подскажите, пожалуйста.

Предприятие 8,3 УП

У меня есть документ в котором нужно вывести в подписи текущего пользователя на месте Отпустил и Получил. Спасибо за любую помощь!

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

        УправлениеПечатью.ЗадатьОбластьПечатиДокумента(ТабДокумент, НомерСтрокиНачало, ОбъектыПечати, ВыборкаПоДокументам.Ссылка);
        
    КонецЦикла;
    
    Возврат ТабДокумент;
    
КонецФункции
1 shuhard
 
14.03.21
17:17
(0) вопрос то в чем ?
2 Chameleon1980
 
14.03.21
17:37
найти и показать
3 Chameleon1980
 
14.03.21
17:38
или не
было тут как-то:
"дайте мне код наиболее оптимального решения"
4 Dotoshin
 
14.03.21
17:48