赛跑网

 找回密码
 注册

QQ登录

只需一步,快速开始

快捷登录

查看: 3585|回复: 13

[ABAP] ABAP实现SAP查看股票行情

[复制链接]
发表于 2015-7-15 20:55:12 | 显示全部楼层 |阅读模式
最近股市行情异常火爆,牵动了无数股市的心。可是在上班时间盯股票可是件危险的事,所以就有了各种伪装的看股软件。以下我们就在SAP中伪装股票软件,把股票行情隐藏在报表中。

在主意来源于网络:http://blog.itpub.net/73630/viewspace-1028306/,由于年久失修,已经不能使用了。经过一番整理,终于修好了。

让我们先看看效果:
图一,股票行情查看
6630438845048244328.jpg

图二,K线图
6630791788281051247.jpg


功能十分简单:
1.从新浪网站读取股票信息,解析并显示。
2.调用新浪接口,显示分时图,K线图。
3.定时刷新,默认是5秒。

实现过程。
1.首先需要保证你的SAP服务器能访问外网。
2.事务码SE38,新建程序,把源代码粘贴进去。
3.新建屏幕100。增加4个自定义控件,分别命名为F_CONTROL,R_CONTROL,Z_CONTROL,Y_CONTROL。

源代码:
*&---------------------------------------------------------------------*
*& Report Z_HTTP_STOCK
*&
*&---------------------------------------------------------------------*
*&Author: Alan Gu
*&本程序只作个人测试用途,
*http://blog.itpub.net/73630/viewspace-1028306/
*&五秒钟更新一次
*&双击股票代码可以查看相关的K线图
*&---------------------------------------------------------------------*

REPORT z_http_stock.
TYPE-POOLS: abap,slis.

*INCLUDE zstock_json_util.

DATA:f_picture TYPE REF TO cl_gui_picture,
     r_picture TYPE REF TO cl_gui_picture,
     z_picture TYPE REF TO cl_gui_picture,
     y_picture TYPE REF TO cl_gui_picture.

DATA: f_container TYPE REF TO cl_gui_custom_container,
      r_container TYPE REF TO cl_gui_custom_container,
      y_container TYPE REF TO cl_gui_custom_container,
      z_container TYPE REF TO cl_gui_custom_container.
DATA:f_url TYPE cndp_url,
     r_url TYPE cndp_url,
     z_url TYPE cndp_url,
     y_url TYPE cndp_url.

DATA:stock_url(20) TYPE c.
DATAk_code LIKE sy-ucomm.

DATA :
  ls_layout     TYPE slis_layout_alv,
  lt_sort       TYPE slis_t_sortinfo_alv,
  ls_sort       TYPE slis_sortinfo_alv,
  lt_event_exit TYPE slis_t_event_exit,
  ls_event_exit TYPE slis_event_exit.
*-----------------------*
* ALV SYSTEM VARIABLES *
*-----------------------*
DATA: fieldtab    TYPE slis_t_fieldcat_alv,
      wa_fieldtab TYPE LINE OF slis_t_fieldcat_alv,
      heading     TYPE slis_t_listheader,
      layout      TYPE slis_layout_alv,
      events      TYPE slis_t_event,
      excluding   TYPE slis_t_extab,
      filter      TYPE slis_t_filter_alv,
      repname     LIKE sy-repid VALUE sy-repid,
      f2code      LIKE sy-ucomm VALUE '&ETA',
      g_save      TYPE c,
      g_exit      TYPE c,
      g_variant   LIKE disvariant,
      gx_variant  LIKE disvariant.

FIELD-SYMBOLS: <dyn_table> TYPE STANDARD TABLE,
               <dyn_wa> ,
               <dyn_field>.
DATA: dy_table TYPE REF TO data,
      dy_line  TYPE REF TO data,
      xfc      TYPE lvc_s_fcat,
      ifc      TYPE lvc_t_fcat.
DATA: num(6) TYPE c.
DATA: BEGIN OF wa_num,
        num(6) TYPE c,
      END OF wa_num.
DATA: BEGIN OF wa_lin,
        str TYPE string,
      END OF wa_lin.
DATA: it_num LIKE TABLE OF wa_num WITH HEADER LINE,
      it_res LIKE TABLE OF wa_lin WITH HEADER LINE.
DATA: tmp_num(6) TYPE n,
      idx        TYPE i,
      idx_tmp    TYPE i.
TYPES: BEGIN OF ty_list,
         fl(30),
       END OF ty_list.
DATA: it_list TYPE TABLE OF ty_list WITH HEADER LINE.


TYPES: BEGIN OF ty_sina_live,
    sname TYPE char20,"股票名字
    topen TYPE char20,"今日开盘价
    yclose TYPE char20,"昨日收盘价;
    cprice TYPE char20,"当前价格;
    thigh TYPE char20,"当日最高价
    tlow TYPE char20,"今日最低价
    buy TYPE char20,"竞买价,即“买一”报价;
    sale TYPE char20,"竞卖价,即“卖一”报价;
    number TYPE char20,"成交的股票数
    buy11 TYPE char20,"买一,数量
    buy12 TYPE char20,"买一,报价
    buy21 TYPE char20,"买二,数量
    buy22 TYPE char20,"买二,报价
    buy31 TYPE char20,"买三,数量
    buy32 TYPE char20,"买三,报价
    buy41 TYPE char20,"买四,数量
    buy42 TYPE char20,"买四,报价
    buy51 TYPE char20,"买五,数量
    buy52 TYPE char20,"买五,报价
    sale11 type char20,"卖一,数量
    sale12 type char20,"卖一,报价
    sale21 type char20,"卖二,数量
    sale22 type char20,"卖二,报价
    sale31 type char20,"卖三,数量
    sale32 type char20,"卖三,报价
    sale41 type char20,"卖四,数量
    sale42 type char20,"卖四,报价
    sale51 type char20,"卖五,数量
    sale52 type char20,"卖五,报价
    date type char20,"日期
    time type char20,"时间
  END OF ty_sina_live.

*----------------------------------------------------------------------*
* CLASS lcl_receiver DEFINITION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS lcl_receiver DEFINITION.
  PUBLIC SECTION.
    METHODS:
      handle_finished FOR EVENT finished OF cl_gui_timer.
ENDCLASS. "lcl_receiver DEFINITION

*----------------------------------------------------------------------*
* CLASS lcl_receiver IMPLEMENTATION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS lcl_receiver IMPLEMENTATION.
  METHOD handle_finished.
    CALL METHOD cl_gui_cfw=>set_new_ok_code
      EXPORTING
        new_code = '&NTE'.
  ENDMETHOD. "handle_finished
ENDCLASS. "lcl_receiver IMPLEMENTATION

DATA: receiver TYPE REF TO lcl_receiver,
      timer    TYPE REF TO cl_gui_timer.

DEFINE init_field.
  clear &1.
  &1-fieldname = &2.
  &1-reptext_ddic = &3.
  &1-hotspot = &4.
  if &5 = 'X'.
    &1-emphasize = 'X'.
  endif.
  append &1 to fieldtab.
END-OF-DEFINITION.

DEFINE init_ifc.
  clear xfc.
  xfc-fieldname = &1.
  xfc-datatype = &2.
  xfc-inttype = &3.
  xfc-intlen = &4.
  xfc-decimals = &5.
  xfc-hotspot = &6.
  append xfc to ifc.
END-OF-DEFINITION.

SELECT-OPTIONS:
s_num FOR num.

INITIALIZATION.
*默认自己设的变式U+登录用户名
  PERFORM init_variant.

游客,如果您要查看本帖隐藏内容请回复









最近访客

  • tbb1177
    2023-11-29
  • wx_11001
    2023-03-11
  • ken.chan
    2022-04-11
  • sapxf
    2022-01-19
  • 花花
    2021-09-16
  • Roy
    2021-04-18
  • jack.fan
    2021-04-18
  • gemenos
    2021-02-15
  • pachenju
    2020-09-27




上一篇:【最生动的财务入门书-小艾上班记全套-懂得入哦!】
下一篇:ABAP实现SAP查看股票行情
本楼点评(0) 收起
发表于 2016-4-7 08:56:17 | 显示全部楼层
你好,学习下
本楼点评(0) 收起
发表于 2016-5-16 20:30:43 | 显示全部楼层
再搞个自动下单
本楼点评(0) 收起
发表于 2016-5-19 14:06:50 | 显示全部楼层
看一下,学习一下
本楼点评(0) 收起
发表于 2017-2-4 06:05:38 | 显示全部楼层
很有创意啊,佩服
本楼点评(0) 收起
发表于 2018-5-3 23:30:23 | 显示全部楼层
nice job!
student!
本楼点评(0) 收起
发表于 2018-10-26 17:01:04 | 显示全部楼层
HELLO,想看如何实现

本楼点评(0) 收起
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|联系我们|赛跑网 ( QQ:108519493QQfsq

GMT+8, 2024-3-28 23:39 , Processed in 0.242222 second(s), 75 queries .

Powered by 91SAP X3.4

© 2001-2023 91sap Team.

快速回复 返回顶部 返回列表