EXG DB Tabelle Routine

initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb

@@ -911,6 +911,50 @@ Public Class frmDYNachrichtenVerarbeitung
         End If
     End Sub
 
+    Shared Sub setFirmaNL(iopartner As String, division As String, ByRef firma As String, ByRef nl As String)
+        If division Is Nothing Then Exit Sub
+        If division <> "" Then
+            Select Case division
+                Case "SUW"
+                    firma = "ATILLA"
+                    nl = "SUB"
+                Case "SUB"
+                    firma = "VERAG"
+                    nl = "SUB"
+                Case "DUR"
+                    firma = "DURMAZ"
+                    nl = "SBG"
+                Case "NKD"
+                    firma = "VERAG"
+                    nl = "NKD"
+                Case "WAI"
+                    firma = "VERAG"
+                    nl = "WAI"
+                Case "SBG"
+                    firma = "VERAG"
+                    nl = "SBG"
+                Case "NEU"
+                    firma = "VERAG"
+                    nl = "NEU"
+                Case "GLO"
+                    firma = "IMEX"
+                    nl = "GLO"
+                Case "AMB"
+                    firma = "AMBAR"
+                    nl = "AMBAR"
+                Case "IME"
+                    firma = "IMEX"
+                    nl = "IMX"
+                Case "UNAT", "ATSPED"
+                    firma = "UNISPED"
+                    nl = "ATSP"
+            End Select
+
+
+        End If
+
+    End Sub
+
 
 
     Sub addDGVEinarbeitung(art, BezugsNr)