div. Änderungen, etc.

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
 

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()

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))
 

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

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

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,7 +782,7 @@ 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 &= "" & vbTab 'FiBuSteuersatz
@@ -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
+        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