Жизнь замечательных грибов
Разработки на платформе 1С
После очередного обновления конфигурации 1С, бухгалтерия обнаружила что не работает один из отчетов. Выдает ошибку
|
1 |
метод объекта не обнаружен ПолучитьНомерНаПечать |
Проблема известная и легко гуглится — дело в обновлении БСП в конфигурации. Разработчики переименовали функцию ПрефиксацияОбъектовКлиентСервер.ПолучитьНомерНаПечать() на ПрефиксацияОбъектовКлиентСервер.НомерНаПечать()
Подвох однако 
В интернетике полно примеров чтения CSV из 1С, но в большинстве из них при попытке использования ругается на «метод объекта не обнаружен ПолучитьСтроку». Секретик прост до безобразия: все эти статьи копипасты из одного какого-то источника, где команда ПолучитьСтроку написана в смеси английскиму-русскими буквами.
Вот нормальный рабочий код:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 |
//создаем таблицу, в которую будут записаны данные из файла Таблица = новый ТаблицаЗначений; // чтение сообщить("--читаем файл "+тПуть); ЗагружаемыйФайл = Новый ТекстовыйДокумент; ЗагружаемыйФайл.Прочитать(тПуть); // ИмяФайла - путь к файлу на диске сообщить("--ок"); //Формируем шапку таблицы. Шапка по умолчанию первая строчка сообщить("--получаем шапку"); Шапка = ЗагружаемыйФайл.ПолучитьСтроку(1); сообщить("--ок"); //раскладываем стрoку в массив Разделителем колонок в данном случае является точка с запятой МассивКол = СтроковыеФункцииКлиентСервер.РазложитьСтрокуВМассивПодстрок(Шапка, ";"); //генерируем столбцы сообщить("--генерируем столбцы таблицы"); Для Каждого ИмяСтолбца Из МассивКол Цикл ИмяБезПробелов = СтрЗаменить(ИмяСтолбца," ",""); // убираем из имени пробелы Таблица.Колонки.Добавить(ИмяБезПробелов,,ИмяСтолбца); КонецЦикла; сообщить("--ок"); сообщить("--загружаем файл в таблицу"); Для НомерСтроки=2 по ЗагружаемыйФайл.КоличествоСтрок() Цикл // получить стрoку с указанным номером и преобразуем её в массив Строка = ЗагружаемыйФайл.ПолучитьСтроку(НомерСтроки); МассивКол = СтроковыеФункцииКлиентСервер.РазложитьСтрокуВМассивПодстрок(Строка,";"); НоваяСтрочка= Таблица.Добавить(); Для НомерСтолбца= 1 по МассивКол.Количество() Цикл //заполняем строчку значениями ТекущееЗначение = МассивКол[НомерСтолбца-1]; ИмяКолонки = Таблица.Колонки[НомерСтолбца-1].Имя; НоваяСтрочка[ИмяКолонки] = ТекущееЗначение; КонецЦикла; КонецЦикла; сообщить("--ок"); |
P.S. Тем кто изначально разместил такой не рабочий код, посылаю лучи ненависти. Тоже тупил наверное минут 15.
Бывает так, что обновил платформу, а что-то пошло не так. И нужно вернуть «всё как было». Засада в этот раз подкралась когда удалил обновлённую платформу: перестал стартовать Агент сервера в службах. При внимательном изучении — оказалось что служба пыталась стартовать новый агент, который уже удален. Гугл подсказал, что проблема решается перерегистрацией службы:
|
1 |
ragent.exe -instsrvc |
В текстах модулей
В запросах
Запрос.УстановитьПараметр(«ПустаяДата«, ‘00010101‘);
Задача: организовать прикрепление и хранение файлов в документе. Желательно используя «штатный велосипед» 1С.
Решение:
Всё зависит от БСП на основе которой построена Ваша конфигурация. В моем случае, конфигурация Бухгалтерия 3.0.75.100, БСП 3.1.25
Узнать версию БСП можно при помощи:
|
1 |
Сообщить(СтандартныеПодсистемыСервер.ВерсияБиблиотеки()); |
Далее если есть подписка на ИТС, читаем тут или если нет, то у меня 😉
1) Чтобы ручками не заполнять все реквизиты, копируем справочник «ПередачаТоваровПрисоединенныеФайлы», копию переименовываем в <ИмяМоегоДокумента>ПрисоединенныеФайлы. В моем случае документ носит имя «Абоненты». Далее на скриншотах и в тексте я его так и буду называть. В Вашем случае это будет Ваш справочник/документ.
В реквизите «ВладелецФайла» указываем наш документ
2) В состав определяемых типов ПрисоединенныйФайл (ссылки) и ПрисоединенныйФайлОбъект (объекты) добавим наш документ:
3) Включить в состав плана обмена ОбновлениеИнформационнойБазы
4) Добавить источники у подписк и «ПереопределитьПолучаемуюФормуПрисоединенногоФайла» и «УстановитьПометкуУдаленияПрисоединенныхФайловДокументов»
5) Добавить в состав определяемых типов ВладелецПрисоединенныхФайлов (ссылки) и ВладелецПрисоединенныхФайловОбъект (объекты)
Если перед закрытием формы объекта-владельца файлов требуется проверить наличие занятых текущим пользователем файлов, то необходимо:
|
1 2 3 4 |
&НаКлиенте Процедура ПередЗакрытием(Отказ, СтандартнаяОбработка) РаботаСФайламиКлиент.ПоказатьПодтверждениеЗакрытияФормыСФайлами(ЭтотОбъект, Отказ, Объект.Ссылка); КонецПроцедуры |
|
1 2 3 4 5 6 7 8 |
&НаКлиенте Процедура ПередЗакрытием(Отказ, СтандартнаяОбработка) РаботаСФайламиКлиент.ПоказатьПодтверждениеЗакрытияФормыСФайлами(ЭтотОбъект, Отказ, Объект.Ссылка); Если Отказ Тогда Возврат; КонецЕсли; <другой код...> КонецПроцедуры |
Результат: появившаяся «скрепочка» и список файлов по её нажатии.
Всё хорошо, одно плохо. Не понятно как это всё будет себя вести при обновлении. Предполагаю что галочки эти нужно будет расставлять каждый раз.