更改物料的MRP区域数据

﹏ヽ暗。殇╰゛Y 2022-04-25 00:18 176阅读 0赞

[更改物料的MRP区域数据][MRP]

分类：

2009-02-27 16:25:23

\*&---------------------------------------------------------------------\*  
\*& 更改物料的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

[MRP]: http://blog.chinaunix.net/uid-8527621-id-2029912.html