Рекомендую для прочтения не только руководителям проектов но и рядовым программистам - в книге в доходчивой форме объясняются основные моменты возникновения конфликтных ситуаций, отбрасывается меланхолия, предрассудки и прочие тараканы. Так же, перейдя от часного к общему, содержимое книги можно применить почти в любой из форм трудовых, и не только трудовых отношений. В книге мало букв, но все они концентрированые и много с них матерных, но, говорят что матерится полезно для психики.
Прочтениние займет максимум один час времени, но оно того стоит.
http://www.it4business.ru/mbb
понедельник, 18 апреля 2011 г.
суббота, 16 апреля 2011 г.
1с v8.2 ХранилищеЗначений в Табличной части объекта
В табличных частях объектов 8.2 имеется возможность создавать реквизиты типа ХранилищеЗначений но сохранеие этих реквизитов в тонком клиенте отрабатывается некорректно, разве что каждый раз после присваивания вызывать метод записи объекта Записать(), что не очень то удобно использовать каждый раз при изменении отдельной строки. Для корректной работы с реквизитами такого типа предлагаю сохранять значения в соответствия, которое в свой черед помещается в реквизит формы типа ХранилищеЗначения. Ключем соответствия является идентификатор строки табличной части.
//////////////////////////////////////////////////////////////////////// /////////////////////// Обработчик событий на клиенте &НаКлиенте Процедура ПрикрепленныеФайлыПередУдалением(Элемент, Отказ) ТекущаяСтрока = Элементы.ПрикрепленныеФайлы.ТекущаяСтрока; ДанныеСтроки = Элементы.ПрикрепленныеФайлы.ДанныеСтроки(ТекущаяСтрока); УдалитьДанныеИзСоответствия(ДанныеСтроки.НомерСтроки); КонецПроцедуры //////////////////////////////////////////////////////////////////////// /////////////////////// Обработчик событий на сервере &НаСервере Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка) Хранилище = Новый ХранилищеЗначения(Новый Соответствие); Индекс = -1; Для Каждого Строка Из Объект.ПрикрепленныеФайлы Цикл Индекс = Макс(Индекс, Строка.ПолучитьИдентификатор()); КонецЦикла; КонецПроцедуры &НаСервере Процедура ПередЗаписьюНаСервере(Отказ, ТекущийОбъект, ПараметрыЗаписи) Соответствие = Хранилище.Получить(); Для Каждого Строка Из Объект.ПрикрепленныеФайлы Цикл ИндексТекущейСтроки = Строка.ПолучитьИдентификатор(); Если Не Соответствие[ИндексТекущейСтроки] = Неопределено Тогда // Записать файл ТекущийОбъект.ПрикрепленныеФайлы[Строка.НомерСтроки-1].Файл = Соответствие[ИндексТекущейСтроки]; // Удаление соответствия Соответствие.Удалить(ИндексТекущейСтроки); КонецЕсли; КонецЦикла; Хранилище = Новый ХранилищеЗначения(Соответствие); КонецПроцедуры //////////////////////////////////////////////////////////////////////// /////////////////////// Серверные процедуры и функции &НаСервере Процедура ПоместитьФайлыИзВременногоХранилищаВТЗ(МассивФайлов) СправочникОбъект = РеквизитФормыВЗначение("Объект"); // ... тело модуля Индекс = Индекс + 1; НоваяСтрокаВложения = СправочникОбъект.ПрикрепленныеФайлы.Добавить(); Соответствие = Хранилище.Получить(); Соответствие.Вставить(Индекс, Новый ХранилищеЗначения(Файл)); Хранилище = Новый ХранилищеЗначения(Соответствие); ЗначениеВРеквизитФормы(СправочникОбъект, "Объект"); КонецПроцедуры &НаСервере Процедура УдалитьДанныеИзСоответствия(ТекущаяСтрока); ИндексТекущейСтроки = Объект.ПрикрепленныеФайлы[ТекущаяСтрока-1].ПолучитьИдентификатор(); Соответствие = Хранилище.Получить(); Соответствие.Удалить(ИндексТекущейСтроки); Хранилище = Новый ХранилищеЗначения(Соответствие); КонецПроцедуры
пятница, 8 апреля 2011 г.
Ограничение доступности параметра СКД
В запросах СКД часто встречаются конструкции типа "... Когда &Параметр = Значение(Справочник.ИмяСправочника.ПустаяСсылка) ..." при выводе параметров не совсем красиво отображать пустое значение, а когда запретить вывод параметра поставив ограничение доступности не будут отображатся заполненые значения. Решением есть устанавливать ограничение доступности в СКД при компоновке в зависимости от заполнения параметра пользовательских настроек.
Настройки = ЭтотОбъект.КомпоновщикНастроек.Настройки; Параметр = Настройки.ПараметрыДанных.Элементы.Найти(ИмяПараметра); ПараметрСКД = ЭтотОбъект.СхемаКомпоновкиДанных.Параметры.Найти(ИмяПараметра); Если Не (Параметр = Неопределено Или ПараметрСКД = Неопределено) Тогда ПараметрСКД.ОграничениеИспользования = Не ЗначениеЗаполнено(Параметр.Значение) КонецЕсли;
Дата рождения - 08 апреля
В блоге буду публиковатся интересные методы решения задач и описание нестандартного поведения платформы :)