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