SAP DOI实现小记

2024-06-12 09:58
文章标签 实现 sap 小记 doi

本文主要是介绍SAP DOI实现小记，希望对大家解决编程问题提供一定的参考价值，需要的开发者们随着小编来一起学习吧！

首先简单介绍一下DOI，以下描述来自于网上：
OLE是SAP早期与微软Office集成的工具，而DOI是它的替代技术。在实际项目中使用到OLE&DOI的场合多是EXCEL表格的读入或是填制。有些需要自动画表格及填数据，有的只是要求在原有的模版上填制数据。根据不同的场合可以选用不同的技术。
DOI实现把excel嵌入到程序中，需要上传一个写入数据的excel模板，这个模板中个人认为是不能实现动态的合并单元格（自己没找到方法，如有方法，请私信我）。
DOI实现步骤：
1.上传excel模板
T-CODE:OAOR
准备好一个excel模板，这个模板是用来向里面填充数据的，上传效果如图：
上传模板
上传完成

2.代码实现

*&----------------------------------------------------------*
*&      Form  FRM_DO_DOI
*&----------------------------------------------------------*
*       text DOI处理
*-----------------------------------------------------------*
FORM FRM_DO_DOI ."得到填充数据PERFORM FRM_GET_DATA_FOR_EXCEL USING WA_TAB1_DOI." 创建EXCEL输出的一些基本对象PERFORM CREATE_BASIC_OBJECTS USING ''  '' '' '' DOCUMENT_NAME."EXCEL输出PERFORM OUTPUT_TO_EXCEL USING WA_TAB1_DOI IT_BBAT.
ENDFORM.                    " FRM_DO_DOI*&----------------------------------------------------------*
*&      Form  FRM_GET_DATA_FOR_EXCEL
*&----------------------------------------------------------*
*       text 得到填充excel的数据
*-----------------------------------------------------------*
FORM FRM_GET_DATA_FOR_EXCEL USING P_WA_BBAT LIKE WA_TAB1.SELECTZROWIDITMIDITMTYDMBTRZDATEZTEXTINTO CORRESPONDING FIELDS OF TABLE IT_BBATFROM ZFIB002WHERE SAKNR = P_WA_BBAT-SAKNR AND BUKRS = P_WA_BBAT-BUKRSAND ZDELF <> 'X'.   "没有删除标志IF IT_BBAT IS INITIAL.MESSAGE '指定关键字的数据没有找到！' TYPE 'S'.LEAVE TO SCREEN 0.ENDIF.
ENDFORM.                    " FRM_GET_DATA_FOR_EXCEL*&----------------------------------------------------------*
*&      Form  CREATE_BASIC_OBJECTS
*&----------------------------------------------------------*
*       text 创建DOI所需对象
*-----------------------------------------------------------*
FORM CREATE_BASIC_OBJECTS  USING P_APP_NAME  P_CLASSNAMEP_CLASSTYPE P_OBJ_KEY P_DOCNAME.DATA: L_APP_NAME(200),BDS_INSTANCE      TYPE REF TO   CL_BDS_DOCUMENT_SET,DOC_SIGNATURE     TYPE          SBDST_SIGNATURE,WA_DOC_SIGNATURE  LIKE LINE OF  DOC_SIGNATURE,DOC_COMPONENTS    TYPE          SBDST_COMPONENTS,DOC_URIS          TYPE          SBDST_URI,WA_DOC_URIS       LIKE LINE OF  DOC_URIS."OAOR上传模板的参数（在上传参数的时候填写的类，类型，对象）DATA: DOC_CLASSNAME  TYPE SBDST_CLASSNAME  VALUE 'ZDFAM_EXCEL',DOC_CLASSTYPE  TYPE SBDST_CLASSTYPE  VALUE 'OT',DOC_OBJECT_KEY TYPE SBDST_OBJECT_KEY VALUE 'ZFI_BANK_BBAT'.DATA: HAS TYPE I.CHECK INITIALIZED IS INITIAL.IF P_APP_NAME IS INITIAL.L_APP_NAME = 'R/3 Reporter'.ELSE.L_APP_NAME = P_APP_NAME.ENDIF.IF  NOT (  P_CLASSNAME IS INITIAL OR P_CLASSTYPE IS INITIALOR P_OBJ_KEY IS INITIAL ).DOC_CLASSNAME =  P_CLASSNAME.DOC_CLASSTYPE =  P_CLASSTYPE.DOC_OBJECT_KEY = P_OBJ_KEY.ENDIF.CALL METHOD C_OI_CONTAINER_CONTROL_CREATOR=>GET_CONTAINER_CONTROLIMPORTINGCONTROL = DOI_CONTROL "CONTROL TYPE REF TO I_OI_CONTAINER_CONTROL,ERROR   = DOI_ERROR.CALL METHOD DOI_ERROR->RAISE_MESSAGEEXPORTINGTYPE = 'E'.
"创建一个屏幕和容器Z_FI_BANK_CON03CREATE OBJECT DOI_CONTAINEREXPORTINGCONTAINER_NAME = 'Z_FI_BANK_CON03'.CALL METHOD DOI_CONTROL->INIT_CONTROLEXPORTINGR3_APPLICATION_NAME      = L_APP_NAMEINPLACE_ENABLED          = INPLACEINPLACE_SCROLL_DOCUMENTS = 'X'PARENT                   = DOI_CONTAINERREGISTER_ON_CLOSE_EVENT  = 'X'REGISTER_ON_CUSTOM_EVENT = 'X'NO_FLUSH                 = 'X'IMPORTINGERROR                    = DOI_ERRORS.APPEND DOI_ERRORS.CLEAR ITEM_URL.WA_DOC_SIGNATURE-PROP_NAME = 'DESCRIPTION'.DOCUMENT_TYPE = EXCEL.WA_DOC_SIGNATURE-PROP_VALUE = P_DOCNAME.APPEND WA_DOC_SIGNATURE TO DOC_SIGNATURE.CREATE OBJECT BDS_INSTANCE.CALL METHOD BDS_INSTANCE->GET_INFOEXPORTINGCLASSNAME  = DOC_CLASSNAMECLASSTYPE  = DOC_CLASSTYPEOBJECT_KEY = DOC_OBJECT_KEYCHANGINGCOMPONENTS = DOC_COMPONENTSSIGNATURE  = DOC_SIGNATURE.CALL METHOD BDS_INSTANCE->GET_WITH_URLEXPORTINGCLASSNAME  = DOC_CLASSNAMECLASSTYPE  = DOC_CLASSTYPEOBJECT_KEY = DOC_OBJECT_KEYCHANGINGURIS       = DOC_URISSIGNATURE  = DOC_SIGNATURE.FREE BDS_INSTANCE.READ TABLE DOC_URIS INTO WA_DOC_URIS INDEX 1.ITEM_URL = WA_DOC_URIS-URI.CALL METHOD DOI_CONTROL->GET_DOCUMENT_PROXYEXPORTINGDOCUMENT_TYPE  = 'Excel.Sheet'NO_FLUSH       = 'X'IMPORTINGDOCUMENT_PROXY = DOI_DOCUMENTERROR          = DOI_ERRORS.APPEND DOI_ERRORS.* open a document saved in business document serviceCALL METHOD DOI_DOCUMENT->OPEN_DOCUMENTEXPORTINGOPEN_INPLACE = INPLACEDOCUMENT_URL = ITEM_URL.CALL METHOD DOI_DOCUMENT->HAS_SPREADSHEET_INTERFACEEXPORTINGNO_FLUSH     = ''IMPORTINGIS_AVAILABLE = HASERROR        = DOI_ERRORS.APPEND DOI_ERRORS.CALL METHOD DOI_DOCUMENT->GET_SPREADSHEET_INTERFACEEXPORTINGNO_FLUSH        = ' 'IMPORTINGSHEET_INTERFACE = DOI_SPREADSHEETERROR           = DOI_ERRORS.APPEND DOI_ERRORS.* Activate  sheetCALL METHOD DOI_SPREADSHEET->SELECT_SHEETEXPORTINGNAME     = ACTIVE_SHEETNO_FLUSH = ''IMPORTINGERROR    = DOI_ERRORS.APPEND DOI_ERRORS.LOOP AT DOI_ERRORS.CALL METHOD DOI_ERRORS->RAISE_MESSAGEEXPORTINGTYPE = 'S'.ENDLOOP.FREE DOI_ERRORS.INITIALIZED = 'X'.
ENDFORM.                    " CREATE_BASIC_OBJECTS*&----------------------------------------------------------*
*&      Form  OUTPUT_TO_EXCEL
*&----------------------------------------------------------*
*       text 输出数据到EXCEL
*-----------------------------------------------------------*
FORM OUTPUT_TO_EXCEL USING P_WA_TAB1_DOI LIKE WA_TAB1P_IT_BBAT  LIKE IT_BBAT.DATA: TMPDATE(10)     TYPE C,G_STR(20)       TYPE C,NUM_RESULT(50)  TYPE C,CHAR_RESULT(50) TYPE C,LAST_DAY        LIKE SY-DATUM,SUB_NUM         TYPE P DECIMALS 3 ,ROW_A           TYPE I VALUE 6 ,ROW_B           TYPE I VALUE 6 ,ROW_C           TYPE I,ROW_D           TYPE I,ROW_N           TYPE I,SUM_A           TYPE P DECIMALS 3,SUM_B           TYPE P DECIMALS 3,SUM_C           TYPE P DECIMALS 3,SUM_D           TYPE P DECIMALS 3.G_STR = P_WA_TAB1_DOI-TXT20.    "1银行PERFORM GET_STR_BY_TYPE USING G_STR CHANGING NUM_RESULT CHAR_RESULT.PERFORM FILL_CELL USING 2  2  CHAR_RESULT.CLEAR : NUM_RESULT ,CHAR_RESULT.G_STR = P_WA_TAB1_DOI-TXT50.    "2账号PERFORM GET_STR_BY_TYPE USING G_STR CHANGING NUM_RESULT CHAR_RESULT.PERFORM FILL_CELL USING 3  2  NUM_RESULT.CLEAR : NUM_RESULT ,CHAR_RESULT.PERFORM FRM_GET_LAST_DAY USING P_RPMAX CHANGING LAST_DAY. "3日期PERFORM FILL_CELL USING 2  6  LAST_DAY.CLEAR : LAST_DAY.
*&---表格抬头-----------------------------------------------*G_STR = P_WA_TAB1_DOI-WAERS.    "4货币PERFORM FILL_CELL USING 3  6  G_STR.G_STR = P_WA_TAB1_DOI-DMBTR.    "5银行余额CALL FUNCTION 'CLOI_PUT_SIGN_IN_FRONT'  "数字负号提前CHANGINGVALUE = G_STR.PERFORM FILL_CELL USING 4  2  G_STR.IF P_WA_TAB1_DOI-WAERS = 'CNY'.   "6账簿余额G_STR = P_WA_TAB1_DOI-FLCHA.ELSE.G_STR = P_WA_TAB1_DOI-FFCHA.ENDIF.SUB_NUM = G_STR.           "记录账簿余额CALL FUNCTION 'CLOI_PUT_SIGN_IN_FRONT'  "数字负号提前CHANGINGVALUE = G_STR.PERFORM FILL_CELL USING 4  6  G_STR.G_STR = P_WA_TAB1_DOI-DMBTR - SUB_NUM.    "差额CALL FUNCTION 'CLOI_PUT_SIGN_IN_FRONT'  "数字负号提前CHANGINGVALUE = G_STR.PERFORM FILL_CELL USING 2  8  G_STR.
*&---表格内容-----------------------------------------------*SORT P_IT_BBAT BY ITMID.CLEAR : SUM_A,SUM_B,SUM_C,SUM_D."对于A B项目类别进行填充LOOP AT P_IT_BBAT INTO WA_BBAT.CASE WA_BBAT-ITMID.WHEN 'A'.   "账簿已增银行未增"项目类别G_STR = WA_BBAT-ITMTY.PERFORM FILL_CELL USING ROW_A  1  G_STR."9手工调节金额G_STR = WA_BBAT-DMBTR.CALL FUNCTION 'CLOI_PUT_SIGN_IN_FRONT'  "数字负号提前CHANGINGVALUE = G_STR.PERFORM FILL_CELL USING ROW_A  2  G_STR."日期G_STR = WA_BBAT-ZDATE.PERFORM FILL_CELL USING ROW_A  3  G_STR."未达账项说明G_STR = WA_BBAT-ZTEXT.PERFORM FILL_CELL USING ROW_A  4  G_STR.ROW_A = ROW_A + 1.SUM_A = SUM_A + WA_BBAT-DMBTR.WHEN 'B'.   "银行已增账簿未增"项目类别G_STR = WA_BBAT-ITMTY.PERFORM FILL_CELL USING ROW_B  5  G_STR."9手工调节金额G_STR = WA_BBAT-DMBTR.CALL FUNCTION 'CLOI_PUT_SIGN_IN_FRONT'  "数字负号提前CHANGINGVALUE = G_STR.PERFORM FILL_CELL USING ROW_B  6  G_STR."日期G_STR = WA_BBAT-ZDATE.PERFORM FILL_CELL USING ROW_B  7  G_STR."未达账项说明G_STR = WA_BBAT-ZTEXT.PERFORM FILL_CELL USING ROW_B  8  G_STR.ROW_B = ROW_B + 1.SUM_B = SUM_B + WA_BBAT-DMBTR.ENDCASE.ENDLOOP."8账簿已增银行未增合计G_STR = SUM_A.CALL FUNCTION 'CLOI_PUT_SIGN_IN_FRONT'  "数字负号提前CHANGINGVALUE = G_STR.PERFORM FILL_CELL USING 5  2  G_STR."10银行已增账簿未增合计G_STR = SUM_B.CALL FUNCTION 'CLOI_PUT_SIGN_IN_FRONT'  "数字负号提前CHANGINGVALUE = G_STR.PERFORM FILL_CELL USING 5  6  G_STR."删除项目类别为A和B的数据DELETE IT_BBAT WHERE ITMID = 'A' OR ITMID =  'B' .IF ROW_A > ROW_B.ROW_C = ROW_A + 1.ROW_D = ROW_A + 1.ROW_N = ROW_A.      "用于填充新的行标题ELSE.ROW_C = ROW_B + 1.ROW_D = ROW_B + 1.ROW_N = ROW_B.ENDIF."新的一个小表头G_STR = DATE_STR.    "日期PERFORM FILL_CELL USING ROW_N  3  G_STR.G_STR = TXT_STR.    "未达款项说明PERFORM FILL_CELL USING ROW_N  4  G_STR.G_STR = DATE_STR.    "日期PERFORM FILL_CELL USING ROW_N  7  G_STR.G_STR = TXT_STR.    "未达款项说明PERFORM FILL_CELL USING ROW_N  8  G_STR."对于C D项目类别进行填充LOOP AT P_IT_BBAT INTO WA_BBAT.CASE WA_BBAT-ITMID.WHEN 'C'.   "账簿已增银行未增"项目类别G_STR = WA_BBAT-ITMTY.PERFORM FILL_CELL USING ROW_C  1  G_STR."9手工调节金额G_STR = WA_BBAT-DMBTR.CALL FUNCTION 'CLOI_PUT_SIGN_IN_FRONT'  "数字负号提前CHANGINGVALUE = G_STR.PERFORM FILL_CELL USING ROW_C  2  G_STR."日期G_STR = WA_BBAT-ZDATE.PERFORM FILL_CELL USING ROW_C  3  G_STR."未达账项说明G_STR = WA_BBAT-ZTEXT.PERFORM FILL_CELL USING ROW_C  4  G_STR.ROW_C = ROW_C + 1.SUM_C = SUM_C + WA_BBAT-DMBTR.WHEN 'D'.   "银行已增账簿未增"项目类别G_STR = WA_BBAT-ITMTY.PERFORM FILL_CELL USING ROW_D  5  G_STR."9手工调节金额G_STR = WA_BBAT-DMBTR.CALL FUNCTION 'CLOI_PUT_SIGN_IN_FRONT'  "数字负号提前CHANGINGVALUE = G_STR.PERFORM FILL_CELL USING ROW_D  6  G_STR."日期G_STR = WA_BBAT-ZDATE.PERFORM FILL_CELL USING ROW_D  7  G_STR."未达账项说明G_STR = WA_BBAT-ZTEXT.PERFORM FILL_CELL USING ROW_D  8  G_STR.ROW_D = ROW_D + 1.SUM_D = SUM_D + WA_BBAT-DMBTR.ENDCASE.ENDLOOP."8账簿已增银行未增合计G_STR = SUM_C.CALL FUNCTION 'CLOI_PUT_SIGN_IN_FRONT'  "数字负号提前CHANGINGVALUE = G_STR.PERFORM FILL_CELL USING ROW_N  2  G_STR."10银行已增账簿未增合计G_STR = SUM_D.CALL FUNCTION 'CLOI_PUT_SIGN_IN_FRONT'  "数字负号提前CHANGINGVALUE = G_STR.PERFORM FILL_CELL USING ROW_N  6  G_STR."得到表未开始填充的行IF ROW_C > ROW_D.ROW_N = ROW_C.      "用于填充新的行标题ELSE.ROW_N = ROW_D.ENDIF."相对相符数G_STR = OPT_NUM.PERFORM FILL_CELL USING ROW_N  1  G_STR."16 = 5 + 8 - 12G_STR = P_WA_TAB1_DOI-DMBTR + SUM_A - SUM_C.CALL FUNCTION 'CLOI_PUT_SIGN_IN_FRONT'  "数字负号提前CHANGINGVALUE = G_STR.PERFORM FILL_CELL USING ROW_N  2  G_STR."相对相符数G_STR = OPT_NUM.PERFORM FILL_CELL USING ROW_N  5  G_STR."17 = 6 + 11 - 14G_STR = SUB_NUM + SUM_B - SUM_D.CALL FUNCTION 'CLOI_PUT_SIGN_IN_FRONT'  "数字负号提前CHANGINGVALUE = G_STR.PERFORM FILL_CELL USING ROW_N  6  G_STR.ROW_N = ROW_N + 2 ."编制G_STR = OPE_MAN.PERFORM FILL_CELL USING ROW_N  1  G_STR."18编制人G_STR = P_WA_TAB1_DOI-PRMAN.PERFORM FILL_CELL USING ROW_N  2  G_STR."复核，用于打印签字G_STR = CHE_MAN.PERFORM FILL_CELL USING ROW_N  7  G_STR.ENDFORM.                    " OUTPUT_TO_EXCEL
*&----------------------------------------------------------*
*&      Form  FILL_CELL
*&----------------------------------------------------------*
*       text 填充单元格
*-----------------------------------------------------------*
FORM FILL_CELL  USING    I J VAL.DATA: COLUMNS_NUMBER TYPE I,ROWS_NUMBER    TYPE I.COLUMNS_NUMBER = 1.ROWS_NUMBER = 1.CALL METHOD DOI_SPREADSHEET->INSERT_RANGE_DIMEXPORTINGNAME     = 'cell'NO_FLUSH = 'X'TOP      = ILEFT     = JROWS     = ROWS_NUMBERCOLUMNS  = COLUMNS_NUMBERIMPORTINGERROR    = DOI_ERRORS.APPEND DOI_ERRORS.REFRESH: RANGES, EXCEL_INPUT.RANGEITEM-NAME = 'cell'.RANGEITEM-COLUMNS = 1.RANGEITEM-ROWS = 1.APPEND RANGEITEM TO RANGES.EXCEL_INPUT_WA-COLUMN = 1.EXCEL_INPUT_WA-ROW = 1.EXCEL_INPUT_WA-VALUE = VAL.APPEND EXCEL_INPUT_WA TO EXCEL_INPUT.CALL METHOD DOI_SPREADSHEET->SET_RANGES_DATAEXPORTINGRANGES   = RANGESCONTENTS = EXCEL_INPUTNO_FLUSH = 'X'IMPORTINGERROR    = DOI_ERRORS.APPEND DOI_ERRORS.CALL METHOD DOI_SPREADSHEET->FIT_WIDESTEXPORTINGNAME     = SPACENO_FLUSH = 'X'.REFRESH: RANGES, EXCEL_INPUT.
ENDFORM.                    " FILL_CELL
*&----------------------------------------------------------*
*&      Form  DOWNLOAD_TO_COMPUTER
*&----------------------------------------------------------*
*       text 下载excel到本地
*-----------------------------------------------------------*
FORM DOWNLOAD_TO_COMPUTER.DATA: LV_FILENAME TYPE STRING, "文件名LV_WINTITLE TYPE STRING, "文件标题LV_FILEPATH TYPE STRING, "路径LV_FULLPATH TYPE STRING, "全路径LV_DEFAULT  TYPE STRING. "默认文件名DATA: TITLE TYPE STRING VALUE 'XXXX调节表'.LV_WINTITLE = 'excel文档'.CONCATENATE TITLE  '_' P_RYEAR '_' P_RPMAX '.xls' INTO TITLE.LV_DEFAULT  = TITLE.*&---打开保存对话框CALL METHOD CL_GUI_FRONTEND_SERVICES=>FILE_SAVE_DIALOGEXPORTINGWINDOW_TITLE      = LV_WINTITLEDEFAULT_EXTENSION = 'xls'DEFAULT_FILE_NAME = LV_DEFAULTFILE_FILTER       = 'xls'
*       INITIAL_DIRECTORY =CHANGINGFILENAME          = LV_FILENAMEPATH              = LV_FILEPATHFULLPATH          = LV_FULLPATH
*       USER_ACTION       =EXCEPTIONSCNTL_ERROR        = 1ERROR_NO_GUI      = 2OTHERS            = 3.IF SY-SUBRC = 0.DATA: P_FILE TYPE RLGRAP-FILENAME.P_FILE = LV_FULLPATH.*&---保存文件CALL METHOD DOI_DOCUMENT->SAVE_ASEXPORTINGFILE_NAME = P_FILEIMPORTINGERROR     = DOI_ERRORS.IF SY-SUBRC = 0.MESSAGE '文件已保存！' TYPE 'I'.
*      LEAVE TO SCREEN 0.ENDIF.ELSE.MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNOWITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.ENDIF.
ENDFORM.*&----------------------------------------------------------*
*&      Form  HANDLE_USER_COMMAND_LEAVE_02
*&----------------------------------------------------------*
*       text 退出命令处理
*-----------------------------------------------------------*
FORM HANDLE_USER_COMMAND_LEAVE_02 USING P_SY_UCOMM LIKE SY-UCOMM.IF P_SY_UCOMM = 'BACK' OR P_SY_UCOMM = 'RETURN'.IF NOT DOI_DOCUMENT IS INITIAL.CALL METHOD DOI_DOCUMENT->CLOSE_DOCUMENT.FREE DOI_DOCUMENT.  "type I_OI_DOCUMENT_PROXYENDIF.IF NOT DOI_CONTROL IS INITIAL.CALL METHOD DOI_CONTROL->DESTROY_CONTROL.FREE DOI_CONTROL.  "type I_OI_CONTAINER_CONTROLENDIF."必须释放，否则会出现白板的情况IF DOI_CONTAINER IS NOT INITIAL.CALL METHOD DOI_CONTAINER->FREE.ENDIF.LEAVE TO SCREEN 0.ELSE.IF NOT DOI_DOCUMENT IS INITIAL.CALL METHOD DOI_DOCUMENT->CLOSE_DOCUMENT.FREE DOI_DOCUMENT.  "type I_OI_DOCUMENT_PROXYENDIF.IF NOT DOI_CONTROL IS INITIAL.CALL METHOD DOI_CONTROL->DESTROY_CONTROL.FREE DOI_CONTROL.  "type I_OI_CONTAINER_CONTROLENDIF.LEAVE PROGRAM.ENDIF.
ENDFORM.                    " HANDLE_USER_COMMAND_LEAVE_02*&----------------------------------------------------------*
*&      Form  GET_STR_BY_TYPE
*&----------------------------------------------------------*
*       text  截取字符串中的数字或者非数字
*-----------------------------------------------------------*
FORM GET_STR_BY_TYPE  USING P_E_STR CHANGING NUM_RESULT CHAR_RESULT.DATA : LEN TYPE I,POS TYPE I,STR(60) ,NUMS TYPE STRING VALUE '1234567890'.STR = P_E_STR.LEN = STRLEN( STR ).POS = 0.WHILE POS LT LEN.IF STR+POS(1) CA NUMS.CONCATENATE NUM_RESULT STR+POS(1) INTO NUM_RESULT.CONDENSE NUM_RESULT NO-GAPS.ELSE.CONCATENATE CHAR_RESULT STR+POS(1) INTO CHAR_RESULT.CONDENSE CHAR_RESULT NO-GAPS.ENDIF.POS = POS + 1.ENDWHILE.
ENDFORM.                    " GET_STR_BY_TYPE
*&----------------------------------------------------------*
*&      Form  FRM_GET_LAST_DAY
*&----------------------------------------------------------*
*       text 得到所给日期所在月份的最后一天
*-----------------------------------------------------------*
FORM FRM_GET_LAST_DAY  USING    P_P_RPMAXCHANGING P_LAST_DAY LIKE SY-DATUM.DATA : E_DATE(8)  TYPE C,E_YEAR(4)  TYPE C,E_MONTH(2) TYPE C,E_DAY(2)   TYPE C VALUE '01',FIRST_DAY  LIKE SY-DATUM.E_YEAR  = P_RYEAR.E_MONTH = P_RPMAX+1(2).CONCATENATE E_YEAR E_MONTH E_DAY INTO E_DATE.FIRST_DAY = E_DATE.CALL FUNCTION 'FIMA_DATE_CREATE'EXPORTINGI_DATE                        = FIRST_DAYI_SET_LAST_DAY_OF_MONTH       = 'X'IMPORTINGE_DATE                        = P_LAST_DAY .
ENDFORM.                    " FRM_GET_LAST_DAY

这篇关于SAP DOI实现小记的文章就介绍到这儿，希望我们推荐的文章对编程师们有所帮助！


http://www.chinasem.cn/article/1053891。

相关文章

hdu1043（八数码问题，广搜 + hash（实现状态压缩） ）

hdu1043（八数码问题，广搜 + hash（实现状态压缩） ）

利用康拓展开将一个排列映射成一个自然数，然后就变成了普通的广搜题。 #include<iostream>#include<algorithm>#include<string>#include<stack>#include<queue>#include<map>#include<stdio.h>#include<stdlib.h>#include<ctype.h>#inclu
阅读更多...
【C++】_list常用方法解析及模拟实现

【C++】_list常用方法解析及模拟实现

相信自己的力量，只要对自己始终保持信心，尽自己最大努力去完成任何事，就算事情最终结果是失败了，努力了也不留遗憾。💓💓💓 目录   ✨说在前面 🍋知识点一：什么是list？ •🌰1.list的定义 •🌰2.list的基本特性 •🌰3.常用接口介绍 🍋知识点二：list常用接口 •🌰1.默认成员函数 🔥构造函数（⭐） 🔥析构函数 •🌰2.list对象
阅读更多...
【Prometheus】PromQL向量匹配实现不同标签的向量数据进行运算

【Prometheus】PromQL向量匹配实现不同标签的向量数据进行运算

✨✨ 欢迎大家来到景天科技苑✨✨ 🎈🎈 养成好习惯，先赞后看哦~🎈🎈 🏆 作者简介：景天科技苑 🏆《头衔》：大厂架构师，华为云开发者社区专家博主，阿里云开发者社区专家博主，CSDN全栈领域优质创作者，掘金优秀博主，51CTO博客专家等。 🏆《博客》：Python全栈，前后端开发，小程序开发，人工智能，js逆向，App逆向，网络系统安全，数据分析，Django，fastapi
阅读更多...
让树莓派智能语音助手实现定时提醒功能

让树莓派智能语音助手实现定时提醒功能

最初的时候是想直接在rasa 的chatbot上实现，因为rasa本身是带有remindschedule模块的。不过经过一番折腾后，忽然发现，chatbot上实现的定时，语音助手不一定会有响应。因为，我目前语音助手的代码设置了长时间无应答会结束对话，这样一来，chatbot定时提醒的触发就不会被语音助手获悉。那怎么让语音助手也具有定时提醒功能呢？ 我最后选择的方法是用threading.Time
阅读更多...
Android实现任意版本设置默认的锁屏壁纸和桌面壁纸（两张壁纸可不一致）

Android实现任意版本设置默认的锁屏壁纸和桌面壁纸（两张壁纸可不一致）

客户有些需求需要设置默认壁纸和锁屏壁纸  在默认情况下 这两个壁纸是相同的  如果需要默认的锁屏壁纸和桌面壁纸不一样 需要额外修改 Android13实现 替换默认桌面壁纸： 将图片文件替换frameworks/base/core/res/res/drawable-nodpi/default_wallpaper.*  （注意不能是bmp格式） 替换默认锁屏壁纸： 将图片资源放入vendo
阅读更多...
C#实战|大乐透选号器[6]：实现实时显示已选择的红蓝球数量

C#实战|大乐透选号器[6]：实现实时显示已选择的红蓝球数量

哈喽，你好啊，我是雷工。 关于大乐透选号器在前面已经记录了5篇笔记，这是第6篇； 接下来实现实时显示当前选中红球数量，蓝球数量； 以下为练习笔记。 01 效果演示 当选择和取消选择红球或蓝球时，在对应的位置显示实时已选择的红球、蓝球的数量； 02 标签名称 分别设置Label标签名称为：lblRedCount、lblBlueCount
阅读更多...
Kubernetes PodSecurityPolicy：PSP能实现的5种主要安全策略

Kubernetes PodSecurityPolicy：PSP能实现的5种主要安全策略

Kubernetes PodSecurityPolicy：PSP能实现的5种主要安全策略 1. 特权模式限制2. 宿主机资源隔离3. 用户和组管理4. 权限提升控制5. SELinux配置 💖The Begin💖点点关注，收藏不迷路💖 Kubernetes的PodSecurityPolicy（PSP）是一个关键的安全特性，它在Pod创建之前实施安全策略，确保P
阅读更多...
工厂ERP管理系统实现源码（JAVA）

工厂ERP管理系统实现源码（JAVA）

工厂进销存管理系统是一个集采购管理、仓库管理、生产管理和销售管理于一体的综合解决方案。该系统旨在帮助企业优化流程、提高效率、降低成本，并实时掌握各环节的运营状况。 在采购管理方面，系统能够处理采购订单、供应商管理和采购入库等流程，确保采购过程的透明和高效。仓库管理方面，实现库存的精准管理，包括入库、出库、盘点等操作，确保库存数据的准确性和实时性。 生产管理模块则涵盖了生产计划制定、物料需求计划、
阅读更多...
C++——stack、queue的实现及deque的介绍

C++——stack、queue的实现及deque的介绍

目录 1.stack与queue的实现 1.1stack的实现  1.2 queue的实现 2.重温vector、list、stack、queue的介绍 2.1 STL标准库中stack和queue的底层结构  3.deque的简单介绍 3.1为什么选择deque作为stack和queue的底层默认容器  3.2 STL中对stack与queue的模拟实现 ①stack模拟实现
阅读更多...
ZOJ Monthly, August 2014小记

ZOJ Monthly, August 2014小记

最近太忙太忙，只能抽时间写几道简单题。不过我倒是明白要想水平提高不看题解是最好的了。 A  我只能死找规律了，无法证明 int a[50002][2] ;vector< vector<int> > gmax , gmin ;int main(){int n , i , j , k , cmax , cmin ;while(cin>>n){/* g
阅读更多...

Copyright China编程 23002807@qq.com

沪ICP备2023033072号-2