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

sendSMS- fix

Browse Source
This commit is contained in:
d.breimaier
2026-08-19 11:13:01 +02:00
parent e0e8abad98
commit ea0dc853a9
1 changed files with 5 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
SDL/SMS/frmSendSMS.vb
View File

@@ -226,7 +226,7 @@ Public Class frmSendSMS
End Try
End Sub
Sub fillTXT(s, Sprache, Optional lkwTxt = "LKW/TIR: ", Optional templateID = "", Optional template_ParamMFGAdditional = "", Optional useNewTemplate = False)
Sub fillTXT(s, Sprache, 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"))
@@ -245,7 +245,7 @@ Public Class frmSendSMS
'WENN WHATSAPP
Me.templateID = getTemplateID(templateID, Sprache)
If useNewTemplate Then
If useNewTemplates Then
template_ParamMFGAdditional = ""
End If
Me.template_ParamMFGAdditional = template_ParamMFGAdditional
@@ -466,7 +466,7 @@ Public Class frmSendSMS
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, "YU", "", template_YU, MyRichTextBox1.Text)
If MyRichTextBox1.Text <> "" Then fillTXT("Molim Vas dođite u VERAG " & MyRichTextBox1.Text, "YU", "", template_YU, MyRichTextBox1.Text)
End Sub
Private Sub Button28_Click(sender As Object, e As EventArgs) Handles Button28.Click
@@ -511,7 +511,7 @@ Public Class frmSendSMS
End Sub
Private Sub Button40_Click(sender As Object, e As EventArgs) Handles Button40.Click
fillTXT("ВВе молиме дојдете во VERAG и понесете готовина со себе: € ", "MK", "LKW: ", template_MK, " и понесете готовина со себе: € ")
fillTXT("Ве молиме дојдете во VERAG и понесете готовина со себе: € ", "MK", "LKW: ", template_MK, " и понесете готовина со себе: € ")
End Sub
Private Sub Button41_Click(sender As Object, e As EventArgs) Handles Button41.Click
@@ -527,7 +527,7 @@ Public Class frmSendSMS
End Sub
Private Sub Button44_Click(sender As Object, e As EventArgs) Handles Button44.Click
fillTXT("Please come to VERAG!", "LKW: ", template_EN)
fillTXT("Please come to VERAG!", "EN", "LKW: ", template_EN)
End Sub
Private Sub Button47_Click(sender As Object, e As EventArgs) Handles Button47.Click