ME11/ME12拷贝采购信息记录

注意点：
ECC没有好用的修改/创建采购信息记录BAPI所以使用BDC处理，
因为BDC执行过程如果遇到黄色提示消息就会暂停，所以如果遇到黄色提示需要增强处理
还有就是价格的小数位数问题，如JPY不能使用小数位数问题处理

增强调整
在这里插入图片描述

如下是复制代码-有个记录日志的自荐表，可以自行设计

REPORT zmm315.

INCLUDE zmm315_top.

INCLUDE zmm315_frm.

*-----------------------------------------------------------------------

I N I T I A L I Z A T I O N
*-----------------------------------------------------------------------
INITIALIZATION.

AT SELECTION-SCREEN OUTPUT.
LOOP AT SCREEN.
IF screen-group1 = ‘SP1’.
screen-active = ‘0’.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
*-----------------------------------------------------------------------

A T S E L E C T I O N - S C R E E N
*-----------------------------------------------------------------------
AT SELECTION-SCREEN.

START-OF-SELECTION.

PERFORM frm_get_data."获取数据

IF p_job = ‘X’.

PERFORM frm_bapi_creat USING 'X'.

ELSE.

PERFORM frm_get_fieldcat TABLES    gt_fieldcat.."alv显示列

PERFORM frm_get_layout  CHANGING  gw_alv_layout."格式设置

PERFORM frm_show_alv."alv显示

ENDIF.

END-OF-SELECTION.

&---------------------------------------------------------------------
*& 包含 ZMM315_TOP
&---------------------------------------------------------------------
TABLES:mara,lfa1,lfm1,eina,eine,a017,konp.

DATA:BEGIN OF gs_alv,
sel,"选择
light TYPE char10, "红绿灯 icon_led_red icon_led_green
msg TYPE char100, "消息
infnr LIKE eina-infnr , "采购信息记录编号
infnr_n LIKE eina-infnr , "采购信息记录编号
bismt LIKE mara-bismt , "旧物料编号
maktx_o LIKE makt-maktx , "旧物料描述
meins_o LIKE mara-meins , "旧物料基本单位
lifnr LIKE a017-lifnr , "供应商
name1 LIKE lfa1-name1 , "供应商名称
matnr LIKE mara-matnr , "PLM物料编号（NEW)
maktx_n LIKE makt-maktx , "PLM物料描述)
meins_n LIKE mara-meins , "PLM物料基本单位
ekorg LIKE a017-ekorg , "采购组织
werks LIKE a017-werks , "工厂
esokz LIKE a017-esokz , "采购类型
aplfz LIKE eine-aplfz , "计划交货时间
ekgrp LIKE eine-ekgrp , "采购组
norbm LIKE eine-norbm , "标准定单数量
webre LIKE eine-webre , "基于收货的发票验证
mwskz LIKE eine-mwskz , "税码
kbetr LIKE eine-netpr , "含税价
konwa LIKE konp-konwa , "币别
kpein LIKE konp-kpein , "价格基数
datab LIKE a017-datab , "开始日期
datbi LIKE a017-datbi , "结束日期
kosrt LIKE konh-kosrt, "暂估价标识
zjj TYPE eine-netpr, "净价（未乘基数）
mtart TYPE mara-mtart, "物料类型
meins TYPE mara-meins, "单位
knumh TYPE a017-knumh, "条件号
kumne TYPE konp-kumne, "条件号
kmein TYPE konp-kmein, "条件号
kumza TYPE konp-kumza, "条件号
waers TYPE eine-waers, "条件号

   verkf   TYPE eina-verkf,
   telf1   TYPE eina-telf1,

   esokz_x TYPE c,
 END OF gs_alv.

DATA:gt_alv LIKE TABLE OF gs_alv.

DATA:
gt_fieldcat TYPE lvc_t_fcat, "fieldcat
gw_fieldcat TYPE lvc_s_fcat,
gw_alv_layout TYPE lvc_s_layo. " ALV 布局

DATA: gv_grid TYPE REF TO cl_gui_alv_grid. " alv 对象

DATA lv_check TYPE c."检查按钮

DATA:gt_ztmm315_log TYPE STANDARD TABLE OF ztmm315_log,
gs_ztmm315_log TYPE ztmm315_log.

DEFINE init_fieldcat."fieLdcat 宏
GW_FIELDCAT-KEY = &2.
GW_FIELDCAT-FIELDNAME = &3.
GW_FIELDCAT-SELTEXT = &4.
GW_FIELDCAT-SCRTEXT_L = &4.
GW_FIELDCAT-SCRTEXT_M = &4.
GW_FIELDCAT-SCRTEXT_S = &4.
GW_FIELDCAT-REF_FIELD = &5.
GW_FIELDCAT-REF_TABLE = &6.
GW_FIELDCAT-EDIT = &7.
GW_FIELDCAT-CHECKBOX = &8.
GW_FIELDCAT-NO_ZERO = &9.
APPEND GW_FIELDCAT TO &1.
CLEAR GW_FIELDCAT.
END-OF-DEFINITION.

DATA: lt_bdcdata TYPE TABLE OF bdcdata, " BDC执行内表
lt_msgtab TYPE TABLE OF bdcmsgcoll WITH HEADER LINE, " BDC返回信息表
ls_bdcdata TYPE bdcdata,
ls_msgtab TYPE bdcmsgcoll. " BDC返回信息表

*-----------------------------------------------------------------------

P A R A M E T E R S & S E L E C T - O P T I O N S
*-----------------------------------------------------------------------
功能选择界面
SELECT-OPTIONS:s_werks FOR a017-werks OBLIGATORY,
s_ekorg FOR a017-ekorg,
s_matnr FOR mara-matnr,
s_bismt FOR mara-bismt,
s_lifnr FOR lfa1-lifnr.

PARAMETERS:p_esokz LIKE eine-esokz DEFAULT ‘0’,
p_datbi LIKE a017-datbi DEFAULT ‘20240201’,
p_job AS CHECKBOX . "MODIF ID sp1.
&---------------------------------------------------------------------
*& 包含 ZMM315_FRM
&---------------------------------------------------------------------
&---------------------------------------------------------------------
*& Form FRM_GET_DATA
&---------------------------------------------------------------------

```
  取数
```

----------------------------------------------------------------------
FORM frm_get_data .

DATA lv_bapicurr_d TYPE bapicurr_d.
DATA:lv_tabix TYPE sy-tabix.
DATA:lv_lfa1_werks_mes TYPE char100.

REFRESH gt_ztmm315_log.
REFRESH gt_alv.

SELECT mara~matnr AS bismt,
mara~bismt AS matnr,
mara~mtart,
a017~knumh,
a017~lifnr,
a017~ekorg,
a017~werks,
a017~esokz,
a017~datab,
a017~datbi
FROM mara INNER JOIN a017 ON mara~matnr = a017~matnr
INTO CORRESPONDING FIELDS OF TABLE @gt_alv
WHERE mara~matnr IN @s_matnr
AND mara~bismt IN @s_bismt
AND a017~esokz EQ @p_esokz
AND a017~werks IN @s_werks
AND a017~ekorg IN @s_ekorg
AND a017~lifnr IN @s_lifnr
AND a017~datab <= @p_datbi
AND a017~datbi >= @p_datbi
AND ( mara~mtart = ‘ZKG’ OR mara~mtart = ‘ZYD’ ).
IF gt_alv[] IS INITIAL.
MESSAGE ‘没有符合条件的数据’ TYPE ‘S’ DISPLAY LIKE ‘E’.
LEAVE LIST-PROCESSING.
ENDIF.

IF gt_alv[] IS NOT INITIAL.

SELECT
  maktx ,
  matnr
  FROM makt INTO TABLE @DATA(lt_makt_n)
  FOR ALL ENTRIES IN @gt_alv
  WHERE matnr = @gt_alv-matnr
    AND spras = @sy-langu.
SORT lt_makt_n BY matnr.

SELECT
  meins,
  matnr,
  lvorm,
  mstae
  FROM mara INTO TABLE @DATA(lt_mara_n)
  FOR ALL ENTRIES IN @gt_alv
  WHERE matnr = @gt_alv-matnr.
SORT lt_mara_n BY matnr.

SELECT
  matnr,
  werks,
  lvorm,
  mmsta
  INTO TABLE @DATA(lt_marc)
  FROM marc
  FOR ALL ENTRIES IN @gt_alv
  WHERE matnr = @gt_alv-matnr
    AND werks = @gt_alv-werks

```
   AND lvorm = 'X'
.
```
SORT lt_marc BY matnr werks.

SELECT
meins,
bismt
FROM mara INTO TABLE @DATA(lt_mara_o)
FOR ALL ENTRIES IN @gt_alv
WHERE bismt = @gt_alv-bismt.
SORT lt_mara_o BY bismt.

SELECT
maktx ,
matnr
FROM makt INTO TABLE @DATA(lt_makt_o)
FOR ALL ENTRIES IN @gt_alv
WHERE matnr = @gt_alv-bismt
AND spras = @sy-langu.
SORT lt_makt_o BY matnr.

SELECT
lfa1~lifnr,
lfa1~name1,
lfa1~nodel,
lfa1~sperq,
lfa1~loevm,
lfa1~sperr,
lfa1~sperm,
lfm1~sperm AS sperm_1 ,
lfm1~loevm AS loevm_1 ,
lfm1~ekorg
FROM lfa1 INNER JOIN lfm1 ON lfa1~lifnr = lfm1~lifnr
INTO TABLE @DATA(lt_lfa1)
FOR ALL ENTRIES IN @gt_alv
WHERE lfa1~lifnr = @gt_alv-lifnr
AND lfm1~ekorg = @gt_alv-ekorg.
SORT lt_lfa1 BY lifnr ekorg.

SELECT eina~infnr,
eina~matnr,
eina~verkf,
eina~telf1,
eine~aplfz,
eine~esokz,
eine~ekorg,
eine~ekgrp,
eine~norbm,
eine~mwskz,
eine~webre,
eina~lifnr,
eine~waers,
eine~werks,
eine~loekz AS loekz_1,
eina~loekz AS loekz_2
FROM eina INNER JOIN eine ON eina~infnr = eine~infnr
INTO TABLE @DATA(lt_eina)
FOR ALL ENTRIES IN @gt_alv
WHERE eina~matnr = @gt_alv-bismt
AND eine~ekorg = @gt_alv-ekorg
AND eine~esokz = @gt_alv-esokz
AND eina~lifnr = @gt_alv-lifnr.
SORT lt_eina BY matnr ekorg esokz lifnr.

SELECT eina~infnr,
eina~matnr,
eine~esokz,
eina~lifnr,
eine~ekorg
FROM eina INNER JOIN eine ON eina~infnr = eine~infnr
INTO TABLE @DATA(lt_eina_n)
FOR ALL ENTRIES IN @gt_alv
WHERE eina~matnr = @gt_alv-matnr
AND eine~ekorg = @gt_alv-ekorg
```
   AND eine~esokz = @gt_alv-esokz
  AND eina~lifnr = @gt_alv-lifnr.
```
SORT lt_eina_n BY matnr ekorg lifnr esokz."

SELECT konp~knumh,
konp~kbetr,
konp~konwa,
konp~kumne,
konp~kumza,
konp~kmein,
konp~kpein,
konh~kosrt
FROM konp
LEFT JOIN konh ON konp~knumh = konh~knumh
INTO TABLE @DATA(lt_konp)
FOR ALL ENTRIES IN @gt_alv
WHERE konp~knumh = @gt_alv-knumh
AND konp~loevm_ko NE ‘X’.
SORT lt_konp BY knumh.

SELECT t001k~bukrs,
t001k~bwkey,
lfb1~sperr,
lfb1~loevm,
lfb1~lifnr,
lfb1~nodel
FROM t001k INNER JOIN lfb1 ON t001k~bukrs = lfb1~bukrs
INTO TABLE @DATA(lt_t001k)
FOR ALL ENTRIES IN @gt_alv
WHERE t001k~bwkey = @gt_alv-werks
AND lfb1~lifnr = @gt_alv-lifnr.
SORT lt_t001k BY bwkey lifnr.

SELECT
lifnr,
werks
INTO TABLE @DATA(lt_lfa1_werks)
FROM lfa1
FOR ALL ENTRIES IN @gt_alv
WHERE lifnr = @gt_alv-lifnr
AND werks <> ‘’.
SORT lt_lfa1_werks BY lifnr werks.

SELECT
matnr,
werks,
pstat
INTO TABLE @DATA(lt_matnr_werks)
FROM marc
FOR ALL ENTRIES IN @gt_alv
WHERE matnr = @gt_alv-matnr.
SORT lt_matnr_werks BY matnr werks.

ENDIF.

LOOP AT gt_alv ASSIGNING FIELD-SYMBOL(<fs_alv>).

lv_tabix = sy-tabix.

IF <fs_alv>-matnr IS INITIAL.
PERFORM frm_ztmm315_log USING <fs_alv> ‘已排除’ ‘没有对应的新物料’."记录日志
DELETE gt_alv INDEX lv_tabix.
CONTINUE.
ENDIF.

READ TABLE lt_lfa1_werks INTO DATA(ls_lfa1_werks) WITH KEY lifnr = <fs_alv>-lifnr
```
                                                          werks = <fs_alv>-werks
                                                         BINARY SEARCH.
```
IF sy-subrc = 0.
READ TABLE lt_matnr_werks INTO DATA(ls_matnr_werks) WITH KEY matnr = <fs_alv>-matnr
werks = ls_lfa1_werks-werks
BINARY SEARCH.
IF sy-subrc = 0.
IF ls_matnr_werks-pstat CA ‘E’.
```
  ELSE.
    PERFORM frm_ztmm315_log USING <fs_alv> '已排除' '工厂视图不完整'."记录日志
    DELETE gt_alv INDEX lv_tabix.
    CONTINUE.
  ENDIF.
ELSE.
  lv_lfa1_werks_mes = '物料没有扩充到供货工厂' && ls_lfa1_werks-werks.
  PERFORM frm_ztmm315_log USING <fs_alv> '已排除' lv_lfa1_werks_mes."记录日志
  DELETE gt_alv INDEX lv_tabix.
  CONTINUE.
ENDIF.
```
ENDIF.

READ TABLE lt_t001k INTO DATA(ls_t001k) WITH KEY bwkey = <fs_alv>-werks
lifnr = <fs_alv>-lifnr
BINARY SEARCH.
IF sy-subrc = 0.
IF ls_t001k-sperr = ‘X’ OR ls_t001k-loevm = ‘X’ OR ls_t001k-nodel = ‘X’.
PERFORM frm_ztmm315_log USING <fs_alv> ‘已排除’ ‘供应商主数据 (公司代码)删除标识’."记录日志
DELETE gt_alv INDEX lv_tabix.
CONTINUE.
ENDIF.
ENDIF.

READ TABLE lt_marc INTO DATA(ls_marc) WITH KEY matnr = <fs_alv>-matnr
werks = <fs_alv>-werks
BINARY SEARCH.
IF sy-subrc = 0.
IF ls_marc-lvorm = 'X’OR ls_marc-mmsta = ‘01’ OR ls_marc-mmsta = ‘L’.
PERFORM frm_ztmm315_log USING <fs_alv> ‘已排除’ ‘物料工厂视图删除标识’."记录日志
DELETE gt_alv INDEX lv_tabix.
CONTINUE.
ENDIF.
ELSE.
PERFORM frm_ztmm315_log USING <fs_alv> ‘已排除’ ‘物料工厂视图不存在’."记录日志
DELETE gt_alv INDEX lv_tabix.
CONTINUE.

ENDIF.

READ TABLE lt_lfa1 INTO DATA(ls_lfa1) WITH KEY lifnr = <fs_alv>-lifnr
ekorg = <fs_alv>-ekorg
BINARY SEARCH.
IF sy-subrc = 0.
<fs_alv>-name1 = ls_lfa1-name1.
IF ls_lfa1-nodel = ‘X’ "OR ls_lfa1-sperq <> ‘’
OR ls_lfa1-loevm = ‘X’
OR ls_lfa1-sperr = ‘X’
OR ls_lfa1-sperm = ‘X’
OR ( <fs_alv>-esokz = ‘E’ AND <fs_alv>-mtart = ‘ZYF’ )
OR ( ls_lfa1-ekorg = <fs_alv>-ekorg AND ls_lfa1-sperm_1 = ‘X’ )
OR ( ls_lfa1-ekorg = <fs_alv>-ekorg AND ls_lfa1-loevm_1 = ‘X’ ).
PERFORM frm_ztmm315_log USING <fs_alv> ‘已排除’ ‘供应商删除标识’."记录日志
DELETE gt_alv INDEX lv_tabix.
CONTINUE.
ENDIF.
ENDIF.

READ TABLE lt_eina INTO DATA(ls_eina) WITH KEY matnr = <fs_alv>-bismt
ekorg = <fs_alv>-ekorg
esokz = <fs_alv>-esokz
lifnr = <fs_alv>-lifnr
BINARY SEARCH.
IF sy-subrc = 0.
<fs_alv>-infnr = ls_eina-infnr.
<fs_alv>-aplfz = ls_eina-aplfz.
<fs_alv>-ekgrp = ls_eina-ekgrp.
<fs_alv>-norbm = ls_eina-norbm.
<fs_alv>-webre = ls_eina-webre.
<fs_alv>-mwskz = ls_eina-mwskz.

 <fs_alv>-kosrt = ls_eina-kosrt.
<fs_alv>-waers = ls_eina-waers.
<fs_alv>-verkf = ls_eina-verkf.
<fs_alv>-telf1 = ls_eina-telf1.

IF ls_eina-loekz_1 = 'X' OR ls_eina-loekz_2 = 'X'

```
   AND <fs_alv>-esokz = 'E' AND <fs_alv>-mtart = 'ZYF'
  .
  PERFORM frm_ztmm315_log USING <fs_alv> '已排除' '采购信息记录删除标识'."记录日志
  DELETE gt_alv INDEX lv_tabix.
  CONTINUE.
ENDIF.
```
ENDIF.

READ TABLE lt_mara_n INTO DATA(ls_mara_n) WITH KEY matnr = <fs_alv>-matnr BINARY SEARCH.
IF sy-subrc = 0.
```
IF ls_mara_n-lvorm = 'X' OR ls_mara_n-mstae = '01'OR ls_mara_n-mstae = 'L'.
  PERFORM frm_ztmm315_log USING <fs_alv> '已排除' '物料视图删除标识'."记录日志
  DELETE gt_alv INDEX lv_tabix..
  CONTINUE.
ENDIF.

<fs_alv>-meins_n = ls_mara_n-meins.
```
ELSE.
PERFORM frm_ztmm315_log USING <fs_alv> ‘已排除’ ‘新物料不存在’."记录日志
DELETE gt_alv INDEX lv_tabix.
CONTINUE.

ENDIF.

READ TABLE lt_konp INTO DATA(ls_konp) WITH KEY knumh = <fs_alv>-knumh BINARY SEARCH.
IF sy-subrc = 0 .
<fs_alv>-kbetr = ls_konp-kbetr.
<fs_alv>-konwa = ls_konp-konwa.
<fs_alv>-kpein = ls_konp-kpein.
<fs_alv>-kumne = ls_konp-kumne.
<fs_alv>-kumza = ls_konp-kumza.
<fs_alv>-kmein = ls_konp-kmein.
<fs_alv>-kosrt = ls_konp-kosrt.
ENDIF.

IF <fs_alv>-kbetr = ‘’."剔除含税单价为0数据
PERFORM frm_ztmm315_log USING <fs_alv> ‘已排除’ ‘含税单价为0数据’."记录日志
DELETE gt_alv INDEX lv_tabix.
CONTINUE.
ENDIF.

CALL FUNCTION ‘BAPI_CURRENCY_CONV_TO_EXTERNAL’
EXPORTING
currency = <fs_alv>-waers
amount_internal = <fs_alv>-kbetr
IMPORTING
amount_external = lv_bapicurr_d.

<fs_alv>-kbetr = lv_bapicurr_d.

IF <fs_alv>-kpein IS NOT INITIAL.
<fs_alv>-zjj = <fs_alv>-kbetr / <fs_alv>-kpein.
ENDIF.

READ TABLE lt_makt_o INTO DATA(ls_makt_o) WITH KEY matnr = <fs_alv>-bismt BINARY SEARCH.
IF sy-subrc = 0.
<fs_alv>-maktx_o = ls_makt_o-maktx.
ENDIF.

READ TABLE lt_makt_n INTO DATA(ls_makt_n) WITH KEY matnr = <fs_alv>-matnr BINARY SEARCH.
IF sy-subrc = 0.
<fs_alv>-maktx_n = ls_makt_n-maktx.
ENDIF.

READ TABLE lt_mara_o INTO DATA(ls_mara_o) WITH KEY bismt = <fs_alv>-bismt BINARY SEARCH.
IF sy-subrc = 0.
<fs_alv>-meins_o = ls_mara_o-meins.
ENDIF.

READ TABLE lt_eina_n INTO DATA(ls_eina_n) WITH KEY matnr = <fs_alv>-matnr
ekorg = <fs_alv>-ekorg
```
                                                  esokz = <fs_alv>-esokz
                                                 lifnr = <fs_alv>-lifnr
                                                 BINARY SEARCH.
```
IF sy-subrc = 0.
<fs_alv>-infnr_n = ls_eina_n-infnr.
ENDIF.

READ TABLE lt_eina_n INTO ls_eina_n WITH KEY matnr = <fs_alv>-matnr
ekorg = <fs_alv>-ekorg
lifnr = <fs_alv>-lifnr
esokz = <fs_alv>-esokz
BINARY SEARCH.
IF sy-subrc <> 0.
<fs_alv>-esokz_x = ‘X’.
ENDIF.

ENDLOOP.

IF gt_ztmm315_log[] IS NOT INITIAL.
MODIFY ztmm315_log FROM TABLE gt_ztmm315_log.
COMMIT WORK AND WAIT.
ENDIF.

IF gt_alv[] IS INITIAL.
MESSAGE ‘没有符合条件的数据’ TYPE ‘S’ DISPLAY LIKE ‘E’.
LEAVE LIST-PROCESSING.
ENDIF.

ENDFORM.
&---------------------------------------------------------------------
*& Form FRM_SHOW_ALV
&---------------------------------------------------------------------

```
  text
```

----------------------------------------------------------------------
FORM frm_show_alv .

CALL FUNCTION ‘REUSE_ALV_GRID_DISPLAY_LVC’
EXPORTING
i_callback_program = sy-repid
is_layout_lvc = gw_alv_layout
i_callback_user_command = ‘FRM_USER_COMMAND’
i_callback_pf_status_set = ‘SET_ALV_STATUS’
it_fieldcat_lvc = gt_fieldcat[]
i_save = ‘A’
i_default = ‘’
TABLES
t_outtab = gt_alv
EXCEPTIONS
program_error = 1
OTHERS = 2.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
ENDFORM.

&---------------------------------------------------------------------
*& Form FRM_GET_FIELDCAT
&---------------------------------------------------------------------

```
  text
```

----------------------------------------------------------------------

–> p1 text
<-- p2 text
----------------------------------------------------------------------
FORM frm_get_fieldcat TABLES pt_fieldcat STRUCTURE gw_fieldcat…

init_fieldcat pt_fieldcat ‘’ ‘SEL’ ‘选择’ ‘’ ‘’ ‘X’ ‘X’ ‘’ .
init_fieldcat pt_fieldcat ‘’ ‘LIGHT’ ‘状态’ ‘’ ‘’ ‘’ ‘’ ‘’ .
init_fieldcat pt_fieldcat ‘’ ‘MSG’ ‘消息’ ‘’ ‘’ ‘’ ‘’ ‘’ .
init_fieldcat pt_fieldcat ‘’ ‘INFNR’ ‘采购信息记录编号’ ‘’ ‘’ ‘’ ‘’ ‘’ .
init_fieldcat pt_fieldcat ‘’ ‘INFNR_N’ ‘(新)采购信息记录编号’ ‘’ ‘’ ‘’ ‘’ ‘’ .
init_fieldcat pt_fieldcat ‘’ ‘BISMT’ ‘旧物料编号’ ‘’ ‘’ ‘’ ‘’ ‘X’ .
init_fieldcat pt_fieldcat ‘’ ‘MAKTX_O’ ‘旧物料描述’ ‘’ ‘’ ‘’ ‘’ ‘’ .
init_fieldcat pt_fieldcat ‘’ ‘LIFNR’ ‘供应商’ ‘’ ‘’ ‘’ ‘’ ‘’ .
init_fieldcat pt_fieldcat ‘’ ‘NAME1’ ‘供应商描述’ ‘’ ‘’ ‘’ ‘’ ‘’ .
init_fieldcat pt_fieldcat ‘’ ‘MATNR’ ‘PLM物料编号（NEW)’ ‘’ ‘’ ‘’ ‘’ ‘X’ .
init_fieldcat pt_fieldcat ‘’ ‘MAKTX_N’ ‘PLM物料描述’ ‘’ ‘’ ‘’ ‘’ ‘’ .
init_fieldcat pt_fieldcat ‘’ ‘EKORG’ ‘采购组织’ ‘’ ‘’ ‘’ ‘’ ‘’ .
init_fieldcat pt_fieldcat ‘’ ‘WERKS’ ‘工厂’ ‘’ ‘’ ‘’ ‘’ ‘’ .
init_fieldcat pt_fieldcat ‘’ ‘ESOKZ’ ‘采购类型’ ‘’ ‘’ ‘’ ‘’ ‘’ .
init_fieldcat pt_fieldcat ‘’ ‘APLFZ’ ‘计划交货时间’ ‘’ ‘’ ‘’ ‘’ ‘’ .
init_fieldcat pt_fieldcat ‘’ ‘EKGRP’ ‘采购组’ ‘’ ‘’ ‘’ ‘’ ‘’ .
init_fieldcat pt_fieldcat ‘’ ‘NORBM’ ‘标准定单数量’ ‘’ ‘’ ‘’ ‘’ ‘’ .
init_fieldcat pt_fieldcat ‘’ ‘WEBRE’ ‘基于收货的发票验证’ ‘’ ‘’ ‘’ ‘’ ‘’ .
init_fieldcat pt_fieldcat ‘’ ‘MWSKZ’ ‘税码’ ‘’ ‘’ ‘’ ‘’ ‘’ .
init_fieldcat pt_fieldcat ‘’ ‘KBETR’ ‘含税价’ ‘’ ‘’ ‘’ ‘’ ‘’ .
init_fieldcat pt_fieldcat ‘’ ‘KONWA’ ‘币别’ ‘’ ‘’ ‘’ ‘’ ‘’ .
init_fieldcat pt_fieldcat ‘’ ‘KPEIN’ ‘价格单位’ ‘’ ‘’ ‘’ ‘’ ‘’ .
init_fieldcat pt_fieldcat ‘’ ‘DATAB’ ‘开始日期’ ‘’ ‘’ ‘’ ‘’ ‘’ .
init_fieldcat pt_fieldcat ‘’ ‘DATBI’ ‘结束日期’ ‘’ ‘’ ‘’ ‘’ ‘’ .
init_fieldcat pt_fieldcat ‘’ ‘KOSRT’ ‘暂估价标识’ ‘’ ‘’ ‘’ ‘’ ‘’ .
init_fieldcat pt_fieldcat ‘’ ‘ZJJ’ ‘净价（未乘基数）’ ‘’ ‘’ ‘’ ‘’ ‘’ .

ENDFORM.
&---------------------------------------------------------------------
*& Form FRM_GET_LAYOUT
&---------------------------------------------------------------------

```
  text
```

----------------------------------------------------------------------

```
 <--P_GW_ALV_LAYOUT  text
```

----------------------------------------------------------------------
FORM frm_get_layout CHANGING pw_alv_layout TYPE lvc_s_layo.

pw_alv_layout-zebra = ‘X’.
pw_alv_layout-sel_mode = ‘A’.

ENDFORM.

"设置ALV Status
FORM set_alv_status USING rt_extab TYPE slis_t_extab.

SET PF-STATUS ‘STATUS’.

ENDFORM.

"按钮触发事件
FORM frm_user_command USING r_ucomm LIKE sy-ucomm
selfield TYPE slis_selfield.

selfield-refresh = ‘X’.
selfield-col_stable = ‘X’.
selfield-row_stable = ‘X’.

"修改alv中的数据，并保存到内表
CALL FUNCTION ‘GET_GLOBALS_FROM_SLVC_FULLSCR’
IMPORTING
e_grid = gv_grid.
CALL METHOD gv_grid->check_changed_data .

CASE r_ucomm.
WHEN ‘ALL’.
gs_alv-sel = ‘X’.
MODIFY gt_alv FROM gs_alv TRANSPORTING sel WHERE sel = ‘’ .

WHEN 'SAL'.
  gs_alv-sel = ''.
  MODIFY  gt_alv FROM gs_alv TRANSPORTING sel WHERE sel = 'X'.

WHEN 'CHECK'.

  CHECK lv_check NE 'X'.
  SORT gt_alv BY msg DESCENDING sel DESCENDING.

  READ TABLE gt_alv INTO gs_alv WITH KEY sel = 'X' msg = ''.
  IF sy-subrc = 0.
    PERFORM frm_bapi_creat USING ''.
    lv_check = 'X'.

  ELSE.
    MESSAGE '请选择！'(035) TYPE 'E'.

  ENDIF.

WHEN 'EXCU'.

  IF  lv_check = 'X'.

    SORT gt_alv BY msg DESCENDING sel DESCENDING.

    READ TABLE gt_alv INTO gs_alv WITH KEY sel = 'X' msg = '' .
    IF sy-subrc = 0.
      PERFORM frm_bapi_creat USING 'X'.
      lv_check = ''.
    ELSE.
      MESSAGE '请选择！'(035) TYPE 'E'.
    ENDIF.

  ELSE.
    MESSAGE '请先点击检查按钮，确认数据准确后再进行采购记录创建！'(033) TYPE 'S' DISPLAY LIKE 'E'.

  ENDIF.

WHEN '&IC1'."* 获取当前alv所在行数据
  IF selfield-fieldname = 'INFNR'.  "判断双击是不是规定双击事件的字段
    READ TABLE gt_alv INTO DATA(lss_alv) INDEX selfield-tabindex.   "获取单双击的行，并读取对应的值
    SET PARAMETER ID: 'LIF' FIELD lss_alv-lifnr.  "对应值赋值给需要调用的屏幕id
    SET PARAMETER ID: 'MAT' FIELD lss_alv-bismt.  "对应值赋值给需要调用的屏幕id
    SET PARAMETER ID: 'EKO' FIELD lss_alv-ekorg.  "对应值赋值给需要调用的屏幕id
    SET PARAMETER ID: 'WRK' FIELD lss_alv-werks.  "对应值赋值给需要调用的屏幕id
    SET PARAMETER ID: 'INF' FIELD lss_alv-infnr.  "对应值赋值给需要调用的屏幕id
    CALL TRANSACTION 'ME13' AND SKIP FIRST SCREEN. "调用程式并跳过第一个画面
  ELSEIF selfield-fieldname = 'INFNR_N'.  "判断双击是不是规定双击事件的字段
    READ TABLE gt_alv INTO lss_alv INDEX selfield-tabindex.   "获取单双击的行，并读取对应的值
    SET PARAMETER ID: 'LIF' FIELD lss_alv-lifnr.  "对应值赋值给需要调用的屏幕id
    SET PARAMETER ID: 'MAT' FIELD lss_alv-matnr.  "对应值赋值给需要调用的屏幕id
    SET PARAMETER ID: 'EKO' FIELD lss_alv-ekorg.  "对应值赋值给需要调用的屏幕id
    SET PARAMETER ID: 'WRK' FIELD lss_alv-werks.  "对应值赋值给需要调用的屏幕id
    SET PARAMETER ID: 'INF' FIELD lss_alv-infnr_n.  "对应值赋值给需要调用的屏幕id
    CALL TRANSACTION 'ME13' AND SKIP FIRST SCREEN. "调用程式并跳过第一个画面
  ENDIF.

ENDCASE.

CALL METHOD gv_grid->refresh_table_display.

ENDFORM.
&---------------------------------------------------------------------
*& Form FRM_BAPI_CREAT
&---------------------------------------------------------------------

```
  text
```

----------------------------------------------------------------------

```
 -->P_0923   text
```

----------------------------------------------------------------------
FORM frm_bapi_creat USING lv_type TYPE char01 .

IF p_job = ‘X’.
gs_alv-sel = ‘X’.
MODIFY gt_alv FROM gs_alv TRANSPORTING sel WHERE sel = ‘’ .
ENDIF.

LOOP AT gt_alv ASSIGNING FIELD-SYMBOL(<fs_alv>) WHERE sel = ‘X’.

IF lv_type = 'X'.
  IF <fs_alv>-infnr_n IS INITIAL.
    PERFORM frm_bcd_me11_all USING <fs_alv>."ME11创建基础视图和价格视图

  ELSE.
    IF <fs_alv>-esokz_x = ''.
      PERFORM frm_bcd_me12 USING <fs_alv>."ME12价格视图
    ELSE.
      PERFORM frm_bcd_me11 USING <fs_alv>."ME11创建价格视图
    ENDIF.
  ENDIF.

  IF <fs_alv>-light = icon_led_green.
    PERFORM frm_ztmm315_log USING <fs_alv> '创建成功' ''."记录日志
  ELSE.
    PERFORM frm_ztmm315_log USING <fs_alv> '创建失败' <fs_alv>-msg."记录日志
  ENDIF.

ELSE.
  <fs_alv>-light = icon_led_green.
ENDIF.

ENDLOOP.

IF gt_ztmm315_log[] IS NOT INITIAL.
MODIFY ztmm315_log FROM TABLE gt_ztmm315_log.
COMMIT WORK AND WAIT.
ENDIF.

ENDFORM.
----------------------------------------------------------------------

   Start new screen                                              *

----------------------------------------------------------------------
FORM bdc_dynpro USING program dynpro.
CLEAR ls_bdcdata.
ls_bdcdata-program = program.
ls_bdcdata-dynpro = dynpro.
ls_bdcdata-dynbegin = ‘X’.
APPEND ls_bdcdata TO lt_bdcdata.
ENDFORM.

----------------------------------------------------------------------

   Insert field                                                  *

----------------------------------------------------------------------
FORM bdc_field USING fnam fval.

IF FVAL <> NODATA.
CLEAR ls_bdcdata.
ls_bdcdata-fnam = fnam.
ls_bdcdata-fval = fval.
CONDENSE ls_bdcdata-fval NO-GAPS.
APPEND ls_bdcdata TO lt_bdcdata.
ENDIF.
ENDFORM.
&---------------------------------------------------------------------
*& Form FRM_BCD_ME12
&---------------------------------------------------------------------
```
  text
```

----------------------------------------------------------------------
FORM frm_bcd_me12 USING ls_alv LIKE gs_alv .

DATA:lv_kbetr TYPE char15.

DATA:lv_bdcmode TYPE c VALUE ‘N’,
lv_bdcupdate TYPE c VALUE ‘L’.

DATA:lv_int TYPE char10.
DATA:lv_fod TYPE char10.

"不同币别价格单位不同问题处理
lv_kbetr = ls_alv-kbetr.
CONDENSE lv_kbetr NO-GAPS.
SELECT SINGLE
currdec
INTO @DATA(lv_currdec)
FROM tcurx
WHERE currkey = @ls_alv-konwa.
IF sy-subrc = 0.
SPLIT lv_kbetr AT ‘.’ INTO lv_int lv_fod.
IF lv_currdec > 0.
lv_kbetr = lv_int && ‘.’&& lv_fod+(lv_currdec).
ELSE.
lv_kbetr = lv_int .
ENDIF.
ENDIF.
CONDENSE lv_kbetr NO-GAPS.

REFRESH lt_bdcdata.
REFRESH lt_msgtab.
PERFORM bdc_dynpro USING ‘SAPMM06I’ ‘0100’.
PERFORM bdc_field USING ‘BDC_CURSOR’ ‘EINA-LIFNR’.
PERFORM bdc_field USING ‘BDC_OKCODE’ ‘/00’.
PERFORM bdc_field USING ‘EINA-LIFNR’ ls_alv-lifnr.
PERFORM bdc_field USING ‘EINA-MATNR’ ls_alv-matnr.
PERFORM bdc_field USING ‘EINE-EKORG’ ls_alv-ekorg.
PERFORM bdc_field USING ‘EINE-WERKS’ ls_alv-werks.

IF ls_alv-esokz = ‘0’.
PERFORM bdc_field USING ‘RM06I-NORMB’ ‘X’.
ELSEIF ls_alv-esokz = ‘3’.
PERFORM bdc_field USING ‘RM06I-LOHNB’ ‘X’.
ENDIF.

PERFORM bdc_dynpro USING ‘SAPMM06I’ ‘0101’.
PERFORM bdc_field USING ‘BDC_CURSOR’ ‘EINA-MAHN1’.
PERFORM bdc_field USING ‘BDC_OKCODE’ ‘=KO’.

PERFORM bdc_field USING ‘EINA-URZTP’ record-urztp_006.
PERFORM bdc_field USING ‘EINA-URZLA’ record-urzla_007.
PERFORM bdc_field USING ‘EINA-REGIO’ record-regio_008.
PERFORM bdc_field USING ‘EINA-VERKF’ record-verkf_009.
PERFORM bdc_field USING ‘EINA-TELF1’ record-telf1_010.
PERFORM bdc_field USING ‘EINA-MEINS’ record-meins_011.
PERFORM bdc_field USING ‘EINA-UMREZ’ record-umrez_012.
PERFORM bdc_field USING ‘EINA-UMREN’ record-umren_013.

PERFORM bdc_dynpro USING ‘SAPLV14A’ ‘0102’.
PERFORM bdc_field USING ‘BDC_CURSOR’ ‘VAKE-DATAB(01)’.
PERFORM bdc_field USING ‘BDC_OKCODE’ ‘=NEWR’.

PERFORM bdc_dynpro USING ‘SAPMV13A’ ‘0201’.
PERFORM bdc_field USING ‘BDC_CURSOR’ ‘KONP-KBETR(01)’.
PERFORM bdc_field USING ‘BDC_OKCODE’ ‘=SICH’.
PERFORM bdc_field USING ‘RV13A-DATAB’ p_datbi.
PERFORM bdc_field USING ‘RV13A-DATBI’ ls_alv-datbi.
PERFORM bdc_field USING ‘KONP-KBETR(01)’ lv_kbetr.
PERFORM bdc_field USING ‘KONP-KPEIN(01)’ ls_alv-kpein.

CALL TRANSACTION ‘ME12’ " BDC调用的事务码
USING lt_bdcdata " BDC执行内表
MODE lv_bdcmode " BDC运行模式
MESSAGES INTO lt_msgtab " BDC返回信息表
UPDATE lv_bdcupdate. " 批导更新模式（A = ‘异步’,S = ‘同步’）

READ TABLE lt_msgtab WITH KEY msgtyp = ‘E’.
IF sy-subrc = 0.
MESSAGE ID lt_msgtab-msgid TYPE lt_msgtab-msgtyp NUMBER lt_msgtab-msgnr
WITH lt_msgtab-msgv1 lt_msgtab-msgv2 lt_msgtab-msgv3 lt_msgtab-msgv4 INTO ls_alv-msg.
ls_alv-light = icon_led_red.

ROLLBACK WORK.

ELSE.
ls_alv-light = icon_led_green.

COMMIT WORK AND WAIT.

ENDIF.

IF ls_alv-msg IS INITIAL.
ls_alv-msg = ‘S创建信息记录成功’.
ENDIF.

ENDFORM.
&---------------------------------------------------------------------
*& Form FRM_BCD_ME11
&---------------------------------------------------------------------

```
  text
```

----------------------------------------------------------------------
FORM frm_bcd_me11 USING ls_alv LIKE gs_alv .

DATA:lv_kbetr TYPE char15.

DATA:lv_bdcmode TYPE c VALUE ‘N’,
lv_bdcupdate TYPE c VALUE ‘L’.

DATA:lv_int TYPE char10.
DATA:lv_fod TYPE char10.

lv_kbetr = ls_alv-kbetr.
CONDENSE lv_kbetr NO-GAPS.

SELECT SINGLE
currdec
INTO @DATA(lv_currdec)
FROM tcurx
WHERE currkey = @ls_alv-konwa.
IF sy-subrc = 0.
SPLIT lv_kbetr AT ‘.’ INTO lv_int lv_fod.
IF lv_currdec > 0.
lv_kbetr = lv_int && ‘.’&& lv_fod+(lv_currdec).
ELSE.
lv_kbetr = lv_int .
ENDIF.
ENDIF.

CONDENSE lv_kbetr NO-GAPS.

REFRESH lt_bdcdata.
REFRESH lt_msgtab.
PERFORM bdc_dynpro USING ‘SAPMM06I’ ‘0100’.
PERFORM bdc_field USING ‘BDC_CURSOR’ ‘EINE-WERKS’.
PERFORM bdc_field USING ‘BDC_OKCODE’ ‘/00’.
PERFORM bdc_field USING ‘EINA-LIFNR’ ls_alv-lifnr.
PERFORM bdc_field USING ‘EINA-MATNR’ ls_alv-matnr.
PERFORM bdc_field USING ‘EINE-EKORG’ ls_alv-ekorg.
PERFORM bdc_field USING ‘EINE-WERKS’ ls_alv-werks.
IF ls_alv-esokz = ‘0’.
PERFORM bdc_field USING ‘RM06I-NORMB’ ‘X’.
ELSEIF ls_alv-esokz = ‘3’.
PERFORM bdc_field USING ‘RM06I-LOHNB’ ‘X’.
ENDIF.

PERFORM bdc_dynpro USING ‘SAPMM06I’ ‘0101’.
PERFORM bdc_field USING ‘BDC_CURSOR’ ‘EINA-MAHN1’.
PERFORM bdc_field USING ‘BDC_OKCODE’ ‘=EINE’.

PERFORM bdc_field USING ‘EINA-URZTP’ record-urztp_006.
PERFORM bdc_field USING ‘EINA-URZLA’ record-urzla_007.
PERFORM bdc_field USING ‘EINA-REGIO’ record-regio_008.
PERFORM bdc_field USING ‘EINA-VERKF’ ls_alv-verkf.
PERFORM bdc_field USING ‘EINA-TELF1’ ls_alv-telf1.
PERFORM bdc_field USING ‘EINA-MEINS’ record-meins_011.
PERFORM bdc_field USING ‘EINA-UMREZ’ record-umrez_012.
PERFORM bdc_field USING ‘EINA-UMREN’ record-umren_013.

PERFORM bdc_dynpro USING ‘SAPMM06I’ ‘0102’.
PERFORM bdc_field USING ‘BDC_CURSOR’ ‘EINE-EKKOL’.
PERFORM bdc_field USING ‘BDC_OKCODE’ ‘=KO’.
PERFORM bdc_field USING ‘EINE-APLFZ’ ls_alv-aplfz.

PERFORM bdc_field USING ‘EINE-EKGRP’* record-ekgrp_015.
PERFORM bdc_field USING ‘EINE-WEBRE’* record-webre_016.

PERFORM bdc_field USING ‘EINE-MWSKZ’ ls_alv-mwskz.

PERFORM bdc_field USING ‘EINE-IPRKZ’* record-iprkz_018.

PERFORM bdc_field USING ‘EINE-NETPR’ lv_kbetr.

PERFORM bdc_field USING ‘EINE-WAERS’ ls_alv-konwa.
PERFORM bdc_field USING ‘EINE-PEINH’ ls_alv-kpein.

PERFORM bdc_field USING ‘EINE-BPRME’ ‘PCS’.
PERFORM bdc_field USING ‘EINE-BPUMZ’ ‘1’.
PERFORM bdc_field USING ‘EINE-BPUMN’ ‘1’.
PERFORM bdc_field USING ‘EINE-EKKOL’ ls_alv-kosrt.

PERFORM bdc_dynpro USING ‘SAPMV13A’ ‘0201’.
PERFORM bdc_field USING ‘BDC_CURSOR’ ‘RV13A-DATAB’.
PERFORM bdc_field USING ‘BDC_OKCODE’ ‘=KDAT’.
PERFORM bdc_field USING ‘RV13A-DATAB’ p_datbi.
PERFORM bdc_field USING ‘RV13A-DATBI’ ls_alv-datbi.
PERFORM bdc_field USING ‘KONP-KBETR(01)’ lv_kbetr.
PERFORM bdc_field USING ‘KONP-KONWA(01)’ ls_alv-konwa.

PERFORM bdc_dynpro USING ‘SAPMV13A’ ‘0200’.
PERFORM bdc_field USING ‘BDC_CURSOR’ ‘KONH-KOSRT’.
PERFORM bdc_field USING ‘BDC_OKCODE’ ‘=SICH’.
PERFORM bdc_field USING ‘RV13A-DATAB’ p_datbi.
PERFORM bdc_field USING ‘RV13A-DATBI’ ls_alv-datbi.
PERFORM bdc_field USING ‘KONH-KOSRT’ ls_alv-kosrt.

CALL TRANSACTION ‘ME11’ " BDC调用的事务码
USING lt_bdcdata " BDC执行内表
MODE lv_bdcmode " BDC运行模式
MESSAGES INTO lt_msgtab " BDC返回信息表
UPDATE lv_bdcupdate. " 批导更新模式（A = ‘异步’,S = ‘同步’）

ROLLBACK WORK.

ELSE.
ls_alv-light = icon_led_green.
COMMIT WORK AND WAIT.
ENDIF.

IF ls_alv-msg IS INITIAL.
ls_alv-msg = ‘S创建信息记录成功’.
ENDIF.

ENDFORM.
&---------------------------------------------------------------------
*& Form FRM_BCD_ME11_ALL
&---------------------------------------------------------------------

  ME11创建基础视图和价格视图

----------------------------------------------------------------------

```
 -->ls_alv  text
```

----------------------------------------------------------------------
FORM frm_bcd_me11_all USING ls_alv LIKE gs_alv .

DATA:lv_kbetr TYPE char15.

DATA:lv_bdcmode TYPE c VALUE ‘N’,
lv_bdcupdate TYPE c VALUE ‘L’.

DATA:lv_int TYPE char10.
DATA:lv_fod TYPE char10.

lv_kbetr = ls_alv-kbetr.
CONDENSE lv_kbetr NO-GAPS.

CONDENSE lv_kbetr NO-GAPS.

IF ls_alv-esokz = ‘0’.
PERFORM bdc_field USING ‘RM06I-NORMB’ ‘X’.
ELSEIF ls_alv-esokz = ‘3’.
PERFORM bdc_field USING ‘RM06I-LOHNB’ ‘X’.
ENDIF.

PERFORM bdc_dynpro USING ‘SAPMM06I’ ‘0101’.
PERFORM bdc_field USING ‘BDC_CURSOR’ ‘EINA-URZTP’.
PERFORM bdc_field USING ‘BDC_OKCODE’ ‘=EINE’.

PERFORM bdc_field USING ‘EINA-URZTP’* record-urztp_006.
PERFORM bdc_field USING ‘EINA-URZLA’* record-urzla_007.
PERFORM bdc_field USING ‘EINA-REGIO’* record-regio_008.

PERFORM bdc_field USING ‘EINA-VERKF’ ls_alv-verkf.
PERFORM bdc_field USING ‘EINA-TELF1’ ls_alv-telf1.

PERFORM bdc_field USING ‘EINA-MEINS’* record-meins_011.
PERFORM bdc_field USING ‘EINA-UMREZ’* record-umrez_012.
PERFORM bdc_field USING ‘EINA-UMREN’* record-umren_013.

PERFORM bdc_dynpro USING ‘SAPMM06I’ ‘0102’.
PERFORM bdc_field USING ‘BDC_CURSOR’ ‘EINE-APLFZ’.

PERFORM bdc_field USING ‘BDC_OKCODE’ ‘=SICH’.
PERFORM bdc_field USING ‘BDC_OKCODE’ ‘=KO’.
PERFORM bdc_field USING ‘EINE-APLFZ’ ls_alv-aplfz.
PERFORM bdc_field USING ‘EINE-EKGRP’* record-ekgrp_015.
PERFORM bdc_field USING ‘EINE-WEBRE’* record-webre_016.

PERFORM bdc_field USING ‘EINE-MWSKZ’ ls_alv-mwskz.

PERFORM bdc_field USING ‘EINE-IPRKZ’* record-iprkz_018.

PERFORM bdc_field USING ‘EINE-NETPR’ lv_kbetr.

PERFORM bdc_field USING ‘EINE-WAERS’ ls_alv-konwa.
PERFORM bdc_field USING ‘EINE-PEINH’ ls_alv-kpein.

PERFORM bdc_field USING ‘EINE-BPRME’* record-bprme_022.
PERFORM bdc_field USING ‘EINE-BPUMZ’* record-bpumz_023.
PERFORM bdc_field USING ‘EINE-BPUMN’* record-bpumn_024.
PERFORM bdc_field USING ‘EINE-EKKOL’ ls_alv-kosrt.

PERFORM bdc_dynpro USING ‘SAPMV13A’ ‘0201’.
PERFORM bdc_field USING ‘BDC_CURSOR’ ‘KONP-KBETR(01)’.
PERFORM bdc_field USING ‘BDC_OKCODE’ ‘=KDAT’.
PERFORM bdc_field USING ‘RV13A-DATAB’ p_datbi.
PERFORM bdc_field USING ‘RV13A-DATBI’ ls_alv-datbi.
PERFORM bdc_field USING ‘KONP-KONWA(01)’ ls_alv-konwa.
PERFORM bdc_field USING ‘KONP-KBETR(01)’ lv_kbetr.

ROLLBACK WORK.

ELSE.

READ TABLE lt_msgtab WITH KEY msgtyp = 'S'
                              msgid = '06'
                              msgnr = '331'.
IF sy-subrc = 0.
  LOOP AT gt_alv INTO DATA(lss_alv) WHERE matnr = ls_alv-matnr
                                       AND lifnr = ls_alv-lifnr.
    lss_alv-infnr_n = lt_msgtab-msgv1.
    MODIFY gt_alv FROM lss_alv.
  ENDLOOP.
ENDIF.
ls_alv-light = icon_led_green.

COMMIT WORK AND WAIT.

ENDIF.

IF ls_alv-msg IS INITIAL.
ls_alv-msg = ‘S创建信息记录成功’.
ENDIF.

ENDFORM.
&---------------------------------------------------------------------
*& Form FRM_ZTMM315_LOG
&---------------------------------------------------------------------

```
  记录日志
```

----------------------------------------------------------------------

```
 -->P_<FS_ALV>  text
```
```
 -->P_0575   text
```
```
 -->P_0576   text
```

----------------------------------------------------------------------
FORM frm_ztmm315_log USING ls_alv LIKE gs_alv
p_ztype TYPE char20
p_msg TYPE char100
.
CLEAR gs_ztmm315_log.

MOVE-CORRESPONDING ls_alv TO gs_ztmm315_log.

gs_ztmm315_log-ztype = p_ztype.
gs_ztmm315_log-msg = p_msg.
APPEND gs_ztmm315_log TO gt_ztmm315_log.

ENDFORM.