div. Änderungen, etc.

2026-04-16 10:16:06 +02:00
parent 88151925fa
commit 3049008782
6 changed files with 90 additions and 11 deletions
--- a/SDL/Fakturierung/cAutomailversand.vb
+++ b/SDL/Fakturierung/cAutomailversand.vb
@@ -10,6 +10,12 @@ Public Class cAutomailversand

            'BEI SAMMELRECHNUNG WIRD ZUERST INTERN DER STATUS AUF 2 GESETZT

+            'STATUS 0-_> Rechnung angelegt
+            'STATUS 1-_> Einzel-Rg gedruckt
+            'STATUS 2-_> Anlagen zur Rg gedruckt
+            'STATUS 3-_> Sammel-Rg gedruckt
+            'STATUS 4-_> ? irgendwas mit SR 6 Maut/Diesel??
+
            Dim rechnungenMailversand = "SELECT RechnungsNr,RechnungsKundenNr,isnull(tblKundenErweitert.kde_keineMWSt,0) as keineMWST, max(Rechnungsausgang.[RechnungsLandKz]) as RechnungsLandKz, MitgliedslandEU, sum(Rechnungsausgang.SteuerpflichtigerGesamtbetrag) AS Steuer FROM Rechnungsausgang
                                        LEFT JOIN tblKundenErweitert on tblKundenErweitert.kde_KundenNr = Rechnungsausgang.RechnungsKundenNr 
                                        INNER JOIN Währungstabelle on LandKz = Rechnungsausgang.RechnungsLandKz        
@@ -156,6 +162,12 @@ Public Class cAutomailversand

        'BEI EINZELRECHNUNG WIRD STATUS 0 und 2 geprüft

+        'STATUS 0-_> Rechnung angelegt
+        'STATUS 1-_> Einzel-Rg gedruckt
+        'STATUS 2-_> Anlagen zur Rg gedruckt
+        'STATUS 3-_> Sammel-Rg gedruckt
+        'STATUS 4-_> ? irgendwas mit SR 6 Maut/Diesel??
+
        Dim rechnungenMailversand = "SELECT RK_ID,RechnungsKundenNr,Rechnungsausgang.VermittlerKundenNr,Rechnungsausgang.RechnungsLandKz,Rechnungsausgang.FilialenNr,Rechnungsausgang.AbfertigungsNr,Rechnungsausgang.UnterNr, Rechnungsausgang.ErfassungsNr , Rechnungsausgang.SteuerpflichtigerGesamtbetrag AS Steuer FROM Rechnungsausgang
                                        LEFT JOIN tblKundenErweitert on tblKundenErweitert.kde_KundenNr = Rechnungsausgang.RechnungsKundenNr 
                                        INNER JOIN Währungstabelle on LandKz = Rechnungsausgang.RechnungsLandKz        
@@ -197,7 +209,8 @@ Public Class cAutomailversand


                    Dim pathRG As String
-                    If Not cFakturierung.doRechnungsDruck(RECHNUNG, Rechnungsdatum,, 4, pathRG,, True) Then
+                    Dim Rechnungsdruck As Integer = 4 'gibt nur PDF-Pfad zurück!
+                    If Not cFakturierung.doRechnungsDruck(RECHNUNG, Rechnungsdatum,, Rechnungsdruck, pathRG,, True) Then
                        Continue For
                    End If

--- a/SDL/Fakturierung/frmAbrechnungsMaske.vb
+++ b/SDL/Fakturierung/frmAbrechnungsMaske.vb
@@ -342,7 +342,7 @@ Public Class frmAbrechnungsMaske

        If KdSearchBox1.KdNr_value > 0 Then sqlstr &= " AND Rechnungsausgang.RechnungsKundenNr=" & KdSearchBox1.KdNr_value & " "

-        UsrCntlFaktAbrechnung1.cbxAUTOMailversand.Enabled = enableAUTOMAIL
+        'UsrCntlFaktAbrechnung1.cbxAUTOMailversand.Enabled = enableAUTOMAIL
        btn_doMailAutoversand.Visible = enableAUTOMAIL_BTN AndAlso enableAUTOMAIL

        '  sqlstr &= " AND (SteuerpflichtigerGesamtbetrag<>0 OR SteuerfreierGesamtbetrag<>0)"
@@ -374,6 +374,12 @@ Public Class frmAbrechnungsMaske
            End If


+        End If
+
+        If cboRechnungsdruck._value <> "" Then
+
+
+
        End If

        initDGV()
--- a/SDL/Fakturierung/frmFaktSammelRgDrucken.vb
+++ b/SDL/Fakturierung/frmFaktSammelRgDrucken.vb
@@ -674,17 +674,21 @@ Public Class frmFaktSammelRgDrucken
            If cAutomailversand.automRechnungsversand_aktivieren() Then

                Dim noRENRExisting As Boolean = False
+                Dim onlyEMAIL As Boolean = True

-                If MyDatagridview1.Columns.Contains("RENR") Then
+                If MyDatagridview1.Columns.Contains("RENR") AndAlso MyDatagridview1.Columns.Contains("Rechnungsdruck") Then
                    noRENRExisting = MyDatagridview1.SelectedRows.Cast(Of DataGridViewRow)().Any(Function(r) r.Cells("RENR").Value Is Nothing OrElse IsDBNull(r.Cells("RENR").Value))
+                    onlyEMAIL = MyDatagridview1.SelectedRows.Cast(Of DataGridViewRow)().Any(Function(r) IsDBNull(r.Cells("Rechnungsdruck").Value) OrElse r.Cells("Rechnungsdruck").Value Is Nothing OrElse r.Cells("Rechnungsdruck").Value.ToString() <> "E-MAIL")

                    If noRENRExisting Then

                        If cboFirma._value = "" Then MsgBox("Bitte Firma angeben!") : Exit Sub
                        If txtZeitraumBis.Text = "" Then MsgBox("Bitte Zeitraum-Bis angeben!") : Exit Sub
                        If txtRechnungsdatum.Text = "" Then MsgBox("Bitte Rechnungsdatum angeben!") : Exit Sub
+                        If onlyEMAIL Then MsgBox("Sammelrechnungen die per POST/FAX verschickt werden, können nicht gesetzt werden!") : Exit Sub

-                        If vbYes = MsgBox("Es wird eine Belegsnummer vergeben, die Belege gelten somit als gedruckt und können nicht mehr bearbeitet werden.", vbYesNoCancel) Then
+
+                        If vbYes = MsgBox("Es wird eine Beleg-NR vergeben, die Belege gelten somit als gedruckt und können nicht mehr bearbeitet werden.", vbYesNoCancel) Then

                            For Each r In MyDatagridview1.SelectedRows.Cast(Of DataGridViewRow)().Where(Function(x) x.Cells("RENR").Value Is Nothing OrElse IsDBNull(x.Cells("RENR").Value))

--- a/SDL/Fakturierung/usrCntlFaktAbrechnung.vb
+++ b/SDL/Fakturierung/usrCntlFaktAbrechnung.vb
@@ -1,4 +1,5 @@
 Imports System.Web.UI.WebControls.Expressions
+Imports com.sun.jndi.toolkit
 Imports VERAG_PROG_ALLGEMEIN

 Public Class usrCntlFaktAbrechnung
@@ -345,7 +346,7 @@ Public Class usrCntlFaktAbrechnung

            Button2.Enabled = (RECHNUNG.Status = 0)
            btnOK.Enabled = (RECHNUNG.Status = 0)
-            If RECHNUNG.Status <> 0 Then cbxAUTOMailversand.Enabled = False
+            cbxAUTOMailversand.Enabled = setAutoMailversandVisiblity()

            'RECHNUNG.OffertenNr = OfferteNrTmp
            ' RECHNUNG.OffertenNr = OfferteNrTmp
@@ -5506,4 +5507,53 @@ mwst:

    End Sub

+    Private Function setAutoMailversandVisiblity() As Boolean
+
+        Dim enableAUTOMAIL As Boolean = False
+
+        If RECHNUNG Is Nothing Then Return enableAUTOMAIL
+        If RECHNUNG.Rechnung_an = 0 Then Return enableAUTOMAIL
+
+        Dim RD_DRUCK = -1
+        Dim AD As cAdressen
+        Select Case RECHNUNG.Rechnung_an
+            Case 1
+                If RECHNUNG.AbsenderKundenNr Is Nothing Then Return enableAUTOMAIL
+                AD = New cAdressen(RECHNUNG.AbsenderKundenNr)
+                RD_DRUCK = If(AD.Rechnungsdruck, -1)
+            Case 2
+                If RECHNUNG.EmpfängerKundenNr Is Nothing Then Return enableAUTOMAIL
+                AD = New cAdressen(RECHNUNG.EmpfängerKundenNr)
+                RD_DRUCK = If(AD.Rechnungsdruck, -1)
+            Case 3
+                If RECHNUNG.VermittlerKundenNr Is Nothing Then Return enableAUTOMAIL
+                AD = New cAdressen(RECHNUNG.VermittlerKundenNr)
+                RD_DRUCK = If(AD.Rechnungsdruck, -1)
+            Case 4
+                If RECHNUNG.AvisiererKundenNr Is Nothing Then Return enableAUTOMAIL
+                AD = New cAdressen(RECHNUNG.AvisiererKundenNr)
+                RD_DRUCK = If(AD.Rechnungsdruck, -1)
+            Case Else
+                Return enableAUTOMAIL
+        End Select
+
+
+        'BEI EINZELRECHNUNG WIRD STATUS 0 und 2 geprüft
+
+        'STATUS 0-_> Rechnung angelegt
+        'STATUS 1-_> Einzel-Rg gedruckt
+        'STATUS 2-_> Anlagen zur Rg gedruckt
+        'STATUS 3-_> Sammel-Rg gedruckt
+        'STATUS 4-_> ? irgendwas mit SR 6 Maut/Diesel??
+
+        If RECHNUNG.Sammelrechnung = 0 AndAlso RECHNUNG.DruckDatumZeit Is Nothing AndAlso RD_DRUCK = 2 AndAlso (RECHNUNG.Status = 0 Or RECHNUNG.Status = 2) Then ' (RECHNUNG.Status <> 4 ANDAlso RECHNUNG.Status <> 0)  WARUM NOCHMALS??
+            enableAUTOMAIL = True
+        Else
+            enableAUTOMAIL = False
+        End If
+
+        Return enableAUTOMAIL
+
+    End Function
+
 End Class
--- a/SDL/kassenbuch/frmNacherfassungLeihgeld.vb
+++ b/SDL/kassenbuch/frmNacherfassungLeihgeld.vb
@@ -536,6 +536,8 @@ Public Class frmNacherfassungLeihgeld
                RG.BelegartenKz = "AG"
                RG.BelegartenBez = "Gutschrift"
                RG.Vorzeichen = "-"
+                summeBRUTTO *= -1
+                summeNETTO *= -1
            End If

            RG.VermittlerKundenNr = AD.AdressenNr
--- a/VERAG_PROG_ALLGEMEIN/Schnittstellen/cSyska_Interface.vb
+++ b/VERAG_PROG_ALLGEMEIN/Schnittstellen/cSyska_Interface.vb
@@ -1,6 +1,4 @@
 Imports System.Text.RegularExpressions
-Imports sun.util.resources.cldr.ve
-Imports VERAG_PROG_ALLGEMEIN.TESTJSON

 Public Class cSyska_Interface
    Shared SQL As New VERAG_PROG_ALLGEMEIN.SQL
@@ -784,9 +782,9 @@ Public Class cSyska_Interface
                genBuchungsZeileSum &= FiBuSollkontonummer & vbTab
                genBuchungsZeileSum &= FiBuHabenkontonummer & vbTab

-            genBuchungsZeileSum &= IIf(row("Buchungstext") <> "" AndAlso row("Buchungstext").ToString.Contains("Zinsen"), row("Buchungstext") & vbTab, row("FilialenNr") & "/" & row("AbfertigungsNr") & "/" & CDbl(row("UnterNr")).ToString("00") & vbTab)
+            genBuchungsZeileSum &= IIf(row("Buchungstext") <> "", row("Buchungstext") & vbTab, row("FilialenNr") & "/" & row("AbfertigungsNr") & "/" & CDbl(row("UnterNr")).ToString("00") & vbTab)

-                genBuchungsZeileSum &= Format(CDbl(FiBuBruttobetrag), fmt) & vbTab
+            genBuchungsZeileSum &= Format(CDbl(FiBuBruttobetrag), fmt) & vbTab
                genBuchungsZeileSum &= "" & vbTab 'FiBuSteuersatz
                genBuchungsZeileSum &= "" & vbTab 'FiBuSteuerbetrag
                genBuchungsZeileSum &= FiBuWährung & vbTab
@@ -821,7 +819,7 @@ Public Class cSyska_Interface
            genBuchungsZeileSum &= FiBuSollkontonummer & vbTab
            genBuchungsZeileSum &= FiBuHabenkontonummer & vbTab
            'genBuchungsZeileSum &= row("FilialenNr") & "/" & row("AbfertigungsNr") & "/" & CDbl(row("UnterNr")).ToString("00") & vbTab
-            genBuchungsZeileSum &= IIf(row("Buchungstext") <> "" AndAlso row("Buchungstext").ToString.Contains("Zinsen"), row("Buchungstext") & vbTab, row("FilialenNr") & "/" & row("AbfertigungsNr") & "/" & CDbl(row("UnterNr")).ToString("00") & vbTab)
+            genBuchungsZeileSum &= IIf(row("Buchungstext") <> "", row("Buchungstext") & vbTab, row("FilialenNr") & "/" & row("AbfertigungsNr") & "/" & CDbl(row("UnterNr")).ToString("00") & vbTab)

            genBuchungsZeileSum &= Format(CDbl(Bruttobetrag), fmt) & vbTab
            genBuchungsZeileSum &= "" & vbTab 'FiBuSteuersatz
@@ -936,7 +934,13 @@ Public Class cSyska_Interface
        genBuchungsZeile &= FiBuSollkontonummer & vbTab
        genBuchungsZeile &= FiBuHabenkontonummer & vbTab
        'genBuchungsZeile &= row("FilialenNr") & "/" & row("AbfertigungsNr") & "/" & CDbl(row("UnterNr")).ToString("00") & vbTab
-        genBuchungsZeile &= IIf(Buchungstext <> "" AndAlso Buchungstext.Contains("Zinsen"), Buchungstext & vbTab, row("FilialenNr") & "/" & row("AbfertigungsNr") & "/" & CDbl(row("UnterNr")).ToString("00") & vbTab)
+        Select Case row("BelegartenNr")
+            Case 30, 31
+                genBuchungsZeile &= IIf(Buchungstext <> "", Buchungstext & vbTab, row("FilialenNr") & "/" & row("AbfertigungsNr") & "/" & CDbl(row("UnterNr")).ToString("00") & vbTab)
+            Case Else
+                genBuchungsZeile &= IIf(Buchungstext <> "" AndAlso Buchungstext.Contains("Zinsen"), Buchungstext & vbTab, row("FilialenNr") & "/" & row("AbfertigungsNr") & "/" & CDbl(row("UnterNr")).ToString("00") & vbTab)
+        End Select
+


        genBuchungsZeile &= Format(CDbl(FiBuBruttobetrag), fmt) & vbTab