fakt, etc.

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
 

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"

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,7 +5515,60 @@ mwst:
 
         Dim enableAUTOMAIL As Boolean = False
 
-        If RECHNUNG Is Nothing Then Return enableAUTOMAIL
+        If RECHNUNG Is Nothing Then
+
+
+            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
+
+
+        Else
+
+
             If RECHNUNG.Rechnung_an = 0 Then Return enableAUTOMAIL
 
             Dim RD_DRUCK = -1
@@ -5552,8 +5609,16 @@ mwst:
                 enableAUTOMAIL = False
             End If
 
+
+
+
+        End If
+
+
         Return enableAUTOMAIL
 
+
     End Function
 
+
 End Class

SDL/My 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: AssemblyVersion("1.5.4.7")>
-<Assembly: AssemblyFileVersion("1.5.4.6")>
+<Assembly: AssemblyFileVersion("1.5.4.7")>

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
+      ,[oldValueCL] as Kreditlimit_Alt
-      ,[newValueCL] as KreditlimitNeu
+      ,[newValueCL] as Kreditlimit_Neu
-      ,[oldValueCR] as BonRateAlt
+      ,[oldValueCR] as BonRate_Alt
-      ,[newValueCR] as BonRateNeu
+      ,[newValueCR] as BonRate_Neu
-      ,[newValueCRIndex] as BonIndexNeu
+      ,[oldValueCRIndex] as BonIndex_Alt      
-      ,[oldValueCRIndex] as BonIndexAlt
+      ,[newValueCRIndex] as BonIndex_Neu
-      ,[oldRiskClass] as RiskoklasseAlt
+      ,[oldRiskClass] as Riskoklasse_Alt
-      ,[newRiskClass] as RiskoklasseNeu
+      ,[newRiskClass] as Riskoklasse_Neu
         FROM [VERAG].[dbo].[tblCreditsafeEvents] where [kundenNr] = " & KdSearchBox1.KdNr & " order by eventDate desc"