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

dw

Browse Source
This commit is contained in:
Andreas Luxbauer
2026-04-20 14:35:13 +02:00
parent d9cae0a796
commit 0f34964c57
4 changed files with 391 additions and 365 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
Aviso/ATEZ/frmATEZ_EZA.vb
View File

@@ -345,13 +345,18 @@ Public Class frmATEZ_EZA
End Sub
Private Function getTelefon() As String
Dim defaultDW = "200"
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "ATILLA" : Return "0043 7711 28450"
Case "AMBAR" : Return "0049 8651 9962492"
Case "UNISPED" : defaultDW = "800"
Case "IMEX" : defaultDW = "602"
Case "VERAG" : defaultDW = "200"
End Select
Return "0049 8503 7973999 " & If(String.IsNullOrEmpty(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_durchwahl), "200", VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_durchwahl)
Dim dw = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_durchwahl
Return "0049 8503 7973999 " &
If(String.IsNullOrEmpty(dw) OrElse dw.Length >= 5, defaultDW, dw)
End Function
Private Function getDefaultMail_FIRMA() As String
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA

734
Aviso/frmHauptfenster.Designer.vb generated
View File

File diff suppressed because it is too large Load Diff

3
Aviso/frmHauptfenster.resx
View File

@@ -257,6 +257,9 @@
sDvNfNUAAAAASUVORK5CYII=
</value>
</data>
<metadata name="ToolTip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>560, 17</value>
</metadata>
<metadata name="BackgroundWorker1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>659, 17</value>
</metadata>

10
Aviso/frmHauptfenster.vb
View File

@@ -5447,4 +5447,14 @@ ELSE_ATILLA:
Dim f As New frmReferenzenSicherheiten(writepermissions)
f.ShowDialog(Me)
End Sub
Private Sub KLIPPHAUSENToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles KLIPPHAUSENToolStripMenuItem.Click
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("STANDORT_WECHSELN", "AVISO") Then
VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG = "KLIPP"
VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_niederlassung = "KLIPP" 'Nochmal, sonst wird es durch MA geändert
showMeNew()
Else
MsgBox("Keine Berechtigung!")
End If
End Sub
End Class