Автоматическая установка ширины колонки табличного документа. 0 Процедура, которая " примерно" делает автоширину колонок (навроде, как если бы выделить все колонки и дважды щелкнуть мышкой по границе заголовка колонки). Привожу текст, работает неахти, но лучше чем ничего:
Процедура РасчетШириныКолонок(ТабличныйБитая ссылка, <Объект не найден>, Уникальный Идентификатор, GUID 74 Когда кто-то удаляет данные из базы без проверки ссылок на эти объекты, то везде где этот объект использовался появляется сообщение вида: Объект не найден (84:bf5600145e3710ab11dda4c605dbe824) .
https://helpf.pro/uploads/img/_1-46z7I4U7Ww.png
ВБыстрый перенос списка баз с одного компьютера на другой 0 Для 8.1 :
1. Список баз 8.1 можно сохранять в файл.Для этого правой кнопкой мыши по корневому элементу " Информационные базы " , далее " Сохранить ссылку в файл " .
2. Получаем файл с расширением v8i , это текстовый файл в кодировке UTF-8.
ЕсВвести дату, ввод даты 1
ДатаНапоминания = РабочаяДата;
Подсказка = "Введите дату и время";
ЧастьДаты = ЧастиДаты.ДатаВремя;
Если ВвестиДату(ДатаНапоминания, Подсказка, ЧастьДаты) Тогда
// обработка даты напоминания
КонецЕсли
Если ВвестиДату(Д, "Введите дату ссудыВвод записей в журнал расчетов 1 Добавление записи в журнал расчетов:
Метод Новая может быть вызван где угодно, в глобальном модуле, модуле обработок, документов и т.д.
Данный метод проверяет корректность заполненных реквизитов журнала расчетов. При вводе новых записей журналПосмотреть все результаты поиска похожих
Создание списка всех видов расчетов 0 Для включения всех видов расчетов в произвольный список значений без использования перебора групп видов расчетов можно использовать функцию Шаблон().
//Функция присвоения значения
Функция ПолучениеВР(ВР,Объект)
ВР = Объект;
Возврат " " ;
КонецФуВыгрузка используемых видов расчетов в таблицу значений 0 ТЗВидыРасчетов = Новый ТаблицаЗначений;
ТЗВидыРасчетов.Колонки.Добавить(" ВидРасчета" );
ЖРЗарплата = v7.CreateObject(" ЖурналРасчетов.Зарплата" );
ЖРЗарплата.ВыбратьЗаписи(НачДата,КонДата);
Пока ЖРЗарплата.ПолучитьЗапись() = 1 Цикл
СтрВидыРасчКак определить сумму "по окладу" текущего сотрудника 0 ПоОкладу = 0;
ЖЗ = СоздатьОбъект(" ЖурналРасчетов.Зарплата" );
ДатаНач = 01.01.2002;
ЖЗ. ВыбратьПериодПоОбъекту(ТекСотр, ДатаНач);
Пока ЖЗ.ПолучитьЗапись()=1 Цикл
Если ЖЗ.ВидРасч = ВидРасчета.ПоОкладу Тогда
ПоОкладу = ПоОкладу + ЖЗ.РезультатВхождение вида расчета в группу 0 Посчитаем все начисления текущего сотрудника за январь:
// 1-й вариант:
ВсегоНачислено = 0;
ЖЗ.ВыбратьЗаписиПоОбъекту (ТекСотр, ДатаНач, ДатаКон);
Пока ЖЗ.ПолучитьЗапись()=1 Цикл
Если ЖЗ.ВидРасч.ВходитВГруппу(ГруппаРасчетов.ВсеНачисления)=1 ТоПеребор всех видов расчета и видов расчета, входящих в группу 0 // Перебор всех видов расчета
Для Ном=1 По Метаданные.ВидРасчета() Цикл
кфгВР = Метаданные.ВидРасчета(Ном);
ВР = ВидРасчета.ПолучитьАтрибут(кфгВР.Идентификатор);
КонецЦикла;
// Перебор видов расчета, входящих в группу
Для Ном=1 По ГруппаРаПосмотреть все в категории Виды расчетов
Виды расчетов