samll problem

[Former Member]

Hi to all,

If i wanted to put EBELN AND BEDAT IN SELECT-OPTION....how can i write the code....

TABLES: vbap,vbak, eipa, eina.

type-pools: slis.

data : BEGIN OF itabVBAK occurs 0,

VTWEG type vbak-vtweg, "distribution channel

VKORG type vbak-vkorg, "sales org

KUNNR type vbak-kunnr, "customer

AUART type vbak-auart, "sales docu type

MATNR type vbap-matnr, "material

AUDAT type vbap-audat, "sales docu date

NETPR type vbap-netpr, "netprice sales

ARKTX type vbap-arktx, "sales order item

VBELN type vbap-vbeln, "sales order

VRKME type vbap-vrkme, "sales unit

WAERK type vbap-waerk, "plant

NETWR type vbap-netwr, "netvalue

KWMENG type vbap-kwmeng, "quantity

PREIS type vbap-netpr, "purchase netprice

MATNR1 type vbap-MATNR, "material

INFNR type EIPA-INFNR, "record no

PREDI type VBAP-NETPR, "price diff(new field)

BEDAT type EIPA-BEDAT, "purchase docu date

EBELN type eipa-ebeln, "purchase order

end of itabvbak.

DATA: PREIS LIKE EIPA-PREIS ,

matnr1 like eina-matnr,

PREDI LIKE VBAP-NETPR,

EBELN like EIPA-EBELN,

BEDAT like EIPA-BEDAT.

SELECT-OPTIONS:

s_audat for vbap-audat no-extension, "Document Date.

s_kunn1 for vbak-kunnr no-extension ,

"DEFAULT '5525' .

s_matnr for vbap-matnr no-extension.

&----

---

*& Form DATA_RETRIEVAL

&----

---

• Retrieve data form VBAK table and populate itab it_VBAK

----

---

form data_retrieval.

data: ld_color(1) type C.

select VBAP~matnr

VBAK~VTWEG

VBAK~VKORG

VBAK~KUNNR

VBAK~AUART

VBAP~AUDAT

VBAP~NETPR

VBAP~ARKTX

VBAP~VRKME

VBAP~WAERK

VBAP~NETWR

VBAP~vbeln

VBAK~BSTNK

vbap~kwmeng

into corresponding fields of table itabvbak from VBAP

inner join VBAK

on VBAP_{VBELN = VBAK}VBELN

where VBAK~kunnr in s_kunn1

and VBAP~AUDAT in s_AUDAT

and VBAP~MATNR in s_MATNR

and VBAK~AUART in s_AUART

and VBAK~VTWEG in s_VTWEG

and VBAK~VKORG in s_VKORG.

loop at itabvbak.

clear: eipa, eina.

select single INFNR from eina into eina-infnr where MATNR =

itabvbak-matnr.

ITABVBAK-matnr1 = eina-matnr.

select single PREIS from eipa into eipa-preis where infnr = eina-infnr.

ITABVBAK-PREIS = eipa-preis.

select single EBELN from eipa into eipa-EBELN where infnr = eina-infnr.

ITABVBAK-EBELN = eipa-EBELN.

select single BEDAT from eipa into eipa-BEDAT where infnr = eina-infnr.

ITABVBAK-BEDAT = eipa-BEDAT.

ITABVBAK-PREDI = ITABVBAK-NETPR - ITABVBAK-PREIS.

modify itabvbak.

endloop.

endform. " DATA_RETRIEVAL

Thanks in advace.

raju.

[Former Member]

Raju,

SELECT-OPTIONS:

s_audat for vbap-audat no-extension, "Document Date.

s_kunn1 for vbak-kunnr no-extension ,

s_matnr for vbap-matnr no-extension,

<b>S_EBELN FOR EIPA-EBELN,

S_BEDAT FOR EIPA-BEDAT.</b>

THANKS

KAM

[Former Member]

Hi,

**************

selection-screen: begin of block B1 with frame title text-001.

SELECT-OPTIONS:

s_audat for vbap-audat no-extension, "Document Date.

s_kunn1 for vbak-kunnr no-extension ,

"DEFAULT '5525' .

s_matnr for vbap-matnr no-extension.

************

s_ebeln for ekko-ebeln,

s_bedat for .......,

***************

selection-screen end of block B1.

I hope this is your requirement.

Thanks.

award points if it works for you.

[Former Member]

select-options: s_ebeln for EIPA-EBELN,

s_BEDAT for EIPA-BEDAT.

[Former Member]

see my coding once....its not working i think i need change the select query....

raju

[Former Member]

This is one my selection screen.....

This would surely be helpful to you....

*selection screen

SELECTION-SCREEN BEGIN OF BLOCK BLK WITH FRAME TITLE TEXT-001.

SELECT-OPTIONS S_PSPID FOR PROJ-PSPID.

SELECT-OPTIONS S_ASTNR FOR PROJ-ASTNR NO INTERVALS .

SELECT-OPTIONS S_VERNR FOR PROJ-VERNR NO INTERVALS .

PARAMETERS P_STAT(20) DEFAULT 'OPEN' OBLIGATORY.

PARAMETERS P_PLFAZ LIKE JCDS-UDATE DEFAULT SY-DATUM OBLIGATORY.

SELECT-OPTIONS S_WERKS FOR PROJ-WERKS.

PARAMETERS P_PRART(30) DEFAULT 'REVENUE'.

SELECT-OPTIONS S_ZZLOB FOR PROJ-ZZLOB no intervals .

SELECT-OPTIONS S_GEO FOR PROJ-ZZGEOGRAPHY no intervals .

SELECT-OPTIONS S_VER FOR PROJ-ZZVERTICAL no intervals .

SELECT-OPTIONS S_HOR1 FOR PROJ-ZZHORIZONTAL1 no intervals .

SELECT-OPTIONS S_EFFVAR FOR PROJ-ZZEFFVAR no-extension.

SELECT-OPTIONS S_SCHVAR FOR PROJ-ZZSCHVAR no-extension.

SELECTION-SCREEN END OF BLOCK BLK.

----

---

It has got parameters and select options..

Thru parameters you can even make customeised F4 Help...

Regards,

Abhishek

[Former Member]

where VBAK~kunnr in s_kunn1

and VBAP~AUDAT in s_AUDAT

and VBAP~MATNR in s_MATNR

and VBAK~AUART in s_AUART

and VBAK~VTWEG in s_VTWEG

and VBAK~VKORG in s_VKORG

<b>AND

VBAK~BSTNK IN S_EBELN

AND

VBAK~BSTDK IN S_BEDAT.</b>

NOTE THE HIGHLIGHTED AREA.

[Former Member]

Hi,

I think u are getting the value of EBELN from EIPA table and updating the itab.

For this try to store the value in some data variables instead of giving eipa-ebeln and move it to Itab.

[Former Member]

bstdk is not working ....it is selecting again sales document date........

sume vasu...

can u give the sample code for storing values data variables.

raju.