Жизнь замечательных грибов
В текстах модулей
В запросах
Запрос.УстановитьПараметр(«ПустаяДата«, ‘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 |
&НаКлиенте Процедура ПередЗакрытием(Отказ, СтандартнаяОбработка) РаботаСФайламиКлиент.ПоказатьПодтверждениеЗакрытияФормыСФайлами(ЭтотОбъект, Отказ, Объект.Ссылка); Если Отказ Тогда Возврат; КонецЕсли; <другой код...> КонецПроцедуры |
Результат: появившаяся «скрепочка» и список файлов по её нажатии.
Всё хорошо, одно плохо. Не понятно как это всё будет себя вести при обновлении. Предполагаю что галочки эти нужно будет расставлять каждый раз.
Исходные данные: 1С Бухгалтерия 3.0.75.100, платформа 8.3.16.1063
В одной из задач, понадобилось вбивать валидный адрес (на основе КЛАДР) в одно из полей документа. Было принято решения использовать для этого стандартный функционал 1С.
Результат работы будет выглядеть как-то так:
Итак, последовательность работ:
1) В справочнике «Виды контактной информации», добавляем предопределенный значения «ДокументАбоненты» и «АдресТочкиПодключения». Собственно первое, это название документа в котором будет отображаться форма, и второе — что именно мы храним:
2) В документе создаем табличную часть «Контактная информация» (можно скопировать например из справочника «Торговые точки»)
3) На форме документа располагаем пустую группу с именем «ГруппаКонтактнаяИнформация»
4) В модуль формы копируем:
|
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 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 |
// СтандартныеПодсистемы.КонтактнаяИнформация &НаКлиенте Процедура Подключаемый_КонтактнаяИнформацияПриИзменении(Элемент) УправлениеКонтактнойИнформациейКлиент.НачатьИзменение(ЭтотОбъект, Элемент); КонецПроцедуры &НаКлиенте Процедура Подключаемый_КонтактнаяИнформацияНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка) УправлениеКонтактнойИнформациейКлиент.НачатьВыбор(ЭтотОбъект, Элемент, , СтандартнаяОбработка); КонецПроцедуры &НаКлиенте Процедура Подключаемый_КонтактнаяИнформацияПриНажатии(Элемент, СтандартнаяОбработка) УправлениеКонтактнойИнформациейКлиент.НачатьВыбор(ЭтотОбъект, Элемент,, СтандартнаяОбработка); КонецПроцедуры &НаКлиенте Процедура Подключаемый_КонтактнаяИнформацияОчистка(Элемент, СтандартнаяОбработка) УправлениеКонтактнойИнформациейКлиент.НачатьОчистку(ЭтотОбъект, Элемент.Имя); КонецПроцедуры &НаКлиенте Процедура Подключаемый_КонтактнаяИнформацияВыполнитьКоманду(Команда) УправлениеКонтактнойИнформациейКлиент.НачатьВыполнениеКоманды(ЭтотОбъект, Команда.Имя); КонецПроцедуры &НаСервере Процедура ОбновитьКонтактнуюИнформацию(Результат) УправлениеКонтактнойИнформацией.ОбновитьКонтактнуюИнформацию(ЭтотОбъект, Объект, Результат); КонецПроцедуры &НаКлиенте Процедура Подключаемый_ПродолжитьОбновлениеКонтактнойИнформации(Результат, ДополнительныеПараметры) Экспорт ОбновитьКонтактнуюИнформацию(Результат); КонецПроцедуры &НаКлиенте Процедура Подключаемый_КонтактнаяИнформацияАвтоПодбор(Элемент, Текст, ДанныеВыбора, ПараметрыПолученияДанных, Ожидание, СтандартнаяОбработка) УправлениеКонтактнойИнформациейКлиент.АвтоПодборАдреса(Элемент, Текст, ДанныеВыбора, ПараметрыПолученияДанных, Ожидание, СтандартнаяОбработка); КонецПроцедуры &НаКлиенте Процедура Подключаемый_КонтактнаяИнформацияОбработкаВыбора(Элемент, ВыбранноеЗначение, СтандартнаяОбработка) УправлениеКонтактнойИнформациейКлиент.ОбработкаВыбора(ЭтотОбъект, ВыбранноеЗначение, Элемент.Имя, СтандартнаяОбработка); КонецПроцедуры &НаКлиенте Процедура ПередЗаписью(Отказ, ПараметрыЗаписи) КонецПроцедуры &НаСервере Процедура ПриЗакрытииНаСервере() Адрес = УправлениеКонтактнойИнформацией.КонтактнаяИнформацияОбъекта(Объект.Ссылка,Справочники.ВидыКонтактнойИнформации.АдресТочкиПодключения); если Адрес<>"" тогда об=Документы.Абоненты.НайтиПоНомеру(объект.Номер).ПолучитьОбъект(); об.АдресПодключения=Адрес; об.Записать(); объект.АдресПодключения=Адрес; конецесли; КонецПроцедуры &НаКлиенте Процедура ПриЗакрытии(ЗавершениеРаботы) ПриЗакрытииНаСервере(); КонецПроцедуры // Конец СтандартныеПодсистемы.КонтактнаяИнформация |
Задача: с генерировать строку длинной N из случайных символов.
Решение:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 |
Функция ГенерацияСлучайногоСимвола(длн) ГСЧ = Новый ГенераторСлучайныхЧисел(ТекущаяУниверсальнаяДатаВМиллисекундах()); СлучайнаяСтрока = ""; // генерируем случайное число из 6-ти символов, например "d0c8Yf" Для Сч = 1 по длн Цикл Набор = ГСЧ.СлучайноеЧисло(1,3); Если Набор = 1 Тогда // это число СлучайныйСимвол = ГСЧ.СлучайноеЧисло(0,9); ИначеЕсли Набор = 2 Тогда // это Большая буква латиницы СлучайныйСимвол = Символ(ГСЧ.СлучайноеЧисло(65,90)); ИначеЕсли Набор = 3 Тогда // это маленькая буква латиницы СлучайныйСимвол = Символ(ГСЧ.СлучайноеЧисло(97,122)); КонецЕсли; СлучайнаяСтрока = СлучайнаяСтрока + СлучайныйСимвол; КонецЦикла; Возврат(СлучайнаяСтрока); КонецФункции Сообщить(ГенерацияСлучайногоСимвола(10)); |
Задача: преобразовать номер документа вида ТП1-000234 в число 234. Т.е. убрать префикс и лидирующие нули.
Решение:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 |
&НаСервере Функция УбратьЛидирующиеНули(НомерДокумента) Попытка НомерДокумента = Формат(Число(НомерДокумента), "ЧГ="); Исключение НомерДокумента = СтрЗаменить(СокрЛ(СтрЗаменить(СокрП(НомерДокумента), "0", " ")), " ", "0"); Префикс = ""; Пока КодСимвола(НомерДокумента) < 48 Или КодСимвола(НомерДокумента) > 57 Цикл Префикс = Префикс + Лев(НомерДокумента, 1); НомерДокумента = Сред(НомерДокумента, 2); КонецЦикла; Если Не ПустаяСтрока(Префикс) Тогда НомерДокумента = Префикс + УбратьЛидирующиеНули(НомерДокумента); КонецЕсли; КонецПопытки; Возврат НомерДокумента; КонецФункции &НаСервере функция ИзвлечьНомерДоговора(номер) мм=СтрРазделить(номер,"-"); возврат УбратьЛидирующиеНули(мм[1]); конецфункции |