Цены контрагентов

Форум Учет и отчетность Складской учет и логистика (WMS)

1С:Управление торговлей 10 Платформа 1С v8.3

Внимание! Тема закрыта. Добавлять сообщения в закрытую тему запрещено.

1. Gtli 25.12.14 11:11 Сейчас в теме

Добрый день! Подскажите пожалуйста как обновить закупочные цены поставщика из прайса без загрузки номенклатуры просто цены может какая обработка есть для этого. У поставщика меняются цены нужно чтобы у меня в базе 1с ут 10.3 цены закупа обновлялись

По теме из базы знаний

Ответы

Подписаться на ответы Инфостарт бот

Свернуть все

2. x_under 13 26.12.14 10:26 Сейчас в теме

(1) Gtli, ну куча же решений на инфостарт. Поищите.
Может и стандартной обработкой (Загрузка из табличного документа получится загрузить)

8. t955938 29.12.14 15:30 Сейчас в теме

Процедура КоманднаяПанельСпискаНоменклатураПодборНом(Кнопка)
    НомерСтроки = 10;
    ДиалогФыбораФайла = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);
    ДиалогФыбораФайла.Выбрать();
    Путь = ДиалогФыбораФайла.ПолноеИмяФайла;
    Попытка
        Эксель = Новый COMОбъект("Excel.Application"); 
    Исключение
        Сообщить("Обратитесь к администратору базы для решения проблемы");
        Возврат;
    КонецПопытки;
    Книга = Эксель.WorkBooks.Open(Путь);
    Лист = Книга.WorkSheets(2);
    
    Прер= Ложь;
    Пока Прер= Ложь Цикл
        НомерСтроки = НомерСтроки + 1;
        
        НаимРус = СокрЛП(Лист.Cells(НомерСтроки, 2).Text);
        НаимГруз = СокрЛП(Лист.Cells(НомерСтроки, 1).Text);
        Если (НаимРус <> "") ИЛИ (НаимГруз <> "") Тогда

                Стр = НоменклатураДоговора.Добавить();
                //ЭлементыФормы.НоменклатураДоговора.ДобавитьСтроку();
                //Стр= ЭлементыФормы.НоменклатураДоговора.ТекущаяСтрока;

                Стр.Номенклатура = НаимГруз;
                Стр.НоменклатураRUS = НаимРус;
                //Стр.Артикул = СокрЛП(Лист.Cells(НомерСтроки, 3).Text);
                Стр.ШтрихКод = СокрЛП(Лист.Cells(НомерСтроки, 3).Text);
                Стр.ВалютаЦены = СокрЛП(Лист.Cells(НомерСтроки, 4).Text);
                Стр.СтараяЦена = СокрЛП(Лист.Cells(НомерСтроки, 5).Text);
                Стр.Цена = СокрЛП(Лист.Cells(НомерСтроки, 6).Text);
    
                // Заполнение
                Если (Стр.ШтрихКод <>"") Тогда
                    Если  Лев(Стр.ШтрихКод,1) <> "2" Тогда
                    ШтрихКод(Стр, ДоговорКонтрагента);    
                    КонецЕсли;    
                КонецЕсли;
        
                        Иначе
            Прер=Истина;
        КонецЕсли;
            
    КонецЦикла;
    Эксель.Quit();
    Книга = 0;
    Лист = 0;

Показать

3. Gtli 26.12.14 21:14 Сейчас в теме

не нашол нужного
нужно чтобы обновлялись цены из прайса поставщика и выводилось в документ те цены которые изменились чтобы на них можно было потом сделать
наценку и распечатать в ценники

4. Chameleon1980 26.12.14 22:59 Сейчас в теме

синхронизация по чем?

5. Chameleon1980 26.12.14 22:59 Сейчас в теме

пиши - посмотрим

6. t955938 28.12.14 14:41 Сейчас в теме

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

7. t955938 29.12.14 15:30 Сейчас в теме

Добрый день!
Отдельной обработки у меня, но могу передать кусок моей программы.

9. t955938 29.12.14 15:31 Сейчас в теме

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

Оставьте свое сообщение

E-mail: