药品滞用查询SQL

Select '【'||D.编码||'】'||E.名称 As 药品,D.规格,D.产地,D.计算单位 As 单位,
       Decode(C.日期,Null,'从未使用',C.日期) As 最后停用日期,C.库存数量,C.零售金额,g.效期,h.名称 as 供应商,g.零售价,g.平均成本价
From  (
      Select A.药品id,A.库存数量,A.零售金额,To_Char(B.日期,'yyyy-mm-dd') As 日期
      From (Select 药品id,Sum(实际数量) As 库存数量,Sum(实际金额) As 零售金额
        From 药品库存
        Where 库房id /*B1*/is not null/*E1*/ And 性质=1 
                    Group By 药品id
                  MINUS       
                  Select A.药品id,Sum(A.实际数量) As 库存数量,Sum(A.实际金额) As 零售金额
        From 药品库存 A,(
                           Select 药品id
                             From 药品收发汇总 
                             Where 日期>=/*B0*/TO_DATE('2025-09-18','YYYY-MM-DD')/*E0*/  And 库房id /*B1*/is not null/*E1*/
                             GROUP BY 药品id) B
         Where A.库房id /*B1*/is not null/*E1*/ AND A.药品ID=B.药品ID And A.性质=1                 
         Group By A.药品id
                 ) A,
    (Select 药品id,max(日期) as 日期
       From 药品收发汇总 
       Where 日期</*B0*/TO_DATE('2025-09-18','YYYY-MM-DD')/*E0*/ And 库房id /*B1*/is not null/*E1*/ And 单据 in (7,8,9,10)
                   Group By 药品id
                 ) B
      Where A.药品id=B.药品id(+)
     ) C,
     收费项目目录 D,
     诊疗项目目录 E,
     药品规格 F,
     药品库存 g,
	 供应商 h

Where D.id=C.药品id 
      And F.药名id=E.id 
      AND D.ID=F.药品id
      And f.药品id = g.药品id(+)
	  and g.上次供应商id = h.id(+)
    and D.撤档时间 = to_date('3000-1-1','YYYY-MM-DD')

卫材滞用查询SQL

Select '【'||D.编码||'】'||D.名称 As 药品,D.规格,D.产地,D.计算单位 As 单位,
       Decode(C.日期,Null,'从未使用',C.日期) As 最后停用日期,C.库存数量,C.零售金额,g.效期,h.名称 as 供应商,g.零售价,g.平均成本价
From	(
      Select A.药品id,A.库存数量,A.零售金额,To_Char(B.日期,'yyyy-mm-dd') As 日期
	    From (Select 药品id,Sum(实际数量) As 库存数量,Sum(实际金额) As 零售金额
		  	From 药品库存
		  	Where 库房id /*B1*/is not null/*E1*/ And 性质=1 
                  	Group By 药品id
                  MINUS       
                  Select A.药品id,Sum(A.实际数量) As 库存数量,Sum(A.实际金额) As 零售金额
		  	From 药品库存 A,(
                           Select 药品id 
                           	From 药品收发汇总 
                           	Where 日期>=/*B0*/TO_DATE('2025-09-18','YYYY-MM-DD')/*E0*/ And 单据 in (20,24,25,26) And 库房id /*B1*/is not null/*E1*/
                           	GROUP BY 药品id) B
         Where A.库房id /*B1*/is not null/*E1*/ AND A.药品ID=B.药品ID And A.性质=1                 
         Group By A.药品id
                 ) A,
    (Select 药品id,max(日期) as 日期
       From 药品收发汇总 
       Where 日期</*B0*/TO_DATE('2025-09-18','YYYY-MM-DD')/*E0*/ And 库房id /*B1*/is not null/*E1*/ And 单据 in (20,24,25,26)
                   Group By 药品id
                 ) B
      Where A.药品id=B.药品id(+)
     ) C,
     收费项目目录 D,
     材料特性 F,
	 药品库存 g,
	 供应商 h

Where D.id=C.药品id 
      AND D.ID=F.材料id
	  And f.材料id = g.药品id(+)
	  and g.上次供应商id = h.id(+)
      /*B2*/AND C.库存数量<>0/*E2*/