很多報表都是用BO,BI什麼做的，不僅廢，而且很多BO顧問不懂程式碼，寫出來的報表挫的要死。。。。

WDA的網頁圖形報表分析，將就著玩玩吧。

新建程式：ZWD_GRAPH  對應檢視VIEW,視窗ZWD_GRAPH

一、節點和屬性設定

context頁籤，新增節點：GRAPH

增加屬性：DESCRIPTION         STRING

                  WERKS1                  I

                  WERKS2                  I

                  WERKS3                  I

 二、頁面佈局

根節點ROOTUIELEMENTCONTAINER下加入ELEMENT :BusinessGraphics

右鍵BusinessGraphics物件，加入CATEGORY-描述欄位-對應上面的DESCRIPTION屬性

加入上面的三個數值，SERIES

分別將BusinessGraphics綁到GRAPH

CATEGORY綁到DESCRIPTION

WERKS1   ->WERKS1

WERKS2   ->WERKS2

WERKS3   ->WERKS3

初始化複製，或者動作更新值就OK了

METHOD WDDOINIT .
  DATA LO_ND_GRAPH TYPE REF TO IF_WD_CONTEXT_NODE.
  DATA LT_GRAPH TYPE WD_THIS->ELEMENTS_GRAPH.
  DATA:LS_GRAPH TYPE WD_THIS->ELEMENT_GRAPH.
  DATA:V_RAND TYPE I.

  LO_ND_GRAPH = WD_CONTEXT->GET_CHILD_NODE( NAME = WD_THIS->WDCTX_GRAPH ).

  DEFINE RANDOM.
    CALL FUNCTION 'GENERAL_GET_RANDOM_INT'
    EXPORTING
      RANGE  = 90
    IMPORTING
      RANDOM = V_RAND.
  END-OF-DEFINITION.


  LS_GRAPH-DESCRIPTION = 'Q1'.
  RANDOM.
  LS_GRAPH-WERKS1 = V_RAND.
  RANDOM.
  LS_GRAPH-WERKS2 = V_RAND.
  RANDOM.
  LS_GRAPH-WERKS3 = V_RAND.
  APPEND LS_GRAPH TO LT_GRAPH.

  LS_GRAPH-DESCRIPTION = 'Q2'.
  RANDOM.
  LS_GRAPH-WERKS1 = V_RAND.
  RANDOM.
  LS_GRAPH-WERKS2 = V_RAND.
  RANDOM.
  LS_GRAPH-WERKS3 = V_RAND.
  APPEND LS_GRAPH TO LT_GRAPH.


  LS_GRAPH-DESCRIPTION = 'Q3'.
  RANDOM.
  LS_GRAPH-WERKS1 = V_RAND.
  RANDOM.
  LS_GRAPH-WERKS2 = V_RAND.
  RANDOM.
  LS_GRAPH-WERKS3 = V_RAND.
  APPEND LS_GRAPH TO LT_GRAPH.





  LO_ND_GRAPH->BIND_TABLE( NEW_ITEMS = LT_GRAPH SET_INITIAL_ELEMENTS = ABAP_TRUE ).

ENDMETHOD.

很多報表都是用BO,BI什麼做的，不僅廢，而且很多BO顧問不懂程式碼，寫出來的報表挫的要死。。。。

WDA的網頁圖形報表分析，將就著玩玩吧。

新建程式：ZWD_GRAPH  對應檢視VIEW,視窗ZWD_GRAPH

一、節點和屬性設定

context頁籤，新增節點：GRAPH

增加屬性：DESCRIPTION         STRING

                  WERKS1                  I

                  WERKS2                  I

                  WERKS3                  I

 二、頁面佈局

根節點ROOTUIELEMENTCONTAINER下加入ELEMENT :BusinessGraphics

右鍵BusinessGraphics物件，加入CATEGORY-描述欄位-對應上面的DESCRIPTION屬性

加入上面的三個數值，SERIES

分別將BusinessGraphics綁到GRAPH

CATEGORY綁到DESCRIPTION

WERKS1   ->WERKS1

WERKS2   ->WERKS2

WERKS3   ->WERKS3

初始化複製，或者動作更新值就OK了

METHOD WDDOINIT .
  DATA LO_ND_GRAPH TYPE REF TO IF_WD_CONTEXT_NODE.
  DATA LT_GRAPH TYPE WD_THIS->ELEMENTS_GRAPH.
  DATA:LS_GRAPH TYPE WD_THIS->ELEMENT_GRAPH.
  DATA:V_RAND TYPE I.

  LO_ND_GRAPH = WD_CONTEXT->GET_CHILD_NODE( NAME = WD_THIS->WDCTX_GRAPH ).

  DEFINE RANDOM.
    CALL FUNCTION 'GENERAL_GET_RANDOM_INT'
    EXPORTING
      RANGE  = 90
    IMPORTING
      RANDOM = V_RAND.
  END-OF-DEFINITION.


  LS_GRAPH-DESCRIPTION = 'Q1'.
  RANDOM.
  LS_GRAPH-WERKS1 = V_RAND.
  RANDOM.
  LS_GRAPH-WERKS2 = V_RAND.
  RANDOM.
  LS_GRAPH-WERKS3 = V_RAND.
  APPEND LS_GRAPH TO LT_GRAPH.

  LS_GRAPH-DESCRIPTION = 'Q2'.
  RANDOM.
  LS_GRAPH-WERKS1 = V_RAND.
  RANDOM.
  LS_GRAPH-WERKS2 = V_RAND.
  RANDOM.
  LS_GRAPH-WERKS3 = V_RAND.
  APPEND LS_GRAPH TO LT_GRAPH.


  LS_GRAPH-DESCRIPTION = 'Q3'.
  RANDOM.
  LS_GRAPH-WERKS1 = V_RAND.
  RANDOM.
  LS_GRAPH-WERKS2 = V_RAND.
  RANDOM.
  LS_GRAPH-WERKS3 = V_RAND.
  APPEND LS_GRAPH TO LT_GRAPH.





  LO_ND_GRAPH->BIND_TABLE( NEW_ITEMS = LT_GRAPH SET_INITIAL_ELEMENTS = ABAP_TRUE ).

ENDMETHOD.

搜尋

複製