Egalware/MoonPro.net
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
develop
MoonPro.net/SQL Utils/V3.4/MoonPro_00401.sql
T
Samuele E. Locatelli 2b1479f315 spostamento update SQL
2018-05-03 15:06:47 +02:00

1491 lines
50 KiB
Transact-SQL
Raw Permalink Blame History

-- schema
create schema man authorization dbo
go
-- stored x trigger...
set xact_abort on
go
begin transaction
go
set ANSI_NULLS on
go
/*************************************
* STORED PROCEDURE stp_EL_processaEvento
* Processa un singolo evento
*
* Note : richiamata anche nel trigger della tabella EventList
*
* modif.:
**************************************/
create PROCEDURE stp_EL_processaEvento
(
@IdxTipo INT,
@IdxMacchina NVARCHAR(50),
@MatricolaKanban NVARCHAR(50),
@DataOra DATETIME,
@NumPz INT,
@FlgAggStato CHAR(1) = 'Y' -- Y/N = elabora o meno aggiornamento StatiMacchine e DatiMacchine
)
AS
---- parametri x test
--DECLARE @IdxTipo INT = 0
--DECLARE @IdxMacchina NVARCHAR(50)
--DECLARE @DataOra DATETIME
--DECLARE @MatricolaKanban NVARCHAR(50)
--DECLARE @TCMedio DECIMAL(18,8)
--DECLARE @NumPz INT
--SET @IdxTipo = ( SELECT i.IdxTipo FROM inserted i )
--SET @IdxMacchina = ( SELECT i.IdxMacchina FROM inserted i )
--SET @DataOra = ( SELECT i.InizioStato FROM inserted i )
--SET @MatricolaKanban = ( SELECT i.MatricolaKanban FROM inserted i )
--SET @NumPz = ( SELECT CASE WHEN (ISNUMERIC(value)=1) THEN value ELSE 1 END FROM inserted i )
-- INIZIO DICHIARAZIONI
DECLARE @TabAzione NVARCHAR(50) = '';
DECLARE @Azione NVARCHAR(50) = '';
DECLARE @CodArticolo NVARCHAR(50) = ''
DECLARE @MatricolaKanbanOk NVARCHAR(50);
DECLARE @DataOraPrec DATETIME;
DECLARE @TCMedio DECIMAL(18,8) = 0;
/* recupero altri valori ( se non trova record lascia il valore invariato cioè = '' )*/
SELECT @TabAzione = ISNULL(TabAzione,'')
, @Azione = ISNULL(Azione,'')
FROM AnagraficaEventi WHERE IdxTipo = @IdxTipo
--SELECT @TabAzione , @Azione
IF (@TabAzione <> '' AND @Azione <> '')
BEGIN
/* azioni richieste: seconda dei casi eseguo... */
/******************************************
*
* Calcolo tempo ciclo per INIZIO
*
******************************************/
IF(@TabAzione = 'TempiCicloRilevati' AND @Azione = 'Insert')
BEGIN
-- recupero codice articolo
SET @CodArticolo = ( SELECT CodArticolo FROM Kanban WHERE MatricolaKanban = @MatricolaKanban )
/* calcolo tempo tra gli ultimi 2 eventi "contapezzi" */
SET @DataOraPrec = ISNULL((SELECT Top 1 InizioStato FROM EventList WHERE IdxMacchina = @IdxMacchina AND IdxTipo = @IdxTipo AND InizioStato < @DataOra ORDER BY InizioStato DESC), @DataOra )
-- se è oltre 10 gg calcolo in secondi... 2013.8.30
IF (DATEDIFF(DD, @DataOraPrec, @DataOra) > 10)
SET @TCMedio = ( SELECT (DATEDIFF(s, @DataOraPrec, @DataOra) / 60.00 ) ) --calcolo in secondi
ELSE
SET @TCMedio = ( SELECT (DATEDIFF(ms, @DataOraPrec, @DataOra) / 60000.00 ) )
/* inserisco riga di tempo ciclo */
INSERT INTO TempiCicloRilevati
VALUES(@IdxMacchina, @CodArticolo, @DataOra, @TCMedio, @NumPz)
END
/******************************************
*
* Calcolo tempo ciclo con logica stop/start
*
******************************************/
ELSE IF(@TabAzione = 'TempiCicloRilevati' AND @Azione = 'Stop2StartCiclo')
BEGIN
/* prendo la matricola dall'evento inizio (precedente) */
SET @MatricolaKanbanOk = ISNULL((SELECT Top 1 MatricolaKanban FROM EventList WHERE IdxMacchina = @IdxMacchina AND IdxTipo = @IdxTipo - 1 AND InizioStato < @DataOra ORDER BY InizioStato DESC), @MatricolaKanban )
-- calcolare num pezzi da codice...
SET @CodArticolo = ( SELECT CodArticolo FROM Kanban WHERE MatricolaKanban = @MatricolaKanbanOk )
/* calcolo tempo tra eventi "contapezzi" inizio - fine NB: idxEvento per fine è idxEvento inizio + 1 ... HARD CODED!!! */
SET @DataOraPrec = ISNULL((SELECT Top 1 InizioStato FROM EventList WHERE IdxMacchina = @IdxMacchina AND IdxTipo = @IdxTipo - 1 AND InizioStato < @DataOra ORDER BY InizioStato DESC), @DataOra )
-- se è oltre 10 gg calcolo in secondi... 2013.8.30
IF (DATEDIFF(DD, @DataOraPrec, @DataOra) > 10)
SET @TCMedio = ( DATEDIFF(s, @DataOraPrec, @DataOra) / 60.00 ) --calcolo in secondi
ELSE
SET @TCMedio = ( DATEDIFF(ms, @DataOraPrec, @DataOra) / 60000.00 )
/* inserisco riga di tempo ciclo */
INSERT INTO TempiCicloRilevati
VALUES(@IdxMacchina, @CodArticolo, @DataOra, @TCMedio, @NumPz)
END
/******************************************
*
* calcolo tempo ciclo con logica stop/stop
*
******************************************/
ELSE IF(@TabAzione = 'TempiCicloRilevati' AND @Azione = 'Stop2StopCiclo')
BEGIN
/* prendo la matricola dall'evento inizio (precedente) */
SET @MatricolaKanbanOk = ISNULL((SELECT Top 1 MatricolaKanban FROM EventList WHERE IdxMacchina = @IdxMacchina AND IdxTipo = @IdxTipo AND InizioStato < @DataOra ORDER BY InizioStato DESC), @MatricolaKanban )
-- calcolare num pezzi da codice...
SET @NumPz = ( SELECT PzPallet FROM Kanban WHERE MatricolaKanban = @MatricolaKanbanOk )
SET @CodArticolo = ( SELECT CodArticolo FROM Kanban WHERE MatricolaKanban = @MatricolaKanbanOk )
/* calcolo tempo tra eventi "contapezzi" fine - fine NB: idxEvento per fine è idxEvento inizio + 1 ... HARD CODED!!! */
SET @DataOraPrec = ISNULL( (SELECT Top 1 InizioStato FROM EventList WHERE IdxMacchina = @IdxMacchina AND IdxTipo = @IdxTipo AND InizioStato < @DataOra ORDER BY InizioStato DESC), @DataOra )
-- se è oltre 10 gg calcolo in secondi... 2013.8.30
IF (DATEDIFF(DD, @DataOraPrec, @DataOra) > 10)
SET @TCMedio = ( DATEDIFF(s, @DataOraPrec, @DataOra) / 60.00 ) --calcolo in secondi
ELSE
SET @TCMedio = ( DATEDIFF(ms, @DataOraPrec, @DataOra) / 60000.00 )
/* inserisco riga di tempo ciclo */
INSERT INTO TempiCicloRilevati
VALUES(@IdxMacchina, @CodArticolo, @DataOra, @TCMedio, @NumPz)
END
/******************************************
*
* Aggiorno kanban in dati macchine per
* INIZIO ATTREZZAGGIO
*
******************************************/
ELSE IF(@TabAzione = 'DatiMacchine' AND @Azione = 'Inizio' AND @FlgAggStato = 'Y')
BEGIN
/* aggiorno riga di dati macchina */
UPDATE DatiMacchine
SET kanban_A = @MatricolaKanban,
kanban_B = @MatricolaKanban
WHERE idxMacchina = @IdxMacchina
/* aggiorno stato macchina */
UPDATE StatoMacchine
SET MatricolaKanban = @MatricolaKanban
WHERE idxMacchina = @IdxMacchina
/* aggiorno dati kanban statoMacchine... */
UPDATE StatoMacchine
SET KanbanCode = k.KanbanCode, TempoCicloBase = k.TempoCicloBase, PzPalletProd = k.PzPallet
FROM Kanban AS k
INNER JOIN StatoMacchine ON k.MatricolaKanban = StatoMacchine.MatricolaKanban
WHERE (StatoMacchine.idxMacchina = @IdxMacchina)
END
/******************************************
*
* Aggiorno kanban in dati macchine per
* FINE PRODUZIONE
*
******************************************/
ELSE IF(@TabAzione = 'DatiMacchine' AND @Azione = 'Fine' AND @FlgAggStato = 'Y')
BEGIN
/* calcolo valori */
SET @MatricolaKanban = 'KAND' -- kanban non definito !!!HARD CODED!!!
/* aggiorno riga di dati macchina */
UPDATE DatiMacchine
SET kanban_A = @MatricolaKanban,
kanban_B = @MatricolaKanban
WHERE idxMacchina = @IdxMacchina
/* aggiorno stato macchina */
UPDATE StatoMacchine
SET MatricolaKanban = @MatricolaKanban
WHERE idxMacchina = @IdxMacchina
/* aggiorno dati kanban statoMacchine... */
UPDATE StatoMacchine
SET KanbanCode = k.KanbanCode, TempoCicloBase = k.TempoCicloBase, PzPalletProd = k.PzPallet
FROM Kanban AS k INNER JOIN StatoMacchine ON k.MatricolaKanban = StatoMacchine.MatricolaKanban
WHERE (StatoMacchine.idxMacchina = @IdxMacchina)
END
END
RETURN
go
commit
go
-- indici DDB
create index idx_TempoCicloBase on DiarioDiBordo(TempoCicloBase)
include(IdxMacchina,InizioStato,MatricolaKanban,KanbanCode)
go
-- trigger EL
set xact_abort on
go
begin transaction
go
set ANSI_NULLS on
go
/***************************************************
* Trigger trg_doActions
*
* processa eventuali azioni legate ad un inserimento evento
*
* modificato: S.E.L.
* 2011.05.18
*
***************************************************/
alter TRIGGER trg_doActions
ON EventList
FOR INSERT
AS
/* dichiarazione variabili */
DECLARE @IdxTipo INT
DECLARE @TabAzione NVARCHAR(50)
DECLARE @Azione NVARCHAR(50)
DECLARE @IdxMacchina NVARCHAR(50)
DECLARE @MatricolaKanban NVARCHAR(50)
DECLARE @MatricolaKanbanOk NVARCHAR(50)
DECLARE @CodArticolo NVARCHAR(50)
DECLARE @TCMedio DECIMAL(18,8)
DECLARE @DataOra DATETIME
DECLARE @DataOraPrec DATETIME
DECLARE @NumPz INT
/* recupero valori dell'INSERT */
SET @IdxTipo = ( SELECT i.IdxTipo FROM inserted i )
SET @IdxMacchina = ( SELECT i.IdxMacchina FROM inserted i )
SET @MatricolaKanban = ( SELECT i.MatricolaKanban FROM inserted i )
SET @DataOra = ( SELECT i.InizioStato FROM inserted i )
SET @NumPz = ( SELECT CASE WHEN (ISNUMERIC(value)=1) THEN value ELSE 1 END FROM inserted i )
EXECUTE dbo.stp_EL_processaEvento @IdxTipo, @IdxMacchina, @MatricolaKanban, @DataOra, @NumPz, 'Y'
/* SOSTITUITA CON STORED
/* controllo se l'evento richieda azioni successive */
IF(@TabAzione <> '' AND @Azione <> '')
BEGIN
/* azioni richieste: seconda dei casi eseguo... */
/******************************************
*
* Calcolo tempo ciclo per INIZIO
*
******************************************/
IF(@TabAzione = 'TempiCicloRilevati' AND @Azione = 'Insert')
BEGIN
/* calcolo valori */
SET @DataOra = ( SELECT i.InizioStato FROM inserted i )
SET @MatricolaKanban = ( SELECT i.MatricolaKanban FROM inserted i )
SET @NumPz = ( SELECT CASE WHEN (ISNUMERIC(value)=1) THEN value ELSE 1 END FROM inserted i )
SET @CodArticolo = ( SELECT CodArticolo FROM Kanban WHERE MatricolaKanban = @MatricolaKanban )
/* calcolo tempo tra gli ultimi 2 eventi "contapezzi" */
SET @DataOraPrec = ( SELECT ISNULL((SELECT Top 1 InizioStato FROM EventList WHERE IdxMacchina = @IdxMacchina AND IdxTipo = @IdxTipo AND InizioStato < @DataOra ORDER BY InizioStato DESC), @DataOra ) )
-- se è oltre 10 gg calcolo in secondi... 2013.8.30
IF (DATEDIFF(DD, @DataOraPrec, @DataOra) > 10)
BEGIN
SET @TCMedio = ( SELECT (DATEDIFF(s, @DataOraPrec, @DataOra) / 60.00 ) ) --calcolo in secondi
END
ELSE
BEGIN
SET @TCMedio = ( SELECT (DATEDIFF(ms, @DataOraPrec, @DataOra) / 60000.00 ) )
END
-- versione vecchia (blocco se oltre 24 gg di fermo...)
--BEGIN TRY
-- /* è in millisecondi, divido per 60'000.00 x avere minuti centesimali*/
-- SET @TCMedio = ( SELECT (DATEDIFF(ms, @DataOraPrec, @DataOra) / 60000.00 ) )
--END TRY
--BEGIN CATCH
-- SET @TCMedio = ( SELECT (DATEDIFF(s, @DataOraPrec, @DataOra) / 60.00 ) ) --calcolo in secondi
--END CATCH
/* inserisco riga di tempo ciclo */
INSERT INTO TempiCicloRilevati
VALUES(@IdxMacchina, @CodArticolo, @DataOra, @TCMedio, @NumPz)
END
/******************************************
*
* Calcolo tempo ciclo con logica stop/start
*
******************************************/
ELSE IF(@TabAzione = 'TempiCicloRilevati' AND @Azione = 'Stop2StartCiclo')
BEGIN
/* calcolo valori */
SET @DataOra = ( SELECT i.InizioStato FROM inserted i )
SET @MatricolaKanban = ( SELECT i.MatricolaKanban FROM inserted i )
/* prendo la matricola dall'evento inizio (precedente) */
SET @MatricolaKanbanOk = ( SELECT ISNULL((SELECT Top 1 MatricolaKanban FROM EventList WHERE IdxMacchina = @IdxMacchina AND IdxTipo = @IdxTipo - 1 AND InizioStato < @DataOra ORDER BY InizioStato DESC), @MatricolaKanban ) )
-- calcolare num pezzi da codice...
SET @NumPz = ( SELECT CASE WHEN (ISNUMERIC(value)=1) THEN value ELSE 1 END FROM inserted i )
SET @CodArticolo = ( SELECT CodArticolo FROM Kanban WHERE MatricolaKanban = @MatricolaKanbanOk )
/* calcolo tempo tra eventi "contapezzi" inizio - fine NB: idxEvento per fine è idxEvento inizio + 1 ... HARD CODED!!! */
SET @DataOraPrec = ( SELECT ISNULL((SELECT Top 1 InizioStato FROM EventList WHERE IdxMacchina = @IdxMacchina AND IdxTipo = @IdxTipo - 1 AND InizioStato < @DataOra ORDER BY InizioStato DESC), @DataOra ) )
-- se è oltre 10 gg calcolo in secondi... 2013.8.30
IF (DATEDIFF(DD, @DataOraPrec, @DataOra) > 10)
BEGIN
SET @TCMedio = ( SELECT (DATEDIFF(s, @DataOraPrec, @DataOra) / 60.00 ) ) --calcolo in secondi
END
ELSE
BEGIN
SET @TCMedio = ( SELECT (DATEDIFF(ms, @DataOraPrec, @DataOra) / 60000.00 ) )
END
-- versione vecchia (blocco se oltre 24 gg di fermo...)
--BEGIN TRY
-- /* è in millisecondi, divido per 60'000.00 x avere minuti centesimali*/
-- SET @TCMedio = ( SELECT (DATEDIFF(ms, @DataOraPrec, @DataOra) / 60000.00 ) )
--END TRY
--BEGIN CATCH
-- SET @TCMedio = ( SELECT (DATEDIFF(s, @DataOraPrec, @DataOra) / 60.00 ) ) --calcolo in secondi
--END CATCH
/* inserisco riga di tempo ciclo */
INSERT INTO TempiCicloRilevati
VALUES(@IdxMacchina, @CodArticolo, @DataOra, @TCMedio, @NumPz)
END
/******************************************
*
* calcolo tempo ciclo con logica stop/stop
*
******************************************/
ELSE IF(@TabAzione = 'TempiCicloRilevati' AND @Azione = 'Stop2StopCiclo')
BEGIN
/* calcolo valori */
SET @DataOra = ( SELECT i.InizioStato FROM inserted i )
SET @MatricolaKanban = ( SELECT i.MatricolaKanban FROM inserted i )
/* prendo la matricola dall'evento inizio (precedente) */
SET @MatricolaKanbanOk = ( SELECT ISNULL((SELECT Top 1 MatricolaKanban FROM EventList WHERE IdxMacchina = @IdxMacchina AND IdxTipo = @IdxTipo AND InizioStato < @DataOra ORDER BY InizioStato DESC), @MatricolaKanban ) )
-- calcolare num pezzi da codice...
SET @NumPz = ( SELECT PzPallet FROM Kanban WHERE MatricolaKanban = @MatricolaKanbanOk )
SET @CodArticolo = ( SELECT CodArticolo FROM Kanban WHERE MatricolaKanban = @MatricolaKanbanOk )
/* calcolo tempo tra eventi "contapezzi" fine - fine NB: idxEvento per fine è idxEvento inizio + 1 ... HARD CODED!!! */
SET @DataOraPrec = ( SELECT ISNULL((SELECT Top 1 InizioStato FROM EventList WHERE IdxMacchina = @IdxMacchina AND IdxTipo = @IdxTipo AND InizioStato < @DataOra ORDER BY InizioStato DESC), @DataOra ) )
-- se è oltre 10 gg calcolo in secondi... 2013.8.30
IF (DATEDIFF(DD, @DataOraPrec, @DataOra) > 10)
BEGIN
SET @TCMedio = ( SELECT (DATEDIFF(s, @DataOraPrec, @DataOra) / 60.00 ) ) --calcolo in secondi
END
ELSE
BEGIN
SET @TCMedio = ( SELECT (DATEDIFF(ms, @DataOraPrec, @DataOra) / 60000.00 ) )
END
-- versione vecchia (blocco se oltre 24 gg di fermo...)
--BEGIN TRY
-- /* è in millisecondi, divido per 60'000.00 x avere minuti centesimali*/
-- SET @TCMedio = ( SELECT (DATEDIFF(ms, @DataOraPrec, @DataOra) / 60000.00 ) )
--END TRY
--BEGIN CATCH
-- SET @TCMedio = ( SELECT (DATEDIFF(s, @DataOraPrec, @DataOra) / 60.00 ) ) --calcolo in secondi
--END CATCH
/* inserisco riga di tempo ciclo */
BEGIN TRY
INSERT INTO TempiCicloRilevati
VALUES(@IdxMacchina, @CodArticolo, @DataOra, @TCMedio, @NumPz)
END TRY
BEGIN CATCH
-- dovrei loggare...
END CATCH
END
/******************************************
*
* Aggiorno kanban in dati macchine per
* INIZIO ATTREZZAGGIO
*
******************************************/
ELSE IF(@TabAzione = 'DatiMacchine' AND @Azione = 'Inizio')
BEGIN
/* calcolo valori */
SET @MatricolaKanban = ( SELECT i.MatricolaKanban FROM inserted i )
/* aggiorno riga di dati macchina */
UPDATE DatiMacchine
SET kanban_A = @MatricolaKanban,
kanban_B = @MatricolaKanban
WHERE idxMacchina = @IdxMacchina
/* aggiorno stato macchina */
UPDATE StatoMacchine
SET MatricolaKanban = @MatricolaKanban
WHERE idxMacchina = @IdxMacchina
/* aggiorno dati kanban statoMacchine... */
UPDATE StatoMacchine
SET KanbanCode = k.KanbanCode, TempoCicloBase = k.TempoCicloBase, PzPalletProd = k.PzPallet
FROM Kanban AS k INNER JOIN StatoMacchine ON k.MatricolaKanban = StatoMacchine.MatricolaKanban
WHERE (StatoMacchine.idxMacchina = @IdxMacchina)
END
/******************************************
*
* Aggiorno kanban in dati macchine per
* FINE PRODUZIONE
*
******************************************/
ELSE IF(@TabAzione = 'DatiMacchine' AND @Azione = 'Fine')
BEGIN
/* calcolo valori */
SET @MatricolaKanban = 'KAND' -- kanban non definito !!!HARD CODED!!!
/* aggiorno riga di dati macchina */
UPDATE DatiMacchine
SET kanban_A = @MatricolaKanban,
kanban_B = @MatricolaKanban
WHERE idxMacchina = @IdxMacchina
/* aggiorno stato macchina */
UPDATE StatoMacchine
SET MatricolaKanban = @MatricolaKanban
WHERE idxMacchina = @IdxMacchina
/* aggiorno dati kanban statoMacchine... */
UPDATE StatoMacchine
SET KanbanCode = k.KanbanCode, TempoCicloBase = k.TempoCicloBase, PzPalletProd = k.PzPallet
FROM Kanban AS k INNER JOIN StatoMacchine ON k.MatricolaKanban = StatoMacchine.MatricolaKanban
WHERE (StatoMacchine.idxMacchina = @IdxMacchina)
END
END
*/
-- INFINE CHIAMO REFRESH TAB STATO...
EXEC stp_MSE_refresh @IdxMacchina
go
commit
go
-- viste
set xact_abort on
go
begin transaction
go
set ANSI_NULLS on
go
create VIEW v_Eventi_To_StatiMacchina
AS
/* mostra gli eventi macchina ed eventualmenti gli stati macchina che hanno provocato
EVENTI -> STATI DIARIO DI BORDO
FARE FILTRO X MACCHINA E ORDER BY INIZIO STATO
SELECT * FROM dbo.v_Eventi_To_StatiMacchina
WHERE IdxMacchina = 1010
AND InizioStato < '20131009 19:00.000'
ORDER BY InizioStato DESC;
*/
WITH cteDiario AS
(
SELECT d.IdxMacchina, d.InizioStato, d.FineStato, d.IdxStato, d.DurataMinuti, d.[Value], d.MatricolaKanban, d.KanbanCode
,d.TempoCicloBase, d.PzPalletProd, d.MatrOpr, d.pallet
,a.Descrizione AS DescStato
FROM DiarioDiBordo AS d
INNER JOIN dbo.AnagraficaStati AS a ON d.IdxStato = a.IdxStato
)
SELECT e.IdxMacchina, e.InizioStato AS InizioEvento, e.IdxTipo AS IdxTipoEvento, e.MatricolaKanban, e.[Value], e.MatrOpr, e.pallet,
ae.Nome AS NomeEvento,ae.TabAzione,ae.Azione,
di.FineStato AS FineStatoPrec, di.InizioStato AS InizioStatoPrec, di.IdxStato AS IdxStatoIniz, di.DescStato AS DescStatoIniziale,
df.InizioStato AS FineStato, df.IdxStato AS idxStatoFine, df.DescStato AS DescStatoFine
FROM EventList AS e
INNER JOIN dbo.AnagraficaEventi AS ae ON e.IdxTipo = ae.IdxTipo
--LEFT JOIN cteDiario AS di ON e.IdxMacchina = di.IdxMacchina AND e.InizioStato = di.FineStato
--LEFT JOIN cteDiario AS df ON e.IdxMacchina = df.IdxMacchina AND e.InizioStato = df.InizioStato
LEFT JOIN cteDiario AS di ON e.IdxMacchina = di.IdxMacchina AND ( e.InizioStato >= DATEADD( ms , -80, di.FineStato ) AND e.InizioStato <= di.FineStato )
LEFT JOIN cteDiario AS df ON e.IdxMacchina = df.IdxMacchina AND ( e.InizioStato >= DATEADD( ms , -80, df.InizioStato ) AND e.InizioStato <= df.InizioStato )
-- LEFT JOIN cteDiario AS df ON e.IdxMacchina = df.IdxMacchina AND e.InizioStato = df.InizioStato
--WHERE e.IdxMacchina = 1010
--AND e.InizioStato < '20131009 19:00.000'
--ORDER BY e.InizioStato DESC;
go
create VIEW v_StatiMacchina_From_Eventi
AS
/*
mostra gli stati macchina e gli eventi che li hanno generati
STATI DIARIO DI BORDO -> EVENTI
FARE FILTRO X MACCHINA E ORDER BY INIZIO STATO
SELECT * FROM dbo.v_StatiMacchina_From_Eventi
WHERE IdxMacchina = 1010
AND InizioStato < '20131009 19:00.000'
ORDER BY InizioStato DESC;
*/
WITH cteDiario AS
(
SELECT d.IdxMacchina, d.InizioStato, d.FineStato, d.IdxStato, d.DurataMinuti, d.[Value], d.MatricolaKanban, d.KanbanCode
,d.TempoCicloBase, d.PzPalletProd, d.MatrOpr, d.pallet
,a.Descrizione AS DescStato
FROM DiarioDiBordo AS d
INNER JOIN dbo.AnagraficaStati AS a ON d.IdxStato = a.IdxStato
)
SELECT e.IdxMacchina, e.InizioStato AS InizioEvento, e.IdxTipo AS IdxTipoEvento, e.MatricolaKanban, e.[Value], e.MatrOpr, e.pallet,
ae.Nome AS NomeEvento,ae.TabAzione,ae.Azione,
di.InizioStato,di.IdxStato AS IdxStatoIniz, di.DescStato AS DescStatoIniziale,
df.InizioStato AS FineStato, df.IdxStato AS idxStatoFine, df.DescStato AS DescStatoFine
FROM EventList AS e
INNER JOIN dbo.AnagraficaEventi AS ae ON e.IdxTipo = ae.IdxTipo
LEFT JOIN cteDiario AS di ON e.IdxMacchina = di.IdxMacchina AND e.InizioStato = di.FineStato
LEFT JOIN cteDiario AS df ON e.IdxMacchina = df.IdxMacchina AND e.InizioStato = df.InizioStato
--WHERE e.IdxMacchina = 1010
--AND e.InizioStato < '20131009 19:00.000'
--ORDER BY e.InizioStato DESC;
go
commit
go
-- stored: nuove!!!
set xact_abort on
go
begin transaction
go
set ANSI_NULLS on
go
/*************************************
* STORED PROCEDURE stp_Comm_getLastByMacchina
* ottiene l'elenco degli ultimi N commenti per una macchina specificata
*
* modif.: S.E.L. - 2013.10.16
**************************************/
create PROCEDURE stp_Comm_getLastByMacchina
(
@IdxMacchina NVARCHAR(50) = '0',
@showMax INT = 10
)
AS
SELECT TOP (@showMax) o.idxODL, o.CodArticolo, el.IdxMacchina, el.InizioStato, el.Value,
ISNULL(ao.Cognome,'cognome') + ' ' + ISNULL(ao.Nome,'') AS Operatore
FROM EventList el INNER JOIN ODL o ON el.IdxMacchina = o.IdxMacchina AND el.InizioStato BETWEEN o.DataInizio AND ISNULL(o.DataFine, GETDATE())
LEFT OUTER JOIN AnagraficaOperatori ao ON el.MatrOpr = ao.MatrOpr
WHERE el.IdxMacchina = CASE WHEN @IdxMacchina = 0 THEN el.IdxMacchina ELSE @IdxMacchina END
AND el.IdxTipo = 999 -- 999 = commento! HARD CODED!!!
ORDER BY el.InizioStato DESC
RETURN
go
/*************************************
* STORED PROCEDURE stp_DDB_getNextByMacchinaFrom
* ottiene i dati dell'evento successivo una macchina ed un istante specificati
*
* modif.: S.E.L. - 2013.10.24
**************************************/
create PROCEDURE stp_DDB_getNextByMacchinaFrom
(
@IdxMacchina NVARCHAR(50),
@dataRif DATETIME
)
AS
SELECT TOP 1 *
FROM DiarioDiBordo
WHERE (IdxMacchina = @IdxMacchina) AND
(InizioStato > @dataRif)
ORDER BY InizioStato
RETURN
go
/*************************************
* STORED PROCEDURE stp_FNQ_getFilt
* ottiene elenco FERMI NON QUALIFICATI filtrati x macchina, gg da guardare a ritroso e durata
*
* modif.: S.E.L. - 2013.10.23
**************************************/
create PROCEDURE stp_FNQ_getFilt
(
@IdxMacchina NVARCHAR(50) = 0,
@gg INT = 3, -- num gg da mostrare a ritroso (da ADESSO)
@durataMin FLOAT = 30 -- min 30 min
)
AS
-- imposto inizio/fine
DECLARE @Inizio DATETIME
DECLARE @Fine DATETIME
SELECT @Fine = GETDATE(), @Inizio = DATEADD(DAY, -@gg, GETDATE())
SELECT m.IdxMacchina, InizioStato, m.Nome as Macchina, ddb.IdxStato, Ans.Descrizione AS Stato, Ans.Semaforo,
ISNULL(DurataMinuti, DATEDIFF(s, InizioStato, @Fine) / 60) AS DurataMinuti, Value, KanbanCode as CodArticolo
FROM DiarioDiBordo AS ddb INNER JOIN AnagraficaStati AnS ON ddb.IdxStato = AnS.IdxStato INNER JOIN MAcchine m ON ddb.IdxMacchina = m.IdxMacchina
WHERE Ans.Semaforo IN ('G','R')
AND m.IdxMacchina = CASE WHEN @IdxMacchina = 0 THEN m.IdxMacchina ELSE @IdxMacchina END
AND ((InizioStato BETWEEN @Inizio AND @Fine) OR (FineStato BETWEEN @Inizio AND @Fine))
AND ISNULL(DurataMinuti, DATEDIFF(s, InizioStato, @Fine) / 60) >= @durataMin
ORDER BY InizioStato DESC
RETURN
go
commit
go
set xact_abort on
go
begin transaction
go
set ANSI_NULLS on
go
-- =============================================
-- Author: Samuele E. Locatelli
-- Create date: 2009-03-04
-- mod date:
--
-- Description: riallineamento con update massivo dati db
-- aggiorna i dati nel db per portarli ad essere "odierni" ovvero ultimo evento appena successo
-- =============================================
create PROCEDURE man.stp_riallineaDateDb
AS
DECLARE @Database AS SYSNAME;
DECLARE @lastData AS DATETIME
DECLARE @diff_min as INT
DECLARE @idxMacchina AS NVARCHAR(50)
DECLARE @idxMacchinaTest AS NVARCHAR(50) = '1008'
DBCC SHOWCONTIG(EventList)
DBCC SHOWCONTIG(DiarioDiBordo)
SET @Database = DB_NAME()
EXEC USP_DisableEnableNonClusteredIndexes @Database ,null, 1 -- disabilito indici
PRINT 'inizio UPDATE tabelle...'
/* ELIMINO MACCHINA 99 */
/*
-- elimino tutti gli eventi della macchina test
DELETE FROM EventList WHERE IdxMacchina = @idxMacchinaTest
-- elimino da diario di bordo della macchina test
DELETE FROM DiarioDiBordo WHERE IdxMacchina = @idxMacchinaTest
-- elimino da tempi ciclo teorici della macchina test
DELETE FROM TempiCicloTeorici WHERE IdxMacchina = @idxMacchinaTest
-- elimino da tempi ciclo rilevati della macchina test
DELETE FROM TempiCicloRilevati WHERE IdxMacchina = @idxMacchinaTest
DELETE dbo.KeepAlive WHERE IdxMacchina = @idxMacchinaTest
DELETE DatiMacchine WHERE IdxMacchina = @idxMacchinaTest
DELETE StatoMacchine WHERE IdxMacchina = @idxMacchinaTest
DELETE Macchine WHERE IdxMacchina = @idxMacchinaTest
*/
-- calcolo l'ultima data degli eventi esclusa macchina test
SET @lastData = ( SELECT MAX(InizioStato) AS inizio FROM DiarioDiBordo WHERE IdxMacchina <> @idxMacchinaTest )
SET @idxMacchina = ( SELECT TOP 1 IdxMacchina FROM DiarioDiBordo WHERE InizioStato = @lastData )
-- SELECT @idxMacchina, @idxMacchinaTest
-- ora calcolo la differenza tra quello e la data/ora odierna
SET @diff_min = (SELECT DATEDIFF(n, @lastData, getdate()))
/* TRASLO GLI EVENTI DELLE MACCHINE A DATA-ORA ATTUALI */
-- aggiorno EventList
UPDATE EventList SET InizioStato = DATEADD(n, @diff_min, InizioStato)
-- aggiorno DiarioDiBordo
UPDATE DiarioDiBordo SET InizioStato = DATEADD(n, @diff_min, InizioStato),FineStato = DATEADD(n, @diff_min, FineStato)
-- aggiorno StatoMacchine
UPDATE StatoMacchine SET InizioStato = DATEADD(n, @diff_min, InizioStato)
-- aggiorno KeepAlive
UPDATE KeepAlive SET DataOraServer = DATEADD(n, @diff_min, DataOraServer), DataOraMacchina = DATEADD(n, @diff_min, DataOraMacchina), DataOraStart = DATEADD(n, @diff_min, DataOraStart)
-- aggiorno TC teorici
UPDATE TempiCicloTeorici SET DataOraFrom = DATEADD(n, @diff_min, DataOraFrom), DataOraTo = DATEADD(n, @diff_min, DataOraTo)
-- aggiorno TC rilevati
UPDATE TempiCicloRilevati SET DataOraRif = DATEADD(n, @diff_min, DataOraRif)
-- aggiorno Dati confermati
UPDATE DatiConfermati SET DataOraApp = DATEADD(n, @diff_min, DataOraApp), DataRif = DATEADD(n, @diff_min, DataRif), DataOraFrom = DATEADD(n, @diff_min, DataOraFrom), DataOraTo = DATEADD(n, @diff_min, DataOraTo)
-- elimino tutti gli eventi della macchina test superiori a @lastData ( sono i dati di prova )
DELETE FROM EventList WHERE IdxMacchina = @idxMacchinaTest AND InizioStato > DATEADD(n, @diff_min, @lastData )
DELETE FROM DiarioDiBordo WHERE IdxMacchina = @idxMacchinaTest AND InizioStato > DATEADD(n, @diff_min, @lastData )
DELETE FROM TempiCicloRilevati WHERE IdxMacchina = @idxMacchinaTest AND DataOraRif > DATEADD(n, @diff_min, @lastData )
-- aggiorno lo stato macchine
UPDATE StatoMacchine
SET IdxStato = Diario.IdxStato
FROM StatoMacchine AS s
INNER JOIN (
SELECT d.IdxMacchina, d.IdxStato,d.InizioStato
FROM DiarioDiBordo AS d
INNER JOIN
(
SELECT idxMacchina, MAX(InizioStato) As InizioStato
FROM DiarioDiBordo
GROUP BY idxMacchina
) AS a ON a.IdxMacchina = d.IdxMacchina AND a.InizioStato = d.InizioStato
) AS Diario
ON s.IdxMacchina = Diario.IdxMacchina
-- aggiornamento x tablet
EXEC [dbo].[stp_MSE_getData] 0
PRINT 'concluso UPDATE tabelle...'
-- --shrink del db
PRINT 'compatto DB...'
DBCC SHRINKDATABASE (@Database)
--ricostruisco indici DOPO shrink
PRINT 'ricostruisco indici...'
-- riabilito tutti gli indici non-cluster ( fa una reindex )
EXEC USP_DisableEnableNonClusteredIndexes @Database ,null, 2 --riattivo indici
-- ricostruisco i cluster
ALTER INDEX PK_EventList ON dbo.EventList REBUILD
WITH (FILLFACTOR = 98, SORT_IN_TEMPDB = ON );
ALTER INDEX PK_DiarioDiBordo ON dbo.DiarioDiBordo REBUILD
WITH (FILLFACTOR = 98, SORT_IN_TEMPDB = ON );
--DBCC DBREINDEX(EventList)
--DBCC DBREINDEX(DiarioDiBordo)
--DBCC DBREINDEX(TransizioneIngressi)
--DBCC DBREINDEX(Kanban2ins)
--DBCC DBREINDEX(Kanban)
--DBCC DBREINDEX(AnagraficaOperatori)
--DBCC DBREINDEX(AnagraficaOperatori2ins)
DBCC SHOWCONTIG(EventList)
DBCC SHOWCONTIG(DiarioDiBordo)
/*
-- ******************************************************
-- *** PROCEDURE VARIE PER CREAZIONE DB DEMO ***
-- ******************************************************
-- FARE il restore del DB
-- Poi faccio pulizia dei vecchi DATI del DB
USE MoonPro_DEMO;
DECLARE @Database AS SYSNAME;
SET @Database = DB_NAME()
EXEC USP_DisableEnableNonClusteredIndexes @Database ,null, 1 -- disabilito indici
DECLARE @lastData AS datetime
SET @lastData = '20130920'
DELETE FROM EventList WHERE InizioStato < @lastData
DELETE FROM DiarioDiBordo WHERE InizioStato < @lastData
DELETE FROM TempiCicloRilevati WHERE DataOraRif < @lastData
-- riallineo dati a GETDATE()
EXEC [man].[stp_riallineaDateDb]
-- ******************************************************
-- *** CANCELLAZIONE DELLE ultime tre ORE di EVENTI ***
-- ******************************************************
-- riallineo alla data/ora attuale prima della cancellazione
EXEC [man].[stp_riallineaDateDb]
DELETE FROM EventList WHERE InizioStato > DATEADD(n, -720, GETDATE() )
DELETE FROM DiarioDiBordo WHERE InizioStato > DATEADD(n, -720, GETDATE() )
DELETE FROM TempiCicloRilevati WHERE DataOraRif > DATEADD(n, -720, GETDATE() )
DELETE FROM DatiConfermati WHERE DataRif > DATEADD(n, -720, GETDATE() )
UPDATE KeepAlive
SET DataOraServer = DATEADD(n, -720, DataOraServer ) ,
DataOraMacchina = DATEADD(n, -720, DataOraMacchina ) ,
DataOraStart = DATEADD(n, -720, DataOraStart )
-- riallineo alla data/ora attuale
EXEC [man].[stp_riallineaDateDb]
*/
RETURN
go
-- ================================================
-- Author: Samuele E. Locatelli
-- Create date: 2012.11.23
--
-- Description: rigenerazione del diario di bordo
-- a partire da macchina eventi/stati + EventList
-- ================================================
create PROCEDURE man.stp_ricalcolaDatiMacchinaFromDate
(
@idxMacchina NVARCHAR(50),
@inizio DATETIME,
@idxStatoStart INT = 1
)
AS
SET NOCOUNT ON;
DECLARE @fine DATETIME
--DBCC SHOWCONTIG(EventList)
--DBCC SHOWCONTIG(DiarioDiBordo)
/* DA USARE ? Verificare */
--DECLARE @Database AS SYSNAME;
--SET @Database = DB_NAME()
--EXEC USP_DisableEnableNonClusteredIndexes @Database ,null, 1 -- disabilito indici
-- update SAM 2013.10.24: "torno indietro" di 2 eventi rispetto alal data ora indicata come start, SE CI SONO
SELECT @inizio = ISNULL(MIN(InizioStato),@inizio) FROM
(
SELECT TOP 3 InizioStato
FROM DiarioDiBordo
WHERE IdxMacchina = @idxMacchina AND InizioStato < @inizio
ORDER BY InizioStato DESC
) AS tbl
-- DISATTIVO inserimento in DiarioDiBordo per la macchina indicata
-- DEVE disattivare anche il caricamento degli eventi
UPDATE DatiMacchine
SET insEnabled = 0
WHERE IdxMacchina = @IdxMacchina
-- devo sempre rielaborare tutti gli eventi fino a dataora odierna
SET @fine = ( SELECT MAX(InizioStato) FROM EventList
WHERE idxMacchina = @idxMacchina )
-- svuoto dati che vado a sostituire
PRINT 'svuoto TempiCicloRilevati per periodo indicato...'
DELETE FROM TempiCicloRilevati WHERE idxMacchina = @idxMacchina AND DataOraRif BETWEEN @inizio AND @fine
PRINT 'svuoto DiarioDiBordo per periodo indicato...'
EXEC stp_DDB_deleteMacchinaPeriodo @idxMacchina, @inizio, @fine -- cancella diario di bordo
PRINT 'processo EventList per periodo indicato...'
DECLARE @InizioStato DATETIME
DECLARE @IdxTipo INT
DECLARE @MatricolaKanban NVARCHAR(50)
DECLARE @Value NVARCHAR(50)
DECLARE @MatrOpr INT
DECLARE @pallet NVARCHAR(20)
DECLARE @nextIdxStato INT
DECLARE @currIdxStato INT
DECLARE @IdxFamiglia INT
DECLARE @TabAzione NVARCHAR(50) = '';
DECLARE @Azione NVARCHAR(50) = '';
-- calcolo famiglia macchina!
SET @IdxFamiglia = ( SELECT IdxFamiglia FROM Macchine2FamiglieMacchine WHERE idxMacchina = @idxMacchina )
-- Recupero stato precedente, altrimenti ipotizzo macchina inizialmente in stato richiesto (default: 1 = pronta) e quindi imposto stato current a quello iniziale richiesto...
SET @currIdxStato = ISNULL( ( SELECT TOP 1 IdxStato FROM DiarioDiBordo WHERE IdxMacchina = @idxMacchina AND InizioStato < @inizio
ORDER BY InizioStato DESC ) , @idxStatoStart)
-- verifico i record elaborati
SELECT COUNT(*)
FROM EventList AS e
LEFT JOIN dbo.AnagraficaEventi AS a ON e.idxTipo = a.IdxTipo
WHERE e.IdxMacchina = @idxMacchina
AND e.InizioStato BETWEEN @inizio AND @fine
-- leggo la tabella degli eventi con cursore x percorrere i dati...
DECLARE event2proc CURSOR FOR
SELECT e.InizioStato, e.IdxTipo, e.MatricolaKanban, e.Value, e.MatrOpr, e.pallet,
a.TabAzione, a.Azione
FROM EventList AS e
LEFT JOIN dbo.AnagraficaEventi AS a ON e.idxTipo = a.IdxTipo
WHERE e.IdxMacchina = @idxMacchina
AND e.InizioStato BETWEEN @inizio AND @fine
ORDER BY e.InizioStato;
/*
SELECT InizioStato, IdxTipo, MatricolaKanban, Value, MatrOpr, pallet
FROM EventList
WHERE IdxMacchina = @idxMacchina
AND InizioStato BETWEEN @inizio AND @fine
ORDER BY InizioStato;
*/
OPEN event2proc;
FETCH NEXT FROM event2proc
INTO @InizioStato, @IdxTipo, @MatricolaKanban, @Value, @MatrOpr, @pallet, @TabAzione, @Azione;
DECLARE @NumPz INT = 1;
DECLARE @ContaInsert INT = 0;
WHILE @@FETCH_STATUS = 0
BEGIN
IF ( ISNULL(@TabAzione,'') <> '' AND ISNULL(@Azione,'') <> '')
BEGIN
SET @NumPz = CASE WHEN (ISNUMERIC(@Value)=1) THEN @Value ELSE 1 END
EXEC dbo.stp_EL_processaEvento @IdxTipo, @idxMacchina, @MatricolaKanban, @InizioStato, @NumPz , 'N'
END
-- calcolo l'eventuale NUOVO idxStato
SET @nextIdxStato = ISNULL( (SELECT next_IdxStato FROM TransizioneStati
WHERE IdxFamiglia = @IdxFamiglia AND IdxStato = @currIdxStato AND IdxTipo = @IdxTipo ), @currIdxStato )
-- SE lo stato cambia registro nel DiarioDiBordo!
IF (@nextIdxStato <> @currIdxStato)
BEGIN
-- inserisco in DiarioDiBordo
INSERT INTO DiarioDiBordo
(IdxMacchina, InizioStato, FineStato, IdxStato, MatricolaKanban, Value, MatrOpr, pallet)
VALUES (@IdxMacchina, @InizioStato, NULL, @nextIdxStato, @MatricolaKanban, @Value, @MatrOpr, @pallet)
-- infine imposto il nuovo stato current...
SET @currIdxStato = @nextIdxStato
SET @ContaInsert = @ContaInsert + 1
END
-- Get the next values
FETCH NEXT FROM event2proc
INTO @InizioStato, @IdxTipo, @MatricolaKanban, @Value, @MatrOpr, @pallet, @TabAzione, @Azione;
END
CLOSE event2proc;
DEALLOCATE event2proc;
-- resetto microStato a 1
UPDATE dbo.MicroStatoMacchina
SET IdxMicroStato = 1,
InizioStato = @InizioStato,
Value = '0'
WHERE IdxMacchina = @idxMacchina
-- fa un controllo: elimina eventuali dichairazioni in DDB SE durata < 0...
DELETE FROM DiarioDiBordo WHERE DurataMinuti < 0 AND IdxMacchina = @idxMacchina
-- RI-ATTIVO inserimento in DiarioDiBordo per la macchina indicata
UPDATE DatiMacchine
SET insEnabled = 1
WHERE IdxMacchina = @IdxMacchina
PRINT 'concluso UPDATE tabelle...' + 'INSERT DiarioBordo : ' + CONVERT(VARCHAR(30),@ContaInsert)
--DBCC SHOWCONTIG(EventList)
--DBCC SHOWCONTIG(DiarioDiBordo)
--EXEC USP_DisableEnableNonClusteredIndexes @Database,null, 2 --riattivo indici
--ricostruisco indici X QUESTE TABELLE DOPPIA RICOSTRUZIONE INDICI NON NECESSARIA
--PRINT 'ricostruisco indici...'
--DBCC DBREINDEX(EventList)
--DBCC DBREINDEX(DiarioDiBordo)
--DBCC DBREINDEX(TransizioneIngressi)
--DBCC DBREINDEX(Kanban2ins)
--DBCC DBREINDEX(Kanban)
--DBCC DBREINDEX(AnagraficaOperatori)
--DBCC DBREINDEX(AnagraficaOperatori2ins)
--DBCC SHOWCONTIG(EventList)
--DBCC SHOWCONTIG(DiarioDiBordo)
RETURN
go
commit
go
-- stored update!
set xact_abort on
go
begin transaction
go
set ANSI_NULLS on
go
/*************************************
* STORED PROCEDURE stp_ODL_getByMacchinaPeriodo
* ottiene l'elenco degli ODL in lavorazione su una macchina in un dato periodo
*
* modif.: S.E.L. - 2012.04.02
**************************************/
alter PROCEDURE stp_ODL_getByMacchinaPeriodo
(
@IdxMacchina NVARCHAR(50),
@dataFrom DATETIME,
@dataTo DATETIME
)
AS
BEGIN
SELECT *
FROM v_ODL_exp
WHERE IdxMacchina = @IdxMacchina
AND ((DataInizio BETWEEN @dataFrom AND @dataTo) OR (DataFine BETWEEN @dataFrom AND @dataTo) OR (DataInizio <= @dataFrom AND ISNULL(DataFine,GETDATE()) >= @dataTo))
END
RETURN
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) / CASE WHEN @PezziProd > 0 THEN @PezziProd ELSE 1 END, 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 - 1 -- divido per n-1 per avere numIntervalli = numPezzi
IF(@numPezzi < 1) 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
-- dati eventi/stati/transizioni...
set xact_abort on
go
begin transaction
go
UPDATE dbo.AnagraficaEventi SET
Nome=N'Bcode - Cambio Pallet (unused)'
WHERE IdxTipo=11
UPDATE dbo.AnagraficaEventi SET
Nome=N'Barcode - Fermo Organizzativo', TabAzione=N'DatiMacchine', Azione=N'Fine'
WHERE IdxTipo=19
INSERT INTO dbo.AnagraficaEventi
VALUES (999, N'Commento', N'', N'')
go
commit transaction
go
set xact_abort on
go
begin transaction
go
UPDATE dbo.AnagraficaStati SET
Semaforo=N'S', ClasseTempo=N'T_OFF'
WHERE IdxStato=27
INSERT INTO dbo.AnagraficaStati
VALUES (30, N'Fermo Organizzativo', N'S', 1, N'T_OFF', 0)
go
commit transaction
go
-- tab transizioni!
set xact_abort on
go
begin transaction
go
DELETE FROM dbo.TransizioneStati WHERE IdxFamiglia=1 and IdxStato=1 and IdxTipo=1
DELETE FROM dbo.TransizioneStati WHERE IdxFamiglia=4 and IdxStato=1 and IdxTipo=1
go
commit transaction
go
set xact_abort on
go
begin transaction
go
INSERT INTO dbo.TransizioneStati
VALUES (2, 1, 12, 11)
INSERT INTO dbo.TransizioneStati
VALUES (2, 2, 12, 11)
INSERT INTO dbo.TransizioneStati
VALUES (2, 3, 12, 11)
INSERT INTO dbo.TransizioneStati
VALUES (2, 4, 12, 11)
INSERT INTO dbo.TransizioneStati
VALUES (2, 5, 12, 11)
INSERT INTO dbo.TransizioneStati
VALUES (2, 6, 12, 11)
INSERT INTO dbo.TransizioneStati
VALUES (2, 7, 12, 11)
INSERT INTO dbo.TransizioneStati
VALUES (2, 8, 12, 11)
INSERT INTO dbo.TransizioneStati
VALUES (2, 9, 12, 11)
INSERT INTO dbo.TransizioneStati
VALUES (2, 10, 12, 11)
INSERT INTO dbo.TransizioneStati
VALUES (2, 12, 12, 11)
INSERT INTO dbo.TransizioneStati
VALUES (2, 13, 12, 11)
INSERT INTO dbo.TransizioneStati
VALUES (2, 14, 12, 11)
INSERT INTO dbo.TransizioneStati
VALUES (2, 15, 12, 11)
INSERT INTO dbo.TransizioneStati
VALUES (10, 1, 2, 2)
INSERT INTO dbo.TransizioneStati
VALUES (10, 1, 3, 3)
INSERT INTO dbo.TransizioneStati
VALUES (10, 1, 4, 4)
INSERT INTO dbo.TransizioneStati
VALUES (10, 1, 5, 5)
INSERT INTO dbo.TransizioneStati
VALUES (10, 1, 6, 6)
INSERT INTO dbo.TransizioneStati
VALUES (10, 1, 7, 7)
INSERT INTO dbo.TransizioneStati
VALUES (10, 1, 8, 8)
INSERT INTO dbo.TransizioneStati
VALUES (10, 1, 9, 9)
INSERT INTO dbo.TransizioneStati
VALUES (10, 1, 10, 10)
INSERT INTO dbo.TransizioneStati
VALUES (10, 1, 12, 11)
INSERT INTO dbo.TransizioneStati
VALUES (10, 1, 19, 30)
INSERT INTO dbo.TransizioneStati
VALUES (10, 1, 29, 28)
INSERT INTO dbo.TransizioneStati
VALUES (10, 1, 30, 29)
INSERT INTO dbo.TransizioneStati
VALUES (10, 2, 1, 1)
INSERT INTO dbo.TransizioneStati
VALUES (10, 3, 1, 1)
INSERT INTO dbo.TransizioneStati
VALUES (10, 3, 12, 11)
INSERT INTO dbo.TransizioneStati
VALUES (10, 4, 1, 1)
INSERT INTO dbo.TransizioneStati
VALUES (10, 4, 12, 11)
INSERT INTO dbo.TransizioneStati
VALUES (10, 5, 1, 1)
INSERT INTO dbo.TransizioneStati
VALUES (10, 5, 12, 11)
INSERT INTO dbo.TransizioneStati
VALUES (10, 5, 19, 30)
INSERT INTO dbo.TransizioneStati
VALUES (10, 6, 1, 1)
INSERT INTO dbo.TransizioneStati
VALUES (10, 6, 12, 11)
INSERT INTO dbo.TransizioneStati
VALUES (10, 6, 19, 30)
INSERT INTO dbo.TransizioneStati
VALUES (10, 7, 1, 1)
INSERT INTO dbo.TransizioneStati
VALUES (10, 7, 12, 11)
INSERT INTO dbo.TransizioneStati
VALUES (10, 7, 19, 30)
INSERT INTO dbo.TransizioneStati
VALUES (10, 8, 1, 1)
INSERT INTO dbo.TransizioneStati
VALUES (10, 8, 12, 11)
INSERT INTO dbo.TransizioneStati
VALUES (10, 8, 19, 30)
INSERT INTO dbo.TransizioneStati
VALUES (10, 9, 1, 1)
INSERT INTO dbo.TransizioneStati
VALUES (10, 9, 12, 11)
INSERT INTO dbo.TransizioneStati
VALUES (10, 9, 19, 30)
INSERT INTO dbo.TransizioneStati
VALUES (10, 10, 1, 1)
INSERT INTO dbo.TransizioneStati
VALUES (10, 10, 12, 11)
INSERT INTO dbo.TransizioneStati
VALUES (10, 10, 19, 30)
INSERT INTO dbo.TransizioneStati
VALUES (10, 11, 1, 1)
INSERT INTO dbo.TransizioneStati
VALUES (10, 11, 19, 30)
INSERT INTO dbo.TransizioneStati
VALUES (10, 11, 29, 28)
INSERT INTO dbo.TransizioneStati
VALUES (10, 11, 30, 29)
INSERT INTO dbo.TransizioneStati
VALUES (10, 12, 1, 1)
INSERT INTO dbo.TransizioneStati
VALUES (10, 12, 2, 2)
INSERT INTO dbo.TransizioneStati
VALUES (10, 12, 3, 3)
INSERT INTO dbo.TransizioneStati
VALUES (10, 12, 4, 4)
INSERT INTO dbo.TransizioneStati
VALUES (10, 12, 5, 5)
INSERT INTO dbo.TransizioneStati
VALUES (10, 12, 6, 6)
INSERT INTO dbo.TransizioneStati
VALUES (10, 12, 7, 7)
INSERT INTO dbo.TransizioneStati
VALUES (10, 12, 8, 8)
INSERT INTO dbo.TransizioneStati
VALUES (10, 12, 9, 9)
INSERT INTO dbo.TransizioneStati
VALUES (10, 12, 10, 10)
INSERT INTO dbo.TransizioneStati
VALUES (10, 12, 12, 11)
INSERT INTO dbo.TransizioneStati
VALUES (10, 12, 19, 30)
INSERT INTO dbo.TransizioneStati
VALUES (10, 12, 29, 28)
INSERT INTO dbo.TransizioneStati
VALUES (10, 12, 30, 29)
INSERT INTO dbo.TransizioneStati
VALUES (10, 13, 1, 1)
INSERT INTO dbo.TransizioneStati
VALUES (10, 13, 29, 28)
INSERT INTO dbo.TransizioneStati
VALUES (10, 13, 30, 29)
INSERT INTO dbo.TransizioneStati
VALUES (10, 14, 1, 1)
INSERT INTO dbo.TransizioneStati
VALUES (10, 14, 29, 28)
INSERT INTO dbo.TransizioneStati
VALUES (10, 14, 30, 29)
INSERT INTO dbo.TransizioneStati
VALUES (10, 15, 1, 1)
INSERT INTO dbo.TransizioneStati
VALUES (10, 15, 2, 2)
INSERT INTO dbo.TransizioneStati
VALUES (10, 15, 3, 3)
INSERT INTO dbo.TransizioneStati
VALUES (10, 15, 4, 4)
INSERT INTO dbo.TransizioneStati
VALUES (10, 15, 5, 5)
INSERT INTO dbo.TransizioneStati
VALUES (10, 15, 6, 6)
INSERT INTO dbo.TransizioneStati
VALUES (10, 15, 7, 7)
INSERT INTO dbo.TransizioneStati
VALUES (10, 15, 8, 8)
INSERT INTO dbo.TransizioneStati
VALUES (10, 15, 9, 9)
INSERT INTO dbo.TransizioneStati
VALUES (10, 15, 10, 10)
INSERT INTO dbo.TransizioneStati
VALUES (10, 15, 12, 11)
INSERT INTO dbo.TransizioneStati
VALUES (10, 15, 19, 30)
INSERT INTO dbo.TransizioneStati
VALUES (10, 15, 29, 28)
INSERT INTO dbo.TransizioneStati
VALUES (10, 15, 30, 29)
INSERT INTO dbo.TransizioneStati
VALUES (10, 23, 1, 1)
INSERT INTO dbo.TransizioneStati
VALUES (10, 23, 29, 28)
INSERT INTO dbo.TransizioneStati
VALUES (10, 23, 30, 29)
INSERT INTO dbo.TransizioneStati
VALUES (10, 24, 1, 1)
INSERT INTO dbo.TransizioneStati
VALUES (10, 24, 29, 28)
INSERT INTO dbo.TransizioneStati
VALUES (10, 24, 30, 29)
INSERT INTO dbo.TransizioneStati
VALUES (10, 25, 1, 1)
INSERT INTO dbo.TransizioneStati
VALUES (10, 25, 2, 2)
INSERT INTO dbo.TransizioneStati
VALUES (10, 25, 3, 3)
INSERT INTO dbo.TransizioneStati
VALUES (10, 25, 4, 4)
INSERT INTO dbo.TransizioneStati
VALUES (10, 25, 5, 5)
INSERT INTO dbo.TransizioneStati
VALUES (10, 25, 6, 6)
INSERT INTO dbo.TransizioneStati
VALUES (10, 25, 7, 7)
INSERT INTO dbo.TransizioneStati
VALUES (10, 25, 8, 8)
INSERT INTO dbo.TransizioneStati
VALUES (10, 25, 9, 9)
INSERT INTO dbo.TransizioneStati
VALUES (10, 25, 10, 10)
INSERT INTO dbo.TransizioneStati
VALUES (10, 25, 12, 11)
INSERT INTO dbo.TransizioneStati
VALUES (10, 25, 19, 30)
INSERT INTO dbo.TransizioneStati
VALUES (10, 25, 26, 27)
INSERT INTO dbo.TransizioneStati
VALUES (10, 25, 29, 28)
INSERT INTO dbo.TransizioneStati
VALUES (10, 25, 30, 29)
INSERT INTO dbo.TransizioneStati
VALUES (10, 26, 1, 1)
INSERT INTO dbo.TransizioneStati
VALUES (10, 26, 12, 11)
INSERT INTO dbo.TransizioneStati
VALUES (10, 26, 19, 30)
INSERT INTO dbo.TransizioneStati
VALUES (10, 26, 29, 28)
INSERT INTO dbo.TransizioneStati
VALUES (10, 26, 30, 29)
INSERT INTO dbo.TransizioneStati
VALUES (10, 27, 1, 1)
INSERT INTO dbo.TransizioneStati
VALUES (10, 27, 12, 11)
INSERT INTO dbo.TransizioneStati
VALUES (10, 27, 19, 30)
INSERT INTO dbo.TransizioneStati
VALUES (10, 28, 1, 1)
INSERT INTO dbo.TransizioneStati
VALUES (10, 28, 14, 11)
INSERT INTO dbo.TransizioneStati
VALUES (10, 29, 1, 1)
INSERT INTO dbo.TransizioneStati
VALUES (10, 29, 14, 11)
INSERT INTO dbo.TransizioneStati
VALUES (10, 30, 1, 1)
INSERT INTO dbo.TransizioneStati
VALUES (10, 30, 12, 11)
INSERT INTO dbo.TransizioneStati
VALUES (10, 30, 14, 11)
INSERT INTO dbo.TransizioneStati
VALUES (10, 30, 26, 27)
go
commit transaction
go
set xact_abort on
go
begin transaction
go
DELETE FROM dbo.TransizioneStati WHERE IdxFamiglia=10 and IdxStato=12 and IdxTipo=15
DELETE FROM dbo.TransizioneStati WHERE IdxFamiglia=10 and IdxStato=13 and IdxTipo=16
DELETE FROM dbo.TransizioneStati WHERE IdxFamiglia=10 and IdxStato=13 and IdxTipo=21
DELETE FROM dbo.TransizioneStati WHERE IdxFamiglia=10 and IdxStato=14 and IdxTipo=17
DELETE FROM dbo.TransizioneStati WHERE IdxFamiglia=10 and IdxStato=14 and IdxTipo=20
DELETE FROM dbo.TransizioneStati WHERE IdxFamiglia=10 and IdxStato=14 and IdxTipo=22
DELETE FROM dbo.TransizioneStati WHERE IdxFamiglia=10 and IdxStato=15 and IdxTipo=18
DELETE FROM dbo.TransizioneStati WHERE IdxFamiglia=10 and IdxStato=23 and IdxTipo=23
DELETE FROM dbo.TransizioneStati WHERE IdxFamiglia=10 and IdxStato=24 and IdxTipo=24
DELETE FROM dbo.TransizioneStati WHERE IdxFamiglia=10 and IdxStato=25 and IdxTipo=15
DELETE FROM dbo.TransizioneStati WHERE IdxFamiglia=10 and IdxStato=25 and IdxTipo=25
go
commit transaction
go
set xact_abort on
go
begin transaction
go
set identity_insert dbo.LinkMenuJQM on
go
INSERT INTO dbo.LinkMenuJQM
(idxLink, TipoLink, ordine, Testo, NavigateUrl, icona)
VALUES (12, N'DetMacc', 5, N'Commenti', N'~/Commenti.aspx', N'star')
INSERT INTO dbo.LinkMenuJQM
(idxLink, TipoLink, ordine, Testo, NavigateUrl, icona)
VALUES (13, N'EditMacch', 5, N'Commenti', N'~/Commenti.aspx', N'star')
go
set identity_insert dbo.LinkMenuJQM off
go
commit transaction
go
-- registro versione...
INSERT INTO [dbo].[LogUpdateDb] ([Versione],[Data]) VALUES(401, GETDATE())
GO
SELECT TOP 10 * FROM LogUpdateDb ORDER BY Versione DESC
GO
-- 5 sec su db SteamWare
Reference in New Issue View Git Blame Copy Permalink