F4HELP

[Former Member]

hi,

Can anyone give me the code how to use the function module

f4tool_f4function_bridge.

Regards,

keerthi

[Former Member]

Check this program RSIWA092


call function 'F4TOOL_F4FUNCTION_BRIDGE'
       exporting
            cucol          = 39
            curow          = 3
            tabname        = ' '
            fieldname      = ' '
            display_only   = space
*         NO_CONVERSION  = ' '
            window_title   = 'Choose object type' "#EC NOTEXT
*         TABDISPLAY     = on
       importing
            selected_value = pv_objtype
*         SELECTED_INDEX =
       tables
*         SHVALUE_TAB    =
*         SHSTRUC_TAB    =
            value_tab      = gt_values
            fields_tab     = gt_fields
            values_out     = gt_selected_values
*         COLTITLE_TAB   =
*         SEL_OPT        =
            .                           "

[Former Member]

Hi kkv,

Just copy and paste this code in ur program..

Input help in dialog modules</b>

REPORT DEMO_DYNPRO_F4_HELP_MODULE.

TYPES: BEGIN OF VALUES,

CARRID TYPE SPFLI-CARRID,

CONNID TYPE SPFLI-CONNID,

END OF VALUES.

DATA: CARRIER(3) TYPE C,

CONNECTION(4) TYPE C.

DATA: PROGNAME LIKE SY-REPID,

DYNNUM LIKE SY-DYNNR,

DYNPRO_VALUES TYPE TABLE OF DYNPREAD,

FIELD_VALUE LIKE LINE OF DYNPRO_VALUES,

VALUES_TAB TYPE TABLE OF VALUES.

CALL SCREEN 100.

MODULE INIT OUTPUT.

PROGNAME = SY-REPID.

DYNNUM = SY-DYNNR.

CLEAR: FIELD_VALUE, DYNPRO_VALUES.

FIELD_VALUE-FIELDNAME = 'CARRIER'.

APPEND FIELD_VALUE TO DYNPRO_VALUES.

ENDMODULE.

MODULE CANCEL INPUT.

LEAVE PROGRAM.

ENDMODULE.

MODULE VALUE_CARRIER INPUT.

CALL FUNCTION 'F4IF_FIELD_VALUE_REQUEST'

EXPORTING

TABNAME = 'DEMOF4HELP'

FIELDNAME = 'CARRIER1'

DYNPPROG = PROGNAME

DYNPNR = DYNNUM

DYNPROFIELD = 'CARRIER'.

ENDMODULE.

MODULE VALUE_CONNECTION INPUT.

CALL FUNCTION 'DYNP_VALUES_READ'

EXPORTING

DYNAME = PROGNAME

DYNUMB = DYNNUM

TRANSLATE_TO_UPPER = 'X'

TABLES

DYNPFIELDS = DYNPRO_VALUES.

READ TABLE DYNPRO_VALUES INDEX 1 INTO FIELD_VALUE.

SELECT CARRID CONNID

FROM SPFLI

INTO CORRESPONDING FIELDS OF TABLE VALUES_TAB

WHERE CARRID = FIELD_VALUE-FIELDVALUE.

CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'

EXPORTING

RETFIELD = 'CONNID'

DYNPPROG = PROGNAME

DYNPNR = DYNNUM

DYNPROFIELD = 'CONNECTION'

VALUE_ORG = 'S'

TABLES

VALUE_TAB = VALUES_TAB.

ENDMODULE.

Regards

Kumar

Message was edited by:

kumar kk

[Former Member]

Hi

Check Program <b>RKEB0601_ALV_VARIANTS</b>

  call function 'F4TOOL_F4FUNCTION_BRIDGE'               "mp990722-begin
       exporting
            tabname        = docu_tabname
            fieldname      = docu_fieldname
            display_only   = space
            no_conversion  = space
            window_title   = text-002
       importing
            selected_value = l_keyid
            selected_index = l_index
       tables
            value_tab      = value_tab
            coltitle_tab   = coltitle_tab
            fields_tab     = field_tab."mp990722-end

Regards,

Santosh