7.7 Как вывести данные проводки в печатную форму?

И еще раз доброго

Бухгалтерия 4.5

Как вывести данные проводки в печатную форму?

Надо вывести данные табличной части документа "Услуги сторонних организаций" в отчет Акт об оказании услуг

судя по вопросу в голове полная каша
я так понимаю, надо напечатать акт от поставщика услуг из документа услуги сторонних организаций, а там и печать-то не предусмотрена

вариантов 2
1.написать внешний отчет самому по аналогии с актом из дока оказание услуг
2.нанять спеца, он и напишет

выбирай

зы: по п.1 могу в 2-х словах объяснить последовательность действий

Объясни в двух словах пожалуйста.

Фишка в том, что Док "оказание услуг" и док "услуги сторонних организаций" в конфе по разному формируются

я так и не услышал подроюное объянение тог что необходимо

Вывести в табличную часть формы "Акт об оказании услуг" данные(наименование, сумма) из документа Услуги сторонних организаций

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

пример как вставить кнопку печати в док поступлениетоваров, делай по аналогии
как сделать внешнюю форму акта расскажу позже.
1.Открываем форму дока, где есть кнопа Печать, например, ПоступлениеМатериалов.
2.Копируем кнопку Печать и слева от неё кнопу выбора печформы и вставляем в форму ПоступлениеТоваров.
3.Открываем модуль формы ПоступлениеМатериалов, вверху модкля копируем

Код:

Перем ТаблицаПечФорм;  // список печатных форм документа
Перем НомерТекущейФормы;

аналогично вставляем в начало модуля формы ПоступлениеТоваров
4.Идем вниз модуля формы ПоступлениеМатериалов, копируем

Код:

ТаблицаПечФорм  = СоздатьОбъект("ТаблицаЗначений");
ТаблицаПечФорм.НоваяКолонка("Название","Строка",,,,30);
ТаблицаПечФорм.НоваяКолонка("Файл","Строка",,,"Файл",10);
ТаблицаПечФорм.НоваяКолонка("Кнопка","Строка",,,,10);
ТаблицаПечФорм.НоваяКолонка("ФайлОписания","Строка");

вставляем в самый конец модуля формы ПоступлениеТоваров после строк

Код:

СписокВариантовОтраженияВозврата.ДобавитьЗначение(1, "в книге покупок");
СписокВариантовОтраженияВозврата.ДобавитьЗначение(0, "в книге продаж");

5.Ищем в модуле формы ПоступлениеМатериалов 2 процедуры

Код:

//******************************************************************************
// ПоКнопкеПечать()
//
// Вызывается из формул элементов диалога:
//  Кнопка "кнПечать".
//
// Описание:
//  Определяется соответствующая печатная форма.
// 
Процедура ПоКнопкеПечать(СразуНаПринтер = 0,КолЭкз = 1)
Если  ПустоеЗначение(НомерТекущейФормы) = 1  Тогда
НомерТекущейФормы = 1;
Форма.кнПечать.Заголовок(ТаблицаПечФорм.ПолучитьЗначение(НомерТекущейФормы, "Кнопка"));
КонецЕсли;
Если НомерТекущейФормы = 1  Тогда
Печать();

Иначе
Параметры = СоздатьОбъект("СписокЗначений");
Параметры.ДобавитьЗначение(Контекст, "Контекст");
Параметры.ДобавитьЗначение(СразуНаПринтер, "Устройство");
Параметры.ДобавитьЗначение(КолЭкз, "КоличествоКопий");

ОткрытьФорму("Отчет", Параметры, глКаталогПечФорм+ТаблицаПечФорм.ПолучитьЗначение(НомерТекущейФормы,"Файл"));
КонецЕсли;
КонецПроцедуры // ПоКнопкеПечать()
//******************************************************************************
// ПоКнопкеВыборПечатнойФормы()
//
// Вызывается из формул элементов диалога:
//  Кнопка "кнВыбПечать".
//
// Описание:
//  - открывает список для выбора способа печати.
//  - формирует таблицу по выбранному способу.
//
Процедура ПоКнопкеВыборПечатнойФормы()
ВыбНомер = глВыборПечатнойФормы("Документ." + Вид(), ТаблицаПечФорм);
Если ВыбНомер > 0 Тогда
НомерТекущейФормы = ВыбНомер;
Форма.кнПечать.Заголовок(ТаблицаПечФорм.ПолучитьЗначение(НомерТекущейФормы, "Кнопка"));
ПоКнопкеПечать();
КонецЕсли;
КонецПроцедуры // ПоКнопкеВыборПечатнойФормы()
копируем и вставляем в конце модуля ПоступлениеТоваров перед строкой
//******************************************************************************
Новый = 0;
Во вставленном тексте процедуру ПоКнопкеПечать заменить на этот текст, либо заккоментировать строки (т.е. поставить // в начале стоки) как показано ниже
//******************************************************************************
// ПоКнопкеПечать()
//
// Вызывается из формул элементов диалога:
//  Кнопка "кнПечать".
//
// Описание:
//  Определяется соответствующая печатная форма.
// 
Процедура ПоКнопкеПечать(СразуНаПринтер = 0,КолЭкз = 1)
кСтрок=ТаблицаПечФорм.КоличествоСтрок();
Если кСтрок>0 Тогда
Если  ПустоеЗначение(НомерТекущейФормы) = 1  Тогда
НомерТекущейФормы = 1;
Форма.кнПечать.Заголовок(ТаблицаПечФорм.ПолучитьЗначение(НомерТекущейФормы, "Кнопка"));
КонецЕсли;

//  Если НомерТекущейФормы = 1  Тогда
//Печать();

//  Иначе
Параметры = СоздатьОбъект("СписокЗначений");
Параметры.ДобавитьЗначение(Контекст, "Контекст");
Параметры.ДобавитьЗначение(СразуНаПринтер, "Устройство");
Параметры.ДобавитьЗначение(КолЭкз, "КоличествоКопий");

ОткрытьФорму("Отчет", Параметры, глКаталогПечФорм+ТаблицаПечФорм.ПолучитьЗначение(НомерТекущейФормы,"Файл"));
//  КонецЕсли;
КонецЕсли;
КонецПроцедуры // ПоКнопкеПечать()

6. Ищем в модуле формы ПоступлениеМатериалов конец процедуры поиском по "// ПриОткрытии", строки

Код:

// Заполним таблицу для выбора печатной формы
НомерТекущейФормы = глУстановкаКнопкиПечать(Контекст, "Документ." + Вид(),ТаблицаПечФорм);

копируем и вставляем по аналогии в конец процедуры ПриОткрытии формы ПоступлениеТоваров

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

Хряк благодарю тебя

Только ето все понятно, и в поступлении сделано

А вот как вывести данные из документа "услуги сторонних организаций" в печатную форму :icon_avatar-174:

да пришлось вшивать форму таблицы в документ, а хотел изначально чтоб из внешний формы печаталось

Всем большое спасибо, проблема решена

да ладно уже, тут ТиС начали юзать дорабатывать много надо