Мегадок
Subsystems
Авторская разработка решений для 1С с 2008 года. Об авторе.
8 (995) 091-01-01
В онлайне: с 10:00 до 18:00
Заказать звонок
Skype: shekineugeniy
Мегапрайс
Разработки
  • Мегапрайс PRO
  • Мега: Загрузка в 1С
  • Мега: Номенклатура
  • Мега: Цены
  • Мега: Помощник закупок
  • Мега: Помощник продаж
  • Парсеры прайсов
  • Маркетплейсы
  • Удалить (всякое старье)
Что нового?
Отзывы
Информация
  • Об авторе
    • Об авторе
    • История
    • Лицензии
    • Партнеры
    • Контакты
  • Договор-оферта
  • Есть идея!
  • Техподдержка
  • Вопрос ответ
  • Статьи
  • Для интернет-магазинов
    • Продукты Битрикс
    • Шаблоны для сайта
  • Партнерство
  • Акции
Форум
    Subsystems
    Мегапрайс
    Разработки
    • Мегапрайс PRO
    • Мега: Загрузка в 1С
    • Мега: Номенклатура
    • Мега: Цены
    • Мега: Помощник закупок
    • Мега: Помощник продаж
    • Парсеры прайсов
    • Маркетплейсы
    • Удалить (всякое старье)
    Что нового?
    Отзывы
    Информация
    • Об авторе
      • Об авторе
      • История
      • Лицензии
      • Партнеры
      • Контакты
    • Договор-оферта
    • Есть идея!
    • Техподдержка
    • Вопрос ответ
    • Статьи
    • Для интернет-магазинов
      • Продукты Битрикс
      • Шаблоны для сайта
    • Партнерство
    • Акции
    Форум
      0
      Subsystems
      0
      • Мегапрайс
      • Разработки
        • Назад
        • Разработки
        • Мегапрайс PRO
        • Мега: Загрузка в 1С
        • Мега: Номенклатура
        • Мега: Цены
        • Мега: Помощник закупок
        • Мега: Помощник продаж
        • Парсеры прайсов
        • Маркетплейсы
        • Удалить (всякое старье)
      • Что нового?
      • Отзывы
      • Информация
        • Назад
        • Информация
        • Об авторе
          • Назад
          • Об авторе
          • Об авторе
          • История
          • Лицензии
          • Партнеры
          • Контакты
        • Договор-оферта
        • Есть идея!
        • Техподдержка
        • Вопрос ответ
        • Статьи
        • Для интернет-магазинов
          • Назад
          • Для интернет-магазинов
          • Продукты Битрикс
          • Шаблоны для сайта
        • Партнерство
        • Акции
      • Форум
      • Мой кабинет
      • Корзина0
      • 8 (995) 091-01-01
      Skype: shekineugeniy
      support@subsystems.ru
      • Facebook
      • Вконтакте
      • Telegram
      • YouTube

      Распознать, убрать и выделить из наименования ГТД и Страну

      • Главная
      • Форум
      • Разработки для 1С
      • Создание алгоритмов загрузки
      • Распознать, убрать и выделить из наименования ГТД и Страну
      Аренда 1С (4)
      Поиск  Правила 
      Форум » Разработки для 1С » Создание алгоритмов загрузки
      Страницы: 1
      Распознать, убрать и выделить из наименования ГТД и Страну
       
      Jlexa
      Пользователь
      Сообщений: 3 Регистрация: 28.08.2011
      #1
      08.11.2018 10:45:46
      В накладной поставщика название номенклатуры в таком формате: "Наименование товара (10702070/130618/0078002/1, КИТАЙ)"

      Как из нее выделить ГТД и Страну происхождения при загрузке накладной в 1С?
       
       
       
      Евгений
      Администратор
      Сообщений: 2868 Регистрация: 04.07.2011
      #2
      08.11.2018 11:41:35
      Пришлите мне вашу накладную.
       
       
       
      Евгений
      Администратор
      Сообщений: 2868 Регистрация: 04.07.2011
      #3
      10.11.2018 22:24:48
      Первый алгоритм будет для колонки наименование

      Убираем из наименования ГТД и страну

      НайтиСкобку = СтрНайти(Значение, "(",НаправлениеПоиска.СКонца);
      Если НайтиСкобку > 0 Тогда
      Значение = Лев(Значение,НайтиСкобку-1);
      КонецЕсли;
       
       
       
      Евгений
      Администратор
      Сообщений: 2868 Регистрация: 04.07.2011
      #4
      10.11.2018 22:32:30
      Для распознавания ГТД


      НайтиСкобку = СтрНайти(Значение, "(",НаправлениеПоиска.СКонца);
      Если НайтиСкобку > 0 Тогда
      Значение = Прав(Значение,СтрДлина(Значение)-НайтиСкобку);
      Значение = СтрЗаменить(Значение,"(","");
      Значение = СтрЗаменить(Значение,")","");

      НайтиЗапятую = СтрНайти(Значение, ",");
      Если НайтиЗапятую > 0 Тогда
      Значение = Лев(Значение,НайтиЗапятую-1);
      КонецЕсли;
      КонецЕсли;
       
       
       
      Евгений
      Администратор
      Сообщений: 2868 Регистрация: 04.07.2011
      #5
      10.11.2018 22:36:14
      Распознать страну

      НайтиСкобку = СтрНайти(Колонка3, "(",НаправлениеПоиска.СКонца);Если НайтиСкобку > 0 Тогда

      Значение = Прав(Значение,СтрДлина(Значение)-НайтиСкобку);
      Значение = СтрЗаменить(Значение,"(","");
      Значение = СтрЗаменить(Значение,")","");

      НайтиЗапятую = СтрНайти(Значение, ",");
      Если НайтиЗапятую > 0 Тогда
      Значение = Прав(Значение,СтрДлина(Значение)-НайтиЗапятую);
      КонецЕсли;

      КонецЕсли;
       
       
       
      Евгений
      Администратор
      Сообщений: 2868 Регистрация: 04.07.2011
      #6
      11.11.2018 00:06:54
      Вот еще варианты алгоритмов, еще лучше чем предидущие.

      1) Для наименования

      МассивВсехСлов = СтрРазделить(Колонка3," ");
      МассивВсехСлов.Удалить(МассивВсехСлов.Количество()-1);
      МассивВсехСлов.Удалить(МассивВсехСлов.Количество()-1);
      Значение = СтрСоединить(МассивВсехСлов," ");

      2) Для ГТД

      МассивВсехСлов = СтрРазделить(Колонка3," ");
      ПредпоследнееСлово = МассивВсехСлов.Получить(МассивВсехСлов.Количество()-2);
      Значение = СтрЗаменить(ПредпоследнееСлово,"(","");
      Значение = СтрЗаменить(Значение,",","");

      3) Для Страны

      МассивВсехСлов = СтрРазделить(Колонка3," ");
      ПоследнееСлово = МассивВсехСлов.Получить(МассивВсехСлов.Количество()-1);
      Значение = СтрЗаменить(ПоследнееСлово,")","");
       
       
       
      Страницы: 1
      Читают тему
      Подписывайтесь на новости и акции:
      Компания
      Об авторе
      История
      Лицензии
      Партнеры
      Контакты
      Разработки 1С
      Мегапрайс PRO
      Загрузка прайсов в 1С
      Анализатор прайсов
      Помощник установки цен
      Помощник продаж
      Помощник закупок
      Услуги
      Услуги по 1С
      Парсеры прайсов
      Создание сайтов
      Техподдержка
      Информация
      Договор-оферта
      Наши контакты

      8 (995) 091-01-01
      В онлайне: с 10:00 до 18:00
      Skype: shekineugeniy
      support@subsystems.ru
      © 2021 Все права защищены. Работает на 1С-Битрикс
      0

      Корзина

      Ваша корзина пуста

      Исправить это просто: выберите в каталоге интересующий товар и нажмите кнопку «В корзину»
      В каталог