SAPBADI屏幕增强实例MBMIGOBADI

SＡP-BADI屏幕增强实例MB-MIＧＯ-BADＩ————————————————————————————————作者:————————————————————————————————日期:ﻩ以下根据系统实例做的最终效果：SＥ11建立数据表,主要是用于存放附加的数据;MAＮDT MANDT ＣLNＴﻩ3 ０ﻩ客户端MBLNＲﻩMＢLNRﻩCＨARﻩ１０ﻩ0ﻩ物料凭证编号MJAHR MＪAＨＲﻩNUMCﻩ4 0 物料凭证年度ZEILE ＭＢLPOﻩNＵMCﻩ4ﻩ0 物料凭证中的项目BAＤＩ_EＲFMＧﻩＥRＦMGﻩQUANﻩ13 3ﻩ以输入单位计的数量BADＩ_ＥRFME ERＦMＥ ＵNIT ３ 0ﻩ条目单位建立结构,在屏幕数据交换时使用建立表类型设置关键字段：ＳＥ８0建立函数组创建屏幕10００,设计格式，插入附加字段创建function:ZJIM_BＡDI_EXAMPLE_ＧＥＴ_ＤAＴA＊"---－－－-－----------－----－－----------－----------－--－－--------－--－－------ﻭ*"*＂Ｌocal

inteｒface:ﻭ*＂

EXPORＴIＮＧ

*"

RＥFERENCE(ES_ＭIＧO_BAＤI＿SCREEＮ_ＦＩＥLDS)

TYPE

＊"

ZJIM_BADI＿EXAMPLE_SCＲEＥＮ_FIELD

*"--－-----－-－-----－--－－－－---－------------－-－--－-－-------－－----------－---ﻭ

*

Ｇｅt

alｌ

daｔa

from

fiｅlds

of

eｘteｒｎal

scrｅen

*

Fiｒst

mｏvｅ

ａll

custｏmｅr-fieｌｄsﻭ

ＭOVE-CＯRRＥSPONDIＮG

zjiｍ＿ｂaｄi_eｘaｍpl

TＯ

es_migo_badi_ｓcｒｅen_fｉelds.ﻭ＊

Sｅｃond

mｏve

aｌｌ

GOITEＭ－fieｌｄｓ

（ｄisplayed

ｏｎ

exterｎal

scｒeeｎ）functioｎ:ZJＩＭ＿BＡDＩ_EＸAMPLＥ_ＰUT_ＤATA＊＂-－－--－---－---－－--------－--------－---－-－-－-－-------－－－-－--－--－--－－-----

＊＂*"Lｏcal

ｉnｔerfacｅ:

*＂

IMＰＯＲＴINGﻭ*"

REFERENＣＥ（IS_ＭIGＯ_BADI_SCＲEEN_FIＥLDS)

TYPＥ

*"

ＺJIM_BADI_EXAMPLE_SＣREEN_FIELＤﻭ*"-----－-----－-------－---－－-－--－---－--－－-------－－-－-－--－--－--－-----－－---ﻭ

*

Pｕt

ａlｌ

dａｔa

from

fieｌdｓ

to

externaｌ

sｃrｅeｎ

*

First

ｆｉｌl

all

customer-fｉeldsﻭ

MＯＶE－COＲRESPOＮDING

iｓ_migo_badi_sｃreｅｎ_fiｅldｓ

TＯ

ZJIＭ_badi_exａmpl.

*

sｅcｏnｄ

fill

ａll

GOIＴＥM－ｆieldｓ

（diｓｐｌayeｄ

on

ｅｘternａl

scｒｅeｎ)function:ZJIM_BAＤI_EXＡMPLE_UPDＡTE_ＤAＴA*＂－------------－---------－－－---－－-----－------－--－--－------------－-------ﻭ＊"＊"Update

ｆunctｉon

moduｌe:ﻭ*＂ﻭ*"＊"Lｏcal

inｔerface:ﻭ*"

ＴＡBLES

*＂

IT_MIＧＯ_BADＩ＿EXAＭＰLE

ＳＴRUCTURE

ZJIM_BADI_EＸAＭPLﻭ＊＂------－－-－－--－-－--－－----－-－－-－－--－-－－－----－-－－－-－----－----------－-－－－-

*

Ｄataｂsｅ

updaｔｅ:

INSEＲＴ

ｚｊim＿BAＤI_EXAMPＬ

FROM

TABLE

ＩT_MＩＧＯ＿BADI_EXAMPLＥ.

IF

ｓｙ-subｒc

<>

0.ﻭ

ＭESSAＧＥ

ａ３９８(00)

ＷITH

＇Error

upｄaｔｅ

MＩGO_BADI_ＥXAＭPＬ'.ﻭ

ENDIF.INCLＵDE：LZＪＩM_BADI０01ＴOＰＴAＢLEＳ

:

Zjim_ｂadi_exampl．到这里增强的准备工作就做完了,下面开始创建实现：SE19创建实现创建执行类ZＣL_IM_JIＭ＿MＩGO＿BADI,激活ZJIM＿ＭIGO＿BＡDI双击类维护类属性GＴ_EXTDATA用于数据交换，类型为ZJIM_TY_T_ＥXTＤAＴＡ表类型,激活以下方法并维护:methｏｄ

ＩF＿EX_MB_MIGO_ＢＡDI~INＩＴ．

＊

Ｒeｇrｉｓtraｔｉｏn

ｏf

ＢAdI-Impｌemｅｎｔatｉon:

*

Ａｐpeｎd

clａss

attriｂute

GF_CLAＳＳ＿IＤ

(＝'MIGO_ＢADＩ_ＩMPＬEMENTATＩON1')

tｏﻭ*

rｅｇriｓtraｔiｏn

tａｂle．

ＡPＰEND

gｆ＿claｓs_id

TO

ｃt_init.ﻭendmethoｄ．ＭETHOD

ＩF_EX＿MB_MIGO_BAＤI~PBO_ＤETAIL

.ﻭ

DＡＴＡ:

ls_extdａta

TYPE

zjiｍ_badi_ｅxampｌe_scrｅeｎ_field.

*

This

chｅck

is

obligａtory,

otherwｉse

tｈｅ

ｐrｏｇrａm

flｏw

is

iｎｃorrｅｃt

*

(Ｉf

thｅre

wｏuld

be

mｏre

tｈａn

ｏne

implementatiｏn

ｏf

ＢAdI

MB_MIGO＿ＢAＤI,

*

ｏｎｌy

ｏne

ｓｕbscreｅｎ

would

be

disｐｌaｙｅｄ）.ﻭ

ＣHECK

i_cｌass_id

=

gf_cｌaｓs_id.ﻭ*

Ｓhow

screｅn

onｌｙ

iｆ

ｔhere

iｓ

ａn

ｉteｍ

CHEＣＫ

i＿liｎe_iｄ

<>

0.ﻭ*

Ｅxtｅｒnal

sｕbscreｅn:ﻭ*

Thｅ

cｏnteｎt

ｏf

gｌｏbａｌ

fiｅｌd

G_NO_INPUT

(set

iｎ

metｈｏd

MＯDE＿SEＴ)

ｗillﻭ*

infｌｕeｎce

thｅ

number

of

externaｌ

sｕｂsreen:ﻭ

ｉf

ｇ_no_inpuｔ

is

iniｔial.

e_cｐrｏg

=

＇ＳAPLZJIM_BADI0０１'（０06).＂程序名为定义的函数组的名称前加“SAPＬ“。ﻭ

ｅ_dｙnnr

=

'10０0'.

"Ｅｘternal

fielｄs:

Inputﻭ

ｅ＿heading

=

'ZJIM'(00４)."显示标签的名称ﻭ

enｄｉf.ﻭ＊

Ｓeｔ

G＿LINE＿ID

（＝

ｌine_ｉd

oｆ

item

dispｌayed

oｎ

ｄeｔａiｌ-tabstrip)

ｇ_linｅ＿id

=

ｉ_line_id.

*

Rｅａd

datａﻭ

READ

TABLE

ｇt_extdaｔａ

INTO

ｌs＿ｅｘtdata

WＩTＨ

ＴABLＥ

KＥＹ

linｅ_id

=

i_line＿iｄ.

＊

Expoｒt

ｄａta

tｏ

fｕnction

group

(for

disｐlａy

ｏn

suｂscrｅen)ﻭ

CALL

FＵＮＣTION

'ＺJIＭ_ＢADI_EXＡＭPLＥ_PUT＿ＤATＡ'

ＥＸPＯRTIＮGﻭ

ｉs_ｍiｇo_badｉ＿screｅn_fielｄs

=

ｌs_ｅxtdａta．

EＮDMＥTHOＤ.

"IF_EX＿MＢ_MIGO_BＡＤI～PBＯ_DEＴAILMETＨOD

IF_EX_MB_ＭIＧO＿BＡDI~PAI_DＥTAIL

．

＊---－-－－－------－----－-－----－--－-------－---－－-----－-----－--－－----------－－

*

Chanｇing

parａmeter

E_ＦORCE_CHANＧE

cａn

be

ｓeｔ

to

'X'.

Iｎ

thiｓ

caｓe

*

mｅｔhoｄ

LINＥ_MＯＤIFY

is

cａlled.ﻭ*

AＴＴENTION：ﻭ*

DO

NＯＴ

SET

parameter

Ｅ_FＯRCE_CHANGＥ

=

'

'.

In

tｈis

ｃase

you

might

*

oveｒwrite

ｐaｒaｍetｅｒ

E＿ＦORCＥ_ＣＨAＮGE

of

anothｅr

BAｄI

imｐlementaｔiｏn．ﻭ*－－－-－－----－－--－---－--------－--－－－--－-－------－－----－---－-－-----－－---－－－-

DＡTA：

lｓ＿eｘtdata_new

TYPE

zｊim_bａdi_exａmple_scrｅｅn_fiｅld，ﻭ

lｓ_extｄata_old

ＴYPE

zjiｍ_bａｄi_ｅｘaｍple_ｓｃreｅn_field.

ﻭ*

Ｏnly

if

a

lｉnｅ

exｉsts

CＨＥCK

i＿line＿iｄ

<>

0．

＊

Get

data

fｒom

externaｌ

ｓcrｅｅn

CALL

FUNCTIＯN

＇ZJIM_ＢＡDI_ＥXAMPLE_GET_DAＴA'ﻭ

ＩMPORＴＩＮＧﻭ

ｅs＿migo_bａdi_screen＿fｉelds

=

ls＿exｔdａta_ｎew.

*

Compare

nｅw

data

wiｔh

oｌd

dａｔaﻭ

RＥAD

TABLE

gt_extｄaｔa

ＩNＴO

ls＿ｅxtdａta_ｏldﻭ

ＷITH

ＴABＬE

KEY

ｌiｎe_iｄ

=

i_linｅ＿iｄ.ﻭ

lｓ_extｄatａ＿new-liｎe_id

=

i_ｌｉｎe_iｄ.

ＩF

ｌｓ_extｄata_old

<>

ls_eｘtdata_new．ﻭ*

If

ｔhｅrｅ

werｅ

anｙ

ｃhanｇｅｓ,

ｉｔ＇s

oｂｌｉｇatoｒy

to

ｆoｒｃe

MIGO

ｔｏ

trigｇerﻭ＊

ｍethｏｄ

LINＥ_MＯDIＦY.ﻭ

e_fｏrｃe＿ｃｈange

=

'X'.ﻭ

ＥNＤIF.ﻭﻭENDMEＴＨOD.

"IF_EX_ＭＢ_MＩGO_BAＤI～PＡI_DＥＴAIＬMＥＴHOＤ

IF_EX_MB_MＩＧO_BAＤI～ＬIＮE_MODIFY

.

DATＡ:

lｓ＿ｅxtdata_oｌd

TYPE

zjim_badi_ｅxamｐle_scrｅｅn_field,ﻭ

ls_extdata＿nｅw

ＴＹPＥ

zｊｉm_badｉ_example_sｃrｅｅn_fｉeｌd,

ｌs_migo＿bａdｉ_exａｍpｌ

ＴＹＰＥ

ｚｊim_baｄi_exaｍpl,

l_ｓubｒc

ＴYPＥ

ｓy-suｂrｃ．ﻭﻭ*

Gｅｔ

eｘtｅrnal

ｄata

ｆrom

ｉnternaｌ

tabｌｅ:ﻭ

READ

ＴABLE

gt＿ｅxtdaｔa

INTＯ

ｌｓ_exｔdata_old

WIＴＨ

TAＢＬＥ

KEＹ

line_id

=

i_ｌｉnｅ_ｉd.ﻭ

ｌ_sｕbrc

=

sy-subrc.

*

Uｐdａｔｅ

dａta

in

ｉｎteｒｎal

ｔaｂle:ﻭ

IF

l_subrc

<>

0.

*

Ｌiｎe

is

new:

If

GＯＩTEM

ｈaｓ

a

ｒeｆereｎce

to

a

material

ｄocuｍent,ﻭ＊

thｅ

aｌreadｙ

existiｎｇ

eｘｔｅrnal

ｄatａ

can

bｅ

ｒead.ﻭ

ＩF

NOT

cs_goiｔeｍ-mblnｒ

IS

ＩＮIＴIAL

AＮD

NOT

ｃs_ｇｏiｔeｍ－mjａhr

IＳ

INITIAL

AND

ＮOT

cs_goｉｔem－zeile

ＩS

IＮＩTIAL.

SELＥCT

SＩＮGLE

*

ＦRＯM

ｚjiｍ_badi_ｅｘａｍpl

INＴO

lｓ＿migo_bａｄｉ_examｐlﻭ

WHERE

mｂｌnr

＝

ｃs_goitｅm-mblnrﻭ

AND

ｍjaｈr

=

cs_goiｔeｍ-mjahｒﻭ

AND

zeilｅ

=

cs_goitem-zeile.

IF

sy-ｓｕbrc

=

0．

MOVＥ-ＣORＲESＰＯNDING

ls＿mｉgo_badi_eｘampl

ＴＯ

lｓ_extdaｔa_nｅw.

EＮDIF.

ENＤIＦ.ﻭ＊

ｌs_extdata_ｎeｗ-sgtxt

＝

cs_ｇoitｅm-sgｔxt.

ls_eｘｔdａta_new-lｉnｅ_iｄ

=

i_ｌｉｎe_id.ﻭ

IＮSERT

ｌs_extdata_neｗ

INＴＯ

TABLE

gt_ｅxtdａta.ﻭ

ELSE.

*

Liｎe

exisｔs:

Get

externaｌ

dａｔa

enｔered

on

ＢAdI－subｓcreeｅn,

but

onｌy

*

ｉｆ

ｌine_modify

was

cａlleｄ

ｆor

thｅ

iteｍ

diｓplaｙed

ｉn

thｅ

＊

'detａｉl

tabｓｔrip＇．ﻭ

check

g_line_id

=

i_liｎe_id.ﻭ

ＣＡLL

ＦＵＮCTIOＮ

'ZＪIM_BADI_EXAＭPＬＥ_GET_DATA＇

IＭPORTＩＮGﻭ

es＿migｏ＿bａdi_scrｅｅn＿fiｅlｄs

＝

ls_ｅxtdatａ_new.

ｌs_eｘtdａtａ＿ｎew-lｉne_iｄ

=

ｉ＿line_ｉd．ﻭ*

if

lｓ_extｄaｔａ_nｅw-ｓgtxt

＜＞

ｌs_eｘtｄatａ_old-ｓgtxｔ.

＊*

Field

ｗaｓ

ｃhａｎged

on

externａl

screenﻭ*

cs＿goitｅｍ-sｇｔxt

＝

ｌs_extdaｔa_new-sgtxt.

＊

ｅlｓe.

＊*

Takｅ

ｄatａ

ｆroｍ

GOITEM

*

ls＿eｘｔdａta_ｎew－sgtxt

=

ｃs_goiｔｅm-ｓｇｔxｔ．

＊

ｅnｄif.ﻭ

ＭODIFY

TＡＢLE

gt＿extdata

ＦRＯM

lｓ_ｅxｔdata＿ｎew.ﻭ

ENＤIF.ﻭﻭＥＮDＭETHＯD.

"IF＿EX_MB_ＭIGＯ_ＢADＩ～LINE_ＭODIFYMEＴHＯD

IＦ＿EＸ_MＢ_MIGO＿BADＩ～LＩNE＿DELETE

.

DEＬETE

TAＢLE

gt_ｅxtdata

WＩTH

ＴＡBＬE

KEY

line_id

=

i_line_id．

ENDMＥＴHOD.

"IＦ_ＥＸ_MB＿ＭＩGO＿BADI~LINE＿DELETＥＭＥTHOＤ

ＩF_EＸ＿MＢ_MＩGＯ_BAＤＩ～PＯSＴ＿DOＣUＭENT

．ﻭ

DATA：

ls_mｉgｏ＿bａｄi_ｅxamplｅ

TＹＰE

ZJIM_badｉ_exａｍpｌ,

lt_miｇｏ_badｉ_eｘamｐle

TＹＰE

ＴABＬE

ＯF

ｚｊiｍ_bａｄi＿ｅｘampl,

ls＿extdata

TYPE

zjim＿badi_eｘample_screen_ｆield,

ｌs_xmｓeg

TＹＰＥ

msｅｇ.ﻭ

ＦIELD-SYMBOLS:

＜gt_extdata>

TYPE

ｍigｏ_badi_example_ｓｃreen_fielｄ.

*

Transａctｉoｎ

MIＧO

ｗill

nｏw

post

a

material

documeｎt.

*

Aｎy

erｒoｒｓ

ｈeｒe

ＭＵSＴ

be

issued

ａs

A－ｍｅｓsａgｅ

(bｅｔｔｅr：

X-mｅsｓage）ﻭﻭ＊

Ｃopｙ

daｔa

frｏm

mａｔerial

ｄocumｅnt

intｏ

inteｒnal

tａble

LOＯＰ

AT

gｔ_exｔdaｔa

INTO

ls_exｔdａta．ﻭ

IF

g_cancel

ＩＳ

INIＴIAL.

ＲEＡＤ

ＴABLＥ

it_mseg

INＴO

ｌs＿ｘmsegﻭ

ＷＩTＨ

KEY

line_id

=

ls_eｘtdatａ－linｅ＿id．ﻭ

ELSE.ﻭ

REＡD

TABLE

it_mｓeｇ

IＮTO

lｓ_xmｓeg

WIＴH

ＫＥＹ

sｍbln

=

ls＿ｅxtdata-ｍblｎrﻭ

smblp

=

ls＿extdａta-zeileﻭ

sjahr

＝

ls＿extｄata-mjahｒ．ﻭ

EＮDIF．

IＦ

sy-ｓuｂrc

IS

IＮITIＡＬ.

MOVＥ-ＣORRＥSPＯNDIＮG

ls_eｘtdａtａ

TO

lｓ_migo_ｂadi_ｅxａmple.ﻭ

ＭOVE－CＯRＲＥSPONDING

ｌs＿ｘmseg

TO

ｌs_migo_baｄi_exaｍplｅ.ﻭ

ＡPPEＮＤ

lｓ_m