From da8cf8854af7b922693781f616db46436c28a5a1 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Wed, 17 Dec 2025 17:16:16 +0100 Subject: [PATCH] cFakt, Kundenblatt, etc. --- SDL/Fakturierung/cFakturierung.vb | 3 +- SDL/kunden/frmKundenblatt.vb | 2 + .../usrcntlKundeBearbeitenFull.Designer.vb | 602 ++++++++++-------- SDL/kunden/usrcntlKundeBearbeitenFull.vb | 7 +- SDL/mdm/usrCntlMDMAuswertungen.Designer.vb | 166 ++++- SDL/mdm/usrCntlMDMAuswertungen.resx | 8 + SDL/mdm/usrCntlMDMAuswertungen.vb | 40 ++ .../Classes/cKundenErweitert.vb | 4 + 8 files changed, 535 insertions(+), 297 deletions(-) diff --git a/SDL/Fakturierung/cFakturierung.vb b/SDL/Fakturierung/cFakturierung.vb index b43a5d95..bf5f7e7a 100644 --- a/SDL/Fakturierung/cFakturierung.vb +++ b/SDL/Fakturierung/cFakturierung.vb @@ -2353,8 +2353,9 @@ Public Class cFakturierung Case Else rpt.lblLeistungUeberschrift.Text = "RENR" + rpt.lblLeistungUeberschrift.Text = "RE Datum" rpt.lblAnzahlUeberschrift.Text = "VZ Tage" - rpt.lblSteuerpflichtigUeberschrift.Text = "Zahlungsbetrag" + rpt.lblSteuerpflichtigUeberschrift.Text = "RE Betrag" rpt.lblSteuerfreiUeberschrift.Text = "Verzugszinsen" 'rpt.lbl_onlyZR_ZinsenUeberschrift.Text = "Zinsen p.a." End Select diff --git a/SDL/kunden/frmKundenblatt.vb b/SDL/kunden/frmKundenblatt.vb index 2915485d..1dd0e546 100644 --- a/SDL/kunden/frmKundenblatt.vb +++ b/SDL/kunden/frmKundenblatt.vb @@ -219,6 +219,8 @@ Public Class frmKundenblatt Dim path = DS.GET_TOP1_PATH 'cDATENSERVER.getTOP1Path("GRAFIK", "FIRMENLOGOS", kdNr) If path <> "" Then picLogo.ImageLocation = path + Else + picLogo.ImageLocation = Nothing End If Catch ex As Exception diff --git a/SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb b/SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb index 12bb686c..7cbe19de 100644 --- a/SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb +++ b/SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb @@ -23,34 +23,34 @@ Partial Class usrcntlKundeBearbeitenFull 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 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 DataGridViewCellStyle11 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle12 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 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 DataGridViewCellStyle23 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle24 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle25 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle26 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle27 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle28 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle29 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle30 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle31 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle32 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle33 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle34 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle35 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle36 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle37 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle38 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle39 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle40 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle41 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle42 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle43 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle44 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle45 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle46 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle47 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle48 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle49 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle50 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle51 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle52 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle53 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle54 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle55 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle56 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Me.tbcntrDetails = New System.Windows.Forms.TabControl() Me.tbAbfertigung = New System.Windows.Forms.TabPage() Me.cbxVerzolltBeiExport = New System.Windows.Forms.CheckBox() @@ -285,6 +285,11 @@ Partial Class usrcntlKundeBearbeitenFull Me.dgvIDS_Standard = New System.Windows.Forms.DataGridView() Me.Kunden = New System.Windows.Forms.TabPage() Me.dgvIDS_Rabatte = New System.Windows.Forms.DataGridView() + Me.TabPage2 = New System.Windows.Forms.TabPage() + Me.txtATEZ_GreenpulseID = New System.Windows.Forms.TextBox() + Me.Label118 = New System.Windows.Forms.Label() + Me.txtATEZ_LogicustID = New System.Windows.Forms.TextBox() + Me.Label119 = New System.Windows.Forms.Label() Me.cbxCSInsolvent = New System.Windows.Forms.CheckBox() Me.cbxCS_Added = New System.Windows.Forms.CheckBox() Me.Label113 = New System.Windows.Forms.Label() @@ -428,11 +433,10 @@ Partial Class usrcntlKundeBearbeitenFull Me.cboFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.cboAuswahl = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.TabPage2 = New System.Windows.Forms.TabPage() - Me.txtATEZ_GreenpulseID = New System.Windows.Forms.TextBox() - Me.Label118 = New System.Windows.Forms.Label() - Me.txtATEZ_LogicustID = New System.Windows.Forms.TextBox() - Me.Label119 = New System.Windows.Forms.Label() + Me.Label120 = New System.Windows.Forms.Label() + Me.txtSEG_vom = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtSEG_Summe = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label121 = New System.Windows.Forms.Label() Me.tbcntrDetails.SuspendLayout() Me.tbAbfertigung.SuspendLayout() Me.tbcntrAbf.SuspendLayout() @@ -465,6 +469,7 @@ Partial Class usrcntlKundeBearbeitenFull CType(Me.dgvIDS_Standard, System.ComponentModel.ISupportInitialize).BeginInit() Me.Kunden.SuspendLayout() CType(Me.dgvIDS_Rabatte, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TabPage2.SuspendLayout() CType(Me.dgvSonst_IDSKunden, System.ComponentModel.ISupportInitialize).BeginInit() Me.tbSchnittstellen.SuspendLayout() CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).BeginInit() @@ -479,7 +484,6 @@ Partial Class usrcntlKundeBearbeitenFull Me.TabPage11.SuspendLayout() Me.pnlNeukunde.SuspendLayout() Me.cnsBankverbindungen.SuspendLayout() - Me.TabPage2.SuspendLayout() Me.SuspendLayout() ' 'tbcntrDetails @@ -2282,6 +2286,10 @@ Partial Class usrcntlKundeBearbeitenFull ' 'tbVersicherung ' + Me.tbVersicherung.Controls.Add(Me.Label121) + Me.tbVersicherung.Controls.Add(Me.Label120) + Me.tbVersicherung.Controls.Add(Me.txtSEG_vom) + Me.tbVersicherung.Controls.Add(Me.txtSEG_Summe) Me.tbVersicherung.Controls.Add(Me.cbxBlanko) Me.tbVersicherung.Controls.Add(Me.Label105) Me.tbVersicherung.Controls.Add(Me.Label106) @@ -2396,7 +2404,7 @@ Partial Class usrcntlKundeBearbeitenFull 'Label81 ' Me.Label81.AutoSize = True - Me.Label81.Location = New System.Drawing.Point(419, 168) + Me.Label81.Location = New System.Drawing.Point(419, 181) Me.Label81.Name = "Label81" Me.Label81.Size = New System.Drawing.Size(98, 13) Me.Label81.TabIndex = 45 @@ -2405,7 +2413,7 @@ Partial Class usrcntlKundeBearbeitenFull 'Label82 ' Me.Label82.AutoSize = True - Me.Label82.Location = New System.Drawing.Point(311, 168) + Me.Label82.Location = New System.Drawing.Point(311, 181) Me.Label82.Name = "Label82" Me.Label82.Size = New System.Drawing.Size(24, 13) Me.Label82.TabIndex = 43 @@ -2414,7 +2422,7 @@ Partial Class usrcntlKundeBearbeitenFull 'cbxInkassoUebergeben ' Me.cbxInkassoUebergeben.AutoSize = True - Me.cbxInkassoUebergeben.Location = New System.Drawing.Point(159, 167) + Me.cbxInkassoUebergeben.Location = New System.Drawing.Point(159, 180) Me.cbxInkassoUebergeben.Name = "cbxInkassoUebergeben" Me.cbxInkassoUebergeben.Size = New System.Drawing.Size(156, 17) Me.cbxInkassoUebergeben.TabIndex = 42 @@ -2434,7 +2442,7 @@ Partial Class usrcntlKundeBearbeitenFull 'Label35 ' Me.Label35.AutoSize = True - Me.Label35.Location = New System.Drawing.Point(419, 142) + Me.Label35.Location = New System.Drawing.Point(419, 155) Me.Label35.Name = "Label35" Me.Label35.Size = New System.Drawing.Size(22, 13) Me.Label35.TabIndex = 22 @@ -2443,7 +2451,7 @@ Partial Class usrcntlKundeBearbeitenFull 'Label27 ' Me.Label27.AutoSize = True - Me.Label27.Location = New System.Drawing.Point(419, 116) + Me.Label27.Location = New System.Drawing.Point(419, 129) Me.Label27.Name = "Label27" Me.Label27.Size = New System.Drawing.Size(98, 13) Me.Label27.TabIndex = 17 @@ -2452,7 +2460,7 @@ Partial Class usrcntlKundeBearbeitenFull 'Label24 ' Me.Label24.AutoSize = True - Me.Label24.Location = New System.Drawing.Point(419, 89) + Me.Label24.Location = New System.Drawing.Point(419, 102) Me.Label24.Name = "Label24" Me.Label24.Size = New System.Drawing.Size(55, 13) Me.Label24.TabIndex = 12 @@ -2462,7 +2470,7 @@ Partial Class usrcntlKundeBearbeitenFull 'cbxNichtVersicherbar ' Me.cbxNichtVersicherbar.AutoSize = True - Me.cbxNichtVersicherbar.Location = New System.Drawing.Point(159, 39) + Me.cbxNichtVersicherbar.Location = New System.Drawing.Point(159, 30) Me.cbxNichtVersicherbar.Name = "cbxNichtVersicherbar" Me.cbxNichtVersicherbar.Size = New System.Drawing.Size(142, 17) Me.cbxNichtVersicherbar.TabIndex = 2 @@ -2472,7 +2480,7 @@ Partial Class usrcntlKundeBearbeitenFull 'Label17 ' Me.Label17.AutoSize = True - Me.Label17.Location = New System.Drawing.Point(419, 65) + Me.Label17.Location = New System.Drawing.Point(419, 54) Me.Label17.Name = "Label17" Me.Label17.Size = New System.Drawing.Size(86, 13) Me.Label17.TabIndex = 7 @@ -2481,7 +2489,7 @@ Partial Class usrcntlKundeBearbeitenFull 'Label8 ' Me.Label8.AutoSize = True - Me.Label8.Location = New System.Drawing.Point(311, 142) + Me.Label8.Location = New System.Drawing.Point(311, 155) Me.Label8.Name = "Label8" Me.Label8.Size = New System.Drawing.Size(24, 13) Me.Label8.TabIndex = 20 @@ -2490,7 +2498,7 @@ Partial Class usrcntlKundeBearbeitenFull 'cbxAnerkVersFall ' Me.cbxAnerkVersFall.AutoSize = True - Me.cbxAnerkVersFall.Location = New System.Drawing.Point(159, 141) + Me.cbxAnerkVersFall.Location = New System.Drawing.Point(159, 154) Me.cbxAnerkVersFall.Name = "cbxAnerkVersFall" Me.cbxAnerkVersFall.Size = New System.Drawing.Size(130, 17) Me.cbxAnerkVersFall.TabIndex = 19 @@ -2500,7 +2508,7 @@ Partial Class usrcntlKundeBearbeitenFull 'Label2 ' Me.Label2.AutoSize = True - Me.Label2.Location = New System.Drawing.Point(311, 116) + Me.Label2.Location = New System.Drawing.Point(311, 129) Me.Label2.Name = "Label2" Me.Label2.Size = New System.Drawing.Size(24, 13) Me.Label2.TabIndex = 15 @@ -2509,7 +2517,7 @@ Partial Class usrcntlKundeBearbeitenFull 'cbxVersicherungUebergeben ' Me.cbxVersicherungUebergeben.AutoSize = True - Me.cbxVersicherungUebergeben.Location = New System.Drawing.Point(159, 115) + Me.cbxVersicherungUebergeben.Location = New System.Drawing.Point(159, 128) Me.cbxVersicherungUebergeben.Name = "cbxVersicherungUebergeben" Me.cbxVersicherungUebergeben.Size = New System.Drawing.Size(142, 17) Me.cbxVersicherungUebergeben.TabIndex = 14 @@ -2519,7 +2527,7 @@ Partial Class usrcntlKundeBearbeitenFull 'Label6 ' Me.Label6.AutoSize = True - Me.Label6.Location = New System.Drawing.Point(305, 89) + Me.Label6.Location = New System.Drawing.Point(305, 102) Me.Label6.Name = "Label6" Me.Label6.Size = New System.Drawing.Size(30, 13) Me.Label6.TabIndex = 10 @@ -2528,7 +2536,7 @@ Partial Class usrcntlKundeBearbeitenFull 'cbxDeckungsstopp ' Me.cbxDeckungsstopp.AutoSize = True - Me.cbxDeckungsstopp.Location = New System.Drawing.Point(159, 88) + Me.cbxDeckungsstopp.Location = New System.Drawing.Point(159, 101) Me.cbxDeckungsstopp.Name = "cbxDeckungsstopp" Me.cbxDeckungsstopp.Size = New System.Drawing.Size(101, 17) Me.cbxDeckungsstopp.TabIndex = 9 @@ -2573,7 +2581,7 @@ Partial Class usrcntlKundeBearbeitenFull 'Label55 ' Me.Label55.AutoSize = True - Me.Label55.Location = New System.Drawing.Point(305, 65) + Me.Label55.Location = New System.Drawing.Point(305, 54) Me.Label55.Name = "Label55" Me.Label55.Size = New System.Drawing.Size(30, 13) Me.Label55.TabIndex = 5 @@ -2622,7 +2630,7 @@ Partial Class usrcntlKundeBearbeitenFull ' Me.Label54.AutoSize = True Me.Label54.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label54.Location = New System.Drawing.Point(7, 65) + Me.Label54.Location = New System.Drawing.Point(6, 58) Me.Label54.Name = "Label54" Me.Label54.Size = New System.Drawing.Size(110, 13) Me.Label54.TabIndex = 3 @@ -2762,7 +2770,7 @@ Partial Class usrcntlKundeBearbeitenFull Me.txtInkasso_GemeldeterBetrag._Waehrung = True Me.txtInkasso_GemeldeterBetrag._WaehrungZeichen = True Me.txtInkasso_GemeldeterBetrag.ForeColor = System.Drawing.Color.Red - Me.txtInkasso_GemeldeterBetrag.Location = New System.Drawing.Point(523, 165) + Me.txtInkasso_GemeldeterBetrag.Location = New System.Drawing.Point(523, 178) Me.txtInkasso_GemeldeterBetrag.MaxLength = 10 Me.txtInkasso_GemeldeterBetrag.MaxLineLength = -1 Me.txtInkasso_GemeldeterBetrag.MaxLines_Warning = "" @@ -2788,7 +2796,7 @@ Partial Class usrcntlKundeBearbeitenFull Me.txtInkassoUebergebenAm._WaehrungZeichen = True Me.txtInkassoUebergebenAm.Enabled = False Me.txtInkassoUebergebenAm.ForeColor = System.Drawing.Color.Red - Me.txtInkassoUebergebenAm.Location = New System.Drawing.Point(341, 165) + Me.txtInkassoUebergebenAm.Location = New System.Drawing.Point(341, 178) Me.txtInkassoUebergebenAm.MaxLength = 10 Me.txtInkassoUebergebenAm.MaxLineLength = -1 Me.txtInkassoUebergebenAm.MaxLines_Warning = "" @@ -2836,7 +2844,7 @@ Partial Class usrcntlKundeBearbeitenFull Me.txtAnerkVersFallAb._Waehrung = False Me.txtAnerkVersFallAb._WaehrungZeichen = True Me.txtAnerkVersFallAb.ForeColor = System.Drawing.Color.Red - Me.txtAnerkVersFallAb.Location = New System.Drawing.Point(449, 139) + Me.txtAnerkVersFallAb.Location = New System.Drawing.Point(449, 152) Me.txtAnerkVersFallAb.MaxLength = 10 Me.txtAnerkVersFallAb.MaxLineLength = -1 Me.txtAnerkVersFallAb.MaxLines_Warning = "" @@ -2861,7 +2869,7 @@ Partial Class usrcntlKundeBearbeitenFull Me.txtVersicherung_GemeldeterBetrag._Waehrung = True Me.txtVersicherung_GemeldeterBetrag._WaehrungZeichen = True Me.txtVersicherung_GemeldeterBetrag.ForeColor = System.Drawing.Color.Red - Me.txtVersicherung_GemeldeterBetrag.Location = New System.Drawing.Point(523, 113) + Me.txtVersicherung_GemeldeterBetrag.Location = New System.Drawing.Point(523, 126) Me.txtVersicherung_GemeldeterBetrag.MaxLength = 10 Me.txtVersicherung_GemeldeterBetrag.MaxLineLength = -1 Me.txtVersicherung_GemeldeterBetrag.MaxLines_Warning = "" @@ -2886,7 +2894,7 @@ Partial Class usrcntlKundeBearbeitenFull Me.txtVersUebergebenOPSaldo._Waehrung = True Me.txtVersUebergebenOPSaldo._WaehrungZeichen = True Me.txtVersUebergebenOPSaldo.ForeColor = System.Drawing.Color.Red - Me.txtVersUebergebenOPSaldo.Location = New System.Drawing.Point(480, 86) + Me.txtVersUebergebenOPSaldo.Location = New System.Drawing.Point(480, 99) Me.txtVersUebergebenOPSaldo.MaxLength = 10 Me.txtVersUebergebenOPSaldo.MaxLineLength = -1 Me.txtVersUebergebenOPSaldo.MaxLines_Warning = "" @@ -2912,7 +2920,7 @@ Partial Class usrcntlKundeBearbeitenFull Me.txtVersicherungDeckungsquote._Waehrung = False Me.txtVersicherungDeckungsquote._WaehrungZeichen = True Me.txtVersicherungDeckungsquote.ForeColor = System.Drawing.Color.Red - Me.txtVersicherungDeckungsquote.Location = New System.Drawing.Point(523, 62) + Me.txtVersicherungDeckungsquote.Location = New System.Drawing.Point(523, 51) Me.txtVersicherungDeckungsquote.MaxLength = 10 Me.txtVersicherungDeckungsquote.MaxLineLength = -1 Me.txtVersicherungDeckungsquote.MaxLines_Warning = "" @@ -2938,7 +2946,7 @@ Partial Class usrcntlKundeBearbeitenFull Me.txtAnerkVersFallAm._WaehrungZeichen = True Me.txtAnerkVersFallAm.Enabled = False Me.txtAnerkVersFallAm.ForeColor = System.Drawing.Color.Red - Me.txtAnerkVersFallAm.Location = New System.Drawing.Point(341, 139) + Me.txtAnerkVersFallAm.Location = New System.Drawing.Point(341, 152) Me.txtAnerkVersFallAm.MaxLength = 10 Me.txtAnerkVersFallAm.MaxLineLength = -1 Me.txtAnerkVersFallAm.MaxLines_Warning = "" @@ -2964,7 +2972,7 @@ Partial Class usrcntlKundeBearbeitenFull Me.txtVersicherungUebergebenAm._WaehrungZeichen = True Me.txtVersicherungUebergebenAm.Enabled = False Me.txtVersicherungUebergebenAm.ForeColor = System.Drawing.Color.Red - Me.txtVersicherungUebergebenAm.Location = New System.Drawing.Point(341, 113) + Me.txtVersicherungUebergebenAm.Location = New System.Drawing.Point(341, 126) Me.txtVersicherungUebergebenAm.MaxLength = 10 Me.txtVersicherungUebergebenAm.MaxLineLength = -1 Me.txtVersicherungUebergebenAm.MaxLines_Warning = "" @@ -2990,7 +2998,7 @@ Partial Class usrcntlKundeBearbeitenFull Me.txtDeckungsstoppDatum._WaehrungZeichen = True Me.txtDeckungsstoppDatum.Enabled = False Me.txtDeckungsstoppDatum.ForeColor = System.Drawing.Color.Red - Me.txtDeckungsstoppDatum.Location = New System.Drawing.Point(341, 86) + Me.txtDeckungsstoppDatum.Location = New System.Drawing.Point(341, 99) Me.txtDeckungsstoppDatum.MaxLength = 10 Me.txtDeckungsstoppDatum.MaxLineLength = -1 Me.txtDeckungsstoppDatum.MaxLines_Warning = "" @@ -3089,7 +3097,7 @@ Partial Class usrcntlKundeBearbeitenFull Me.txtVers_VersicherungssummeVon._Waehrung = False Me.txtVers_VersicherungssummeVon._WaehrungZeichen = True Me.txtVers_VersicherungssummeVon.ForeColor = System.Drawing.Color.Red - Me.txtVers_VersicherungssummeVon.Location = New System.Drawing.Point(341, 62) + Me.txtVers_VersicherungssummeVon.Location = New System.Drawing.Point(341, 51) Me.txtVers_VersicherungssummeVon.MaxLength = 10 Me.txtVers_VersicherungssummeVon.MaxLineLength = -1 Me.txtVers_VersicherungssummeVon.MaxLines_Warning = "" @@ -3187,7 +3195,7 @@ Partial Class usrcntlKundeBearbeitenFull Me.txtVers_Versicherungssumme._Waehrung = True Me.txtVers_Versicherungssumme._WaehrungZeichen = True Me.txtVers_Versicherungssumme.ForeColor = System.Drawing.Color.Red - Me.txtVers_Versicherungssumme.Location = New System.Drawing.Point(159, 62) + Me.txtVers_Versicherungssumme.Location = New System.Drawing.Point(159, 51) Me.txtVers_Versicherungssumme.MaxLineLength = -1 Me.txtVers_Versicherungssumme.MaxLines_Warning = "" Me.txtVers_Versicherungssumme.MaxLines_Warning_Label = Nothing @@ -3271,8 +3279,8 @@ Partial Class usrcntlKundeBearbeitenFull Me.dgvUmsatzbericht.AllowUserToDeleteRows = False Me.dgvUmsatzbericht.AllowUserToOrderColumns = True Me.dgvUmsatzbericht.AllowUserToResizeRows = False - DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.dgvUmsatzbericht.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1 + DataGridViewCellStyle29.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvUmsatzbericht.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle29 Me.dgvUmsatzbericht.BackgroundColor = System.Drawing.Color.White Me.dgvUmsatzbericht.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvUmsatzbericht.Location = New System.Drawing.Point(6, 25) @@ -3371,8 +3379,8 @@ Partial Class usrcntlKundeBearbeitenFull Me.dgvOffenePosten.AllowUserToDeleteRows = False Me.dgvOffenePosten.AllowUserToOrderColumns = True Me.dgvOffenePosten.AllowUserToResizeRows = False - DataGridViewCellStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.dgvOffenePosten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2 + DataGridViewCellStyle30.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvOffenePosten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle30 Me.dgvOffenePosten.BackgroundColor = System.Drawing.Color.White Me.dgvOffenePosten.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvOffenePosten.Location = New System.Drawing.Point(6, 38) @@ -3547,40 +3555,40 @@ Partial Class usrcntlKundeBearbeitenFull Me.dgvKreditkarten.AllowUserToDeleteRows = False Me.dgvKreditkarten.AllowUserToOrderColumns = True Me.dgvKreditkarten.AllowUserToResizeRows = False - DataGridViewCellStyle3.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.dgvKreditkarten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3 + DataGridViewCellStyle31.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvKreditkarten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle31 Me.dgvKreditkarten.BackgroundColor = System.Drawing.Color.White - DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle4.BackColor = System.Drawing.SystemColors.Control - DataGridViewCellStyle4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle4.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle4.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle4.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.dgvKreditkarten.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle4 + DataGridViewCellStyle32.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle32.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle32.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle32.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle32.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle32.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle32.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvKreditkarten.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle32 Me.dgvKreditkarten.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - DataGridViewCellStyle5.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle5.BackColor = System.Drawing.SystemColors.Window - DataGridViewCellStyle5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle5.ForeColor = System.Drawing.SystemColors.ControlText - DataGridViewCellStyle5.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle5.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] - Me.dgvKreditkarten.DefaultCellStyle = DataGridViewCellStyle5 + DataGridViewCellStyle33.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle33.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle33.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle33.ForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle33.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle33.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle33.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.dgvKreditkarten.DefaultCellStyle = DataGridViewCellStyle33 Me.dgvKreditkarten.Location = New System.Drawing.Point(9, 20) Me.dgvKreditkarten.MultiSelect = False Me.dgvKreditkarten.Name = "dgvKreditkarten" - DataGridViewCellStyle6.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle6.BackColor = System.Drawing.SystemColors.Control - DataGridViewCellStyle6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle6.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle6.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle6.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.dgvKreditkarten.RowHeadersDefaultCellStyle = DataGridViewCellStyle6 + DataGridViewCellStyle34.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle34.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle34.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle34.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle34.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle34.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle34.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvKreditkarten.RowHeadersDefaultCellStyle = DataGridViewCellStyle34 Me.dgvKreditkarten.RowHeadersVisible = False - DataGridViewCellStyle7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.dgvKreditkarten.RowsDefaultCellStyle = DataGridViewCellStyle7 + DataGridViewCellStyle35.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.dgvKreditkarten.RowsDefaultCellStyle = DataGridViewCellStyle35 Me.dgvKreditkarten.RowTemplate.DefaultCellStyle.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.dgvKreditkarten.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect Me.dgvKreditkarten.Size = New System.Drawing.Size(642, 312) @@ -3660,26 +3668,26 @@ Partial Class usrcntlKundeBearbeitenFull ' 'dgvMWST ' - DataGridViewCellStyle8.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.dgvMWST.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle8 + DataGridViewCellStyle36.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvMWST.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle36 Me.dgvMWST.BackgroundColor = System.Drawing.Color.White - DataGridViewCellStyle9.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle9.BackColor = System.Drawing.SystemColors.Control - DataGridViewCellStyle9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle9.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle9.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle9.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle9.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.dgvMWST.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle9 + DataGridViewCellStyle37.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle37.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle37.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle37.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle37.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle37.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle37.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvMWST.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle37 Me.dgvMWST.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - DataGridViewCellStyle10.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle10.BackColor = System.Drawing.SystemColors.Window - 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.ControlText - DataGridViewCellStyle10.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle10.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle10.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] - Me.dgvMWST.DefaultCellStyle = DataGridViewCellStyle10 + DataGridViewCellStyle38.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle38.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle38.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle38.ForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle38.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle38.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle38.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.dgvMWST.DefaultCellStyle = DataGridViewCellStyle38 Me.dgvMWST.Location = New System.Drawing.Point(9, 359) Me.dgvMWST.Name = "dgvMWST" Me.dgvMWST.Size = New System.Drawing.Size(171, 125) @@ -3764,26 +3772,26 @@ Partial Class usrcntlKundeBearbeitenFull ' 'dgvUstv_LaenderUndSteuernummern ' - DataGridViewCellStyle11.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.dgvUstv_LaenderUndSteuernummern.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle11 + DataGridViewCellStyle39.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvUstv_LaenderUndSteuernummern.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle39 Me.dgvUstv_LaenderUndSteuernummern.BackgroundColor = System.Drawing.Color.White - DataGridViewCellStyle12.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle12.BackColor = System.Drawing.SystemColors.Control - 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.WindowText - DataGridViewCellStyle12.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle12.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle12.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.dgvUstv_LaenderUndSteuernummern.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle12 + DataGridViewCellStyle40.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle40.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle40.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle40.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle40.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle40.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle40.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvUstv_LaenderUndSteuernummern.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle40 Me.dgvUstv_LaenderUndSteuernummern.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - DataGridViewCellStyle13.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle13.BackColor = System.Drawing.SystemColors.Window - DataGridViewCellStyle13.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle13.ForeColor = System.Drawing.SystemColors.ControlText - DataGridViewCellStyle13.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle13.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle13.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] - Me.dgvUstv_LaenderUndSteuernummern.DefaultCellStyle = DataGridViewCellStyle13 + DataGridViewCellStyle41.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle41.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle41.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle41.ForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle41.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle41.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle41.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.dgvUstv_LaenderUndSteuernummern.DefaultCellStyle = DataGridViewCellStyle41 Me.dgvUstv_LaenderUndSteuernummern.Location = New System.Drawing.Point(9, 94) Me.dgvUstv_LaenderUndSteuernummern.Name = "dgvUstv_LaenderUndSteuernummern" Me.dgvUstv_LaenderUndSteuernummern.Size = New System.Drawing.Size(657, 259) @@ -4035,26 +4043,26 @@ Partial Class usrcntlKundeBearbeitenFull Me.dgvIDS_Standard.AllowUserToAddRows = False Me.dgvIDS_Standard.AllowUserToDeleteRows = False Me.dgvIDS_Standard.AllowUserToResizeRows = False - DataGridViewCellStyle14.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.dgvIDS_Standard.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle14 + DataGridViewCellStyle42.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvIDS_Standard.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle42 Me.dgvIDS_Standard.BackgroundColor = System.Drawing.Color.White - DataGridViewCellStyle15.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle15.BackColor = System.Drawing.SystemColors.Control - DataGridViewCellStyle15.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle15.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle15.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle15.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle15.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.dgvIDS_Standard.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle15 + DataGridViewCellStyle43.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle43.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle43.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle43.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle43.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle43.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle43.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvIDS_Standard.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle43 Me.dgvIDS_Standard.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - DataGridViewCellStyle16.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle16.BackColor = System.Drawing.SystemColors.Window - DataGridViewCellStyle16.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle16.ForeColor = System.Drawing.SystemColors.ControlText - DataGridViewCellStyle16.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle16.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle16.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] - Me.dgvIDS_Standard.DefaultCellStyle = DataGridViewCellStyle16 + DataGridViewCellStyle44.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle44.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle44.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle44.ForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle44.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle44.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle44.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.dgvIDS_Standard.DefaultCellStyle = DataGridViewCellStyle44 Me.dgvIDS_Standard.Dock = System.Windows.Forms.DockStyle.Fill Me.dgvIDS_Standard.Location = New System.Drawing.Point(3, 3) Me.dgvIDS_Standard.Name = "dgvIDS_Standard" @@ -4077,32 +4085,80 @@ Partial Class usrcntlKundeBearbeitenFull Me.dgvIDS_Rabatte.AllowUserToAddRows = False Me.dgvIDS_Rabatte.AllowUserToDeleteRows = False Me.dgvIDS_Rabatte.AllowUserToResizeRows = False - DataGridViewCellStyle17.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.dgvIDS_Rabatte.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle17 + DataGridViewCellStyle45.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvIDS_Rabatte.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle45 Me.dgvIDS_Rabatte.BackgroundColor = System.Drawing.Color.White - DataGridViewCellStyle18.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle18.BackColor = System.Drawing.SystemColors.Control - DataGridViewCellStyle18.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle18.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle18.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle18.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle18.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.dgvIDS_Rabatte.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle18 + DataGridViewCellStyle46.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle46.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle46.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle46.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle46.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle46.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle46.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvIDS_Rabatte.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle46 Me.dgvIDS_Rabatte.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - DataGridViewCellStyle19.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle19.BackColor = System.Drawing.SystemColors.Window - DataGridViewCellStyle19.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle19.ForeColor = System.Drawing.SystemColors.ControlText - DataGridViewCellStyle19.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle19.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle19.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] - Me.dgvIDS_Rabatte.DefaultCellStyle = DataGridViewCellStyle19 + DataGridViewCellStyle47.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle47.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle47.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle47.ForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle47.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle47.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle47.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.dgvIDS_Rabatte.DefaultCellStyle = DataGridViewCellStyle47 Me.dgvIDS_Rabatte.Dock = System.Windows.Forms.DockStyle.Fill Me.dgvIDS_Rabatte.Location = New System.Drawing.Point(3, 3) Me.dgvIDS_Rabatte.Name = "dgvIDS_Rabatte" Me.dgvIDS_Rabatte.Size = New System.Drawing.Size(645, 169) Me.dgvIDS_Rabatte.TabIndex = 34 ' + 'TabPage2 + ' + Me.TabPage2.Controls.Add(Me.txtATEZ_GreenpulseID) + Me.TabPage2.Controls.Add(Me.Label118) + Me.TabPage2.Controls.Add(Me.txtATEZ_LogicustID) + Me.TabPage2.Controls.Add(Me.Label119) + Me.TabPage2.Location = New System.Drawing.Point(4, 22) + Me.TabPage2.Name = "TabPage2" + Me.TabPage2.Padding = New System.Windows.Forms.Padding(3) + Me.TabPage2.Size = New System.Drawing.Size(651, 175) + Me.TabPage2.TabIndex = 2 + Me.TabPage2.Text = "ATEZ KundenNr" + Me.TabPage2.UseVisualStyleBackColor = True + ' + 'txtATEZ_GreenpulseID + ' + Me.txtATEZ_GreenpulseID.Location = New System.Drawing.Point(97, 43) + Me.txtATEZ_GreenpulseID.Name = "txtATEZ_GreenpulseID" + Me.txtATEZ_GreenpulseID.Size = New System.Drawing.Size(314, 20) + Me.txtATEZ_GreenpulseID.TabIndex = 17 + ' + 'Label118 + ' + Me.Label118.AutoSize = True + Me.Label118.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label118.Location = New System.Drawing.Point(14, 46) + Me.Label118.Name = "Label118" + Me.Label118.Size = New System.Drawing.Size(78, 13) + Me.Label118.TabIndex = 16 + Me.Label118.Text = "Greenpulse-ID:" + ' + 'txtATEZ_LogicustID + ' + Me.txtATEZ_LogicustID.Location = New System.Drawing.Point(97, 14) + Me.txtATEZ_LogicustID.Name = "txtATEZ_LogicustID" + Me.txtATEZ_LogicustID.Size = New System.Drawing.Size(314, 20) + Me.txtATEZ_LogicustID.TabIndex = 15 + ' + 'Label119 + ' + Me.Label119.AutoSize = True + Me.Label119.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label119.Location = New System.Drawing.Point(14, 17) + Me.Label119.Name = "Label119" + Me.Label119.Size = New System.Drawing.Size(64, 13) + Me.Label119.TabIndex = 14 + Me.Label119.Text = "Logicust-ID:" + ' 'cbxCSInsolvent ' Me.cbxCSInsolvent.AutoSize = True @@ -4268,26 +4324,26 @@ Partial Class usrcntlKundeBearbeitenFull Me.dgvSonst_IDSKunden.AllowUserToAddRows = False Me.dgvSonst_IDSKunden.AllowUserToDeleteRows = False Me.dgvSonst_IDSKunden.AllowUserToResizeRows = False - DataGridViewCellStyle20.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.dgvSonst_IDSKunden.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle20 + DataGridViewCellStyle48.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvSonst_IDSKunden.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle48 Me.dgvSonst_IDSKunden.BackgroundColor = System.Drawing.Color.White - DataGridViewCellStyle21.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle21.BackColor = System.Drawing.SystemColors.Control - DataGridViewCellStyle21.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle21.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle21.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle21.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle21.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.dgvSonst_IDSKunden.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle21 + DataGridViewCellStyle49.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle49.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle49.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle49.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle49.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle49.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle49.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvSonst_IDSKunden.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle49 Me.dgvSonst_IDSKunden.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - DataGridViewCellStyle22.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle22.BackColor = System.Drawing.SystemColors.Window - 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.ControlText - DataGridViewCellStyle22.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle22.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle22.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] - Me.dgvSonst_IDSKunden.DefaultCellStyle = DataGridViewCellStyle22 + DataGridViewCellStyle50.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle50.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle50.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle50.ForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle50.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle50.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle50.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.dgvSonst_IDSKunden.DefaultCellStyle = DataGridViewCellStyle50 Me.dgvSonst_IDSKunden.Location = New System.Drawing.Point(9, 214) Me.dgvSonst_IDSKunden.MultiSelect = False Me.dgvSonst_IDSKunden.Name = "dgvSonst_IDSKunden" @@ -4598,26 +4654,26 @@ Partial Class usrcntlKundeBearbeitenFull 'DataGridView1 ' Me.DataGridView1.AllowUserToResizeRows = False - DataGridViewCellStyle23.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.DataGridView1.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle23 + DataGridViewCellStyle51.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.DataGridView1.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle51 Me.DataGridView1.BackgroundColor = System.Drawing.Color.White - DataGridViewCellStyle24.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle24.BackColor = System.Drawing.SystemColors.Control - 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.WindowText - DataGridViewCellStyle24.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle24.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle24.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.DataGridView1.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle24 + DataGridViewCellStyle52.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle52.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle52.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle52.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle52.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle52.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle52.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.DataGridView1.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle52 Me.DataGridView1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - DataGridViewCellStyle25.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle25.BackColor = System.Drawing.SystemColors.Window - DataGridViewCellStyle25.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle25.ForeColor = System.Drawing.SystemColors.ControlText - DataGridViewCellStyle25.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle25.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle25.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] - Me.DataGridView1.DefaultCellStyle = DataGridViewCellStyle25 + DataGridViewCellStyle53.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle53.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle53.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle53.ForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle53.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle53.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle53.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.DataGridView1.DefaultCellStyle = DataGridViewCellStyle53 Me.DataGridView1.Enabled = False Me.DataGridView1.Location = New System.Drawing.Point(6, 111) Me.DataGridView1.MultiSelect = False @@ -4684,26 +4740,26 @@ Partial Class usrcntlKundeBearbeitenFull ' Me.dgvBankverbindungen.AllowUserToDeleteRows = False Me.dgvBankverbindungen.AllowUserToResizeRows = False - DataGridViewCellStyle26.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.dgvBankverbindungen.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle26 + DataGridViewCellStyle54.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvBankverbindungen.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle54 Me.dgvBankverbindungen.BackgroundColor = System.Drawing.Color.White - DataGridViewCellStyle27.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle27.BackColor = System.Drawing.SystemColors.Control - DataGridViewCellStyle27.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle27.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle27.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle27.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle27.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.dgvBankverbindungen.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle27 + DataGridViewCellStyle55.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle55.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle55.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle55.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle55.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle55.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle55.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvBankverbindungen.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle55 Me.dgvBankverbindungen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - DataGridViewCellStyle28.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle28.BackColor = System.Drawing.SystemColors.Window - DataGridViewCellStyle28.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle28.ForeColor = System.Drawing.SystemColors.ControlText - DataGridViewCellStyle28.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle28.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle28.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] - Me.dgvBankverbindungen.DefaultCellStyle = DataGridViewCellStyle28 + DataGridViewCellStyle56.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle56.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle56.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle56.ForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle56.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle56.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle56.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.dgvBankverbindungen.DefaultCellStyle = DataGridViewCellStyle56 Me.dgvBankverbindungen.Location = New System.Drawing.Point(3, 40) Me.dgvBankverbindungen.MultiSelect = False Me.dgvBankverbindungen.Name = "dgvBankverbindungen" @@ -5859,53 +5915,73 @@ Partial Class usrcntlKundeBearbeitenFull Me.DataGridViewTextBoxColumn2.HeaderText = "E-Mail" Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2" ' - 'TabPage2 + 'Label120 ' - Me.TabPage2.Controls.Add(Me.txtATEZ_GreenpulseID) - Me.TabPage2.Controls.Add(Me.Label118) - Me.TabPage2.Controls.Add(Me.txtATEZ_LogicustID) - Me.TabPage2.Controls.Add(Me.Label119) - Me.TabPage2.Location = New System.Drawing.Point(4, 22) - Me.TabPage2.Name = "TabPage2" - Me.TabPage2.Padding = New System.Windows.Forms.Padding(3) - Me.TabPage2.Size = New System.Drawing.Size(651, 175) - Me.TabPage2.TabIndex = 2 - Me.TabPage2.Text = "ATEZ KundenNr" - Me.TabPage2.UseVisualStyleBackColor = True + Me.Label120.AutoSize = True + Me.Label120.Location = New System.Drawing.Point(305, 78) + Me.Label120.Name = "Label120" + Me.Label120.Size = New System.Drawing.Size(30, 13) + Me.Label120.TabIndex = 57 + Me.Label120.Text = "vom:" ' - 'txtATEZ_GreenpulseID + 'txtSEG_vom ' - Me.txtATEZ_GreenpulseID.Location = New System.Drawing.Point(97, 43) - Me.txtATEZ_GreenpulseID.Name = "txtATEZ_GreenpulseID" - Me.txtATEZ_GreenpulseID.Size = New System.Drawing.Size(314, 20) - Me.txtATEZ_GreenpulseID.TabIndex = 17 + Me.txtSEG_vom._DateTimeOnly = False + Me.txtSEG_vom._numbersOnly = False + Me.txtSEG_vom._numbersOnlyKommastellen = "" + Me.txtSEG_vom._numbersOnlyTrennzeichen = True + Me.txtSEG_vom._Prozent = False + Me.txtSEG_vom._ShortDateNew = True + Me.txtSEG_vom._ShortDateOnly = False + Me.txtSEG_vom._TimeOnly = False + Me.txtSEG_vom._TimeOnly_Seconds = False + Me.txtSEG_vom._value = "" + Me.txtSEG_vom._Waehrung = False + Me.txtSEG_vom._WaehrungZeichen = True + Me.txtSEG_vom.ForeColor = System.Drawing.Color.Red + Me.txtSEG_vom.Location = New System.Drawing.Point(341, 75) + Me.txtSEG_vom.MaxLength = 10 + Me.txtSEG_vom.MaxLineLength = -1 + Me.txtSEG_vom.MaxLines_Warning = "" + Me.txtSEG_vom.MaxLines_Warning_Label = Nothing + Me.txtSEG_vom.Name = "txtSEG_vom" + Me.txtSEG_vom.Size = New System.Drawing.Size(60, 20) + Me.txtSEG_vom.TabIndex = 58 + Me.txtSEG_vom.TextAlign = System.Windows.Forms.HorizontalAlignment.Right ' - 'Label118 + 'txtSEG_Summe ' - Me.Label118.AutoSize = True - Me.Label118.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label118.Location = New System.Drawing.Point(14, 46) - Me.Label118.Name = "Label118" - Me.Label118.Size = New System.Drawing.Size(78, 13) - Me.Label118.TabIndex = 16 - Me.Label118.Text = "Greenpulse-ID:" + Me.txtSEG_Summe._DateTimeOnly = False + Me.txtSEG_Summe._numbersOnly = False + Me.txtSEG_Summe._numbersOnlyKommastellen = "" + Me.txtSEG_Summe._numbersOnlyTrennzeichen = True + Me.txtSEG_Summe._Prozent = False + Me.txtSEG_Summe._ShortDateNew = False + Me.txtSEG_Summe._ShortDateOnly = False + Me.txtSEG_Summe._TimeOnly = False + Me.txtSEG_Summe._TimeOnly_Seconds = False + Me.txtSEG_Summe._value = "" + Me.txtSEG_Summe._Waehrung = True + Me.txtSEG_Summe._WaehrungZeichen = True + Me.txtSEG_Summe.ForeColor = System.Drawing.Color.Red + Me.txtSEG_Summe.Location = New System.Drawing.Point(159, 75) + Me.txtSEG_Summe.MaxLineLength = -1 + Me.txtSEG_Summe.MaxLines_Warning = "" + Me.txtSEG_Summe.MaxLines_Warning_Label = Nothing + Me.txtSEG_Summe.Name = "txtSEG_Summe" + Me.txtSEG_Summe.Size = New System.Drawing.Size(100, 20) + Me.txtSEG_Summe.TabIndex = 56 + Me.txtSEG_Summe.TextAlign = System.Windows.Forms.HorizontalAlignment.Right ' - 'txtATEZ_LogicustID + 'Label121 ' - Me.txtATEZ_LogicustID.Location = New System.Drawing.Point(97, 14) - Me.txtATEZ_LogicustID.Name = "txtATEZ_LogicustID" - Me.txtATEZ_LogicustID.Size = New System.Drawing.Size(314, 20) - Me.txtATEZ_LogicustID.TabIndex = 15 - ' - 'Label119 - ' - Me.Label119.AutoSize = True - Me.Label119.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label119.Location = New System.Drawing.Point(14, 17) - Me.Label119.Name = "Label119" - Me.Label119.Size = New System.Drawing.Size(64, 13) - Me.Label119.TabIndex = 14 - Me.Label119.Text = "Logicust-ID:" + Me.Label121.AutoSize = True + Me.Label121.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label121.Location = New System.Drawing.Point(7, 78) + Me.Label121.Name = "Label121" + Me.Label121.Size = New System.Drawing.Size(32, 13) + Me.Label121.TabIndex = 59 + Me.Label121.Text = "SEG:" ' 'usrcntlKundeBearbeitenFull ' @@ -5990,6 +6066,8 @@ Partial Class usrcntlKundeBearbeitenFull CType(Me.dgvIDS_Standard, System.ComponentModel.ISupportInitialize).EndInit() Me.Kunden.ResumeLayout(False) CType(Me.dgvIDS_Rabatte, System.ComponentModel.ISupportInitialize).EndInit() + Me.TabPage2.ResumeLayout(False) + Me.TabPage2.PerformLayout() CType(Me.dgvSonst_IDSKunden, System.ComponentModel.ISupportInitialize).EndInit() Me.tbSchnittstellen.ResumeLayout(False) Me.tbSchnittstellen.PerformLayout() @@ -6011,8 +6089,6 @@ Partial Class usrcntlKundeBearbeitenFull Me.pnlNeukunde.ResumeLayout(False) Me.pnlNeukunde.PerformLayout() Me.cnsBankverbindungen.ResumeLayout(False) - Me.TabPage2.ResumeLayout(False) - Me.TabPage2.PerformLayout() Me.ResumeLayout(False) Me.PerformLayout() @@ -6399,4 +6475,8 @@ Partial Class usrcntlKundeBearbeitenFull Friend WithEvents Label118 As Label Friend WithEvents txtATEZ_LogicustID As TextBox Friend WithEvents Label119 As Label + Friend WithEvents Label121 As Label + Friend WithEvents Label120 As Label + Friend WithEvents txtSEG_vom As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents txtSEG_Summe As VERAG_PROG_ALLGEMEIN.MyTextBox End Class diff --git a/SDL/kunden/usrcntlKundeBearbeitenFull.vb b/SDL/kunden/usrcntlKundeBearbeitenFull.vb index 58067b44..efe42ffe 100644 --- a/SDL/kunden/usrcntlKundeBearbeitenFull.vb +++ b/SDL/kunden/usrcntlKundeBearbeitenFull.vb @@ -275,6 +275,8 @@ Public Class usrcntlKundeBearbeitenFull txtVers_HermesRefNr.Text = loadValue(KUNDE.Referenznummer, "") txtVers_Versicherungssumme._value = loadValue(KUNDE.Versicherungssumme, "") txtVers_VersicherungssummeVon._value = loadValue(KUNDE.Entscheidung_vom, "") + txtSEG_Summe._value = loadValue(KUNDE_ERW.kde_SEG_Summe, "") + txtSEG_vom._value = loadValue(KUNDE_ERW.kde_SEG_Datum, "") txtVers_Antragssumme._value = loadValue(KUNDE.Antragssumme, "") txtVers_AntragssummeVon._value = loadValue(KUNDE.Antrag_vom, "") txtVers_Kreditlimit._value = loadValue(KUNDE.Kreditlimit, "") @@ -703,8 +705,11 @@ Public Class usrcntlKundeBearbeitenFull 'End If KUNDE.Versicherungssumme = isLeerNothingDbl(txtVers_Versicherungssumme._value) - KUNDE.Entscheidung_vom = isLeerNothing(txtVers_VersicherungssummeVon._value) + + KUNDE_ERW.kde_SEG_Summe = isLeerNothingDbl(txtSEG_Summe._value) + KUNDE_ERW.kde_SEG_Datum = isLeerNothing(txtSEG_vom._value) + KUNDE.Antragssumme = isLeerNothingDbl(txtVers_Antragssumme._value) KUNDE.Antrag_vom = isLeerNothing(txtVers_AntragssummeVon._value) KUNDE.Kreditlimit = isLeerNothingDbl(txtVers_Kreditlimit._value) diff --git a/SDL/mdm/usrCntlMDMAuswertungen.Designer.vb b/SDL/mdm/usrCntlMDMAuswertungen.Designer.vb index 6e53695e..1709c22a 100644 --- a/SDL/mdm/usrCntlMDMAuswertungen.Designer.vb +++ b/SDL/mdm/usrCntlMDMAuswertungen.Designer.vb @@ -111,6 +111,13 @@ Partial Class usrCntlMDMAuswertungen Me.Label32 = New System.Windows.Forms.Label() Me.tbcntr = New System.Windows.Forms.TabControl() Me.TabPage1 = New System.Windows.Forms.TabPage() + Me.Label44 = New System.Windows.Forms.Label() + Me.GroupBox19 = New System.Windows.Forms.GroupBox() + Me.cbx_nuraktiveKunden = New System.Windows.Forms.CheckBox() + Me.Label61 = New System.Windows.Forms.Label() + Me.PictureBox6 = New System.Windows.Forms.PictureBox() + Me.Label63 = New System.Windows.Forms.Label() + Me.Button19 = New System.Windows.Forms.Button() Me.Label33 = New System.Windows.Forms.Label() Me.GroupBox9 = New System.Windows.Forms.GroupBox() Me.Button9 = New System.Windows.Forms.Button() @@ -120,7 +127,6 @@ Partial Class usrCntlMDMAuswertungen Me.MyComboBox2 = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.Label36 = New System.Windows.Forms.Label() Me.TabPage3 = New System.Windows.Forms.TabPage() - Me.UsrCntlWoelfl_IM_CSVRg1 = New SDL.usrCntlWoelfl_IM_CSVRg() Me.tbIDS = New System.Windows.Forms.TabPage() Me.Label62 = New System.Windows.Forms.Label() Me.GroupBox13 = New System.Windows.Forms.GroupBox() @@ -157,7 +163,6 @@ Partial Class usrCntlMDMAuswertungen Me.Label41 = New System.Windows.Forms.Label() Me.Button12 = New System.Windows.Forms.Button() Me.TabPage4 = New System.Windows.Forms.TabPage() - Me.UsrCntlMSE_KonvertCSV1 = New SDL.usrCntlMSE_KonvertCSV() Me.TabPage5 = New System.Windows.Forms.TabPage() Me.Label56 = New System.Windows.Forms.Label() Me.GroupBox17 = New System.Windows.Forms.GroupBox() @@ -182,6 +187,8 @@ Partial Class usrCntlMDMAuswertungen Me.btnContractdaten = New System.Windows.Forms.Button() Me.Button15 = New System.Windows.Forms.Button() Me.pnl = New System.Windows.Forms.Panel() + Me.UsrCntlWoelfl_IM_CSVRg1 = New SDL.usrCntlWoelfl_IM_CSVRg() + Me.UsrCntlMSE_KonvertCSV1 = New SDL.usrCntlMSE_KonvertCSV() Me.GroupBox1.SuspendLayout() Me.GroupBox2.SuspendLayout() CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit() @@ -197,6 +204,8 @@ Partial Class usrCntlMDMAuswertungen Me.GroupBox8.SuspendLayout() Me.tbcntr.SuspendLayout() Me.TabPage1.SuspendLayout() + Me.GroupBox19.SuspendLayout() + CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).BeginInit() Me.GroupBox9.SuspendLayout() CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).BeginInit() Me.TabPage3.SuspendLayout() @@ -422,7 +431,7 @@ Partial Class usrCntlMDMAuswertungen Me.Label8.AutoSize = True Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label8.ForeColor = System.Drawing.SystemColors.ControlDarkDark - Me.Label8.Location = New System.Drawing.Point(7, 153) + Me.Label8.Location = New System.Drawing.Point(9, 119) Me.Label8.Name = "Label8" Me.Label8.Size = New System.Drawing.Size(186, 17) Me.Label8.TabIndex = 11 @@ -442,9 +451,9 @@ Partial Class usrCntlMDMAuswertungen Me.GroupBox3.Controls.Add(Me.datUeberfaelligeBestVon) Me.GroupBox3.Controls.Add(Me.Label11) Me.GroupBox3.Controls.Add(Me.Button2) - Me.GroupBox3.Location = New System.Drawing.Point(6, 164) + Me.GroupBox3.Location = New System.Drawing.Point(8, 130) Me.GroupBox3.Name = "GroupBox3" - Me.GroupBox3.Size = New System.Drawing.Size(697, 149) + Me.GroupBox3.Size = New System.Drawing.Size(697, 137) Me.GroupBox3.TabIndex = 10 Me.GroupBox3.TabStop = False ' @@ -592,7 +601,7 @@ Partial Class usrCntlMDMAuswertungen Me.Label13.AutoSize = True Me.Label13.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label13.ForeColor = System.Drawing.SystemColors.ControlDarkDark - Me.Label13.Location = New System.Drawing.Point(7, 332) + Me.Label13.Location = New System.Drawing.Point(9, 379) Me.Label13.Name = "Label13" Me.Label13.Size = New System.Drawing.Size(78, 17) Me.Label13.TabIndex = 13 @@ -608,7 +617,7 @@ Partial Class usrCntlMDMAuswertungen Me.GroupBox4.Controls.Add(Me.Label15) Me.GroupBox4.Controls.Add(Me.Label17) Me.GroupBox4.Controls.Add(Me.Button3) - Me.GroupBox4.Location = New System.Drawing.Point(6, 343) + Me.GroupBox4.Location = New System.Drawing.Point(8, 390) Me.GroupBox4.Name = "GroupBox4" Me.GroupBox4.Size = New System.Drawing.Size(697, 110) Me.GroupBox4.TabIndex = 12 @@ -722,7 +731,7 @@ Partial Class usrCntlMDMAuswertungen Me.Label16.AutoSize = True Me.Label16.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label16.ForeColor = System.Drawing.SystemColors.ControlDarkDark - Me.Label16.Location = New System.Drawing.Point(7, 471) + Me.Label16.Location = New System.Drawing.Point(9, 518) Me.Label16.Name = "Label16" Me.Label16.Size = New System.Drawing.Size(287, 17) Me.Label16.TabIndex = 15 @@ -739,7 +748,7 @@ Partial Class usrCntlMDMAuswertungen Me.GroupBox5.Controls.Add(Me.datBenachrichtigungVon) Me.GroupBox5.Controls.Add(Me.Label21) Me.GroupBox5.Controls.Add(Me.Button4) - Me.GroupBox5.Location = New System.Drawing.Point(6, 482) + Me.GroupBox5.Location = New System.Drawing.Point(8, 529) Me.GroupBox5.Name = "GroupBox5" Me.GroupBox5.Size = New System.Drawing.Size(697, 98) Me.GroupBox5.TabIndex = 14 @@ -795,7 +804,7 @@ Partial Class usrCntlMDMAuswertungen 'Label19 ' Me.Label19.AutoSize = True - Me.Label19.Location = New System.Drawing.Point(322, 81) + Me.Label19.Location = New System.Drawing.Point(322, 72) Me.Label19.Name = "Label19" Me.Label19.Size = New System.Drawing.Size(23, 13) Me.Label19.TabIndex = 10 @@ -805,7 +814,7 @@ Partial Class usrCntlMDMAuswertungen 'datBenachrichtigungBis ' Me.datBenachrichtigungBis.Format = System.Windows.Forms.DateTimePickerFormat.[Short] - Me.datBenachrichtigungBis.Location = New System.Drawing.Point(351, 78) + Me.datBenachrichtigungBis.Location = New System.Drawing.Point(351, 69) Me.datBenachrichtigungBis.Name = "datBenachrichtigungBis" Me.datBenachrichtigungBis.Size = New System.Drawing.Size(93, 20) Me.datBenachrichtigungBis.TabIndex = 9 @@ -814,7 +823,7 @@ Partial Class usrCntlMDMAuswertungen 'Label20 ' Me.Label20.AutoSize = True - Me.Label20.Location = New System.Drawing.Point(145, 81) + Me.Label20.Location = New System.Drawing.Point(145, 72) Me.Label20.Name = "Label20" Me.Label20.Size = New System.Drawing.Size(72, 13) Me.Label20.TabIndex = 8 @@ -824,7 +833,7 @@ Partial Class usrCntlMDMAuswertungen 'datBenachrichtigungVon ' Me.datBenachrichtigungVon.Format = System.Windows.Forms.DateTimePickerFormat.[Short] - Me.datBenachrichtigungVon.Location = New System.Drawing.Point(223, 78) + Me.datBenachrichtigungVon.Location = New System.Drawing.Point(223, 69) Me.datBenachrichtigungVon.Name = "datBenachrichtigungVon" Me.datBenachrichtigungVon.Size = New System.Drawing.Size(93, 20) Me.datBenachrichtigungVon.TabIndex = 7 @@ -856,7 +865,7 @@ Partial Class usrCntlMDMAuswertungen Me.Label23.AutoSize = True Me.Label23.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label23.ForeColor = System.Drawing.SystemColors.ControlDarkDark - Me.Label23.Location = New System.Drawing.Point(7, 597) + Me.Label23.Location = New System.Drawing.Point(9, 630) Me.Label23.Name = "Label23" Me.Label23.Size = New System.Drawing.Size(88, 17) Me.Label23.TabIndex = 17 @@ -872,9 +881,9 @@ Partial Class usrCntlMDMAuswertungen Me.GroupBox6.Controls.Add(Me.PictureBox4) Me.GroupBox6.Controls.Add(Me.Label28) Me.GroupBox6.Controls.Add(Me.Button5) - Me.GroupBox6.Location = New System.Drawing.Point(6, 608) + Me.GroupBox6.Location = New System.Drawing.Point(8, 641) Me.GroupBox6.Name = "GroupBox6" - Me.GroupBox6.Size = New System.Drawing.Size(697, 86) + Me.GroupBox6.Size = New System.Drawing.Size(697, 73) Me.GroupBox6.TabIndex = 16 Me.GroupBox6.TabStop = False ' @@ -1196,6 +1205,8 @@ Partial Class usrCntlMDMAuswertungen ' 'TabPage1 ' + Me.TabPage1.Controls.Add(Me.Label44) + Me.TabPage1.Controls.Add(Me.GroupBox19) Me.TabPage1.Controls.Add(Me.Label33) Me.TabPage1.Controls.Add(Me.GroupBox9) Me.TabPage1.Controls.Add(Me.Label3) @@ -1216,12 +1227,89 @@ Partial Class usrCntlMDMAuswertungen Me.TabPage1.Text = "VERAG Auswertungen" Me.TabPage1.UseVisualStyleBackColor = True ' + 'Label44 + ' + Me.Label44.AutoSize = True + Me.Label44.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label44.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Me.Label44.Location = New System.Drawing.Point(11, 270) + Me.Label44.Name = "Label44" + Me.Label44.Size = New System.Drawing.Size(93, 17) + Me.Label44.TabIndex = 21 + Me.Label44.Text = "Kundenliste" + ' + 'GroupBox19 + ' + Me.GroupBox19.Controls.Add(Me.cbx_nuraktiveKunden) + Me.GroupBox19.Controls.Add(Me.Label61) + Me.GroupBox19.Controls.Add(Me.PictureBox6) + Me.GroupBox19.Controls.Add(Me.Label63) + Me.GroupBox19.Controls.Add(Me.Button19) + Me.GroupBox19.Location = New System.Drawing.Point(9, 284) + Me.GroupBox19.Name = "GroupBox19" + Me.GroupBox19.Size = New System.Drawing.Size(697, 80) + Me.GroupBox19.TabIndex = 20 + Me.GroupBox19.TabStop = False + ' + 'cbx_nuraktiveKunden + ' + Me.cbx_nuraktiveKunden.AutoSize = True + Me.cbx_nuraktiveKunden.Checked = True + Me.cbx_nuraktiveKunden.CheckState = System.Windows.Forms.CheckState.Checked + Me.cbx_nuraktiveKunden.Location = New System.Drawing.Point(148, 37) + Me.cbx_nuraktiveKunden.Name = "cbx_nuraktiveKunden" + Me.cbx_nuraktiveKunden.Size = New System.Drawing.Size(15, 14) + Me.cbx_nuraktiveKunden.TabIndex = 24 + Me.cbx_nuraktiveKunden.UseVisualStyleBackColor = True + ' + 'Label61 + ' + Me.Label61.AutoSize = True + Me.Label61.Location = New System.Drawing.Point(169, 38) + Me.Label61.Name = "Label61" + Me.Label61.Size = New System.Drawing.Size(94, 13) + Me.Label61.TabIndex = 21 + Me.Label61.Text = "nur aktive Kunden" + ' + 'PictureBox6 + ' + Me.PictureBox6.Image = CType(resources.GetObject("PictureBox6.Image"), System.Drawing.Image) + Me.PictureBox6.Location = New System.Drawing.Point(640, 8) + Me.PictureBox6.Name = "PictureBox6" + Me.PictureBox6.Size = New System.Drawing.Size(51, 24) + Me.PictureBox6.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom + Me.PictureBox6.TabIndex = 11 + Me.PictureBox6.TabStop = False + ' + 'Label63 + ' + Me.Label63.AutoSize = True + Me.Label63.Location = New System.Drawing.Point(145, 19) + Me.Label63.Name = "Label63" + Me.Label63.Size = New System.Drawing.Size(255, 13) + Me.Label63.TabIndex = 5 + Me.Label63.Text = "Kundenliste mit Kundennummern bei den Lieferanten" + ' + 'Button19 + ' + Me.Button19.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button19.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.Button19.Image = Global.SDL.My.Resources.Resources.Excel_logo + Me.Button19.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button19.Location = New System.Drawing.Point(6, 19) + Me.Button19.Name = "Button19" + Me.Button19.Size = New System.Drawing.Size(121, 49) + Me.Button19.TabIndex = 4 + Me.Button19.Text = "Kundenliste" + Me.Button19.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.Button19.UseVisualStyleBackColor = True + ' 'Label33 ' Me.Label33.AutoSize = True Me.Label33.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label33.ForeColor = System.Drawing.SystemColors.ControlDarkDark - Me.Label33.Location = New System.Drawing.Point(7, 712) + Me.Label33.Location = New System.Drawing.Point(9, 717) Me.Label33.Name = "Label33" Me.Label33.Size = New System.Drawing.Size(145, 17) Me.Label33.TabIndex = 19 @@ -1235,7 +1323,7 @@ Partial Class usrCntlMDMAuswertungen Me.GroupBox9.Controls.Add(Me.PictureBox5) Me.GroupBox9.Controls.Add(Me.MyComboBox2) Me.GroupBox9.Controls.Add(Me.Label36) - Me.GroupBox9.Location = New System.Drawing.Point(6, 723) + Me.GroupBox9.Location = New System.Drawing.Point(8, 728) Me.GroupBox9.Name = "GroupBox9" Me.GroupBox9.Size = New System.Drawing.Size(697, 107) Me.GroupBox9.TabIndex = 18 @@ -1327,14 +1415,6 @@ Partial Class usrCntlMDMAuswertungen Me.TabPage3.Text = "WÖLFL" Me.TabPage3.UseVisualStyleBackColor = True ' - 'UsrCntlWoelfl_IM_CSVRg1 - ' - Me.UsrCntlWoelfl_IM_CSVRg1.BackColor = System.Drawing.Color.White - Me.UsrCntlWoelfl_IM_CSVRg1.Location = New System.Drawing.Point(6, 167) - Me.UsrCntlWoelfl_IM_CSVRg1.Name = "UsrCntlWoelfl_IM_CSVRg1" - Me.UsrCntlWoelfl_IM_CSVRg1.Size = New System.Drawing.Size(728, 97) - Me.UsrCntlWoelfl_IM_CSVRg1.TabIndex = 10 - ' 'tbIDS ' Me.tbIDS.Controls.Add(Me.Label62) @@ -1713,14 +1793,6 @@ Partial Class usrCntlMDMAuswertungen Me.TabPage4.Text = "MSE" Me.TabPage4.UseVisualStyleBackColor = True ' - 'UsrCntlMSE_KonvertCSV1 - ' - Me.UsrCntlMSE_KonvertCSV1.BackColor = System.Drawing.Color.White - Me.UsrCntlMSE_KonvertCSV1.Location = New System.Drawing.Point(7, 7) - Me.UsrCntlMSE_KonvertCSV1.Name = "UsrCntlMSE_KonvertCSV1" - Me.UsrCntlMSE_KonvertCSV1.Size = New System.Drawing.Size(728, 97) - Me.UsrCntlMSE_KonvertCSV1.TabIndex = 0 - ' 'TabPage5 ' Me.TabPage5.Controls.Add(Me.Label56) @@ -1980,6 +2052,22 @@ Partial Class usrCntlMDMAuswertungen Me.pnl.Size = New System.Drawing.Size(1057, 54) Me.pnl.TabIndex = 26 ' + 'UsrCntlWoelfl_IM_CSVRg1 + ' + Me.UsrCntlWoelfl_IM_CSVRg1.BackColor = System.Drawing.Color.White + Me.UsrCntlWoelfl_IM_CSVRg1.Location = New System.Drawing.Point(6, 167) + Me.UsrCntlWoelfl_IM_CSVRg1.Name = "UsrCntlWoelfl_IM_CSVRg1" + Me.UsrCntlWoelfl_IM_CSVRg1.Size = New System.Drawing.Size(728, 97) + Me.UsrCntlWoelfl_IM_CSVRg1.TabIndex = 10 + ' + 'UsrCntlMSE_KonvertCSV1 + ' + Me.UsrCntlMSE_KonvertCSV1.BackColor = System.Drawing.Color.White + Me.UsrCntlMSE_KonvertCSV1.Location = New System.Drawing.Point(7, 7) + Me.UsrCntlMSE_KonvertCSV1.Name = "UsrCntlMSE_KonvertCSV1" + Me.UsrCntlMSE_KonvertCSV1.Size = New System.Drawing.Size(728, 97) + Me.UsrCntlMSE_KonvertCSV1.TabIndex = 0 + ' 'usrCntlMDMAuswertungen ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) @@ -2013,6 +2101,9 @@ Partial Class usrCntlMDMAuswertungen Me.tbcntr.ResumeLayout(False) Me.TabPage1.ResumeLayout(False) Me.TabPage1.PerformLayout() + Me.GroupBox19.ResumeLayout(False) + Me.GroupBox19.PerformLayout() + CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).EndInit() Me.GroupBox9.ResumeLayout(False) Me.GroupBox9.PerformLayout() CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).EndInit() @@ -2208,4 +2299,11 @@ Partial Class usrCntlMDMAuswertungen Friend WithEvents GroupBox13 As GroupBox Friend WithEvents Button18 As Button Friend WithEvents Button14 As Button + Friend WithEvents Label44 As Label + Friend WithEvents GroupBox19 As GroupBox + Friend WithEvents cbx_nuraktiveKunden As CheckBox + Friend WithEvents Label61 As Label + Friend WithEvents PictureBox6 As PictureBox + Friend WithEvents Label63 As Label + Friend WithEvents Button19 As Button End Class diff --git a/SDL/mdm/usrCntlMDMAuswertungen.resx b/SDL/mdm/usrCntlMDMAuswertungen.resx index 05de4ba7..1ffacd1e 100644 --- a/SDL/mdm/usrCntlMDMAuswertungen.resx +++ b/SDL/mdm/usrCntlMDMAuswertungen.resx @@ -132,6 +132,14 @@ 0MEJgDAMQNHflXQmxxDcQt1CvAr1rq7hHIriKa1QQxQs/EtbHm0AMufcZhGQ8xoIjECVkJfQHXhcTlml hL4BLXoXfPDl2DrHIMEeKJR1AWiRfOEKLMrWGGg+Q38cKBsC0CL5wvba0FTHQPMZzkCjbApAi/4B7lqo BXidk8YAAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABQAAAAUCAYAAACNiR0NAAAABGdBTUEAALGPC/xhBQAAAH1JREFUOE/V + 0MEJgDAMQNHflXQmxxDcQt1CvAr1rq7hHIriKa1QQxQs/EtbHm0AMufcZhGQ8xoIjECVkJfQHXhcTlml + hL4BLXoXfPDl2DrHIMEeKJR1AWiRfOEKLMrWGGg+Q38cKBsC0CL5wvba0FTHQPMZzkCjbApAi/4B7lqo + BXidk8YAAAAAAElFTkSuQmCC diff --git a/SDL/mdm/usrCntlMDMAuswertungen.vb b/SDL/mdm/usrCntlMDMAuswertungen.vb index a696607e..b4c9fa45 100644 --- a/SDL/mdm/usrCntlMDMAuswertungen.vb +++ b/SDL/mdm/usrCntlMDMAuswertungen.vb @@ -1536,6 +1536,46 @@ Public Class usrCntlMDMAuswertungen + End Sub + + Private Sub Button19_Click_1(sender As Object, e As EventArgs) Handles Button19.Click + + Me.Cursor = Cursors.WaitCursor + + Dim SQLstr = " SELECT AD.Auswahl,AD.AdressenNr AS KundenNr,AD.[Name 1] AS Kundenname,AD.Ort,AD.LandKz,ISNULL(kde_betreuer,'-') AS Betreuer,kde_keineMWSt AS keineMWST,AD.AdressenNr AS ASFINAG_KundenNr,AD.PLOSEKundenNr AS Plose_KundenNr,tblMSECustomers.customer_id AS MSE_KundenNr,ids.CustomerCode AS IDS_KundenNr, AD.UTAKundenNr AS UTA_KundenNr, + ISNULL(CAST(WölflKundenNr AS nvarchar(50)), '') + + CASE + WHEN WölflKundenNr IS NOT NULL + AND weitereWölflKundenNr IS NOT NULL + THEN ', ' ELSE '' + END + + ISNULL(CAST(weitereWölflKundenNr AS nvarchar(50)), '') AS RMC_KundenNr + + FROM Adressen AD + INNER JOIN Kunden KD ON KD.KundenNr = AD.AdressenNr + INNER JOIN tblKundenErweitert ON KD.KundenNr = kde_KundenNr + LEFT JOIN tblMSECustomers ON partner_customer_number = KD.KundenNr + LEFT JOIN tbl_IDS_Kunden AS ids + ON ids.KdNrVERAG = KD.KundenNr + AND ISNULL(ids.KdNrAlt,0) <> 1 + AND ids.Zeitstempel = + ( + SELECT MAX(i2.Zeitstempel) + FROM tbl_IDS_Kunden AS i2 + WHERE + i2.KdNrVERAG = ids.KdNrVERAG + AND ISNULL(i2.KdNrAlt,0) <> 1 + ) + WHERE + KD.FilialenNr = 8001 " & IIf(cbx_nuraktiveKunden.Checked, "and AD.Auswahl = 'A' ", "") + + Dim dt = (New VERAG_PROG_ALLGEMEIN.SQL).loadDgvBySql(SQLstr, "FMZOLL") + + cProgramFunctions.genExcelFromDT_NEW(dt) + + Me.Cursor = Cursors.Default + + End Sub End Class diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cKundenErweitert.vb b/VERAG_PROG_ALLGEMEIN/Classes/cKundenErweitert.vb index f7b78580..1e5438e4 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cKundenErweitert.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cKundenErweitert.vb @@ -105,6 +105,8 @@ Public Class cKundenErweitert Property kde_betreuer As Object = Nothing Property kde_ATEZ_LogicustID As Object = Nothing Property kde_ATEZ_GreenpulseID As Object = Nothing + Property kde_SEG_Summe As Object = Nothing + Property kde_SEG_Datum As Object = Nothing Dim SQL As New SQL @@ -216,6 +218,8 @@ Public Class cKundenErweitert list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_betreuer", kde_betreuer)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_ATEZ_LogicustID", kde_ATEZ_LogicustID)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_ATEZ_GreenpulseID", kde_ATEZ_GreenpulseID)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_SEG_Summe", kde_SEG_Summe)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_SEG_Datum", kde_SEG_Datum)) Return list End Function