MIR7隐士增強

在mir7輸入采購訂單回車後帶出行項目資訊.

在包含檔案：LMR1MF3U 最後一行

ENHANCEMENT 1  ZSELECT_TEXT.    "active version
* 業務需要 需要将采購資訊記錄裡的文本字段帶入到MIR7行項目的描述字段 20220914 add by qixiang

 DATA: LV_LIFNR TYPE EINA-LIFNR,"供應商
       LV_INFNR TYPE EINA-INFNR."采購資訊記錄

 DATA :U_NAME TYPE TDOBNAME, "采購資訊記錄号
       U_TDID TYPE TDID, "TEXT ID
       U_TDOBJECT TYPE TDOBJECT, "TEXT OBJECT
       U_SPLIT TYPE STRING,
       C_TEXT TYPE STRING.

  DATA: LS_STXH TYPE STXH,
        LT_LINES TYPE TABLE OF TLINE WITH HEADER LINE.

    LOOP AT YDRSEG.
      CLEAR:LT_LINES[],LV_LIFNR.

     SELECT SINGLE LIFNR INTO LV_LIFNR FROM EKKO WHERE EBELN = YDRSEG-EBELN."根據采購訂單号取得供應商

    CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'"轉換為内碼
      EXPORTING
        INPUT         = LV_LIFNR
    IMPORTING
        OUTPUT        &#