ZFIR101-9KE0 创建利润中心凭证
*********************************************************************** * Title : ZFIR101 * * Application : FI * * Subject : 利润中心会计与总账合并报表汇率差异调整 * * Requested by : 财务部 * * Execution : any time * * Ref no: : * * Author : RainyCai * * Req Date : 20150901 * *********************************************************************** * Differences between the exchange rate adjustment * *********************************************************************** *********************************************************************** *1.取数:按照 年度，月度，公司代码=3000，利润中心不等于 COMMON DUMMY 汇总 * 查询GLPCT表中的利润中心，会计科目， * 以公司代码货币计算金额GLPCT-HSL01,以利润中心本币计算金额GLPCT-KSL01 *2.输出:年 月 利润中心 科目 本位币金额 利润中心金额 汇差调整金额 * *3.确认金额后,点过账,产生利润中心凭证. * * *3.Que:1.月度对应字段值 1月->HSL01 /KSL01， * * 2.每月仅调整一次,利润中心凭证允许冲销， * * 3.找BAPI创建利润中心凭证， * * 4.差额 = 本位币金额（2） * 汇率（4） - 集团币（4），小数位导致尾差 * 0.01 = 0.02 * 1.27872 - 0.02 *********************************************************************** * MODIFICATIONS (latest entry at the top) * * ------------------------------------------------------------------- * * REL DATE NAME (COMPANY) DESCRIPTION TASK-NO * * --- ---- ---- --------- ----------- ------- * * * *********************************************************************** REPORT ZFIR101 MESSAGE-ID ZMM_001. TYPE-POOLS: SLIS. *TYPE-POOLS: vrm. *---------------------------------------------------------------------- * Tables *---------------------------------------------------------------------- TABLES:GLPCT,"EC-PCA: 总表 GLPCA."成本控制－利润中心会计：实际行项目 TYPES:BEGIN OF TY_TAB, RYEAR TYPE GLPCT-RYEAR, RPMAX TYPE GLPCT-RPMAX, RPRCTR TYPE GLPCT-RPRCTR,"利润中心 RACCT TYPE GLPCT-RACCT, "科目 HSL00 TYPE GLPCT-HSL01, HSL01 TYPE GLPCT-HSL01, HSL02 TYPE GLPCT-HSL01, HSL03 TYPE GLPCT-HSL01, HSL04 TYPE GLPCT-HSL01, HSL05 TYPE GLPCT-HSL01, HSL06 TYPE GLPCT-HSL01, HSL07 TYPE GLPCT-HSL01, HSL08 TYPE GLPCT-HSL01, HSL09 TYPE GLPCT-HSL01, HSL10 TYPE GLPCT-HSL01, HSL11 TYPE GLPCT-HSL01, HSL12 TYPE GLPCT-HSL01, KSL00 TYPE GLPCT-HSL01, KSL01 TYPE GLPCT-HSL01, KSL02 TYPE GLPCT-HSL01, KSL03 TYPE GLPCT-HSL01, KSL04 TYPE GLPCT-HSL01, KSL05 TYPE GLPCT-HSL01, KSL06 TYPE GLPCT-HSL01, KSL07 TYPE GLPCT-HSL01, KSL08 TYPE GLPCT-HSL01, KSL09 TYPE GLPCT-HSL01, KSL10 TYPE GLPCT-HSL01, KSL11 TYPE GLPCT-HSL01, KSL12 TYPE GLPCT-HSL01, KURSF LIKE BKPF-KURSF, "汇率 ZCHAE TYPE GLPCT-HSL01, SEL TYPE C, END OF TY_TAB. DATA:GT_TAB TYPE STANDARD TABLE OF TY_TAB, GT_TAB_USE TYPE STANDARD TABLE OF TY_TAB, GT_TAB_ALV TYPE STANDARD TABLE OF TY_TAB, WA_TAB TYPE TY_TAB. DATA:G_LINES TYPE STRING. DATA:BEGIN OF GT_END OCCURS 0, RPRCTR TYPE GLPCT-RPRCTR,"利润中心 RACCT TYPE GLPCT-RACCT, "科目 ZCHAE TYPE GLPCT-HSL01, END OF GT_END. *&------------------------------------------------------------------* *& Global Variants Definition *&------------------------------------------------------------------* FIELD-SYMBOLS: <FS_TAB> LIKE LINE OF GT_TAB. DATA:GT_EXCLUDE TYPE UI_FUNCTIONS, CONTAINER1 TYPE REF TO CL_GUI_CONTAINER, CONTAINER2 TYPE REF TO CL_GUI_CONTAINER, SPLITTER1 TYPE REF TO CL_GUI_SPLITTER_CONTAINER. CLASS GC_EVENT_RECEIVER DEFINITION DEFERRED. DATA: GCTR_ALV TYPE REF TO CL_GUI_CUSTOM_CONTAINER, GCT_ALV TYPE REF TO CL_GUI_ALV_GRID, G_EVENT_RECEIVER TYPE REF TO GC_EVENT_RECEIVER, LS_ROW_NO_WA TYPE LVC_S_ROID, LT_ROW_NO TYPE LVC_T_ROID, LT_CHANGED_ROWS TYPE LVC_T_MODI, WA_CHANGED_ROWS LIKE LINE OF LT_CHANGED_ROWS, IT_EVENTS TYPE SLIS_T_EVENT, WA_EVENTS LIKE LINE OF IT_EVENTS, LR_GRID TYPE REF TO CL_GUI_ALV_GRID, STBL TYPE LVC_S_STBL. DATA:GT_FIELDCAT TYPE LVC_T_FCAT, GS_LAYOUT TYPE LVC_S_LAYO, OK_CODE TYPE SY-UCOMM. *DATA:name1 TYPE vrm_id, * list1 TYPE vrm_values, * value1 LIKE LINE OF list1, * name2 TYPE vrm_id, * list2 TYPE vrm_values, * value2 LIKE LINE OF list2, * name3 TYPE vrm_id, * list3 TYPE vrm_values, * value3 LIKE LINE OF list3. *&------------------------------------------------------------------* *& BDC *&------------------------------------------------------------------* DATA:BDCDATA LIKE BDCDATA OCCURS 0 WITH HEADER LINE, NODATA_CHARACTER VALUE '/', NODATA VALUE '/'. * NODATA DEFAULT '/' LOWER CASE, * IT_MESSAGE LIKE BDCMSGCOLL OCCURS 0 WITH HEADER LINE. *----------------------------------------------------------------------* * CLASS lcl_event_receiver DEFINITION *----------------------------------------------------------------------* * *----------------------------------------------------------------------* CLASS GC_EVENT_RECEIVER DEFINITION. PUBLIC SECTION. METHODS: * HANDLE_DATA_CHANGED * FOR EVENT DATA_CHANGED OF CL_GUI_ALV_GRID * IMPORTING ER_DATA_CHANGED, *&工具栏设置 HANDLE_TOOLBAR FOR EVENT TOOLBAR OF CL_GUI_ALV_GRID IMPORTING E_OBJECT E_INTERACTIVE, *&用户事件 HANDLE_USER_COMMAND FOR EVENT USER_COMMAND OF CL_GUI_ALV_GRID IMPORTING E_UCOMM, *&双击事件 HANDLE_DOUBLE_CLICK FOR EVENT DOUBLE_CLICK OF CL_GUI_ALV_GRID IMPORTING E_ROW E_COLUMN. ENDCLASS. "GC_EVENT_RECEIVER DEFINITION *----------------------------------------------------------------------* * CLASS lcl_even_receiver IMPLEMENTATION *----------------------------------------------------------------------* * *----------------------------------------------------------------------* CLASS GC_EVENT_RECEIVER IMPLEMENTATION. *&功能H:设定增加自定义ALV工具栏的按钮 METHOD HANDLE_TOOLBAR. DATA:LS_TOOLBAR TYPE STB_BUTTON. LS_TOOLBAR-BUTN_TYPE = '3'. APPEND LS_TOOLBAR TO E_OBJECT->MT_TOOLBAR. * CLEAR ls_toolbar. * ls_toolbar-function = 'ALL'. * ls_toolbar-icon = icon_select_all. * APPEND ls_toolbar TO e_object->mt_toolbar. * CLEAR ls_toolbar. * ls_toolbar-function = 'DALL'. * ls_toolbar-icon = icon_deselect_all. * APPEND ls_toolbar TO e_object->mt_toolbar. * CLEAR LS_TOOLBAR. * LS_TOOLBAR-FUNCTION = 'EXE'. * LS_TOOLBAR-ICON = ICON_EXECUTE_OBJECT. * APPEND LS_TOOLBAR TO E_OBJECT->MT_TOOLBAR. ENDMETHOD. "HANDLE_TOOLBAR *&功能J:设定响应USER_COMMAND METHOD HANDLE_USER_COMMAND. CASE E_UCOMM. WHEN 'ALL'. * PERFORM FRM_SELECT_ALL. * PERFORM FRM_GRID_REFSH. WHEN 'DALL'. * PERFORM FRM_DESELECT_ALL. * PERFORM FRM_GRID_REFSH. * WHEN 'EXE'. * PERFORM FRM_UPDATE_TABLE. * PERFORM FRM_GRID_REFSH. * WHEN 'INST'."收货入库 * PERFORM FRM_INSTORE_ORDER. * WHEN 'OUST'."发货出库 * PERFORM FRM_OUTSTORE_ORDER. ENDCASE. ENDMETHOD. "HANDLE_USER_COMMAND *&功能I:设定响应双击 METHOD HANDLE_DOUBLE_CLICK. * READ TABLE GT_TAB_ALV INTO WA_TAB INDEX E_ROW-INDEX. * IF E_COLUMN-FIELDNAME EQ 'VBELN'. **&CALL ME23N * IF SY-SUBRC EQ 0. * SET PARAMETER ID 'VF' FIELD WA_TAB-VBELN. * CALL TRANSACTION 'VF03' AND SKIP FIRST SCREEN. ** PERFORM frm_call_me23n USING wa_output-ebeln. * ENDIF. * ENDIF. ENDMETHOD. "HANDLE_DOUBLE_CLICK ENDCLASS. "handle_modify ************************************************************************ * Select Screen * ************************************************************************ SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001. PARAMETER:P_RYEAR LIKE GLPCT-RYEAR DEFAULT SY-DATUM(4) OBLIGATORY, P_MONTH LIKE GLPCT-RPMAX OBLIGATORY."DEFAULT SY-DATUM+4(2) PARAMETER:P_RBUKRS LIKE GLPCT-RBUKRS DEFAULT '3000' NO-DISPLAY. SELECTION-SCREEN END OF BLOCK B1. *SELECTION-SCREEN BEGIN OF BLOCK B2 WITH FRAME TITLE TEXT-002 . *PARAMETERS:RB_01 RADIOBUTTON GROUP G1 DEFAULT 'X', * RB_02 RADIOBUTTON GROUP G1. *SELECTION-SCREEN END OF BLOCK B2. *&------------------------------------------------------------------* *& INITIALIZATION *&------------------------------------------------------------------* INITIALIZATION. *&I1.输入初始化 PERFORM FRM_INIT_DATA. *&------------------------------------------------------------------* *& AT SELECTION-SCREEN *&------------------------------------------------------------------* AT SELECTION-SCREEN. *&I2.权限检查 PERFORM FRM_AUTHORITY_CHECK. *&------------------------------------------------------------------* *& START-OF-SELECTION *&------------------------------------------------------------------* START-OF-SELECTION. PERFORM FRM_GET_DATA. **&S2.显示数据 CALL SCREEN 100. *&---------------------------------------------------------------------* *& Form FRM_INIT_DATA *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM FRM_INIT_DATA . *&月份默认当前上一月 P_MONTH = SY-DATUM+4(2) - 1. ENDFORM. " FRM_INIT_DATA *&---------------------------------------------------------------------* *& Form FRM_AUTHORITY_CHECK *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM FRM_AUTHORITY_CHECK . ENDFORM. " FRM_AUTHORITY_CHECK *&---------------------------------------------------------------------* *& Form FRM_GET_DATA *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM FRM_GET_DATA . DATA:L_DATE TYPE D. DATA:RT_RATE LIKE BAPI1093_0, L_RATE LIKE BKPF-KURSF."汇率 *&S1.BAPI取汇率（汇率时间取选择年+月+01） *& OB08取当月的汇率类型=GL,RMB:HKD的汇率 CLEAR:L_DATE,L_RATE. CONCATENATE P_RYEAR P_MONTH+1(2) '01' INTO L_DATE. *& YYYYMMDD-> DDMMYYYY CALL FUNCTION 'CONVERT_DATE_FORMAT' EXPORTING I_DATE = L_DATE IMPORTING E_CALC_DATE = L_DATE. *& 时间需要转换 CONVERSION_EXIT_INVDT_INPUT（转换退出 INVDT） CALL FUNCTION 'CONVERSION_EXIT_INVDT_INPUT' EXPORTING INPUT = L_DATE IMPORTING OUTPUT = L_DATE. CALL FUNCTION 'BAPI_EXCHANGERATE_GETDETAIL' EXPORTING RATE_TYPE = 'GL' FROM_CURR = 'RMB' "GT_OUTPUT01-WAERS TO_CURRNCY = 'HKD' DATE = L_DATE IMPORTING EXCH_RATE = RT_RATE. IF SY-SUBRC EQ 0. L_RATE = RT_RATE-EXCH_RATE. ELSE. MESSAGE E001 WITH '所选月汇率未维护，请先维护汇率！'. ENDIF. *&查找存在汇率差异数据 SELECT * INTO CORRESPONDING FIELDS OF TABLE GT_TAB FROM GLPCT WHERE RYEAR EQ P_RYEAR AND RBUKRS EQ P_RBUKRS AND RPRCTR NOT IN ('COMMON', 'DUMMY')."不等于这两个值是否能实现 IF SY-SUBRC NE 0. MESSAGE S000(OO) WITH '没有找到符合条件的数据！' DISPLAY LIKE 'E'. LEAVE TO LIST-PROCESSING. ENDIF. *&S3.处理数据 LOOP AT GT_TAB INTO WA_TAB. *&L1.月份 = 期间 WA_TAB-RPMAX = P_MONTH. *&L2.取得对应期间的金额 *&公司代码货币金额/ 利润中心货币金额 CASE P_MONTH. WHEN '001'. WA_TAB-HSL00 = WA_TAB-HSL01. WA_TAB-KSL00 = WA_TAB-KSL01. WHEN '002'. WA_TAB-HSL00 = WA_TAB-HSL02. WA_TAB-KSL00 = WA_TAB-KSL02. WHEN '003'. WA_TAB-HSL00 = WA_TAB-HSL03. WA_TAB-KSL00 = WA_TAB-KSL03. WHEN '004'. WA_TAB-HSL00 = WA_TAB-HSL04. WA_TAB-KSL00 = WA_TAB-KSL04. WHEN '005'. WA_TAB-HSL00 = WA_TAB-HSL05. WA_TAB-KSL00 = WA_TAB-KSL05. WHEN '006'. WA_TAB-HSL00 = WA_TAB-HSL06. WA_TAB-KSL00 = WA_TAB-KSL06. WHEN '007'. WA_TAB-HSL00 = WA_TAB-HSL07. WA_TAB-KSL00 = WA_TAB-KSL07. WHEN '008'. WA_TAB-HSL00 = WA_TAB-HSL08. WA_TAB-KSL00 = WA_TAB-KSL08. WHEN '009'. WA_TAB-HSL00 = WA_TAB-HSL09. WA_TAB-KSL00 = WA_TAB-KSL09. WHEN '010'. WA_TAB-HSL00 = WA_TAB-HSL10. WA_TAB-KSL00 = WA_TAB-KSL10. WHEN '011'. WA_TAB-HSL00 = WA_TAB-HSL11. WA_TAB-KSL00 = WA_TAB-KSL11. WHEN '012'. WA_TAB-HSL00 = WA_TAB-HSL12. WA_TAB-KSL00 = WA_TAB-KSL12. ENDCASE. *&排除本位币 和 集团币都为0 IF WA_TAB-HSL00 IS NOT INITIAL OR WA_TAB-KSL00 IS NOT INITIAL. *&L3.公式:差额= HSL00 * 汇率 - KSL00. WA_TAB-ZCHAE = WA_TAB-HSL00 * L_RATE - WA_TAB-KSL00. IF WA_TAB-ZCHAE IS NOT INITIAL. COLLECT WA_TAB INTO GT_TAB_ALV. ENDIF. ENDIF. ENDLOOP. DELETE GT_TAB_ALV WHERE ZCHAE IS INITIAL. *&W1.获取汇总金额 DATA:L_ZCHAE LIKE GLPCT-HSL01. LOOP AT GT_TAB_ALV INTO WA_TAB. AT LAST. *&汇总 WA_TAB-ZCHAE. SUM. MOVE WA_TAB-ZCHAE TO L_ZCHAE.. ENDAT. * AT LAST. * SUM. * WRITE: / 'Overall Sum', * SFLIGHT_WA-SEATSOCC UNDER SFLIGHT_WA-SEATSOCC. * ENDAT. *&W2.获取汇总金额 GT_END. GT_END-RPRCTR = 'DUMMY'. GT_END-RACCT = 'PCA001'. MOVE WA_TAB-ZCHAE TO GT_END-ZCHAE. COLLECT GT_END. ENDLOOP. G_LINES = LINES( GT_TAB_ALV[] ). IF G_LINES EQ 0. MESSAGE S000(OO) WITH '没有找到符合条件的数据！' DISPLAY LIKE 'E'. LEAVE TO LIST-PROCESSING. ELSE. MESSAGE S000(OO) WITH '找到数据' G_LINES '条！'. ENDIF. ENDFORM. " FRM_GET_DATA *&---------------------------------------------------------------------* *& Form FRM_SELECT_ALL *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM FRM_SELECT_ALL . LOOP AT GT_TAB_ALV ASSIGNING <FS_TAB> WHERE SEL = SPACE. WA_TAB-SEL = 'X'. ENDLOOP. ENDFORM. " FRM_SELECT_ALL *&---------------------------------------------------------------------* *& Form FRM_GRID_REFSH *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM FRM_GRID_REFSH . CALL METHOD GCT_ALV->REFRESH_TABLE_DISPLAY EXPORTING IS_STABLE = STBL. * CALL METHOD gct_alv->refresh_fieldcat_display * EXPORTING * is_stable = stbl. ENDFORM. " FRM_GRID_REFSH *&---------------------------------------------------------------------* *& Form FRM_DESELECT_ALL *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM FRM_DESELECT_ALL . LOOP AT GT_TAB_ALV ASSIGNING <FS_TAB> WHERE SEL = 'X'. WA_TAB-SEL = SPACE. ENDLOOP. ENDFORM. " FRM_DESELECT_ALL *&---------------------------------------------------------------------* *& Module STATUS_9000 OUTPUT *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* MODULE STATUS_9000 OUTPUT. DATA:TITLE TYPE LVC_TITLE. SET PF-STATUS '0100'. SET TITLEBAR '010'. CONCATENATE '共输出' G_LINES '条符合条件的数据！' INTO TITLE. *&1.Fieldcat 设置 PERFORM FRM_DISPLAY_ALV. *&2.按钮设置 PERFORM EXCLUDE_TB_FUNCTIONS TABLES GT_EXCLUDE. IF GCTR_ALV IS INITIAL. CREATE OBJECT GCTR_ALV EXPORTING CONTAINER_NAME = 'GCTR_ALV'. * CREATE OBJECT SPLITTER1 * EXPORTING * PARENT = GCTR_ALV * ROWS = 2 * COLUMNS = 1. * CALL METHOD SPLITTER1->SET_BORDER * EXPORTING * BORDER = CL_GUI_CFW=>FALSE. * CALL METHOD SPLITTER1->SET_ROW_HEIGHT * EXPORTING * ID = 1 * HEIGHT = 100. * CALL METHOD SPLITTER1->SET_VISIBLE * EXPORTING * VISIBLE = 'X'. * CALL METHOD SPLITTER1->GET_CONTAINER * EXPORTING * ROW = 1 * COLUMN = 1 * RECEIVING * CONTAINER = CONTAINER1. * CALL METHOD SPLITTER1->GET_CONTAINER * EXPORTING * ROW = 2 * COLUMN = 1 * RECEIVING * CONTAINER = CONTAINER2. CREATE OBJECT GCT_ALV EXPORTING I_PARENT = CONTAINER1 I_APPLOGPARENT = CONTAINER2. *& METHOD 显示ALV. CALL METHOD GCT_ALV->SET_TABLE_FOR_FIRST_DISPLAY EXPORTING I_SAVE = 'A' IS_LAYOUT = GS_LAYOUT IT_TOOLBAR_EXCLUDING = GT_EXCLUDE CHANGING IT_OUTTAB = GT_TAB_ALV[] IT_FIELDCATALOG = GT_FIELDCAT[]. CREATE OBJECT G_EVENT_RECEIVER. CALL METHOD GCT_ALV->REGISTER_EDIT_EVENT EXPORTING I_EVENT_ID = CL_GUI_ALV_GRID=>MC_EVT_MODIFIED. * SET HANDLER G_EVENT_RECEIVER->HANDLE_MODIFY FOR GCT_ALV. * SET HANDLER G_EVENT_RECEIVER->HANDLE_DATA_CHANGED FOR GCT_ALV. * SET HANDLER G_EVENT_RECEIVER->HANDLE_DATA_CHANGED FOR GCT_ALV. SET HANDLER G_EVENT_RECEIVER->HANDLE_USER_COMMAND FOR GCT_ALV. SET HANDLER G_EVENT_RECEIVER->HANDLE_DOUBLE_CLICK FOR GCT_ALV. SET HANDLER G_EVENT_RECEIVER->HANDLE_TOOLBAR FOR GCT_ALV. CALL METHOD GCT_ALV->SET_TOOLBAR_INTERACTIVE. CALL METHOD GCT_ALV->REGISTER_EDIT_EVENT EXPORTING I_EVENT_ID = CL_GUI_ALV_GRID=>MC_EVT_MODIFIED. CALL METHOD CL_GUI_CONTROL=>SET_FOCUS "设置焦点在REF_ALVG1上 EXPORTING CONTROL = GCT_ALV. ELSE. CALL METHOD GCT_ALV->CHECK_CHANGED_DATA. CALL METHOD GCT_ALV->REFRESH_TABLE_DISPLAY. * CALL METHOD G_EVENT_RECEIVER->HANDLE_MODIFY. ENDIF. PERFORM FRM_GRID_REFSH. ENDMODULE. " STATUS_9000 OUTPUT *&---------------------------------------------------------------------* *& Form FRM_DISPLAY_ALV *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM FRM_DISPLAY_ALV . *&设置需要输出的字段 PERFORM FRM_DISPLAY_FIELDCAT. *&显示设置 GS_LAYOUT-CWIDTH_OPT = 'A'. GS_LAYOUT-ZEBRA = 'X'. * GS_LAYOUT-BOX_FNAME = 'SEL'. GS_LAYOUT-NO_ROWMARK = 'X'. GS_LAYOUT-SEL_MODE = 'D'. GS_LAYOUT-STYLEFNAME = 'CELLTAB'. GS_LAYOUT-GRID_TITLE = TITLE. *GS_LAYOUT-DISPLAY = 'X'. ENDFORM. " FRM_DISPLAY_ALV *&---------------------------------------------------------------------* *& Form FRM_DISPLAY_FIELDCAT *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM FRM_DISPLAY_FIELDCAT . DATA:LS_FIELDCAT TYPE LVC_S_FCAT. * LS_FIELDCAT-FIELDNAME = 'SEL' . * LS_FIELDCAT-INTTYPE = 'C' . * LS_FIELDCAT-OUTPUTLEN = '1' . * LS_FIELDCAT-COLTEXT = 'SEL' . * LS_FIELDCAT-SELTEXT = 'SEL' . * LS_FIELDCAT-CHECKBOX = 'X' . * LS_FIELDCAT-EDIT = 'X' . * APPEND LS_FIELDCAT TO GT_FIELDCAT . * CLEAR LS_FIELDCAT. LS_FIELDCAT-FIELDNAME = 'RYEAR' . LS_FIELDCAT-INTTYPE = 'C' . LS_FIELDCAT-OUTPUTLEN = '5'. LS_FIELDCAT-COLTEXT = '年'. LS_FIELDCAT-SELTEXT = '年'. APPEND LS_FIELDCAT TO GT_FIELDCAT . CLEAR LS_FIELDCAT. LS_FIELDCAT-FIELDNAME = 'RPMAX' . LS_FIELDCAT-INTTYPE = 'C' . LS_FIELDCAT-OUTPUTLEN = '4' . LS_FIELDCAT-NO_ZERO = 'X' . LS_FIELDCAT-COLTEXT = '月' . LS_FIELDCAT-SELTEXT = '月' . APPEND LS_FIELDCAT TO GT_FIELDCAT . CLEAR LS_FIELDCAT. LS_FIELDCAT-FIELDNAME = 'RPRCTR' . LS_FIELDCAT-INTTYPE = 'C' . LS_FIELDCAT-OUTPUTLEN = '10' . LS_FIELDCAT-COLTEXT = '利润中心' . LS_FIELDCAT-SELTEXT = '利润中心' . APPEND LS_FIELDCAT TO GT_FIELDCAT . CLEAR LS_FIELDCAT. LS_FIELDCAT-FIELDNAME = 'RACCT' . LS_FIELDCAT-INTTYPE = 'C' . LS_FIELDCAT-OUTPUTLEN = '10' . LS_FIELDCAT-NO_ZERO = 'X' . LS_FIELDCAT-COLTEXT = '科目' . LS_FIELDCAT-SELTEXT = '科目' . APPEND LS_FIELDCAT TO GT_FIELDCAT . CLEAR LS_FIELDCAT. LS_FIELDCAT-FIELDNAME = 'HSL00' . LS_FIELDCAT-INTTYPE = 'CURR' . LS_FIELDCAT-OUTPUTLEN = '17' . LS_FIELDCAT-REF_TABLE = 'GLPCT'. LS_FIELDCAT-REF_FIELD = 'HSL01'. LS_FIELDCAT-COLTEXT = '本位币金额' . LS_FIELDCAT-SELTEXT = '本位币金额' . APPEND LS_FIELDCAT TO GT_FIELDCAT . CLEAR LS_FIELDCAT. LS_FIELDCAT-FIELDNAME = 'KSL00' . LS_FIELDCAT-INTTYPE = 'CURR' . LS_FIELDCAT-OUTPUTLEN = '17' . LS_FIELDCAT-REF_TABLE = 'GLPCT'. LS_FIELDCAT-REF_FIELD = 'HSL01'. LS_FIELDCAT-COLTEXT = '利润中心金额' . LS_FIELDCAT-SELTEXT = '利润中心金额' . APPEND LS_FIELDCAT TO GT_FIELDCAT . CLEAR LS_FIELDCAT. LS_FIELDCAT-FIELDNAME = 'ZCHAE' . LS_FIELDCAT-INTTYPE = 'CURR' . LS_FIELDCAT-OUTPUTLEN = '17' . LS_FIELDCAT-REF_TABLE = 'GLPCT'. LS_FIELDCAT-REF_FIELD = 'HSL01'. LS_FIELDCAT-COLTEXT = '汇差调整金额' . LS_FIELDCAT-SELTEXT = '汇差调整金额' . APPEND LS_FIELDCAT TO GT_FIELDCAT . CLEAR LS_FIELDCAT. ENDFORM. " FRM_DISPLAY_FIELDCAT *&---------------------------------------------------------------------* *& Form EXCLUDE_TB_FUNCTIONS *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * -->P_GT_EXCLUDE text *----------------------------------------------------------------------* FORM EXCLUDE_TB_FUNCTIONS TABLES PT_EXCLUDE TYPE UI_FUNCTIONS. DATA: LS_EXCLUDE TYPE UI_FUNC. LS_EXCLUDE = CL_GUI_ALV_GRID=>MC_FC_LOC_DELETE_ROW. APPEND LS_EXCLUDE TO PT_EXCLUDE. LS_EXCLUDE = CL_GUI_ALV_GRID=>MC_FC_LOC_INSERT_ROW. APPEND LS_EXCLUDE TO PT_EXCLUDE. LS_EXCLUDE = CL_GUI_ALV_GRID=>MC_FC_LOC_CUT. APPEND LS_EXCLUDE TO PT_EXCLUDE. LS_EXCLUDE = CL_GUI_ALV_GRID=>MC_FC_LOC_APPEND_ROW. APPEND LS_EXCLUDE TO PT_EXCLUDE. ENDFORM. " EXCLUDE_TB_FUNCTIONS *&---------------------------------------------------------------------* *& Module USER_COMMAND_9000 INPUT *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* MODULE USER_COMMAND_9000 INPUT. DATA: CODE_OK TYPE SY-UCOMM. CLEAR CODE_OK. CODE_OK = SY-UCOMM. *&强制退出 CASE CODE_OK. WHEN 'BACK' OR 'EXIT' OR 'CANCEL'. LEAVE TO SCREEN 0. WHEN OTHERS. ENDCASE. ENDMODULE. " USER_COMMAND_9000 INPUT *&---------------------------------------------------------------------* *& Module USER_COMMAND INPUT *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* MODULE USER_COMMAND INPUT. CODE_OK = SY-UCOMM. BREAK ABAP30. CASE CODE_OK. WHEN 'SAVE'. *&数据保存自建表 PERFORM FRM_SAVE_DATA. WHEN 'BACK' OR 'EXIT'. LEAVE TO SCREEN 0. WHEN OTHERS. ENDCASE. CLEAR CODE_OK. ENDMODULE. " USER_COMMAND INPUT *&---------------------------------------------------------------------* *& Form FRM_SAVE_DATA *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM FRM_SAVE_DATA . DATA:L_BUDAT TYPE SY-DATUM,"过帐日期 L_DAT TYPE SY-DATUM. DATA:L_ZCHAE TYPE CHAR40. DATA:LS_HEADDATA LIKE PROFITCENTER_HEAD, LT_LINEDATA LIKE TABLE OF PROFITCENTER_DATA WITH HEADER LINE, LT_MESSAGE LIKE TABLE OF BAPIRET2 WITH HEADER LINE, LS_RETURN LIKE BAPIRET2. DATA:LS_RETURN_BAPI LIKE BAPIRETURN. CLEAR:L_BUDAT,L_DAT. CONCATENATE P_RYEAR P_MONTH+1(2) '01' INTO L_BUDAT. *&Get last day of month * /DSD/PR_LAST_DAY_OF_MONTHS CALL FUNCTION 'LAST_DAY_OF_MONTHS' EXPORTING DAY_IN = L_BUDAT IMPORTING LAST_DAY_OF_MONTH = L_DAT. IF SY-SUBRC <> 0. * Implement suitable error handling here ENDIF. *&S1.实现9KE0，创建利润中心凭证 *& 分录1:利润中心-SBU-A , 科目 65203501 金额100 *& 汇总分录: 利润中心DUMMY 科目 PCA001 金额100.00-(-汇总金额) CLEAR:LS_HEADDATA, LT_LINEDATA,LT_LINEDATA[], LT_MESSAGE,LT_MESSAGE[],LS_RETURN. *&S1.利润中心凭证HEAD LS_HEADDATA-KURST = 'M'. "汇率类型 LS_HEADDATA-DOCUMENT_TYPE = 'A0'."FI-SL凭证类型 LS_HEADDATA-PSTNG_DATE = L_DAT. "凭证中的过帐日期 LS_HEADDATA-SPEC_PERIOD = ''. "特别期间/结转期间 LS_HEADDATA-COMP_CODE = '3000'. "公司代码 LS_HEADDATA-CURRENCY = 'HKD'. "货币码 obligatory LS_HEADDATA-LOG_SYSTEM = ''. "逻辑系统 *&S2.line LOOP AT GT_TAB_ALV INTO WA_TAB. *&科目补0 *CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT' * EXPORTING * INPUT = WA_TAB-RACCT * IMPORTING * OUTPUT = WA_TAB-RACCT. LT_LINEDATA-PROFIT_CTR = WA_TAB-RPRCTR."利润中心 LT_LINEDATA-GL_ACCOUNT = WA_TAB-RACCT. "帐号 LT_LINEDATA-IN_TC = WA_TAB-ZCHAE. "业务货币计价的金额 * LT_LINEDATA-PART_PRCTR = ''. "伙伴利润中心 * LT_LINEDATA-PLANT = ''. "工厂 * LT_LINEDATA-FUNC_AREA = '1000'. "功能范围 * LT_LINEDATA-TRADE_ID = ''. "贸易伙伴的公司标识 * LT_LINEDATA-S_COMP_CODE = ''. "发送者公司代码 * LT_LINEDATA-PARTNER_FUNC_AREA = ''. "伙伴功能范围 * LT_LINEDATA-CS_TRANS_T = '105'. "事务类型 * LT_LINEDATA-OBJECTCLASS = ''. "对象类 * LT_LINEDATA-REP_MATERIAL = ''. "利润中心记帐的代表性物料 * LT_LINEDATA-DEPR_AREA = ''. "实际折旧范围 APPEND LT_LINEDATA. ENDLOOP. READ TABLE GT_END INDEX 1. IF SY-SUBRC EQ 0. GT_END-ZCHAE = -1 * GT_END-ZCHAE. ENDIF. LT_LINEDATA-PROFIT_CTR = GT_END-RPRCTR."利润中心 LT_LINEDATA-GL_ACCOUNT = GT_END-RACCT. "帐号 LT_LINEDATA-IN_TC = GT_END-ZCHAE. "业务货币计价的金额 APPEND LT_LINEDATA. *&BAPI-9KE0 创建利润中心凭证 CALL FUNCTION 'PROFITCENTER_DOCUMENT_POST' EXPORTING HEADDATA = LS_HEADDATA IMPORTING RETURN = LS_RETURN TABLES LINEDATA = LT_LINEDATA LMESSAGE = LT_MESSAGE. IF LS_RETURN-TYPE EQ 'E'. ROLLBACK WORK. ELSE. COMMIT WORK. ENDIF. *&MESSAGE CALL FUNCTION 'BALW_BAPIRETURN_GET' EXPORTING TYPE = LS_RETURN-TYPE CL = LS_RETURN-ID NUMBER = LS_RETURN-NUMBER PAR1 = LS_RETURN-MESSAGE_V1 PAR2 = LS_RETURN-MESSAGE_V2 PAR3 = LS_RETURN-MESSAGE_V3 PAR4 = LS_RETURN-MESSAGE_V4 IMPORTING BAPIRETURN = LS_RETURN_BAPI EXCEPTIONS OTHERS = 1. MESSAGE ID LS_RETURN-ID TYPE LS_RETURN-TYPE NUMBER LS_RETURN-NUMBER WITH LS_RETURN-MESSAGE_V1 LS_RETURN-MESSAGE_V2 LS_RETURN-MESSAGE_V3 LS_RETURN-MESSAGE_V4. ENDFORM. " FRM_SAVE_DATA
本人常年接收SAP运维和远程项目，ECC，S/4HANA，CRM，WDA.
远程人天可谈，终身售后，有活请联系V信:18925782767（问问题免费，欢迎交流！）
！！请关注本人技术分享公众号：SAP翔子（可扫头像二维码）
每天分享新知识，博客文章也会陆续整理并迁移至公众号，与您一起共同学习
浙公网安备 33010602011771号