9 replies to this topic

[DeeK]

IF EXISTS (SELECT NAME FROM SYSOBJECTS

		   WHERE NAME = 'SP_HISTORICO' AND TYPE = 'P')

   DROP PROCEDURE SP_HISTORICO

GO



CREATE PROCEDURE SP_HISTORICO

	@RELACIONAMENTO_CODIGO VARCHAR(100)

AS BEGIN



	DECLARE @INSTRUCAO VARCHAR(8000)

	DECLARE @DESCRICAO VARCHAR(8000)

	DECLARE @DDD INTEGER

	DECLARE @NUMERO INTEGER

	DECLARE @TIPO INTEGER

	DECLARE @DDD_AUX INTEGER

	DECLARE @NUMERO_AUX INTEGER

	DECLARE @TIPO_AUX INTEGER



	-- CRIA CURSOR DA TABELA ORIGINAL

	SET @INSTRUCAO = 'DECLARE RELACIONAMENTOS_TELEFONES CURSOR FOR'

	SET @INSTRUCAO = @INSTRUCAO + ' SELECT DDD,NUMERO,TIPO FROM RELACIONAMENTOS_TELEFONES WHERE RELACIONAMENTO_CODIGO = ' + @RELACIONAMENTO_CODIGO

	EXECUTE(@INSTRUCAO)



	-- ABRE CURSOR DA TABELA ORIGINAL

	DECLARE @TEMPORARIA TABLE(

   	DDD INTEGER,

	 	NUMERO INTEGER,

	   	TIPO INTEGER)

  

	OPEN RELACIONAMENTOS_TELEFONES

	FETCH NEXT FROM RELACIONAMENTOS_TELEFONES INTO  @DDD,@NUMERO,@TIPO



	-- CRIA CURSOR DA TABELA AUXILIAR

	SET @INSTRUCAO = 'DECLARE RELACIONAMENTOS_SITE_TELEFONES CURSOR FOR'

	SET @INSTRUCAO = @INSTRUCAO + ' SELECT DDD,NUMERO,TIPO FROM RELACIONAMENTOS_SITE_TELEFONES WHERE RELACIONAMENTO_CODIGO = '+ @RELACIONAMENTO_CODIGO

	EXECUTE(@INSTRUCAO)



	DECLARE @TEMPORARIA2 TABLE (

		DDD_AUX INTEGER,

		NUMERO_AUX INTEGER,

		  TIPO_AUX INTEGER)



   OPEN RELACIONAMENTOS_SITE_TELEFONES

	FETCH NEXT FROM RELACIONAMENTOS_SITE_TELEFONES INTO @DDD_AUX,@NUMERO_AUX,@TIPO_AUX



	WHILE @@FETCH_STATUS = 0

		  BEGIN

			PRINT(@NUMERO)

	

			IF @NUMERO <> @NUMERO_AUX

				SET @DESCRICAO = '[ALTERADO CAMPO NÚMERO DE TELEFONE -- DE: '+@NUMERO+' PARA: '+@NUMERO_AUX

			ELSE IF @DDD <> @DDD_AUX

				SET @DESCRICAO = @DESCRICAO +  '][ALTERADO CAMPO DDD -- DE: '+@DDD+' PARA: '+@DDD_AUX

			ELSE IF @TIPO <> @TIPO_AUX

				SET @DESCRICAO = @DESCRICAO +  '][ALTERADO CAMPO TIPO -- DE: '+@TIPO+' PARA: '+@TIPO_AUX+']'

			END

	

			FETCH NEXT FROM RELACIONAMENTOS_SITE_TELEFONE INTO @DDD, @NUMERO, @TIPO

			FETCH NEXT FROM RELACIONAMENTOS_TELEFONES INTO @DDD_AUX, @NUMERO_AUX, @TIPO_AUX

		END



  SET @INSTRUCAO = 'INSERT INTO(RELACIONAMENTO_CODIGO,FUNCIONARIO_CODIGO,DATA,DESCRICAO,TIPO_HISTORICO_CODIGO,DATA_EVENTO)'

  SET @INSTRUCAO = @INSTRUCAO + 'VALUES('+@RELACIONAMENTO_CODIGO+',1,'+GETDATE()+','+@DESCRICAO+','+2+','+GETDATE()+')'

  EXECUTE(@INSTRUCAO)



  CLOSE RELACIONAMENTOS_TELEFONES

  DEALLOCATE RELACIONAMENTOS_TELEFONES



  CLOSE RELACIONAMENTOS_SITE_TELEFONES

  DEALLOCATE RELACIONAMENTOS_SITE_TELEFONES



--EXEC SP_HISTORICO 5703

[§ Kenshin §]

Oi,

Na linha seguinte:

WHILE @@FETCH_STATUS = 0

Por acaso esse FETCH_STATUS sai de 0 em algum momento?

Se não sai, então vai ficar em loop infinito mesmo.

PS: iniciando no SQL Server...

vlw,

[LarPhozyHah]

What Is Tinidazole 500mg Used For online pharmacy Brand Levitra For Sale Online Find Acticin Cheap In Usa With Next Day Delivery

[LarPhozyHah]

Elocon Mail Order cialis online Propecia How To Make Hair Grow Amoxicillin Dairy Products Viagra Sous La Langue
Levitra Vs Viagra Vs Cialis cialis online Amoxicillin 400
Comprar Cialis En Internet cialis Levitra Online Cheap Kamagra Oral Jelly 5mg Propecia Secondary Effects Men

[LarPhozyHah]

Venta De Cialis Barcelona online pharmacy Clomid Amenorrhee Buy Woma Viagra In Canada
Pharmaceuticals Viagra viagra online prescription Buy Tamoxifen Citrate In Australia Recherche Cialis Forum Does Augmentin Work Better Than Amoxicillin
Priligy Sildenafil Dapoxetine viagra 69 Cent.Viagra

[HaroNism]

Cialis 20 Mg Daily Use levitra on line Propecia Daily Dose

[RonsisM]

Cialis Buy Viagra Sildenafil Citrate 100mg buy viagra Tamoxifen Bodybuilding Acyclovir 400mg From Canada Doxcycline No Prescription

[LarPhozyHah]

Web Md Keflex Dosage buy viagra Buy Xanical Online No Script Cephalexin Is A Strong Anti Biotic Moltrin 800 For Sale
Dapoxetine Purchase Achat Cialis Canada non prescription levitra Buy Alli Online Cialis 10 Mg Cost
Pacific Care Pharmacy Port Vila Vanuatu Propecia Alergia Notas De Propecia order on line levitra Amoxil Dosing Guidelines Chap Viagra Propecia Preparacion
Get Clobetasol Break 25 Mg Viagra viagra Cheaper Alternative To Levitra Dexamethasone Over Counter

[Miguceamma]

Generic Cialis Professional Paypal viagra prescription Low Prices Flagyl In Chula Vista

[RonsisM]

Viagra No Prescriptions generic viagra Buy Prevacid Tamoxifen Order Online Viagra En La Farmacia Sin Receta