field validation

[Former Member]

hi,

two fields in selection-screen , first I enter value in first field in selection screen and second field in selection screen values are particular value of first field values are displaying in second field in selection .how can i check it out that values are for particular first values?

how can i field validation in selection screen ?

[Former Member]

Hi Nag,

I did n't get u r requirement if i understand like this do u want to fill second fields value depends upon first field value.

regards,

kiran.M

[Former Member]

*"Selection screen elements............................................

SELECT-OPTIONS:

S_EBELN FOR EKKO-EBELN, " Purchasing Document Number

S_LIFNR FOR EKKO-LIFNR, " Vendor's account number

S_EKGRP FOR EKKO-EKGRP, " Purchasing group

S_BEDAT FOR EKKO-BEDAT, " Purchasing Document Date

S_UDATE FOR CDHDR-UDATE. " Creation date of the change

" document

"----

---

• AT SELECTION-SCREEN EVENT *

"----

---

AT SELECTION-SCREEN ON S_EBELN.

• Subroutine to validate Purchase Document Number.

PERFORM VALIDATE_PD_NUM.

AT SELECTION-SCREEN ON S_LIFNR.

• Subroutine to validate Vendor Number.

PERFORM VALIDATE_VEN_NUM.

AT SELECTION-SCREEN ON S_EKGRP.

• Subroutine to validate Purchase Group.

PERFORM VALIDATE_PUR_GRP.

&----

---

*& Form VALIDATE_PD_NUM

&----

---

• Subroutine to validate Purchase Document Number

----

---

• There are no interface parameters to be passed to this subroutine.

----

---

FORM VALIDATE_PD_NUM .

IF NOT S_EBELN[] IS INITIAL.

SELECT EBELN " Purchase Document Number

FROM EKKO

INTO W_EBELN

UP TO 1 ROWS

WHERE EBELN IN S_EBELN.

ENDSELECT.

IF SY-SUBRC NE 0.

CLEAR SSCRFIELDS-UCOMM.

MESSAGE E717(M8).

ENDIF. " IF SY-SUBRC NE 0

ENDIF. " IF NOT S_EBELN[]...

ENDFORM. " VALIDATE_PD_NUM

&----

---

*& Form VALIDATE_VEN_NUM

&----

---

• Subroutine to validate Vendor Number

----

---

• There are no interface parameters to be passed to this subroutine.

----

---

FORM VALIDATE_VEN_NUM .

IF NOT S_LIFNR[] IS INITIAL.

SELECT LIFNR " Vendor Number

FROM LFA1

INTO W_LIFNR

UP TO 1 ROWS

WHERE LIFNR IN S_LIFNR.

ENDSELECT.

IF SY-SUBRC NE 0.

CLEAR SSCRFIELDS-UCOMM.

MESSAGE E002(M8) WITH W_SPACE.

ENDIF. " IF SY-SUBRC NE 0

ENDIF. " IF NOT S_LIFNR[]...

ENDFORM. " VALIDATE_VEN_NUM

&----

---

*& Form VALIDATE_PUR_GRP

&----

---

• Subroutine to validate the Purchase Group

----

---

• There are no interface parameters to be passed to this subroutine.

----

---

FORM VALIDATE_PUR_GRP .

IF NOT S_EKGRP[] IS INITIAL.

SELECT EKGRP " Purchase Group

FROM T024

INTO W_EKGRP

UP TO 1 ROWS

WHERE EKGRP IN S_EKGRP.

ENDSELECT.

IF SY-SUBRC NE 0.

CLEAR SSCRFIELDS-UCOMM.

MESSAGE E622(M8) WITH W_SPACE.

ENDIF. " IF SY-SUBRC NE 0

ENDIF. " IF NOT S_EKFRP[]...

ENDFORM. " VALIDATE_PUR_GRP

Regards,

Pavan