TimasAPI, Ueberstundenprotokollierung, etc.

SDL/Fakturierung/frmFaktEmail.vb

@@ -739,7 +739,7 @@ Public Class frmFaktEmail
         For Each r In SR_DT.Rows 
             Dim SPEDBUCH As New VERAG_PROG_ALLGEMEIN.cSpeditionsbuch(r("FilialenNr"), r("AbfertigungsNr"), r("SpeditionsbuchUnterNr"))
             initRowSpedbuch(SPEDBUCH)
-            If SPEDBUCH.AbfertigungsNr = 26 Or SPEDBUCH.AbfertigungsNr = 28 Then
+            If (SPEDBUCH.AbfertigungsNr = 26 Or SPEDBUCH.AbfertigungsNr = 28) AndAlso (SPEDBUCH.FilialenNr = 4805 Or SPEDBUCH.FilialenNr = 4811) Then
                 isFiskal = True
             End If
         Next

SDL/kunden/usrCntlKundenBesonderheiten.vb

@@ -85,7 +85,9 @@ Public Class usrCntlKundenBesonderheiten
     End Sub
     Private Sub initDGV(Optional kdnrTmp = -1, Optional simpleView = False, Optional preferedKategorie = "", Optional preferedKategorieOtherIN = "")
 
-        dgvBesonderheiten.Columns.Clear()
+        If dgvBesonderheiten.Columns IsNot Nothing Then
+            dgvBesonderheiten.Columns.Clear()
+        End If
 
         If kdnrTmp > 0 Then Me.kdNr = kdnrTmp
         If kdNr <= 0 Then Exit Sub