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

cbam-checkliste, Kundenuebersicht, etc.

Browse Source
This commit is contained in:
d.breimaier
2026-02-19 10:14:33 +01:00
parent 4e74b016a7
commit 395fbae5f4
5 changed files with 339 additions and 177 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlCBAM_Checkliste.Designer.vb generated
View File

@@ -22,6 +22,7 @@ Partial Class usrcntlCBAM_Checkliste
'Das Bearbeiten mit dem Code-Editor ist nicht möglich. 'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> <System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent() Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Me.lbl = New System.Windows.Forms.Label() Me.lbl = New System.Windows.Forms.Label()
Me.Label1 = New System.Windows.Forms.Label() Me.Label1 = New System.Windows.Forms.Label()
Me.btn = New System.Windows.Forms.Button() Me.btn = New System.Windows.Forms.Button()
@@ -39,6 +40,8 @@ Partial Class usrcntlCBAM_Checkliste
Me.cboSprache = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.cboSprache = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.cboFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.cboFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Label42 = New System.Windows.Forms.Label() Me.Label42 = New System.Windows.Forms.Label()
Me.cbxNeukunde = New VERAG_PROG_ALLGEMEIN.MyCheckbox(Me.components)
Me.CheckVatTestService1 = New VERAG_PROG_ALLGEMEIN.eu.europa.ec.checkVatTestService()
CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout() Me.SuspendLayout()
' '
@@ -275,12 +278,32 @@ Partial Class usrcntlCBAM_Checkliste
Me.Label42.TabIndex = 36 Me.Label42.TabIndex = 36
Me.Label42.Text = "Firma:" Me.Label42.Text = "Firma:"
' '
'cbxNeukunde
'
Me.cbxNeukunde._value = ""
Me.cbxNeukunde.AutoSize = True
Me.cbxNeukunde.Checked_value = False
Me.cbxNeukunde.CheckedValue = False
Me.cbxNeukunde.Location = New System.Drawing.Point(254, 8)
Me.cbxNeukunde.Name = "cbxNeukunde"
Me.cbxNeukunde.Size = New System.Drawing.Size(76, 17)
Me.cbxNeukunde.TabIndex = 38
Me.cbxNeukunde.Text = "Neukunde"
Me.cbxNeukunde.UseVisualStyleBackColor = True
'
'CheckVatTestService1
'
Me.CheckVatTestService1.Credentials = Nothing
Me.CheckVatTestService1.Url = "http://ec.europa.eu/taxation_customs/vies/services/checkVatTestService"
Me.CheckVatTestService1.UseDefaultCredentials = False
'
'usrcntlCBAM_Checkliste 'usrcntlCBAM_Checkliste
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.WhiteSmoke Me.BackColor = System.Drawing.Color.WhiteSmoke
Me.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle Me.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Controls.Add(Me.cbxNeukunde)
Me.Controls.Add(Me.cboFirma) Me.Controls.Add(Me.cboFirma)
Me.Controls.Add(Me.Label42) Me.Controls.Add(Me.Label42)
Me.Controls.Add(Me.Label12) Me.Controls.Add(Me.Label12)
@@ -322,4 +345,6 @@ Partial Class usrcntlCBAM_Checkliste
Friend WithEvents cboSprache As VERAG_PROG_ALLGEMEIN.MyComboBox Friend WithEvents cboSprache As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents cboFirma As VERAG_PROG_ALLGEMEIN.MyComboBox Friend WithEvents cboFirma As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents Label42 As Label Friend WithEvents Label42 As Label
Friend WithEvents cbxNeukunde As VERAG_PROG_ALLGEMEIN.MyCheckbox
Friend WithEvents CheckVatTestService1 As VERAG_PROG_ALLGEMEIN.eu.europa.ec.checkVatTestService
End Class End Class

3
SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlCBAM_Checkliste.resx
View File

@@ -117,4 +117,7 @@
<resheader name="writer"> <resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value> <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader> </resheader>
<metadata name="CheckVatTestService1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
</root> </root>

19
SDL/Formulare/KDFormulare/frmFormulare.vb
View File

@@ -696,8 +696,6 @@ Public Class frmFormulare
End If End If
End Sub End Sub
MyFlowLayoutPanel1.Controls.Add(c) MyFlowLayoutPanel1.Controls.Add(c)
c.cboSprache.Items.Clear() c.cboSprache.Items.Clear()
c.cboSprache.Items.Add(New MyListItem("Deutsch", "DE")) c.cboSprache.Items.Add(New MyListItem("Deutsch", "DE"))
c.cboSprache.Items.Add(New MyListItem("Englisch", "EN")) c.cboSprache.Items.Add(New MyListItem("Englisch", "EN"))
@@ -991,6 +989,11 @@ Public Class frmFormulare
AddHandler c.DELETE, AddressOf ControlDELETE AddHandler c.DELETE, AddressOf ControlDELETE
AddHandler c.MOVE_UP, AddressOf ControlMoveUp AddHandler c.MOVE_UP, AddressOf ControlMoveUp
AddHandler c.MOVE_DOWN, AddressOf ControlMoveDown AddHandler c.MOVE_DOWN, AddressOf ControlMoveDown
If param IsNot Nothing Then
c.cbxNeukunde.Checked = param(0)
End If
MyFlowLayoutPanel1.Controls.Add(c) MyFlowLayoutPanel1.Controls.Add(c)
End If End If
Case FormularManagerArten.CBAM_indirekt Case FormularManagerArten.CBAM_indirekt
@@ -1490,17 +1493,20 @@ Public Class frmFormulare
addForm(FormularManagerArten.AT_Vollmacht_EV) addForm(FormularManagerArten.AT_Vollmacht_EV)
addForm(FormularManagerArten.Verzollungspreise, {"VZ_EV"}) addForm(FormularManagerArten.Verzollungspreise, {"VZ_EV"})
addForm(FormularManagerArten.VUB_CS) addForm(FormularManagerArten.VUB_CS)
addForm(FormularManagerArten.CBAM_Checkliste, {1})
Case FormularVorlagenGruppe.NeukundeATFiskal Case FormularVorlagenGruppe.NeukundeATFiskal
MyFlowLayoutPanel1.Controls.Clear() MyFlowLayoutPanel1.Controls.Clear()
addForm(FormularManagerArten.AT_Fiskal) addForm(FormularManagerArten.AT_Fiskal)
addForm(FormularManagerArten.Verzollungspreise, {"VZ_FISKAL"}) addForm(FormularManagerArten.Verzollungspreise, {"VZ_FISKAL"})
addForm(FormularManagerArten.VUB_CS) addForm(FormularManagerArten.VUB_CS)
addForm(FormularManagerArten.AT_InformationsblattFiskalverzollung) addForm(FormularManagerArten.AT_InformationsblattFiskalverzollung)
addForm(FormularManagerArten.CBAM_Checkliste, {1})
Case FormularVorlagenGruppe.NeukundeDE Case FormularVorlagenGruppe.NeukundeDE
MyFlowLayoutPanel1.Controls.Clear() MyFlowLayoutPanel1.Controls.Clear()
addForm(FormularManagerArten.DE_Vollmacht) addForm(FormularManagerArten.DE_Vollmacht)
addForm(FormularManagerArten.Verzollungspreise) addForm(FormularManagerArten.Verzollungspreise)
addForm(FormularManagerArten.VUB_AG) addForm(FormularManagerArten.VUB_AG)
addForm(FormularManagerArten.CBAM_Checkliste, {1})
Case FormularVorlagenGruppe.NeukundeDEFiskal Case FormularVorlagenGruppe.NeukundeDEFiskal
MyFlowLayoutPanel1.Controls.Clear() MyFlowLayoutPanel1.Controls.Clear()
addForm(FormularManagerArten.DE_Fiskal) addForm(FormularManagerArten.DE_Fiskal)
@@ -1508,6 +1514,7 @@ Public Class frmFormulare
addForm(FormularManagerArten.Verzollungspreise, {"VZ_FISKAL_DE"}) addForm(FormularManagerArten.Verzollungspreise, {"VZ_FISKAL_DE"})
addForm(FormularManagerArten.VUB_AG) addForm(FormularManagerArten.VUB_AG)
addForm(FormularManagerArten.DE_InformationsblattFiskalverzollung) addForm(FormularManagerArten.DE_InformationsblattFiskalverzollung)
addForm(FormularManagerArten.CBAM_Checkliste, {1})
Case FormularVorlagenGruppe.NeukundeAT_IMEX Case FormularVorlagenGruppe.NeukundeAT_IMEX
MyFlowLayoutPanel1.Controls.Clear() MyFlowLayoutPanel1.Controls.Clear()
addForm(FormularManagerArten.AT_Vollmacht_EV) addForm(FormularManagerArten.AT_Vollmacht_EV)
@@ -1845,14 +1852,16 @@ Public Class FormularManagerNEU
'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(formatProz(usrCntl.txtCBAM_ZertAufschlag_Paket_1._value, 1), 186.5, Top + 54, 12, 6, "bold", 8, , iTextSharp.text.Element.ALIGN_LEFT, 2)) 'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(formatProz(usrCntl.txtCBAM_ZertAufschlag_Paket_1._value, 1), 186.5, Top + 54, 12, 6, "bold", 8, , iTextSharp.text.Element.ALIGN_LEFT, 2))
'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(formatAmountEUR(usrCntl.txtCBAM_jeZertBest_Paket_1._value, True), 168, Top + 59, 25, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT, 2)) 'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(formatAmountEUR(usrCntl.txtCBAM_jeZertBest_Paket_1._value, True), 168, Top + 59, 25, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT, 2))
Dim Name As String = "CBAM_Checkliste"
If usrCntl.cbxNeukunde.Checked Then Name &= "_Neukunde"
Select Case usrCntl.cboSprache._value Select Case usrCntl.cboSprache._value
Case "EN" Case "EN"
Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", usrCntl.cboFirma._value, "", "CBAM_Checkliste", listTowrite) Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", usrCntl.cboFirma._value, "", Name, listTowrite)
Case Else Case Else
Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", usrCntl.cboFirma._value, "", "CBAM_Checkliste", listTowrite) Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", usrCntl.cboFirma._value, "", Name, listTowrite)
End Select End Select
Return "" Return ""
@@ -2438,7 +2447,7 @@ Public Class FormularManagerNEU
Dim FIRMA_DE As New VERAG_PROG_ALLGEMEIN.cFirmen(2) Dim FIRMA_DE As New VERAG_PROG_ALLGEMEIN.cFirmen(2)
Dim isKundeDE = IIf(usrCntl.cbxLandKz._value = "DE" Or usrCntl.cbxLandKz._value = "D", True, False) Dim isKundeDE = IIf(usrCntl.cbxLandKz._value = "DE" Or usrCntl.cbxLandKz._value = "D", True, False)
Dim dtKundenBank As DataTable = (New VERAG_PROG_ALLGEMEIN.SQL).loadDgvBySql("select bnk_iban, bnk_bic, bnk_anschrift from tblBankverbindungen where bnk_archiv = 0 And bnk_hauptkonto = 0 And bnk_KundenNr = '" & usrCntl.KdNR & "'", "FMZOLL") Dim dtKundenBank As DataTable = (New VERAG_PROG_ALLGEMEIN.SQL).loadDgvBySql("select bnk_iban, bnk_bic, bnk_anschrift from tblBankverbindungen where bnk_archiv = 0 And bnk_hauptkonto = 0 And bnk_KundenNr = '" & usrCntl.KdNR & "'", "FMZOLL")
Dim docBez As String = "" Dim docBez As String = ""
docBez = "VOLLMACHT_" & usrCntl.cboLand._value docBez = "VOLLMACHT_" & usrCntl.cboLand._value

324
SDL/kunden/usrCntlKundenuebersicht.Designer.vb generated
View File

@@ -23,19 +23,19 @@ Partial Class usrCntlKundenuebersicht
<System.Diagnostics.DebuggerStepThrough()> <System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent() Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container() Me.components = New System.ComponentModel.Container()
Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle13 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle14 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle15 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle16 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle17 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle18 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(usrCntlKundenuebersicht)) Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(usrCntlKundenuebersicht))
Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle19 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle20 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle21 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle22 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle12 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle24 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle11 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle23 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Me.cntxtAddVM = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.cntxtAddVM = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.DToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.DToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.btnExcel = New System.Windows.Forms.Button() Me.btnExcel = New System.Windows.Forms.Button()
@@ -105,7 +105,6 @@ Partial Class usrCntlKundenuebersicht
Me.lblFisk = New System.Windows.Forms.Label() Me.lblFisk = New System.Windows.Forms.Label()
Me.txtAbf_ErsteAbfertigung = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtAbf_ErsteAbfertigung = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label41 = New System.Windows.Forms.Label() Me.Label41 = New System.Windows.Forms.Label()
Me.rtbAbf_Besonderheiten = New System.Windows.Forms.RichTextBox()
Me.lblBesonderheiten = New System.Windows.Forms.Label() Me.lblBesonderheiten = New System.Windows.Forms.Label()
Me.Panel4 = New System.Windows.Forms.Panel() Me.Panel4 = New System.Windows.Forms.Panel()
Me.pbCreditsafeChanges = New System.Windows.Forms.PictureBox() Me.pbCreditsafeChanges = New System.Windows.Forms.PictureBox()
@@ -133,10 +132,12 @@ Partial Class usrCntlKundenuebersicht
Me.Label18 = New System.Windows.Forms.Label() Me.Label18 = New System.Windows.Forms.Label()
Me.txtOPNichtFaellig = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtOPNichtFaellig = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Panel7 = New System.Windows.Forms.Panel() Me.Panel7 = New System.Windows.Forms.Panel()
Me.lblKreditlimit = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label1 = New System.Windows.Forms.Label()
Me.txtProforma = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtProforma = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label24 = New System.Windows.Forms.Label()
Me.txtKdSicherheiten = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label23 = New System.Windows.Forms.Label() Me.Label23 = New System.Windows.Forms.Label()
Me.txtKdSicherheiten = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label24 = New System.Windows.Forms.Label()
Me.txtOffenePosten2 = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtOffenePosten2 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label22 = New System.Windows.Forms.Label() Me.Label22 = New System.Windows.Forms.Label()
Me.Panel10 = New System.Windows.Forms.Panel() Me.Panel10 = New System.Windows.Forms.Panel()
@@ -144,13 +145,12 @@ Partial Class usrCntlKundenuebersicht
Me.txtRisiko = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtRisiko = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtOVK = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtOVK = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label19 = New System.Windows.Forms.Label() Me.Label19 = New System.Windows.Forms.Label()
Me.Label1 = New System.Windows.Forms.Label()
Me.lblKreditlimit = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.lblVorkasse = New System.Windows.Forms.Label() Me.lblVorkasse = New System.Windows.Forms.Label()
Me.txtZahlungsziel = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtZahlungsziel = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtVeranlKd = New System.Windows.Forms.TextBox() Me.txtVeranlKd = New System.Windows.Forms.TextBox()
Me.lblVeranlKd = New System.Windows.Forms.Label() Me.lblVeranlKd = New System.Windows.Forms.Label()
Me.txtUmsatzJahr = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtUmsatzJahr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.rtbAbf_Besonderheiten = New System.Windows.Forms.RichTextBox()
Me.lblInsolvent = New System.Windows.Forms.Label() Me.lblInsolvent = New System.Windows.Forms.Label()
Me.grpAdresse = New System.Windows.Forms.GroupBox() Me.grpAdresse = New System.Windows.Forms.GroupBox()
Me.tbKontakt = New System.Windows.Forms.TabControl() Me.tbKontakt = New System.Windows.Forms.TabControl()
@@ -270,8 +270,12 @@ Partial Class usrCntlKundenuebersicht
Me.ToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem() Me.ToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem4 = New System.Windows.Forms.ToolStripMenuItem() Me.ToolStripMenuItem4 = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem5 = New System.Windows.Forms.ToolStripMenuItem() Me.ToolStripMenuItem5 = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem6 = New System.Windows.Forms.ToolStripMenuItem() Me.PDFToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.MailToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem7 = New System.Windows.Forms.ToolStripMenuItem() Me.ToolStripMenuItem7 = New System.Windows.Forms.ToolStripMenuItem()
Me.PDFToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
Me.MailToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem6 = New System.Windows.Forms.ToolStripMenuItem()
Me.GültigungültigToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.GültigungültigToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.btnReloadOP = New System.Windows.Forms.Button() Me.btnReloadOP = New System.Windows.Forms.Button()
Me.btnOP = New System.Windows.Forms.Button() Me.btnOP = New System.Windows.Forms.Button()
@@ -442,8 +446,8 @@ Partial Class usrCntlKundenuebersicht
Me.dgvOfferteDetailsUebersicht.AllowUserToDeleteRows = False Me.dgvOfferteDetailsUebersicht.AllowUserToDeleteRows = False
Me.dgvOfferteDetailsUebersicht.AllowUserToOrderColumns = True Me.dgvOfferteDetailsUebersicht.AllowUserToOrderColumns = True
Me.dgvOfferteDetailsUebersicht.AllowUserToResizeRows = False Me.dgvOfferteDetailsUebersicht.AllowUserToResizeRows = False
DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) DataGridViewCellStyle13.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.dgvOfferteDetailsUebersicht.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1 Me.dgvOfferteDetailsUebersicht.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle13
Me.dgvOfferteDetailsUebersicht.BackgroundColor = System.Drawing.Color.White Me.dgvOfferteDetailsUebersicht.BackgroundColor = System.Drawing.Color.White
Me.dgvOfferteDetailsUebersicht.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D Me.dgvOfferteDetailsUebersicht.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
Me.dgvOfferteDetailsUebersicht.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvOfferteDetailsUebersicht.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
@@ -463,8 +467,8 @@ Partial Class usrCntlKundenuebersicht
Me.dgvOffertenSperrliste.AllowUserToDeleteRows = False Me.dgvOffertenSperrliste.AllowUserToDeleteRows = False
Me.dgvOffertenSperrliste.AllowUserToOrderColumns = True Me.dgvOffertenSperrliste.AllowUserToOrderColumns = True
Me.dgvOffertenSperrliste.AllowUserToResizeRows = False Me.dgvOffertenSperrliste.AllowUserToResizeRows = False
DataGridViewCellStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) DataGridViewCellStyle14.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.dgvOffertenSperrliste.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2 Me.dgvOffertenSperrliste.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle14
Me.dgvOffertenSperrliste.BackgroundColor = System.Drawing.Color.White Me.dgvOffertenSperrliste.BackgroundColor = System.Drawing.Color.White
Me.dgvOffertenSperrliste.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D Me.dgvOffertenSperrliste.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
Me.dgvOffertenSperrliste.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvOffertenSperrliste.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
@@ -474,10 +478,10 @@ Partial Class usrCntlKundenuebersicht
Me.dgvOffertenSperrliste.Name = "dgvOffertenSperrliste" Me.dgvOffertenSperrliste.Name = "dgvOffertenSperrliste"
Me.dgvOffertenSperrliste.ReadOnly = True Me.dgvOffertenSperrliste.ReadOnly = True
Me.dgvOffertenSperrliste.RowHeadersVisible = False Me.dgvOffertenSperrliste.RowHeadersVisible = False
DataGridViewCellStyle3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) DataGridViewCellStyle15.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle3.SelectionBackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(240, Byte), Integer), CType(CType(240, Byte), Integer)) DataGridViewCellStyle15.SelectionBackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(240, Byte), Integer), CType(CType(240, Byte), Integer))
DataGridViewCellStyle3.SelectionForeColor = System.Drawing.Color.Black DataGridViewCellStyle15.SelectionForeColor = System.Drawing.Color.Black
Me.dgvOffertenSperrliste.RowsDefaultCellStyle = DataGridViewCellStyle3 Me.dgvOffertenSperrliste.RowsDefaultCellStyle = DataGridViewCellStyle15
Me.dgvOffertenSperrliste.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect Me.dgvOffertenSperrliste.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.dgvOffertenSperrliste.Size = New System.Drawing.Size(173, 257) Me.dgvOffertenSperrliste.Size = New System.Drawing.Size(173, 257)
Me.dgvOffertenSperrliste.TabIndex = 0 Me.dgvOffertenSperrliste.TabIndex = 0
@@ -615,8 +619,8 @@ Partial Class usrCntlKundenuebersicht
Me.dgvOffenePosten.AllowUserToAddRows = False Me.dgvOffenePosten.AllowUserToAddRows = False
Me.dgvOffenePosten.AllowUserToDeleteRows = False Me.dgvOffenePosten.AllowUserToDeleteRows = False
Me.dgvOffenePosten.AllowUserToResizeRows = False Me.dgvOffenePosten.AllowUserToResizeRows = False
DataGridViewCellStyle4.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) DataGridViewCellStyle16.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.dgvOffenePosten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle4 Me.dgvOffenePosten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle16
Me.dgvOffenePosten.BackgroundColor = System.Drawing.Color.White Me.dgvOffenePosten.BackgroundColor = System.Drawing.Color.White
Me.dgvOffenePosten.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvOffenePosten.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvOffenePosten.Dock = System.Windows.Forms.DockStyle.Fill Me.dgvOffenePosten.Dock = System.Windows.Forms.DockStyle.Fill
@@ -696,8 +700,8 @@ Partial Class usrCntlKundenuebersicht
Me.dgvUmsatzbericht.AllowUserToDeleteRows = False Me.dgvUmsatzbericht.AllowUserToDeleteRows = False
Me.dgvUmsatzbericht.AllowUserToOrderColumns = True Me.dgvUmsatzbericht.AllowUserToOrderColumns = True
Me.dgvUmsatzbericht.AllowUserToResizeRows = False Me.dgvUmsatzbericht.AllowUserToResizeRows = False
DataGridViewCellStyle5.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) DataGridViewCellStyle17.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.dgvUmsatzbericht.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle5 Me.dgvUmsatzbericht.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle17
Me.dgvUmsatzbericht.BackgroundColor = System.Drawing.Color.White Me.dgvUmsatzbericht.BackgroundColor = System.Drawing.Color.White
Me.dgvUmsatzbericht.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvUmsatzbericht.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvUmsatzbericht.Dock = System.Windows.Forms.DockStyle.Fill Me.dgvUmsatzbericht.Dock = System.Windows.Forms.DockStyle.Fill
@@ -760,8 +764,8 @@ Partial Class usrCntlKundenuebersicht
Me.dgvAnhaenge.AllowUserToAddRows = False Me.dgvAnhaenge.AllowUserToAddRows = False
Me.dgvAnhaenge.AllowUserToDeleteRows = False Me.dgvAnhaenge.AllowUserToDeleteRows = False
Me.dgvAnhaenge.AllowUserToResizeRows = False Me.dgvAnhaenge.AllowUserToResizeRows = False
DataGridViewCellStyle6.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) DataGridViewCellStyle18.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.dgvAnhaenge.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle6 Me.dgvAnhaenge.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle18
Me.dgvAnhaenge.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.dgvAnhaenge.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.dgvAnhaenge.BackgroundColor = System.Drawing.Color.White Me.dgvAnhaenge.BackgroundColor = System.Drawing.Color.White
Me.dgvAnhaenge.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvAnhaenge.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
@@ -1367,22 +1371,6 @@ Partial Class usrCntlKundenuebersicht
Me.Label41.Text = "Erste Abfertigung:" Me.Label41.Text = "Erste Abfertigung:"
Me.Label41.Visible = False Me.Label41.Visible = False
' '
'rtbAbf_Besonderheiten
'
Me.rtbAbf_Besonderheiten.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.rtbAbf_Besonderheiten.BackColor = System.Drawing.Color.White
Me.rtbAbf_Besonderheiten.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.rtbAbf_Besonderheiten.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.rtbAbf_Besonderheiten.Location = New System.Drawing.Point(7, 32)
Me.rtbAbf_Besonderheiten.Name = "rtbAbf_Besonderheiten"
Me.rtbAbf_Besonderheiten.ReadOnly = True
Me.rtbAbf_Besonderheiten.ShowSelectionMargin = True
Me.rtbAbf_Besonderheiten.Size = New System.Drawing.Size(660, 193)
Me.rtbAbf_Besonderheiten.TabIndex = 7
Me.rtbAbf_Besonderheiten.Text = ""
'
'lblBesonderheiten 'lblBesonderheiten
' '
Me.lblBesonderheiten.AutoSize = True Me.lblBesonderheiten.AutoSize = True
@@ -1850,6 +1838,44 @@ Partial Class usrCntlKundenuebersicht
Me.Panel7.Size = New System.Drawing.Size(253, 132) Me.Panel7.Size = New System.Drawing.Size(253, 132)
Me.Panel7.TabIndex = 43 Me.Panel7.TabIndex = 43
' '
'lblKreditlimit
'
Me.lblKreditlimit._DateTimeOnly = False
Me.lblKreditlimit._numbersOnly = False
Me.lblKreditlimit._numbersOnlyKommastellen = ""
Me.lblKreditlimit._numbersOnlyTrennzeichen = True
Me.lblKreditlimit._Prozent = False
Me.lblKreditlimit._ShortDateNew = False
Me.lblKreditlimit._ShortDateOnly = False
Me.lblKreditlimit._TimeOnly = False
Me.lblKreditlimit._TimeOnly_Seconds = False
Me.lblKreditlimit._value = Nothing
Me.lblKreditlimit._Waehrung = False
Me.lblKreditlimit._WaehrungZeichen = True
Me.lblKreditlimit.BackColor = System.Drawing.Color.AntiqueWhite
Me.lblKreditlimit.BorderStyle = System.Windows.Forms.BorderStyle.None
Me.lblKreditlimit.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblKreditlimit.ForeColor = System.Drawing.Color.Black
Me.lblKreditlimit.Location = New System.Drawing.Point(135, 111)
Me.lblKreditlimit.MaxLineLength = -1
Me.lblKreditlimit.MaxLines_Warning = ""
Me.lblKreditlimit.MaxLines_Warning_Label = Nothing
Me.lblKreditlimit.Name = "lblKreditlimit"
Me.lblKreditlimit.ReadOnly = True
Me.lblKreditlimit.Size = New System.Drawing.Size(108, 13)
Me.lblKreditlimit.TabIndex = 20
Me.lblKreditlimit.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label1.Location = New System.Drawing.Point(6, 111)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(66, 13)
Me.Label1.TabIndex = 19
Me.Label1.Text = "Kreditlimit:"
'
'txtProforma 'txtProforma
' '
Me.txtProforma._DateTimeOnly = False Me.txtProforma._DateTimeOnly = False
@@ -1879,16 +1905,16 @@ Partial Class usrCntlKundenuebersicht
Me.txtProforma.TabIndex = 53 Me.txtProforma.TabIndex = 53
Me.txtProforma.TextAlign = System.Windows.Forms.HorizontalAlignment.Right Me.txtProforma.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
' '
'Label24 'Label23
' '
Me.Label24.AutoSize = True Me.Label23.AutoSize = True
Me.Label24.Cursor = System.Windows.Forms.Cursors.Hand Me.Label23.Cursor = System.Windows.Forms.Cursors.Hand
Me.Label24.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label23.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label24.Location = New System.Drawing.Point(8, 46) Me.Label23.Location = New System.Drawing.Point(8, 26)
Me.Label24.Name = "Label24" Me.Label23.Name = "Label23"
Me.Label24.Size = New System.Drawing.Size(120, 13) Me.Label23.Size = New System.Drawing.Size(113, 13)
Me.Label24.TabIndex = 52 Me.Label23.TabIndex = 50
Me.Label24.Text = "- Proforma-Rechnungen" Me.Label23.Text = "- offene Vorauskassen"
' '
'txtKdSicherheiten 'txtKdSicherheiten
' '
@@ -1919,16 +1945,16 @@ Partial Class usrCntlKundenuebersicht
Me.txtKdSicherheiten.TabIndex = 51 Me.txtKdSicherheiten.TabIndex = 51
Me.txtKdSicherheiten.TextAlign = System.Windows.Forms.HorizontalAlignment.Right Me.txtKdSicherheiten.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
' '
'Label23 'Label24
' '
Me.Label23.AutoSize = True Me.Label24.AutoSize = True
Me.Label23.Cursor = System.Windows.Forms.Cursors.Hand Me.Label24.Cursor = System.Windows.Forms.Cursors.Hand
Me.Label23.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label24.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label23.Location = New System.Drawing.Point(8, 26) Me.Label24.Location = New System.Drawing.Point(8, 46)
Me.Label23.Name = "Label23" Me.Label24.Name = "Label24"
Me.Label23.Size = New System.Drawing.Size(113, 13) Me.Label24.Size = New System.Drawing.Size(120, 13)
Me.Label23.TabIndex = 50 Me.Label24.TabIndex = 52
Me.Label23.Text = "- offene Vorauskassen" Me.Label24.Text = "- Proforma-Rechnungen"
' '
'txtOffenePosten2 'txtOffenePosten2
' '
@@ -2056,44 +2082,6 @@ Partial Class usrCntlKundenuebersicht
Me.Label19.TabIndex = 43 Me.Label19.TabIndex = 43
Me.Label19.Text = "+ Sicherheiten" Me.Label19.Text = "+ Sicherheiten"
' '
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label1.Location = New System.Drawing.Point(6, 111)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(66, 13)
Me.Label1.TabIndex = 19
Me.Label1.Text = "Kreditlimit:"
'
'lblKreditlimit
'
Me.lblKreditlimit._DateTimeOnly = False
Me.lblKreditlimit._numbersOnly = False
Me.lblKreditlimit._numbersOnlyKommastellen = ""
Me.lblKreditlimit._numbersOnlyTrennzeichen = True
Me.lblKreditlimit._Prozent = False
Me.lblKreditlimit._ShortDateNew = False
Me.lblKreditlimit._ShortDateOnly = False
Me.lblKreditlimit._TimeOnly = False
Me.lblKreditlimit._TimeOnly_Seconds = False
Me.lblKreditlimit._value = Nothing
Me.lblKreditlimit._Waehrung = False
Me.lblKreditlimit._WaehrungZeichen = True
Me.lblKreditlimit.BackColor = System.Drawing.Color.AntiqueWhite
Me.lblKreditlimit.BorderStyle = System.Windows.Forms.BorderStyle.None
Me.lblKreditlimit.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblKreditlimit.ForeColor = System.Drawing.Color.Black
Me.lblKreditlimit.Location = New System.Drawing.Point(135, 111)
Me.lblKreditlimit.MaxLineLength = -1
Me.lblKreditlimit.MaxLines_Warning = ""
Me.lblKreditlimit.MaxLines_Warning_Label = Nothing
Me.lblKreditlimit.Name = "lblKreditlimit"
Me.lblKreditlimit.ReadOnly = True
Me.lblKreditlimit.Size = New System.Drawing.Size(108, 13)
Me.lblKreditlimit.TabIndex = 20
Me.lblKreditlimit.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
'
'lblVorkasse 'lblVorkasse
' '
Me.lblVorkasse.Location = New System.Drawing.Point(492, 230) Me.lblVorkasse.Location = New System.Drawing.Point(492, 230)
@@ -2180,6 +2168,22 @@ Partial Class usrCntlKundenuebersicht
Me.txtUmsatzJahr.TabIndex = 32 Me.txtUmsatzJahr.TabIndex = 32
Me.txtUmsatzJahr.TextAlign = System.Windows.Forms.HorizontalAlignment.Right Me.txtUmsatzJahr.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
' '
'rtbAbf_Besonderheiten
'
Me.rtbAbf_Besonderheiten.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.rtbAbf_Besonderheiten.BackColor = System.Drawing.Color.White
Me.rtbAbf_Besonderheiten.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.rtbAbf_Besonderheiten.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.rtbAbf_Besonderheiten.Location = New System.Drawing.Point(7, 32)
Me.rtbAbf_Besonderheiten.Name = "rtbAbf_Besonderheiten"
Me.rtbAbf_Besonderheiten.ReadOnly = True
Me.rtbAbf_Besonderheiten.ShowSelectionMargin = True
Me.rtbAbf_Besonderheiten.Size = New System.Drawing.Size(660, 193)
Me.rtbAbf_Besonderheiten.TabIndex = 7
Me.rtbAbf_Besonderheiten.Text = ""
'
'lblInsolvent 'lblInsolvent
' '
Me.lblInsolvent.BackColor = System.Drawing.Color.Red Me.lblInsolvent.BackColor = System.Drawing.Color.Red
@@ -2741,8 +2745,8 @@ Partial Class usrCntlKundenuebersicht
Me.dgvVollmachten.AllowUserToDeleteRows = False Me.dgvVollmachten.AllowUserToDeleteRows = False
Me.dgvVollmachten.AllowUserToOrderColumns = True Me.dgvVollmachten.AllowUserToOrderColumns = True
Me.dgvVollmachten.AllowUserToResizeRows = False Me.dgvVollmachten.AllowUserToResizeRows = False
DataGridViewCellStyle7.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) DataGridViewCellStyle19.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.dgvVollmachten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle7 Me.dgvVollmachten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle19
Me.dgvVollmachten.BackgroundColor = System.Drawing.Color.White Me.dgvVollmachten.BackgroundColor = System.Drawing.Color.White
Me.dgvVollmachten.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvVollmachten.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvVollmachten.Dock = System.Windows.Forms.DockStyle.Fill Me.dgvVollmachten.Dock = System.Windows.Forms.DockStyle.Fill
@@ -2795,8 +2799,8 @@ Partial Class usrCntlKundenuebersicht
Me.dgvVertraege.AllowUserToDeleteRows = False Me.dgvVertraege.AllowUserToDeleteRows = False
Me.dgvVertraege.AllowUserToOrderColumns = True Me.dgvVertraege.AllowUserToOrderColumns = True
Me.dgvVertraege.AllowUserToResizeRows = False Me.dgvVertraege.AllowUserToResizeRows = False
DataGridViewCellStyle8.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) DataGridViewCellStyle20.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.dgvVertraege.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle8 Me.dgvVertraege.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle20
Me.dgvVertraege.BackgroundColor = System.Drawing.Color.White Me.dgvVertraege.BackgroundColor = System.Drawing.Color.White
Me.dgvVertraege.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvVertraege.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvVertraege.Dock = System.Windows.Forms.DockStyle.Fill Me.dgvVertraege.Dock = System.Windows.Forms.DockStyle.Fill
@@ -2996,8 +3000,8 @@ Partial Class usrCntlKundenuebersicht
Me.dgvGestGarantie.AllowUserToDeleteRows = False Me.dgvGestGarantie.AllowUserToDeleteRows = False
Me.dgvGestGarantie.AllowUserToOrderColumns = True Me.dgvGestGarantie.AllowUserToOrderColumns = True
Me.dgvGestGarantie.AllowUserToResizeRows = False Me.dgvGestGarantie.AllowUserToResizeRows = False
DataGridViewCellStyle9.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) DataGridViewCellStyle21.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.dgvGestGarantie.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle9 Me.dgvGestGarantie.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle21
Me.dgvGestGarantie.BackgroundColor = System.Drawing.Color.White Me.dgvGestGarantie.BackgroundColor = System.Drawing.Color.White
Me.dgvGestGarantie.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvGestGarantie.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvGestGarantie.Dock = System.Windows.Forms.DockStyle.Fill Me.dgvGestGarantie.Dock = System.Windows.Forms.DockStyle.Fill
@@ -3487,24 +3491,24 @@ Partial Class usrCntlKundenuebersicht
Me.dgvAufschub.AllowUserToResizeColumns = False Me.dgvAufschub.AllowUserToResizeColumns = False
Me.dgvAufschub.AllowUserToResizeRows = False Me.dgvAufschub.AllowUserToResizeRows = False
Me.dgvAufschub.BackgroundColor = System.Drawing.Color.White Me.dgvAufschub.BackgroundColor = System.Drawing.Color.White
DataGridViewCellStyle10.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle22.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle10.BackColor = System.Drawing.SystemColors.Control DataGridViewCellStyle22.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle10.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) DataGridViewCellStyle22.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle10.ForeColor = System.Drawing.SystemColors.WindowText DataGridViewCellStyle22.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle10.SelectionBackColor = System.Drawing.SystemColors.Highlight DataGridViewCellStyle22.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle10.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle22.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle10.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] DataGridViewCellStyle22.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvAufschub.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle10 Me.dgvAufschub.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle22
Me.dgvAufschub.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvAufschub.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvAufschub.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.KtoId, Me.Art, Me.HZA, Me.KontoNr, Me.EORI, Me.NL, Me.BIN}) Me.dgvAufschub.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.KtoId, Me.Art, Me.HZA, Me.KontoNr, Me.EORI, Me.NL, Me.BIN})
DataGridViewCellStyle12.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle24.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle12.BackColor = System.Drawing.SystemColors.Window DataGridViewCellStyle24.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle12.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) DataGridViewCellStyle24.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle12.ForeColor = System.Drawing.SystemColors.ControlText DataGridViewCellStyle24.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle12.SelectionBackColor = System.Drawing.SystemColors.Highlight DataGridViewCellStyle24.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle12.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle24.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle12.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] DataGridViewCellStyle24.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.dgvAufschub.DefaultCellStyle = DataGridViewCellStyle12 Me.dgvAufschub.DefaultCellStyle = DataGridViewCellStyle24
Me.dgvAufschub.Location = New System.Drawing.Point(13, 61) Me.dgvAufschub.Location = New System.Drawing.Point(13, 61)
Me.dgvAufschub.MultiSelect = False Me.dgvAufschub.MultiSelect = False
Me.dgvAufschub.Name = "dgvAufschub" Me.dgvAufschub.Name = "dgvAufschub"
@@ -3531,8 +3535,8 @@ Partial Class usrCntlKundenuebersicht
' '
'HZA 'HZA
' '
DataGridViewCellStyle11.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight DataGridViewCellStyle23.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight
Me.HZA.DefaultCellStyle = DataGridViewCellStyle11 Me.HZA.DefaultCellStyle = DataGridViewCellStyle23
Me.HZA.HeaderText = "HZA" Me.HZA.HeaderText = "HZA"
Me.HZA.Name = "HZA" Me.HZA.Name = "HZA"
Me.HZA.ReadOnly = True Me.HZA.ReadOnly = True
@@ -3645,48 +3649,78 @@ Partial Class usrCntlKundenuebersicht
' '
'ContextMenuStrip4 'ContextMenuStrip4
' '
Me.ContextMenuStrip4.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem1, Me.ToolStripMenuItem4, Me.ToolStripMenuItem5, Me.ToolStripMenuItem6, Me.ToolStripMenuItem7, Me.GültigungültigToolStripMenuItem}) Me.ContextMenuStrip4.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem1, Me.ToolStripMenuItem4, Me.ToolStripMenuItem5, Me.ToolStripMenuItem7, Me.ToolStripMenuItem6, Me.GültigungültigToolStripMenuItem})
Me.ContextMenuStrip4.Name = "ContextMenuStrip1" Me.ContextMenuStrip4.Name = "ContextMenuStrip1"
Me.ContextMenuStrip4.Size = New System.Drawing.Size(156, 136) Me.ContextMenuStrip4.Size = New System.Drawing.Size(159, 136)
' '
'ToolStripMenuItem1 'ToolStripMenuItem1
' '
Me.ToolStripMenuItem1.Image = Global.SDL.My.Resources.Resources.del Me.ToolStripMenuItem1.Image = Global.SDL.My.Resources.Resources.del
Me.ToolStripMenuItem1.Name = "ToolStripMenuItem1" Me.ToolStripMenuItem1.Name = "ToolStripMenuItem1"
Me.ToolStripMenuItem1.Size = New System.Drawing.Size(155, 22) Me.ToolStripMenuItem1.Size = New System.Drawing.Size(158, 22)
Me.ToolStripMenuItem1.Text = "Löschen" Me.ToolStripMenuItem1.Text = "Löschen"
' '
'ToolStripMenuItem4 'ToolStripMenuItem4
' '
Me.ToolStripMenuItem4.Image = Global.SDL.My.Resources.Resources.stift Me.ToolStripMenuItem4.Image = Global.SDL.My.Resources.Resources.stift
Me.ToolStripMenuItem4.Name = "ToolStripMenuItem4" Me.ToolStripMenuItem4.Name = "ToolStripMenuItem4"
Me.ToolStripMenuItem4.Size = New System.Drawing.Size(155, 22) Me.ToolStripMenuItem4.Size = New System.Drawing.Size(158, 22)
Me.ToolStripMenuItem4.Text = "Ändern" Me.ToolStripMenuItem4.Text = "Ändern"
' '
'ToolStripMenuItem5 'ToolStripMenuItem5
' '
Me.ToolStripMenuItem5.Image = Global.SDL.My.Resources.Resources.pdf Me.ToolStripMenuItem5.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.PDFToolStripMenuItem, Me.MailToolStripMenuItem})
Me.ToolStripMenuItem5.Name = "ToolStripMenuItem5" Me.ToolStripMenuItem5.Name = "ToolStripMenuItem5"
Me.ToolStripMenuItem5.Size = New System.Drawing.Size(155, 22) Me.ToolStripMenuItem5.Size = New System.Drawing.Size(158, 22)
Me.ToolStripMenuItem5.Text = "Hochladen" Me.ToolStripMenuItem5.Text = "Anh. hochladen"
'
'PDFToolStripMenuItem
'
Me.PDFToolStripMenuItem.Image = Global.SDL.My.Resources.Resources.pdf
Me.PDFToolStripMenuItem.Name = "PDFToolStripMenuItem"
Me.PDFToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
Me.PDFToolStripMenuItem.Text = "PDF"
'
'MailToolStripMenuItem
'
Me.MailToolStripMenuItem.Image = Global.SDL.My.Resources.Resources.email_big1
Me.MailToolStripMenuItem.Name = "MailToolStripMenuItem"
Me.MailToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
Me.MailToolStripMenuItem.Text = "Mail"
'
'ToolStripMenuItem7
'
Me.ToolStripMenuItem7.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.PDFToolStripMenuItem1, Me.MailToolStripMenuItem1})
Me.ToolStripMenuItem7.Image = Global.SDL.My.Resources.Resources.del
Me.ToolStripMenuItem7.Name = "ToolStripMenuItem7"
Me.ToolStripMenuItem7.Size = New System.Drawing.Size(158, 22)
Me.ToolStripMenuItem7.Text = "Anh. löschen"
'
'PDFToolStripMenuItem1
'
Me.PDFToolStripMenuItem1.Image = Global.SDL.My.Resources.Resources.pdf
Me.PDFToolStripMenuItem1.Name = "PDFToolStripMenuItem1"
Me.PDFToolStripMenuItem1.Size = New System.Drawing.Size(180, 22)
Me.PDFToolStripMenuItem1.Text = "PDF"
'
'MailToolStripMenuItem1
'
Me.MailToolStripMenuItem1.Image = Global.SDL.My.Resources.Resources.email_big1
Me.MailToolStripMenuItem1.Name = "MailToolStripMenuItem1"
Me.MailToolStripMenuItem1.Size = New System.Drawing.Size(180, 22)
Me.MailToolStripMenuItem1.Text = "Mail"
' '
'ToolStripMenuItem6 'ToolStripMenuItem6
' '
Me.ToolStripMenuItem6.Image = Global.SDL.My.Resources.Resources.scanner1 Me.ToolStripMenuItem6.Image = Global.SDL.My.Resources.Resources.scanner1
Me.ToolStripMenuItem6.Name = "ToolStripMenuItem6" Me.ToolStripMenuItem6.Name = "ToolStripMenuItem6"
Me.ToolStripMenuItem6.Size = New System.Drawing.Size(155, 22) Me.ToolStripMenuItem6.Size = New System.Drawing.Size(158, 22)
Me.ToolStripMenuItem6.Text = "Scannen" Me.ToolStripMenuItem6.Text = "Scannen"
' '
'ToolStripMenuItem7
'
Me.ToolStripMenuItem7.Name = "ToolStripMenuItem7"
Me.ToolStripMenuItem7.Size = New System.Drawing.Size(155, 22)
Me.ToolStripMenuItem7.Text = "PDF löschen"
'
'GültigungültigToolStripMenuItem 'GültigungültigToolStripMenuItem
' '
Me.GültigungültigToolStripMenuItem.Name = "GültigungültigToolStripMenuItem" Me.GültigungültigToolStripMenuItem.Name = "GültigungültigToolStripMenuItem"
Me.GültigungültigToolStripMenuItem.Size = New System.Drawing.Size(155, 22) Me.GültigungültigToolStripMenuItem.Size = New System.Drawing.Size(158, 22)
Me.GültigungültigToolStripMenuItem.Text = "gültig/ungültig" Me.GültigungültigToolStripMenuItem.Text = "gültig/ungültig"
' '
'btnReloadOP 'btnReloadOP
@@ -4089,4 +4123,8 @@ Partial Class usrCntlKundenuebersicht
Friend WithEvents txtRisiko As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents txtRisiko As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents txtProforma As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents txtProforma As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label24 As Label Friend WithEvents Label24 As Label
Friend WithEvents PDFToolStripMenuItem As ToolStripMenuItem
Friend WithEvents MailToolStripMenuItem As ToolStripMenuItem
Friend WithEvents PDFToolStripMenuItem1 As ToolStripMenuItem
Friend WithEvents MailToolStripMenuItem1 As ToolStripMenuItem
End Class End Class

145
SDL/kunden/usrCntlKundenuebersicht.vb
View File

@@ -1061,7 +1061,6 @@ Public Class usrCntlKundenuebersicht
With dgvVertraege With dgvVertraege
.Columns.Clear() .Columns.Clear()
.DataSource = VERAG_PROG_ALLGEMEIN.cKundenVertraege.LOAD_LIST(kdNr) .DataSource = VERAG_PROG_ALLGEMEIN.cKundenVertraege.LOAD_LIST(kdNr)
If .Columns.Count = 0 Then Exit Sub If .Columns.Count = 0 Then Exit Sub
@@ -1069,6 +1068,7 @@ Public Class usrCntlKundenuebersicht
.Columns("kv_KundenNr").Visible = False .Columns("kv_KundenNr").Visible = False
.Columns("kv_vertragArtId").Visible = False .Columns("kv_vertragArtId").Visible = False
.Columns("kv_datenarchivId").Visible = False .Columns("kv_datenarchivId").Visible = False
.Columns("kv_datenarchivId_mail").Visible = False
.Columns("kv_erhalten_Datum").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter .Columns("kv_erhalten_Datum").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
.Columns("kv_erhalten_Datum").Width = 65 .Columns("kv_erhalten_Datum").Width = 65
.Columns("kv_erhalten_Datum").HeaderText = "Datum" .Columns("kv_erhalten_Datum").HeaderText = "Datum"
@@ -1089,10 +1089,23 @@ Public Class usrCntlKundenuebersicht
c.Width = 40 : c.DefaultCellStyle.Padding = New Padding(2) : c.DefaultCellStyle.BackColor = Color.White c.Width = 40 : c.DefaultCellStyle.Padding = New Padding(2) : c.DefaultCellStyle.BackColor = Color.White
c.DefaultCellStyle.Tag = "PDF anzeigen" c.DefaultCellStyle.Tag = "PDF anzeigen"
.Columns.Add(c) .Columns.Add(c)
Dim cMail As New DataGridViewImageColumn
cMail.Name = "clmnMail" : cMail.HeaderText = "Mail"
cMail.Image = Nothing : cMail.DefaultCellStyle.NullValue = Nothing
cMail.ImageLayout = DataGridViewImageCellLayout.Zoom
cMail.Width = 40 : cMail.DefaultCellStyle.Padding = New Padding(2) : cMail.DefaultCellStyle.BackColor = Color.White
cMail.DefaultCellStyle.Tag = "Mail anzeigen"
.Columns.Add(cMail)
For Each r As DataGridViewRow In .Rows For Each r As DataGridViewRow In .Rows
If r.Cells("kv_datenarchivId").Value IsNot DBNull.Value AndAlso CInt(r.Cells("kv_datenarchivId").Value) > 0 Then If r.Cells("kv_datenarchivId").Value IsNot DBNull.Value AndAlso CInt(r.Cells("kv_datenarchivId").Value) > 0 Then
DirectCast(r.Cells("clmnPDF"), DataGridViewImageCell).Value = My.Resources.pdf DirectCast(r.Cells("clmnPDF"), DataGridViewImageCell).Value = My.Resources.pdf
End If End If
If r.Cells("kv_datenarchivId_mail").Value IsNot DBNull.Value AndAlso CInt(r.Cells("kv_datenarchivId_mail").Value) > 0 Then
DirectCast(r.Cells("clmnMail"), DataGridViewImageCell).Value = My.Resources.email_big1
End If
If (r.Cells("kv_gueltigBis_Datum").Value IsNot DBNull.Value AndAlso CDate(r.Cells("kv_gueltigBis_Datum").Value) <= CDate(Now.ToShortDateString)) OrElse If (r.Cells("kv_gueltigBis_Datum").Value IsNot DBNull.Value AndAlso CDate(r.Cells("kv_gueltigBis_Datum").Value) <= CDate(Now.ToShortDateString)) OrElse
(Not CBool(r.Cells("kv_gueltig").Value)) Then (Not CBool(r.Cells("kv_gueltig").Value)) Then
r.DefaultCellStyle.ForeColor = Color.Red r.DefaultCellStyle.ForeColor = Color.Red
@@ -1745,14 +1758,41 @@ Public Class usrCntlKundenuebersicht
End Sub End Sub
Private Sub dgvVertraege_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvVertraege.CellDoubleClick Private Sub dgvVertraege_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvVertraege.CellDoubleClick
If dgvVertraege.SelectedRows.Count = 1 Then
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(dgvVertraege.SelectedRows(0).Cells("kv_datenarchivId").Value) Dim tmprowindex As Integer = e.RowIndex
If DS.hasITEMS Then
For Each i In DS.DATA_LIST.LIST If dgvVertraege.Columns(e.ColumnIndex).Name = "clmnPDF" Then
Process.Start(i.coll_pfad)
Next If dgvVertraege.Rows(e.RowIndex).Cells("kv_datenarchivId").Value IsNot DBNull.Value AndAlso CInt(dgvVertraege.Rows(e.RowIndex).Cells("kv_datenarchivId").Value) > 0 Then
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(dgvVertraege.Rows(tmprowindex).Cells("kv_datenarchivId").Value)
If DS.hasITEMS Then
For Each i In DS.DATA_LIST.LIST
Process.Start(i.coll_pfad)
Next
End If
End If End If
ElseIf dgvVertraege.Columns(e.ColumnIndex).Name = "clmnMail" Then
If dgvVertraege.Rows(e.RowIndex).Cells("kv_datenarchivId_mail").Value IsNot DBNull.Value AndAlso CInt(dgvVertraege.Rows(e.RowIndex).Cells("kv_datenarchivId_mail").Value) > 0 Then
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(dgvVertraege.Rows(tmprowindex).Cells("kv_datenarchivId_mail").Value)
If DS.hasITEMS Then
For Each i In DS.DATA_LIST.LIST
Process.Start(i.coll_pfad)
Next
End If
End If
End If End If
'If dgvVertraege.SelectedRows.Count = 1 Then
' Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(dgvVertraege.SelectedRows(0).Cells("kv_datenarchivId").Value)
' If DS.hasITEMS Then
' For Each i In DS.DATA_LIST.LIST
' Process.Start(i.coll_pfad)
' Next
' End If
'End If
End Sub End Sub
@@ -2672,17 +2712,40 @@ Public Class usrCntlKundenuebersicht
End If End If
End Sub End Sub
Private Sub ToolStripMenuItem5_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem5.Click Private Sub ToolStripMenuItem5_Click(sender As Object, e As EventArgs) Handles PDFToolStripMenuItem.Click, MailToolStripMenuItem.Click
If dgvVertraege.SelectedRows.Count = 1 Then If dgvVertraege.SelectedRows.Count = 1 Then
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Kundendaten_bearbeiten", "SDL") Then
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "KD_VERTRÄGE", "", "", "", "KV_" & dgvVertraege.SelectedRows(0).Cells("kv_id").Value, kdNr) Select Case sender.Name
If DS.uploadDataToDATENSERVERFileDialog(, ".pdf", , "PDF") Then Case "PDFToolStripMenuItem"
Dim KV As New VERAG_PROG_ALLGEMEIN.cKundenVertraege(dgvVertraege.SelectedRows(0).Cells("kv_id").Value)
KV.kv_datenarchivId = DS.da_id If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Kundendaten_bearbeiten", "SDL") Then
KV.SAVE() Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "KD_VERTRÄGE", "", "", "", "KV_" & dgvVertraege.SelectedRows(0).Cells("kv_id").Value, kdNr)
initDGVVertraege() If DS.uploadDataToDATENSERVERFileDialog(, ".pdf", , "PDF") Then
End If Dim KV As New VERAG_PROG_ALLGEMEIN.cKundenVertraege(dgvVertraege.SelectedRows(0).Cells("kv_id").Value)
End If KV.kv_datenarchivId = DS.da_id
KV.SAVE()
initDGVVertraege()
End If
End If
Case "MailToolStripMenuItem"
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Kundendaten_bearbeiten", "SDL") Then
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "KD_VERTRÄGE", "", "", "", "KV_Mail_" & dgvVertraege.SelectedRows(0).Cells("kv_id").Value, kdNr)
If DS.uploadDataToDATENSERVERFileDialog() Then
Dim KV As New VERAG_PROG_ALLGEMEIN.cKundenVertraege(dgvVertraege.SelectedRows(0).Cells("kv_id").Value)
KV.kv_datenarchivId_mail = DS.da_id
KV.SAVE()
initDGVVertraege()
End If
End If
End Select
End If End If
End Sub End Sub
@@ -2710,20 +2773,45 @@ Public Class usrCntlKundenuebersicht
End If End If
End Sub End Sub
Private Sub ToolStripMenuItem7_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem7.Click Private Sub ToolStripMenuItem7_Click(sender As Object, e As EventArgs) Handles PDFToolStripMenuItem1.Click, MailToolStripMenuItem1.Click
If dgvVertraege.SelectedRows.Count = 1 Then If dgvVertraege.SelectedRows.Count = 1 Then
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Kundendaten_bearbeiten", "SDL") Then
If vbYes = MsgBox("Möchten Sie das PDF wirklich löschen?", vbYesNoCancel) Then
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "KD_VERTRÄGE", "", "", "", "KV_" & dgvVertraege.SelectedRows(0).Cells("kv_id").Value, kdNr) Select Case sender.Name
DS.DELETE_COMPLETE() Case "PDFToolStripMenuItem1"
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Kundendaten_bearbeiten", "SDL") Then
If vbYes = MsgBox("Möchten Sie das PDF wirklich löschen?", vbYesNoCancel) Then
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "KD_VERTRÄGE", "", "", "", "KV_" & dgvVertraege.SelectedRows(0).Cells("kv_id").Value, kdNr)
DS.DELETE_COMPLETE()
Dim KV As New VERAG_PROG_ALLGEMEIN.cKundenVertraege(dgvVertraege.SelectedRows(0).Cells("kv_id").Value)
KV.kv_datenarchivId = Nothing
KV.SAVE()
initDGVVertraege()
End If
End If
Case "MailToolStripMenuItem1"
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Kundendaten_bearbeiten", "SDL") Then
If vbYes = MsgBox("Möchten Sie die Mail wirklich löschen?", vbYesNoCancel) Then
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "KD_VERTRÄGE", "", "", "", "KV_Mail_" & dgvVertraege.SelectedRows(0).Cells("kv_id").Value, kdNr)
DS.DELETE_COMPLETE()
Dim KV As New VERAG_PROG_ALLGEMEIN.cKundenVertraege(dgvVertraege.SelectedRows(0).Cells("kv_id").Value)
KV.kv_datenarchivId_mail = Nothing
KV.SAVE()
initDGVVertraege()
End If
End If
End Select
Dim KV As New VERAG_PROG_ALLGEMEIN.cKundenVertraege(dgvVertraege.SelectedRows(0).Cells("kv_id").Value)
KV.kv_datenarchivId = Nothing
KV.SAVE()
initDGVVertraege()
End If
End If
End If End If
End Sub End Sub
@@ -3538,6 +3626,5 @@ Public Class usrCntlKundenuebersicht
End If End If
End Sub End Sub
End Class End Class