fremdrechnungen, etc.

SDL/My Project/AssemblyInfo.vb

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("1.4.7.2")>
-<Assembly: AssemblyFileVersion("1.4.7.2")>
+<Assembly: AssemblyVersion("1.4.7.3")>
+<Assembly: AssemblyFileVersion("1.4.7.3")>

SDL/mdm/usrcntlFremdrechnungen.vb

@@ -79,10 +79,12 @@ Public Class usrcntlFremdrechnungen
         KUNDE = kundenSQL.getKundeByKdNr(kdNr)
         dtkeineMWST = (New SQL).loadDgvBySql("select Land, Erstattungsland, Lieferant from tblKeineMWSTErstattung", "FMZOLL")
 
-        If KUNDE IsNot Nothing Then
+        If KUNDE.KundenNr > 0 Then
             dtKundeMWST = (New SQL).loadDgvBySql("select LandKz from tblKundenMWST where KdNr = " & KUNDE.KundenNr, "FMZOLL")
+            cbx.Visible = True
         End If
 
+
         SET_SDL("")
 
         dgvInitWait = False
@@ -211,7 +213,6 @@ Public Class usrcntlFremdrechnungen
         aktLieferant = SDLNrTmp
 
 
-
         Dim anzahlTop = 1000
         Dim sqlfehlendePDF As String = ""
         Dim sqlfehlendePDF_PLOSE As String = ""
@@ -367,6 +368,7 @@ Public Class usrcntlFremdrechnungen
 
     Private Function setSQLWhere(aktLieferant As String, land As String) As String
 
+        'das hier geht (aktuell) nur PRO KUNDE -> ALSO nicht in der Gesamtübersicht!!!!!!!!
 
         Dim SQLWhere = " between '" & dat_Sum_Von.Value.ToShortDateString & "' and '" & dat_Sum_Bis.Value.ToShortDateString & "'"
 
@@ -451,6 +453,8 @@ Public Class usrcntlFremdrechnungen
     Private Function setSQLDetailWhere(aktLieferant As String, land As String, Optional alle As Boolean = False) As String
 
 
+        'das hier ist nur PRO KUNDE möglich!!!
+
         Dim SQLWhere = ""
 
         If cbx.Checked AndAlso KUNDE IsNot Nothing Then
@@ -704,9 +708,6 @@ Public Class usrcntlFremdrechnungen
 
 
 
-
-
-
     Private Sub Button4_Click_1(sender As Object, e As EventArgs) Handles Button4.Click
         If SplitContainer1.Panel2Collapsed Then
             SplitContainer1.Panel2Collapsed = False
@@ -788,7 +789,7 @@ Public Class usrcntlFremdrechnungen
 
         If groups.Count > 0 Then
 
-            If Not vbYes = MsgBox("Möchten Sie die Rechnungen von " & groups.Count & " Kunden per Mail verschicken? " & IIf(Not cbxMailoeffnen.Checked, vbNewLine & "Die Mails werden sofort verschickt!", ""), vbYesNoCancel) Then
+            If Not vbYes = MsgBox("Möchten Sie die Rechnungen von " & groups.Count & " Kunden per Mail verschicken? " & IIf(Not cbxMailoeffnen.Checked, vbNewLine & "Die Mails werden sofort ohne Dialogfeld verschickt!", ""), vbYesNoCancel) Then
                 Exit Sub
             End If
 
@@ -797,6 +798,127 @@ Public Class usrcntlFremdrechnungen
 
                 Dim TextHTMLtable = ""
 
+                Dim pdflist = createEMailTable(TextHTMLtable, kvp, cbx.Checked)
+
+                createEmail(kvp.Key, TextHTMLtable, pdflist)
+
+            Next
+
+
+        End If
+
+    End Sub
+
+
+    Private Function createEMailTable(ByRef TextHTMLtable As String, kvp As KeyValuePair(Of Object, List(Of DataGridViewRow)), onlyRelevantInvioces As Boolean) As List(Of String)
+
+
+
+        '------------------------------------------------------------
+        'toDo-Logik für die Ausnahmen - START - wie in Function "setSQLWhere(aktLieferant As String, land As String) As String"
+        '------------------------------------------------------------
+
+        '1.	wenn die Rechnung in dem Land in dem er ansässig ist ausgestellt wurde (rumän. Kunde – Rechnung ausgestellt in Rumänien = z.B. IDS in RO getankt…)
+
+        Dim landKZiso2 = ""
+        Dim KUNDE_TEMP As cKunden
+        KUNDE_TEMP = kundenSQL.getKundeByKdNr(kvp.Key)
+
+        If KUNDE_TEMP.LandKz <> "" Then
+            If KUNDE_TEMP.LandKz.Length = 2 Then
+                landKZiso2 = KUNDE_TEMP.LandKz
+            ElseIf KUNDE_TEMP.LandKz.Length = 3 Then
+                landKZiso2 = VERAG_PROG_ALLGEMEIN.cProgramFunctions.getISO2LandFromISO3Land(KUNDE_TEMP.LandKz)
+            ElseIf KUNDE_TEMP.LandKz.Length = 1 Then
+                landKZiso2 = VERAG_PROG_ALLGEMEIN.cProgramFunctions.getISO2LandFromISO1Land(KUNDE_TEMP.LandKz)
+            End If
+
+
+        End If
+
+        Dim dtKundeMWSTTemp As DataTable = (New SQL).loadDgvBySql("select LandKz from tblKundenMWST where KdNr = " & KUNDE_TEMP.KundenNr, "FMZOLL")
+
+
+
+        '2.	wenn die Rechnung die Summe NULL aufweist
+
+        '3.	Rechnungen der Länder in denen der Kunde keine MWST erstattet bekommt (auch nicht auf Diesel -> IDS)
+
+        '4.	Rechnungen der Länder, in denen der Kunde selber MWST beantragt
+
+
+        'If cbx.Checked AndAlso aktLieferant <> "IDS" AndAlso KUNDE IsNot Nothing Then
+        '    Dim erw As New cKundenErweitert(KUNDE.KundenNr)
+        '    If erw.kde_keineMWSt Then Return SQLWhere
+
+        '    SQLWhere &= "AND ("
+        '    'ORIGINAL-RECHNUNG senden wenn:
+        '    '1.	wenn die Rechnung in dem Land in dem er ansässig ist ausgestellt wurde (rumän. Kunde – Rechnung ausgestellt in Rumänien = z.B. IDS in RO getankt…)
+
+        '    Dim landKZiso2 = ""
+
+        '    If LAND <> "" Then 'LandKZ vom Kunden muss auf ISO2 konvertiert werden, weil da ein Misch-Masch in der Datenbank herrscht!
+        '        If KUNDE.LandKz <> "" Then
+        '            If KUNDE.LandKz.Length = 2 Then
+        '                landKZiso2 = KUNDE.LandKz
+        '            ElseIf KUNDE.LandKz.Length = 3 Then
+        '                landKZiso2 = VERAG_PROG_ALLGEMEIN.cProgramFunctions.getISO2LandFromISO3Land(KUNDE.LandKz)
+        '            ElseIf KUNDE.LandKz.Length = 1 Then
+        '                landKZiso2 = VERAG_PROG_ALLGEMEIN.cProgramFunctions.getISO2LandFromISO1Land(KUNDE.LandKz)
+        '            End If
+
+        '            SQLWhere &= " " & LAND & " in ('" & landKZiso2 & "')"
+        '        End If
+        '    End If
+
+        '    '2.	wenn die Rechnung die MWST-SUMME 0 aufweist!!!
+        '    Select Case aktLieferant
+        '        Case "UTA" : SQLWhere &= " OR Gesamtbetrag_Umsatzsteuer_in_Darstellwährung = 0 "  'UTA bei UTA auch EPN ausblenden!
+        '        Case "PLOSE" : SQLWhere &= " OR plInv_MWSTBetrag = 0" 'PLOSE
+        '        Case "VERAG" : SQLWhere &= " OR tblTrdinInvoice.SteuerbetragLokal = 0" 'VERAG
+        '        Case "MSE" : SQLWhere &= " OR total_vat_amount_euro = 0" 'MSE
+        '        Case "RMC" : SQLWhere &= " OR rmc_betragMWST = 0" 'RMC
+        '        Case "ALLE" : SQLWhere &= " OR temp.MWSt = 0" 'ALLE
+        '        Case "UTA_" : SQLWhere &= " 1 <> 1"
+        '        Case Else : SQLWhere &= " 1 <> 1"
+
+        '    End Select
+
+        '    '3.	Rechnungen der Länder in denen der Kunde keine MWST erstattet bekommt
+        '    If LAND <> "" AndAlso dtkeineMWST.Rows.Count > 0 Then
+        '        Dim dtkeineMWST_ohneContraint As DataTable = dtkeineMWST.Select("Lieferant <> 'IDS' AND Land = '" & landKZiso2 & "'").CopyToDataTable
+        '        Dim counter = 0
+        '        Dim landBez As String = ""
+        '        For Each row As DataRow In dtkeineMWST_ohneContraint.Rows
+        '            landBez &= "'" & row.Item("Erstattungsland") & "'"
+        '            counter = counter + 1
+        '            If (dtkeineMWST_ohneContraint.Rows.Count <> 0 And counter <> dtkeineMWST_ohneContraint.Rows.Count) Then landBez &= ","
+        '        Next
+        '        SQLWhere &= " OR " & LAND & " in (" & landBez & ")"
+        '        If aktLieferant = "ALLE" Then SQLWhere &= " OR " & LAND & " in ('')" 'damit IDS ohne Land nicht ausgeschlossen wird.
+        '    End If
+
+        '    '4.	Rechnungen der Länder, in denen der Kunde selber MWST beantragt
+        '    If LAND <> "" AndAlso dtKundeMWST.Rows.Count > 0 Then
+        '        Dim counter = 0
+        '        Dim landBez As String = ""
+        '        For Each row As DataRow In dtKundeMWST.Rows
+        '            landBez &= "'" & row.Item("LandKz") & "'"
+        '            counter = counter + 1
+        '            If (dtKundeMWST.Rows.Count <> 0 And counter <> dtKundeMWST.Rows.Count) Then landBez &= ","
+        '        Next
+        '        SQLWhere &= " OR " & LAND & " in (" & landBez & ")"
+        '    End If
+        '    SQLWhere &= ")"
+
+
+
+        '------------------------------------------------------------
+        'toDo-Logik für die Ausnahmen - END
+        '------------------------------------------------------------
+
+
+
         TextHTMLtable &= "<table border=1>"
         TextHTMLtable &= "<tr><td>Supplier</td><td>Country</td><td>Date</td></tr>"
 
@@ -804,7 +926,7 @@ Public Class usrcntlFremdrechnungen
 
         For Each row In kvp.Value
 
-
+            Dim erw As New cKundenErweitert(kvp.Key)
             Dim Lieferant = ""
 
             If dgvLFRechnung.Columns.Contains("Lieferant") Then
@@ -813,14 +935,48 @@ Public Class usrcntlFremdrechnungen
                 Lieferant = aktLieferant
             End If
 
+            If onlyRelevantInvioces AndAlso Lieferant <> "IDS" AndAlso erw.kde_keineMWSt Then Exit For 'abbruchbedingung
+
+            Dim sendÍnvoice As Boolean = IIf(onlyRelevantInvioces, False, True)
+
+            'ORIGINAL-RECHNUNG senden wenn:
+            If onlyRelevantInvioces Then
+
+                '1.	wenn die Rechnung in dem Land in dem er ansässig ist ausgestellt wurde (rumän. Kunde – Rechnung ausgestellt in Rumänien = z.B. IDS in RO getankt…)
+                If row.Cells("Land").Value <> "" AndAlso landKZiso2 = row.Cells("Land").Value Then sendÍnvoice = True
+
+                '2.	wenn die Rechnung die MWST-SUMME 0 aufweist!!!
+                If Not sendÍnvoice AndAlso row.Cells("MWSt").Value = 0 Then sendÍnvoice = True
+
+                '3.	Rechnungen der Länder in denen der Kunde keine MWST erstattet bekommt -> dtkeineMWST
+                If Not sendÍnvoice AndAlso landKZiso2 <> "" AndAlso dtkeineMWST.Rows.Count > 0 Then
+                    Dim rows() As DataRow = dtkeineMWST.Select("Lieferant <> 'IDS' AND Land = '" & landKZiso2 & "' and Erstattungsland = '" & row.Cells("Land").Value & "'")
+                    Dim dtkeineMWST_ohneContraint As New DataTable
+                    If rows.Length > 0 Then dtkeineMWST_ohneContraint = rows.CopyToDataTable()
+                    If dtkeineMWST_ohneContraint.Rows.Count > 0 Then sendÍnvoice = True
+                End If
+
+                '4.	Rechnungen der Länder, in denen der Kunde selber MWST beantragt
+
+                If Not sendÍnvoice AndAlso landKZiso2 <> "" AndAlso dtKundeMWSTTemp.Rows.Count > 0 Then
+                    Dim rows() As DataRow = dtKundeMWSTTemp.Select("LandKz = '" & row.Cells("Land").Value & "'")
+                    Dim dtKundeMWSTTemp_ohneContraint As New DataTable
+                    If rows.Length > 0 Then dtKundeMWSTTemp_ohneContraint = rows.CopyToDataTable()
+                    If dtKundeMWSTTemp_ohneContraint.Rows.Count > 0 Then sendÍnvoice = True
+                End If
+
+            End If
+
+
             If Lieferant = "VERAG" Then
+
                 'VERAG IGNORIEREN
                 'Dim ReDat = row.Cells("Rechnungsdatum").Value
                 'Dim ReNr = row.Cells("Rechnungsnummer").Value
 
                 'If ReDat IsNot Nothing AndAlso ReNr > 0 Then
                 '    Me.Cursor = Cursors.WaitCursor
-                        '    Dim da_id = SQL.getValueTxtBySql("SELECT TOP(1) RK_ID FROM Rechnungsausgang where cast(Rechnungsausgang.RechnungsDatum as Date) ='" & ReDat & "' and Rechnungsausgang.RechnungsNr='" & ReNr & "' AND FilialenNr = 4814  AND RK_ID is not null", "FMZOLL")
+                '    Dim da_id = SQL.getValueTxtBySql("Select TOP(1) RK_ID FROM Rechnungsausgang where cast(Rechnungsausgang.RechnungsDatum As Date) ='" & ReDat & "' and Rechnungsausgang.RechnungsNr='" & ReNr & "' AND FilialenNr = 4814  AND RK_ID is not null", "FMZOLL")
                 '    cFakturierung.doRechnungsDruck_SRorER(da_id,, False, 3)
                 'End If
 
@@ -839,6 +995,9 @@ Public Class usrcntlFremdrechnungen
                         TextHTMLtable &= "<td><b>" & r.Item("Rechnungsdatum") & "</b></td>"
                         TextHTMLtable &= "</tr>"
 
+
+
+
                         Dim daId As Integer = IIf(IsDBNull(r.Item("daId")), -1, r.Item("daId"))
                         If daId > 0 Then
                             Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(daId)
@@ -850,6 +1009,7 @@ Public Class usrcntlFremdrechnungen
 
 
                 Else
+                    If sendÍnvoice Then
                         TextHTMLtable &= "<tr>"
                         TextHTMLtable &= "<td><b>" & Lieferant & "</b></td>"
                         TextHTMLtable &= "<td><b>" & row.Cells("Land").Value & "</b></td>"
@@ -863,6 +1023,8 @@ Public Class usrcntlFremdrechnungen
                         End If
 
                     End If
+                End If
+
 
 
 
@@ -870,15 +1032,21 @@ Public Class usrcntlFremdrechnungen
 
         Next
 
-
         TextHTMLtable &= "</table>"
 
+        Return pdflist
+
+    End Function
+
+    Private Sub createEmail(kdNr As Integer, ByRef TextHTMLtable As String, pdflist As List(Of String))
+
+
         Dim outl As New Outlook.Application
         Dim Mail As Microsoft.Office.Interop.Outlook.MailItem
         Mail = outl.CreateItem(0)
 
         Dim kundeMail As New cKunden()
-                kundeMail = kundenSQL.getKundeByKdNr(kvp.Key)
+        kundeMail = kundenSQL.getKundeByKdNr(kdNr)
 
         Select Case kundeMail.LandKz
             Case "TR"
@@ -961,7 +1129,7 @@ Public Class usrcntlFremdrechnungen
                 If Mail IsNot Nothing Then
 
 
-                            Dim API = VERAG_PROG_ALLGEMEIN.cAPI.INSERT_API(VERAG_PROG_ALLGEMEIN.cAPI_INOUT.OUT, VERAG_PROG_ALLGEMEIN.cAPI_Type.MAIL, VERAG_PROG_ALLGEMEIN.cAPI_ART.SDL_OUT_SAMMELRECHNUNG, "MAIL-ORIG-RG",,, kvp.Key)
+                    Dim API = VERAG_PROG_ALLGEMEIN.cAPI.INSERT_API(VERAG_PROG_ALLGEMEIN.cAPI_INOUT.OUT, VERAG_PROG_ALLGEMEIN.cAPI_Type.MAIL, VERAG_PROG_ALLGEMEIN.cAPI_ART.SDL_OUT_SAMMELRECHNUNG, "MAIL-ORIG-RG",,, kdNr)
 
                     API.api_EMail = Mail.To
                     API.api_EMailCC = Mail.CC
@@ -991,33 +1159,8 @@ Public Class usrcntlFremdrechnungen
 
         End If
 
-
-            Next
-
-        End If
-
     End Sub
 
-
-    'Sub SelectRow(kdnr, kfz, SDLNr, history)
-    '    dgvInitWait = True
-    '    dgvSDL.ClearSelection()
-    '    For Each r As DataGridViewRow In dgvSDL.Rows
-    '        If r.Cells("KundenNr").Value = kdnr AndAlso
-    '            r.Cells("SDLNr").Value = SDLNr AndAlso
-    '            r.Cells("KfzKennzeichen").Value = kfz AndAlso
-    '            r.Cells("History").Value = history Then
-    '            r.Selected = True
-    '            dgvSDL.FirstDisplayedScrollingRowIndex = r.Index
-    '            Exit For
-    '        End If
-    '    Next
-    '    dgvInitWait = False
-    '    'ReloadLeistung()
-    '    dgvSDL.PerformLayout()
-    'End Sub
-
-
     Private Sub ToolStripMenuItem3_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem3.Click
         Me.Cursor = Cursors.WaitCursor
         cProgramFunctions.genExcelFromDGV(dgvLFRechnung, True)
@@ -1042,16 +1185,6 @@ Public Class usrcntlFremdrechnungen
         SET_SDL(aktLieferant)
     End Sub
 
-
-    Private Sub dgvSDL_RELOADED() Handles dgvLFRechnung.RELOADED
-        ' redRows()
-    End Sub
-
-    Private Sub usrCntlKartenDaten_SizeChanged(sender As Object, e As EventArgs) Handles Me.SizeChanged
-        '  initDGVWidth()
-    End Sub
-
-
     Dim vval As Integer
     Private Sub dgvSDL_GotFocus(sender As Object, e As EventArgs) Handles dgvLFRechnung.GotFocus
         'dgvSDL.VerticalScrollingOffset = vval

VERAG_PROG_ALLGEMEIN/Classes/cMitarbeiter.vb

@@ -101,6 +101,7 @@ Public Class cMitarbeiter
     Property mit_Notfall_Name As Object = Nothing
     Property mit_Notfall_Handy As Object = Nothing
     Property mit_Notfall_Mail As Object = Nothing
+    Property mit_SchalterID As Object = Nothing
 
 
 
@@ -219,6 +220,7 @@ Public Class cMitarbeiter
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_Notfall_Name", mit_Notfall_Name))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_Notfall_Handy", mit_Notfall_Handy))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_Notfall_Mail", mit_Notfall_Mail))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_SchalterID", mit_SchalterID))
 
 
 
@@ -428,6 +430,7 @@ Public Class cMitarbeiter
                             If Not dr.Item("mit_Notfall_Handy") Is DBNull.Value Then Me.mit_Notfall_Handy = dr.Item("mit_Notfall_Handy")
                             If Not dr.Item("mit_Notfall_Name") Is DBNull.Value Then Me.mit_Notfall_Name = dr.Item("mit_Notfall_Name")
                             If Not dr.Item("mit_Notfall_Mail") Is DBNull.Value Then Me.mit_Notfall_Mail = dr.Item("mit_Notfall_Mail")
+                            If Not dr.Item("mit_SchalterID") Is DBNull.Value Then Me.mit_SchalterID = dr.Item("mit_SchalterID")
 
 
                         Catch ex As Exception

VERAG_PROG_ALLGEMEIN/frmTimasabfrage.Designer.vb

@@ -24,8 +24,8 @@ Partial Class frmTimasabfrage
     'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
     <System.Diagnostics.DebuggerStepThrough()>
     Private Sub InitializeComponent()
-        Me.components = New System.ComponentModel.Container()
-        Me.MyPanel1 = New VERAG_PROG_ALLGEMEIN.MyPanel(Me.components)
+        Me.MyPanel1 = New VERAG_PROG_ALLGEMEIN.MyPanel()
+        Me.cbxSchalterID = New VERAG_PROG_ALLGEMEIN.MyComboBox()
         Me.rbHO = New System.Windows.Forms.RadioButton()
         Me.rbBuero = New System.Windows.Forms.RadioButton()
         Me.Button1 = New System.Windows.Forms.Button()
@@ -33,6 +33,7 @@ Partial Class frmTimasabfrage
         Me.btnClose = New System.Windows.Forms.Button()
         Me.btn = New System.Windows.Forms.Button()
         Me.Label1 = New System.Windows.Forms.Label()
+        Me.lblSchalter = New System.Windows.Forms.Label()
         Me.MyPanel1.SuspendLayout()
         Me.SuspendLayout()
         '
@@ -40,6 +41,8 @@ Partial Class frmTimasabfrage
         '
         Me.MyPanel1.BackColor = System.Drawing.Color.White
         Me.MyPanel1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.MyPanel1.Controls.Add(Me.lblSchalter)
+        Me.MyPanel1.Controls.Add(Me.cbxSchalterID)
         Me.MyPanel1.Controls.Add(Me.rbHO)
         Me.MyPanel1.Controls.Add(Me.rbBuero)
         Me.MyPanel1.Controls.Add(Me.Button1)
@@ -53,6 +56,24 @@ Partial Class frmTimasabfrage
         Me.MyPanel1.Size = New System.Drawing.Size(264, 103)
         Me.MyPanel1.TabIndex = 3
         '
+        'cbxSchalterID
+        '
+        Me.cbxSchalterID._allowedValuesFreiText = Nothing
+        Me.cbxSchalterID._allowFreiText = False
+        Me.cbxSchalterID._value = ""
+        Me.cbxSchalterID.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
+        Me.cbxSchalterID.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.cbxSchalterID.DropDownWidth = 50
+        Me.cbxSchalterID.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.cbxSchalterID.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.cbxSchalterID.FormattingEnabled = True
+        Me.cbxSchalterID.Items.AddRange(New Object() {"", "100000-199999: XXXXXX", "200000-299999: XXXXXX", "300000-399999: XXXXXX", "400000-499999: XXXXXX", "500000-599999: XXXXXX", "600000-699999: XXXXXX", "700000-799999: XXXXXX", "800000-899999: XXXXXX", "900000-999999: XXXXXX"})
+        Me.cbxSchalterID.Location = New System.Drawing.Point(3, 34)
+        Me.cbxSchalterID.Name = "cbxSchalterID"
+        Me.cbxSchalterID.Size = New System.Drawing.Size(58, 28)
+        Me.cbxSchalterID.TabIndex = 10
+        Me.cbxSchalterID.Visible = False
+        '
         'rbHO
         '
         Me.rbHO.AutoSize = True
@@ -145,6 +166,16 @@ Partial Class frmTimasabfrage
         Me.Label1.Size = New System.Drawing.Size(222, 18)
         Me.Label1.TabIndex = 6
         '
+        'lblSchalter
+        '
+        Me.lblSchalter.AutoSize = True
+        Me.lblSchalter.Location = New System.Drawing.Point(3, 20)
+        Me.lblSchalter.Name = "lblSchalter"
+        Me.lblSchalter.Size = New System.Drawing.Size(46, 13)
+        Me.lblSchalter.TabIndex = 11
+        Me.lblSchalter.Text = "Schalter"
+        Me.lblSchalter.Visible = False
+        '
         'frmTimasabfrage
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -169,4 +200,6 @@ Partial Class frmTimasabfrage
     Friend WithEvents Button1 As Button
     Friend WithEvents rbHO As RadioButton
     Friend WithEvents rbBuero As RadioButton
+    Public WithEvents cbxSchalterID As MyComboBox
+    Friend WithEvents lblSchalter As Label
 End Class

VERAG_PROG_ALLGEMEIN/frmTimasabfrage.vb

@@ -2,6 +2,7 @@
     Dim mit As VERAG_PROG_ALLGEMEIN.cMitarbeiter
     Public Datum As Date = CDate(Now.ToShortDateString)
     Public typ As Integer = -1
+    Public Schalter As Integer = -1
 
     Sub New()
         ' Dieser Aufruf ist für den Designer erforderlich.
@@ -20,6 +21,12 @@
         cboTyp.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Büro", "0"))
         cboTyp.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Homeoffice", "3"))
 
+        cbxSchalterID.Items.Clear()
+        cbxSchalterID.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
+        cbxSchalterID.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("1", "1"))
+        cbxSchalterID.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("2", "2"))
+        cbxSchalterID.changeItem("")
+
         If mit IsNot Nothing Then
             Label1.Text = "Zeit erfassen für: " & mit.mit_nname & " " & mit.mit_vname
             If mit.mit_homeoffice Then
@@ -29,8 +36,21 @@
                 rbHO.Checked = False
                 cboTyp.changeItem("Büro")
             End If
+
+            If mit.mit_niederlassung = "NKD" Then
+
+                cbxSchalterID.Visible = True
+            Else
+                cbxSchalterID.Visible = False
             End If
 
+            lblSchalter.Visible = cbxSchalterID.Visible
+
+
+
+        End If
+
+
 
 
     End Sub
@@ -40,10 +60,24 @@
         If typ = -1 Then
             MsgBox("Bitte Typ auswählen")
             DialogResult = Windows.Forms.DialogResult.None
+
         Else
             DialogResult = Windows.Forms.DialogResult.OK
         End If
 
+        If mit.mit_niederlassung = "NKD" AndAlso Schalter = -1 Then
+            MsgBox("Bitte Schalter auswählen")
+            DialogResult = Windows.Forms.DialogResult.None
+
+        Else
+            If Schalter > 0 Then
+                mit.mit_SchalterID = Schalter
+                mit.SAVE()
+            End If
+
+            DialogResult = Windows.Forms.DialogResult.OK
+            End If
+
     End Sub
 
     Private Sub rbBuero_CheckedChanged(sender As Object, e As EventArgs) Handles rbBuero.CheckedChanged, rbHO.CheckedChanged
@@ -58,4 +92,11 @@
 
     End Sub
 
+    Private Sub cbxSchalterID_SelectedValueChanged(sender As Object, e As EventArgs) Handles cbxSchalterID.SelectedValueChanged
+        If cbxSchalterID._value <> "" AndAlso IsNumeric(cbxSchalterID._value) AndAlso CInt(cbxSchalterID._value) > 0 Then
+            Schalter = cbxSchalterID._value
+        Else
+            Schalter = -1
+        End If
+    End Sub
 End Class