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