7.7 Почему сразу уходит на принтер?

Тема в разделе "Типовые решения "1С:Предприятие 7.7"", создана пользователем moroz34, 4 июн 2014.

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

    moroz34

    Регистрация:
    3 апр 2012
    Сообщения:
    16
    Симпатии:
    0
    Баллы:
    1
    Пишу форму для справочника (номенклатура) и при нажимании кнопки ничего не показывает а сразу шлет на принтер... весь текст ниже.


    Процедура Печать(Докум, СразуНаПринтер=0, КолЭкз=1)


    ПечТабл = СоздатьОбъект("Таблица");


    // секция Заголовок

    ПечТабл.ВывестиСекцию("Заголовок");



    Если СразуНаПринтер = 0 Тогда
    ПечТабл.Опции(0,0,0,0,"ДляРеализации");

    Если глПолучитьПолномочие("РазрешитьРедактированиеТаблиц") = 0 Тогда
    ПечТабл.Защита(1);
    Иначе
    ПечТабл.Защита(0);
    КонецЕсли;
    ПечТабл.ТолькоПросмотр(1);

    ПечТабл.Показать(глНазваниеДокументаВжурнале(Докум),"");
    Иначе
    ПечТабл.ПараметрыСтраницы(,,,,,,,,,1,,);
    ПечТабл.КоличествоЭкземпляров(КолЭкз);
    ПечТабл.Напечатать(0);
    КонецЕсли;

    КонецПроцедуры // Печать()

    //*******************************************


    Процедура ПриОткрытии()

    Если ПустоеЗначение(Форма.Параметр) = 0 Тогда

    Докум = Форма.Параметр.Получить("Контекст");
    Устройство = Форма.Параметр.Получить("Устройство");
    КолвоКопий = Форма.Параметр.Получить("КоличествоКопий");

    Печать(Докум, Устройство, КолвоКопий);
    Статусвозврата(0);
    Возврат;
    КонецЕсли;


    КонецПроцедуры // ПриОткрытии()
    moroz34, 4 июн 2014
    #1
  2. Бухгалтерский угодник
    Offline

    Бухгалтерский угодник Администраторы Команда форума Администратор

    Регистрация:
    29 дек 2008
    Сообщения:
    22.500
    Симпатии:
    533
    Баллы:
    204
    Вместо напечатать используйте показать
    Бухгалтерский угодник, 4 июн 2014
    #2
  3. TopicStarter Overlay
    moroz34
    Offline

    moroz34

    Регистрация:
    3 апр 2012
    Сообщения:
    16
    Симпатии:
    0
    Баллы:
    1
    А почему условие не срабатывает Если СразуНаПринтер = 0 Тогда ?
    --- Объединение сообщений, 4 июн 2014 ---
    И как наименование выбранной номенклатуры показать в таблице?
    moroz34, 4 июн 2014
    #3
  4. GlukAl
    Offline

    GlukAl Опытный в 1С

    Регистрация:
    4 окт 2012
    Сообщения:
    195
    Симпатии:
    9
    Баллы:
    29
    а давайте посмотрим как заполняются параметры для вызова ПечатнойФормы, тогда и подумаем
    GlukAl, 4 июн 2014
    #4
  5. Бухгалтерский угодник
    Offline

    Бухгалтерский угодник Администраторы Команда форума Администратор

    Регистрация:
    29 дек 2008
    Сообщения:
    22.500
    Симпатии:
    533
    Баллы:
    204
    Какая хоть конфигурация? Какой документ?
    Бухгалтерский угодник, 4 июн 2014
    #5
  6. TopicStarter Overlay
    moroz34
    Offline

    moroz34

    Регистрация:
    3 апр 2012
    Сообщения:
    16
    Симпатии:
    0
    Баллы:
    1
    7.7 - 9.2. Открываю "номенклатура", навожу на любой товар, нажимаю кнопку, вызывающую эту программу и для распечатки должно появится название товара, который был выбран. Как это сделать?
    moroz34, 4 июн 2014
    #6
  7. Бухгалтерский угодник
    Offline

    Бухгалтерский угодник Администраторы Команда форума Администратор

    Регистрация:
    29 дек 2008
    Сообщения:
    22.500
    Симпатии:
    533
    Баллы:
    204
    Если нужна ОДНА строка - передавайте не контекст, а конкретную номенклатуру. Если помимо товара нужны еще какие-то значения (цена/количество/сумма) передавайте через параметр номер текущей строки табличной части. Или вы из СПРАВОЧНИКА хотите?
    Бухгалтерский угодник, 4 июн 2014
    #7
  8. TopicStarter Overlay
    moroz34
    Offline

    moroz34

    Регистрация:
    3 апр 2012
    Сообщения:
    16
    Симпатии:
    0
    Баллы:
    1
    Вот, открыл справочник (номенклатуру) выделил 1 (одну) строчку. Все. Нужно его название полное на печать. Ну к примеру, чтоб гарантийку распечатать на выбранный один товар.
    moroz34, 4 июн 2014
    #8
  9. Бухгалтерский угодник
    Offline

    Бухгалтерский угодник Администраторы Команда форума Администратор

    Регистрация:
    29 дек 2008
    Сообщения:
    22.500
    Симпатии:
    533
    Баллы:
    204
    В ТиС в форме списка есть кнопка печать... В конфигурации уже есть процедуры печати ценника и этикетки. Наглядный пример можно глянуть там...
    Вот, к примеру, печать ценника

    Процедура ПечатьЦенника() Экспорт
    Перем ПечЕдиница, ПечНаименование, ПечРозн;
    Перем Таб;
    Перем Столбик;
    Перем Ряд;
    Перем Процент, ПорядокОкр;

    Перем ТабТоваров, ДанныеДляПечати;

    ВыбТовар = ТекущийЭлемент();

    Если ПустоеЗначение(ВыбТовар) = 1 Тогда
    Предупреждение("Не выбран товар или группа товаров!", 60);
    Возврат;
    КонецЕсли;


    ТипЦены = СоздатьОбъект("Справочник.ТипыЦен");
    Если ТипЦены.Выбрать("Типы цен",) = 0 Тогда Возврат КонецЕсли;
    ТипЦены = ТипЦены.ТекущийЭлемент();

    ТабТоваров = СоздатьОбъект("ТаблицаЗначений");
    ТабТоваров.НоваяКолонка("Товар");
    ТабТоваров.НоваяКолонка("Цена","Число");
    ТабТоваров.НоваяКолонка("Единица");
    ТабТоваров.НоваяКолонка("Валюта");

    Если ВыбТовар.ЭтоГруппа() = 0 Тогда
    ДобавитьВтаблицу(ТабТоваров, ВыбТовар, ТипЦены);
    Иначе
    СтрТов = СоздатьОбъект("Справочник.Номенклатура");
    СтрТов.ИспользоватьРодителя(ВыбТовар);
    СтрТов.ВключатьПодчиненные(1);
    СтрТов.ВыбратьЭлементы();

    Пока СтрТов.ПолучитьЭлемент() = 1 Цикл
    ТекТов = СтрТов.ТекущийЭлемент();
    Если ТекТов.ЭтоГруппа() = 0 Тогда
    ДобавитьВтаблицу(ТабТоваров, ТекТов, ТипЦены);
    КонецЕсли;
    КонецЦикла;
    КонецЕсли;

    // упакуем данные в список
    ДанныеДляПечати = СоздатьОбъект("СписокЗначений");

    Фирма = СокрЛП(глЗначениеПоУмолчанию("ОсновнаяФирма").ЮрЛицо.ПолнНаименование);
    ДанныеДляПечати.ДобавитьЗначение(Фирма , "Фирма");
    ДанныеДляПечати.ДобавитьЗначение(ТипЦены.Валюта , "Валюта");
    ДанныеДляПечати.ДобавитьЗначение(ТабТоваров , "Таблица");

    ОткрытьФормуМодально("Обработка.ПечатьЦенников", ДанныеДляПечати);

    КонецПроцедуры // глПечатьЦенника(Товар, ТипЦены)
    Бухгалтерский угодник, 4 июн 2014
    #9
  10. TopicStarter Overlay
    moroz34
    Offline

    moroz34

    Регистрация:
    3 апр 2012
    Сообщения:
    16
    Симпатии:
    0
    Баллы:
    1
    Да, такие вещи у меня есть... тоже не работают... нужно просто 1 или 2 строчки, как связать таблицу с названием в номенклатуре? Не ужели страница програмного текста?
    Просто как напечатать название?????
    --- Объединение сообщений, 4 июн 2014 ---
    Просто нажимаю на кнопку, получаю распечатку названия того, на что навел до этого курсор.
    moroz34, 4 июн 2014
    #10
  11. Бухгалтерский угодник
    Offline

    Бухгалтерский угодник Администраторы Команда форума Администратор

    Регистрация:
    29 дек 2008
    Сообщения:
    22.500
    Симпатии:
    533
    Баллы:
    204
    Передавайте название в качестве параметра
    ДанныеДляПечати.ДобавитьЗначение(ТекущийЭлемент.Наименование , "Название");

    а в обработке его получайте
    Название= Форма.Параметр.Получить("Название");

    Только не забудьте определить переменную в начале модуля... Чтобы из макета ее можно было получить
    Бухгалтерский угодник, 4 июн 2014
    #11
  12. TopicStarter Overlay
    moroz34
    Offline

    moroz34

    Регистрация:
    3 апр 2012
    Сообщения:
    16
    Симпатии:
    0
    Баллы:
    1
    Куда девать верхнюю строчку так и не понял... 2-ая есть, но ничего не печатает..
    --- Объединение сообщений, 4 июн 2014 ---
    Вот полная программа: (жирное - переменная в таблице)

    Процедура Печать(Докум)

    ПечТабл = СоздатьОбъект("Таблица");

    // секция Заголовок

    ПечТабл.ВывестиСекцию("Заголовок");

    ПечНаименование = Форма.Параметр.Получить("Наименование");

    ПечТабл.ПараметрыСтраницы(,,,5,5,5,5,0,0,1,,);
    ПечТабл.Показать(глНазваниеДокументаВжурнале(Докум),"");

    КонецПроцедуры // Печать()

    //*******************************************

    Процедура ПриОткрытии()

    Если ПустоеЗначение(Форма.Параметр) = 0 Тогда

    Докум = Форма.Параметр.Получить("Контекст");

    Печать(Докум);
    Статусвозврата(0);
    Возврат;
    КонецЕсли;

    КонецПроцедуры // ПриОткрытии()
    Последнее редактирование: 4 июн 2014
    moroz34, 4 июн 2014
    #12
  13. Бухгалтерский угодник
    Offline

    Бухгалтерский угодник Администраторы Команда форума Администратор

    Регистрация:
    29 дек 2008
    Сообщения:
    22.500
    Симпатии:
    533
    Баллы:
    204
    в место где вы вызываете вашу обработку печати... См. вышеприведенный пример
    Бухгалтерский угодник, 4 июн 2014
    #13
Похожие темы
  1. Gellemar

    8.х УПП Печать счета-фактуры сразу на принтер?

    Gellemar, 5 май 2010, в разделе: "1С:Управление производственным предприятием УПП"
    Ответов:
    8
    Просмотров:
    3.804
    Gellemar
    2 июн 2010
  2. leemuar

    8.х УПП Проведение по партиям, почему граница "уходит" назад?

    leemuar, 18 янв 2012, в разделе: "1С:Управление производственным предприятием УПП"
    Ответов:
    5
    Просмотров:
    2.014
    BabySG
    18 янв 2012
  3. uzden_ham

    как использовать принтер этикеток на весах cas lp16 cas 5000J как принтер этикеток?

    uzden_ham, 14 июл 2012, в разделе: Торговое оборудование в 1С
    Ответов:
    3
    Просмотров:
    1.352
    alexburn
    17 июл 2012
  4. Saldor

    8.х Автоматическая распечатка без выбора принтеров для чеков(принтер №1), для накладных(принтер №2).

    Saldor, 30 янв 2016, в разделе: Конфигурирование на платформе "1С:Предприятие 8"
    Ответов:
    2
    Просмотров:
    677
    LordMaverick
    31 янв 2016
Загрузка...

Поделиться этой страницей