SD模塊的幾個(gè)增強(qiáng)

VA01-VA03,VA41,VA42,VA43這三個(gè)事務(wù)代碼的增強(qiáng)直接寫(xiě)在他們的程序里面，這里的增強(qiáng)有點(diǎn)特殊要注意首先要讓他顯示出來(lái)，而后才能修改，

程序名：SAPMV45A增強(qiáng)的點(diǎn)在：includemv45afzb.和includemv45afzz. 雙擊進(jìn)去后點(diǎn)擊編輯菜單里面的增強(qiáng)，如下圖：

然后對(duì)準(zhǔn)里面的增強(qiáng)點(diǎn)寫(xiě)相應(yīng)的代碼。

2.在寫(xiě)VL01N和VL02N發(fā)貨過(guò)賬的增強(qiáng)的時(shí)候要進(jìn)去程序相應(yīng)的點(diǎn)調(diào)試然后去找到增強(qiáng),主要在包含里面：FV50XF0B_BELEG_SICHERN

3.在寫(xiě)VF01退出的時(shí)候抬頭文本更新時(shí)候在包含里面：MV60AF0B_BELEG_SICHERN，在程序里面必須等待幾秒才能進(jìn)行操作，用 WAIT UP TO 2 SECONDS.

4.vl01n點(diǎn)發(fā)貨過(guò)賬以后的增強(qiáng)點(diǎn)在程序SAPMV50A里面的es_fv50xf0b_beleg_sichern這里的第六個(gè)增強(qiáng)點(diǎn)

5.VF01點(diǎn)擊保存后的增強(qiáng)點(diǎn)在程序SAPMV60A里面的enhancement-section beleg_sichern_11 spots es_sapmv60a.

” 把發(fā)貨單的抬頭文本和行項(xiàng)目文本帶到發(fā)票,此處增強(qiáng)是VL01N直接點(diǎn)擊發(fā)貨過(guò)賬按鈕的時(shí)候執(zhí)行的

type-pools: tpit.

“BREAK ABAP_02.

data: tbseg type bseg,

it_errtab type tpit_t_errdoc with header line,

rt_buztab type tpit_t_buztab with header line,

fldtab type tpit_t_fname with header line.

data: wa_bkpf type bkpf.

data: l_bseg type table of bseg with header line.

data: name type thead-tdname.

data: l_belnr type bkpf-belnr.

data: lines type table of tline with header line.

data: it_texts type table of tline with header line.

data: it_bseg type table of bseg with header line.

data: wa_stxh type stxh.

data: wa_stxl type stxl.

data wa_thead type thead.

data: str type string.

break abap_02.

if sy-tcode eq ‘VL01N’ or sy-tcode eq ‘VL02N’.

select max( belnr ) into l_belnr from bkpf where xblnr eq likp-vbeln .”O(jiān)RDER BY BLDAT.

select single * into wa_bkpf from bkpf where xblnr eq likp-vbeln and belnr eq l_belnr .”AND BLDAT EQ LIKP-FKDAT.

if wa_bkpf is not initial.

“先寫(xiě)入抬頭文本

name = wa_bkpf-xblnr.”likp-vbeln.

select single * into wa_stxh from stxh where tdname eq name.

if wa_stxh is not initial.

call function ‘READ_TEXT’

exporting

* CLIENT = SY-MANDT

id = wa_stxh-tdid”‘0001′

language = ‘1′

name = name

object = ‘VBBK’

tables

lines = lines

read table lines index 1.

wa_bkpf-bktxt = lines-tdline.

modify bkpf from wa_bkpf.

endif.

endif.

“寫(xiě)入行項(xiàng)目文本

select * into corresponding fields of table l_bseg from bseg where bukrs eq wa_bkpf-bukrs and belnr eq wa_bkpf-belnr.

concatenate wa_bkpf-xblnr ‘000010′ into wa_thead-tdname.

select single * into wa_stxl from stxl where tdname eq wa_thead-tdname.

if wa_stxl is not initial.

call function ‘READ_TEXT’

exporting

id = wa_stxl-tdid”‘0001′”wa_thead-tdid

language = ‘1′

name = wa_thead-tdname

object = ‘VBBP’

tables

lines = it_texts.

read table it_texts index 1.

clear str.

loop at it_texts.

concatenate str it_texts-tdline into str.

endloop.

if strlen( str ) 50.

str = str+0(50).

endif.

loop at l_bseg.

clear: rt_buztab,fldtab.

l_bseg-sgtxt = str.”it_texts-TDLINE.

move-corresponding l_bseg to rt_buztab.

rt_buztab-bstat = ”.

rt_buztab-mwskz = ”.

rt_buztab-flaen = ‘X’.

append rt_buztab.

fldtab-fname = ‘SGTXT’.

fldtab-aenkz = ‘X’.

append fldtab.

call function ‘FI_ITEMS_MASS_CHANGE’

exporting

s_bseg = l_bseg

importing

errtab = it_errtab

tables

it_buztab = rt_buztab

it_fldtab = fldtab

exceptions

bdc_errors = 1

others = 2.

if sy-subrc = 0.

wait up to 2 seconds.

endif.

endloop.

endif.

endif.

總結(jié)

以上是生活随笔為你收集整理的SD 模块的几个增强的全部?jī)?nèi)容，希望文章能夠幫你解決所遇到的問(wèn)題。

如果覺(jué)得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。