*&---------------------------------------------------------------------*
*& 更改物料的MRP区域数据
*&---------------------------------------------------------------------*
REPORT zmm025 NO STANDARD PAGE HEADING .
DATA: s_mdma LIKE mdma,
s_dpop LIKE dpop,
s_selfields LIKE sdibe_massfields,
return LIKE bapireturn1 .
DATA:had .
DATA: BEGIN OF itab OCCURS 0 ,
matnr LIKE mara-matnr ,
werks LIKE marc-werks ,
berid LIKE mdma-berid ,
dispo LIKE mdma-dispo ,
lgpro LIKE mdma-lgpro ,
lgfsb LIKE mdma-lgfsb ,
END OF itab.
DATA: filename TYPE string ,
lf_rc TYPE c .
PARAMETERS:openfile LIKE ibipparms-path OBLIGATORY DEFAULT 'c:\ZMM025.txt' .
AT SELECTION-SCREEN ON VALUE-REQUEST FOR openfile .
CALL FUNCTION 'F4_FILENAME'
EXPORTING
program_name = syst-cprog
dynpro_number = syst-dynnr
field_name = ' '
IMPORTING
file_name = openfile.
AT SELECTION-SCREEN .
filename = openfile.
CALL METHOD cl_gui_frontend_services=>file_exist
EXPORTING
file = filename
RECEIVING
result = lf_rc
EXCEPTIONS
cntl_error = 1
error_no_gui = 2
wrong_parameter = 3
not_supported_by_gui = 4
OTHERS = 5.
IF lf_rc <> 'X'.
MESSAGE e000(oo) WITH '文件不存在'.
ENDIF.
START-OF-SELECTION.
CALL FUNCTION 'GUI_UPLOAD'
EXPORTING
filename = filename
filetype = 'DAT'
TABLES
data_tab = itab.
* itab-matnr = '001100000000000385'.
* itab-werks = '1010'.
* itab-berid = '1010CG'.
* itab-dispo = '102'.
* itab-lgpro = '1040'.
* itab-lgfsb = '1040'.
* APPEND itab.
LOOP AT itab WHERE matnr = '' OR werks = '' OR berid = ''.
IF had <> 'X'.
WRITE : '下列物料信息不全:'.
had = 'X'.
ENDIF.
WRITE : / itab-matnr ,itab-werks ,itab-berid .
ENDLOOP.
ULINE.
LOOP AT itab WHERE matnr <> '' AND werks <> '' AND berid <> ''.
CALL FUNCTION 'CONVERSION_EXIT_MATN1_INPUT'
EXPORTING
input = itab-matnr
IMPORTING
output = itab-matnr.
CLEAR s_mdma.
MOVE-CORRESPONDING itab TO s_mdma .
CLEAR s_selfields.
IF itab-dispo <> ''.
s_selfields-xdispo = 'X'.
ENDIF.
IF itab-lgfsb <> ''.
s_selfields-xlgfsb = 'X'.
ENDIF.
IF itab-lgpro <> ''.
s_selfields-xlgpro = 'X'.
ENDIF.
CALL FUNCTION 'MD_MRP_LEVEL_CHANGE_DATA'
EXPORTING
i_matnr = itab-matnr
i_werk = itab-werks
i_mrp_area = itab-berid
i_berty = '02'
i_selfields = s_selfields
i_mdma = s_mdma
i_dpop = s_dpop
IMPORTING
e_error_return = return.
IF NOT return IS INITIAL .
WRITE : / itab-matnr ,itab-werks ,itab-berid .
PERFORM write_wa USING return 'XXXX' '' '' .
ELSE.
WRITE : / itab-matnr,itab-werks ,itab-berid ,'成功更改!'.
ENDIF.
CLEAR return.
ENDLOOP.
*---------------------------------------------------------------------*
* FORM write_wa *
*---------------------------------------------------------------------*
FORM write_wa USING wa fieldmask newline alllen.
DATA: str TYPE string ,
str_idx TYPE string ,
f_index TYPE i ,
f_len TYPE i .
FIELD-SYMBOLS: .
f_len = STRLEN( fieldmask ).
IF newline = 'X'. WRITE / ''.ENDIF.
* POSITION 1 .
DO .
ASSIGN COMPONENT sy-index OF STRUCTURE wa TO .
IF sy-subrc <> 0 OR sy-index > f_len.
EXIT.
ELSE.
str_idx = sy-index .
CONDENSE str_idx.
f_index = sy-index - 1.
IF fieldmask+f_index(1) = 'X'.
IF alllen = ''.
str = .
WRITE str.
ELSE.
WRITE .
ENDIF.
ENDIF.
ENDIF.
ENDDO.
ENDFORM. "write_wa
阅读(6704) | 评论(0) | 转发(1) |