Фильтрация

[WhiteSwan]

Мне кажется, Nav интерпретирует полученное из Excel значение как число, а не как строку, хотя ItemNo - это Code 40.
В дебаггере можно видеть, что значение ItemNo = 5 409 (отображается с пробелом после цифры 5, как будто это тысячи).

Удаление пробелов с помощью DELCHR не помогло.

[Storkich]

Цитата:

Сообщение от WhiteSwan

хотя ItemNo - это Code 40.

Так и есть, ExcelBuffer."Cell Value as Text" уже содержит кривое значеник.
Мой код из предыдущего поста не поможет(Попробуй поменять тип ItemNo на Integer).

Меняй формат ячеек в Excel на текстовый!

[WhiteSwan]

Цитата:

Сообщение от Storkich

Меняй формат ячеек в Excel на текстовый!

Не помогает и это. Вот уж не думала, что проблема на пустом месте вылезет. Получается, что часть товара, где общий товарный номер - строка из цифр, не будет обработана...

[prefreitor]

Цитата:

Сообщение от WhiteSwan

Цитата:

Сообщение от Storkich

Меняй формат ячеек в Excel на текстовый!

Не помогает и это. Вот уж не думала, что проблема на пустом месте вылезет. Получается, что часть товара, где общий товарный номер - строка из цифр, не будет обработана...

Тут хитрость маленькая может помочь: Копировать столбец с кодами в текстовый файлик, затем в экселе ячейки делаем текстом, затем вставляем из текстового файлика.
Можно еще попробовать FORMAT(Value,0,2); в куске кода предложенном выше.

[Milk]

Цитата:

Сообщение от WhiteSwan

Цитата:

Сообщение от Storkich

Меняй формат ячеек в Excel на текстовый!

Не помогает и это. Вот уж не думала, что проблема на пустом месте вылезет. Получается, что часть товара, где общий товарный номер - строка из цифр, не будет обработана...

Можно попробовать в таблице Excel Buffer (если Вы пользуетесь ей) в функции ReadSheet заменить строчку
"Cell Value as Text" := DELCHR(FORMAT(XlWrkSht.Range(xlColID + xlRowID).Value),'<',' ');
на
"Cell Value as Text" := DELCHR(FORMAT(XlWrkSht.Range(xlColID + xlRowID).Value, 0, 1),'<',' ');

[Storkich]

Цитата:

Сообщение от Milk

Можно попробовать в таблице Excel Buffer (если Вы пользуетесь ей) в функции ReadSheet заменить строчку
"Cell Value as Text" := DELCHR(FORMAT(XlWrkSht.Range(xlColID + xlRowID).Value),'<',' ');
на
"Cell Value as Text" := DELCHR(FORMAT(XlWrkSht.Range(xlColID + xlRowID).Value, 0, 1),'<',' ');

Должно помочь!
И так, чтоб легче жилось, в панели управления, в регионалных настройках, в настройке форматов чисел, удали разделитель разрядов и вставь там пробел.

[WhiteSwan]

Цитата:

Сообщение от Milk

Можно попробовать в таблице Excel Buffer (если Вы пользуетесь ей) в функции ReadSheet заменить строчку
"Cell Value as Text" := DELCHR(FORMAT(XlWrkSht.Range(xlColID + xlRowID).Value),'<',' ');
на
"Cell Value as Text" := DELCHR(FORMAT(XlWrkSht.Range(xlColID + xlRowID).Value, 0, 1),'<',' ');

Да, это как раз то, что нужно! Теперь все работает. Спасибо большое за помощь!

Региональные настройки я бы не стала трогать, т.к. в моем случае функция должны быть универсальной и не зависеть от конкретного ПК.

Всем спасибо за советы.

[prefreitor]

Цитата:

Сообщение от WhiteSwan

Удаление пробелов с помощью DELCHR не помогло.

Это не пробелы наверное, а другой символ. Возможно он уже в экселе есть, тогда автозаменой его и все будет ок.

[WhiteSwan]

Цитата:

Сообщение от prefreitor

Цитата:

Сообщение от WhiteSwan

Удаление пробелов с помощью DELCHR не помогло.

Это не пробелы наверное, а другой символ. Возможно он уже в экселе есть, тогда автозаменой его и все будет ок.

В том то и дело, что в Excel все чисто - четыре последовательных символа '5409'. Это Nav придумывает что-то своё.