Kundenuebersicht etc.

2026-11-11 10:22:14 +01:00
parent 104287f89b
commit a5e1bd9672
15 changed files with 10729 additions and 2588 deletions
--- a/VERAG_PROG_ALLGEMEIN/AuditFlow/frmFirmenuebersicht.Designer.vb
+++ b/VERAG_PROG_ALLGEMEIN/AuditFlow/frmFirmenuebersicht.Designer.vb
@@ -22,11 +22,11 @@ Partial Class frmFirmenuebersicht
    'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
    <System.Diagnostics.DebuggerStepThrough()>
    Private Sub InitializeComponent()
-        Me.components = New System.ComponentModel.Container()
        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmFirmenuebersicht))
        Me.Panel1 = New System.Windows.Forms.Panel()
        Me.pnloptions = New System.Windows.Forms.Panel()
+        Me.Label7 = New System.Windows.Forms.Label()
        Me.Button2 = New System.Windows.Forms.Button()
        Me.Panel2 = New System.Windows.Forms.Panel()
        Me.lblMail2 = New System.Windows.Forms.Label()
@@ -49,9 +49,8 @@ Partial Class frmFirmenuebersicht
        Me.Label5 = New System.Windows.Forms.Label()
        Me.pnlTop = New System.Windows.Forms.Panel()
        Me.Label4 = New System.Windows.Forms.Label()
-        Me.dgvFirmen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
-        Me.dgvEmailSettings = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
-        Me.Label7 = New System.Windows.Forms.Label()
+        Me.dgvFirmen = New VERAG_PROG_ALLGEMEIN.MyDatagridview()
+        Me.dgvEmailSettings = New VERAG_PROG_ALLGEMEIN.MyDatagridview()
        Me.Panel1.SuspendLayout()
        Me.pnloptions.SuspendLayout()
        Me.Panel2.SuspendLayout()
@@ -72,7 +71,7 @@ Partial Class frmFirmenuebersicht
        Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill
        Me.Panel1.Location = New System.Drawing.Point(0, 0)
        Me.Panel1.Name = "Panel1"
-        Me.Panel1.Size = New System.Drawing.Size(1503, 789)
+        Me.Panel1.Size = New System.Drawing.Size(1533, 789)
        Me.Panel1.TabIndex = 4
        '
        'pnloptions
@@ -84,9 +83,19 @@ Partial Class frmFirmenuebersicht
        Me.pnloptions.Dock = System.Windows.Forms.DockStyle.Bottom
        Me.pnloptions.Location = New System.Drawing.Point(0, 632)
        Me.pnloptions.Name = "pnloptions"
-        Me.pnloptions.Size = New System.Drawing.Size(1503, 157)
+        Me.pnloptions.Size = New System.Drawing.Size(1533, 157)
        Me.pnloptions.TabIndex = 12
        '
+        'Label7
+        '
+        Me.Label7.AutoSize = True
+        Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label7.Location = New System.Drawing.Point(1068, 11)
+        Me.Label7.Name = "Label7"
+        Me.Label7.Size = New System.Drawing.Size(174, 13)
+        Me.Label7.TabIndex = 41
+        Me.Label7.Text = "Mail-Exchange-Einstellungen:"
+        '
        'Button2
        '
        Me.Button2.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
@@ -128,7 +137,7 @@ Partial Class frmFirmenuebersicht
        Me.Panel2.Dock = System.Windows.Forms.DockStyle.Top
        Me.Panel2.Location = New System.Drawing.Point(0, 0)
        Me.Panel2.Name = "Panel2"
-        Me.Panel2.Size = New System.Drawing.Size(1503, 118)
+        Me.Panel2.Size = New System.Drawing.Size(1533, 118)
        Me.Panel2.TabIndex = 11
        '
        'lblMail2
@@ -314,7 +323,7 @@ Partial Class frmFirmenuebersicht
        Me.pnlTop.Dock = System.Windows.Forms.DockStyle.Top
        Me.pnlTop.Location = New System.Drawing.Point(0, 0)
        Me.pnlTop.Name = "pnlTop"
-        Me.pnlTop.Size = New System.Drawing.Size(1503, 41)
+        Me.pnlTop.Size = New System.Drawing.Size(1533, 41)
        Me.pnlTop.TabIndex = 6
        '
        'Label4
@@ -335,6 +344,8 @@ Partial Class frmFirmenuebersicht
        Me.dgvFirmen.AllowUserToDeleteRows = False
        Me.dgvFirmen.AllowUserToOrderColumns = True
        Me.dgvFirmen.AllowUserToResizeRows = False
+        Me.dgvFirmen.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.dgvFirmen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
        DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
        DataGridViewCellStyle1.BackColor = System.Drawing.SystemColors.Window
@@ -344,11 +355,10 @@ Partial Class frmFirmenuebersicht
        DataGridViewCellStyle1.SelectionForeColor = System.Drawing.SystemColors.ControlText
        DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
        Me.dgvFirmen.DefaultCellStyle = DataGridViewCellStyle1
-        Me.dgvFirmen.Dock = System.Windows.Forms.DockStyle.Fill
        Me.dgvFirmen.Location = New System.Drawing.Point(0, 118)
        Me.dgvFirmen.Name = "dgvFirmen"
        Me.dgvFirmen.RowHeadersVisible = False
-        Me.dgvFirmen.Size = New System.Drawing.Size(1503, 514)
+        Me.dgvFirmen.Size = New System.Drawing.Size(1530, 514)
        Me.dgvFirmen.TabIndex = 10
        '
        'dgvEmailSettings
@@ -356,31 +366,23 @@ Partial Class frmFirmenuebersicht
        Me.dgvEmailSettings.AKTUALISIERUNGS_INTERVALL = -1
        Me.dgvEmailSettings.AllowUserToAddRows = False
        Me.dgvEmailSettings.AllowUserToDeleteRows = False
+        Me.dgvEmailSettings.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.dgvEmailSettings.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
        Me.dgvEmailSettings.Location = New System.Drawing.Point(1071, 27)
        Me.dgvEmailSettings.Name = "dgvEmailSettings"
        Me.dgvEmailSettings.ReadOnly = True
        Me.dgvEmailSettings.RowHeadersVisible = False
        Me.dgvEmailSettings.ShowEditingIcon = False
-        Me.dgvEmailSettings.Size = New System.Drawing.Size(429, 127)
+        Me.dgvEmailSettings.Size = New System.Drawing.Size(459, 127)
        Me.dgvEmailSettings.TabIndex = 2
        '
-        'Label7
-        '
-        Me.Label7.AutoSize = True
-        Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label7.Location = New System.Drawing.Point(1068, 11)
-        Me.Label7.Name = "Label7"
-        Me.Label7.Size = New System.Drawing.Size(174, 13)
-        Me.Label7.TabIndex = 41
-        Me.Label7.Text = "Mail-Exchange-Einstellungen:"
-        '
        'frmFirmenuebersicht
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
        Me.BackColor = System.Drawing.Color.White
-        Me.ClientSize = New System.Drawing.Size(1503, 789)
+        Me.ClientSize = New System.Drawing.Size(1533, 789)
        Me.Controls.Add(Me.pnlTop)
        Me.Controls.Add(Me.Panel1)
        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
--- a/VERAG_PROG_ALLGEMEIN/AuditFlow/frmFirmenuebersicht.vb
+++ b/VERAG_PROG_ALLGEMEIN/AuditFlow/frmFirmenuebersicht.vb
@@ -28,9 +28,9 @@ Public Class frmFirmenuebersicht

            sqlstr &= " Select [Firma_ID] ,[Firma_Bez],[Firma_Straße],[Firma_PLZ],[Firma_Ort],[Firma_LandKz] as Land,replace([Firma_Telefon],'Tel. ','') as Firma_Telefon ,replace([Firma_Telefax],'Fax ','') as Firma_Telefax ,Replace([Firma_UID],'UID: ', '') as Firma_UID ,Replace([Firma_EORI],'EORI: ', '') as Firma_EORI,
            [Firma_Bankverbindung1],Replace([Firma_IBAN1],'IBAN: ', '') as Firma_IBAN1, Replace([Firma_BIC1],'BIC: ', '') as Firma_BIC1,[Firma_Bankverbindung2],[Firma_IBAN2],[Firma_BIC2],[Firma_E-Mail],
-            [Firma_Webadresse],[Firmengruppe],[Firma_Warenort],[Firma_E_Mail_Mahnungen],[Firma_E_Mail_Fakturierung],[Firma_Steuernummer] ,Replace([Firma_Firmenbuch],'Firmenbuch: ', '') as Firma_Firmenbuch,[Firma_Logo],[Firma_Logo_Erweitert]  from tblFirma "
+            [Firma_Webadresse],[Firmengruppe],[Firma_Warenort],[Firma_E_Mail_Mahnungen],[Firma_E_Mail_Fakturierung],[Firma_Steuernummer] ,Replace([Firma_Firmenbuch],'Firmenbuch: ', '') as Firma_Firmenbuch,[Firma_Logo],[Firma_Logo_Erweitert], [Firma_enableUIDPruefung] as [UID-Prüfung]  from tblFirma "

-            Dim sqlstr_Mailsettings As String = "  select mail_username as 'user',mail_password as PW, mail_host as Host, mail_port as Port,mail_kindOfMail, mail_firmaID  from tblMailSettings"
+            Dim sqlstr_Mailsettings As String = "  select mail_username as 'user',mail_password as PW, mail_host as Host, mail_port as Port,mail_kindOfMail as kindOfMail, mail_firmaID  from tblMailSettings"

            dt = SQL.loadDgvBySql(sqlstr_Mailsettings, "ADMIN")

@@ -70,20 +70,25 @@ Public Class frmFirmenuebersicht
            .Columns("Firma_E_Mail_Mahnungen").Visible = False
            .Columns("Firma_E_Mail_Fakturierung").Visible = False

-            .Columns("Firma_ID").Width = 30
-            .Columns("Firma_Warenort").Width = 60
+            .Columns("Firma_ID").Width = 20
+
+            .Columns("Firma_Warenort").Width = 50
            .Columns("Firma_PLZ").Width = 60
            .Columns("Land").Width = 40
            .Columns("Firma_Bez").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill

+            .Columns("UID-Prüfung").Width = 75
+
+
            If Not dgvFirmen.Columns.Contains("EmailEinstellungen") Then
                Dim col As New DataGridViewCheckBoxColumn()

                col.Name = "EmailEinstellungen"
-                col.HeaderText = "E-Mail-Settings"
+                col.HeaderText = "EMail-Settings"
                col.ReadOnly = True

                dgvFirmen.Columns.Add(col)
+                .Columns("EmailEinstellungen").Width = 75
            End If

            For Each col As DataGridViewColumn In dgvFirmen.Columns
@@ -153,6 +158,7 @@ Public Class frmFirmenuebersicht
                If rows.Length > 0 Then
                    dgvEmailSettings.DataSource = rows.CopyToDataTable()
                    dgvEmailSettings.Columns("mail_firmaID").Visible = False
+                    dgvEmailSettings.Columns("user").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
                Else
                    dgvEmailSettings.DataSource = Nothing
                End If