Kundenanlage VERIMEX (AMVAR); cbo Erwe. hasItems

VERAG_PROG_ALLGEMEIN/Classes/cFeiertage.vb

@@ -211,6 +211,10 @@
                 '  If datum = CDate("08.08." & _Year) Then Return True ' Augsburger Friedensfest 
                 If datum = CDate("01.05." & _Year) Then Return True ' Maifeiertag
                 If datum = Karfreitag Then Return True
+            Case "GB" 'BAYERN 
+                Return False
+            Case Else
+                Return False
         End Select
         Return False
     End Function

VERAG_PROG_ALLGEMEIN/Classes/cSendungen.vb

@@ -112,6 +112,8 @@ Public Class cSendungen
     Property tblSnd_AbfertigungTRAnzahl As Object = Nothing
     Property tblSnd_AbfertigungTRAnzahlPos As Object = Nothing
 
+    Property tblSnd_Firma As Object = Nothing
+    Property tblSnd_Cluster As Object = Nothing
 
 
     Public saveSachbearbeiter As Boolean = False
@@ -254,6 +256,10 @@ Public Class cSendungen
     Public Function SAVE(Optional saveStatus = True) As Boolean 'obj As Object, tablename As String, where As String) As Boolean
         Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList(saveStatus)
         'WITH(updlock,serializable) 
+
+        tblSnd_Firma = VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale2(FilialenNr,, "")
+        tblSnd_Cluster = VERAG_PROG_ALLGEMEIN.cAllgemein.getClusterFromFiliale(FilialenNr,, "")
+
         Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM [tblSendungen] WHERE tblSnd_SendungID=@tblSnd_SendungID) " &
                        " BEGIN " & getUpdateCmd(saveStatus) & " END " &
                        " Else " &
@@ -425,6 +431,9 @@ Public Class cSendungen
                     Me.tblSnd_AbfertigungTR_MA = SQL.checkNullReturnValue(dr.Item("tblSnd_AbfertigungTR_MA"), Nothing)
                     Me.tblSnd_AbfertigungTRAnzahl = SQL.checkNullIntegerZero(dr.Item("tblSnd_AbfertigungTRAnzahl"))
                     Me.tblSnd_AbfertigungTRAnzahlPos = SQL.checkNullIntegerZero(dr.Item("tblSnd_AbfertigungTRAnzahlPos"))
+                    Me.tblSnd_Firma = SQL.checkNullReturnValue(dr.Item("tblSnd_Firma"), Nothing)
+                    Me.tblSnd_Cluster = SQL.checkNullReturnValue(dr.Item("tblSnd_Cluster"), Nothing)
+
 
                 End If
 
@@ -650,6 +659,9 @@ Public Class cSendungen
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_AbfertigungTR_MA", tblSnd_AbfertigungTR_MA))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_AbfertigungTRAnzahl", tblSnd_AbfertigungTRAnzahl))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_AbfertigungTRAnzahlPos", tblSnd_AbfertigungTRAnzahlPos))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_Firma", tblSnd_Firma))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_Cluster", tblSnd_Cluster))
+
         'End If
         Return list
     End Function