fix,

2026-01-08 17:15:49 +01:00
parent 9b53783b0d
commit 4da7d188d1
12 changed files with 138 additions and 51 deletions
--- a/SDL/seriendruck/usrCntlFakturierung.Designer.vb
+++ b/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
--- a/SDL/seriendruck/usrCntlFakturierung.vb
+++ b/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