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

SDL Jetzt erst recht!

Browse Source
This commit is contained in:
Andreas Luxbauer
2019-08-08 12:34:08 +02:00
parent f336f214e9
commit 5cbb13561f
1496 changed files with 522451 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

295
SDL/SMS/frmSendSMS.vb Normal file
View File

@@ -0,0 +1,295 @@
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 = "IMEX" Then
Button1.Text = Button1.Text.Replace("VERAG", "IMEX")
Button2.Text = Button2.Text.Replace("VERAG", "IMEX")
Button3.Text = Button3.Text.Replace("VERAG", "IMEX")
Button4.Text = Button4.Text.Replace("VERAG", "IMEX")
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 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 = "IMEX" Then
txtNachricht.Text = s.ToString.Replace("VERAG", "IMEX")
Else
txtNachricht.Text = s
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