Доброго всем! Помню точно, что уже поднимался этот вопрос и вроде находили решение, но не могу вспомнить название темы :(

Суть - из 1С создаю pdf файл, а затем делаю его копию (копирую в другое место). Проблема в том, что 1С-ка не дожидаясь завершения создания файлика переходит к копированию и разумеется просто не обнаруживает его. Один из вариантов поставить "тормозилку" (скажем 3 секунды). Как это сделать???

Предупреждение()

как создаешь файл

(0)+ ПДФ-ки делаю через виртуальный принтер:

попытка
       obj  = Новый COMObject("bioPDF.PDFPrinterSettings");
       obj.SetValue("ShowPDF", "no");
       obj.SetValue("Output", ПутьКФайлу);
       obj.SetValue("ConfirmOverwrite", "no");
       obj.SetValue("ShowSaveAS", "never");
       obj.SetValue("ShowSettings", "never");
       obj.SetValue("RememberLastFileName", "no");
       obj.SetValue("RememberLastFolderName", "no");
       obj.SetValue("ShowProgressFinished", "yes");
       obj.WriteSettings(True);
       
       ПечатныйДок.ИмяПринтера = "PDF Writer - bioPDF";
       ПечатныйДок.Напечатать(Истина);
   исключение            
   КонецПопытки;


Может у него есть какой-то параметр (у объекта obj) чтобы 1С-ка ждала завершения ?

ТекВремя = ТекущаяДата();

Пока 2 = 2 Цикл
   Если ТекущаяДата() - ТекВремя = 5 Тогда
       Прервать;
   КонецЕсли;
КонецЦикла

(1) окошки будут вылазить.... не очень хочется

буква я справа сверху "1С таймер"

(1) неплохо)

(4) тады уж существование файла проверять :))

(6) предлагаешь внешние компоненты?

(8) существование тож не прокатит - файл может быть создан, но занят другйо программой.

запихни попытку в цикл и не парься

(0) Если есть уверенность, что будет работать только на винде, то wscript.shell и run

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

(4) ты зачем ребятенку цигарку суешь?

(13) А если 100 документов формируется, ждать не упреешь?

v8: как сделать задержку?

(12)не поможет

(15) а цикл крутить 5 секунд не упреешь да?

Книга знаний: Перепроведение документов в 1С:Предприятие без блокировки других пользователей

(0) Регламентное задание раз в минуту (две или три..), которое будет тупо копировать все нескопированные файлы. Или Cobian какой нить...

(18) А где я это предлагал?

sleep не предлагать?

(22) еще один...

(22) и куда его? в "run" ?

(17) Чёй-то вдруг? запустить приложение с дождаться завершения (приложение - скрипт со sleep)

WshShell = Новый COMОбъект("WScript.Shell");
Сообщить(ТекущаяДата());
чисСекунд = 10;
WshShell.Run("cmd.exe /c ping -n " + чисСекунд + " 127.0.0.1 > NUL", 0, 1);
Сообщить(ТекущаяДата());

программе ведь делать больше нечего, кроме как в цикле бестолку молотить
(0) вешай обработчик ожидания и никого не слушай.

(24) можно в vbs, можно через DynamicWrapper напрямую заюзать WinAPI

(25)какое приложение ... файл формируется 1с

ПечатныйДок.Напечатать(Истина);

(27) чем цикл со слипом принципиально отличается от обработчика ожидания?

(0) копируешь то как?

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

WScript.Sleep 500

(0)А сразу в два места его печатать не вариант?

(33)вот только он не срабатывает во время выполнения какого-либо кода

(27) с обработчиком 1 минус: у меня формируется таких документов 3 штуки (подряд). Следовательно нужно в обработчике ожидания проверять какой файлик создался и скопирвоали его уже или нет. После того как все файлы скопируются - отключать обработчик.

НУ как-то лишние действия...все-таки проще, как мне кажется, делать именно паузу.

(36) а нам это не важно. он отработает во время простоя либо когда сформируется все задание.

(33) ты приводишь аргумент "за", который вытекает из додуманного тобой контекста задачи. автор не озвучил детали, поэтому пока особой разницы не вижу

и потом, не надо забывать про обработку ошибок и информирование пользователя

(37) объявляем переменную МассивФайлов. Вешаем обработчик ожидания. В обработчике ожидания бегаем по массиву и пытаемся скопировать файлы по имени из массива. Если скопировали - удаляем элемент. В основной процедуре выполняется код из (3) и добавляет в МассивФайлов имена файлов для копирования.

+(32) КопироватьФайл(  вроде б ждет окончания, в ЗапуститьПриложение( есть флажок ждатьЕпт, КомандаСистемы( непонятно (СП: "После загрузки Windows-приложения управление возвращается в 1С:Предприятие и исполнение модуля продолжается." )

кстати, немного в сторону:
биопдф я бы порекомендовал заменить на PDFCreator - у него больше возможностей и меньше ограничений

печатать в пдф средствами 1С не предлагать?

(43) я его пробовал, но что-то мне его настройка не понравилась. По биопдф нашел более наглядные примеры работы.

(44) каким образом???

(46) ТабДок.Записать( "D:\МояПэДЭЭфочка.pdf", ТипФайлаТабличногоДокумента.PDF )

(47) из будущего прилетел? как там ВВП поживает?

(47) стоит уточнить, что это только на последних версиях платформы

http://infostart.ru/public/75969/

(47) я работаю на 8.2.13 ... на сколько я помню там такого НЕТ!

http://infostart.ru/public/18670/

(51) в 8.2.15 есть, вроде б в 14 появилось

А ПодключитьОбработчикОжидания не годится?

(53) Неа, в 14 нету.

(50) что-то как-то все это геморойно выглядик.

Запихни в командный файл или любой другой скрипт с последовательным выполнением команд.
Когда ПДФ-принтер сформирует файл и завершит работу. сработает команда копирования.

(56) да чё геморройно-то? не читал, что-ли? я тебе ссылку на развёрнутый пример дал.

найди 5 отличий

PDFCreatorOptions = PDFCreator.cOptions;
PDFCreatorOptions.AutosaveDirectory = КаталогСохранения;    
PDFCreatorOptions.AutosaveFilename = ИмяФайла;
ТабличныйДокумент.ИмяПринтера = "PDFCreator";
ТабличныйДокумент.Напечатать();

как вы можете на 13 и 14 работать при таком багфиксе, что в 15 сделали...

(58) и таже проблема:


// Здесь одна особенность, которую я победил не очень хорошим способом. Помните, что у нас все файлы называются "Табличный документ.pdf"? Это нас не устраивает - надо переименовать, но поскольку принтер работает не мгновенно, необходимо сначала дождаться, пока файл сформируется и запишется на диск. Так что запускаем цикл и ждем пока файл появится. Да, грузится проц, но что поделать - это ненадолго.
       // На случай, если что-то пойдет не так, ставим ограничение в 30 секунд, по истечении которых цикл прерываем принудительно
       ФайлСформирован = Истина;
       ФайлPDF = Новый Файл(Путь + "Табличный документ.pdf");
       Порог   = ТекущаяДата() + 30;
       Пока Не ФайлPDF.Существует() И ФайлСформирован Цикл
           ОбработкаПрерыванияПользователя();

           Если ТекущаяДата() >= Порог Тогда
               ФайлСформирован = Ложь;
           КонецЕсли;
       КонецЦикла;

(60) а я что, говорил, что это решит данную проблему?

(59) сколько не читал всякие темы на форуме, убеждался ,что 13 релиз наиболее стабильный....про 14 вообще молчу - бедные люди, кто на него перешел.

PDFCreator - OSS, не имеет ограничений по установке на серверные оси, работе по сети, и т.п.

(62) там серверную часть сильно подлатали, пофиксили кучу всего, что привнесли в 14ой, лично для тебя сделали сохранение в пдф, да и все свежие типовые требуют 15ой... я б советовал переходить

(62) Товарищ из франча сильно удивлялся. когда я с 13 на 14 перешел. Чильно удивлялся.