461 lines
19 KiB
VB.net
461 lines
19 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 Kennzeichen As String = ""
|
|
Public ART = "WHATSAPP"
|
|
Public templateID = ""
|
|
Public template_ParamMFGAdditional = ""
|
|
|
|
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("SMS_WhatsAppNrSenden", Me) Then
|
|
btnSndWhatsApp.Visible = False
|
|
' Label4.Visible = False
|
|
'btnSMS.PerformClick()
|
|
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.PARAMS.GET_PARAMETER_VALUE_BOOL("WhatsApp") Or VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME = "ADMIN" Then
|
|
btnWhatsApp.Enabled = True
|
|
Else
|
|
btnWhatsApp.Enabled = False
|
|
btnSMS.PerformClick()
|
|
End If
|
|
|
|
cboFirma.Items.Clear()
|
|
cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA, VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA))
|
|
If VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER <> "" AndAlso VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER <> VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Then
|
|
cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER, VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER))
|
|
End If
|
|
cboFirma.SelectedIndex = 0
|
|
|
|
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
|
|
|
|
cbxLKWOK.Visible = (AvisoId > 0)
|
|
|
|
|
|
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("WHATSAPP_Freitext", "AVISO") Then
|
|
Me.Height -= pnl.Height
|
|
pnl.Visible = False
|
|
End If
|
|
|
|
End Sub
|
|
|
|
Sub initFirma()
|
|
Dim FIRMATmp = cboFirma._value
|
|
|
|
Button1.Text = Button1.Text.Replace("VERAG", FIRMATmp)
|
|
Button2.Text = Button2.Text.Replace("VERAG", FIRMATmp)
|
|
Button3.Text = Button3.Text.Replace("VERAG", FIRMATmp)
|
|
Button4.Text = Button4.Text.Replace("VERAG", FIRMATmp)
|
|
Button25.Text = Button25.Text.Replace("VERAG", FIRMATmp)
|
|
|
|
End Sub
|
|
'
|
|
|
|
Private Sub btnAbbrechen_Click(sender As Object, e As EventArgs) Handles btnAbbrechen.Click
|
|
Me.Close()
|
|
End Sub
|
|
|
|
Function getNr(ByRef nr) As Boolean
|
|
If cboLandVorwahl._value <> "" AndAlso IsNumeric(cboLandVorwahl._value) Then
|
|
nr = cboLandVorwahl._value
|
|
End If
|
|
|
|
If txtHandyNummer.Text = "" Then MsgBox("Bitte Handy-Nr angegeben!") : nr = "" : Return False
|
|
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!") : nr = "" : Return False
|
|
|
|
nr &= txtHandyNummer.Text.Replace(" ", "").Replace("-", "").Replace("/", "")
|
|
|
|
|
|
If nr.Trim = "" Or Not nr.StartsWith("00") Or Not IsNumeric(nr) Or nr.StartsWith("000") Then
|
|
MsgBox("Bitte prüfen Sie die Nummer!" & vbNewLine & "Jede Nummer muss mit der Ländervorwahl beginnen.")
|
|
nr = "" : Return False
|
|
End If
|
|
If nr.Trim.Length <= 5 Then
|
|
MsgBox("Bitte prüfen Sie die Nummer!")
|
|
nr = "" : Return False
|
|
End If
|
|
Return True
|
|
End Function
|
|
Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles Button26.Click
|
|
SEND_MSG()
|
|
End Sub
|
|
|
|
Sub SEND_MSG()
|
|
Try
|
|
|
|
Dim nr = ""
|
|
If Not getNr(nr) Then
|
|
Exit Sub
|
|
End If
|
|
|
|
If txtNachricht.Text = "" Then MsgBox("Bitte Nachricht angegeben!") : Exit Sub
|
|
|
|
|
|
Dim absenderAccount = ""
|
|
Dim absenderFirma = ""
|
|
|
|
VERAG_PROG_ALLGEMEIN.cSMS.GET_AccountInfo(cboFirma._value, absenderAccount, absenderFirma)
|
|
|
|
|
|
' 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 = nr 'txtHandyNummer.Text.Replace(" ", "").Replace("-", "").Replace("/", "")
|
|
SMS.sms_Nachricht = txtNachricht.Text
|
|
SMS.sms_templateID = If(templateID = "", Nothing, templateID)
|
|
|
|
|
|
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)
|
|
|
|
If ART = "WHATSAPP" Then
|
|
SMS.sms_art = "WHATSAPP"
|
|
' If SMS.sendWhatsApp(cboFirma._value) Then 'WHATS-APP
|
|
If SMS.sendWhatsAppTemplate(cboFirma._value, template_ParamMFGAdditional) Then 'WHATS-APP TEMPLATE!!
|
|
If cbxLKWOK.Visible And cbxLKWOK.Checked And AvisoId > 0 Then
|
|
VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.LKWFertig(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID, True)
|
|
End If
|
|
Me.DialogResult = Windows.Forms.DialogResult.OK
|
|
Else
|
|
Me.DialogResult = Windows.Forms.DialogResult.None
|
|
End If
|
|
Else
|
|
If SMS.sendSMS Then 'SMS
|
|
If cbxLKWOK.Visible And cbxLKWOK.Checked And AvisoId > 0 Then
|
|
VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.LKWFertig(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID, True)
|
|
End If
|
|
Me.DialogResult = Windows.Forms.DialogResult.OK
|
|
Else
|
|
Me.DialogResult = Windows.Forms.DialogResult.None
|
|
End If
|
|
End If
|
|
|
|
|
|
Catch ex As Exception
|
|
MsgBox(vbNewLine & ex.Message & ex.StackTrace)
|
|
Me.DialogResult = Windows.Forms.DialogResult.None
|
|
|
|
End Try
|
|
|
|
End Sub
|
|
Sub fillTXT(s, Optional lkwTxt = "LKW/TIR: ", Optional templateID = "", Optional template_ParamMFGAdditional = "")
|
|
Dim FirmaTmp = cboFirma._value
|
|
If FirmaTmp <> "VERAG" Then
|
|
txtNachricht.Text = s.ToString.Replace("VERAG", FirmaTmp.Replace("FRONTOFFICE", "FRONT-OFFICE SUBEN"))
|
|
Else
|
|
txtNachricht.Text = s
|
|
End If
|
|
|
|
If Kennzeichen <> "" Then
|
|
txtNachricht.Text &= vbNewLine & lkwTxt & Kennzeichen
|
|
template_ParamMFGAdditional &= " | " & lkwTxt & Kennzeichen
|
|
End If
|
|
|
|
If FirmaTmp = "FRONTOFFICE" Then
|
|
txtNachricht.Text &= vbNewLine & "VERAG - UNISPED - IMEX"
|
|
End If
|
|
|
|
'WENN WHATSAPP
|
|
Me.templateID = templateID
|
|
Me.template_ParamMFGAdditional = template_ParamMFGAdditional
|
|
|
|
If ART = "WHATSAPP" Then
|
|
If vbYes = MsgBox("WhatsApp senden?", vbYesNoCancel) Then
|
|
SEND_MSG() '--> GLEICH SENDEN
|
|
End If
|
|
End If
|
|
|
|
End Sub
|
|
Dim template_DE = "42783623-94d2-48de-8919-34735cc78b58"
|
|
Dim template_TR = "7e0d2e60-720f-4102-9f36-ed194eaa0ace"
|
|
Dim template_RO = "ac361636-16e9-4713-856e-d22f50e47b08"
|
|
Dim template_BG = "47c7128f-69a0-488d-8035-2f10d3255c6d"
|
|
Dim template_EN = "20b1379c-6d2d-4577-a524-ddccf2e8ab59"
|
|
Dim template_YU = "08ef1aec-5b02-47c1-98bb-1d50ed3bfc1a"
|
|
|
|
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
|
fillTXT("Bitte zu VERAG kommen!", "LKW: ", "e5c1ce77-31a0-4663-9576-be340f73ac1c")
|
|
End Sub
|
|
|
|
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
|
|
fillTXT("Bitte zu VERAG kommen und den PASS mitnehmen!", "LKW: ", template_DE, " 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!", "LKW: ", template_DE, " 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: € ", "LKW: ", template_DE, " und Bargeld mitnehmen: € ")
|
|
End Sub
|
|
|
|
Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
|
|
fillTXT("VERAG ofise geliniz.", "TIR: ", template_TR)
|
|
End Sub
|
|
|
|
Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
|
|
fillTXT("PASAPORTU ile birlikte VERAG ofise geliniz.", "TIR: ", template_TR, " PASAPORTU ile birlikte ")
|
|
End Sub
|
|
|
|
Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
|
|
fillTXT("FIRMAKASESI ile birlikte VERAG ofise geliniz.", "TIR: ", template_TR, " FIRMAKASESI ile birlikte")
|
|
End Sub
|
|
|
|
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
|
|
fillTXT("VERAG ofise, nakit para ile geliniz: € ", "TIR: ", template_TR, " nakit para ile: €")
|
|
End Sub
|
|
|
|
|
|
Private Sub Button12_Click(sender As Object, e As EventArgs) Handles Button12.Click
|
|
fillTXT("Molim Vas dođite u VERAG!", "TRUCK: ", template_YU, "")
|
|
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!", "TRUCK: ", template_YU, " 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!", "TRUCK: ", template_YU, " 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: € ", "TRUCK: ", template_YU, " 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
|
|
|
|
Private Sub cboFirma_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboFirma.SelectedIndexChanged
|
|
initFirma()
|
|
End Sub
|
|
|
|
Private Sub Button16_Click(sender As Object, e As EventArgs) Handles Button16.Click
|
|
fillTXT("Va rog sa va prezentati la sediul firmei VERAG!", "TRUCK: ", template_RO, "")
|
|
End Sub
|
|
|
|
Private Sub Button15_Click(sender As Object, e As EventArgs) Handles Button15.Click
|
|
fillTXT("Va rog sa va prezentati la sediul firmei VERAG cu Buletin/ Pasaport!", "TRUCK: ", template_RO, " cu Buletin/ Pasaport")
|
|
End Sub
|
|
|
|
Private Sub Button14_Click(sender As Object, e As EventArgs) Handles Button14.Click
|
|
fillTXT("Va rog sa va prezentati la sediul firmei VERAG cu Stampila firmei!", "TRUCK: ", template_RO, " cu Stampila firmei")
|
|
End Sub
|
|
|
|
Private Sub Button13_Click(sender As Object, e As EventArgs) Handles Button13.Click
|
|
fillTXT("Va rog sa va prezentati la sediul firmei VERAG cu suma in Cash: € ", "TRUCK: ", template_RO, " cu suma in Cash: € ")
|
|
End Sub
|
|
|
|
Private Sub Button20_Click(sender As Object, e As EventArgs) Handles Button20.Click
|
|
fillTXT("Моля, елате във VERAG!", "TRUCK: ", template_BG)
|
|
End Sub
|
|
|
|
Private Sub Button19_Click(sender As Object, e As EventArgs) Handles Button19.Click
|
|
fillTXT("Моля, елате във VERAG и вземете паспорта си!", "TRUCK: ", template_BG, " и вземете паспорта си")
|
|
End Sub
|
|
|
|
Private Sub Button18_Click(sender As Object, e As EventArgs) Handles Button18.Click
|
|
fillTXT("Моля, елате във VERAG и вземете печата си!", "TRUCK: ", template_BG, " и вземете печата си")
|
|
End Sub
|
|
|
|
Private Sub Button17_Click(sender As Object, e As EventArgs) Handles Button17.Click
|
|
fillTXT("Моля, елате във VERAG и вземете пари в борй в размер на: € ", "TRUCK: ", template_BG, " и вземете пари в борй в размер на: € ")
|
|
End Sub
|
|
|
|
Private Sub Button25_Click(sender As Object, e As EventArgs) Handles Button25.Click
|
|
fillTXT("Bitte Kuvert beim Zoll holen und zu VERAG kommen!", "LKW: ", template_DE, "Bitte Kuvert beim Zoll holen!")
|
|
End Sub
|
|
|
|
Private Sub Button24_Click(sender As Object, e As EventArgs) Handles Button24.Click
|
|
fillTXT("Gümrükten zarfini al VERAG'a gel lütfen", "TIR: ", template_TR, "Gümrükten zarfini al gel lütfen")
|
|
End Sub
|
|
|
|
Private Sub Button23_Click(sender As Object, e As EventArgs) Handles Button23.Click
|
|
fillTXT("Idi na carinu, uzmi kovertu, i dodji u verag", "TRUCK: ", template_YU, "Idi na carinu, uzmi kovertu")
|
|
End Sub
|
|
|
|
Private Sub Button22_Click(sender As Object, e As EventArgs) Handles Button22.Click
|
|
fillTXT("Vă rugăm să ridicați plicul de la vamă și să veniți la VERAG", "TRUCK: ", template_RO, "Vă rugăm să ridicați plicul de la vamă și să veniți la ")
|
|
End Sub
|
|
|
|
Private Sub Button21_Click(sender As Object, e As EventArgs) Handles Button21.Click
|
|
fillTXT("Molya, vzemete plika ot mitnitsata i elate vŭv VERAG", "TRUCK: ", template_BG, "Molya, vzemete plika ot mitnitsata i elate vŭv")
|
|
End Sub
|
|
|
|
Private Sub btnSndWhatsApp_Click(sender As Object, e As EventArgs) Handles btnSndWhatsApp.Click
|
|
Dim nr = ""
|
|
If Not getNr(nr) Then
|
|
Exit Sub
|
|
End If
|
|
nr = nr.Substring(2) ' nullstellen weg
|
|
Process.Start("https://wa.me/" & nr)
|
|
End Sub
|
|
|
|
|
|
|
|
Private Sub btnSMS_Click(sender As Object, e As EventArgs) Handles btnSMS.Click
|
|
ART = "SMS"
|
|
btnSMS.BackColor = Color.FromArgb(0, 54, 128)
|
|
btnWhatsApp.BackColor = Color.White
|
|
txtNachricht.Enabled = True
|
|
lblInfoWhatsApp.Visible = False
|
|
Button26.Visible = True
|
|
pnl.Enabled = False
|
|
End Sub
|
|
|
|
Private Sub btnWhatsApp_Click(sender As Object, e As EventArgs) Handles btnWhatsApp.Click
|
|
ART = "WHATSAPP"
|
|
btnWhatsApp.BackColor = Color.FromArgb(0, 54, 128)
|
|
btnSMS.BackColor = Color.White
|
|
txtNachricht.Enabled = False
|
|
txtNachricht.Text = ""
|
|
lblInfoWhatsApp.Visible = True
|
|
Button26.Visible = False
|
|
pnl.Enabled = True
|
|
End Sub
|
|
|
|
Private Sub Button31_Click(sender As Object, e As EventArgs) Handles Button31.Click
|
|
If MyRichTextBox1.Text <> "" Then fillTXT("Bitte zu VERAG kommen " & MyRichTextBox1.Text, "", template_DE, MyRichTextBox1.Text)
|
|
End Sub
|
|
|
|
Private Sub Button30_Click(sender As Object, e As EventArgs) Handles Button30.Click
|
|
If MyRichTextBox1.Text <> "" Then fillTXT("VERAG ofise geliniz " & MyRichTextBox1.Text, "", template_TR, MyRichTextBox1.Text)
|
|
End Sub
|
|
|
|
Private Sub Button29_Click(sender As Object, e As EventArgs) Handles Button29.Click
|
|
If MyRichTextBox1.Text <> "" Then fillTXT("BMolim Vas dođite u VERAG " & MyRichTextBox1.Text, "", template_YU, MyRichTextBox1.Text)
|
|
End Sub
|
|
|
|
Private Sub Button28_Click(sender As Object, e As EventArgs) Handles Button28.Click
|
|
If MyRichTextBox1.Text <> "" Then fillTXT("Va rog sa va prezentati la sediul firmei VERAG " & MyRichTextBox1.Text, "", template_RO, MyRichTextBox1.Text)
|
|
End Sub
|
|
|
|
Private Sub Button27_Click(sender As Object, e As EventArgs) Handles Button27.Click
|
|
If MyRichTextBox1.Text <> "" Then fillTXT("Моля, елате във VERAG " & MyRichTextBox1.Text, "", template_BG, MyRichTextBox1.Text)
|
|
End Sub
|
|
End Class
|
|
|
|
Public Class cSMSOptions
|
|
|
|
Shared Sub insertVermerkSMS(AvisoId, HandyNr, SMSId, 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
|
|
myVermerk.SMSId = SMSId
|
|
myVermerk.SMSStatus = 0
|
|
|
|
VermerkeDAL.SpeichernVermerk(myVermerk)
|
|
|
|
Catch ex As Exception
|
|
MsgBox(ex.Message & ex.StackTrace)
|
|
End Try
|
|
End Sub
|
|
End Class
|