REPORT Z_CO02 NO STANDARD PAGE HEADING.
TABLES: RESB ,AFPO.
PARAMETERS:P_FILE(128) DEFAULT 'C:\Users\jax\Desktop\新建 Microsoft Excel 工作表.xlsx'.
SELECTION-SCREEN BEGIN OF BLOCK BK1 WITH FRAME TITLE TEXT-001.
PARAMETERS R1 RADIOBUTTON GROUP GR1 DEFAULT 'X'.
PARAMETERS R2 RADIOBUTTON GROUP GR1.
PARAMETERS R3 RADIOBUTTON GROUP GR1.
SELECTION-SCREEN END OF BLOCK BK1.
PARAMETERS: NODATA DEFAULT '/' LOWER CASE NO-DISPLAY. "nodata
DATA: BEGIN OF GT_ZSTYPF OCCURS 0,
RSPOS TYPE RESB-RSPOS,
RSNUM TYPE RESB-RSNUM,
AUFNR TYPE RESB-AUFNR,
MATNR TYPE MARA-MATNR,
MEINS TYPE RESB-MEINS,
POTX1 TYPE RESB-POTX1,
XLOEK TYPE RESB-XLOEK,
BDMNG TYPE RESB-BDMNG,
POSNR TYPE RESB-POSNR,
VORNR TYPE RESB-VORNR,
PLNFL TYPE RESB-PLNFL,
END OF GT_ZSTYPF.
DATA GS_ZSTYPF LIKE LINE OF GT_ZSTYPF.
DATA GT_DATA LIKE GT_ZSTYPF[] WITH HEADER LINE.
DATA GT_DATA1 LIKE GT_ZSTYPF[] WITH HEADER LINE.
DATA: BDCDATA LIKE BDCDATA OCCURS 0 WITH HEADER LINE.
DATA: MESSTAB LIKE BDCMSGCOLL OCCURS 0 WITH HEADER LINE.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_FILE .
PERFORM FRM_INPUT_HELP CHANGING P_FILE.
START-OF-SELECTION.
PERFORM GET_DATA USING P_FILE. "得到数据
PERFORM PRM_CHANGE_BOM .
FORM PRM_CHANGE_BOM .
DATA:GW_ZSTYPF LIKE LINE OF GT_ZSTYPF[].
DATA:LV_RSPOS TYPE RSPOS.
CLEAR:GW_ZSTYPF,LV_RSPOS.
MOVE-CORRESPONDING GT_DATA1[] TO GT_ZSTYPF[].
LOOP AT GT_ZSTYPF INTO GS_ZSTYPF WHERE RSNUM IS NOT INITIAL."修改原有组件
PERFORM prm_add_bom_line USING gs_zstypf.
* PERFORM PRM_CHANGE_BOM_LINE USING GS_ZSTYPF.
* PERFORM prm_delete_bom_line USING gs_zstypf.
IF SY-SUBRC = 0.
MESSAGE '修改组件成功！' TYPE 'S'.
ELSE.
MESSAGE '修改组件失败，请重新修改！' TYPE 'E'.
ENDIF.
ENDLOOP.
WAIT UP TO 1 SECONDS.
ENDFORM. " PRM_CHANGE_BOM
******************
FORM PRM_DELETE_BOM_LINE USING P_POSNR P_AUFNR.
DATA:LV_VALUE TYPE BDCDATA-FVAL.
DATA:LV_FNAME TYPE BDCDATA-FNAM.
REFRESH:MESSTAB,BDCDATA.
CLEAR:LV_VALUE,LV_FNAME.
CONCATENATE 'RESBD-POSNR(' P_POSNR ')' INTO LV_VALUE.
CONCATENATE 'RC27X-FLG_SEL(' P_POSNR ')' INTO LV_FNAME.
PERFORM BDC_DYNPRO USING 'SAPLCOKO1' '0110'.
PERFORM BDC_FIELD USING 'BDC_CURSOR'
'CAUFVD-AUFNR'.
PERFORM BDC_FIELD USING 'BDC_OKCODE'
'=KPU2'.
PERFORM BDC_FIELD USING 'CAUFVD-AUFNR'
P_AUFNR.
* '100000043'.
PERFORM BDC_FIELD USING 'R62CLORD-FLG_OVIEW'
'X'.
PERFORM BDC_DYNPRO USING 'SAPLCOMK' '0120'.
PERFORM BDC_FIELD USING 'BDC_CURSOR'
LV_VALUE.
* 'RESBD-POSNR(02)'.
PERFORM BDC_FIELD USING 'BDC_OKCODE'
'=DEL'.
PERFORM BDC_FIELD USING 'FILTER_BOX'
'NO_FIL'.
PERFORM BDC_FIELD USING 'SORT_BOX'
'ST_STA'.
PERFORM BDC_FIELD USING LV_FNAME"'RC27X-FLG_SEL(02)'
'X'.
PERFORM BDC_DYNPRO USING 'SAPLCOMK' '0120'.
PERFORM BDC_FIELD USING 'BDC_CURSOR'
'RESBD-MATNR(01)'.
PERFORM BDC_FIELD USING 'BDC_OKCODE'
'=BU'.
PERFORM BDC_FIELD USING 'FILTER_BOX'
'NO_FIL'.
PERFORM BDC_FIELD USING 'SORT_BOX'
'ST_STA'.
CALL TRANSACTION 'CO02' USING BDCDATA
MODE 'N'
UPDATE 'S'
MESSAGES INTO MESSTAB.
*perform bdc_transaction using 'CO02'.
ENDFORM. " PRM_DELETE_BOM_LINE
***************************
FORM PRM_CHANGE_BOM_LINE USING P_GS_ZSTYPF STRUCTURE GS_ZSTYPF.
DATA:LV_VALUE TYPE BDCDATA-FVAL.
DATA:LV_DBMN TYPE BDCDATA-FVAL."数量
DATA:LV_FNAM1 TYPE BDCDATA-FNAM.
DATA:LV_FNAM2 TYPE BDCDATA-FNAM.
DATA:LV_FNAM3 TYPE BDCDATA-FNAM.
REFRESH:MESSTAB,BDCDATA.
CLEAR:LV_VALUE,LV_FNAM1,LV_FNAM2,LV_FNAM3.
CONCATENATE 'RESBD-MATXT(' P_GS_ZSTYPF-RSPOS ')' INTO LV_VALUE. "这里需要注意，这样做是为了避开数据重复
CONCATENATE 'RC27X-FLG_SEL(' P_GS_ZSTYPF-RSPOS ')' INTO LV_FNAM1.
CONCATENATE 'RESBD-MATNR(' P_GS_ZSTYPF-RSPOS ')' INTO LV_FNAM2.
CONCATENATE 'RESBD-MENGE(' P_GS_ZSTYPF-RSPOS ')' INTO LV_FNAM3.
PERFORM BDC_DYNPRO USING 'SAPLCOKO1' '0110'.
PERFORM BDC_FIELD USING 'BDC_CURSOR'
'CAUFVD-AUFNR'.
PERFORM BDC_FIELD USING 'BDC_OKCODE'
'=KPU2'.
PERFORM BDC_FIELD USING 'CAUFVD-AUFNR'
P_GS_ZSTYPF-AUFNR.
PERFORM BDC_FIELD USING 'R62CLORD-FLG_OVIEW'
'X'.
PERFORM BDC_DYNPRO USING 'SAPLCOMK' '0120'.
PERFORM BDC_FIELD USING 'BDC_CURSOR'
LV_VALUE.
PERFORM BDC_FIELD USING 'BDC_OKCODE'
'=PICK'.
PERFORM BDC_FIELD USING 'FILTER_BOX'
'NO_FIL'.
PERFORM BDC_FIELD USING 'SORT_BOX'
'ST_STA'.
PERFORM BDC_FIELD USING LV_FNAM1
'X'.
PERFORM BDC_FIELD USING LV_FNAM2
P_GS_ZSTYPF-MATNR.
MOVE P_GS_ZSTYPF-BDMNG TO LV_DBMN.
CONDENSE LV_DBMN NO-GAPS.
PERFORM BDC_FIELD USING LV_FNAM3
LV_DBMN.
PERFORM BDC_DYNPRO USING 'SAPLCOMD' '0110'.
PERFORM BDC_FIELD USING 'BDC_OKCODE'
'=BU'.
PERFORM BDC_FIELD USING 'BDC_CURSOR'
'RESBD-POTX1'.
PERFORM BDC_FIELD USING 'RESBD-MATNR'
P_GS_ZSTYPF-MATNR.
PERFORM BDC_FIELD USING 'RESBD-POSNR'
P_GS_ZSTYPF-POSNR.
PERFORM BDC_FIELD USING 'RESBD-POTX1'
P_GS_ZSTYPF-POTX1.
PERFORM BDC_FIELD USING 'RESBD-SANKA'
'X'.
PERFORM BDC_DYNPRO USING 'SAPLCOMD' '0110'.
PERFORM BDC_FIELD USING 'BDC_OKCODE'
'=BU'.
PERFORM BDC_FIELD USING 'RESBD-SANKA'
'X'.
CALL TRANSACTION 'CO02' USING BDCDATA
MODE 'N'
UPDATE 'S'
MESSAGES INTO MESSTAB.
ENDFORM. " PRM_CHANGE_BOM_LINE
FORM PRM_ADD_BOM_LINE USING P_GS_ZSTYPF STRUCTURE GS_ZSTYPF.
DATA:LV_VALUE TYPE BDCDATA-FVAL.
DATA:LV_DBMN TYPE BDCDATA-FVAL."数量
DATA:LV_FNAM1 TYPE BDCDATA-FNAM.
DATA:LV_FNAM2 TYPE BDCDATA-FNAM.
DATA:LV_FNAM3 TYPE BDCDATA-FNAM.
DATA:LV_FNAM4 TYPE BDCDATA-FNAM.
DATA:LV_FNAM5 TYPE BDCDATA-FNAM.
DATA:LV_FNAM6 TYPE BDCDATA-FNAM.
REFRESH:MESSTAB,BDCDATA.
CLEAR:LV_VALUE,LV_FNAM1,LV_FNAM2,LV_FNAM3,LV_FNAM4,LV_FNAM5,LV_FNAM6.
CONCATENATE 'RESBD-MATXT(' P_GS_ZSTYPF-RSPOS ')' INTO LV_VALUE.
CONCATENATE 'RESBD-MATNR(' P_GS_ZSTYPF-RSPOS ')' INTO LV_FNAM1.
CONCATENATE 'RESBD-MENGE(' P_GS_ZSTYPF-RSPOS ')' INTO LV_FNAM2.
CONCATENATE 'RESBD-EINHEIT(' P_GS_ZSTYPF-RSPOS ')' INTO LV_FNAM3.
CONCATENATE 'RESBD-POSTP(' P_GS_ZSTYPF-RSPOS ')' INTO LV_FNAM4.
CONCATENATE 'RESBD-VORNR(' P_GS_ZSTYPF-RSPOS ')' INTO LV_FNAM5.
CONCATENATE 'RCOLS-APLFL(' P_GS_ZSTYPF-RSPOS ')' INTO LV_FNAM6.
PERFORM BDC_DYNPRO USING 'SAPLCOKO1' '0110'.
PERFORM BDC_FIELD USING 'BDC_CURSOR'
'CAUFVD-AUFNR'.
PERFORM BDC_FIELD USING 'BDC_OKCODE'
'=KPU2'.
PERFORM BDC_FIELD USING 'CAUFVD-AUFNR'
P_GS_ZSTYPF-AUFNR.
PERFORM BDC_FIELD USING 'R62CLORD-FLG_OVIEW'
'X'.
PERFORM BDC_DYNPRO USING 'SAPLCOMK' '0120'.
PERFORM BDC_FIELD USING 'BDC_CURSOR'
LV_VALUE.
PERFORM BDC_FIELD USING 'BDC_OKCODE'
'=PICK'.
PERFORM BDC_FIELD USING 'FILTER_BOX'
'NO_FIL'.
PERFORM BDC_FIELD USING 'SORT_BOX'
'ST_STA'.
PERFORM BDC_FIELD USING LV_FNAM1
P_GS_ZSTYPF-MATNR.
MOVE P_GS_ZSTYPF-BDMNG TO LV_DBMN.
CONDENSE LV_DBMN NO-GAPS.
PERFORM BDC_FIELD USING LV_FNAM2
LV_DBMN.
CALL FUNCTION 'CONVERSION_EXIT_CUNIT_OUTPUT'
EXPORTING
INPUT = P_GS_ZSTYPF-MEINS
LANGUAGE = SY-LANGU
IMPORTING
* LONG_TEXT =
OUTPUT = P_GS_ZSTYPF-MEINS
* SHORT_TEXT =
EXCEPTIONS
UNIT_NOT_FOUND = 1
OTHERS = 2.
PERFORM BDC_FIELD USING LV_FNAM3
P_GS_ZSTYPF-MEINS.
PERFORM BDC_FIELD USING LV_FNAM4
'L'.
PERFORM BDC_FIELD USING LV_FNAM5
P_GS_ZSTYPF-VORNR.
PERFORM BDC_FIELD USING LV_FNAM6
P_GS_ZSTYPF-PLNFL.
PERFORM BDC_DYNPRO USING 'SAPLCOMD' '0110'.
PERFORM BDC_FIELD USING 'BDC_OKCODE'
'=BU'.
PERFORM BDC_FIELD USING 'BDC_CURSOR'
'RESBD-POTX1'.
PERFORM BDC_FIELD USING 'RESBD-POTX1'
P_GS_ZSTYPF-POTX1.
PERFORM BDC_FIELD USING 'RESBD-SANKA'
'X'.
PERFORM BDC_DYNPRO USING 'SAPLCOMD' '0110'.
PERFORM BDC_FIELD USING 'BDC_OKCODE'
'=BU'.
CALL TRANSACTION 'CO02' USING BDCDATA
MODE 'N'
UPDATE 'S'
MESSAGES INTO MESSTAB.
ENDFORM. " PRM_ADD_BOM_LINE
FORM BDC_DYNPRO USING PROGRAM DYNPRO.
CLEAR BDCDATA.
BDCDATA-PROGRAM = PROGRAM.
BDCDATA-DYNPRO = DYNPRO.
BDCDATA-DYNBEGIN = 'X'.
APPEND BDCDATA.
ENDFORM.
*----------------------------------------------------------------------*
* Insert field *
*----------------------------------------------------------------------*
FORM BDC_FIELD USING FNAM FVAL.
IF FVAL <> NODATA.
CLEAR BDCDATA.
BDCDATA-FNAM = FNAM.
BDCDATA-FVAL = FVAL.
APPEND BDCDATA.
ENDIF.
ENDFORM.
FORM FRM_INPUT_HELP CHANGING P_O_FILE.
DATA:
LTD_FILETABLE TYPE FILETABLE,
LTH_FILETABLE TYPE LINE OF FILETABLE,
LW_RC TYPE I,
LV_FILTER TYPE STRING.
LV_FILTER = 'Excel文件(*.XLS)|*.XLS|Excel文件(*.XLSX)|*.XLSX|'.
CALL METHOD CL_GUI_FRONTEND_SERVICES=>FILE_OPEN_DIALOG
EXPORTING
* FILE_FILTER = '*.*|Excel Files (*.xls)|*'
FILE_FILTER = LV_FILTER
CHANGING
FILE_TABLE = LTD_FILETABLE
RC = LW_RC
EXCEPTIONS
FILE_OPEN_DIALOG_FAILED = 1
CNTL_ERROR = 2
ERROR_NO_GUI = 3
NOT_SUPPORTED_BY_GUI = 4
OTHERS = 5.
IF SY-SUBRC = 0.
READ TABLE LTD_FILETABLE INTO LTH_FILETABLE INDEX 1.
P_O_FILE = LTH_FILETABLE-FILENAME.
ELSE.
MESSAGE ID SY-MSGID TYPE 'I' NUMBER SY-MSGNO
DISPLAY LIKE 'E'
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
LEAVE LIST-PROCESSING.
ENDIF.
ENDFORM. " FRM_INPUT_HELP
FORM GET_DATA USING P_I_FILE.
DATA: BEGIN OF IT_HEADER OCCURS 0,
COL LIKE ALSMEX_TABLINE-COL,
FIELD(20),
END OF IT_HEADER.
FIELD-SYMBOLS: <FS>.
DATA: L_INTERN TYPE ZALSMEX_TABLINE OCCURS 0 WITH HEADER LINE.
DATA: C_ROW TYPE I VALUE 2, "读EXCEL第4行开始
C_COL TYPE I VALUE 1, "读EXCEL第1列开始
L_INDEX TYPE I,
L_MSG(60) TYPE C,
G_MOD TYPE D,
L_ROW(5) TYPE N,
LI_LEN TYPE SY-TABIX,
L_CSTR(4).
CALL FUNCTION 'ZALSM_EXCEL_TO_INTERNAL_TABLE'
EXPORTING
FILENAME = P_FILE
I_BEGIN_COL = C_COL
I_BEGIN_ROW = C_ROW
I_END_COL = 200
I_END_ROW = 50000
TABLES
INTERN = L_INTERN
EXCEPTIONS
INCONSISTENT_PARAMETERS = 1
UPLOAD_OLE = 2
OTHERS = 3.
IF SY-SUBRC <> 0.
ENDIF.
SORT L_INTERN BY ROW COL.
L_ROW = C_ROW.
LOOP AT L_INTERN.
IF L_INTERN-ROW = 1.
IT_HEADER-COL = L_INTERN-COL.
TRANSLATE L_INTERN-VALUE TO UPPER CASE.
CONDENSE L_INTERN-VALUE.
IT_HEADER-FIELD = L_INTERN-VALUE.
APPEND IT_HEADER.
ELSE.
MOVE L_INTERN-COL TO L_INDEX.
READ TABLE IT_HEADER WITH KEY COL = L_INDEX.
IF SY-SUBRC = 0.
ASSIGN COMPONENT IT_HEADER-FIELD OF STRUCTURE GT_DATA TO <FS>.
IF SY-SUBRC = 0.
MOVE L_INTERN-VALUE TO <FS>.
ENDIF.
ENDIF.
AT END OF ROW.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
INPUT = GT_DATA-AUFNR
IMPORTING
OUTPUT = GT_DATA-AUFNR.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
INPUT = GT_DATA-posnr
IMPORTING
OUTPUT = GT_DATA-posnr.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
INPUT = GT_DATA-VORNR
IMPORTING
OUTPUT = GT_DATA-VORNR.
SELECT SINGLE RSNUM FROM RESB INTO GT_DATA-RSNUM WHERE AUFNR = GT_DATA-aufnr.
SELECT MAX( RSPOS ) FROM resb INTO gt_DATA-rspos WHERE RSNUM = GT_DATA-rsnum.
GT_DATA-RSPOS = GT_DATA-RSPOS + 1 .
IF SY-SUBRC <> 0.
ENDIF.
MOVE-CORRESPONDING GT_DATA TO GT_DATA1.
APPEND GT_DATA1.
CLEAR: GT_DATA1, GT_DATA.
G_MOD = L_ROW MOD 100.
IF G_MOD = 0.
ENDIF.
L_ROW = L_ROW + 1.
ENDAT.
ENDIF.
ENDLOOP.
ENDFORM. "GET_DATA
