Привет! Подскажите, было обновление релиза но в самом конце видимо забыла нажать на F7 и теперь не могу ни назад откатить ни новый релиз сделать потому что выходит ошибка: Обнаружено логическое завершение исходного текста модуля Что можно сделать? Спасибо!
Привет! 1С Предприятие 8.3 Подскажите, как вывести на макет документа ФИО МОЛ из склада. Все мои варианты не подходят, так что оставлю только это. Спасибо за любую помощь!
Если ПараметрыОтчета.ВыводитьПодписиРуководителей Тогда
Если ПараметрыОтчета.СписокСтруктурныхЕдиниц.Количество() > 0 Тогда ИскомаяОрганизация = ПараметрыОтчета.СписокСтруктурныхЕдиниц[0].Значение; Иначе ИскомаяОрганизация = Справочники.Организации.ПустаяСсылка(); КонецЕсли;
Если НЕ ЗначениеЗаполнено(ИскомаяОрганизация) Тогда ИскомаяОрганизация = ПользователиБКВызовСервераПовтИсп.ПолучитьЗначениеПоУмолчанию(Пользователи.ТекущийПользователь(),"ОсновнаяОрганизация");
КонецЕсли;
Если ЗначениеЗаполнено(ИскомаяОрганизация) Тогда ОтветЛица = ОбщегоНазначенияБКВызовСервера.ОтветственныеЛицаОрганизаций(ИскомаяОрганизация, КонецДня(ПараметрыОтчета.КонецПериода)); Если НЕ ЗначениеЗаполнено(ОтветЛица.РуководительДолжность) Тогда ОтветЛица.РуководительДолжность = НСтр("ru = 'Руководитель'"); КонецЕсли; Если НЕ ЗначениеЗаполнено(ОтветЛица.ГлавныйБухгалтерДолжность) Тогда ОтветЛица.ГлавныйБухгалтерДолжность = НСтр("ru = 'Главный бухгалтер'"); КонецЕсли;
ОбластьРуководители.Параметры.Заполнить(ОтветЛица); Иначе ОтветЛица = Новый Структура("РуководительДолжность, ГлавныйБухгалтерДолжность", НСтр("ru = 'Руководитель'"), НСтр("ru = 'Главный бухгалтер'")); КонецЕсли; ОбластьРуководители.Параметры.Заполнить(ОтветЛица);
Результат.Вывести(ОбластьРуководители);
КонецЕсли;
// попытаемся определить ответственного по складу, если отбор установлен ОтборПоСкладу = Неопределено; ИскомыйСклад = Неопределено; Для Каждого ЭлементОтбора Из ПараметрыОтчета.НастройкиКомпоновкиДанных.Отбор.Элементы Цикл Если ТипЗнч(ЭлементОтбора) = Тип("ЭлементОтбораКомпоновкиДанных") И ВРег(ЭлементОтбора.ЛевоеЗначение) = "СКЛАД" Тогда ОтборПоСкладу = ЭлементОтбора; Прервать; КонецЕсли; КонецЦикла;
Если ОтборПоСкладу <> Неопределено И ОтборПоСкладу.Использование Тогда
Склады = ОтборПоСкладу.ПравоеЗначение;
// в отборе может присутствовать список складов Если ТипЗнч(Склады) = Тип("СписокЗначений") Тогда Если Склады.Количество() > 0 Тогда ИскомыйСклад = Склады[0].Значение; КонецЕсли; ИначеЕсли ТипЗнч(Склады) = Тип("СправочникСсылка.Склады") Тогда ИскомыйСклад = Склады; КонецЕсли; КонецЕсли;
// если ничего не нашли, то берем из настроек пользователя Если Не ЗначениеЗаполнено(ИскомыйСклад) Тогда ИскомыйСклад = ПользователиБКВызовСервераПовтИсп.ПолучитьЗначениеПоУмолчанию(Пользователи.ТекущийПользователь(), "ОсновнойСклад"); КонецЕсли;
ОтветЛицо = ПрочитатьОтветственноеЛицо(ИскомыйСклад); Если Не ОтветЛицо = Неопределено Тогда ОбластьМОЛ.Параметры.ОтветственноеЛицо = ОбщегоНазначенияБК.ФамилияИнициалыФизЛица(ОтветЛицо); КонецЕсли; ПодписиМол = Макет.ПолучитьОбласть("ПодписиМол"); ПодписиМОЛ.Параметры.ТекущийПользователь = //Пользователи.ТекущийПользователь(); ПользователиИнформационнойбазы.ТекущийПользователь(); Результат.Вывести(ОбластьМОЛ);
КонецПроцедуры Функция ПолучитьТекущегоПользователя () Экспорт п = ПользователиИнформационнойБазы.ТекущийПользователь(); польз = Справочники.Пользователи.НайтиПоНаименованию(п.Имя); Если польз = Справочники.Пользователи.ПустаяСсылка() Тогда Возврат -1; Иначе Возврат Справочники.Пользователи.НайтиПоНаименованию(п.Имя); КонецЕсли; КонецФункции
Привет! Как сделать, чтобы для пользователя1 при открытии программы отображался только раздел "Банк и касса", для пользователя2 отображался только раздел "Склад", а для пользователя3 отображались все разделы? Спасибо!
я понимаю.что проблема в том,что в макете нет МОЛотправителя, но в макете он есть. в старом релизе все работает. а вот в новом при регистрации внешнего отчета выдает ошибку. спасибо за любую помощь!
1С Предприятие 8.3, 1С Предприятие 8.2, 1С Предприятие 8.1, 1С Предприятие 8.0, 1С Предприятие 7.7, Литература 1С, Общие вопросы по администрированию 1С, Методическая поддержка 1С - всё в одном месте: на Украинском 1С форуме!