SAP R/3 форум ABAP консультантов
Russian ABAP Developer's Club

Home - FAQ - Search - Memberlist - Usergroups - Profile - Log in to check your private messages - Register - Log in - English
Blogs - Weblogs News

Выборка данных из таблиц



 
Post new topic   Reply to topic    Russian ABAP Developer's Club Forum Index -> ABAP
View previous topic :: View next topic  
Author Message
riki11
Участник
Участник



Joined: 11 Nov 2020
Posts: 3

PostPosted: Mon Nov 16, 2020 7:50 pm    Post subject: Выборка данных из таблиц Reply with quote

Коллеги, подскажите пожалуйста, как в данный код добавить выборку с условиями, куда внедрить код с условиями, что если таблица с полем пустая, то необходимо все равно идти дальше с выборкой, если есть записи, то выводить, у меня сейчас получается, что отчет только по данному признаку смотрит остальные вообще не выбираются.
Я добавил в отчет новые поля для выборки
Таблица TPRIT поля которые мне нужны были BEZEI, LPRIO
Code:
* Selection start from Inquiry
* Выборка начинается с Запроса
*----------------------------------------------------------------------*
Code:
FORM select_from_inquiry.
  DATA:
    ls_out LIKE LINE OF gt_out.
  FIELD-SYMBOLS:
    <ls_out> LIKE LINE OF gt_out.
* Select inquiry data:
  SELECT t1~vbeln  AS inq_vbeln
         t1~posnr  AS inq_posnr
         t2~vkorg  AS inq_vkorg
         t2~vtweg  AS inq_vtweg
         t2~spart  AS inq_spart
         t2~vkgrp  AS inq_vkgrp
         t2~vkbur  AS inq_vkbur
         t2~kunnr  AS inq_kunnr
         t3~name1  AS inq_name1
         t1~matnr  AS inq_matnr
         t1~arktx  AS inq_arktx
         t1~kwmeng AS inq_kwmeng
         t1~vrkme  AS inq_vrkme
         t1~netpr  AS inq_netpr
         t1~waerk  AS inq_waerk
         t4~kursk  AS inq_kursk
         t2~audat  AS inq_audat
         t2~zuonr  AS inq_zuonr
         t2~bstnk  AS inq_bstnk
         t2~objnr  AS inq_objnr_nod
         t1~abgru  AS inq_abgru
         t4~zterm  AS inq_zterm
         t1~LPRIO  AS inq_LPRIO " Приоритет поставки
         t0~BEZEI  AS inq_BEZEI " Имя приоритета поставки
    FROM vbap AS t1
    JOIN vbak AS t2
       ON t2~vbeln = t1~vbeln
    JOIN kna1 AS t3
       ON t3~kunnr = t2~kunnr
    JOIN vbkd AS t4
       ON t4~vbeln = t1~vbeln
    INNER JOIN TPRIT AS t0 " Имя приоритета поставки
       ON t0~BEZEI = t0~BEZEI " Имя приоритета поставки
      AND t0~LPRIO = t1~LPRIO " Приоритет поставки
        INTO CORRESPONDING FIELDS OF TABLE gt_out
    WHERE t2~auart IN gt_auart
      AND t1~vbeln IN s_inq_no
      AND t1~matnr IN s_inq_mt
      AND t2~kunnr IN s_inq_kn
      AND t2~bstnk IN s_inq_bs
      AND t2~audat IN s_inq_au
      AND t2~vkorg IN s_vkorg
      AND t2~vtweg IN s_vtweg
      AND t2~spart IN s_spart
      AND t2~vkgrp IN s_vkgrp
      AND t2~vkbur IN s_vkbur
      " AND t1~LPRIO IN s_inq_lp " Приоритет поставки
      AND t0~BEZEI IN s_inq_be " Имя приоритета поставки
      AND t0~spras = sy-langu.  " Имя приоритета поставки
  CHECK NOT gt_out IS INITIAL.

  TYPES:
    BEGIN OF lty_sales,
      vbelv       TYPE vbfa-vbelv,
      posnv       TYPE vbfa-posnv,
      so_vbeln    TYPE vbfa-vbeln,
      so_posnr    TYPE vbfa-posnn,
      so_kunnr    TYPE vbak-kunnr,
      so_name1    TYPE kna1-name1,
      so_matnr    TYPE vbap-matnr,
      so_arktx    TYPE vbap-arktx,
      so_kwmeng   TYPE vbap-kwmeng,
      so_vrkme    TYPE vbap-vrkme,
      so_netpr    TYPE vbap-netpr,
      so_waerk    TYPE vbap-waerk,
      so_kursk    TYPE vbkd-kursk,
      so_audat    TYPE vbak-audat,
      so_bstnk    TYPE vbak-bstnk,
      so_prod_grp TYPE vbak-zzprod_grp_code,
      so_bstkd    TYPE bstkd,
      so_LPRIO    TYPE vbap-LPRIO, " Приоритет поставки
      so_BEZEI    TYPE TPRIT-BEZEI, " Имя приоритета поставки
    END   OF lty_sales.
  DATA:
    lt_sales TYPE SORTED TABLE OF lty_sales
      WITH NON-UNIQUE KEY vbelv posnv.
  FIELD-SYMBOLS:
    <ls_sales> LIKE LINE OF lt_sales.
* Select Sales order data:
  SELECT t1~vbelv
         t1~posnv
         t1~vbeln  AS so_vbeln
         t1~posnn  AS so_posnr
         t2~kunnr  AS so_kunnr
         t4~name1  AS so_name1
         t3~matnr  AS so_matnr
         t3~arktx  AS so_arktx
         t3~kwmeng AS so_kwmeng
         t3~vrkme  AS so_vrkme
         t3~netpr  AS so_netpr
         t3~waerk  AS so_waerk
         t5~kursk  AS so_kursk
         t2~audat  AS so_audat
         t2~bstnk  AS so_bstnk
         t2~zzprod_grp_code AS so_prod_grp
         t5~bstkd  AS so_bstkd
         t3~LPRIO  AS so_LPRIO " Приоритет поставки
         t0~BEZEI  AS so_BEZEI " Имя приоритета поставки
    FROM vbfa AS t1
    JOIN vbak AS t2
       ON t2~vbeln = t1~vbeln
    JOIN vbap AS t3
       ON t3~vbeln = t1~vbeln
      AND t3~posnr = t1~posnn
    JOIN kna1 AS t4
       ON t4~kunnr = t2~kunnr
    JOIN vbkd AS t5
       ON t5~vbeln = t2~vbeln
    JOIN TPRIT AS t0 " Имя приоритета поставки
       ON t0~BEZEI = t0~BEZEI " Имя приоритета поставки
    INTO TABLE lt_sales
    FOR ALL ENTRIES IN gt_out
    WHERE t1~vbelv = gt_out-inq_vbeln
      AND t1~posnv = gt_out-inq_posnr
      AND t3~LPRIO = gt_out-inq_LPRIO " Приоритет поставки
      AND t1~vbtyp_n EQ gc_c
      AND t1~rfmng > 0.

  TYPES:
    BEGIN OF lty_delivery,
      vbelv         TYPE vbfa-vbelv,
      posnv         TYPE vbfa-posnv,
      dlv_vbeln     TYPE vbfa-vbeln,
      dlv_posnr     TYPE vbfa-posnn,
      dlv_lgort     TYPE lips-lgort,
      dlv_matnr     TYPE lips-matnr,
      dlv_arktx     TYPE lips-arktx,
      dlv_lfimg     TYPE lips-lfimg,
      dlv_vrkme     TYPE lips-vrkme,
      dlv_kodat     TYPE likp-kodat,
      dlv_wadat_ist TYPE likp-wadat_ist,
    END   OF lty_delivery.
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    Russian ABAP Developer's Club Forum Index -> ABAP All times are GMT + 4 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum
You cannot attach files in this forum
You can download files in this forum


All product names are trademarks of their respective companies. SAPNET.RU websites are in no way affiliated with SAP AG.
SAP, SAP R/3, R/3 software, mySAP, ABAP, BAPI, xApps, SAP NetWeaver and any other are registered trademarks of SAP AG.
Every effort is made to ensure content integrity. Use information on this site at your own risk.