Select name1 frm kna1 table on basis of customer number

Question

hi below is my PAI code
my requiremnt is to select name1 field from kna1 table where
kan1-kunnr = t_ZCUST_EM_create-ship_to
where to code it pls suggest and how it will be displayed in the screen 200 ie when user press enter the name1 should automatically populate and display on the screen...
PROCESS AFTER INPUT.                                                                               
MODULE CANCEL_200 AT EXIT-COMMAND.                                                                               
LOOP WITH CONTROL TABLE_ZCUST_EM_CREATE ."AT T_AIMS_OPN_CREATE ." .".
   MODULE USER_COMMAND_0200.                                                                               
CHAIN.                                                                               
FIELD t_ZCUST_EM_create-ship_to .                                                                               
MODULE set_field_validation ON CHAIN-REQUEST.

Answer 1

hi anji
here is my code i ahve written in PAI event but facing problem that whne i save entering the third firled in table zcustemal which has ship_to ship to name
and email id, kunnr is matched against kna1 table and eror msg comes if the kunnr in not in kna1 table it is working ok
now also name 1 is being populated in the field in the screen as per my code
but problem is
1) when just typing kunnr and email id ( and press save without enter the data for all three is saved ie kunnr name1 ( which is selected from table kna1) and e mail id
2) but whne i press enter after entering kunnr number on screen and then enter email id an dsave email id is not saved only kunnr and name1 is saved pls suggest
where should i code dont know pls suggest??????
CODe in screen
PROCESS BEFORE OUTPUT.
  LOOP   WITH CONTROL TABLE_ZCUST_EM_CREATE."AT T_ZCUST_EM_CREATE
    MODULE STATUS_0200.
  ENDLOOP.
*Process after input
PROCESS AFTER INPUT.
  MODULE CANCEL_200 AT EXIT-COMMAND.
  LOOP WITH CONTROL TABLE_ZCUST_EM_CREATE ."AT T_zcust_em_CREATE ." .".
    CHAIN.
      FIELD t_ZCUST_EM_create-ship_to .
      MODULE set_field_validation ON CHAIN-REQUEST.
    ENDCHAIN.
    MODULE USER_COMMAND_0200.
  ENDLOOP.
  module read_table_value_0200.
<b>MODULE set_field_validation INPUT.</b>
nv added for  three email id and ship_to name
  select single * from zcustemail   where ship_to eq
  t_zcust_em_create-ship_to
  and ship_to_name = t_zcust_em_create-ship_to_name
  and email_id = t_zcust_em_create-email_id.
  if sy-subrc eq 0.
    t_gui1-fcode = 'BACK'.
    append t_gui1.
    t_gui1-fcode = 'EXIT'.
    append t_gui1.
    t_gui1-fcode = 'SAVE'.
    append t_gui1.
    SET PF-STATUS 'AIMS_200' excluding t_gui1.
    message e001 with 'Record already Exists in Zcusteamil'(001).
  else.
*nv
    CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
          EXPORTING
             INPUT         = t_zcust_em_create-ship_to
          IMPORTING
              OUTPUT       = t_zcust_em_create-ship_to.
     select single kunnr from kna1 into v_kunnr
     where kunnr = t_zcust_em_create-ship_to.
    if sy-subrc = 0.
       select single name1 from kna1 into t_zcust_em_create-ship_to_name
       where kunnr = t_zcust_em_create-ship_to.
      SET PF-STATUS 'AIMS_200'.
       else.
       message E001 with 'customer number does not exists'.
   endif.
*nv
  endif.
ENDMODULE.                 " set_field_validation  INPUT
*Setting it for select/deselect entries
  move:t_zcust_em_create to t_zcust_em_create_sel.
  append t_zcust_em_create_sel.
  clear:t_zcust_em_create_sel.
*Getting internal table t_zcust_em_create with control
  read table t_zcust_em_create
         with key ship_to = t_zcust_em_create-ship_to.
*Getting internal table for create entries: screen-200
  if sy-subrc ne 0 and t_zcust_em_create-ship_to ne space .
    append  t_zcust_em_create     .
    move:t_zcust_em_create to t_zcust_em_create_tmp.
    append t_zcust_em_create_tmp .
    clear:t_zcust_em_create_tmp  ,
          t_zcust_em_create      .
  endif.
  clear:t_cols.
*Getting the value of  w_fill_200.
  describe table t_zcust_em_create lines w_fill_200.