300 lines
12 KiB
VB.net
300 lines
12 KiB
VB.net
Imports com.esendex.sdk.messaging
|
|
|
|
Public Class frmSendSMS
|
|
|
|
Public KundenNr As Integer
|
|
Public Kunde As String
|
|
Public FahrerName As String
|
|
Public AvisoId As Integer
|
|
|
|
Public SMS As VERAG_PROG_ALLGEMEIN.cSMS = Nothing
|
|
Sub New()
|
|
|
|
' Dieser Aufruf ist für den Designer erforderlich.
|
|
InitializeComponent()
|
|
|
|
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
|
|
|
|
End Sub
|
|
|
|
|
|
|
|
Sub New(nachricht As String)
|
|
|
|
' Dieser Aufruf ist für den Designer erforderlich.
|
|
InitializeComponent()
|
|
|
|
Me.txtNachricht.Text = nachricht
|
|
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
|
|
|
|
End Sub
|
|
|
|
|
|
Sub New(handyNr As String, nachricht As String)
|
|
|
|
' Dieser Aufruf ist für den Designer erforderlich.
|
|
InitializeComponent()
|
|
|
|
Me.txtNachricht.Text = nachricht
|
|
Me.txtHandyNummer.Text = handyNr.Trim
|
|
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
|
|
|
|
End Sub
|
|
|
|
|
|
Private Sub frmSendSMS_Load(sender As Object, e As EventArgs) Handles Me.Load
|
|
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("SMS_Senden", Me) Then
|
|
MsgBox("Fehlende Berechtigung: SMS_Senden")
|
|
Me.Close()
|
|
End If
|
|
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMINFUNCTIONS", Me) Then
|
|
If Now < CDate("01.04.2018") Then
|
|
MsgBox("Dieser Dienst ist erst ab dem 01.04.2018 verfügbar!")
|
|
Me.Close()
|
|
End If
|
|
End If
|
|
|
|
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA <> "VERAG" Then
|
|
Button1.Text = Button1.Text.Replace("VERAG", VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA)
|
|
Button2.Text = Button2.Text.Replace("VERAG", VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA)
|
|
Button3.Text = Button3.Text.Replace("VERAG", VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA)
|
|
Button4.Text = Button4.Text.Replace("VERAG", VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA)
|
|
End If
|
|
|
|
|
|
|
|
cboLandVorwahl.Items.Clear()
|
|
cboLandVorwahl.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
|
|
cboLandVorwahl.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("+43 Österreich", "0043"))
|
|
cboLandVorwahl.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("+49 Deutschland", "0049"))
|
|
cboLandVorwahl.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("+387 Bosnien", "00387"))
|
|
cboLandVorwahl.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("+359 Bulgarien", "00359"))
|
|
cboLandVorwahl.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("+98 Iran", "0098"))
|
|
cboLandVorwahl.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("+40 Rumänien", "0040"))
|
|
cboLandVorwahl.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("+381 Serbien", "00381"))
|
|
cboLandVorwahl.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("+90 Türkei", "0090"))
|
|
cboLandVorwahl.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("+36 Ungarn", "0036"))
|
|
|
|
If False Then ' Vorwahl ausgebeldnet
|
|
|
|
For Each i As VERAG_PROG_ALLGEMEIN.MyListItem In cboLandVorwahl.Items
|
|
If txtHandyNummer.Text.StartsWith(i.Value) Then
|
|
cboLandVorwahl.changeItem(i.Value)
|
|
txtHandyNummer.Text = Replace(txtHandyNummer.Text, i.Value, "", , 1)
|
|
End If
|
|
If txtHandyNummer.Text.StartsWith(i.Value.Replace("+", "00")) Then
|
|
cboLandVorwahl.changeItem(i.Value)
|
|
txtHandyNummer.Text = Replace(txtHandyNummer.Text, i.Value.Replace("00", "+"), "", , 1)
|
|
End If
|
|
Next
|
|
End If
|
|
|
|
End Sub
|
|
|
|
'
|
|
|
|
Private Sub btnAbbrechen_Click(sender As Object, e As EventArgs) Handles btnAbbrechen.Click
|
|
Me.Close()
|
|
End Sub
|
|
|
|
Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles btnOK.Click
|
|
|
|
Dim nr = ""
|
|
If cboLandVorwahl._value <> "" AndAlso IsNumeric(cboLandVorwahl._value) Then
|
|
nr = cboLandVorwahl._value
|
|
End If
|
|
|
|
If txtHandyNummer.Text = "" Then MsgBox("Bitte Handy-Nr angegeben!") : Exit Sub
|
|
If txtNachricht.Text = "" Then MsgBox("Bitte Nachricht angegeben!") : Exit Sub
|
|
If txtHandyNummer.Text.Trim.StartsWith("+") Then txtHandyNummer.Text = txtHandyNummer.Text.Replace("+", "00")
|
|
|
|
If Not IsNumeric(txtHandyNummer.Text.Replace(" ", "").Replace("-", "").Replace("/", "")) Then MsgBox("Handy-Nr im falschem Format!") : Exit Sub
|
|
|
|
'' If nr <> "" And txtHandyNummer.Text.Trim.StartsWith("0") Then
|
|
'txtHandyNummer.Text = txtHandyNummer.Text.Substring(1)
|
|
' End If
|
|
nr &= txtHandyNummer.Text.Replace(" ", "").Replace("-", "").Replace("/", "")
|
|
|
|
|
|
If nr.Trim = "" Or Not nr.StartsWith("00") Or Not IsNumeric(nr) Then
|
|
MsgBox("Bitte prüfen Sie die Nummer!" & vbNewLine & "Jede Nummer muss mit der Ländervorwahl beginnen.")
|
|
Exit Sub
|
|
End If
|
|
|
|
Dim absenderAccount = ""
|
|
Dim absenderFirma = ""
|
|
|
|
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
|
Case "VERAG", "BEIDE"
|
|
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_abteilung
|
|
Case "ZOLL", "QS" : absenderAccount = "EX0252513" : absenderFirma = "VERAG Spedition"
|
|
Case "MDM" : absenderAccount = "EX0252747" : absenderFirma = "VERAG 360"
|
|
Case Else : absenderAccount = "EX0252513" : absenderFirma = "VERAG Spedition"
|
|
'Case Else : MsgBox("Fehler bei der Datenprüfung: Abteilung.") : Exit Sub
|
|
End Select
|
|
Case "ATILLA" : absenderAccount = "EX0252746" : absenderFirma = "ATILLA Spedition"
|
|
Case "IMEX" : absenderAccount = "EX0272082" : absenderFirma = "IMEX Spedition"
|
|
Case "UNISPED" : absenderAccount = "EX0300174" : absenderFirma = "UNISPED Spedition"
|
|
Case "FRONTOFFICE" : absenderAccount = "EX0300173" : absenderFirma = "FRONT-OFFICE SUBEN"
|
|
Case Else : MsgBox("Fehler bei der Datenprüfung: Firmendaten.") : Exit Sub
|
|
End Select
|
|
|
|
|
|
|
|
' If vbYes = MsgBox("Soll die Nachricht gesendet werden?" & vbNewLine & "Handy-Nummer: " & nr, MsgBoxStyle.YesNo) Then
|
|
SMS = New VERAG_PROG_ALLGEMEIN.cSMS
|
|
|
|
|
|
SMS.sms_Vorwahl = cboLandVorwahl._value
|
|
SMS.sms_Handynummer = txtHandyNummer.Text.Replace(" ", "").Replace("-", "").Replace("/", "")
|
|
SMS.sms_Nachricht = txtNachricht.Text
|
|
|
|
|
|
SMS.sms_Account = absenderAccount
|
|
SMS.sms_Firma = absenderFirma
|
|
SMS.sms_KundenNr = If(KundenNr > 0, KundenNr, Nothing)
|
|
SMS.sms_Kunde = If(Kunde <> "", Kunde, Nothing)
|
|
SMS.sms_Fahrername = If(FahrerName <> "", FahrerName, Nothing)
|
|
SMS.sms_AvisoId = If(AvisoId > 0, AvisoId, Nothing)
|
|
|
|
Try
|
|
|
|
Dim messagingService As New MessagingService("al@verag.ag", "Developer#2")
|
|
'SENDEN DER SMS
|
|
Dim result = messagingService.SendMessage(New SmsMessage(nr, txtNachricht.Text, absenderAccount))
|
|
|
|
Dim msgIDs As String = ""
|
|
Try
|
|
SMS.sms_BatchId = result.BatchId
|
|
If result.MessageIds IsNot Nothing Then
|
|
For Each m In result.MessageIds
|
|
msgIDs &= m.Uri & ";;"
|
|
Next
|
|
SMS.sms_MessageIds = msgIDs
|
|
End If
|
|
Catch ex As Exception
|
|
End Try
|
|
If msgIDs.EndsWith(";;") Then msgIDs = msgIDs.Substring(0, msgIDs.Length - 2)
|
|
|
|
If Not SMS.SAVE() Then
|
|
MsgBox("Fehler: SMS Daten wurden nicht gespeichert!")
|
|
End If
|
|
|
|
Me.DialogResult = Windows.Forms.DialogResult.OK
|
|
Exit Sub
|
|
|
|
Me.Close()
|
|
Catch ex As Exception
|
|
MsgBox("Fehler beim Senden der SMS!" & vbNewLine & ex.Message & ex.StackTrace)
|
|
Me.DialogResult = Windows.Forms.DialogResult.None
|
|
|
|
End Try
|
|
|
|
' End If
|
|
|
|
|
|
End Sub
|
|
|
|
Sub fillTXT(s)
|
|
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA <> "VERAG" Then
|
|
txtNachricht.Text = s.ToString.Replace("VERAG", VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA.Replace("FRONTOFFICE", "FRONT-OFFICE SUBEN"))
|
|
Else
|
|
txtNachricht.Text = s
|
|
End If
|
|
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "FRONTOFFICE" Then
|
|
txtNachricht.Text &= vbNewLine & "VERAG | UNISPED | IMEX"
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
|
fillTXT("Bitte zu VERAG kommen!")
|
|
End Sub
|
|
|
|
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
|
|
fillTXT("Bitte zu VERAG kommen und den Pass mitnehmen!")
|
|
End Sub
|
|
|
|
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
|
|
fillTXT("Bitte zu VERAG kommen und den Stempel mitnehmen!")
|
|
End Sub
|
|
|
|
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
|
|
fillTXT("Bitte zu VERAG kommen und Bargeld mitnehmen: € ")
|
|
End Sub
|
|
|
|
Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
|
|
fillTXT("VERAG ofise geliniz.")
|
|
End Sub
|
|
|
|
Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
|
|
fillTXT("Pasaportu ile birlikte VERAG ofise geliniz.")
|
|
End Sub
|
|
|
|
Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
|
|
fillTXT("Firmakasesi ile birlikte VERAG ofise geliniz.")
|
|
End Sub
|
|
|
|
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
|
|
fillTXT("VERAG ofise, nakit para ile geliniz: € ")
|
|
End Sub
|
|
|
|
|
|
Private Sub Button12_Click(sender As Object, e As EventArgs) Handles Button12.Click
|
|
fillTXT("Molim Vas dođite u VERAG!")
|
|
End Sub
|
|
|
|
Private Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click
|
|
fillTXT("Molim Vas dođite u VERAG i ponesite pasos!")
|
|
End Sub
|
|
|
|
Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click
|
|
fillTXT("Molim Vas dođite u VERAG i ponesite pečat!")
|
|
End Sub
|
|
|
|
Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click
|
|
fillTXT("Molim Vas dođite u VERAG i za platit imate: € ")
|
|
End Sub
|
|
|
|
Private Sub txtHandyNummer_KeyDown(sender As Object, e As KeyEventArgs) Handles txtHandyNummer.KeyDown
|
|
If e.KeyCode = Keys.Return Then
|
|
e.Handled = True
|
|
End If
|
|
End Sub
|
|
|
|
|
|
Private Sub frmSendSMS_Shown(sender As Object, e As EventArgs) Handles Me.Shown
|
|
If txtHandyNummer.Text = "" Then
|
|
txtHandyNummer.Focus()
|
|
Else
|
|
txtNachricht.Focus()
|
|
End If
|
|
|
|
End Sub
|
|
End Class
|
|
|
|
Public Class cSMSOptions
|
|
|
|
Shared Sub insertVermerk(AvisoId, HandyNr, Optional DatumTmp = Nothing)
|
|
Try
|
|
Dim VermerkeDAL As New VERAG_PROG_ALLGEMEIN.cVermerkeDAL
|
|
|
|
'Daten zuweisen und speichern
|
|
Dim myVermerk As New VERAG_PROG_ALLGEMEIN.cVermerk
|
|
myVermerk.VermerkID = 0
|
|
myVermerk.AvisoID = AvisoId
|
|
|
|
myVermerk.Datum = If(DatumTmp, Now)
|
|
myVermerk.VermerkArt = "A"
|
|
myVermerk.Mitarbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME & " (AUTO)"
|
|
myVermerk.MitarbeiterId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
|
|
myVermerk.Hinweis_Vermerk = "SMS an Fahrer gesendet: " & HandyNr
|
|
myVermerk.VermerkCodeId = 46
|
|
|
|
VermerkeDAL.SpeichernVermerk(myVermerk)
|
|
|
|
Catch ex As Exception
|
|
MsgBox(ex.Message & ex.StackTrace)
|
|
End Try
|
|
End Sub
|
|
End Class
|