topic Re: Problem in reading selection-screen field values in Application Development and Automation Discussions

Problem in reading selection-screen field values

Former Member — Fri, 13 Mar 2009 06:17:47 GMT

here i am unable to read the value entered in s_date-low.

REPORT ZEX.

DATA: G_DATE TYPE VBRK-FKDAT.

SELECT-OPTIONS: S_DATE FOR G_DATE NO INTERVALS NO-EXTENSION.

RANGES: R_DATE FOR VBRK-FKDAT.

DATA: LT_FIELDS TYPE TABLE OF DYNPREAD WITH HEADER LINE,

L_DATE TYPE CHAR10.

REFRESH:LT_FIELDS.

CLEAR: LT_FIELDS.

LT_FIELDS-FIELDNAME = 'S_DATE-LOW'.

APPEND LT_FIELDS.

CLEAR LT_FIELDS.

CLEAR L_DATE.

CALL FUNCTION 'DYNP_VALUES_READ'

EXPORTING

DYNAME = SY-CPROG

DYNUMB = SY-DYNNR

TABLES

DYNPFIELDS = LT_FIELDS

EXCEPTIONS

INVALID_ABAPWORKAREA = 1

INVALID_DYNPROFIELD = 2

INVALID_DYNPRONAME = 3

INVALID_DYNPRONUMMER = 4

INVALID_REQUEST = 5

NO_FIELDDESCRIPTION = 6

INVALID_PARAMETER = 7

UNDEFIND_ERROR = 8

DOUBLE_CONVERSION = 9

STEPL_NOT_FOUND = 10

OTHERS = 11.

READ TABLE LT_FIELDS WITH KEY FIELDNAME = 'S_DATE-LOW'.

IF SY-SUBRC = 0.

R_DATE-SIGN = 'I'.

R_DATE-OPTION = 'EQ'.

L_DATE = LT_FIELDS-FIELDVALUE.

CALL FUNCTION 'CONVERT_DATE_TO_INTERNAL'

EXPORTING

DATE_EXTERNAL = l_date

ACCEPT_INITIAL_DATE =

IMPORTING

DATE_INTERNAL = l_date.

R_DATE-LOW = L_DATE.

APPEND R_DATE.

ENDIF.

Thanks

Sri

Re: Problem in reading selection-screen field values

Former Member — Fri, 13 Mar 2009 06:20:01 GMT

Hi Sri,

Use that appending logic in Initialization event.It will work.

Like this.

REPORT ZEX.

DATA: G_DATE TYPE VBRK-FKDAT.
SELECT-OPTIONS: S_DATE FOR G_DATE NO INTERVALS NO-EXTENSION.
RANGES: R_DATE FOR VBRK-FKDAT.
DATA: LT_FIELDS TYPE TABLE OF DYNPREAD WITH HEADER LINE,
L_DATE TYPE CHAR10.
REFRESH:LT_FIELDS.
CLEAR: LT_FIELDS.

INITIALIZATION

LT_FIELDS-FIELDNAME = 'S_DATE-LOW'.
APPEND LT_FIELDS.
CLEAR LT_FIELDS

Much Regards,

Amuktha.

Re: Problem in reading selection-screen field values

Former Member — Fri, 13 Mar 2009 06:20:54 GMT

Hi;

have a look

[Link|http://help.sap.com/saphelp_nw70/helpdata/en/9f/dba74635c111d1829f0000e829fbfe/content.htm]

regards

Shashi

Re: Problem in reading selection-screen field values

Former Member — Fri, 13 Mar 2009 06:23:34 GMT

actually i need to read few more field values from the screen..

so i cant initialize that.

and by reading these values i need to create search helps for further fields dynamically..

Re: Problem in reading selection-screen field values

Former Member — Fri, 13 Mar 2009 06:30:18 GMT

Hi,

Use it this way...

DATA: g_date TYPE vbrk-fkdat.
SELECT-OPTIONS: s_date FOR g_date NO INTERVALS NO-EXTENSION.
RANGES: r_date FOR vbrk-fkdat.
DATA: lt_fields TYPE TABLE OF dynpread WITH HEADER LINE,
l_date TYPE char10.


AT SELECTION-SCREEN.    "  AT selection-screen event.... this will work its tested
  REFRESH:lt_fields.
  CLEAR: lt_fields.
  lt_fields-fieldname = 'S_DATE-LOW'.
  APPEND lt_fields.
  CLEAR lt_fields.

  CLEAR l_date.
  CALL FUNCTION 'DYNP_VALUES_READ'
    EXPORTING
      dyname               = sy-cprog
      dynumb               = sy-dynnr
    TABLES
      dynpfields           = lt_fields
    EXCEPTIONS
      invalid_abapworkarea = 1
      invalid_dynprofield  = 2
      invalid_dynproname   = 3
      invalid_dynpronummer = 4
      invalid_request      = 5
      no_fielddescription  = 6
      invalid_parameter    = 7
      undefind_error       = 8
      double_conversion    = 9
      stepl_not_found      = 10
      OTHERS               = 11.

Re: Problem in reading selection-screen field values

kamesh_g — Fri, 13 Mar 2009 06:30:30 GMT

u r not populating filed value .

DATA: G_DATE TYPE VBRK-FKDAT.

SELECT-OPTIONS: S_DATE FOR G_DATE NO INTERVALS NO-EXTENSION.

RANGES: R_DATE FOR VBRK-FKDAT.

DATA: LT_FIELDS TYPE TABLE OF DYNPREAD WITH HEADER LINE,

L_DATE TYPE CHAR10.

REFRESH:LT_FIELDS.

CLEAR: LT_FIELDS.

LT_FIELDS-FIELDNAME = 'S_DATE-LOW'.

LT_FIELDS-FIELDvalue = S_DATE-LOW. -

Added line

APPEND LT_FIELDS.

CLEAR LT_FIELDS.

CLEAR L_DATE.

CALL FUNCTION 'DYNP_VALUES_READ'

EXPORTING

DYNAME = SY-CPROG

DYNUMB = SY-DYNNR

TABLES

DYNPFIELDS = LT_FIELDS

EXCEPTIONS

INVALID_ABAPWORKAREA = 1

INVALID_DYNPROFIELD = 2

INVALID_DYNPRONAME = 3

INVALID_DYNPRONUMMER = 4

INVALID_REQUEST = 5

NO_FIELDDESCRIPTION = 6

INVALID_PARAMETER = 7

UNDEFIND_ERROR = 8

DOUBLE_CONVERSION = 9

STEPL_NOT_FOUND = 10

OTHERS = 11.

READ TABLE LT_FIELDS WITH KEY FIELDNAME = 'S_DATE-LOW'.

IF SY-SUBRC = 0.

R_DATE-SIGN = 'I'.

R_DATE-OPTION = 'EQ'.

L_DATE = LT_FIELDS-FIELDVALUE.

CALL FUNCTION 'CONVERT_DATE_TO_INTERNAL'

EXPORTING

DATE_EXTERNAL = l_date

ACCEPT_INITIAL_DATE =

IMPORTING

DATE_INTERNAL = l_date.

R_DATE-LOW = L_DATE.

APPEND R_DATE.

ENDIF.