Добавить условие

[Middle]

Доброго времени суток.
Подскажите, как сюда добавить условие, чтобы смотрел что в штрихкоде 13 цифр и только тогда брал значение "штрихкод":

Код Выделить Развернуть

Для каждого ДопЗначение Из ПоцизияЭДО.StructedAdditionalInfos Цикл
Если НРег(ДопЗначение.Key) = "штрихкод" Тогда
СтрокаДокумента.Штрихкод = ПоцизияЭДО.StructedAdditionalInfos[0].Value;
Прервать;
КонецЕсли;

[Middle]

Может так?

Код Выделить Развернуть

Для каждого ДопЗначение Из ПоцизияЭДО.StructedAdditionalInfos Цикл
    Если НРег(ДопЗначение.Key,1,13) = "штрихкод" Тогда
        СтрокаДокумента.Штрихкод = ПоцизияЭДО.StructedAdditionalInfos[0].Value;
    Прервать;
    КонецЕсли;

[ls600]

Использовать
Глобальный контекст (Global context)
СтрДлина (StrLen)
Синтаксис:
СтрДлина(<Строка>)
Параметры:
<Строка> (обязательный)
Тип: Строка.
Исходная строка.
Возвращаемое значение:
Тип: Число.
Длина строки.
Описание:
Получает количество символов в строке.

[Middle]

Использовать
Глобальный контекст (Global context)
СтрДлина (StrLen)
Синтаксис:
СтрДлина(<Строка>)
Параметры:
<Строка> (обязательный)
Тип: Строка.
Исходная строка.
Возвращаемое значение:
Тип: Число.
Длина строки.
Описание:
Получает количество символов в строке.

Получается так?:

Код Выделить Развернуть

Для каждого ДопЗначение Из ПоцизияЭДО.StructedAdditionalInfos Цикл
   Если НРег(ДопЗначение.Key) = "штрихкод" И СтрДлина(СтрокаДокумента.Штрихкод) = 13 Тогда
СтрокаДокумента.Штрихкод = ПоцизияЭДО.StructedAdditionalInfos[0].Value;
Прервать;
КонецЕсли;

[ls600]

Middle, как то так.

[antoneus]

да ну не так!

Код Выделить Развернуть

Для каждого ДопЗначение Из ПоцизияЭДО.StructedAdditionalInfos Цикл
   Если НРег(ДопЗначение.Key) = "штрихкод" И СтрДлина(ПоцизияЭДО.StructedAdditionalInfos[0].Value) = 13 Тогда
    СтрокаДокумента.Штрихкод = ПоцизияЭДО.StructedAdditionalInfos[0].Value;
Прервать;
КонецЕсли;

[LexaK]

может так?

Код Выделить Развернуть

Для каждого ДопЗначение Из ПоцизияЭДО.StructedAdditionalInfos Цикл
   Если НРег(ДопЗначение.Key) = "штрихкод" И СтрДлина(ДопЗначение.Value) = 13 Тогда
      СтрокаДокумента.Штрихкод = ДопЗначение.Value;
      Прервать;
   КонецЕсли;
...



[ls600]

чего гадать, автор уже сам посмотрит через отладку что подставить в СтрДлина(.....)

[LexaK]

Если бы автор смог сам подставить что надо, он бы на форум не обратился! 
поэтому помогаем все, кто чем может.

[Middle]

может так?

Код Выделить Развернуть

Для каждого ДопЗначение Из ПоцизияЭДО.StructedAdditionalInfos Цикл
   Если НРег(ДопЗначение.Key) = "штрихкод" И СтрДлина(ДопЗначение.Value) = 13 Тогда
      СтрокаДокумента.Штрихкод = ДопЗначение.Value;
      Прервать;
   КонецЕсли;
...



Всем спасибо прописал так. У antoneus тоже работает)