*       Selection start from Inquiry
*       Выборка начинается с Запроса
*----------------------------------------------------------------------*
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.

    LEFT OUTER JOIN TPRIT AS t0 " Имя приоритета поставки
       "ON t0~BEZEI = t0~BEZEI " Имя приоритета поставки
       ON t0~LPRIO = t1~LPRIO " Приоритет поставки

      AND t0~BEZEI IN s_inq_be " Имя приоритета поставки
      AND t0~spras = sy-langu.  " Имя приоритета поставки

    LEFT JOIN TPRIT AS t0 " Имя приоритета поставки
       ON t0~LPRIO = t1~LPRIO " Приоритет поставки
      AND t0~spras = sy-langu  " Имя приоритета поставки