USE [Vertragsverwaltung_20160404]
GO
/****** Object:  StoredProcedure [dbo].[sp_rpt_Lizenzauswertung_neu_detail]    Script Date: 02.12.2016 09:08:53 ******/
DROP PROCEDURE [dbo].[sp_rpt_Lizenzauswertung_neu_detail]
GO
/****** Object:  StoredProcedure [dbo].[sp_rpt_Lizenzauswertung_neu_detail]    Script Date: 02.12.2016 09:08:55 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO

-- =============================================
-- Author:		<Author,,Name>
-- Create date: <Create Date,,>
-- Description:	<Description,,>
-- =============================================
CREATE PROCEDURE [dbo].[sp_rpt_Lizenzauswertung_neu_detail]
@sqlwhere varchar(255)
AS
BEGIN
   declare @rnd int
   declare @tmptabl1 varchar(255)
   declare @xsql varchar(4096) 
   declare @datum varchar(10)

   SELECT @rnd=CAST(RAND() * 100 AS INT)

   -- =============================================
   -- Temporäre Tabelle löschen
   -- =============================================
   set @tmptabl1 = str(@rnd)
   while left(@tmptabl1,1)=' ' begin
      set @tmptabl1=right(@tmptabl1,len(@tmptabl1)-1)
   end   
   set @tmptabl1 = 'tmp_mfp_' + @tmptabl1
   IF EXISTS (SELECT name FROM sysobjects WHERE name = @tmptabl1) begin
      set @xsql = 'drop table dbo.' + @tmptabl1
      execute (@xsql)
   end
   set @tmptabl1='dbo.'+@tmptabl1

   -- =============================================
   -- Query ausführen
   -- =============================================
   set @datum='1900-02-01'

   set @xsql='SELECT dbo.Applikation.Bezeichnung AS Applikation, dbo.Lizenz.Bezeichnung AS Lizenz'
   set @xsql=@xsql + ', dbo.Lizenzkauf.Anzahl, isnull(dbo.ApplikationVersion.Version,'+char(39)+char(39)+') as Version '
   set @xsql=@xsql + ', dbo.Lizenztyp.Bezeichnung as Lizenztyp'
   set @xsql=@xsql + ', CASE WHEN dbo.applikation.inaktivseit > '+ char(39) + @datum + char(39) +' THEN '+char(39) + 'Inaktiv' + char(39) +' ELSE '+char(39) + 'Aktiv' + char(39) + ' end as Applikation_Aktiv'
   set @xsql=@xsql + ', case when dbo.lizenzkauf.aktiv=1 then ' + char(39)+'Aktiv' + char(39) +' else ' + char(39)+'Inaktiv'+char(39)+' end as lizenz_aktiv '
   set @xsql=@xsql + ', dbo.Lizenzkauf.Kaufdatum, dbo.Lizenzkauf.KGNummer AS Auftragsnummer ' 
   set @xsql=@xsql + ', dbo.Lizenzkauf.SAPNummer, dbo.Lizenzkauf.Gueltigbis, dbo.Lizenzkauf.Bemerkung'

   set @xsql=@xsql + ' into ' + @tmptabl1
   set @xsql=@xsql + ' FROM dbo.Lizenz INNER JOIN '
   set @xsql=@xsql + ' dbo.LizenzVertragselementApplikation ON dbo.Lizenz.LizenzNr = dbo.LizenzVertragselementApplikation.Lizenznr INNER JOIN'
   set @xsql=@xsql + ' dbo.VertragselementApplikation ON '
   set @xsql=@xsql + ' dbo.LizenzVertragselementApplikation.VertragselementApplikationNr = dbo.VertragselementApplikation.VertragselementApplikationnr INNER JOIN'
   set @xsql=@xsql + ' dbo.Applikation ON dbo.VertragselementApplikation.Applikationnr = dbo.Applikation.ApplikationNr INNER JOIN'
   set @xsql=@xsql + ' dbo.Lizenzkauf ON dbo.Lizenz.LizenzNr = dbo.Lizenzkauf.Lizenznr AND '
   set @xsql=@xsql + ' dbo.LizenzVertragselementApplikation.LizenzVEApplNr = dbo.Lizenzkauf.Vertragselementapplikationnr INNER JOIN'
   set @xsql=@xsql + ' dbo.Lizenztyp ON dbo.Lizenzkauf.Lizenztypnr = dbo.Lizenztyp.Lizenztypnr LEFT OUTER JOIN'
   set @xsql=@xsql + ' dbo.ApplikationVersion ON dbo.VertragselementApplikation.ApplikationVersionNr = dbo.ApplikationVersion.ApplikationVersionNr'
   set @xsql=@xsql + ' where dbo.lizenz.aktiv=1'
   print @xsql
   execute (@xsql)
   
  
   

  
   -- =============================================
   -- Filterung und selektion
   -- =============================================
   set @xsql='select *  '
   -- distinct applikation, lizenz, isnull(sum(anzahl),0) as anzahl,lizenztyp, Applikation_aktiv, Lizenz_Aktiv'
   --set @xsql=@xsql + ' into vertragsverwaltung.dbo.__Lizenzauswertung_detail '
   set @xsql=@xsql+' from ' + @tmptabl1
   if @sqlwhere<>'' begin
      set @xsql=@xsql+' where ' + @sqlwhere
   end
   --set @xsql=@xsql+' GROUP BY Applikation, Lizenz,Lizenztyp, Applikation_Aktiv, Lizenz_Aktiv'
   execute (@xsql)
   
   -- =============================================
   -- Temporäre Tabelle löschen
   -- =============================================
   set @tmptabl1 = str(@rnd)
   while left(@tmptabl1,1)=' ' begin
      set @tmptabl1=right(@tmptabl1,len(@tmptabl1)-1)
   end   
   set @tmptabl1 = 'tmp_mfp_' + @tmptabl1
   IF EXISTS (SELECT name FROM sysobjects WHERE name = @tmptabl1) begin
      set @xsql = 'drop table dbo.' + @tmptabl1
      execute (@xsql)
   end
END



GO