Merge branch 'newMaster2024' of https://git.it.verag.ag/edv/SDL into newMaster2024

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("FIBU - GEBUCHT!")
         Else
-            ' MsgBox("NICHT GEBUCHT!")
+            MsgBox("FIBU - 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/cFakturierung.vb

@@ -5350,19 +5350,22 @@ Public Class cFakturierung
         Dim BelegartenKz = If(Gesamt_RG_Betrag < 0, "AG", "AR")
 
         Select Case Row("RechnungSprache")
-            Case "EN"
+
-                Select Case BelegartenKz
+            'Mehrsprachigkeit bei Sammelrechnung vorerst deaktivieren!!!!
-                    Case "AR"
+
-                        rpt.lblUeberschriftRG_GS.Text = IIf(Not isMDMRechnungsdruck, "Attatchment to INVOICE", "INVOICE")
+            'Case "EN"
-                        rpt.lblSummeUeberschrift.Text = "Invoice Amount:"
+            '    Select Case BelegartenKz
-                        rpt.lblRgNrUeberschrift.Text = "Invoice No.:"
+            '        Case "AR"
-                        rpt.lblRgDatumUeberschrift.Text = "Invoice Date:"
+            '            rpt.lblUeberschriftRG_GS.Text = IIf(Not isMDMRechnungsdruck, "Attatchment to INVOICE", "INVOICE")
-                    Case "AG"
+            '            rpt.lblSummeUeberschrift.Text = "Invoice Amount:"
-                        rpt.lblUeberschriftRG_GS.Text = IIf(Not isMDMRechnungsdruck, "Attatchment to CREDIT NOTE", "CREDIT NOTE")
+            '            rpt.lblRgNrUeberschrift.Text = "Invoice No.:"
-                        rpt.lblSummeUeberschrift.Text = "Credit Amount:"
+            '            rpt.lblRgDatumUeberschrift.Text = "Invoice Date:"
-                        rpt.lblRgNrUeberschrift.Text = "Credit Note No.:"
+            '        Case "AG"
-                        rpt.lblRgDatumUeberschrift.Text = "Credit Note Date:"
+            '            rpt.lblUeberschriftRG_GS.Text = IIf(Not isMDMRechnungsdruck, "Attatchment to CREDIT NOTE", "CREDIT NOTE")
-                End Select
+            '            rpt.lblSummeUeberschrift.Text = "Credit Amount:"
+            '            rpt.lblRgNrUeberschrift.Text = "Credit Note No.:"
+            '            rpt.lblRgDatumUeberschrift.Text = "Credit Note Date:"
+            '    End Select
             Case Else
                 Select Case BelegartenKz
                     Case "AR"

SDL/Fakturierung/frmAbrechnungsMaske.vb

@@ -1,5 +1,4 @@
 Imports System.IO
-Imports com.sun.org.apache.xalan.internal.xsltc.compiler.util
 Imports Microsoft.Office.Interop
 
 Public Class frmAbrechnungsMaske
@@ -80,8 +79,8 @@ Public Class frmAbrechnungsMaske
                     cboFirma.fillWithSQL("Select [Firma_ID],[Firma_Bez]  FROM  [tblFirma] WHERE 1=1  " & whereFirma, False, "FMZOLL")
                     cboFirma.changeItem("1")
                     cboSachbearbeiter.fillWithSQL("SELECT [mit_username] FROM [tblMitarbeiter] where mit_firma IN ('VERAG'" & If(VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME = "ADMIN", ",'ALL'", "") & ") and mit_gekuendigt=0 AND  (mit_abteilung IN ('VRR','BH')	OR [mit_id] IN (SELECT  [beroz_bergrId]  FROM [tblBerechtigungsObjekteZuordnung]  where [beroz_beroId]=90 AND  beroz_art='B')) 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("*BAUBÖCK", "BAUBOECK"))
-                    cboSachbearbeiter.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DANIEL", "DANIEL"))
+                    'cboSachbearbeiter.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DANIEL", "DANIEL"))
 
                 Else
 
@@ -118,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
 
 
@@ -330,10 +330,15 @@ Public Class frmAbrechnungsMaske
 
         If sender Is cboER_SR Then
 
-            lblKunde.Visible = cboER_SR._value = "MSR"
+            lblKunde.Visible = True 'cboER_SR._value = "MSR"
-            KdSearchBox1.Visible = cboER_SR._value = "MSR"
+            KdSearchBox1.Visible = True 'cboER_SR._value = "MSR"
 
-            If KdSearchBox1.KdNr_value > 0 AndAlso cboER_SR._value <> "MSR" Then
+            'If KdSearchBox1.KdNr_value > 0 AndAlso cboER_SR._value <> "MSR" Then 'KdSearchBox1.KdNr_value > 0 AndAlso cboER_SR._value <> "MSR"
+            '    KdSearchBox1.KdNr_value = -1
+
+            'End If
+
+            If KdSearchBox1.KdNr_value > 0 Then
                 KdSearchBox1.KdNr_value = -1
 
             End If

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/rptRechnungMDM_AnlagenDruck_Zinsennachberechnung.vb

@@ -103,15 +103,21 @@
 
             Else
 
-                Dim dtTemp As DataTable
-                dtTemp = SQL.loadDgvBySql_Param("select [id] as clmnID,[belegNr] as clmnReNr,[buchungstext] as clmnAbfNr,[zinssatz] clmnVZ,[belegZahlungsziel],[ueberschreitungInTagen] clmnTage,[zinsbetrag] clmnZinsen,[belegDatum] as clmnReDatum,[zahlungsBetrag] as clmnReBetrag,[zahlungDatum] as clmnZE, [faelligkeitsDatum] as clmnFaellig from tblMDM_Zinsberechnung where RK_ID =" & RECHNUNG.RK_ID & " and RIGHT('00000' + CAST(id AS VARCHAR(5)), 5) +'-'+ buchungstext like '" & LeistungsText.Trim() & "%'", "FMZOLL")
 
-                For Each rg As DataRow In dtTemp.Rows
+                If RECHNUNG.BelegartenKz <> "AG" Then
-                    dt.Rows.Add(rg.Item("clmnID"), rg.Item("clmnReNr"), rg.Item("clmnReDatum"), rg.Item("clmnAbfNr"), rg.Item("clmnReBetrag"), rg.Item("clmnZE"), rg.Item("clmnTage"), rg.Item("clmnZinsen"), rg.Item("clmnVZ"), rg.Item("clmnFaellig"))
+
-                Next
+                    Dim dtTemp As DataTable
+                    dtTemp = SQL.loadDgvBySql_Param("select [id] as clmnID,[belegNr] as clmnReNr,[buchungstext] as clmnAbfNr,[zinssatz] clmnVZ,[belegZahlungsziel],[ueberschreitungInTagen] clmnTage,[zinsbetrag] clmnZinsen,[belegDatum] as clmnReDatum,[zahlungsBetrag] as clmnReBetrag,[zahlungDatum] as clmnZE, [faelligkeitsDatum] as clmnFaellig from tblMDM_Zinsberechnung where RK_ID =" & RECHNUNG.RK_ID & " and RIGHT('00000' + CAST(id AS VARCHAR(5)), 5) +'-'+ buchungstext like '" & LeistungsText.Trim() & "%'", "FMZOLL")
+
+                    For Each rg As DataRow In dtTemp.Rows
+                        dt.Rows.Add(rg.Item("clmnID"), rg.Item("clmnReNr"), rg.Item("clmnReDatum"), rg.Item("clmnAbfNr"), rg.Item("clmnReBetrag"), rg.Item("clmnZE"), rg.Item("clmnTage"), rg.Item("clmnZinsen"), rg.Item("clmnVZ"), rg.Item("clmnFaellig"))
+                    Next
+                Else
+                    dt.Rows.Add("0", "", RECHNUNG.Abfertigungsdatum.ToShortDateString, "", "", LeistungsText.ToString, "", Betrag.ToString, "", "")
+
+                End If
 
             End If
-
         End If
 
 

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.0")>
+<Assembly: AssemblyVersion("1.5.1.2")>
-<Assembly: AssemblyFileVersion("1.5.1.0")>
+<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

@@ -136,6 +136,7 @@ Public Class frmBelegNeu
         For Each p In POS_ADD
             BELEG.POS.Add(p)
         Next
+
         BELEG.LKW_Beleg = True
 
         cboSteuerschlüssel.changeItem(BELEG.Steuerschlüssel)
@@ -1604,7 +1605,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.Designer.vb

@@ -24,6 +24,7 @@ Partial Class frmNacherfassungLeihgeld
     Private Sub InitializeComponent()
         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmNacherfassungLeihgeld))
         Me.pnl = New System.Windows.Forms.Panel()
+        Me.btnWiki = New System.Windows.Forms.Button()
         Me.txtDatum = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.btnNeueAbfertigungNrVergeben = New System.Windows.Forms.Button()
         Me.Label2 = New System.Windows.Forms.Label()
@@ -70,6 +71,7 @@ Partial Class frmNacherfassungLeihgeld
         Me.txtFahrer = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.cbxOP_sofort_buchen = New System.Windows.Forms.CheckBox()
         Me.lblGesperrt = New System.Windows.Forms.Label()
+        Me.cbxProvAnMA = New System.Windows.Forms.CheckBox()
         Me.pnl.SuspendLayout()
         Me.Panel1.SuspendLayout()
         Me.Panel2.SuspendLayout()
@@ -79,6 +81,7 @@ Partial Class frmNacherfassungLeihgeld
         '
         Me.pnl.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
         Me.pnl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.pnl.Controls.Add(Me.btnWiki)
         Me.pnl.Controls.Add(Me.txtDatum)
         Me.pnl.Controls.Add(Me.btnNeueAbfertigungNrVergeben)
         Me.pnl.Controls.Add(Me.Label2)
@@ -90,9 +93,22 @@ Partial Class frmNacherfassungLeihgeld
         Me.pnl.Dock = System.Windows.Forms.DockStyle.Top
         Me.pnl.Location = New System.Drawing.Point(0, 0)
         Me.pnl.Name = "pnl"
-        Me.pnl.Size = New System.Drawing.Size(441, 94)
+        Me.pnl.Size = New System.Drawing.Size(525, 94)
         Me.pnl.TabIndex = 0
         '
+        'btnWiki
+        '
+        Me.btnWiki.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
+        Me.btnWiki.BackgroundImage = Global.SDL.My.Resources.Resources.fragezeichen
+        Me.btnWiki.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.btnWiki.FlatAppearance.BorderSize = 0
+        Me.btnWiki.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnWiki.Location = New System.Drawing.Point(494, 3)
+        Me.btnWiki.Name = "btnWiki"
+        Me.btnWiki.Size = New System.Drawing.Size(25, 20)
+        Me.btnWiki.TabIndex = 215
+        Me.btnWiki.UseVisualStyleBackColor = False
+        '
         'txtDatum
         '
         Me.txtDatum._DateTimeOnly = False
@@ -123,7 +139,7 @@ Partial Class frmNacherfassungLeihgeld
         'btnNeueAbfertigungNrVergeben
         '
         Me.btnNeueAbfertigungNrVergeben.BackColor = System.Drawing.Color.Gainsboro
-        Me.btnNeueAbfertigungNrVergeben.Location = New System.Drawing.Point(281, 57)
+        Me.btnNeueAbfertigungNrVergeben.Location = New System.Drawing.Point(365, 57)
         Me.btnNeueAbfertigungNrVergeben.Name = "btnNeueAbfertigungNrVergeben"
         Me.btnNeueAbfertigungNrVergeben.Size = New System.Drawing.Size(145, 24)
         Me.btnNeueAbfertigungNrVergeben.TabIndex = 6
@@ -134,7 +150,7 @@ Partial Class frmNacherfassungLeihgeld
         '
         Me.Label2.AutoSize = True
         Me.Label2.ForeColor = System.Drawing.Color.White
-        Me.Label2.Location = New System.Drawing.Point(278, 41)
+        Me.Label2.Location = New System.Drawing.Point(362, 41)
         Me.Label2.Name = "Label2"
         Me.Label2.Size = New System.Drawing.Size(103, 13)
         Me.Label2.TabIndex = 3
@@ -155,7 +171,7 @@ Partial Class frmNacherfassungLeihgeld
         Me.txtAbfertigungsnummer._Waehrung = False
         Me.txtAbfertigungsnummer._WaehrungZeichen = True
         Me.txtAbfertigungsnummer.Font = New System.Drawing.Font("Microsoft Tai Le", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.txtAbfertigungsnummer.Location = New System.Drawing.Point(281, 57)
+        Me.txtAbfertigungsnummer.Location = New System.Drawing.Point(365, 57)
         Me.txtAbfertigungsnummer.MaxLength = 8
         Me.txtAbfertigungsnummer.MaxLineLength = -1
         Me.txtAbfertigungsnummer.MaxLines_Warning = ""
@@ -173,7 +189,7 @@ Partial Class frmNacherfassungLeihgeld
         Me.cboFiliale.Enabled = False
         Me.cboFiliale.Font = New System.Drawing.Font("Microsoft Tai Le", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.cboFiliale.FormattingEnabled = True
-        Me.cboFiliale.Location = New System.Drawing.Point(196, 56)
+        Me.cboFiliale.Location = New System.Drawing.Point(280, 56)
         Me.cboFiliale.Name = "cboFiliale"
         Me.cboFiliale.Size = New System.Drawing.Size(80, 24)
         Me.cboFiliale.TabIndex = 5
@@ -182,7 +198,7 @@ Partial Class frmNacherfassungLeihgeld
         '
         Me.Label1.AutoSize = True
         Me.Label1.ForeColor = System.Drawing.Color.White
-        Me.Label1.Location = New System.Drawing.Point(193, 41)
+        Me.Label1.Location = New System.Drawing.Point(277, 41)
         Me.Label1.Name = "Label1"
         Me.Label1.Size = New System.Drawing.Size(33, 13)
         Me.Label1.TabIndex = 2
@@ -272,7 +288,7 @@ Partial Class frmNacherfassungLeihgeld
         Me.btnPrint.ForeColor = System.Drawing.Color.Black
         Me.btnPrint.Image = Global.SDL.My.Resources.Resources.printer2
         Me.btnPrint.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.btnPrint.Location = New System.Drawing.Point(291, 331)
+        Me.btnPrint.Location = New System.Drawing.Point(375, 331)
         Me.btnPrint.Name = "btnPrint"
         Me.btnPrint.Padding = New System.Windows.Forms.Padding(0, 0, 5, 0)
         Me.btnPrint.Size = New System.Drawing.Size(136, 66)
@@ -307,7 +323,7 @@ Partial Class frmNacherfassungLeihgeld
         Me.cboPrintAktendeckel.AutoSize = True
         Me.cboPrintAktendeckel.Checked = True
         Me.cboPrintAktendeckel.CheckState = System.Windows.Forms.CheckState.Checked
-        Me.cboPrintAktendeckel.Location = New System.Drawing.Point(291, 313)
+        Me.cboPrintAktendeckel.Location = New System.Drawing.Point(375, 303)
         Me.cboPrintAktendeckel.Name = "cboPrintAktendeckel"
         Me.cboPrintAktendeckel.Size = New System.Drawing.Size(128, 17)
         Me.cboPrintAktendeckel.TabIndex = 17
@@ -366,7 +382,7 @@ Partial Class frmNacherfassungLeihgeld
         '
         Me.cbxProvisionAuftraggeber.AutoSize = True
         Me.cbxProvisionAuftraggeber.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.cbxProvisionAuftraggeber.Location = New System.Drawing.Point(186, 13)
+        Me.cbxProvisionAuftraggeber.Location = New System.Drawing.Point(281, 13)
         Me.cbxProvisionAuftraggeber.Name = "cbxProvisionAuftraggeber"
         Me.cbxProvisionAuftraggeber.Size = New System.Drawing.Size(173, 17)
         Me.cbxProvisionAuftraggeber.TabIndex = 1
@@ -376,11 +392,13 @@ Partial Class frmNacherfassungLeihgeld
         'Panel1
         '
         Me.Panel1.BackColor = System.Drawing.Color.WhiteSmoke
+        Me.Panel1.Controls.Add(Me.cbxProvAnMA)
         Me.Panel1.Controls.Add(Me.cbxProvision)
         Me.Panel1.Controls.Add(Me.txtAuftrProvision)
         Me.Panel1.Controls.Add(Me.cbxProvisionAuftraggeber)
         Me.Panel1.Controls.Add(Me.Label8)
         Me.Panel1.Controls.Add(Me.cboProvisionBetrag)
+        Me.Panel1.Controls.Add(Me.Panel2)
         Me.Panel1.Controls.Add(Me.Label10)
         Me.Panel1.Controls.Add(Me.cboProvisionStaffel)
         Me.Panel1.Controls.Add(Me.txtProvisionProzent)
@@ -388,7 +406,7 @@ Partial Class frmNacherfassungLeihgeld
         Me.Panel1.Dock = System.Windows.Forms.DockStyle.Bottom
         Me.Panel1.Location = New System.Drawing.Point(0, 404)
         Me.Panel1.Name = "Panel1"
-        Me.Panel1.Size = New System.Drawing.Size(441, 122)
+        Me.Panel1.Size = New System.Drawing.Size(525, 122)
         Me.Panel1.TabIndex = 20
         '
         'txtAuftrProvision
@@ -407,7 +425,7 @@ Partial Class frmNacherfassungLeihgeld
         Me.txtAuftrProvision._WaehrungZeichen = True
         Me.txtAuftrProvision.Enabled = False
         Me.txtAuftrProvision.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
-        Me.txtAuftrProvision.Location = New System.Drawing.Point(365, 11)
+        Me.txtAuftrProvision.Location = New System.Drawing.Point(460, 13)
         Me.txtAuftrProvision.MaxLineLength = -1
         Me.txtAuftrProvision.MaxLines_Warning = ""
         Me.txtAuftrProvision.MaxLines_Warning_Label = Nothing
@@ -493,7 +511,7 @@ Partial Class frmNacherfassungLeihgeld
         Me.Panel2.Controls.Add(Me.Label7)
         Me.Panel2.Controls.Add(Me.cboPrinter)
         Me.Panel2.Controls.Add(Me.cboPrinterProvisionBeleg)
-        Me.Panel2.Location = New System.Drawing.Point(213, 467)
+        Me.Panel2.Location = New System.Drawing.Point(297, 60)
         Me.Panel2.Name = "Panel2"
         Me.Panel2.Size = New System.Drawing.Size(228, 59)
         Me.Panel2.TabIndex = 21
@@ -636,7 +654,7 @@ Partial Class frmNacherfassungLeihgeld
         Me.ksFrachtführerKdNr.MaxLines_Warning_Label = Nothing
         Me.ksFrachtführerKdNr.Name = "ksFrachtführerKdNr"
         Me.ksFrachtführerKdNr.ReadOnly = True
-        Me.ksFrachtführerKdNr.Size = New System.Drawing.Size(138, 23)
+        Me.ksFrachtführerKdNr.Size = New System.Drawing.Size(222, 23)
         Me.ksFrachtführerKdNr.TabIndex = 3
         '
         'txtPassnummer
@@ -660,7 +678,7 @@ Partial Class frmNacherfassungLeihgeld
         Me.txtPassnummer.MaxLines_Warning = ""
         Me.txtPassnummer.MaxLines_Warning_Label = Nothing
         Me.txtPassnummer.Name = "txtPassnummer"
-        Me.txtPassnummer.Size = New System.Drawing.Size(138, 20)
+        Me.txtPassnummer.Size = New System.Drawing.Size(222, 20)
         Me.txtPassnummer.TabIndex = 9
         '
         'txtAuftraggeber
@@ -738,7 +756,7 @@ Partial Class frmNacherfassungLeihgeld
         Me.txtAuftraggeberKdNr.MaxLines_Warning_Label = Nothing
         Me.txtAuftraggeberKdNr.Name = "txtAuftraggeberKdNr"
         Me.txtAuftraggeberKdNr.ReadOnly = True
-        Me.txtAuftraggeberKdNr.Size = New System.Drawing.Size(138, 23)
+        Me.txtAuftraggeberKdNr.Size = New System.Drawing.Size(222, 23)
         Me.txtAuftraggeberKdNr.TabIndex = 13
         '
         'MyTextBoxLKWKz
@@ -792,7 +810,7 @@ Partial Class frmNacherfassungLeihgeld
         'cbxOP_sofort_buchen
         '
         Me.cbxOP_sofort_buchen.AutoSize = True
-        Me.cbxOP_sofort_buchen.Location = New System.Drawing.Point(291, 290)
+        Me.cbxOP_sofort_buchen.Location = New System.Drawing.Point(375, 280)
         Me.cbxOP_sofort_buchen.Name = "cbxOP_sofort_buchen"
         Me.cbxOP_sofort_buchen.Size = New System.Drawing.Size(145, 17)
         Me.cbxOP_sofort_buchen.TabIndex = 213
@@ -811,18 +829,28 @@ Partial Class frmNacherfassungLeihgeld
         Me.lblGesperrt.Text = "gesperrt!"
         Me.lblGesperrt.Visible = False
         '
+        'cbxProvAnMA
+        '
+        Me.cbxProvAnMA.AutoSize = True
+        Me.cbxProvAnMA.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.cbxProvAnMA.Location = New System.Drawing.Point(161, 13)
+        Me.cbxProvAnMA.Name = "cbxProvAnMA"
+        Me.cbxProvAnMA.Size = New System.Drawing.Size(119, 17)
+        Me.cbxProvAnMA.TabIndex = 22
+        Me.cbxProvAnMA.Text = "In Mitarbeiter-Kassa"
+        Me.cbxProvAnMA.UseVisualStyleBackColor = True
+        '
         'frmNacherfassungLeihgeld
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.BackColor = System.Drawing.Color.White
-        Me.ClientSize = New System.Drawing.Size(441, 526)
+        Me.ClientSize = New System.Drawing.Size(525, 526)
         Me.Controls.Add(Me.lblGesperrt)
         Me.Controls.Add(Me.cbxOP_sofort_buchen)
         Me.Controls.Add(Me.txtOpLeihgeld)
         Me.Controls.Add(Me.Label44)
         Me.Controls.Add(Me.Label11)
-        Me.Controls.Add(Me.Panel2)
         Me.Controls.Add(Me.Panel1)
         Me.Controls.Add(Me.txtKdAuftragsnummer)
         Me.Controls.Add(Me.cboPrintAktendeckel)
@@ -906,4 +934,6 @@ Partial Class frmNacherfassungLeihgeld
     Friend WithEvents Label44 As Label
     Public WithEvents cbxOP_sofort_buchen As CheckBox
     Friend WithEvents lblGesperrt As Label
+    Friend WithEvents btnWiki As Button
+    Friend WithEvents cbxProvAnMA As CheckBox
 End Class

SDL/kassenbuch/frmNacherfassungLeihgeld.vb

@@ -306,7 +306,8 @@ Public Class frmNacherfassungLeihgeld
                 End If
 
                 If Not validValues() Then Me.Cursor = Cursors.Default : Exit Sub
-                datatoBeleg() 'Daten werden in "BELEG" geldaen
+                datatoBeleg() 'Daten werden in "BELEG" geldae
+                'n
 
                 If BELEG.KundenNr > 0 AndAlso cbxOP_sofort_buchen.Checked Then
                     Dim KundenKontoArchiv As String = (New VERAG_PROG_ALLGEMEIN.SQL).getValueTxtBySql("SELECT isnull(c_archiv,'A') 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!'
@@ -405,7 +406,7 @@ Public Class frmNacherfassungLeihgeld
                 Dim barbetrag As Double = 0
                 Dim BelegNrProvision = 0
                 If cbxProvision.Checked Then
-                    printProvision(barbetrag, BelegNrProvision)
+                    printProvision(barbetrag, BelegNrProvision, cbxProvAnMA.Checked)
                 End If
 
 
@@ -454,11 +455,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 +494,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 +544,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
@@ -647,8 +654,15 @@ Public Class frmNacherfassungLeihgeld
         Return False
     End Function
 
-    Function printProvision(ByRef barBetrag As Double, ByRef BelegNrProvision As Integer) As Boolean
+    Function printProvision(ByRef barBetrag As Double, ByRef BelegNrProvision As Integer, Optional ProvisionAufMAKassa As Boolean = False) As Boolean
         printProvision = False
+
+        If ProvisionAufMAKassa Then
+            PERSONAL.ID = PERSONAL_LG.ID
+        End If
+
+
+
         Dim BELEG_Prov As New EABeleg(PERSONAL.Mandant, PERSONAL.Niederlassung, PERSONAL.ID)
         'lblRgNr.Text = "12345 / TR"
         BELEG_Prov.BelegDat = BELEG.BelegDat
@@ -1029,4 +1043,9 @@ Public Class frmNacherfassungLeihgeld
         txtAuftrProvision.Enabled = sender.checked
     End Sub
 
+    Private Sub btnWikis_Click(sender As Object, e As EventArgs) Handles btnWiki.Click
+
+        Dim webAddress As String = "https://wiki.verag.ag/software/aviso/howtos/Leihgeldkassa"
+        Process.Start(webAddress)
+    End Sub
 End Class

SDL/mdm/frmMDMDatenverarbetiung.vb

@@ -1280,7 +1280,7 @@ Public Class frmMDMDatenverarbetiung
 
                 Dim SPEDBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch = Nothing
                 Dim verarbOK = IIf(test, False, True)
-                Dim RECHNUNG As cRechnungsausgang = Nothing
+                Dim RECHNUNG As New cRechnungsausgang(4823, 25015595)
 
 
                 If Not gen_SPEDBUCH_ByKdNr(uta("Customer Nr"), SPEDBUCH, "UTA",,,, datPloseAnhang.Value) Then verarbOK = False
@@ -3884,10 +3884,10 @@ Public Class frmMDMDatenverarbetiung
                 If dictPloseKunden.TryGetValue(ploseKunde, rowKd) Then
                     r.Cells("VERAGKdNr").Value = rowKd("PLOSEKundenNr")
                     VERAGKdNr = CInt(rowKd("AdressenNr"))
-                    r.Cells("VERAGKdNr").Style.BackColor = Color.MintCream
+                    'r.Cells("VERAGKdNr").Style.BackColor = Color.MintCream
                 Else
                     pruefData_PLOSE = False
-                    r.Cells("VERAGKdNr").Style.BackColor = Color.PapayaWhip
+                    'r.Cells("VERAGKdNr").Style.BackColor = Color.PapayaWhip
                 End If
 
                 'Produkt lookup
@@ -3895,20 +3895,20 @@ Public Class frmMDMDatenverarbetiung
                 If dictProdukt.TryGetValue(produktCode, rowProdukt) Then
                     VERAGLeistungsNr = CInt(rowProdukt("plp_LeistungsNr"))
                     r.Cells("VERAGLeistungsNr").Value = VERAGLeistungsNr
-                    r.Cells("VERAGLeistungsNr").Style.BackColor = Color.MintCream
+                    'r.Cells("VERAGLeistungsNr").Style.BackColor = Color.MintCream
                 Else
                     pruefData_PLOSE = False
-                    r.Cells("VERAGLeistungsNr").Style.BackColor = Color.PapayaWhip
+                    'r.Cells("VERAGLeistungsNr").Style.BackColor = Color.PapayaWhip
                 End If
 
                 'Offerte 80 lookup
                 Dim offered80 As Object = Nothing
                 If dictOfferte.TryGetValue(VERAGKdNr.ToString(), offered80) Then
                     r.Cells("KundeOffertenNr").Value = offered80
-                    r.Cells("KundeOffertenNr").Style.BackColor = Color.MintCream
+                    'r.Cells("KundeOffertenNr").Style.BackColor = Color.MintCream
                 Else
                     pruefData_PLOSE = False
-                    r.Cells("KundeOffertenNr").Style.BackColor = Color.PapayaWhip
+                    'r.Cells("KundeOffertenNr").Style.BackColor = Color.PapayaWhip
                 End If
 
                 'Leistung lookup
@@ -3917,10 +3917,10 @@ Public Class frmMDMDatenverarbetiung
        setLeist.Contains(VERAGLeistungsNr.ToString()) Then
 
                     r.Cells("KundeLeistungsNr").Value = VERAGLeistungsNr
-                    r.Cells("KundeLeistungsNr").Style.BackColor = Color.MintCream
+                    'r.Cells("KundeLeistungsNr").Style.BackColor = Color.MintCream
                 Else
                     pruefData_PLOSE = False
-                    r.Cells("KundeLeistungsNr").Style.BackColor = Color.PapayaWhip
+                    'r.Cells("KundeLeistungsNr").Style.BackColor = Color.PapayaWhip
                 End If
 
                 'UI update alle 100 Zeilen statt 5

SDL/seriendruck/usrCntlFakturierung.Designer.vb

@@ -99,6 +99,7 @@ Partial Class usrcntlFakturierung
         Me.btnRePos = New System.Windows.Forms.Button()
         Me.Validation1 = New SDL.EORI.validation()
         Me.btnWikiStatusmails = New System.Windows.Forms.Button()
+        Me.btnRE_Text = New System.Windows.Forms.Button()
         Me.GroupBox1.SuspendLayout()
         Me.GBMautberichte.SuspendLayout()
         CType(Me.dgvMautbericht, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -343,6 +344,7 @@ Partial Class usrcntlFakturierung
         '
         'GBSammelrechnung
         '
+        Me.GBSammelrechnung.Controls.Add(Me.btnRE_Text)
         Me.GBSammelrechnung.Controls.Add(Me.btnFixeTaxe)
         Me.GBSammelrechnung.Controls.Add(Me.Label11)
         Me.GBSammelrechnung.Controls.Add(Me.PictureBox6)
@@ -941,6 +943,18 @@ Partial Class usrcntlFakturierung
         Me.btnWikiStatusmails.TabIndex = 72
         Me.btnWikiStatusmails.UseVisualStyleBackColor = True
         '
+        'btnRE_Text
+        '
+        Me.btnRE_Text.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnRE_Text.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.btnRE_Text.Location = New System.Drawing.Point(744, 223)
+        Me.btnRE_Text.Name = "btnRE_Text"
+        Me.btnRE_Text.Size = New System.Drawing.Size(107, 32)
+        Me.btnRE_Text.TabIndex = 127
+        Me.btnRE_Text.Text = "RE-Text setzen"
+        Me.btnRE_Text.UseVisualStyleBackColor = True
+        Me.btnRE_Text.Visible = False
+        '
         'usrcntlFakturierung
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -1050,4 +1064,5 @@ Partial Class usrcntlFakturierung
     Friend WithEvents Label11 As Label
     Friend WithEvents PictureBox6 As PictureBox
     Friend WithEvents btnFixeTaxe As Button
+    Friend WithEvents btnRE_Text As Button
 End Class

SDL/seriendruck/usrCntlFakturierung.vb

@@ -86,6 +86,8 @@ Public Class usrcntlFakturierung
         If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMINFUNCTIONS", "SDL") Then
             Button2.Visible = True
             Button3.Visible = True
+            btnRE_Text.Visible = True
+
         End If
 
 
@@ -179,8 +181,9 @@ Public Class usrcntlFakturierung
 
         'es sollen alle RE der letzen 3 Monate gesetzt werden (warum, weil das schon immer so war....)
         'ok = SQL.doSQL("update [Rechnungsausgang] set Sachbearbeiter='" & Sachbearbeiter & "' where Sammelrechnung=6 and Firma_ID=19 and Abfertigungsdatum = '" & dtRechnungsdatum.Value & "'", "FMZOLL")
+        Dim vergangAbfertigunsdatuminMontaen As Integer = -12
 
-        ok = SQL.doSQL("update [Rechnungsausgang] set Sachbearbeiter='" & Sachbearbeiter & "' where Firma_ID = 19 And Sammelrechnung = 6 And Abfertigungsdatum > DateAdd(Month, -3, GETDATE())", "FMZOLL")
+        ok = SQL.doSQL("update [Rechnungsausgang] set Sachbearbeiter='" & Sachbearbeiter & "' where Firma_ID = 19 And Sammelrechnung = 6 And Abfertigungsdatum > DateAdd(Month, " & vergangAbfertigunsdatuminMontaen & ", GETDATE())", "FMZOLL")
 
         showPic(ok, PictureBox1)
 
@@ -192,7 +195,7 @@ Public Class usrcntlFakturierung
 
         If rechnungenMitAbwAbfDat > 0 Then
             Dim res As MsgBoxResult
-            res = MsgBox("Es gibt noch " & rechnungenMitAbwAbfDat & " Rechnungen mit abweichenden Abfertigungsdatum (Abfertigungsdatum ist nicht " & rechnungsdatum & ")" & vbNewLine & "Möchten Sie fortfahren (Abfertigungsdatum wird automatisch auf " & rechnungsdatum & " gesetzt) ?", vbYesNoCancel)
+            res = MsgBox("Es gibt noch " & rechnungenMitAbwAbfDat & " Rechnungen mit abweichenden Abfertigungsdatum (Abfertigungsdatum ist nicht " & rechnungsdatum & ")" & vbNewLine & "Möchten Sie fortfahren (Abfertigungsdatum wird automatisch auf " & rechnungsdatum & " gesetzt (nur die letzten " & Math.Abs(vergangAbfertigunsdatuminMontaen) & " Monate ab heute) ?", vbYesNoCancel)
             Select Case res
                 Case MsgBoxResult.Yes : SQL.doSQL("update [Rechnungsausgang] set Abfertigungsdatum = '" & rechnungsdatum & "' WHERE [Status] = 0 AND [Sammelrechnung] = 6 AND UPPER([Sachbearbeiter]) = '" & Sachbearbeiter & "' AND ([SteuerpflichtigerGesamtbetrag] <> 0 OR [SteuerfreierGesamtbetrag] <> 0) AND cast(Abfertigungsdatum as Date) <> '" & rechnungsdatum & "'", "FMZOLL")
                 Case MsgBoxResult.No
@@ -681,7 +684,7 @@ Public Class usrcntlFakturierung
 
     End Function
 
-    Private Function setRechnungstext(Sachbearbeiter As String, rechnungsdatum As Date, ByRef sammelRechnungen As DataTable) As Boolean
+    Private Function setRechnungstext(Sachbearbeiter As String, rechnungsdatum As Date, ByRef sammelRechnungen As DataTable, Optional setTextifNull As Boolean = False) As Boolean
 
         Dim varText As String = ""
         Dim varNettozahlungsziel As Integer = 0
@@ -692,7 +695,7 @@ Public Class usrcntlFakturierung
 
         Dim dtSelectedSammelrechnungen As DataTable = (New SQL).loadDgvBySql("SELECT [Firma_ID], [Status], [Sammelrechnung], [Sachbearbeiter], [RechnungsKundenNr], [Währungscode], isnull([Steuersatz %],0) as [Steuersatz %], cast([Lastschrift] as bit) as Lastschrift, [RK_ID], [BelegartenNr],cast([Vorkasse] as bit) as Vorkasse, [Nettozahlungsziel], [OffertenNr], [RechnungsLandKz], [Text] 
                                                      FROM Rechnungsausgang
-                                                     WHERE [Status] = 0 AND [Sammelrechnung] = 6 AND UPPER([Sachbearbeiter]) = '" & Sachbearbeiter & "' AND ([SteuerpflichtigerGesamtbetrag] <> 0 OR [SteuerfreierGesamtbetrag] <> 0) AND cast(Abfertigungsdatum as Date) = '" & rechnungsdatum & "' 
+                                                     WHERE " & IIf(setTextifNull, "[Status] = 4 AND Text is null", "[Status] = 0") & " AND [Sammelrechnung] = 6 AND UPPER([Sachbearbeiter]) = '" & Sachbearbeiter & "' AND ([SteuerpflichtigerGesamtbetrag] <> 0 OR [SteuerfreierGesamtbetrag] <> 0) AND cast(Abfertigungsdatum as Date) = '" & rechnungsdatum & "' 
                                                      ORDER BY [Firma_ID], [Status], [Sammelrechnung], [Sachbearbeiter], [RechnungsKundenNr], [Währungscode], [Steuersatz %], [Lastschrift], [RK_ID]", "FMZOLL")
         Try
 
@@ -2217,5 +2220,22 @@ Public Class usrcntlFakturierung
         Process.Start(webAddress)
     End Sub
 
+    Private Sub btnRE_Text_Click(sender As Object, e As EventArgs) Handles btnRE_Text.Click
 
+        Dim Sachbearbeiter = cboSachbearbeiter._value
+        Dim rechnungsdatum As Date = CDate(dtRechnungsdatum.Text)
+        Dim dtSammelrechnungen As New DataTable
+
+        Dim setText As Boolean = False
+
+        Dim res As MsgBoxResult
+        res = MsgBox("Möchten Sie den Rechnungstext für bereits gedruckte Rechnungen setzen (WENN TEXT = NULL)?" & vbNewLine & "JA -> nur bei Text = NULL und STATUS = 4" & vbNewLine & "NEIN -> Text bei STATUS = 0" & vbNewLine & "ABBRUCH ->NICHTS MACHEN", vbYesNoCancel)
+        Select Case res
+            Case MsgBoxResult.Yes : setText = True
+            Case MsgBoxResult.No : setText = False
+            Case MsgBoxResult.Cancel : Exit Sub
+        End Select
+
+        showPic(setRechnungstext(Sachbearbeiter, rechnungsdatum, dtSammelrechnungen, setText), PictureBox3)
+    End Sub
 End Class

VERAG_PROG_ALLGEMEIN/Classes/cAufschubKonten.vb

@@ -173,7 +173,18 @@ Public Class cAufschubKonten
         Return SQL.doSQL("Update [tblBrgAufschubKonten] Set brgakto_gs_aktSaldo = CAST(REPLACE('" & brgakto_gs_aktSaldo & "' ,',','.')AS decimal(18,2)) WHERE brgakto_gs_standort = '" & brgakto_gs_standort & "'", "ADMIN")
     End Function
 
-    Public Function CalcSaldo(Optional dtDate As DataTable = Nothing) As String
+    Public Function CalcSaldo(Optional dtDate As DataTable = Nothing, Optional Stichtag As Date? = Nothing) As String
+
+
+        Dim StichtagSQLGesamtsicherheit = ""
+        Dim StichtagSQLGesamtsicherheitsPositionen = ""
+        If Stichtag.HasValue Then
+            StichtagSQLGesamtsicherheitsPositionen = " And cast(gsp_datum as Date) <= '" & Stichtag.Value.ToShortDateString & "'"
+            StichtagSQLGesamtsicherheit = " AND cast(gs_datum as Date) <= '" & Stichtag.Value.ToShortDateString & "'"
+
+        End If
+
+
 
         Dim SaldoString As String =
             "select
@@ -184,24 +195,35 @@ Public Class cAufschubKonten
     	                when gs_art = 'Close' then gs_sicherheitsbetrag
                     end) 
 					
-					as SicherheitsSaldoGS from [tblGesamtsicherheit] Where gs_standort = '" & brgakto_gs_standort & "')+
+					as SicherheitsSaldoGS from [tblGesamtsicherheit] Where gs_standort = '" & brgakto_gs_standort & "'" & StichtagSQLGesamtsicherheit & ")+
 
                     (select SUM( 
                     case  
     	                when gsp_art = 'Open' then (gsp_sicherheitsbetrag * -1)
     	                when gsp_art = 'Close' then gsp_sicherheitsbetrag
                     end) 
-					as SicherheitsSaldoPositionen from [tblGesamtsicherheitsPositionen] Where gsp_gsid IN (select gs_gsId from [tblGesamtsicherheit] where gs_standort = '" & brgakto_gs_standort & "' And ISNULL(gs_ReferenzAenderung,0) = 0 ))"
+					as SicherheitsSaldoPositionen from [tblGesamtsicherheitsPositionen] Where gsp_gsid IN (select gs_gsId from [tblGesamtsicherheit] where gs_standort = '" & brgakto_gs_standort & "'" & StichtagSQLGesamtsicherheit & " And ISNULL(gs_ReferenzAenderung,0) = 0 )" & StichtagSQLGesamtsicherheitsPositionen & ")"
 
         Dim dt As New DataTable
-            Dim mrn As Double = 0
+        Dim mrn As Double = 0
-            dt = SQL.loadDgvBySql(SaldoString, "AVISO", 100, True)
+        dt = SQL.loadDgvBySql(SaldoString, "AVISO", 100, True)
-            If dt.Rows(0).Item(0).ToString.Length > 0 Then
+        If dt.Rows(0).Item(0).ToString.Length > 0 Then
-                mrn = dt.Rows(0).Item(0)
+            mrn = dt.Rows(0).Item(0)
-            End If
+        End If
+
+        If Stichtag.HasValue Then
+            brgakto_gs_aktSaldo = getReferenzbetrag(Stichtag.Value) 'aktueller Referenzbetrag + Verwahrungsausgänge - Verwahrungseingänge zum Stichtag!!! -> nicht updaten, nur INFO!!!!
+            brgakto_gs_aktSaldo += mrn
+            MsgBox("Saldo zum Stichtag " & Stichtag.Value & ":" & vbNewLine & brgakto_gs_aktSaldo.ToString("N2"))
+        Else
+            brgakto_gs_aktSaldo = getReferenzbetrag(Today) 'aktueller Referenzbetrag + Verwahrungsausgänge - Verwahrungseingänge....
+            brgakto_gs_aktSaldo += mrn
+            updateSaldo()
+        End If
+
+
+
 
-        brgakto_gs_aktSaldo = getReferenzbetrag(Today) + mrn
-        updateSaldo()
 
 
         Return brgakto_gs_aktSaldo
@@ -211,7 +233,7 @@ Public Class cAufschubKonten
 
         Try
 
-            Return SQL.getValueTxtBySql("select TOP (1) brgarefb_refbetrag from [tblBrgAufschubReferenzberaege] where [brgarefb_gsid]='" & brgakto_id & "' and brgarefb_gs_aktiv = 1 And [brgarefb_gueltig_ab] <= '" & nowDate & "' order by [brgarefb_gueltig_ab] desc", "ADMIN",,,,)
+            Return SQL.getValueTxtBySql("select TOP (1) brgarefb_refbetrag from [tblBrgAufschubReferenzberaege] where [brgarefb_gsid]='" & brgakto_id & "' and brgarefb_gs_aktiv = 1 And cast([brgarefb_gueltig_ab] as Date) <= '" & nowDate & "' order by [brgarefb_gueltig_ab] desc", "ADMIN",,,,)
 
         Catch ex As Exception
             MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)

VERAG_PROG_ALLGEMEIN/Classes/cIDS.vb

@@ -3,6 +3,7 @@ Imports System.Data.SqlClient
 Imports System.IO
 Imports System.Net
 Imports System.Reflection
+Imports DocumentFormat.OpenXml.Office2016.Drawing.ChartDrawing
 
 Public Class cIDS
 
@@ -632,6 +633,10 @@ Public Class cIDS
 
     End Function
 
+    Public Shared Function countBackToCustomerNotSet(SQL As SQL) As Integer
+        Return SQL.getValueTxtBySql("SELECT count(InvToCustomer) FROM [tblIDSInvoicesNewSplittedByCountry] where InvToCustomer Is null ", "FMZOLL",,, -1)
+    End Function
+
     Public Shared Function UPDATE_ARCHIV(reDat As Date, reNr As String, ids_kdNr As Integer, country As String, UStVAn_ID As Integer) As Boolean
         Try
             Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL

VERAG_PROG_ALLGEMEIN/Classes/cRMC.vb

@@ -278,6 +278,10 @@ Public Class cRMC
 
     End Function
 
+    Public Shared Function countBackToCustomerNotSet(SQL As SQL) As Integer
+        Return SQL.getValueTxtBySql("SELECT count(InvToCustomer) FROM [tblRMCImport] where InvToCustomer Is null ", "FMZOLL",,, -1)
+    End Function
+
     Public Class Paramter
 
         Shared apiSettingsloaded As Boolean = False

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/Classes/cUTA.vb

@@ -41,6 +41,10 @@ Public Class cUTA
 
     End Function
 
+    Public Shared Function countBackToCustomerNotSet(SQL As SQL) As Integer
+        Return SQL.getValueTxtBySql("SELECT count(InvToCustomer) FROM [tblUTAImportNew] where InvToCustomer Is null ", "FMZOLL",,, -1)
+    End Function
+
     Public Class UTAHeader
 
         Property Übertragungsnummer As Integer

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/MSE/cMSEAPI.vb

@@ -67,6 +67,10 @@ Public Class cMSEAPI
 
     End Function
 
+    Public Shared Function countBackToCustomerNotSet(SQL As SQL) As Integer
+        Return SQL.getValueTxtBySql("SELECT count(InvToCustomer) FROM [tblMSEInvoices] where InvToCustomer Is null ", "FMZOLL",,, -1)
+    End Function
+
 
 
 

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