DECLARE @TipoIvaNovo NVARCHAR(3)
DECLARE @TipoIvaAnterior NVARCHAR(3)
DECLARE @TipoIvaExpirado NVARCHAR(20)

SET @TipoIvaNovo = '' --Indicar código do novo tipo de IVA
SET @TipoIvaAnterior = '' --Indicar o código do tipo de IVA a alterar
SET @TipoIvaExpirado = (
		SELECT CASE 
				WHEN (
						ESPFIS = 3
						AND DTLIMIT IS NULL
						)
					THEN CODIGO
				ELSE 'Código Inválido'
				END
		FROM RGIVA
		WHERE CODIGO = @TipoIvaAnterior
		)

IF @TipoIvaExpirado <> 'Código Inválido'
BEGIN
	INSERT INTO [RGIVA] (
		[CODIGO]
		,[DESCR]
		,[TX1]
		,[TX2]
		,[TX3]
		,[TX4]
		,[MERCADO]
		,[I1]
		,[I2]
		,[I3]
		,[I4]
		,[ESPFIS]
		,[OBSFISC]
		,[DTLIMIT]
		,[ISO3166]
		,[MOTIVO_ISENCAO_TX1]
		,[MOTIVO_ISENCAO_TX2]
		,[MOTIVO_ISENCAO_TX3]
		,[MOTIVO_ISENCAO_TX4]
		)
	SELECT @TipoIvaNovo
		,[DESCR]
		,0
		,4
		,9
		,16
		,[MERCADO]
		,[I1]
		,[I2]
		,[I3]
		,[I4]
		,[ESPFIS]
		,[OBSFISC]
		,[DTLIMIT]
		,[ISO3166]
		,[MOTIVO_ISENCAO_TX1]
		,[MOTIVO_ISENCAO_TX2]
		,[MOTIVO_ISENCAO_TX3]
		,[MOTIVO_ISENCAO_TX4]
	FROM RGIVA
	WHERE CODIGO = @TipoIvaExpirado
		AND ESPFIS = 3
		AND DTLIMIT IS NULL

	UPDATE RGIVA
	SET DTLIMIT = '06-30-2021'
	WHERE CODIGO = @TipoIvaExpirado
		AND ESPFIS = 3
		AND DTLIMIT IS NULL
		
	UPDATE PARAMAPL
	SET REGIVANC = @TipoIvaNovo
	WHERE REGIVANC = @TipoIvaExpirado

	UPDATE CLIENTES
	SET REGIVA = @TipoIvaNovo
	WHERE REGIVA = @TipoIvaExpirado

	UPDATE FORNEC
	SET REGIVA = @TipoIvaNovo
	WHERE REGIVA = @TipoIvaExpirado

	UPDATE DOCGCCAB
	SET REGIME_NOVO = @TipoIvaNovo
	WHERE RGIVA = @TipoIvaExpirado
		AND AREAG IN (
			0
			,1
			,2
			,3
			,4
			)
		AND TPTERC <> 3
		AND LIGCT = 0
		AND [CONVERT] <> - 1
		AND ACREDITO<>-1
		AND NVIAS<>-1
		

	UPDATE NOMSERIE
	SET REGIME = @TipoIvaNovo
	WHERE REGIME = @TipoIvaExpirado

	INSERT INTO [dbo].[GRCONTMV] (
		[TPDOC]
		,[TERCCT]
		,[COMPRART]
		,[CTFINANC]
		,[CTDESCCB]
		,[CTDESCLI]
		,[CTIMPST]
		,[CTANIPST]
		,[CTANIPDV]
		,[REGIME_IVA]
		,[TIPO_IVA]
		,[EXERCICIO]
		,[CONTA_INVENTARIO]
		)
	SELECT [TPDOC]
		,[TERCCT]
		,[COMPRART]
		,[CTFINANC]
		,[CTDESCCB]
		,[CTDESCLI]
		,[CTIMPST]
		,[CTANIPST]
		,[CTANIPDV]
		,@TipoIvaNovo
		,[TIPO_IVA]
		,[EXERCICIO]
		,[CONTA_INVENTARIO]
	FROM GRCONTMV
	WHERE REGIME_IVA = @TipoIvaExpirado
		AND EXERCICIO = 2021

	INSERT INTO [GREGIVA] (
		[TPBEM]
		,[TXIVA]
		,[REGIVA]
		,[CONTA]
		,[TPOPER]
		,[CODIVA]
		,[EXERCICIO]
		,[CONTA_NAO_EXIGIVEL]
		)
	SELECT [TPBEM]
		,[TXIVA]
		,@TipoIvaNovo
		,[CONTA]
		,[TPOPER]
		,[CODIVA]
		,[EXERCICIO]
		,[CONTA_NAO_EXIGIVEL]
	FROM GREGIVA
	WHERE REGIVA = @TipoIvaExpirado
		AND EXERCICIO = 2021
END
ELSE
	PRINT @TipoIvaExpirado