我想飘啊飘 飘到梦的天堂 那会是什么时候呢

JQuery 图形展示

 SAP 查询: 维护查询: SQ01/SQ02/SQ03.     我的学习是参考这个链接做的

SAP 图形显示 参考DEMO就好了, DEMO相关的包 SGRP  SLIS,总有一款你想要的

输入报名的时候 看到 ALV的DEMO包,就顺手也记录下来,  SLIS

随便上个代码 反正也不是写的

************************************************************************
*                                                                      *
* Aufruf der SAP-Statistikgrafik über Funktionsbaustein STAT_GRAPH_REF *
*                                                                      *
*----------------------------------------------------------------------*
*                                                                      *
* Darstellung von Aktienkursen mit Zeitachse                           *
*                                                                      *
* Beendigung des Reports mit Taste PF3 im Grafik-Fenster               *
*                                                                      *
************************************************************************

REPORT BCGRST03.

DATA: BEGIN OF SOPTS OCCURS 1,
        C(80),
      END OF SOPTS.

DATA: BEGIN OF SDATA OCCURS 1,
        F TYPE F,
      END OF SDATA.

DATA: BEGIN OF SVALS OCCURS 1,
        D TYPE D,
      END OF SVALS.

DATA: ANZAHL TYPE P VALUE 14,         "// Anzahl der anzuzeigenden Tage
      START TYPE D VALUE '19920101',  "// Startdatum
      KURVE_NR(2),                    "// Rückgabeparameter
      PUNKT_NR(2).                    "// Rückgabeparameter


*** Zeitachse mit Werten versehen ***

DO ANZAHL TIMES.
  SVALS-D = START.           "// Tabelle SVALS für Referenzachse füllen
  APPEND SVALS.
  ADD 1 TO START.
ENDDO.


*** Aktienkurs 1 ***

DO ANZAHL TIMES.
  SDATA-F = 140 + 10 * SIN( SY-INDEX ).   "// Datentabelle SDATA füllen
  APPEND SDATA.
ENDDO.

SOPTS = '$'.                           "// Optionentabelle SOPTS füllen
WRITE ANZAHL TO SOPTS+1.
APPEND SOPTS.
SOPTS = 'COLOR=7'.
APPEND SOPTS.
SOPTS = 'C_ART=0'.
APPEND SOPTS.
SOPTS = 'THICK=1'.
APPEND SOPTS.
SOPTS = 'LTEXT=Kurs 1'.
APPEND SOPTS.
SOPTS = 'DTEXT=Verlauf von Kurs 1'.
APPEND SOPTS.


*** 第二条线 ***

DO ANZAHL TIMES.
  SDATA-F = 130 + 20 * COS( SY-INDEX ).
  APPEND SDATA.
ENDDO.

SOPTS = '$'.
WRITE ANZAHL TO SOPTS+1.
APPEND SOPTS.
SOPTS = 'COLOR=4'.
APPEND SOPTS.
SOPTS = 'C_ART=0'.
APPEND SOPTS.
SOPTS = 'THICK=1'.
APPEND SOPTS.
SOPTS = 'LTEXT=Kurs 2'.
APPEND SOPTS.
SOPTS = 'DTEXT=Verlauf von Kurs 2'.
APPEND SOPTS.


*----------------------------------------------------------------------*
* Graphische Ausgabe                                                   *
*----------------------------------------------------------------------*


CALL FUNCTION 'STAT_GRAPH_REF'
       EXPORTING
          TTEXT  = '标题'
          UTEXT  = '子标题'
          ATYPE  = 'TIME'
          TUNIT  = '2'
          INFORM = 'X'
       IMPORTING
          KURVE  = KURVE_NR
          INDEX  = PUNKT_NR
       TABLES
          DATA   = SDATA
          VALS   = SVALS
          OPTS   = SOPTS.


*** Daten der selektierten Punktes anzeigen ***

"SKIP 2.
"WRITE: /2 'Nummer der selektierten Kurve :   ', KURVE_NR.
"SKIP 1.
"WRITE: /2 'Nummer des selektierten Punktes : ', PUNKT_NR.


*** alle Graphikfenster schließen ***

"CALL FUNCTION 'GRAPH_DIALOG'  EXPORTING  CLOSE = 'X'.

 

posted @ 2015-01-13 17:21  charles-xiao  阅读(274)  评论(0)    收藏  举报