Фильтрация

[WhiteSwan]

Фильтрую справочник Товары по полю "Общий Товарный Но.":

Item.RESET;
Item.SETFILTER(Item."Common Item No.",FORMAT(ItemNo));
IF Item.FIND('-') THEN BEGIN
.....

Когда ItemNo (тип Code 40 - так же как и поле "Common Item No.") содержит хотя бы один нецифровой символ - все ок.
Но когда там число - фильтр не работает.

Кто-нибудь может помочь?

Заранее благодарю.

[Eugeny_F]

Цитата:

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

Фильтрую справочник Товары по полю "Общий Товарный Но.":

Item.RESET;
Item.SETFILTER(Item."Common Item No.",FORMAT(ItemNo));
IF Item.FIND('-') THEN BEGIN
.....

Когда ItemNo (тип Code 40 - так же как и поле "Common Item No.") содержит хотя бы один нецифровой символ - все ок.
Но когда там число - фильтр не работает.

Кто-нибудь может помочь?

Заранее благодарю.

А если вместо Item.SETFILTER(Item."Common Item No.",FORMAT(ItemNo)); попробовать классическое
Item.SETFILTER(Item."Common Item No.",'%1',ItemNo);
не поможет?

[VProk]

Цитата:

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

Фильтрую справочник Товары по полю "Общий Товарный Но.":

Item.RESET;
Item.SETFILTER(Item."Common Item No.",FORMAT(ItemNo));
IF Item.FIND('-') THEN BEGIN
.....

Когда ItemNo (тип Code 40 - так же как и поле "Common Item No.") содержит хотя бы один нецифровой символ - все ок.
Но когда там число - фильтр не работает.

Кто-нибудь может помочь?

Заранее благодарю.

Не может быть такого, что Item."Common Item No." = 0200000007, а ItemNo = 200000007?
Кроме того непонятно, зачем FORMAT(ItemNo), если ItemNo - это Code 40?

[Sancho]

Item.SETRANGE(Item."Common Item No.",ItemNo);

[WhiteSwan]

К сожалению, ни один из предложенных способов не помогает. Может каким-то образом сказывается, что данные в переменную ItemNo считываются из Excel? Уточню код:

ExcelBuffer.ReadSheet;
...
IF ExcelBuffer.GET(r, 2) THEN
EVALUATE(ItemNo,ExcelBuffer."Cell Value as Text");
Item.RESET;
Item.SETFILTER(Item."Common Item No.",FORMAT(ItemNo));
IF Item.FIND('-') THEN BEGIN
...

ItemNo - это глобальная переменная в рамках объекта Report.

[Storkich]

Напиши так

Item.RESET;
Item.SETFILTER(Item."Common Item No.",FORMAT(ItemNo));
Item.FIND('-');

И почитай внимательно текст сообщения.

[Eugeny_F]

Я бы еще попробовал дополнить строку
EVALUATE(ItemNo,ExcelBuffer."Cell Value as Text");
заменив ее на
EVALUATE(ItemNo,DELCHR(' ','<',ExcelBuffer."Cell Value as Text"));
дабы отсечь возможные ведущие пробелы в ItemNo.

[WhiteSwan]

Цитата:

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

Напиши так

Item.RESET;
Item.SETFILTER(Item."Common Item No.",FORMAT(ItemNo));
Item.FIND('-');

И почитай внимательно текст сообщения.

Пишет следующее:
"Нет Товар в пределах фильтра.
Фильтры: Общий Товар Но.: 5 409"

[WhiteSwan]

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

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

[Storkich]

--дубль--

[Storkich]

Цитата:

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

Пишет следующее:
"Нет Товар в пределах фильтра.
Фильтры: Общий Товар Но.: 5 409"

Ну всё ясно
Пиши так:

Item.RESET;
Item.SETrange(Item."Common Item No.",FORMAT(ItemNo,0,1));
Item.FIND('-');

А если по человечески то

Item.RESET;
IF ExcelBuffer.GET(r, 2) THEN BEGIN
  Item.SETrange(Item."Common Item No.",ExcelBuffer."Cell Value as Text");
  Item.FIND('-');
  ...
end;

Но возможно, что ExcelBuffer."Cell Value as Text" уже содержит кривое значение, из-за FORMAT(VARIABLE);

[Storkich]

Цитата:

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

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

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

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

[prefreitor]

Цитата:

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

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

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

[WhiteSwan]

Цитата:

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

Цитата:

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

Пишет следующее:
"Нет Товар в пределах фильтра.
Фильтры: Общий Товар Но.: 5 409"

Ну всё ясно
Пиши так:

Item.RESET;
Item.SETrange(Item."Common Item No.",FORMAT(ItemNo,0,1));
Item.FIND('-');

А если по человечески то

Item.RESET;
IF ExcelBuffer.GET(r, 2) THEN BEGIN
  Item.SETrange(Item."Common Item No.",ExcelBuffer."Cell Value as Text");
  Item.FIND('-');
  ...
end;

Но возможно, что ExcelBuffer."Cell Value as Text" уже содержит кривое значение, из-за FORMAT(VARIABLE);

К сожалению, оба варианта не помогли.

[WhiteSwan]

Цитата:

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

Цитата:

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

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

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

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

[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),'<',' ');

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

[artkashin]

аГа, по-умолчанию в региональных настройках стоит 255-й символ. Его замена на пробел решит ваши проблемы. Или удалять все 255-е символы кодом.