批量修改SO送达方

最新推荐文章于 2024-12-12 15:38:15 发布

原创最新推荐文章于 2024-12-12 15:38:15 发布 · 1.8k 阅读

0 ·

CC 4.0 BY-SA版权

SAP ABAP 专栏收录该内容

77 篇文章

订阅专栏

该博客介绍了如何在SAP系统中通过编写程序实现批量修改销售订单的收货方。首先，通过打开文件对话框选择Excel文件，然后将Excel数据转换为内部表，接着处理并删除无效数据。最后，遍历内部表更新每个订单的收货方信息，并使用BAPI_SALESORDER_CHANGE函数进行修改，同时处理可能出现的错误信息。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

report  ZSDR006.
tables: VBAK, VBAP.
data:begin of WA_TAB,
  VBELN type VBAK-VBELN,
  posnr TYPE vbap-posnr,
  KUNNR type VBAK-KUNNR,
  end of WA_TAB.
data:ITAB like table of WA_TAB with header line.

data: SOHD like BAPISDH1,
      SOHDX like BAPISDH1X,
      SOITEM like BAPISDITM occurs 0 with header line,
      SOITEMX like BAPISDITMX occurs 0 with header line.

data:RT type table of BAPIRET2 with header line.
data: RT2 type BAPIRET2.
data:WA_RETURN  type BAPIRET2.
data:SOBP type table of BAPIPARNRC with header line.
data:SUB_SOBP type table of BAPIPARNRC with header line..

data:ROWNUM type I.
constants:
   C_BEGIN_ROW type I value 1,
   C_BEGIN_COL type I value 1,
   C_END_ROW type I value 9999,
   C_END_COL type I value 3.

selection-screen begin of block B1 with frame title T1.
parameters: SO_FILE(60).
selection-screen end of block B1.

initialization.
  T1 = '选择文件'.

at selection-screen on value-request for SO_FILE.
  perform GETDATA using SO_FILE.

start-of-selection.
  perform UPLOADDATA.
  perform EXEUPDATE.

*&---------------------------------------------------------------------*
*&      Form  getdata
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->SO_FILE    text
*----------------------------------------------------------------------*
form GETDATA using SO_FILE.
* Data for open dialog
  data: L_FILETAB   type FILETABLE,
        L_RC        type I.
  clear L_FILETAB.
  refresh L_FILETAB.
* Open dialog
  call method CL_GUI_FRONTEND_SERVICES=>FILE_OPEN_DIALOG
    exporting
*     WINDOW_TITLE         = 'SAP Custom - Open File'
*     DEFAULT_EXTENSION    =
      DEFAULT_FILENAME     = '*.xls'
*     FILE_FILTER          = '*.xls'
      INITIAL_DIRECTORY    = 'd:\'
      MULTISELECTION       = ''
    changing
      FILE_TABLE           = L_FILETAB
      RC                   = L_RC
    exceptions
      CNTL_ERROR           = 1
      ERROR_NO_GUI         = 2
      NOT_SUPPORTED_BY_GUI = 3
      others               = 4.
* Get file path
  check L_RC eq 1.
  read table L_FILETAB index 1 into SO_FILE.
endform.                    "getdata

*&---------------------------------------------------------------------*
*&      Form  uploaddata
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
form UPLOADDATA.

  data: begin of I_EXCEL occurs 0.
          include structure ALSMEX_TABLINE.
  data: end of I_EXCEL.
  data: L_ANSWER(1) type C.
  data: L_COLUMN type I.
  field-symbols: <FS>.
  data: L_PATHNAME like RLGRAP-FILENAME.

  move SO_FILE to L_PATHNAME.
  call function 'ALSM_EXCEL_TO_INTERNAL_TABLE'
    exporting
      FILENAME                = L_PATHNAME
      I_BEGIN_COL             = C_BEGIN_COL
      I_BEGIN_ROW             = C_BEGIN_ROW
      I_END_COL               = C_END_COL
      I_END_ROW               = C_END_ROW
    tables
      INTERN                  = I_EXCEL
    exceptions
      INCONSISTENT_PARAMETERS = 1
      UPLOAD_OLE              = 2
      others                  = 3.
  if SY-SUBRC <> 0.
    message id SY-MSGID type SY-MSGTY number SY-MSGNO
          with SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  else.
    if I_EXCEL[] is initial.
      call function 'POPUP_TO_CONFIRM_WITH_MESSAGE'
        exporting
*         DEFAULTOPTION  = 'Y'
          DIAGNOSETEXT1  = 'No data in excel'
*         DIAGNOSETEXT2  = ' '
*         DIAGNOSETEXT3  = ' '
          TEXTLINE1      = 'No data in excel'
*         TEXTLINE2      = ' '
          TITEL          = 'Confirm'
*         START_COLUMN   = 25
*         START_ROW      = 6
*         CANCEL_DISPLAY = 'X'
        importing
          ANSWER         = L_ANSWER.
    else.
      delete I_EXCEL where ROW = '0001'.
      sort I_EXCEL by ROW COL.
      loop at I_EXCEL.
        move I_EXCEL-COL to L_COLUMN.
        assign component L_COLUMN of structure ITAB to <FS>.
        move I_EXCEL-VALUE to <FS>.
        at end of ROW.
          append ITAB.
          clear ITAB.
        endat.
      endloop.
    endif.
  endif.
endform.                    "uploaddata

*&---------------------------------------------------------------------*
*&      Form  exeupdate
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
form EXEUPDATE.
  SOHDX-UPDATEFLAG = 'U'.
  loop at ITAB into WA_TAB.
    SOBP-DOCUMENT = WA_TAB-VBELN.
    SOBP-ITM_NUMBER = wa_tab-posnr.
    SOBP-UPDATEFLAG = 'U'.
    SOBP-PARTN_ROLE = 'WE'.
    SOBP-P_NUMB_NEW = WA_TAB-KUNNR.
    append SOBP.
    clear WA_TAB.
  endloop.

LOOP at sobp.
   sub_sobp = sobp.
   APPEND sub_sobp.
   LOOP at sub_sobp.
  call function 'BAPI_SALESORDER_CHANGE'
    exporting
      SALESDOCUMENT    = sub_SOBP-DOCUMENT
      ORDER_HEADER_INX = SOHDX
    tables
      RETURN           = RT
      PARTNERCHANGES   = sub_SOBP.

  loop at RT.
    if rt-type = 'E'.
    write:/ RT-MESSAGE.
    ENDIF.
  endloop.

  call function 'BAPI_TRANSACTION_COMMIT'
    exporting
      WAIT   = 'X'
    importing
      RETURN = RT2.
  CLEAR sub_sobp[].
  refresh sub_sobp.
  ENDLOOP.
ENDLOOP.
endform.