<1>

EXIT_SAPLEBND_002

*&---------------------------------------------------------------------*ITPUB个人空间2i\ nN6xvsy
*& Include ZXM06U22 *
hXZU(dl5Nby0*&---------------------------------------------------------------------*ITPUB个人空间-s0cgU8D7Dp
* If PDUMMY = 'X' then Approval Procedure is Activate

!?UW*V_1s C,Wa"jU0TABLES: EBAN.ITPUB个人空间Ag'?B1N8T(O-n R;JV
DATA: MRP_IND TYPE EBAN.
o"re*A!k1l}0DATA: BEGIN OF Z_BEKPO OCCURS 50.ITPUB个人空间i*P#LI ~kYn-^
INCLUDE STRUCTURE BEKPO.
v-g'G7_py [0DATA: END OF Z_BEKPO.

We:L FGB0LOOP AT IT_BEKPO INTO Z_BEKPO.

* IF PO line item has no P.R. Reference
tY!E @:r3C.^ L0IF Z_BEKPO-BANFN EQ SPACE.

WRITE: Z_BEKPO-BANFN, Z_BEKPO-BNFPO.ITPUB个人空间IA.~!k O%_
MOVE 'X' TO I_CEKKO-PDUMMY.ITPUB个人空间&Z6H3I#lX})[[
EXIT.

ELSE.ITPUB个人空间 dP"}"i7t N/Zg(_
* If PR Creation Indicator <> B
#T3a7DDQ`%b0SELECT SINGLE * FROM EBAN INTO MRP_IND WHERE
:ud4n r!K0BANFN = Z_BEKPO-BANFN ANDITPUB个人空间0c@%Z N0I h
BNFPO = Z_BEKPO-BNFPO.ITPUB个人空间i]:mj/c
* IF SY-SUBRC <> 0 or MRP_IND-ESTKZ NE 'B'. update by ricky 050802
-P!Indx0IF SY-SUBRC <> 0 or ( MRP_IND-ESTKZ NE 'B' and
MRP_IND-ESTKZ NE 'U').ITPUB个人空间\5Kr DD(b4Z3|r Y
MOVE 'X' TO I_CEKKO-PDUMMY.ITPUB个人空间O#tiS1|2slr0x:K
EXIT.
`/r2P lIY0ENDIF.
K}m6V/B1xJ0ENDIF.

ENDLOOP.

MOVE-CORRESPONDING I_CEKKO TO E_CEKKO.

=================================================

User Exit for Evaluation PP-MRP MRP / Text for Buttons

EXIT_SAPMM61R_001

*----------------------------------------------------------------------*ITPUB个人空间uS5FD8H/a-z
* INCLUDE ZXM61U04 *ITPUB个人空间k G0J!ih&mEf
*----------------------------------------------------------------------*

***********************************************************************ITPUB个人空间 OM\&s6j:L
*--> Example 1 for User Exit Column 1 / Individual LinesITPUB个人空间-C+Rb5cBaQXC
*-->Requested Delivery Date
(J;WM%X,aq7204478CASE SY-LANGU. "Text depends on the system-languageITPUB个人空间 ]9w@*K K%Q
WHEN 'E'.
3p\K#Jmo4J7204478MOVE 'User Exit / Req.de.dt' TO BUTTON1_EZ.
}+w.YEUy7204478WHEN 'D'.ITPUB个人空间(sl K#@ V&i*M
MOVE 'User Exit / Wunschlieferdatum' TO BUTTON1_EZ.
ENDCASE.ITPUB个人空间{Um9\j
************************************************************************

'a1K8X,Y_a$S7204478************************************************************************

*--> Example 2 for User Exit Column 2 / Individual Lines

*-->Release-Status of a Purchase Requesition
,k'uzFA` G6@ c*Y7204478*-->The buttons / column appears only when the procurement type is
#K;@L ^S8v,E!K7204478*--> not 'In-house production'.
Qa3e{@'D&p"o;E7204478IF NOT IMT61D-BESKZ = 'E'.ITPUB个人空间 EDO6~v/l(r;I;@
CASE SY-LANGU.ITPUB个人空间nG~J8fa%N
WHEN 'E'.
'B)\(_K/mRm;R,@{Q7204478MOVE 'User Exit / PR Release-Status' TO BUTTON2_EZ.
v"G#rb PZ7204478WHEN 'D'.
%xk"WVh*]8H%Et7204478MOVE 'User Exit / Banf Freigabe' TO BUTTON2_EZ.
$oGlD*O7204478ENDCASE.
1J4k'e8p$A7204478ENDIF.
TZ+~$P&~q`#I7204478************************************************************************

ITPUB个人空间/M}D8B.s
************************************************************************

*--> Example 3 for User Exit Column 3 / Individual Lines

*-->Individual Text
t5^(siz ?#pI }C7204478MOVE 'User Exit / Text' TO BUTTON3_EZ.ITPUB个人空间%_dB0u9W d
************************************************************************

0V!N4k}q#W)UbJ/Y9C7204478************************************************************************
*--> Example 1 User Exit 1 / period totals
9yB\xqm z4mS7204478*--> Summarize production quantities by mrp segment
g4Mf-R p2^{qh7204478* along the time axis

ITPUB个人空间8~6h3dn,T8D c_:n!]
CASE SY-LANGU. "Text depends on the system-language
!v r#`u O7204478WHEN 'E'.ITPUB个人空间&t7rw!Q9X p4] J
MOVE 'Comulative quantity' TO BUTTON1_PS.
Rm*A L rB~u7204478WHEN 'D'.ITPUB个人空间}+~C'|%{:Q Fq#CvA
MOVE 'Summierte Zug鋘ge' TO BUTTON1_PS.
&b~-T7K(iOf7204478ENDCASE.

************************************************************************

ITPUB个人空间4o~^2Ht8v ~%XB
************************************************************************
*--> Example 2 User Exit 2 / period totals
] F0@6K?:~7204478*--> Summarize requirements by mrp segmentITPUB个人空间.nzH SN3V#Ek.E
* along the time axis

CASE SY-LANGU. "Text depends on the system-languageITPUB个人空间k.TN#DS o&G
WHEN 'E'.ITPUB个人空间}n&Y|%Q ktve
MOVE 'Comulative requirements' TO BUTTON2_PS.ITPUB个人空间5x&q,Qk+{5HD M
WHEN 'D'.ITPUB个人空间zH/o$[&\
MOVE 'Summierte Bedarfe' TO BUTTON2_PS.
*z}*c z(a_No%]+go7204478ENDCASE.

************************************************************************

nQ$b!g,lv*W7204478************************************************************************

*--> Example 3 User Exit 3 / period totalsITPUB个人空间S)~bZk.Bd x6K
* Only in stock/requirements- and mrp-listITPUB个人空间L b8[h{
* Not availible in the REM planning table!

MOVE 'F3' TO BUTTON3_PS.ITPUB个人空间4R\1W{B1Q;g]m'R*B
************************************************************************

ITPUB个人空间 W,^0k/B z0L4cn
User Exit for Evaluation PP-MRP MRP / Text for Buttons

用户出口1