"获取本位币
SELECT SINGLE t001~waers
INTO wa_out-waers
FROM t001k
INNER JOIN t001w ON t001w~bwkey = t001k~bwkey
INNER JOIN t001 ON t001~bukrs = t001k~bukrs
WHERE t001w~werks = 工厂.
SELECT SINGLE t001~waers
INTO wa_out-waers
FROM t001k
INNER JOIN t001w ON t001w~bwkey = t001k~bwkey
INNER JOIN t001 ON t001~bukrs = t001k~bukrs
WHERE t001w~werks = 工厂.