Kundenverwaltung -> Ambar-Auswertung

Speditionsbuch -> Flender Bocholt-Auswertung
2022-12-19 14:05:43 +01:00
parent dc1f5281fc
commit 8b5ee27229
7 changed files with 269 additions and 93 deletions
--- a/SDL/kunden/frmKundenSucheUebersicht.Designer.vb
+++ b/SDL/kunden/frmKundenSucheUebersicht.Designer.vb
@@ -64,6 +64,7 @@ Partial Class frmKundenSucheUebersicht
        Me.Label22 = New System.Windows.Forms.Label()
        Me.Label4 = New System.Windows.Forms.Label()
        Me.pnlTop = New System.Windows.Forms.Panel()
+        Me.btnExcelAmbar = New System.Windows.Forms.Button()
        CType(Me.SplitContainer, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.SplitContainer.Panel1.SuspendLayout()
        Me.SplitContainer.Panel2.SuspendLayout()
@@ -162,12 +163,15 @@ Partial Class frmKundenSucheUebersicht
        Me.txtOrt._DateTimeOnly = False
        Me.txtOrt._numbersOnly = False
        Me.txtOrt._numbersOnlyKommastellen = ""
+        Me.txtOrt._numbersOnlyTrennzeichen = True
        Me.txtOrt._Prozent = False
        Me.txtOrt._ShortDateNew = False
        Me.txtOrt._ShortDateOnly = False
        Me.txtOrt._TimeOnly = False
+        Me.txtOrt._TimeOnly_Seconds = False
        Me.txtOrt._value = Nothing
        Me.txtOrt._Waehrung = False
+        Me.txtOrt._WaehrungZeichen = True
        Me.txtOrt.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.txtOrt.ForeColor = System.Drawing.Color.Black
        Me.txtOrt.Location = New System.Drawing.Point(189, 109)
@@ -183,12 +187,15 @@ Partial Class frmKundenSucheUebersicht
        Me.txtPlz._DateTimeOnly = False
        Me.txtPlz._numbersOnly = False
        Me.txtPlz._numbersOnlyKommastellen = ""
+        Me.txtPlz._numbersOnlyTrennzeichen = True
        Me.txtPlz._Prozent = False
        Me.txtPlz._ShortDateNew = False
        Me.txtPlz._ShortDateOnly = False
        Me.txtPlz._TimeOnly = False
+        Me.txtPlz._TimeOnly_Seconds = False
        Me.txtPlz._value = Nothing
        Me.txtPlz._Waehrung = False
+        Me.txtPlz._WaehrungZeichen = True
        Me.txtPlz.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.txtPlz.ForeColor = System.Drawing.Color.Black
        Me.txtPlz.Location = New System.Drawing.Point(125, 109)
@@ -214,12 +221,15 @@ Partial Class frmKundenSucheUebersicht
        Me.txtLand._DateTimeOnly = False
        Me.txtLand._numbersOnly = False
        Me.txtLand._numbersOnlyKommastellen = ""
+        Me.txtLand._numbersOnlyTrennzeichen = True
        Me.txtLand._Prozent = False
        Me.txtLand._ShortDateNew = False
        Me.txtLand._ShortDateOnly = False
        Me.txtLand._TimeOnly = False
+        Me.txtLand._TimeOnly_Seconds = False
        Me.txtLand._value = Nothing
        Me.txtLand._Waehrung = False
+        Me.txtLand._WaehrungZeichen = True
        Me.txtLand.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.txtLand.ForeColor = System.Drawing.Color.Black
        Me.txtLand.Location = New System.Drawing.Point(88, 109)
@@ -245,12 +255,15 @@ Partial Class frmKundenSucheUebersicht
        Me.txtStrasse._DateTimeOnly = False
        Me.txtStrasse._numbersOnly = False
        Me.txtStrasse._numbersOnlyKommastellen = ""
+        Me.txtStrasse._numbersOnlyTrennzeichen = True
        Me.txtStrasse._Prozent = False
        Me.txtStrasse._ShortDateNew = False
        Me.txtStrasse._ShortDateOnly = False
        Me.txtStrasse._TimeOnly = False
+        Me.txtStrasse._TimeOnly_Seconds = False
        Me.txtStrasse._value = Nothing
        Me.txtStrasse._Waehrung = False
+        Me.txtStrasse._WaehrungZeichen = True
        Me.txtStrasse.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.txtStrasse.ForeColor = System.Drawing.Color.Black
        Me.txtStrasse.Location = New System.Drawing.Point(88, 90)
@@ -276,12 +289,15 @@ Partial Class frmKundenSucheUebersicht
        Me.txtName._DateTimeOnly = False
        Me.txtName._numbersOnly = False
        Me.txtName._numbersOnlyKommastellen = ""
+        Me.txtName._numbersOnlyTrennzeichen = True
        Me.txtName._Prozent = False
        Me.txtName._ShortDateNew = False
        Me.txtName._ShortDateOnly = False
        Me.txtName._TimeOnly = False
+        Me.txtName._TimeOnly_Seconds = False
        Me.txtName._value = Nothing
        Me.txtName._Waehrung = False
+        Me.txtName._WaehrungZeichen = True
        Me.txtName.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.txtName.ForeColor = System.Drawing.Color.Black
        Me.txtName.Location = New System.Drawing.Point(88, 71)
@@ -297,12 +313,15 @@ Partial Class frmKundenSucheUebersicht
        Me.txtOrdnungsbegriff._DateTimeOnly = False
        Me.txtOrdnungsbegriff._numbersOnly = False
        Me.txtOrdnungsbegriff._numbersOnlyKommastellen = ""
+        Me.txtOrdnungsbegriff._numbersOnlyTrennzeichen = True
        Me.txtOrdnungsbegriff._Prozent = False
        Me.txtOrdnungsbegriff._ShortDateNew = False
        Me.txtOrdnungsbegriff._ShortDateOnly = False
        Me.txtOrdnungsbegriff._TimeOnly = False
+        Me.txtOrdnungsbegriff._TimeOnly_Seconds = False
        Me.txtOrdnungsbegriff._value = Nothing
        Me.txtOrdnungsbegriff._Waehrung = False
+        Me.txtOrdnungsbegriff._WaehrungZeichen = True
        Me.txtOrdnungsbegriff.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.txtOrdnungsbegriff.ForeColor = System.Drawing.Color.Black
        Me.txtOrdnungsbegriff.Location = New System.Drawing.Point(15, 30)
@@ -346,12 +365,15 @@ Partial Class frmKundenSucheUebersicht
        Me.txtKdNr_bis._DateTimeOnly = False
        Me.txtKdNr_bis._numbersOnly = False
        Me.txtKdNr_bis._numbersOnlyKommastellen = ""
+        Me.txtKdNr_bis._numbersOnlyTrennzeichen = True
        Me.txtKdNr_bis._Prozent = False
        Me.txtKdNr_bis._ShortDateNew = False
        Me.txtKdNr_bis._ShortDateOnly = False
        Me.txtKdNr_bis._TimeOnly = False
+        Me.txtKdNr_bis._TimeOnly_Seconds = False
        Me.txtKdNr_bis._value = Nothing
        Me.txtKdNr_bis._Waehrung = False
+        Me.txtKdNr_bis._WaehrungZeichen = True
        Me.txtKdNr_bis.Enabled = False
        Me.txtKdNr_bis.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.txtKdNr_bis.ForeColor = System.Drawing.Color.Black
@@ -368,12 +390,15 @@ Partial Class frmKundenSucheUebersicht
        Me.txtKdNr_von._DateTimeOnly = False
        Me.txtKdNr_von._numbersOnly = False
        Me.txtKdNr_von._numbersOnlyKommastellen = ""
+        Me.txtKdNr_von._numbersOnlyTrennzeichen = True
        Me.txtKdNr_von._Prozent = False
        Me.txtKdNr_von._ShortDateNew = False
        Me.txtKdNr_von._ShortDateOnly = False
        Me.txtKdNr_von._TimeOnly = False
+        Me.txtKdNr_von._TimeOnly_Seconds = False
        Me.txtKdNr_von._value = Nothing
        Me.txtKdNr_von._Waehrung = False
+        Me.txtKdNr_von._WaehrungZeichen = True
        Me.txtKdNr_von.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.txtKdNr_von.ForeColor = System.Drawing.Color.Black
        Me.txtKdNr_von.Location = New System.Drawing.Point(439, 30)
@@ -388,7 +413,7 @@ Partial Class frmKundenSucheUebersicht
        '
        Me.btnSuche.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.btnSuche.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.btnSuche.Image = Global.SDL.My.Resources.search
+        Me.btnSuche.Image = Global.SDL.My.Resources.Resources.search
        Me.btnSuche.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
        Me.btnSuche.Location = New System.Drawing.Point(1015, 6)
        Me.btnSuche.Name = "btnSuche"
@@ -404,7 +429,7 @@ Partial Class frmKundenSucheUebersicht
        Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.Button4.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold)
        Me.Button4.ForeColor = System.Drawing.Color.White
-        Me.Button4.Image = Global.SDL.My.Resources.pfeil_unten
+        Me.Button4.Image = Global.SDL.My.Resources.Resources.pfeil_unten
        Me.Button4.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
        Me.Button4.Location = New System.Drawing.Point(1015, 57)
        Me.Button4.Margin = New System.Windows.Forms.Padding(0)
@@ -493,6 +518,7 @@ Partial Class frmKundenSucheUebersicht
        'pnlOpt
        '
        Me.pnlOpt.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.pnlOpt.Controls.Add(Me.btnExcelAmbar)
        Me.pnlOpt.Controls.Add(Me.Label37)
        Me.pnlOpt.Controls.Add(Me.txtMaxSrch)
        Me.pnlOpt.Controls.Add(Me.pnlBerichte)
@@ -520,12 +546,15 @@ Partial Class frmKundenSucheUebersicht
        Me.txtMaxSrch._DateTimeOnly = False
        Me.txtMaxSrch._numbersOnly = True
        Me.txtMaxSrch._numbersOnlyKommastellen = ""
+        Me.txtMaxSrch._numbersOnlyTrennzeichen = True
        Me.txtMaxSrch._Prozent = False
        Me.txtMaxSrch._ShortDateNew = False
        Me.txtMaxSrch._ShortDateOnly = False
        Me.txtMaxSrch._TimeOnly = False
+        Me.txtMaxSrch._TimeOnly_Seconds = False
        Me.txtMaxSrch._value = ""
        Me.txtMaxSrch._Waehrung = False
+        Me.txtMaxSrch._WaehrungZeichen = True
        Me.txtMaxSrch.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.txtMaxSrch.ForeColor = System.Drawing.Color.Black
        Me.txtMaxSrch.Location = New System.Drawing.Point(1164, 22)
@@ -570,7 +599,7 @@ Partial Class frmKundenSucheUebersicht
        'Button1
        '
        Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Button1.Image = Global.SDL.My.Resources.plus
+        Me.Button1.Image = Global.SDL.My.Resources.Resources.plus
        Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
        Me.Button1.Location = New System.Drawing.Point(14, 24)
        Me.Button1.Margin = New System.Windows.Forms.Padding(0)
@@ -585,7 +614,7 @@ Partial Class frmKundenSucheUebersicht
        'btnExcel
        '
        Me.btnExcel.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
-        Me.btnExcel.BackgroundImage = Global.SDL.My.Resources.Excel_logo
+        Me.btnExcel.BackgroundImage = Global.SDL.My.Resources.Resources.Excel_logo
        Me.btnExcel.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
        Me.btnExcel.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.btnExcel.Location = New System.Drawing.Point(1117, 47)
@@ -597,7 +626,7 @@ Partial Class frmKundenSucheUebersicht
        'FlatButton7
        '
        Me.FlatButton7.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
-        Me.FlatButton7.BackgroundImage = Global.SDL.My.Resources.refresh
+        Me.FlatButton7.BackgroundImage = Global.SDL.My.Resources.Resources.refresh
        Me.FlatButton7.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
        Me.FlatButton7.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.FlatButton7.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
@@ -650,6 +679,22 @@ Partial Class frmKundenSucheUebersicht
        Me.pnlTop.Size = New System.Drawing.Size(1211, 48)
        Me.pnlTop.TabIndex = 0
        '
+        'btnExcelAmbar
+        '
+        Me.btnExcelAmbar.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.btnExcelAmbar.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
+        Me.btnExcelAmbar.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnExcelAmbar.Image = Global.SDL.My.Resources.Resources.Excel_logo
+        Me.btnExcelAmbar.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnExcelAmbar.Location = New System.Drawing.Point(942, 47)
+        Me.btnExcelAmbar.Name = "btnExcelAmbar"
+        Me.btnExcelAmbar.Size = New System.Drawing.Size(142, 34)
+        Me.btnExcelAmbar.TabIndex = 7
+        Me.btnExcelAmbar.Text = "verzollt bei Ambar"
+        Me.btnExcelAmbar.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.btnExcelAmbar.UseVisualStyleBackColor = True
+        Me.btnExcelAmbar.Visible = False
+        '
        'frmKundenSucheUebersicht
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
@@ -723,4 +768,5 @@ Partial Class frmKundenSucheUebersicht
    Friend WithEvents Button1 As System.Windows.Forms.Button
    Friend WithEvents Label37 As System.Windows.Forms.Label
    Friend WithEvents txtMaxSrch As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents btnExcelAmbar As Button
 End Class
--- a/SDL/kunden/frmKundenSucheUebersicht.vb
+++ b/SDL/kunden/frmKundenSucheUebersicht.vb
@@ -139,6 +139,11 @@ Public Class frmKundenSucheUebersicht
            pnlBerichte.Visible = True
        End If

+        If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "AMBAR" Then
+            btnExcelAmbar.Visible = True
+        End If
+
+
    End Sub
       

@@ -263,4 +268,27 @@ Public Class frmKundenSucheUebersicht
        txtKdNr_bis.Enabled = (txtKdNr_von.Text <> "")
        If txtKdNr_von.Text = "" Then txtKdNr_bis.Text = ""
    End Sub
+
+    Private Sub btnExcelAmbar_Click(sender As Object, e As EventArgs) Handles btnExcelAmbar.Click
+
+        Me.Cursor = Cursors.WaitCursor
+        Try
+
+            Dim dt As DataTable = SQL.loadDgvBySql("select AdressenNr,[Name 1],PLZ,   Ort,Straße,LandKz,kde_verzolltBei FROM adressen INNER JOIN tblKundenErweitert ON AdressenNr=kde_KundenNr
+            where AdressenNr between 3000000 and 3999999
+            And kde_verzolltBei LIKE '%AMBAR%'", "FMZOLL")
+
+            If dt IsNot Nothing And dt.Rows.Count > 0 Then
+
+                cProgramFunctions.genExcelFromDT_NEW(dt)
+
+            End If
+
+        Catch ex As Exception
+            MsgBox(ex.Message & ex.StackTrace)
+
+        End Try
+
+
+    End Sub
 End Class
--- a/SDL/kunden/usrCntlKundenuebersicht.vb
+++ b/SDL/kunden/usrCntlKundenuebersicht.vb
@@ -572,13 +572,13 @@ Public Class usrCntlKundenuebersicht
                    lblBonitaetRisikostufe.ForeColor = Color.White
                Case "B", "2"
                    lblBonitaetRisikostufe.BackColor = Color.LightGreen
-                    lblBonitaetRisikostufe.ForeColor = Color.White
+                    lblBonitaetRisikostufe.ForeColor = Color.Black
                Case "C", "3"
                    lblBonitaetRisikostufe.BackColor = Color.Yellow
-                    lblBonitaetRisikostufe.ForeColor = Color.White
+                    lblBonitaetRisikostufe.ForeColor = Color.Black
                Case "D", "4"
                    lblBonitaetRisikostufe.BackColor = Color.Orange
-                    lblBonitaetRisikostufe.ForeColor = Color.White
+                    lblBonitaetRisikostufe.ForeColor = Color.Black
                Case "E", "5"
                    lblBonitaetRisikostufe.BackColor = Color.Red
                    lblBonitaetRisikostufe.ForeColor = Color.White