SAP/ABAP

심플한 필드카달로그 - PERFORM 버전

znoflo 2013. 3. 21. 19:20

*---------------------------------------------------------------------*
*      Form  BUILD_GRID_FIELDCAT
*---------------------------------------------------------------------*
FORM BUILD_GRID_FIELDCAT.

  CHECK GT_FIELDCAT[] IS INITIAL.

  CLEAR : GV_POS.

  PERFORM SET_FIELD_CATALOG USING :
    'ZFSCON'       '적출국'                 '6'  'C' ' ' ' ' ' '   ' ' 'X' ' ' ' ',
    'ZCOCON'       '원산지국'               '6'  'C' ' ' ' ' ' '   ' ' 'X' ' ' ' ',
    'FTACD'        'FTA코드'                '8'  'C' ' ' 'X' ' '   ' ' ' ' ' ' ' ',
    'STATUS_TXT'   '상태'                   '12' 'L' ' ' ' ' ' '   ' ' ' ' ' ' ' ',
    'WERKS'        '플랜트'                 '8'  'C' ' ' ' ' ' '   ' ' ' ' ' ' ' ',
    'ZFIDRNO'      '수입면장번호'           '15' 'L' ' ' ' ' ' '   'X' ' ' ' ' ' ',
    'ZFIDSDT'      '면허일자'               '10' 'C' ' ' ' ' ' '   ' ' ' ' ' ' ' ',
    'MATNR'        '자재번호'               '20' 'L' ' ' ' ' ' '   'X' ' ' ' ' ' ',
    'ZHSCM'        'HS코드(10)'             '10' 'C' ' ' ' ' ' '   ' ' ' ' ' ' ' ',
    'ZFTBAK'       '과세가격(원)'           '14' 'R' ' ' ' ' 'KRW' ' ' ' ' ' ' ' ',
    'APRYN'        '지정공장감면'           '10' 'C' ' ' ' ' ' '   ' ' ' ' ' ' ' ',
    'ZPTXRATE_T'   '일반관세율'             '11' 'R' ' ' ' ' ' '   ' ' ' ' ' ' ' ',
    'ZPTXAMTS'     '일반관세(원)'           '12' 'R' ' ' ' ' 'KRW' ' ' ' ' ' ' ' ',
    'ZATXAMTS'     '농특세(원)'             '10' 'R' ' ' ' ' 'KRW' ' ' ' ' ' ' 'X',
    'ZFTXRATE_T'   'FTA관세율'              '9'  'R' ' ' ' ' ' '   ' ' ' ' ' ' ' ',
    'ZFPTXAMTS'    'FTA적용시관세(원)'      '17' 'R' ' ' ' ' 'KRW' ' ' ' ' ' ' 'X',
    'ZFATXAMTS'    'FTA적용시농특세(원)'    '19' 'R' ' ' ' ' 'KRW' ' ' ' ' ' ' 'X',
    'ZFETXAMTS'    'FTA적용시효과금액(원)'  '21' 'R' ' ' ' ' 'KRW' ' ' ' ' ' ' 'X',
    'ZFTXRDT'      '사후FTA관세신청일'      '16' 'C' ' ' ' ' ' '   ' ' 'X' 'X' ' ',
    'ZFTXCDT'      '사후FTA관세환급완료일'  '20' 'C' ' ' ' ' ' '   ' ' 'X' 'X' ' ',
    'AEDAT'        '생성일'                 '10' 'C' ' ' ' ' ' '   ' ' ' ' ' ' ' ',
    'LAEDA'        '변경일'                 '10' 'C' ' ' ' ' ' '   ' ' ' ' ' ' ' '.

  PERFORM SET_STYLE_DISABLE.

ENDFORM. " BUILD_GRID_FIELDCA
*---------------------------------------------------------------------*
*      Form  SET_FIELD_CATALOG
*---------------------------------------------------------------------*
FORM SET_FIELD_CATALOG USING P1 P2 P3 P4 P5 P6 P7 P8 P9 P10 P11.

  ADD 1 TO GV_POS.

  CLEAR : GS_FIELDCAT.
  GS_FIELDCAT-COL_POS      = GV_POS.
  GS_FIELDCAT-FIELDNAME    = P1.
  GS_FIELDCAT-SCRTEXT_L    = P2.
  GS_FIELDCAT-SCRTEXT_M    = P2.
  GS_FIELDCAT-SCRTEXT_S    = P2.
  GS_FIELDCAT-OUTPUTLEN    = P3.
  GS_FIELDCAT-JUST         = P4.
  GS_FIELDCAT-KEY          = P5.
  GS_FIELDCAT-ICON         = P6.
  GS_FIELDCAT-CURRENCY     = P7.
  GS_FIELDCAT-HOTSPOT      = P8.
  GS_FIELDCAT-EDIT         = P9.
  GS_FIELDCAT-F4AVAILABL   = P10.
  GS_FIELDCAT-NO_ZERO      = P11.

  IF P10 EQ 'X'.
    GS_FIELDCAT-REF_TABLE = 'SYST'.
    GS_FIELDCAT-REF_FIELD = 'DATUM'.
  ENDIF.

  GS_FIELDCAT-DD_OUTLEN = '10'.

  APPEND GS_FIELDCAT TO GT_FIELDCAT.

ENDFORM. " SET_FIELD_CATALOG