메뉴 건너뛰기

SAP 한국 커뮤니티

안녕하세요.

 

ABAP 초보 개발자 입니다.ㅠㅠ

 

간단한거 같은데 어려운 문제에 봉착하여, 하루를 날려먹고 답답한 마음에 문의를 드립니다.

 

문제는 ALV에 소문자를 입력하고나서 ENTER나 Cell을 옮기면 " HANDLE_DATA_CHANGED"를 타는데

 

그 후에 이 입력된 소문자가 대문자로 강제변환이 되어버립니다...

 

여러 글을 찾아보면서 여러가지 방법을 사용해 보았습니다.

 

Field 카탈로그에 필드별로 lowercase = 'X' 넣기... 그리고 LAYOUT부분에 셋팅값들 수정해보기.... Table에 도메인 셋팅 확인..등

 

해보았는데 모두 소용이 없었습니다.ㅠㅠ

 

현재 CBO테이블을 만들어서 단순 데이터 입력/저장 화면을 구현하면서, CBO테이블에 필드 유형을 "CHAR"로 주고 길이를 1000정도 넣어놓은 상태이며,

 

전혀 도메인을 사용하지 않았습니다. (이부분이 의심되기도 합니다...)

 

도무지 왜이러는지 몰라 답답한 마음에 글을 적어보며,

 

혹시나 같은 문제로 어려움을 경험하셨거나 문제점을 아시는분은 답변 부탁드립니다.

 

감사합니다.

 

 

 

 

---------------------------------------------------참조 소스----------------------------------------------------------------

어느 부분인지 몰라 제가 의심되는 부분 캡쳐해봅니다...

 

데[이터 체인지 이벤트

FORM HANDLE_DATA_CHANGED  USING
   P_ER_DATA_CHANGED  TYPE REF TO CL_ALV_CHANGED_DATA_PROTOCOL
   P_E_ONF4           TYPE CHAR01
   P_E_ONF4_BEFORE    TYPE CHAR01
   P_E_ONF4_AFTER     TYPE CHAR01
   P_SENDER           TYPE ANY.

  DATA: LV_ERR(1).

  DATA: LS_MODI     TYPE LVC_S_MODI.

  CLEAR: LV_ERR,
         LS_MODI.

  LOOP AT P_ER_DATA_CHANGED->MT_MOD_CELLS INTO LS_MODI.
    CLEAR: LV_ERR.

    CASE P_SENDER.
      WHEN GV_GRID1.
        READ TABLE GT_LIST INTO GS_LIST INDEX LS_MODI-ROW_ID.
        IF SY-SUBRC <> 0.
          CONTINUE.
        ENDIF.

        CASE LS_MODI-FIELDNAME.
        ENDCASE.

        GS_LIST-MODI_F = 'X'.

      MODIFY GT_LIST FROM GS_LIST INDEX LS_MODI-ROW_ID.
    ENDCASE.

    MODIFY P_ER_DATA_CHANGED->MT_MOD_CELLS FROM LS_MODI.

  ENDLOOP.

  CALL METHOD P_ER_DATA_CHANGED->REFRESH_PROTOCOL.
  CALL METHOD CL_GUI_CFW=>FLUSH.

* ALV 리프래쉬
  PERFORM REFRESH_TABLE_DISP.

ENDFORM.                    " HANDLE_DATA_CHANGED

 

 

 

 

필드카탈로그 셋팅 FROM

 

FORM MODIFY_FIEDCAT1 .

  DATA: LV_TEXT(100).

  CLEAR: LV_TEXT,
         GS_FIELDCAT1.

  LOOP AT GT_FIELDCAT1 INTO GS_FIELDCAT1.
    CLEAR: LV_TEXT,
           GS_FIELDCAT1-KEY,
           GS_FIELDCAT1-FIX_COLUMN.

    if gv_mode = 'C'.

      CASE GS_FIELDCAT1-FIELDNAME.
        WHEN 'SAUP'.
          LV_TEXT                 = TEXT-F02.
          GS_FIELDCAT1-COL_POS    = 20.
          GS_FIELDCAT1-LOWERCASE = C_X.
*          GS_FIELDCAT1-EDIT       = C_X.
*          GS_FIELDCAT1-KEY        = C_X.
*          GS_FIELDCAT1-FIX_COLUMN = C_X.

        WHEN 'WBSNO'.
          LV_TEXT                 = TEXT-F03.
          GS_FIELDCAT1-COL_POS    = 30.
*          GS_FIELDCAT1-EDIT       = C_X.
          GS_FIELDCAT1-LOWERCASE = C_X.

        WHEN 'PROJNM'.
          LV_TEXT                 = TEXT-F04.
          GS_FIELDCAT1-COL_POS    = 40.
*          GS_FIELDCAT1-EDIT       = C_X.
          GS_FIELDCAT1-LOWERCASE = C_X.

        WHEN 'ITEMNM'.              "총미수금
          LV_TEXT                 = TEXT-F05.
          GS_FIELDCAT1-COL_POS    = 50.
*          GS_FIELDCAT1-EDIT       = C_X.
          GS_FIELDCAT1-LOWERCASE = C_X.
*          GS_FIELDCAT1-CFIELDNAME = 'WAERS'.

        WHEN 'SIZE_S'.             "경고미수금
          LV_TEXT                 = TEXT-F06.
          GS_FIELDCAT1-COL_POS    = 60.
*          GS_FIELDCAT1-EDIT       = C_X.
          GS_FIELDCAT1-LOWERCASE = C_X.
*          GS_FIELDCAT1-CFIELDNAME = 'WAERS'.

        WHEN 'BUYER'.             "통화
          LV_TEXT                 = TEXT-F07.
          GS_FIELDCAT1-COL_POS    = 70.
          GS_FIELDCAT1-JUST       = C_C.
*          GS_FIELDCAT1-EDIT       = C_X.
          GS_FIELDCAT1-LOWERCASE = C_X.

        WHEN 'EXDT'.
          LV_TEXT                 = TEXT-F08.
          GS_FIELDCAT1-COL_POS    = 80.
*          GS_FIELDCAT1-EDIT       = C_X.

        WHEN 'ETC'.
          LV_TEXT                 = TEXT-F09.
          GS_FIELDCAT1-COL_POS    = 80.
*          GS_FIELDCAT1-EDIT       = C_X.
          GS_FIELDCAT1-LOWERCASE = C_X.
          GS_FIELDCAT1-JUST     = 'C'.

        WHEN OTHERS.
          GS_FIELDCAT1-NO_OUT = C_X.
          GS_FIELDCAT1-LOWERCASE = C_X.
      ENDCASE.

    else.

      CASE GS_FIELDCAT1-FIELDNAME.
        WHEN 'SAUP'.
          LV_TEXT                 = TEXT-F02.
          GS_FIELDCAT1-COL_POS    = 20.
*          GS_FIELDCAT1-EDIT       = ''.
          GS_FIELDCAT1-LOWERCASE = C_X.
*          GS_FIELDCAT1-KEY        = C_X.
*          GS_FIELDCAT1-FIX_COLUMN = C_X.

        WHEN 'WBSNO'.
          LV_TEXT                 = TEXT-F03.
          GS_FIELDCAT1-COL_POS    = 30.
*          GS_FIELDCAT1-EDIT       = ''.
          GS_FIELDCAT1-LOWERCASE = C_X.

        WHEN 'PROJNM'.
          LV_TEXT                 = TEXT-F04.
          GS_FIELDCAT1-COL_POS    = 40.
*          GS_FIELDCAT1-EDIT       = ''.
          GS_FIELDCAT1-LOWERCASE = C_X.

        WHEN 'ITEMNM'.              "총미수금
          LV_TEXT                 = TEXT-F05.
          GS_FIELDCAT1-COL_POS    = 50.
*          GS_FIELDCAT1-EDIT       = ''.
          GS_FIELDCAT1-LOWERCASE = C_X.
*          GS_FIELDCAT1-CFIELDNAME = 'WAERS'.

        WHEN 'SIZE_S'.             "경고미수금
          LV_TEXT                 = TEXT-F06.
          GS_FIELDCAT1-COL_POS    = 60.
*          GS_FIELDCAT1-EDIT       = ''.
          GS_FIELDCAT1-LOWERCASE = C_X.
*          GS_FIELDCAT1-CFIELDNAME = 'WAERS'.

        WHEN 'BUYER'.             "통화
          LV_TEXT                 = TEXT-F07.
          GS_FIELDCAT1-COL_POS    = 70.
          GS_FIELDCAT1-JUST       = C_C.
*          GS_FIELDCAT1-EDIT       = ''.
          GS_FIELDCAT1-LOWERCASE = C_X.

        WHEN 'EXDT'.
          LV_TEXT                 = TEXT-F08.
          GS_FIELDCAT1-COL_POS    = 80.
*          GS_FIELDCAT1-EDIT       = ''.

        WHEN 'ETC'.
          LV_TEXT                 = TEXT-F09.
          GS_FIELDCAT1-COL_POS    = 80.
*          GS_FIELDCAT1-EDIT       = ''.
          GS_FIELDCAT1-LOWERCASE = C_X.
          GS_FIELDCAT1-JUST     = 'C'.

        WHEN OTHERS.
          GS_FIELDCAT1-NO_OUT = C_X.
          GS_FIELDCAT1-LOWERCASE = C_X.
      ENDCASE.
    endif.

      IF LV_TEXT IS NOT INITIAL.
         GS_FIELDCAT1-SCRTEXT_S
         = GS_FIELDCAT1-SCRTEXT_M
         = GS_FIELDCAT1-SCRTEXT_L
         = GS_FIELDCAT1-COLTEXT
         = GS_FIELDCAT1-REPTEXT = LV_TEXT.
      ENDIF.

      MODIFY GT_FIELDCAT1 FROM GS_FIELDCAT1.

  ENDLOOP.

ENDFORM.                    " MODIFY_FIEDCAT1

 

 

위 필드카탈로그 셋팅하기전 타는 부분

FORM GET_FIELDCAT_MERGE2  TABLES   PT_DATA     TYPE TABLE
                          USING    PT_FIELDCAT TYPE LVC_T_FCAT
                                   P_NAME      TYPE SLIS_TABNAME.

  DATA: LV_NAME    TYPE SLIS_TABNAME.

  DATA: LT_FCAT    TYPE SLIS_T_FIELDCAT_ALV WITH HEADER LINE.

  CLEAR: LV_NAME,
         PT_FIELDCAT[],
         LT_FCAT[].

  LV_NAME = P_NAME.

  CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
    EXPORTING
      I_PROGRAM_NAME               = SY-CPROG
      I_INTERNAL_TABNAME           = LV_NAME
*     I_STRUCTURE_NAME             =
*     I_CLIENT_NEVER_DISPLAY       = 'X'
      I_INCLNAME                   = SY-CPROG
*     I_BYPASSING_BUFFER           =
*     I_BUFFER_ACTIVE              =
    CHANGING
      CT_FIELDCAT                  = LT_FCAT[]
    EXCEPTIONS
      INCONSISTENT_INTERFACE       = 1
      PROGRAM_ERROR                = 2
      OTHERS                       = 3
            .
  IF SY-SUBRC <> 0.
  ENDIF.

  CALL FUNCTION 'LVC_TRANSFER_FROM_SLIS'
    EXPORTING
      IT_FIELDCAT_ALV       = LT_FCAT[]
*     IT_SORT_ALV           =
*     IT_FILTER_ALV         =
*     IS_LAYOUT_ALV         =
    IMPORTING
      ET_FIELDCAT_LVC       = PT_FIELDCAT[]
*     ET_SORT_LVC           =
*     ET_FILTER_LVC         =
*     ES_LAYOUT_LVC         =
    TABLES
      IT_DATA               = PT_DATA
    EXCEPTIONS
      IT_DATA_MISSING       = 1
      OTHERS                = 2
            .
  IF SY-SUBRC <> 0.
  ENDIF.

  CALL FUNCTION 'LVC_FIELDCAT_COMPLETE'
    CHANGING
      CT_FIELDCAT = PT_FIELDCAT.

ENDFORM.                    " GET_FIELDCAT_MERGE2

 

 

ALV가 이미 만들어지고 난뒤 수정하고 다시 ALV를 재구성하는거라 ALV구성시 아래부분을 수행합니다.

 

FORM REFRESH_ALV  USING  P_GRID     TYPE REF TO CL_GUI_ALV_GRID
                         P_FIELDCAT TYPE LVC_T_FCAT
                         P_LAYOCAT  TYPE LVC_S_LAYO.

* 필드카탈로그
  CALL METHOD P_GRID->SET_FRONTEND_FIELDCATALOG
    EXPORTING
      IT_FIELDCATALOG = P_FIELDCAT[].

* 레이아웃
  CALL METHOD P_GRID->SET_FRONTEND_LAYOUT
    EXPORTING
      IS_LAYOUT = P_LAYOCAT.

  GS_SCROLL-ROW = 'X'.
  GS_SCROLL-COL = 'X'.

  CALL METHOD P_GRID->REFRESH_TABLE_DISPLAY
    EXPORTING
      I_SOFT_REFRESH = ' '
      IS_STABLE      = GS_SCROLL.

  CALL METHOD CL_GUI_CFW=>FLUSH.

ENDFORM.                    " REFRESH_ALV

번호 제목 글쓴이 날짜 조회 수
6398 loop 내 select 질문.. (코드첨부 주의..) [2] 베어a 2022.11.07 443
6397 sap hana랑 ecc 차이가 무엇이 있을까요? [2] 아밥린이 2022.11.04 1132
6396 SAP Audit 감사는 어떻게 준비하는건가요? yoon123 2022.10.28 209
6395 abap 관련하여 여쭤볼게있습니다. [1] 춘시기 2022.10.25 315
6394 ABAP Function Module 관련해서 질문드립니다. [1] 비타민드래곤 2022.10.21 282
6393 OCR Font(지로용지에서 사용하는 폰트) 관련 문의 드립니다 file 도움이 2022.10.21 261
6392 ALV Row 파일 저장 ~ 관련 질문 입니다. 멜론좋아 2022.10.19 111
6391 st22 dump 재현하는 방법 [2] repairbalm 2022.10.13 355
6390 판매오더 가용성점검 관련 문의 늙은나무 2022.10.05 182
6389 프로그램 복사하면 [2] 건양대학생 2022.10.02 315
6388 Activate 할 때 Activate화면이 작아졌는데.. [1] file tutorialMan 2022.09.30 200
6387 스마트폼 미리보기 확대/축소 file lIlIIIlljiilll 2022.09.27 219
6386 ALV 화면에서 한 행을 선택했을 때, 특정 필드에서 같은 값을 가진 라인을 모두 선택하는 이벤트가 있나요? [2] file CHUSY 2022.09.19 395
6385 COMMIT WORK AND WAIT 관하여.. 먹다망고야 2022.09.16 442
6384 이제 막 easy abap 2.0 책 사서 공부하고 있는데 open sql 관련 이해가 안가는 내용이 있습니다.. [2] newenw 2022.09.12 550
6383 Plant 와 Cost Center 연관 정보 담은 테이블 [3] 십년만에 2022.09.02 292
6382 클래스에서 인터페이스 사용시 메소드 파라미터 변경방법이 아예 없나요? [2] 로우랜즈 2022.09.01 250
6381 RFC 계정 TMSADM 권한 [1] PraY 2022.09.01 234
6380 [BDC] 비활성화 필드 컨트롤 질문 [1] file 콩두부 2022.08.26 183
6379 RANGE 테이블 질문입니다. [3] soap00 2022.08.25 242