Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
22 ноя 2024, 13:19

Печатная форма распечатать всех сотрудников если не один не выбран.

Автор Silent_Assassin, 23 июн 2013, 14:08

0 Пользователей и 1 гость просматривают эту тему.

Besart

Цитата: Silent_Assassin от 24 июн 2013, 01:29Первый код вставлять в модуль менеджера спарвочника физические лица печать?
я не знаю откуда вы вызываете экспортную процедуру, сегодня беда с телепатическими волнами :D, ваш код в модуле менеджера откуда то вызывается, т.к. процедура экспортная и в нее передаются параметры - ТабДок и Ссылка, так что в модуль менеджера никак, ищите откуда вызываете туда и вставляйте. только код к\й там уже есть не трогайте, а просто дополните

Silent_Assassin

Цитата: Besart от 24 июн 2013, 01:33
Цитата: Silent_Assassin от 24 июн 2013, 01:29Первый код вставлять в модуль менеджера спарвочника физические лица печать?
я не знаю откуда вы вызываете экспортную процедуру, сегодня беда с телепатическими волнами :D, откуда вызываете туда и вставляйте. только код к\й там уже есть не трогайте, а просто дополните
Справочник физ лица, команды печать
Вот код:&НаКлиенте
Процедура ОбработкаКоманды(ПараметрКоманды, ПараметрыВыполненияКоманды)
//{{_КОНСТРУКТОР_ПЕЧАТИ(Печать)
ТабДок = Новый ТабличныйДокумент;
Печать(ТабДок, ПараметрКоманды);

ТабДок.ОтображатьСетку = Ложь;
ТабДок.Защита = Ложь;
ТабДок.ТолькоПросмотр = Ложь;
ТабДок.ОтображатьЗаголовки = Ложь;
ТабДок.Показать();
//}}
КонецПроцедуры

&НаСервере
Процедура Печать(ТабДок, ПараметрКоманды)
Справочники.ФизическиеЛица.Печать(ТабДок, ПараметрКоманды);
КонецПроцедуры





Besart

&НаКлиенте
Процедура ОбработкаКоманды(ПараметрКоманды, ПараметрыВыполненияКоманды)
    //{{_КОНСТРУКТОР_ПЕЧАТИ(Печать)
    ТабДок = Новый ТабличныйДокумент;
    Режим = РежимДиалогаВопрос.ДаНет;
    Ответ = Вопрос("Печатать всех сотрудников или только выбранного?", Режим);
    Если Ответ = КодВозвратаДиалога.Да Тогда
        П = "ГДЕ ФизическиеЛица.Ссылка В(&Ссылка)";
    Иначе
        П = "";
    КонецЕсли;
   
    Печать(ТабДок, ПараметрКоманды, П);

    ТабДок.ОтображатьСетку = Ложь;
    ТабДок.Защита = Ложь;
    ТабДок.ТолькоПросмотр = Ложь;
    ТабДок.ОтображатьЗаголовки = Ложь;
    ТабДок.Показать();
    //}}
КонецПроцедуры

&НаСервере
Процедура Печать(ТабДок, ПараметрКоманды,  П)
    Справочники.ФизическиеЛица.Печать(ТабДок, ПараметрКоманды, П);
КонецПроцедуры

Silent_Assassin



Теги:

Похожие темы (5)

Рейтинг@Mail.ru

Поиск