BEGIN TRY

BEGIN TRAN Fiatteren

SET DATEFIRST 1

--Melding over het aantal te kopiëren records wegschrijven naar het logboek
DECLARE @Aantal int, @Melding nvarchar(4000)
SET @Aantal = (SELECT COUNT(*) FROM dbo.ESS_dwwuren
WHERE Personeelsnummer = @Personeelsnummer
   AND (dbo.fn_WeeknummerISO(Datum) = @Week AND YEAR(dbo.fn_BepaalEinddatumWeek(Datum)) = @Jaar))

begin tran logboekschrijven
   SET @Melding = 'Wegschrijven van uren (' + CAST(@Aantal AS varchar(5)) + ' records) uit ESS_dwwuren naar Dwwuren'
   EXEC proc_Schrijven_Logboek @Personeelsnummer, @Week, @Jaar, @Melding
commit tran logboekschrijven

--Ook even wegschrijven of er zich al toevallig records voor deze week in dwwuren bevinden (kan een PK-constraint-error opleveren)
SET @Aantal = (SELECT COUNT(*) FROM dbo.dwwuren
WHERE Personeelsnummer = @Personeelsnummer
   AND (dbo.fn_WeeknummerISO(Datum) = @Week AND YEAR(dbo.fn_BepaalEinddatumWeek(Datum)) = @Jaar))

IF @Aantal > 0
   EXEC proc_Schrijven_Logboek @Personeelsnummer, @Week, @Jaar, 'Er bevinden zich al records voor deze week en personeelsnummer in dwwuren'
ELSE
   EXEC proc_Schrijven_Logboek @Personeelsnummer, @Week, @Jaar, 'Er bevinden zich geen records voor deze week en personeelsnummer in dwwuren'

--Het wegschrijven van de uren in de PlanRadtabel
INSERT INTO dbo.dwwuren (Personeelsnummer, Projectnummer, Datum, Soort, Uren, Opmerking, ESS_Gewijzigd)
   SELECT Personeelsnummer, Projectnummer, Datum, Soort, Uren, Opmerking, 1 FROM dbo.ESS_dwwuren
   WHERE Personeelsnummer = @Personeelsnummer
      AND (dbo.fn_WeeknummerISO(Datum) = @Week AND YEAR(dbo.fn_BepaalEinddatumWeek(Datum)) = @Jaar)

--Het wegschrijven van de uren in de PlanRadtabel
INSERT INTO dbo.ESS_GefiatteerdeUren
   SELECT Personeelsnummer, Projectnummer, Datum, Soort, Uren, Opmerking FROM dbo.ESS_dwwuren
   WHERE Personeelsnummer = @Personeelsnummer
      AND (dbo.fn_WeeknummerISO(Datum) = @Week AND YEAR(dbo.fn_BepaalEinddatumWeek(Datum)) = @Jaar)

--Melding over het resultaat van het kopiëren wegschrijven naar het logboek
IF EXISTS
(
   SELECT * FROM dbo.ESS_dwwuren
   WHERE Personeelsnummer = @Personeelsnummer
      AND (dbo.fn_WeeknummerISO(Datum) = @Week AND YEAR(dbo.fn_BepaalEinddatumWeek(Datum)) = @Jaar)
)
   EXEC proc_Schrijven_Logboek @Personeelsnummer, @Week, @Jaar, 'De uren bevinden zich inderdaad in de tabel Dwwuren'
ELSE
   BEGIN
      EXEC proc_Schrijven_Logboek @Personeelsnummer, @Week, @Jaar, 'FOUT: De uren bevinden zich NIET in de tabel Dwwuren'
      RAISERROR ('Er is een fout opgetreden bij het fiatteren van week %d voor personeelsnummer %d. De uren zijn NIET naar dwwuren gekopieerd.', 16, 1, @Week, @Personeelsnummer)
END

IF EXISTS
(
   SELECT * FROM dbo.ESS_GefiatteerdeUren
   WHERE Personeelsnummer = @Personeelsnummer
      AND (dbo.fn_WeeknummerISO(Datum) = @Week AND YEAR(dbo.fn_BepaalEinddatumWeek(Datum)) = @Jaar)
)
   EXEC proc_Schrijven_Logboek @Personeelsnummer, @Week, @Jaar, 'De uren zijn naar de tijdelijke tabel gekopieerd'
ELSE
   BEGIN
      EXEC proc_Schrijven_Logboek @Personeelsnummer, @Week, @Jaar, 'FOUT: De uren zijn NIET naar de tijdelijke tabel gekopieerd'
RAISERROR ('Er is een fout opgetreden bij het fiatteren van week %d voor personeelsnummer %d. De uren zijn NIET naar de tijdelijke tabel gekopieerd.', 16, 1, @Week, @Personeelsnummer)
END

--Melding over het wissen wegschrijven naar het logboek
EXEC proc_Schrijven_Logboek @Personeelsnummer, @Week, @Jaar, 'Verwijderen van uren uit Dwwuren'

--Het wissen van de uren in de ESS-tabel
DECLARE @AantalGewisteRecords int
DELETE FROM dbo.ESS_dwwuren
WHERE Personeelsnummer = @Personeelsnummer
   AND (dbo.fn_WeeknummerISO(Datum) = @Week AND YEAR(dbo.fn_BepaalEinddatumWeek(Datum)) = @Jaar)

SET @AantalGewisteRecords = @@ROWCOUNT

--Melding over het resultaat van het verwijderen
IF NOT EXISTS
(
   SELECT * FROM dbo.ESS_dwwuren
   WHERE Personeelsnummer = @Personeelsnummer
      AND (dbo.fn_WeeknummerISO(Datum) = @Week AND YEAR(dbo.fn_BepaalEinddatumWeek(Datum)) = @Jaar)
)
   BEGIN
      SET @Melding = 'Het wissen van de uren is gelukt (' + CAST(@AantalGewisteRecords as varchar(5)) + ' records)'
      EXEC proc_Schrijven_Logboek @Personeelsnummer, @Week, @Jaar, @Melding
   END
ELSE
   EXEC proc_Schrijven_Logboek @Personeelsnummer, @Week, @Jaar, 'FOUT: de uren zijn NIET verwijderd'

COMMIT TRAN

EXEC proc_Schrijven_Logboek @Personeelsnummer, @Week, @Jaar, 'Er zijn geen fouten opgetreden tijdens het fiatteren'

END TRY

BEGIN CATCH

ROLLBACK TRAN Fiatteren

--Wegschrijven van de foutmelding
DECLARE @Foutmelding nvarchar(4000), @Foutnummer as int, @FoutErnst as int

SET @Foutnummer = ERROR_NUMBER()
SET @Foutmelding = ERROR_MESSAGE()
SET @FoutErnst = ERROR_SEVERITY()
SET @Melding = 'Fout ' + CAST(@Foutnummer as nvarchar(400)) + ': ' + @Foutmelding

EXEC proc_Schrijven_Logboek @Personeelsnummer, @Week, @Jaar, @Melding

RAISERROR(@Foutmelding, @FoutErnst, 1)

END CATCH