Автоматическая установка ширины колонки табличного документа. 0 Процедура, которая " примерно" делает автоширину колонок (навроде, как если бы выделить все колонки и дважды щелкнуть мышкой по границе заголовка колонки). Привожу текст, работает неахти, но лучше чем ничего:
Процедура РасчетШириныКолонок(ТабличныйВвести перечисление, выбор перечисления 2
// В 8-ой версии нет такой фунции, но можно сделать так:
ЗначПер=Перечисления.Важность.Средняя; //Установим перечисление предлагаемое выбрать по умолчанию
Если ВвестиЗначение(ЗначПер,"Выберите важность:") тогда
Сообщить(ЗначПер); //обработка вВвод записей в журнал расчетов 1 Добавление записи в журнал расчетов:
Метод Новая может быть вызван где угодно, в глобальном модуле, модуле обработок, документов и т.д.
Данный метод проверяет корректность заполненных реквизитов журнала расчетов. При вводе новых записей журналВхождение вида расчета в группу 0 Посчитаем все начисления текущего сотрудника за январь:
// 1-й вариант:
ВсегоНачислено = 0;
ЖЗ.ВыбратьЗаписиПоОбъекту (ТекСотр, ДатаНач, ДатаКон);
Пока ЖЗ.ПолучитьЗапись()=1 Цикл
Если ЖЗ.ВидРасч.ВходитВГруппу(ГруппаРасчетов.ВсеНачисления)=1 ТоЕсть ли у текущего элемента подчиненные 0 Выборка = Справочники.Номенклатура.Выбрать( , Владелец);
Если Выборка.Следующий() = Истина Тогда
// Есть подчиненные элементы.
КонецЕсли;
Запрос = Новый Запрос;
Запрос.Текст = " ВЫБРАТЬ ПЕРВЫЕ 1
| ЕдиницыИзмерения.Ссылка
|ИЗ
| СправочПосмотреть все результаты поиска похожих
Создание списка всех видов расчетов 0 Для включения всех видов расчетов в произвольный список значений без использования перебора групп видов расчетов можно использовать функцию Шаблон().
//Функция присвоения значения
Функция ПолучениеВР(ВР,Объект)
ВР = Объект;
Возврат " " ;
КонецФуВыгрузка используемых видов расчетов в таблицу значений 0 ТЗВидыРасчетов = Новый ТаблицаЗначений;
ТЗВидыРасчетов.Колонки.Добавить(" ВидРасчета" );
ЖРЗарплата = v7.CreateObject(" ЖурналРасчетов.Зарплата" );
ЖРЗарплата.ВыбратьЗаписи(НачДата,КонДата);
Пока ЖРЗарплата.ПолучитьЗапись() = 1 Цикл
СтрВидыРасчКак указать ссылку на вид расчета 0 ВР = ВидРасчета.НаРуки;
ВР = ВидРасчета.Премия;
ВР = ВидРасчета.ПолучитьАтрибут(" НаРуки" ); Вхождение вида расчета в группу 0 Посчитаем все начисления текущего сотрудника за январь:
// 1-й вариант:
ВсегоНачислено = 0;
ЖЗ.ВыбратьЗаписиПоОбъекту (ТекСотр, ДатаНач, ДатаКон);
Пока ЖЗ.ПолучитьЗапись()=1 Цикл
Если ЖЗ.ВидРасч.ВходитВГруппу(ГруппаРасчетов.ВсеНачисления)=1 ТоПеребор всех видов расчета и видов расчета, входящих в группу 0 // Перебор всех видов расчета
Для Ном=1 По Метаданные.ВидРасчета() Цикл
кфгВР = Метаданные.ВидРасчета(Ном);
ВР = ВидРасчета.ПолучитьАтрибут(кфгВР.Идентификатор);
КонецЦикла;
// Перебор видов расчета, входящих в группу
Для Ном=1 По ГруппаРаПосмотреть все в категории Виды расчетов
Виды расчетов