|
Помогите с переносом базы | ☑ | ||
---|---|---|---|---|
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
|
v8: v8: Создать документ установки цен.
http://1c-sfera.ru/index.php/1s-upravlenie-torgovlej/108-ustanovka-tsen-nomenklatury-v-1s-upravlenie-torgovlej-11-video 1с создать документ установки цен в яндексе |
|||
10
EvgeniuXP
27.01.13
✎
23:45
|
(0) если бы ты предложил 5 000 руб., то сразу бы нашлись и помогли.
|
|||
11
sanja26
27.01.13
✎
23:46
|
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |