IDS, etc. Zollern Gesamtsicherheiten, etc.

Aviso/usrCntlSND_ATBGestellung.vb

@@ -97,28 +97,35 @@ Public Class usrCntlSND_ATBGestellung
                     Standort = Sicherheiten_Standort.IMEX : firmaID = 20
             End Select
 
-                'sonderfälle lt. Mestan
-                If SND.tblSnd_Zollsystem_Land = "DE" Then
+            'sonderfälle lt. Mestan
+            If SND.tblSnd_Zollsystem_Land = "DE" Then
 
-                    Select Case SND.FilialenNr
-                        Case 5501, 4803, 4809, 5103
+                Select Case SND.FilialenNr
+                    Case 5501, 4803, 4809, 5103
                         Standort = Sicherheiten_Standort.VERAG_GMBH : firmaID = 2
                 End Select
 
-                ElseIf SND.tblSnd_Zollsystem_Land = "AT" Then
+            ElseIf SND.tblSnd_Zollsystem_Land = "AT" Then
 
-                    If SND.tblSnd_Abfertigungsart_ID = 1 Then 'ZA  
+                If SND.tblSnd_Abfertigungsart_ID = 1 Then 'ZA  
                     Standort = Sicherheiten_Standort.VERAG_CS : firmaID = 11
                 ElseIf SND.tblSnd_Abfertigungsart_ID = 38 Then 'EV-Verz
-                        Select Case SND.FilialenNr
-                            Case 4803, 5303, 4809, 5103
+                    Select Case SND.FilialenNr
+                        Case 4803, 5303, 4809, 5103
                             Standort = Sicherheiten_Standort.VERAG_CS : firmaID = 11
                     End Select
 
-                    End If
-
                 End If
 
+            End If
+
+            If isZollern(SND) Then
+
+                Standort = Sicherheiten_Standort.ZOLLERN : firmaID = 99
+
+            End If
+
+
 
             Dim GesSichRef = New VERAG_PROG_ALLGEMEIN.cAufschubKonten(Standort, firmaID)
             If GesSichRef Is Nothing Then MsgBox("Verwahrungsreferenz kann nicht ermittelt werden!") : Exit Sub
@@ -183,19 +190,20 @@ Public Class usrCntlSND_ATBGestellung
             Dim frm As New frmGesamtsicherheitenNEU()
 
             Select Case gessicherheit.gs_standort
-                Case "Verag GmbH"
+                Case Sicherheiten_Standort.VERAG_GMBH
                     firmaId = 2
-                Case "Verag AG"
+                Case Sicherheiten_Standort.VERAG_AG
                     firmaId = 1
-                Case "Unisped GmbH"
+                Case Sicherheiten_Standort.UNISPED
                     firmaId = 21
-                Case "AMBAR GmbH"
+                Case Sicherheiten_Standort.AMBAR
                     firmaId = 24
-                Case "Verag CS"
+                Case Sicherheiten_Standort.VERAG_CS
                     firmaId = 11
-                Case "IMEX"
+                Case Sicherheiten_Standort.IMEX
                     firmaId = 20
-
+                Case Sicherheiten_Standort.ZOLLERN
+                    firmaId = 99
             End Select
 
             With frm
@@ -226,15 +234,15 @@ Public Class usrCntlSND_ATBGestellung
 
             Select Case SND.FilialenNr
                 Case 4803, 4809
-                    Standort = "VERAG AG" : firmaId = 1
+                    Standort = Sicherheiten_Standort.VERAG_AG : firmaId = 1
                 Case 5601
-                    Standort = "Unisped GmbH" : firmaId = 21
+                    Standort = Sicherheiten_Standort.UNISPED : firmaId = 21
                 Case 5701
-                    Standort = "AMBAR GmbH" : firmaId = 24
+                    Standort = Sicherheiten_Standort.AMBAR : firmaId = 24
                 Case 4810, 5103, 5901
-                    Standort = "VERAG GmbH" : firmaId = 2
+                    Standort = Sicherheiten_Standort.VERAG_GMBH : firmaId = 2
                 Case 5501
-                    Standort = "IMEX" : firmaId = 20
+                    Standort = Sicherheiten_Standort.IMEX : firmaId = 20
             End Select
 
             'sonderfälle lt. Mestan
@@ -242,24 +250,33 @@ Public Class usrCntlSND_ATBGestellung
 
                 Select Case SND.FilialenNr
                     Case 5501, 4803, 4809, 5103
-                        Standort = "VERAG GmbH" : firmaId = 2
+                        Standort = Sicherheiten_Standort.VERAG_GMBH : firmaId = 2
                 End Select
 
             ElseIf SND.tblSnd_Zollsystem_Land = "AT" Then
 
                 If SND.tblSnd_Abfertigungsart_ID = 1 Then 'ZA  
-                    Standort = "VERAG CS" : firmaId = 11
+                    Standort = Sicherheiten_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
+                            Standort = Sicherheiten_Standort.VERAG_CS : firmaId = 11
                     End Select
 
                 End If
 
             End If
 
-            Dim GesSichRef = New VERAG_PROG_ALLGEMEIN.cAufschubKonten(Standort)
+
+
+            If isZollern(SND) Then
+
+                Standort = Sicherheiten_Standort.ZOLLERN : firmaId = 99
+
+            End If
+
+
+            Dim GesSichRef = New VERAG_PROG_ALLGEMEIN.cAufschubKonten(Standort, firmaId)
             Dim frm As New frmGesamtsicherheitenNEU
 
 
@@ -362,7 +379,20 @@ Public Class usrCntlSND_ATBGestellung
         Process.Start(webAddress)
     End Sub
 
-    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
+    Private Function isZollern(SND As cSendungen)
 
-    End Sub
+        Dim zollernKdnr = {772383, 712203}
+
+        If zollernKdnr.Contains(SND.tblSnd_AbsenderKdNr) OrElse
+            zollernKdnr.Contains(SND.tblSnd_AuftraggeberKdNr) OrElse
+            (SND.tblSnd_AvisiererKdNr IsNot Nothing AndAlso zollernKdnr.Contains(SND.tblSnd_AvisiererKdNr)) OrElse
+            zollernKdnr.Contains(SND.tblSnd_EmpfaengerKdNr) OrElse
+            (SND.tblSnd_FrachtfuehrerKdNr IsNot Nothing AndAlso zollernKdnr.Contains(SND.tblSnd_FrachtfuehrerKdNr)) Then
+            Return True
+        Else
+            Return False
+        End If
+
+
+    End Function
 End Class