diff --git a/SDL/My Project/AssemblyInfo.vb b/SDL/My Project/AssemblyInfo.vb index 25bf0a25..af690bc5 100644 --- a/SDL/My Project/AssemblyInfo.vb +++ b/SDL/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + + diff --git a/SDL/Reports/frmPrintLayout.vb b/SDL/Reports/frmPrintLayout.vb index bc1e5f71..247f3266 100644 --- a/SDL/Reports/frmPrintLayout.vb +++ b/SDL/Reports/frmPrintLayout.vb @@ -7,7 +7,7 @@ Public Class frmPrintLayout Public datvon As Date Public showBar As Boolean = True - + Private a4Default As Boolean = True Private WithEvents exportMenu As ToolStripMenuItem = New ToolStripMenuItem("Export") Dim art As String = "" Public Sub New() @@ -64,6 +64,7 @@ Public Class frmPrintLayout Me.Text = "Auswertung offene Anträge mit Vorauszahlung" Dim report As rptAuswertungMWSTOffeneAntraegeMitVorauszahlung = New rptAuswertungMWSTOffeneAntraegeMitVorauszahlung report.datVon = datvon + If a4Default Then report.PageSettings.PaperKind = GrapeCity.ActiveReports.Printing.PaperKind.A4 report.erstelltVon = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME Viewer.LoadDocument(report) Viewer.ViewType = GrapeCity.Viewer.Common.Model.ViewType.Continuous @@ -72,6 +73,7 @@ Public Class frmPrintLayout Public Sub AuswertungMWSTOffeneAntraegeMitVorauszahlungDetails() Me.Text = "Auswertung offene Anträge mit Vorauszahlung Details" Dim report As rptAuswertungMWSTOffeneAntraegeMitVorauszahlungDetails = New rptAuswertungMWSTOffeneAntraegeMitVorauszahlungDetails + If a4Default Then report.PageSettings.PaperKind = GrapeCity.ActiveReports.Printing.PaperKind.A4 report.datVon = datvon report.erstelltVon = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME Viewer.LoadDocument(report) @@ -81,6 +83,7 @@ Public Class frmPrintLayout Public Sub AuswertungTKontrolle(sqlStr, datvon, datbis, statvon, statbis, brg, nl) Me.Text = "Auswertung " Dim report As rptTGestellungskontrolle = New rptTGestellungskontrolle + If a4Default Then report.PageSettings.PaperKind = GrapeCity.ActiveReports.Printing.PaperKind.A4 report.datVon = datvon report.datBis = datbis report.statVon = statvon @@ -112,6 +115,7 @@ Public Class frmPrintLayout Public Sub AuswertungTKontrolleEZOLL(sqlStr, datvon, datbis, stat, brg, bestimmungszollstelleErreicht, operatorId) Me.Text = "Auswertung " Dim report As rptGestellungskontrolleEZOLL = New rptGestellungskontrolleEZOLL + If a4Default Then report.PageSettings.PaperKind = GrapeCity.ActiveReports.Printing.PaperKind.A4 report.datVon = datvon report.datBis = datbis report.stat = stat @@ -127,6 +131,7 @@ Public Class frmPrintLayout Public Sub AuswertungKontrolleLKW(datvon, datbis, FIRMA) Me.Text = "Auswertung LKWs" Dim report As rptKontrolleLKW = New rptKontrolleLKW + If a4Default Then report.PageSettings.PaperKind = GrapeCity.ActiveReports.Printing.PaperKind.A4 report.datVon = datvon report.datBis = datbis report.FIRMA = FIRMA @@ -137,6 +142,7 @@ Public Class frmPrintLayout Public Sub AuswertungKontrolleLKWZOLARIS(datvon, datbis, FIRMA, brg) Me.Text = "Auswertung LKWs" Dim report As rptKontrolleLKW_Zolaris = New rptKontrolleLKW_Zolaris + If a4Default Then report.PageSettings.PaperKind = GrapeCity.ActiveReports.Printing.PaperKind.A4 report.datVon = datvon report.datBis = datbis report.FIRMA = FIRMA @@ -149,6 +155,7 @@ Public Class frmPrintLayout Public Sub AuswertungKontrolleLKWDAKOSY(datvon, datbis, FIRMA, NCTSSystemDY, BRG) Me.Text = "Auswertung LKWs" Dim report As rptKontrolleLKW_Dakosy = New rptKontrolleLKW_Dakosy + If a4Default Then report.PageSettings.PaperKind = GrapeCity.ActiveReports.Printing.PaperKind.A4 report.datVon = datvon report.datBis = datbis report.FIRMA = FIRMA @@ -162,6 +169,7 @@ Public Class frmPrintLayout Public Sub AuswertungKontrolleLKW_NCTSTR(datvon, datbis, FIRMA, GRN) Me.Text = "Auswertung LKWs" Dim report As rptKontrolleLKW_NCTSTR = New rptKontrolleLKW_NCTSTR + If a4Default Then report.PageSettings.PaperKind = GrapeCity.ActiveReports.Printing.PaperKind.A4 report.datVon = datvon report.datBis = datbis report.FIRMA = FIRMA @@ -175,6 +183,7 @@ Public Class frmPrintLayout Public Sub AuswertungKontrolleLKWTELOTEC(datvon, datbis, FIRMA, BRG) Me.Text = "Auswertung LKWs" Dim report As rptKontrolleLKW_TELOTEC = New rptKontrolleLKW_TELOTEC + If a4Default Then report.PageSettings.PaperKind = GrapeCity.ActiveReports.Printing.PaperKind.A4 report.datVon = datvon report.datBis = datbis report.BRG = BRG diff --git a/SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb b/SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb index 094029c7..f65b2d99 100644 --- a/SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb +++ b/SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb @@ -22,25 +22,26 @@ Partial Class usrcntlKundeBearbeitenFull 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. Private Sub InitializeComponent() - 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() + Me.components = New System.ComponentModel.Container() + 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() + Dim DataGridViewCellStyle57 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() @@ -51,9 +52,11 @@ Partial Class usrcntlKundeBearbeitenFull Me.cboFremdspedition = New System.Windows.Forms.ComboBox() Me.cbxVerzolltBei = New System.Windows.Forms.CheckBox() Me.cbxBesonderheitenNEU = New System.Windows.Forms.CheckBox() + Me.UsrCntlKundenBesonderheiten1 = New SDL.usrCntlKundenBesonderheiten() Me.tbcntrAbf = New System.Windows.Forms.TabControl() Me.TabPage4 = New System.Windows.Forms.TabPage() Me.FlowLayoutPanel1 = New System.Windows.Forms.FlowLayoutPanel() + Me.UsrCntlKundenAvisoMailBenachrichtigung1 = New SDL.usrCntlKundenAvisoMailBenachrichtigung() Me.rtbLKWFreigabeSenden = New System.Windows.Forms.RichTextBox() Me.Label18 = New System.Windows.Forms.Label() Me.TabPage3 = New System.Windows.Forms.TabPage() @@ -67,6 +70,7 @@ Partial Class usrcntlKundeBearbeitenFull Me.cboAbfVerb_Abfertigungsverbot = New System.Windows.Forms.CheckBox() Me.txtAbfVerb_AbfertigungsverbotSeit = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.tbAufschub = New System.Windows.Forms.TabPage() + Me.usrCntlAufschubkonten = New SDL.usrCntlAufschubkonten() Me.TabPage1 = New System.Windows.Forms.TabPage() Me.Label78 = New System.Windows.Forms.Label() Me.cbxAbf_ZollVM = New System.Windows.Forms.CheckBox() @@ -91,6 +95,7 @@ Partial Class usrcntlKundeBearbeitenFull Me.rtbAbf_Besonderheiten = New System.Windows.Forms.RichTextBox() Me.Panel1 = New System.Windows.Forms.Panel() Me.tbFiskal = New System.Windows.Forms.TabPage() + Me.UsrCntlKundeFiskaldaten1 = New SDL.usrCntlKundeFiskaldaten() Me.tbVerrechnung = New System.Windows.Forms.TabPage() Me.cbxKapitalWaehrung = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.Label103 = New System.Windows.Forms.Label() @@ -272,6 +277,11 @@ Partial Class usrcntlKundeBearbeitenFull Me.tbZahlungsinfo = New System.Windows.Forms.TabPage() Me.Label102 = New System.Windows.Forms.Label() Me.rtb_Zahlungsinfo = New System.Windows.Forms.RichTextBox() + Me.tbBankverbindungen = New System.Windows.Forms.TabPage() + Me.dgvBankverbindungen = New System.Windows.Forms.DataGridView() + Me.btnBankspeichern = New VERAG_PROG_ALLGEMEIN.FlatButton() + Me.cbxAlleBVanzeigen = New System.Windows.Forms.CheckBox() + Me.Label108 = New System.Windows.Forms.Label() Me.lblEORI = New System.Windows.Forms.Label() Me.Label84 = New System.Windows.Forms.Label() Me.GroupBox3 = New System.Windows.Forms.GroupBox() @@ -335,6 +345,7 @@ Partial Class usrcntlKundeBearbeitenFull Me.tbKontakt = New System.Windows.Forms.TabControl() Me.TabPage10 = New System.Windows.Forms.TabPage() Me.TabPage11 = New System.Windows.Forms.TabPage() + Me.ucKundenKontakte = New SDL.usrCntlKundenKontakte() Me.Label50 = New System.Windows.Forms.Label() Me.Label68 = New System.Windows.Forms.Label() Me.pnlNeukunde = New System.Windows.Forms.Panel() @@ -356,16 +367,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.tbBankverbindungen = New System.Windows.Forms.TabPage() - Me.Label108 = New System.Windows.Forms.Label() - Me.cbxAlleBVanzeigen = New System.Windows.Forms.CheckBox() - Me.btnBankspeichern = New VERAG_PROG_ALLGEMEIN.FlatButton() - Me.ucKundenKontakte = New SDL.usrCntlKundenKontakte() - Me.UsrCntlKundenBesonderheiten1 = New SDL.usrCntlKundenBesonderheiten() - Me.UsrCntlKundenAvisoMailBenachrichtigung1 = New SDL.usrCntlKundenAvisoMailBenachrichtigung() - Me.usrCntlAufschubkonten = New SDL.usrCntlAufschubkonten() - Me.UsrCntlKundeFiskaldaten1 = New SDL.usrCntlKundeFiskaldaten() - Me.dgvBankverbindungen = New System.Windows.Forms.DataGridView() + Me.cnsBankverbindungen = New System.Windows.Forms.ContextMenuStrip(Me.components) + Me.ArchivierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.DokumentLöschenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.DokumentHinzufügenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.tbcntrDetails.SuspendLayout() Me.tbAbfertigung.SuspendLayout() Me.tbcntrAbf.SuspendLayout() @@ -392,6 +397,8 @@ Partial Class usrcntlKundeBearbeitenFull Me.tbSchnittstellen.SuspendLayout() CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).BeginInit() Me.tbZahlungsinfo.SuspendLayout() + Me.tbBankverbindungen.SuspendLayout() + CType(Me.dgvBankverbindungen, System.ComponentModel.ISupportInitialize).BeginInit() Me.GroupBox3.SuspendLayout() CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).BeginInit() Me.GroupBox1.SuspendLayout() @@ -399,8 +406,7 @@ Partial Class usrcntlKundeBearbeitenFull Me.TabPage10.SuspendLayout() Me.TabPage11.SuspendLayout() Me.pnlNeukunde.SuspendLayout() - Me.tbBankverbindungen.SuspendLayout() - CType(Me.dgvBankverbindungen, System.ComponentModel.ISupportInitialize).BeginInit() + Me.cnsBankverbindungen.SuspendLayout() Me.SuspendLayout() ' 'tbcntrDetails @@ -546,6 +552,16 @@ Partial Class usrcntlKundeBearbeitenFull Me.cbxBesonderheitenNEU.Text = "Besonderheiten NEU" Me.cbxBesonderheitenNEU.UseVisualStyleBackColor = True ' + 'UsrCntlKundenBesonderheiten1 + ' + Me.UsrCntlKundenBesonderheiten1.BackColor = System.Drawing.Color.White + Me.UsrCntlKundenBesonderheiten1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.UsrCntlKundenBesonderheiten1.Location = New System.Drawing.Point(6, 25) + Me.UsrCntlKundenBesonderheiten1.Name = "UsrCntlKundenBesonderheiten1" + Me.UsrCntlKundenBesonderheiten1.Size = New System.Drawing.Size(107, 52) + Me.UsrCntlKundenBesonderheiten1.TabIndex = 235 + Me.UsrCntlKundenBesonderheiten1.Visible = False + ' 'tbcntrAbf ' Me.tbcntrAbf.Controls.Add(Me.TabPage4) @@ -580,6 +596,15 @@ Partial Class usrcntlKundeBearbeitenFull Me.FlowLayoutPanel1.Size = New System.Drawing.Size(200, 100) Me.FlowLayoutPanel1.TabIndex = 7 ' + 'UsrCntlKundenAvisoMailBenachrichtigung1 + ' + Me.UsrCntlKundenAvisoMailBenachrichtigung1.AutoScroll = True + Me.UsrCntlKundenAvisoMailBenachrichtigung1.BackColor = System.Drawing.Color.White + Me.UsrCntlKundenAvisoMailBenachrichtigung1.Location = New System.Drawing.Point(0, 6) + Me.UsrCntlKundenAvisoMailBenachrichtigung1.Name = "UsrCntlKundenAvisoMailBenachrichtigung1" + Me.UsrCntlKundenAvisoMailBenachrichtigung1.Size = New System.Drawing.Size(479, 172) + Me.UsrCntlKundenAvisoMailBenachrichtigung1.TabIndex = 6 + ' 'rtbLKWFreigabeSenden ' Me.rtbLKWFreigabeSenden.Location = New System.Drawing.Point(485, 33) @@ -748,6 +773,14 @@ Partial Class usrcntlKundeBearbeitenFull Me.tbAufschub.Text = "Aufschubkonten" Me.tbAufschub.UseVisualStyleBackColor = True ' + 'usrCntlAufschubkonten + ' + Me.usrCntlAufschubkonten.Dock = System.Windows.Forms.DockStyle.Fill + Me.usrCntlAufschubkonten.Location = New System.Drawing.Point(3, 3) + Me.usrCntlAufschubkonten.Name = "usrCntlAufschubkonten" + Me.usrCntlAufschubkonten.Size = New System.Drawing.Size(652, 172) + Me.usrCntlAufschubkonten.TabIndex = 0 + ' 'TabPage1 ' Me.TabPage1.Controls.Add(Me.Label78) @@ -1053,6 +1086,15 @@ Partial Class usrcntlKundeBearbeitenFull Me.tbFiskal.Text = "Fiskal" Me.tbFiskal.UseVisualStyleBackColor = True ' + 'UsrCntlKundeFiskaldaten1 + ' + Me.UsrCntlKundeFiskaldaten1.BackColor = System.Drawing.Color.White + Me.UsrCntlKundeFiskaldaten1.Dock = System.Windows.Forms.DockStyle.Fill + Me.UsrCntlKundeFiskaldaten1.Location = New System.Drawing.Point(0, 0) + Me.UsrCntlKundeFiskaldaten1.Name = "UsrCntlKundeFiskaldaten1" + Me.UsrCntlKundeFiskaldaten1.Size = New System.Drawing.Size(672, 495) + Me.UsrCntlKundeFiskaldaten1.TabIndex = 0 + ' 'tbVerrechnung ' Me.tbVerrechnung.Controls.Add(Me.cbxKapitalWaehrung) @@ -2833,8 +2875,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 + DataGridViewCellStyle39.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvUmsatzbericht.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle39 Me.dgvUmsatzbericht.BackgroundColor = System.Drawing.Color.White Me.dgvUmsatzbericht.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvUmsatzbericht.Location = New System.Drawing.Point(6, 25) @@ -2933,8 +2975,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 + DataGridViewCellStyle40.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvOffenePosten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle40 Me.dgvOffenePosten.BackgroundColor = System.Drawing.Color.White Me.dgvOffenePosten.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvOffenePosten.Location = New System.Drawing.Point(6, 38) @@ -3095,41 +3137,41 @@ 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 + DataGridViewCellStyle41.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvKreditkarten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle41 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 + DataGridViewCellStyle42.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle42.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle42.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle42.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle42.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle42.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle42.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvKreditkarten.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle42 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 + DataGridViewCellStyle43.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle43.BackColor = System.Drawing.SystemColors.Window + 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.ControlText + DataGridViewCellStyle43.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle43.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle43.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.dgvKreditkarten.DefaultCellStyle = DataGridViewCellStyle43 Me.dgvKreditkarten.Location = New System.Drawing.Point(9, 20) Me.dgvKreditkarten.MultiSelect = False Me.dgvKreditkarten.Name = "dgvKreditkarten" Me.dgvKreditkarten.ReadOnly = True - 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 + DataGridViewCellStyle44.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle44.BackColor = System.Drawing.SystemColors.Control + 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.WindowText + DataGridViewCellStyle44.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle44.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle44.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvKreditkarten.RowHeadersDefaultCellStyle = DataGridViewCellStyle44 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 + DataGridViewCellStyle45.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.dgvKreditkarten.RowsDefaultCellStyle = DataGridViewCellStyle45 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) @@ -3268,26 +3310,26 @@ Partial Class usrcntlKundeBearbeitenFull ' 'dgvUstv_LaenderUndSteuernummern ' - DataGridViewCellStyle8.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.dgvUstv_LaenderUndSteuernummern.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle8 + DataGridViewCellStyle46.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvUstv_LaenderUndSteuernummern.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle46 Me.dgvUstv_LaenderUndSteuernummern.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.dgvUstv_LaenderUndSteuernummern.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle9 + DataGridViewCellStyle47.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle47.BackColor = System.Drawing.SystemColors.Control + 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.WindowText + DataGridViewCellStyle47.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle47.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle47.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvUstv_LaenderUndSteuernummern.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle47 Me.dgvUstv_LaenderUndSteuernummern.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.dgvUstv_LaenderUndSteuernummern.DefaultCellStyle = DataGridViewCellStyle10 + DataGridViewCellStyle48.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle48.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle48.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle48.ForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle48.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle48.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle48.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.dgvUstv_LaenderUndSteuernummern.DefaultCellStyle = DataGridViewCellStyle48 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, 321) @@ -3524,26 +3566,26 @@ Partial Class usrcntlKundeBearbeitenFull 'dgvSonst_IDSKunden ' Me.dgvSonst_IDSKunden.AllowUserToResizeRows = False - DataGridViewCellStyle11.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.dgvSonst_IDSKunden.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle11 + DataGridViewCellStyle49.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvSonst_IDSKunden.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle49 Me.dgvSonst_IDSKunden.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.dgvSonst_IDSKunden.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle12 + DataGridViewCellStyle50.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle50.BackColor = System.Drawing.SystemColors.Control + 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.WindowText + DataGridViewCellStyle50.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle50.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle50.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvSonst_IDSKunden.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle50 Me.dgvSonst_IDSKunden.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.dgvSonst_IDSKunden.DefaultCellStyle = DataGridViewCellStyle13 + DataGridViewCellStyle51.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle51.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle51.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle51.ForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle51.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle51.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle51.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.dgvSonst_IDSKunden.DefaultCellStyle = DataGridViewCellStyle51 Me.dgvSonst_IDSKunden.Location = New System.Drawing.Point(9, 251) Me.dgvSonst_IDSKunden.MultiSelect = False Me.dgvSonst_IDSKunden.Name = "dgvSonst_IDSKunden" @@ -3760,26 +3802,26 @@ Partial Class usrcntlKundeBearbeitenFull 'DataGridView1 ' Me.DataGridView1.AllowUserToResizeRows = False - DataGridViewCellStyle14.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.DataGridView1.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle14 + DataGridViewCellStyle52.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.DataGridView1.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle52 Me.DataGridView1.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.DataGridView1.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle15 + DataGridViewCellStyle53.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle53.BackColor = System.Drawing.SystemColors.Control + 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.WindowText + DataGridViewCellStyle53.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle53.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle53.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.DataGridView1.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle53 Me.DataGridView1.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.DataGridView1.DefaultCellStyle = DataGridViewCellStyle16 + DataGridViewCellStyle54.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle54.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle54.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle54.ForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle54.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle54.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle54.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.DataGridView1.DefaultCellStyle = DataGridViewCellStyle54 Me.DataGridView1.Enabled = False Me.DataGridView1.Location = New System.Drawing.Point(6, 111) Me.DataGridView1.MultiSelect = False @@ -3816,6 +3858,85 @@ Partial Class usrcntlKundeBearbeitenFull Me.rtb_Zahlungsinfo.TabIndex = 40 Me.rtb_Zahlungsinfo.Text = "" ' + 'tbBankverbindungen + ' + Me.tbBankverbindungen.Controls.Add(Me.dgvBankverbindungen) + Me.tbBankverbindungen.Controls.Add(Me.btnBankspeichern) + Me.tbBankverbindungen.Controls.Add(Me.cbxAlleBVanzeigen) + Me.tbBankverbindungen.Controls.Add(Me.Label108) + Me.tbBankverbindungen.Location = New System.Drawing.Point(4, 22) + Me.tbBankverbindungen.Name = "tbBankverbindungen" + Me.tbBankverbindungen.Size = New System.Drawing.Size(672, 495) + Me.tbBankverbindungen.TabIndex = 12 + Me.tbBankverbindungen.Text = "Bankverbindung" + Me.tbBankverbindungen.UseVisualStyleBackColor = True + ' + 'dgvBankverbindungen + ' + Me.dgvBankverbindungen.AllowUserToDeleteRows = False + Me.dgvBankverbindungen.AllowUserToResizeRows = False + DataGridViewCellStyle55.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvBankverbindungen.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle55 + Me.dgvBankverbindungen.BackgroundColor = System.Drawing.Color.White + DataGridViewCellStyle56.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle56.BackColor = System.Drawing.SystemColors.Control + 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.WindowText + DataGridViewCellStyle56.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle56.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle56.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvBankverbindungen.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle56 + Me.dgvBankverbindungen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + DataGridViewCellStyle57.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle57.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle57.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle57.ForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle57.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle57.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle57.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.dgvBankverbindungen.DefaultCellStyle = DataGridViewCellStyle57 + Me.dgvBankverbindungen.Location = New System.Drawing.Point(3, 40) + Me.dgvBankverbindungen.MultiSelect = False + Me.dgvBankverbindungen.Name = "dgvBankverbindungen" + Me.dgvBankverbindungen.Size = New System.Drawing.Size(669, 243) + Me.dgvBankverbindungen.TabIndex = 137 + ' + 'btnBankspeichern + ' + Me.btnBankspeichern.allowBorder = False + Me.btnBankspeichern.Enabled = False + Me.btnBankspeichern.FlatAppearance.BorderSize = 0 + Me.btnBankspeichern.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnBankspeichern.ForeColor = System.Drawing.Color.Black + Me.btnBankspeichern.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnBankspeichern.Location = New System.Drawing.Point(503, 289) + Me.btnBankspeichern.Name = "btnBankspeichern" + Me.btnBankspeichern.Size = New System.Drawing.Size(157, 23) + Me.btnBankspeichern.TabIndex = 136 + Me.btnBankspeichern.Text = "Änderungen speichern" + Me.btnBankspeichern.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnBankspeichern.UseVisualStyleBackColor = True + ' + 'cbxAlleBVanzeigen + ' + Me.cbxAlleBVanzeigen.AutoSize = True + Me.cbxAlleBVanzeigen.Location = New System.Drawing.Point(578, 14) + Me.cbxAlleBVanzeigen.Name = "cbxAlleBVanzeigen" + Me.cbxAlleBVanzeigen.Size = New System.Drawing.Size(88, 17) + Me.cbxAlleBVanzeigen.TabIndex = 135 + Me.cbxAlleBVanzeigen.Text = "alle anzeigen" + Me.cbxAlleBVanzeigen.UseVisualStyleBackColor = True + ' + 'Label108 + ' + Me.Label108.AutoSize = True + Me.Label108.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label108.Location = New System.Drawing.Point(12, 18) + Me.Label108.Name = "Label108" + Me.Label108.Size = New System.Drawing.Size(100, 13) + Me.Label108.TabIndex = 133 + Me.Label108.Text = "Bankverbindungen:" + ' 'lblEORI ' Me.lblEORI.AutoSize = True @@ -4602,6 +4723,14 @@ Partial Class usrcntlKundeBearbeitenFull Me.TabPage11.Text = "Spezifisch" Me.TabPage11.UseVisualStyleBackColor = True ' + 'ucKundenKontakte + ' + Me.ucKundenKontakte.Dock = System.Windows.Forms.DockStyle.Fill + Me.ucKundenKontakte.Location = New System.Drawing.Point(3, 3) + Me.ucKundenKontakte.Name = "ucKundenKontakte" + Me.ucKundenKontakte.Size = New System.Drawing.Size(439, 169) + Me.ucKundenKontakte.TabIndex = 0 + ' 'Label50 ' Me.Label50.AutoSize = True @@ -4854,127 +4983,33 @@ Partial Class usrcntlKundeBearbeitenFull Me.DataGridViewTextBoxColumn2.HeaderText = "E-Mail" Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2" ' - 'tbBankverbindungen + 'cnsBankverbindungen ' - Me.tbBankverbindungen.Controls.Add(Me.dgvBankverbindungen) - Me.tbBankverbindungen.Controls.Add(Me.btnBankspeichern) - Me.tbBankverbindungen.Controls.Add(Me.cbxAlleBVanzeigen) - Me.tbBankverbindungen.Controls.Add(Me.Label108) - Me.tbBankverbindungen.Location = New System.Drawing.Point(4, 22) - Me.tbBankverbindungen.Name = "tbBankverbindungen" - Me.tbBankverbindungen.Size = New System.Drawing.Size(672, 495) - Me.tbBankverbindungen.TabIndex = 12 - Me.tbBankverbindungen.Text = "Bankverbindung" - Me.tbBankverbindungen.UseVisualStyleBackColor = True + Me.cnsBankverbindungen.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ArchivierenToolStripMenuItem, Me.DokumentHinzufügenToolStripMenuItem, Me.DokumentLöschenToolStripMenuItem}) + Me.cnsBankverbindungen.Name = "cnsBankverbindungen" + Me.cnsBankverbindungen.Size = New System.Drawing.Size(194, 92) ' - 'Label108 + 'ArchivierenToolStripMenuItem ' - Me.Label108.AutoSize = True - Me.Label108.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label108.Location = New System.Drawing.Point(12, 18) - Me.Label108.Name = "Label108" - Me.Label108.Size = New System.Drawing.Size(100, 13) - Me.Label108.TabIndex = 133 - Me.Label108.Text = "Bankverbindungen:" + Me.ArchivierenToolStripMenuItem.Image = Global.SDL.My.Resources.Resources.stift1 + Me.ArchivierenToolStripMenuItem.Name = "ArchivierenToolStripMenuItem" + Me.ArchivierenToolStripMenuItem.Size = New System.Drawing.Size(193, 22) + Me.ArchivierenToolStripMenuItem.Text = "archivieren" + Me.ArchivierenToolStripMenuItem.Visible = False ' - 'cbxAlleBVanzeigen + 'DokumentLöschenToolStripMenuItem ' - Me.cbxAlleBVanzeigen.AutoSize = True - Me.cbxAlleBVanzeigen.Location = New System.Drawing.Point(578, 14) - Me.cbxAlleBVanzeigen.Name = "cbxAlleBVanzeigen" - Me.cbxAlleBVanzeigen.Size = New System.Drawing.Size(88, 17) - Me.cbxAlleBVanzeigen.TabIndex = 135 - Me.cbxAlleBVanzeigen.Text = "alle anzeigen" - Me.cbxAlleBVanzeigen.UseVisualStyleBackColor = True + Me.DokumentLöschenToolStripMenuItem.Image = Global.SDL.My.Resources.Resources.del + Me.DokumentLöschenToolStripMenuItem.Name = "DokumentLöschenToolStripMenuItem" + Me.DokumentLöschenToolStripMenuItem.Size = New System.Drawing.Size(193, 22) + Me.DokumentLöschenToolStripMenuItem.Text = "Dokument löschen" ' - 'btnBankspeichern + 'DokumentHinzufügenToolStripMenuItem ' - Me.btnBankspeichern.allowBorder = False - Me.btnBankspeichern.Enabled = False - Me.btnBankspeichern.FlatAppearance.BorderSize = 0 - Me.btnBankspeichern.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnBankspeichern.ForeColor = System.Drawing.Color.Black - Me.btnBankspeichern.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnBankspeichern.Location = New System.Drawing.Point(503, 289) - Me.btnBankspeichern.Name = "btnBankspeichern" - Me.btnBankspeichern.Size = New System.Drawing.Size(157, 23) - Me.btnBankspeichern.TabIndex = 136 - Me.btnBankspeichern.Text = "Änderungen speichern" - Me.btnBankspeichern.TextAlign = System.Drawing.ContentAlignment.MiddleRight - Me.btnBankspeichern.UseVisualStyleBackColor = True - ' - 'ucKundenKontakte - ' - Me.ucKundenKontakte.Dock = System.Windows.Forms.DockStyle.Fill - Me.ucKundenKontakte.Location = New System.Drawing.Point(3, 3) - Me.ucKundenKontakte.Name = "ucKundenKontakte" - Me.ucKundenKontakte.Size = New System.Drawing.Size(439, 169) - Me.ucKundenKontakte.TabIndex = 0 - ' - 'UsrCntlKundenBesonderheiten1 - ' - Me.UsrCntlKundenBesonderheiten1.BackColor = System.Drawing.Color.White - Me.UsrCntlKundenBesonderheiten1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.UsrCntlKundenBesonderheiten1.Location = New System.Drawing.Point(6, 25) - Me.UsrCntlKundenBesonderheiten1.Name = "UsrCntlKundenBesonderheiten1" - Me.UsrCntlKundenBesonderheiten1.Size = New System.Drawing.Size(107, 52) - Me.UsrCntlKundenBesonderheiten1.TabIndex = 235 - Me.UsrCntlKundenBesonderheiten1.Visible = False - ' - 'UsrCntlKundenAvisoMailBenachrichtigung1 - ' - Me.UsrCntlKundenAvisoMailBenachrichtigung1.AutoScroll = True - Me.UsrCntlKundenAvisoMailBenachrichtigung1.BackColor = System.Drawing.Color.White - Me.UsrCntlKundenAvisoMailBenachrichtigung1.Location = New System.Drawing.Point(0, 6) - Me.UsrCntlKundenAvisoMailBenachrichtigung1.Name = "UsrCntlKundenAvisoMailBenachrichtigung1" - Me.UsrCntlKundenAvisoMailBenachrichtigung1.Size = New System.Drawing.Size(479, 172) - Me.UsrCntlKundenAvisoMailBenachrichtigung1.TabIndex = 6 - ' - 'usrCntlAufschubkonten - ' - Me.usrCntlAufschubkonten.Dock = System.Windows.Forms.DockStyle.Fill - Me.usrCntlAufschubkonten.Location = New System.Drawing.Point(3, 3) - Me.usrCntlAufschubkonten.Name = "usrCntlAufschubkonten" - Me.usrCntlAufschubkonten.Size = New System.Drawing.Size(652, 172) - Me.usrCntlAufschubkonten.TabIndex = 0 - ' - 'UsrCntlKundeFiskaldaten1 - ' - Me.UsrCntlKundeFiskaldaten1.BackColor = System.Drawing.Color.White - Me.UsrCntlKundeFiskaldaten1.Dock = System.Windows.Forms.DockStyle.Fill - Me.UsrCntlKundeFiskaldaten1.Location = New System.Drawing.Point(0, 0) - Me.UsrCntlKundeFiskaldaten1.Name = "UsrCntlKundeFiskaldaten1" - Me.UsrCntlKundeFiskaldaten1.Size = New System.Drawing.Size(672, 495) - Me.UsrCntlKundeFiskaldaten1.TabIndex = 0 - ' - 'dgvBankverbindungen - ' - Me.dgvBankverbindungen.AllowUserToResizeRows = False - DataGridViewCellStyle17.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.dgvBankverbindungen.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle17 - Me.dgvBankverbindungen.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.dgvBankverbindungen.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle18 - Me.dgvBankverbindungen.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.dgvBankverbindungen.DefaultCellStyle = DataGridViewCellStyle19 - Me.dgvBankverbindungen.Location = New System.Drawing.Point(3, 40) - Me.dgvBankverbindungen.MultiSelect = False - Me.dgvBankverbindungen.Name = "dgvBankverbindungen" - Me.dgvBankverbindungen.Size = New System.Drawing.Size(657, 243) - Me.dgvBankverbindungen.TabIndex = 137 + Me.DokumentHinzufügenToolStripMenuItem.Image = Global.SDL.My.Resources.Resources.pdf_s + Me.DokumentHinzufügenToolStripMenuItem.Name = "DokumentHinzufügenToolStripMenuItem" + Me.DokumentHinzufügenToolStripMenuItem.Size = New System.Drawing.Size(193, 22) + Me.DokumentHinzufügenToolStripMenuItem.Text = "Dokument hinzufügen" ' 'usrcntlKundeBearbeitenFull ' @@ -5052,6 +5087,9 @@ Partial Class usrcntlKundeBearbeitenFull CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).EndInit() Me.tbZahlungsinfo.ResumeLayout(False) Me.tbZahlungsinfo.PerformLayout() + Me.tbBankverbindungen.ResumeLayout(False) + Me.tbBankverbindungen.PerformLayout() + CType(Me.dgvBankverbindungen, System.ComponentModel.ISupportInitialize).EndInit() Me.GroupBox3.ResumeLayout(False) Me.GroupBox3.PerformLayout() CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).EndInit() @@ -5063,9 +5101,7 @@ Partial Class usrcntlKundeBearbeitenFull Me.TabPage11.ResumeLayout(False) Me.pnlNeukunde.ResumeLayout(False) Me.pnlNeukunde.PerformLayout() - Me.tbBankverbindungen.ResumeLayout(False) - Me.tbBankverbindungen.PerformLayout() - CType(Me.dgvBankverbindungen, System.ComponentModel.ISupportInitialize).EndInit() + Me.cnsBankverbindungen.ResumeLayout(False) Me.ResumeLayout(False) Me.PerformLayout() @@ -5395,4 +5431,8 @@ Partial Class usrcntlKundeBearbeitenFull Friend WithEvents cbxAlleBVanzeigen As CheckBox Friend WithEvents btnBankspeichern As VERAG_PROG_ALLGEMEIN.FlatButton Friend WithEvents dgvBankverbindungen As DataGridView + Friend WithEvents cnsBankverbindungen As ContextMenuStrip + Friend WithEvents ArchivierenToolStripMenuItem As ToolStripMenuItem + Friend WithEvents DokumentLöschenToolStripMenuItem As ToolStripMenuItem + Friend WithEvents DokumentHinzufügenToolStripMenuItem As ToolStripMenuItem End Class diff --git a/SDL/kunden/usrcntlKundeBearbeitenFull.resx b/SDL/kunden/usrcntlKundeBearbeitenFull.resx index 1af7de15..80e13c27 100644 --- a/SDL/kunden/usrcntlKundeBearbeitenFull.resx +++ b/SDL/kunden/usrcntlKundeBearbeitenFull.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/kunden/usrcntlKundeBearbeitenFull.vb b/SDL/kunden/usrcntlKundeBearbeitenFull.vb index 52f53c8b..a1062144 100644 --- a/SDL/kunden/usrcntlKundeBearbeitenFull.vb +++ b/SDL/kunden/usrcntlKundeBearbeitenFull.vb @@ -1,4 +1,5 @@ Imports System.ComponentModel +Imports System.Windows.Documents Imports com.sun.org.apache.bcel.internal.generic Imports com.sun.tools.javac Imports GrapeCity.ActiveReports.ReportsCore.Tools @@ -1136,82 +1137,11 @@ Public Class usrcntlKundeBearbeitenFull End If If tbcntrDetails.SelectedTab Is tbBankverbindungen Then - - With dgvBankverbindungen - - cBinding_dgvBankverbindungen.initBinding(" SELECT * " & - " FROM tblBankverbindungen " & - " WHERE bnk_KundenNr = '" & KUNDE.KundenNr & "' ", "tbl_IDS_Kunden") - - AddHandler btnBankspeichern.Click, - Sub(send As Object, evnt As EventArgs) - If cBinding_dgvBankverbindungen.updateBinding() Then - send.Enabled = False - End If - End Sub - - AddHandler cBinding_dgvBankverbindungen.bindingdataTable.ColumnChanged, - Sub(send As Object, evnt As EventArgs) - btnBankspeichern.Enabled = True - End Sub - - AddHandler .UserDeletedRow, - Sub(send As Object, evnt As DataGridViewRowEventArgs) - btnBankspeichern.Enabled = True - - End Sub - - - - .DataSource = cBinding_dgvBankverbindungen.bindingdataTable - - - .DataSource.Columns("bnk_KundenNr").DefaultValue = KUNDE.KundenNr - - .Columns(0).Visible = False - .Columns(6).Visible = False - - - .Columns(1).HeaderText = "Kunden-Nummer" - .Columns(2).HeaderText = "IBAN" - .Columns(3).HeaderText = "BIC" - .Columns(4).HeaderText = "Name" - .Columns(5).HeaderText = "Adresse" - .Columns(7).HeaderText = "Archiv" - .Columns(8).HeaderText = "Datum" - - .Columns(2).ReadOnly = False - .Columns(3).ReadOnly = False - .Columns(4).ReadOnly = False - .Columns(5).ReadOnly = False - .Columns(7).ReadOnly = False - .Columns(8).ReadOnly = False - - - 'Dim c As New DataGridViewImageColumn - 'c.Name = "clmnPDF" : c.HeaderText = "DOK" - - 'c.DefaultCellStyle.NullValue = Nothing - 'c.ImageLayout = DataGridViewImageCellLayout.Zoom - 'c.Width = 40 : c.DefaultCellStyle.Padding = New Padding(2) : c.DefaultCellStyle.BackColor = Color.White - - '.Columns.Add(c) - - 'For Each r As DataGridViewRow In .Rows - ' If Not IsDBNull(r.Cells("bnk_daid").Value) AndAlso r.Cells("bnk_daid").Value > 0 Then - ' DirectCast(r.Cells("clmnPDF"), DataGridViewImageCell).Value = My.Resources.pdf - ' Else - ' DirectCast(r.Cells("clmnPDF"), DataGridViewImageCell).Value = Nothing - ' End If - 'Next - - - - End With - + initdgvBankverbindungen() End If + End Sub Dim cBinding_dgvUStV As New cBinding("FMZOLL") @@ -1951,4 +1881,180 @@ Public Class usrcntlKundeBearbeitenFull txtWechsel.Enabled = True End If End Sub + + + Private Sub cbxAlleBVanzeigen_CheckedChanged(sender As Object, e As EventArgs) Handles cbxAlleBVanzeigen.CheckedChanged + + initdgvBankverbindungen(cbxAlleBVanzeigen.Checked) + + End Sub + + Sub initdgvBankverbindungen(Optional archivierteDSAnzeigen As Boolean = False) + With dgvBankverbindungen + + cBinding_dgvBankverbindungen.initBinding(" SELECT * " & + " FROM tblBankverbindungen " & + " WHERE bnk_KundenNr = '" & KUNDE.KundenNr & "'" & IIf(Not archivierteDSAnzeigen, " AND ISNULL(bnk_archiv,0) = 0", ""), "tbl_IDS_Kunden") + + AddHandler btnBankspeichern.Click, + Sub(send As Object, evnt As EventArgs) + If cBinding_dgvBankverbindungen.updateBinding() Then + send.Enabled = False + End If + End Sub + + AddHandler cBinding_dgvBankverbindungen.bindingdataTable.ColumnChanged, + Sub(send As Object, evnt As EventArgs) + btnBankspeichern.Enabled = True + End Sub + + AddHandler .UserDeletedRow, + Sub(send As Object, evnt As DataGridViewRowEventArgs) + btnBankspeichern.Enabled = True + + End Sub + + .DataSource = cBinding_dgvBankverbindungen.bindingdataTable + + + .DataSource.Columns("bnk_KundenNr").DefaultValue = KUNDE.KundenNr + + .Columns(0).Visible = False + .Columns(6).Visible = False + If archivierteDSAnzeigen Then + .Columns(8).Visible = True + .Columns(9).Visible = True + .Columns(8).HeaderText = "Archiv" + .Columns(9).HeaderText = "Datum" + '.Columns(8).ReadOnly = False + '.Columns(9).ReadOnly = False + Else + .Columns(8).Visible = False + .Columns(9).Visible = False + End If + + .Columns(1).HeaderText = "Kunden-Nummer" + .Columns(2).HeaderText = "IBAN" + .Columns(3).HeaderText = "BIC" + .Columns(4).HeaderText = "Name" + .Columns(5).HeaderText = "Adresse" + .Columns(7).HeaderText = "Hauptkonto" + + + .Columns(2).ReadOnly = False + .Columns(3).ReadOnly = False + .Columns(4).ReadOnly = False + .Columns(5).ReadOnly = False + .Columns(7).ReadOnly = False + + If Not .Columns.Contains("clmnPDF") Then + Dim c As New DataGridViewImageColumn + c.Name = "clmnPDF" : c.HeaderText = "DOK" + c.DefaultCellStyle.NullValue = Nothing + c.ImageLayout = DataGridViewImageCellLayout.Zoom + c.Width = 40 : c.DefaultCellStyle.Padding = New Padding(2) : c.DefaultCellStyle.BackColor = Color.White + .Columns.Add(c) + End If + + + For Each r As DataGridViewRow In .Rows + If Not IsDBNull(r.Cells("bnk_daid").Value) AndAlso r.Cells("bnk_daid").Value > 0 Then + DirectCast(r.Cells("clmnPDF"), DataGridViewImageCell).Value = My.Resources.pdf + Else + DirectCast(r.Cells("clmnPDF"), DataGridViewImageCell).Value = Nothing + End If + Next + + + End With + + End Sub + + Private Sub DokumentLöschenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DokumentLöschenToolStripMenuItem.Click + + If dgvBankverbindungen.CurrentRow.Cells("bnk_daid").Value Is Nothing Or IsDBNull(dgvBankverbindungen.CurrentRow.Cells("bnk_daid").Value) Then + Exit Sub + End If + + If vbYes = MsgBox("Möchten Sie das Dokument wirklich löschen?", vbYesNoCancel) Then + + Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(dgvBankverbindungen.CurrentRow.Cells("bnk_daid").Value) + If DS.DELETE_COMPLETE() Then + sql.doSQLVarList("UPDATE [tblBankverbindungen] set bnk_daid = NULL WHERE bnk_id=" & dgvBankverbindungen.CurrentRow.Cells("bnk_id").Value, "FMZOLL") + End If + + initdgvBankverbindungen(cbxAlleBVanzeigen.Checked) + + End If + + End Sub + + Private Sub ArchivierenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ArchivierenToolStripMenuItem.Click + + If dgvBankverbindungen.CurrentRow.Cells("bnk_archiv").Value Is Nothing OrElse (Not IsDBNull(dgvBankverbindungen.CurrentRow.Cells("bnk_archiv").Value) AndAlso dgvBankverbindungen.CurrentRow.Cells("bnk_archiv").Value) AndAlso dgvBankverbindungen.CurrentRow.Cells("bnk_id").Value IsNot Nothing Then + Exit Sub + End If + + If vbYes = MsgBox("Möchten Sie diese Bankverbindung wirklich archivieren?", vbYesNoCancel) Then + + sql.doSQLVarList("UPDATE [tblBankverbindungen] set bnk_archiv=1, [bnk_archiviertDatum]=GETDATE() WHERE bnk_id=" & dgvBankverbindungen.CurrentRow.Cells("bnk_id").Value, "FMZOLL") + + initdgvBankverbindungen(cbxAlleBVanzeigen.Checked) + + End If + + End Sub + + Private Sub dgvBankverbindungen_CellMouseClick(sender As Object, e As DataGridViewCellMouseEventArgs) Handles dgvBankverbindungen.CellMouseClick + + If e.RowIndex < 0 Then Exit Sub 'Es wurde außerhalb einer gültigen Datenzeile geklickt + + DirectCast(sender, DataGridView).Rows(e.RowIndex).Selected = True + If e.Button = MouseButtons.Right Then + + + If sender Is dgvBankverbindungen Then + If dgvBankverbindungen.SelectedRows.Count = 0 Then Exit Sub 'Es wurde außerhalb einer gültigen Datenzeile geklickt + dgvBankverbindungen.CurrentCell = dgvBankverbindungen.Rows(e.RowIndex).Cells(e.ColumnIndex) + + If dgvBankverbindungen.CurrentRow.Cells("bnk_archiv").Value Is Nothing OrElse (Not IsDBNull(dgvBankverbindungen.CurrentRow.Cells("bnk_archiv").Value) AndAlso dgvBankverbindungen.CurrentRow.Cells("bnk_archiv").Value) AndAlso dgvBankverbindungen.CurrentRow.Cells("bnk_id").Value IsNot Nothing Then + ArchivierenToolStripMenuItem.Visible = False + Else + ArchivierenToolStripMenuItem.Visible = True + End If + + + If dgvBankverbindungen.CurrentRow.Cells("bnk_daid").Value Is Nothing Or IsDBNull(dgvBankverbindungen.CurrentRow.Cells("bnk_daid").Value) Then + DokumentLöschenToolStripMenuItem.Visible = False + DokumentHinzufügenToolStripMenuItem.Visible = True + Else + DokumentLöschenToolStripMenuItem.Visible = True + DokumentHinzufügenToolStripMenuItem.Visible = False + End If + + + cnsBankverbindungen.Show(Cursor.Position) + + End If + + + + End If + + End Sub + + Private Sub DokumentHinzufügenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DokumentHinzufügenToolStripMenuItem.Click + + If dgvBankverbindungen.CurrentRow.Cells("bnk_id").Value Is Nothing Or IsDBNull(dgvBankverbindungen.CurrentRow.Cells("bnk_id").Value) Then + Exit Sub + End If + + Dim Bankname = IIf(dgvBankverbindungen.CurrentRow.Cells("bnk_name").Value IsNot Nothing, dgvBankverbindungen.CurrentRow.Cells("bnk_name").Value, "BANK") + Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "KD_ANHÄNGE", "BANKVERBINDUNG", "", "", Bankname, KUNDE.KundenNr) + If DS.uploadDataToDATENSERVERFileDialog(, ".pdf", , "PDF") Then + sql.doSQLVarList("UPDATE [tblBankverbindungen] set bnk_daid= " & DS.da_id & " WHERE bnk_id=" & dgvBankverbindungen.CurrentRow.Cells("bnk_id").Value, "FMZOLL") + initdgvBankverbindungen(cbxAlleBVanzeigen.Checked) + + End If + End Sub End Class