Помощь - Поиск - Пользователи - Календарь
Полная версия этой страницы: Нужна помощь 1С + Word
Украинский 1С форум: всё про 1С 8.3, 1С 8.2, 1С 8.1, 1С 8.0, 1С 7.7 > Программисту > Программирование в 1С Предприятие 8.1 (8.0)
Sweeex
09.06.11, 9:39
Доброе время суток! У кого есть время помогите. Задача следующая нужно чтобы 1с открывал ворд и заполнял в нем автоматически договор...как это можно реализовать. Я так понял нужно где то создать шаблон и указать это все дело в процедуре печать... 1с начал изучать недавно..если можно отвечать не общими фразами..
-=VJ=-
09.06.11, 9:40
Цитата(Sweeex @ 09.06.11, 9:39) необходимо зарегистрироваться для просмотра ссылки
Доброе время суток! У кого есть время помогите. Задача следующая нужно чтобы 1с открывал ворд и заполнял в нем автоматически договор...как это можно реализовать. Я так понял нужно где то создать шаблон и указать это все дело в процедуре печать... 1с начал изучать недавно..если можно отвечать не общими фразами..


необходимо зарегистрироваться для просмотра ссылки
Sweeex
09.06.11, 10:09
Цитата(-=VJ=- @ 09.06.11, 9:40) необходимо зарегистрироваться для просмотра ссылки
необходимо зарегистрироваться для просмотра ссылки

спасибо за оперативный ответ! очень помог!

Цитата(-=VJ=- @ 09.06.11, 9:40) необходимо зарегистрироваться для просмотра ссылки
необходимо зарегистрироваться для просмотра ссылки

а как можно еще это дело реализовать? или только так?
-=VJ=-
09.06.11, 11:22
Цитата(Sweeex @ 09.06.11, 11:20) необходимо зарегистрироваться для просмотра ссылки
а как можно еще это дело реализовать? или только так?


необходимо зарегистрироваться для просмотра ссылки
Sweeex
09.06.11, 12:48
Процедура Печать() Экспорт
    ФормаВыбора = Справочники.ХранилищеДополнительнойИнформации.ПолучитьФормуВыбора();        
    ФормаВыбора.Отбор.Объект.Значение = ВидЦеннойБумаги;
    ФормаВыбора.Отбор.Объект.Использование = Истина;
    ФормаВыбора.Отбор.ВидДанных.Значение = Перечисления.ВидыДополнительнойИнформацииОбъектов.Файл;
    ФормаВыбора.Отбор.ВидДанных.Использование = Истина;
    ФормаВыбора.Заголовок = "Выберите шаблон для печати";
    ФормаВыбора.ЭлементыФормы.СправочникСписок.Колонки.ВидДанных.Видимость = Ложь;
    ФормаВыбора.ЭлементыФормы.СправочникСписок.Колонки.ИмяФайла.Видимость = Ложь;
    
    РезультатВыбора = ФормаВыбора.ОткрытьМодально();
    
    Если РезультатВыбора = Неопределено Тогда
        Возврат;
    Иначе
        З = Новый Запрос("ВЫБРАТЬ
                         |    ВидыЦенныхБумагШаблоныПечати.Псевдоним,
                         |    ВидыЦенныхБумагШаблоныПечати.Формат,
                         |    ВидыЦенныхБумагШаблоныПечати.Формула,
                         |    ВидыЦенныхБумагШаблоныПечати.ВыводитьНаПечать
                         |ИЗ
                         |    Справочник.ВидыЦенныхБумаг.ШаблоныПечати КАК ВидыЦенныхБумагШаблоныПечати
                         |ГДЕ
                         |    ВидыЦенныхБумагШаблоныПечати.Ссылка = &ВидЦБ
                         |    И ВидыЦенныхБумагШаблоныПечати.Шаблон = &Шаблон");
        З.УстановитьПараметр("ВидЦБ", ВидЦеннойБумаги);
        З.УстановитьПараметр("Шаблон", РезультатВыбора.Ссылка);
        
        ТабПсевдонимов = З.Выполнить().Выгрузить();
        
        ПечатьДокументов.СформироватьВWord(ЭтотОбъект, РезультатВыбора, ТабПсевдонимов);
    КонецЕсли;
КонецПроцедуры



как тут тут понять гд хранятся шаблоны по которым ворд формирует документ и как создать аналогичный документ....
-=VJ=-
09.06.11, 12:52
Цитата(Sweeex @ 09.06.11, 12:48) необходимо зарегистрироваться для просмотра ссылки
как тут тут понять гд хранятся шаблоны по которым ворд формирует документ и как создать аналогичный документ....


Я, конечно, восьмерку только начинаю учить, но, ИМХО, из кода явно видно, что шаблон пользователь выбирает сам в диалоге из Справочники.ХранилищеДополнительнойИнформации.
Sweeex
09.06.11, 12:52
Цитата(Sweeex @ 09.06.11, 12:48) необходимо зарегистрироваться для просмотра ссылки
Процедура Печать() Экспорт
ФормаВыбора = Справочники.ХранилищеДополнительнойИнформации.ПолучитьФормуВыбора();
ФормаВыбора.Отбор.Объект.Значение = ВидЦеннойБумаги;
ФормаВыбора.Отбор.Объект.Использование = Истина;
ФормаВыбора.Отбор.ВидДанных.Значение = Перечисления.ВидыДополнительнойИнформацииОбъектов.Файл;
ФормаВыбора.Отбор.ВидДанных.Использование = Истина;
ФормаВыбора.Заголовок = "Выберите шаблон для печати";
ФормаВыбора.ЭлементыФормы.СправочникСписок.Колонки.ВидДанных.Видимость = Ложь;
ФормаВыбора.ЭлементыФормы.СправочникСписок.Колонки.ИмяФайла.Видимость = Ложь;

РезультатВыбора = ФормаВыбора.ОткрытьМодально();

Если РезультатВыбора = Неопределено Тогда
Возврат;
Иначе
З = Новый Запрос("ВЫБРАТЬ
| ВидыЦенныхБумагШаблоныПечати.Псевдоним,
| ВидыЦенныхБумагШаблоныПечати.Формат,
| ВидыЦенныхБумагШаблоныПечати.Формула,
| ВидыЦенныхБумагШаблоныПечати.ВыводитьНаПечать
|ИЗ
| Справочник.ВидыЦенныхБумаг.ШаблоныПечати КАК ВидыЦенныхБумагШаблоныПечати
|ГДЕ
| ВидыЦенныхБумагШаблоныПечати.Ссылка = &ВидЦБ
| И ВидыЦенныхБумагШаблоныПечати.Шаблон = &Шаблон");
З.УстановитьПараметр("ВидЦБ", ВидЦеннойБумаги);
З.УстановитьПараметр("Шаблон", РезультатВыбора.Ссылка);

ТабПсевдонимов = З.Выполнить().Выгрузить();

ПечатьДокументов.СформироватьВWord(ЭтотОбъект, РезультатВыбора, ТабПсевдонимов);
КонецЕсли;
КонецПроцедуры


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

или какой кусок кода кинуть чтоб Вы мнесмогли помочь....
DartRomanius
09.06.11, 14:01
Цитата(Sweeex @ 09.06.11, 13:48) необходимо зарегистрироваться для просмотра ссылки
как тут тут понять гд хранятся шаблоны по которым ворд формирует документ и как создать аналогичный документ....


В справочнике они хранятся.

Смотрим на строки:
    ФормаВыбора = Справочники.ХранилищеДополнительнойИнформации.ПолучитьФормуВыбора();        
    ФормаВыбора.Отбор.Объект.Значение = ВидЦеннойБумаги;
    ФормаВыбора.Отбор.Объект.Использование = Истина;
    ФормаВыбора.Отбор.ВидДанных.Значение = Перечисления.ВидыДополнительнойИнформацииОбъектов.Файл;
    ФормаВыбора.Отбор.ВидДанных.Использование = Истина;
    ФормаВыбора.Заголовок = "Выберите шаблон для печати";
    ФормаВыбора.ЭлементыФормы.СправочникСписок.Колонки.ВидДанных.Видимость = Ложь;
    ФормаВыбора.ЭлементыФормы.СправочникСписок.Колонки.ИмяФайла.Видимость = Ложь;
    
    РезультатВыбора = ФормаВыбора.ОткрытьМодально();


И как сказано выше, пользователь выбирает шаблон из существующих.
То есть выбирает справочник, а в нем уже шаблон.
Sweeex
09.06.11, 14:34
Цитата(DartRomanius @ 09.06.11, 14:01) необходимо зарегистрироваться для просмотра ссылки
В справочнике они хранятся.

Смотрим на строки:
    ФормаВыбора = Справочники.ХранилищеДополнительнойИнформации.ПолучитьФормуВыбора();        
    ФормаВыбора.Отбор.Объект.Значение = ВидЦеннойБумаги;
    ФормаВыбора.Отбор.Объект.Использование = Истина;
    ФормаВыбора.Отбор.ВидДанных.Значение = Перечисления.ВидыДополнительнойИнформацииОбъектов.Файл;
    ФормаВыбора.Отбор.ВидДанных.Использование = Истина;
    ФормаВыбора.Заголовок = "Выберите шаблон для печати";
    ФормаВыбора.ЭлементыФормы.СправочникСписок.Колонки.ВидДанных.Видимость = Ложь;
    ФормаВыбора.ЭлементыФормы.СправочникСписок.Колонки.ИмяФайла.Видимость = Ложь;
    
    РезультатВыбора = ФормаВыбора.ОткрытьМодально();


И как сказано выше, пользователь выбирает шаблон из существующих.
То есть выбирает справочник, а в нем уже шаблон.

точно спасибо....конечно достал наверно но все же...как мне создать новый такой шаблон чтоб выводился на печать...
DartRomanius
09.06.11, 14:42
Цитата(Sweeex @ 09.06.11, 15:34) необходимо зарегистрироваться для просмотра ссылки
точно спасибо....конечно достал наверно но все же...как мне создать новый такой шаблон чтоб выводился на печать...


Зайдите в справочник и посмотрите на существующий, делать по аналогии. smile.gif
Для просмотра полной версии этой страницы, пожалуйста, пройдите по ссылке.