[РЕШЕНО] Ограничить печать документа

Тема в разделе "Общие вопросы "1С:Предприятие 8"", создана пользователем avangarddv, 6 фев 2015.

0/5, Голосов: 0
  1. TopicStarter Overlay
    avangarddv
    Offline

    avangarddv

    Регистрация:
    22 апр 2014
    Сообщения:
    19
    Симпатии:
    0
    Баллы:
    1
    Добрый день!

    1С 8.2. Унф 1.3. Возникла задача в документе - Расходная накладная, ограничить печать не проведенных документов. т.е. все непроверенные документы - запретить печатать. Пытаюсь в модуле - формы документы, сделать следующее:

    Код:
    &НаСервере
Процедура ЗапретПроведенияДок()
     Если Объект.Проведен = Истина Тогда
        Элементы.ФормаКоманднаяПанель.Доступность=Истина;      
    Иначе
        Элементы.ФормаКоманднаяПанель.Доступность=Ложь;
    КонецЕсли
КонецПроцедуры   


&НаКлиенте
Процедура ВыполнКонтрПроведенияДок()
    ЗапретПроведенияДок();   
КонецПроцедуры
    Но, таким образом - скрывается вся Форма Командной панели. Как ограничить доступ только к печати?


    Help.
    avangarddv, 6 фев 2015
    #1
  2. rshakiro
    Offline

    rshakiro Профессионал в 1С Команда форума

    Регистрация:
    17 мар 2011
    Сообщения:
    2.261
    Симпатии:
    145
    Баллы:
    104
    Запретить формирование ТабличныйДокумент при Вашем условии не проще?
    rshakiro, 6 фев 2015
    #2
  3. TopicStarter Overlay
    avangarddv
    Offline

    avangarddv

    Регистрация:
    22 апр 2014
    Сообщения:
    19
    Симпатии:
    0
    Баллы:
    1
    Наверно проще :) Подскажите, как это сделать? где именно это в конфигураторе?
    avangarddv, 6 фев 2015
    #3
  4. rshakiro
    Offline

    rshakiro Профессионал в 1С Команда форума

    Регистрация:
    17 мар 2011
    Сообщения:
    2.261
    Симпатии:
    145
    Баллы:
    104
    Укажите конфигурацию и документ
    rshakiro, 6 фев 2015
    #4
  5. TopicStarter Overlay
    avangarddv
    Offline

    avangarddv

    Регистрация:
    22 апр 2014
    Сообщения:
    19
    Симпатии:
    0
    Баллы:
    1
    1С 8.2, УНФ 1.3.1.4 - Документ Расходная Накладная и там все печати
    avangarddv, 6 фев 2015
    #5
  6. rshakiro
    Offline

    rshakiro Профессионал в 1С Команда форума

    Регистрация:
    17 мар 2011
    Сообщения:
    2.261
    Симпатии:
    145
    Баллы:
    104
    нет такой конфы в наличии :( Посмотрите в модуле менеджера документа, там имеются нужные Вам функции печати
    rshakiro, 6 фев 2015
    #6
  7. alexburn
    Offline

    alexburn Модераторы Команда форума Модератор

    Регистрация:
    5 янв 2009
    Сообщения:
    15.150
    Симпатии:
    559
    Баллы:
    204
    Печать располагается в менеджере объекта. Нужно перед передачей ссылки на док проверять на проведение.
    alexburn, 6 фев 2015
    #7
  8. TopicStarter Overlay
    avangarddv
    Offline

    avangarddv

    Регистрация:
    22 апр 2014
    Сообщения:
    19
    Симпатии:
    0
    Баллы:
    1
    Да, там 2 функции ПолучитьДанныеПечати и ПечатнаяФорма

    И процедура - Печать - которая выводит макеты.


    Подскажите пожалуйста условие.. Если ... Тогда... КонецЕсли
    avangarddv, 6 фев 2015
    #8
  9. alexburn
    Offline

    alexburn Модераторы Команда форума Модератор

    Регистрация:
    5 янв 2009
    Сообщения:
    15.150
    Симпатии:
    559
    Баллы:
    204
    Если СсылкаНаДок.Проведен Тогда
    Бла-бла-бла
    КонецЕсли.
    alexburn, 6 фев 2015
    #9
  10. rshakiro
    Offline

    rshakiro Профессионал в 1С Команда форума

    Регистрация:
    17 мар 2011
    Сообщения:
    2.261
    Симпатии:
    145
    Баллы:
    104
    Попробуйте в Процедуре Печать() прописать:
    Код:
    Процедура Печать()
Если Объект.Проведен = Истина Тогда
//строки процедуры без изменения
Иначе
СообщениеПользователю("Нельзя распечатать непроведенный док!!");
КонецЕсли
КонецПроцедуры
    rshakiro, 6 фев 2015
    #10
  11. TopicStarter Overlay
    avangarddv
    Offline

    avangarddv

    Регистрация:
    22 апр 2014
    Сообщения:
    19
    Симпатии:
    0
    Баллы:
    1

    Пытался так сделать, отладчик ругается:

    Код:
    {Документ.РасходнаяНакладная.МодульМенеджера(4769,7)}: Переменная не определена (Объект)
    Если <<?>>Объект.Проведен = Истина Тогда              (Проверка: Сервер)
    также когда пишу - Объект и ctrl + пробел, то отладчик не подсвечивает результат
    avangarddv, 6 фев 2015
    #11
  12. TopicStarter Overlay
    avangarddv
    Offline

    avangarddv

    Регистрация:
    22 апр 2014
    Сообщения:
    19
    Симпатии:
    0
    Баллы:
    1
    Сама процедура Печать:
    Код:
    Процедура Печать(МассивОбъектов,
                 ПараметрыПечати,
                 КоллекцияПечатныхФорм,
                 ОбъектыПечати,
                 ПараметрыВывода) Экспорт

    ПараметрыВывода.ДоступнаПечатьПоКомплектно = Истина;
          
  
    Если УправлениеПечатью.НужноПечататьМакет(КоллекцияПечатныхФорм, "Накладная") Тогда
        УправлениеПечатью.ВывестиТабличныйДокументВКоллекцию(КоллекцияПечатныхФорм, "Накладная", "Расходная накладная", ПечатнаяФорма(МассивОбъектов, ОбъектыПечати, "Накладная"));
    КонецЕсли;
  
    Если УправлениеПечатью.НужноПечататьМакет(КоллекцияПечатныхФорм, "ТОРГ12") Тогда
        УправлениеПечатью.ВывестиТабличныйДокументВКоллекцию(КоллекцияПечатныхФорм, "ТОРГ12", "Расходная накладная", ПечатнаяФорма(МассивОбъектов, ОбъектыПечати, "ТОРГ12"));
    КонецЕсли;
  
    Если УправлениеПечатью.НужноПечататьМакет(КоллекцияПечатныхФорм, "НакладнаяСУслугами") Тогда
        УправлениеПечатью.ВывестиТабличныйДокументВКоллекцию(КоллекцияПечатныхФорм, "НакладнаяСУслугами", "Расходная накладная", ПечатнаяФорма(МассивОбъектов, ОбъектыПечати, "НакладнаяСУслугами"));
    КонецЕсли;
  
    Если УправлениеПечатью.НужноПечататьМакет(КоллекцияПечатныхФорм, "ТОРГ12СУслугами") Тогда
        УправлениеПечатью.ВывестиТабличныйДокументВКоллекцию(КоллекцияПечатныхФорм, "ТОРГ12СУслугами", "Расходная накладная", ПечатнаяФорма(МассивОбъектов, ОбъектыПечати, "ТОРГ12СУслугами"));
    КонецЕсли;
  
    Если УправлениеПечатью.НужноПечататьМакет(КоллекцияПечатныхФорм, "АктОбОказанииУслуг") Тогда
        УправлениеПечатью.ВывестиТабличныйДокументВКоллекцию(КоллекцияПечатныхФорм, "АктОбОказанииУслуг", "Расходная накладная", ПечатнаяФорма(МассивОбъектов, ОбъектыПечати, "АктОбОказанииУслуг"));
    КонецЕсли;
  
    Если УправлениеПечатью.НужноПечататьМакет(КоллекцияПечатныхФорм, "ТТН") Тогда
        УправлениеПечатью.ВывестиТабличныйДокументВКоллекцию(КоллекцияПечатныхФорм, "ТТН", "Товарно-транспортная накладная", Обработки.ПечатьТТН.Создать().ПечатнаяФорма(МассивОбъектов, ОбъектыПечати, ПараметрыПечати));
    КонецЕсли;
  
    Если УправлениеПечатью.НужноПечататьМакет(КоллекцияПечатныхФорм, "М15") Тогда
        УправлениеПечатью.ВывестиТабличныйДокументВКоллекцию(КоллекцияПечатныхФорм, "М15", "Накладная на отпуск материалов на сторону", ПечатнаяФорма(МассивОбъектов, ОбъектыПечати, "М15"));
    КонецЕсли;
  
    Если УправлениеПечатью.НужноПечататьМакет(КоллекцияПечатныхФорм, "БланкТоварногоНаполнения") Тогда
        УправлениеПечатью.ВывестиТабличныйДокументВКоллекцию(КоллекцияПечатныхФорм, "БланкТоварногоНаполнения", "Бланк товарного наполнения", ПечатнаяФорма(МассивОбъектов, ОбъектыПечати, "БланкТоварногоНаполнения"));
    КонецЕсли;
  
    Если УправлениеПечатью.НужноПечататьМакет(КоллекцияПечатныхФорм, "ТОРГ12_Москва") Тогда
        УправлениеПечатью.ВывестиТабличныйДокументВКоллекцию(КоллекцияПечатныхФорм, "ТОРГ12_Москва", "Расходная накладная", ПечатнаяФорма(МассивОбъектов, ОбъектыПечати, "ТОРГ12_Москва"));
    КонецЕсли;
  
  
КонецПроцедуры

    Пытался в начале делать так:
    Код:
    ВыбрДок = Документы.РасходнаяНакладная.Выбрать();

Если ВыбрДок.Проведен=Истина Тогда
// Далее идут условия печати
    Но все равно ошибка:
    Код:
    {ОбщийМодуль.УправлениеПечатью.Модуль(29)}: В обработчике печати не был сформирован табличный документ для: Накладная
        ВызватьИсключение(ТекстСообщенияОбОшибке);
    avangarddv, 6 фев 2015
    #12
  13. rshakiro
    Offline

    rshakiro Профессионал в 1С Команда форума

    Регистрация:
    17 мар 2011
    Сообщения:
    2.261
    Симпатии:
    145
    Баллы:
    104
    Вам МассивОбъектов проверить на условие, либо переменной Объект присвоить Ссылку на Ваш документ
    rshakiro, 6 фев 2015
    #13
  14. alexburn
    Offline

    alexburn Модераторы Команда форума Модератор

    Регистрация:
    5 янв 2009
    Сообщения:
    15.150
    Симпатии:
    559
    Баллы:
    204
    Вы хотя бы не тупо код копировал, а разобрались бы что по чем.
    alexburn, 6 фев 2015
    #14
  15. TopicStarter Overlay
    avangarddv
    Offline

    avangarddv

    Регистрация:
    22 апр 2014
    Сообщения:
    19
    Симпатии:
    0
    Баллы:
    1
    Вообще не понял, подскажите, как присвоить ссылку на документ?

    Вот я и пытаюсь :)
    avangarddv, 6 фев 2015
    #15
  16. alexburn
    Offline

    alexburn Модераторы Команда форума Модератор

    Регистрация:
    5 янв 2009
    Сообщения:
    15.150
    Симпатии:
    559
    Баллы:
    204
    Для этого книжки есть :)
    alexburn, 6 фев 2015
    #16
  17. TopicStarter Overlay
    avangarddv
    Offline

    avangarddv

    Регистрация:
    22 апр 2014
    Сообщения:
    19
    Симпатии:
    0
    Баллы:
    1
    Форумы тоже некто не отменял)) сорри за оф.топ
    avangarddv, 6 фев 2015
    #17
  18. rshakiro
    Offline

    rshakiro Профессионал в 1С Команда форума

    Регистрация:
    17 мар 2011
    Сообщения:
    2.261
    Симпатии:
    145
    Баллы:
    104
    Можно так пройтись:
    Код:
    Для Каждого Эл Из МассивОбъектов Цикл
    Сообщить(Эл); //Эл - ссылка на документ
КонецЦикла;
    rshakiro, 6 фев 2015
    #18
  19. TopicStarter Overlay
    avangarddv
    Offline

    avangarddv

    Регистрация:
    22 апр 2014
    Сообщения:
    19
    Симпатии:
    0
    Баллы:
    1

    Спасибо, прошелся отладчиком, посмотрел что попадает в ТекущийДокумент Из МассивОбъектов ( - Эл - ), и увидел там Проведен :)

    Дальше поставил условие.

    Еще раз благодарю! :)
    avangarddv, 6 фев 2015
    #19
Похожие темы
  1. Rudaki

    7.7 Печать документа

    Rudaki, 11 окт 2007, в разделе: Конфигурирование на платформе "1С:Предприятие 7.7"
    Ответов:
    5
    Просмотров:
    1.814
    bama_man
    15 окт 2007
  2. Alla

    8.х Печать документа

    Alla, 10 апр 2008, в разделе: Общие вопросы "1С:Предприятие 8"
    Ответов:
    1
    Просмотров:
    830
    BabySG
    12 апр 2008
Загрузка...