On F4 , POP up details on screen,

Question

hi all,
I have a senario where in i have a screen containing fields Po document(ebeln),and PO item (ebelp) no
other than that i have material no(matnr) ,supplier(lifnr) and transporter(lifnr) .
now the issue is , i have a text field by the name get podetails with an F4 option which is responsible to find all valid Po's with details and pop them up in a separate window from where the user is supposed to select one by double clicking and then Po doc no and PO item number would pop up in their respective fields.this functionality is basically for the purpose if the user doesn't remember the PO no at the moment of doing that transaction
I'm not able to proceed ,plz guide me with some samples.
thanks,
sachin soni

Answer 1

hi sachin,
for this u can use event called,
at selectio-screen on value-request for field.
here u can write select statement for po detais where po = firstfield-potext.
then u can pass u field and this itab to this function module name called F4IF_INT_TABLE_VALUE_REQUEST.
if its dailog screen use this function module to read screen fields 'dynp_values_read.
this is the sample code for this ,
data: begin of dynpfields occurs 3.
          include structure dynpread.
  data: end of dynpfields.
move 'ZPO_HEADER' to dynpfields-fieldname.
append dynpfields.
  move 'ZPO_HEADER-BUKRS' to dynpfields-fieldname.
  append dynpfields.
  call function 'DYNP_VALUES_READ'
    exporting
      dyname                         = sy-repid
      dynumb                         = sy-dynnr
  TRANSLATE_TO_UPPER             = ' '
  REQUEST                        = ' '
  PERFORM_CONVERSION_EXITS       = ' '
  PERFORM_INPUT_CONVERSION       = ' '
  DETERMINE_LOOP_INDEX           = ' '
    tables
      dynpfields                     = dynpfields
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
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
  read table dynpfields index 1.
  zpo_header-bukrs = dynpfields-fieldvalue.
  refresh it_values.
  select ekorg ekotx from t024e into table it_values where
      bukrs = zpo_header-bukrs.
  if sy-subrc ne 0.
    message i019(zct) with zpo_header-bukrs.
    exit.
  endif.
call function 'F4IF_INT_TABLE_VALUE_REQUEST'
    exporting
   DDIC_STRUCTURE         = 'ZPO_HEADER'
      retfield               = 'EKORG'
  PVALKEY                = ' '
      dynpprog               = sy-cprog
      dynpnr                 = sy-dynnr
      dynprofield            = 'ZPO_HEADER-P_ORG'
  STEPL                  = 0
  WINDOW_TITLE           =
  VALUE                  = ' '
      value_org              = 'S'
  MULTIPLE_CHOICE        = ' '
   DISPLAY                = 'F'
  CALLBACK_PROGRAM       = ' '
  CALLBACK_FORM          = ' '
  MARK_TAB               =
IMPORTING
  USER_RESET             =
    tables
      value_tab              = it_values
  FIELD_TAB              = IT_FIELD
     return_tab             = it_return
  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.
check this demo report for this requirement,
'demo_selection_screen_f4'
regards,
seshu.
Message was edited by:
        maddipatla Seshu chowdary