Примеры разбора и сборки составных типов

Примеры разбора и сборки составных типов на языке программирования 1С:Предприятие. Примеры позволяют быстро разобраться в вопросе и использовать код в своих разработках

Сборка структуры документа

// Сборка структуры документа
Документ = Новый Документ("РеализацияТоваров");
Документ.Период = ТекущаяДата();
НоваяСтрока = Документ.ДобавитьСтроку();
НоваяСтрока.Номенклатура = &Номенклатура;
НоваяСтрока.Количество = &Количество;
Документ.Записать();

Разбор структуры документа

// Разбор структуры документа
Документ = Документы.РеализацияТоваров.НайтиПоНомеру(&НомерДок);
Если Документ.Ссылка.Пустая() Тогда
    Возврат Неопределено;
КонецЕсли;

СтрокаДокумента = Документ.ПолучитьСтроку(&НомерСтроки);
Если СтрокаДокумента = Неопределено Тогда
    Возврат Неопределено;
КонецЕсли;

Сообщить(СтрокаДокумента.Номенклатура);
Сообщить(СтрокаДокумента.Количество);

Сборка сложной структуры

// Сборка сложной структуры
Объект = Новый Структура();
Объект.ВидДвижения = ВидДвиженияНакопления.Расход;
Объект.Количество = &Количество;
Объект.Номенклатура = &Номенклатура;
Объект.Склад = &Склад;
Объект.Период = ТекущаяДата();
НаборДвижений.Добавить(Объект);

Разбор сложной структуры

// Разбор сложной структуры
Структура = НаборДвижений.Получить(0);
Сообщить(Структура.ВидДвижения);
Сообщить(Структура.Номенклатура);
Сообщить(Структура.Склад);
Сообщить(Структура.Период);

Сборка массива структур

// Сборка массива структур
МассивСтруктур = Новый Массив();
МассивСтруктур.Добавить(Новый Структура(ВидДвиженияНакопления.Расход, &Количество, &Номенклатура, &Склад, ТекущаяДата()));
МассивСтруктур.Добавить(Новый Структура(ВидДвиженияНакопления.Приход, &Количество, &Номенклатура, &Склад, ТекущаяДата()));
НаборДвижений.ЗаполнитьМассив(МассивСтруктур);

Разбор массива структур

// Разбор массива структур
Для Каждого Структура Из НаборДвижений Цикл
    Сообщить(Структура.ВидДвижения);
    Сообщить(Структура.Номенклатура);
    Сообщить(Структура.Склад);
КонецЦикла;

Сборка вложенных структур

// Сборка вложенных структур
Объект = Новый Структура();
Объект.ВидДвижения = ВидДвиженияНакопления.Расход;
Объект.Количество = &Количество;
Объект.Номенклатура = &Номенклатура;
Объект.Склад = Новый Структура();
Объект.Склад.Ссылка = &СсылкаСклада;
Объект.Склад.Наименование = &НаименованиеСклада;
НаборДвижений.Добавить(Объект);

Разбор вложенных структур

// Разбор вложенных структур
Структура = НаборДвижений.Получить(0);
Сообщить(Структура.Склад.Ссылка);
Сообщить(Структура.Склад.Наименование);

Поделиться с друзьями
Smirnov code
Добавить комментарий