Fols Scripts

-- QC 14581
-- Reinitialisation de la date de la remise bancaire
-- suite a une fermeture saisonniere de l'hotel (par exemple)
-- 1 variable est a modifier : @date (format AAAAMMJJ)

Set nocount on
Declare @SQLError int
Declare @Hote_id int, @DHC smalldatetime, @date smalldatetime
Set @Date = 'AAAAMMJJ' -- mettre la date du jour ici
Begin tran
Select Top 1 @Hote_id = hote_id
From Hotel
Set @SQLError = @@error If @SQLError <> 0 goto ErrManagement
Select @DHC = Parh_curr_hote_day
From Hotel_parameter
Where hote_id = @hote_id
Set @SQLError = @@error If @SQLError <> 0 goto ErrManagement
If @Date is null or @Date > @DHC
Set @Date = @DHC
Delete
From Bank_delivery
Where hote_id = @Hote_id
Set @SQLError = @@error If @SQLError <> 0 goto ErrManagement
Exec up_BankDelivery_InitBDDate @Hote_id,@Date
Set @SQLError = @@error If @SQLError <> 0 goto ErrManagement
Print 'Votre remise bancaire a ete initialisee au ' + cast(@Date as varchar)
Commit tran
--Error Management
ErrManagement:
If @SQLError <> 0
Begin
RAISERROR ('Error during the update" - ERROR NUMBER : %d ', 16, -1,'Inter1195_H5678_20120123_Reinit_Bank_Delivery.sql', ' ', @SQLError)
rollback tran
End