edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Rechnungsversand, etc.

Browse Source
This commit is contained in:
d.breimaier
2026-04-29 15:13:30 +02:00
parent 01250f191b
commit ded64d3192
6 changed files with 113 additions and 93 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
SDL/Fakturierung/cAutomailversand.vb
View File

@@ -29,7 +29,7 @@ Public Class cAutomailversand
LEFT JOIN tblKundenErweitert on tblKundenErweitert.kde_KundenNr = Rechnungsausgang.RechnungsKundenNr LEFT JOIN tblKundenErweitert on tblKundenErweitert.kde_KundenNr = Rechnungsausgang.RechnungsKundenNr
INNER JOIN Währungstabelle on LandKz = Rechnungsausgang.RechnungsLandKz INNER JOIN Währungstabelle on LandKz = Rechnungsausgang.RechnungsLandKz
WHERE Rechnungsausgang.Status IN (2) and Rechnungsausgang.Automailversand_sent is null And Rechnungsausgang.Firma_ID = '" & FirmaID & "' And Rechnungsausgang.Sammelrechnung = '" & SammelrechungArt & "' And CONVERT(DATE,Rechnungsausgang.Rechnungsdatum,104) = '" & _Rechnungsdatum.ToShortDateString & "' WHERE Rechnungsausgang.Status IN (2) and Rechnungsausgang.Automailversand_sent is null And Rechnungsausgang.Firma_ID = '" & FirmaID & "' And Rechnungsausgang.Sammelrechnung = '" & SammelrechungArt & "' And CONVERT(DATE,Rechnungsausgang.Rechnungsdatum,104) = '" & _Rechnungsdatum.ToShortDateString & "'
and isnull(Rechnungsausgang.Automailversand,0) = 1 and Rechnungsausgang.Automailversand_sent = NULL and RechnungsNr > 0 " & IIf(KundenNr > 0, " AND RechnungsKundenNr = " & KundenNr, "") & " and isnull(Rechnungsausgang.Automailversand,0) = 1 and RechnungsNr > 0 " & IIf(KundenNr > 0, " AND RechnungsKundenNr = " & KundenNr, "") & "
GROUP BY RechnungsNr, RechnungsKundenNr,isnull(tblKundenErweitert.kde_keineMWSt,0),RechnungsLandKz, MitgliedslandEU GROUP BY RechnungsNr, RechnungsKundenNr,isnull(tblKundenErweitert.kde_keineMWSt,0),RechnungsLandKz, MitgliedslandEU
ORDER BY RechnungsLandKz, RechnungsKundenNr" ORDER BY RechnungsLandKz, RechnungsKundenNr"
@@ -39,7 +39,7 @@ Public Class cAutomailversand
LEFT JOIN tblKundenErweitert on tblKundenErweitert.kde_KundenNr = Rechnungsausgang.RechnungsKundenNr LEFT JOIN tblKundenErweitert on tblKundenErweitert.kde_KundenNr = Rechnungsausgang.RechnungsKundenNr
INNER JOIN Währungstabelle on LandKz = Rechnungsausgang.RechnungsLandKz INNER JOIN Währungstabelle on LandKz = Rechnungsausgang.RechnungsLandKz
WHERE Rechnungsausgang.Status IN (2) and Rechnungsausgang.Automailversand_sent is null And Rechnungsausgang.Firma_ID = '" & FirmaID & "' And Rechnungsausgang.Sammelrechnung = '" & SammelrechungArt & "' And CONVERT(DATE,Rechnungsausgang.Rechnungsdatum,104) = '" & _Rechnungsdatum.ToShortDateString & "' WHERE Rechnungsausgang.Status IN (2) and Rechnungsausgang.Automailversand_sent is null And Rechnungsausgang.Firma_ID = '" & FirmaID & "' And Rechnungsausgang.Sammelrechnung = '" & SammelrechungArt & "' And CONVERT(DATE,Rechnungsausgang.Rechnungsdatum,104) = '" & _Rechnungsdatum.ToShortDateString & "'
and isnull(Rechnungsausgang.Automailversand,0) = 1 and Rechnungsausgang.Automailversand_sent = NULL and RechnungsNr > 0 and FakturierungsGruppe = '" & faktGruppe & "'" & IIf(KundenNr > 0, " AND RechnungsKundenNr = " & KundenNr, "") & " and isnull(Rechnungsausgang.Automailversand,0) = 1 and RechnungsNr > 0 and FakturierungsGruppe = '" & faktGruppe & "'" & IIf(KundenNr > 0, " AND RechnungsKundenNr = " & KundenNr, "") & "
GROUP BY RechnungsNr, RechnungsKundenNr,tblKundenErweitert.kde_SR_IM_EX GROUP BY RechnungsNr, RechnungsKundenNr,tblKundenErweitert.kde_SR_IM_EX
ORDER BY RechnungsLandKz, RechnungsKundenNr" ORDER BY RechnungsLandKz, RechnungsKundenNr"

33
SDL/Fakturierung/frmAbrechnungsMaske.vb
View File

@@ -1,5 +1,6 @@
Imports System.IO Imports System.IO
Imports Microsoft.Office.Interop Imports Microsoft.Office.Interop
Imports VERAG_PROG_ALLGEMEIN
Public Class frmAbrechnungsMaske Public Class frmAbrechnungsMaske
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
@@ -53,7 +54,7 @@ Public Class frmAbrechnungsMaske
FirmaTmp = "VERAGIMEX" FirmaTmp = "VERAGIMEX"
End If End If
FirmaTmp = "AMBAR" 'FirmaTmp = "AMBAR"
cboSachbearbeiter.Items.Clear() cboSachbearbeiter.Items.Clear()
@@ -246,22 +247,22 @@ Public Class frmAbrechnungsMaske
End If End If
.Columns("UnterNr").Width = 35 .Columns("UnterNr").Width = 35
.Columns("Art").Width = 30 .Columns("Art").Width = 30
.Columns("Betrag").Width = 100 .Columns("Betrag").Width = 100
.Columns("Rechnungsempfänger").MinimumWidth = 150 .Columns("Rechnungsempfänger").MinimumWidth = 150
.Columns("Rechnungsempfänger").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill .Columns("Rechnungsempfänger").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
If Not cbxGutschriftenAnVerag.Checked Then If Not cbxGutschriftenAnVerag.Checked Then
.Columns("Rechnungsdruck").Width = 60 .Columns("Rechnungsdruck").Width = 60
.Columns("Rechnungsdruck").HeaderText = "Rg.Art" .Columns("Rechnungsdruck").HeaderText = "Rg.Art"
.Columns("Rechnungsdruck").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter .Columns("Rechnungsdruck").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
End If
.Columns("Betrag").DefaultCellStyle.Format = "C2"
End If End If
If cboFirma._value <> "" AndAlso cboFirma._value = "19" Then
.Columns("Betrag").DefaultCellStyle.Format = "C2"
End If
If cboFirma._value <> "" AndAlso cboFirma._value = "19" Then
For Each r In .Rows For Each r In .Rows
@@ -986,6 +987,10 @@ Public Class frmAbrechnungsMaske
Dim ListOfRK_ID As New List(Of Integer) Dim ListOfRK_ID As New List(Of Integer)
Dim noRE_DATE = dgvRechnungen.SelectedRows.Cast(Of DataGridViewRow)().Any(Function(r) r.Cells("RENR").Value Is Nothing OrElse IsDBNull(r.Cells("RENR").Value))
If noRE_DATE Then MsgBox("ACHTUNG, Rechnungsdatum wurde nicht gesetzt." & vbNewLine & "Vorgang wird abgebrochen!") : Exit Sub
For Each row As DataGridViewRow In dgvRechnungen.SelectedRows For Each row As DataGridViewRow In dgvRechnungen.SelectedRows
If Not IsDBNull(row.Cells("RK_ID").Value) AndAlso IsNumeric(row.Cells("RK_ID").Value) Then If Not IsDBNull(row.Cells("RK_ID").Value) AndAlso IsNumeric(row.Cells("RK_ID").Value) Then

156
SDL/Fakturierung/usrCntlFaktAbrechnung.vb
View File

@@ -5524,104 +5524,114 @@ mwst:
If cboRechnungAn._value = "" Then Return enableAUTOMAIL If cboRechnungAn._value = "" Then Return enableAUTOMAIL
If cboSammelrechnung._value <> 0 Then Return enableAUTOMAIL
Dim RD_DRUCK = -1 Dim RD_DRUCK = -1
Dim AD As cAdressen Dim AD As cAdressen
Select Case cboRechnungAn._value Select Case cboRechnungAn._value
Case "1" Case "1"
If kdFirmaAbsender.KdNr = "" Then Return enableAUTOMAIL If kdFirmaAbsender.KdNr = "" Then Return enableAUTOMAIL
AD = New cAdressen(kdFirmaAbsender.KdNr) AD = New cAdressen(kdFirmaAbsender.KdNr)
RD_DRUCK = If(AD.Rechnungsdruck, -1) RD_DRUCK = If(AD.Rechnungsdruck, -1)
Case "2" Case "2"
If kdFirmaEmpfaenger.KdNr = "" Then Return enableAUTOMAIL If kdFirmaEmpfaenger.KdNr = "" Then Return enableAUTOMAIL
AD = New cAdressen(kdFirmaEmpfaenger.KdNr) AD = New cAdressen(kdFirmaEmpfaenger.KdNr)
RD_DRUCK = If(AD.Rechnungsdruck, -1) RD_DRUCK = If(AD.Rechnungsdruck, -1)
Case "3" Case "3"
If kdFirmaAuftraggeber.KdNr = "" Then Return enableAUTOMAIL If kdFirmaAuftraggeber.KdNr = "" Then Return enableAUTOMAIL
AD = New cAdressen(kdFirmaAuftraggeber.KdNr) AD = New cAdressen(kdFirmaAuftraggeber.KdNr)
RD_DRUCK = If(AD.Rechnungsdruck, -1) RD_DRUCK = If(AD.Rechnungsdruck, -1)
Case "4" Case "4"
If kdFirmaAvisierer.KdNr = "" Then Return enableAUTOMAIL If kdFirmaAvisierer.KdNr = "" Then Return enableAUTOMAIL
AD = New cAdressen(kdFirmaAvisierer.KdNr) AD = New cAdressen(kdFirmaAvisierer.KdNr)
RD_DRUCK = If(AD.Rechnungsdruck, -1) RD_DRUCK = If(AD.Rechnungsdruck, -1)
Case Else Case Else
Return enableAUTOMAIL Return enableAUTOMAIL
End Select End Select
'BEI EINZELRECHNUNG WIRD STATUS 0 und 2 geprüft '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 cboSammelrechnung._value = 0 AndAlso lblDruckDatum.Text = "" AndAlso RD_DRUCK = 2 Then ' (RECHNUNG.Status <> 4 ANDAlso RECHNUNG.Status <> 0) WARUM NOCHMALS??
If RECHNUNG IsNot Nothing AndAlso (RECHNUNG.Status <> 0 AndAlso RECHNUNG.Status <> 2) Then
Return enableAUTOMAIL = False
Else
enableAUTOMAIL = True
End If
'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 cboSammelrechnung._value = 0 AndAlso lblDruckDatum.Text = "" AndAlso RD_DRUCK = 2 Then ' (RECHNUNG.Status <> 4 ANDAlso RECHNUNG.Status <> 0) WARUM NOCHMALS??
If RECHNUNG IsNot Nothing AndAlso (RECHNUNG.Status <> 0 AndAlso RECHNUNG.Status <> 2) Then
Return enableAUTOMAIL = False
Else Else
enableAUTOMAIL = True enableAUTOMAIL = False
End If End If
Else Else
enableAUTOMAIL = False
End If
Else
If RECHNUNG.Rechnung_an = 0 Then Return enableAUTOMAIL If RECHNUNG.Rechnung_an = 0 Then Return enableAUTOMAIL
If cboSammelrechnung._value <> 0 Then
Return enableAUTOMAIL
ElseIf RECHNUNG.Sammelrechnung <> 0 Then
Return enableAUTOMAIL
End If
Dim RD_DRUCK = -1 Dim RD_DRUCK = -1
Dim AD As cAdressen Dim AD As cAdressen
Select Case RECHNUNG.Rechnung_an Select Case RECHNUNG.Rechnung_an
Case 1 Case 1
If RECHNUNG.AbsenderKundenNr Is Nothing Then Return enableAUTOMAIL If RECHNUNG.AbsenderKundenNr Is Nothing Then Return enableAUTOMAIL
AD = New cAdressen(RECHNUNG.AbsenderKundenNr) AD = New cAdressen(RECHNUNG.AbsenderKundenNr)
RD_DRUCK = If(AD.Rechnungsdruck, -1) RD_DRUCK = If(AD.Rechnungsdruck, -1)
Case 2 Case 2
If RECHNUNG.EmpfängerKundenNr Is Nothing Then Return enableAUTOMAIL If RECHNUNG.EmpfängerKundenNr Is Nothing Then Return enableAUTOMAIL
AD = New cAdressen(RECHNUNG.EmpfängerKundenNr) AD = New cAdressen(RECHNUNG.EmpfängerKundenNr)
RD_DRUCK = If(AD.Rechnungsdruck, -1) RD_DRUCK = If(AD.Rechnungsdruck, -1)
Case 3 Case 3
If RECHNUNG.VermittlerKundenNr Is Nothing Then Return enableAUTOMAIL If RECHNUNG.VermittlerKundenNr Is Nothing Then Return enableAUTOMAIL
AD = New cAdressen(RECHNUNG.VermittlerKundenNr) AD = New cAdressen(RECHNUNG.VermittlerKundenNr)
RD_DRUCK = If(AD.Rechnungsdruck, -1) RD_DRUCK = If(AD.Rechnungsdruck, -1)
Case 4 Case 4
If RECHNUNG.AvisiererKundenNr Is Nothing Then Return enableAUTOMAIL If RECHNUNG.AvisiererKundenNr Is Nothing Then Return enableAUTOMAIL
AD = New cAdressen(RECHNUNG.AvisiererKundenNr) AD = New cAdressen(RECHNUNG.AvisiererKundenNr)
RD_DRUCK = If(AD.Rechnungsdruck, -1) RD_DRUCK = If(AD.Rechnungsdruck, -1)
Case Else Case Else
Return enableAUTOMAIL Return enableAUTOMAIL
End Select End Select
'BEI EINZELRECHNUNG WIRD STATUS 0 und 2 geprüft 'BEI EINZELRECHNUNG WIRD STATUS 0 und 2 geprüft
'STATUS 0-_> Rechnung angelegt 'STATUS 0-_> Rechnung angelegt
'STATUS 1-_> Einzel-Rg gedruckt 'STATUS 1-_> Einzel-Rg gedruckt
'STATUS 2-_> Anlagen zur Rg gedruckt 'STATUS 2-_> Anlagen zur Rg gedruckt
'STATUS 3-_> Sammel-Rg gedruckt 'STATUS 3-_> Sammel-Rg gedruckt
'STATUS 4-_> ? irgendwas mit SR 6 Maut/Diesel?? '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
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 End If
If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
End If
If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
'Button8.Enabled = Not enableAUTOMAIL 'Button8.Enabled = Not enableAUTOMAIL
'Button9.Enabled = Not enableAUTOMAIL 'Button9.Enabled = Not enableAUTOMAIL
'Button4.Enabled = Not enableAUTOMAIL 'Button4.Enabled = Not enableAUTOMAIL

4
SDL/My Project/AssemblyInfo.vb
View File

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben: ' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")> ' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.5.4.8")> <Assembly: AssemblyVersion("1.5.4.9")>
<Assembly: AssemblyFileVersion("1.5.4.8")> <Assembly: AssemblyFileVersion("1.5.4.9")>

7
SDL/SDL.vbproj
View File

@@ -104,8 +104,8 @@
<Reference Include="BouncyCastle.Crypto, Version=1.7.4137.9688, Culture=neutral, PublicKeyToken=a4292a325f69b123, processorArchitecture=MSIL"> <Reference Include="BouncyCastle.Crypto, Version=1.7.4137.9688, Culture=neutral, PublicKeyToken=a4292a325f69b123, processorArchitecture=MSIL">
<HintPath>..\..\..\Aviso\AVISO\packages\BouncyCastle.1.7.0\lib\Net40-Client\BouncyCastle.Crypto.dll</HintPath> <HintPath>..\..\..\Aviso\AVISO\packages\BouncyCastle.1.7.0\lib\Net40-Client\BouncyCastle.Crypto.dll</HintPath>
</Reference> </Reference>
<Reference Include="BouncyCastle.Cryptography"> <Reference Include="BouncyCastle.Cryptography, Version=2.0.0.0, Culture=neutral, PublicKeyToken=072edcf4a5328938, processorArchitecture=MSIL">
<HintPath>F:\PROGRAMMIERUNG\dll\ActiveReports18\allDll\BouncyCastle.Cryptography.dll</HintPath> <HintPath>..\..\..\Aviso\AVISO\packages\BouncyCastle.Cryptography.2.6.2\lib\net461\BouncyCastle.Cryptography.dll</HintPath>
</Reference> </Reference>
<Reference Include="ChilkatDotNet47, Version=9.5.0.96, Culture=neutral, PublicKeyToken=eb5fc1fc52ef09bd, processorArchitecture=AMD64"> <Reference Include="ChilkatDotNet47, Version=9.5.0.96, Culture=neutral, PublicKeyToken=eb5fc1fc52ef09bd, processorArchitecture=AMD64">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
@@ -256,6 +256,9 @@
<Reference Include="itext.barcodes, Version=9.6.0.0, Culture=neutral, PublicKeyToken=8354ae6d2174ddca, processorArchitecture=MSIL"> <Reference Include="itext.barcodes, Version=9.6.0.0, Culture=neutral, PublicKeyToken=8354ae6d2174ddca, processorArchitecture=MSIL">
<HintPath>..\..\..\Aviso\AVISO\packages\itext.9.6.0\lib\net461\itext.barcodes.dll</HintPath> <HintPath>..\..\..\Aviso\AVISO\packages\itext.9.6.0\lib\net461\itext.barcodes.dll</HintPath>
</Reference> </Reference>
<Reference Include="itext.bouncy-castle-adapter, Version=9.6.0.0, Culture=neutral, PublicKeyToken=8354ae6d2174ddca, processorArchitecture=MSIL">
<HintPath>..\..\..\Aviso\AVISO\packages\itext.bouncy-castle-adapter.9.6.0\lib\net461\itext.bouncy-castle-adapter.dll</HintPath>
</Reference>
<Reference Include="itext.bouncy-castle-connector, Version=9.6.0.0, Culture=neutral, PublicKeyToken=8354ae6d2174ddca, processorArchitecture=MSIL"> <Reference Include="itext.bouncy-castle-connector, Version=9.6.0.0, Culture=neutral, PublicKeyToken=8354ae6d2174ddca, processorArchitecture=MSIL">
<HintPath>..\..\..\Aviso\AVISO\packages\itext.9.6.0\lib\net461\itext.bouncy-castle-connector.dll</HintPath> <HintPath>..\..\..\Aviso\AVISO\packages\itext.9.6.0\lib\net461\itext.bouncy-castle-connector.dll</HintPath>
</Reference> </Reference>

2
SDL/packages.config
View File

@@ -1,6 +1,7 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<packages> <packages>
<package id="BouncyCastle" version="1.7.0" targetFramework="net48" /> <package id="BouncyCastle" version="1.7.0" targetFramework="net48" />
<package id="BouncyCastle.Cryptography" version="2.6.2" targetFramework="net48" />
<package id="ClosedXML" version="0.95.4" targetFramework="net47" /> <package id="ClosedXML" version="0.95.4" targetFramework="net47" />
<package id="Common.Logging" version="3.4.1" targetFramework="net48" /> <package id="Common.Logging" version="3.4.1" targetFramework="net48" />
<package id="Common.Logging.Core" version="3.4.1" targetFramework="net48" /> <package id="Common.Logging.Core" version="3.4.1" targetFramework="net48" />
@@ -19,6 +20,7 @@
<package id="Hardcodet.NotifyIcon.Wpf" version="1.0.5" targetFramework="net40-Client" requireReinstallation="True" /> <package id="Hardcodet.NotifyIcon.Wpf" version="1.0.5" targetFramework="net40-Client" requireReinstallation="True" />
<package id="IKVM" version="8.0.5449.1" targetFramework="net47" /> <package id="IKVM" version="8.0.5449.1" targetFramework="net47" />
<package id="itext" version="9.6.0" targetFramework="net48" /> <package id="itext" version="9.6.0" targetFramework="net48" />
<package id="itext.bouncy-castle-adapter" version="9.6.0" targetFramework="net48" />
<package id="itext.commons" version="9.6.0" targetFramework="net48" /> <package id="itext.commons" version="9.6.0" targetFramework="net48" />
<package id="itext7" version="9.6.0" targetFramework="net48" /> <package id="itext7" version="9.6.0" targetFramework="net48" />
<package id="LiveCharts" version="0.6.7.0" targetFramework="net40-Client" requireReinstallation="True" /> <package id="LiveCharts" version="0.6.7.0" targetFramework="net40-Client" requireReinstallation="True" />