各位好，新进一个药房不久，老板想在原来的POS收银系统里，新增一个功能。
要求很急切，自己PB又没基础，原来开发的人员又联系不上，希望各位前辈指点一下。
需求功能界面
http://photo.163.com/photo/fanzs008/?u=fanzs008#m=2&ai=50796437&pi=2392011768&p=1
原来的流程是这样的: 输入一个商品ID码或者扫描商品的条码后，数据窗口会显示出这个商品的相关信息。。输入数量回车后。出收款界面。
现在我有一张中药划价表。其中有商品ID码、数量、处方号这三个字段。（一个处方号可能对应几个商品ID码）
我想通过处方号，把商品ID码、数量传递到原来的窗口。。
这功能不知道这样可以实现吗？或者有更好的办法？
手上有POS源代码。
下面是一小段代码
goodsid=long(sle_2.text)
//select goodsid into :ll_goodsid from t_recipe_detail where rseqid=:ll_cfh
//goodsid=ll_goodsid
barcode = sle_1.text
st_5.text = ""
xgflag = 0
vipxgflag = 0
select goodsid,udfcode,goodsname,goodstype,goodsunit,prodarea,nvl(integral,0),nvl(tj_flag,0),nvl(xghs,0),nvl(vipxghs,0)
into :goodsid,:udfcode,:goodsname,:goodstype,:goodsunit,:prodarea,:integral,:tj_flag,:xghs,:vipxghs
from pub_goods
where (goodsid = :goodsid or barcode = :barcode) and usestatus = 1 and goodsid <> 0 using mytrans;
select nvl(price,0) into :unitprice
from pub_goods_price
where goodsid = :goodsid and priceunit = :goodsunit
and priceid in (select priceid from pub_price_type
where nvl(WHOLERESALEFLAG,0) = 2 and companyid = :companyid) using mytrans;
row = dw_2.rowcount() + 1
select RESA_SA_DTL_RSADTLID_SEQ.nextval into :rsadtlid from dual using mytrans;
dw_2.insertrow(row)
dw_2.setrow(row)
dw_2.setitem(row,"goodsid",goodsid) //商品ID
dw_2.setitem(row,"udfcode",udfcode) //中药编码
dw_2.setitem(row,"counterid",counterid) //门店
dw_2.setitem(row,"goodsqty",1) //库存
dw_2.setitem(row,"goodsuseqty",1) //数量
dw_2.setitem(row,"rsaid",rsaid) //小票号
dw_2.setitem(row,"rsadtlid",rsadtlid) //明细ID
dw_2.setitem(row,"unitprice",unitprice) //零售价
dw_2.setitem(row,"goodsuseprice",unitprice)
如果这个功能可以实现的话，有酬谢！QQ：66723917 如不在线的话，可以留言给我
------解决方案--------------------
我也想帮你的，可惜我不懂的，不好意思，就给你一些安慰好了！呵呵