Gesamtsicherheit, ATBGestellung (Sonderfälle lt. Mestan eingebaut).

Aviso/usrCntlSND_ATBGestellung.vb

@@ -48,15 +48,35 @@ Public Class usrCntlSND_ATBGestellung
                     Standort = "Unisped GmbH"
                 Case 5701
                     Standort = "AMBAR"
-                Case 4810,
+                Case 4810, 5103, 5901
                     Standort = "VERAG GmbH"
-                Case 5103
-                    Standort = "VERAG CS"
                 Case 5501
                     Standort = "IMEX"
-
             End Select
 
+            'sonderfälle lt. Mestan
+            If SND.tblSnd_Zollsystem_Land = "DE" Then
+
+                Select Case SND.FilialenNr
+                    Case 5501, 4803, 4809, 5103
+                        Standort = "VERAG GmbH"
+                End Select
+
+            ElseIf SND.tblSnd_Zollsystem_Land = "AT" Then
+
+                If SND.tblSnd_Abfertigungsart_ID = 1 Then 'ZA  
+                    Standort = "VERAG CS"
+                ElseIf SND.tblSnd_Abfertigungsart_ID = 38 Then 'EV-Verz
+                    Select Case SND.FilialenNr
+                        Case 4803, 5303, 4809, 5103
+                            Standort = "VERAG CS"
+                    End Select
+
+                End If
+
+            End If
+
+
             Dim GesSichRef = New VERAG_PROG_ALLGEMEIN.cGesamtsicherheitsReferenz(Standort)
             If GesSichRef Is Nothing Then MsgBox("Verwahrungsreferenz kann nicht ermittelt werden!") : Exit Sub
 
@@ -152,20 +172,42 @@ Public Class usrCntlSND_ATBGestellung
 
             Dim Standort As String = ""
 
+
             Select Case SND.FilialenNr
-                Case 4803, 4809, 4810
-                    Standort = "VERAG GmbH" : firmaId = 1
+                Case 4803, 4809
+                    Standort = "VERAG AG" : firmaId = 2
                 Case 5601
                     Standort = "Unisped GmbH" : firmaId = 21
                 Case 5701
                     Standort = "AMBAR" : firmaId = 24
-                Case 5103
-                    Standort = "VERAG CS" : firmaId = 11
+                Case 4810, 5103, 5901
+                    Standort = "VERAG GmbH" : firmaId = 1
                 Case 5501
                     Standort = "IMEX" : firmaId = 20
-
             End Select
 
+            'sonderfälle lt. Mestan
+            If SND.tblSnd_Zollsystem_Land = "DE" Then
+
+                Select Case SND.FilialenNr
+                    Case 5501, 4803, 4809, 5103
+                        Standort = "VERAG GmbH" : firmaId = 1
+                End Select
+
+            ElseIf SND.tblSnd_Zollsystem_Land = "AT" Then
+
+                If SND.tblSnd_Abfertigungsart_ID = 1 Then 'ZA  
+                    Standort = "VERAG CS" : firmaId = 11
+                ElseIf SND.tblSnd_Abfertigungsart_ID = 38 Then 'EV-Verz
+                    Select Case SND.FilialenNr
+                        Case 4803, 5303, 4809, 5103
+                            Standort = "VERAG CS" : firmaId = 11
+                    End Select
+
+                End If
+
+            End If
+
             Dim GesSichRef = New VERAG_PROG_ALLGEMEIN.cAufschubKonten(Standort)
             Dim frm As New frmGesamtsicherheitenNEU