赶快加入我们，队员招募。 此处待编辑 QQ群：28069988
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 |
SAP BDT业务数据工具集的开发原理及应用实例
业务数据工具集BDT(Business Data Toolset)是一套集成的封装式的开发模型，主要用于维护复杂的主数据或简单的事务型数据。BDT除了包含对话界面的操作，同时还支持直接数据录入和函数操作。BDT集成了SAP的其他技术功能，如变更管理、基于字段组的输出控制、权限控制、存档功能。BDT还集成了与BW的接口程
HR-infotype增强笔记
一、create infotype.(pm30，个人相关数据) 1.创建的infotype必须是9开头的，即9xxx,举例:9111. 2.创建ps结构.(TCode se11). ex: ps9111. 3.pm01 创建infotype. 在infotype no.中填入要创建的infotype，这里是9111。点
HR模块的一些概念以及常用的函数
HR模块的一些概念以及常用的函数 一 HR Components 1. PA-Personnel Management (Master data :0000-0999) Personnel Administration Time Management Payroll Benefits Recruitment Busin