输入时费用及药品的获得

 // (1):先按一般情况取比例
    vZiLiBL:=gZiLiBL;

    if gRenYuanXZ<>0 then
    begin
       vYBItemInfo := SysDM.GetYBItemInfo(string(gYaoPinID),gRenYuanXZ);
       vZiLiBL:=vYBItemInfo.ZiFuBL;

TUserDM.SetYPAndFySql

getybiteminfo      //gRenYuanXZ:=UserDM.GetYBRYBM; //取得医保特殊人员编码

function TSysDM.GetYBItemInfo(aItemID: string;
  aRenYuanXZ: Integer): TYBItemInfo;
begin
  with qryFree do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select RenYuanXZ,ItemDJ,ZiFuBL,ShiYongXZ,ShenPiJB,');
    SQL.Add(' ChaoFeiCL,ChaoFeiJE,ChaoFeiBL,ChaoFeiFW');
    SQL.Add(' from Z_Dict_ItemExt');
    SQL.Add(' where ItemID=:ItemID and RenYuanXZ=:RenYuanXZ');
    ParamByName('ItemID').AsString := aItemID;
    ParamByName('RenYuanXZ').AsInteger := aRenYuanXZ;
    Open;
    if IsEmpty then
    begin         //wqs  Result.ZiFuBL :=0  改成 Result.ZiFuBL := 1;;
      Result.ItemDJ := 0;
      Result.ZiFuBL := 1;

vSql:='select *  from ( Select (case YaoPinLB when 1 then "甲" when 2 then  "乙"  when 4 then "乙*" when 3 then "丙" else ZiDingMa end) as 等级,'
  +' a.YaoMing As 项目名称, a.GuiGe As 规格, a.DanWei As 单位,a.DanJia As 单价,'
  +' a.KeShiMC as 科室名称, IsNull(b.ZiFuBL,1) as 比例,'
  +' (case b.ShiYongXZ when 1 then "限制" else "不限制" end )as 限制,IsNull(b.ZiFuBL,1) as ZiFuBL,'
  +' a.YaoPinID,a.YaoMing, a.Guige, a.DanWei, a.DanJia, a.JinJia, a.PiJia, a.PinYinMa,'
  +' a.WuBiMa, a.ZiDingMa, a.ZhiXingKSBM, a.HeSuanBM, a.KeShiBM, a.KeShiMC,b.XianZhiLB'
  +' From vOut_Chg_Drug a left outer join vZ_Dict_AllItem b on a.YaoPinID=b.YaoPinID) a Order by KeShiBM,ZiDingMa,PinYinMa';

select * from (

select *  from ( Select  YaoPinLB   as 等级,
a.YaoMing As 项目名称, a.GuiGe As 规格, a.DanWei As 单位,a.DanJia As 单价,
a.KeShiMC as 科室名称, IsNull(b.ZiFuBL,1) as 比例,
  b.ShiYongXZ as 限制,IsNull(b.ZiFuBL,1) as ZiFuBL,
  a.YaoPinID,a.YaoMing, a.Guige, a.DanWei, a.DanJia, a.JinJia, a.PiJia, a.PinYinMa,
  a.WuBiMa, a.ZiDingMa, a.ZhiXingKSBM, a.HeSuanBM, a.KeShiBM, a.KeShiMC,b.XianZhiLB
  From vOut_Chg_Drug a left outer join vZ_Dict_AllItem b on a.YaoPinID=b.YaoPinID) a) as f
where f.yaoming like '血塞%'