fakt, etc.

2026-04-21 10:28:25 +02:00
parent 4cc813b69c
commit 63fec5fa9f
5 changed files with 117 additions and 48 deletions
--- a/SDL/Fakturierung/cAutomailversand.vb
+++ b/SDL/Fakturierung/cAutomailversand.vb
@@ -1163,7 +1163,7 @@ Public Class cAutomailversand

    End Function

-    Private Function setEmpfaengerMail_SR(SR_DT As DataTable, AD As cAdressen, EMAILTMP As String, EMAILTMPCC As String, EMAILTMPBCC As String, FirmaID As Integer, SammelrechungArt As String)
+    Private Function setEmpfaengerMail_SR(ByRef SR_DT As DataTable, ByRef AD As cAdressen, ByRef EMAILTMP As String, ByRef EMAILTMPCC As String, ByRef EMAILTMPBCC As String, ByRef FirmaID As Integer, ByRef SammelrechungArt As String)

        If SammelrechungArt <> 6 Then

--- a/SDL/Fakturierung/frmFaktSammelRgDrucken.Designer.vb
+++ b/SDL/Fakturierung/frmFaktSammelRgDrucken.Designer.vb
@@ -639,6 +639,7 @@ Partial Class frmFaktSammelRgDrucken
        '
        'btnNurImport
        '
+        Me.btnNurImport.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.btnNurImport.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.btnNurImport.Location = New System.Drawing.Point(836, 437)
        Me.btnNurImport.Margin = New System.Windows.Forms.Padding(0)
@@ -662,6 +663,7 @@ Partial Class frmFaktSammelRgDrucken
        '
        'btnKeine
        '
+        Me.btnKeine.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.btnKeine.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.btnKeine.Location = New System.Drawing.Point(985, 437)
        Me.btnKeine.Margin = New System.Windows.Forms.Padding(0)
@@ -682,6 +684,7 @@ Partial Class frmFaktSammelRgDrucken
        '
        'btnNurExport
        '
+        Me.btnNurExport.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.btnNurExport.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.btnNurExport.Location = New System.Drawing.Point(911, 437)
        Me.btnNurExport.Margin = New System.Windows.Forms.Padding(0)
@@ -693,6 +696,7 @@ Partial Class frmFaktSammelRgDrucken
        '
        'Label6
        '
+        Me.Label6.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.Label6.AutoSize = True
        Me.Label6.Location = New System.Drawing.Point(833, 412)
        Me.Label6.Name = "Label6"
--- a/SDL/Fakturierung/usrCntlFaktAbrechnung.vb
+++ b/SDL/Fakturierung/usrCntlFaktAbrechnung.vb
@@ -1,5 +1,4 @@
 Imports System.Web.UI.WebControls.Expressions
-Imports com.sun.jndi.toolkit
 Imports VERAG_PROG_ALLGEMEIN

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

            Button2.Enabled = (RECHNUNG.Status = 0)
            btnOK.Enabled = (RECHNUNG.Status = 0)
-            cbxAUTOMailversand.Enabled = setAutoMailversandVisiblity()
+

            'RECHNUNG.OffertenNr = OfferteNrTmp
            ' RECHNUNG.OffertenNr = OfferteNrTmp
@@ -378,6 +377,8 @@ Public Class usrCntlFaktAbrechnung
            setControlsEnabled(pnlAuftraggeber, pnlEnabled)
            setControlsEnabled(pnlAvisierer, pnlEnabled)

+            cbxAUTOMailversand.Enabled = setAutoMailversandVisiblity()
+
            'If RECHNUNG.Sachbearbeiter = "AUTO" AndAlso RECHNUNG.VermittlerKundenNr = "3013401" Then 'sperren, damit autom. generierte Email neu mit Offerte initialisiwert werden kann!
            '    dgvOffertenSperrliste.Enabled = False
            'Else
@@ -947,6 +948,7 @@ Public Class usrCntlFaktAbrechnung
    End Sub
    Private Sub cboRechnungAn_TextChanged(sender As Object, e As EventArgs) Handles cboRechnungAn.SelectedIndexChanged
        Button15.Enabled = (cboRechnungAn._value <> "")
+        cbxAUTOMailversand.Enabled = setAutoMailversandVisiblity()
    End Sub

    Private Sub cboSteuerschlüssel_SelectedValueChanged(sender As Object, e As EventArgs) Handles cboSteuerschlüssel.SelectedIndexChanged
@@ -3513,7 +3515,8 @@ Public Class usrCntlFaktAbrechnung
        If Not checkUIDNR() Then Exit Sub

        If RECHNUNG.Sammelrechnung = 0 Then 'nur bei ER
-            If cbxAUTOMailversand.Checked AndAlso Not RECHNUNG.Automailversand Then
+
+            If cbxAUTOMailversand.Checked AndAlso (Not RECHNUNG.Automailversand Or RECHNUNG.RechnungsDatum Is Nothing) Then
                If cAutomailversand.automRechnungsversand_aktivieren(RECHNUNG.Sammelrechnung = 0) Then

                    If RECHNUNG.RechnungsDatum Is Nothing Then
@@ -4920,6 +4923,7 @@ Nächste_Textzeile_lesen:
    Private Sub cboSammelrechnung_SelectedValueChanged(sender As Object, e As EventArgs) Handles cboSammelrechnung.SelectedValueChanged

        btnZoll_EUST.Enabled = IIf(cboSammelrechnung._value = 0, True, False)
+        cbxAUTOMailversand.Enabled = setAutoMailversandVisiblity()

    End Sub

@@ -5511,49 +5515,110 @@ mwst:

        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
+        If RECHNUNG Is Nothing Then


-        'BEI EINZELRECHNUNG WIRD STATUS 0 und 2 geprüft
+            If cboRechnungAn._value = "" Then Return enableAUTOMAIL
+
+
+            Dim RD_DRUCK = -1
+            Dim AD As cAdressen
+
+            Select Case cboRechnungAn._value
+                Case "1"
+                    If kdFirmaAbsender.KdNr = "" Then Return enableAUTOMAIL
+                    AD = New cAdressen(kdFirmaAbsender.KdNr)
+                    RD_DRUCK = If(AD.Rechnungsdruck, -1)
+                Case "2"
+                    If kdFirmaEmpfaenger.KdNr = "" Then Return enableAUTOMAIL
+                    AD = New cAdressen(kdFirmaEmpfaenger.KdNr)
+                    RD_DRUCK = If(AD.Rechnungsdruck, -1)
+                Case "3"
+                    If kdFirmaAuftraggeber.KdNr = "" Then Return enableAUTOMAIL
+                    AD = New cAdressen(kdFirmaAuftraggeber.KdNr)
+                    RD_DRUCK = If(AD.Rechnungsdruck, -1)
+                Case "4"
+                    If kdFirmaAvisierer.KdNr = "" Then Return enableAUTOMAIL
+                    AD = New cAdressen(kdFirmaAvisierer.KdNr)
+                    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 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
+
+
+            Else
+                enableAUTOMAIL = False
+            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 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
+
+
+            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
+
+
+
+
        End If

+
        Return enableAUTOMAIL

+
    End Function

+
 End Class
--- a/Project/AssemblyInfo.vb
+++ b/Project/AssemblyInfo.vb
@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")> 

-<Assembly: AssemblyVersion("1.5.4.6")>
-<Assembly: AssemblyFileVersion("1.5.4.6")>
+<Assembly: AssemblyVersion("1.5.4.7")>
+<Assembly: AssemblyFileVersion("1.5.4.7")>
--- a/SDL/kunden/frmBonitätsverlauf.vb
+++ b/SDL/kunden/frmBonitätsverlauf.vb
@@ -196,14 +196,14 @@ Public Class frmBonitätsverlauf
      ,[oldValue] as alterWert
      ,[newValue] as neuerWert
      ,[sachbearbeiter] as Sachbearbeiter
-      ,[oldValueCL] as KreditlimitAlt
-      ,[newValueCL] as KreditlimitNeu
-      ,[oldValueCR] as BonRateAlt
-      ,[newValueCR] as BonRateNeu
-      ,[newValueCRIndex] as BonIndexNeu
-      ,[oldValueCRIndex] as BonIndexAlt
-      ,[oldRiskClass] as RiskoklasseAlt
-      ,[newRiskClass] as RiskoklasseNeu
+      ,[oldValueCL] as Kreditlimit_Alt
+      ,[newValueCL] as Kreditlimit_Neu
+      ,[oldValueCR] as BonRate_Alt
+      ,[newValueCR] as BonRate_Neu
+      ,[oldValueCRIndex] as BonIndex_Alt      
+      ,[newValueCRIndex] as BonIndex_Neu
+      ,[oldRiskClass] as Riskoklasse_Alt
+      ,[newRiskClass] as Riskoklasse_Neu
        FROM [VERAG].[dbo].[tblCreditsafeEvents] where [kundenNr] = " & KdSearchBox1.KdNr & " order by eventDate desc"