арегистрации » Поиск

Результаты по ключевому слову: арегистрации

Слияние журнал арегистрации 1С

Скачать обработку 1С для слияния журналов регистрации.

В основе обработки лежит платформенный метод:

СкопироватьЖурналРегистрации(<ИмяВходногоФайла>, <ИмяВыходногоФайла>, <Отбор>)[/pre]Подробнее

Категория: 1С Общие вопросы - Управляемые формы и Такс…

Событие ПередЗаписью регистра сведений. Как перед записью изменить значение реквизита записи?

Событие ПередЗаписью возникает перед выполнением записи набора регистра сведений. Процедура-обработчик вызывается после начала транзакции записи, но до начала записи набора регистра сведений.

Пример проверки на условие и заполнение реквизита Цвет:

Код 1C v 8.х

 Процедура ПередЗаписью(Отказ, Замещение)

	Для Каждого ТекЗапись Из ЭтотОбъект Цикл

		Если ТекЗапись.СерияНоменклатуры.Восстановленный Тогда 

			ТекЗапись.Цвет="2551650";	

		Иначе

			ТекЗапись.Цвет="";

		КонецЕсли;

	КонецЦикла;	

КонецПроцедуры

Ниже приведен пример процедуры ПередЗаписью для регистра сведений «Курсы», который содержит курсы валют по периодам. При попытке ввести или изменить курс валюты период которого раньше даты регистрации фирмы будет выведено два сообщения:

Код 1C v 8.2 УП

 Процедура ПередЗаписью (Отказ, Замещение)

            ДатаРегистрации = Константы.ДатаРегистрации.Получить ();

            Для Каждого ТекЗапись Из ЭтотОбъект Цикл

             

                        Если ТекЗапись.Период < ДатаРегистрации Тогда

// Если период раньше даты регистрации

            Отказ = Истина; // отказ от записи

                        Сообщить(" Запись от " + ТекЗапись.Период +

                                               " с курсом " + ТекЗапись.Курс +

                                               " раньше даты регистрации фирмы!");

                        КонецЕсли;

            КонецЦикла;

             

    Если Отказ Тогда

            Сообщить ("Запись не выполнена!");

            КонецЕсли;

КонецПроцедуры

Категория: Регистры сведений

Конвертация данных 3.0. Настройка правил конвертации в формате Enterprise Data. Пример использования

Задача

Передать информацию о контрагентах из УП в БП. Данные передаются в одностороннем порядке, идентификация производится по уникальному идентификатору.Настройка правил конвертации выполняется с помощью специальной конфигурации Конвертация данных, редакция 3.0 (далее – КД 3.0).

Выполняемые действия

Этап 1. Подготовка к настройке правил.

Для настройки правил конвертации в конфигурации КД 3.0 должны содержаться сведения о структуре информационных баз, между которыми производится синхронизация данных, а также о структуре формата Enterprise Data.

Шаг 1. Выгрузка структуры информационных баз УП и БП.

Для выгрузки информации о структуре информационной базы используется обработкаMD83Exp.epf, входящая в комплект поставки конфигурации КД 3.0.

Для каждой информационной базы (УП и БП) необходимо выполнить следующие действия:

Открыть информационную базу в режиме “Предприятие”.
Открыть внешнюю обработку MD83Exp.epf (Меню Файл & Открыть).
Указать имя файла, в который следует сохранить структуру информационной базы.
Проверить настройки в форме обработки (все флаги должны быть сняты).
Нажать кнопку Выгрузить.

Шаг 2. Экспорт xml-схемы формата обмена

Для выгрузки схемы формата обмена используются стандартные возможности платформы.

Необходимо выполнить следующие действия:

Открыть одну из информационных баз (либо УП либо БП) в режиме “Конфигуратор”.
В дереве метаданных найти XDTO пакеты с именами ExchangeMessage иEnterpriseData_1_0_beta.
Установить курсор на пакет XDTO, нажать правую кнопку мыши и в контекстном меню выбрать пункт Экспорт XML-схемы. Указать путь и имя файла для экспорта. Выполнить это действие для каждого из двух пакетов, сохранив XML-схемы в два разных файла.

Шаг 3. Загрузка структуры информационных баз в конфигурацию КД 3.0

Загрузка выполняется в конфигурацию КД 3.0 в режиме “Предприятие”. Перечисленные ниже действия следует выполнить для каждой из конфигураций, для которых настраиваются правила конвертации (УП и БП).

Перейти в раздел Конфигурации, и выбрать команду Загрузка структуры конфигурации.
Указать путь к файлу со структурой информационной базы (см. Этап 1, Шаг 1).
Указать способ загрузки & в новую версию конфигурации.
Нажать кнопку Выполнить загрузку, дождаться окончания загрузки.

Шаг 4. Загрузка структуры формата обмена в конфигурацию КД 3.0

Загрузка выполняется в конфигурацию КД 3.0 в режиме “Предприятие”.

Перейти в раздел Формат данных, и выбрать команду Загрузка структуры формата.
Указать файлы со структурой формата (см. Этап 1, Шаг 2). Необходимо указать сразу оба файла, используя множественный выбор.
Проверить имя основного пакета XDTO – должен совпадать с пространством имен пакета XDTO EnterpriseData_1_0_beta (см. в конфигураторе УП или БП).
Указать способ загрузки & в новую версию формата.
Нажать кнопку Выполнить загрузку, дождаться окончания загрузки.

Этап 2. Создание конвертаций

Для решения описанной задачи необходимо создать две конвертации:

УП (для выгрузки данных из УП в формат обмена)
БП (для загрузки данных из формата обмена в БП)

Создание конвертаций производится в разделе Конвертации, команда Конвертации. Для новой конвертации необходимо указать наименование, конфигурацию и формат обмена. Например, конвертация для конфигурации УП:

Наименование & “УП2.0.7”.
Конфигурация & “УправлениеПредприятием”.
Поддерживаемые версии формата & одна строка, в которой выбрана единственная позиция справочника Версии формата.

Далее для каждой из двух конвертаций требуется настроить правила:

правила обработки данных,
правила конвертации объектов,
правила конвертации предопределенных данных.

Для перехода к комплекту правил конкретной конвертации необходимо перейти в разделКонвертации, выбрать команду Настройка правил конвертации и выбрать в списке конкретную конвертацию, для которой будут настраиваться правила. В результате будет открыта форма Настройка правил обмена, в которой собраны все правила для конкретной конвертации.

Этап 3. Создание правил конвертации объектов

Шаг 1. Правило конвертации для выгрузки контрагентов из УП

Открыть настройку правил обмена для конвертации УП.
Перейти на закладку Правила конвертации объектов.
Создать новое правило конвертации и заполнить данные на закладке Основные сведения:
1. Идентификатор правила: “Справочник_Контрагенты_Отправка”,
2. Объект конфигурации: “СправочникСсылка.Контрагенты”,
3. Объект формата: “Справочник.Контрагенты”,
4. Область применения: Для отправки.
Нажать кнопку Записать и перейти на закладку Правила конвертации свойств:
1. Воспользоваться сервисом автоматического сопоставления свойств
  1. Нажать кнопку Настройка ПКС
  2. В открывшейся форме нажать Автосопоставление. Сопоставятся свойства “ИНН”, “КПП”, “Наименование”, “НаименованиеПолное”, “ДополнительнаяИнформация”, “ЮридическоеФизическоеЛицо”
  3. Сохранить результат автоматического сопоставления & нажать кнопкуСоздать правила конвертации свойств и закрыть форму настройки правил конвертации свойств
2. Вручную добавить правило конвертации свойства для ОКПО (свойство конфигурации & “КодПоОКПО”, свойство формата & “ОКПО”).
3. Позже потребуется вернуться к правилам конвертации свойств, чтобы заполнить правило конвертации свойства для свойства “ЮридическоеФизическоеЛицо”, которое является перечислением.
Нажать кнопку Записать и закрыть.

Шаг 2. Правило конвертации для загрузки контрагентов в БП

Открыть настройку правил обмена для конвертации БП.
Перейти на закладку Правила конвертации объектов.
Создать новое правило конвертации и заполнить данные на закладке Основные сведения:
1. Идентификатор правила: “Справочник_Контрагенты_Получение”,
2. Объект конфигурации: “СправочникСсылка.Контрагенты”,
3. Объект формата: “Справочник.Контрагенты”,
4. Область применения: Для получения.
Нажать кнопку Записать и перейти на закладку Идентификация. Указать способ идентификации «По уникальному идентификатору».
Перейти на закладку Правила конвертации свойств
1. Воспользоваться сервисом автоматического сопоставления свойств:
  1. Нажать кнопку Настройка ПКС
  2. В открывшейся форме нажать Автосопоставление. Сопоставятся свойства “ИНН”, “КПП”, “Наименование”, “НаименованиеПолное”, “ДополнительнаяИнформация”, “ЮридическоеФизическоеЛицо”.
  3. Сохранить результат автоматического сопоставления & нажать кнопкуСоздать правила конвертации свойств и закрыть форму настройки правил конвертации свойств.
2. Вручную добавить правило конвертации свойства для ОКПО (свойство конфигурации & “КодПоОКПО”, свойство формата & “ОКПО”).
3. Позже потребуется вернуться к правилам конвертации свойств, чтобы заполнить правило конвертации свойства для свойства “ЮридическоеФизическоеЛицо”, которое является перечислением.
Перейти на закладку ПередЗаписьюПолученныхДанных и написать алгоритм для заполнения страны регистрации нового контрагента. Алгоритм содержит следующий текст: «ПолученныеДанные.СтранаРегистрации = Справочники.СтраныМира.Россия;».
Нажать кнопку Записать и закрыть.

Этап 4. Создание правил конвертации предопределенных данных

Порядок действий одинаков для обоих конвертаций.

Открыть настройку правил обмена для конвертации (УП или БП)
Перейти на закладку Правила конвертации предопределенных данных
Создать новое правило конвертации и заполнить его свойства:
1. Идентификатор правила: “Перечисление_ЮридическоеФизическоеЛицо”
2. Объект конфигурации: “ПеречислениеСсылка.ЮридическоеФизическоеЛицо”
3. Объект формата: “ЮридическоеФизическоеЛицо”
4. Область применения: для отправки и получения
5. В табличном поле заполнить соответствия значений перечисления конфигурации и формата: “ФизическоеЛицо” & “ФизическоеЛицо” и “ЮридическоеЛицо” & “ЮридическоеЛицо”
6. Нажать кнопку Записать и закрыть
Указать новое правило в правиле конвертации свойства “ЮридическоеФизическоеЛицо” справочника Контрагенты
1. Перейти на закладку Правила конвертации объектов
2. Найти правило конвертации справочника Контрагенты, открыть форму правила
3. Перейти на закладку Правила конвертации свойств и найти правило для свойства “ЮридическоеФизическоеЛицо”
4. Открыть форму правила конвертации свойства и указать в нем правило конвертации объекта & “Перечисление_ЮридическоеФизическоеЛицо”.
5. Сохранить внесенные изменения

Этап 5. Создание правил обработки данных

Порядок действий одинаков для обоих конвертаций.

Открыть настройку правил обмена для конвертации (УП или БП)
Перейти на закладку Правила конвертации объектов
Найти правило конвертации справочника Контрагенты, открыть форму правила
Нажать кнопку Создать на основании & Правило обработки данных
В созданном правиле обработки данных проверить заполнившиеся автоматически свойства:
1. Идентификатор правила & указать такой же как для правила обработки данных (“Справочник_Контрагенты_Отправка” либо “Справочник_Контрагенты_Получение”)
2. Область применения & такая же как для правила обработки данных
3. Объект выборки:
  1. для конвертации УП & “СправочникСсылка.Контрагенты”
  2. для конвертации БП & “Справочник.Контрагенты”
4. Правило конвертации объекта & ссылка на правило конвертации объекта.
Нажать кнопку Записать и закрыть.

Этап 6. Получение модулей менеджера обмена данными

Модуль менеджера обмена данными необходим для обмена данными между конфигурациями в соответствии с настроенными в КД 3.0 правилами.

Порядок действий одинаков для обеих конвертаций:

Открыть информационную базу УП или БП в режиме “Конфигуратор”. Найти в дереве метаданных общий модуль МенеджерОбменаЧерезУниверсальныйФормат и открыть его для редактирования. Модуль должен быть пустым.
Открыть информационную базу КД 3.0 в режиме “Предприятие”.
Перейти в раздел Конвертации и выбрать команду Выгрузка модуля.
В открывшейся форме указать соответствующую конвертацию и нажать кнопку Выгрузить. Модуль будет скопирован в буфер обмена.
Перейти в конфигуратор информационной базы УП или БП и вставить содержимое буфера обмена в общий модуль МенеджерОбменаЧерезУниверсальныйФормат.
Сохранить конфигурацию.

Выгрузка модуля в буфер обмена также может производиться из формы настройки правил обмена по кнопке Сохранить модуль менеджера обмена.

Для того чтобы по настроенным правилам выполнялся обмен данными, необходимо в обеих информационных базах в режиме “Предприятие” настроить синхронизацию данных через универсальный формат.

Источник

Категория: Конвертация данных, Обмен, Перенос

Управление регистрацией документа в последовательности документов

Для управления регистрацией документа в последовательности документов служит набор записей регистрации в последовательности документов.

У документа есть свойство ПринадлежностьПоследовательностям. Значением свойства является коллекция наборов записей регистрации в последовательности документов. Для каждой последовательности, в которой участвует документ, существует свой собственный экземпляр набора записей. Если у документа стоит режим автоматического заполнения последовательностей, то перед записью документа наборы записей регистрации будут автоматически заполнены. Для последовательностей без измерений набор записей будет содержать только одну запись. Для последовательностей с измерениями число записей зависит от содержания документа и настройки соответствия измерений последовательности реквизитам документа.

Набор записей автоматически заполняется до записи документа и записывается после записи документа в одной транзакции с ним. Это позволяет в обработчиках событий документа ПередЗаписью() и ПриЗаписи() переопределить набор записей регистрации. Так, например, если документ входит в последовательность Последовательность1 и у документа стоит признак автоматического заполнения последовательности, то для того что бы отменить его регистрацию в последовательности в зависимости от значения реквизита документа достаточно в модуль документа вставить обработчик события ПередЗаписью() следующего содержания:

Код 1C v 8.х

 Процедура ПередЗаписью(Отказ, РежимЗаписи, РежимПроведения)

	Если Не Регистрировать Тогда

		ПринадлежностьПоследовательностям.Последовательность1.Очистить();

	КонецЕсли;

КонецПроцедуры

В этом случае если реквизит Регистрировать имеет значение "Ложь", то документ не будет зарегистрирован в последовательности Последовательность1. Кроме отмены регистрации документа в последовательности, доступна возможность написания собственного алгоритма регистрации документа в последовательности. Для этого надо очистить набор записей регистрации и заполнить его новыми записями.

Код 1C v 8.х

 Процедура ПередЗаписью(Отказ, РежимЗаписи, РежимПроведения) 

	ПринадлежностьПоследовательностям.Последовательность1.Очистить();

	Если ВидРегистрации = 1 Тогда

		ЗП = ПринадлежностьПоследовательностям.Последовательность1.Добавить();

		ЗП.Измерение = Реквизит1;

	ИначеЕсли ВидРегистрации = 2 Тогда

		ПринадлежностьПоследовательностям.Последовательность1.Добавить();

		ЗП.Измерение = Реквизит2;

	КонецЕсли;

КонецПроцедуры

Пример

Код 1C v 8.х

 	// Зарегистрируем в последовательности УУ

		Если ОтражатьВУправленческомУчете Тогда

			ЗаписьРегистрации = ПринадлежностьПоследовательностям.ПартионныйУчет.Добавить();

			ЗаписьРегистрации.Период      = Дата;

		КонецЕсли;



Процедура ПоследовательностьВзаиморачеты(ДокумСсылка) Экспорт 

	ДокументМоментВремени = Новый МоментВремени(ДокумСсылка.дата, ДокумСсылка);

	

	НаборЗаписей = Последовательности.Взаиморасчеты.СоздатьНаборЗаписей();

	НаборЗаписей.Отбор.Регистратор.Установить(ДокумСсылка);

	НоваяЗапись = НаборЗаписей.Добавить();

	НоваяЗапись.Регистратор = ДокумСсылка;

	НоваяЗапись.Период = ДокумСсылка.Дата;

	НаборЗаписей.Записать(); 

	

	//Установим границу последовательности на документ

	Последовательности.Взаиморасчеты.УстановитьГраницу(ДокументМоментВремени);

КонецПроцедуры



Функция ПолучитьГраницуПоследовательности(Организация = Неопределено) Экспорт

	

	Запрос = Новый Запрос;

	Запрос.Текст = 

	"ВЫБРАТЬ

	|	ПартионныйУчетГраницы.МоментВремени

	|ИЗ

	|	Последовательность.ПартионныйУчет.Границы КАК ПартионныйУчетГраницы

	|";

	

	Выборка = Запрос.Выполнить().Выбрать();

	Если Выборка.Следующий() Тогда

		Возврат  Выборка.МоментВремени;

	Иначе

		Возврат Новый МоментВремени('00010101');

	КонецЕсли;



КонецФункции



Процедура ОбновитьСписокПоследовательностей()

	

	Для каждого Последовательность Из Обр.СписокПоследовательностей Цикл

		ИмяПоследовательности = Последовательность.ИмяПоследовательности;

		ГраницаПоследовательности = Последовательности[ИмяПоследовательности].ПолучитьГраницу();

		ДатаГраницы = ГраницаПоследовательности.Дата;

		Последовательность.Актуальность = "" + ДатаГраницы + " " + ГраницаПоследовательности.Ссылка;

		Последовательность.ДатаГраницы = ДатаГраницы;

	КонецЦикла;

	

КонецПроцедуры



// Процедура выполняет поиск и исправление ошибок в последовательности.

//

Процедура КорректировкаРегистрацииВПоследовательности()





	Для Каждого ТекПоследовательность Из Метаданные.Последовательности Цикл

		ТекстЕстьДвижения = "

						|	ВЫБОР

						|		КОГДА СписанныеТоварыСрезПоследних.Регистратор ЕСТЬ NULL";

		Для Каждого ДвиженияВлияющиеНаПоследовательность Из ТекПоследовательность.Движения Цикл

			ТекстЕстьДвижения = ТекстЕстьДвижения + "

						|				И РегистрНакопления" + ДвиженияВлияющиеНаПоследовательность.Имя + ".Регистратор ЕСТЬ NULL";

		КонецЦикла;

		ТекстЕстьДвижения = ТекстЕстьДвижения + "

						|			ТОГДА ЛОЖЬ

						|		ИНАЧЕ ИСТИНА

						|	КОНЕЦ";





		ТекстЗапроса = "ВЫБРАТЬ

						|	Последовательность.Регистратор КАК Регистратор,

						|	Последовательность.Регистратор.Проведен КАК Проведен,

						|	Последовательность.Регистратор.Дата КАК Дата,

						|	Последовательность.Период КАК Период,

						|" + ТекстЕстьДвижения + " КАК ЕстьДвижения

						|ИЗ

						|	Последовательность." + ТекПоследовательность.Имя + " КАК Последовательность

						|		ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.СписанныеТовары КАК СписанныеТоварыСрезПоследних

						|		ПО Последовательность.Регистратор = СписанныеТоварыСрезПоследних.Регистратор

						|		И СписанныеТоварыСрезПоследних.НомерСтроки = 1";

		Для Каждого ДвиженияВлияющиеНаПоследовательность Из ТекПоследовательность.Движения Цикл

			ТекстЗапроса = ТекстЗапроса + "

						|		ЛЕВОЕ СОЕДИНЕНИЕ РегистрНакопления." +ДвиженияВлияющиеНаПоследовательность.Имя + ".Обороты(, , Регистратор, ) КАК РегистрНакопления" + ДвиженияВлияющиеНаПоследовательность.Имя + "

						|		ПО Последовательность.Регистратор = РегистрНакопления" + ДвиженияВлияющиеНаПоследовательность.Имя + ".Регистратор";

		КонецЦикла;





		ТекстЗапроса = ТекстЗапроса + "

						|ГДЕ

						|	НЕ (Последовательность.Регистратор.Проведен

						|	    И (Последовательность.Регистратор ССЫЛКА Документ.КорректировкаСтоимостиСписанияТоваров

						|	       ИЛИ Последовательность.Регистратор.Дата = Последовательность.Период)

						|       И " + ТекстЕстьДвижения + ")

						|";





		Запрос = Новый Запрос(ТекстЗапроса);





		Выборка = Запрос.Выполнить().Выбрать();

		Пока Выборка.Следующий() Цикл

			Если Не Выборка.Проведен Тогда

				НаборЗаписей = Последовательности[ТекПоследовательность.Имя].СоздатьНаборЗаписей();

				НаборЗаписей.Отбор.Регистратор.Установить(Выборка.Регистратор);

				НаборЗаписей.Записать();

			ИначеЕсли (Выборка.Дата <> Выборка.Период)

			        И (ТипЗнч(Выборка.Регистратор) <> Тип("ДокументСсылка.КорректировкаСтоимостиСписанияТоваров")) Тогда

				НаборЗаписей = Последовательности[ТекПоследовательность.Имя].СоздатьНаборЗаписей();

				НаборЗаписей.Отбор.Регистратор.Установить(Выборка.Регистратор);

				НаборЗаписей.Прочитать();

				Для Каждого СтрокаНабора Из НаборЗаписей Цикл

					СтрокаНабора.Период = Выборка.Дата;

				КонецЦикла;

				НаборЗаписей.Записать();

			КонецЕсли;





			Если Не Выборка.ЕстьДвижения Тогда

				НаборЗаписей = Последовательности[ТекПоследовательность.Имя].СоздатьНаборЗаписей();

				НаборЗаписей.Отбор.Регистратор.Установить(Выборка.Регистратор);

				НаборЗаписей.Записать();

			КонецЕсли;

		КонецЦикла;

	КонецЦикла;





КонецПроцедуры



Процедура УдалитьРегистрациюДокументаВПоследовательностях(ДокументОбъект, ПроверятьДвижения = Ложь)Экспорт

	// получение списка последовательностей в которых зарегистрирован документ

	Если ПроверятьДвижения Тогда

		ТаблицаРегистраций = ОпределитьНаличиеРегистрацииДокументаВПоследовательности(ДокументОбъект);

	КонецЕсли;      

	КоллекцияПоследовательностей = ДокументОбъект.ПринадлежностьПоследовательностям;

	Для Каждого НаборЗаписейРегистрацииВПоследовательности ИЗ КоллекцияПоследовательностей Цикл

		Если (НаборЗаписейРегистрацииВПоследовательности.Количество() > 0)

		  ИЛИ (ПроверятьДвижения И (НЕ ТаблицаРегистраций.Найти(НаборЗаписейРегистрацииВПоследовательности.Метаданные().Имя,"Имя") = Неопределено)) Тогда

		   НаборЗаписейРегистрацииВПоследовательности.Очистить();

		КонецЕсли;

	КонецЦикла;

КонецПроцедуры//УдалитьРегистрациюДокументаВПоследовательностях



Функция ОпределитьНаличиеРегистрацииДокументаВПоследовательности(ДокументОбъект) Экспорт

	ТекстЗапроса = "";	

	

	Для Каждого Последовательность ИЗ ДокументОбъект.ПринадлежностьПоследовательностям Цикл

		// в запросе получаем имена последовательностей, в которых документ зарегистрирован

		ТекстЗапроса = ТекстЗапроса + "

		|" + ?(ТекстЗапроса = "", "", "ОБЪЕДИНИТЬ ВСЕ ") + "

		|ВЫБРАТЬ """ + Последовательность.Метаданные().Имя 

		+  """ КАК Имя ИЗ " + Последовательность.Метаданные().ПолноеИмя()  

		+ " ГДЕ Регистратор =Регистратор";

		

	КонецЦикла;

	

	Если ТекстЗапроса = "" Тогда

		Возврат Новый ТаблицаЗначений();

	Иначе

		Запрос = Новый Запрос(ТекстЗапроса);

		Запрос.УстановитьПараметр("Регистратор", ДокументОбъект.Ссылка);

		ТаблицаЗапроса = Запрос.Выполнить().Выгрузить();	

		Возврат ТаблицаЗапроса;

	КонецЕсли;

	

КонецФункции

Категория: Документы

Как получить результат запроса в web таблицу используя Web сервис? Категория: WEB-сервисы, WS-ссылки, XDTO-пакеты

Запуск кода в конфигурации из командной строки

Иногда возникает необходимость запуска кода в базе 1С из командной строки. Например, надо выполнять те или иные процедуры по расписанию, но при этом нет желания каждый раз менять конфигурацию, а хочется прописать всё в батнике и запускать через шедулер (at).
Вижу следующие варианты:
1. изменить один раз конфигурацию, чтобы потом можно было передавать через параметр исполняемый код.
2. прописать выполняемый код во внешней обработке и запускать 1С с параметром /execute
3. написать на vba процедуру выполнения заданных операций через COM.

1. Изменить один раз конфигурацию, чтобы потом можно было передавать через параметр исполняемый код.
В таком варианте необходимо прописать следующий код в модуле приложения процедуре ПриНачалеРаботыСистемы():

Код 1C v 8.х

 Ключ = "Выполнить="; 

ДлКлюча = СтрДлина(Ключ);

 Если Лев(ПараметрЗапуска, ДлКлюча) = Ключ Тогда

  Попытка ДлПараметра = СтрДлина(ПараметрЗапуска);

   СтрокаКода = Прав(ПараметрЗапуска, ДлПараметра-ДлКлюча);

   Выполнить(СтрокаКода); 

 Исключение СтрСообщения="Не удалось выполнить код:"+Символы.ПС+СтрокаКода;

   Предупреждение(СтрСообщения,3); 

   ЗаписьЖурналаРегистрации("Запуск кода из командной строки.", УровеньЖурналаРегистрации.Ошибка, , , СтрСообщения);

  КонецПопытки;

КонецЕсли;

После этого для выполнения кода из командной строки достаточно будет запустить 1С с параметром /cВыполнить=[ИсполняемыйКод]. Например:

Код DOS Batch File

 1cv8.exe enterprise /f"C:\Базы\InfoBase" /nПользователь /pПароль /cВыполнить=Сообщить("Тест!");

2. Прописать выполняемый код во внешней обработке и запускать 1С с параметром /execute
1С имеет параметр запуска "/Execute", с помощью которого можно запустить внешнюю обработку после старта системы. Чтобы воспользоваться этой возможностью, необходимо создать внешнюю обработку с исполняемым кодом в модуле формы:

Код 1C v 8.х

 Процедура ПриОткрытии()

 // тут распологается исполняемы код 

Сообщить("!");

 // закрываем обработку после выполнения кода 

Закрыть(); 

КонецПроцедуры

После этого можно запускать данную обработку из командной строки например так:

Код DOS Batch File

 1cv8.exe enterprise /f"C:\Базы\InfoBase" /nПользователь /pПароль /executec:\Обработки\ВнешняяОбработка.epf

3. Написать на vba процедуру выполнения заданных операций через COM.
Можно все действия прописать в файле VBS и уже его запускать. Пример содержимого файла VBS:

Код VBS

 Set v81 = CreateObject("V81.Application") v81.Connect ("File=""C:\Базы\InfoBase"";Usr=""пользователь"";Pwd=пароль") v81.WriteLogEvent("Был выполнен запуск из VBA")

источник

Категория: Администрирование