Главная  |  Продукты  |  Услуги и цены  |  Клиенты  |  Контакты
 
1C Предприятие 7.7
Наши решения
Программирование
1С Предприятие 8.*
Наши решения
Партнерские разработки
Типовые решения
Программирование
Администрирование
Web проекты
Интернет-магазины
Поиск по сайту

 

Основное назначение модуля - рабочее место менеджера интернет-магазина. Но использоваться модуль может и вместо встроенного в 1С 8. Модуль содержит все основные функции для управления заказами. Модуль построен по принципу «Все необходимое под рукой».

1. Удобный подбор товара по справочнику.

2. Отображение цены товара и остатка в таблице товаров.

3. Информация по ценам поставщиков и дате обновления цены.

4. Поиск клиента по номеру телефона, имени или e-mail. Создание нового клиента в один клик.

5. Список заказов с подсветкой оплаченных и отгруенных заказов. Создание нового заказа покупателя одним нажатием кнопки.

Цена: 50$ Подробная информация о модуле

 

Главная arrow Программирование arrow Импорт - экспорт arrow Загрузка данных из Excel
Загрузка данных из Excel Версия в формате PDF Версия для печати Отправить на e-mail
Рейтинг: / 50
ХудшаяЛучшая 
Написал Валецкий Станислав   
 Мы уже разбирались как загрузить данные из Excel в 1С 8.1. Теперь рассмотрим как загрузить данные из Excel в 1С 77.  Рассмотрим тот же пример. Допустим есть таблица цен поставщика в Excel:

Код Наименование Розничная цена
6461 Ванна Evolution 180x102/87 525
39311 Ванна Evolution PU-PLUS 180x102/87 675
11225 Ванна Magnolia 1,7х0.75 800
3567 Ванна Magnolia 1,8х0.75 700
 

Требуется загрузить в 1С:

 
  //Создаем ОЛЕ подключение к Excel
  Excel = СоздатьОбъект("Excel.Application");  
  
  //Открываем файл
  Excel.Workbooks.Open(ПолноеИмяФайла); 
  
  //Открываем активную книгу
  Книга = Excel.ActiveWorkbook;
    
  //Получааем количество строк в книге
  Строк = Excel.Cells.CurrentRegion.Rows.Count;
    
  //Создадим заранее объект справочника ТМЦ
  СпрТМЦ = СоздатьОбъект("Справочник.ТМЦ");
  СпрЦены = СоздатьОбъект("Справочник.Цены");   
  
  СпрКатЦены = СоздатьОбъект("Справочник.КатегорииЦен");  
  
  СпрКатЦены.НайтиПоНаименованию("Закупочная");
  ТекКатЦены = СпрКатЦены.ТекущийЭлемент();
         
  
  //Перебираем строки и обрабатываем данные
  Для х = 1 По Строк Цикл
    
    //Зная типы значений в колонках и перебирая строки получаем
    //необходимые значения и обрабатываем их   
    КодТМЦ       = СокрЛП(Строка(Excel.Cells(х, 1).Value));  
    НаименованиеТМЦ = СокрЛП(Строка(Excel.Cells(х, 2).Value));
    ЦенаТМЦ     = Число(Excel.Cells(х, 3).Value);  
    
    //Сначала ищем товар по коду, если не нашли по наименованию  
    Если СпрТМЦ.НайтиПоКоду(КодТМЦ) = 1 Тогда 
      НайдТовар = СпрТМЦ.ТекущийЭлемент();
    Иначеесли СпрТМЦ.НайтиПоНаименованию(НаименованиеТМЦ) = 1 Тогда  
      НайдТовар = СпрТМЦ.ТекущийЭлемент(); 
    Иначе
      //Товар не нашли, продолжаем 
      //здесь можно создавать товар если надо
      Продолжить;
    Конецесли;
     
    //записываем цену
       СпрЦены.Новый();  
       СпрЦены.КатегорияЦены = ТекКатЦены;
      СпрЦены.Цена = ЦенаТМЦ;
      СпрЦены.Владелец = НайдТовар;
      СпрЦены.Записать();   
    //.......     
    
  Конеццикла;
  
  //После загрузки зарываем соединение с Excel
  Excel.Workbooks.Close();
 

Добавить комментарий

:D:lol::-);-)8):-|:-*:oops::sad::cry::o:-?:-x:eek::zzz:P:roll::sigh:
Жирный Курсив Подчеркнутый Зачеркнутый Цитата


Защитный код
Обновить

След. >
Карта сайта
1C-PROFI © 2018
Использование материалов разрешено только с указанием ссылки (для web сайтов гиперссылки)
www.megastock.ru