From 395fbae5f4570f26bee1565f5e26801cd717b2b8 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Thu, 19 Feb 2026 10:14:33 +0100 Subject: [PATCH] cbam-checkliste, Kundenuebersicht, etc. --- .../usrcntlCBAM_Checkliste.Designer.vb | 25 ++ .../usrcntlCBAM_Checkliste.resx | 3 + SDL/Formulare/KDFormulare/frmFormulare.vb | 19 +- .../usrCntlKundenuebersicht.Designer.vb | 324 ++++++++++-------- SDL/kunden/usrCntlKundenuebersicht.vb | 145 ++++++-- 5 files changed, 339 insertions(+), 177 deletions(-) diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlCBAM_Checkliste.Designer.vb b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlCBAM_Checkliste.Designer.vb index 3f218863..3d84651a 100644 --- a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlCBAM_Checkliste.Designer.vb +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlCBAM_Checkliste.Designer.vb @@ -22,6 +22,7 @@ Partial Class usrcntlCBAM_Checkliste 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() Me.lbl = New System.Windows.Forms.Label() Me.Label1 = New System.Windows.Forms.Label() Me.btn = New System.Windows.Forms.Button() @@ -39,6 +40,8 @@ Partial Class usrcntlCBAM_Checkliste Me.cboSprache = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.cboFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox() 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() Me.SuspendLayout() ' @@ -275,12 +278,32 @@ Partial Class usrcntlCBAM_Checkliste Me.Label42.TabIndex = 36 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 ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.BackColor = System.Drawing.Color.WhiteSmoke Me.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.Controls.Add(Me.cbxNeukunde) Me.Controls.Add(Me.cboFirma) Me.Controls.Add(Me.Label42) Me.Controls.Add(Me.Label12) @@ -322,4 +345,6 @@ Partial Class usrcntlCBAM_Checkliste Friend WithEvents cboSprache As VERAG_PROG_ALLGEMEIN.MyComboBox Friend WithEvents cboFirma As VERAG_PROG_ALLGEMEIN.MyComboBox 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 diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlCBAM_Checkliste.resx b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlCBAM_Checkliste.resx index 1af7de15..3fd7695d 100644 --- a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlCBAM_Checkliste.resx +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlCBAM_Checkliste.resx @@ -117,4 +117,7 @@ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 17, 17 + \ No newline at end of file diff --git a/SDL/Formulare/KDFormulare/frmFormulare.vb b/SDL/Formulare/KDFormulare/frmFormulare.vb index 140b4a44..33d2af5d 100644 --- a/SDL/Formulare/KDFormulare/frmFormulare.vb +++ b/SDL/Formulare/KDFormulare/frmFormulare.vb @@ -696,8 +696,6 @@ Public Class frmFormulare End If End Sub MyFlowLayoutPanel1.Controls.Add(c) - - c.cboSprache.Items.Clear() c.cboSprache.Items.Add(New MyListItem("Deutsch", "DE")) c.cboSprache.Items.Add(New MyListItem("Englisch", "EN")) @@ -991,6 +989,11 @@ Public Class frmFormulare AddHandler c.DELETE, AddressOf ControlDELETE AddHandler c.MOVE_UP, AddressOf ControlMoveUp AddHandler c.MOVE_DOWN, AddressOf ControlMoveDown + + If param IsNot Nothing Then + c.cbxNeukunde.Checked = param(0) + End If + MyFlowLayoutPanel1.Controls.Add(c) End If Case FormularManagerArten.CBAM_indirekt @@ -1490,17 +1493,20 @@ Public Class frmFormulare addForm(FormularManagerArten.AT_Vollmacht_EV) addForm(FormularManagerArten.Verzollungspreise, {"VZ_EV"}) addForm(FormularManagerArten.VUB_CS) + addForm(FormularManagerArten.CBAM_Checkliste, {1}) Case FormularVorlagenGruppe.NeukundeATFiskal MyFlowLayoutPanel1.Controls.Clear() addForm(FormularManagerArten.AT_Fiskal) addForm(FormularManagerArten.Verzollungspreise, {"VZ_FISKAL"}) addForm(FormularManagerArten.VUB_CS) addForm(FormularManagerArten.AT_InformationsblattFiskalverzollung) + addForm(FormularManagerArten.CBAM_Checkliste, {1}) Case FormularVorlagenGruppe.NeukundeDE MyFlowLayoutPanel1.Controls.Clear() addForm(FormularManagerArten.DE_Vollmacht) addForm(FormularManagerArten.Verzollungspreise) addForm(FormularManagerArten.VUB_AG) + addForm(FormularManagerArten.CBAM_Checkliste, {1}) Case FormularVorlagenGruppe.NeukundeDEFiskal MyFlowLayoutPanel1.Controls.Clear() addForm(FormularManagerArten.DE_Fiskal) @@ -1508,6 +1514,7 @@ Public Class frmFormulare addForm(FormularManagerArten.Verzollungspreise, {"VZ_FISKAL_DE"}) addForm(FormularManagerArten.VUB_AG) addForm(FormularManagerArten.DE_InformationsblattFiskalverzollung) + addForm(FormularManagerArten.CBAM_Checkliste, {1}) Case FormularVorlagenGruppe.NeukundeAT_IMEX MyFlowLayoutPanel1.Controls.Clear() 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(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 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 - 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 Return "" @@ -2438,7 +2447,7 @@ Public Class FormularManagerNEU 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 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 diff --git a/SDL/kunden/usrCntlKundenuebersicht.Designer.vb b/SDL/kunden/usrCntlKundenuebersicht.Designer.vb index 3b105ef7..aefb376d 100644 --- a/SDL/kunden/usrCntlKundenuebersicht.Designer.vb +++ b/SDL/kunden/usrCntlKundenuebersicht.Designer.vb @@ -23,19 +23,19 @@ Partial Class usrCntlKundenuebersicht Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container() - Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle13 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle14 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle15 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle16 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle17 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 DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle12 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle11 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle19 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle20 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle21 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle22 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle24 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.DToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.btnExcel = New System.Windows.Forms.Button() @@ -105,7 +105,6 @@ Partial Class usrCntlKundenuebersicht Me.lblFisk = New System.Windows.Forms.Label() Me.txtAbf_ErsteAbfertigung = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label41 = New System.Windows.Forms.Label() - Me.rtbAbf_Besonderheiten = New System.Windows.Forms.RichTextBox() Me.lblBesonderheiten = New System.Windows.Forms.Label() Me.Panel4 = New System.Windows.Forms.Panel() Me.pbCreditsafeChanges = New System.Windows.Forms.PictureBox() @@ -133,10 +132,12 @@ Partial Class usrCntlKundenuebersicht Me.Label18 = New System.Windows.Forms.Label() Me.txtOPNichtFaellig = New VERAG_PROG_ALLGEMEIN.MyTextBox() 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.Label24 = New System.Windows.Forms.Label() - Me.txtKdSicherheiten = New VERAG_PROG_ALLGEMEIN.MyTextBox() 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.Label22 = New System.Windows.Forms.Label() Me.Panel10 = New System.Windows.Forms.Panel() @@ -144,13 +145,12 @@ Partial Class usrCntlKundenuebersicht Me.txtRisiko = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtOVK = New VERAG_PROG_ALLGEMEIN.MyTextBox() 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.txtZahlungsziel = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtVeranlKd = New System.Windows.Forms.TextBox() Me.lblVeranlKd = New System.Windows.Forms.Label() Me.txtUmsatzJahr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.rtbAbf_Besonderheiten = New System.Windows.Forms.RichTextBox() Me.lblInsolvent = New System.Windows.Forms.Label() Me.grpAdresse = New System.Windows.Forms.GroupBox() Me.tbKontakt = New System.Windows.Forms.TabControl() @@ -270,8 +270,12 @@ Partial Class usrCntlKundenuebersicht Me.ToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem() Me.ToolStripMenuItem4 = 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.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.btnReloadOP = 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.AllowUserToOrderColumns = True 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)) - Me.dgvOfferteDetailsUebersicht.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1 + DataGridViewCellStyle13.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvOfferteDetailsUebersicht.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle13 Me.dgvOfferteDetailsUebersicht.BackgroundColor = System.Drawing.Color.White Me.dgvOfferteDetailsUebersicht.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D Me.dgvOfferteDetailsUebersicht.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize @@ -463,8 +467,8 @@ Partial Class usrCntlKundenuebersicht Me.dgvOffertenSperrliste.AllowUserToDeleteRows = False Me.dgvOffertenSperrliste.AllowUserToOrderColumns = True 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)) - Me.dgvOffertenSperrliste.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2 + DataGridViewCellStyle14.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvOffertenSperrliste.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle14 Me.dgvOffertenSperrliste.BackgroundColor = System.Drawing.Color.White Me.dgvOffertenSperrliste.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D Me.dgvOffertenSperrliste.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize @@ -474,10 +478,10 @@ Partial Class usrCntlKundenuebersicht Me.dgvOffertenSperrliste.Name = "dgvOffertenSperrliste" Me.dgvOffertenSperrliste.ReadOnly = True 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)) - DataGridViewCellStyle3.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 - Me.dgvOffertenSperrliste.RowsDefaultCellStyle = DataGridViewCellStyle3 + DataGridViewCellStyle15.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle15.SelectionBackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(240, Byte), Integer), CType(CType(240, Byte), Integer)) + DataGridViewCellStyle15.SelectionForeColor = System.Drawing.Color.Black + Me.dgvOffertenSperrliste.RowsDefaultCellStyle = DataGridViewCellStyle15 Me.dgvOffertenSperrliste.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect Me.dgvOffertenSperrliste.Size = New System.Drawing.Size(173, 257) Me.dgvOffertenSperrliste.TabIndex = 0 @@ -615,8 +619,8 @@ Partial Class usrCntlKundenuebersicht Me.dgvOffenePosten.AllowUserToAddRows = False Me.dgvOffenePosten.AllowUserToDeleteRows = 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)) - Me.dgvOffenePosten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle4 + DataGridViewCellStyle16.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvOffenePosten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle16 Me.dgvOffenePosten.BackgroundColor = System.Drawing.Color.White Me.dgvOffenePosten.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvOffenePosten.Dock = System.Windows.Forms.DockStyle.Fill @@ -696,8 +700,8 @@ Partial Class usrCntlKundenuebersicht Me.dgvUmsatzbericht.AllowUserToDeleteRows = False Me.dgvUmsatzbericht.AllowUserToOrderColumns = True 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)) - Me.dgvUmsatzbericht.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle5 + DataGridViewCellStyle17.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvUmsatzbericht.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle17 Me.dgvUmsatzbericht.BackgroundColor = System.Drawing.Color.White Me.dgvUmsatzbericht.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvUmsatzbericht.Dock = System.Windows.Forms.DockStyle.Fill @@ -760,8 +764,8 @@ Partial Class usrCntlKundenuebersicht Me.dgvAnhaenge.AllowUserToAddRows = False Me.dgvAnhaenge.AllowUserToDeleteRows = 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)) - Me.dgvAnhaenge.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle6 + DataGridViewCellStyle18.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + 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.BackgroundColor = System.Drawing.Color.White Me.dgvAnhaenge.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize @@ -1367,22 +1371,6 @@ Partial Class usrCntlKundenuebersicht Me.Label41.Text = "Erste Abfertigung:" 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 ' Me.lblBesonderheiten.AutoSize = True @@ -1850,6 +1838,44 @@ Partial Class usrCntlKundenuebersicht Me.Panel7.Size = New System.Drawing.Size(253, 132) 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 ' Me.txtProforma._DateTimeOnly = False @@ -1879,16 +1905,16 @@ Partial Class usrCntlKundenuebersicht Me.txtProforma.TabIndex = 53 Me.txtProforma.TextAlign = System.Windows.Forms.HorizontalAlignment.Right ' - 'Label24 + 'Label23 ' - Me.Label24.AutoSize = True - Me.Label24.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.Label24.Location = New System.Drawing.Point(8, 46) - Me.Label24.Name = "Label24" - Me.Label24.Size = New System.Drawing.Size(120, 13) - Me.Label24.TabIndex = 52 - Me.Label24.Text = "- Proforma-Rechnungen" + Me.Label23.AutoSize = True + Me.Label23.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.Label23.Location = New System.Drawing.Point(8, 26) + Me.Label23.Name = "Label23" + Me.Label23.Size = New System.Drawing.Size(113, 13) + Me.Label23.TabIndex = 50 + Me.Label23.Text = "- offene Vorauskassen" ' 'txtKdSicherheiten ' @@ -1919,16 +1945,16 @@ Partial Class usrCntlKundenuebersicht Me.txtKdSicherheiten.TabIndex = 51 Me.txtKdSicherheiten.TextAlign = System.Windows.Forms.HorizontalAlignment.Right ' - 'Label23 + 'Label24 ' - Me.Label23.AutoSize = True - Me.Label23.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.Label23.Location = New System.Drawing.Point(8, 26) - Me.Label23.Name = "Label23" - Me.Label23.Size = New System.Drawing.Size(113, 13) - Me.Label23.TabIndex = 50 - Me.Label23.Text = "- offene Vorauskassen" + Me.Label24.AutoSize = True + Me.Label24.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.Label24.Location = New System.Drawing.Point(8, 46) + Me.Label24.Name = "Label24" + Me.Label24.Size = New System.Drawing.Size(120, 13) + Me.Label24.TabIndex = 52 + Me.Label24.Text = "- Proforma-Rechnungen" ' 'txtOffenePosten2 ' @@ -2056,44 +2082,6 @@ Partial Class usrCntlKundenuebersicht Me.Label19.TabIndex = 43 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 ' Me.lblVorkasse.Location = New System.Drawing.Point(492, 230) @@ -2180,6 +2168,22 @@ Partial Class usrCntlKundenuebersicht Me.txtUmsatzJahr.TabIndex = 32 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 ' Me.lblInsolvent.BackColor = System.Drawing.Color.Red @@ -2741,8 +2745,8 @@ Partial Class usrCntlKundenuebersicht Me.dgvVollmachten.AllowUserToDeleteRows = False Me.dgvVollmachten.AllowUserToOrderColumns = True 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)) - Me.dgvVollmachten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle7 + DataGridViewCellStyle19.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvVollmachten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle19 Me.dgvVollmachten.BackgroundColor = System.Drawing.Color.White Me.dgvVollmachten.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvVollmachten.Dock = System.Windows.Forms.DockStyle.Fill @@ -2795,8 +2799,8 @@ Partial Class usrCntlKundenuebersicht Me.dgvVertraege.AllowUserToDeleteRows = False Me.dgvVertraege.AllowUserToOrderColumns = True 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)) - Me.dgvVertraege.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle8 + DataGridViewCellStyle20.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvVertraege.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle20 Me.dgvVertraege.BackgroundColor = System.Drawing.Color.White Me.dgvVertraege.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvVertraege.Dock = System.Windows.Forms.DockStyle.Fill @@ -2996,8 +3000,8 @@ Partial Class usrCntlKundenuebersicht Me.dgvGestGarantie.AllowUserToDeleteRows = False Me.dgvGestGarantie.AllowUserToOrderColumns = True 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)) - Me.dgvGestGarantie.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle9 + DataGridViewCellStyle21.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvGestGarantie.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle21 Me.dgvGestGarantie.BackgroundColor = System.Drawing.Color.White Me.dgvGestGarantie.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvGestGarantie.Dock = System.Windows.Forms.DockStyle.Fill @@ -3487,24 +3491,24 @@ Partial Class usrCntlKundenuebersicht Me.dgvAufschub.AllowUserToResizeColumns = False Me.dgvAufschub.AllowUserToResizeRows = False Me.dgvAufschub.BackgroundColor = System.Drawing.Color.White - DataGridViewCellStyle10.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle10.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)) - DataGridViewCellStyle10.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle10.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle10.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle10.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.dgvAufschub.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle10 + DataGridViewCellStyle22.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle22.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle22.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle22.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle22.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle22.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle22.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvAufschub.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle22 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}) - DataGridViewCellStyle12.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle12.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)) - DataGridViewCellStyle12.ForeColor = System.Drawing.SystemColors.ControlText - DataGridViewCellStyle12.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle12.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle12.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] - Me.dgvAufschub.DefaultCellStyle = DataGridViewCellStyle12 + DataGridViewCellStyle24.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle24.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle24.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle24.ForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle24.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle24.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle24.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.dgvAufschub.DefaultCellStyle = DataGridViewCellStyle24 Me.dgvAufschub.Location = New System.Drawing.Point(13, 61) Me.dgvAufschub.MultiSelect = False Me.dgvAufschub.Name = "dgvAufschub" @@ -3531,8 +3535,8 @@ Partial Class usrCntlKundenuebersicht ' 'HZA ' - DataGridViewCellStyle11.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight - Me.HZA.DefaultCellStyle = DataGridViewCellStyle11 + DataGridViewCellStyle23.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight + Me.HZA.DefaultCellStyle = DataGridViewCellStyle23 Me.HZA.HeaderText = "HZA" Me.HZA.Name = "HZA" Me.HZA.ReadOnly = True @@ -3645,48 +3649,78 @@ Partial Class usrCntlKundenuebersicht ' '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.Size = New System.Drawing.Size(156, 136) + Me.ContextMenuStrip4.Size = New System.Drawing.Size(159, 136) ' 'ToolStripMenuItem1 ' Me.ToolStripMenuItem1.Image = Global.SDL.My.Resources.Resources.del 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" ' 'ToolStripMenuItem4 ' Me.ToolStripMenuItem4.Image = Global.SDL.My.Resources.Resources.stift 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" ' '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.Size = New System.Drawing.Size(155, 22) - Me.ToolStripMenuItem5.Text = "Hochladen" + Me.ToolStripMenuItem5.Size = New System.Drawing.Size(158, 22) + 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 ' Me.ToolStripMenuItem6.Image = Global.SDL.My.Resources.Resources.scanner1 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" ' - 'ToolStripMenuItem7 - ' - Me.ToolStripMenuItem7.Name = "ToolStripMenuItem7" - Me.ToolStripMenuItem7.Size = New System.Drawing.Size(155, 22) - Me.ToolStripMenuItem7.Text = "PDF löschen" - ' '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" ' 'btnReloadOP @@ -4089,4 +4123,8 @@ Partial Class usrCntlKundenuebersicht Friend WithEvents txtRisiko As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents txtProforma As VERAG_PROG_ALLGEMEIN.MyTextBox 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 diff --git a/SDL/kunden/usrCntlKundenuebersicht.vb b/SDL/kunden/usrCntlKundenuebersicht.vb index 12dd5571..a057e619 100644 --- a/SDL/kunden/usrCntlKundenuebersicht.vb +++ b/SDL/kunden/usrCntlKundenuebersicht.vb @@ -1061,7 +1061,6 @@ Public Class usrCntlKundenuebersicht With dgvVertraege .Columns.Clear() - .DataSource = VERAG_PROG_ALLGEMEIN.cKundenVertraege.LOAD_LIST(kdNr) If .Columns.Count = 0 Then Exit Sub @@ -1069,6 +1068,7 @@ Public Class usrCntlKundenuebersicht .Columns("kv_KundenNr").Visible = False .Columns("kv_vertragArtId").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").Width = 65 .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.DefaultCellStyle.Tag = "PDF anzeigen" .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 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 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 (Not CBool(r.Cells("kv_gueltig").Value)) Then r.DefaultCellStyle.ForeColor = Color.Red @@ -1745,14 +1758,41 @@ Public Class usrCntlKundenuebersicht End Sub 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) - If DS.hasITEMS Then - For Each i In DS.DATA_LIST.LIST - Process.Start(i.coll_pfad) - Next + + Dim tmprowindex As Integer = e.RowIndex + + If dgvVertraege.Columns(e.ColumnIndex).Name = "clmnPDF" Then + + 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 + 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 + + + '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 @@ -2672,17 +2712,40 @@ Public Class usrCntlKundenuebersicht End If 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 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) - If DS.uploadDataToDATENSERVERFileDialog(, ".pdf", , "PDF") Then - Dim KV As New VERAG_PROG_ALLGEMEIN.cKundenVertraege(dgvVertraege.SelectedRows(0).Cells("kv_id").Value) - KV.kv_datenarchivId = DS.da_id - KV.SAVE() - initDGVVertraege() - End If - End If + + Select Case sender.Name + Case "PDFToolStripMenuItem" + + 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) + If DS.uploadDataToDATENSERVERFileDialog(, ".pdf", , "PDF") Then + Dim KV As New VERAG_PROG_ALLGEMEIN.cKundenVertraege(dgvVertraege.SelectedRows(0).Cells("kv_id").Value) + 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 Sub @@ -2710,20 +2773,45 @@ Public Class usrCntlKundenuebersicht End If 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 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() + Select Case sender.Name + 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 Sub @@ -3538,6 +3626,5 @@ Public Class usrCntlKundenuebersicht End If End Sub - End Class