DBProject/UpdateScripts/Script_TODO.sql - master - AstroJohn/MailRobot

DBProject/UpdateScripts/Script_TODO.sql
102 строки2 KB
AstroJohn
1st commit
11 сен 2024, 13:31
11 сен 2024, 13:310f57dc5
	--+ Расстановка мест
	
	--+ Переносим многодиапазонные результаты для дополнительных сводных подгрупп (Category Is Null)
	Declare @ID_old Int
	Declare @ID_new Int
	
	Declare @IDs Table
	(
		ID Int Primary Key
	)
	
	Insert @IDs
	Select
		ID
	From LogFiles_BandResults
	Where Band_ID = 0
	
	Declare BR_Cursor Cursor For
	Select
		ID
	From @IDs
	
	Open BR_Cursor
	
	Fetch Next From BR_Cursor
	Into @ID_old
	
	While @@FETCH_STATUS = 0
		Begin
	
			Insert LogFiles_BandResults
			(
				Call,
				Category,
				Band_ID,
				Mode_ID,
				Type,
				QSOs,
				Points,
				Score,
				Place
			)	
			Select
				Call,
				Null,
				Band_ID,
				Mode_ID,
				Type,
				QSOs,
				Points,
				Score,
				Place
			From LogFiles_BandResults
			Where ID = @ID_old
			
			Set @ID_new = ident_current('LogFiles_BandResults')
			
			Insert LogFiles_BandResults_Mults
			(
				ID_Parent,
				Mode_ID,
				Mult,
				Type
			)
			Select 
				@ID_new,
				Mode_ID,
				Mult,
				Type
			From LogFiles_BandResults_Mults
			Where ID_Parent = @ID_old
			
			Fetch Next From BR_Cursor
			Into @ID_old
			
		End
		
	Close BR_Cursor
	Deallocate BR_Cursor
	--/
	
    Update BR
    Set Place = Rank
    From LogFiles_BandResults BR
    Join dbo.LogFiles_BandResults_Select() S On S.ID = BR.ID
    
	-- Для чемпионатов пересчитываем с учетом наличия аудиозаписи    
    If @ContestName = 'RF-CHAMP-SSB'
	    Update BR
	    Set Place = Rank
	    From LogFiles_BandResults BR
	    Join dbo.LogFiles_BandResults_Select_RF_CHAMP() S
	    	On S.ID = BR.ID
    
	-- Для УКВ СПб пересчитываем с учетом наличия 10 подтверждденных QSO на 432 и выше    
    If @ContestName = 'SPB-OPEN-VHF'
	    Update BR
	    Set Place = Rank
	    From LogFiles_BandResults BR
	    Join dbo.LogFiles_BandResults_Select_SPB_OPEN_VHF() S
	    	On S.ID = BR.ID    
	--/