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

*---------------------------------------------------------------------*
*      Form  BUILD_GRID_FIELDCAT
*---------------------------------------------------------------------*
FORM BUILD_GRID_FIELDCAT CHANGING PT_FIELDCAT TYPE LVC_T_FCAT.
  DATA: LS_FIELDCAT TYPE LVC_S_FCAT.

  CLEAR PT_FIELDCAT.
  REFRESH PT_FIELDCAT.

  DEFINE CATALOG.
    CLEAR : LT_FIELDCAT.

    POS = POS + 1.

    LT_FIELDCAT-COL_POS      = POS.
    LT_FIELDCAT-FIELDNAME    = &1.
    LT_FIELDCAT-SCRTEXT_L    = &2.
    LT_FIELDCAT-SCRTEXT_M    = &2.
    LT_FIELDCAT-SCRTEXT_S    = &2.
    LT_FIELDCAT-OUTPUTLEN    = &3.
    LT_FIELDCAT-JUST         = &4.
    LT_FIELDCAT-KEY          = &5.
    LT_FIELDCAT-ICON         = &6.
    LT_FIELDCAT-QUANTITY     = &7.
    LT_FIELDCAT-HOTSPOT      = &8.
    LT_FIELDCAT-ICON         = &9.

    APPEND LT_FIELDCAT TO   IT_FIELDCAT.
  END-OF-DEFINITION.

  CATALOG:
     'STATUS'          '상태'           '10' 'C' 'X' ' ' ' '  ' ' 'X',
     'SALE_ORD_NO'     '판매오더'       '10' 'C' 'X' ' ' ' '  ' ' ' ',
     'SALE_ORD_ITM_NO' '판매오더품목'   '10' 'C' 'X' ' ' ' '  ' ' ' ',
     'DLV_ORD_NO'      '납품문서'       '10' 'C' ' ' ' ' ' '  ' ' ' ',
     'DLV_ORD_ITM_NO'  '납품문서품목'   '10' 'C' ' ' ' ' ' '  ' ' ' ',
     'CUST_NO'         '판매처'         '10' 'C' ' ' ' ' ' '  ' ' ' ',
     'CUST_NM'         '판매처명'       '10' 'C' ' ' ' ' ' '  ' ' ' ',
     'SITE_NO'         '납품처'         '10' 'C' ' ' ' ' ' '  ' ' ' ',
     'SITE_NM'         '납품처명'       '10' 'C' ' ' ' ' ' '  ' ' ' ',
     'PLNT_GP'         '플랜트'         '10' 'C' ' ' ' ' ' '  ' ' ' ',
     'ORD_WGT'         '주문중량'       '10' 'R' ' ' ' ' 'KG' ' ' ' ',
     'WGT_COMP'        '중량비교'       '10' 'C' ' ' 'X' ' '  ' ' ' ',
     'PRD_WGT'         '생산중량'       '10' 'R' ' ' ' ' 'KG' ' ' ' ',
     'MES_SO_DATE'     '주문I/F'        '10' 'C' ' ' ' ' ' '  ' ' ' ',
     'SAP_SO_DATE'     '주문SAP'        '10' 'C' ' ' ' ' ' '  ' ' ' ',
     'MES_PO_DATE'     '생산I/F'        '10' 'C' ' ' ' ' ' '  ' ' ' ',
     'SAP_PO_DATE'     '생산SAP'        '10' 'C' ' ' ' ' ' '  ' ' ' ',
     'AUFNR'           '생산오더'       '10' 'C' ' ' ' ' ' '  ' ' ' ',
     'DLV_PROC_ST'     '출하처리구분'   '10' 'C' ' ' ' ' ' '  ' ' ' ',
     'MES_DO_DATE'     '출하I/F'        '10' 'C' ' ' ' ' ' '  ' ' ' ',
     'SAP_DO_DATE'     '출하SAP'        '10' 'C' ' ' ' ' ' '  ' ' ' ',
     'FKDAT'           '대금청구일'     '10' 'C' ' ' ' ' ' '  ' ' ' '.

ENDFORM. " BUILD_GRID_FIELDCA