topic Re: field catalog in Application Development and Automation Discussions

field catalog

Former Member — Tue, 01 Apr 2008 23:55:13 GMT

HI..

This and a similar sample plz...

CASE X

WHEN P_B1. <----경영정보인경우 필드카탈로그 등록

PERFORM CATALOG USING:

'X' 'MATNR' '' 'MARA' 'MATNR'

'' '' '' '' '' 'X' '' '' '' '' '' '자재번호',

' ' 'MAKTX' '' 'MAKT' 'MAKTX'

'' '' '' '' '' '' '' '' '' '' '' '자재내역',

' ' 'EBELN' '' 'EKKO' 'EBELN'

'' '' '' '' '' '' '' '' '' '' '' 'P/O',

' ' 'EBELP' '' 'EKPO' 'EBELP'

'' '' '' '' '' '' '' '' '' '' '' 'P/O ITEM',

' ' 'STATU' '' 'EKKO' 'STATU'

'' '' '' '' '' '' '' '' '' '' '' 'STATUS',

' ' 'MENGE' '' 'EKPO' 'MENGE'

'' '' '' '' '' '' '' '' '' '' '' '수량',

' ' 'MEINS' '' 'EKPO' 'MEINS'

'' '' '' '' '' '' '' '' '' '' '' '단위'.

WHEN P_B2. <----보유토지일경우 PERFORM CATALOG USING:<

'X' 'MATNR' '' 'MARA' 'MATNR'

'' '' '' '' '' 'X' '' '' '' '' '' '자재번호',

' ' 'MAKTX' '' 'MAKT' 'MAKTX'

'' '' '' '' '' '' '' '' '' '' '' '자재내역',

' ' 'EBELN' '' 'EKKO' 'EBELN'

'' '' '' '' '' '' '' '' '' '' '' 'P/O',

' ' 'EBELP' '' 'EKPO' 'EBELP'

'' '' '' '' '' '' '' '' '' '' '' 'P/O ITEM',

' ' 'STATU' '' 'EKKO' 'STATU'

'' '' '' '' '' '' '' '' '' '' '' 'STATUS',

' ' 'MENGE' '' 'EKPO' 'MENGE'

'' '' '' '' '' '' '' '' '' '' '' '수량',

' ' 'MEINS' '' 'EKPO' 'MEINS'

'' '' '' '' '' '' '' '' '' '' '' '단위'.

ENDCASE.

FORM CATALOG USING PP_KEY TYPE C

PP_FIELDNAME LIKE DD03P-FIELDNAME

PP_TABNAME LIKE DD03P-TABNAME

PP_REF_TABNAME LIKE DD03P-TABNAME

PP_REF_FIELDNAME LIKE DD03P-FIELDNAME

PP_REPTEXT_DDIC LIKE DD03P-REPTEXT

PP_DO_SUM TYPE C

VALUE(PP_OUTPUTLEN)

PP_JUST TYPE C

PP_TECH TYPE C

PP_FIX_COLUMN TYPE C

VALUE(PP_EMPHASIZE)

PP_QFIELDNAME LIKE DD03P-FIELDNAME

PP_QTABNAME LIKE DD03P-TABNAME

PP_CFIELDNAME LIKE DD03P-FIELDNAME

PP_CTABNAME LIKE DD03P-TABNAME

SCRTEXT LIKE DD03P-SCRTEXT_L.

DATA: LS_FIELDCAT TYPE SLIS_FIELDCAT_ALV.

G_COLPOS = G_COLPOS + 1.

CLEAR LS_FIELDCAT.

LS_FIELDCAT-COL_POS = G_COLPOS.

LS_FIELDCAT-KEY = PP_KEY.

LS_FIELDCAT-FIELDNAME = PP_FIELDNAME.

Field Title 수정

IF SCRTEXT IS NOT INITIAL.

LS_FIELDCAT-SELTEXT_L = SCRTEXT.

LS_FIELDCAT-SELTEXT_M = SCRTEXT.

LS_FIELDCAT-SELTEXT_S = SCRTEXT.

LS_FIELDCAT-REPTEXT_DDIC = SCRTEXT.

ENDIF.

LS_FIELDCAT-TABNAME = PP_TABNAME.

LS_FIELDCAT-REF_TABNAME = PP_REF_TABNAME.

LS_FIELDCAT-REF_FIELDNAME = PP_REF_FIELDNAME.

LS_FIELDCAT-REPTEXT_DDIC = PP_REPTEXT_DDIC.

LS_FIELDCAT-OUTPUTLEN = PP_OUTPUTLEN.

LS_FIELDCAT-DO_SUM = PP_DO_SUM.

ls_fieldcat-no_zero = pp_no_zero.

--> 정렬

LS_FIELDCAT-JUST = PP_JUST.

LS_FIELDCAT-TECH = PP_TECH.

--> FIELD를 보이지 않게
ls_fieldcat-no_out = pp_no_out.

LS_FIELDCAT-FIX_COLUMN = PP_FIX_COLUMN.

--> 강조

LS_FIELDCAT-EMPHASIZE = PP_EMPHASIZE.

--> 수량 필드

LS_FIELDCAT-QFIELDNAME = PP_QFIELDNAME.

LS_FIELDCAT-QTABNAME = PP_QTABNAME.

--> 통화 필드

LS_FIELDCAT-CFIELDNAME = PP_CFIELDNAME.

LS_FIELDCAT-CTABNAME = PP_CTABNAME.

LS_FIELDCAT-DDICTXT = 'M'.

IF PP_FIELDNAME = 'KZUMW'.
LS_FIELDCAT-CHECKBOX = 'X'.
ENDIF.

APPEND LS_FIELDCAT TO GT_FIELDCAT.

ENDFORM. " catalog

Re: field catalog

Former Member — Tue, 01 Apr 2008 23:59:23 GMT

What is the issue here?

Regards,

Atish