Code listing for: ZR_FI_VENDOR_BALANCE_FORM

Description: Include ZR_FI_VENDOR_BALANCE_FORM

*&---------------------------------------------------------------------*
*&  包含                ZR_FI_VENDOR_BALANCE_FORM
*&---------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*&      Form  FRM_INITIALIZATION
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM FRM_INITIALIZATION .

ENDFORM.
*&---------------------------------------------------------------------*
*&      Form  FRM_INPUT_CHECK
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
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
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM FRM_FETCH_DATA .

ENDFORM.
*&---------------------------------------------------------------------*
*&      Form  FRM_PROC_DATA
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM FRM_PROC_DATA .

ENDFORM.
*&---------------------------------------------------------------------*
*&      Form  FRM_SET_ALL_FIELDCAT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
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
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
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
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM FRM_DISPLAY_ALV_SUM .

ENDFORM.

*&---------------------------------------------------------------------*
*&      Form  FRM_SET_ALL_FIELDCAT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
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
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
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
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM FRM_DISPLAY_ALV_DETAIL .

ENDFORM.