*&---------------------------------------------------------------------*
*& Include YABAP18_TEMP_F01
*&---------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*& Form INITIAL
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM INITIAL .
* "BDC mode text.
* PERFORM GET_DOMAIN_TEXT USING 'CTU_MODE'
* 'E'
* CHANGING P_BDCT.
*
**-- BDC Setting
* CLEAR : GS_BDC_OPT.
* GS_BDC_OPT-DISMODE = 'N'.
* GS_BDC_OPT-UPDMODE = 'S'.
* GS_BDC_OPT-DEFSIZE = 'X'.
* GS_BDC_OPT-RACOMMIT = 'X'.
* GS_BDC_OPT-NOBINPT = 'X'.
ENDFORM. " INITIAL
*&---------------------------------------------------------------------*
*& Form SSCRFIELDS_UCOMM
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM SSCRFIELDS_UCOMM .
DATA: LV_OBJID TYPE WWWDATA-OBJID,
LS_RETURN TYPE BAPIRET2.
CASE SSCRFIELDS-UCOMM. "Check the Fcode
* WHEN 'FC01'. "Screen Fcode 2
* CALL FUNCTION 'ZCOM_SHOW_SMW0_FILE'
* EXPORTING
* I_OBJID = CO_TEMPLETE_ID1
* IMPORTING
* ES_RETURN = GS_RETURN.
*
* IF GS_RETURN-TYPE EQ CO_E.
* MESSAGE S000 WITH GS_RETURN-MESSAGE DISPLAY LIKE 'E'.
* ENDIF.
PERFORM DOWN_SMW0_FILE USING LV_OBJID
CHANGING LS_RETURN.
ENDCASE.
ENDFORM. " SSCRFIELDS_UCOMM
*&---------------------------------------------------------------------*
*& Form SET_SCR
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM SET_SCR .
LOOP AT SCREEN.
CASE SCREEN-GROUP1.
WHEN 'M1'.
IF P_CR EQ 'X'.
SCREEN-ACTIVE = 0.
ELSE.
SCREEN-ACTIVE = 1.
ENDIF.
ENDCASE.
MODIFY SCREEN.
ENDLOOP.
** Screen 버튼 추가
PERFORM SET_SCREEN_ICON USING 'ICON_XLS' "Screen icon
'Templete' "Icon Text
'01'. "Button 순서
"BDC TEXT 설정.
IF P_BDC IS NOT INITIAL.
PERFORM GET_DOMAIN_TEXT USING 'CTU_MODE' "'CTU_MODE'
P_BDC
CHANGING P_BDCT.
ENDIF.
ENDFORM. " SET_SCR
*&---------------------------------------------------------------------*
*& Form F4_GRGB
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->P_S_GRGB_LOW text
*----------------------------------------------------------------------*
FORM F4_GRGB USING PV_VALUE.
* DATA : L_INDEX LIKE SY-INDEX.
*
* DATA : BEGIN OF LT_DATA OCCURS 0,
* GRGBCAT LIKE ZCOTGB0059-GRGBCAT,
* GRGBTXT LIKE ZCOTGB0059-GRGBTXT,
* END OF LT_DATA.
*
* _CLEAR : GT_HELP_F, GT_VTAB, GT_VALUE_T.
*
* SELECT GRGBCAT GRGBTXT
* INTO CORRESPONDING FIELDS OF TABLE LT_DATA
* FROM ZCOTGB0059.
*
* IF LT_DATA[] IS NOT INITIAL.
* CLEAR : LT_DATA. SORT LT_DATA BY GRGBCAT.
*
* DELETE ADJACENT DUPLICATES FROM LT_DATA.
*
* GT_HELP_F-TABNAME = 'ZCOTGB0059'.
* GT_HELP_F-FIELDNAME = 'GRGBCAT'.
* GT_HELP_F-SELECTFLAG = CO_X.
* APPEND GT_HELP_F.
*
* GT_HELP_F-TABNAME = 'ZCOTGB0059'.
* GT_HELP_F-FIELDNAME = 'GRGBTXT'.
* GT_HELP_F-SELECTFLAG = ''.
* APPEND GT_HELP_F.
*
* LOOP AT LT_DATA.
* GT_VALUE_T-FIELDNAME = LT_DATA-GRGBCAT.
* APPEND GT_VALUE_T.
*
* GT_VALUE_T-FIELDNAME = LT_DATA-GRGBTXT.
* APPEND GT_VALUE_T.
*
* ENDLOOP.
*
* CLEAR : L_INDEX, GT_HELP_F, GT_VALUE_T.
*
* CALL FUNCTION 'HELP_VALUES_GET_WITH_TABLE_EXT'
* IMPORTING
* INDEX = L_INDEX
* TABLES
* FIELDS = GT_HELP_F
* SELECT_VALUES = GT_VTAB
* VALUETAB = GT_VALUE_T
* EXCEPTIONS
* FIELD_NOT_IN_DDIC = 1
* MORE_THEN_ONE_SELECTFIELD = 2
* NO_SELECTFIELD = 3
* OTHERS = 4.
*
* READ TABLE LT_DATA INDEX L_INDEX.
* IF SY-SUBRC = 0.
* PV_VALUE = LT_DATA-GRGBCAT.
*
* ENDIF.
*
* ENDIF.
ENDFORM. " F4_GRGB
*&---------------------------------------------------------------------*
*& Form SELECT_DATA
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM SELECT_DATA .
SELECT *
INTO CORRESPONDING FIELDS OF TABLE GT_OUTTAB
FROM ZCOTGB0060.
* LOOP AT GT_OUTTAB.
* "Style.
* PERFORM ALV_CELL_EDIT USING 'CHECK' 'D'
* CHANGING GT_OUTTAB-CELLTAB.
* ENDLOOP.
ENDFORM. " SELECT_DATA
----------------------------------------------------------------------------------
Extracted by Mass Download version 1.4.6 - E.G.Mellodew. 1998-2015. Sap Release 701
Abap