prompt 31. 创建药库药品入库主信息查询视图 VW_YK_RKZBCX
create or replace view VW_YK_RKZBCX
(
  RKDH00,     --入库单号-->YK_YPRKD0
  YPRKPC,     --入库批次
  FPH000,     --发票号
  FPRQ00,     --发票日期
  FPFLH0,     --发票附联号
  YPNM00,     --药品内码-->BM_YD0000
  YPBM00,     --药品编码
  LBBH00,     --药品类别编号
  YLBH00,     --药理编号
  JXBH00,     --剂型编号
  YPMC00,     --药品名称
  YPTYM0,     --通用名
  YPGG00,     --规格
  RKDW00,     --入库单位
  RKSL00,     --入库数量(入库单位)
  FPGJDJ,     --发票购进单价(入库单位)
  KL0000,     --扣率   check (KL0000>0 and KL0000<=1)
  GJDJ00,     --购进单价=发票购进单价*扣率
  PFDJ00,     --批发单价
  LSDJ00,     --零售单价(入库单位)
  GJJE00,     --购进金额=购进单价*入库数量
  SCPH00,     --生产批号
  YPSXRQ,     --失效日期
  SCCJZW,     --厂家名称(中文)
  CFWZMC,     --存放位置名称
  BZ0000,     --备注
  SRRXM0,     --输入人姓名
  QRRXM0,     --确认人姓名
  SHRXM0,     --审核人姓名
  CGYXM0,     --采购员姓名
  GHDWMC,     --供货单位名称
  RKLXMC,     --入库类型名称
  RKLXBH,     --入库类型编号
  FKFSMC,     --入库付款方式名称
  GJZJE0,     --购进总金额
  LSZJE0,     --零售总金额  
  ZKJE00,     --折扣金额
  YKBMBH,     --药库部门编号
  RKZT00,     --入库状态('0'未确认'1'已确认(未付款)'2'预入库转正式入库(未付款)'3'已付款
  JHRQ00,     --进货日期(实际入库)
  JHSJ00,     --进货时间,格式00:00:00
  QRRQ00,     --确认日期
  QRSJ00,     --确认时间,格式00:00:00
  SHRQ00,     --审核日期
  PCKCSL,      --批次库存(库存单位)
  JHRQ01,       --进货日期
  SFSH00,      --是否审核     JETHUA
  SFZBYP,      --是否招标药品
  ZBXH00,      --中标序号
  SFGMP0,     --是否GMP
  GJJ000,     --采购价
  PYSM00,       --拼音首码    JETHUA 2002.12.27
  YPZCZ0,       --药品注册证
  PZWH00,       --批准文号 
  SCRQ00,       --生产日期 
  YLMC00,       --药理名称 
  YPXZ01,       --药品性质 
  CDMC00,       --产地名称
  CDID00,       --产地ID
  RKCXDH,       --冲销单号
  YPMLBZ,       --药品目录备注
  SHSJ00,       --审核时间
  DYCS00,       --打印次数
  SSDH00,       --手术单号
  RCBZ00,       --入出标志
  WZQTSX        --物资其他属性
)AS
--Person            Date         Comments
--csf            2008.01.30  lbbh00改自药典
--YANGH          2008.11.05  增加字段SCRQ00
--YANGH          2009.05.12  增加字段YLMC00
--chenyw         2010.06.29  增加字段CDMC00,CDID00 
--liuj           2010.12.22  增加YPXZ01字段
--liuj           2011.08.18  增加RKCXDH字段
--jinfl          2011.08.25  药品目录备注
--laijg          2012.03.13  修改购进金额(药品入库查询)，从 YGJDJ0取数据 by YK-20120308-002 
--zhangwz        2012.11.30  对金额的显示增加对JLRKSL数据的实现.
--zhangwz        2012.12.28  增加DYCS00数据
-- qks           2013.10.09  增加字段SSDH00,RCBZ00
--zhengzk        2016.11.16  增加WZQTSX物资其他属性字段for KCWZ9-20160914-001
--chenrenhai     2023.06.08  修改查询报"单行子查询返回多行" YK13H-20230608-001
------------   ---------------------------------------------------------
SELECT
  R.RKDH00,
  0,
  '0',
  '0',
  0,
  0,
  '0',
  (select lbbh00 from bm_yd0000 a,yk_yprkmx b where a.ypnm00=b.ypnm00 and b.rkdh00=R.rkdh00 and rownum=1),
   null,
   null,
  'a',
  'a',
  'a',
  'a',
  0,
  0,
  1,
  0,
  0,
  0,
  0,
  'a',
  '0',
  'a',
  '0',
  R.BZ0000,
  (select Y1.ZWXM00 from BM_YGBM00 Y1 where R.CZYBH0=Y1.YGBH00) ,
  (select Y2.ZWXM00 from BM_YGBM00 Y2 where R.QRRBH0=Y2.YGBH00) ,
  (select Y3.ZWXM00 from BM_YGBM00 Y3 where R.SHRBH0=Y3.YGBH00) ,
  (select Y.ZWXM00  from BM_YGBM00 Y  where R.CGYBH0=Y.YGBH00)  ,
  (select DECODE(R.GHDWNM,99999,'盘盈入库',G.GHDWMC) from VW_YK_KSGHDW G where   R.GHDWNM=G.GHDWNM and rownum=1),
  (select L.RKLXMC from BM_YKRKLX L where R.RKLXBH=L.RKLXBH),
  R.RKLXBH,
  (select F.FKFSMC from BM_FKFS00 F where R.FKFSBH=F.FKFSBH),
  (select sum(nvl(round(X.YGJDJ0*(X.RKSL00+nvl(round(X.JLRKSL*X.JLZHL0/X.ZHL000,3),0)),2),X.GJJE00)) from YK_YPRKMX X where R.RKDH00=X.RKDH00),
  (select sum(round(X.LSDJ00*(X.RKSL00+nvl(round(X.JLRKSL*X.JLZHL0/X.ZHL000,3),0)),2)) from YK_YPRKMX X where R.RKDH00=X.RKDH00),
  R.ZKJE00,
  R.YKBMBH,
  R.RKZT00,
  R.JHRQ00,
  R.JHSJ00,
  R.QRRQ00,
  R.QRSJ00,
  R.SHRQ00,
  0,
  R.JHRQ00,
  R.SFSH00,
  NULL,
  'a',
  'A',
  0,
  'a',
  'a',
  '0',
  ' ',
  ' ',
  ' ',
  'a',
  0,
  substr(SF_YK_GETRKCXDH(R.RKDH00),1,100) RKCXDH,
  ' ',
  R.SHSJ00,
  R.DYCS00,
  R.SSDH00,
  'R',
  R.WZQTSX
FROM YK_YPRKD0 R
/
--%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%