Вывод на экран содержимого по запросу из нескольких таблиц

peleken

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

Есть две таблицы ZTAB и ZTAB2. Связаны по ключу STOCKNO = F0 и имеют View Table ZTAB_VW. Имеется скрин который выводит на экран содержимое (output) таблиц ZTAB (поля F0, F1, F2, F3) и ZTAB2 (поля F0, F4, F5, F6, F7) по запросу из STOCKNO.

Данные и константы заданы в инклюде...

Code:

module ZACTION input.
CASE FCODE.
    WHEN C_FCODE_REQ.
         PERFORM F0_REQ CHANGING FLAG_FOUND.
IF FLAG_FOUND = FALSE.
         MESSAGE I001.  "Выводит сообщение из созданного Messages Classes - Z_mess_class

      ELSE.

        SELECT * FROM ZTAB_VW INTO TABLE I_ZTAB_VW
         WHERE F0 = I_ZTAB_VW-F0.
ENDIF.
ENDCASE.
endmodule.               " ZACTION  INPUT

*ПОДПРОГРАММА...

form F0_REQ  changing P_FLAG_FOUND TYPE BOOLEAN.

  P_FLAG_FOUND = FALSE.
  SELECT * FROM  ZTAB_VW
           WHERE F0 = ZTAB_VW-F0.

    IF SY-SUBRC = 0.
      P_FLAG_FOUND = TRUE.
EXIT.
    ENDIF.

ENDSELECT.

endform.                   " F0_REQ

Вот если я использую, и кстати правильно ли делаю, что использую View Table, то содержимое двух таблиц (все поля) выводится на экран. Но при вводе неправильного значения F0 выдается системная ошибка "Entry 0392 does not exist in ZTAB (check entry)" а не та что я задал в Месседж.

Если делаю селект из ZTAB, то информационное сообщение выдается из моего Месседжа, но отображается только содержимое полей F1, F2, F3,
а содержимое полей F4, F5, F6, F7 не выводятся на экран. Понятно что надо связать как то две таблицы, но ведь есть же ключ по которому они связаны.

Besa

Если честно, так сумбурно все написано... Из всего этого я понял, что Вам нужно почитать про внешние ключи и про ракурсы ведения.

matik

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

*ПОДПРОГРАММА...
form F0_REQ changing P_FLAG_FOUND TYPE BOOLEAN.

P_FLAG_FOUND = FALSE.
SELECT * FROM ZTAB_VW
WHERE F0 = ZTAB_VW-F0.

IF SY-SUBRC = 0.
P_FLAG_FOUND = TRUE.
EXIT.
ENDIF.

ENDSELECT.

endform. " F0_REQ[/code]

Лучше через Select Single

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

TYPE BOOLEAN.
P_FLAG_FOUND = FALSE.
P_FLAG_FOUND = TRUE.

Где вы объявляете константы?
Использую Type-Pools ABAP. Type ABAP_BOOL
Там ABAP_FALSE = ‘ ‘, а в BOOLEAN false ‘-’ как-то странно

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

Но при вводе неправильного значения F0 выдается системная ошибка "Entry 0392 does not exist in ZTAB (check entry)"

MESSAGE I001. "Выводит сообщение из созданного Messages Classes - Z_mess_class

Вы используете короткую форму Message
Класс сообщения наверное указали в

REPORT ... MESSAGE-ID mid.

peleken

matik написал:

Где вы объявляете константы?
Использую Type-Pools ABAP. Type ABAP_BOOL
Там ABAP_FALSE = ‘ ‘, а в BOOLEAN false ‘-’ как-то странно

Спасибо за ответ!
Константы и все остальное я объявляю в инклюде.

Code:

*&---------------------------------------------------------------------*
*& Include Z_TAB_TOP                                             Module Pool      Z_TEST_PROG
*&
*&---------------------------------------------------------------------*

PROGRAM  Z_TEST_PROG message-id SU.

TABLES:
ZTAB,
ZTAB2,
ZTAB_VW.

TYPES:
BOOLEAN TYPE C,
SCREEN_CODE LIKE SY-DYNNR,
STATUS_CODE LIKE SY-PFKEY,
TITLEBAR_CODE(3) TYPE N,
FUNCTION_CODE(4) TYPE C.

DATA:
FCODE TYPE FUNCTION_CODE,
FLAG_FOUND TYPE BOOLEAN,

I_ZTAB_VW LIKE ZTAB_VW OCCURS 0
     WITH HEADER LINE,

MSGID LIKE SY-MSGID VALUE 'SU',
      MSGTY LIKE SY-MSGTY VALUE 'I',
      MSGNO LIKE SY-MSGNO VALUE '001'.

CONSTANTS:
FALSE TYPE C VALUE ' ',
TRUE TYPE C VALUE 'X',

C_TITLE_REQ TYPE TITLEBAR_CODE VALUE '100',
C_STATUS_REQ TYPE STATUS_CODE VALUE 'REQUEST',
C_SCREEN_REQ TYPE SCREEN_CODE VALUE '0100',
C_FCODE_REQ TYPE FUNCTION_CODE VALUE 'REQU',
C_FCODE_CLEAR TYPE FUNCTION_CODE VALUE 'CLEA',
C_FCODE_EXIT TYPE FUNCTION_CODE VALUE 'EXIT'.

Сейчас по вашим ответам разбираюсь.
Что то, где то я не доделываю....
Будем искать...

В предыдущем посте я ошибся - таблицы ZTAB и ZTAB2 связаны по внешнему ключу F0.

peleken

Ну вроде разобрался как таблицы связать и вывести на экран их содержимое.

Code:

module ZACTION_REQUEST input.
CASE FCODE.
    WHEN C_FCODE_REQ.
         PERFORM F0_REQ CHANGING FLAG_FOUND.
IF FLAG_FOUND = FALSE.
         MESSAGE I001.

      ELSE.

        SELECT * FROM ZTAB INTO TABLE I_ZTAB.
        SELECT * FROM ZTAB2 INTO TABLE I_ZTAB2
         FOR ALL ENTRIES IN I_ZTAB
         WHERE F0 = I_ZTAB-F0
          AND F0 = I_ZTAB2-F0.
      LOOP AT I_ZTAB.
        LOOP AT I_ZTAB2
          WHERE F0 = I_ZTAB-F0.
          WRITE: I_ZTAB-F1,
          I_ZTAB-F2,
          I_ZTAB-F3,
          I_ZTAB2-F4,
          I_ZTAB2-F5,
          I_ZTAB-F6.
      ENDLOOP.
      ENDLOOP.

ENDIF.

ENDCASE.
endmodule.

Но вот вывод сообщения об ошибке - не могу врубиться.

matik написал:

Вы используете короткую форму Message
Класс сообщения наверное указали в

REPORT ... MESSAGE-ID mid.

Можно поподробнее. Почему выдает системную ошибку вместо мной прописанную? Если поле ввода F0 остается чистым то при нажатии "Ввод" выскакивает прописанное мной сообщение. Если я ввожу в F0 неверное число, которого нет в таблице ZTAB то выскакивает вышеупомянутая системная ошибка и все кнопки (очистка поля, реквест и тд) не работают пока не введешь правильное значение. После ввода правильного значения все становится ОК.

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

Вывод на экран содержимого по запросу из нескольких таблиц

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