Имя: Пароль:
1C
1С v8
Помогите с переносом базы
,
0 Legowar
 
27.01.13
22:33
вот такая табличную часть я перенес из дбф файла http://hostingkartinok.com/show-image.php?id=d361e667283ec6d59c04ed145278afe4
написал вот такой код -
   Путь = "C:\SPTOV.DBF";
Файл = Новый XBase;
Файл.Кодировка = КодировкаXBase.OEM;
Файл.ОткрытьФайл(Путь,,Истина); //открываем для чтения
Файл.Первая();
Пока НЕ Файл.ВКонце() Цикл
Строкатч = товары.Добавить();
Строкатч.Наименованиетовара = СокрЛП(Файл.IMY);
Строкатч.Фасовка = число(Файл.FAS);
Строкатч.Сертификаты = СокрЛП(Файл.SERT);
Строкатч.Закупочнаяцена = число(файл.CENA_PR);
Строкатч.Оптоваяцена = число(файл.CENA_OT);
Строкатч.розничнаяцена = число(файл.CENA_OR);
Строкатч.кодпоставщика = число(файл.PST);
Файл.Следующая();
КонецЦикла;
Файл.ЗакрытьФайл();
КонецПроцедуры

Процедура ОсновныеДействияФормызагрузуитьноменклатуру(Кнопка)
   Для  Каждого Строкатч из Товары  цикл               // получаем в цикле строки табличной части
   НовыйОбъект = Справочники.Номенклатура.СоздатьЭлемент();
НовыйОбъект.Наименование = Строкатч.Наименованиетовара ;
НовыйОбъект.НаименованиеПолное = Строкатч.Наименованиетовара ;
НовыйОбъект.ВидНоменклатуры = Справочники.ВидыНоменклатуры.НайтиПоРеквизиту("Типноменклатуры",Перечисления.ТипыНоменклатуры.Товар);
НовыйОбъект.БазоваяЕдиницаИзмерения = Справочники.КлассификаторЕдиницИзмерения.НайтиПоНаименованию("шт");
НовыйОбъект.Записать();

НовыйОбъектЕИ = Справочники.ЕдиницыИзмерения.СоздатьЭлемент();
НовыйОбъектЕИ.ЕдиницаПоКлассификатору = Справочники.КлассификаторЕдиницИзмерения.НайтиПоНаименованию("шт");
НовыйОбъектЕИ.Коэффициент = 1 ;
НовыйОбъектЕИ.Владелец = НовыйОбъект.Ссылка ;
НовыйОбъектЕИ.Наименование = "шт" ;
НовыйОбъектЕИ.Записать();

НовыйОбъект.ЕдиницаДляОтчетов = НовыйОбъектЕИ.Ссылка ;
НовыйОбъект.ЕдиницаХраненияОстатков = НовыйОбъектЕИ.Ссылка ;
НовыйОбъект.Записать();

НовыйОбъектЛОЛ = Справочники.ЕдиницыИзмерения.СоздатьЭлемент();
НовыйОбъектЛОЛ.ЕдиницаПоКлассификатору = Справочники.КлассификаторЕдиницИзмерения.НайтиПоНаименованию("упак");
НовыйОбъектЛОЛ.Коэффициент = Строкатч.Фасовка ;
НовыйОбъектЛОЛ.Наименование = "упак" ;
НовыйОбъектЛОЛ.Записать();

НовыйОбъект.ЕдиницаИзмеренияМест = НовыйОбъектЛОЛ.Ссылка;
НовыйОбъект.Записать();

КонецЦикла;
КонецПроцедуры

и внимание вопрос - мне осталось вставить только закупочную,оптовую,розничную цену заполнить подскажите если не сложно :)
ps я чайник в 1с пишу обработку для мамы
1 MrStomak
 
27.01.13
22:51
УстановкаЦен = Документы.УстановкаЦенНоменклатуры.СоздатьДокумент();
Для Каждого Строчка Из Товары Цикл
СтрокаЦен=УстановкаЦенНоменклатуры.Товары.Добавить();
СтрокаЦен.ТипЦен =
СтрокаЦен.Номенклатура =
КонецЦикла;

в таком духе.
2 Legowar
 
27.01.13
23:07
покажите пример пожалуйста :)))
3 MrStomak
 
27.01.13
23:14
Цены устанавливаются документом. Нужно создать документ, заполнить и провести. Писать точный пример лениво.
4 Legowar
 
27.01.13
23:18
:( просто завтра утром уже надо я совсем бум бум)я так понял создать и провести уже в предприятии а не в конфигураторе?просто у меня 12тыс. наименований в таблице :)
5 Legowar
 
27.01.13
23:23
ну все равно спасибо вам большое :)
6 Legowar
 
27.01.13
23:23
если у вас будет времечко написать я буду приочень благодарен это меня спасет:)
7 DrShad
 
27.01.13
23:27
мама строгая?
8 Legowar
 
27.01.13
23:38
маме не горит просто хочу сделать чтоб ей было удобнее)потому что там стоит программа "купи-продай 2006" и мужик который ее написал без вести пропал за границу:)а эту программу никак не получается скопировать на другой пк и приходиться работать до сих пор на пентиум 2 винда 98.все жутко виснет и т.д)живу в другом городе сегодня желательно все сделать на купленном мною пк и отвезти его в село,и заменить то старье на новый комп уже  с перенесенной базой в 1с :)
9 sanja26
 
27.01.13
23:40
10 EvgeniuXP
 
27.01.13
23:45
(0) если бы ты предложил 5 000 руб., то сразу бы нашлись и помогли.
11 sanja26
 
27.01.13
23:46
http://1c-sfera.ru/index.php/filter?search=1&f%5B2%5D%5B%5D=2

прикольный сайт, куча видео
Есть два вида языков, одни постоянно ругают, а вторыми никто не пользуется.