From 3049008782e9a45c1f7817feff0f505e2c0ff193 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Thu, 16 Apr 2026 10:16:06 +0200 Subject: [PATCH] =?UTF-8?q?div.=20=C3=84nderungen,=20etc.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- SDL/Fakturierung/cAutomailversand.vb | 15 +++++- SDL/Fakturierung/frmAbrechnungsMaske.vb | 8 ++- SDL/Fakturierung/frmFaktSammelRgDrucken.vb | 8 ++- SDL/Fakturierung/usrCntlFaktAbrechnung.vb | 52 ++++++++++++++++++- SDL/kassenbuch/frmNacherfassungLeihgeld.vb | 2 + .../Schnittstellen/cSyska_Interface.vb | 16 +++--- 6 files changed, 90 insertions(+), 11 deletions(-) diff --git a/SDL/Fakturierung/cAutomailversand.vb b/SDL/Fakturierung/cAutomailversand.vb index 5a6ae6a0..f009d13d 100644 --- 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 diff --git a/SDL/Fakturierung/frmAbrechnungsMaske.vb b/SDL/Fakturierung/frmAbrechnungsMaske.vb index 60dd8c41..5c11680b 100644 --- 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() diff --git a/SDL/Fakturierung/frmFaktSammelRgDrucken.vb b/SDL/Fakturierung/frmFaktSammelRgDrucken.vb index 069ae75f..4bb0d3fd 100644 --- 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)) diff --git a/SDL/Fakturierung/usrCntlFaktAbrechnung.vb b/SDL/Fakturierung/usrCntlFaktAbrechnung.vb index ba6c7c42..c7c4777f 100644 --- 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 \ No newline at end of file diff --git a/SDL/kassenbuch/frmNacherfassungLeihgeld.vb b/SDL/kassenbuch/frmNacherfassungLeihgeld.vb index a164d2cf..1f5c2d35 100644 --- 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 diff --git a/VERAG_PROG_ALLGEMEIN/Schnittstellen/cSyska_Interface.vb b/VERAG_PROG_ALLGEMEIN/Schnittstellen/cSyska_Interface.vb index b69d4dc0..ff4b6184 100644 --- 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