초보를 위한 ABAP 연습문제 출제 2강(RADIO 버튼 생성 및 Control)

개인정보를 DB에 넣거나 조회할 수 있는 기능을 만든다.

 

 

Radio 버튼 생성 교육

기본 라디오버튼 생성 스크린 구성 방법은.. 더보기에 넣습니다.

 

 
SELECTION-SCREEN BEGIN OF BLOCK a01 WITH FRAME TITLE text-t03.

PARAMETERS pa_rad3 RADIOBUTTON GROUP A .
PARAMETERS pa_rad4 RADIOBUTTON GROUP A DEFAULT 'X'.
PARAMETERS pa_rad5 RADIOBUTTON GROUP A.
SELECTION-SCREEN END OF BLOCK a01.
*
SELECTION-SCREEN BEGIN OF BLOCK a02 WITH FRAME TITLE text-t04.

SELECTION-SCREEN SKIP 1.

PARAMETERS pa_rad6 RADIOBUTTON GROUP rd3.
PARAMETERS pa_rad7 RADIOBUTTON GROUP rd3.
PARAMETERS pa_rad8 RADIOBUTTON GROUP rd3.
SELECTION-SCREEN END OF BLOCK a02.



CASE 'X'.
  WHEN pa_rad3.
    WRITE : '3번 라디오를 선택하셨습니다. '.

  WHEN pa_rad4.
    WRITE : '4번 라디오를 선택하셨습니다. '.

  WHEN pa_rad5.
    WRITE : '5번 라디오를 선택하셨습니다. '.

ENDCASE.

 

 

 

 

DB 명 (ZCRMADD)		DB 명 (ZCRMADDT)
위 데이터를 DB 에 넣을때에는 프로그램에서 데이터를 입력 받아 데이터를 넣어주도록 한다.
SELECTION-SCREEN에 PARAMETERS 를 여러건 생성하여 데이터를 입력받아, 입력받은 데이터를 DB에 저장하도록 한다.

 

 

 

라디오 버튼을 생성한다.
생성된 라디오 버튼은 조회/저장을 선택할 수 있도록 한다.
CRM ID 만 필수값으로 받고, 나머지는 필수값에서 제외시킨다.
처리 프로세스
조회로 선택시에는 입력받은 CRM ID 를 가지고 ZCRMADD 와 ZCRMADDT 를 읽어서
WRITE 로 출력한다.  (단, ZCRMADDT-SPRAS = '3' 인 경우만 조회)
출력할 필드는 CRM ID , 전화번호, 주소, 이성친구, 사용자 이름을 출력한다,.
입력을 선택시에는 기존과 똑같이 DB에 저장하는 로직으로 한다.

 

 

 

하단은 정답 화면.. (교육받은 분이 직접 작성한 것입니다..)^^ 제 소스 아닙니당..

" SCREEM 만들기.

SELECTION-SCREEN BEGIN OF BLOCK A01 WITH FRAME TITLE TEXT-001.

PARAMETERS CRM_ID    TYPE ZZECRMID   OBLIGATORY.
PARAMETERS NAME      TYPE ZZEIDTEXT  .
PARAMETERS PHONE_NO  TYPE ZZEPHONE   .
PARAMETERS ADDRESS   TYPE ZZEADDRESS .
PARAMETERS COUPLE    TYPE ZZECOUPLE  .
PARAMETERS SPRAS     TYPE SPRAS      .

SELECTION-SCREEN END OF BLOCK A01.


" 라디오버튼 만들기.

SELECTION-SCREEN BEGIN OF BLOCK B01 WITH FRAME TITLE TEXT-002.

PARAMETERS BTN1 RADIOBUTTON GROUP RD1.    " 조회.
PARAMETERS BTN2 RADIOBUTTON GROUP RD1.    " 저장.

SELECTION-SCREEN END OF BLOCK B01.




" DB TABLE - WA 만들기.

DATA : LS_ZCRMADD  TYPE ZCRMADD.

DATA : LS_ZCRMADDT TYPE ZCRMADDT.


DATA : BEGIN OF LINE1,
        CRM_ID     TYPE ZCRMADD-ZZCRMID,
        NAME       TYPE ZCRMADDT-ZZIDTEXT,
        PHONE_NO   TYPE ZCRMADD-ZZPHONENO,
        ADDRESS    TYPE ZCRMADD-ZZADDRESS,
        COUPLE     TYPE ZCRMADD-ZZCOUPLE,
        SPRAS      TYPE ZCRMADDT-SPRAS,
        END OF LINE1.

DATA : LS_LINE1 LIKE LINE1.



LS_LINE1-CRM_ID   = CRM_ID.
LS_LINE1-NAME     = NAME.
LS_LINE1-PHONE_NO = PHONE_NO.
LS_LINE1-ADDRESS  = ADDRESS.
LS_LINE1-COUPLE   = COUPLE.
LS_LINE1-SPRAS    = SPRAS.

" 파라미터 => WA

LS_ZCRMADD-ZZCRMID   = LS_LINE1-CRM_ID.
LS_ZCRMADDT-ZZCRMID  = LS_LINE1-CRM_ID.
LS_ZCRMADDT-ZZIDTEXT = LS_LINE1-NAME.
LS_ZCRMADD-ZZPHONENO = LS_LINE1-PHONE_NO.
LS_ZCRMADD-ZZADDRESS = LS_LINE1-ADDRESS.
LS_ZCRMADD-ZZCOUPLE  = LS_LINE1-COUPLE.
LS_ZCRMADDT-SPRAS    = LS_LINE1-SPRAS.


" RADIO BUTTON 선택 시.
CASE 'X'.
  WHEN BTN1.
         SELECT SINGLE A~ZZCRMID B~ZZIDTEXT A~ZZPHONENO A~ZZADDRESS A~ZZCOUPLE B~SPRAS
          INTO LS_LINE1
          FROM ZCRMADD AS A INNER JOIN ZCRMADDT AS B
                            ON A~ZZCRMID = B~ZZCRMID
          WHERE A~ZZCRMID EQ CRM_ID
*    AND B~ZZIDTEXT EQ NAME
*    AND A~ZZPHONENO EQ PHONE_NO
*    AND A~ZZADDRESS EQ ADDRESS
*    AND A~ZZCOUPLE EQ COUPLE
          AND B~SPRAS   EQ '3'.

    WRITE : '조회', LS_LINE1-CRM_ID, LS_LINE1-NAME, LS_LINE1-PHONE_NO, LS_LINE1-ADDRESS, LS_LINE1-COUPLE, LS_LINE1-SPRAS.
  WHEN BTN2.
    IF   LS_LINE1-CRM_ID IS NOT INITIAL
       AND LS_LINE1-NAME IS NOT INITIAL
       AND LS_LINE1-PHONE_NO IS NOT INITIAL
       AND LS_LINE1-ADDRESS IS NOT INITIAL
*       AND LS_LINE1-COUPLE IS NOT INITIAL
       AND LS_LINE1-SPRAS IS NOT INITIAL.
       MODIFY : ZCRMADD  FROM LS_ZCRMADD.
       MODIFY : ZCRMADDT FROM LS_ZCRMADDT.
    IF SY-SUBRC EQ 0.
       WRITE: '저장을 성공하였습니다.'.
    ENDIF.

    ELSE.
      WRITE: '값을 입력하세요'.

    ENDIF.

ENDCASE.