关联工厂和公司的对应关系表以及本位币获取

 select t001w~werks,
          t001~waers
     INTO TABLE @DATA(lt_t001k)
     FROM t001k
     INNER JOIN t001w ON t001w~bwkey = t001k~bwkey
     INNER JOIN t001 ON t001~bukrs = t001k~bukrs
     FOR ALL ENTRIES IN @gt_data
     WHERE t001w~werks = @gt_data-werks.