можно ли преобразовать процедуру в функцию (без ее изменения) знаю, нагло, но вдруг??
интересует процедура печать, которая есть в каждом документе (модуль объекта)

(0) neшbI uщ0!

(0)можно ли преобразовать мясо в фарш?Но только чур без изменения мяса!

(1) :-D

(8) ты не поверишь, 1С вообще пофиг

(0) Делай так:

Процедура Печать2()
Результат = Печать();
КонецПроцедуры;

Далее используй Процедуру Печать2 вместо функции Печать().

(14) пятнично

(14) гы

(14) чукча не читатель, чукча писатель?

(15) Ага :D

(17) какой вопрос был такой и ответ + пятница)

(15) Не, это скорее субботично! В пятницу 1с еще что-то соображают ;)

(19) ему наоборот надо)

(21) Он - это она )

(21) судя по фото - ей

Незнайка всегда М был

+(23) но опять же ... пятница...

(21) (0) тогда так:

Функция Печать2()
Печать();
Возврат true;
КонецФункции;

предлагаю вообще не использовать процедуры в 1С, а писать одними функциями, а они уже если захотят будут что-то возвращать, а если функция вернула неопределено, то значит она процедура

(0) Ты отзывайся, отзывайся :)
Чем подробнее ты объяснишь, что тебе надо - тем скорее помогут.

ага, фотка есть, что бы не помочь?

(14) спасибо) я уже догадалась)

(27) я за)

(30) реально - пятница

(30) /* с трудом вылезая из по стола */
Это лучше, чем Новая ПЯТНИЦА13 !!!!

Предлагаю такой вариант:

Профедура ФункцияПечать()
   //тирлим-бом-бом
КонецПроцедуры

)))

(34) ошибку выдает

(34)
Процедура Этофунция()
КонецПроцедуры

(34) Нам в конце надо написать "КонецПрофедуры"

(36) А так:

Профедура ФункцияПечать()
   //тирлим-бом-бом

КонецПрофедуры

? )

тоже

(40) У тебя неправильная 1Ска

(40) Чорд, надо с саппорт писать.

профедура вроде проходит
пишет вот что:
Сообщение 102, уровень 15, состояние 1, строка 1
Неправильный синтаксис около конструкции ")".

(43) двоеточия не хватает... сто пудов

всё-таки правильнее "Профи-дура"

да ну вас( чего-то она не работает.. мне результат нужно присвоить переменной

Процедура Печать2()
Результат = Печать();
КонецПроцедуры;

нельзя присваивать процедуру чему-либо

Смиренно ждем 8.4 - там можно будет писать без двоеточий, обзывать процедуры функциями и на результат можно будет аще забить.

(47) присвой переменной что-нибудь другое

(49) но тогда у меня будет открываться табличный документ все равно. а мне именно его и нужно усмирить!

(46) Какой ркзультат? Печатную форму?

(48) почему только на результат... забить будет можно на все
(47) конфигурация какая хоть?

(52) упп 1.3

(51) НУ да, чтоб потом ее впихнуть с другими. в одну общую

кого впихнуть, с кем еще, в какую общую?

дело в том, что в документе РеализацияТоваровУслуг есть много печатных форм. Нашим пользователям надоело нажимать много кнопочек, и поэтому мое руководство поставило мне задачу сделать обработку в которой бы пользователи, эти милейшие лентяи, задавали бы сколько и каких печатных форм им надо вывести и выводились бы они в одном табличном документе. Вот этим я и занимаюсь. И не знаю, как несколько типовых форм поместить в один печатный документ

(56) в обработку печати параметром передавай документ в который выводишь
по умолчанию он будет неопределен, соответственно в печати смотришь и либо выводишь в уже готовый, либо создаешь новый, и все что тебе нужно будет - вызвать сколько нужно раз каждую процедуру печати с параметром

документ = табличныйдокумент

Оо. Беги от такого руководства, они тебя плохому научат...

А если по теме то надо тупо заменить Процедура ... КонецПроцедуры на Функция ... КонецФункции и заставить все это что-то возвращать Возврат ТирлимБомБом;

(59) в том то и дело, что я не могу так сделать, потому что обращаюсь к процедуре в модуле объекта (документа), так уже не знаю, что делать

(47) я в (26) исправился в (14) наоборот делал из функции процедуру.

(60) тебе надо получать в результате выполнения функции табличный док..., а потом их объединять

сделай как в (57)

(62) РАССКАЖИТЕ ПОДРОБНЕЕ, КАК ОБЪЕДИНИТЬ НЕСКОЛЬКО ТАБ ДОКУМЕНТОВ?

(63) это сложнее, если не получиться сейчас объединить, сделаю так

(57) вы уверены, что параметром а не реквизитом?

(64) тсс, тише.

(67) это случайно)

(64) в поиске полно примеров

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

Функция Печать()
...
  Возврат КакаяТоХрень;
КонецФункции

С точки зрения вызова не отличаются вообще ни чем:

Печать();

Просто во втором случае есть возможность что-то получить на выходе:

ЧтоТо = Печать();

Так, что можно просто заменить скобки Процедура ... КонецПроцедуры на Функция ... КонецФункции и добавить возврат. Для кода который уже юзает эту процедуру ничего не изменится

(69) + лучше 1 раз увидеть, чем 100 раз услышать (с)

(70) не могу лезть в типовую

(65) с чего бы это сложнее?

(73) точно мы говорим о параметре? Зачем параметр, если можно и просто создать Табличный документ?

(0)Можно.
Если хочешь что ни будь вернуть, поставь в конце - Возврат Неопределено;
Функция что ни будь вернет.

Тогда не очень понятно чего вы хотите :) Скопируйте типовую процедуру печати в другое место во внешнюю обработку например, и делайте с ней что хотите)

(76) неоптимально получается уже)

(74) мы его передаем в процедуру печати, там смотрим, если мы получили документ то вывод идет в него, далее мы передаем его в следующую процедуру и не надо будет ничего объединять

(77)

Ну заставить процедуру, что то вернуть, не трогая кода этой процедуры (тобиш не изменяя типовой) не реально в принципе... Если только посмотреть ее параметры, может она уже умеет что-то возвращать, какой-нибуть параметр по ссылке передается...

(79) ну дело в том что в процедуре есть вывод. можно ли мне прервать процедуру на середине? не изменяя ее опять таки. я сейчас код скину процедуры

Процедура Печать(ИмяМакета, КоличествоЭкземпляров = 1, НаПринтер = Ложь) Экспорт
   
   // Получить экземпляр документа на печать
   Если ИмяМакета = "Акт" Тогда
       ТабДокумент = ПечатьАктаОбОказанииУслуг(Ложь);
   ИначеЕсли ИмяМакета = "АктРуб" Тогда
       ТабДокумент = ПечатьАктаОбОказанииУслуг(Истина);
   ИначеЕсли ИмяМакета = "1Т" или ИмяМакета = "_1Т" Тогда
       ТабДокумент = ПечатьТТН();
   ИначеЕсли ИмяМакета = "Бланк" Тогда
       ТабДокумент = ПечатьБланк(НаПринтер);
   ИначеЕсли ИмяМакета = "СправкаРасчетВал" тогда

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



Ну примерно так..

вот мне бы ТабДокумент получить как-нибудь. Но все эти функции не помечены словом ЭСПОРТ вот проблема(

эта тема ни о чем

(81) ну и соответственно таких процедур много.. для каждого документа
Без изменения процедуры не реально...
Еще вариант... в довесок к этой процедуры сделать свою функцию

(84) продолжите идею. которая бы делала... что?

(64)
ТабДок = Новый ТабличныйДокумент();
СоздатьТабличныйДокумент1(ТабДок);
СоздатьТабличныйДокумент1(ТабДок);
ТабДок.Показать()

(85) которая бы возвращала ТабДокумент.
В данном случае было бы что-то типа:

Функция ФункцияПечать(ИмяМакета, КоличествоЭкземпляров = 1, НаПринтер = Ложь) Экспорт
   
   // Получить экземпляр документа на печать

   Если ИмяМакета = "Акт" Тогда
       Возврат ПечатьАктаОбОказанииУслуг(Ложь);
   ИначеЕсли ИмяМакета = "АктРуб" Тогда
       Возврат ПечатьАктаОбОказанииУслуг(Истина);
   ИначеЕсли ИмяМакета = "1Т" или ИмяМакета = "_1Т" Тогда
       Возврат ПечатьТТН();
   ИначеЕсли ИмяМакета = "Бланк" Тогда
       Возврат ечатьБланк(НаПринтер);
   Иначе
       Возврат Неопределено;
   КонецЕсли;
КонецФункции

(87) ну тут получается, что ПечатьАктаОбОказанииУслуг и остальные стали процедурами) и они то как раз увы и без пометки ЭКСПОРТ..

(88) кто их сделал процедурами? О_О
Нет. Вы эту функцию размещаете рядом с процедурой Печать. Но вместо процедуры печать извне, вызываете функцию. Она вам вернет ТабДокумент

(88) Я же тебе уже писал в соседней теме

АктОбОказанииУслуг.Печать(ИмяМакета);

где имя макета "Акт","АктРуб и т.д. УПП-шка дальше сама разберется.

(89) это интересно уже. если только вы не имеете ввиду вставить функцию там же где написано определение процедуры)

(90) оттуда то все и пошло. АктОбОказанииУслуг.Печать(ИмяМакета); - это процедура. а мне функция нужна

(91) вставить там же где и написано определение процедуры...

+(93) модуль объекта(ов) править так или иначе придется. Либо полностью повторять логику печати во вне модуля объекта.

(94) я уже поняла это, ну это конечно ппц..

Так. Стоп. Я нифига не уверен, ибо я "травкой" не увлекаюсь ;), но...
Разве удастся вывести в ОДИН табличный документ несколько макетов с разной шириной колонок так, что бы не сбилось форматирование?
Кто-нибудь здесь пытался?
Убеди начальство, что это неверно методологически :)
Пусть выбирают сколько угодно печатных форм, но печататься они будут в разных табличных документах. А иначе - Беги, Лола, беги!

Начальник кроме всего прочего в отпуске, в мне сдавать во вторник( Поздравляйте меня. в этот близящийся наконец к завершению рабочий день пятницы 13го

(96) это не семерка, тут такое нормально будет работать

(57) вернулась снова. можно поподробнее

Сотка

дешевеет)

(101) Эх ты, это не цена, это пост номер сто!)))

+(102) А по теме ответить не могу, т.к. читать много))) Я лучше в пятничной ветке посижу)

Дайте угадать - автор делает групповую печать, чтобы пачка документов в одну таблицу вывелась ?
без правки не получится - 2 варианта - приписать экспорт непосредственно к функции формирования табдокумента или добавить в процедуру печати лишний параметр в конце что-то типа:
Процедура Печать(ИмяМакета, КоличествоЭкземпляров = 1, НаПринтер = Ложь, ВернутьТабДок = Неопределено) Экспорт
и вписать
Если ВернутьТабДок <> Неопределено Тогда
ВернутьТабДок =  ТабДокумент;
Возврат;
КонецЕсли;
чтобы вернуть откуда-нибуть табдок, в параметр передать что-нибуть отличное от Неопределено

(102) Мораль: Вам либо придется слегка поправить код типовой, слегка усложнив дальнейшие обновления, либо полностью переносить все не экспортные методы печати во внешнюю обработку...

(97) Думаю, зря ты взялась за эту задачу в пятнциу 13-ое.... Бегом билеты сдавать )

я думаю намного проще сделать на форме кнопку печать комплекта документов и в ней печатать напрямую на принтер по умолчанию все что надо, например:

ТД = ПечатьДокумента(Ссылка);
УниверсальныеМеханизмы.НапечататьДокумент(ТД, 1, Истина, ОбщегоНазначения.СформироватьЗаголовокДокумента(ЭтотОбъект), Ссылка);
ТД = ПечатьТОРГ12(Ссылка);
УниверсальныеМеханизмы.НапечататьДокумент(ТД,1, Истина, ОбщегоНазначения.СформироватьЗаголовокДокумента(ЭтотОбъект), Ссылка);

(96) СоздатьФорматСтрок()

Можно использовать глобальные переменные:

Перем Результат;

Процедура ТипаФункция()

    Результат = "Миста!";

КонецПроцедуры;

ТипаФункция();
Сообщить(Результат);