Kundenverwaltung -> Ambar-Auswertung

Speditionsbuch -> Flender Bocholt-Auswertung

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