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

20200108

Browse Source
This commit is contained in:
Andreas Luxbauer
2020-01-08 14:52:43 +01:00
parent bea8632eb5
commit f4c1a74870
136 changed files with 11561 additions and 1072 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
SDL/SMS/frmSendSMS.vb
View File

@@ -54,14 +54,13 @@ Public Class frmSendSMS
End If
End If
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "IMEX", "UNISPED"
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)
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
End Select
cboLandVorwahl.Items.Clear()
@@ -136,7 +135,7 @@ Public Class frmSendSMS
Case "ATILLA" : absenderAccount = "EX0252746" : absenderFirma = "ATILLA Spedition"
Case "IMEX" : absenderAccount = "EX0272082" : absenderFirma = "IMEX Spedition"
Case "UNISPED" : absenderAccount = "EX0300174" : absenderFirma = "UNISPED Spedition"
Case "FRONT-OFFICE" : absenderAccount = "EX0300173" : absenderFirma = "FRONT-OFFICE SUBEN"
Case "FRONTOFFICE" : absenderAccount = "EX0300173" : absenderFirma = "FRONT-OFFICE SUBEN"
Case Else : MsgBox("Fehler bei der Datenprüfung: Firmendaten.") : Exit Sub
End Select
@@ -198,11 +197,13 @@ Public Class frmSendSMS
Sub fillTXT(s)
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA <> "VERAG" Then
txtNachricht.Text = s.ToString.Replace("VERAG", VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA)
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