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

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

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

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

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

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


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

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

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

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

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

      КонецЕсли;
       
      #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-20
      Телега:@Subsystemsru
      Чат с телеге:@Евгений
      Макс:@Subsystemsru
      Техподдержка
      support@subsystems.ru
      © 2026 Все права защищены. Работает на 1С-Битрикс
      Версия для печати
      Яндекс.Метрика
      0

      Корзина

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

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