SAP创新博客 | blog.sapchina.net

一个合格的程序员应该读过哪些书

2017-11-14 • 书籍推荐 • 0 条评论 • admin

“如果能时光倒流，回到过去，作为一个开发人员，你可以告诉自己在职业生涯初期应该读一本，你会选择哪本书呢？我希望这个书单列表内容丰富，可以涵盖很多东西。” 很多程序员响应，他们在推荐时也写下自己的评语。以前就有国内网友介绍这个程序员书单，不过都是推荐数 Top 10的书。其实除了前10本之外，推荐数前30左右的书籍

EWM – Over Picking ODO Qty Adjust

2017-07-13 • SAP EWM • 0 条评论 • huang, sariel

*----------------------------------------------------------------------*
* Description : Over Picking ODO Qty Adjust 
* Date/Author : Sariel
*----------------------------------------------------------------------*
REPORT YSARIEL NO STANDARD PAGE HEADING.

*----------------------------------------------------------------------*
* DEFINE TYPES
*----------------------------------------------------------------------*
TABLES /SCDL/DB_PROCH_O.

*----------------------------------------------------------------------*
* DEFINE SCREEN PARAMETERS
*----------------------------------------------------------------------*
PARAMETERS P_LGNUM TYPE /SCWM/LGNUM OBLIGATORY.
SELECT-OPTIONS S_DOCNO FOR /SCDL/DB_PROCH_O-DOCNO.

*----------------------------------------------------------------------*
* START-OF-SELECTION
*----------------------------------------------------------------------*
START-OF-SELECTION.
  PERFORM FRM_GET_DATA.

*&---------------------------------------------------------------------*
*&      Form  FRM_GET_DATA
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM FRM_GET_DATA .
  DATA LV_LGNUM        TYPE /SCWM/LGNUM.
  DATA LO_PRD_OUT      TYPE REF TO /SCDL/CL_SP_PRD_OUT.
  DATA LO_MESSAGE_BOX  TYPE REF TO /SCDL/CL_SP_MESSAGE_BOX.
  DATA LT_A_HEAD       TYPE /SCDL/T_SP_A_HEAD.
  DATA LT_A_ITEM       TYPE /SCDL/T_SP_A_ITEM.
  DATA LS_ACTION       TYPE /SCDL/S_SP_ACT_ACTION.
  DATA LS_PRCODE       TYPE /SCWM/DLV_PRCODE_ADD_STR.
  DATA LV_REJECTED     TYPE BOOLE_D.
  DATA LT_RETURN_CODES TYPE /SCDL/T_SP_RETURN_CODE.
  DATA LT_MESSAGES     TYPE /SCDL/DM_MESSAGE_TAB.
  DATA LV_MSGTXT       TYPE CHAR255.
  DEFINE MCR_FILL_ERROR.
    IF LV_REJECTED IS NOT INITIAL
    OR LINE_EXISTS( LT_RETURN_CODES[ FAILED = 'X'] ).
      LS_ODO-MSGTXT = &1.
      /SCWM/CL_TM=>CLEANUP( ).
      MODIFY LT_ODO FROM LS_ODO TRANSPORTING QTY_PICK QTY_DIFF MSGTXT.
      CLEAR LS_ODO.
      CONTINUE.
    ENDIF.
  END-OF-DEFINITION.
* Get Delivery
  SELECT /SCMB/TOENTITY~ENTITY,
         /SCDL/DB_PROCH_O~DOCTYPE,
         /SCDL/DB_PROCH_O~DOCNO,
         /SCDL/DB_PROCI_O~ITEMNO,
         /SCDL/DB_PROCI_O~UOM,
         /SCDL/DB_PROCI_O~QTY,
         /SCDL/DB_PROCI_O~QTY AS QTY_PICK,
         /SCDL/DB_PROCI_O~QTY AS QTY_DIFF,
         @LV_MSGTXT   AS MSGTXT,
         /SCDL/DB_PROCH_O~DOCID,
         /SCDL/DB_PROCI_O~ITEMID
    INTO TABLE @DATA(LT_ODO)
    FROM /SCDL/DB_PROCH_O
    JOIN /SCMB/TOENTITY
      ON /SCMB/TOENTITY~SCUGUID EQ /SCDL/DB_PROCH_O~WAREHOUSE_ID
     AND /SCMB/TOENTITY~SCUTYPE EQ '1008'
    JOIN /SCDL/DB_PROCI_O
      ON /SCDL/DB_PROCI_O~DOCID EQ /SCDL/DB_PROCH_O~DOCID
    JOIN /SCDL/DB_STATUS
      ON /SCDL/DB_STATUS~DOCID  EQ /SCDL/DB_PROCI_O~DOCID
     AND /SCDL/DB_STATUS~ITEMID EQ /SCDL/DB_PROCI_O~ITEMID
   WHERE /SCMB/TOENTITY~ENTITY        EQ @P_LGNUM
     AND /SCDL/DB_PROCH_O~DOCNO       IN @S_DOCNO
     AND /SCDL/DB_STATUS~STATUS_TYPE  EQ 'DPI'
     AND /SCDL/DB_STATUS~STATUS_VALUE EQ '7'.
  IF SY-SUBRC NE 0.
    MESSAGE S038(/SCDL/BO_ACTION) DISPLAY LIKE 'E'.
*   No documents found
    LEAVE LIST-PROCESSING.
  ENDIF.
  LOOP AT LT_ODO INTO DATA(LS_ODO).
    CLEAR LS_ODO-QTY_PICK.
    CLEAR LS_ODO-QTY_DIFF.
    SELECT SUM( REL_QTY )
      INTO LS_ODO-QTY_PICK
      FROM /SCDL/DB_DF
     WHERE DOCCATTO IN ( 'PCA','PCR' )
       AND DOCID  EQ LS_ODO-DOCID
       AND ITEMID EQ LS_ODO-ITEMID.
    LS_ODO-QTY_DIFF = ABS( LS_ODO-QTY - LS_ODO-QTY_PICK ).
    LV_LGNUM = LS_ODO-ENTITY.
    /SCWM/CL_TM=>SET_LGNUM( LV_LGNUM ).
    IF LO_PRD_OUT IS INITIAL.
      CREATE OBJECT LO_MESSAGE_BOX.
      CREATE OBJECT LO_PRD_OUT
        EXPORTING
          IO_MESSAGE_BOX = LO_MESSAGE_BOX
          IV_MODE        = /SCDL/CL_SP=>SC_MODE_CLASSIC
          IV_DOCCAT      = /SCDL/IF_DL_DOC_C=>SC_DOCCAT_OUT_PRD.
    ENDIF.
*   Select Delivery
    DATA(LT_K_HEAD) = VALUE /SCDL/T_SP_K_HEAD( ( DOCID = LS_ODO-DOCID ) ).
    CLEAR LV_REJECTED.
    REFRESH LT_RETURN_CODES.
    LO_PRD_OUT->/SCDL/IF_SP1_ASPECT~SELECT(
      EXPORTING
        INKEYS       = LT_K_HEAD
        ASPECT       = /SCDL/IF_SP_C=>SC_ASP_HEAD
      IMPORTING
        OUTRECORDS   = LT_A_HEAD
        REJECTED     = LV_REJECTED
        RETURN_CODES = LT_RETURN_CODES ).
*   check if any error occurred
    MCR_FILL_ERROR 'No documents found'.

*   Locking Delivery
    CLEAR LV_REJECTED.
    REFRESH LT_RETURN_CODES.
    LO_PRD_OUT->LOCK(
      EXPORTING
        INKEYS       = LT_K_HEAD
        ASPECT       = /SCDL/IF_SP_C=>SC_ASP_HEAD
        LOCKMODE     = /SCDL/IF_SP1_LOCKING=>SC_EXCLUSIVE_LOCK
      IMPORTING
        REJECTED     = LV_REJECTED
        RETURN_CODES = LT_RETURN_CODES ).
*   check if any error occurred
    MCR_FILL_ERROR 'Lock delivery failed'.

*   Adjust Delivery
    CLEAR LV_REJECTED.
    REFRESH LT_RETURN_CODES.
    DATA(LT_K_ITEM) = VALUE /SCDL/T_SP_K_ITEM( (
      DOCID  = LS_ODO-DOCID
      ITEMID = LS_ODO-ITEMID ) ).
    LS_ACTION-ACTION_CODE = /SCWM/IF_DL_C=>SC_AC_PRCODE_ADD.
    CREATE DATA LS_ACTION-ACTION_CONTROL TYPE /SCWM/DLV_PRCODE_ADD_STR.
    ASSIGN LS_ACTION-ACTION_CONTROL->* TO FIELD-SYMBOL(<FS_ACTION_CONTROL>).
    LS_PRCODE-PRCODE = 'O001'.
    LS_PRCODE-QTY    = LS_ODO-QTY_DIFF.
    LS_PRCODE-UOM    = LS_ODO-UOM.
    <FS_ACTION_CONTROL> = LS_PRCODE.
    LO_PRD_OUT->/SCDL/IF_SP1_ACTION~EXECUTE(
      EXPORTING
        ASPECT             = /SCDL/IF_SP_C=>SC_ASP_ITEM
        INKEYS             = LT_K_ITEM
        INPARAM            = LS_ACTION
        ACTION             = /SCDL/IF_SP_C=>SC_ACT_EXECUTE_ACTION
      IMPORTING
        OUTRECORDS         = LT_A_ITEM
        REJECTED           = LV_REJECTED
        RETURN_CODES       = LT_RETURN_CODES ).
*   check if any error occurred
    IF LV_REJECTED IS NOT INITIAL
    OR LINE_EXISTS( LT_RETURN_CODES[ FAILED = 'X'] ).
      ROLLBACK WORK.
      MCR_FILL_ERROR 'Delivery qty adjust failed'.
    ELSE.
      LO_PRD_OUT->SAVE(  ).
      COMMIT WORK AND WAIT.
      LS_ODO-MSGTXT = 'Delivery qty adjust successfully'.
    ENDIF.
    /SCWM/CL_TM=>CLEANUP( ).
    MODIFY LT_ODO FROM LS_ODO TRANSPORTING QTY_PICK QTY_DIFF MSGTXT.

    CLEAR LS_ODO.
  ENDLOOP.
  LT_MESSAGES = LO_MESSAGE_BOX->GET_MESSAGES( ).
  DATA: LS_LAYO TYPE LVC_S_LAYO,
        LT_FCAT TYPE LVC_T_FCAT.
  LS_LAYO-ZEBRA      = ABAP_TRUE.
  LS_LAYO-CWIDTH_OPT = ABAP_TRUE.
  PERFORM FRM_SET_FCAT TABLES LT_FCAT
                        USING: 'ENTITY  ' 'Warehouse',
                               'DOCTYPE ' 'Delivery Type',
                               'DOCNO   ' 'Delivery',
                               'ITEMNO  ' 'Item',
                               'UOM     ' 'Unit',
                               'QTY     ' 'Quantity',
                               'QTY_PICK' 'Picking Qty',
                               'QTY_DIFF' 'Different Qty',
                               'MSGTXT  ' 'Return Message　　　　　　　　　'.

  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'
    TABLES
      T_OUTTAB           = LT_ODO
    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.
*&---------------------------------------------------------------------*
*&      Form  FRM_SET_FCAT
*&---------------------------------------------------------------------*
FORM FRM_SET_FCAT TABLES T_FCAT TYPE LVC_T_FCAT
                     USING VALUE(UV_FIELDNAME)  TYPE ANY
                           VALUE(UV_SELTEXT)    TYPE ANY.
  DATA LS_FCAT TYPE LVC_S_FCAT.
  LS_FCAT-FIELDNAME = UV_FIELDNAME.
  LS_FCAT-REPTEXT   =
  LS_FCAT-SCRTEXT_L = UV_SELTEXT.
  CASE UV_FIELDNAME.
    WHEN 'DOCNO'.
      LS_FCAT-NO_ZERO    = ABAP_TRUE.
    WHEN 'QTY' OR 'QTY_PICK' OR 'QTY_DIFF'.
      LS_FCAT-QFIELDNAME = 'UOM'.
    WHEN OTHERS.
  ENDCASE.
  APPEND LS_FCAT TO T_FCAT.
ENDFORM.                    " FRM_SET_FCAT

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

141

142

143

144

145

146

147

148

149

150

151

152

153

154

155

156

157

158

159

160

161

162

163

164

165

166

167

168

169

170

171

172

173

174

175

176

177

178

179

180

181

182

183

184

185

186

187

188

189

190

191

192

193

194

195

196

197

198

199

200

201

202

203

204

205

206

207

208

209

210

211

212

213

214

215

216

217

218

219

*----------------------------------------------------------------------*

* Description : Over Picking ODO Qty Adjust

* Date/Author : Sariel

*----------------------------------------------------------------------*

REPORT YSARIEL NO STANDARD PAGE HEADING.

*----------------------------------------------------------------------*

* DEFINE TYPES

*----------------------------------------------------------------------*

TABLES /SCDL/DB_PROCH_O.

*----------------------------------------------------------------------*

* DEFINE SCREEN PARAMETERS

*----------------------------------------------------------------------*

PARAMETERS P_LGNUM TYPE /SCWM/LGNUM OBLIGATORY.

SELECT-OPTIONS S_DOCNO FOR /SCDL/DB_PROCH_O-DOCNO.

*----------------------------------------------------------------------*

* START-OF-SELECTION

*----------------------------------------------------------------------*

START-OF-SELECTION.

PERFORM FRM_GET_DATA.

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

*& Form FRM_GET_DATA

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

* text

*----------------------------------------------------------------------*

FORM FRM_GET_DATA .

DATA LV_LGNUM TYPE /SCWM/LGNUM.

DATA LO_PRD_OUT TYPE REF TO /SCDL/CL_SP_PRD_OUT.

DATA LO_MESSAGE_BOX TYPE REF TO /SCDL/CL_SP_MESSAGE_BOX.

DATA LT_A_HEAD TYPE /SCDL/T_SP_A_HEAD.

DATA LT_A_ITEM TYPE /SCDL/T_SP_A_ITEM.

DATA LS_ACTION TYPE /SCDL/S_SP_ACT_ACTION.

DATA LS_PRCODE TYPE /SCWM/DLV_PRCODE_ADD_STR.

DATA LV_REJECTED TYPE BOOLE_D.

DATA LT_RETURN_CODES TYPE /SCDL/T_SP_RETURN_CODE.

DATA LT_MESSAGES TYPE /SCDL/DM_MESSAGE_TAB.

DATA LV_MSGTXT TYPE CHAR255.

DEFINE MCR_FILL_ERROR.

IF LV_REJECTED IS NOT INITIAL

OR LINE_EXISTS( LT_RETURN_CODES[ FAILED = 'X'] ).

LS_ODO-MSGTXT = &1.

/SCWM/CL_TM=>CLEANUP( ).

MODIFY LT_ODO FROM LS_ODO TRANSPORTING QTY_PICK QTY_DIFF MSGTXT.

CLEAR LS_ODO.

CONTINUE.

ENDIF.

END-OF-DEFINITION.

* Get Delivery

SELECT /SCMB/TOENTITY~ENTITY,

/SCDL/DB_PROCH_O~DOCTYPE,

/SCDL/DB_PROCH_O~DOCNO,

/SCDL/DB_PROCI_O~ITEMNO,

/SCDL/DB_PROCI_O~UOM,

/SCDL/DB_PROCI_O~QTY,

/SCDL/DB_PROCI_O~QTY AS QTY_PICK,

/SCDL/DB_PROCI_O~QTY AS QTY_DIFF,

@LV_MSGTXT AS MSGTXT,

/SCDL/DB_PROCH_O~DOCID,

/SCDL/DB_PROCI_O~ITEMID

INTO TABLE @DATA(LT_ODO)

FROM /SCDL/DB_PROCH_O

JOIN /SCMB/TOENTITY

ON /SCMB/TOENTITY~SCUGUID EQ /SCDL/DB_PROCH_O~WAREHOUSE_ID

AND /SCMB/TOENTITY~SCUTYPE EQ '1008'

JOIN /SCDL/DB_PROCI_O

ON /SCDL/DB_PROCI_O~DOCID EQ /SCDL/DB_PROCH_O~DOCID

JOIN /SCDL/DB_STATUS

ON /SCDL/DB_STATUS~DOCID EQ /SCDL/DB_PROCI_O~DOCID

AND /SCDL/DB_STATUS~ITEMID EQ /SCDL/DB_PROCI_O~ITEMID

WHERE /SCMB/TOENTITY~ENTITY EQ @P_LGNUM

AND /SCDL/DB_PROCH_O~DOCNO IN @S_DOCNO

AND /SCDL/DB_STATUS~STATUS_TYPE EQ 'DPI'

AND /SCDL/DB_STATUS~STATUS_VALUE EQ '7'.

IF SY-SUBRC NE 0.

MESSAGE S038(/SCDL/BO_ACTION) DISPLAY LIKE 'E'.

* No documents found

LEAVE LIST-PROCESSING.

ENDIF.

LOOP AT LT_ODO INTO DATA(LS_ODO).

CLEAR LS_ODO-QTY_PICK.

CLEAR LS_ODO-QTY_DIFF.

SELECT SUM( REL_QTY )

INTO LS_ODO-QTY_PICK

FROM /SCDL/DB_DF

WHERE DOCCATTO IN ( 'PCA','PCR' )

AND DOCID EQ LS_ODO-DOCID

AND ITEMID EQ LS_ODO-ITEMID.

LS_ODO-QTY_DIFF = ABS( LS_ODO-QTY - LS_ODO-QTY_PICK ).

LV_LGNUM = LS_ODO-ENTITY.

/SCWM/CL_TM=>SET_LGNUM( LV_LGNUM ).

IF LO_PRD_OUT IS INITIAL.

CREATE OBJECT LO_MESSAGE_BOX.

CREATE OBJECT LO_PRD_OUT

EXPORTING

IO_MESSAGE_BOX = LO_MESSAGE_BOX

IV_MODE = /SCDL/CL_SP=>SC_MODE_CLASSIC

IV_DOCCAT = /SCDL/IF_DL_DOC_C=>SC_DOCCAT_OUT_PRD.

ENDIF.

* Select Delivery

DATA(LT_K_HEAD) = VALUE /SCDL/T_SP_K_HEAD( ( DOCID = LS_ODO-DOCID ) ).

CLEAR LV_REJECTED.

REFRESH LT_RETURN_CODES.

LO_PRD_OUT->/SCDL/IF_SP1_ASPECT~SELECT(

EXPORTING

INKEYS = LT_K_HEAD

ASPECT = /SCDL/IF_SP_C=>SC_ASP_HEAD

IMPORTING

OUTRECORDS = LT_A_HEAD

REJECTED = LV_REJECTED

RETURN_CODES = LT_RETURN_CODES ).

* check if any error occurred

MCR_FILL_ERROR 'No documents found'.

* Locking Delivery

CLEAR LV_REJECTED.

REFRESH LT_RETURN_CODES.

LO_PRD_OUT->LOCK(

EXPORTING

INKEYS = LT_K_HEAD

ASPECT = /SCDL/IF_SP_C=>SC_ASP_HEAD

LOCKMODE = /SCDL/IF_SP1_LOCKING=>SC_EXCLUSIVE_LOCK

IMPORTING

REJECTED = LV_REJECTED

RETURN_CODES = LT_RETURN_CODES ).

* check if any error occurred

MCR_FILL_ERROR 'Lock delivery failed'.

* Adjust Delivery

CLEAR LV_REJECTED.

REFRESH LT_RETURN_CODES.

DATA(LT_K_ITEM) = VALUE /SCDL/T_SP_K_ITEM( (

DOCID = LS_ODO-DOCID

ITEMID = LS_ODO-ITEMID ) ).

LS_ACTION-ACTION_CODE = /SCWM/IF_DL_C=>SC_AC_PRCODE_ADD.

CREATE DATA LS_ACTION-ACTION_CONTROL TYPE /SCWM/DLV_PRCODE_ADD_STR.

ASSIGN LS_ACTION-ACTION_CONTROL->* TO FIELD-SYMBOL(<FS_ACTION_CONTROL>).

LS_PRCODE-PRCODE = 'O001'.

LS_PRCODE-QTY = LS_ODO-QTY_DIFF.

LS_PRCODE-UOM = LS_ODO-UOM.

<FS_ACTION_CONTROL> = LS_PRCODE.

LO_PRD_OUT->/SCDL/IF_SP1_ACTION~EXECUTE(

EXPORTING

ASPECT = /SCDL/IF_SP_C=>SC_ASP_ITEM

INKEYS = LT_K_ITEM

INPARAM = LS_ACTION

ACTION = /SCDL/IF_SP_C=>SC_ACT_EXECUTE_ACTION

IMPORTING

OUTRECORDS = LT_A_ITEM

REJECTED = LV_REJECTED

RETURN_CODES = LT_RETURN_CODES ).

* check if any error occurred

IF LV_REJECTED IS NOT INITIAL

OR LINE_EXISTS( LT_RETURN_CODES[ FAILED = 'X'] ).

ROLLBACK WORK.

MCR_FILL_ERROR 'Delivery qty adjust failed'.

ELSE.

LO_PRD_OUT->SAVE( ).

COMMIT WORK AND WAIT.

LS_ODO-MSGTXT = 'Delivery qty adjust successfully'.

ENDIF.

/SCWM/CL_TM=>CLEANUP( ).

MODIFY LT_ODO FROM LS_ODO TRANSPORTING QTY_PICK QTY_DIFF MSGTXT.

CLEAR LS_ODO.

ENDLOOP.

LT_MESSAGES = LO_MESSAGE_BOX->GET_MESSAGES( ).

DATA: LS_LAYO TYPE LVC_S_LAYO,

LT_FCAT TYPE LVC_T_FCAT.

LS_LAYO-ZEBRA = ABAP_TRUE.

LS_LAYO-CWIDTH_OPT = ABAP_TRUE.

PERFORM FRM_SET_FCAT TABLES LT_FCAT

USING: 'ENTITY ' 'Warehouse',

'DOCTYPE ' 'Delivery Type',

'DOCNO ' 'Delivery',

'ITEMNO ' 'Item',

'UOM ' 'Unit',

'QTY ' 'Quantity',

'QTY_PICK' 'Picking Qty',

'QTY_DIFF' 'Different Qty',

'MSGTXT ' 'Return Message　　　　　　　　　'.

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'

TABLES

T_OUTTAB = LT_ODO

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.

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

*& Form FRM_SET_FCAT

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

FORM FRM_SET_FCAT TABLES T_FCAT TYPE LVC_T_FCAT

USING VALUE(UV_FIELDNAME) TYPE ANY

VALUE(UV_SELTEXT) TYPE ANY.

DATA LS_FCAT TYPE LVC_S_FCAT.

LS_FCAT-FIELDNAME = UV_FIELDNAME.

LS_FCAT-REPTEXT =

LS_FCAT-SCRTEXT_L = UV_SELTEXT.

CASE UV_FIELDNAME.

WHEN 'DOCNO'.

LS_FCAT-NO_ZERO = ABAP_TRUE.

WHEN 'QTY' OR 'QTY_PICK' OR 'QTY_DIFF'.

LS_FCAT-QFIELDNAME = 'UOM'.

WHEN OTHERS.

ENDCASE.

APPEND LS_FCAT TO T_FCAT.

ENDFORM. " FRM_SET_FCAT

对开发者有用的英文网站合集，建议收藏！

2017-07-05 • 程序开发 • 0 条评论 • Jason Cao

这是一份对开发者有用的英文网站清单，涉及到从初学者到行业大牛成长的方方面面，还有很多事英语学习的网站，请相信我，这些肯定会对你有所帮助的。问答社区 Stack Overflow : subscribe to their weekly newsletter and any other topic which you f

ABAP实现粘贴板的操作，复制粘贴

2017-02-14 • ABAP • 0 条评论 • admin

BAP可以实现复制粘贴的操作自己玩儿项目里暂时用不到在ABAP中的 CLASS ：CL_GUI_FRONTEND_SERVICES中提供了两个方法来控制与剪贴板内容的导入导出，分别是：CLIPBOARD_EXPORT和CLIPBOARD_IMPORT。 CLIPBOARD_EXPORT是将一个内表的内容导入到剪

SAP OLE中常用的一些方法和属性

2017-02-14 • ABAP • 0 条评论 • admin

1.ole中如何保存和退出。 call method of sheetname ‘saveas’ exporting #1 = filepath #2 =1. call method of applicationname ‘quit’. 2.给sheet重命名。 call

SAP ABAP 反射，动态创建内表、结构、变量

2016-11-16 • ABAP、程序开发 • 0 条评论 • Jason Cao

SAP BDT业务数据工具集的开发原理及应用实例

2016-11-16 • ABAP、SAP CRM • 0 条评论 • Jason Cao

业务数据工具集BDT(Business Data Toolset)是一套集成的封装式的开发模型，主要用于维护复杂的主数据或简单的事务型数据。BDT除了包含对话界面的操作，同时还支持直接数据录入和函数操作。BDT集成了SAP的其他技术功能，如变更管理、基于字段组的输出控制、权限控制、存档功能。BDT还集成了与BW的接口程

HR-infotype增强笔记

2016-10-21 • ABAP、SAP ERP • 0 条评论 • Jason Cao

一、create infotype.(pm30，个人相关数据) 1.创建的infotype必须是9开头的，即9xxx,举例:9111. 2.创建ps结构.(TCode se11). ex: ps9111. 3.pm01 创建infotype. 在infotype no.中填入要创建的infotype，这里是9111。点

HR模块的一些概念以及常用的函数

2016-10-21 • ABAP、SAP ERP、程序开发 • 0 条评论 • Jason Cao

HR模块的一些概念以及常用的函数一 HR Components 1. PA-Personnel Management (Master data :0000-0999) Personnel Administration Time Management Payroll Benefits Recruitment Busin

SAP模块常用增强总结

2016-10-10 • ABAP • 0 条评论 • Jason Cao

MM模块：采购订单增强： BADI ：ME_GUI_PO_CUST ME_PROCESS_PO_CUST 物料凭证增强： BADI：MB_DOCUMENT_BADI USER-EXIT：MBCF0002 实现功能1、当参照预留过帐时，检查填入数量是否小于预留数量 2、移动类型是***的时候，查看RSNUM是否为空 3