Ezoll-Import, etc.

UID/usrCntlAPI.vb

@@ -224,6 +224,9 @@ Public Class usrCntlAPI
             End If
         End If
 
+
+        If cbxOhneAnhang.Checked Then sqlstr &= " AND isnull([api_EMailAttCnt],-1) =  0 "
+
         If cboFiliale._value <> "" Then sqlstr &= " AND [api_FilialenNr] LIKE @FilialenNr "
 
         If cboPartnersystem._value <> "" Then sqlstr &= " AND [api_Partnersystem] = @Partnersystem "
@@ -327,4 +330,22 @@ Public Class usrCntlAPI
         Me.Cursor = Cursors.Default
     End Sub
 
+    Private Sub btnExcel_Click(sender As Object, e As EventArgs) Handles btnExcel.Click
+        If DataGridView.Rows.Count > 0 Then
+            Dim dtNew As New DataTable
+            dtNew = TryCast(DataGridView.DataSource, DataTable)
+
+            If dtNew.Rows.Count > 0 Then
+
+                For Each col As DataColumn In dtNew.Columns
+
+                    Dim colName = col.ColumnName.Replace("api_", "")
+
+                    If Not col.ColumnName = (colName) Then col.ColumnName = col.ColumnName.Replace("api_", "")
+                Next
+
+                cProgramFunctions.genExcelFromDT_NEW(dtNew)
+            End If
+        End If
+    End Sub
 End Class