赶快加入我们，队员招募。 此处待编辑 QQ群：28069988
ABAP OUTPUT DATA TO MS WORD TEMPLATE FILES
|
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 |
*&---------------------------------------------------------------------* *& Report YW_WORD_TABLE_FILL *&---------------------------------------------------------------------* *& 将数据插入到 WORD 模板文件中 *&---------------------------------------------------------------------* REPORT YW_WORD_TABLE_FILL. *--Include for OLE-enabling definitions INCLUDE OLE2INCL . *--Global variables *--Variables to hold OLE object and entity handles DATA GS_WORD TYPE OLE2_OBJECT . "OLE object handle DATA GS_DOCUMENTS TYPE OLE2_OBJECT . "Documents DATA GS_ACTDOC TYPE OLE2_OBJECT . "Active document DATA GS_APPLICATION TYPE OLE2_OBJECT . "Application DATA GS_OPTIONS TYPE OLE2_OBJECT . "Application options DATA GS_ACTWIN TYPE OLE2_OBJECT . "Active window DATA GS_ACTPAN TYPE OLE2_OBJECT . "Active pane DATA GS_VIEW TYPE OLE2_OBJECT . "View DATA GS_SELECTION TYPE OLE2_OBJECT . "Selection DATA GS_FONT TYPE OLE2_OBJECT . "Font DATA GS_PARFORMAT TYPE OLE2_OBJECT . "Paragraph format DATA GS_TABLES TYPE OLE2_OBJECT . "Tables DATA GS_RANGE TYPE OLE2_OBJECT . "Range handle for various ranges DATA GS_TABLE TYPE OLE2_OBJECT . "One table DATA GS_TABLE_BORDER TYPE OLE2_OBJECT . "Table border DATA GS_CELL TYPE OLE2_OBJECT . "One cell of a table DATA GS_SELCELL TYPE OLE2_OBJECT . "Select cell of a table DATA GS_PARAGRAPH TYPE OLE2_OBJECT . "Paragraph DATA GV_POS(5) TYPE N . "Position information for table DATA: FULLPATH TYPE RLGRAP-FILENAME. DATA: L_NAME LIKE WWWDATATAB. * 用SMW0上传的模板 L_NAME-RELID ='MI'. L_NAME-OBJID ='ZWORDHTML'. FULLPATH ='D:\demo.docx'. ** 下载模板 DATA: LV_SUBRC TYPE SY-SUBRC. CALL FUNCTION 'DOWNLOAD_WEB_OBJECT' EXPORTING KEY = L_NAME DESTINATION = FULLPATH IMPORTING RC = LV_SUBRC. IF LV_SUBRC <> 0 . MESSAGE '下载指定模板失败' TYPE 'E'. ENDIF. * 打开WORD. CREATE OBJECT GS_WORD 'WORD.APPLICATION' . IF SY-SUBRC NE 0. MESSAGE S000(SU) WITH 'Error while creating OLE object!'. LEAVE PROGRAM . ENDIF . *--Setting object's visibility property SET PROPERTY OF GS_WORD 'Visible' = '1' . *--Opening a new document GET PROPERTY OF GS_WORD 'Documents' = GS_DOCUMENTS . "CALL METHOD OF GS_DOCUMENTS 'Add' . "新创建一个文档 * 打开指定的模板文档 CALL METHOD OF GS_DOCUMENTS 'Open' = GS_DOCUMENTS EXPORTING #1 = FULLPATH. PERFORM frm_replace_cell USING 'T1C2F1' '表1行2列1替换'. ********************************************************************** * 调用宏代码进行数据替换 ********************************************************************** FORM FRM_REPLACE_CELL USING SRC DES. * 调用宏替换函数 *CALL METHOD OF GS_WORD 'RUN' * EXPORTING * #1 = 'REPLACE' * #2 = 'T1C2F1' * #3 = '表1行2列1'. CALL METHOD OF GS_WORD 'RUN' EXPORTING #1 = 'REPLACE' #2 = SRC #3 = DES. ENDFORM. |
WORD里面需要使用到的宏代码
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 |
Sub REPLACE(src As String, des As String) ' ' REPLACE 用替换 ' ' Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = src .Replacement.Text = des .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = True .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute REPLACE:=wdReplaceAll End Sub |
|
1 |
*WORD模板文件TEMPLATE-SMW0-Upload |
TEMPLATE-SMW0-Upload
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
SAP模块常用增强总结
MM模块： 采购订单增强： BADI ：ME_GUI_PO_CUST ME_PROCESS_PO_CUST 物料凭证增强： BADI：MB_DOCUMENT_BADI USER-EXIT：MBCF0002 实现功能1、当参照预留过帐时，检查填入数量是否小于预留数量 2、移动类型是***的时候，查看RSNUM是否为空 3