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

 

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

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

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

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

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

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

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

 

Главная arrow Программирование arrow Импорт - экспорт arrow Загрузка данных из TXT файла
Загрузка данных из TXT файла Версия в формате PDF Версия для печати Отправить на e-mail
Рейтинг: / 29
ХудшаяЛучшая 
Написал Валецкий Станислав   
 Бывает возникает необходимость обработать TXT файл - вытянуть оттуда данные и загрузить их в 1С. Это очень просто. Как пример - рассмотрим тот же прайс присланный поставщиком. Допустим у нас есть текстовый файл. В нем 2 реквизита - "наименование" и "цена", разделенные между собой ";". обработка будет выглядеть следующим образом:
 
Процедура ЗагрузкаИзTXTФайла()
//Создадим новый объект типа "Текстовый документ"
  Текст = Новый ТекстовыйДокумент();
  
  //Открываем наш файл, обязательно правильно указать кодировку файла
  Текст.Прочитать(ПолноеИмяФайла, КодировкаТекста.ANSI);    
  
  //Создадим документ для установки розничных цен
  //Найдем нужный тип цен
  ТипЦеныРозничный   =  Справочники.ТипыЦенНоменклатуры.НайтиПоНаименованию("Розничная");  
  
  //Создадим документ
  ДокументУстановкиЦенГривна         = Документы.УстановкаЦенНоменклатуры.СоздатьДокумент();
  
  //Заполним основные поля
  ДокументУстановкиЦенГривна.Комментарий   = "Автоматическое обновление " ;
  ДокументУстановкиЦенГривна.Дата     = ТекущаяДата();
  
  //.... заполним остальные реквизиты
  
  //Найдем валюту гривна (наши цены в гривнах)
  ВалютаГривна               = Справочники.Валюты.НайтиПоКоду("980");
  
  //Заполним разделитель в файле
  СимволРазделитель = ";";
  
  //Перебираем строки файла и заполняем документ
  Для а = 1 по Текст.КоличествоСтрок() Цикл 
    
    //Получим очередную строку
    Стр = Текст.ПолучитьСтроку(а);
    
    //Занесем строку во временную переменную
    //с ней и будем работать
    ТемпСтрока         = Стр;  
    
    //Найдем разделитель
    НомерСимвола       = Найти(ТемпСтрока,СимволРазделитель);
    
    //значение до разделителя выбираем
    ТНаименование       = СокрЛП(Лев(ТемпСтрока,НомерСимвола - 1));
    
    //обрезаем строку до первого символа после разделителя
    ТемпСтрока              = Сред(ТемпСтрока,НомерСимвола + 1);
    
    //Ищем следующий разделитель
    //если это поледний реквизит можно просто взять оставшуюся строку
    НомерСимвола       = Найти(ТемпСтрока,СимволРазделитель); 
    ТЦена           = Число(Лев(ТемпСтрока,НомерСимвола - 1));
    
    //Если наименование пустое, считаем строку пустой
    //сообщим об этом пользователю
    Если тНаименование = "" Тогда
      Сообщить("Пустая строка " + Строка(а));
      Продолжить;
    Конецесли;
    
    
    Товар = Справочники.Номенклатура.ПустаяСсылка();
    
    // Ищем товар по наименованию
    Если ТНаименование <> "" Тогда
      Товар = Справочники.Номенклатура.НайтиПоНаименованию(ТНаименование);
    Конецесли;
    
    //Если не нашли создаем новый товар
    Если Товар.Пустая() Тогда
      Товар         = Справочники.Номенклатура.СоздатьЭлемент();
      Товар.Наименование  = ТНаименование;
      
      //....Заполняем остальные реквизиты
      Товар.Записать();
    Иначе
      
      //Если нашли, получим объект
      Товар = Товар.ПолучитьОбъект();
      
      //....Заполняем реквизиты  (если нужно)
    Конецесли;  
    
    //Если цена не пустая, добавим в документ новую строку
    Если НЕ(ТЦена = 0) Тогда
      НоваяСтрока       = ДокументУстановкиЦенГривна.Товары.Добавить();
      НоваяСтрока.Валюта      = ВалютаГривна;
      НоваяСтрока.Цена     = ТЦена;
      НоваяСтрока.Номенклатура  = Товар.Ссылка;         
      НоваяСтрока.ТипЦен     = ТипЦеныРозничный;
      НоваяСтрока.ЕдиницаИзмерения   = Товар.ЕдиницаХраненияОстатков;
    Конецесли;  
  Конеццикла;
  Состояние("Запись цен");
  
  //Если в документе есть строки нужно провести документ
  Если Не(ДокументУстановкиЦенГривна.Товары.Количество() = 0) Тогда
    ДокументУстановкиЦенГривна.Записать(РежимЗаписиДокумента.Запись);
    ДокументУстановкиЦенГривна.Записать(РежимЗаписиДокумента.Проведение);
  Конецесли;      
  
  Сообщить("ЗАГРУЗКА ЗАВЕРШЕНА");    
Конецпроцедуры
 

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

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


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

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