메뉴 건너뛰기

SAP 한국 커뮤니티

[re] <img src=2.gif>ALV 제목 두줄 나오게 하는 방법

sweety 2010.05.07 21:14 조회 수 : 2432

>게시판에서 해당내용으로 글을 찾아봤는데...


>꼼수를 쓰면 될거 같긴 한데..


>ALV에서는 지원하지 않는 기능이라고 해주는 센스를 발휘하라는 글 뿐이라..



>제가 원하는건 그 꼼수라도.. 얻고 싶습니다.



>제목대로 ALV에서 제목 두 줄 나오게 하고 싶습니다.



>예를 들어



> >

>
>
>

> 판매기간


> >

>
>
>
>

> 1월


> 2월




>어떻게 해줘야 될까요???


>  LOOP AT gt_fieldcat INTO ls_fieldcat.
    li_tabix = sy-tabix.


>    CLEAR ls_fieldcat-key.
    CASE ls_fieldcat-fieldname.
      WHEN 'TEXT1'.
        ls_fieldcat-seltext_s = '1월'.
        ls_fieldcat-ddictxt            = 'S'.
      WHEN 'TEXT2'.
        ls_fieldcat-seltext_s = '2월'.
        ls_fieldcat-ddictxt            = 'S'.
    ENDCASE.
    MODIFY gt_fieldcat FROM ls_fieldcat INDEX li_tabix.
  ENDLOOP.


>주황색 글자 사이에 판매기간을 어떻게 넣으면 될까요???????


 


통째로 긁어다가 Local에서 테스트 해 보세요.


원하시는게 맞을지 모르겠네요.


 


 

REPORT  Y_WILLIAM_KIM_014.

TYPE-POOLS: SLIS.                    " ALV Global types
*---------------------------------------------------------------------*
CONSTANTS :
  C_X VALUE 'X',
  C_GT_VBAP TYPE SLIS_TABNAME VALUE 'GT_VBAP',
  C_GT_VBAK TYPE SLIS_TABNAME VALUE 'GT_VBAK'.
*---------------------------------------------------------------------*
SELECTION-SCREEN :
  SKIP, BEGIN OF LINE,COMMENT 5(27) V_1 FOR FIELD P_MAX.    "#EC NEEDED
PARAMETERS P_MAX(02) TYPE DEFAULT '10' OBLIGATORY.
SELECTION-SCREEN END OF LINE.



SELECTION-SCREEN :
  SKIP, BEGIN OF LINE,COMMENT 5(27) V_2 FOR FIELD P_EXPAND. "#EC NEEDED
PARAMETERS P_EXPAND AS CHECKBOX DEFAULT C_X.
SELECTION-SCREEN END OF LINE.

*---------------------------------------------------------------------*
TYPES :
* 1st Table
  BEGIN OF TY_VBAK,
    VBELN TYPE VBAK-VBELN,             " Sales document
    KUNNR TYPE VBAK-KUNNR,             " Sold-to party
    NETWR TYPE VBAK-NETWR,             " Net Value of the Sales Order
    ERDAT TYPE VBAK-ERDAT,             " Creation date
    WAERK TYPE VBAK-WAERK,             " SD document currency
    EXPAND TYPE XFELD,
  END OF TY_VBAK,

* 2nd Table
  BEGIN OF TY_VBAP,
    VBELN TYPE VBAP-VBELN,             " Sales document
    POSNR TYPE VBAP-POSNR,             " Sales document
    MATNR TYPE VBAP-MATNR,             " Material number
    ARKTX TYPE VBAP-ARKTX,             " Material description
    NETWR TYPE VBAP-NETWR,             " Net Value of the Sales Order
    WAERK TYPE VBAP-WAERK,             " SD document currency
  END OF TY_VBAP.

*---------------------------------------------------------------------*
DATA :
* 1st Table
  GT_VBAK TYPE TABLE OF TY_VBAK,
* 2nd Table
  GT_VBAP TYPE TABLE OF TY_VBAP.

*---------------------------------------------------------------------*
INITIALIZATION.

  V_1 = 'Maximum of records to read'.
  V_2 = 'With ''EXPAND'' field'.

*---------------------------------------------------------------------*
START-OF-SELECTION.

* Read Sales Document: Header Data
  SELECT VBELN KUNNR NETWR WAERK ERDAT
    FROM VBAK
      UP TO P_MAX ROWS
    INTO CORRESPONDING FIELDS OF TABLE GT_VBAK.

  IF GT_VBAK[] IS NOT INITIAL.
*   Read Sales Document: Item Data
    SELECT VBELN POSNR MATNR ARKTX NETWR WAERK
      FROM VBAP
      INTO CORRESPONDING FIELDS OF TABLE GT_VBAP
       FOR ALL ENTRIES IN GT_VBAK
     WHERE VBELN = GT_VBAK-VBELN.
  ENDIF.

*---------------------------------------------------------------------*
END-OF-SELECTION.

  PERFORM F_DISPLAY.

*---------------------------------------------------------------------*
*       Form  F_DISPLAY
*---------------------------------------------------------------------*
FORM F_DISPLAY.

* Macro definition
  DEFINE M_FIELDCAT.
    LS_FIELDCAT-TABNAME = &1.
    LS_FIELDCAT-FIELDNAME = &2.
    LS_FIELDCAT-REF_TABNAME = &3.
    LS_FIELDCAT-CFIELDNAME = &4.       " Field with currency unit
    APPEND LS_FIELDCAT TO LT_FIELDCAT.
  END-OF-DEFINITION.

  DEFINE M_SORT.
    LS_SORT-TABNAME = &1.
    LS_SORT-FIELDNAME = &2.
    LS_SORT-UP        = C_X.
    APPEND LS_SORT TO LT_SORT.
  END-OF-DEFINITION.

  DATA:
    LS_LAYOUT   TYPE SLIS_LAYOUT_ALV,
    LS_KEYINFO  TYPE SLIS_KEYINFO_ALV,
    LS_SORT     TYPE SLIS_SORTINFO_ALV,
    LT_SORT     TYPE SLIS_T_SORTINFO_ALV," Sort table
    LS_FIELDCAT TYPE SLIS_FIELDCAT_ALV,
    LT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV." Field catalog

  LS_LAYOUT-GROUP_CHANGE_EDIT = C_X.
  LS_LAYOUT-COLWIDTH_OPTIMIZE = C_X.
  LS_LAYOUT-ZEBRA             = C_X.
  LS_LAYOUT-DETAIL_POPUP      = C_X.
  LS_LAYOUT-GET_SELINFOS      = C_X.
  IF P_EXPAND = C_X.
    LS_LAYOUT-EXPAND_FIELDNAME  = 'EXPAND'.
  ENDIF.

* Build field catalog and sort table
  M_FIELDCAT C_GT_VBAK 'VBELN' 'VBAK' ''.
  M_FIELDCAT C_GT_VBAK 'KUNNR' 'VBAK' ''.
  M_FIELDCAT C_GT_VBAK 'NETWR' 'VBAK' 'WAERK'.
  M_FIELDCAT C_GT_VBAK 'WAERK' 'VBAK' ''.
  M_FIELDCAT C_GT_VBAK 'ERDAT' 'VBAK' ''.

  M_FIELDCAT C_GT_VBAP 'POSNR' 'VBAP' ''.
  M_FIELDCAT C_GT_VBAP 'MATNR' 'VBAP' ''.
  M_FIELDCAT C_GT_VBAP 'ARKTX' 'VBAP' ''.
  M_FIELDCAT C_GT_VBAP 'NETWR' 'VBAP' 'WAERK'.
  M_FIELDCAT C_GT_VBAP 'WAERK' 'VBAP' ''.

  M_SORT C_GT_VBAK 'KUNNR'.
  M_SORT C_GT_VBAP 'NETWR'.

  LS_KEYINFO-HEADER01 = 'VBELN'.
  LS_KEYINFO-ITEM01 = 'VBELN'.
  LS_KEYINFO-ITEM02 = 'POSNR'.

* Dipslay Hierarchical list
  CALL FUNCTION 'REUSE_ALV_HIERSEQ_LIST_DISPLAY'
    EXPORTING
      I_CALLBACK_PROGRAM      = SY-CPROG
      I_CALLBACK_USER_COMMAND = 'USER_COMMAND'
      IS_LAYOUT               = LS_LAYOUT
      IT_FIELDCAT             = LT_FIELDCAT
      IT_SORT                 = LT_SORT
      I_TABNAME_HEADER        = C_GT_VBAK
      I_TABNAME_ITEM          = C_GT_VBAP
      IS_KEYINFO              = LS_KEYINFO
      I_SAVE                  = 'A'
    TABLES
      T_OUTTAB_HEADER         = GT_VBAK
      T_OUTTAB_ITEM           = GT_VBAP
    EXCEPTIONS
      PROGRAM_ERROR           = 1
      OTHERS                  2.
  IF SY-SUBRC <> 0.
    MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
          WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.

ENDFORM.                               " F_LIST_DISPLAY
*---------------------------------------------------------------------*
*       Form USER_COMMAND                                             *
*---------------------------------------------------------------------*
FORM USER_COMMAND USING I_UCOMM     TYPE SY-UCOMM
                        IS_SELFIELD TYPE SLIS_SELFIELD.     "#EC CALLED

  DATA LS_VBAK TYPE TY_VBAK.

  CASE I_UCOMM.
    WHEN '&IC1'.                       " Pick
      CASE IS_SELFIELD-TABNAME.
        WHEN C_GT_VBAP.
        WHEN C_GT_VBAK.
          READ TABLE GT_VBAK INDEX IS_SELFIELD-TABINDEX INTO LS_VBAK.
          IF SY-SUBRC EQ 0.
*           Sales order number
            SET PARAMETER ID 'AUN' FIELD LS_VBAK-VBELN.
*           Display Sales Order
            CALL TRANSACTION 'VA03' AND SKIP FIRST SCREEN.
          ENDIF.
      ENDCASE.
  ENDCASE.

ENDFORM.                               " USER_COMMAND

번호 제목 글쓴이 날짜 조회 수
4807 <img src=2.gif>파일업로드 해서 profit center생성하는 BDC 데이터 값이 안들어가요 [5] file 맨날초보 2010.05.18 1249
4806 <img src=3.gif>티코드에 따라 select-option screen화면의 제목 바꾸기 [3] Bizzard.Chul 2010.05.18 1300
4805 <img src=2.gif>쿤자열을 뒤에서부터 짜르는 방법이 있나요? [2] 라면킬러 2010.05.18 1816
4804 <img src=3.gif>파일업로드 해서 코스트센터 생성하는 BDC 데이터 값이 안들어가요 [2] file 맨날초보 2010.05.18 1844
4803 <img src=3.gif>selection-screen에서 파라미터에 read only 기능을 줄 수 가 있나요? [7] mlrs0128 2010.05.18 2474
4802 <img src=3.gif>일자관련 펑션 문의 드립니다.(경과월일구하는 펑션) [3] ㅎㅎ 2010.05.18 1034
4801 <img src=3.gif>필드값에 대한 변경에 대해서 질문좀 드릴께요~ [4] 래피드 2010.05.18 1833
4800 <img src=2.gif>bseg를 아래와 같이 sum하는데 error가 나요... [4] nana 2010.05.15 2379
4799 <img src=3.gif>[BSP]원하는 페이지로 값넘기고 받기(get,post) [2] 끼야호 2010.05.15 17258
4798 <img src=3.gif>ALV TREE 에서 아이콘뒤에 글씨가 깨집니다. [3] file 이! 아밥! 2010.05.14 1796
4797 <img src=3.gif>2바이트 스트링 CUT 관련 질문있습니다. [3] 선우 2010.05.14 1758
4796 <img src=2.gif>ALV에 뿌려진 데이터를 EXCEL로 다운받을때요.. [1] 피크민 2010.05.14 1847
4795 <img src=3.gif>SAPQUERY의 ALV에 조회조건 항목 추가하는 방법 [1] file 모포 2010.05.14 1038
4794 <img src=2.gif>Sapquery에서 variant 입력 윈도우 안뜨게 하는 방법 [1] file 모포 2010.05.14 1343
4793 <img src=2.gif>[스마트폼] 왜 액티브가 안될까요?? [2] file bi 2010.05.14 1252
4792 <img src=3.gif>입고 BAPI를 위해 BAPI_GOODSMVT_CREATE를 사용중입니다. [3] mlrs0128 2010.05.14 2209
4791 <img src=2.gif>이제 abap책을 사서 배우기 시작한 초보입니다...질문.!!!! [3] 열심히 2010.05.13 1303
4790 [re] <img src=1.gif>[스마트폼] 급합니다. 칸을 나눌 때, 왼쪽은 한 셀, 오른쪽은 상하로 나누려면 어떻게 해야하나요? [1] file 버미! 2010.05.13 1133
4789 <img src=2.gif>[스마트폼] 급합니다. 칸을 나눌 때, 왼쪽은 한 셀, 오른쪽은 상하로 나누려면 어떻게 해야하나요? [3] file bi 2010.05.13 1572
4788 <img src=3.gif>동일한 코드값 갖는 건수 카운트 [5] 짭군 2010.05.13 1411