По умолчанию, если с сервера отправить письмо вида:
echo "Я поэт, зовусь Незнайка. От меня вам балалайка" | mail -s "Тестовое письмо с сервера wedqw.ru" dwedw@wdwed.ruТо письмо придёт от имени сервера с полем root как отправитель. Для того чтобы подставить нормальное имя, достаточно выполнить:
chfn -f "Gribov Pavel" rootФактически эта команда присвоит учётной записи root в ОС, нормальное имя
А вот не обрабатывает 1С такое событие в регистре сведений, поэтому одним из решений будет обработка параметров формы записи при событии «При создании на сервере». Например так:
&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
если ЗначениеЗаполнено(Параметры.ЗначениеКопирования.uuid) = истина тогда
этотобъект.запись.uuid=Новый УникальныйИдентификатор();
конецесли;
КонецПроцедуры
Т.е. если это «копирование», то значение заполнено «старыми» данными и их можно перезаписать.
Ниже приведены наиболее часто используемые применения. Рассматриваются наиболее часто встречающиеся операции.
Определение типа колонок:
// Ссылочные типы
ТЗ_ДанныеПоСотрудникам.Колонки.Добавить("Сотрудник", Новый ОписаниеТипов("СправочникСсылка.Сотрудники"));
ТЗ_ДанныеПоСотрудникам.Колонки.Добавить("СчетФактура", Новый ОписаниеТипов("ДокументСсылка.СчетФактураВыданный"));
ТЗ_ДанныеПоСотрудникам.Колонки.Добавить("ТипКонтактнойИнформации", Новый ОписаниеТипов("ПеречислениеСсылка.ТипыКонтактнойИнформации"));
// Простые типы
ТЗ_ДанныеПоСотрудникам.Колонки.Добавить("ДолжностьНаименование", Новый ОписаниеТипов("Строка",, Новый КвалификаторыСтроки(150)));
ТЗ_ДанныеПоСотрудникам.Колонки.Добавить("Сумма", Новый ОписаниеТипов("Число",, Новый КвалификаторыЧисла(10,2)));
ТЗ_ДанныеПоСотрудникам.Колонки.Добавить("Дата", Новый ОписаниеТипов("Дата",, Новый КвалификаторыДаты(ЧастиДаты.Дата)));
ТЗ_ДанныеПоСотрудникам.Колонки.Добавить("ЕстьОповещение", Новый ОписаниеТипов("Булево"));
ТЗ_ДанныеПоСотрудникам.Колонки.Добавить("ИменаПолейСубконто", Новый ОписаниеТипов("Массив"));
//Составное
МассивТипов = Новый Массив();
МассивТипов.Добавить(Тип("Булево"));
МассивТипов.Добавить(Тип("ПеречислениеСсылка.ВидыПродукцииИС"));
ТЗ_ДанныеПоСотрудникам.Колонки.Добавить("МаркировкаОстатков", Новый ОписаниеТипов(МассивТипов));
Удаление строк:
// 1. Обходом строк
МассивКУдалению = Новый Массив;
Для Каждого ТекущаяСтрока Из ТЗ Цикл
Если ТекущаяСтрока.Удалить Тогда
МассивКУдалению.Добавить(ТекущаяСтрока);
КонецЕсли;
КонецЦикла;
Для Каждого ТекущаяСтрока Из МассивКУдалению Цикл
ТЗ.Удалить(ТекущаяСтрока);
КонецЦикла;
// 2. Найденные по отбору
НайденныеСтроки = ТЗ.НайтиСтроки(Новый Структура("Удалить", Истина));
Для Каждого ТекущаяСтрока Из НайденныеСтроки Цикл
ТЗ.Удалить(ТекущаяСтрока);
КонецЦикла;
// 3. Выгрузка с отбором
НоваяТЗ = ТЗ.Скопировать(Новый Структура("Удалить", Ложь));Сортировка:
ТЗДат.Сортировать("Дата Возр");Задача: узнать состав текущего отбора на форме списка..и составить аналогичный запрос в БД, для получения выборки
Решение: Применимо в данный момент только к динамическому списку. Отборы получаем чтением данных из компоновщика настроек. Запрос (фактически условие) получается крайне грубым, но приемлемым для моих входящих данных. Итак код:
// Проработаем текущий отбор
sql="";
для каждого стр из Список.КомпоновщикНастроек.ПользовательскиеНастройки.Элементы цикл
попытка ош=стр["Элементы"];исключение прервать; конецпопытки;
для каждого эл из стр.Элементы цикл
если эл.ВидСравнения=ВидСравненияКомпоновкиДанных.Содержит тогда
sql=sql+" И "+эл.ЛевоеЗначение+" ПОДОБНО ""%"+эл.ПравоеЗначение+"%""";
конецесли;
если эл.ВидСравнения=ВидСравненияКомпоновкиДанных.Равно тогда
sql=sql+" И "+эл.ЛевоеЗначение+" = """+эл.ПравоеЗначение+"""";
конецесли;
если эл.ВидСравнения=ВидСравненияКомпоновкиДанных.Больше тогда
sql=sql+" И "+эл.ЛевоеЗначение+" > """+эл.ПравоеЗначение+"""";
конецесли;
если эл.ВидСравнения=ВидСравненияКомпоновкиДанных.Меньше тогда
sql=sql+" И "+эл.ЛевоеЗначение+" < """+эл.ПравоеЗначение+"""";
конецесли;
если эл.ВидСравнения=ВидСравненияКомпоновкиДанных.НеРавно тогда
sql=sql+" И "+эл.ЛевоеЗначение+" <> """+эл.ПравоеЗначение+"""";
конецесли;
конеццикла;
конеццикла;
Задача: вести журнал логов изменения записей регистра сведений
Решение:
Штатного механизма как в Документа или Справочниках нет (ну собственно и правильно, т.к. запись сейчас есть, через минуту её нет). Потому разработаем собственный механизм. Общий алгоритм будет следующий:
При открытии формы регистра, получаем его структуру из метаданных, и запоминаем значения:
&НаКлиенте
Перем ДанныеФормыДоИзменения;
&НаКлиенте
Процедура ПослеЗаписи(ПараметрыЗаписи)
СохранитьИзмененияЕслиТаковыеЕсть(ДанныеФормыДоИзменения)
КонецПроцедуры
&НаСервере
Функция ПолучитьДанныеДоОбновления()
ДанныеПоРегистру=Метаданные.РегистрыСведений.СГ_ГР_ТранспортныйФайлПриборыУчета;
ДоступныеПоля=Новый Структура();
для каждого стр из ДанныеПоРегистру.Измерения цикл
ДоступныеПоля.Вставить(стр.имя,неопределено);
конеццикла;
для каждого стр из ДанныеПоРегистру.Ресурсы цикл
ДоступныеПоля.Вставить(стр.имя,неопределено);
конеццикла;
Данные=Новый Структура();
для каждого стр из ДоступныеПоля цикл
ключ=стр.Ключ;
значение=ЭтотОбъект.Запись[Стр.Ключ];
Данные.Вставить(ключ,Строка(значение));
конеццикла;
возврат Данные;
КонецФункцииПри сохранении данных из формы регистра:
НаСервере
Функция СохранитьИзмененияЕслиТаковыеЕсть(ДанныеФормыДоИзменения)
для каждого стр из ДанныеФормыДоИзменения цикл
если стр.Значение<>Строка(ЭтотОбъект.Запись[Стр.Ключ]) тогда
СК_ГР_РаботаСТранспортнымиФайлами.СделатьЗаписьОбИзменении(
ЭтотОбъект.Запись["dt"],
перечисления.СК_ГР_РегистрДляОбработки.Приборы,
Строка(Стр.Ключ),
Строка(стр.Значение),
Строка(ЭтотОбъект.Запись[Стр.Ключ])
);
конецесли;
конеццикла;
КонецФункции
&НаКлиенте
Процедура ПриОткрытии(Отказ)
ДанныеФормыДоИзменения=ПолучитьДанныеДоОбновления();
КонецПроцедуры
В сам регистр «изменений», пишем так:
// Запись в регистр данных об изменении какого то поля в регистрах
// Вход:
// Период - Дата загрузки из регистра
// Изменяемый регистр - перечисления.СК_ГР_РегистрДляОбработки
// Поле - изменяемое поле (строка)
// Было - значение которое было (строка)
// Стало - значение которое стало (строка)
Функция СделатьЗаписьОбИзменении(Период,Регистр,Поле,Было,Стало) экспорт
МенеджерЗаписи = РегистрыСведений.СК_ГР_ИсторияИзменений.СоздатьМенеджерЗаписи();
МенеджерЗаписи.Период=ТекущаяДата();
МенеджерЗаписи.ПериодЗагрузки = Период;
МенеджерЗаписи.ИзменяемыйРегистр = Регистр;
МенеджерЗаписи.ИзменяемоеПоле = Поле;
МенеджерЗаписи.Было = Было;
МенеджерЗаписи.Стало = Стало;
МенеджерЗаписи.Исполнитель = Пользователи.ТекущийПользователь();
МенеджерЗаписи.Записать();
КонецФункции