SAP XX物料EAN13对应码查询及批量导入

*&---------------------------------------------------------------------*
*& Report ZMMEAN13B
*&---------------------------------------------------------------------*
REPORT ZMMEAN13B NO STANDARD PAGE HEADING
LINE-SIZE 120 LINE-COUNT 65
MESSAGE-ID ZDXMESS.
***********************************************************************
*程序名称：ZMMEAN13B *
*程序目的：XX物料EAN13对应码查询及批量导入 *
*使用变式： *
*需求文档： *
*开发人： SUNFENG *
*开始时间：2008-7-21 完成时间： 2008-7-25 传输请求号： *
*程序修改时间： 修改人： *
*修改说明 *
***********************************************************************
*修改时间： 修改传输请求号： *
*修 改 人： *
*修改说明： *
***********************************************************************
** 定义
TABLES: vbak,vbap,vbep,MARA,ZEAN13.

DATA: w_loop like sy-tabix,
l_answer type c,
zflag type c,
zwmeng(13) type c,
ZKBETR(13) type c,
ZJ_3AKORD1 LIKE J_3APGEN-J_3AKORD1, "尺码
ZMATNR TYPE MATNR, "SKU
ZMTART TYPE MTART, "ZFT1
ZLAEDA TYPE ERSDA, "日期 （提交日期）

ZZEAN13 TYPE DZEINR, "EAN13
ZEINR TYPE DZEINR. "商品编码
DATA: BEGIN OF ZZMTART OCCURS 0,
LAEDA TYPE ERSDA, "日期 （提交日期）
ZMTART TYPE MTART. "ZFT1
DATA: END OF ZZMTART.

DATA: BEGIN OF ZZMATNR OCCURS 0,
LAEDA TYPE ERSDA, "日期 （提交日期）
ZMATNR TYPE MATNR. "SKU
DATA: END OF ZZMATNR.

DATA: BEGIN OF ZZJ_3AKORD1 OCCURS 0,
LAEDA TYPE ERSDA, "日期 （提交日期）
ZMTART TYPE MTART,
ZJ_3AKORD1 LIKE J_3APGEN-J_3AKORD1. "尺码
DATA: END OF ZZJ_3AKORD1.

DATA: BEGIN OF ZZLAEDA OCCURS 0,
LAEDA TYPE ERSDA, "日期 （提交日期）
ZLAEDA LIKE J_3APGEN-J_3AKORD1.
DATA: END OF ZZLAEDA.

DATA: BEGIN OF ZZZEAN13 OCCURS 0,
LAEDA TYPE ERSDA, "日期 （提交日期）1
ZEAN13 TYPE DZEINR. "
DATA: END OF ZZZEAN13.

DATA: BEGIN OF ZZEINR OCCURS 0,
LAEDA TYPE ERSDA, "日期 （提交日期）2
ZEINR TYPE DZEINR. "
DATA: END OF ZZEINR.


DATA: LEN TYPE I.
DATA: fname(128) TYPE c, ftype(3), fsize TYPE i,cancel(1).
DATA: begi

n of itab OCCURS 0,
ZEAN13 TYPE DZEINR, "EAN13
MATNR TYPE MATNR, "SKU
J_3AKORD1 TYPE J_3AKORD1, "尺码
MTART TYPE MTART,
LAEDA TYPE ERSDA, "日期 （提交日期）
ERSDA TYPE ERSDA, "日期（系统创建日期）
ZEINR TYPE DZEINR, "商品编码

ZEAN13S TYPE I, "TYPE DZEINR, "EAN13码位数
ZEINRS TYPE I, "TYPE DZEINR, "商品编码位数
zitem type i,
end of itab.
****检查将要导入的文件有无EAN13码重复
DATA: begin of itab_ZEAN13 OCCURS 0,
ZEAN13 TYPE DZEINR, "EAN13
zitem type i,
end of itab_ZEAN13.
***** 检查将要导入的文件有无商品编码码重复
DATA: begin of itab_ZEINR OCCURS 0,
ZEINR TYPE DZEINR, "商品编码
zitem type i,
end of itab_ZEINR.

*** 复查用表
DATA: BEGIN OF ITAB_MARA OCCURS 0 ,
MANDT TYPE MARA-MANDT, "客户端
MATNR TYPE MARA-MATNR, "物料号
MTART TYPE MTART,
END OF ITAB_MARA.

DATA: begin of ITAB_MARAW OCCURS 0,
ZEAN13 TYPE DZEINR, "EAN13
MATNR TYPE MATNR, "SKU
J_3AKORD1 TYPE J_3AKORD1, "尺码
LAEDA TYPE ERSDA, "日期 （提交日期）
ERSDA TYPE ERSDA, "日期
MTART TYPE MTART,
ZCF TYPE DZEINR, "(22) TYPE C,
end of ITAB_MARAW.


DATA: BEGIN OF ITAB_ZMEAN13 OCCURS 0,
ZEINR TYPE DZEINR, "商品编码
ZEAN13 TYPE DZEINR,
ERSDA TYPE ERSDA. "日期 （历史创建日期）
** INCLUDE STRUCTURE ZMEAN13 .
* ZEINR TYPE DZEINR, "商品编码
* ZEAN13 TYPE DZEINR,
* LAEDA TYPE ERSDA. "日期 （历史提交日期）

DATA: END OF ITAB_ZMEAN13.

DATA: BEGIN OF ITAB_S OCCURS 0,
MTART TYPE MTART,
ZEINR TYPE DZEINR, "商品编码
ZEAN13 TYPE DZEINR, "EAN13
MATNR TYPE MATNR, "SKU
J_3AKORD1 TYPE J_3AKORD1, "尺码
ERSDA TYPE ERSDA. "日期 （历史创建日期）
DATA: END OF ITAB_S.

DATA: BEGIN OF ITAB_BAR OCCURS 0,
ZEINR(22) TYPE C.
DATA: END OF ITAB_BAR.
***新导入物料组合商品编码
DATA: BEGIN OF ITAB_BARS OCCURS 0,
ZEINR(22) TYPE C.
DATA: END OF ITAB_BARS.

*****
DATA: begin of itabCF OCCURS 0,
ZEAN13 TYPE DZEINR, "EAN13
MATNR TYPE MATNR, "SKU
J_3AKORD1 TYPE J_3AKORD1, "尺码

LAEDA TYPE ERSDA, "日期 （提交日期）
ERSDA TYPE ERSDA, "日期历史
ZEINR TYPE DZEINR, "商品编码
MTART TYPE MTART,
ZCF TYPE DZEINR, "(22) TYPE C,
end of itabCF.
***复查

DATA: bdcdata LIKE bdcdata OCCURS 0 WITH HEADER L

INE.

DATA : BEGIN OF I_BDCDATA OCCURS 0,
PROGRAM LIKE BDCDATA-PROGRAM,
DYNPRO LIKE BDCDATA-DYNPRO,
DYNBEGIN LIKE BDCDATA-DYNBEGIN,
FNAM LIKE BDCDATA-FNAM,
FVAL LIKE BDCDATA-FVAL,
END OF I_BDCDATA.

DATA: RETURN LIKE TABLE OF BDCMSGCOLL WITH HEADER LINE.


DATA: begin of itab13 OCCURS 0.
include structure itab.
DATA: end of itab13.
** 屏幕定义
selection-screen begin of block bk1 with frame title text01.
selection-screen skip 1 . .
PARAMETERS: p_file LIKE RLGRAP-FILENAME.
selection-screen skip 1.
selection-screen end of block bk1.
selection-screen begin of block bk2 with frame title text02.
*selection-screen skip 1.
parameters p8 radiobutton group T1 default 'X'.
parameters p88 radiobutton group T1. "default 'X'.
parameters p1 radiobutton group T1. "default 'X'.

parameters p2 radiobutton group T1.
parameters p3 radiobutton group T1.
parameters p4 radiobutton group T1.
parameters p5 radiobutton group T1.
*parameters p6 radiobutton group T1.
parameters p7 radiobutton group T1.

selection-screen end of block bk2.
*selection-screen skip 1.
selection-screen comment /2(20) text10.
selection-screen uline /2(83).
selection-screen comment /2(83) text11.
*selection-screen uline /2(83).
*selection-screen uline /2(83).
selection-screen skip 1.
selection-screen comment /2(20) text14.
selection-screen uline /2(83).
selection-screen comment /2(83) text12.
*selection-screen uline /2(83).
selection-screen comment /2(83) text13.
**
INITIALIZATION.
text01 = '条件选项'.
text02 = '附加选项'.
* p_file = '导入文件路径和文件名(.TXT)'.
text10 = '上载文本格式如下:'.
text11 = 'EAN13码 款号(SKU) 型号 物料类型 提交日期'.
text14 = '注意事项:'.
text12 = '导入前，请先查有无重复信息，确保物料对应EAN13码同先前的对应码无重复!!!如有重复信息将不被导入系统!!!'.
text13 = '导入EAN13码前，请选择"各复查"选项进行复核!!!'.
** 权限检查
authority-check object 'V_VBAK_VKO'
* id 'VKORG' field P_VKORG
id 'ACTVT' field '03'.
IF SY-SUBRC NE 0.
message e000 with '根限不够,请找殷大爷!'.
leave list-processing.
ENDIF.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_FILE.
PERFORM GET_FILENAME.
** 程式主体
START-OF-SELECTION.
IF P_FILE NE SPACE.
CALL FUNCTION 'WS_QUERY'
EXPORTING
FILENAME = P_FILE
QUERY = 'FE' "file exists
IMPORTING
RETURN = L_ANSWER.
IF L_ANSWER <> '1'.
MESSAGE S000 WITH '指定文件不存在,请检查!'.
LEAVE LIST-PROCESSING.
ENDIF.
ENDIF.

LEN = STRLEN( P_FILE ).
LEN = LEN - 4.
IF LEN > 3.
IF P_FILE+LEN(4) <> '.TXT' AND P_FILE+LEN(4) <> '.txt'.
IF P_FILE+L

EN(1) = '.'.
MESSAGE '本地文件的后缀显示,这个文件不是TXT文件!' TYPE 'I'.
ELSE.
CONCATENATE P_FILE '.TXT' INTO P_FILE.
ENDIF.
ENDIF.
ELSE.
CLEAR P_FILE.
ENDIF.
CLEAR LEN.

CALL FUNCTION 'WS_UPLOAD'
EXPORTING
FILENAME = p_file
FILETYPE = 'DAT'
DAT_D_FORMAT = 'YYYY.MM.DD'
* IMPORTING
* FILELENGTH = FLEN
TABLES
DATA_TAB = itab
EXCEPTIONS
CONVERSION_ERROR = 1
FILE_OPEN_ERROR = 2
FILE_READ_ERROR = 3
INVALID_TYPE = 4
NO_BATCH = 5
UNKNOWN_ERROR = 6
INVALID_TABLE_WIDTH = 7
GUI_REFUSE_FILETRANSFER = 8
CUSTOMER_ERROR = 9
NO_AUTHORITY = 10
OTHERS = 11.
IF itab[] is initial.
message s000 with '导入文件是空文件,请检查!'.
ENDIF.

CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
EXPORTING
PERCENTAGE = 0
TEXT = '读入文件进行中,请稍等......'.
* IF P1 = 'X'. "复查
***取系统内存在的对应表
SELECT ZEAN13~ZEAN13 ZEAN13~MATNR ZEAN13~J_3AKORD1 ZEAN13~MTART ZEAN13~ERSDA
INTO CORRESPONDING FIELDS OF TABLE ITAB_S
FROM ZEAN13.

LOOP AT ITAB_S WHERE MTART <> 'ZFT5'.
CONCATENATE ITAB_S-MATNR '-' ITAB_S-J_3AKORD1 INTO ITAB_BAR-ZEINR.
APPEND ITAB_BAR.
MOVE-CORRESPONDING ITAB_S TO ITAB_ZMEAN13.
ITAB_ZMEAN13-ZEINR = ITAB_BAR-ZEINR.
APPEND ITAB_ZMEAN13.
ENDLOOP.

LOOP AT ITAB_S WHERE MTART = 'ZFT5'.
CONCATENATE ITAB_S-MATNR ITAB_S-J_3AKORD1 INTO ITAB_BAR-ZEINR. "'-'
APPEND ITAB_BAR.
MOVE-CORRESPONDING ITAB_S TO ITAB_ZMEAN13.
ITAB_ZMEAN13-ZEINR = ITAB_BAR-ZEINR.
APPEND ITAB_ZMEAN13.
ENDLOOP.


****对应表
***新导临时表数据
LOOP AT ITAB where MTART <> 'ZFT5'.
CONCATENATE ITAB-MATNR '-' ITAB-J_3AKORD1 INTO ITAB_BARS-ZEINR.
APPEND ITAB_BARS.
* MOVE-CORRESPONDING ITAB_S TO ITAB.
ITAB-ZEINR = ITAB_BARS-ZEINR.
ITAB-ERSDA = SY-DATUM.
ITAB-zitem = '1'.

* *** SUNFNEG 2008-10-17 新加大写转换
TRANSLATE ITAB-MATNR TO UPPER CASE.
TRANSLATE ITAB-MTART TO UPPER CASE.
TRANSLATE ITAB-ZEINR TO UPPER CASE.
TRANSLATE ITAB-J_3AKORD1 TO UPPER CASE.
**删除字符串中所有的空格
CONDENSE ITAB-MATNR NO-GAPS.
CONDENSE ITAB-MTART NO-GAPS.
CONDENSE ITAB-ZEINR NO-GAPS.
CONDENSE ITAB-J_3AKORD1 NO-GAPS.

MODIFY ITAB.
ENDLOOP.


LOOP AT ITAB where MTART = 'ZFT5'.
CONCATENATE ITAB-MATNR ITAB-J_3AKORD1 INTO ITAB_BARS-ZEINR. "'-'
APPEND ITAB_BARS.
* MOVE-CORRESPONDING ITAB_S TO ITAB.
ITAB-ZEINR = ITAB_BARS-ZEINR.
ITAB-ERSDA = SY-DATUM.
ITAB-zitem = '1'.

** *** SUNFNEG 2008-10-17 新加大写转换
TRANSLATE

ITAB-MATNR TO UPPER CASE.
TRANSLATE ITAB-MTART TO UPPER CASE.
TRANSLATE ITAB-ZEINR TO UPPER CASE.
TRANSLATE ITAB-J_3AKORD1 TO UPPER CASE.


**删除字符串中所有的空格
CONDENSE ITAB-MATNR NO-GAPS.
CONDENSE ITAB-MTART NO-GAPS.
CONDENSE ITAB-ZEINR NO-GAPS.
CONDENSE ITAB-J_3AKORD1 NO-GAPS.

MODIFY ITAB.
ENDLOOP.

loop at ITAB.
ITAB-ZEAN13S = STRLEN( ITAB-ZEAN13 ).
ITAB-ZEINRS = STRLEN( ITAB-ZEINR ).
MODIFY ITAB.
endloop.

IF P8 = 'X'. "复查

* loop at ITAB.
* ITAB-ZEAN13S = STRLEN( ITAB-ZEAN13 ).
* ITAB-ZEINRS = STRLEN( ITAB-ZEINR ).
* MODIFY ITAB.
* endloop.


SORT ITAB BY J_3AKORD1.
perform alv_output_ITAB.


ELSEif P88 = 'X'. "复查

ITAB13[] = ITAB[].

DELETE ITAB13 WHERE ZEAN13S = '13'.

SORT ITAB13 BY J_3AKORD1.

IF ITAB13[] IS initial.
SKIP 3.
WRITE: 48 '本项检查通过!'. SKIP 3.

ELSEif ITAB13[] IS NOT initial.
perform alv_output_ITAB13.
ENDIF.
ELSEif P1 = 'X'. "复查
clear ITAB_ZEAN13.
loop at ITAB.
move-corresponding ITAB to ITAB_ZEAN13.
collect ITAB_ZEAN13.
endloop.

DELETE itab_ZEAN13 WHERE zitem = '1'.

IF itab_ZEAN13[] IS initial.
SKIP 3.
WRITE: 48 '本项检查通过!'. SKIP 3.

ELSEif itab_ZEAN13[] IS NOT initial.

perform alv_output_ZEAN13.
ENDIF.


ELSEif P7 = 'X'. "复查

SORT ITAB BY ZEAN13.

IF ITAB-ZEAN13S <> '13'.
message e000 with 'EAN13码有不是13位的记录,系统终止!请复查后重新导入!'.
leave list-processing.
ENDIF.

loop at ITAB.
ZZMTART-ZMTART = ITAB-MTART.
ZZMTART-LAEDA = SY-DATUM.
APPEND ZZMTART.
ENDLOOP.
DELETE ZZMTART WHERE ZMTART <> ''.
loop at ZZMTART
where ZMTART = ''.
ZMTART = '1'.
ENDLOOP.
IF ZMTART = '1'.
message e000 with '物料类有空记录,系统终止!请复查后重新导入!'.
leave list-processing.
ENDIF.


loop at ITAB.
ZZMATNR-ZMATNR = ITAB-MATNR.
ZZMATNR-LAEDA = SY-DATUM.
APPEND ZZMATNR.
ENDLOOP.
DELETE ZZMATNR WHERE ZMATNR <> ''.
loop at ZZMATNR
where ZMATNR = ''.
ZMATNR = '1'.
ENDLOOP.
IF ZMATNR = '1'.
message e000 with 'SKU值有空记录,系统终止!请复查后重新导入!'.
leave list-processing.
ENDIF.


loop at ITAB.
ZZJ_3AKORD1-ZJ_3AKORD1 = ITAB-J_3AKORD1.
ZZJ_3AKORD1-LAEDA = SY-DATUM.
ZZJ_3AKORD1-ZMTART = ITAB-MTART.
APPEND ZZJ_3AKORD1.
ENDLOOP.
DELETE ZZJ_3AKORD1 WHERE ZJ_3AKORD1 <> ''.
DELETE ZZJ_3AKORD1 WHERE ZMTART = 'ZFT5'.

loop at ZZJ_3AKORD1
where ZJ_3AKORD1 = ''.
ZJ_3AKORD1 = '1'. "ZZJ_3AKORD1-ZJ_3AKORD1.
ENDLOOP.
IF ZJ_3AKORD1 = '1'.

" ZZJ_3AKORD1-LAEDA = ' ' AND ZZJ_3AKORD1-
message e000 with '尺码值有空记录,系统终止!请复查后重新导入!'.
leave list-processing.
ENDIF.


loop at ITAB.
ZZLAEDA-ZLAEDA = ITAB-LAEDA.
ZZLAEDA-LAEDA = SY-DATUM.
APPEND ZZLAEDA.
ENDLOOP.
DELETE ZZLAEDA WHERE ZLAEDA <> ''.
loop at ZZLAEDA
where ZLAEDA = ''.
ZZLAEDA = '1'. "ZZJ_3AKORD1-ZJ_3AKORD1.
ENDLOOP.
IF ZLAEDA = '1'.
message e000 with '提交日期有空记录,系统终止!请复查后重新导入!'.
leave list-processing.
ENDIF.

loop at ITAB.
loop at ITAB_ZMEAN13
where ZEINR = ITAB-ZEINR.
ZZZEAN13-ZEAN13 = ITAB_ZMEAN13-ZEAN13.
ZZZEAN13-LAEDA = SY-DATUM.
APPEND ZZZEAN13.
ENDLOOP.
ENDLOOP.
IF ZZZEAN13[] IS NOT initial.
message e000 with 'EAN13码同系统内有重复记录,系统终止!请复查后重新导入!'.
leave list-processing.
ENDIF.


loop at ITAB.
loop at ITAB_ZMEAN13
where ZEINR = ITAB-ZEINR.
ZZEINR-ZEINR = ITAB_ZMEAN13-ZEINR.
ZZEINR-LAEDA = SY-DATUM.
APPEND ZZEINR.
ENDLOOP.
ENDLOOP.
IF ZZEINR[] IS NOT initial.
message e000 with '商品编码同系统里重复,系统终止!请复查后重新导入!'.
leave list-processing.
ENDIF.

SELECT MARA~MANDT MARA~MATNR MARA~MTART
INTO CORRESPONDING FIELDS OF TABLE ITAB_MARA
FROM MARA .
clear ITAB_MARAW.

loop at ITAB.
move-corresponding ITAB to ITAB_MARAW.
collect ITAB_MARAW.
endloop.

LOOP AT ITAB_MARA.
loop at ITAB_MARAW
where MATNR = ITAB_MARA-MATNR.
ITAB_MARAW-ZCF = ITAB_MARA-MATNR.
MODIFY ITAB_MARAW.
ENDLOOP.
ENDLOOP.
DELETE ITAB_MARAW WHERE ZCF <> ''.
DELETE ITAB_MARAW WHERE MATNR = ''.
IF itab_MARAW[] IS NOT initial.
message e000 with '商品SKU有不在R3系统的数据,系统终止!请复查后重新导入!'.
leave list-processing.
ENDIF.



LOOP AT ITAB.
move-corresponding ITAB to ZEAN13. "YTEST1. "ZEAN13.
* collect ZEAN13.
modify ZEAN13 from ZEAN13.
ENDLOOP.
COMMIT WORK.

SKIP 3.

WRITE: /44 ' 导 入 数 据 成 功!'.

ELSEif P2 = 'X'. "复查

clear ITAB_ZEINR.
loop at ITAB.
move-corresponding ITAB to ITAB_ZEINR.
collect ITAB_ZEINR.
endloop.

DELETE itab_ZEINR WHERE zitem = '1'.

DELETE itab_ZEINR WHERE ZEINR = '-'.

IF itab_ZEINR[] IS initial.
SKIP 3.
WRITE: 48 '本项检查通过!'. SKIP 3.

ELSEif itab_ZEINR[] IS NOT initial.

perform alv_output_ZEINR.
ENDIF.



ELSEif P3 = 'X'. "复查
****检验
SELECT MARA~MANDT MARA~MATNR MARA~MTART
INTO CORRESPONDING FIELDS O

F TABLE ITAB_MARA
FROM MARA .

clear ITAB_MARAW.
loop at ITAB.
move-corresponding ITAB to ITAB_MARAW.
collect ITAB_MARAW.
endloop.

LOOP AT ITAB_MARA.
loop at ITAB_MARAW
where MATNR = ITAB_MARA-MATNR.
ITAB_MARAW-ZCF = ITAB_MARA-MATNR.
MODIFY ITAB_MARAW.
ENDLOOP.
ENDLOOP.

DELETE ITAB_MARAW WHERE ZCF <> ''.
DELETE ITAB_MARAW WHERE MATNR = ''.

IF ITAB_MARAW[] IS initial.
SKIP 3.
WRITE: 48 '本项检查通过!'. SKIP 3.

ELSEif ITAB_MARAW[] IS NOT initial.

perform alv_output_MARAW.
ENDIF.

ELSEif P4 = 'X'. "复查
clear ITABCF.
loop at ITAB.
move-corresponding ITAB to ITABCF.
collect ITABCF.
endloop.

loop at ITAB_ZMEAN13.
loop at itabCF
where ZEINR = ITAB_ZMEAN13-ZEINR.
itabCF-ZCF = ITAB_ZMEAN13-ZEAN13.
itabCF-ERSDA = ITAB_ZMEAN13-ERSDA.

MODIFY itabCF.
ENDLOOP.
ENDLOOP.

DELETE itabCF WHERE ZCF = ' '.

* loop at itabCF.
** WHERE ZCF = itabCF-ZEAN13.
* DELETE itabCF WHERE ZCF = itabCF-ZEAN13. "
* ENDLOOP.

IF itabCF[] IS initial.
SKIP 3.
WRITE: 48 '本项检查通过!'. SKIP 3.

ELSEif itabCF[] IS NOT initial.
perform alv_output.
ENDIF.

clear ITABCF.
ELSEif P5 = 'X'. "复查
clear ITABCF.
loop at ITAB.
move-corresponding ITAB to ITABCF.
collect ITABCF.
endloop.

loop at ITAB_ZMEAN13.
loop at itabCF
where ZEAN13 = ITAB_ZMEAN13-ZEAN13.
itabCF-ZCF = ITAB_ZMEAN13-ZEINR.
itabCF-ERSDA = ITAB_ZMEAN13-ERSDA.
MODIFY itabCF .
ENDLOOP.
ENDLOOP.
DELETE itabCF WHERE ZCF = ' '.
*
* loop at itabCF.
* DELETE itabCF WHERE ZCF = itabCF-ZEINR.
* ENDLOOP.

IF itabCF[] IS initial.
SKIP 3.
WRITE: 48 '本项检查通过!'. SKIP 3.

ELSEif itabCF[] IS NOT initial.
perform alv_output.
ENDIF.
clear ITABCF.
* ELSEif P6 = 'X'.
*
*
* CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
* EXPORTING
* PERCENTAGE = 0
* TEXT = '批量导入进行中,请稍等......'.
**&---------------------------------------------------------------------*
**& Form BAPI_PROC
**&---------------------------------------------------------------------*
** text
***----------------------------------------------------------------------*
**FORM BAPI_PROC .
* REFRESH I_BDCDATA. CLEAR I_BDCDATA.
* REFRESH RETURN . CLEAR RETURN.
*
* SORT ITAB BY ZEAN13.
* LOOP AT ITAB.
* W_LOOP = SY-TABIX.
* ZFLAG = ''.
* AT NEW ZEAN13.
* READ TABLE ITAB INDEX W_LOOP.
* PERFORM i_bdcdata_add USING:
*
* '1' 'SAPLSETB' '0230',
* '' 'BDC_OKCODE' '=ANLE',
* '' 'DATABROWSE-TABLENAME'

'ZEAN13',
*
* '1' '/1BCDWB/DBZEAN13' '0101',
* '' 'BDC_OKCODE' '=SAVE',
* '' 'ZEAN13-ZEAN13' ITAB-ZEAN13,
* '' 'ZEAN13-MATNR' ITAB-MATNR,
* '' 'ZEAN13-J_3AKORD1' ITAB-J_3AKORD1,
*
* '' 'ZEAN13-LAEDA' ITAB-LAEDA,
*
* '' 'ZEAN13-ERSDA' ITAB-ERSDA,
* '' 'ZEAN13-MTART' ITAB-MTART,
*
*
* '1' '/1BCDWB/DBZEAN13' '0101',
* '' 'BDC_OKCODE' '/EEND',
*
* '1' 'SAPLSETB' '0230',
* '' 'BDC_OKCODE' '/EEND'.
*
* CALL TRANSACTION 'SE16' USING I_BDCDATA MODE 'E' "E A
* UPDATE 'S' MESSAGES INTO RETURN.
*
* COMMIT WORK AND WAIT.
* REFRESH I_BDCDATA. CLEAR I_BDCDATA.
* REFRESH RETURN . CLEAR RETURN.
* ENDAT.
* SY-TABIX = W_LOOP.
* ENDLOOP.
**ENDFORM. " BAPI_PROC
ENDIF.
*&---------------------------------------------------------------------*
*& Form i_bdcdata_add
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
form i_bdcdata_add using tmp_flag
tmp_var1
tmp_var2.

CLEAR I_BDCDATA.
IF TMP_FLAG = '1'.
I_BDCDATA-PROGRAM = TMP_VAR1.
I_BDCDATA-DYNPRO = TMP_VAR2.
I_BDCDATA-DYNBEGIN = 'X'.
ELSE.
I_BDCDATA-FNAM = TMP_VAR1.
I_BDCDATA-FVAL = TMP_VAR2.
ENDIF.
APPEND I_BDCDATA.

endform. " i_bdcdata_add
*&---------------------------------------------------------------------*
*& Form GET_FILENAME
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
FORM GET_FILENAME .
CALL FUNCTION 'WS_FILENAME_GET'
EXPORTING
DEF_FILENAME = P_FILE
DEF_PATH = 'C:\'
MASK = ',*.TXT,*.txt.'
MODE = 'O'
IMPORTING
FILENAME = P_FILE
EXCEPTIONS
INV_WINSYS = 1
NO_BATCH = 2
SELECTION_CANCEL = 3
SELECTION_ERROR = 4
OTHERS = 5.

ENDFORM. " GET_FILENAME

***复查商品编码重复信息
*&---------------------------------------------------------------------*
*& Form alv_output
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
FORM alv_output .
type-pools: slis.
data: t_fieldcat type slis_t_fieldcat_alv with header line.
data: gs_layout type slis_layout_alv.
gs_layout-colwidth_optimize = 'X'.
gs_layout-zebra = 'X'.


t_fieldcat-fieldname = 'MTART'

.
t_fieldcat-seltext_l = '物料类型'. append t_fieldcat.

t_fieldcat-fieldname = 'ZEAN13'.
t_fieldcat-seltext_l = 'EAN13'. append t_fieldcat.

t_fieldcat-fieldname = 'MATNR'.
t_fieldcat-seltext_l = 'SKU'. append t_fieldcat.

t_fieldcat-fieldname = 'J_3AKORD1'.
t_fieldcat-seltext_l = '尺码'. append t_fieldcat.

t_fieldcat-fieldname = 'LAEDA'.
t_fieldcat-seltext_l = '提交日期'. append t_fieldcat.

t_fieldcat-fieldname = 'ERSDA'.
t_fieldcat-seltext_l = '历史创建日期'. append t_fieldcat.

t_fieldcat-fieldname = 'ZEINR'.
t_fieldcat-seltext_l = '商品编码'. append t_fieldcat.

t_fieldcat-fieldname = 'ZCF'.
t_fieldcat-seltext_l = '历史存在信息'. append t_fieldcat.

call function 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
i_callback_program = 'ZMMEAN13B'
i_grid_title = '动向体育物料EAN13对应码复查'
it_fieldcat = t_fieldcat[]
is_layout = gs_layout
i_save = 'A'
TABLES
t_outtab = itabCF
EXCEPTIONS
program_error = 1
others = 2.
ENDFORM. " alv_output
***复查商品编码重复信息
*&---------------------------------------------------------------------*
*& Form alv_output_ZEAN13
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
FORM alv_output_ZEAN13 .
type-pools: slis.
data: t_fieldcat type slis_t_fieldcat_alv with header line.
data: gs_layout type slis_layout_alv.
gs_layout-colwidth_optimize = 'X'.
gs_layout-zebra = 'X'.

t_fieldcat-fieldname = 'ZEAN13'.
t_fieldcat-seltext_l = 'EAN13'. append t_fieldcat.

t_fieldcat-fieldname = 'ZITEM'.
t_fieldcat-seltext_l = '重复信息次数'. append t_fieldcat.

call function 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
i_callback_program = 'ZMMEAN13B'
i_grid_title = '动向体育物料EAN13对应码复查'
it_fieldcat = t_fieldcat[]
is_layout = gs_layout
i_save = 'A'
TABLES
t_outtab = itab_ZEAN13
EXCEPTIONS
program_error = 1
others = 2.
ENDFORM. " alv_output_ZEINR

***复查商品编码重复信息
*&---------------------------------------------------------------------*
*& Form alv_output_ZEINR
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
FORM alv_output_ZEINR .
type-pools: slis.
data: t_fieldcat type slis_t_fieldcat_alv with header line.
data: gs_layout type slis_layout_alv.
gs_layout-colwidth_optimize = 'X'.
gs_layout-zebra = 'X'.

t_fieldcat-fieldname = 'ZEIN

R'.
t_fieldcat-seltext_l = '商品编码'. append t_fieldcat.


t_fieldcat-fieldname = 'ZITEM'.
t_fieldcat-seltext_l = '重复信息次数'. append t_fieldcat.

call function 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
i_callback_program = 'ZMMEAN13B'
i_grid_title = '动向体育物料EAN13对应码复查'
it_fieldcat = t_fieldcat[]
is_layout = gs_layout
i_save = 'A'
TABLES
t_outtab = itab_ZEINR
EXCEPTIONS
program_error = 1
others = 2.
ENDFORM. " alv_output

*&---------------------------------------------------------------------*
*& Form alv_output_MARAW
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
FORM alv_output_MARAW.
type-pools: slis.
data: t_fieldcat type slis_t_fieldcat_alv with header line.
data: gs_layout type slis_layout_alv.
gs_layout-colwidth_optimize = 'X'.
gs_layout-zebra = 'X'.

t_fieldcat-fieldname = 'MTART'.
t_fieldcat-seltext_l = '物料类型'. append t_fieldcat.

t_fieldcat-fieldname = 'ZEAN13'.
t_fieldcat-seltext_l = 'EAN13'. append t_fieldcat.

t_fieldcat-fieldname = 'MATNR'.
t_fieldcat-seltext_l = 'SKU'. append t_fieldcat.

t_fieldcat-fieldname = 'J_3AKORD1'.
t_fieldcat-seltext_l = '尺码'. append t_fieldcat.


t_fieldcat-fieldname = 'LAEDA'.
t_fieldcat-seltext_l = '提交日期'. append t_fieldcat.

* t_fieldcat-fieldname = 'ERSDA'.
* t_fieldcat-seltext_l = '日期'. append t_fieldcat.

* t_fieldcat-fieldname = 'ZCF'.
* t_fieldcat-seltext_l = 'R3存在的SKU信息'. append t_fieldcat.

call function 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
i_callback_program = 'ZMMEAN13B'
i_grid_title = '动向体育物料EAN13对应码R3不存在的SKU信息'
it_fieldcat = t_fieldcat[]
is_layout = gs_layout
i_save = 'A'
TABLES
t_outtab = itab_MARAW
EXCEPTIONS
program_error = 1
others = 2.
ENDFORM. " alv_outputMARAW



*&---------------------------------------------------------------------*
*& Form alv_output_itab
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
FORM alv_output_itab .
type-pools: slis.
data: t_fieldcat type slis_t_fieldcat_alv with header line.
data: gs_layout type slis_layout_alv.
gs_layout-colwidth_optimize = 'X'.
gs_layout-zebra = 'X'.


t_fieldcat-fieldname = 'MTART'.
t_fieldcat-seltext_l = '物料类型'. append t_fieldcat.

t_fieldcat-fieldname = 'ZEAN13'.
t_fieldcat-seltext_l = 'EAN13'.

append t_fieldcat.

t_fieldcat-fieldname = 'MATNR'.
t_fieldcat-seltext_l = 'SKU'. append t_fieldcat.

t_fieldcat-fieldname = 'J_3AKORD1'.
t_fieldcat-seltext_l = '尺码'. append t_fieldcat.


t_fieldcat-fieldname = 'LAEDA'.
t_fieldcat-seltext_l = '提交日期'. append t_fieldcat.

* t_fieldcat-fieldname = 'ERSDA'.
* t_fieldcat-seltext_l = '日期'. append t_fieldcat.
*
t_fieldcat-fieldname = 'ZEINR'.
t_fieldcat-seltext_l = '商品编码'. append t_fieldcat.

t_fieldcat-fieldname = 'ZEAN13S'.
t_fieldcat-seltext_l = 'EAN13码位数'. append t_fieldcat.

t_fieldcat-fieldname = 'ZEINRS'.
t_fieldcat-seltext_l = '商品编码位数'. append t_fieldcat.


call function 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
i_callback_program = 'ZMMEAN13B'
i_grid_title = '新导文件自身格式有无问题复查'
it_fieldcat = t_fieldcat[]
is_layout = gs_layout
i_save = 'A'
TABLES
t_outtab = itab
EXCEPTIONS
program_error = 1
others = 2.
ENDFORM. " alv_output_itab


*&---------------------------------------------------------------------*
*& Form alv_output_itab
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
FORM alv_output_itab13 .
type-pools: slis.
data: t_fieldcat type slis_t_fieldcat_alv with header line.
data: gs_layout type slis_layout_alv.
gs_layout-colwidth_optimize = 'X'.
gs_layout-zebra = 'X'.


t_fieldcat-fieldname = 'MTART'.
t_fieldcat-seltext_l = '物料类型'. append t_fieldcat.

t_fieldcat-fieldname = 'ZEAN13'.
t_fieldcat-seltext_l = 'EAN13'. append t_fieldcat.

t_fieldcat-fieldname = 'MATNR'.
t_fieldcat-seltext_l = 'SKU'. append t_fieldcat.

t_fieldcat-fieldname = 'J_3AKORD1'.
t_fieldcat-seltext_l = '尺码'. append t_fieldcat.


t_fieldcat-fieldname = 'LAEDA'.
t_fieldcat-seltext_l = '提交日期'. append t_fieldcat.

* t_fieldcat-fieldname = 'ERSDA'.
* t_fieldcat-seltext_l = '日期'. append t_fieldcat.
*
t_fieldcat-fieldname = 'ZEINR'.
t_fieldcat-seltext_l = '商品编码'. append t_fieldcat.

t_fieldcat-fieldname = 'ZEAN13S'.
t_fieldcat-seltext_l = 'EAN13码位数'. append t_fieldcat.

t_fieldcat-fieldname = 'ZEINRS'.
t_fieldcat-seltext_l = '商品编码位数'. append t_fieldcat.


call function 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
i_callback_program = 'ZMMEAN13B'
i_grid_title = '新导文件自身格式有无问题复查'
it_fieldcat = t_fieldcat[]
is_layout = gs_layout
i_save = 'A'
TABLES
t_outtab = i

tab13
EXCEPTIONS
program_error = 1
others = 2.
ENDFORM. " alv_output_itab