• IW31创建维修工单


    *&---------------------------------------------------------------------*
    *& Report YCX_IW31
    *&---------------------------------------------------------------------*
    *&
    *&---------------------------------------------------------------------*
    REPORT ycx_iw31.
    
    DATA:
      lt_return_o        TYPE STANDARD TABLE OF bapiret2,
      ls_return_o        TYPE bapiret2,
      lt_numbers         TYPE STANDARD TABLE OF bapi_alm_numbers,
      ls_numbers         TYPE bapi_alm_numbers,
      lt_methods         TYPE STANDARD TABLE OF bapi_alm_order_method,
      ls_methods         TYPE bapi_alm_order_method,
      lt_header_i        TYPE STANDARD TABLE OF bapi_alm_order_headers_i,
      ls_header_i        TYPE bapi_alm_order_headers_i,
      lt_header_up       TYPE STANDARD TABLE OF bapi_alm_order_headers_up,
      ls_header_up       TYPE bapi_alm_order_headers_up,
      lt_operation_i     TYPE STANDARD TABLE OF bapi_alm_order_operation,
      ls_operation_i     TYPE bapi_alm_order_operation,
      lt_operation_up    TYPE STANDARD TABLE OF bapi_alm_order_operation_up,
      ls_operation_up    TYPE bapi_alm_order_operation_up,
      lt_component_i     TYPE STANDARD TABLE OF bapi_alm_order_component,
      ls_component_i     TYPE bapi_alm_order_component,
      lt_component_up    TYPE STANDARD TABLE OF bapi_alm_order_component_up,
      ls_component_up    TYPE bapi_alm_order_component_up,
      lt_servicelines    TYPE STANDARD TABLE OF bapi_alm_srv_service_line,
      ls_servicelines    TYPE bapi_alm_srv_service_line,
      lt_servicelines_up TYPE STANDARD TABLE OF bapi_alm_srv_service_line_up,
      ls_servicelines_up TYPE bapi_alm_srv_service_line_up. " Header
    ls_methods-refnumber    = 1 .
    ls_methods-objecttype   = 'HEADER' .
    ls_methods-objectkey    = '%00000000001' .
    ls_methods-method       = 'CREATE' .
    APPEND ls_methods TO lt_methods .
    CLEAR ls_methods .
    
    " Operation
    *ls_methods-refnumber    = 1.
    *ls_methods-objecttype   = 'OPERATION' .
    *ls_methods-objectkey    = '%00000000001' .
    *ls_methods-method       = 'CREATE'.
    *APPEND ls_methods TO lt_methods .
    *CLEAR ls_methods .
    *
    *LOOP AT lt_component INTO ls_component.
    *  " Operation
    *  ls_methods-refnumber    = sy-tabix.
    *  ls_methods-objecttype   = 'COMPONENT' .
    *  ls_methods-objectkey    = '%000000000010010' .
    *  ls_methods-method       = 'CREATE'.
    *  APPEND ls_methods TO lt_methods .
    *  CLEAR ls_methods .
    *ENDLOOP.
    
      " Servicelines
      ls_methods-refnumber    = 1 .
      ls_methods-objecttype   = 'SERVICELINE' .
      ls_methods-objectkey    = '%000000000010010' .
      ls_methods-method       = 'CREATE' .
      APPEND ls_methods TO lt_methods .
      CLEAR ls_methods .
    
    
    " Save
    ls_methods-method       = 'SAVE' .
    APPEND ls_methods TO lt_methods .
    CLEAR ls_methods .
    
    CLEAR:lt_header_i,ls_header_i,lt_header_up,ls_header_up.
    ls_header_i-orderid    = '%00000000001'.        " 订单号
    ls_header_i-order_type = *.       " 订单类型
    ls_header_i-planplant  = *.                " 维护计划工厂
    ls_header_i-mn_wk_ctr  = *.       " 维护任务的工作中心
    SELECT * FROM crhd UP TO 1 ROWS INTO ls_crhd WHERE arbpl = *.ENDSELECT.
    IF sy-subrc = 0.
      ls_header_i-plant  = ls_crhd-werks.           " 与工作中心职责相关联的工厂
    ENDIF.
    ls_header_i-equipment  = *.       " 设备号
    ls_header_i-plangroup  = *.       " 计划员组
    ls_header_i-short_text = *.       " 描述
    APPEND ls_header_i TO lt_header_i.
    ls_header_up-orderid    = '%00000000001'.
    ls_header_up-mn_wk_ctr  = 'X'.
    ls_header_up-plant      = 'X'.
    ls_header_up-equipment  = 'X'.
    ls_header_up-plangroup  = 'X'.
    ls_header_up-short_text = 'X'.
    APPEND ls_header_up TO lt_header_up.
    
    ls_operation_i-activity    = '0010'.              " 活动编号
    IF ls_header-tbtwr IS NOT INITIAL.
      ls_operation_i-control_key = *.                 " 控制码
    ELSE.
      ls_operation_i-control_key = *.                 " 控制码
    ENDIF.
    ls_operation_i-description = *.        " 工序短文本
    ls_operation_i-plant       = *.        " 工厂
    ls_operation_i-work_cntr   = *.        " 工作中心
    ls_operation_i-matl_group  = *.        " 物料组
    ls_operation_i-pur_group   = *.        " 采购组
    ls_operation_i-purch_org   = *.        " 采购组织
    APPEND ls_operation_i TO lt_operation_i.
    CLEAR ls_operation_i.
    ls_operation_up-activity    = 'X'.
    ls_operation_up-control_key = 'X'.
    ls_operation_up-description = 'X'.
    ls_operation_up-plant       = 'X'.
    ls_operation_up-work_cntr   = 'X'.
    ls_operation_up-matl_group  = 'X'.
    ls_operation_up-pur_group   = 'X'.
    ls_operation_up-purch_org   = 'X'.
    APPEND ls_operation_up TO lt_operation_up.
    CLEAR ls_operation_up.
    
    IF ls_header-tbtwr IS NOT INITIAL.
      CLEAR:lt_servicelines,ls_servicelines,lt_servicelines_up,ls_servicelines_up.
      ls_servicelines-activity    = '0010'.                     " 活动编号
      ls_servicelines-srv_line    = '0000000010'.               " 行号
      ls_servicelines-short_text  = *.                    " 短文本
      ls_servicelines-quantity    = *.                          " 数量带标记
      ls_servicelines-uom         = *.                          " 基本计量单位
      ls_servicelines-gross_price = *.                  " 总价
      ls_servicelines-net_price   = *.                    " 净价
      append ls_servicelines to lt_servicelines.
      ls_servicelines_up-activity    = '0010'.
      ls_servicelines_up-srv_line    = '0000000010'.
      ls_servicelines_up-short_text  = 'X'.
      ls_servicelines_up-quantity    = 'X'.
      ls_servicelines_up-uom         = 'X'.
      ls_servicelines_up-gross_price = 'X'.
      ls_servicelines_up-net_price   = 'X'.
      APPEND ls_servicelines_up TO lt_servicelines_up.
    ENDIF.
    
    CLEAR:lt_component_i,ls_component_i,lt_component_up,ls_component_up.
    LOOP AT lt_component INTO ls_component.
      ls_component_i-item_number       = *.                      " BOM 项目号
      ls_component_i-item_text1        = *.               " 描述
      ls_component_i-plant             = *.                " 工厂
      ls_component_i-requirement_quantity      = *.         " 需求数量
      ls_component_i-requirement_quantity_unit = *.         " 单位
      ls_component_i-pur_group         = *.                 " 采购组
      ls_component_i-purch_org         = *.                    " 采购组织
      ls_component_i-matl_group        = *.                    " 物料组
      ls_component_i-item_cat          = *.                       " 项目类别
      APPEND ls_component_i TO lt_component_i.
      CLEAR ls_component_i.
    
      ls_component_up-item_number       = 'X'.
      ls_component_up-item_text1          = 'X'.
      ls_component_up-plant             = 'X'.
      ls_component_up-requirement_quantity      = 'X'.
      ls_component_up-requirement_quantity_unit = 'X'.
      ls_component_up-pur_group         = 'X'.
      ls_component_up-purch_org         = 'X'.
      ls_component_up-matl_group        = 'X'.
      ls_component_up-item_cat          = 'X'.
      APPEND ls_component_up TO lt_component_up.
      CLEAR ls_component_up.
    ENDLOOP.
    
    * 创建维修工单
    CALL FUNCTION 'BAPI_ALM_ORDER_MAINTAIN'
      TABLES
        it_methods         = lt_methods
        it_header          = lt_header_i
        it_header_up       = lt_header_up
        it_operation       = lt_operation_i
        it_operation_up    = lt_operation_up
        it_component       = lt_component_i
        it_component_up    = lt_component_up
        return             = lt_return_o
        et_numbers         = lt_numbers
        it_servicelines    = lt_servicelines
        it_servicelines_up = lt_servicelines_up.
    READ TABLE lt_return_o TRANSPORTING NO FIELDS WITH KEY type = 'E'.
    IF sy-subrc = 0.
      CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
    ELSE.
      CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
        EXPORTING
          wait = 'X'.
    ENDIF.
  • 相关阅读:
    日报9.4
    日报9.3
    低级错误整理
    树状数组求逆序对 笔记与思路整理
    st表、树状数组与线段树 笔记与思路整理
    Luogu P1098 字符串的展开
    Luogu P1816 忠诚
    jmeter cookie管理器 使用方法---新手学习记录1
    kali nessus 安装插件失败解决方法
    https tomcat 证书搭建
  • 原文地址:https://www.cnblogs.com/rainysblog/p/14225112.html
Copyright © 2020-2023  润新知