neu

initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb

@@ -4354,8 +4354,27 @@ Public Class frmDYNachrichtenVerarbeitung
             firma = "AMBAR"
             niederlassung = "AMBAR"
         ElseIf Mail.Contains("atilla@verag.ag") Or Mail.Contains("@atilla") Then
-            firma = "ATILLA"
-            niederlassung = "SUB"
+
+            If BezugsNr <> "" Then ' VERIMEX --> wenn keine Bezugsnummer, dann bei anderem Satus..
+
+                '----------------------------------------------------------------------------
+                'VERIMEX!!!! --> Arbeitet bim T1 Vorschreiben mit ATILLA Benutzer
+                Dim verimex = False
+                If firma = "" Then
+                    If BezugsNr <> "" And BezugsNr.Length > 4 Then
+                        Select Case BezugsNr.Substring(0, 4)
+                            Case "5501", "4803", "5003", "5103", "5303", "4805", "4811", "7001", "5601"
+                                verimex = True
+                        End Select
+                    End If
+                End If
+                '----------------------------------------------------------------------------
+
+                If Not verimex Then
+                    firma = "ATILLA"
+                    niederlassung = "SUB"
+                End If
+            End If
         ElseIf Mail.Contains("@durmaz") Then
             firma = "DURMAZ"
             niederlassung = "SBG"