Merge branch 'master' of https://verag.visualstudio.com/SDL/_git/SDL

2024-08-23 11:06:25 +02:00
parent 94501c2214 4ae6d5dd8e
commit f608435ac8
6 changed files with 323 additions and 277 deletions
--- a/Project/AssemblyInfo.vb
+++ b/Project/AssemblyInfo.vb
@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")> 

-<Assembly: AssemblyVersion("1.3.0.5")>
-<Assembly: AssemblyFileVersion("1.3.0.5")>
+<Assembly: AssemblyVersion("1.3.0.6")>
+<Assembly: AssemblyFileVersion("1.3.0.6")>
--- a/SDL/buchhaltung/frmBU_Mahnlauf.vb
+++ b/SDL/buchhaltung/frmBU_Mahnlauf.vb
@@ -367,6 +367,8 @@ Public Class frmBU_Mahnlauf

            'Dim cnt As Integer = 0

+            Dim ZWSBetrag As Double = 0
+            Dim ZWZahlung As Double = 0
            Dim ZWSumme As Double = 0
            Dim Mahngeb As Double = 5
            Dim VerzugszinsenGes As Double = 0
@@ -400,21 +402,29 @@ Public Class frmBU_Mahnlauf

                                              If (CDate(rpt.Fields.Item("Faelligkeit").Value) > CDate(Now.ToShortDateString) And cFakturierung.checkNull(rpt.Fields.Item("Ausstand").Value, 0) > 0) Or cFakturierung.checkNull(rpt.Fields.Item("Ausstand").Value, 0) <= 0 Then
                                                  rpt.Label16.Text = ""
+                                                  rpt.Label15.ForeColor = Color.Black
                                              Else
                                                  rpt.Label16.Text = cFakturierung.checkNull(rpt.Fields.Item("Faelligkeit").Value)
+                                                  rpt.Label15.ForeColor = Color.DarkRed
                                              End If

                                              rpt.Label17.Text = cFakturierung.checkNull(rpt.Fields.Item("Rechnungsbetrag").Value)
-                                              rpt.Label18.Text = cFakturierung.checkNull(rpt.Fields.Item("Bemerkung").Value)
+                                              rpt.TextBox1.Text = cFakturierung.checkNull(rpt.Fields.Item("Bemerkung").Value)
                                              rpt.Label19.Text = cFakturierung.checkNull(rpt.Fields.Item("Zahlung").Value)
                                              rpt.Label20.Text = cFakturierung.checkNull(rpt.Fields.Item("Ausstand").Value)
                                              rpt.Label21.Text = cFakturierung.checkNull(rpt.Fields.Item("Mahnstufe").Value)
                                              rpt.Label22.Text = cFakturierung.checkNull(rpt.Fields.Item("Währung").Value)

+                                              Dim Rechnungsbetrag As Double = 0
+                                              If IsNumeric(cFakturierung.checkNull(rpt.Fields.Item("Rechnungsbetrag").Value)) Then Rechnungsbetrag = CDbl(rpt.Fields.Item("Rechnungsbetrag").Value())
+                                              Dim Zahlung As Double = 0
+                                              If IsNumeric(cFakturierung.checkNull(rpt.Fields.Item("Zahlung").Value)) Then Zahlung = CDbl(rpt.Fields.Item("Zahlung").Value())
                                              Dim Ausstand As Double = 0
                                              If IsNumeric(cFakturierung.checkNull(rpt.Fields.Item("Ausstand").Value)) Then Ausstand = CDbl(rpt.Fields.Item("Ausstand").Value())
                                              rpt.Label20.Text = If(Ausstand <> 0, CDbl(Ausstand).ToString("N2", Globalization.CultureInfo.CurrentCulture), "")

+                                              ZWSBetrag += Rechnungsbetrag
+                                              ZWZahlung += Zahlung
                                              ZWSumme += Ausstand

                                              Dim Verzugszinsen As Double = 0
@@ -427,6 +437,8 @@ Public Class frmBU_Mahnlauf

            AddHandler rpt.ReportFooter1.Format, Sub()

+                                                     rpt.Label4.Text = ZWSBetrag.ToString("N2", CultureInfo.CurrentCulture)
+                                                     rpt.Label6.Text = ZWZahlung.ToString("N2", CultureInfo.CurrentCulture)
                                                     rpt.lblZWSumme.Text = ZWSumme.ToString("N2", CultureInfo.CurrentCulture)
                                                     rpt.Label23.Text = Mahngeb.ToString("N2", CultureInfo.CurrentCulture)
                                                     rpt.Label24.Text = VerzugszinsenGes.ToString("N2", CultureInfo.CurrentCulture)
--- a/SDL/buchhaltung/rptMahnung.Designer.vb
+++ b/SDL/buchhaltung/rptMahnung.Designer.vb
--- a/SDL/seriendruck/usrCntlSeriendruck.Designer.vb
+++ b/SDL/seriendruck/usrCntlSeriendruck.Designer.vb
@@ -23,6 +23,9 @@ Partial Class usrCntlSeriendruck
    <System.Diagnostics.DebuggerStepThrough()> _
    Private Sub InitializeComponent()
        Me.GroupBox1 = New System.Windows.Forms.GroupBox()
+        Me.txtErstattungAbfUnterNr_neu = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtErstattungAbfNr_neu = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtErstattungAbfNrFiliale_neu = New VERAG_PROG_ALLGEMEIN.MyTextBox()
        Me.cbxSofortDruck = New System.Windows.Forms.CheckBox()
        Me.txtErstattungAbfNrFiliale = New System.Windows.Forms.TextBox()
        Me.txtErstattungAbfUnterNr = New System.Windows.Forms.TextBox()
@@ -36,9 +39,6 @@ Partial Class usrCntlSeriendruck
        Me.GroupBox2 = New System.Windows.Forms.GroupBox()
        Me.Button2 = New System.Windows.Forms.Button()
        Me.Label3 = New System.Windows.Forms.Label()
-        Me.txtErstattungAbfNrFiliale_neu = New VERAG_PROG_ALLGEMEIN.MyTextBox()
-        Me.txtErstattungAbfNr_neu = New VERAG_PROG_ALLGEMEIN.MyTextBox()
-        Me.txtErstattungAbfUnterNr_neu = New VERAG_PROG_ALLGEMEIN.MyTextBox()
        Me.GroupBox1.SuspendLayout()
        Me.GroupBox2.SuspendLayout()
        Me.SuspendLayout()
@@ -64,6 +64,77 @@ Partial Class usrCntlSeriendruck
        Me.GroupBox1.TabIndex = 0
        Me.GroupBox1.TabStop = False
        '
+        'txtErstattungAbfUnterNr_neu
+        '
+        Me.txtErstattungAbfUnterNr_neu._DateTimeOnly = False
+        Me.txtErstattungAbfUnterNr_neu._numbersOnly = True
+        Me.txtErstattungAbfUnterNr_neu._numbersOnlyKommastellen = ""
+        Me.txtErstattungAbfUnterNr_neu._numbersOnlyTrennzeichen = False
+        Me.txtErstattungAbfUnterNr_neu._Prozent = False
+        Me.txtErstattungAbfUnterNr_neu._ShortDateNew = False
+        Me.txtErstattungAbfUnterNr_neu._ShortDateOnly = False
+        Me.txtErstattungAbfUnterNr_neu._TimeOnly = False
+        Me.txtErstattungAbfUnterNr_neu._TimeOnly_Seconds = False
+        Me.txtErstattungAbfUnterNr_neu._value = ""
+        Me.txtErstattungAbfUnterNr_neu._Waehrung = False
+        Me.txtErstattungAbfUnterNr_neu._WaehrungZeichen = True
+        Me.txtErstattungAbfUnterNr_neu.ForeColor = System.Drawing.Color.Black
+        Me.txtErstattungAbfUnterNr_neu.Location = New System.Drawing.Point(130, 42)
+        Me.txtErstattungAbfUnterNr_neu.MaxLineLength = -1
+        Me.txtErstattungAbfUnterNr_neu.MaxLines_Warning = ""
+        Me.txtErstattungAbfUnterNr_neu.MaxLines_Warning_Label = Nothing
+        Me.txtErstattungAbfUnterNr_neu.Name = "txtErstattungAbfUnterNr_neu"
+        Me.txtErstattungAbfUnterNr_neu.Size = New System.Drawing.Size(32, 20)
+        Me.txtErstattungAbfUnterNr_neu.TabIndex = 10
+        Me.txtErstattungAbfUnterNr_neu.Text = "00"
+        '
+        'txtErstattungAbfNr_neu
+        '
+        Me.txtErstattungAbfNr_neu._DateTimeOnly = False
+        Me.txtErstattungAbfNr_neu._numbersOnly = True
+        Me.txtErstattungAbfNr_neu._numbersOnlyKommastellen = ""
+        Me.txtErstattungAbfNr_neu._numbersOnlyTrennzeichen = False
+        Me.txtErstattungAbfNr_neu._Prozent = False
+        Me.txtErstattungAbfNr_neu._ShortDateNew = False
+        Me.txtErstattungAbfNr_neu._ShortDateOnly = False
+        Me.txtErstattungAbfNr_neu._TimeOnly = False
+        Me.txtErstattungAbfNr_neu._TimeOnly_Seconds = False
+        Me.txtErstattungAbfNr_neu._value = ""
+        Me.txtErstattungAbfNr_neu._Waehrung = False
+        Me.txtErstattungAbfNr_neu._WaehrungZeichen = True
+        Me.txtErstattungAbfNr_neu.ForeColor = System.Drawing.Color.Black
+        Me.txtErstattungAbfNr_neu.Location = New System.Drawing.Point(58, 42)
+        Me.txtErstattungAbfNr_neu.MaxLineLength = -1
+        Me.txtErstattungAbfNr_neu.MaxLines_Warning = ""
+        Me.txtErstattungAbfNr_neu.MaxLines_Warning_Label = Nothing
+        Me.txtErstattungAbfNr_neu.Name = "txtErstattungAbfNr_neu"
+        Me.txtErstattungAbfNr_neu.Size = New System.Drawing.Size(66, 20)
+        Me.txtErstattungAbfNr_neu.TabIndex = 9
+        '
+        'txtErstattungAbfNrFiliale_neu
+        '
+        Me.txtErstattungAbfNrFiliale_neu._DateTimeOnly = False
+        Me.txtErstattungAbfNrFiliale_neu._numbersOnly = True
+        Me.txtErstattungAbfNrFiliale_neu._numbersOnlyKommastellen = ""
+        Me.txtErstattungAbfNrFiliale_neu._numbersOnlyTrennzeichen = False
+        Me.txtErstattungAbfNrFiliale_neu._Prozent = False
+        Me.txtErstattungAbfNrFiliale_neu._ShortDateNew = False
+        Me.txtErstattungAbfNrFiliale_neu._ShortDateOnly = False
+        Me.txtErstattungAbfNrFiliale_neu._TimeOnly = False
+        Me.txtErstattungAbfNrFiliale_neu._TimeOnly_Seconds = False
+        Me.txtErstattungAbfNrFiliale_neu._value = ""
+        Me.txtErstattungAbfNrFiliale_neu._Waehrung = False
+        Me.txtErstattungAbfNrFiliale_neu._WaehrungZeichen = True
+        Me.txtErstattungAbfNrFiliale_neu.ForeColor = System.Drawing.Color.Black
+        Me.txtErstattungAbfNrFiliale_neu.Location = New System.Drawing.Point(19, 42)
+        Me.txtErstattungAbfNrFiliale_neu.MaxLineLength = -1
+        Me.txtErstattungAbfNrFiliale_neu.MaxLines_Warning = ""
+        Me.txtErstattungAbfNrFiliale_neu.MaxLines_Warning_Label = Nothing
+        Me.txtErstattungAbfNrFiliale_neu.Name = "txtErstattungAbfNrFiliale_neu"
+        Me.txtErstattungAbfNrFiliale_neu.Size = New System.Drawing.Size(33, 20)
+        Me.txtErstattungAbfNrFiliale_neu.TabIndex = 8
+        Me.txtErstattungAbfNrFiliale_neu.Text = "4817"
+        '
        'cbxSofortDruck
        '
        Me.cbxSofortDruck.AutoSize = True
@@ -198,77 +269,6 @@ Partial Class usrCntlSeriendruck
        Me.Label3.TabIndex = 2
        Me.Label3.Text = "Gutschrift - Erstattungsschreiben"
        '
-        'txtErstattungAbfNrFiliale_neu
-        '
-        Me.txtErstattungAbfNrFiliale_neu._DateTimeOnly = False
-        Me.txtErstattungAbfNrFiliale_neu._numbersOnly = True
-        Me.txtErstattungAbfNrFiliale_neu._numbersOnlyKommastellen = ""
-        Me.txtErstattungAbfNrFiliale_neu._numbersOnlyTrennzeichen = False
-        Me.txtErstattungAbfNrFiliale_neu._Prozent = False
-        Me.txtErstattungAbfNrFiliale_neu._ShortDateNew = False
-        Me.txtErstattungAbfNrFiliale_neu._ShortDateOnly = False
-        Me.txtErstattungAbfNrFiliale_neu._TimeOnly = False
-        Me.txtErstattungAbfNrFiliale_neu._TimeOnly_Seconds = False
-        Me.txtErstattungAbfNrFiliale_neu._value = ""
-        Me.txtErstattungAbfNrFiliale_neu._Waehrung = False
-        Me.txtErstattungAbfNrFiliale_neu._WaehrungZeichen = True
-        Me.txtErstattungAbfNrFiliale_neu.ForeColor = System.Drawing.Color.Black
-        Me.txtErstattungAbfNrFiliale_neu.Location = New System.Drawing.Point(19, 42)
-        Me.txtErstattungAbfNrFiliale_neu.MaxLineLength = -1
-        Me.txtErstattungAbfNrFiliale_neu.MaxLines_Warning = ""
-        Me.txtErstattungAbfNrFiliale_neu.MaxLines_Warning_Label = Nothing
-        Me.txtErstattungAbfNrFiliale_neu.Name = "txtErstattungAbfNrFiliale_neu"
-        Me.txtErstattungAbfNrFiliale_neu.Size = New System.Drawing.Size(33, 20)
-        Me.txtErstattungAbfNrFiliale_neu.TabIndex = 8
-        Me.txtErstattungAbfNrFiliale_neu.Text = "4817"
-        '
-        'txtErstattungAbfNr_neu
-        '
-        Me.txtErstattungAbfNr_neu._DateTimeOnly = False
-        Me.txtErstattungAbfNr_neu._numbersOnly = True
-        Me.txtErstattungAbfNr_neu._numbersOnlyKommastellen = ""
-        Me.txtErstattungAbfNr_neu._numbersOnlyTrennzeichen = False
-        Me.txtErstattungAbfNr_neu._Prozent = False
-        Me.txtErstattungAbfNr_neu._ShortDateNew = False
-        Me.txtErstattungAbfNr_neu._ShortDateOnly = False
-        Me.txtErstattungAbfNr_neu._TimeOnly = False
-        Me.txtErstattungAbfNr_neu._TimeOnly_Seconds = False
-        Me.txtErstattungAbfNr_neu._value = ""
-        Me.txtErstattungAbfNr_neu._Waehrung = False
-        Me.txtErstattungAbfNr_neu._WaehrungZeichen = True
-        Me.txtErstattungAbfNr_neu.ForeColor = System.Drawing.Color.Black
-        Me.txtErstattungAbfNr_neu.Location = New System.Drawing.Point(58, 42)
-        Me.txtErstattungAbfNr_neu.MaxLineLength = -1
-        Me.txtErstattungAbfNr_neu.MaxLines_Warning = ""
-        Me.txtErstattungAbfNr_neu.MaxLines_Warning_Label = Nothing
-        Me.txtErstattungAbfNr_neu.Name = "txtErstattungAbfNr_neu"
-        Me.txtErstattungAbfNr_neu.Size = New System.Drawing.Size(66, 20)
-        Me.txtErstattungAbfNr_neu.TabIndex = 9
-        '
-        'txtErstattungAbfUnterNr_neu
-        '
-        Me.txtErstattungAbfUnterNr_neu._DateTimeOnly = False
-        Me.txtErstattungAbfUnterNr_neu._numbersOnly = True
-        Me.txtErstattungAbfUnterNr_neu._numbersOnlyKommastellen = ""
-        Me.txtErstattungAbfUnterNr_neu._numbersOnlyTrennzeichen = False
-        Me.txtErstattungAbfUnterNr_neu._Prozent = False
-        Me.txtErstattungAbfUnterNr_neu._ShortDateNew = False
-        Me.txtErstattungAbfUnterNr_neu._ShortDateOnly = False
-        Me.txtErstattungAbfUnterNr_neu._TimeOnly = False
-        Me.txtErstattungAbfUnterNr_neu._TimeOnly_Seconds = False
-        Me.txtErstattungAbfUnterNr_neu._value = ""
-        Me.txtErstattungAbfUnterNr_neu._Waehrung = False
-        Me.txtErstattungAbfUnterNr_neu._WaehrungZeichen = True
-        Me.txtErstattungAbfUnterNr_neu.ForeColor = System.Drawing.Color.Black
-        Me.txtErstattungAbfUnterNr_neu.Location = New System.Drawing.Point(130, 42)
-        Me.txtErstattungAbfUnterNr_neu.MaxLineLength = -1
-        Me.txtErstattungAbfUnterNr_neu.MaxLines_Warning = ""
-        Me.txtErstattungAbfUnterNr_neu.MaxLines_Warning_Label = Nothing
-        Me.txtErstattungAbfUnterNr_neu.Name = "txtErstattungAbfUnterNr_neu"
-        Me.txtErstattungAbfUnterNr_neu.Size = New System.Drawing.Size(32, 20)
-        Me.txtErstattungAbfUnterNr_neu.TabIndex = 10
-        Me.txtErstattungAbfUnterNr_neu.Text = "00"
-        '
        'usrCntlSeriendruck
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
--- a/SDL/seriendruck/usrCntlSeriendruck.vb
+++ b/SDL/seriendruck/usrCntlSeriendruck.vb
@@ -6,7 +6,7 @@ Public Class usrCntlSeriendruck

    Dim FMZOLL_SQL As New FMZOLL_SQL
    Private Sub btnWord_Click(sender As Object, e As EventArgs) Handles btnWord.Click
-        If Not txtErstattungAbfNr.ForeColor = Color.DarkGreen Then
+        If Not txtErstattungAbfNr_neu.ForeColor = Color.DarkGreen Then
            frmMain.setInfo("info", "Die Abfertigungsnummer ist nicht gültig!", 2)
            Exit Sub
        End If
@@ -63,8 +63,8 @@ Public Class usrCntlSeriendruck
                WordDoc = Nothing
                WordApp.Quit()
                Me.BringToFront()
-                txtErstattungAbfNr.Focus()
-                txtErstattungAbfNr.SelectAll()
+                txtErstattungAbfNr_neu.Focus()
+                txtErstattungAbfNr_neu.SelectAll()
            End If
            'WordDoc.PrintOut()
            'WordDoc.PrintOut()
@@ -78,7 +78,7 @@ Public Class usrCntlSeriendruck
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnShowData.Click
-        If Not txtErstattungAbfNr.ForeColor = Color.DarkGreen Then Exit Sub
+        If Not txtErstattungAbfNr_neu.ForeColor = Color.DarkGreen Then Exit Sub
        If cbxErstSprache.Text = "" Then Exit Sub

        frmShowData.Show()
@@ -138,7 +138,7 @@ Public Class usrCntlSeriendruck
        WordApp.Visible = True
    End Sub

-    Private Sub txtErstattungAbfNr_KeyDown(sender As Object, e As KeyEventArgs) Handles txtErstattungAbfNr.KeyDown, txtErstattungAbfNrFiliale.KeyDown, txtErstattungAbfUnterNr.KeyDown, cbxErstSprache.KeyDown, txtErstattungAbfNr_neu.KeyDown, txtErstattungAbfNrFiliale_neu.KeyDown, txtErstattungAbfUnterNr_neu.KeyDown
+    Private Sub txtErstattungAbfNr_KeyDown(sender As Object, e As KeyEventArgs) Handles txtErstattungAbfNr_neu.KeyDown, txtErstattungAbfNrFiliale.KeyDown, txtErstattungAbfUnterNr.KeyDown, cbxErstSprache.KeyDown, txtErstattungAbfNr_neu.KeyDown, txtErstattungAbfNrFiliale_neu.KeyDown, txtErstattungAbfUnterNr_neu.KeyDown
        If e.KeyCode = Keys.Enter Then
            withPrint = cbxSofortDruck.Checked
            btnWord.PerformClick()
@@ -146,9 +146,10 @@ Public Class usrCntlSeriendruck

    End Sub

-    Private Sub txtErstattungAbfNr_LostFocus(sender As Object, e As EventArgs) Handles txtErstattungAbfNr.TextChanged
-        txtErstattungAbfNr.BackColor = Color.White
-        txtErstattungAbfNr.ForeColor = Color.Red
+    Private Sub txtErstattungAbfNr_LostFocus(sender As Object, e As EventArgs) Handles txtErstattungAbfNr_neu.TextChanged
+        txtErstattungAbfNr_neu.BackColor = Color.White
+        txtErstattungAbfNr_neu.ForeColor = Color.Red
+
        If NurZahlen(txtErstattungAbfNr_neu.Text) And NurZahlen(txtErstattungAbfNrFiliale_neu.Text) And NurZahlen(txtErstattungAbfUnterNr_neu.Text) Then
            'Dim dt As DataTable = FMZOLL_SQL.loadDgvBySqlFMZOLLREAL("SELECT TOP 1 * FROM vwUStVErstattungsschreiben WHERE AbfertigungsNr=" & txtErstattungAbfNr.Text & " and FilialenNr =" & txtErstattungAbfNrFiliale.Text & " and UnterNr =" & txtErstattungAbfUnterNr.Text & " ")

@@ -163,8 +164,9 @@ Public Class usrCntlSeriendruck
                        Case Else : cbxErstSprache.SelectedIndex = 3
                    End Select
                Catch : End Try
-                txtErstattungAbfNr.BackColor = Color.White
-                txtErstattungAbfNr.ForeColor = Color.DarkGreen
+
+                txtErstattungAbfNr_neu.BackColor = Color.White
+                txtErstattungAbfNr_neu.ForeColor = Color.DarkGreen
            End If
        End If
    End Sub
@@ -182,7 +184,7 @@ Public Class usrCntlSeriendruck
        cbxErstSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("TÜRKISCH", "TR"))
        cbxErstSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("YU", "YU"))
        cbxErstSprache.SelectedIndex = 0
-        txtErstattungAbfNr.Focus()
+        txtErstattungAbfNr_neu.Focus()
    End Sub
    Public Function NurZahlen(ByVal Text As String) As Boolean
        If Text.Length = 0 Then Return False
--- a/VERAG_PROG_ALLGEMEIN/Classes/cRechnungsausgang.vb
+++ b/VERAG_PROG_ALLGEMEIN/Classes/cRechnungsausgang.vb
@@ -739,7 +739,7 @@ Public Class cRechnungsausgang
                l.Steuerpflichtig = row("Steuerpflichtig")

                'l.BGebBgl = l.Preis
-                If l.Steuerpflichtig Then
+                If Not l.Steuerpflichtig Then
                    l.SteuerpflichtigerBetrag = l.Preis
                    l.Preis = l.Preis
                Else