Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
12 дек 2024, 23:47

в поле табличной части ПоступлениеТоваровУслуг Управляемые формы не добавляется ХАРАКТЕРИСТИКА, СЕРИЯ

Автор Св Ч, 07 мар 2020, 16:27

0 Пользователей и 1 гость просматривают эту тему.

Св Ч

В поле табличной части ПоступлениеТоваровУслуг
не добавляется характеристика, серия, номенклатура добавляется
уже пробывала 3 варианта

ТЗТ=новый("ТаблицаЗначений");
Слк =Объект;
НовСтр=ТЗТ.Добавить();
НовСтр.Характеристика=СоздатьХарактеристику(СтруктураПодбора[0][i],СтруктураПодбора[3][i]);
Слк.Товары.Загрузить(ТЗТ)

&НаСервере

Функция СоздатьХарактеристику(Номенклатура,Цвет)
// ХарактеристикиНоменклатуры
  Запрос = Новый Запрос;
  Запрос.Текст = "
|ВЫБРАТЬ
| ХарактеристикиНоменклатуры.Ссылка КАК Характеристика,
| ХарактеристикиНоменклатуры.НомерСтроки,
| ХарактеристикиНоменклатуры.Свойство,
| ХарактеристикиНоменклатуры.Значение,
| ХарактеристикиНоменклатуры.ТекстоваяСтрока,
| ХарактеристикиНоменклатуры.Ссылка КАК Ссылка1,
| ХарактеристикиНоменклатуры.Ссылка.Владелец,
| ХарактеристикиНоменклатуры.Ссылка.Принципал,
| ХарактеристикиНоменклатуры.Ссылка.Контрагент,
| ХарактеристикиНоменклатуры.Ссылка.Предопределенный,
| ХарактеристикиНоменклатуры.Ссылка.ИмяПредопределенныхДанных,
| ХарактеристикиНоменклатуры.Ссылка.ИмяПредопределенныхДанных КАК ИмяПредопределенныхДанных1,
| ХарактеристикиНоменклатуры.Свойство.ТипЗначения,
| Номенклатура.Ссылка КАК Ссылка2,
| Номенклатура.Наименование
| ИЗ
| Справочник.ХарактеристикиНоменклатуры.ДополнительныеРеквизиты КАК ХарактеристикиНоменклатуры
| ПОЛНОЕ СОЕДИНЕНИЕ Справочник.Номенклатура КАК Номенклатура
| ПО ХарактеристикиНоменклатуры.Ссылка.Владелец = Номенклатура.Ссылка
| ЛЕВОЕ СОЕДИНЕНИЕ ПланВидовХарактеристик.ДополнительныеРеквизитыИСведения КАК ДополнительныеРеквизитыИСведения
| ПО ХарактеристикиНоменклатуры.Свойство = ДополнительныеРеквизитыИСведения.Ссылка
|ГДЕ
|   Номенклатура.Наименование = &Номенклатура_

| И ДополнительныеРеквизитыИСведения.Наименование = ""Цвет (Мотоциклы (Для характеристик))""
| И ХарактеристикиНоменклатуры.Значение ПОДОБНО &Цвет_
|";

Запрос.УстановитьПараметр("Номенклатура_", Номенклатура);
Запрос.УстановитьПараметр("Цвет_", Цвет);
РезультатЗапроса = Запрос.Выполнить().Выбрать();

Если РезультатЗапроса.Количество()=0   Тогда
//    //НоваяСтрочка.СтатусУказанияСерий = 14;
     СоздадимХарактеристику = Справочники.ХарактеристикиНоменклатуры.СоздатьЭлемент();
СоздадимХарактеристику.Владелец =Справочники.ВидыНоменклатуры.НайтиПоНаименованию("Мотоциклы");
СоздадимХарактеристику.Владелец =СоздатьНоменклатуру(Номенклатура);

СоздадимХарактеристику.НаименованиеПолное  =Строка(Цвет);
СоздадимХарактеристику.Наименование =  Строка(Цвет);
//СоздадимХарактеристику.Ссылка.Наименование =Строка(Цвет);

//СоздадимХарактеристику.Ссылка.НаименованиеПолное  =Строка(Цвет);

     СоздадимХарактеристику.УстановитьНовыйКод();

   
НовоеСвойство3 =СоздадимХарактеристику.ДополнительныеРеквизиты.Добавить() ; 
НовоеСвойство3.Свойство = "Цвет (Мотоциклы (Для характеристик))";
НовоеСвойство3.Значение = Цвет;
     НовоеСвойство3.ТекстоваяСтрока = строка(Цвет);



   

Попытка
     СоздадимХарактеристику.Записать();

    Исключение
     Сообщить("Не удалось записать элемент справочника. " + ОписаниеОшибки());
    КонецПопытки; 

    Возврат СоздадимХарактеристику.Ссылка;
Иначе

    Пока РезультатЗапроса.Следующий() Цикл
      Характеристика = РезультатЗапроса.Характеристика;
КонецЦикла;

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

КонецФункции
&НаСервере


или


&НаСервере

Функция СоздатьХарактеристику(Номенклатура,Цвет)
// ХарактеристикиНоменклатуры
  Запрос = Новый Запрос;
  Запрос.Текст = "
|ВЫБРАТЬ
| ХарактеристикиНоменклатуры.Ссылка КАК Характеристика,
| ХарактеристикиНоменклатуры.НомерСтроки,
| ХарактеристикиНоменклатуры.Свойство,
| ХарактеристикиНоменклатуры.Значение,
| ХарактеристикиНоменклатуры.ТекстоваяСтрока,
| ХарактеристикиНоменклатуры.Ссылка КАК Ссылка1,
| ХарактеристикиНоменклатуры.Ссылка.Владелец,
| ХарактеристикиНоменклатуры.Ссылка.Принципал,
| ХарактеристикиНоменклатуры.Ссылка.Контрагент,
| ХарактеристикиНоменклатуры.Ссылка.Предопределенный,
| ХарактеристикиНоменклатуры.Ссылка.ИмяПредопределенныхДанных,
| ХарактеристикиНоменклатуры.Ссылка.ИмяПредопределенныхДанных КАК ИмяПредопределенныхДанных1,
| ХарактеристикиНоменклатуры.Свойство.ТипЗначения,
| Номенклатура.Ссылка КАК Ссылка2,
| Номенклатура.Наименование
| ИЗ
| Справочник.ХарактеристикиНоменклатуры.ДополнительныеРеквизиты КАК ХарактеристикиНоменклатуры
| ПОЛНОЕ СОЕДИНЕНИЕ Справочник.Номенклатура КАК Номенклатура
| ПО ХарактеристикиНоменклатуры.Ссылка.Владелец = Номенклатура.Ссылка
| ЛЕВОЕ СОЕДИНЕНИЕ ПланВидовХарактеристик.ДополнительныеРеквизитыИСведения КАК ДополнительныеРеквизитыИСведения
| ПО ХарактеристикиНоменклатуры.Свойство = ДополнительныеРеквизитыИСведения.Ссылка
|ГДЕ
|   Номенклатура.Наименование = &Номенклатура_

| И ДополнительныеРеквизитыИСведения.Наименование = ""Цвет (Мотоциклы (Для характеристик))""
| И ХарактеристикиНоменклатуры.Значение ПОДОБНО &Цвет_
|";

Запрос.УстановитьПараметр("Номенклатура_", Номенклатура);
Запрос.УстановитьПараметр("Цвет_", Цвет);
РезультатЗапроса = Запрос.Выполнить().Выбрать();

Если РезультатЗапроса.Количество()=0   Тогда
//    //НоваяСтрочка.СтатусУказанияСерий = 14;
     СоздадимХарактеристику = Справочники.ХарактеристикиНоменклатуры.СоздатьЭлемент();
СоздадимХарактеристику.Владелец =Справочники.ВидыНоменклатуры.НайтиПоНаименованию("Мотоциклы");
СоздадимХарактеристику.Владелец =СоздатьНоменклатуру(Номенклатура);

СоздадимХарактеристику.НаименованиеПолное  =Строка(Цвет);
СоздадимХарактеристику.Наименование =  Строка(Цвет);
//СоздадимХарактеристику.Ссылка.Наименование =Строка(Цвет);

//СоздадимХарактеристику.Ссылка.НаименованиеПолное  =Строка(Цвет);

     СоздадимХарактеристику.УстановитьНовыйКод();

   
НовоеСвойство3 =СоздадимХарактеристику.ДополнительныеРеквизиты.Добавить() ; 
НовоеСвойство3.Свойство = "Цвет (Мотоциклы (Для характеристик))";
НовоеСвойство3.Значение = Цвет;
     НовоеСвойство3.ТекстоваяСтрока = строка(Цвет);



   

Попытка
     СоздадимХарактеристику.Записать();

    Исключение
     Сообщить("Не удалось записать элемент справочника. " + ОписаниеОшибки());
    КонецПопытки; 

    Возврат СоздадимХарактеристику.Ссылка;
Иначе

    Пока РезультатЗапроса.Следующий() Цикл
      Характеристика = РезультатЗапроса.Характеристика;
КонецЦикла;

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

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

----------------------------------
НоваяСтрока= ЭтотОбъект.Товары.Добавить();
НоваяСтрока.Характеристика=СоздатьХарактеристику(СтруктураПодбора[0][i],СтруктураПодбора[3][i]);



проверила данные передаются, но в табличную часть недобавляются

Помогите, что можно придумать;

Теги:

Похожие темы (5)

Рейтинг@Mail.ru

Поиск