文档章节

一个不使用CRM中间件成功地将ERP Material下载到CRM的原型开发

o
 osc_wz0c6jgl
发布于 03/19 20:03
字数 442
阅读 15
收藏 0

「深度学习福利」大神带你进阶工程师,立即查看>>>

https://yq.aliyun.com/articles/743413


Requirement

Replicate a material type for example MAT_YYYY into CRM system without using middleware.
After replication, the generated category could be used in normal product scenario ( for example, create new product based on this category, read / query operation on this category etc )

I have successfully written a API which could replicate data ( to simulate T134 ) into CRM category table.
Once this API is executed, a new category will be created in CRM system, without middleware.



This category could be found in tcode COMM_HIERARCHY:

Unfortunately, it is not visible in product creation page :(

bug fixed now. POC is done.
Run method in SE24, specify new product category id via parameter iv_cat_id:

Execute method, ensure ev_success equals to abap_true.

Once created, the category could be searched via tcode COMM_HIERARCHY:

And the category could be used to create new product in WebUI:



source code

 METHOD replicate_category.

    CONSTANTS:
      BEGIN OF gc_application,
        sales      TYPE comt_application VALUE '01', "r3-produkthier
        purchasing TYPE comt_application VALUE '02', "r3 mat class
        product    TYPE comt_application VALUE '03', "r3 mat types
        config     TYPE comt_application VALUE '04',
        internet   TYPE comt_application VALUE '05',
      END OF gc_application.

    CONSTANTS:

      BEGIN OF gc_product_type,
        material  TYPE comt_product_type VALUE '01',
        service   TYPE comt_product_type VALUE '02',
        finance   TYPE comt_product_type VALUE '03',
        ip_prod   TYPE comt_product_type VALUE '04',
        warranty  TYPE comt_product_type VALUE '05',
        tradeitem TYPE comt_product_type VALUE '06',
        fs_prod   TYPE comt_product_type VALUE '07',
      END OF gc_product_type.

    rv_success = abap_false.
    DATA: lv_hierarchy_guid TYPE comt_hierarchy_guid,
          lv_parent_guid    TYPE comt_category_guid,
          lt_categoryt      TYPE comt_categoryt_tab.


* Prerequisite: the corresponding hierarchy is already downloaded from ERP
* Read the hierarchy which is assigned to application 03
* (product type material) in transaction COMM_PRAPPLCAT
    CALL FUNCTION 'COM_HIERARCHY_READ_WITH_APPL'
      EXPORTING
        iv_application    = gc_application-product
        iv_product_type   = gc_product_type-material
      IMPORTING
        ev_hierarchy_guid = lv_hierarchy_guid
      EXCEPTIONS
        not_found         = 1
        OTHERS            = 2.

    CHECK sy-subrc = 0.

    DATA(ls_cat_text) = VALUE comt_categoryt( langu = sy-langu category_text = iv_text
    text_upper_case = iv_text ).
    TRANSLATE ls_cat_text-text_upper_case TO UPPER CASE.
    APPEND ls_cat_text TO lt_categoryt.

    select single category_guid into lv_parent_guid FROM comm_category
       where category_id = 'MAT_'.

    CALL FUNCTION 'COM_PRODCAT_API_CREATE_CAT'
      EXPORTING
        iv_category_id           = iv_cat_id
        iv_hierarchy_guid        = lv_hierarchy_guid
        iv_parent_guid           = lv_parent_guid
        iv_product_type          = gc_product_type-material
        it_categoryt             = lt_categoryt
        iv_logsys                = iv_log_sys " 'QI3CLNT502'
        iv_non_assignable        = abap_false
      EXCEPTIONS
        hierarchy_not_maintained = 1
        wrong_call               = 2
        category_id_exists       = 3
        id_scheme_error          = 4
        error                    = 5
        OTHERS                   = 6.
    IF sy-subrc <> 0.
      MESSAGE ID sy-msgid TYPE 'X' NUMBER sy-msgno
              WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
      RETURN.
    ENDIF.

    CALL FUNCTION 'COM_PRODUCT_CATEGORY_SAVE_ALL'
      EXPORTING
        iv_update_task    = ' '
        iv_update_pme     = ' '
        iv_hierarchy_guid = lv_hierarchy_guid
      EXCEPTIONS
        internal_error    = 1
        OTHERS            = 2.
    ASSERT sy-subrc = 0.

    COMMIT WORK AND WAIT.

    rv_success = abap_true.

  ENDMETHOD.

本文来自云栖社区合作伙伴“汪子熙”,了解相关信息可以关注微信公众号"汪子熙"。

o
粉丝 0
博文 50
码字总数 0
作品 0
私信 提问
加载中
请先登录后再评论。
Flappy Bird(安卓版)逆向分析(一)

更改每过一关的增长分数 反编译的步骤就不介绍了,我们直接来看反编译得到的文件夹 方法1:在smali目录下,我们看到org/andengine/,可以知晓游戏是由andengine引擎开发的。打开/res/raw/at...

enimey
2014/03/04
6.1K
18
CDH5: 使用parcels配置lzo

一、Parcel 部署步骤 1 下载: 首先需要下载 Parcel。下载完成后,Parcel 将驻留在 Cloudera Manager 主机的本地目录中。 2 分配: Parcel 下载后,将分配到群集中的所有主机上并解压缩。 3 激...

cloud-coder
2014/07/01
6.8K
1
beego API开发以及自动化文档

beego API开发以及自动化文档 beego1.3版本已经在上个星期发布了,但是还是有很多人不了解如何来进行开发,也是在一步一步的测试中开发,期间QQ群里面很多人都问我如何开发,我的业余时间实在...

astaxie
2014/06/25
2.7W
22
程序猿媛一:Android滑动翻页+区域点击事件

滑动翻页+区域点击事件 ViewPager+GrideView 声明:博文为原创,文章内容为,效果展示,思路阐述,及代码片段。文尾附注源码获取途径。 转载请保留原文出处“http://my.oschina.net/gluoyer...

花佟林雨月
2013/11/09
4.3K
1
5分钟 maven3 快速入门指南

前提条件 你首先需要了解如何在电脑上安装软件。如果你不知道如何做到这一点,请询问你办公室,学校里的人,或花钱找人来解释这个给你。 不建议给Maven的服务邮箱来发邮件寻求支持。 安装Mav...

fanl1982
2014/01/23
1.2W
7

没有更多内容

加载失败,请刷新页面

加载更多

Vue视频播放器 vue-video-player

Vue视频播放器 vue-video-player 本篇主要记录一下 在 vue 项目中 如何使用 vue-video-player 来作为视频播放器,由于最近在做博客的 轻松一刻模块 所以拿这个尝试一下 在此纪录一下 以及遇到...

AskaJohnny
8分钟前
5
0
Python是什么,Python语言及其特点简介

虽然软件产业的历史相对于人类历史只是白驹过隙,但世界上却存在非常多的编程语言,「Python」 就是其中之一。 Python 语言算得上一门“古老”的编程语言,Python 流行这么久,必然有它的独到...

前端老司机
16分钟前
11
0
serve 和 hhtp-server 对比

两个都是一个静态资源工具 npm i serve http-server -g https://github.com/http-party/http-server#readme https://github.com/vercel/serve#readme 由于遇到了cors问题, 目前选择http-se......

阿豪boy
18分钟前
8
0
java开发之阿里云接口发送短信验证码

随着互联网的兴起,各行各业的需求都在不断的增加。随着业务的扩大,企业给用户发送短信验证码的业务,也是如火如荼。在这里,calvin给各位开发者推荐阿里云短信平台。原因有二:1.接入较简单...

Arisono
28分钟前
9
0
如何从我的应用程序在Android的网络浏览器中打开URL? - How can I open a URL in Android's web browser from my application?

问题: How to open an URL from code in the built-in web browser rather than within my application? 如何通过内置Web浏览器而不是应用程序中的代码打开URL? I tried this: 我尝试了这个...

javail
29分钟前
0
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部