idoc_example

IDOC 配置步骤◆EDI 环境配置◆IDCO 开发(生成应用文档->IDCO端口->出站)◆服务程序环境配置服务程序的方式配置端口逻辑目录功能函数: EDI_PATH_CREATE_MESTYP_DOCNUMHow to add a created Z function module to the existing list in WE21A: After creating the function module remember to register it first in transaction WE55 and you will be able to use it in WE21IDOC 开发◆段开发WE31◆类开发WE30◆创建消息类型WE81配置伙伴参数第一部分配置出站文件保存位置1.配置文件夹逻辑位置[FILE]A.B.填入如图的参数C.选择这行,双击左边的”分配物理到逻辑路径”分别建立如下参数D.实际路径必须如下格式/sapmnt/EP1/ZTXML/<FILENAME>/sapmnt/EP1/ZTXML 此为在服务器上已建立的目录后面跟这种格式”<FILENAME>”,表示文件名E.回到F:双击左边”逻辑文件名定义,跨集团”填入如下参数ZXML表示建的文件夹G.AL11查看存在文件夹2.建立生成文件时保存位置的功能函数此函数定义了文件名的生成及保存这个文件的位置,这里要保存的位置实际上是我们上面建的位置: /sapmnt/EP1/ZTXMLA.所以用WE55进入,建立如下关系ZFILE_GET_NAME 是我们用SE37建立的函数,路径选择”L”Function module ZFILE_GET_NAMEIMPORTDATATYPE L IKE EDIPO-ACTRIGDIRECTORY LIKE EDIPO-OUTPUTDIRFILENAME LIKE EDIPO-OUTPUTFILECONTROL LIKE EDIDCEXPORTPATHNAME LIKE EDI_PATH-PTHNAM源码FUNCTION ZFILE_GET_NAME.*"----------------------------------------------------------------------*"*"Local interface:*" IMPORTING*" VALUE(DATATYPE) LIKE EDIPO-ACTRIG*" VALUE(DIRECTORY) LIKE EDIPO-OUTPUTDIR*" VALUE(FILENAME) LIKE EDIPO-OUTPUTFILE*" VALUE(CONTROL) LIKE EDIDC STRUCTURE EDIDC*" EXPORTING*" REFERENCE(PATHNAME) LIKE EDI_PATH-PTHNAM*"----------------------------------------------------------------------CALL FUNCTION'FILE_GET_NAME'EXPORTING* CLIENT = SY-MANDTLOGICAL_FILENAME = 'ZXML'* OPERATING_SYSTEM = SY-OPSYS* PARAMETER_1 = ' '* PARAMETER_2 = ' '* PARAMETER_3 = ' '* USE_PRESENTATION_SERVER = ' '* WITH_FILE_EXTENSION = ' '* USE_BUFFER = ' '* ELEMINATE_BLANKS = 'X'IMPORTING* EMERGENCY_FLAG =* FILE_FORMAT =FILE_NAME = PATHNAME* EXCEPTIONS* FILE_NOT_FOUND = 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.IF PATHNAME IS NOT INITIAL.CONCATENATE PATHNAME SY-DATUM SY-UZEIT INTO PATHNAME.CONDENSE PATHNAME NO-GAPS.ENDIF.ENDFUNCTION.B.这里建立的其实在后面的WE21中会用到的(IDOC在通过合作伙伴中调用端口时,就会根据这里的设置把文件保存在设置的位置)3.定义收发的端口在出入站时,指定发送接收方时,就是通过这个设置端口来进出的,这里就像门一样WE21作如下设置这里把保存方法,路径,端口联系起.关键字:端口目录保存功能下面进入第二部分IDOC开发◆段开发WE31◆类开发WE30这里段,就是电文,一个行项目,但他的总长定义是1000个字符1.WE31建立段AB.把建立的段关联起来WE31建立如下关系这里存储数据的结构和关系建立2.创建消息类型WE81/WE823.WE82 IDOC TYPE ,MESSAGE TYPE 建立关联类型与消息关联起这里合作伙伴把出入站消息,类型,端口联系起来出站:由写好的函数提交数据MASTER_IDOC_DISTRIBUTE DEQUEUE_ALL 入站:相关的处理函数(WE41,WE42)4.创建IDCO处理模块（出站）A.se37 定义出站处理函数Function Module ZFM_OUTYBOUND_ASNIMPORTOBJECT LIKE NASTCONTROL_RECORD_IN LIKE EDIDCEXPORTCONTROL_RECORD_OUT LIKE EDIDCOBJECT_TYPE LIKE WFAS1-ASGTPTABLEINT_EDIDD LIKE EDIDDB.WE57建立“IDOC Message”,”IDOC Type”,”Function Module”三者之间B.se37 定义入站处理函数(处理功能代码在此实现,或者写到某个表中)Function module ZFM_INBOUND_ASNIMPORTINPUT_METHOD LIKE BDWFAP_PAR-INPUTMETHDMASS_PROCESSING LIKE BDWFAP_PAR-MASS_PROCEXPORTWORKFLOW_RESULT LIKE BDWFAP_PAR-RESULTAPPLICATION_VARIABLE LIKE BDWFAP_PAR-APPL_VARIN_UPDATE_TASK LIKE BDWFAP_PAR-UPDATETASKCALL_TRANSACTION_DONE LIKE BDWFAP_PAR-CALLTRANSTABLEIDOC_CONTRL LIKE EDIDCIDOC_DATA LIKE EDIDDIDOC_STATUS LIKE BDIDOCSTATRETURN_VARIABLES LIKE BDWFRETVARSERIALIZATION_INFO LIKE BDI_SER5定义出入站进程代码A.WE41/WE42出站入站这里的处理代码，将会在伙伴关系中出现，出入站的IDOC就与功能处理对应起来C.BD515配置伙伴参数WE20IDOC 处理生成发送IDOC*&---------------------------------------------------------------------**& Report Name:其它应付款附注表*& Create Date:2010/01/30*& Created By :WCBING*& Description:其它应付款附注表*&*& VERSION: V1.0*&---------------------------------------------------------------------**&*&---------------------------------------------------------------------*REPORT ZIDOC_TEST MESSAGE-ID ZMSGFIR.* 图标显示定义INCLUDE <ICON>.*---------------------------------数据定义区域<BEGIN>-------------------** 数据定义区域(全局变量,表,常量,数据类型等)TYPE-POOLS:SLIS.TABLES:BKPF,BSIS.*DATA:IT_LFC1 TYPE TABLE OF LFC1 WITH HEADER LINE,* WA_LFC1 LIKE LINE OF IT_LFC1.*DATA:BEGIN OF T_SAKNR OCCURS 1000,* SAKNR TYPE SAKNR,* END OF T_SAKNR.*DATA:BEGIN OF IT_LIFNR OCCURS 0,* LIFNR TYPE LIFNR,* KTOKK TYPE KTOKK,"帐户组* NAME1 TYPE NAME1,* END OF IT_LIFNR.*DATA:BEGIN OF IT_BSIK OCCURS 0,* LIFNR TYPE LIFNR,* HKONT TYPE HKONT,* SHKZG TYPE SHKZG,* GJAHR TYPE GJAHR,* MONAT TYPE MONAT,* DMBTR TYPE DMBTR,** BELNR LIKE BSIS-BELNR,"凭证编号* SGTXT LIKE BSIS-SGTXT,* DMBTR_S LIKE BSIS-DMBTR,"本币* DMBTR_H LIKE BSIS-DMBTR,"本币* YE TYPE HSLVT12,*** 汇票增加字段* BUKRS LIKE BSIK-BUKRS,* BUZEI LIKE BSEG-BUZEI,* UMSKZ LIKE BSIK-UMSKZ,* ZFBDT LIKE BSEG-ZFBDT,* WDATE LIKE BSED-WDATE,* WNAME LIKE BSED-WNAME,* WBZOG LIKE BSED-WBZOG,* END OF IT_BSIK,FP_FLAGE TYPE C.*DATA:BEGIN OF IT_BSIS OCCURS 0,* LIFNR TYPE LIFNR,* KUNNR TYPE KUNNR,* HKONT TYPE HKONT,* BELNR TYPE BELNR_D,* BUZEI TYPE BUZEI,* BUDAT TYPE BUDAT,* SGTXT TYPE SGTXT,* SHKZG TYPE SHKZG,* GJAHR TYPE GJAHR,* BUKRS TYPE BUKRS,* MONAT TYPE MONAT,* DMBTR TYPE DMBTR,* END OF IT_BSIS,IT_BSIS_T LIKE TABLE OF IT_BSIS WITH HEADER LINE.*DATA:BEGIN OF IT_DATA OCCURS 0,* LIFNR TYPE LIFNR,* KTOKK TYPE KTOKK,"帐户组* NAME1 TYPE NAME1,* YEAR_C TYPE HSLVT12,* DR TYPE HSLVT12,* CR TYPE HSLVT12,* DRCR TYPE HSLVT12,* END OF IT_DATA,* IT_ALV_SHOW LIKE TABLE OF IT_DATA* WITH HEADER LINE.*DATA:BEGIN OF IT_ALV_SHOW0200 OCCURS 0,* LIFNR TYPE LIFNR,* NAME1 TYPE NAME1,* BUDAT LIKE BSIS-BUDAT,"凭证日期* SGTXT LIKE BSIS-SGTXT,* DMBTR_S LIKE BSIS-DMBTR,"本币* DMBTR_H LIKE BSIS-DMBTR,"本币* DMBTR LIKE BSIS-DMBTR,"本币* YE TYPE HSLVT12,** SHKZG LIKE BSIS-SHKZG,*** 汇票增加字段* BUKRS LIKE BSIK-BUKRS,* BUZEI LIKE BSEG-BUZEI,* UMSKZ LIKE BSIK-UMSKZ,* ZFBDT LIKE BSEG-ZFBDT,* WDATE LIKE BSED-WDATE,* WNAME LIKE BSED-WNAME,* WBZOG LIKE BSED-WBZOG,* END OF IT_ALV_SHOW0200,* WA_ALV_SHOW0200 LIKE LINE OF IT_ALV_SHOW0200,* IT_ALV_SHOW0200X LIKE TABLE OF IT_ALV_SHOW0200 WITH HE ADER LINE.DATA: LS_BKPF TYPE ZBKPF,LS_BSIS TYPE ZBSAS,LS_EDIDC TYPE EDIDC,LT_EDIDC TYPE TABLE OF EDIDC,LT_EDIDD TYPE TABLE OF EDIDD WITH HEADER LINE,IT_DATA TYPE TABLE OF BSIS WITH HEADER LINE.*&--------------------架构---------------------------------------*DATA: GT_HEADER TYPE TABLE OF SLIS_LISTHEADER"头文件定义，固定.WITH HEADER LINE,GT_FIELDCAT_LVC TYPE LVC_T_FCATWITH HEADER LINE,GR_FIELDCAT_LVC TYPE LVC_T_FCATWITH HEADER LINE,GT_SORT_GRID TYPE LVC_T_SORTWITH HEADER LINE,GT_ROW_TABLE TYPE LVC_T_ROWWITH HEADER LINE, "行选择数据OK_CODE LIKE SY-UCOMM.CLASS LCL_EVENT_RECEIVER DEFINITION DEFERRED. "类的声明->双击事件DATA EVENT_RECEIVER TYPE REF TO LCL_EVENT_RECEIVER.CLASS LCL_EVENT_RECEIVER0200 DEFINITION DEFERRED. "类的声明->双击事件DATA EVENT_RECEIVER0200 TYPE REF TO LCL_EVENT_RECEIVER0200.*&----------------- 固定格式-------------------------------------------*DATA: GRID TYPE REF TO CL_GUI_ALV_GRID, "ALVOOGRID0200 TYPE REF TO CL_GUI_ALV_GRID, "ALVOOGS_LAYOUT_ALV TYPE LVC_S_LAYO, "ALV布局GS_TOOLBAR TYPE STB_BUTTON, "工具栏按钮G_CUSTOM_CONTAINER TYPE REF TOCL_GUI_CUSTOM_CONTAINER. "ALV容器DATA:G_DOCKING TYPE REF TO CL_GUI_DOCKING_CONTAINER,G_SPLITER TYPE REF TO CL_GUI_SPLITTER_CONTAINER,G_CONTAINER TYPE REF TO CL_GUI_CONTAINER,G_DOCKING0200 TYPE REF TO CL_GUI_DOCKING_CONTAINER,G_SPLITER0200 TYPE REF TO CL_GUI_SPLITTER_CONTAINER,G_CONTAINER0200 TYPE REF TO CL_GUI_CONTAINER.* 常量定义CONSTANTS:G_REPID LIKE SY-REPID VALUE SY-REPID,"当前系统FCODE_BACK LIKE SY-UCOMM VALUE'BACK',"返回* FCODE_DISP LIKE SY-UCOMM VALUE 'DISP',"工具栏上的自定按钮* FCODE_END LIKE SY-UCOMM VALUE 'END', "FCODE_ENTER LIKE SY-UCOMM VALUE'ENTER',"确定FCODE_EXIT LIKE SY-UCOMM VALUE'EXIT'. "退出* FCODE_PLANE LIKE SY-UCOMM VALUE 'FLIGHT'."工具栏上的自定按钮*---------------------------------数据定义区域< END >-------------------**----------------------------------主程序区域<BEGIN>--------------------**1 选择屏幕SELECTION-SCREEN BEGIN OF BLOCK BOX1 WITH FRAME TITLE TEXT-0 01.*PARAMETER :P_BUKRS LIKE BSIS-BUKRS DEFAULT '1000' OBLIG ATORY,* P_GJAHR LIKE BSIS-GJAHR DEFAULT SY-DATUM+0(4 ) OBLIGATORY,* P_MONAT LIKE BSIS-MONAT DEFAULT SY-DATUM+04( 2).**SELECT-OPTIONS:S_LIFNR FOR LFA1-LIFNR,** S_KTOKK FOR LFA1-KTOKK.*SELECT-OPTIONS:S_SAKNR FOR SKA1-SAKNR DEFAULT '2241010000' TO '2241080000'.SELECT-OPTIONS:S_BELNR FOR BKPF-BELNR.SELECTION-SCREEN END OF BLOCK BOX1.START-OF-SELECTION.* PERFORM SET_QUANX.* 数据处理-数据收集PERFORM FRM_DATA_RD.END-OF-SELECTION.*调用DYPLNRCALL SCREEN100.*----------------------------------------------------------------------** CLASS LCL_EVENT_RECEIVER DEFINITION*----------------------------------------------------------------------***----------------------------------------------------------------------*CLASS LCL_EVENT_RECEIVER DEFINITION.PUBLIC SECTION.METHODS:HANDLE_DOUBLE_CLICKFOR EVENT DOUBLE_CLICK OF CL_GUI_ALV_GRIDIMPORTING E_ROW E_COLUMN,HANDLE_HOTSPOT_CLICKFOR EVENT HOTSPOT_CLICK OF CL_GUI_ALV_GRIDIMPORTING E_ROW_ID E_COLUMN_ID ES_ROW_NO.ENDCLASS. "lcl_event_receiver DEFINITION *----------------------------------------------------------------------** CLASS LCL_EVENT_RECEIVER0200 DEFINITION*----------------------------------------------------------------------***----------------------------------------------------------------------*CLASS LCL_EVENT_RECEIVER0200 DEFINITION.PUBLIC SECTION.METHODS:HANDLE_DOUBLE_CLICKFOR EVENT DOUBLE_CLICK OF CL_GUI_ALV_GRIDIMPORTING E_ROW E_COLUMN.ENDCLASS. "LCL_EVENT_RECEIVER0200 DEFINIT ION*----------------------------------------------------------------------** CLASS lcl_event_receiver IMPLEMENTATION*----------------------------------------------------------------------***----------------------------------------------------------------------*CLASS LCL_EVENT_RECEIVER IMPLEMENTATION.METHOD HANDLE_DOUBLE_CLICK.* DATA:TMP_TABLE LIKE LINE OF IT_ALV_SHOW.* IF E_ROW-INDEX IS INITIAL.* PERFORM FRM_READ_ALL.* IF IT_ALV_SHOW0200[] IS NOT INITIAL.* CALL SCREEN 0200.* ENDIF.* ENDIF.* READ TABLE IT_ALV_SHOW INDEX E_ROW-INDEX INTO TMP_TABLE. * IF SY-SUBRC = 0.* PERFORM FRM_GET_DATA_DETAIL USING TMP_TABLE.* IF IT_ALV_SHOW0200[] IS NOT INITIAL.* CALL SCREEN 0200.* ENDIF.* ENDIF.ENDMETHOD. "handle_double_clickMETHOD HANDLE_HOTSPOT_CLICK.** PERFORM HANDLE_HOTSPOT_CLICK USING E_ROW_ID E_COLUMN_I D ES_ROW_NO.ENDMETHOD. "HANDLE_HOTSPOT_CLICK ENDCLASS. "LCL_EVENT_RECEIVER IMPLEMENTAT ION*----------------------------------------------------------------------** CLASS LCL_EVENT_RECEIVER0200 IMPLEMENTATION*----------------------------------------------------------------------***----------------------------------------------------------------------*CLASS LCL_EVENT_RECEIVER0200 IMPLEMENTATION.METHOD HANDLE_DOUBLE_CLICK.* DATA:TMP_TABLE0200 LIKE LINE OF IT_ALV_SHOW0200.* READ TABLE IT_ALV_SHOW0200 INDEX E_ROW-INDEX INTO TMP_T ABLE0200.* IF SY-SUBRC = 0.* SET PARAMETER ID 'BLN' FIELD TMP_TABLE0200-BELNR.* SET PARAMETER ID 'BUK' FIELD P_BUKRS.* SET PARAMETER ID 'GJR' FIELD TMP_TABLE0200-BUDAT+0(4). * CALL TRANSACTION 'FB03' AND SKIP FIRST SCREEN.* ENDIF.ENDMETHOD. "handle_double_click ENDCLASS. "LCL_EVENT_RECEIVER IMPLEMENTAT ION*&---------------------------------------------------------------------**& Module STATUS_0100 OUTPUT*&---------------------------------------------------------------------** 状态栏*----------------------------------------------------------------------*MODULE STATUS_0100 OUTPUT.SET PF-STATUS 'STATUS_0100'.SET TITLEBAR'TITLE_0100'.ENDMODULE. " STATUS_0100 OUTPUT*&---------------------------------------------------------------------**& Module USER_COMMAND_0100 INPUT*&---------------------------------------------------------------------** 命令区域*----------------------------------------------------------------------*MODULE USER_COMMAND_0100 INPUT.DATA:ACTION LIKE SY-UCOMM.ACTION = OK_CODE.CLEAR: OK_CODE.CASE ACTION.WHEN'BACK'.LEAVE TO SCREEN0.WHEN'EXIT'.LEAVE PROGRAM.WHEN'PRINTS'.WHEN'REF'.CALL METHOD GRID->REFRESH_TABLE_DISPLAY.WHEN'BUT'.WHEN'ACTION'.PERFORM FRM_ACTION.WHEN OTHERS.ENDCASE.ENDMODULE. "USER_COMMAND_0100 INPUT*----------------------------------------------------------------------** MODULE USER_COMMAND_0200 INPUT*----------------------------------------------------------------------***----------------------------------------------------------------------*MODULE USER_COMMAND_0200 INPUT.* DATA:ACTION0200 LIKE SY-UCOMM.* ACTION0200 = OK_CODE.* CLEAR: OK_CODE.* CASE ACTION0200.* WHEN 'BACK'.* LEAVE TO SCREEN 0.* WHEN 'EXIT'.* LEAVE PROGRAM.* WHEN 'PRINTS'.** PERFORM FRM_PRINTS.* WHEN 'REF'.* CALL METHOD GRID->REFRESH_TABLE_DISPLAY.* WHEN 'BUT'.** PERFORM FRM_EXCEL_OUT.* WHEN OTHERS.* ENDCASE.ENDMODULE. "USER_COMMAND_0100 INPUT*&---------------------------------------------------------------------**& Module PBO_INCLUDE OUTPUT*&---------------------------------------------------------------------** 处理区域 SCREEN 0100*----------------------------------------------------------------------*MODULE PBO_INCLUDE0100 OUTPUT.IF G_DOCKING IS INITIAL .CREATE OBJECT G_DOCKINGEXPORTINGREPID = G_REPIDDYNNR = '0100'SIDE = CL_GUI_DOCKING_CONTAIN ER=>DOCK_AT_BOTTOMEXTENSION = '320'EXCEPTIONSCNTL_ERROR = 1CNTL_SYSTEM_ERROR = 2CREATE_ERROR = 3LIFETIME_ERROR = 4LIFETIME_DYNPRO_DYNPRO_LINK = 5.CREATE OBJECT G_SPLITEREXPORTINGPARENT = G_DOCKINGROWS = 1COLUMNS = 1.CALL METHOD G_SPLITER->GET_CONTAINEREXPORTINGROW = 1COLUMN = 1RECEIVINGCONTAINER = G_CONTAINER.* 创建FIELDCATPERFORM FRM_FIELDCAT.* 创建LAYOUTPERFORM FRM_LAYOUT.*3. ALV数据填充<SET_TABLE_FOR_FIRST_DISPLAY>CREATE OBJECT GRIDEXPORTINGI_PARENT = G_CONTAINER."使用画布,此画布放在上面的指定的容器中CALL METHOD GRID->SET_TABLE_FOR_FIRST_DISPLAYEXPORTING* I_STRUCTURE_NAME = 'ZSFIR001' "参照结构IS_LAYOUT = GS_LAYOUT_ALV "布局设置CHANGINGIT_OUTTAB = IT_DATA[] "数据源IT_FIELDCATALOG = GT_FIELDCAT_LVC[]."字段ELSE.CALL METHOD GRID->REFRESH_TABLE_DISPLAY.ENDIF.* 4双击事件创建* CREATE OBJECT EVENT_RECEIVER.* SET HANDLER EVENT_RECEIVER->HANDLE_DOUBLE_CLICK FOR GRID. * SET HANDLER EVENT_RECEIVER->HANDLE_HOTSPOT_CLICK FOR GRID. ENDMODULE. "PBO_INCLUDE OUTPUT* 处理区域 SCREEN 0200*----------------------------------------------------------------------*MODULE PBO_INCLUDE0200 OUTPUT.* IF G_DOCKING0200 IS INITIAL .* CREATE OBJECT G_DOCKING0200* EXPORTING* REPID = G_REPID* DYNNR = '0200'* SIDE = CL_GUI_DOCKING_CONTAI NER=>DOCK_AT_BOTTOM* EXTENSION = '320'* EXCEPTIONS* CNTL_ERROR = 1* CNTL_SYSTEM_ERROR = 2* CREATE_ERROR = 3* LIFETIME_ERROR = 4* LIFETIME_DYNPRO_DYNPRO_LINK = 5.** CREATE OBJECT G_SPLITER0200* EXPORTING* PARENT = G_DOCKING0200* ROWS = 1* COLUMNS = 1.* CALL METHOD G_SPLITER0200->GET_CONTAINER* EXPORTING* ROW = 1* COLUMN = 1* RECEIVING* CONTAINER = G_CONTAINER0200.*** 创建FIELDCAT* PERFORM FRM_FIELDCAT0200.** 创建LAYOUT* PERFORM FRM_LAYOUT.**3. ALV数据填充<SET_TABLE_FOR_FIRST_DISPLAY>* CREATE OBJECT GRID0200* EXPORTING* I_PARENT = G_CONTAINER0200."使用画布,此画布放在上面的指定的容器中* CALL METHOD GRID0200->SET_TABLE_FOR_FIRST_DISPLAY* EXPORTING** I_STRUCTURE_NAME = 'ZSFIR001' "参照结构* IS_LAYOUT = GS_LAYOUT_ALV "布局设置* CHANGING* IT_OUTTAB = IT_ALV_SHOW0200[] "数据源* IT_FIELDCATALOG = GR_FIELDCAT_LVC[]."字段* ELSE.* CALL METHOD GRID0200->REFRESH_TABLE_DISPLAY.* ENDIF.** 4双击事件创建** 4双击事件创建* CREATE OBJECT EVENT_RECEIVER0200.* SET HANDLER EVENT_RECEIVER0200->HANDLE_DOUBLE_CLICK FOR G RID0200.ENDMODULE. "PBO_INCLUDE OUTPUT************************************************************ ************ （程序模块区域）-FORM ************************************************************* ************&---------------------------------------------------------------------**& Form FRM_FIELDCAT FIELDCAT-SCREEN0100*&---------------------------------------------------------------------*FORM FRM_FIELDCAT .REFRESH GT_FIELDCAT_LVC.CLEAR GT_FIELDCAT_LVC.* SCREEN-0100PERFORM ADD_FIELDCAT USING'BUKRS''10''''''''W公司代码'''''''''''''''CHANGING GT_FIELDCAT_LVC[].PERFORM ADD_FIELDCAT USING'GJAHR''10''''''''年度'''''''''''''''CHANGING GT_FIELDCAT_LVC[].PERFORM ADD_FIELDCAT USING'BELNR''20''''''''凭证号'''''''''''''''CHANGING GT_FIELDCAT_LVC[].PERFORM ADD_FIELDCAT USING'SHKZG''15''''''''借货标识'''''''''''''''CHANGING GT_FIELDCAT_LVC[].PERFORM ADD_FIELDCAT USING'DMBTR''15''''''''金额''''''''''''X'''CHANGING GT_FIELDCAT_LVC[].* PERFORM ADD_FIELDCAT USING 'DRCR' '15' '' '' '' '帐上余额' '' '' '' '' 'X' 'X' '' CHANGING GT_FIELDCAT_LVC[]. ENDFORM. " FRM_FIELDCAT*&---------------------------------------------------------------------**& Form FRM_LAYOUT*&---------------------------------------------------------------------** 创建LAYOUT*----------------------------------------------------------------------*FORM FRM_LAYOUT .*GS_LAYOUT_ALV-S_DRAGDROP-ROW_DDID = G_HANDLE_ALV. ENDFORM. "FRM_LAYOUT*&---------------------------------------------------------------------**& Form ADD_FIELDCAT*&---------------------------------------------------------------------** 向FIELDCAT添加内容*----------------------------------------------------------------------*FORM ADD_FIELDCAT USING VALUE(P_FIELDNAME) TYPE CVALUE(P_OUTPUTLEN) TYPE CP_TEXT TYPE CVALUE(P_KEY) TYPE CVALUE(P_JUST) TYPE CVALUE(P_TXT_FIELD) TYPE CVALUE(P_FIELD) TYPE CVALUE(P_TABLE) TYPE CVALUE(P_EDIT) TYPE CVALUE(P_QFIELDNAME) TYPE CVALUE(P_SUM) TYPE CVALUE(P_NO_ZERO) TYPE CVALUE(P_HOTSPOT) TYPE CCHANGING P_GR_FIELDCAT_LVC TYPE LVC_T_FCA T.DATA: LS_FCAT TYPE LVC_S_FCAT.IF P_FIELDNAME = 'CKBOX'.LS_FCAT-CHECKBOX = 'X'.ENDIF.LS_FCAT-FIELDNAME = P_FIELDNAME. "字段名LS_FCAT-OUTPUTLEN = P_OUTPUTLEN. "字段长度 LS_FCAT-COLTEXT = P_TEXT. "字段显示内容LS_FCAT-KEY = P_KEY. "关键值LS_FCAT-JUST = P_JUST. "对LS_FCAT-REF_TABLE = P_TABLE. "表名LS_FCAT-REF_FIELD = P_FIELD. "引用字段名LS_FCAT-COLTEXT = P_TXT_FIELD. "自定义字段名LS_FCAT-EDIT = P_EDIT. "是否可编辑LS_FCAT-QFIELDNAME = P_QFIELDNAME. "单位引用 LS_FCAT-DO_SUM = P_SUM.LS_FCAT-NO_ZERO = P_NO_ZERO.LS_FCAT-HOTSPOT = P_HOTSPOT.APPEND LS_FCAT TO P_GR_FIELDCAT_LVC.ENDFORM. " ADD_FIELDCAT*&---------------------------------------------------------------------**& Form FRM_DATA_RD*&---------------------------------------------------------------------** SQL数据提取区*----------------------------------------------------------------------*FORM FRM_DATA_RD.SELECT BSIS~BUKRS BSIS~GJAHR BSIS~BELNR BSIS~SHKZG BSIS~DM BTRAPPENDING CORRESPONDING FIELDS OF TABLE IT_DATAFROM BKPF INNER JOIN BSIS ON BSIS~BUKRS = BKPF~BUKRS AND BSIS~GJAHR = BKPF~GJAHR AND BSIS~BELNR = BKPF~BELNR WHERE BKPF~BELNR IN S_BELNR.SORT IT_DATA BY BUKRS GJAHR BELNR.ENDFORM. " FRM_DATA_RD*&---------------------------------------------------------------------**& Form HANDLE_HOTSPOT_CLICK*&---------------------------------------------------------------------**FORM HANDLE_HOTSPOT_CLICK USING I_ROW_ID TYPE LVC_S_ROW* I_COLUMN_ID TYPE LVC_S_COL* IS_ROW_NO TYPE LVC_S_ROID. ** READ TABLE IT_ALV_SHOW INDEX IS_ROW_NO-ROW_ID.** IF SY-SUBRC = 0.** CASE I_COLUMN_ID-FIELDNAME.** WHEN 'DR'.** WHEN 'CR'.** WHEN 'DRCR'.** WHEN 'YEAR_C'.** WHEN OTHERS.** ENDCASE.** ENDIF.**ENDFORM. " HANDLE_HOTSPOT_CLICK*&---------------------------------------------------------------------**& Form FRM_FIELDCAT0200*&---------------------------------------------------------------------** text*----------------------------------------------------------------------*FORM FRM_FIELDCAT0200 .**SCREEN-0200* REFRESH:GR_FIELDCAT_LVC.* CLEAR GR_FIELDCAT_LVC.* PERFORM ADD_FIELDCAT USING 'LIFNR' '10' '' '' '' '供应商编码' '' '' '' '' '' 'X' '' CHANGING GR_FIELDCAT_LVC[].* PERFORM ADD_FIELDCAT USING 'NAME1' '35' '' '' '' '名称' '' '' '' '' '' 'X' '' CHANGING GR_FIELDCAT_LVC[].* PERFORM ADD_FIELDCAT USING 'BELNR' '10' '' '' '' '凭证编号' '' '' '' '' '' 'X' '' CHANGING GR_FIELDCAT_LVC[].* PERFORM ADD_FIELDCAT USING 'BUDAT' '12' '' '' '' '过帐日期' '' '' '' '' '' 'X' '' CHANGING GR_FIELDCAT_LVC[].* PERFORM ADD_FIELDCAT USING 'SGTXT' '35' '' '' '' '文本' '' '' '' '' 'X' 'X' '' CHANGING GR_FIELDCAT_LVC[].* IF FP_FLAGE = 'X'.* PERFORM ADD_FIELDCAT USING 'ZFBDT' '10' '' '' '' '到期日' '' '' '' '' '' '' '' CHANGING GR_FIELDCAT_LVC[].* PERFORM ADD_FIELDCAT USING 'WDATE' '10' '' '' '' '签发日' '' '' '' '' '' '' '' CHANGING GR_FIELDCAT_LVC[].* PERFORM ADD_FIELDCAT USING 'WNAME' '20' '' '' '' '出票人' '' '' '' '' '' '' '' CHANGING GR_FIELDCAT_LVC[].* PERFORM ADD_FIELDCAT USING 'WBZOG' '20' '' '' '' '受票人' '' '' '' '' '' '' '' CHANGING GR_FIELDCAT_LVC[].* ENDIF.* PERFORM ADD_FIELDCAT USING 'DMBTR_S' '15' '' '' '' '借方金额' '' '' '' '' 'X' 'X' '' CHANGING GR_FIELDCAT_LVC[]. * PERFORM ADD_FIELDCAT USING 'DMBTR_H' '15' '' '' '' '货方金额' '' '' '' '' 'X' 'X' '' CHANGING GR_FIELDCAT_LVC[]. * PERFORM ADD_FIELDCAT USING 'YE' '15' '' '' '' '余额' '' '' '' '' 'X' 'X' '' CHANGING GR_FIELDCAT_LVC[].ENDFORM. " FRM_FIELDCAT0200*&---------------------------------------------------------------------**& Form FRM_GETDATA*&---------------------------------------------------------------------**FORM FRM_GETDATA USING LIFNR LIKE IT_DATA-LIFNR* YEAR_C LIKE IT_DATA-YEAR_C* DR LIKE IT_DATA-DR* CR LIKE IT_DATA-CR* DRCR LIKE IT_DATA-DRCR.** DATA:TS TYPE HSLVT12,TH TYPE HSLVT12,SUM TYPE HSLVT12,CXI TYPE I,* ST TYPE I,HT TYPE I,TIME TYPE I.* FIELD-SYMBOLS:<FS>,<FH>,<SUM>.* CLEAR:WA_LFC1.* READ TABLE IT_LFC1 INTO WA_LFC1 WITH KEY LIFNR = LIFNR.* IF SY-SUBRC = 0.* IF SY-DATUM+4(2) <> P_GJAHR.* TIME = 12.* ELSE.* TIME = SY-DATUM+4(2).* ENDIF.* ST = 5.HT = 6.* DO TIME TIMES.* ST = ST + 3.HT = HT + 3.* ASSIGN COMPONENT ST OF STRUCTURE WA_LFC1 TO <FS>.* ASSIGN COMPONENT HT OF STRUCTURE WA_LFC1 TO <FH>.* TS = TS + <FS>.* TH = TH + <FH>.* ENDDO.* YEAR_C = WA_LFC1-UMSAV.* DR = TS.* CR = TH.* DRCR = WA_LFC1-UMSAV + TS - TH.* ENDIF.*ENDFORM. " FRM_GETDATA*&---------------------------------------------------------------------**& Form FRM_GET_DATA_DETAIL*&---------------------------------------------------------------------**FORM FRM_GET_DATA_DETAIL USING TMP_TABLE LIKE IT_ALV_SHOW. * DATA:UMSAV TYPE HSLVT12.* FREE:IT_ALV_SHOW0200.* DATA:WA_DATA LIKE LINE OF IT_DATA.* LOOP AT IT_BSIK WHERE LIFNR = TMP_TABLE-LIFNR.** KUNNR HKONT SHKZG GJAHR MONAT DMBTR BELNR BUDAT SGTXT* MOVE-CORRESPONDING IT_BSIK TO IT_ALV_SHOW0200.* READ TABLE IT_DATA INTO WA_DATA WITH KEY LIFNR = TMP_TA BLE-LIFNR.* IT_ALV_SHOW0200-NAME1 = WA_DATA-NAME1.* IT_ALV_SHOW0200-YE = IT_BSIK-DMBTR_S - IT_BSIK-DMBTR_H. * APPEND IT_ALV_SHOW0200.* CLEAR:IT_ALV_SHOW0200.* ENDLOOP.*ENDFORM. " FRM_GET_DATA_DETAIL*&---------------------------------------------------------------------**& Form FRM_READ_ALL*&---------------------------------------------------------------------** text*----------------------------------------------------------------------*FORM FRM_READ_ALL .* DATA:UMSAV TYPE HSLVT12,TMP_TABLE LIKE LINE OF IT_ALV_SHO W.* FREE:IT_ALV_SHOW0200.** DATA:WA_DATA LIKE LINE OF IT_DATA.* LOOP AT IT_BSIK.** KUNNR HKONT SHKZG GJAHR MONAT DMBTR BELNR BUDAT SGTXT* MOVE-CORRESPONDING IT_BSIK TO IT_ALV_SHOW0200.* READ TABLE IT_DATA INTO WA_DATA WITH KEY LIFNR = IT_BSI K-LIFNR.* IT_ALV_SHOW0200-NAME1 = WA_DATA-NAME1.* IT_ALV_SHOW0200-YE = IT_BSIK-DMBTR_S - IT_BSIK-DMBTR_H. * APPEND IT_ALV_SHOW0200.* CLEAR:IT_ALV_SHOW0200.* ENDLOOP.ENDFORM. " FRM_READ_ALL*&---------------------------------------------------------------------**& Form FRM_ACTION*&---------------------------------------------------------------------** text*----------------------------------------------------------------------** --> p1 text* <-- p2 text*----------------------------------------------------------------------*FORM FRM_ACTION .CLEAR LS_EDIDC.*系统根据下面4行即可与WE20设置关联起来LS_EDIDC-MESTYP = 'ZM_FI'. "Message TypeLS_EDIDC-IDOCTP = 'ZT_FI'. "IDOC TypeLS_EDIDC-RCVPRN = 'ZXML'. "Partner Number of RecipientLS_EDIDC-RCVPRT = 'US'. "Partner Type of ReceiverLOOP AT IT_DATA.AT NEW BELNR.*添加IDOC结点CLEAR LT_EDIDD.LT_EDIDD-SEGNAM = 'ZBKPF'."结点名称LT_EDIDD-DTINT2 = 0.CLEAR LS_BKPF.LS_BKPF-BELNR = IT_DATA-BELNR.LS_BKPF-BUKRS = IT_DATA-BUKRS.LS_BKPF-GJAHR = IT_DATA-GJAHR.LT_EDIDD-SDATA = LS_BKPF. "结点内容APPEND LT_EDIDD.ENDAT.CLEAR LT_EDIDD.LT_EDIDD-SEGNAM = 'ZBSAS'.LT_EDIDD-DTINT2 = 0.CLEAR LS_BSIS.。