***********************************************************************
* 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
