In my report i have selection screen like below
Purchasing Document
Supplying Site
Receiving Site
Created on
Delivery
Delivery Date
Billing Document
Billing date
Purchasing Doc. Type
now from Delivery , Delivery Date and Billing Doc i want to fire qurie how to do that ?
below is my select quries which i did for P.O, Suppling site , receiving site. and Created on date.
SELECT ebeln bsart aedat lifnr
FROM ekko
INTO TABLE it_ekko
WHERE ebeln IN pr_ebeln
AND lifnr IN pr_lifnr
AND aedat IN pr_aedat
AND bsart = pr_basrt.
IF it_ekko IS NOT INITIAL.
SELECT ebeln ebelp aedat txz01 matnr menge meins
FROM ekpo
INTO TABLE it_ekpo
FOR ALL ENTRIES IN it_ekko
WHERE ebeln = it_ekko-ebeln
AND werks IN pr_werks.
ENDIF.
IF it_ekpo IS NOT INITIAL.
SELECT vbeln posnr erdat lfimg meins vgbel " For Delivery
FROM lips
INTO TABLE it_lips
FOR ALL ENTRIES IN it_ekpo
WHERE vgbel = it_ekpo-ebeln.
ENDIF.
IF it_ekpo IS NOT INITIAL.
SELECT ebeln ebelp eindt " For Delivery Date EKET
FROM eket
INTO TABLE it_eket
FOR ALL ENTRIES IN it_ekpo
WHERE ebeln = it_ekpo-ebeln
AND ebelp = it_ekpo-ebelp.
ENDIF.
*" For Delivery Stock Transf
IF it_ekpo IS NOT INITIAL.
SELECT ebeln ebelp vgabe belnr bewtp budat menge
FROM ekbe INTO TABLE it_ekbe_del
FOR ALL ENTRIES IN it_ekpo
WHERE ebeln = it_ekpo-ebeln
AND ebelp = it_ekpo-ebelp
AND vgabe = '8'
AND bewtp = 'L'. " DlNt
*F o r G o o d s R e c e i p t.... GR
SELECT ebeln ebelp vgabe belnr bewtp budat menge
FROM ekbe
INTO TABLE it_ekbe_e
FOR ALL ENTRIES IN it_ekpo
WHERE ebeln = it_ekpo-ebeln
AND ebelp = it_ekpo-ebelp
AND vgabe = '1'
AND bewtp = 'E'. " F O R GR
*F o r I n v o i c e R e c e i p t.... IR
SELECT ebeln ebelp vgabe belnr bewtp budat menge
FROM ekbe
INTO TABLE it_ekbe_q
FOR ALL ENTRIES IN it_ekpo
WHERE ebeln = it_ekpo-ebeln
AND ebelp = it_ekpo-ebelp
AND vgabe = '2'
AND bewtp = 'Q'.
SELECT ebeln ebelp vgabe belnr bewtp budat menge xblnr
FROM ekbe
INTO TABLE it_ekbe_u
FOR ALL ENTRIES IN it_ekpo
WHERE ebeln = it_ekpo-ebeln
AND ebelp = it_ekpo-ebelp
AND bewtp = 'U'. " F O R G I
ENDIF.
*************point is assured***********
Bluesky
