|   |   | 
| 
 | Помогите с переносом базы | ☑ | ||
|---|---|---|---|---|
| 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 | 
 
 | Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |