Jump to content


Photo

While Infinito


  • Faça o login para participar
9 replies to this topic

#1 DeeK

DeeK

    Normal

  • Usuários
  • 63 posts
  • Sexo:Masculino

Posted 11/08/2009, 08:43

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


#2 § Kenshin §

§ Kenshin §

    I'm coming back...!

  • Usuários
  • 574 posts
  • Sexo:Masculino
  • Localidade:BA
  • Interesses:Sou fã de linguagens direcionadas para a web, como php, (x)html, xml, wml.
    Também gosto de webdesign e ultimamente tenho me dedicado mais a aprender css, mysql, javascript, ajax e actionscript.
    Trabalho com os programas Dreamweaver, Illustrator e Flash.

Posted 12/08/2009, 12:23

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,
Web Developer / Web Designer / Information Architect
"Living to learn... learning to live!"
Useful links: Rules | Search

#3 LarPhozyHah

LarPhozyHah

    Super Veterano

  • Usuários
  • 14515 posts
  • Sexo:Masculino
  • Localidade:San Miguel de Tucuman

Posted 23/09/2017, 22:07

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

#4 LarPhozyHah

LarPhozyHah

    Super Veterano

  • Usuários
  • 14515 posts
  • Sexo:Masculino
  • Localidade:San Miguel de Tucuman

Posted 30/09/2017, 07:16

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

#5 LarPhozyHah

LarPhozyHah

    Super Veterano

  • Usuários
  • 14515 posts
  • Sexo:Masculino
  • Localidade:San Miguel de Tucuman

Posted 09/10/2017, 22:47

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

#6 HaroNism

HaroNism

    Super Veterano

  • Usuários
  • 13822 posts
  • Sexo:Masculino
  • Localidade:San Miguel de Tucuman

Posted 23/10/2017, 12:06

Cialis 20 Mg Daily Use levitra on line Propecia Daily Dose

#7 RonsisM

RonsisM

    Super Veterano

  • Usuários
  • 15724 posts
  • Sexo:Masculino
  • Localidade:Plovdiv

Posted 31/10/2017, 10:57

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

#8 LarPhozyHah

LarPhozyHah

    Super Veterano

  • Usuários
  • 14515 posts
  • Sexo:Masculino
  • Localidade:San Miguel de Tucuman

Posted 05/11/2017, 20:11

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

#9 Miguceamma

Miguceamma

    MiguPenjisse

  • Usuários
  • 11724 posts

Posted 21/11/2017, 20:46

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

#10 RonsisM

RonsisM

    Super Veterano

  • Usuários
  • 15724 posts
  • Sexo:Masculino
  • Localidade:Plovdiv

Posted 28/11/2017, 22:45

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




1 user(s) are reading this topic

0 membro(s), 1 visitante(s) e 0 membros anônimo(s)

IPB Skin By Virteq