Подсжите строчку (загрузку из SQL в 1c)

"Доброго времени суток. я из базы SQL закидываю номенклатуру (наименования) в Базу 1с. и все было б не плохо...<br> <br>Только теперь нужно закидывать Номенклатуру не сразу в справочник. а в Новую папку созданную. как это дописать. что бы загружались наименования в "номенклатуру в определенную папку" (Всегда в одну и туже, она одна)<br> <br>Пользуюсь вот этой обработкой из sql в 1с<br> <br> <br> <br>Процедура Сформировать()<br> //здесь<br> //192.168.7.70 = ip Microsoft SQL Server<br> //User1C = пользователь, имеющий права доступа на базу в MS SQL Server (обычно sa, но я всегда меняю)<br> //omega = пароль пользователя<br> //BaseID = идентификатор базы<br>      <br> ConnectionString = "Provider=SQLOLEDB;Data Source=192.168.7.70;Password=omega;User ID=User1C;Initial Catalog=BaseID";<br>      <br> Соединение = СоздатьОбъект("ADODB.Connection");      <br> Соединение.ConnectionTimeOut =600;<br> Соединение.CursorLocation = 3;<br> Попытка<br>       //здесь:<br>       //HH123 - идентификатор поля, где лежит наименование<br>       //TT567 - идентификатор таблицы, где лежат нужные данные<br>            <br>       Номенклатура=СоздатьОбъект("Справочник.Номенклатура");<br>       Соединение.Open(ConnectionString);            <br>       Cmd = СоздатьОбъект("ADODB.Command");<br>       Cmd.ActiveConnection = Соединение;<br>       Cmd.CommandText = СокрЛП("Select HH123 FROM TT567");<br>       Rs = CreateObject("ADODB.RecordSet");<br>       Rs = Cmd.Execute;<br>       Для i = 1 по Rs.RecordCount Цикл<br>             ТекНаименование=СокрЛП(Rs.Fields("HH123").Value);<br>             Если Номенклатура.НайтиПоНаименованию(ТекНаименование,0,1)=0 Тогда<br>                   Номенклатура.Новый();<br>                   Номенклатура.Наименование=ТекНаименование;<br>                   Номенклатура.Записать();<br>             КонецЕсли;<br>             Rs.MoveNext();<br>       КонецЦикла;<br><br>       Rs=0;<br>       Соединение=0;<br> Исключение<br>       Предупреждение(ОписаниеОшибки());<br>       Соединение=0;<br> КонецПопытки;<br>КонецПроцедуры"

И сразу если можно подскажите... что дописать что бы не только "наименования перекидывались" а еще и "код". что бы он КОД не сам подставлял следующий, а брал из SQL базы этот код и писал.

А как определить программе в какую папку загружать?

"путь написать ;))<br> <br>Но тут то он есть.. Справочник.Номенклатура..<br>А как показать 1с что нужно пихать данные еще после этого в папку я не знаю"

"Установить код:<br> <br> <br><pre>ТекКод=СокрЛП(Rs.Fields("CODE").Value);Номенклатура.Код=ТекКод; </pre><br><br> <br> <br> <br> <br>Запись в папку:<br> <br> <br><pre>Номенклатура=СоздатьОбъект("Справочник.Номенклатура");Номенклатура.ИспользоватьРодителя(ВыбраннаяПапка); </pre><br><br> <br> <br><pre>Если Номенклатура.НайтиПоНаименованию(ТекНаименование,1,1)=0 Тогда </pre><br><br> <br> <br> <br>... "Выбранную папку" думаю как-нибудь сам определишь."

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

"// выбор папки<br>ПапкаДляНовых = СоздатьОбъект("Справочник.Номенклатура");<br>ПапкаДляНовых.НайтиПоНаименованию("<имя папки>");<br> <br>ТекКод=СокрЛП(Rs.Fields("<имя поля кода>").Value);<br> <br>Номенклатура.Новый();<br>Номенклатура.ИспользоватьРодителя(ПапкаДляНовых);<br>Номенклатура.Код = ТекКод;"

"Rs = CreateObject("ADODB.RecordSet");<br>       Rs = Cmd.Execute;<br>       Для i = 1 по Rs.RecordCount Цик<br>ТекНаименование=СокрЛП(Rs.Fields("HH123").Value);<br> <br>Я после этой строчки пишу про КОД<br> <br>ТекКод=СокрЛП(Rs.Fields("<имя поля кода>").Value);<br> <br>Вот так вот ?<br> <br>я правильно понял ???"

Когда делаю по наименованию одному все работает... Когда добавляю (папку) по вашим советам.. все тоже работает. загружается в папку..<br> <br>А когда пишу Код.. то не пашет.. видимо куда-то не туда я пишу его

Доброго времени суток . А вы не пробовали сделать данную операцию с помощью обработки ЗагрузкаДанныхИзТабличногоДокумента.epf, расположенной на диске ИТС?