Mailvorlagen und Essensbestellungen

SDL/frmEssensbestellungenAdministration.vb

@@ -22,16 +22,16 @@ Public Class frmEssensbestellungenAdministration
         cbxStornos.Checked = False
         cbxAbgerechnet.Checked = False
 
-        cboGebaeude.fillWithSQL("SELECT DISTINCT(eb_gebaeude) FROM [tblEssensbestellungen]", False, "AVISO", True)
+        cboGebaeude.fillWithSQL("SELECT DISTINCT(eb_gebaeude) FROM [tblEssensbestellungen] where eb_archiviert = 0", False, "AVISO", True)
         cboGebaeude.changeItem("")
 
-        cboAbteilung.fillWithSQL("SELECT DISTINCT(eb_abteilung) FROM [tblEssensbestellungen]", False, "AVISO", True)
+        cboAbteilung.fillWithSQL("SELECT DISTINCT(eb_abteilung) FROM [tblEssensbestellungen] where eb_archiviert = 0", False, "AVISO", True)
 
         'changeYear()
 
-        cbKW.fillWithSQL("SELECT DISTINCT(eb_kw) FROM [tblEssensbestellungen]  UNION SELECT (REPLACE(MenuTitel,'Wochenkarte ','')) + ' - ' +  Convert(varchar, Year(MenuDateVon)) as kwDateNew FROM [tblEBMenu] where MenuDateVon > GETDATE() ORDER BY eb_kw desc", False, "AVISO", True)
+        cbKW.fillWithSQL("SELECT DISTINCT(eb_kw) FROM [tblEssensbestellungen] where eb_archiviert = 0 UNION SELECT (REPLACE(MenuTitel,'Wochenkarte ','')) + ' - ' +  Convert(varchar, Year(MenuDateVon)) as kwDateNew FROM [tblEBMenu] where MenuDateVon > GETDATE() ORDER BY eb_kw desc", False, "AVISO", True)
 
-        cbxMailKW.fillWithSQL("SELECT DISTINCT(eb_kw) FROM [tblEssensbestellungen] ORDER BY eb_kw desc", False, "AVISO", True)
+        cbxMailKW.fillWithSQL("SELECT DISTINCT(eb_kw) FROM [tblEssensbestellungen] where eb_archiviert = 0  ORDER BY eb_kw desc", False, "AVISO", True)
         cbxMailKW.changeItem("")
 
         cbxMailGebäude.changeItem("")
@@ -50,7 +50,7 @@ Public Class frmEssensbestellungenAdministration
         Dim SQLString As String = "SELECT  [eb_mitid] , [eb_mitname] ,[eb_firma] , [eb_kw] , [eb_gebaeude],[eb_abteilung],[eb_montag],[eb_dienstag],[eb_mittwoch],
                                     [eb_donnerstag] ,[eb_freitag],[eb_datum],[eb_preis], [eb_anmerkung],[eb_storniert],[eb_storniert_am],[eb_abgerechnet],[eb_abgerechnet_am], [eb_gesendet], [eb_gesendet_am]  
                                     FROM 
-                                    [tblEssensbestellungen] WHERE 1=1"
+                                    [tblEssensbestellungen] WHERE 1=1 "
 
         SQLString &= IIf(cAllgemein.MITARBEITER.getFirma = "UNISPED", " And eb_firma = '" & cAllgemein.MITARBEITER.getFirma & "'", "") 'UNISPED-Bestellungen!
 
@@ -951,6 +951,42 @@ Public Class frmEssensbestellungenAdministration
     End Sub
 
 
+    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
+        If txtarchivieren.Text <> "" AndAlso IsNumeric(txtarchivieren.Text) AndAlso txtarchivieren.TextLength = 4 Then
+
+            Try
+                Dim year = CInt(txtarchivieren.Text)
+                Dim bottomYear = 2022
+                Dim currentYear = CInt(DateTime.Now().Year)
+                If Not (2022 <= year AndAlso year < currentYear) Then
+                    MsgBox("Es können nur Bestellungen zwischen " & bottomYear & " und " & currentYear - 1 & " archiviert werden!")
+                Else
+                    If vbYes = MsgBox("Möchten Sie alle Bestellungen aus dem Jahr " & year & " archivieren?" & vbNewLine & "Die Bestellungen aus diesem Jahr werden dann ausgeblendet!", vbYesNoCancel) Then
+                        If SQL.doSQL("UPDATE [tblEssensbestellungen] SET eb_archiviert=1 WHERE Year(eb_datum)  = '" & year & "'", "AVISO") Then
+                            MsgBox("Archivierung erfolgreich durchgeführt!")
+                            txtarchivieren.Text = ""
+                            loadBestellungen()
+                        End If
+                    End If
+                End If
+
+
+
+            Catch ex As Exception
+                VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+            End Try
+
+        End If
+    End Sub
+
+    Private Sub txtarchivieren_TextChanged(sender As Object, e As EventArgs) Handles txtarchivieren.TextChanged
+        If txtarchivieren.Text <> "" AndAlso IsNumeric(txtarchivieren.Text) AndAlso txtarchivieren.TextLength = 4 Then
+            Button3.Enabled = True
+        End If
+    End Sub
+
+
+
     'Private Sub cbxCurrenyear_CheckedChanged(sender As Object, e As EventArgs) Handles cbxCurrenyear.CheckedChanged
     '    changeYear()
     'End Sub