PP生产订单的BADI增强 WORKORDER_UPDATE

METHOD if_ex_workorder_update~before_update.

*---------------------->增强1 开始
*  "当生产订单类型为PP01时，如果该生产订单有参考相关的销售订单，
*  "那么在此生产订单存盘时，就需要判断该生产订单是否已经维护了相关的长文本数据，如果没有长文本数据，就需要查看
*  "所对应的销售订单行项目上是否有长文本数据，如果有则将销售订单行项目的长文本带到该生产订单长文本中。
*  "反之，如果此生产订单已经维护有相关的长文本数据，则不需要再去考虑销售订单行项目中的长文本

  FIELD-SYMBOLS: <f1> TYPE cobai_t_header,
                 <f2> TYPE LINE OF cobai_t_header.

  DATA v_program(50) TYPE c VALUE '(SAPLCOBT)CAUFV_BT[]'.

  DATA: wa_header TYPE LINE OF cobai_t_header,
        v_flag.

  DATA: v_tdname  TYPE thead-tdname,
        lt_lines  TYPE STANDARD TABLE OF tline,
        lt_lines0 TYPE STANDARD TABLE OF tline,
        lt_lines1 TYPE STANDARD TABLE OF tline,
        lt_lines2 TYPE STANDARD TABLE OF tline,
        lt_lines3 TYPE STANDARD TABLE OF tline,
        ls_line   TYPE tline,
        ls_line1  TYPE tline.

  CLEAR: v_tdname, lt_lines0, lt_lines1, lt_lines2, lt_lines3,
         lt_lines, ls_line, ls_line1.

  CASE sy-tcode.

    WHEN 'CO40' OR 'CO08' OR 'CO01' OR 'CO41'.

      READ TABLE it_header INTO wa_header INDEX 1.

      "AUART订单类型、LTEXT长文本标识、KDAUF_AUFK参考销售订单号、KDPOS_AUFK参考销售订单行项目号
      IF wa_header-auart EQ 'PP01' AND wa_header-ltext EQ space AND wa_header-kdauf_aufk IS NOT INITIAL
        AND wa_header-kdpos_aufk IS NOT INITIAL.

        CONCATENATE wa_header-kdauf_aufk wa_header-kdpos_aufk INTO v_tdname.  "销售订单行项目长文本的Name

        "读取参考的销售订单行项目长文本
        CALL FUNCTION 'READ_TEXT'
          EXPORTING
            id                      = 'Z002'
            language                = sy-langu
            name                    = v_tdname
            object                  = 'VBBP'
          TABLES
            lines                   = lt_lines0
          EXCEPTIONS
            id                      = 1
            language                = 2
            name                    = 3
            not_found               = 4
            object                  = 5
            reference_check         = 6
            wrong_access_to_archive = 7
            OTHERS                  = 8.

        v_tdname = wa_header-kdauf_aufk.
        "读取参考的销售订单行项目长文本
        CALL FUNCTION 'READ_TEXT'
          EXPORTING
            id                      = 'ZV06'
            language                = sy-langu
            name                    = v_tdname
            object                  = 'VBBK'
          TABLES
            lines                   = lt_lines1
          EXCEPTIONS
            id                      = 1
            language                = 2
            name                    = 3
            not_found               = 4
            object                  = 5
            reference_check         = 6
            wrong_access_to_archive = 7
            OTHERS                  = 8.

        CONCATENATE wa_header-kdauf_aufk wa_header-kdpos_aufk INTO v_tdname.  "销售订单行项目长文本的Name
        "读取参考的销售订单行项目长文本
        CALL FUNCTION 'READ_TEXT'
          EXPORTING
            id                      = 'Z001'
            language                = sy-langu
            name                    = v_tdname
            object                  = 'VBBP'
          TABLES
            lines                   = lt_lines2
          EXCEPTIONS
            id                      = 1
            language                = 2
            name                    = 3
            not_found               = 4
            object                  = 5
            reference_check         = 6
            wrong_access_to_archive = 7
            OTHERS                  = 8.

*        CONCATENATE wa_header-kdauf_aufk wa_header-kdpos_aufk INTO v_tdname.  "销售订单行项目长文本的Name
*        "读取参考的销售订单行项目长文本
*        CALL FUNCTION 'READ_TEXT'
*          EXPORTING
*            id                      = 'Z002'
*            language                = sy-langu
*            name                    = v_tdname
*            object                  = 'VBBP'
*          TABLES
*            lines                   = lt_lines3
*          EXCEPTIONS
*            id                      = 1
*            language                = 2
*            name                    = 3
*            not_found               = 4
*            object                  = 5
*            reference_check         = 6
*            wrong_access_to_archive = 7
*            OTHERS                  = 8.


        ls_line1-tdline = '行项目备注：'.
        INSERT ls_line1 INTO lt_lines0 INDEX 1.

        ls_line1-tdline = '此单特殊要求：'.
        INSERT ls_line1 INTO lt_lines1 INDEX 1.

        ls_line1-tdline = '开模信息：'.
        INSERT ls_line1 INTO lt_lines2 INDEX 1.
*
*        ls_line1-tdline = '行项目备注：'.
*        INSERT ls_line1 INTO lt_lines3 INDEX 1.

        LOOP AT lt_lines0 INTO ls_line.
          APPEND ls_line TO lt_lines.
        ENDLOOP.

        LOOP AT lt_lines1 INTO ls_line.
          APPEND ls_line TO lt_lines.
        ENDLOOP.

        LOOP AT lt_lines2 INTO ls_line.
          APPEND ls_line TO lt_lines.
        ENDLOOP.

*        LOOP AT lt_lines3 INTO ls_line.
*          APPEND ls_line TO lt_lines.
*        ENDLOOP.

        IF lt_lines IS NOT INITIAL.
          CONCATENATE sy-mandt wa_header-aufnr INTO v_tdname."生产订单行项目长文本的Name

          CALL FUNCTION 'CREATE_TEXT'
            EXPORTING
              fid       = 'KOPF'
              flanguage = sy-langu
              fname     = v_tdname
              fobject   = 'AUFK'
            TABLES
              flines    = lt_lines
            EXCEPTIONS
              no_init   = 1
              no_save   = 2
              OTHERS    = 3.

          IF sy-subrc = 0.
            ASSIGN (v_program) TO <f1>.
            READ TABLE <f1> ASSIGNING <f2> INDEX 1.
            <f2>-ltext = '1'.

          ENDIF.

        ENDIF.

      ENDIF.

  ENDCASE.
*--------------------------->增强1结束
ENDMETHOD.                    "if_ex_workorder_update~before_update

**&---------------------------------------------------------------------*
**&      Form  frm_set_tdname
**&---------------------------------------------------------------------*
**       text
**----------------------------------------------------------------------*
**      -->P_TDNAME   text
**      -->P_TDLINES  text
**      -->OF         text
**      -->TLINE      text
**----------------------------------------------------------------------*
*FORM frm_set_tdname USING p_tdname TYPE string
*                     CHANGING p_tdlines TYPE table of tline.
*
*
*  CLEAR: ls_tline1.
*
**  ls_tline1-TDFORMAT = '*'.
*
*  ls_tline1-tdline = p_tdname.
*
*  INSERT ls_tline1 INTO p_tdlines INDEX 1.
*
*ENDFORM.                    "frm_set_tdname