计划订单批导

最新推荐文章于 2024-12-13 17:58:54 发布

saptopia

最新推荐文章于 2024-12-13 17:58:54 发布

阅读量1k

点赞数

CC 4.0 BY-SA版权

分类专栏： ABAP 应用文章标签： function upload input file parameters structure

本文链接：https://blog.youkuaiyun.com/saptopia/article/details/1929372

ABAP 应用专栏收录该内容

39 篇文章

订阅专栏

该博客介绍了一个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