2019-12-27 查詢PIR - 2 GETDATA

處理數(shù)據(jù)先檢查再取數(shù)據(jù)

START-OF-SELECTION .
PERFORM CHECK_DATA.
PERFORM GET_DATA.

僅做簡單檢查

FORM CHECK_DATA.
  IF S_LIFNR IS INITIAL AND S_MATNR IS INITIAL AND S_EKORG IS INITIAL AND S_WERKS IS INITIAL AND S_MATKL IS INITIAL AND S_EKGRP IS INITIAL.
    MESSAGE S208(00) WITH 'Please input query parameters'.
    EXIT.
  ENDIF.
ENDFORM.

取數(shù)據(jù)部分：GET_DATA. 最先大條件, 再做篩選。
FROM table 與INNER JOIN必須連在一起寫，不然會報錯。

SELECT
      A~LIFNR,
      A~MATNR,
      E~EKORG,
      E~WERKS,
      E~ESOKZ,
      A~MEINS,
      A~UMREZ,
      A~UMREN,
      A~VABME,
      E~NETPR,
      E~WAERS,
      E~PEINH,
      E~BPRME,
      B~PEINH AS MM_PEINH,
      A~LMEIN,
      E~MWSKZ,
      A~MFRNR,
      E~EKGRP,
      E~APLFZ,
      E~MINBM,
      E~NORBM,
      E~INCO1,
      E~INCO2,
      A~IDNLF,
      A~RELIF,
      A~INFNR,
      A~URZLA,
      A~TELF1,
      M~MTART,
      E~LOEKZ,
      C~MMSTA
      INTO CORRESPONDING FIELDS OF TABLE @GT_ITAB
      FROM EINA AS A "PIR:General Data
      INNER JOIN EINE AS E ON A~INFNR = E~INFNR "PIR -Purchasing Organization Data
      INNER JOIN MARA AS M ON A~MATNR = M~MATNR "General Material Data
      LEFT  JOIN MARC AS C ON A~MATNR = C~MATNR AND E~WERKS = C~WERKS "Plant Data for Material
      LEFT  JOIN MBEW AS B ON A~MATNR = B~MATNR AND E~WERKS = B~BWKEY "Material Valuation
        WHERE A~MATNR IN @S_MATNR
        AND  E~WERKS IN @S_WERKS
        AND  A~LIFNR IN @S_LIFNR
        AND  E~EKORG IN @S_EKORG
        AND  E~ESOKZ IN @S_ESOKZ
        AND  M~MATKL IN @S_MATKL
        AND  E~EKGRP IN @S_EKGRP
        AND  M~MTART IN @S_MTART

再檢查：CHECK語句基于條件終止循環(huán)傳遞。 如果CHECK語句中的條件被計算為false，則忽略CHECK語句之后的語句塊中的所有剩余語句，并且下一個循環(huán)開始。 CHECK語句中的條件可以是任何邏輯表達式。
CHECK跳轉(zhuǎn)的前提是<expr>為假時。
l CHECK只是跳出當前事件塊，繼續(xù)下一個事件塊的處理，相當于方法的return；
l 另外，如果CHECK在循環(huán)（DO、WHILE、LOOP）里，只是跳出當前循環(huán)而已；
l 如果CHECK出現(xiàn)在循環(huán)以外,退出的是當前執(zhí)行的程序塊(processing block)，例如一個FORM，METHOD，或EVENT。
詳細參考 https://www.cnblogs.com/jiangzhengjun/p/4265443.html

  CHECK SY-SUBRC = 0 .

  SELECT * INTO TABLE gt_a017 FROM a017
           WHERE  matnr IN s_matnr
             AND  werks IN s_werks
             AND  lifnr IN s_lifnr
             AND  ekorg IN s_ekorg
             AND  esokz IN s_esokz.
  IF sy-subrc = 0.

  IF C_DEL = ' '.
    DELETE GT_ITAB WHERE LOEKZ = 'X'.  "Purch. info: Purch. organization data flagged for deletion
  ENDIF.

   SELECT * INTO TABLE GT_KONP FROM KONP
             FOR ALL ENTRIES IN GT_A017
             WHERE  KNUMH = GT_A017-KNUMH.

    SELECT * INTO TABLE GT_KONM FROM KONM
             FOR ALL ENTRIES IN GT_A017
             WHERE  KNUMH = GT_A017-KNUMH.

  ENDIF.

  SORT gt_a017 BY matnr werks matnr ekorg esokz .

  IF c_due = ' '.
    DELETE gt_a017 WHERE datab > sy-datum OR datbi < sy-datum.
  ELSE.

    IF p_datab IS NOT INITIAL.
      DELETE gt_a017 WHERE datab < p_datab.
    ENDIF.
    IF p_datbi IS NOT INITIAL.
      DELETE gt_a017 WHERE datbi > p_datbi.
    ENDIF.
  ENDIF.

  IF c_del = ' '.
    DELETE gt_konp WHERE loevm_ko = 'X'.
  ENDIF.

對表中數(shù)據(jù)進行轉(zhuǎn)換，取值為內(nèi)部形式（物料號有前導(dǎo)零的時候被認為是內(nèi)部形式；單位一般也有內(nèi)部形式外部形式之分）。在se11瀏覽數(shù)據(jù)的時候，顯示數(shù)據(jù)的畫面是使用內(nèi)部形式，當detail overview的時候，則是外部形式。顯示前轉(zhuǎn)換成外部形式。

在SAP系統(tǒng)里面很多地方都用到了長文本，這些長文本的值以其他字符的形式存在表STXL和STXH里面，不能直接去這兩個表里面去取值，而是要通過函數(shù)READ_TEXT去取. 很多新手不了解的地方可能就是怎么取到READ_TEXT函數(shù)里面的那些參數(shù)值，我這邊介紹兩種方法，通過這兩種方法都可以找到那幾個參數(shù)：
一、第一種利用跟蹤查詢，不是用ST05跟蹤，而是去表里面跟蹤查詢，比如你剛剛創(chuàng)建了一個銷售訂單的長文本，這時候你可以去表STXH輸入日期和剛剛的時間，然后查看在這個表里剛剛產(chǎn)生的這些數(shù)據(jù)，依據(jù)此項就可以找到對應(yīng)的參數(shù)了，這個方法非常實用
二、第二種前臺查看，進入長文本編輯界面以后（記得是雙擊長文本編輯器進入），點擊菜單轉(zhuǎn)到—->表頭，里面出現(xiàn)的就是對應(yīng)的那些參數(shù)值，如下圖：


image.png

SE37: READ_TEXT


image.png
  LOOP AT gt_itab.

    CLEAR gt_itab-potxt.

    CONCATENATE gt_itab-infnr gt_itab-ekorg '0' gt_itab-werks INTO tdname.

    CALL FUNCTION 'READ_TEXT'
      EXPORTING
        client          = sy-mandt
        id              = 'BT'
        language        = 'E'
        name            = tdname
        object          = 'EINE'
*       archive_handle  = 0
*   IMPORTING
*       HEADER          = GW_THEAD    " Change 1 (need a header)
      TABLES
        lines           = t_line
      EXCEPTIONS
        id              = 1
        language        = 2
        name            = 3
        not_found       = 4
        object          = 5
        reference_check = 6.

    IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    ENDIF.

    IF sy-subrc = 0.
*      read table t_table into wa_tline index 1.
*      I_ITAB-ZTEXT = wa_tline-tdline.
      LOOP AT t_line INTO wa_tline.
        CONCATENATE gt_itab-potxt wa_tline-tdline INTO gt_itab-potxt.
      ENDLOOP.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    ENDIF.

    CALL FUNCTION 'CONVERSION_EXIT_CUNIT_OUTPUT'
      EXPORTING
        input  = gt_itab-meins
*       LANGUAGE             = SY-LANGU
      IMPORTING
*       LONG_TEXT            =
        output = gt_itab-meins
*       SHORT_TEXT           =
*      EXCEPTIONS
*       UNIT_NOT_FOUND       = 1
*       OTHERS = 2
      .
    LOOP AT gt_a017  WHERE lifnr = gt_itab-lifnr
                       AND matnr = gt_itab-matnr
                       AND ekorg = gt_itab-ekorg
                       AND werks = gt_itab-werks
                       AND esokz = gt_itab-esokz.
*        AND DATAB <= SY-DATUM
*        AND DATBI >= SY-DATUM.

      gt_itab-datab = gt_a017-datab.
      gt_itab-datbi = gt_a017-datbi.
      gt_itab-knumh = gt_a017-knumh.

      LOOP AT gt_konp WHERE knumh = gt_a017-knumh.
        IF gt_konp-kzbzg <> ''.
          LOOP AT gt_konm WHERE knumh = gt_konp-knumh AND kopos = gt_konp-kopos.
            CLEAR gt_out_tmp.
            MOVE-CORRESPONDING  gt_itab TO gt_out_tmp.
            gt_out_tmp-kstbm = gt_konm-kstbm.
*            IF gt_konm-kstbm <> 0.
            gt_out_tmp-kbetr = gt_konm-kbetr.
*            ENDIF.
            gt_out_tmp-peinh = gt_konp-kpein.
            gt_out_tmp-waers = gt_konp-konwa.
            gt_out_tmp-bprme = gt_konp-kmein.
            CALL FUNCTION 'CONVERSION_EXIT_CUNIT_OUTPUT'
              EXPORTING
                input  = gt_out_tmp-bprme
*               LANGUAGE             = SY-LANGU
              IMPORTING
*               LONG_TEXT            =
                output = gt_out_tmp-bprme
*               SHORT_TEXT           =
*      EXCEPTIONS
*               UNIT_NOT_FOUND       = 1
*               OTHERS = 2
              .
            gt_out_tmp-netpr    = gt_konp-kbetr.
            gt_out_tmp-loevm_ko = gt_konp-loevm_ko.
* Begin of change SAPCI#2690
            IF c_cur IS NOT INITIAL.
              PERFORM base_currency USING gt_out_tmp-netpr
                                          gt_out_tmp-waers
                                          gt_out_tmp-peinh
                                    CHANGING gt_out_tmp-b_netpr
                                             gt_out_tmp-b_waers
                                             gt_out_tmp-b_netpr1.
            ENDIF.
* End of change SAPCI#2690
            APPEND gt_out_tmp.
          ENDLOOP.
        ELSE.
*          CLEAR gt_out_tmp.
          MOVE-CORRESPONDING  gt_itab TO gt_out_tmp.
          gt_out_tmp-peinh = gt_konp-kpein.
          gt_out_tmp-waers = gt_konp-konwa.
          gt_out_tmp-bprme = gt_konp-kmein.
          CALL FUNCTION 'CONVERSION_EXIT_CUNIT_OUTPUT'
            EXPORTING
              input  = gt_out_tmp-bprme
*             LANGUAGE             = SY-LANGU
            IMPORTING
*             LONG_TEXT            =
              output = gt_out_tmp-bprme
*             SHORT_TEXT           =
*      EXCEPTIONS
*             UNIT_NOT_FOUND       = 1
*             OTHERS = 2
            .
          gt_out_tmp-netpr    = gt_konp-kbetr.
          gt_out_tmp-loevm_ko = gt_konp-loevm_ko.
* Begin of change SAPCI#2690
          IF c_cur IS NOT INITIAL.
            PERFORM base_currency USING gt_out_tmp-netpr
                                        gt_out_tmp-waers
                                        gt_out_tmp-peinh
                                  CHANGING gt_out_tmp-b_netpr
                                           gt_out_tmp-b_waers
                                           gt_out_tmp-b_netpr1.
          ENDIF.
* End of change SAPCI#2690
          APPEND gt_out_tmp.
        ENDIF.
      ENDLOOP.
    ENDLOOP.

    IF sy-subrc <> 0 .
      IF gt_itab-mtart = 'ZSV'.
*      DATA:PV_MTART TYPE MARA-MTART.
*      SELECT SINGLE MTART INTO PV_MTART FROM MARA WHERE MATNR = GT_ITAB-MATNR.
*      IF PV_MTART = 'ZSV'.
        MOVE-CORRESPONDING  gt_itab TO gt_out_tmp.
        APPEND gt_out_tmp.
      ENDIF.
    ENDIF.
  ENDLOOP.

***{ D01K932831;CN0778;02/28/2019
  LOOP AT gt_out_tmp.

*{  SAPCI-2801 Start
    CALL FUNCTION 'CONVERSION_EXIT_CUNIT_OUTPUT'
      EXPORTING
        input          = gt_out_tmp-lmein
      IMPORTING
        output         = gt_out_tmp-lmein
      EXCEPTIONS
        unit_not_found = 1
        OTHERS         = 2.

    IF sy-subrc <> 0.
    ENDIF.

    IF gt_out_tmp-meins EQ gt_out_tmp-lmein.
      gt_out_tmp-mm_netpr = gt_out_tmp-b_netpr1 * gt_out_tmp-mm_peinh.
    ELSE.
      DATA(lv_prcunit_buom) = gt_out_tmp-peinh * ( gt_out_tmp-umrez / gt_out_tmp-umren ).
      gt_out_tmp-mm_netpr = ( gt_out_tmp-b_netpr / lv_prcunit_buom ) * gt_out_tmp-mm_peinh.
    ENDIF.
*}  SAPCI-2801 End
最后編輯于 ：
?著作權(quán)歸作者所有,轉(zhuǎn)載或內(nèi)容合作請聯(lián)系作者
【社區(qū)內(nèi)容提示】社區(qū)部分內(nèi)容疑似由AI輔助生成，瀏覽時請結(jié)合常識與多方信息審慎甄別。
平臺聲明：文章內(nèi)容（如有圖片或視頻亦包括在內(nèi)）由作者上傳并發(fā)布，文章內(nèi)容僅代表作者本人觀點，簡書系信息發(fā)布平臺，僅提供信息存儲服務(wù)。

友情鏈接更多精彩內(nèi)容