Completata gestione elenco commesse con KG schedulati

2018-03-23 17:05:18 +01:00
parent c0bfc21e05
commit 3e528174e3
16 changed files with 1568 additions and 222 deletions
@@ -56,3 +56,151 @@ FROM	cteImpGG i
 	INNER JOIN AnagLav al ON al.IdxLav=i.IdxLav

 RETURN
+
+SET ANSI_NULLS ON
+GO
+SET QUOTED_IDENTIFIER ON
+GO
+
+/***************************************
+* STORED stp_AnagCliGetByKey
+*
+* ottiene record anagrafica clienti da chiave
+*
+* Steamware, S.E.L.
+* mod: 2018.03.23
+*
+****************************************/
+create PROCEDURE [dbo].[stp_AnagLav]
+(
+	@IdxLav	NVARCHAR(50)
+)
+AS
+
+SELECT	*
+FROM	AnagLav
+WHERE	IdxLav	= @IdxLav
+
+RETURN
+
+
+
+/****** Object:  StoredProcedure [dbo].[stp_IstObj_updateStatoTree]    Script Date: 23/03/2018 15:28:31 ******/
+SET ANSI_NULLS ON
+GO
+
+SET QUOTED_IDENTIFIER ON
+GO
+
+
+/***************************************
+* STORED stp_IstObj_updateStatoTree
+*
+* aggiorna stato di un intero ramo
+*
+* Steamware, S.E.L.
+* mod: 2011.10.27
+*
+****************************************/
+ALTER PROCEDURE [dbo].[stp_IstObj_updateStatoTree]
+(
+	@CodStato		NVARCHAR(50),
+	@UserMod		NVARCHAR(50),
+	@DataMod		DATETIME,
+	@IdxObjCommon	NVARCHAR(50)
+)
+AS
+
+UPDATE  IstObj
+SET		CodStato	= @CodStato, 
+		UserMod		= @UserMod, 
+		DataMod		= @DataMod
+WHERE	IdxObj		LIKE @IdxObjCommon
+
+RETURN
+GO
+
+
+/****** Object:  StoredProcedure [dbo].[stp_IstObj_updateStatoTree]    Script Date: 23/03/2018 15:28:31 ******/
+SET ANSI_NULLS ON
+GO
+
+SET QUOTED_IDENTIFIER ON
+GO
+
+
+/***************************************
+* STORED stp_IstObj_updateStatoPesoEqTree
+*
+* aggiorna stato di un intero ramo + fix peso EQUIVALENTE
+*
+* Steamware, S.E.L.
+* mod: 2011.10.27
+*
+****************************************/
+create PROCEDURE [dbo].[stp_IstObj_updateStatoPesoEqTree]
+(
+	@CodStato		NVARCHAR(50),
+	@UserMod		NVARCHAR(50),
+	@DataMod		DATETIME,
+	@IdxObjCommon	NVARCHAR(50),
+	@EqPeso			FLOAT
+)
+AS
+
+UPDATE  IstObj
+SET		CodStato	= @CodStato, 
+		UserMod		= @UserMod, 
+		DataMod		= @DataMod,
+		PesoEquiv	= @EqPeso * Peso
+WHERE	IdxObj		LIKE @IdxObjCommon
+
+RETURN
+GO
+
+
+/****** Object:  StoredProcedure [dbo].[stp_IstObj_updateStatoPesoEqTree]    Script Date: 23/03/2018 15:51:39 ******/
+SET ANSI_NULLS ON
+GO
+SET QUOTED_IDENTIFIER ON
+GO
+
+
+
+/***************************************
+* STORED stp_IstObj_updateStatoPesoEqTree
+*
+* aggiorna stato di un intero ramo + fix peso EQUIVALENTE
+*
+* Steamware, S.E.L.
+* mod: 2011.10.27
+*
+****************************************/
+ALTER PROCEDURE [dbo].[stp_IstObj_updateStatoPesoEqTree]
+(
+	@CodStato		NVARCHAR(50),
+	@UserMod		NVARCHAR(50),
+	@DataMod		DATETIME,
+	@IdxObjCommon	NVARCHAR(50),
+	@EqPeso			FLOAT
+)
+AS
+
+BEGIN Tran
+	-- recupero valore arrotondamento standard x lavorazione...
+	DECLARE @RoundVal FLOAT = 1
+
+	SELECT	@RoundVal = ISNULL(RoundVal,1)
+	FROM	AnagLav al INNER JOIN IstObj ij ON al.IdxLav=ij.ExtKey
+	WHERE	IdxObj LIKE @IdxObjCommon
+
+	UPDATE  IstObj
+	SET		CodStato	= @CodStato, 
+			UserMod		= @UserMod, 
+			DataMod		= @DataMod,
+			PesoEquiv	= @EqPeso * CEILING(ISNULL(Peso,0) / @RoundVal ) * @RoundVal
+	WHERE	IdxObj		LIKE @IdxObjCommon
+
+COMMIT Tran
+RETURN
+