月归档：2014年12月

关于程序中使用BAPI_ACC_DOCUMENT_POST做会计凭证不触发BTE

发表于2014/12/30由huang, sariel

使用事务码做凭证时都会走BTE的逻辑，但使用BAPI_ACC_DOCUMENT_ … 继续阅读 →

发表在 ABAP | 一条评论

ALV GRID的单选RadioButton

发表于2014/12/30由huang, sariel

REPORT  YTEST_SARIEL.

TYPE-POOLS:ABAP, SLIS.

DATA: BEGIN OF GT_LIST OCCURS 0,
        SEL TYPE CHAR4,
        VAL TYPE I,
      END OF GT_LIST.

DATA: GO_ALV_GRID TYPE REF TO CL_GUI_ALV_GRID.
*&---------------------------------------------------------------------*
*& CLASS LCL_EVENT_RECEIVER DEFINITION
*&---------------------------------------------------------------------*
CLASS LCL_EVENT_RECEIVER DEFINITION.
  PUBLIC SECTION.
    CLASS-METHODS:
      HOTSPOT_CLICK
        FOR EVENT HOTSPOT_CLICK OF CL_GUI_ALV_GRID
          IMPORTING E_ROW_ID
                    E_COLUMN_ID
                    ES_ROW_NO.
ENDCLASS.                    "LCL_EVENT_RECEIVER DEFINITION
*&---------------------------------------------------------------------*
*& CLASS LCL_EVENT_RECEIVER DEFINITION
*&---------------------------------------------------------------------*
CLASS LCL_EVENT_RECEIVER IMPLEMENTATION.
  METHOD HOTSPOT_CLICK.
    DATA: LS_LIST LIKE GT_LIST.
    CLEAR LS_LIST.
    READ TABLE GT_LIST INTO LS_LIST INDEX E_ROW_ID.
    IF GT_LIST-SEL NE '@TB@'.
      LS_LIST-SEL = '@SR@'.
      MODIFY GT_LIST FROM LS_LIST TRANSPORTING SEL WHERE SEL NE '@SR@'.
      LS_LIST-SEL = '@TB@'.
      MODIFY GT_LIST FROM LS_LIST INDEX E_ROW_ID TRANSPORTING SEL .
    ENDIF.
    PERFORM FRM_REF_ALV.
  ENDMETHOD.                    "HANDLE_ONF4
ENDCLASS.                    "LCL_EVENT_RECEIVER IMPLEMENTATION
*&---------------------------------------------------------------------*
*&      START-OF-SELECTION
*&---------------------------------------------------------------------*
START-OF-SELECTION.
  PERFORM FRM_GET_DATA.
  PERFORM FRM_DSP_DATA.
*&---------------------------------------------------------------------*
*&      Form  FRM_GET_DATA
*&---------------------------------------------------------------------*
FORM FRM_GET_DATA .
  DO 10 TIMES.
    IF SY-INDEX = 1.
      GT_LIST-SEL = '@TB@'.
    ELSE.
      GT_LIST-SEL = '@SR@'.
    ENDIF.
    GT_LIST-VAL = SY-INDEX.
    APPEND GT_LIST.
  ENDDO.
ENDFORM.                    " FRM_GET_DATA
*&---------------------------------------------------------------------*
*&      Form  FRM_DSP_DATA
*&---------------------------------------------------------------------*
FORM FRM_DSP_DATA .
  DATA: LS_LAYO  TYPE LVC_S_LAYO,
        LT_FCAT  TYPE LVC_T_FCAT,
        LS_FCAT  TYPE LVC_S_FCAT,
        LT_EVENT TYPE SLIS_T_EVENT,
        LS_EVENT TYPE SLIS_ALV_EVENT.
  LS_LAYO-ZEBRA      = ABAP_TRUE.
  LS_LAYO-CWIDTH_OPT = ABAP_TRUE.
  LS_FCAT-FIELDNAME = 'SEL'.
  LS_FCAT-HOTSPOT = 'X'.
  LS_FCAT-SCRTEXT_L =
  LS_FCAT-SCRTEXT_M =
  LS_FCAT-SCRTEXT_S = '选择'.
  APPEND LS_FCAT TO LT_FCAT.
  CLEAR LS_FCAT.
  LS_FCAT-FIELDNAME = 'VAL'.
  LS_FCAT-SCRTEXT_L =
  LS_FCAT-SCRTEXT_M =
  LS_FCAT-SCRTEXT_S = '值'.
  APPEND LS_FCAT TO LT_FCAT.
  CLEAR LS_FCAT.
  LS_EVENT-NAME = SLIS_EV_CALLER_EXIT_AT_START.
  LS_EVENT-FORM = SLIS_EV_CALLER_EXIT_AT_START.
  APPEND LS_EVENT TO LT_EVENT.
* 显示alv列表
  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC'
    EXPORTING
      I_CALLBACK_PROGRAM       = SY-REPID
      IS_LAYOUT_LVC            = LS_LAYO
      IT_FIELDCAT_LVC          = LT_FCAT
      I_SAVE                   = 'A'
      IT_EVENTS                = LT_EVENT
    TABLES
      T_OUTTAB                 = GT_LIST
    EXCEPTIONS
      PROGRAM_ERROR            = 1
      OTHERS                   = 2.
  IF SY-SUBRC &lt;&gt; 0.
    MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
          WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.
ENDFORM.                    " FRM_DSP_DATA
*&---------------------------------------------------------------------*
*&      Form  CALLER_EXIT
*&---------------------------------------------------------------------*
FORM CALLER_EXIT USING U_EXIT TYPE SLIS_DATA_CALLER_EXIT.
  DATA: LS_F4 TYPE LVC_S_F4,
        LT_F4 TYPE LVC_T_F4.
  CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR'
    IMPORTING
      E_GRID = GO_ALV_GRID.
* 设置回车事件
  CALL METHOD GO_ALV_GRID->REGISTER_EDIT_EVENT
    EXPORTING
      I_EVENT_ID = CL_GUI_ALV_GRID=>MC_EVT_ENTER
    EXCEPTIONS
      ERROR      = 1
      OTHERS     = 2.
* 设置光标焦点移开被修改单元格后触发事件
  CALL METHOD GO_ALV_GRID->REGISTER_EDIT_EVENT
    EXPORTING
      I_EVENT_ID = CL_GUI_ALV_GRID=>MC_EVT_MODIFIED
    EXCEPTIONS
      ERROR      = 1
      OTHERS     = 2.
  SET HANDLER LCL_EVENT_RECEIVER=>HOTSPOT_CLICK FOR GO_ALV_GRID.
ENDFORM.                    "CALLER_EXIT
*&---------------------------------------------------------------------*
*&      Form  FRM_REF_ALV
*&---------------------------------------------------------------------*
FORM FRM_REF_ALV .
  DATA LS_STBL TYPE LVC_S_STBL.
  LS_STBL-ROW = ABAP_TRUE.
  LS_STBL-COL = ABAP_TRUE.
  CALL METHOD GO_ALV_GRID->REFRESH_TABLE_DISPLAY
    EXPORTING
      IS_STABLE = LS_STBL.
ENDFORM.                    " FRM_REF_ALV

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

REPORT YTEST_SARIEL.

TYPE-POOLS:ABAP, SLIS.

DATA: BEGIN OF GT_LIST OCCURS 0,

SEL TYPE CHAR4,

VAL TYPE I,

END OF GT_LIST.

DATA: GO_ALV_GRID TYPE REF TO CL_GUI_ALV_GRID.

*&---------------------------------------------------------------------*

*& CLASS LCL_EVENT_RECEIVER DEFINITION

*&---------------------------------------------------------------------*

CLASS LCL_EVENT_RECEIVER DEFINITION.

PUBLIC SECTION.

CLASS-METHODS:

HOTSPOT_CLICK

FOR EVENT HOTSPOT_CLICK OF CL_GUI_ALV_GRID

IMPORTING E_ROW_ID

E_COLUMN_ID

ES_ROW_NO.

ENDCLASS. "LCL_EVENT_RECEIVER DEFINITION

*&---------------------------------------------------------------------*

*& CLASS LCL_EVENT_RECEIVER DEFINITION

*&---------------------------------------------------------------------*

CLASS LCL_EVENT_RECEIVER IMPLEMENTATION.

METHOD HOTSPOT_CLICK.

DATA: LS_LIST LIKE GT_LIST.

CLEAR LS_LIST.

READ TABLE GT_LIST INTO LS_LIST INDEX E_ROW_ID.

IF GT_LIST-SEL NE '@TB@'.

LS_LIST-SEL = '@SR@'.

MODIFY GT_LIST FROM LS_LIST TRANSPORTING SEL WHERE SEL NE '@SR@'.

LS_LIST-SEL = '@TB@'.

MODIFY GT_LIST FROM LS_LIST INDEX E_ROW_ID TRANSPORTING SEL .

ENDIF.

PERFORM FRM_REF_ALV.

ENDMETHOD. "HANDLE_ONF4

ENDCLASS. "LCL_EVENT_RECEIVER IMPLEMENTATION

*&---------------------------------------------------------------------*

*& START-OF-SELECTION

*&---------------------------------------------------------------------*

START-OF-SELECTION.

PERFORM FRM_GET_DATA.

PERFORM FRM_DSP_DATA.

*&---------------------------------------------------------------------*

*& Form FRM_GET_DATA

*&---------------------------------------------------------------------*

FORM FRM_GET_DATA .

DO 10 TIMES.

IF SY-INDEX = 1.

GT_LIST-SEL = '@TB@'.

ELSE.

GT_LIST-SEL = '@SR@'.

ENDIF.

GT_LIST-VAL = SY-INDEX.

APPEND GT_LIST.

ENDDO.

ENDFORM. " FRM_GET_DATA

*&---------------------------------------------------------------------*

*& Form FRM_DSP_DATA

*&---------------------------------------------------------------------*

FORM FRM_DSP_DATA .

DATA: LS_LAYO TYPE LVC_S_LAYO,

LT_FCAT TYPE LVC_T_FCAT,

LS_FCAT TYPE LVC_S_FCAT,

LT_EVENT TYPE SLIS_T_EVENT,

LS_EVENT TYPE SLIS_ALV_EVENT.

LS_LAYO-ZEBRA = ABAP_TRUE.

LS_LAYO-CWIDTH_OPT = ABAP_TRUE.

LS_FCAT-FIELDNAME = 'SEL'.

LS_FCAT-HOTSPOT = 'X'.

LS_FCAT-SCRTEXT_L =

LS_FCAT-SCRTEXT_M =

LS_FCAT-SCRTEXT_S = '选择'.

APPEND LS_FCAT TO LT_FCAT.

CLEAR LS_FCAT.

LS_FCAT-FIELDNAME = 'VAL'.

LS_FCAT-SCRTEXT_L =

LS_FCAT-SCRTEXT_M =

LS_FCAT-SCRTEXT_S = '值'.

APPEND LS_FCAT TO LT_FCAT.

CLEAR LS_FCAT.

LS_EVENT-NAME = SLIS_EV_CALLER_EXIT_AT_START.

LS_EVENT-FORM = SLIS_EV_CALLER_EXIT_AT_START.

APPEND LS_EVENT TO LT_EVENT.

* 显示alv列表

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC'

EXPORTING

I_CALLBACK_PROGRAM = SY-REPID

IS_LAYOUT_LVC = LS_LAYO

IT_FIELDCAT_LVC = LT_FCAT

I_SAVE = 'A'

IT_EVENTS = LT_EVENT

TABLES

T_OUTTAB = GT_LIST

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. " FRM_DSP_DATA

*&---------------------------------------------------------------------*

*& Form CALLER_EXIT

*&---------------------------------------------------------------------*

FORM CALLER_EXIT USING U_EXIT TYPE SLIS_DATA_CALLER_EXIT.

DATA: LS_F4 TYPE LVC_S_F4,

LT_F4 TYPE LVC_T_F4.

CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR'

IMPORTING

E_GRID = GO_ALV_GRID.

* 设置回车事件

CALL METHOD GO_ALV_GRID->REGISTER_EDIT_EVENT

EXPORTING

I_EVENT_ID = CL_GUI_ALV_GRID=>MC_EVT_ENTER

EXCEPTIONS

ERROR = 1

OTHERS = 2.

* 设置光标焦点移开被修改单元格后触发事件

CALL METHOD GO_ALV_GRID->REGISTER_EDIT_EVENT

EXPORTING

I_EVENT_ID = CL_GUI_ALV_GRID=>MC_EVT_MODIFIED

EXCEPTIONS

ERROR = 1

OTHERS = 2.

SET HANDLER LCL_EVENT_RECEIVER=>HOTSPOT_CLICK FOR GO_ALV_GRID.

ENDFORM. "CALLER_EXIT

*&---------------------------------------------------------------------*

*& Form FRM_REF_ALV

*&---------------------------------------------------------------------*

FORM FRM_REF_ALV .

DATA LS_STBL TYPE LVC_S_STBL.

LS_STBL-ROW = ABAP_TRUE.

LS_STBL-COL = ABAP_TRUE.

CALL METHOD GO_ALV_GRID->REFRESH_TABLE_DISPLAY

EXPORTING

IS_STABLE = LS_STBL.

ENDFORM. " FRM_REF_ALV

发表在 ABAP | 2条评论

关于SAP PS模块的一些BAPI

发表于2014/12/25由Jason Cao

Method ProjectDefinitionPI: BAPI Method … 继续阅读 →

发表在 ABAP, SAP ERP | 留下评论

关于SAP的号码范围的那些事儿 (SAP number range)

发表于2014/12/24由Jason Cao

1.Number Range的通用Tcode:SNRO 2.Number Ran … 继续阅读 →

发表在 ABAP, SAP ERP | 一条评论

根据条件类型取得相应KONP条件表记录数据

发表于2014/12/24由huang, sariel

FORM FRM_GET_CONDS  USING VALUE(U_KSCHL) TYPE KONP-KSCHL.
  DATA: LS_T685    TYPE T685,
        LT_T682I   TYPE WCB_T682I_STAB,
        LS_T682I   TYPE T682I,
        LT_FIELD   TYPE WCB_FIELDINFOS_STAB,
        LS_FIELD   TYPE WCB_FIELDINFOS,
        LV_COND    TYPE STRING,
        LV_FIELD   TYPE STRING,
        LV_TABNAME TYPE TABNAME.
  CALL FUNCTION 'WCB_READ_T685_FOR_KSCHL'
    EXPORTING
      I_KAPPL = 'M'
      I_KSCHL = U_KSCHL
    IMPORTING
      E_T685  = LS_T685.
  CHECK LS_T685-KOZGF IS NOT INITIAL.
  CALL FUNCTION 'WCB_GET_T682I_FOR_KOZGF'
    EXPORTING
      I_KAPPL  = 'M'
      I_KOZGF  = LS_T685-KOZGF
    IMPORTING
      ET_T682I = LT_T682I. 
  LOOP AT LT_T682I INTO LS_T682I.
    CLEAR: LV_TABNAME,
           LV_FIELD,
           LV_COND.
    LV_TABNAME = 'A' && LS_T682I-KOTABNR.
    CALL FUNCTION 'WCB_GET_FIELDINFOS'
      EXPORTING
        I_TABNAME     = LV_TABNAME
      IMPORTING
        ET_FIELDINFOS = LT_FIELD
      EXCEPTIONS
        NOT_FOUND     = 1
        OTHERS        = 2.
    LOOP AT LT_FIELD INTO LS_FIELD.
      IF LV_FIELD IS INITIAL.
        LV_FIELD = LS_FIELD-FIELDNAME.
      ELSE.
        LV_FIELD = LV_FIELD && ` ` && LS_FIELD-FIELDNAME.
      ENDIF.
      CASE LS_FIELD-FIELDNAME.
        WHEN 'EKORG'.
          LV_COND = LV_COND && '$' && ` ` && 'EKORG EQ P_EKORG' && ` `.
        WHEN 'LIFNR'.
          LV_COND = LV_COND && '$' && ` ` && 'LIFNR IN S_LIFNR' && ` `.
        WHEN 'MATNR'.
          LV_COND = LV_COND && '$' && ` ` && 'MATNR IN S_MATNR' && ` `.
        WHEN 'VKORG'.
          LV_COND = LV_COND && '$' && ` ` && 'VKORG IN S_VKORG' && ` `.
        WHEN 'VTWEG'.
          LV_COND = LV_COND && '$' && ` ` && 'VTWEG IN S_VTWEG' && ` `.
        WHEN 'KBSTAT'.
          LV_COND = LV_COND && '$' && ` ` && 'KBSTAT IN S_KBSTAT' && ` `.
        WHEN OTHERS.
      ENDCASE.
      CLEAR LS_FIELD.
    ENDLOOP.
    SHIFT LV_COND LEFT DELETING LEADING: '$', SPACE.
    REPLACE ALL OCCURRENCES OF '$' IN LV_COND WITH 'AND'.
*     取得条件记录
    IF GT_LIST IS INITIAL.
      TRY.
          SELECT (LV_FIELD)
            INTO CORRESPONDING FIELDS OF TABLE GT_LIST
            FROM (LV_TABNAME)
           WHERE KAPPL EQ 'M'
             AND KSCHL EQ U_KSCHL
             AND DATBI GE P_DATAB
             AND DATAB LE P_DATAB
             AND (LV_COND).
        CATCH CX_SY_SQL_ERROR.
      ENDTRY.
    ELSE.
      TRY.
          SELECT (LV_FIELD)
            APPENDING CORRESPONDING FIELDS OF TABLE GT_LIST
            FROM (LV_TABNAME)
           WHERE KAPPL EQ 'M'
             AND KSCHL EQ U_KSCHL
             AND DATBI GE P_DATAB
             AND DATAB LE P_DATAB
             AND (LV_COND).
        CATCH CX_SY_SQL_ERROR.
      ENDTRY.
    ENDIF.
    GS_LIST-KOTABNR = LS_T682I-KOTABNR.
    MODIFY GT_LIST FROM GS_LIST TRANSPORTING KOTABNR
                  WHERE KOTABNR IS INITIAL.
  ENDLOOP.
  SELECT *
    INTO TABLE GT_KONP
    FROM KONP
     FOR ALL ENTRIES IN GT_LIST
   WHERE KNUMH EQ GT_LIST-KNUMH.
ENDFORM.                    " FRM_GET_CONDS

FORM FRM_GET_CONDS USING VALUE(U_KSCHL) TYPE KONP-KSCHL.

DATA: LS_T685 TYPE T685,

LT_T682I TYPE WCB_T682I_STAB,

LS_T682I TYPE T682I,

LT_FIELD TYPE WCB_FIELDINFOS_STAB,

LS_FIELD TYPE WCB_FIELDINFOS,

LV_COND TYPE STRING,

LV_FIELD TYPE STRING,

LV_TABNAME TYPE TABNAME.

CALL FUNCTION 'WCB_READ_T685_FOR_KSCHL'

EXPORTING

I_KAPPL = 'M'

I_KSCHL = U_KSCHL

IMPORTING

E_T685 = LS_T685.

CHECK LS_T685-KOZGF IS NOT INITIAL.

CALL FUNCTION 'WCB_GET_T682I_FOR_KOZGF'

EXPORTING

I_KAPPL = 'M'

I_KOZGF = LS_T685-KOZGF

IMPORTING

ET_T682I = LT_T682I.

LOOP AT LT_T682I INTO LS_T682I.

CLEAR: LV_TABNAME,

LV_FIELD,

LV_COND.

LV_TABNAME = 'A' && LS_T682I-KOTABNR.

CALL FUNCTION 'WCB_GET_FIELDINFOS'

EXPORTING

I_TABNAME = LV_TABNAME

IMPORTING

ET_FIELDINFOS = LT_FIELD

EXCEPTIONS

NOT_FOUND = 1

OTHERS = 2.

LOOP AT LT_FIELD INTO LS_FIELD.

IF LV_FIELD IS INITIAL.

LV_FIELD = LS_FIELD-FIELDNAME.

ELSE.

LV_FIELD = LV_FIELD && ` ` && LS_FIELD-FIELDNAME.

ENDIF.

CASE LS_FIELD-FIELDNAME.

WHEN 'EKORG'.

LV_COND = LV_COND && '$' && ` ` && 'EKORG EQ P_EKORG' && ` `.

WHEN 'LIFNR'.

LV_COND = LV_COND && '$' && ` ` && 'LIFNR IN S_LIFNR' && ` `.

WHEN 'MATNR'.

LV_COND = LV_COND && '$' && ` ` && 'MATNR IN S_MATNR' && ` `.

WHEN 'VKORG'.

LV_COND = LV_COND && '$' && ` ` && 'VKORG IN S_VKORG' && ` `.

WHEN 'VTWEG'.

LV_COND = LV_COND && '$' && ` ` && 'VTWEG IN S_VTWEG' && ` `.

WHEN 'KBSTAT'.

LV_COND = LV_COND && '$' && ` ` && 'KBSTAT IN S_KBSTAT' && ` `.

WHEN OTHERS.

ENDCASE.

CLEAR LS_FIELD.

ENDLOOP.

SHIFT LV_COND LEFT DELETING LEADING: '$', SPACE.

REPLACE ALL OCCURRENCES OF '$' IN LV_COND WITH 'AND'.

* 取得条件记录

IF GT_LIST IS INITIAL.

TRY.

SELECT (LV_FIELD)

INTO CORRESPONDING FIELDS OF TABLE GT_LIST

FROM (LV_TABNAME)

WHERE KAPPL EQ 'M'

AND KSCHL EQ U_KSCHL

AND DATBI GE P_DATAB

AND DATAB LE P_DATAB

AND (LV_COND).

CATCH CX_SY_SQL_ERROR.

ENDTRY.

ELSE.

TRY.

SELECT (LV_FIELD)

APPENDING CORRESPONDING FIELDS OF TABLE GT_LIST

FROM (LV_TABNAME)

WHERE KAPPL EQ 'M'

AND KSCHL EQ U_KSCHL

AND DATBI GE P_DATAB

AND DATAB LE P_DATAB

AND (LV_COND).

CATCH CX_SY_SQL_ERROR.

ENDTRY.

ENDIF.

GS_LIST-KOTABNR = LS_T682I-KOTABNR.

MODIFY GT_LIST FROM GS_LIST TRANSPORTING KOTABNR

WHERE KOTABNR IS INITIAL.

ENDLOOP.

SELECT *

INTO TABLE GT_KONP

FROM KONP

FOR ALL ENTRIES IN GT_LIST

WHERE KNUMH EQ GT_LIST-KNUMH.

ENDFORM. " FRM_GET_CONDS

发表在 ABAP | 留下评论

显示ABAP开发记录

发表于2014/12/21由Jason Cao

该report能够显示对于某一developer，在某一时间段之内的开发记录: … 继续阅读 →

发表在 ABAP, SAP ERP | 留下评论

按月统计tcode和report使用次数的工具

发表于2014/12/21由Jason Cao

执行report，输入要查询的日期和user，工具会按照使用次数从高到低列出输 … 继续阅读 →

发表在 ABAP, SAP ERP | 2条评论

包含指定数据表检查的弹出输入对话框

发表于2014/12/01由huang, sariel

POPUP_GET_VALUES_DB_CHECKED

发表在异想天开 | 2条评论

月归档：2014年12月

关于程序中使用BAPI_ACC_DOCUMENT_POST做会计凭证不触发BTE

ALV GRID的单选RadioButton

关于SAP PS模块的一些BAPI

关于SAP的号码范围的那些事儿 (SAP number range)

根据条件类型取得相应KONP条件表记录数据

显示ABAP开发记录

按月统计tcode和report使用次数的工具

包含指定数据表检查的弹出输入对话框

近期文章

近期评论

文章归档

分类目录

功能

月归档：2014年12月

近期文章

近期评论

文章归档

分类目录

功能

标签