Filter in F4 Functionallity

Question

Hi! Frnds,
         At selection-screen am having three fields with F4 Functional 1) Company Code 2)Accounting Document Number 3)Fiscal year. when press f4 on company code  depending on the company code selected it should fillter the Accounting Document Number. Based on Accounting Document Number Selected Fiscal year should be fillted. Please help me to find this...........thanks

Answer 1

hi,
Following Code will help you out in this way in the bellow code i am selecting the RSM With Respect to Customer and then select ASM the People under RSM and then CR the all People under ASM,
Hope this will help you lot.
data: i_return type ddshretval occurs 0 with header line,
      c type c value 'S'.
* Search Help for RSM
at selection-screen on value-request for sorsmid-low.
  types: begin of t_sh_rsmid,
    rsmid like zsdo-rsmid,
    ename like pa0001-ename,
  end of t_sh_rsmid.
  data: it_sh_rsmid type standard table of t_sh_rsmid with header line.
  select distinct zsdo~rsmid pa0001~ename
    into corresponding fields of table it_sh_rsmid
    from zsdo left outer join pa0001 on ( zsdo~rsmid = pa0001~pernr and pa0001~endda = '99991231' )
    where zsdo~kunnr in sokunnr.
  delete it_sh_rsmid where rsmid = '00000000'.
  sort it_sh_rsmid by rsmid.
  call function 'F4IF_INT_TABLE_VALUE_REQUEST'
    exporting
      retfield    = 'RSMID'
      dynpprog    = sy-repid
      dynpnr      = sy-dynnr
      dynprofield = 'rsmid'
      value_org   = c
    tables
      value_tab   = it_sh_rsmid
      return_tab  = i_return.
* Search Help for ASM
at selection-screen on value-request for soasmid-low.
  types: begin of t_sh_asmid,
    asmid like zsdo-asmid,
    ename like pa0001-ename,
  end of t_sh_asmid.
  data: it_sh_asmid type standard table of t_sh_asmid with header line.
  select distinct zsdo~asmid pa0001~ename
    into corresponding fields of table it_sh_asmid
    from zsdo left outer join pa0001 on ( zsdo~asmid = pa0001~pernr and pa0001~endda = '99991231' )
    where zsdo~kunnr in sokunnr.
  delete it_sh_asmid where asmid = '00000000'.
  sort it_sh_asmid by asmid.
  call function 'F4IF_INT_TABLE_VALUE_REQUEST'
    exporting
      retfield    = 'ASMID'
      dynpprog    = sy-repid
      dynpnr      = sy-dynnr
      dynprofield = 'asmid'
      value_org   = c
    tables
      value_tab   = it_sh_asmid
      return_tab  = i_return.
* Search Help for CR
at selection-screen on value-request for socrid-low.
  types: begin of t_sh_crid,
    crid like zsdo-crid,
    ename like pa0001-ename,
  end of t_sh_crid.
  data: it_sh_crid type standard table of t_sh_crid with header line.
  select distinct zsdo~crid pa0001~ename
    into corresponding fields of table it_sh_crid
    from zsdo left outer join pa0001 on ( zsdo~crid = pa0001~pernr and pa0001~endda = '99991231' )
    where zsdo~kunnr in sokunnr.
  delete it_sh_crid where crid = '00000000'.
  loop at it_sh_crid into it_sh_crid where crid <> '' and ename = ''.
    count_loop = sy-tabix.
    call function 'CONVERSION_EXIT_ALPHA_INPUT'
      exporting
        input  = it_sh_crid-crid
      importing
        output = it_sh_crid-crid.
    select single ename from pa0001 into it_sh_crid-ename where pernr = it_sh_crid-crid.
    modify it_sh_crid from it_sh_crid index count_loop.
  endloop.
  sort it_sh_crid by crid.
  delete adjacent duplicates from it_sh_crid comparing all fields.
  call function 'F4IF_INT_TABLE_VALUE_REQUEST'
    exporting
      retfield    = 'CRID'
      dynpprog    = sy-repid
      dynpnr      = sy-dynnr
      dynprofield = 'crid'
      value_org   = c
    tables
      value_tab   = it_sh_crid
      return_tab  = i_return.
Replay if any problem,
Kind Regards,
Faisal