CREATE PROCEDURE  sp_DovizliTakip (@DovizKodu nvarchar(2),@DovizliTakip bit = 0,@DovizKur float = 1)
AS
BEGIN
	--exec sp_DovizliTakip 'TL'
	Declare @NoId int
	declare @DovizAdi nvarchar(20)

	Select @NoId = NoId,@DovizAdi = DovizAdi from DOVIZT where DovizKodu = @DovizKodu;

	IF @DovizliTakip = 0 
	BEGIN
		/*UPDATE STOKHAR SET DovizCinsi = @NoId,DovizKodu = @DovizKodu,DovizAlacak = A  
		--select DovizCinsi, DovizKodu,DovizAlacak,DovizBorc,DovizKur,DovizTut,DovizTutB from STOKHARDETBAG  
		  select DovizCinsi,DovizKodu from SIPARISHAR    
		  union    
		  select DovizCinsi,DovizKodu from SIPARISHARDETBAG    
		  union    
		  select DovizCinsi,DovizKodu from TEKLIFHAR    
		  union    
		  select DovizCinsi,DovizKodu from TEKLIFHARDETBAG  */
		UPDATE KASAT SET  DovizNoId = @NoId,DovizKodu = @DovizKodu,DovizAdi = @DovizAdi;
		UPDATE ACARI SET  DOVIZCINSI = @NoId,DOVIZKODU = @DovizKodu,DOVIZTUT = BORC + ALACAK,DovizAlacak = ALACAK,DovizBorc = BORC,DovizKur = @DovizKur;
		UPDATE HESAPLAR SET  DovizCinsi = @NoId,DovizKodu = @DovizKodu,DovizAdi = @DovizAdi;
		UPDATE BANKA SET  DovizCinsi = @NoId,DovizKodu = @DovizKodu,DovizBorc = BORC, DovizAlacak = ALACAK, DovizTut = BORC + ALACAK;
		UPDATE BORDRO SET  DovizCinsi = @NoId,DovizKodu = @DovizKodu,DovizBorc = TUTAR;
		UPDATE CEK SET  DovizCinsi = @NoId,DovizKodu = @DovizKodu,DovizBorc = TUTAR,CekParaBirimi = @DovizKodu;
	    UPDATE GELGID SET  DOVIZCINSI = @NoId,DOVIZKODU = @DovizKodu,DOVIZTUT = BORC + ALACAK,DovizAlacak = ALACAK,DovizBorc = BORC,DovizKuru = @DovizKur;
		UPDATE KASA SET  DovizCinsi = @NoId,DovizKodu = @DovizKodu,DovizBorc = BORC, DovizAlacak = ALACAK, DovizTut = BORC + ALACAK,DovizKur = @DovizKur;
		UPDATE Visa SET  DovizCinsi = @NoId,DovizKodu = @DovizKodu,DovizTut = BORC + ALACAK;
	    UPDATE KullaniciAyarlari SET Deger = @DovizAdi where Ayar = 'VarsayilanDovizAdi';
		UPDATE KullaniciAyarlari SET Deger = @NoId where Ayar = 'VarsayilanDovizId';
		UPDATE KullaniciAyarlari SET Deger = @DovizKodu where Ayar = 'VarsayilanDovizKodu';
	END;
END;   
