Files
GMW/GMW_data/SqlScripts/V1.1/GMW_00299.sql
T
Samuele E. Locatelli bdd7b413e8 Riaggiunto GMW_data
2016-11-22 17:58:00 +01:00

140 lines
2.2 KiB
Transact-SQL

set xact_abort on
go
begin transaction
go
alter table AnagPosizioni add
IsRiattivaEnabled bit constraint DF_AnagPosizioni_IsRiattivaEnabled default (0)
go
update AnagPosizioni set IsRiattivaEnabled=0
go
set ANSI_NULLS on
go
/***************************************
* STORED stp_riattivaUdc
*
* riattiva un dato UDC (da mag consumato negativo a corrispettivo positivo) --> se era positivo NON FA NULLA!!! (perchè uso ABS e controllo sia < 0)
*
* Steamware, S.E.L.
* mod: 2010.11.04
*
****************************************/
create PROCEDURE stp_riattivaUdc
(
@UDC VARCHAR(20),
@CodSoggetto NVARCHAR(17)
)
AS
DECLARE @CodEvento VARCHAR(10)
DECLARE @CodTipoDichiaraz VARCHAR(1)
SET @CodEvento = 'UDC_RIA'
SET @CodTipoDichiaraz = 'U'
BEGIN TRAN
-- faccio update
UPDATE ElencoCartellini
SET IdxPosizione = ABS(IdxPosizione), ModDate=GETDATE(), CodSoggetto = @CodSoggetto
WHERE UDC = @UDC AND IdxPosizione IN (SELECT IdxPosizione FROM AnagPosizioni WHERE (IsRiattivaEnabled = 1)
)
COMMIT TRAN
RETURN
go
commit
go
set xact_abort on
go
begin transaction
go
UPDATE dbo.AnagPosizioni SET
IsRiattivaEnabled=1
WHERE IdxPosizione=-84
go
commit transaction
go
set xact_abort on
go
begin transaction
go
INSERT INTO dbo.AnagTipoEvento
VALUES (N'UDC_COMP', N'Compensazione per rettifica UDC')
INSERT INTO dbo.AnagTipoEvento
VALUES (N'UDC_RIA', N'Riattivazione UDC x gestione (se cancellato)')
go
commit transaction
go
set xact_abort on
go
begin transaction
go
set ANSI_NULLS on
go
/***************************************
* STORED stp_sbloccaUdc
*
* sblocca un dato UDC per modifica
*
* Steamware, S.E.L.
* mod: 2010.04.28
*
****************************************/
alter PROCEDURE stp_sbloccaUdc
(
@UDC VARCHAR(20),
@CodSoggetto NVARCHAR(17)
)
AS
DECLARE @CodEvento VARCHAR(10)
DECLARE @CodTipoDichiaraz VARCHAR(1)
SET @CodEvento = 'UDC_SBL'
SET @CodTipoDichiaraz = 'U'
BEGIN TRAN
-- faccio update
UPDATE ElencoCartellini
SET ModDate = GETDATE(), CodSoggetto = @CodSoggetto
WHERE UDC = @UDC
COMMIT TRAN
RETURN
go
commit
go
-- registro versione...
INSERT INTO [dbo].[LogUpdateDb] ([Versione],[Data]) VALUES(299, GETDATE())
GO