M_Volkov
Gold Member | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору iRiverStone Цитата: Я бы для начала переименовал шаблон без пробелов и не длиннее 8 символов | В крайнем случае конечно попробую (только в понедельник смогу). Смущает, что на 1-м компе все работает с пробелами... Пока написал проверку атрибутов файла: Код: // заявление о приеме в члены кооператива печатаем из word Документы = СоздатьОбъект("Word.Application"); КаталогФайлов = КаталогИБ() +"ExtForms\PrnForms\Blanki\"; ИмяФайлБланка = КаталогФайлов+"НОВЫЙ договор займа 2018.doc"; //+МВ 07.07.2018 Если ФС.СуществуетФайл(ИмяФайлБланка) = 1 Тогда АтрибутыФайла = ""; ФС.АтрибутыФайла(ИмяФайлБланка,, АтрибутыФайла); Если Сред(АтрибутыФайла, 6, 1) = 0 Тогда Если Сред(АтрибутыФайла, 9, 1) = 1 Тогда Сообщить("Нет доступа к файлу: " + ИмяФайлБланка, "!"); ИначеЕсли Сред(АтрибутыФайла, 1, 1) = 1 Тогда Сообщить("Файл только для чтения: " + ИмяФайлБланка, ""); ИначеЕсли Сред(АтрибутыФайла, 2, 1) = 1 Тогда Сообщить("Файл скрытый: " + ИмяФайлБланка, "!"); ИначеЕсли Сред(АтрибутыФайла, 3, 1) = 1 Тогда Сообщить("Файл системный: " + ИмяФайлБланка, ""); ИначеЕсли Сред(АтрибутыФайла, 5, 1) = 1 Тогда Сообщить("Файл архивный: " + ИмяФайлБланка, ""); ИначеЕсли Сред(АтрибутыФайла, 7, 1) = 1 Тогда Сообщить("Файл временный: " + ИмяФайлБланка, ""); Иначе Сообщить("Атрибуты: " + АтрибутыФайла + " файла: " + ИмяФайлБланка, ""); КонецЕсли; КонецЕсли; Иначе Сообщить("Не найден файл бланка: " + ИмяФайлБланка, "!"); Возврат; КонецЕсли; //-МВ | Цитата: А не проще написать внешнюю обработку, которая один раз прошла всех контриков и поменяла им даты | Обычно так и делаю. Но у них черт знает сколько баз данных. Делаю изменения для одной, они их переносят в другую. Поэтому лучше в ВПФ учесть: Код: СтрДатаРождения = Формат(Докум.Контрагент.ДатаРождения,"ДДДММГГГГ"); //+МВ 07.07.2018 ГодРождения = ДатаГод(Докум.Контрагент.ДатаРождения); Если ГодРождения >= ДатаГод(ТекущаяДата()) Тогда ГодРождения = ГодРождения - 1000; СтрДатаРождения = СтрЗаменить(СтрДатаРождения, ".20", ".19"); КонецЕсли; //-МВ | Эх давно на клюшке не писал, правильно ли? | Всего записей: 5783 | Зарегистр. 23-06-2008 | Отправлено: 06:43 08-07-2018 | Исправлено: M_Volkov, 06:45 08-07-2018 |
|