При импорте изделия из программы в 1С создаётся справочник с элементами, где записывается наименование в виде "000001№001", изменил что бы записывалось как "М-П-1800*1600*М" но это не сработало и наименование продолжает записываться по старому хотя значения стоят новые.
Проверил через отладку и показывает нужное но записывает не то что нужно.
Подскажите в чём может быть проблема ?
Нужно что бы изменило "Запись.Наименование"
function LoadData(Connection, id_doc) export
ДляВозврата = Новый Массив;
sum_seb = LoadDataSum(id_doc);
ConStr = Справочники.ИТКБазыДанных.НайтиПоКоду(9).СтрокаСоединения;
Запрос = GetQuery();
Connection_ = new COMОбъект("ADODB.Connection");
//Connection_.Provider = "LCPI.IBProvider";
Connection_.ConnectionString = ConStr;
Connection_.Mode = 1;
Connection_.Open();
Connection_.BeginTrans();
Command = new COMОбъект("ADODB.Command");
Command.ActiveConnection = Connection_;
Command.CommandText = Запрос;
Param1 = Command.CreateParameter("param", 3);
Command.Parameters.Append(Param1);
Param1.Value = id_doc;
Recordset = Новый COMОбъект("ADODB.Recordset");
Recordset = Command.Execute();
If RecordSet.RecordCount() <> 0 Then
While Recordset.EOF() = 0 Do
Код = Connection.ПрефиксКода + "_" + Формат(id_doc, "ЧГ=0") + "_" + Формат(Recordset.Fields("id_str").Value, "ЧГ=0");
Запись = Справочники.ИТК5_Изделие.НайтиПоКоду(Код, Истина);
Если Запись <> Неопределено И Запись <> Справочники.ИТК5_Изделие.ПустаяСсылка() Тогда
Запись = Запись.ПолучитьОбъект();
Иначе
Запись = Справочники.ИТК5_Изделие.СоздатьЭлемент();
КонецЕсли;
Наименование = Recordset.Fields("NAME").Value;
Запись.Код = Код;
// Было Запись.Наименование = Код;
Запись.Наименование = Наименование;
Запись.sqrt = Recordset.Fields("f_sqrt").Value;
Запись.ordno = Recordset.Fields("ordno").Value;
Запись.pr_sys = Recordset.Fields("pr_sys_name").Value;
Запись.color = Recordset.Fields("color1name").Value;
Запись.color_in = Recordset.Fields("color2name").Value;
Запись.color_out = Recordset.Fields("color3name").Value;
Запись.komment = Recordset.Fields("komment").Value;
Запись.Perimetr = Recordset.Fields("Perimetr").Value;
Запись.params = Recordset.Fields("params").Value;
Запись.w = Recordset.Fields("w").Value;
Запись.h = Recordset.Fields("h").Value;
Поток = Новый ComОбъект("ADODB.Stream");
Поток.Type = 1;
Поток.Mode = 3;
Поток.Open();
Поток.Write(Recordset.Fields("SCHEME").Value);
Путь = ПолучитьИмяВременногоФайла(".png");
Поток.SaveToFile(Путь, 2);
Картинка = Новый Картинка(Путь);
Хранилище = Справочники.ХранилищеДополнительнойИнформации.СоздатьЭлемент();
Хранилище.Хранилище = Новый ХранилищеЗначения(Картинка);
Хранилище.ВидДанных = Перечисления.ВидыДополнительнойИнформацииОбъектов.Изображение;
Хранилище.Записать();
Запись.scheme = Хранилище;
Если Recordset.Fields("typ_izd").Value = 0 Тогда
Запись.Тип = Перечисления.ИТК5_типыИзделий.Изделие;
ИначеЕсли Recordset.Fields("typ_izd").Value = 2 Тогда
Запись.Тип = Перечисления.ИТК5_типыИзделий.МоскитнаяСетка;
ИначеЕсли Recordset.Fields("typ_izd").Value = 3 Тогда
Запись.Тип = Перечисления.ИТК5_типыИзделий.Заполнение;
КонецЕсли;
Контуры = Справочники.ИТК5_контур.LoadData(Connection, Recordset.Fields("id_str").Value, id_doc);
Запись.Conturs.Очистить();
Для Каждого Контур Из Контуры Цикл
Contur = Запись.Conturs.Добавить();
Contur.Contur = Контур.Запись;
КонецЦикла;
Элементы = Справочники.ИТК5_Элементы.LoadData(Connection, Recordset.Fields("id_str").Value, id_doc);
Запись.Elems.Очистить();
Для Каждого Элемент Из Элементы Цикл
Contur = Запись.Elems.Добавить();
Contur.Elem = Элемент.Запись;
Contur.Количество = Элемент.Количество;
Contur.ЦенаПоСебестоимости = Элемент.ЦенаСебестоимось;
Contur.ЦенаПродажи = Элемент.ЦенаПродажи;
КонецЦикла;
//Запись.scheme = Recordset.Fields("scheme").Value;
Запись.Записать();
Стр = Новый Структура;
Стр.Вставить("Запись", Запись);
Стр.Вставить("Количество", Recordset.Fields("kol").Value);
Стр.Вставить("Себестоимость", sum_seb);
Стр.Вставить("ЦенаПродажи", Recordset.Fields("zena_exp").Value);
ДляВозврата.Добавить(Стр);
Recordset.MoveNext();
EndDo;
EndIf;
Recordset.Close();
Connection_.CommitTrans();
Connection_.Close();
возврат ДляВозврата;
endFunction
Показать