измененные » Поиск

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

РеквизитФормыВЗначение() и ДанныеФормыВзначение() - Описание и примеры использования

gvk2009 подробно и доходчиво описал разницу методов, за что ему огромное спасибо:

В Синтаксис-Помощнике очень скупо написано о процедуре ДанныеФормыВЗначение(), чуть побольше - о РеквизитФормыВЗначение(). И совсем нет примеров использования. Попробуем с этим разобраться.

РеквизитФормыВЗначение()

Является методом управляемой формы, компилируется только &НаСервере, контекст формы является для него необходимым, поэтому компиляция &НаСервереБезКонтекста недоступна. На клиенте не работает, поскольку в результате получаем прикладной объект.

Где и когда его нужно использовать?

Метод РеквизитФормыВЗначение() необходим, если требуется из модуля формы вызвать стандартный метод объекта или метод (процедуру, функцию) из модуля объекта, из общего модуля.

Этот метод будет отрабатывать с данными, взятыми из формы, т.е. еще не записанными в базу.

Для того, чтобы измененные данные вернуть на форму, используется метод ЗначениеВРеквизитФормы().

Вторым параметром метода РеквизитФормыВЗначение является тип значения. Это необязательный параметр. Если обрабатываемый реквизит не является составным типом, то тип будет автоматически получен из реквизита формы. Иначе генерируется исключение времени выполнения.

Примеры:

Код 1C v 8.2 УП

 // 1)

&НаСервере

Процедура ЗаполнитьТЧПоДаннымПоследнегоДокумента(Контрагент)

            ДокОбъект = РеквизитФормыВЗначение("Объект");

            ДокОбъект.ЗаполнитьТЧПоДаннымПоследнегоДокумента(Контрагент);

            ЗначениеВРеквизитФормы(ДокОбъект, "Объект");

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





// 2)

&НаСервере

Процедура ОчиститьСтрокиСПустойЦенойНаСервере()

	ДокОбъект = РеквизитФормыВЗначение("Объект");

	ДокОбъект.ОчиститьСтрокиСПустойЦеной();

	ЗначениеВРеквизитФормы(ДокОбъект, "Объект");

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



//3)

&НаСервере

Функция ОбъектЗаполнен()

	Возврат РеквизитФормыВЗначение("Объект").ПроверитьЗаполнение();

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

В указанных выше случаях метод РеквизитФормыВЗначение() похож на метод ПолучитьОбъект(). Разница в том, что первый получает объект, заполненный данными формы, а второй - объект с данными из базы.

ДанныеФормыВзначение()

В отличие от метода управляемой формы РеквизитФормыВЗначение(), процедура глобального контекста ДанныеФормыВЗначение() может работать без контекста формы, но именно поэтому, в частности, ей необходимо указывать тип конвертируемых данных.

Обратной процедурой является ЗначениеВДанныеФормы().

Примеры:

Код 1C v 8.2 УП

 // 1)

    &НаСервере

       // Инициализация набора констант

       НаборКонстантОбъект = ДанныеФормыВЗначение(НаборКонстант, Тип("КонстантыНабор"));

       НаборКонстантОбъект.Прочитать();

       ЗначениеВДанныеФормы(НаборКонстантОбъект, НаборКонстант);



// 2)

   &НаСервере  

       НаборФорма = Объект.Движения.РегистрУправленческий;

       Набор = ДанныеФормыВЗначение(НаборФорма, Тип("РегистрБухгалтерииНаборЗаписей.РегистрУправленческий"));

       Если Набор.Количество()=0 Тогда

              Возврат;

       КонецЕсли; 

       Набор.УстановитьАктивность(НЕ Набор[0].Активность);

       ЗначениеВДанныеФормы(Набор, НаборФорма);

В этом примере на форме отображен набор записей регистра бухгалтерии. При отработке процедуры, активность набора меняется только на форме, в базе при этом ничего не происходит. Активность у набора записей регистра в базе поменяется только после выполнения операции Записать.

Код 1C v 8.2 УП

 // 3)

&НаКлиенте

Процедура Заполнить(Команда)

       ОснРеквизит = Объект;

       ВыполнитьНаСервереБезКонтекста(ОснРеквизит);

       КопироватьДанныеФормы(ОснРеквизит,Объект)

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



&НаСервереБезКонтекста

Процедура ВыполнитьНаСервереБезКонтекста(ОснРеквизит)

       ОбъектЗначение = ДанныеФормыВЗначение(ОснРеквизит, Тип("ДокументОбъект.АктСверкиВзаиморасчетов"));

       //...Выполнение операций с Объектом "ОбъектЗначение"

       ЗначениеВДанныеФормы(ОбъектЗначение, ОснРеквизит);

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

В этом примере на клиент возвращается ОснРеквизит, содержащий измененные данные. Но его еще нужно "запихать" в отображаемую форму. Для этого используем процедуру глобального контекста КопироватьДанныеФормы().

В большинстве случаев процедуры ДанныеФормыВзначение() и РеквизитФормыВЗначение() взаимозаменяемы. При этом РеквизитФормыВЗначение проще в использовании. Но если требуется использование &НаСервереБезКонтекста - тогда только ДанныеФормыВЗначение.

В качестве иллюстрации взаимозаменяемости Пример 2 еще в двух вариантах:

Код 1C v 8.2 УП

 // ВАРИАНТ 1

&НаКлиенте

Процедура Активность(Команда)



       ОснРеквизитДвижения = Объект.Движения.РегистрУправленческий;

       АктивностьНаСервереБезКонтекста(ОснРеквизитДвижения);

       КопироватьДанныеФормы(ОснРеквизитДвижения,Объект.Движения.РегистрУправленческий);



КонецПроцедуры // Активность()



&НаСервереБезКонтекста

Процедура АктивностьНаСервереБезКонтекста(ОснРеквизитДвижения)



       Набор = ДанныеФормыВЗначение(ОснРеквизитДвижения, Тип("РегистрБухгалтерииНаборЗаписей.РегистрУправленческий"));

       Если Набор.Количество()=0 Тогда

              Возврат;

       КонецЕсли; 

       Набор.УстановитьАктивность(НЕ Набор[0].Активность);

       ЗначениеВДанныеФормы(Набор, ОснРеквизитДвижения);



КонецПроцедуры // АктивностьНаСервереБезКонтекста()



// ВАРИАНТ 2

&НаСервере

Процедура АктивностьНаСервере()



       НаборФорма = РеквизитФормыВЗначение("Объект");

       Набор = НаборФорма.Движения.РегистрУправленческий;



       Если Набор.Количество()=0 Тогда

              Возврат;

       КонецЕсли; 



       Набор.УстановитьАктивность(НЕ Набор[0].Активность);

       ЗначениеВРеквизитФормы(НаборФорма, "Объект");



КонецПроцедуры // АктивностьНаСервере()

Категория: Управляемое приложение, Тонкий клиент

Функция проверки необходимости перерасчета и Перерасчет записей

Код 1C v 8.х

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

Функция НеобходимостьПерерасчета(Регистратор) Экспорт



Запрос = Новый Запрос( "ВЫБРАТЬ ПЕРВЫЕ 1

| Перерасчет.ФизЛицо

|ИЗ

| (ВЫБРАТЬ ПЕРВЫЕ 1

| Перерасчет.ФизЛицо КАК ФизЛицо

| ИЗ

| РегистрРасчета.ОсновныеНачисленияРегл.ПерерасчетОсновныхНачислений

| КАК Перерасчет

| ГДЕ

| Перерасчет.ОбъектПерерасчета = &Регистратор



|



| ОБЪЕДИНИТЬ ВСЕ

|

| ВЫБРАТЬ ПЕРВЫЕ 1

| Перерасчет.ФизЛицо

| ИЗ

|РегистрРасчета.ДополнительныеНачисленияРегл.ПерерасчетДополнительныхНачислений

| КАК Перерасчет

| ГДЕ

| Перерасчет.ОбъектПерерасчета = &Регистратор) КАК Перерасчет");



Запрос.УстановитьПараметр("Регистратор", Регистратор); Если Запрос.Выполнить().Пустой() Тогда

Возврат Ложь;



Иначе



Возврат Истина;

КонецЕсли;



КонецФункции // НеобходимостьПерерасчета

Данная функция возвращает значение Истина, если хотя бы в одной из таблиц перерасчета есть хотя бы одна запись по данному документу. Если таких записей нет, то функция вернет значение Ложь, и перерассчитывать записи этого документа не нужно.

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

Наконец, после того как нужные записи перерассчитаны, необхо- димо средствами встроенного языка удалить соответствующие записи из таблицы перерасчета, так как перерасчет больше не требуется.
Процедуру перерасчета записей документа рекомендуется помещать в модуле этого документа как экспортную процедуру. В этом случае она может быть вызвана из других модулей, в том числе из обработки перерасчета, описанной в предыдущем разделе. В качестве параметров в процедуру должна передаваться информация о том, какие именно записи документа необходимо перерассчитать. Ниже приведен пример такой процедуры, где в качестве параметра используется список сотрудников, по которым необходимо выполнить перерасчет.

Процедура перерасчета записей документа

Код 1C v 8.х

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



// Перерасчет выполняется в транзакции. НачатьТранзакцию();

Если Не Расчеты.НеобходимостьПерерасчета(Ссылка) Тогда

Возврат; КонецЕсли;



// Считать движения документа по регистрам расчета. Движения.ОсновныеНачисленияРегл.Прочитать(); Движения.ДополнительныеНачисленияРегл.Прочитать();



// Перерасчет и перезапись движений по регистрам расчета.

Расчеты. ПерерассчитатьЗаписиРегистраРасчета("ОсновныеНачисленияРегл", Движения.ОсновныеНачисленияРегл, ОсновныеНачисления, Физлица);

Движения.ОсновныеНачисленияРегл.Записать(Истина, Истина);



Расчеты.ПерерассчитатьЗаписиРегистраРасчета("ДополнительныеНачисленияРегл", Движения.ДополнительныеНачисленияРегл, ДополнительныеНачисления, Физлица);

Движения.ДополнительныеНачисленияРегл.Записать(Истина, Истина);



// Записать измененные данные табличных частей документа. Записать();



// Удалить записи перерасчета, по которым выполнен перерасчет. Для Н = 1 По 2 Цикл

Если Н = 1 Тогда

НаборЗаписей = РегистрыРасчета.ОсновныеНачисленияРегл.

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

НаборЗаписей.Записать(); КонецЦикла;



// Перерасчет выполняется в транзакции. ЗафиксироватьТранзакцию();



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

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

Процедуры перерасчета записей

Код 1C v 8.х

 Процедура ПерерассчитатьНаборЗаписей(НаборЗаписей, Приоритет, ТабличнаяЧасть = Неопределено, ФизЛица = Неопределено)



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

Если Запись.ВидРасчета.Приоритет = Приоритет Тогда

Если НЕ ФизЛица.НайтиПоЗначению(Запись.Физлицо) = Неопределено Тогда



// Получить данные для расчета записи.

ДанныеДляРасчета = ПолучитьДанныеДляРасчета(Запись);



Иначе



НаборЗаписей = РегистрыРасчета.ДополнительныеНачисленияРегл.

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



// Вызвать процедуру расчета записи. РассчитатьЗапись(Запись, ДанныеДляРасчета);



КонецЕсли;

НаборЗаписей.Отбор.ОбъектПерерасчета.Значение = Ссылка; Если Физлица <> НеОпределено Тогда

НаборЗаписей.Прочитать(); СтрокиКУдалению = Новый Массив;



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

Если Физлица.НайтиПоЗначению( СтрокаПерерасчета.Физлицо) <> НеОпределено Тогда СтрокиКУдалению.Добавить(СтрокаПерерасчета);

КонецЕсли; КонецЦикла;



Для Каждого Строка Из СтрокиКУдалению Цикл

НаборЗаписей.Удалить(Строка); КонецЦикла;

КонецЕсли;

// Вернуть результат расчета в табличную часть документа. Если Не ТабличнаяЧасть = Неопределено Тогда

СтрокаТабличнойЧасти = ТабличнаяЧасть.Получить(Запись.НомерСтроки-1);

СтрокаТабличнойЧасти.Результат = Запись.Результат; КонецЕсли;

КонецЕсли; КонецЕсли;

КонецЦикла;



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



Процедура ПерерассчитатьЗаписиРегистраРасчета(ИмяРегистра,

НаборЗаписей, ТабличнаяЧасть = Неопределено, Физлица = Неопределено) Экспорт



Регистратор = НаборЗаписей.Отбор.Регистратор.Значение;



// Запрос по приоритетам видов расчета

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



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

|ВЫБРАТЬ РАЗЛИЧНЫЕ

| " + ИмяРегистра + ".ВидРасчета.Приоритет КАК Приоритет

|ИЗ

| РегистрРасчета." + ИмяРегистра + " КАК " + ИмяРегистра + "

|ГДЕ

| ФизЛицо В (&СписокФизлиц) И Регистратор = &Регистратор

|УПОРЯДОЧИТЬ ПО

| Приоритет

|ИТОГИ ПО

| " + ИмяРегистра + ".ВидРасчета.Приоритет";



Запрос.УстановитьПараметр("СписокФизлиц", Физлица); Запрос.УстановитьПараметр("Регистратор", Регистратор);



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

Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);



// Для каждого значения приоритета выполняется расчет записей. Пока ВыборкаПриоритетов.Следующий() Цикл

ПерерассчитатьНаборЗаписей(НаборЗаписей, ВыборкаПриоритетов.Приоритет, ТабличнаяЧасть, Физлица);



// Записать набор в регистр для расчета записей следующего

// приоритета, фактический период действия не пересчитывается. НаборЗаписей.Записать(Истина, Истина);

КонецЦикла;



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

Категория: Регистры расчета

Полная регистрация изменений для узла

Код 1C v 8.х

 Процедура ПолнаяРегистрацияДанныхПоУзлу(Узел, РегистрироватьВсе) Экспорт

 

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

// значения параметра РегистрироватьВсе = Истина или

// значение склада в узле не установлено

Сообщение = Новый СообщениеПользователю();

Если РегистрироватьВсе Или Узел.Склад.Пустая() Тогда

Сообщение.Текст = "Регистрация всех данных по узлу " + Узел;

Сообщение.Сообщить();

ПланыОбмена.ЗарегистрироватьИзменения(Узел);  

Иначе

Сообщение.Текст = "Регистрация данных по узлу " + Узел + " -----------";

Сообщение.Сообщить();

ПланОбмена = Узел.Метаданные();

Состав = ПланОбмена.Состав;

Для Каждого ЭлементСостава Из Состав Цикл

Сообщение.Текст = "   Регистрация данных " + ЭлементСостава.Метаданные + " по узлу " + Узел;

Сообщение.Сообщить();

Если ЭлементСостава.Метаданные = Метаданные.Документы.РасходнаяНакладная Тогда

 

// Для документов РасходнаяНакладная регистрация изменений 

// для узла производится только при совпадении складов узла и накладной

// Выбираем документы РасходнаяНакладная по складу узла

Запрос = Новый Запрос("ВЫБРАТЬ 

|Ссылка 

|ИЗ 

|Документ.РасходнаяНакладная

|ГДЕ 

|Склад = &Склад");

Запрос.УстановитьПараметр("Склад", Узел.Склад);

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

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

 

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

ПланыОбмена.ЗарегистрироватьИзменения(Узел, Выборка.Ссылка);  

КонецЦикла;

ИначеЕсли ЭлементСостава.Метаданные = Метаданные.РегистрыНакопления.УчетНоменклатуры Тогда

 

// Выбираем всех различных регистраторов регистра

Запрос = Новый Запрос("ВЫБРАТЬ РАЗЛИЧНЫЕ 

|Регистратор 

|ИЗ 

|РегистрНакопления.УчетНоменклатуры

|ГДЕ 

|Склад = &Склад");

Запрос.УстановитьПараметр("Склад", Узел.Склад);

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

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

 

// Создаем набор записей регистра с отбором по регистратору

НаборЗаписей = РегистрыНакопления.УчетНоменклатуры.СоздатьНаборЗаписей();

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

 

// регистрируем изменения набора записей для узла

ПланыОбмена.ЗарегистрироватьИзменения(Узел, НаборЗаписей);

КонецЦикла;

Иначе

 

// Регистрация изменений всех данных объекта для узла

ПланыОбмена.ЗарегистрироватьИзменения(Узел, ЭлементСостава.Метаданные);  

КонецЕсли;

КонецЦикла; // обход состава плана обмена

КонецЕсли;

 

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

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

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

Автоматизация обмена данных используя обработку "Универсальный обмен данными в формате XML"

Автоматизация обмена между базами используя обработку "Универсальный обмен данными в формате XML"
В основу данной публикации положены найденные мною материалы по cозданию обмена между двумя базами с использованием обработки "Универсальный обмен данными в формате XML" . Но предлагается вариант автоматизации решения задачи которая позволяет выполнять обмен неквалифицированным пользователям, либо по регламенту. Скажем такой обмен применим если вы не можите по ряду причин использовать РБД, либо совсем разные конфигурации баз (случаи бывают разные, а хочется максимально настраиваемой гибкости).

Вначале безусловно воспользуемся конфигурацией "Конвертация данных" чтобы создать необходимые нам правила обмена (как - это отдельная тема).
Итак Собственно сама ВЫГРУЗКА:

Код 1C v 8.х

 Обработка = Обработки.УниверсальныйОбменДаннымиXML.Создать();

 Обработка.РежимОбмена = "Выгрузка";

 Обработка.ВыводВОкноСообщенийИнформационныхСообщений = Истина;

При необходимости можно задать период выгрузки (как пример):

 Обработка.ДатаНачала  = ТекущаяДата();

 Обработка.ДатаОкончания   = ТекущаяДата();



 Обработка.ИмяФайлаПравилОбмена = "D:\ПравилаОбменаДанными.xml";

 Источник = ЭтотОбъект.Ссылка;

 ИмяФайла = Строка(ТипЗнч(Источник)) + " " + Строка(Источник.Номер);

 Обработка.ИмяФайлаОбмена = "D:\E\"+ Источник +".xml"; 

 Обработка.ЗагрузитьПравилаОбмена(); 

Основные параметры мы определили, теперь надо настроить отбор, если в этом нет необходимости то просто запускаете выгрузку:

Обработка.ВыполнитьВыгрузку();

Настройка ОТБОРА:
Тут надо обратить внимание на массив "ВременнаяТаблицаПравил.Строки[1]" и в частности на индекс массива строк,
1 - это ветка "Справочники". Ну и так далее по аналогии

Код 1C v 8.х

 ВременнаяТаблицаПравил = Обработка.ТаблицаПравилВыгрузки.Скопировать();

 Для Каждого СтрокаУровня2 Из ВременнаяТаблицаПравил.Строки[1].Строки Цикл

     Наименование = СтрокаУровня2.Имя;

     Если Наименование <> "ПеремещениеТоваров00001" Тогда

         СтрокаУровня2.Включить = 0;

     КонецЕсли;

 КонецЦикла;

 Для Каждого СтрокаУровня2 Из ВременнаяТаблицаПравил.Строки[2].Строки Цикл

     Наименование = СтрокаУровня2.Имя;

     Если Наименование <> "ПеремещениеТоваров00001" Тогда

         СтрокаУровня2.Включить = 0;

     КонецЕсли;

 КонецЦикла;

Сдесь вы определяете искомое правило выгрузки которое нужно оставить включенным на определенной ветке (сами можите варьировать чего и сколько)

Код 1C v 8.х

  Для Каждого СтрокаУровня2 Из ВременнаяТаблицаПравил.Строки[0].Строки Цикл

    Наименование = СтрокаУровня2.Имя;

    Если Наименование = "ПеремещениеТоваров00001" Тогда

        СтрокаУровня2.Включить = 1;

    Иначе

        СтрокаУровня2.Включить = 0;

    КонецЕсли;

 КонецЦикла;

 Обработка.ТаблицаПравилВыгрузки = ВременнаяТаблицаПравил.Скопировать();

Теперь настраиваем ОТБОР смысл которого передать в нашу выгрузку ссылку на документ(ты) который(е) хотим выгрузить:

Код 1C v 8.х

 Для Каждого СтрокаУровня2 Из ВременнаяТаблицаПравил.Строки[0].Строки Цикл

  Наименование = СтрокаУровня2.Имя;

  Если Наименование = "ПеремещениеТоваров00001" Тогда

  ТекущееПВД = СтрокаУровня2;



     Построитель = Новый ПостроительОтчета;

     Если ТекущееПВД.ИмяОбъектаДляЗапроса <> Неопределено Тогда



         Построитель.Текст =

         "ВЫБРАТЬ Разрешенные _.* ИЗ " + ТекущееПВД.ИмяОбъектаДляЗапроса + " КАК _

          |

          |

          |{ГДЕ _.Ссылка.* КАК " + СтрЗаменить(ТекущееПВД.ИмяОбъектаДляЗапроса, ".", "_") + "}";

     КонецЕсли;



     Отбор = Построитель.Отбор;



     Если Отбор.Найти("Документ_ПеремещениеТоваров") = Неопределено Тогда

        Отбор.Добавить("Документ_ПеремещениеТоваров");

     КонецЕсли;



     Массив = Новый Массив;

     Массив.Добавить(Тип("ДокументСсылка.ПеремещениеТоваров"));

     ОписаниеТиповС = Новый ОписаниеТипов(Массив, , );



     Отбор["Документ_ПеремещениеТоваров"].Использование = Истина;

     Отбор["Документ_ПеремещениеТоваров"].Значение = ЭтотОбъект.Ссылка;

     Отбор["Документ_ПеремещениеТоваров"].ВидСравнения = ВидСравнения.Равно;



     ДоступностьПостроителя = Истина;

     Если Построитель.Отбор.Количество() > 0 Тогда

         ТекущееПВД.НастройкиПостроителя = Построитель.ПолучитьНастройки();

         ТекущееПВД.ИспользоватьОтбор    = ИСТИНА;

     КонецЕсли;

  КонецЕсли;

КонецЦикла;

Обработка.ТаблицаПравилВыгрузки = ВременнаяТаблицаПравил.Скопировать();
Ну и собственно запускаем саму выгрузку и получаем файл для загрузки:

Код 1C v 8.х

    Обработка.АрхивироватьФайл = Истина;

  Обработка.ВыполнитьВыгрузку();

Далее процесс загрузки:
Он довольно прост

Код 1C v 8.х

  МассивФайлов = НайтиФайлы("D:\E\", "*.zip");

Для Каждого Стм Из МассивФайлов Цикл

ТекстВопроса = "Загрузить - " + Стм.ПолноеИмя;

Ответ = Вопрос(ТекстВопроса, РежимДиалогаВопрос.ДаНет,, КодВозвратаДиалога.Да);

    Если Ответ = КодВозвратаДиалога.Да Тогда

        Обработка  = Обработки.УниверсальныйОбменДаннымиXML.Создать();

        Обработка.ИмяФайлаОбмена = Стм.ПолноеИмя;

        Обработка.РежимОбмена    = "Загрузка";

        Обработка.ЗаписыватьРегистрыНаборамиЗаписей = Истина;

        Обработка.ЗаписыватьВИнформационнуюБазуТолькоИзмененныеОбъекты = Истина;

        Обработка.ЗагружатьДанныеВРежимеОбмена = Истина;

        Обработка.ВыполнитьЗагрузку();

        УдалитьФайлы(Стм.ПолноеИмя);

    КонецЕсли;

КонецЦикла;

Расширение .zip для файлов обмена пусть вас не смущает, обработка самостоятельно упакует .xml файл в архив:

Код 1C v 8.х

  Обработка.АрхивироватьФайл = Истина;

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

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

Технология восстановления удаленных объектов Категория: 1С Общие вопросы - Обычные формы

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

Для обмена данными между программами необходимо сделать следующее:
1. При помощи Конвертации Данных создать правила выгрузки данных
2. Нужно чтобы в конфигурации была обработка УниверсальныйОбменДаннымиXML, желательно последней версии!
(При помощи ее и созданных правил будут выгрузаться и заружаться данные)
3. В 1-вой базе Добавляем Регламентное задание:
Имя - Выгрузка
Использование - !(галочка)
Расписание настройте обязательно.
Имя метода - Общий модуль в котором процедура ВыгрузимИзЗУП():

Код 1C v 8.х

 //Выгрузка кадровых данных

Процедура ВыгрузимИзЗУП() Экспорт  	

	Обработина = Обработки.УниверсальныйОбменДаннымиXML.Создать();

	Обработина.РежимОбмена = "Выгрузка";	

	Обработина.ДатаНачала	 = НачалоДня(ДобавитьМесяц(ТекущаяДата(),-1));

	Обработина.ДатаОкончания   = КонецМесяца(ТекущаяДата());

	Обработина.ИмяФайлаОбмена  = "D:\ZUP_BUH_EXCH\Upload.xml";

	Обработина.ИмяФайлаПравилОбмена  = "D:\ZUP_BUH_EXCH\Zup-Buh.xml";

	Обработина.ЗагрузитьПравилаОбмена();

	Обработина.ВыполнитьВыгрузку();	

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

4. Во 2-ой базе Добавляем Регламентное задание:
Имя - Загрузка
Использование - !(галочка)
Расписание настройте обязательно.
Имя метода - Общий модуль в котором процедура ЗагрузкаВБУХ():

Код 1C v 8.х

 Процедура ЗагрузкаВБУХ() Экспорт	

	Обработина  = Обработки.УниверсальныйОбменДаннымиXML.Создать();

	Обработина.ИмяФайлаОбмена = "D:\ZUP_BUH_EXCH\Upload.xml";

	Обработина.РежимОбмена	 = "Загрузка";

	Обработина.ОптимизированнаяЗаписьОбъектов = Истина;

	Обработина.ЗаписыватьРегистрыНаборамиЗаписей = Истина;

	Обработина.ЗаписыватьВИнформационнуюБазуТолькоИзмененныеОбъекты = Истина;

	Обработина.ЗагружатьДанныеВРежимеОбмена = Истина;

	Обработина.ВыполнитьЗагрузку();	

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

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

Обновление базы (конфигурации) 1С 7.7 Категория: 1С Общие вопросы - Обычные формы