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

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2019-10-31 09:23:20 +01:00
parent 021cce6f04
commit c5595a729a
169 changed files with 16226 additions and 3376 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
SDL/SMS/frmSendSMS.vb
View File

@@ -54,13 +54,14 @@ Public Class frmSendSMS
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")
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)
End If
End Select
cboLandVorwahl.Items.Clear()
@@ -134,6 +135,8 @@ Public Class frmSendSMS
End Select
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 Else : MsgBox("Fehler bei der Datenprüfung: Firmendaten.") : Exit Sub
End Select
@@ -194,8 +197,8 @@ Public Class frmSendSMS
End Sub
Sub fillTXT(s)
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "IMEX" Then
txtNachricht.Text = s.ToString.Replace("VERAG", "IMEX")
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA <> "VERAG" Then
txtNachricht.Text = s.ToString.Replace("VERAG", VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA)
Else
txtNachricht.Text = s
End If