计划订单批导

该博客介绍了一个SAP程序,用于批量导入计划订单。通过用户选择的Excel文件,程序首先读取文件,然后对数据进行处理,如字段转大写和格式转换。接着,使用BAPI_PLANNEDORDER_CREATE创建计划订单,处理过程中记录并显示可能出现的错误。最后,如果所有步骤都成功,将提交工作并显示成功消息。

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

TYPE-POOLS truxs.
DATA: xlstab TYPE truxs_t_text_data,
      f_size TYPE i .
PARAMETERS: filename LIKE rlgrap-filename .
DATA header TYPE bapiplaf_i1.
DATA error TYPE bapireturn1.
DATA:BEGIN OF itb_input OCCURS 0,
       plannedorder_num LIKE bapiplaf_i1-plannedorder_num,
       pldord_profile LIKE bapiplaf_i1-pldord_profile,
       material LIKE bapiplaf_i1-material,
       total_plord_qty LIKE bapiplaf_i1-total_plord_qty,
       plan_plant LIKE bapiplaf_i1-plan_plant,
       prod_plant LIKE bapiplaf_i1-prod_plant,
       order_start_date LIKE bapiplaf_i1-order_start_date,
       version LIKE bapiplaf_i1-version,
END OF itb_input.
DATA:BEGIN OF itb_err OCCURS 0.
        INCLUDE STRUCTURE bapireturn1.
DATA:END OF itb_err.
DATA flag TYPE i.


AT SELECTION-SCREEN ON VALUE-REQUEST FOR filename.
  PERFORM get_pc_filename.


START-OF-SELECTION.
  PERFORM upload_file TABLES itb_input.
  LOOP AT itb_input.
    CALL FUNCTION 'AIPC_CONVERT_TO_UPPERCASE'
      EXPORTING
        i_input        = itb_input-plannedorder_num
*     I_LANGU        = SY-LANGU
     IMPORTING
       e_output       = itb_input-plannedorder_num
              .
    CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
      EXPORTING
        input  = itb_input-material
      IMPORTING
        output = itb_input-material.
    MOVE-CORRESPONDING itb_input TO header.
    header-firming_ind = 'X'.
    CALL FUNCTION 'BAPI_PLANNEDORDER_CREATE'
    EXPORTING
      headerdata                  = header
   IMPORTING
     return                      = error
*   PLANNEDORDER                =
*   CREATEDHEADERDATA           =
*   CAPACITYHEADERDATA1         =
*   CAPACITYHEADERDATA2         =
*   CAPACITYHEADERDATA3         =
* TABLES
*   COMPONENTSDATA              =
*   CREATEDCOMPONENTSDATA       =
*   CAPACITYDATA1               =
*   CAPACITYDATA2               =
*   CAPACITYDATA3               =
            .
    MOVE-CORRESPONDING error TO itb_err.
    APPEND itb_err.
  ENDLOOP.
  flag = 0.
  LOOP AT itb_err.
    IF itb_err-number NE '010'.
      flag = 1.
    ENDIF.
  ENDLOOP.
  LOOP AT itb_err.
    WRITE: / itb_err-message.
  ENDLOOP.

END-OF-SELECTION.
  IF flag = 0.
    SET PF-STATUS 'COMMAND'.
  ENDIF.

AT USER-COMMAND.
  CASE sy-ucomm.
    WHEN '&RUN'.
      IF flag = 0.
        COMMIT WORK.
        MESSAGE  '计划批导成功!' TYPE 'I'.
        SET PF-STATUS 'DEFAULT' IMMEDIATELY .


      ELSE.
        MESSAGE  '批导失败!请核查错误!' TYPE 'E'.


      ENDIF.
    WHEN '&CAN'.
      EXIT.
  ENDCASE.

*&---------------------------------------------------------------------*
*&      Form  upload_file
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->FTAB       text
*----------------------------------------------------------------------*
FORM upload_file TABLES ftab.


  CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
    EXPORTING
      percentage = 0
      text       = '转换Ing。。'.

  CALL FUNCTION 'TEXT_CONVERT_XLS_TO_SAP'
    EXPORTING
      i_tab_raw_data       = xlstab
      i_filename           = filename
    TABLES
      i_tab_converted_data = ftab
    EXCEPTIONS
      conversion_failed    = 1
      OTHERS               = 2.
  IF sy-subrc <> 0.
    MESSAGE '转换Excel表有错误发生!' TYPE 'E' .
  ENDIF.
ENDFORM.                    " UPLOAD_FILE
*&--------------------------------------------------------------------*
*&      Form  get_pc_filename
*&--------------------------------------------------------------------*
*       text
*---------------------------------------------------------------------*
FORM get_pc_filename.
  CALL FUNCTION 'WS_FILENAME_GET'
      EXPORTING
*         def_filename     = PAY_FILE
*         DEF_PATH         = ' '
*          mask             = ',*.XLS ,*.XLS.'
          mode             = '0'
          title            = 'Get the import file name'
     IMPORTING
          filename         = filename
*         RC               =
     EXCEPTIONS
          inv_winsys       = 1
          no_batch         = 2
          selection_cancel = 3
          selection_error  = 4
          OTHERS           = 5.
  IF sy-subrc <> 0.
*    MESSAGE 'ERROR' TYPE 'E' .
  ENDIF.
ENDFORM.                    " GET_PC_FILENAME 

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值