Имя счета в 1с 7 ТиС, Win7 32 bit

[vidok]

Здравствуйте, подскажите, искал не нашел, но должна быть тема популярна. При сохранении счета (для отправки в электронном виде) приходится каждый раз делать определенные действия. Хотелось бы как-нибудь автоматизировать сей процесс.
Имеются определенные критерии сохранения файла, при нажатии Файл-Сохранить как:
1. Тип файла - не *.mxl как предлагает 1с по умолчанию а *.xls.
2. Название файла, из документа: Название организации которой выставляют счет_номер заявки_дата_сумма документа.руб.
3. Путь сохранения файла (определенная папка).

Как правильно подойти к этому вопросу, через глобальный модуль, наверное даже без Оле можно обойтись? Может уже делали такое..

[sergejK74]

Используй у Таблицы метод Записать()

Записать(<?>,);
Синтаксис:
Записать(<ИмяФайла>,<ТипФайла>)
Назначение:
Записать таблицу в файл.
Параметры:
<ИмяФайла> - имя файла.
<ТипФайла> - необязательный параметр. Числовое или строковое выражение, определяющее тип файла:
· отсутствует, 0 или ''MXL'' - формат 1C;
· 1 или ''XLS'' - формат Ms Excel;
· 2 или ''HTM'' или ''HTML'' - формат HTML;
· 3 или ''TXT'' - формат TXT.

[vidok]

То есть, это может быть внешняя обработка к документу "Неподтвержденная заявка". В которой мы через Табличный метод "Записать()" сохраняем файл? А данные из печатной формы "Счет" передаем как таблицу?

[sergejK74]

Да. Приходилось делать такое для отправки счета по эл.почте. Внешняя обработка - это внешняя печатная форма.

[start2000]

// В каталоге конфы создаем каталог: ExtEmail
// Создаем счет и сохраняем в файл
Таб = СоздатьОбъект("Таблица");
Таб.ВывестиСекцию("Шапка");
Таб.ВывестиСекцию("Строка");
Таб.ВывестиСекцию("Подвал");
Таб.Записать(КаталогИБ()+"\ExtEmail\Счет"+СокрЛП(НомерДок)+".xls",1);

// Отправляем созданный файл
Если ЗагрузитьВнешнююКомпоненту(КаталогИБ()+"v7plus.dll") <> 1   Тогда
   Предупреждение("Компонента v7plus.dll не найдена! Файл не отправлен.");
   СтатусВозврата(0);Возврат;
КонецЕсли;
Почта=СоздатьОбъект("AddIn.V7Mail");   
Почта.Подключиться();
Почта.НовоеСообщение();
Почта.Заголовок="Заголовок письма";
Почта.Текст="Текст письма";
Почта.ДобавитьАдрес(СокрЛП(Контрагент.ЭлПочта));
Почта.ДобавитьФайл(""+КаталогИБ()+"\ExtEmail\Счет"+СокрЛП(НомерДок)+".xls");
Почта.Послать(1);