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。

相关文章

Python实现AVIF图片与其他图片格式间的批量转换

Python实现AVIF图片与其他图片格式间的批量转换

《Python实现AVIF图片与其他图片格式间的批量转换》这篇文章主要为大家详细介绍了如何使用Pillow库实现AVIF与其他格式的相互转换,即将AVIF转换为常见的格式,比如JPG或PNG,需要的小... 目录环境配置1.将单个 AVIF 图片转换为 JPG 和 PNG2.批量转换目录下所有 AVIF 图
阅读更多...
Pydantic中model_validator的实现

Pydantic中model_validator的实现

《Pydantic中model_validator的实现》本文主要介绍了Pydantic中model_validator的实现,文中通过示例代码介绍的非常详细,对大家的学习或者工作具有一定的参考学习价... 目录引言基础知识创建 Pydantic 模型使用 model_validator 装饰器高级用法mo
阅读更多...
AJAX请求上传下载进度监控实现方式

AJAX请求上传下载进度监控实现方式

《AJAX请求上传下载进度监控实现方式》在日常Web开发中,AJAX（AsynchronousJavaScriptandXML）被广泛用于异步请求数据,而无需刷新整个页面,：本文主要介绍AJAX请... 目录1. 前言2. 基于XMLHttpRequest的进度监控2.1 基础版文件上传监控2.2 增强版多
阅读更多...
Redis分片集群的实现

Redis分片集群的实现

《Redis分片集群的实现》Redis分片集群是一种将Redis数据库分散到多个节点上的方式,以提供更高的性能和可伸缩性,本文主要介绍了Redis分片集群的实现,具有一定的参考价值,感兴趣的可以了解一... 目录1. Redis Cluster的核心概念哈希槽（Hash Slots）主从复制与故障转移2.
阅读更多...
springboot+dubbo实现时间轮算法

springboot+dubbo实现时间轮算法

《springboot+dubbo实现时间轮算法》时间轮是一种高效利用线程资源进行批量化调度的算法,本文主要介绍了springboot+dubbo实现时间轮算法,文中通过示例代码介绍的非常详细,对大家... 目录前言一、参数说明二、具体实现1、HashedwheelTimer2、createWheel3、n
阅读更多...
使用Python实现一键隐藏屏幕并锁定输入

使用Python实现一键隐藏屏幕并锁定输入

《使用Python实现一键隐藏屏幕并锁定输入》本文主要介绍了使用Python编写一个一键隐藏屏幕并锁定输入的黑科技程序,能够在指定热键触发后立即遮挡屏幕,并禁止一切键盘鼠标输入,这样就再也不用担心自己... 目录1. 概述2. 功能亮点3.代码实现4.使用方法5. 展示效果6. 代码优化与拓展7. 总结1.
阅读更多...
Mybatis 传参与排序模糊查询功能实现

Mybatis 传参与排序模糊查询功能实现

《Mybatis传参与排序模糊查询功能实现》：本文主要介绍Mybatis传参与排序模糊查询功能实现,本文通过实例代码给大家介绍的非常详细,感兴趣的朋友跟随小编一起看看吧... 目录一、#{ }和${ }传参的区别二、排序三、like查询四、数据库连接池五、mysql 开发企业规范一、#{ }和${ }传参的
阅读更多...
Docker镜像修改hosts及dockerfile修改hosts文件的实现方式

Docker镜像修改hosts及dockerfile修改hosts文件的实现方式

《Docker镜像修改hosts及dockerfile修改hosts文件的实现方式》：本文主要介绍Docker镜像修改hosts及dockerfile修改hosts文件的实现方式,具有很好的参考价... 目录docker镜像修改hosts及dockerfile修改hosts文件准备 dockerfile 文
阅读更多...
基于SpringBoot+Mybatis实现Mysql分表

基于SpringBoot+Mybatis实现Mysql分表

《基于SpringBoot+Mybatis实现Mysql分表》这篇文章主要为大家详细介绍了基于SpringBoot+Mybatis实现Mysql分表的相关知识,文中的示例代码讲解详细,感兴趣的小伙伴可... 目录基本思路定义注解创建ThreadLocal创建拦截器业务处理基本思路1.根据创建时间字段按年进
阅读更多...
SpringBoot3实现Gzip压缩优化的技术指南

SpringBoot3实现Gzip压缩优化的技术指南

《SpringBoot3实现Gzip压缩优化的技术指南》随着Web应用的用户量和数据量增加,网络带宽和页面加载速度逐渐成为瓶颈,为了减少数据传输量,提高用户体验,我们可以使用Gzip压缩HTTP响应,... 目录1、简述2、配置2.1 添加依赖2.2 配置 Gzip 压缩3、服务端应用4、前端应用4.1 N
阅读更多...

Copyright China编程 23002807@qq.com

沪ICP备2023033072号-2