메뉴 건너뛰기

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

번호 제목 글쓴이 날짜 조회 수
6367 <img src=3.gif>loop at screen을 이용한 스크린 Block 제어 [3] Fjohnny 2010.02.24 5102
6366 ABAP질문은 아닌데요,,롤인 롤아웃 뜻이 뭔가용?? [2] 다크나잇트 2020.10.28 5101
6365 [요청]BAPI중 BAPI_COPAPLANNING_POSTDATA 에 관련된 질문입니다. [2] 리브레 2008.09.05 5088
6364 [질문] 주민번호 뒷자리를 *******로 표현하고 싶다.. [3] 나도아밥퍼 2007.05.25 5076
6363 <img src=3.gif>data 선언 시 type, like 의 차이점을 알고 싶습니다 [12] 십년만에 2009.10.05 5068
6362 <img src=3.gif border=0>CONVERSION_EXIT_ALPHA_INPUT 함수쫌요 [3] 아밥고지를 찾아서 2009.07.29 5065
6361 RAISING exception 궁금. [3] 아밥퍼 2007.05.22 5060
6360 BDC ERROR 질문입니다 [4] 왕초~삽질맨 2007.07.04 5057
6359 RFC만들고 sm59에서 destination생성방법 한량도깡 2011.03.31 5052
6358 <img src=2.gif>alv에서 필드명은 가운데정렬하고 아래의 데이터는 오른쪽정렬로 하려면 어떻게해야하나요. [4] 마늘맛쿨피스 2010.08.11 5048
6357 이렇게 하시면 됩니다. [1] sapjoy 2006.12.02 5042
6356 [요청]RFC관련 개발에러 입니다. 로그좀 봐주세요... [4] DBnoid 2008.03.28 5020
6355 <img src=2.gif>자재 마스터 [분류 뷰] 에 대해서 질문합니다. [2] file 다르게 2011.03.22 5014
6354 <b>[완료]</b>자재 수량 단위변환에 대하여( M -> FT) [5] SARA 2008.05.26 5004
6353 <b>[완료]</b>ALV 리스트 드롭다운 문제점...알려주세요. [3] unicrn 2008.07.15 4985
6352 스마트폼에 직인 이미지 등록방법 [4] file 버미! 2010.03.05 4983
6351 [요청]For all entries in 구문에서 GROUP BY ~ SUM 구문이 사용이 안되는거 같은데.. 좋은 방법없을까요? [4] 효방 ^-^ 2008.10.15 4973
6350 <b>[완료]</b>smartforms 한글이 깨져요...ㅜ.ㅜ [4] file 초보찍고 고수 2008.12.25 4958
6349 ALV 가로 출력에 대해서 질문드립니다 엑셀로 희망 화면 그려노았습니다 [1] file 뿌이이잉 2011.12.12 4955
6348 abap source scan 차이 [4] sap는어려워 2019.06.17 4948