FORM FRM_INITIALIZATION .
ENDFORM.
FORM FRM_INPUT_CHECK .
AUTHORITY-CHECK OBJECT 'F_BKPF_BUK'
ID 'BUKRS' FIELD P_BUKRS
ID 'ACTVT' DUMMY.
IF SY-SUBRC NE 0.
MESSAGE E004 WITH P_BUKRS.
ENDIF.
ENDFORM.
FORM FRM_FETCH_DATA .
ENDFORM.
FORM FRM_PROC_DATA .
ENDFORM.
FORM FRM_SET_ALL_FIELDCAT_SUM .
DATA: I_POS TYPE I.
CLEAR I_POS.
DEFINE APPEND_FIELDCAT.
I_POS = I_POS + 1.
GS_FIELDCAT_SUM-COL_POS = I_POS.
GS_FIELDCAT_SUM-FIELDNAME = &1.
GS_FIELDCAT_SUM-SELTEXT_L = &2.
GS_FIELDCAT_SUM-DO_SUM = &3.
GS_FIELDCAT_SUM-REF_TABNAME = &4.
GS_FIELDCAT_SUM-REF_FIELDNAME = &5.
GS_FIELDCAT_SUM-CHECKBOX = &6.
GS_FIELDCAT_SUM-KEY = &7.
APPEND GS_FIELDCAT_SUM TO GT_FIELDCAT_SUM.
CLEAR GS_FIELDCAT_SUM.
END-OF-DEFINITION.
CLEAR GT_FIELDCAT_SUM[].
APPEND_FIELDCAT 'BUKRS' '公司代码' '' '' '' '' ''.
APPEND_FIELDCAT 'GJAHR' '年度' '' '' '' '' ''.
APPEND_FIELDCAT 'MONAT' '月' '' '' '' '' ''.
APPEND_FIELDCAT 'LIFNR' '供应商' '' '' '' '' ''.
APPEND_FIELDCAT 'NAME1' '供应商名称' '' '' '' '' ''.
APPEND_FIELDCAT 'DMBTR_JZ' '年初结转额' '' '' '' '' ''.
APPEND_FIELDCAT 'DMBTR_QC' '本期初余额' '' '' '' '' ''.
APPEND_FIELDCAT 'DMBTR_FS' '本期发生额' '' '' '' '' ''.
APPEND_FIELDCAT 'DMBTR_QM' '本期末余额' '' '' '' '' ''.
ENDFORM.
FORM FRM_SET_LAYOUT_SUM .
GS_LAYOUT_SUM-ZEBRA = 'X'.
GS_LAYOUT_SUM-DETAIL_POPUP = 'X'.
GS_LAYOUT_SUM-NUMC_SUM = 'X'.
GS_LAYOUT_SUM-NO_VLINE = ''.
GS_LAYOUT_SUM-COLWIDTH_OPTIMIZE = 'X'.
GS_LAYOUT_SUM-INFO_FIELDNAME = 'COLOR'.
ENDFORM.
FORM FRM_DISPLAY_ALV_SUM .
ENDFORM.
FORM FRM_SET_ALL_FIELDCAT_DETAIL .
DATA: I_POS TYPE I.
CLEAR I_POS.
DEFINE APPEND_FIELDCAT.
I_POS = I_POS + 1.
GS_FIELDCAT_DETAIL-COL_POS = I_POS.
GS_FIELDCAT_DETAIL-FIELDNAME = &1.
GS_FIELDCAT_DETAIL-SELTEXT_L = &2.
GS_FIELDCAT_DETAIL-DO_SUM = &3.
GS_FIELDCAT_DETAIL-REF_TABNAME = &4.
GS_FIELDCAT_DETAIL-REF_FIELDNAME = &5.
GS_FIELDCAT_DETAIL-CHECKBOX = &6.
GS_FIELDCAT_DETAIL-KEY = &7.
APPEND GS_FIELDCAT_DETAIL TO GT_FIELDCAT_DETAIL.
CLEAR GS_FIELDCAT_DETAIL.
END-OF-DEFINITION.
CLEAR GT_FIELDCAT_DETAIL[].
APPEND_FIELDCAT 'BUKRS' '公司代码' '' '' '' '' ''.
APPEND_FIELDCAT 'BELNR' '凭证编号' '' '' '' '' ''.
APPEND_FIELDCAT 'GJAHR' '年度' '' '' '' '' ''.
APPEND_FIELDCAT 'BLART' '类型' '' '' '' '' ''.
APPEND_FIELDCAT 'BUDAT' '过帐日期' '' '' '' '' ''.
APPEND_FIELDCAT 'BKTXT' '抬头文本' '' '' '' '' ''.
APPEND_FIELDCAT 'USNAM' '操作员' '' '' '' '' ''.
APPEND_FIELDCAT 'BUZEI' '行' '' '' '' '' ''.
APPEND_FIELDCAT 'SGTXT' '行文本' '' '' '' '' ''.
APPEND_FIELDCAT 'HKONT' '科目' '' '' '' '' ''.
APPEND_FIELDCAT 'HKBEZ' '科目名称' '' '' '' '' ''.
APPEND_FIELDCAT 'BSCHL' 'PsK' '' '' '' '' ''.
APPEND_FIELDCAT 'SHKZG' 'S/H' '' '' '' '' ''.
APPEND_FIELDCAT 'UMSKZ' 'SGL' '' '' '' '' ''.
APPEND_FIELDCAT 'DMBTR' '本币金额' '' '' '' '' ''.
APPEND_FIELDCAT 'LIFNR' '供应商' '' '' '' '' ''.
APPEND_FIELDCAT 'NAME1' '供应商描述' '' '' '' '' ''.
CLEAR GT_FIELDCAT_DETAIL.
ENDFORM.
FORM FRM_SET_LAYOUT_DETAIL .
GS_LAYOUT_DETAIL-ZEBRA = 'X'.
GS_LAYOUT_DETAIL-DETAIL_POPUP = 'X'.
GS_LAYOUT_DETAIL-NUMC_SUM = 'X'.
GS_LAYOUT_DETAIL-NO_VLINE = ''.
GS_LAYOUT_DETAIL-COLWIDTH_OPTIMIZE = 'X'.
GS_LAYOUT_DETAIL-INFO_FIELDNAME = 'COLOR'.
ENDFORM.
FORM FRM_DISPLAY_ALV_DETAIL .
ENDFORM.
|