Samuele E. Locatelli
308 lines
8.1 KiB
Transact-SQL
308 lines
8.1 KiB
Transact-SQL
set xact_abort on
|
|
go
|
|
|
|
begin transaction
|
|
go
|
|
|
|
INSERT INTO dbo.AnagBilance
|
|
VALUES (N'FI', N'Finiti', N'TK')
|
|
go
|
|
|
|
commit transaction
|
|
go
|
|
|
|
|
|
create table Config(
|
|
chiave nvarchar(50) not null constraint PK_Config primary key,
|
|
valore nvarchar(250)
|
|
);
|
|
go
|
|
|
|
|
|
set xact_abort on
|
|
go
|
|
|
|
begin transaction
|
|
go
|
|
|
|
INSERT INTO dbo.Config
|
|
VALUES (N'AmbienteAs400', N'Test')
|
|
go
|
|
|
|
commit transaction
|
|
go
|
|
|
|
|
|
create index IX_RigheListePrelievo_UDC on RigheListePrelievo(UDC);
|
|
go
|
|
|
|
|
|
set ANSI_NULLS on;
|
|
go
|
|
|
|
-- =============================================
|
|
-- Author: Gcarlo
|
|
-- Create date:
|
|
-- Description: In base al database corrente passato ritorno la corretta libreria di AS400
|
|
-- che deve essere utilizzata
|
|
-- =============================================
|
|
create FUNCTION f_getLibreriaAS400
|
|
(
|
|
@CurrentDB nVarchar(128)
|
|
,@Function nVarchar(50)
|
|
)
|
|
RETURNS nvarchar(100)
|
|
AS
|
|
BEGIN
|
|
-- FORSE MEGLIO USARE IL NOME DELLA STORED CHE LA RICHIAMA CON ... nella stored che la richiama
|
|
-- DECLARE @StoredName AS NVARCHAR(256);
|
|
-- SET @StoredName = OBJECT_SCHEMA_NAME(@@PROCID) + '.' + OBJECT_NAME(@@PROCID)
|
|
-- Declare the return variable here
|
|
DECLARE @As400File nvarchar(100)
|
|
|
|
-- Valorizzo la corretta libreria in base al database passato
|
|
SET @As400File =
|
|
CASE
|
|
WHEN @Function = 'XOGIX' THEN -- Materia Prima - Rapporti Qualità
|
|
CASE
|
|
-- S.POSSIDONIO
|
|
WHEN ( @CurrentDB = 'SP_GMW' ) THEN 'POSN_DATV3.XOGIX00F'
|
|
WHEN ( @CurrentDB = 'SP_GMWTest' ) THEN 'MAZZT_DTV3.XOGIX00F' -- TEST SP
|
|
-- TEKAL
|
|
WHEN ( @CurrentDB = 'TK_GMW' ) THEN 'TEKA_DATV3.XOGIX00F'
|
|
WHEN ( @CurrentDB = 'TK_GMWTest' ) THEN 'MAZZT_DTV3.XOGIX00F' -- TEST TEKAL
|
|
END
|
|
|
|
WHEN @Function = 'REGMOVMAG' THEN -- Registrazione Movimenti Magazzino
|
|
CASE
|
|
-- S.POSSIDONIO
|
|
WHEN ( @CurrentDB = 'SP_GMW' ) THEN 'POSN_DATV3...'
|
|
WHEN ( @CurrentDB = 'SP_GMWTest' ) THEN 'MAZZT_DTV3.MWMV230F' -- TEST SP
|
|
-- TEKAL
|
|
WHEN ( @CurrentDB = 'TK_GMW' ) THEN 'TEKA_DATV3.MWMV260F'
|
|
WHEN ( @CurrentDB = 'TK_GMWTest' ) THEN 'MAZZT_DTV3.MWMV230F' -- TEST TEKAL
|
|
END
|
|
END
|
|
|
|
-- Return the result of the function
|
|
RETURN @As400File
|
|
|
|
END
|
|
go
|
|
|
|
-- =============================================
|
|
-- Author: Gcarlo
|
|
-- Create date:
|
|
-- Description: In base al database corrente passato ritorno il corretto linked Server AS400
|
|
-- =============================================
|
|
create FUNCTION f_getLikedAS400
|
|
(
|
|
@CurrentDB nVarchar(128) -- Database Corrente
|
|
)
|
|
RETURNS nvarchar(50)
|
|
AS
|
|
BEGIN
|
|
-- Declare the return variable here
|
|
DECLARE @As400File nvarchar(50)
|
|
|
|
-- Valorizzo la corretta libreria in base al database passato
|
|
SET @As400File =
|
|
CASE
|
|
-- LINKED SERVER AS400 S.POSSIDONIO
|
|
WHEN ( LEFT(@CurrentDB,3) = 'SP_' ) THEN 'AS400POSS' -- S.POSSIDONIO
|
|
-- LINKED SERVER AS400 TEKAL
|
|
WHEN ( LEFT(@CurrentDB,3) = 'TK_' ) THEN 'AS400TEKAL' -- TEKAL
|
|
END
|
|
|
|
-- Return the result of the function
|
|
RETURN @As400File
|
|
|
|
END
|
|
go
|
|
|
|
|
|
set xact_abort on;
|
|
go
|
|
|
|
begin transaction;
|
|
go
|
|
|
|
set ANSI_NULLS on;
|
|
go
|
|
|
|
/***************************************
|
|
* STORED stp_prtCartFinitiByUDC
|
|
*
|
|
* ottiene il record del Cartellino FINITI dato l'UDC richiesto x la stampa
|
|
*
|
|
* Steamware, S.E.L.
|
|
* mod: 2013.02.11
|
|
*
|
|
****************************************/
|
|
create PROCEDURE stp_prtCartFinitiByUDC
|
|
(
|
|
@UDC NVARCHAR(50)
|
|
)
|
|
AS
|
|
|
|
-- estraggo i trattamenti nelle note ( x max 10 trattamenti )
|
|
DECLARE @tmp NVARCHAR(500)
|
|
DECLARE @NoteTratt NVARCHAR(500)
|
|
SET @NoteTratt = ''
|
|
|
|
-- SET @NoteTratt = (SELECT SUBSTRING(@tmp, 0, LEN(@tmp)))
|
|
|
|
-- ora seleziono i dati veri e propri
|
|
SELECT
|
|
ElencoCartellini.UDC, ElencoCartellini.CodCS, ISNULL(ElencoCartellini.CodCliente, N'') AS codcliente,
|
|
ISNULL(ElencoCartellini.RagSociale, N'') AS ragsociale, ISNULL(ElencoCartellini.Particolare, N'') AS particolare,
|
|
ISNULL(ElencoCartellini.DescParticolare, N'') AS DescParticolare, ISNULL(ElencoCartellini.DisegnoGrezzo, N'') AS DisegnoGrezzo,
|
|
ISNULL(ElencoCartellini.Esponente, N'') AS esponente, ISNULL(ElencoCartellini.CodImpianto, N'') AS CodImpianto,
|
|
ISNULL(ElencoCartellini.DescImpianto, N'') AS DescImpianto, ISNULL(ElencoCartellini.CodStampo, N'') AS codstampo,
|
|
ISNULL(ElencoCartellini.Figura, N'') AS figura, ISNULL(ElencoCartellini.DataFus, N'') AS datafus,
|
|
ISNULL(ElencoCartellini.TurnoFus, N'') AS turnofus, ISNULL(ElencoCartellini.CodImballo, N'') AS CodImballo,
|
|
ISNULL(ElencoCartellini.CodSoggetto, N'') AS CodSoggetto, ISNULL(ElencoCartellini.NumCont, N'') AS NumCont,
|
|
ISNULL(ElencoCartellini.Tara, N'') AS tara, ISNULL(ElencoCartellini.Qta, N'') AS qta, ISNULL(ElencoCartellini.CodStato, N'') AS CodStato,
|
|
ISNULL(ElencoCartellini.IdxPosizione, N'') AS IdxPosizione,
|
|
ISNULL(ElencoCartellini.PesoTot, N'') AS PesoTot, ISNULL(ElencoCartellini.PesoCad, N'') AS PesoCad, ElencoCartellini.CreateDate,
|
|
ElencoCartellini.ModDate, ISNULL(RilPro.AnagOperatori.Cognome, N'') AS cognome,
|
|
ISNULL(RilPro.AnagOperatori.Nome, N'') AS nome, ISNULL(AnagStatiProdotto.DescStato, N'') AS DescStato,
|
|
ISNULL(RilPro.AnagImballi.DescImballo, N'') AS DescImballo, RilPro.AnagParticolari.CodFamiglia, RilPro.AnagFamiglie.DescFamiglia,
|
|
ISNULL(ElencoCartellini.Note, N'') AS Note, @NoteTratt AS NoteTratt
|
|
FROM
|
|
RilPro.AnagParticolari
|
|
LEFT OUTER JOIN
|
|
RilPro.AnagFamiglie
|
|
ON
|
|
RilPro.AnagParticolari.CodFamiglia = RilPro.AnagFamiglie.CodFamiglia
|
|
RIGHT OUTER JOIN
|
|
ElencoCartellini
|
|
ON
|
|
RilPro.AnagParticolari.Particolare = ElencoCartellini.Particolare
|
|
LEFT OUTER JOIN
|
|
AnagStatiProdotto
|
|
ON
|
|
ElencoCartellini.CodStato = AnagStatiProdotto.CodStato
|
|
LEFT OUTER JOIN
|
|
RilPro.AnagOperatori
|
|
ON
|
|
ElencoCartellini.CodSoggetto = RilPro.AnagOperatori.CodSoggetto
|
|
LEFT OUTER JOIN
|
|
RilPro.AnagImballi
|
|
ON
|
|
ElencoCartellini.CodImballo = RilPro.AnagImballi.CodImballo
|
|
WHERE
|
|
(ElencoCartellini.UDC = @UDC)
|
|
|
|
|
|
RETURN
|
|
go
|
|
|
|
commit;
|
|
go
|
|
|
|
|
|
|
|
set xact_abort on
|
|
go
|
|
|
|
begin transaction
|
|
go
|
|
|
|
UPDATE dbo.Permessi SET
|
|
NUMERO=1
|
|
WHERE COD_PERMESSO='POST_anime'
|
|
UPDATE dbo.Permessi SET
|
|
NUMERO=2
|
|
WHERE COD_PERMESSO='POST_anime_mult'
|
|
UPDATE dbo.Permessi SET
|
|
NUMERO=99
|
|
WHERE COD_PERMESSO='POST_anime_SAO'
|
|
INSERT INTO dbo.Permessi
|
|
VALUES ('POST_finiti', 'finitiTK.aspx', 4, 5, 'PostFiniti', 'PostFinitiExpl')
|
|
UPDATE dbo.Permessi SET
|
|
NUMERO=3
|
|
WHERE COD_PERMESSO='POST_fusi'
|
|
UPDATE dbo.Permessi SET
|
|
NUMERO=4
|
|
WHERE COD_PERMESSO='POST_fusiCons'
|
|
go
|
|
|
|
commit transaction
|
|
go
|
|
|
|
|
|
set xact_abort on
|
|
go
|
|
|
|
begin transaction
|
|
go
|
|
|
|
DELETE FROM dbo.Permessi2Funzione WHERE COD_PERMESSO='ADMIN_stampanti' and COD_FUNZIONE=N'GMW_Admin'
|
|
go
|
|
|
|
commit transaction
|
|
go
|
|
|
|
|
|
set xact_abort on
|
|
go
|
|
|
|
begin transaction
|
|
go
|
|
|
|
INSERT INTO dbo.Permessi2Funzione
|
|
VALUES ('ADMIN_stampanti', N'GMW_admin', 'S')
|
|
INSERT INTO dbo.Permessi2Funzione
|
|
VALUES ('LAB', N'GMW_Admin', 'S')
|
|
INSERT INTO dbo.Permessi2Funzione
|
|
VALUES ('LAB_consumaUdc', N'GMW_Admin', 'S')
|
|
INSERT INTO dbo.Permessi2Funzione
|
|
VALUES ('LAB_stampaUdc', N'GMW_Admin', 'S')
|
|
INSERT INTO dbo.Permessi2Funzione
|
|
VALUES ('MAG', N'GMW_Admin', 'S')
|
|
INSERT INTO dbo.Permessi2Funzione
|
|
VALUES ('MAG_block', N'GMW_Admin', 'S')
|
|
INSERT INTO dbo.Permessi2Funzione
|
|
VALUES ('MAG_delibere', N'GMW_Admin', 'S')
|
|
INSERT INTO dbo.Permessi2Funzione
|
|
VALUES ('MAG_elListe', N'GMW_Admin', 'S')
|
|
INSERT INTO dbo.Permessi2Funzione
|
|
VALUES ('MAG_mag', N'GMW_Admin', 'S')
|
|
INSERT INTO dbo.Permessi2Funzione
|
|
VALUES ('MAG_odette', N'GMW_Admin', 'S')
|
|
INSERT INTO dbo.Permessi2Funzione
|
|
VALUES ('MAG_search', N'GMW_Admin', 'S')
|
|
INSERT INTO dbo.Permessi2Funzione
|
|
VALUES ('POST', N'GMW_Admin', 'S')
|
|
INSERT INTO dbo.Permessi2Funzione
|
|
VALUES ('POST_anime', N'GMW_Admin', 'S')
|
|
INSERT INTO dbo.Permessi2Funzione
|
|
VALUES ('POST_anime_mult', N'GMW_Admin', 'S')
|
|
INSERT INTO dbo.Permessi2Funzione
|
|
VALUES ('POST_finiti', N'GMW_Admin', 'S')
|
|
INSERT INTO dbo.Permessi2Funzione
|
|
VALUES ('POST_finiti', N'GMW_finitiTK', 'S')
|
|
INSERT INTO dbo.Permessi2Funzione
|
|
VALUES ('POST_fusi', N'GMW_Admin', 'S')
|
|
INSERT INTO dbo.Permessi2Funzione
|
|
VALUES ('POST_fusiCons', N'GMW_Admin', 'S')
|
|
go
|
|
|
|
commit transaction
|
|
go
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
-- registro versione...
|
|
INSERT INTO [dbo].[LogUpdateDb] ([Versione],[Data]) VALUES(530, GETDATE())
|
|
GO
|
|
SELECT TOP 5 * FROM LogUpdateDb ORDER BY Versione DESC
|
|
GO
|