Перейти к содержимому


- - - - -

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

Автор Михаил Пермь, 20 фев 2012 18:21

Сообщений в теме: 12

#1 Михаил Пермь

    Прохожий


  • 11 сообщений

Отправлено 20 февраля 2012 - 18:21

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

Как правильно подойти к этому вопросу? Через глобальный модуль или же внешней обработкой к документу "Неподтвержденная заявка" Может уже делали такое?

#2 WaRDeR

    Работа у меня такая ;)


  • 2 927 сообщений

Отправлено 20 февраля 2012 - 19:45

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

Тогда самый простой способ - вынести во внешнюю обработку (сделать копию, если уже внешняя), дописать код - после формирования печатной формы сохранить в файл.
Пользователь не знает, чего он хочет, пока не увидит то, что он получил. (Э.Йодан)

#3 Михаил Пермь

    Прохожий


  • 11 сообщений

Отправлено 20 февраля 2012 - 20:29

Просмотр сообщенияWaRDeR (20 февраля 2012 - 19:45) писал:

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

Да

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

ИсхТабл.Записать(""+Контрагент+"_"+НомерДок+"_"+ДатаДок+"_"+глФРМ(СуммаИтог, Валюта)+"xls",1);
ПереносДоковВОтдельнуюПапку();

Чуть выше эта процедура выглядит так:
Процедура ПереносДоковВОтдельнуюПапку()
ФС.УстТекКаталог(КаталогИБ());
ИмяФайла = "";
ИмяФайла = ФС.НайтиПервыйФайл("*.xls");
Если ИмяФайла <> "" Тогда
	 ФС.СоздатьКаталог("Счета");
	 ФС.КопироватьФайл(ИмяФайла,ФС.ТекКаталог() + "Счета" + ИмяФайла);
	 ФС.УдалитьФайл(ИмяФайла);
Пока 1=1 Цикл
ИмяФайла = " ";
	 ИмяФайла = ФС.НайтиСледующийФайл();
Если ИмяФайла <> "" Тогда
	 ФС.КопироватьФайл(ИмяФайла,ФС.ТекКаталог() + "Счета" + ИмяФайла);
	 ФС.УдалитьФайл(ИмяФайла);
Иначе
	 Прервать;
КонецЕсли;
КонецЦикла;
КонецЕсли;
КонецПроцедуры

Затык пока в этом:

Ошибка при выполнении команды;
ФС.КопироватьФайл(ИмяФайла,ФС.ТекКаталог() + "Счета" + ИмяФайла);
{Документ.ЗаявкаПокупателя.Форма.Модуль(841)}: Недостаточное число параметров передано при вызове функции/процедуры объекта

Сообщение отредактировал WaRDeR: 21 февраля 2012 - 08:29

#4 Requin

    Ветеран


  • 1 234 сообщений

Отправлено 20 февраля 2012 - 20:41

А зачем переносить файлы? Пишите его сразу в нужный каталог.
Если тебе что-то не нравится, то не спеши это исправлять, если не помнишь, для чего это сделали.
Изображение

#5 Бухгалтерский угодник

    Ветеран


  • 13 310 сообщений

Отправлено 21 февраля 2012 - 03:39

1) Не хватает параметра
ФС.КопироватьФайл(ИмяФайла,ФС.ТекКаталог() + "Счета" + ИмяФайла,0);

2) Для удобства на форму я бы добавил кнопку сохранения (по аналогии с кнопками обновить/настройка типовых отчетов)
Пользователь видит результат и тут же может сохранить (как вариант - сразу отправить если в справочнике контрагента указан эл. адрес)
Удобно.
"Любая проблема имеет Фамилию, Имя, Отчество....." (И. Сталин)
Жмакнувшим Изображение буду благодарен.

#6 Михаил Пермь

    Прохожий


  • 11 сообщений

Отправлено 21 февраля 2012 - 08:45

Просмотр сообщенияRequin (20 февраля 2012 - 20:41) писал:

А зачем переносить файлы? Пишите его сразу в нужный каталог.
Переношу потому что не знаю как сохранить сразу в нужный


Просмотр сообщенияБухгалтерский угодник (21 февраля 2012 - 03:39) писал:

2) Для удобства на форму я бы добавил кнопку сохранения (по аналогии с кнопками обновить/настройка типовых отчетов)
Пользователь видит результат и тут же может сохранить (как вариант - сразу отправить если в справочнике контрагента указан эл. адрес)
Удобно.
Это было бы идеально! Но пока не знаю как это сделать.

#7 Requin

    Ветеран


  • 1 234 сообщений

Отправлено 21 февраля 2012 - 08:50

Просмотр сообщенияМихаил Пермь (21 февраля 2012 - 08:45) писал:

Переношу потому что не знаю как сохранить сразу в нужный
ИсхТабл.Записать(КаталогИБ() + "Счета\" + Контрагент+"_"+НомерДок+"_"+ДатаДок+"_"+глФРМ(СуммаИтог, Валюта)+"xls",1);

Если тебе что-то не нравится, то не спеши это исправлять, если не помнишь, для чего это сделали.
Изображение

#8 Михаил Пермь

    Прохожий


  • 11 сообщений

Отправлено 21 февраля 2012 - 09:29

Просмотр сообщенияRequin (21 февраля 2012 - 08:50) писал:

ИсхТабл.Записать(КаталогИБ() + "Счета\" + Контрагент+"_"+НомерДок+"_"+ДатаДок+"_"+глФРМ(СуммаИтог, Валюта)+"xls",1);
Не создает документ вовсе (
А, сори, папку надо ручками один раз создать)
А если не в каталоге ИБ, то как? Например d:\1с\Счета\

Сообщение отредактировал Михаил Пермь: 21 февраля 2012 - 09:33

#9 Requin

    Ветеран


  • 1 234 сообщений

Отправлено 21 февраля 2012 - 09:32

Просмотр сообщенияМихаил Пермь (21 февраля 2012 - 09:29) писал:

Не создает документ вовсе (
А каталог "Счета" в каталоге с ИБ есть?
Если тебе что-то не нравится, то не спеши это исправлять, если не помнишь, для чего это сделали.
Изображение

#10 Михаил Пермь

    Прохожий


  • 11 сообщений

Отправлено 21 февраля 2012 - 09:44

Просмотр сообщенияRequin (21 февраля 2012 - 09:32) писал:

А каталог "Счета" в каталоге с ИБ есть?
А, сори, папку надо ручками один раз создать)
А если не в каталоге ИБ, то как? Например d:\1с\Счета\

#11 Requin

    Ветеран


  • 1 234 сообщений

Отправлено 21 февраля 2012 - 09:46

Просмотр сообщенияМихаил Пермь (21 февраля 2012 - 09:44) писал:

...
А если не в каталоге ИБ, то как? Например d:\1с\Счета\
Именно так. В методе Записать указывайте полное имя файла.
Если тебе что-то не нравится, то не спеши это исправлять, если не помнишь, для чего это сделали.
Изображение

#12 Михаил Пермь

    Прохожий


  • 11 сообщений

Отправлено 21 февраля 2012 - 09:50

Просмотр сообщенияRequin (21 февраля 2012 - 09:46) писал:

Именно так. В методе Записать указывайте полное имя файла.
Спасибо! Как все просто, оказывается)

А какой самый простой способ отправки можно тут придумать?

#13 Бухгалтерский угодник

    Ветеран


  • 13 310 сообщений

Отправлено 21 февраля 2012 - 10:53

Просмотр сообщенияМихаил Пермь (21 февраля 2012 - 09:50) писал:

Спасибо! Как все просто, оказывается)

А какой самый простой способ отправки можно тут придумать?
я бы рекомендовал использовать ВК rommail
"Любая проблема имеет Фамилию, Имя, Отчество....." (И. Сталин)
Жмакнувшим Изображение буду благодарен.
Обратно в (7.7) Конфигурирование на платформе "1С:Предприятие 7.7" · Следующая непрочитанная тема →


Количество пользователей, читающих эту тему: 1

0 пользователей, 1 гостей, 0 анонимных