diff --git a/SDL/Fakturierung/cAutomailversand.vb b/SDL/Fakturierung/cAutomailversand.vb index 43217f7b..7dac8cd6 100644 --- 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 diff --git a/SDL/Fakturierung/frmFaktSammelRgDrucken.Designer.vb b/SDL/Fakturierung/frmFaktSammelRgDrucken.Designer.vb index 2f8d7479..f3ffe2a8 100644 --- 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" diff --git a/SDL/Fakturierung/usrCntlFaktAbrechnung.vb b/SDL/Fakturierung/usrCntlFaktAbrechnung.vb index c7c4777f..278fb913 100644 --- 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 \ No newline at end of file diff --git a/SDL/My Project/AssemblyInfo.vb b/SDL/My Project/AssemblyInfo.vb index 0cd8acb6..02de115d 100644 --- a/SDL/My Project/AssemblyInfo.vb +++ b/SDL/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + + diff --git a/SDL/kunden/frmBonitätsverlauf.vb b/SDL/kunden/frmBonitätsverlauf.vb index e505e8ac..3e159691 100644 --- 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"