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

Grenzstelle, ATILLA NEUHAUS

Browse Source
This commit is contained in:
Andreas Luxbauer
2023-08-11 09:28:15 +02:00
parent 3afa680d27
commit e9c95c8fdf
10 changed files with 322 additions and 261 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
Aviso/frmLogin.vb
View File

@@ -90,7 +90,6 @@ Public Class frmLogin
If firma = "NEU" Then firma = "VERAG"
If firma = "SUB" Then firma = "VERAG"
Else
' FIRMA VON AD HOLEN, wenn keine StandortTxt
Try
@@ -341,6 +340,8 @@ Public Class frmLogin
VERAG_PROG_ALLGEMEIN.cAllgemein.PRINTER_STANDARD = (li.Replace("PRINTER:", "")).Trim
End If
If li.ToUpper.StartsWith("NIEDERLASSUNG:") Then VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG = (li.Replace("NIEDERLASSUNG:", "")).Trim
If li.ToUpper.StartsWith("NL:") Then VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG = (li.Replace("NL:", "")).Trim
Next
End If
End If
@@ -356,6 +357,8 @@ Public Class frmLogin
If li.StartsWith("PRINTER:") Then
VERAG_PROG_ALLGEMEIN.cAllgemein.PRINTER_STANDARD = (li.Replace("PRINTER:", "")).Trim
End If
If li.ToUpper.StartsWith("NIEDERLASSUNG:") Then VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG = (li.Replace("NIEDERLASSUNG:", "")).Trim
If li.ToUpper.StartsWith("NL:") Then VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG = (li.Replace("NL:", "")).Trim
Next
End If
End If