edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2022-03-19 22:52:06 +01:00
parent 9b001e5803
commit d9204781cf
139 changed files with 19394 additions and 3352 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
SDL/SMS/usrCntlSMS.vb
View File

@@ -371,15 +371,20 @@ Public Class usrCntlSMS
If MyDatagridview1.SelectedRows.Count > 0 Then
Dim SMS = New VERAG_PROG_ALLGEMEIN.cSMS(MyDatagridview1.SelectedRows(0).Cells("sms_id").Value)
MsgBox("SMS-Status: " & SMS.checkSMSStatus)
Exit Sub
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")
Select Case SMS.sms_art
Case "WHATSAPP" : MsgBox("WhatsApp-Status: " & SMS.checkWhatsAppStatus)
Case "SMS" : MsgBox("SMS-Status: " & SMS.checkSMSStatus)
End Select
'Exit Sub
'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