资产主数据同步接口

FUNCTION zrfc_mm008.
*"----------------------------------------------------------------------
*"*"Local interface:
*"  IMPORTING
*"     VALUE(CALLNO) TYPE  ZCALLNO
*"     VALUE(ZDATE) LIKE  SY-DATUM DEFAULT SY-DATUM
*"  EXPORTING
*"     VALUE(FLAG) LIKE  BAPIRET2-TYPE
*"     VALUE(MESSAGE) LIKE  BAPIRET2-MESSAGE
*"  TABLES
*"      ZANLA STRUCTURE  ZANLA OPTIONAL
*"----------------------------------------------------------------------
TYPES:BEGIN OF ty_zanla,
  bukrs      LIKE anla-bukrs,
  anln1      LIKE anla-anln1,
  anlkl      LIKE anla-anlkl,
  txt50      LIKE anla-txa50,
  deakt      LIKE anla-deakt,
  xspeb      LIKE anla-xspeb,
  ktansw  LIKE t095-ktansw,
  END OF ty_zanla.

DATA :lv_datano TYPE zdatano,
      lv_index  TYPE i,
      lt_zanla  TYPE TABLE OF ty_zanla,  "资产主数据
      ls_zanla  TYPE ty_zanla,
      lt_t095   TYPE TABLE OF t095,      "资产科目表
      ls_t095   TYPE t095.

IF zdate IS INITIAL OR zdate = ‘00000000‘.
SELECT bukrs
       anln1
       anlkl
       txt50
       deakt
       xspeb
             INTO TABLE lt_zanla
       FROM  anla.
ELSE.
SELECT bukrs
       anln1
       anlkl
       txt50
       deakt
       xspeb
        INTO TABLE lt_zanla
       FROM  anla
       WHERE erdat = zdate
        OR   aedat = zdate.
ENDIF.

*查询资产科目
SELECT * INTO TABLE lt_t095 FROM t095 WHERE ktopl = ‘GFFA‘.

SORT  lt_t095 BY  ktogr.
LOOP AT lt_zanla INTO ls_zanla.
  lv_index = sy-tabix.
  READ TABLE  lt_t095 INTO  ls_t095 WITH KEY ktogr = ls_zanla-anlkl
                                             BINARY SEARCH.
  IF sy-subrc = 0.
     ls_zanla-ktansw  =  ls_t095-ktansw.
     MODIFY lt_zanla FROM ls_zanla  TRANSPORTING ktansw.
  ENDIF.
ENDLOOP.

IF lt_zanla IS NOT INITIAL.
     flag = ‘S‘.
     message = ‘执行成功‘.
ELSE.
     flag = ‘E‘.
     message = ‘没有数据‘.
ENDIF.

zanla[] = lt_zanla.

CLEAR:gt_log,gs_log.
LOOP AT zanla INTO ls_zanla.
*日志记录
    lv_datano = lv_datano + 1.
    gs_log-datano = lv_datano.
    gs_log-name   = ‘ZRFC_MM008‘.
    gs_log-cdate  = sy-datum.
    GET TIME.
    gs_log-ctime  = sy-uzeit.
    gs_log-callno = callno.
    gs_log-flag   = flag.
    gs_log-log    = message.

    CONCATENATE zdate
    ls_zanla-bukrs  ls_zanla-anln1  ls_zanla-anlkl ls_zanla-txt50  ls_zanla-deakt  ls_zanla-xspeb ls_zanla-ktansw
    INTO gs_log-content SEPARATED BY ‘|‘.
    CONDENSE gs_log-content NO-GAPS.
    SHIFT message LEFT DELETING LEADING  ‘|‘.
    gs_log-length = STRLEN( gs_log-content ).
    APPEND gs_log TO gt_log.
    CLEAR: gs_log,ls_zanla.
ENDLOOP.

   IF gt_log IS NOT INITIAL.
     INSERT zrfc_mm01in_log FROM TABLE gt_log.
     IF sy-subrc = 0.
       COMMIT WORK.
     ENDIF.
   ENDIF.
ENDFUNCTION.
时间: 2024-11-07 01:28:11

资产主数据同步接口的相关文章

供应商主数据 同步接口

FUNCTION zrfc_mm007. *"---------------------------------------------------------------------- *"*"Local interface: *" IMPORTING *" VALUE(CALLNO) TYPE ZCALLNO *" VALUE(ZDATE) TYPE SY-DATUM OPTIONAL *" EXPORTING *" VA

ecshop支付宝发货同步接口-支持多次付款同步发货

支付宝推出,无需预付年费,单笔费率梯度0.7%--1.2% , 该协议有担保交易和即时到帐两种接口可供选择立即签约 (如果您的支付宝账号没有认证,是不能成功签约的,需要您进行认证) 阶梯费率说明: 大于等于 0,小于 60000,费率 1.2 %, 大于等于 60000,小于 500000,费率 1 %, 大于等于 500000,小于 1000000,费率 0.9 %, 大于等于 1000000,小于 2000000,费率 0.8 %, 大于等于 2000000,费率 0.7 %, 1.本接口使

如何查看资产主数据的变更记录

资产主数据的变更会影响到资产的折旧计算以及资产报表的准确性. 一般来说我们可以针对不同的目的使用一下三种方法来查看资产主数据变更的历史记录. 1, 查看单个资产的某个字段的变更记录,使用事务码AS02或者AS03打开资产主数据,然后把光标放在需要查看的字段上,选择MENU:Environment -> Change documents -> On field, 2, 查看单个资产的所用主数据的变更,使用事务码AS02或者AS03打开资产主数据,然后直接选择MENU:Environment -&

MySQL主主数据同步

MySQL主主同步和主从同步的原理一样,只是双方都是主从角色. 环境 操作系统版本:CentOS7 64位 MySQL版本:mysql5.6.33 节点1IP:192.168.1.205 主机名:edu-mysql-01 节点2IP:192.168.1.206 主机名:edu-mysql-02 MySQL 主从复制官方文档:http://dev.mysql.com/doc/refman/5.6/en/replication.html 注意: 1> 主从服务器操作系统版本和位数要保持一致 2>

MySQL主主数据同步浅析syncnavigator

MySQL主主同步和主从同步的原理一样,只是双方都是主从角色. 环境 操作系统版本:CentOS7 64位 MySQL版本:mysql5.6.33 节点1IP:192.168.1.205 主机名:edu-mysql-01 节点2IP:192.168.1.206 主机名:edu-mysql-02 MySQL 主从复制官方文档:http://dev.mysql.com/doc/refman/5.6/en/replication.html 注意: 1> 主从服务器操作系统版本和位数要保持一致 2>

汇率同步接口

FUNCTION zrfc_mm009. *"---------------------------------------------------------------------- *"*"Local interface: *" IMPORTING *" VALUE(CALLNO) TYPE ZCALLNO *" EXPORTING *" VALUE(FLAG) LIKE BAPIRET2-TYPE *" VALUE(M

SAP Cloud for Customer的产品主数据通过PI同步到CRM

SAP Cloud for Customer里没有办法新建product: Product detail page也无法编辑: 在C4C的business scoping里enable和ERP的integration: 在C4C里新建一个communication system: technical information维护成ERP系统的信息: ERP系统,tcode SRTIDOC注册IDOC inbound service: SPRO,自动生成和C4C的integration settin

ECC系统发送IDoc物料主数据(MATMAS)到周边系统的配置步骤

1.       业务场景 在SAP系统中创建和物料主数据,通过IDoc,自动将创建和更新的物料主数据主数据同步到周边系统中. 2.       本业务配置涉及的TCODE: BD50 激活消息类型的更改指针 BD64 维护分配模型 WE20 维护伙伴参数 BD21 更加变更指针发送IDoc数据 SM36 创建后台作业 MM01 创建物料 MM02 修改物料 BD10 批量发送物料,初始化 WE02 IDoc清单,查看IDoc发送情况 3.       配置步骤 BD50激活变更指针 BD64维

【转载】主数据管理(MDM)与元数据管理

主数据(Master Data)和元数据(Meta Data)是两个完全不同的概念.元数据是指表示数据的相关信息,比如数据定义等,而主数据是指实例数据,比如产品目录信息等.比如,某省地税开发了一套 征收管理软件,以市为单位部署了17套,每套征收管理软件中的元数据都是一样的,但是主数据还是需要进行管理的.主数据管理和传统数据仓库解决方案不是一 个概念,数据仓库会将各个业务系统的数据集中在一起在进行业务的分析,而主数据管理系统不会把所有数据都管理起来,只是把需要在各个系统间共享的主数据进 行采集和发