CBAM

VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb

@@ -71,6 +71,120 @@ Public Class cProgramFunctions
 
     End Function
 
+
+    Public Shared Sub tryGetFilialeAbf_ByLRN(ByVal LRN As String, ByRef FilialenNr As Object, ByRef AbfertigungsNr As Object)
+
+        If String.IsNullOrWhiteSpace(LRN) Then Exit Sub
+
+        Dim pattern As String = "^(?<Filiale>\d{4})[\/\-](?<Abfertigung>\d{8})"
+
+        Dim m As System.Text.RegularExpressions.Match =
+        System.Text.RegularExpressions.Regex.Match(LRN.Trim(), pattern)
+
+        If Not m.Success Then Exit Sub
+
+        Dim filialeStr As String = m.Groups("Filiale").Value
+        Dim abfertigungStr As String = m.Groups("Abfertigung").Value
+
+        Dim FilialenNrTmp As Integer
+        Dim AbfertigungsNrTmp As Integer
+
+        If Integer.TryParse(filialeStr, FilialenNrTmp) AndAlso
+       Integer.TryParse(abfertigungStr, AbfertigungsNrTmp) Then
+
+            FilialenNr = FilialenNrTmp
+            AbfertigungsNr = AbfertigungsNrTmp
+        End If
+
+    End Sub
+
+
+    Public Shared Sub tryGetAvisoId_SndId_ByLRN(ByVal LRN As String, ByRef AvisoId As Object, ByRef SendungId As Object)
+
+        Dim FilialenNrTmp As Integer = -1
+        Dim AbfertigungsNrTmp As Integer = -1
+
+        tryGetFilialeAbf_ByLRN(LRN, FilialenNrTmp, AbfertigungsNrTmp)
+
+        If FilialenNrTmp > 0 AndAlso AbfertigungsNrTmp > 0 Then
+            VERAG_PROG_ALLGEMEIN.cSendungen.getAvisoIdSendungsIdByFilialenNrAbfertigungsNr(FilialenNrTmp, AbfertigungsNrTmp, AvisoId, SendungId)
+        End If
+
+    End Sub
+
+    Public Shared Sub tryGetFirmaNiederlassung(ByRef firma As String, ByRef niederlassung As String, Mail As String, BezugsNr As String)
+        If Mail.Contains("@imex") Then
+            firma = "IMEX"
+            niederlassung = "IMEX"
+        ElseIf Mail.Contains("@ambar") Then
+            firma = "AMBAR"
+            niederlassung = "AMBAR"
+        ElseIf Mail.Contains("atilla@verag.ag") Or Mail.Contains("@atilla") Then
+
+            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"
+        ElseIf Mail.Contains("@verag") Then
+            firma = "VERAG"
+        ElseIf Mail.Contains("@unisped") Then
+            firma = "UNISPED"
+            niederlassung = "ATSP"
+        End If
+
+        If firma = "" Then
+            Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA 'Gehrt nur bei UNSPED
+                Case "UNISPED"
+                    firma = "UNISPED"
+                    niederlassung = "ATSP"
+
+            End Select
+        End If
+
+        If firma = "" Then
+            If BezugsNr <> "" And BezugsNr.Length > 4 Then
+                Select Case BezugsNr.Substring(0, 4)
+                    Case "5501"
+                        firma = "IMEX"
+                        'niederlassung = "IMEX"
+                    Case "5701"
+                        firma = "AMBAR"
+                        niederlassung = "AMBAR"
+                    Case "4801", "4802"
+                        firma = "ATILLA"
+                        niederlassung = "SUB"
+                    'Case "4801"
+                    '    firma = "DURMAZ"
+                    '    niederlassung = "SBG"
+                    Case "4803", "5003", "5103", "5303", "4805", "4811", "7001"
+                        firma = "VERAG"
+                    Case "5601"
+                        firma = "UNISPED"
+                        niederlassung = "ATSP"
+                End Select
+            End If
+        End If
+    End Sub
+
     Public Shared Function fktEuro(varBetrag As Object, varVonWährung As Object, varNachWährung As Object) As Object
         '(FixeTaxe, "ATS", RECHNUNG.Währungscode)
         'Dim varVonWährung As Object