Timas, Fakt -> Leihgeldkasse, etc.

SDL/Classes/cRKSV.vb

@@ -2517,22 +2517,19 @@ Public Class cRKSV
     End Function
 
 
-    Public Shared Property DefaultMandant As Integer = 9
+    Public Shared Property DefaultMandant As Integer = IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, 9, 7)
     Public Shared Property DefaultKassenkonto As Integer = 2700
 
     Public Shared Function CreateSyskaBuchung(RKSV_id As Integer, beleg As EABeleg, KBEntry_list As List(Of cKassenbuch), KBEntryGB_list As List(Of cKassenbuch), KBEntryST_list As List(Of cKassenbuch), typ As String) As Boolean
 
 
-
-
         If beleg Is Nothing Then Throw New ArgumentNullException(NameOf(beleg))
         If Not (beleg.Beleg_TYP = "L" Or beleg.Beleg_TYP = "K") Then
             Return False
         End If
 
-
         If DefaultMandant = 9 Then
-            MsgBox("ACHTUNG, Daten werden in Mandant " & DefaultMandant & " eingespielt -> TESTMANDANT!")
+            MsgBox("ACHTUNG, Daten werden in Mandant " & DefaultMandant & " eingespielt -> " & IIf(DefaultMandant = 9, "TESTMANDANT!", "PRODUKTIVMANDANT!"))
         End If
 
         Dim sql As New VERAG_PROG_ALLGEMEIN.SQL()
@@ -2589,7 +2586,7 @@ Public Class cRKSV
 
         Dim FIBU_YEAR = jahr
         Dim BelegNrUID As String = "BR"
-        If periode = 1 Then FIBU_YEAR = FIBU_YEAR - 1
+        'If periode = 1 Then FIBU_YEAR = FIBU_YEAR - 1
         BelegNrUID &= FIBU_YEAR.ToString.Substring(2, 2)
         BelegNrUID &= i_beleg_refid.ToString("D5")
 
@@ -2858,9 +2855,9 @@ Public Class cRKSV
         Dim gebucht = checkifgebucht_new(mandant, SafeString(BelegNrUID), buchungstext)
         If gebucht Then
             ' logging instead of MsgBox in production
-            ' MsgBox("GEBUCHT!")
+            MsgBox("GEBUCHT!")
         Else
-            ' MsgBox("NICHT GEBUCHT!")
+            MsgBox("NICHT GEBUCHT!")
         End If
 
         Return gebucht
@@ -2915,7 +2912,7 @@ Public Class cRKSV
 
     Private Shared Function GetStapelRefId(sql As VERAG_PROG_ALLGEMEIN.SQL, mandant As Integer) As String
         Dim v = sql.getValueTxtBySqlVarList("SELECT i_stapel_refid FROM [FIBU2].dbo.fibu_stapelart WHERE c_stapelname Like 'Auszahlungskasse 1' AND i_firm_refid = " & SafeIntToSql(mandant), "FIBU",, "")
-                Return If(String.IsNullOrWhiteSpace(v), "0000", v)
+        Return If(String.IsNullOrWhiteSpace(v), "0000", v)
     End Function
 
     Private Shared Function GetNextStapelLfdNr(sql As VERAG_PROG_ALLGEMEIN.SQL, stapelRefId As String, mandant As Integer) As Integer

SDL/Fakturierung/frmAbrechnungsMaske.vb

@@ -117,13 +117,14 @@ Public Class frmAbrechnungsMaske
                 If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("FAKTURIERUNG_VERAGAG_DE", "SDL") Then
                     whereFirma = " AND FIRMENGRUPPE In ('VERAG','IMEX','VERAGUNISPED','FRONTOFFICE','ATILLA','VERAGAG_DE') "
                 End If
+                cboSachbearbeiter.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DANIEL", "DANIEL"))
                 cboFirma.fillWithSQL("SELECT [Firma_ID],[Firma_Bez]  FROM  [tblFirma] WHERE 1=1 " & whereFirma, False, "FMZOLL")
                 Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
                     Case "VERAG" : cboFirma.changeItem("1")
                     Case "IMEX" : cboFirma.changeItem("20")
                 End Select
                 cboSachbearbeiter.fillWithSQL("SELECT [mit_username] FROM [tblMitarbeiter] where  mit_firma IN ('IMEX','VERAG'" & If(VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME = "ADMIN", ",'ALL'", "") & ") AND mit_gekuendigt=0 AND  (mit_abteilung IN ('VRR','BH')	OR (SELECT COUNT(*)  FROM [tblBerechtigungsObjekteZuordnung]  where [beroz_beroId]=90 AND [beroz_bergrId]=[mit_id] AND beroz_art='B')>0) order by mit_username", False, "ADMIN", True)
-                cboSachbearbeiter.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("*BAUBÖCK", "BAUBOECK"))
+                cboSachbearbeiter.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DANIEL", "DANIEL"))
         End Select
 
 

SDL/Fakturierung/frmRechnungenSuche.Designer.vb

@@ -108,6 +108,7 @@ Partial Class frmRechnungenSuche
         Me.Label17 = New System.Windows.Forms.Label()
         Me.txtMaxSrch = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.pnlBerichte = New System.Windows.Forms.Panel()
+        Me.Button8 = New System.Windows.Forms.Button()
         Me.MenuStrip2 = New System.Windows.Forms.MenuStrip()
         Me.ToolStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem()
         Me.ToolStripMenuItem3 = New System.Windows.Forms.ToolStripMenuItem()
@@ -139,7 +140,7 @@ Partial Class frmRechnungenSuche
         Me.pnlTop = New System.Windows.Forms.Panel()
         Me.PictureBox5 = New System.Windows.Forms.PictureBox()
         Me.TestToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
-        Me.Button8 = New System.Windows.Forms.Button()
+        Me.RechnungenOhnePositionenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         CType(Me.SplitContainer, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SplitContainer.Panel1.SuspendLayout()
         Me.SplitContainer.Panel2.SuspendLayout()
@@ -1556,6 +1557,21 @@ Partial Class frmRechnungenSuche
         Me.pnlBerichte.Size = New System.Drawing.Size(921, 68)
         Me.pnlBerichte.TabIndex = 6
         '
+        'Button8
+        '
+        Me.Button8.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.Button8.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button8.Image = Global.SDL.My.Resources.Resources.statistik_small
+        Me.Button8.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.Button8.Location = New System.Drawing.Point(738, 19)
+        Me.Button8.Margin = New System.Windows.Forms.Padding(0)
+        Me.Button8.Name = "Button8"
+        Me.Button8.Size = New System.Drawing.Size(159, 39)
+        Me.Button8.TabIndex = 46
+        Me.Button8.Text = "Provisionsvergütungen..."
+        Me.Button8.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.Button8.UseVisualStyleBackColor = True
+        '
         'MenuStrip2
         '
         Me.MenuStrip2.Dock = System.Windows.Forms.DockStyle.None
@@ -1564,14 +1580,14 @@ Partial Class frmRechnungenSuche
         Me.MenuStrip2.Location = New System.Drawing.Point(3, 27)
         Me.MenuStrip2.Name = "MenuStrip2"
         Me.MenuStrip2.Padding = New System.Windows.Forms.Padding(5, 2, 0, 2)
-        Me.MenuStrip2.Size = New System.Drawing.Size(143, 28)
+        Me.MenuStrip2.Size = New System.Drawing.Size(263, 28)
         Me.MenuStrip2.TabIndex = 45
         Me.MenuStrip2.Text = "Kundenauswertungen"
         '
         'ToolStripMenuItem2
         '
         Me.ToolStripMenuItem2.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
-        Me.ToolStripMenuItem2.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem3, Me.NachRechnungslandToolStripMenuItem, Me.NachLeistungsnummerToolStripMenuItem, Me.NachZollabfertigungspreisenToolStripMenuItem})
+        Me.ToolStripMenuItem2.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem3, Me.NachRechnungslandToolStripMenuItem, Me.NachLeistungsnummerToolStripMenuItem, Me.NachZollabfertigungspreisenToolStripMenuItem, Me.RechnungenOhnePositionenToolStripMenuItem})
         Me.ToolStripMenuItem2.Font = New System.Drawing.Font("Segoe UI", 10.0!)
         Me.ToolStripMenuItem2.ForeColor = System.Drawing.Color.White
         Me.ToolStripMenuItem2.Image = Global.SDL.My.Resources.Resources.statistik_small
@@ -1583,28 +1599,28 @@ Partial Class frmRechnungenSuche
         '
         Me.ToolStripMenuItem3.Image = Global.SDL.My.Resources.Resources.statistik_small
         Me.ToolStripMenuItem3.Name = "ToolStripMenuItem3"
-        Me.ToolStripMenuItem3.Size = New System.Drawing.Size(272, 24)
+        Me.ToolStripMenuItem3.Size = New System.Drawing.Size(276, 26)
         Me.ToolStripMenuItem3.Text = "Nach Rechnungsanschrift"
         '
         'NachRechnungslandToolStripMenuItem
         '
         Me.NachRechnungslandToolStripMenuItem.Image = Global.SDL.My.Resources.Resources.Excel_logo
         Me.NachRechnungslandToolStripMenuItem.Name = "NachRechnungslandToolStripMenuItem"
-        Me.NachRechnungslandToolStripMenuItem.Size = New System.Drawing.Size(272, 24)
+        Me.NachRechnungslandToolStripMenuItem.Size = New System.Drawing.Size(276, 26)
         Me.NachRechnungslandToolStripMenuItem.Text = "Nach Rechnungsland"
         '
         'NachLeistungsnummerToolStripMenuItem
         '
         Me.NachLeistungsnummerToolStripMenuItem.Image = Global.SDL.My.Resources.Resources.Excel_logo
         Me.NachLeistungsnummerToolStripMenuItem.Name = "NachLeistungsnummerToolStripMenuItem"
-        Me.NachLeistungsnummerToolStripMenuItem.Size = New System.Drawing.Size(272, 24)
+        Me.NachLeistungsnummerToolStripMenuItem.Size = New System.Drawing.Size(276, 26)
         Me.NachLeistungsnummerToolStripMenuItem.Text = "Nach Leistungsnummer"
         '
         'NachZollabfertigungspreisenToolStripMenuItem
         '
         Me.NachZollabfertigungspreisenToolStripMenuItem.Image = Global.SDL.My.Resources.Resources.Excel_logo
         Me.NachZollabfertigungspreisenToolStripMenuItem.Name = "NachZollabfertigungspreisenToolStripMenuItem"
-        Me.NachZollabfertigungspreisenToolStripMenuItem.Size = New System.Drawing.Size(272, 24)
+        Me.NachZollabfertigungspreisenToolStripMenuItem.Size = New System.Drawing.Size(276, 26)
         Me.NachZollabfertigungspreisenToolStripMenuItem.Text = "Nach Zollabf.-preisen (LNr: 340)"
         '
         'Button3
@@ -1699,21 +1715,21 @@ Partial Class frmRechnungenSuche
         '
         Me.ToolStripMenuItem1.Image = CType(resources.GetObject("ToolStripMenuItem1.Image"), System.Drawing.Image)
         Me.ToolStripMenuItem1.Name = "ToolStripMenuItem1"
-        Me.ToolStripMenuItem1.Size = New System.Drawing.Size(376, 26)
+        Me.ToolStripMenuItem1.Size = New System.Drawing.Size(372, 24)
         Me.ToolStripMenuItem1.Text = "TRANSFERRY/360 (Sammelrechnung auswählen)"
         '
         'EVOLOGSammelrechnungAuswählenToolStripMenuItem
         '
         Me.EVOLOGSammelrechnungAuswählenToolStripMenuItem.Image = CType(resources.GetObject("EVOLOGSammelrechnungAuswählenToolStripMenuItem.Image"), System.Drawing.Image)
         Me.EVOLOGSammelrechnungAuswählenToolStripMenuItem.Name = "EVOLOGSammelrechnungAuswählenToolStripMenuItem"
-        Me.EVOLOGSammelrechnungAuswählenToolStripMenuItem.Size = New System.Drawing.Size(376, 26)
+        Me.EVOLOGSammelrechnungAuswählenToolStripMenuItem.Size = New System.Drawing.Size(372, 24)
         Me.EVOLOGSammelrechnungAuswählenToolStripMenuItem.Text = "EVOLOG (Sammelrechnung auswählen)"
         '
         'ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem
         '
         Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Image = CType(resources.GetObject("ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Image"), System.Drawing.Image)
         Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Name = "ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem"
-        Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Size = New System.Drawing.Size(376, 26)
+        Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Size = New System.Drawing.Size(372, 24)
         Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Text = "ZF Friedrichshafen AG (Zeitraum auswählen)"
         Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Visible = False
         '
@@ -1865,20 +1881,12 @@ Partial Class frmRechnungenSuche
         Me.TestToolStripMenuItem.Size = New System.Drawing.Size(150, 19)
         Me.TestToolStripMenuItem.Text = "test"
         '
-        'Button8
+        'RechnungenOhnePositionenToolStripMenuItem
         '
-        Me.Button8.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.RechnungenOhnePositionenToolStripMenuItem.Image = Global.SDL.My.Resources.Resources.Excel_logo
-        Me.Button8.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.RechnungenOhnePositionenToolStripMenuItem.Name = "RechnungenOhnePositionenToolStripMenuItem"
-        Me.Button8.Image = Global.SDL.My.Resources.Resources.statistik_small
+        Me.RechnungenOhnePositionenToolStripMenuItem.Size = New System.Drawing.Size(276, 26)
-        Me.Button8.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.RechnungenOhnePositionenToolStripMenuItem.Text = "Rechnungen ohne Positionen"
-        Me.Button8.Location = New System.Drawing.Point(738, 19)
-        Me.Button8.Margin = New System.Windows.Forms.Padding(0)
-        Me.Button8.Name = "Button8"
-        Me.Button8.Size = New System.Drawing.Size(159, 39)
-        Me.Button8.TabIndex = 46
-        Me.Button8.Text = "Provisionsvergütungen..."
-        Me.Button8.TextAlign = System.Drawing.ContentAlignment.MiddleRight
-        Me.Button8.UseVisualStyleBackColor = True
         '
         'frmRechnungenSuche
         '
@@ -2040,4 +2048,5 @@ Partial Class frmRechnungenSuche
     Friend WithEvents NachRechnungslandToolStripMenuItem As ToolStripMenuItem
     Friend WithEvents NachLeistungsnummerToolStripMenuItem As ToolStripMenuItem
     Friend WithEvents Button8 As Button
+    Friend WithEvents RechnungenOhnePositionenToolStripMenuItem As ToolStripMenuItem
 End Class

SDL/Fakturierung/frmRechnungenSuche.vb

@@ -997,4 +997,33 @@ Public Class frmRechnungenSuche
         Dim f As New frmProvisionisverguetung
         f.Show(Me)
     End Sub
+
+    Private Sub RechnungenOhnePositionenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles RechnungenOhnePositionenToolStripMenuItem.Click
+        Try
+
+            Me.Cursor = Cursors.WaitCursor
+
+            Dim sqlstr = "SELECT * From Rechnungsausgang r Where r.RechnungsDatum >= @Datum_von And r.RechnungsDatum <= @Datum_bis
+                        And Not EXISTS( SELECT 1 From RechnungsausgangPositionen p Where p.RK_ID = r.RK_ID) "
+            If cboFirma._value <> "" Then sqlstr &= " AND r.[Firma_ID] = @Firma_ID "
+
+
+            Dim dt As DataTable = SQL.loadDgvBySql_Param(sqlstr, "FMZOLL", , getSpedbuchList())
+
+            If dt.Rows.Count > 0 Then
+                cProgramFunctions.genExcelFromDT_NEW(dt)
+                Me.Cursor = Cursors.Default
+            Else
+                Me.Cursor = Cursors.Default
+                MsgBox("keine Rechnungen ohne Positionen vorhanden!")
+
+            End If
+
+
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+            Me.Cursor = Cursors.Default
+        End Try
+    End Sub
+
 End Class

SDL/Fakturierung/usrCntlFaktAbrechnung.vb

@@ -525,7 +525,7 @@ Public Class usrCntlFaktAbrechnung
         GutschriftAnVeragToolStripMenuItem.Visible = False
 
         If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" Then
-            cboFiliale.fillWithSQL("SELECT FilialenNr, Grenzstelle FROM Filialen WHERE Fil_Status='A' AND FilialenNr IN(4801,4802) ORDER BY FilialenNr ", True, "FMZOLL", True)
+            cboFiliale.fillWithSQL("SELECT FilialenNr, Grenzstelle FROM Filialen WHERE Fil_Status='A' AND FilialenNr IN(4801,4802, 4806) ORDER BY FilialenNr ", True, "FMZOLL", True)
         Else
             cboFiliale.fillWithSQL("SELECT FilialenNr, Grenzstelle FROM Filialen WHERE Fil_Status='A' ORDER BY FilialenNr ", True, "FMZOLL", True)
         End If

SDL/My Project/AssemblyInfo.vb

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

SDL/buchhaltung/usrCntlBH.Designer.vb

@@ -732,7 +732,7 @@ Partial Class usrCntlBH
         '
         Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.Label5.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
-        Me.Label5.Location = New System.Drawing.Point(564, 16)
+        Me.Label5.Location = New System.Drawing.Point(145, 6)
         Me.Label5.Name = "Label5"
         Me.Label5.Size = New System.Drawing.Size(197, 24)
         Me.Label5.TabIndex = 0

SDL/buchhaltung/usrCntlBH.vb

@@ -905,7 +905,7 @@ Public Class usrCntlBH
 
                         Else
 
-                            zins.buchungstext = r.Item("Buchungstext")
+                            zins.buchungstext = r.Item("Buchungstext").ToString.Replace("'", "")
                             zins.kundeZahlungsziel = r.Item("ZZ_in_Debitor")
                             zins.zinssatz = r.Item("Zinssatz_Kunde")
                             zins.belegZahlungsziel = r.Item("ZZinTage")
@@ -918,6 +918,7 @@ Public Class usrCntlBH
                             zins.faelligkeitsDatum = CDate(r.Item("Belegdatum")).AddDays(CInt(r.Item("ZZinTage")))
                             zins.zahlungsperiode_start = CDate(txtZRvon.Text).ToShortDateString
                             zins.zahlungsperiode_ende = CDate(txtZRbis.Text).ToShortDateString
+
                             zins.SAVE()
 
                         End If
@@ -1320,7 +1321,7 @@ Public Class usrCntlBH
                     Dim startDate As String = CDate(R("zahlungsperiode_start")).ToShortDateString
                     Dim EndDate As String = CDate(R("zahlungsperiode_ende")).ToShortDateString
 
-                    Dim vermerk As String = "Zahlungen von " & startDate & " - " & EndDate 'max 50 Zeichen!!!
+                    Dim vermerk As String = "Zahlungen " & startDate & " - " & EndDate 'max 50 Zeichen!!!
                     Dim Fußtext As String = ""
 
                     'Fußtext  = "Sehr geehrte Damen und Herren," & vbNewLine & "

SDL/frmMain.vb

@@ -159,7 +159,7 @@ Public Class frmMain
                 timas.getTimeEntries(cAllgemein.MITARBEITER.mit_timasId, infoMessage, timeEntryExisting,, isEndpointRunning)
                 If Not timeEntryExisting AndAlso isEndpointRunning Then
 
-                    Dim frm As New frmTimasabfrage(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER)
+                    Dim frm As New frmTimasabfrage(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER, VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_timasMehrereFirmen)
                     frm.TopMost = True
                     frm.ShowDialog()
 
@@ -168,6 +168,15 @@ Public Class frmMain
                             Dim f As New frmZEButtons("in", VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_timasFirmen)
                             f.ShowDialog()
                             f.TopMost = True
+
+                            If f.DialogResult = DialogResult.OK AndAlso f.resultCode >= 0 Then
+                                Dim info
+                                timas.setTimeEntry(cAllgemein.MITARBEITER, Now, info, "in", f.resultCode)
+                                MsgBox(info)
+                            Else
+                                Exit Sub
+                            End If
+
                         Else
                             Dim info
                             timas.setTimeEntry(cAllgemein.MITARBEITER, Now, info, "in", frm.typ)

SDL/kassenbuch/frmBelegNeu.vb

@@ -1604,7 +1604,7 @@ Public Class frmBelegNeu
 
                 If isLeihgeldeinzahlung Then
                     If BELEG.KundenNr > 0 Then
-                        Dim KundenKontoArchiv As String = SQL.getValueTxtBySqlVarList("SELECT c_archiv FROM [FIBU2].dbo.fibu_konto WHERE i_konto = " & BELEG.KundenNr & " AND i_firm_refid =  7", "FIBU") 'ATILLA MANDANT!'
+                        Dim KundenKontoArchiv As String = (New VERAG_PROG_ALLGEMEIN.SQL).getValueTxtBySqlVarList("SELECT c_archiv FROM [FIBU2].dbo.fibu_konto WHERE i_konto = " & BELEG.KundenNr & " AND i_firm_refid =  " & IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "9", "7"), "FIBU") 'ATILLA MANDANT!'
                         If KundenKontoArchiv <> "" Then
                             MsgBox("ACHTUNG, die Kundennummer ist in der Syska-FIBU inaktiv, bitte andere KundenNr verwenden!")
                             Exit Sub

SDL/kassenbuch/frmNacherfassungLeihgeld.vb

@@ -454,11 +454,17 @@ Public Class frmNacherfassungLeihgeld
                             If Not gen_RECHNUNG_BySPEDBUCH(BELEG.KundenNr, SPEDBUCH, RK_ID, cbxOP_sofort_buchen.Checked, summeBRUTTO, summeNETTO) Then verarbOK = False
                             If RK_ID > 0 Then
                                 Dim RECHNUNG As New cRechnungsausgang(RK_ID)
-                                If Not cFakturierung.doRechnungsDruck(RECHNUNG, Today(),, 7) Then verarbOK = False 'rechnungsNr vergeben, aber nicht gedruckt!
+
+                                'rechnungsNr vergeben, aber nicht gedruckt!
+                                If Not cFakturierung.doRechnungsDruck(RECHNUNG, Today(),, 4) Then verarbOK = False
+                                If RECHNUNG.[DruckDatumZeit] IsNot Nothing Then
+                                    RECHNUNG.[DruckDatumZeit] = Nothing
+                                    RECHNUNG.SAVE_DruckDatumZeit()
+                                End If
                             End If
 
                             If verarbOK Then
-
+                                'MsgBox("Rechnung erstellt!")
                             Else
                                 MsgBox("Fehler bei Rechnungserstellung!")
 
@@ -487,8 +493,8 @@ Public Class frmNacherfassungLeihgeld
 
             If KdNr = "" Then Return False
 
-            Dim AD As New VERAG_PROG_ALLGEMEIN.cAdressen(SPEDBUCH.VermittlerKundenNr)
+            Dim AD As New VERAG_PROG_ALLGEMEIN.cAdressen(KdNr)
-            Dim KD As New VERAG_PROG_ALLGEMEIN.cKunde(SPEDBUCH.VermittlerKundenNr)
+            Dim KD As New VERAG_PROG_ALLGEMEIN.cKunde(KdNr)
             Dim RG As New VERAG_PROG_ALLGEMEIN.cRechnungsausgang
 
             Dim OffertenNr As Integer
@@ -537,7 +543,7 @@ Public Class frmNacherfassungLeihgeld
 
             RG.Lastschrift = KD.Lastschrift
             RG.Kunden_SVS = KD.SVS
-            RG.Steuerschlüssel = KD.Steuerschlüssel
+            RG.Steuerschlüssel = 0 'Immer 0 % weil durchlaufposten!
             RG.Vorkasse = KD.Vorkasse
             RG.Vorlageprovision_Proz = KD.Vorlageprovision
             RG.Kreditaufwendungen_Proz = KD.Kreditaufwendungen

VERAG_PROG_ALLGEMEIN/Classes/cTrdInvoice.vb

@@ -501,6 +501,9 @@ Class TrdInvoice_FUNCTIONS
                         If Buchungstext <> "" AndAlso Buchungstext.Contains("Zahlungen von") Then
                             Buchungstext = Buchungstext.Replace("Zahlungen von", "Zinsen")
                             ' Buchungstext &= " / nicht verzinsen"
+                        ElseIf Buchungstext <> "" AndAlso Buchungstext.Contains("Zahlungen") Then
+                            Buchungstext = Buchungstext.Replace("Zahlungen", "Zinsen")
+
                         End If
 
                         If TRD_INVOICE.SAVE Then

VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersuche.Designer.vb

@@ -35,6 +35,7 @@ Partial Class frmMitarbeitersuche
         Me.lblStatusZE = New System.Windows.Forms.Label()
         Me.Label13 = New System.Windows.Forms.Label()
         Me.pnlZeiten = New System.Windows.Forms.Panel()
+        Me.cbxLaengergearbeitet = New System.Windows.Forms.CheckBox()
         Me.btnAkten = New System.Windows.Forms.Button()
         Me.PictureBox5 = New System.Windows.Forms.PictureBox()
         Me.Button2 = New System.Windows.Forms.Button()
@@ -264,6 +265,7 @@ Partial Class frmMitarbeitersuche
         Me.pnlZeiten.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.pnlZeiten.BackColor = System.Drawing.Color.Cornsilk
         Me.pnlZeiten.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.pnlZeiten.Controls.Add(Me.cbxLaengergearbeitet)
         Me.pnlZeiten.Controls.Add(Me.btnAkten)
         Me.pnlZeiten.Controls.Add(Me.PictureBox5)
         Me.pnlZeiten.Controls.Add(Me.Button2)
@@ -280,6 +282,18 @@ Partial Class frmMitarbeitersuche
         Me.pnlZeiten.TabIndex = 22
         Me.pnlZeiten.Visible = False
         '
+        'cbxLaengergearbeitet
+        '
+        Me.cbxLaengergearbeitet.AutoSize = True
+        Me.cbxLaengergearbeitet.ForeColor = System.Drawing.Color.Black
+        Me.cbxLaengergearbeitet.Location = New System.Drawing.Point(367, -1)
+        Me.cbxLaengergearbeitet.Name = "cbxLaengergearbeitet"
+        Me.cbxLaengergearbeitet.Size = New System.Drawing.Size(109, 17)
+        Me.cbxLaengergearbeitet.TabIndex = 131
+        Me.cbxLaengergearbeitet.Text = "Länger gearbeitet"
+        Me.cbxLaengergearbeitet.UseVisualStyleBackColor = True
+        Me.cbxLaengergearbeitet.Visible = False
+        '
         'btnAkten
         '
         Me.btnAkten.BackColor = System.Drawing.Color.White
@@ -991,4 +1005,5 @@ Partial Class frmMitarbeitersuche
     Friend WithEvents Label17 As Windows.Forms.Label
     Friend WithEvents lblNotfall_Handy As Windows.Forms.Label
     Friend WithEvents lblNotfall_Name As Windows.Forms.Label
+    Friend WithEvents cbxLaengergearbeitet As Windows.Forms.CheckBox
 End Class

VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersuche.vb

@@ -107,7 +107,7 @@ Public Class frmMitarbeitersuche
             lblHandyNr.Visible = MA.mit_MAVerzeichnis_allowHandynummer
             lblHandyNr.Text = If(MA.mit_mobiltel, "")
 
-            cbxHomeoffice.Checked = MA.mit_homeoffice
+            cbxHomeoffice.Checked = IIf(MA.mit_homeoffice AndAlso Not MA.mit_timasMehrereFirmen, True, False)
 
 
             Select Case If(MA.mit_abteilung, "")
@@ -203,6 +203,15 @@ Public Class frmMitarbeitersuche
 
             If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ZE_AKTENGANG", "SDL") Then btnAkten.Visible = True
 
+            If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ZE_LÄNGER_ARBEITEN", "SDL") Then cbxLaengergearbeitet.Visible = True
+
+            'If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ZE_HOMEOFFICE", "SDL") Then cbxHomeoffice.Visible = True
+
+            If MA.mit_timasMehrereFirmen Then
+                cbxHomeoffice.Visible = False
+            End If
+
+
             If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Überstunden_auszahlen", "SDL") Then
                 If MA.getFirma = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Then 'MA derselben Firma bearbeiten
                     Button3.Visible = True
@@ -442,9 +451,14 @@ Public Class frmMitarbeitersuche
 
 
                 'normales kommen/gehen
-                Dim a As MsgBoxResult = MsgBox(IIf(cbxHomeoffice.Checked, "Homeoffice", "Büro") & vbNewLine & sender.text & " für " & VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME & vbNewLine & Now.ToString(), vbYesNo)
+                Dim a As MsgBoxResult = MsgBox(IIf(cbxHomeoffice.Checked AndAlso Not MA.mit_timasMehrereFirmen, "Homeoffice", "Büro") & IIf(cbxLaengergearbeitet.Checked, " (Länger gearbeitet)", "") & vbNewLine & sender.text & " für " & VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME & vbNewLine & Now.ToString(), vbYesNo)
                 If a = vbYes Then
                     Dim info As String = ""
+
+                    If art = "out" AndAlso cbxLaengergearbeitet.Checked Then
+                        resultCode = 15 'länger arbeiten
+                    End If
+
                     timas.setTimeEntry(cAllgemein.MITARBEITER, Now, info, art, resultCode)
                     MsgBox(info)
                     Thread.Sleep(2000) 'warten bis Eintrag in Timas-DB
@@ -484,12 +498,14 @@ Public Class frmMitarbeitersuche
                         btnZEGehen.Enabled = True
                         btnZEKommen.Enabled = False
                         btnAkten.Enabled = False
+                        cbxLaengergearbeitet.Enabled = True
                     Else
                         lblStatusZE.Text = "OFFLINE"
                         lblStatusZE.BackColor = Color.Firebrick
                         btnZEGehen.Enabled = False
                         btnZEKommen.Enabled = True
                         btnAkten.Enabled = True
+                        cbxLaengergearbeitet.Enabled = False
                     End If
                 Else
 
@@ -503,7 +519,7 @@ Public Class frmMitarbeitersuche
                     btnZEKommen.Enabled = False
                     Button2.Enabled = False
                     btnAkten.Enabled = False
-
+                    cbxLaengergearbeitet.Enabled = False
 
                 End If
 

VERAG_PROG_ALLGEMEIN/Schnittstellen/TIMAS/cTimasAPI.vb

@@ -934,10 +934,10 @@ Public Class cTimasAPI
 
         Select Case inout
             Case "in"
-                entryType = "KOMMT" & IIf(art = 0, "(Büro)", "") & IIf(art = 3, "(Homeoffice)", "")
+                entryType = "KOMMT" & IIf(art = 0, " (Büro)", "") & IIf(art = 3, " (Homeoffice)", "")
 
             Case "out"
-                entryType = "GEHT"
+                entryType = "GEHT" & IIf(art = 15, " (Länger gearbeitet)", "")
 
             Case Else
                 entryType = "falscher ErfassgsTyp: " & inout

VERAG_PROG_ALLGEMEIN/frmTimasabfrage.vb

@@ -1,5 +1,6 @@
 Public Class frmTimasabfrage
     Dim mit As VERAG_PROG_ALLGEMEIN.cMitarbeiter
+    Dim nurBuero As Boolean = False
     Public Datum As Date = CDate(Now.ToShortDateString)
     Public typ As Integer = -1
     Public Schalter As Integer = -1
@@ -15,11 +16,25 @@
         mit = mit_
     End Sub
 
+    Sub New(mit_ As cMitarbeiter, nurBuero_ As Boolean)
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+        mit = mit_
+        nurBuero = nurBuero_
+    End Sub
+
     Private Sub frmTimasabfrage(sender As Object, e As EventArgs) Handles Me.Load
 
         cboTyp.Items.Clear()
         cboTyp.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Büro", "0"))
-        cboTyp.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Homeoffice", "3"))
+        If Not nurBuero Then
+            cboTyp.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Homeoffice", "3"))
+            rbHO.Enabled = True
+        Else
+            rbHO.Enabled = False
+        End If
+
+
 
         cbxSchalterID.Items.Clear()
         cbxSchalterID.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
@@ -29,7 +44,7 @@
 
         If mit IsNot Nothing Then
             Label1.Text = "Zeit erfassen für: " & mit.mit_nname & " " & mit.mit_vname
-            If mit.mit_homeoffice Then
+            If mit.mit_homeoffice AndAlso Not nurBuero Then
                 rbHO.Checked = True
                 cboTyp.changeItem("Homeoffice")
             Else