bdc注意清空bdcdata【否则bdc可能…

bdc有时候发现只能处理第一条数据,就该想到,没清空 bdcdata
  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
下面是一个简单的 ABAP Report BDC 实现创建采购合同的示例: 1. 创建一个自定义的屏幕布局,包含需要输入的采购合同信息。 2. 使用 TCODE SHDB 记录一个标准的采购合同创建过程的 BDC 数据。 3. 通过 ABAP 代码将该 BDC 数据读入内存中,并替换其中需要输入的信息为用户在屏幕上输入的信息。 4. 执行 BDC 事务,创建采购合同。 以下是一个示例 ABAP Report 代码: ``` REPORT z_create_purchase_contract. DATA: BEGIN OF bdcdata OCCURS 0, program LIKE sy-repid, dynpro LIKE sy-dynnr, dynbegin(1) TYPE c, fnam LIKE bdcdata-fnam, fval LIKE bdcdata-fval, END OF bdcdata. DATA: v_ebeln TYPE ekko-ebeln, v_bsart TYPE ekko-bsart, v_bukrs TYPE ekko-bukrs, v_lifnr TYPE ekko-lifnr, v_waers TYPE ekko-waers. PARAMETERS: p_ebeln TYPE ekko-ebeln, p_bsart TYPE ekko-bsart, p_bukrs TYPE ekko-bukrs, p_lifnr TYPE ekko-lifnr, p_waers TYPE ekko-waers. v_ebeln = p_ebeln. v_bsart = p_bsart. v_bukrs = p_bukrs. v_lifnr = p_lifnr. v_waers = p_waers. CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT' EXPORTING input = v_ebeln IMPORTING output = v_ebeln. bdcdata-program = 'SAPLMEGUI'. bdcdata-dynpro = '0100'. bdcdata-dynbegin = 'X'. APPEND bdcdata. bdcdata-fnam = 'MEPO_SELECT-EKGRP'. bdcdata-fval = v_bsart. APPEND bdcdata. CLEAR bdcdata. bdcdata-program = 'SAPLMEGUI'. bdcdata-dynpro = '0101'. bdcdata-dynbegin = 'X'. APPEND bdcdata. bdcdata-fnam = 'MEPO_SELECT-BUKRS'. bdcdata-fval = v_bukrs. APPEND bdcdata. CLEAR bdcdata. bdcdata-program = 'SAPLMEGUI'. bdcdata-dynpro = '0102'. bdcdata-dynbegin = 'X'. APPEND bdcdata. bdcdata-fnam = 'MEPO_SELECT-LIFNR'. bdcdata-fval = v_lifnr. APPEND bdcdata. CLEAR bdcdata. bdcdata-program = 'SAPLMEGUI'. bdcdata-dynpro = '0103'. bdcdata-dynbegin = 'X'. APPEND bdcdata. bdcdata-fnam = 'MEPO_SELECT-WAERS'. bdcdata-fval = v_waers. APPEND bdcdata. CLEAR bdcdata. bdcdata-program = 'SAPLMEGUI'. bdcdata-dynpro = '0200'. bdcdata-dynbegin = 'X'. APPEND bdcdata. bdcdata-fnam = 'MEPO_CREATE-EBELN'. bdcdata-fval = v_ebeln. APPEND bdcdata. CLEAR bdcdata. bdcdata-program = 'SAPLMEGUI'. bdcdata-dynpro = '0200'. bdcdata-dynbegin = 'X'. APPEND bdcdata. bdcdata-fnam = 'MEPO_CREATE-EKORG'. bdcdata-fval = '1000'. APPEND bdcdata. CLEAR bdcdata. bdcdata-program = 'SAPLMEGUI'. bdcdata-dynpro = '0200'. bdcdata-dynbegin = 'X'. APPEND bdcdata. bdcdata-fnam = 'MEPO_CREATE-BSART'. bdcdata-fval = v_bsart. APPEND bdcdata. CLEAR bdcdata. bdcdata-program = 'SAPLMEGUI'. bdcdata-dynpro = '0200'. bdcdata-dynbegin = 'X'. APPEND bdcdata. bdcdata-fnam = 'MEPO_CREATE-BUKRS'. bdcdata-fval = v_bukrs. APPEND bdcdata. CLEAR bdcdata. bdcdata-program = 'SAPLMEGUI'. bdcdata-dynpro = '0200'. bdcdata-dynbegin = 'X'. APPEND bdcdata. bdcdata-fnam = 'MEPO_CREATE-LIFNR'. bdcdata-fval = v_lifnr. APPEND bdcdata. CLEAR bdcdata. bdcdata-program = 'SAPLMEGUI'. bdcdata-dynpro = '0200'. bdcdata-dynbegin = 'X'. APPEND bdcdata. bdcdata-fnam = 'MEPO_CREATE-WAERS'. bdcdata-fval = v_waers. APPEND bdcdata. CLEAR bdcdata. bdcdata-program = 'SAPLMEGUI'. bdcdata-dynpro = '0200'. bdcdata-dynbegin = 'X'. APPEND bdcdata. bdcdata-fnam = 'MEPO_CREATE-ABSAK'. bdcdata-fval = 'X'. APPEND bdcdata. CLEAR bdcdata. bdcdata-program = 'SAPLMEGUI'. bdcdata-dynpro = '0200'. bdcdata-dynbegin = 'X'. APPEND bdcdata. bdcdata-fnam = 'MEPO_CREATE-BEDAT'. bdcdata-fval = sy-datum. APPEND bdcdata. CLEAR bdcdata. bdcdata-program = 'SAPLMEGUI'. bdcdata-dynpro = '0200'. bdcdata-dynbegin = 'X'. APPEND bdcdata. bdcdata-fnam = 'MEPO_CREATE-ERNAM'. bdcdata-fval = sy-uname. APPEND bdcdata. CLEAR bdcdata. bdcdata-program = 'SAPLMEGUI'. bdcdata-dynpro = '0200'. bdcdata-dynbegin = 'X'. APPEND bdcdata. bdcdata-fnam = 'MEPO_CREATE-LOEKZ'. bdcdata-fval = 'X'. APPEND bdcdata. CLEAR bdcdata. bdcdata-program = 'SAPLMEGUI'. bdcdata-dynpro = '0210'. bdcdata-dynbegin = 'X'. APPEND bdcdata. bdcdata-fnam = 'MEPO_CREATE-EBELN'. bdcdata-fval = v_ebeln. APPEND bdcdata. CLEAR bdcdata. bdcdata-program = 'SAPLMEGUI'. bdcdata-dynpro = '0211'. bdcdata-dynbegin = 'X'. APPEND bdcdata. bdcdata-fnam = 'MEPO_CREATE-EBELN'. bdcdata-fval = v_ebeln. APPEND bdcdata. CLEAR bdcdata. bdcdata-program = 'SAPLMEGUI'. bdcdata-dynpro = '0211'. bdcdata-dynbegin = 'X'. APPEND bdcdata. bdcdata-fnam = 'MEPO_CREATE-PO_TEXT'. bdcdata-fval = '采购合同文本'. APPEND bdcdata. CALL FUNCTION 'BDC_INSERT' EXPORTING program = bdcdata-program dynpro = bdcdata-dynpro dynbegin = bdcdata-dynbegin TABLES bdcdata = bdcdata. CALL FUNCTION 'BDC_TRANSACTION' EXPORTING update_task = 'S' EXCEPTIONS OTHERS = 1. ``` 在该示例中,我们使用了 PARAMETERS 语句定义了用户需要输入的采购合同信息,然后将这些信息替换到 BDC 数据中。最后通过调用 BDC_INSERT 和 BDC_TRANSACTION 函数执行 BDC 事务,创建采购合同。

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值