Zollern - Gesamtsicherheiten, etc.

initATLASAufschubkonten/cWorker_Verwahrung.vb

@@ -596,15 +596,15 @@ Anzeige:
 
                 Select Case filiale
                     Case "4803", "4809"
-                        Standort = "VERAG AG"
+                        Standort = Sicherheiten_Standort.VERAG_AG
                     Case "5601"
-                        Standort = "Unisped GmbH"
+                        Standort = Sicherheiten_Standort.UNISPED
                     Case "5701"
-                        Standort = "AMBAR GmbH"
+                        Standort = Sicherheiten_Standort.AMBAR
                     Case "4810", "5103", "5901"
-                        Standort = "VERAG GmbH"
+                        Standort = Sicherheiten_Standort.VERAG_GMBH
                     Case "5501"
-                        Standort = "IMEX"
+                        Standort = Sicherheiten_Standort.IMEX
                     Case Else
                         Return False
                 End Select
@@ -617,6 +617,11 @@ Anzeige:
 
                     If SND IsNot Nothing AndAlso SND.tblSnd_Abfertigungsart_ID = 44 Then
 
+                        If isZollern(SND) Then
+                            Standort = Sicherheiten_Standort.ZOLLERN
+                        End If
+
+
                         Dim existingEntries As DataTable
                         existingEntries = (New SQL).loadDgvBySql("Select gs_gsnr, gs_gsId, gs_posNr,gs_DK_laufnr, gs_freitext,gs_systemuser,gs_VeralteteWeitereRegistriernummer,gs_MRNNr, gs_ATBNr, gs_dakoyimport from [tblGesamtsicherheit] where [gs_ATBNr] = '" & Vorpapiernummer & "' order by gs_datum desc", "AVISO")
                         If existingEntries.Rows.Count = 0 Then
@@ -1210,9 +1215,9 @@ Anzeige:
 
 
                     TextHTMLtable &= "</tr>"
-                    End If
+                End If
 
-                    TextHTMLtable &= "</table>"
+                TextHTMLtable &= "</table>"
 
                 TextHTMLtable &= vbNewLine & vbNewLine & vbNewLine & "*Automatic generated e-mail*"
                 Return TextHTMLtable
@@ -1245,5 +1250,22 @@ Anzeige:
         End Select
 
 
+    End Function
+
+    Private Shared Function isZollern(SND As cSendungen)
+
+        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