Заказы на доработку 1С (сервис удаленной работы)
Хранилище
База знаний
Бесплатные отчеты, обработки, конфигурации, внешние компоненты для 1С Статьи, описание работы, методики по работе с 1С

Здравствуйте, гость ( Вход | Зарегистрироваться )



> Нужна помощь 1С + Word , 1С + Word          
Sweeex Подменю пользователя
сообщение 09.06.11, 9:39
Сообщение #1

Молчаливый
*
Группа: Пользователи
Сообщений: 8
Спасибо сказали: 0 раз
Рейтинг: 0

Доброе время суток! У кого есть время помогите. Задача следующая нужно чтобы 1с открывал ворд и заполнял в нем автоматически договор...как это можно реализовать. Я так понял нужно где то создать шаблон и указать это все дело в процедуре печать... 1с начал изучать недавно..если можно отвечать не общими фразами..

-=VJ=- Подменю пользователя
сообщение 09.06.11, 9:40
Сообщение #2

Оратор
Иконка группы
Группа: Местный
Сообщений: 402
Из: Киев
Спасибо сказали: 73 раз
Рейтинг: 0

Цитата(Sweeex @ 09.06.11, 9:39) *
Доброе время суток! У кого есть время помогите. Задача следующая нужно чтобы 1с открывал ворд и заполнял в нем автоматически договор...как это можно реализовать. Я так понял нужно где то создать шаблон и указать это все дело в процедуре печать... 1с начал изучать недавно..если можно отвечать не общими фразами..


[необходимо зарегистрироваться для просмотра ссылки]


Signature
Живу на VJ.net.ua.
Спілкуюсь в ЖЖ

Спасибо сказали: Sweeex,

Sweeex Подменю пользователя
сообщение 09.06.11, 10:09
Сообщение #3

Молчаливый
*
Группа: Пользователи
Сообщений: 8
Спасибо сказали: 0 раз
Рейтинг: 0

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

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

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

а как можно еще это дело реализовать? или только так?

-=VJ=- Подменю пользователя
сообщение 09.06.11, 11:22
Сообщение #4

Оратор
Иконка группы
Группа: Местный
Сообщений: 402
Из: Киев
Спасибо сказали: 73 раз
Рейтинг: 0

Цитата(Sweeex @ 09.06.11, 11:20) *
а как можно еще это дело реализовать? или только так?


[необходимо зарегистрироваться для просмотра ссылки]


Signature
Живу на VJ.net.ua.
Спілкуюсь в ЖЖ

Sweeex Подменю пользователя
сообщение 09.06.11, 12:48
Сообщение #5

Молчаливый
*
Группа: Пользователи
Сообщений: 8
Спасибо сказали: 0 раз
Рейтинг: 0 

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



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

-=VJ=- Подменю пользователя
сообщение 09.06.11, 12:52
Сообщение #6

Оратор
Иконка группы
Группа: Местный
Сообщений: 402
Из: Киев
Спасибо сказали: 73 раз
Рейтинг: 0

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


Я, конечно, восьмерку только начинаю учить, но, ИМХО, из кода явно видно, что шаблон пользователь выбирает сам в диалоге из Справочники.ХранилищеДополнительнойИнформации.

Сообщение отредактировал -=VJ=- - 09.06.11, 12:52


Signature
Живу на VJ.net.ua.
Спілкуюсь в ЖЖ

Sweeex Подменю пользователя
сообщение 09.06.11, 12:52
Сообщение #7

Молчаливый
*
Группа: Пользователи
Сообщений: 8
Спасибо сказали: 0 раз
Рейтинг: 0

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

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

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

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

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


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

или какой кусок кода кинуть чтоб Вы мнесмогли помочь....

DartRomanius Подменю пользователя
сообщение 09.06.11, 14:01
Сообщение #8

Ветеран
Иконка группы
Группа: Местный
Сообщений: 824
Из: Запорожье
Спасибо сказали: 145 раз
Рейтинг: 0

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


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

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


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


Signature
-----------------------------------------------------------------------------------
Единственный, интуитивно понятный интерфейс - мамкина сиська!
Всему остальному надо учиться! (с) Не знаю кто....

Спасибо сказали: Sweeex,

Sweeex Подменю пользователя
сообщение 09.06.11, 14:34
Сообщение #9

Молчаливый
*
Группа: Пользователи
Сообщений: 8
Спасибо сказали: 0 раз
Рейтинг: 0

Цитата(DartRomanius @ 09.06.11, 14:01) *
В справочнике они хранятся.

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


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

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

DartRomanius Подменю пользователя
сообщение 09.06.11, 14:42
Сообщение #10

Ветеран
Иконка группы
Группа: Местный
Сообщений: 824
Из: Запорожье
Спасибо сказали: 145 раз
Рейтинг: 0

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


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


Signature
-----------------------------------------------------------------------------------
Единственный, интуитивно понятный интерфейс - мамкина сиська!
Всему остальному надо учиться! (с) Не знаю кто....

Не нашли ответа на свой вопрос?
Зарегистрируйтесь и задайте новый вопрос.

 

Ответить Новая тема
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 

RSS Текстовая версия Сейчас: 10.06.24, 16:08
Форум IP.Board © 2024  IPS, Inc.
1С Предприятие 8.3, 1С Предприятие 8.2, 1С Предприятие 8.1, 1С Предприятие 8.0, 1С Предприятие 7.7, Литература 1С, Общие вопросы по администрированию 1С, Методическая поддержка 1С - всё в одном месте: на Украинском 1С форуме!