赶快加入我们，队员招募。 此处待编辑 QQ群：28069988
字母加数字递增取号码段
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 |
REPORT YSARIEL. "Create by Sariel PARAMETERS P_CHAR TYPE CHAR4 OBLIGATORY. "任意长 PARAMETERS P_NUMC TYPE NUMC4 OBLIGATORY. "任意长 PERFORM FRM_GET_RSTR. FORM FRM_GET_RSTR . WRITE / P_CHAR && P_NUMC. IF P_NUMC EQ '9999'. "按定义最大值 DATA(LV_LEN) = STRLEN( P_CHAR ) - 1. PERFORM FRM_GET_CHAR CHANGING LV_LEN P_CHAR. WRITE / P_CHAR && '0000'. "按定义最小值 ELSE. P_NUMC = P_NUMC + 1. WRITE / P_CHAR && P_NUMC. ENDIF. ENDFORM. FORM FRM_GET_CHAR CHANGING CV_INDX CV_CHAR. DATA LS_RESULT TYPE MATCH_RESULT. IF CV_INDX LT 0. MESSAGE 'Max!' TYPE 'E'. ENDIF. FIND CV_CHAR+CV_INDX(1) IN SY-ABCDE RESULTS LS_RESULT. IF SY-SUBRC EQ 0. IF LS_RESULT-OFFSET EQ 25. CV_CHAR+CV_INDX(1) = 'A'. DATA(LV_INDX) = CV_INDX - 1. PERFORM FRM_GET_CHAR CHANGING LV_INDX CV_CHAR. ELSE. DATA(LV_OFFSET) = LS_RESULT-OFFSET + 1. CV_CHAR+CV_INDX(1) = SY-ABCDE+LV_OFFSET(1). ENDIF. ENDIF. ENDFORM. " FRM_GET_CHAR |
…
|
1 |
…
|
1 |
BAPI 含增强字段（EXTENSIONIN）
下面只是个人的一些浅显看法，如果有错误或者更好的方案，请指出。 1.找到对应的结构或者自己创建一个结构，（如果创建，必须有对应的关键字） 2.在结构中添加表增强的字段 3.EXTENSIONIN值设置 4.调用bapi 以 BAPI_PO_CREATE1 为例：创建PO需要导入 “ZZ001
创建销售订单时如何给增强字段赋值[BAPI_SALESORDER_CREATEFROMDAT2]
在使用bapi BAPI_SALESORDER_CREATEFROMDAT2创建销售订单时，可以通过extensionin参数给自定义的参数赋值。 具体的使用方法可以通过点击Function module documentaion来查看，如下： 下面举例说明: 在销售订单的行项目上的additional
SAP HANA学习资料大全
Check out this SDN blog if you plan to write HANA Certification exam http://scn.sap.com/community/hana-in-memory/blog/2012/08/27/my-experience-on-hana-certifica
一个合格的程序员应该读过哪些书
“如果能时光倒流，回到过去，作为一个开发人员，你可以告诉自己在职业生涯初期应该读一本， 你会选择哪本书呢？我希望这个书单列表内容丰富，可以涵盖很多东西。” 很多程序员响应，他们在推荐时也写下自己的评语。 以前就有国内网友介绍这个程序员书单，不过都是推荐数 Top 10的书。 其实除了前10本之外，推荐数前30左右的书籍
EWM – Over Picking ODO Qty Adjust
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 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 |
对开发者有用的英文网站合集，建议收藏！
这是一份对开发者有用的英文网站清单，涉及到从初学者到行业大牛成长的方方面面，还有很多事英语学习的网站，请相信我，这些肯定会对你有所帮助的。 问答社区 Stack Overflow : subscribe to their weekly newsletter and any other topic which you f
ABAP实现粘贴板的操作，复制粘贴
BAP可以实现复制粘贴的操作 自己玩儿 项目里暂时用不到 在ABAP中的 CLASS ：CL_GUI_FRONTEND_SERVICES中提供了两个方法来控制与剪贴板内容的导入导出， 分别是：CLIPBOARD_EXPORT和CLIPBOARD_IMPORT。 CLIPBOARD_EXPORT是将一个内表的内容导入到剪
SAP OLE中常用的一些方法和属性
1.ole中如何保存和退出。 call method of sheetname ‘saveas’ exporting #1 = filepath #2 =1. call method of applicationname ‘quit’. 2.给sheet重命名。 call
SAP ABAP 反射，动态创建内表、结构、变量
1.14. 反射 CL_ABAP_TYPEDESCR |–CL_ABAP_DATADESCR | |–CL_ABAP_ELEMDESCR | |–CL_ABAP_REFDESCR | |–CL_ABAP_COMPLEXDESCR |