neu

SDL/SMS/usrCntlSMS.vb

@@ -1,4 +1,6 @@
-Public Class usrCntlSMS
+Imports com.esendex.sdk.sent
+
+Public Class usrCntlSMS
 
     Dim FahrerAbholAuftrag = False
     Dim MONAT As Date = CDate("01." & Now.Month & "." & Now.Year) '.AddMonths(-1)
@@ -33,7 +35,7 @@
         End If
     End Sub
 
-   
+
 
     Private Sub usrCntlSDLAbholung_Load(sender As Object, e As EventArgs) Handles Me.Load
 
@@ -162,7 +164,7 @@
         Dim sqlstr As String = ""
 
 
-        sqlstr &= " SELECT " & TopMax & " [sms_id],[sms_Datum],[sms_Account], sms_Vorwahl + '' + [sms_Handynummer] as Nummer,[sms_Nachricht],[sms_Sachbearbeiter] FROM [tblSMS]  WHERE 1=1 "
+        sqlstr &= " SELECT " & TopMax & " [sms_id],[sms_Datum],[sms_Account], sms_Vorwahl + '' + [sms_Handynummer] as Nummer,[sms_Nachricht],[sms_Sachbearbeiter],sms_BatchId,sms_MessageIds FROM [tblSMS]  WHERE 1=1 "
 
         With MyDatagridview1
             '  .DataSource = myTable
@@ -180,13 +182,13 @@
     Function getWhere() As String
         Dim sqlstr = ""
 
-          If txtAbfertDat.Text <> "" Then
-                If txtAbfertDatBis.Text <> "" Then
+        If txtAbfertDat.Text <> "" Then
+            If txtAbfertDatBis.Text <> "" Then
                 sqlstr &= " AND ([sms_Datum] BETWEEN @DatVon AND @DatBis ) "
-                Else
+            Else
                 sqlstr &= " AND ([sms_Datum] BETWEEN @DatVon AND @DatVon ) "
-                End If
             End If
+        End If
 
 
         If txtHandyNr.Text <> "" Then sqlstr &= " AND (sms_Vorwahl + '' + [sms_Handynummer]) LIKE @HandyNr "
@@ -224,26 +226,28 @@
             .MultiSelect = False
 
             .Columns("sms_id").Visible = False
-             
+            .Columns("sms_BatchId").Visible = False
+            .Columns("sms_MessageIds").Visible = False
+
             .Columns("sms_Datum").Width = 100
             .Columns("sms_Datum").HeaderText = "Datum"
             .Columns("sms_Datum").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
 
 
             .Columns("sms_Sachbearbeiter").Width = 100
-            .Columns("sms_Sachbearbeiter").HeaderText = "Erfassung SB" 
+            .Columns("sms_Sachbearbeiter").HeaderText = "Erfassung SB"
 
             .Columns("sms_Account").Visible = False
-             
+
             .Columns("Nummer").Width = 150
             .Columns("Nummer").HeaderText = "Handy Nummer"
- 
+
 
             .Columns("sms_Nachricht").MinimumWidth = 100
             .Columns("sms_Nachricht").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
             .Columns("sms_Nachricht").HeaderText = "Nachricht"
 
-             
+
 
 
             '  lblErgebnis.Text = "Ergebnise: " & .RowCount
@@ -346,8 +350,8 @@
         JAHR = JAHR.AddYears(-1)
         initBtns("Jahr")
     End Sub '
- 
-     
+
+
 
     Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
         Dim f As New frmSendSMS
@@ -362,7 +366,21 @@
             btnSuche.PerformClick()
         End If
     End Sub
-     
+
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+
+        If MyDatagridview1.SelectedRows.Count > 0 Then
+            Dim SMS = New VERAG_PROG_ALLGEMEIN.cSMS(MyDatagridview1.SelectedRows(0).Cells("sms_id").Value)
+            Select Case SMS.checkSMSStatus
+                Case <= 0 : MsgBox("SMS-Status: Wartend...")
+                Case 1 : MsgBox("SMS-Status: Wartend...")
+                Case 2 : MsgBox("SMS-Status: Gesendet")
+                Case 3 : MsgBox("SMS-Status: Empfangen")
+                Case 4 : MsgBox("SMS-Status: Fehler")
+            End Select
+        End If
+    End Sub
+
+
 End Class
 
-