spostamento update SQL

SQL Utils/V2.0/MoonPro_00318.sql

@@ -0,0 +1,420 @@
+set xact_abort on;
+go
+
+begin transaction;
+go
+
+set ANSI_NULLS on;
+go
+
+/*************************************
+* STORED PROCEDURE stp_repDonati_getDatiProdMacchina
+* 	restituisce i dati di produzione di una macchina per l'ULTIMO ODL
+*
+* modif.:	S.E.L. - 2012.03.08
+**************************************/
+alter PROCEDURE stp_repDonati_getDatiProdMacchina
+(
+	@idxMacchina NVARCHAR(50)
+)
+AS
+
+
+-- calcolo codice articolo
+DECLARE @CodArticolo NVARCHAR (50)
+SET @CodArticolo = ( 
+					SELECT CodArticolo FROM Kanban k
+					INNER JOIN StatoMacchine sm ON k.MatricolaKanban=sm.MatricolaKanban
+					WHERE sm.IdxMacchina = @idxMacchina
+					)
+-- calcolo il codice operatore
+DECLARE @CodOperatore INT
+SET @CodOperatore = ( 
+					SELECT MatrOpr FROM StatoMacchine 
+					WHERE IdxMacchina = @idxMacchina
+					)
+-- calcolo il codice ODL
+DECLARE @idxODL INT
+SET @idxODL =	( 
+					SELECT idxODL FROM ODL
+					WHERE CodArticolo = @CodArticolo AND IdxMacchina = @idxMacchina AND (ISNULL(DataFine,DATEADD(hh,1,GETDATE())) > GETDATE())
+				)
+
+					
+DECLARE @PezziConf INT
+SET @PezziConf =	( 
+					SELECT ISNULL(SUM(TotPzProd),0) FROM DatiProduzione 
+					WHERE idxODL = @idxOdl
+					)
+										
+DECLARE @PezziLanciati INT
+SET @PezziLanciati =( 
+					SELECT ISNULL(SUM(NumPezzi),0) FROM ODL 
+					WHERE idxODL = @idxOdl
+					)
+
+DECLARE @TCAss DECIMAL(18,8)
+SET @TCAss =		( 
+					SELECT ISNULL(SUM(TCAssegnato),0) FROM ODL 
+					WHERE idxODL = @idxOdl
+					)
+
+-- dato l'ODL calcolo il TC Medio ed i pezzi prodotti per l'ODL
+DECLARE @inizioOdl DATETIME
+SET @inizioOdl =	( 
+					SELECT DataInizio FROM ODL 
+					WHERE idxODL = @idxOdl
+					)
+
+DECLARE @PezziProd INT
+SET @PezziProd =	( 
+					SELECT COUNT(*) FROM TempiCicloRilevati
+					WHERE	DataOraRif >= @inizioOdl
+					AND		idxMacchina = @idxMacchina
+					)
+					
+
+/****************************************************
+* Calcolo tempi apertura confermati
+****************************************************/
+-- calcolo i tempi di apertura: TempoON (Verde + giallo + rosso)
+DECLARE @TempoOn DECIMAL(18,8)
+SET @TempoOn =		( 
+					SELECT ISNULL(SUM(Tempo),0) FROM DatiProduzione 
+					WHERE ClasseTempo NOT IN ('T_OFF', 'T_OFF_ND') AND idxODL = @idxOdl
+					)
+					
+-- calcolo i tempi di apertura: TempoAuto (Verde + giallo) - precedente meno "T_FermoRosso"
+DECLARE @TempoAuto DECIMAL(18,8)
+SET @TempoAuto =	( 
+					SELECT @TempoOn - ISNULL(SUM(Tempo),0) FROM DatiProduzione 
+					WHERE ClasseTempo = 'T_FermoRosso' AND idxODL = @idxOdl
+					)
+					
+-- calcolo i tempi di apertura: TempoRun (Verde)
+DECLARE @TempoRun DECIMAL(18,8)
+SET @TempoRun =		( 
+					SELECT ISNULL(SUM(Tempo),0) FROM DatiProduzione 
+					WHERE ClasseTempo = 'T_AutoRun' AND idxODL = @idxOdl
+					)
+
+/****************************************************
+* Calcolo tempi apertura realtime
+****************************************************/
+-- calcolo i tempi di apertura: TempoON (Verde + giallo + rosso)
+DECLARE @TempoOnRT DECIMAL(18,8)
+SET @TempoOnRT =	( 
+					SELECT	ISNULL(SUM(DurataMinuti),0) 
+					FROM	DiarioDiBordo ddb INNER JOIN AnagraficaStati AnSt ON ddb.IdxStato= AnSt.IdxStato
+					WHERE	AnSt.ClasseTempo NOT IN ('T_OFF', 'T_OFF_ND') AND InizioStato >= @inizioOdl 
+					AND		IdxMacchina = @idxMacchina
+					)
+					
+-- calcolo i tempi di apertura: TempoAuto (Verde + giallo) - precedente meno "T_FermoRosso"
+DECLARE @TempoAutoRT DECIMAL(18,8)
+SET @TempoAutoRT =	( 
+					SELECT @TempoOnRT - ISNULL(SUM(DurataMinuti),0) 
+					FROM	DiarioDiBordo ddb INNER JOIN AnagraficaStati AnSt ON ddb.IdxStato= AnSt.IdxStato
+					WHERE	AnSt.ClasseTempo = 'T_FermoRosso' AND InizioStato >= @inizioOdl 
+					AND		IdxMacchina = @idxMacchina
+					)
+					
+-- calcolo i tempi di apertura: TempoRun (Verde)
+DECLARE @TempoRunRT DECIMAL(18,8)
+SET @TempoRunRT =	(
+					SELECT ISNULL(SUM(DurataMinuti),0) 
+					FROM	DiarioDiBordo ddb INNER JOIN AnagraficaStati AnSt ON ddb.IdxStato= AnSt.IdxStato
+					WHERE	AnSt.ClasseTempo = 'T_AutoRun' AND InizioStato >= @inizioOdl 
+					AND		IdxMacchina = @idxMacchina
+					)
+
+DECLARE @numPezzi INT
+
+/****************************************************
+* Calcolo i TEMPI CICLO confermati
+****************************************************/
+
+-- DIVISIONE PER ZERO: controllo pezzi conf > 0
+SET @numPezzi = @PezziConf
+IF(@numPezzi = 0) SET @numPezzi = 1
+
+DECLARE @TCMed DECIMAL(18,8)
+SET @TCMed =		( 
+					SELECT @TempoOn * 60 / @numPezzi -- tempo in ore
+					)	
+DECLARE @TCLav DECIMAL(18,8)
+SET @TCLav =		( 
+					SELECT @TempoAuto * 60 / @numPezzi -- tempo in ore
+					)	
+
+
+
+				
+DECLARE @TCEff DECIMAL(18,8) -- è la media degli ultimi 10 migliori tempi minimi nell'ultima giornata
+SET @TCEff =		( 
+						SELECT @TempoRun * 60 / @numPezzi -- tempo in ore
+					)					
+
+/****************************************************
+* Calcolo i TEMPI CICLO realtime (anche non confermati)
+****************************************************/
+
+-- DIVISIONE PER ZERO: controllo pezzi prod > 0...
+SET @numPezzi = @PezziProd
+IF(@numPezzi = 0) SET @numPezzi = 1
+
+DECLARE @TCMedRT DECIMAL(18,8)
+SET @TCMedRT =		( 
+					SELECT @TempoOnRT / @numPezzi
+					)	
+DECLARE @TCLavRT DECIMAL(18,8)
+SET @TCLavRT =		( 
+					SELECT @TempoAutoRT / @numPezzi
+					)					
+DECLARE @TCEffRT DECIMAL(18,8)
+SET @TCEffRT =		ISNULL(( SELECT dbo.f_lastTempoTecnico(@idxMacchina, 2) ), -1) -- provo a calcolare ultimi tempi tecnici
+IF (@TCEffRT =-1) 
+BEGIN
+	SET @TCEffRT =		( 
+					SELECT @TempoRunRT / @numPezzi
+						)					
+END
+							
+					
+SELECT @CodArticolo as CodArticolo, @PezziLanciati as PezziLanciati, @PezziProd as PezziProd, @PezziConf as PezziConf, @TCAss AS TCAssegnato, @CodOperatore AS CodOperatore, @TempoOn AS TempoOn, @TempoAuto AS TempoAuto, @TempoRun AS TempoRun, @TCMed AS TCMedio, @TCLav AS TCLav, @TCEff AS TCEff, @TCMedRT AS TCMedioRT, @TCLavRT AS TCLavRT, @TCEffRT AS TCEffRT
+
+
+RETURN
+go
+
+/*************************************
+* STORED PROCEDURE stp_repDonati_getDatiProdMacchina
+* 	restituisce i dati di produzione di una macchina per PERIODO
+*
+* modif.:	S.E.L. - 2012.03.21
+**************************************/
+create PROCEDURE stp_repDonati_getDatiProdMacchinaPeriodo
+(
+	@idxMacchina	NVARCHAR(50),
+	@dataFrom		DATETIME,
+	@dataTo			DATETIME
+)
+AS
+
+-- calcolo pezzi CONTATI, non quelli poi confermati...					
+DECLARE @PezziProd INT
+SET @PezziProd =	ISNULL(( 
+					SELECT COUNT(*)FROM TempiCicloRilevati 
+					WHERE	idxMacchina = @idxMacchina
+					AND		DataOraRif BETWEEN @dataFrom AND @dataTo
+					), 0)
+										
+-- calcolo TEMPO MEDIO ponderato in base al num di pezzi per tipo...
+DECLARE @TCAss DECIMAL(18,8)
+
+;WITH cte_tabMinProd as
+(
+	SELECT	ISNULL(COUNT(tcr.DataOraRif), 0) * ISNULL(o.TCAssegnato, 0) AS MinProd
+	FROM	TempiCicloRilevati tcr INNER JOIN ODL o
+	ON		o.IdxMacchina=tcr.IdxMacchina AND o.CodArticolo = tcr.CodArticolo
+	WHERE	tcr.DataOraRif BETWEEN o.DataInizio and o.DataFine
+	AND		tcr.DataOraRif BETWEEN @dataFrom AND @dataTo
+	AND		((o.DataInizio <= @dataTo) AND (o.DataFine >= @dataFrom))
+	GROUP BY o.TCAssegnato--, tcr.IdxMacchina, tcr.CodArticolo, 
+)
+SELECT @TCAss =	ISNULL(SUM(MinProd) / @PezziProd, 0)
+FROM cte_tabMinProd
+
+
+/****************************************************
+* Calcolo tempi apertura realtime
+****************************************************/
+-- calcolo i tempi di apertura: TempoON (Verde + giallo + rosso)
+DECLARE @TempoOnRT DECIMAL(18,8)
+SET @TempoOnRT =	( 
+					SELECT ISNULL(SUM(DurataMinuti),0) 
+					FROM DiarioDiBordo ddb INNER JOIN AnagraficaStati AnSt ON ddb.IdxStato= AnSt.IdxStato
+					WHERE AnSt.ClasseTempo NOT IN ('T_OFF', 'T_OFF_ND') AND InizioStato BETWEEN @dataFrom AND @dataTo 
+					AND		IdxMacchina = @idxMacchina
+					)
+					
+-- calcolo i tempi di apertura: TempoAuto (Verde + giallo) - precedente meno "T_FermoRosso"
+DECLARE @TempoAutoRT DECIMAL(18,8)
+SET @TempoAutoRT =	( 
+					SELECT @TempoOnRT - ISNULL(SUM(DurataMinuti),0) 
+					FROM DiarioDiBordo ddb INNER JOIN AnagraficaStati AnSt ON ddb.IdxStato= AnSt.IdxStato
+					WHERE AnSt.ClasseTempo = 'T_FermoRosso' AND InizioStato BETWEEN @dataFrom AND @dataTo 
+					AND		IdxMacchina = @idxMacchina
+					)
+					
+-- calcolo i tempi di apertura: TempoRun (Verde)
+DECLARE @TempoRunRT DECIMAL(18,8)
+SET @TempoRunRT =	(
+					SELECT ISNULL(SUM(DurataMinuti),0) 
+					FROM DiarioDiBordo ddb INNER JOIN AnagraficaStati AnSt ON ddb.IdxStato= AnSt.IdxStato
+					WHERE AnSt.ClasseTempo = 'T_AutoRun' AND InizioStato BETWEEN @dataFrom AND @dataTo
+					AND		IdxMacchina = @idxMacchina
+					)
+
+
+
+/****************************************************
+* Calcolo i TEMPI CICLO realtime (anche non confermati)
+****************************************************/
+
+-- DIVISIONE PER ZERO: controllo pezzi prod > 0...
+DECLARE @numPezzi INT
+SET @numPezzi = @PezziProd
+IF(@numPezzi = 0) SET @numPezzi = 1
+
+DECLARE @TCMedRT DECIMAL(18,8)
+SET @TCMedRT =		( 
+					SELECT @TempoOnRT / @numPezzi
+					)	
+DECLARE @TCLavRT DECIMAL(18,8)
+SET @TCLavRT =		( 
+					SELECT @TempoAutoRT / @numPezzi
+					)					
+DECLARE @TCEffRT DECIMAL(18,8)
+SET @TCEffRT =		ISNULL(( SELECT dbo.f_lastTempoTecnico(@idxMacchina, 2) ), -1) -- provo a calcolare ultimi tempi tecnici
+IF (@TCEffRT =-1) 
+BEGIN
+	SET @TCEffRT =		( 
+					SELECT @TempoRunRT / @numPezzi
+						)					
+END
+							
+					
+SELECT @PezziProd as PezziProd, @TCAss AS TCAssegnato, @TCMedRT AS TCMedioRT, @TCLavRT AS TCLavRT, @TCEffRT AS TCEffRT
+
+
+RETURN
+go
+
+commit;
+go
+
+
+set xact_abort on;
+go
+
+begin transaction;
+go
+
+set ANSI_NULLS on;
+go
+
+/*************************************
+* STORED PROCEDURE stp_repDonati_getDatiProdMacchina
+* 	restituisce i dati di produzione di una macchina per PERIODO
+*
+* modif.:	S.E.L. - 2012.03.21
+**************************************/
+alter PROCEDURE stp_repDonati_getDatiProdMacchinaPeriodo
+(
+	@idxMacchina	NVARCHAR(50),
+	@dataFrom		DATETIME,
+	@dataTo			DATETIME
+)
+AS
+
+-- calcolo pezzi CONTATI, non quelli poi confermati...					
+DECLARE @PezziProd INT
+SET @PezziProd =	ISNULL(( 
+					SELECT COUNT(*)FROM TempiCicloRilevati 
+					WHERE	idxMacchina = @idxMacchina
+					AND		DataOraRif BETWEEN @dataFrom AND @dataTo
+					), 0)
+										
+-- calcolo TEMPO MEDIO ponderato in base al num di pezzi per tipo...
+DECLARE @TCAss DECIMAL(18,8)
+
+;WITH cte_tabMinProd as
+(
+	SELECT	ISNULL(COUNT(tcr.DataOraRif), 0) * ISNULL(o.TCAssegnato, 0) AS MinProd
+	FROM	TempiCicloRilevati tcr INNER JOIN ODL o
+	ON		o.IdxMacchina=tcr.IdxMacchina AND o.CodArticolo = tcr.CodArticolo
+	WHERE	tcr.DataOraRif BETWEEN o.DataInizio AND ISNULL(o.DataFine, GETDATE())
+	AND		tcr.DataOraRif BETWEEN @dataFrom AND @dataTo
+	AND		((o.DataInizio <= @dataTo) AND (ISNULL(o.DataFine, GETDATE()) >= @dataFrom))
+	GROUP BY o.TCAssegnato
+)
+SELECT @TCAss =	ISNULL(SUM(MinProd) / @PezziProd, 0)
+FROM cte_tabMinProd
+
+
+/****************************************************
+* Calcolo tempi apertura realtime
+****************************************************/
+-- calcolo i tempi di apertura: TempoON (Verde + giallo + rosso)
+DECLARE @TempoOnRT DECIMAL(18,8)
+SET @TempoOnRT =	( 
+					SELECT ISNULL(SUM(DurataMinuti),0) 
+					FROM DiarioDiBordo ddb INNER JOIN AnagraficaStati AnSt ON ddb.IdxStato= AnSt.IdxStato
+					WHERE AnSt.ClasseTempo NOT IN ('T_OFF', 'T_OFF_ND') AND InizioStato BETWEEN @dataFrom AND @dataTo 
+					AND		IdxMacchina = @idxMacchina
+					)
+					
+-- calcolo i tempi di apertura: TempoAuto (Verde + giallo) - precedente meno "T_FermoRosso"
+DECLARE @TempoAutoRT DECIMAL(18,8)
+SET @TempoAutoRT =	( 
+					SELECT @TempoOnRT - ISNULL(SUM(DurataMinuti),0) 
+					FROM DiarioDiBordo ddb INNER JOIN AnagraficaStati AnSt ON ddb.IdxStato= AnSt.IdxStato
+					WHERE AnSt.ClasseTempo = 'T_FermoRosso' AND InizioStato BETWEEN @dataFrom AND @dataTo 
+					AND		IdxMacchina = @idxMacchina
+					)
+					
+-- calcolo i tempi di apertura: TempoRun (Verde)
+DECLARE @TempoRunRT DECIMAL(18,8)
+SET @TempoRunRT =	(
+					SELECT ISNULL(SUM(DurataMinuti),0) 
+					FROM DiarioDiBordo ddb INNER JOIN AnagraficaStati AnSt ON ddb.IdxStato= AnSt.IdxStato
+					WHERE AnSt.ClasseTempo = 'T_AutoRun' AND InizioStato BETWEEN @dataFrom AND @dataTo
+					AND		IdxMacchina = @idxMacchina
+					)
+
+
+
+/****************************************************
+* Calcolo i TEMPI CICLO realtime (anche non confermati)
+****************************************************/
+
+-- DIVISIONE PER ZERO: controllo pezzi prod > 0...
+DECLARE @numPezzi INT
+SET @numPezzi = @PezziProd
+IF(@numPezzi = 0) SET @numPezzi = 1
+
+DECLARE @TCMedRT DECIMAL(18,8)
+SET @TCMedRT =		( 
+					SELECT @TempoOnRT / @numPezzi
+					)	
+DECLARE @TCLavRT DECIMAL(18,8)
+SET @TCLavRT =		( 
+					SELECT @TempoAutoRT / @numPezzi
+					)					
+DECLARE @TCEffRT DECIMAL(18,8)
+SET @TCEffRT =		ISNULL(( SELECT dbo.f_lastTempoTecnico(@idxMacchina, 2) ), -1) -- provo a calcolare ultimi tempi tecnici
+IF (@TCEffRT =-1) 
+BEGIN
+	SET @TCEffRT =		( 
+					SELECT @TempoRunRT / @numPezzi
+						)					
+END
+							
+					
+SELECT @PezziProd as PezziProd, @TCAss AS TCAssegnato, @TCMedRT AS TCMedioRT, @TCLavRT AS TCLavRT, @TCEffRT AS TCEffRT
+
+
+RETURN
+go
+
+commit;
+go
+
+
+
+
+
+-- registro versione...
+INSERT INTO [dbo].[LogUpdateDb] ([Versione],[Data]) VALUES(318, GETDATE())
+GO