SAP BDC数据结构及简单实例

通过ABAP写BDC程序的一般数据结构和套路举例。

"bdc数据结构.
data begin of i_mess occurs 0.
include structure bdcmsgcoll.
data end of i_mess.

data: begin of e_mess occurs 0,
        mess(100),
      end of e_mess.

data begin of it_bdc occurs 0.
include structure bdcdata.
data end of it_bdc.

data: l_opttion type ctu_params.
l_opttion-dismode  = 'N'.
l_opttion-updmode  = 'S'.
l_opttion-cattmode = ''.
l_opttion-defsize  = 'X'.
l_opttion-racommit = 'X'.
l_opttion-nobinpt  = 'X'.
l_opttion-nobiend  = 'X'.

data: e_msg type bapi_msg,
      l_msg type t100-text.

start-of-selection.

  select single *
     into @data(lv_bkpf)
    from bkpf
    where belnr eq '0100000071'
      and gjahr eq 2019
      and bukrs eq '1000'.

  perform frm_bdc_dynpro  using 'SAPMF05A' '0105'.
  perform frm_bdc_field   using 'BDC_OKCODE'  'BU'.
  perform frm_bdc_field   using 'RF05A-BELNS' lv_bkpf-belnr.
  perform frm_bdc_field   using 'BKPF-BUKRS' lv_bkpf-bukrs.
  perform frm_bdc_field   using 'RF05A-GJAHS' lv_bkpf-gjahr.

  if sy-datum(6) = lv_bkpf-budat(6).
    perform frm_bdc_field       using 'UF05A-STGRD' '03'.
  else.
    perform frm_bdc_field       using 'UF05A-STGRD' '04'.
    perform frm_bdc_field       using 'BSIS-BUDAT'lv_bkpf-budat.
  endif.

  call transaction 'FB08' using it_bdc
                  options  from l_opttion
                  messages into i_mess.

  loop at i_mess.
    call function 'MESSAGE_TEXT_BUILD'
      exporting
        msgid               = i_mess-msgid
        msgnr               = i_mess-msgnr
        msgv1               = i_mess-msgv1
        msgv2               = i_mess-msgv2
        msgv3               = i_mess-msgv3
        msgv4               = i_mess-msgv4
      importing
        message_text_output = l_msg.

    e_msg = e_msg && l_msg.
    clear l_msg.
  endloop.

  if line_exists( i_mess[ msgtyp = 'E'] ) or line_exists( i_mess[ msgtyp = 'A'] ).
    write : / '执行失败：', e_msg.
  else.
    write : / '执行成功：', e_msg.
  endif.

form frm_bdc_dynpro using program dynpro.
  clear it_bdc.
  it_bdc-program  = program.
  it_bdc-dynpro   = dynpro.
  it_bdc-dynbegin = 'X'.
  append it_bdc.
endform. " frm_BDC_DYNPRO


form frm_bdc_field using fnam fval.
  clear it_bdc.
  it_bdc-fnam = fnam.
  it_bdc-fval = fval.
  condense it_bdc-fval.
  append it_bdc.
endform. " frm_BDC_FIELD

"bdc数据结构.

data begin of i_mess occurs 0.

include structure bdcmsgcoll.

data end of i_mess.

data: begin of e_mess occurs 0,

mess(100),

end of e_mess.

data begin of it_bdc occurs 0.

include structure bdcdata.

data end of it_bdc.

data: l_opttion type ctu_params.

l_opttion-dismode = 'N'.

l_opttion-updmode = 'S'.

l_opttion-cattmode = ''.

l_opttion-defsize = 'X'.

l_opttion-racommit = 'X'.

l_opttion-nobinpt = 'X'.

l_opttion-nobiend = 'X'.

data: e_msg type bapi_msg,

l_msg type t100-text.

start-of-selection.

select single *

into @data(lv_bkpf)

from bkpf

where belnr eq '0100000071'

and gjahr eq 2019

and bukrs eq '1000'.

perform frm_bdc_dynpro using 'SAPMF05A' '0105'.

perform frm_bdc_field using 'BDC_OKCODE' 'BU'.

perform frm_bdc_field using 'RF05A-BELNS' lv_bkpf-belnr.

perform frm_bdc_field using 'BKPF-BUKRS' lv_bkpf-bukrs.

perform frm_bdc_field using 'RF05A-GJAHS' lv_bkpf-gjahr.

if sy-datum(6) = lv_bkpf-budat(6).

perform frm_bdc_field using 'UF05A-STGRD' '03'.

else.

perform frm_bdc_field using 'UF05A-STGRD' '04'.

perform frm_bdc_field using 'BSIS-BUDAT'lv_bkpf-budat.

endif.

call transaction 'FB08' using it_bdc

options from l_opttion

messages into i_mess.

loop at i_mess.

call function 'MESSAGE_TEXT_BUILD'

exporting

msgid = i_mess-msgid

msgnr = i_mess-msgnr

msgv1 = i_mess-msgv1

msgv2 = i_mess-msgv2

msgv3 = i_mess-msgv3

msgv4 = i_mess-msgv4

importing

message_text_output = l_msg.

e_msg = e_msg && l_msg.

clear l_msg.

endloop.

if line_exists( i_mess[ msgtyp = 'E'] ) or line_exists( i_mess[ msgtyp = 'A'] ).

write : / '执行失败：', e_msg.

else.

write : / '执行成功：', e_msg.

endif.

form frm_bdc_dynpro using program dynpro.

clear it_bdc.

it_bdc-program = program.

it_bdc-dynpro = dynpro.

it_bdc-dynbegin = 'X'.

append it_bdc.

endform. " frm_BDC_DYNPRO

form frm_bdc_field using fnam fval.

clear it_bdc.

it_bdc-fnam = fnam.

it_bdc-fval = fval.

condense it_bdc-fval.

append it_bdc.

endform. " frm_BDC_FIELD

如若转载，请注明出处：https://www.gavindong.com/3008.html

SAP BDC数据结构及简单实例

相关推荐

记一次ABAP BDC录屏后台运行不生效分析

ABAP使用BDC过账提示BSEG-HKONT was transferred twice

使用BDC做VL02N发货

Word邮件合并和SAP BDC录屏使用视频

call transaction的几种方式

ABAP清账实现例子1