Баг или так и должен работать ranges помещенный в define ?

Salmaner

Всем привет! ... я опечален

отработал такую классную вещь, а теперь когда она работает в цикле
я получаю бяку.
смысл таков

Code:

...
define coll_r
 refresh my_ranges.
* потом наполняю его счетами
end-of-definition.

loop at it_scheta.
 coll_r it_scheta-schet. " вызываю макрос передаю счета
 write: / my_ranges-low. " всегда первый счет, 
endloop.

если сделать CLEAR my_ranges то первый счет отрабатывает а потом
пусто, вроде как чистит так что ни чего не записывается.
в чем грабли, так работает define или ranges на столько устарел что юзать его нельзя?
вот думаю в form endform все это перенисти ...

ArmAnn

Что то совсем непонятно что вы хотите сделать. Больше кода процитируйте, что ли

Salmaner

определение

Code:

DEFINE parsing.
  REFRESH r_schet. 
  WRITE: / 'после чистки ', r_schet-low.
  REFRESH prsChet.
  SPLIT &1 AT ';' INTO TABLE prsChet.
  if prsChet is INITIAL.
    loop AT prsChet.
      search prsChet-tekChet for '~'.
      if sy-subrc EQ 0.
        SPLIT prsChet-tekChet AT '~' INTO r_schet-low r_schet-high.
        r_schet-sign   = 'I'.
        r_schet-option = 'BT'.
        append r_schet.
      else.
        r_schet-sign   = 'I'.
        r_schet-option = 'EQ'.
        r_schet-low    = prsChet-tekChet.
        r_schet-high   = ''.
        append r_schet.
      endif.
    ENDLOOP.
  endif.
END-OF-DEFINITION.

вызов

Code:

loop at it_main.
*вызов "процедуры" парсинга в которую передаем поле со счетами
      parsing it_main-CHSKAT. " поле строка со списком счетов
      WRITE: / r_schet-low, r_schet-high.
endloop.

пример содержания поля со счетами
it_main-CHSKAT = '1210-01~1210-99;3110-01;1050-011US;999-10~999-99'

Parazit

Не надо путать внутреннюю таблицу и ее header-line:

REFRESH r_schet. - чистится таблица, header-line не очищен
WRITE: / 'после чистки ', r_schet-low. - вывод значения из header-line, неочищенного

if prsChet is INITIAL. - проверка header-line, не таблицы

if prsChet[] is INITIAL - вот теперь таблицы

sy-uname

Salmaner написал:

Code:

DEFINE parsing.
  REFRESH r_schet. 
  WRITE: / 'после чистки ', r_schet-low.
...

Refresh, насколько помню, чистит содержимое таблицы, не трогая её заголовок. для чистки заголовка пользуйтeсь clear.
Точно так-же проверять заполненность таблицы надо как

Code:

if prsChet[] is INITIAL.

т.к. if prsChet is INITIAL. проверит содержимое заголовка.

stanabol

Что гадать то? Можно просто помотреть оп атладке, что как чиститься.
А вообще с заголовком уже не модно использовать внутренние таблицы - косяки левые появляются - типа этого.

profiteer

stanabol написал(а):

Что гадать то? Можно просто помотреть оп атладке, что как чиститься.
А вообще с заголовком уже не модно использовать внутренние таблицы - косяки левые появляются - типа этого.

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

OlegDm

stanabol написал(а):

... А вообще с заголовком уже не модно использовать внутренние таблицы - косяки левые появляются - типа этого.

дело не в том, модно или не модно - объекты/классы не поддерживают работу таблиц с хэдерлайном

Salmaner

Сдлал вот так ...

Code:

DEFINE parsing.
  REFRESH r_schet.
  CLEAR r_schet.
  REFRESH prsChet.
  CLEAR prsChet.
  SPLIT &1 AT ';' INTO TABLE prsChet.
  if prsChet is INITIAL.
    loop AT prsChet.
      search prsChet-tekChet for '~'.
      if sy-subrc EQ 0.
        "if strlen( prsChet-tekChet ) = 15.
        SPLIT prsChet-tekChet AT '~' INTO r_schet-low r_schet-high.
        r_schet-sign   = 'I'.
        r_schet-option = 'BT'.
        append r_schet.
      else.
        "elseif strlen( prsChet-tekChet ) = 7.
        r_schet-sign   = 'I'.
        r_schet-option = 'EQ'.
        r_schet-low    = prsChet-tekChet.
        r_schet-high   = ''.
        append r_schet.
      endif.
    ENDLOOP.
  endif.
END-OF-DEFINITION.

и о щастье оно заработало всем всем башое пасибо!
Parazit'у отдельный сэнкс!
даже немного побаловался, работает только в этом таком варианте

Code:

REFRESH r_schet.
  CLEAR r_schet.
  REFRESH prsChet.
  CLEAR prsChet.

sy-uname

Salmaner написал:

Code:

REFRESH r_schet.
  CLEAR r_schet.
  REFRESH prsChet.
  CLEAR prsChet.

Можнл короче:

Code:

CLEAR: r_schet. r_schet[], prsChet, prsChet[].

Цитата:

Code:

...  if prsChet is INITIAL.
...

А зачем здесь IF, непосредстаенно после Clear?

Tim

Salmaner, я смотрю, уже 2-й пост про макросы. САП не рекомендует их самому писать. Устаревшая технология.

Salmaner

sy-uname и в правду так лучше. меньше кода и акуратненько.

Tim я в курсе что САП их не рекомендует юзать. но как мне быть если мне нужен механимз упращенных процедурок. а макросы как раз работают как простые процедурки с передачей параметров и изменением глобальных переменных.
просто с форм (подпраграмма) еще не разбирался.

ArmAnn

stanabol написал(а):

Что гадать то? Можно просто помотреть оп атладке, что как чиститься.
А вообще с заголовком уже не модно использовать внутренние таблицы - косяки левые появляются - типа этого.

Глюки от кривых рук и незнания инструмента, то бишь языка. Вы еще AT NEW/AT LAST/etc обругайте - тааакие глюки выдает...

Правила форума

Баг или так и должен работать ranges помещенный в define ?

Кто сейчас на конференции