Имя: Пароль:
1C
 
Запрет сохранения отчетов в файл из 1с в возможностью печать
0 Sova112
 
17.02.16
19:18
Пишу примерно следующее, но все равно не работает
Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка)
    
    ДокументРезультат.ЗакончитьАвтогруппировкуСтрок();//Завершение группировки строк
    

    // Выводим результат отчета в табличный документ "ДокументРезультат"
    ПроцессорВывода = Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВТабличныйДокумент;
    ПроцессорВывода.УстановитьДокумент(ДокументРезультат);        
    ПроцессорВывода.Вывести(ПроцессорКомпоновки);
      
      ДокументРезультат.Защита = Истина;
ДокументРезультат.ТолькоПросмотр = Истина;

КонецПроцедуры
1 Fragster
 
гуру
17.02.16
19:19
СтандартнаяОбработка = Ложь?
2 orangekrs
 
17.02.16
19:21
Защита комм.тайны ) ?
3 Sova112
 
17.02.16
19:26
(1) сделал ложь тоже самое
4 Sova112
 
17.02.16
20:19
аууу
5 Мимохожий Однако
 
17.02.16
20:23
Убери полные права
6 Sova112
 
17.02.16
21:14
(5) убрала, тоже самое
7 Мимохожий Однако
 
17.02.16
21:18
Какая хоть конфигурация? У меня кофе кончилось гадать.
8 Lexey_
 
18.02.16
00:10
(0) "но все равно не работает"
А с чего вдруг свойства, влияющие на редактирование табдока, будут запрещать сохранение в файл(Вывод)?
9 Sova112
 
18.02.16
21:28
(8) а как запретить в файл(Вывод)?
10 Мимохожий Однако
 
18.02.16
21:49
Вывод.ИспользованиеВывода.Запретить
11 Sova112
 
24.02.16
23:03
пишу вот так вот, ничего не срабатывает
ПараметрВидыЦен  = КомпоновкаДанныхКлиентСервер.ПолучитьПараметр(КомпоновщикНастроек.Настройки,"ВидыЦен");
    
    Если ПараметрВидыЦен = Неопределено Тогда
        Возврат;
    КонецЕсли;
    ПараметрВидыЦен.Значение      = Новый Массив;
    ПараметрВидыЦен.Использование = Ложь;
    
    ПараметрВидыЦен  = КомпоновкаДанныхКлиентСервер.ПолучитьПараметр(КомпоновщикНастроек.ФиксированныеНастройки, "ВидыЦен");
    ПараметрВидыЦен.Значение = Справочники.ВидыЦен.ДоступныеВидыЦен();
    ПараметрВидыЦен.Использование = Истина;
    
    СегментыСервер.ВключитьОтборПоСегментуНоменклатурыВСКД(КомпоновщикНастроек);
    
    АссортиментСервер.ВключитьОтборПоАссортиментуВСКД(КомпоновщикНастроек);
    
    
    СтандартнаяОбработка = Ложь; // Отключаем стандартную обработку
    Настройки = КомпоновщикНастроек.ПолучитьНастройки(); // Получаем настройки отчета
    
    // Изменяем отборы по пользовательским настройкам
    ТаблицаОтборов = КомпоновщикНастроек.ПользовательскиеНастройки.Элементы;
    Для Каждого ЭлементОтбора Из КомпоновщикНастроек.Настройки.Отбор.Элементы Цикл        
        НайденнаяПользовательскаяНастройка =
            ТаблицаОтборов.Найти(ЭлементОтбора.ИдентификаторПользовательскойНастройки);        
        Если НайденнаяПользовательскаяНастройка <>  Неопределено Тогда
            ЭлементОтбора.ВидСравнения = НайденнаяПользовательскаяНастройка.ВидСравнения;
            ЭлементОтбора.Использование = НайденнаяПользовательскаяНастройка.Использование;
            ЭлементОтбора.ПравоеЗначение = НайденнаяПользовательскаяНастройка.ПравоеЗначение;
        КонецЕсли;        
    КонецЦикла;
        
    ДанныеРасшифровки = Новый ДанныеРасшифровкиКомпоновкиДанных;              
    КомпоновщикМакета = Новый КомпоновщикМакетаКомпоновкиДанных;        
    
    // Создаем макет компоновки данных
    СхемаКомпоновкиДанных = ПолучитьМакет("ОсновнаяСхемаКомпоновкиДанных");
    МакетКомпоновки =
        КомпоновщикМакета.Выполнить(СхемаКомпоновкиДанных, Настройки, ДанныеРасшифровки);
      
    // Инициализируем процессор компоновки
    ПроцессорКомпоновки = Новый ПроцессорКомпоновкиДанных;
    ПроцессорКомпоновки.Инициализировать(МакетКомпоновки, , ДанныеРасшифровки);
    
    ДокументРезультат.Очистить(); // Очистка результатирующего табличного документа
    
    // Получаем дополнительный макет с описанием вывода логотипа
    МакетЛоготип = ПолучитьМакет("Логотип");
    // Получаем область верхнего уровня для сворачивания логотипа
    ОбластьСвернуть = МакетЛоготип.ПолучитьОбласть("ОбластьСвернуть");
    // Получаем область логотипа
    Область = МакетЛоготип.ПолучитьОбласть("ОбластьЛоготип");
    
    ДокументРезультат.НачатьАвтогруппировкуСтрок();   //Начало группировки строк
    ДокументРезультат.Вывести(ОбластьСвернуть, 1);    // Вывод строки группировки на 1 уровне
    
    Менеджер = ПараметрыСеанса.ТекущийПользователь;
    
    ТелМенеджера = ПолучитьКонтакт(Менеджер, Справочники.ВидыКонтактнойИнформации.ТелефонПользователя, Перечисления.ТипыКонтактнойИнформации.Телефон);
    МобТелМенеджера = ПолучитьКонтакт(Менеджер, Справочники.ВидыКонтактнойИнформации.CRM_МобильныйТелефонПользователя, Перечисления.ТипыКонтактнойИнформации.Телефон);
    ПочтаМенеджера = ПолучитьКонтакт(Менеджер, Справочники.ВидыКонтактнойИнформации.EmailПользователя, Перечисления.ТипыКонтактнойИнформации.АдресЭлектроннойПочты);
    
    Область.Параметры.Менеджер = Менеджер;
    Область.Параметры.ТелМенеджера = ТелМенеджера;
    Область.Параметры.МобТелМенеджера = МобТелМенеджера;
    Область.Параметры.ПочтаМенеджера = ПочтаМенеджера;
    
    
    ДокументРезультат.Вывести(Область,         2);    // Вывод логотипа на втором уровне группировки
    

    
    ДокументРезультат.ЗакончитьАвтогруппировкуСтрок();//Завершение группировки строк
    
    //ДокументРезультат = Новый табличныйДокумент;
    // Выводим результат отчета в табличный документ "ДокументРезультат"
    ПроцессорВывода = Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВТабличныйДокумент;
    ПроцессорВывода.УстановитьДокумент(ДокументРезультат);        
    ПроцессорВывода.Вывести(ПроцессорКомпоновки);
    СтандартнаяОбработка = Ложь;
    ДокументРезультат.Защита = Истина;
    ДокументРезультат.ТолькоПросмотр = Истина;
    ДокументРезультат.Вывод = ИспользованиеВывода.Запретить;
//Вывод.ИспользованиеВывода.Запретить
12 Записьдампа
 
25.02.16
00:36
(11) Есть сильное подозрение, что элемент формы, куда попадает твой документ, имеет другое мнение по поводу защиты.
13 Sova112
 
25.02.16
07:07
(12), а как найти его мнения?)
кнопка сохранить как не работает, но работает сохранить
14 Рэйв
 
25.02.16
07:12
(0)Скриншоты не забудь тоже забанить:-)

Кому надо -  обойдет все равно твои защиты.
15 zak555
 
25.02.16
07:22
(14) +1

ещё запретить ручку и бумагу, а то перепишут цифры
16 Записьдампа
 
25.02.16
07:26
(13) Даже не знаю. Посмотреть на его реквизиты? Да ну, бред какой-то.
17 Записьдампа
 
25.02.16
07:27
И попробуй ставить эти реквизиты на клиенте, уже после того, как все случилось.
Оптимист верит, что мы живем в лучшем из миров. Пессимист боится, что так оно и есть.