主页 > 云储存 > > 正文

企业邮箱_数据库wow_多少钱

来源:胜利云 发布时间:2022-01-01 21:18 标签:企业邮箱数据库少钱
浏览:

企业邮箱_数据库wow_多少钱

Hi Abapers,

It was long time ago since I posted something on SCN and these days I’m trying to make, let’s say, GIS inside SAP ERP..

So a wanted to be able to draw some polygon on map and then get his coordinates and save them inside SAPs database, but nowhere on the web I couldn’t find the whole solution, just fragments. After a couple of days I finally made it and this is my most bare solution:

And the code of course:

*&———————————————————————* *& Report  Z_VE_MAP *& *&———————————————————————* *& *& *&———————————————————————*

REPORT z_ve_map.

* objects for browser DATA: html_control TYPE REF TO cl_gui_html_viewer,       html_container TYPE REF TO cl_gui_custom_container.

DATA: w_url TYPE char255.

TYPES : BEGIN OF y_html,         dataset(255) TYPE c,         END OF y_html.

DATA: e_data  TYPE y_html,       ts_data TYPE STANDARD TABLE OF y_html.

DATA: myevent_tab TYPE cntl_simple_events,       myevent TYPE cntl_simple_event.

DATA: ok_code LIKE sy–ucomm,       save_ok LIKE sy–ucomm.

DATA: edframe(255),       edaction(256),       edgetdata(2048),       edpostdataline(1024),       postdata_tab TYPE cnht_post_data_tab,       postdata_wa TYPE cnht_post_data_line,       edquery_table TYPE cnht_query_table.

DATA: query_wa LIKE LINE OF edquery_table,       coord_string TYPE string.

TYPES:  mytype TYPE char45. DATA: lt_split TYPE TABLE OF mytype WITH HEADER LINE,       ls_split TYPE mytype.

TYPES: BEGIN OF coord_type,       flag TYPE c,        rbr TYPE n LENGTH 3,       coor TYPE char45,        END OF coord_type. DATA: coord_itab TYPE TABLE OF coord_type,       coord_wa TYPE coord_type,       counter TYPE n LENGTH 3 VALUE 0.

***************************************************** *              CLASS cl_myevent_handler             * ***************************************************** CLASS cl_myevent_handler DEFINITION.

PUBLIC SECTION.     METHODS: on_sapevent                FOR EVENT sapevent OF cl_gui_html_viewer                  IMPORTING action frame getdata postdata query_table.

ENDCLASS.                    "cl_myevent_handler DEFINITION **************************************************** *    cl_myevent_handler implementation             * **************************************************** CLASS cl_myevent_handler IMPLEMENTATION.

METHOD on_sapevent.

CLEAR: coord_string, lt_split, ls_split.

LOOP AT postdata INTO postdata_wa.       CONCATENATE coord_string postdata_wa INTO coord_string.     ENDLOOP.

SHIFT coord_string BY 4 PLACES.

SPLIT coord_string AT ‘)’ INTO TABLE lt_split.

LOOP AT lt_split INTO ls_split.       SHIFT ls_split LEFT DELETING LEADING ‘,’.       MODIFY lt_split FROM ls_split.     ENDLOOP.     CLEAR counter.     LOOP AT lt_split INTO ls_split.       SHIFT ls_split LEFT DELETING LEADING ‘(‘.       MODIFY lt_split FROM ls_split.       counter = counter + 1.       coord_wa–rbr = counter.       coord_wa–coor = ls_split.       APPEND coord_wa TO coord_itab.       CLEAR coord_wa.     ENDLOOP.

ENDMETHOD.                    "on_sapevent

ENDCLASS.                    "cl_myevent_handler IMPLEMENTATION

DATA: evt_receiver TYPE REF TO cl_myevent_handler.

*&———————————————————————* *&      Module  STATUS_0100  OUTPUT *&———————————————————————* *       text *———————————————————————-* MODULE status_0100 OUTPUT. *  SET PF-STATUS ‘xxxxxxxx’. *  SET TITLEBAR ‘xxx’.

IF html_container IS INITIAL.

CREATE OBJECT html_container       EXPORTING         container_name              = ‘CC_BROWSER’       EXCEPTIONS         cntl_error                  = 1         cntl_system_error           = 2         create_error                = 3         lifetime_error              = 4         lifetime_dynpro_dynpro_link = 5         OTHERS                      = 6.     CASE sy–subrc.       WHEN 0. *       WHEN OTHERS.         RAISE cntl_error.     ENDCASE.   ENDIF.

IF html_control IS INITIAL.

CREATE OBJECT html_control       EXPORTING         parent             = html_container       EXCEPTIONS         cntl_error         = 1         cntl_install_error = 2         dp_install_error   = 3         dp_error           = 4         OTHERS             = 5.

IF sy–subrc 0.       RAISE cntl_error.     ENDIF.

发表评论
验证码: 点击我更换图片

注:网友评论仅供其表达个人看法,并不代表本站立场。

热门文章

  • 对象存储_网站集约化建设_哪家好
    对象存储_网站集约化建设_哪家好

    对象存储_网站集约化建设_哪家好

    当戴夫·麦克卢尔首次提出海盗指标的概念时,它震撼了创业界的核心。尽管你现在可能知道他是500家初创企业的幕后推手,但在贝宝(PayPal)上市前担任...

  • 数据库_数据库事务原理_安全稳定
    <strong>数据库_数据库事务原理_安全稳定</strong>

    数据库_数据库事务原理_安全稳定

    为CloudFlare客户提供对源站的免费和高性能加密2014年秋季,CloudFlare推出了Universal SSL,并将通过HTTPS访问的网站数量增加了一倍。在短短几天内,我们颁发了...

  • 百度云_企业邮箱怎么设置签名_排行榜
    百度云_企业邮箱怎么设置签名_排行榜

    百度云_企业邮箱怎么设置签名_排行榜

    在快节奏的销售世界里,时间是无价的。这正是为什么你需要停止切换标签,使用新的Pipedrive Chrome扩展直接从Gmail使用Pipedrive的强大功能。如果你是一个狂...

  • 游戏服务器_节点服务器_优惠
    <strong>游戏服务器_节点服务器_优惠</strong>

    游戏服务器_节点服务器_优惠

    nomad0.11为任务引入了生命周期部分,可以用来表示任务依赖关系。这可以用来表示任务组中任务之间的任务依赖关系,甚至可以利用consur来表示任务间的任...

  • 企业邮箱_华为云techwave_企业级
    <strong>企业邮箱_华为云techwave_企业级</strong>

    企业邮箱_华为云techwave_企业级

    遵守一套不断发展的数据隐私法规的需求可能看起来很繁重,或者会导致公司停滞不前,不知道下一步该采取什么措施。如果不了解这些法规对日常运营的...

云储存

更多 >
  • <strong>虚拟主机_cf连接服务器失败怎么办_怎么买</strong>
    虚拟主机_cf连接服务器失败怎么办_怎么买

    偶尔我会收到一些问题,当用户单击SAP TM屏幕中的超链接时,会出现一条错误消息"未能解析基于对象的导航目标"。 让我们看看为什么会出现此错误消息以...

  • <strong>美国服务器_阿里云p9待遇_哪个好</strong>
    美国服务器_阿里云p9待遇_哪个好

    客户通常会制作定制报表,在这种情况下,对数据进行测试,很多次测试都是正确的,但他们遗漏了使用专用分类账时所需的重要部分,即使用Tcode GWUL. ...

云储存免备案CDN_网站建设优化推广_安全稳定
云储存域名交易_腾讯云服务器开放端口_排行榜
云储存京东云_阿里云时序数据库_三重好礼
云储存MySQL数据库_为什么要进行网站建设_返利
云储存数据库服务器_传奇物品数据库_速度快