SAP R/3 форум ABAP консультантов
Russian ABAP Developer's Club

Home - FAQ - Search - Memberlist - Usergroups - Profile - Log in to check your private messages - Register - Log in - English
Blogs - Weblogs News

Ранги в динамическом селекте



 
Post new topic   Reply to topic    Russian ABAP Developer's Club Forum Index -> ABAP
View previous topic :: View next topic  
Author Message
vetal
Участник
Участник



Joined: 18 Jan 2008
Posts: 44
PostPosted: Mon Jun 16, 2008 1:25 pm    Post subject: Ранги в динамическом селекте Reply with quote
Здравствуйте. Получаю дамп 'The WHERE condition has an unexpected format.' при попытке использовать select-options в динамическом условии. Это как-то можно побороть?

Code:
TABLES: rbkp.
SELECT-OPTIONS so_belnr FOR rbkp.

DATA:
    BEGIN OF lt_where OCCURS 0,
        text TYPE line72,
    END OF lt_where.

lt_where = 'belnr IN so_belnr'.
APPEND lt_where.

SELECT * FROM rbkp WHERE (lt_where).
  WRITE: / rbkp-belnr.
ENDSELECT.
Back to top
View user's profile Send private message
Armann
Модератор
Модератор



Joined: 01 Jan 2008
Posts: 422
Location: Moscow
PostPosted: Mon Jun 16, 2008 1:47 pm    Post subject: Reply with quote
Увы, нельзя использовать внутри lt_where переменные, в том числе и select-options. Либо переписывать так, чтоб внутри lt_where получались только нормальные значения, либо, если сильно приспичит, создавать динамически подпрограммы
Back to top
View user's profile Send private message Blog
Alex80
Старший специалист
Старший специалист


Age: 44
Joined: 24 Jan 2008
Posts: 129
PostPosted: Mon Jun 16, 2008 5:51 pm    Post subject: Re: Ранги в динамическом селекте Reply with quote
vetal wrote:
Здравствуйте. Получаю дамп 'The WHERE condition has an unexpected format.' при попытке использовать select-options в динамическом условии. Это как-то можно побороть?

Code:
TABLES: rbkp.
SELECT-OPTIONS so_belnr FOR rbkp.

DATA:
    BEGIN OF lt_where OCCURS 0,
        text TYPE line72,
    END OF lt_where.

lt_where = 'belnr IN so_belnr'.
APPEND lt_where.

SELECT * FROM rbkp WHERE (lt_where).
  WRITE: / rbkp-belnr.
ENDSELECT.

Code:
SELECT-OPTIONS so_belnr FOR rbkp-belnr.
Back to top
View user's profile Send private message
Vsl1969
Участник
Участник



Joined: 25 Jan 2008
Posts: 4
PostPosted: Tue Jun 17, 2008 5:50 am    Post subject: Reply with quote
Есть ФМ который преобразует range в условие where. Как называется точно не помню, что то типа free_range_to_selection
Back to top
View user's profile Send private message
vetal
Участник
Участник



Joined: 18 Jan 2008
Posts: 44
PostPosted: Tue Jun 17, 2008 8:38 am    Post subject: Re: Ранги в динамическом селекте Reply with quote
Спасибо за ответы.

Alex80 wrote:
Code:
SELECT-OPTIONS so_belnr FOR rbkp-belnr.


Опечатка, Surprised но все равно падает.
Back to top
View user's profile Send private message
John Doe
Модератор
Модератор


Age: 46
Joined: 05 Nov 2007
Posts: 725
Location: КраснАдар
PostPosted: Tue Jun 17, 2008 10:08 am    Post subject: Reply with quote
Не совсем то конечно, но работает:
Code:
TABLES: RBKP.
SELECT-OPTIONS SO_BELNR FOR RBKP-BELNR.

DATA: LT_WHERE TYPE TABLE OF TEXT72,
      CONDTAB TYPE TABLE OF HRCOND WITH HEADER LINE.

DEFINE XSELECT.
  SELECT * FROM RBKP WHERE (&1).
    WRITE: / RBKP-BELNR.
  ENDSELECT.
END-OF-DEFINITION.

START-OF-SELECTION.
  CONDTAB-FIELD = 'BELNR'.
  CONDTAB-OPERA = 'BT'.
  CONDTAB-LOW   = SO_BELNR-LOW.
  CONDTAB-HIGH  = SO_BELNR-HIGH.
  APPEND CONDTAB.

  CALL FUNCTION 'RH_DYNAMIC_WHERE_BUILD'
       EXPORTING
            DBTABLE         = 'RBKP'
       TABLES
            CONDTAB         = CONDTAB
            WHERE_CLAUSE    = LT_WHERE
       EXCEPTIONS
            EMPTY_CONDTAB   = 1
            NO_DB_FIELD     = 2
            UNKNOWN_DB      = 3
            WRONG_CONDITION = 4
            OTHERS          = 5.
  IF SY-SUBRC <> 0.
    EXIT.
  ENDIF.

  XSELECT LT_WHERE.

Ввиду того, что в таблице условий CONDTAB отсутсвует знак "вкл-искл", то нужно будет совершать телодвижения при чтении данных SELECT-OPTIONS и формировании указанной таблички. Можно, к примеру, создать RANGE с хидером, перекинуть в него данные, сделать цикл и в цикле следить за SIGN.
Back to top
View user's profile Send private message Blog
Display posts from previous:   
Post new topic   Reply to topic    Russian ABAP Developer's Club Forum Index -> ABAP All times are GMT + 4 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum
You cannot attach files in this forum
You can download files in this forum


All product names are trademarks of their respective companies. SAPNET.RU websites are in no way affiliated with SAP AG.
SAP, SAP R/3, R/3 software, mySAP, ABAP, BAPI, xApps, SAP NetWeaver and any other are registered trademarks of SAP AG.
Every effort is made to ensure content integrity. Use information on this site at your own risk.