Files
C2P/C2P_Project/dbo/Stored Procedures/dbo.stp_QL_newRev.sql
T

65 lines
1.8 KiB
Transact-SQL

-- =============================================
-- Author: Steamware
-- Create date: 2014.04.23
-- Description: duplica record QuoteList generando una NUOVA REVISIONE
-- =============================================
CREATE PROCEDURE [dbo].[stp_QL_newRev]
(
@QuoteType CHAR(1) = 'Q',
@CodQuote BIGINT = 0,
@QuoteRev_orig INT = 0
)
AS
-- variabili
DECLARE @QuoteRev INT = 0
SET @QuoteRev = @QuoteRev_orig + 1
SET XACT_ABORT ON;
BEGIN TRAN
-- inserisco riga in QuoteList
INSERT INTO QuoteList(QuoteType, CodQuote, QuoteRev, CodClient, CodItem, UnitWeight, BatchQty, CodItemGroup, RawMat, CodInco, Note)
SELECT QuoteType, @CodQuote, @QuoteRev as QuoteRev, CodClient, CodItem, UnitWeight, BatchQty, CodItemGroup, RawMat, CodInco, Note
FROM QuoteList
WHERE QuoteType = @QuoteType
AND CodQuote = @CodQuote
AND QuoteRev = @QuoteRev_orig
-- ora inserisco in QuoteRM
INSERT INTO QuoteRM(QuoteType, CodQuote, QuoteRev, NumRM, RawMat, RawMatCost, RawMatExtraCost)
SELECT QuoteType, @CodQuote, @QuoteRev as QuoteRev, NumRM, RawMat, RawMatCost, RawMatExtraCost
FROM QuoteRM
WHERE QuoteType = @QuoteType
AND CodQuote = @CodQuote
AND QuoteRev = @QuoteRev_orig
-- se la scheda di destinazione è simulazione
IF(@QuoteType = 'S')
BEGIN
EXEC stp_QL_copyParamS @QuoteType, @QuoteType, @CodQuote, @CodQuote, @QuoteRev, @QuoteRev_orig
END
-- ricalcolo!
EXEC stp_QL_fullDataUpdate @QuoteType
,@CodQuote
,@QuoteRev
,'Y'
-- PATCH 2014/10 rieseguo ricalcolo x problema parametri simulati mancanti in quoteparam
EXEC stp_QL_fullDataUpdate @QuoteType
, @CodQuote
, @QuoteRev
, 'Y'
COMMIT TRAN
-- seleziono intera riga!
SELECT *
FROM QuoteList
WHERE QuoteType = @QuoteType
AND CodQuote = @CodQuote
AND QuoteRev = @QuoteRev
RETURN