BDC 弹窗录屏解决办法(ABUMN)

导语:最近在做一个资产价值转移的程序,没有找到合适的函数,就用了BDC,但是有个问题是,ABUMN这个事务码,第一次进入会弹窗让输入公司代码,第二次就不会了,会有参数ID的默认,这样没办法控制。

解决办法:

找到公司代码的参数ID,在BDC录屏开始之前,先给参数ID传好参数,再用BDC调用事务码,就不会弹窗提示了。

SET PARAMETER ID 'BUK' FIELD P_BUKRS.

在这里插入图片描述

完整ABUMN录屏代码:

   SET PARAMETER ID 'BUK' FIELD P_BUKRS.

    PERFORM BDC_DYNPRO      USING 'SAPLAMDP' '0100'.
    PERFORM BDC_FIELD       USING 'BDC_OKCODE'
                                  '/ENEWC'.

    PERFORM BDC_DYNPRO      USING 'SAPLSPO4' '0300'.
    PERFORM BDC_FIELD       USING 'BDC_CURSOR'
                                  'SVALD-VALUE(01)'.
    PERFORM BDC_FIELD       USING 'BDC_OKCODE'
                                  '=FURT'.
    PERFORM BDC_FIELD       USING 'SVALD-VALUE(01)'
                                  <FS_OUT>-BUKRS.
    PERFORM BDC_DYNPRO      USING 'SAPLAMDP' '0100'.
    PERFORM BDC_FIELD       USING 'BDC_OKCODE'
                                  '=TAB02'.
    PERFORM BDC_FIELD       USING 'RAIFP2-ANLN1'
                                  <FS_OUT>-INVZU1.
    PERFORM BDC_FIELD       USING 'RAIFP2-ANLN2'
                                  <FS_OUT>-INVZU2.
    PERFORM BDC_FIELD       USING 'RAIFP1-BLDAT'
                                  LV_DATE2 .     " 上线日期
    PERFORM BDC_FIELD       USING 'RAIFP1-BUDAT'
                                  LV_DATE2 ..    " 上线日期
    PERFORM BDC_FIELD       USING 'RAIFP1-BZDAT'
                                  LV_BZDAT.      " 资产价值日
    PERFORM BDC_FIELD       USING 'BDC_CURSOR'
                                  'RAIFP3-ANLN2'.
    PERFORM BDC_FIELD       USING 'RAIFP3-XBANL'
                                  'X'."已存资产
    PERFORM BDC_FIELD       USING 'RAIFP3-ANLN1'
                                  <FS_OUT>-ANLN1.
    PERFORM BDC_FIELD       USING 'RAIFP3-ANLN2'
                                  <FS_OUT>-ANLN2.

    PERFORM BDC_DYNPRO      USING 'SAPLAMDP' '0100'.
    PERFORM BDC_FIELD       USING 'BDC_OKCODE'
                                  '=TAB03'.
    PERFORM BDC_FIELD       USING 'RAIFP2-ANLN1'
                                  <FS_OUT>-INVZU1.
    PERFORM BDC_FIELD       USING 'RAIFP2-ANLN2'
                                  <FS_OUT>-INVZU2.
    PERFORM BDC_FIELD       USING 'BDC_CURSOR'
                                  'RAIFP1-BLART'.
    PERFORM BDC_FIELD       USING 'RAIFP1-BLART'
                                  'Z1'.
    PERFORM BDC_FIELD       USING 'RAIFP1-TRAVA'
                                   '4'.

    PERFORM BDC_DYNPRO      USING 'SAPLAMDP' '0100'.
    PERFORM BDC_FIELD       USING 'BDC_OKCODE'
                                  '=SAVE'.
    PERFORM BDC_FIELD       USING 'RAIFP2-ANLN1'
                                  <FS_OUT>-INVZU1.
    PERFORM BDC_FIELD       USING 'RAIFP2-ANLN2'
                                  <FS_OUT>-INVZU2.
    PERFORM BDC_FIELD       USING 'BDC_CURSOR'
                                  'RAIFP2-XANEU'.
    PERFORM BDC_DYNPRO      USING 'SAPLAMDP' '0100'.
    PERFORM BDC_FIELD       USING 'BDC_OKCODE'
                                  '/ERTRN'.
    PERFORM BDC_DYNPRO      USING 'SAPLSPO1' '0200'.
    PERFORM BDC_FIELD       USING 'BDC_OKCODE'
                                  '=YES'.


    LV_MODE = 'N'.
    CALL TRANSACTION 'ABUMN' USING BDCDATA[]
                             MODE LV_MODE    "不显示事务屏幕
                             UPDATE 'S'  "同步更新.
                             MESSAGES INTO ZBDCMSGCOLL."错误信息写入zbdcmsgcoll

作者:小飞猪猪猪猪猪猪猪–CSDN

  • 0
    点赞
  • 6
    收藏
    觉得还不错? 一键收藏
  • 打赏
    打赏
  • 0
    评论
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

小飞猪猪猪猪猪猪猪

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付:¥1
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

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

余额充值