[Lunatik]

Всем доброго здравия!

Парни подскажите пожалуйста где туплю?
Платформа 8.2
Конфигурация УПП
Регистр о котором идет речь не периодический (Я сам установил атрибут "непериодический")
Одно измерение "Организация"
Проблема в том, что заполняется только одна запись и в той поле организация пустое

Ниже привожу код.Извините если че не так, я тут не часто.

Процедура ЗагрузкаВнутреннихФирмНажатие(Элемент)
    ОчиститьСообщения();
    SQLServer = Новый COMОбъект("ADODB.Connection");
    ConnectionString = "driver={SQL Server}; server="+Сервер+"; uid="+Логин+"; pwd="+Пароль+"; Database="+База+"";
    SQLServer.ConnectionTimeOut =60; 
    SQLServer.CursorLocation = 3;  
    
    Попытка
        SQLServer.Open(ConnectionString); 
        Сообщить("Соединение с SQL-сервером установлено!");
    Исключение
        Предупреждение("Невозможно установить соединение");
    КонецПопытки;
    
    Cmd = Новый COMОбъект("ADODB.Command");
    Cmd.ActiveConnection = SQLServer;
    
    Cmd.CommandText = "select * from r_ours";
    
    Rs = Новый COMОбъект("ADODB.RecordSet"); 
    Rs = Cmd.Execute(); //Выполнение и получение набора данных
    
    Rs.MoveFirst();                 
    Пока Rs.EOF() = 0 Цикл  
          НовыйОбъект = Справочники.Организации.СоздатьЭлемент();
        НовыйОбъект.OurID = Rs.Fields("OurID").Value;
        НовыйОбъект.Наименование = Rs.Fields("OurName").Value;
        
    // *** Проблемный фрагмент
        НаборЗаписей = РегистрыСведений.КодыОрганизации.СоздатьНаборЗаписей();
        
        НаборЗаписей.Отбор.Организация.Установить(НовыйОбъект);
        
        НоваяЗапись = НаборЗаписей.Добавить();
        
        НоваяЗапись.Организация = НовыйОбъект;
        Сообщить(НоваяЗапись.Организация); // Ничего не выводится!!!
        НоваяЗапись.КодПоЕДРПОУ = Rs.Fields("Code").Value;
        НоваяЗапись.ИНН = Rs.Fields("TaxCode").Value;
        НоваяЗапись.НомерСвидетельства = Rs.Fields("TaxRegNo").Value;
        НаборЗаписей.Записать();        
    // *** Конец проблемного фрагмента
        
        НовыйОбъект.Записать();
      Rs.MoveNext();  
      КонецЦикла;
    Rs.Close();
КонецПроцедуры

[logist]

                НовыйОбъект.Записать();

        НоваяЗапись = РегистрыСведений.КодыОрганизации.СоздатьМенеджерЗаписи();

        НоваяЗапись.Организация = НовыйОбъект.Ссылка;
        НоваяЗапись.КодПоЕДРПОУ = Rs.Fields("Code").Value;
        НоваяЗапись.ИНН = Rs.Fields("TaxCode").Value;
        НоваяЗапись.НомерСвидетельства = Rs.Fields("TaxRegNo").Value;
        НоваяЗапись.Записать(Истина);

[Lunatik]

                НовыйОбъект.Записать();

        НоваяЗапись = РегистрыСведений.КодыОрганизации.СоздатьМенеджерЗаписи();

        НоваяЗапись.Организация = НовыйОбъект.Ссылка;
        НоваяЗапись.КодПоЕДРПОУ = Rs.Fields("Code").Value;
        НоваяЗапись.ИНН = Rs.Fields("TaxCode").Value;
        НоваяЗапись.НомерСвидетельства = Rs.Fields("TaxRegNo").Value;
        НоваяЗапись.Записать(Истина);

Спасибо, камрад!!!

[Vofka]

Спасибо, камрад!!!

http://pro1c.org.ua/index.php?showtopic=2314