MBCFC010 Propose batch number on Inventory Management item screen
Function exit EXIT_SAPMM07M_010
SPAN { font-family: "Courier New"; font-size: 10pt; color: #000000; background: #FFFFFF; } .L1S52 { color: #0000FF; } include zxmbcu10 .
SPAN {
font-family: "Courier New";
font-size: 10pt;
color: #000000;
background: #FFFFFF;
}
.L1S31 {
font-style. italic;
color: #808080;
}
.L1S32 {
color: #3399FF;
}
.L1S33 {
color: #4DA619;
}
.L1S52 {
color: #0000FF;
}
*&---------------------------------------------------------------------*
*& Include ZXMBCU10
*&---------------------------------------------------------------------*
check sy-tcode = 'MB1A' or
sy-tcode = 'MIGO'.
if sy-tcode = 'MIGO'.
clear e_charg.
check sy-ucomm = 'OK_POST' or sy-ucomm = 'OK_POST1'.
* sy-ucomm = 'OK_CHECK' .
clear e_charg.
endif.
data:lv_year(2) type n.
data:lv_month(2) type n.
data:lv_day(2) type n.
data:lv_date(10) type c.
data:lv_char(7) type c.
data:max_batch(10) type c.
data:lv_curln(4) type n.
data:lt_zbadi_migo type table of zbadi_migo.
data:ls_zbadi_migo type zbadi_migo.
lv_year = sy-datum+2(2).
lv_month = sy-datum+4(2).
lv_day = sy-datum+6(2).
concatenate lv_year lv_month lv_day '%' into lv_char.
select max( charg ) into max_batch from zbadi_migo
where charg like lv_char.
if max_batch ne space.
clear:lv_date,lv_curln.
lv_curln = max_batch+6(4) + 1.
concatenate lv_year lv_month lv_day lv_curln into lv_date.
ls_zbadi_migo-charg = lv_date.
e_charg = lv_date.
insert into zbadi_migo values ls_zbadi_migo.
else.
clear:lv_date.
concatenate lv_year lv_month lv_day '0001' into lv_date.
ls_zbadi_migo-charg = lv_date.
e_charg = lv_date.
insert into zbadi_migo values ls_zbadi_migo.
endif.