-- -- Eventi per update a vers 5.0 (Jetco) UPDATE LinkMenuJQM SET Testo = 'User' ,NavigateUrl = '~/User.aspx' ,icona = 'fa-user' WHERE idxLink=14 OR Testo='Logout' GO UPDATE LinkMenuJQM SET NavigateUrl = '~/Fermate.aspx' WHERE Testo = 'Fermate' GO /* TAB Registro controlli */ /****** Object: Table [dbo].[RegistroControlli] Script Date: 13/03/2018 18:30:04 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO CREATE TABLE [dbo].[RegistroControlli]( [IdxControllo] [int] IDENTITY(1,1) NOT NULL, [DataOra] [datetime] NOT NULL, [IdxMacchina] [nvarchar](50) NOT NULL, [IdxODL] [int] NOT NULL, [CodArticolo] [nvarchar](50) NOT NULL, [MatrOpr] [int] NOT NULL, [EsitoOK] [bit] NOT NULL, [Note] [nvarchar](250) NOT NULL, CONSTRAINT [PK_RegistroControlli] PRIMARY KEY CLUSTERED ( [IdxControllo] ASC )WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON [PRIMARY] ) ON [PRIMARY] GO ALTER TABLE [dbo].[RegistroControlli] ADD CONSTRAINT [DF_RegistroControlli_CodArticolo] DEFAULT ('-') FOR [CodArticolo] GO ALTER TABLE [dbo].[RegistroControlli] ADD CONSTRAINT [DF_RegistroControlli_EsitoOK] DEFAULT ((0)) FOR [EsitoOK] GO ALTER TABLE [dbo].[RegistroControlli] ADD CONSTRAINT [DF_RegistroControlli_Note] DEFAULT ('') FOR [Note] GO EXEC sys.sp_addextendedproperty @name=N'MS_Description', @value=N'matricola dell''approvatore del record' , @level0type=N'SCHEMA',@level0name=N'dbo', @level1type=N'TABLE',@level1name=N'RegistroControlli', @level2type=N'COLUMN',@level2name=N'MatrOpr' GO /************************************* * STORED PROCEDURE stp_RC_getByFilt * * modif.: Steamware * modif: 2018.03.12 recupero elenco controlli filtrato **************************************/ CREATE PROCEDURE [dbo].[stp_RC_getByFilt] ( @IdxMacchina NVARCHAR(50) = 0, @DataFrom DATETIME = NULL, @DataTo DATETIME = NULL ) AS BEGIN SET NOCOUNT ON; SET XACT_ABORT ON; IF @DataFrom IS NULL SET @DataFrom = DATEADD(YEAR, -1,GETDATE()) IF @DataTo IS NULL SET @DataTo = GETDATE() -- recupero da tab ODL il codice odl stesso e l'articolo data macchina e data/ora... SELECT * FROM v_RegistroControlli WHERE IdxMacchina = CASE WHEN @IdxMacchina = 0 THEN IdxMacchina ELSE @IdxMacchina END AND DataOra BETWEEN @DataFrom AND @DataTo ORDER BY DataOra DESC END GO /************************************* * STORED PROCEDURE stp_RC_insert * * registra i controlli di produzione OK / KO (con note) * * * modif.: Steamware * modif: 2018.03.12 gestione x Jetco controlli **************************************/ CREATE PROCEDURE [dbo].[stp_RC_insert] ( @IdxMacchina NVARCHAR(50), @MatrOpr INT, @EsitoOk BIT, @Note NVARCHAR(50), @DataOra DATETIME = NULL ) AS BEGIN SET NOCOUNT ON; SET XACT_ABORT ON; IF @DataOra IS NULL SET @DataOra = GETDATE() -- imposto valori accessori DECLARE @IdxODL INT = 0 DECLARE @CodArticolo NVARCHAR(50) = 'ND' -- recupero da tab ODL il codice odl stesso e l'articolo data macchina e data/ora... SELECT @IdxODL = ISNULL(IdxODL,0), @CodArticolo = ISNULL(CodArticolo,'-') FROM ODL WHERE IdxMacchina = @IdxMacchina AND DataInizio <= @DataOra AND ISNULL(DataFine, GETDATE()) >= @DataOra -- verifica parametri... --SELECT @DataOra, @IdxMacchina, @IdxODL, @CodArticolo, @MatrOpr, @EsitoOk, @Note -- insert valori! INSERT INTO RegistroControlli (DataOra,IdxMacchina,IdxODL,CodArticolo,MatrOpr,EsitoOK,Note) VALUES (@DataOra, @IdxMacchina, @IdxODL, @CodArticolo, @MatrOpr, @EsitoOk, @Note) END GO