ABAP BDC_OKCODE 解释

正文部分

更多讨论,可以关注我的公众号

/00. Enter

/AB Go to overview

=ZK Go to additional information

=ENTE Enter (don't know exactly what is difference between /00)

=PI select cursor location

=STER Go to taxes

=DELZ delete cursor

=GO continue

=BU post (save)

/EEND end processing

=Yes select "yes" from message box

=BP park (save)

=ENTR Enter (don't know exactly what is difference between =ENTE or /00)

=AE save when changing document

=BK change document header (parking or posting parked document)

=P+ next page

=BL delete parked document

点击进入:ABAP BDC_OKCODE 解释

abap我写了一个函数,这个函数使用bdc录屏打开另一个事务码。我写了一个报表调用这个函数,执行成功。但是我在类的方法里调用这个函数,bdc录屏执行不完全,可能是什么原因。我的function为FUNCTION z_hr_change_joindate. *“---------------------------------------------------------------------- "“本地接口: *” IMPORTING *” VALUE(IV_PO_PERNR) TYPE STRING *" VALUE(IV_PO_BEGDA) TYPE STRING *" EXPORTING *" REFERENCE(EV_STATUS) TYPE STRING *" REFERENCE(EV_MESSAGE) TYPE STRING *"---------------------------------------------------------------------- DATA: bdcdata LIKE bdcdata OCCURS 0 WITH HEADER LINE. DATA: messtab LIKE bdcmsgcoll OCCURS 0 WITH HEADER LINE. DEFINE bdc_dynpro. CLEAR bdcdata. bdcdata-program = &1. " 第一个参数对应program bdcdata-dynpro = &2. " 第二个参数对应dynpro bdcdata-dynbegin = ‘X’. APPEND bdcdata. END-OF-DEFINITION. DEFINE bdc_field. CLEAR bdcdata. bdcdata-fnam = &1. bdcdata-fval = &2. APPEND bdcdata. END-OF-DEFINITION. bdc_dynpro ‘ZSAPMP50A’ ‘3000’. bdc_field ‘BDC_CURSOR’ ‘RP50G-PERNR’. bdc_field ‘BDC_OKCODE’ ‘=DOIT’. bdc_field ‘RP50G-PERNR’ iv_po_pernr. bdc_dynpro ‘MP000000’ ‘2000’. bdc_field ‘BDC_CURSOR’ ‘P0000-BEGDA’. bdc_field ‘BDC_OKCODE’ ‘=UPD’. bdc_field ‘P0000-BEGDA’ iv_po_begda. bdc_dynpro ‘MP000000’ ‘0210’. bdc_field ‘BDC_CURSOR’ ‘PA41MASSN’. bdc_field ‘BDC_OKCODE’ ‘=GOON’. bdc_dynpro ‘SAPLSPO1’ ‘0500’. bdc_field ‘BDC_OKCODE’ ‘=OPT1’. CALL TRANSACTION ‘ZHR082B’ USING bdcdata MODE ‘N’ UPDATE ‘S’ MESSAGES INTO messtab. DATA:e_mess(50). CLEAR:e_mess. LOOP AT messtab WHERE msgtyp = ‘E’ OR msgtyp = ‘A’… CALL FUNCTION ‘MESSAGE_TEXT_BUILD’ EXPORTING msgid = messtab-msgid msgnr = messtab-msgnr msgv1 = messtab-msgv1 msgv2 = messtab-msgv2 msgv3 = messtab-msgv3 msgv4 = messtab-msgv4 IMPORTING message_text_output = e_mess. ev_status = ‘F’. ev_message = ev_message && e_mess. ENDLOOP. IF ev_status <> ‘F’. ev_status = ‘S’. ENDIF. ENDFUNCTION.
最新发布
11-13
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

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

抵扣说明:

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

余额充值