‎2007 Oct 04 6:51 AM
Hi
I am having a selection screen with parameters
1 .p_quonum type vbak-vbeln ,
2. p_quotyp type vbak-auart default 'ZQTP' obligatory,
Depending on the second parameter the values for the first parameter should come using search help .
kindly suggest.
‎2007 Oct 04 7:02 AM
Hi,
you can do it using F4IF_INT_TABLE_VALUE_REQUEST ,
Regards,
Raghavendra
‎2007 Oct 04 7:02 AM
Hi,
you can do it using F4IF_INT_TABLE_VALUE_REQUEST ,
Regards,
Raghavendra
‎2007 Oct 04 7:05 AM
You can as well check program BCALV_TEST_LIST.
Regards,
Raghavendra
‎2007 Oct 04 7:07 AM
Hi,
Create a search help that takes an importing parameter of type your Second parameter and then use it as a search help for your first parameter. Make sure that data element of your search help Import parameter and your screens second parameter are same.
Regards,
Sesh
‎2007 Oct 04 7:10 AM
Hi,
write at selection screen and pass the first value to select and get the values into itab and call the FM 'F4IF_INT_TABLE_VALUE_REQUEST'
Try below and change
TYPES : BEGIN OF lt_kunnr,
kunnr TYPE kna1-kunnr,
END OF lt_kunnr.
TYPES : BEGIN OF lt_terr,
name1 TYPE kna1-name1,
END OF lt_terr.
DATA : lv_vbeln TYPE vbak-vbeln.
DATA : li_kunnr TYPE STANDARD TABLE OF lt_kunnr,
li_terri TYPE STANDARD TABLE OF lt_terr.
SELECT kunnr
FROM vbpa
INTO
TABLE li_kunnr
WHERE parvw = 'ZT'.
DELETE ADJACENT DUPLICATES FROM li_kunnr.
SELECT name1
INTO TABLE li_terri
FROM kna1
FOR ALL
ENTRIES IN li_kunnr
WHERE kunnr = li_kunnr-kunnr.
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
EXPORTING
retfield = 'NAME1'
dynprofield = 'P_TERR'
value_org = 'S'
dynpprog = sy-repid
dynpnr = sy-dynnr
TABLES
value_tab = li_terri
EXCEPTIONS
parameter_error = 1
no_values_found = 2
OTHERS = 3.
Regards
Shiva
‎2007 Oct 04 7:13 AM
Hi
creat one internal table to store the values
AT SELECTION-SCREEN ON VALUE-REQUEST FOR S_OBJID-LOW.
IF S_OBJID IS NOT INITIAL.
SELECT OTYPE OBJID FROM HRP1000
INTO TABLE IT_OBJID_SH
WHERE OTYPE = 'D'.
IF SY-SUBRC EQ 0.
SEARCH HELP FOR QUALIFICATION.
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
EXPORTING
DDIC_STRUCTURE = ' '
RETFIELD = 'OBJID'
PVALKEY = ' '
DYNPPROG = SY-REPID
DYNPNR = SY-DYNNR
DYNPROFIELD = 'S_OBJID'
STEPL = 0
WINDOW_TITLE =
VALUE = ' '
VALUE_ORG = 'S'
MULTIPLE_CHOICE = ' '
DISPLAY = ' '
CALLBACK_PROGRAM = ' '
CALLBACK_FORM = ' '
MARK_TAB =
IMPORTING
USER_RESET =
TABLES
VALUE_TAB = IT_OBJID_SH
FIELD_TAB =
RETURN_TAB = RETURN_TAB
DYNPFLD_MAPPING =
EXCEPTIONS
PARAMETER_ERROR = 1
NO_VALUES_FOUND = 2
OTHERS = 3
.
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDIF.
.
write like this
<b>Reward if usefull</b>
‎2007 Oct 04 7:15 AM
Hi
Test this report.. it will work..
***************F4 HELP GENERATION
REPORT zsel_f4help .
*---Report with selection screen and to display the list of
possible entries for field 'B' as per the value in field 'A'.
PARAMETERS: p_vbeln TYPE vbak-vbeln,
p_posnr TYPE vbap-posnr.
DATA: BEGIN OF help_item OCCURS 0,
posnr TYPE vbap-posnr,
matnr TYPE vbap-matnr,
arktx TYPE vbap-arktx,
END OF help_item.
DATA: dynfields TYPE TABLE OF dynpread WITH HEADER LINE.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_posnr.
dynfields-fieldname = 'P_VBELN'.
APPEND dynfields.
**Read the Values of the SCREEN FIELDs
CALL FUNCTION 'DYNP_VALUES_READ'
EXPORTING
dyname = sy-cprog
dynumb = sy-dynnr
translate_to_upper = 'X'
TABLES
dynpfields = dynfields
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.
**Find out the Value of P_VBELN
READ TABLE dynfields WITH KEY fieldname = 'P_VBELN'.
p_vbeln = dynfields-fieldvalue.
**Convert the Value into internal format
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
input = p_vbeln
IMPORTING
output = p_vbeln.
**Fetch the correponding itemnos from VBAP
SELECT posnr matnr arktx INTO TABLE help_item
FROM vbap
WHERE vbeln = p_vbeln.
**Generate the F4 help with internal table values
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
EXPORTING
retfield = 'POSNR'
dynprofield = 'P_POSNR'
dynpprog = sy-cprog
dynpnr = sy-dynnr
value_org = 'S'
TABLES
value_tab = help_item.
*********************************************************
**SELECTION SCREEN - CUSTOMIZING GUI STATUS
REPORT ZSEL_GUI .
parameters : p_dsn(30) DEFAULT 'EMP.TXT'.
DATA : V_STATUS TYPE SY-PFKEY VALUE 'SEL1', create in SE41 WITH TYPE Selection Screen
V_rEPID TYPE SY-REPID.
AT SELECTION-SCREEN OUTPUT.
V_REPID = SY-REPID.
DATA itab TYPE TABLE OF sy-ucomm.
APPEND: 'PRIN' TO itab.
APPEND: 'SPOS' TO itab.
CASE sy-dynnr.
WHEN '1000'.
CALL FUNCTION 'RS_SET_SELSCREEN_STATUS'
EXPORTING
p_status = V_STATUS
P_PROGRAM = V_REPID "program where the GUI Status is created
TABLES
p_exclude = itab.
ENDCASE.
<b>reward if helpful.</b>
‎2007 Oct 04 10:19 AM
hi,
make one search help from SE11.
Give name and in selection method give VBAK.
Now Make VBELN Export and Auart Import with default value 'ZQTP'.
Now in report , write like this,
parameters: p_quonum like vbak-vbeln MATCHCODE OBJECT <b>zdoc_typ</b>.
zdoc_typ is Search Help name.
reward if useful.