Фильтрация - NAV: Программирование

WhiteSwan · 23.04.2010, 14:53

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

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

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

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

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

Eugeny_F · 23.04.2010, 15:14

Цитата:

Сообщение от 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 · 23.04.2010, 15:20

Цитата:

Сообщение от 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** · 23.04.2010, 17:45

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

WhiteSwan · 26.04.2010, 08:57

К сожалению, ни один из предложенных способов не помогает. Может каким-то образом сказывается, что данные в переменную 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 · 26.04.2010, 09:41

Напиши так

Код:

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

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

WhiteSwan · 26.04.2010, 15:29

Цитата:

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

Напиши так

Код:

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

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

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

Storkich · 26.04.2010, 15:57

--дубль--

Storkich · 26.04.2010, 16:01

Цитата:

Сообщение от 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 · 26.04.2010, 16:25

Цитата:

Сообщение от 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);

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

Eugeny_F · 26.04.2010, 12:45

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

WhiteSwan · 26.04.2010, 15:34

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

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

Storkich · 26.04.2010, 16:07

Цитата:

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

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

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

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

WhiteSwan · 26.04.2010, 16:42

Цитата:

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

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

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

prefreitor · 26.04.2010, 16:48

Цитата:

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

Цитата:

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

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

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

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

Milk · 26.04.2010, 16:52

Цитата:

Сообщение от 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 · 26.04.2010, 17:24

Цитата:

Сообщение от 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 · 27.04.2010, 10:13

Цитата:

Сообщение от 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),'<',' ');

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

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

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