Question on selection field

Question

I am trying to code in my program, the ability to either select the vendor information by the vendor number that is entered on the selection which could be blank in which case I would select all vendors or by passing a vendor number from a table that I have created in the program. I have even went as far a concatenating the IEQ in front of the vendor number. when I use the vendor from the internal table, I still get all of the vendors and not just the one that I want 
can someone take a look at this code and let me know what I am doing wrong. (this is just a sample and not the entire program)
SELECT-OPTIONS : so_cocod  FOR l_bukrs,
                 so_lifnr  FOR l_lifnr,
                 so_udate  FOR l_udate.
SELECTION-SCREEN END OF BLOCK b1.
START-OF-SELECTION.    "Main logic
  IF so_udate IS NOT INITIAL.
    perform extract_change_data.
      LOOP at it_cdhdr into st_cdhdr.
        CONCATENATE 'IEQ' st_cdhdr-objectid INTO so_lifnr.
        perform extract_vendor_data.
      ENDLOOP.
  ELSE.
    perform extract_vendor_data.
  ENDIF.
FORM extract_change_data.
  SELECT distinct objectid
   INTO TABLE it_cdhdr
   FROM cdhdr
    WHERE objectclas = 'KRED'
    AND  udate in so_udate.
ENDFORM. " xtract_change_data.
FORM extract_vendor_data.
SELECT
     lfb1lifnr lfb1bukrs lfm1ekorg lfa1ktokk adrcname1 adrcname2
     INTO TABLE it_sap_data
      FROM ( lfb1 INNER JOIN lfa1 ON lfb1lifnr EQ lfa1lifnr )
            LEFT OUTER JOIN adrc ON lfa1adrnr EQ adrcaddrnumber
            LEFT OUTER JOIN lfm1 ON lfa1lifnr EQ lfm1lifnr
      WHERE lfa1~lifnr IN so_lifnr AND
           lfb1~bukrs IN so_cocod.
ENDFORM. "extract_vendor_data.
thanks in advance for the help

Answer 1

Hi,
  Try this...
Instead of
   CONCATENATE 'IEQ' st_cdhdr-objectid INTO so_lifnr.
use
so_lifnr = st_cdhdr-objectid+0(10).
In the form extract_vendor_data
SELECT
lfb1lifnr lfb1bukrs lfm1ekorg lfa1ktokk adrcname1 adrcname2
INTO TABLE it_sap_data
FROM ( lfb1 INNER JOIN lfa1 ON lfb1lifnr EQ lfa1lifnr )
LEFT OUTER JOIN adrc ON lfa1adrnr EQ adrcaddrnumber
LEFT OUTER JOIN lfm1 ON lfa1lifnr EQ lfm1lifnr
WHERE lfa1~lifnr = so_lifnr AND
lfb1~bukrs IN so_cocod.
ENDFORM. "extract_vendor_data.
Regards,
Vara