Коллеги, подскажите пожалуйста, как в данный код добавить выборку с условиями, куда внедрить код с условиями, что если таблица с полем пустая, то необходимо все равно идти дальше с выборкой, если есть записи, то выводить, у меня сейчас получается, что отчет только по данному признаку смотрит остальные вообще не выбираются.
Я добавил в отчет новые поля для выборки
Таблица TPRIT поля которые мне нужны были BEZEI, LPRIO
Code:
* 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.