Sendung aus IMportAssistent anlegen fix

Aviso/Anhänge/frmAddSendnung.vb

@@ -3,10 +3,12 @@
     Public Sendung As VERAG_PROG_ALLGEMEIN.cSendungen = Nothing
     Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
     Dim AvisoId As Integer
+    Dim filialNr As Integer = -1
     Dim AVISOFUNC As New AvisoStatusFunctions
     Public SendungsId As Integer = -1
     Public frmName As String = "Sendung hinzufügen"
-    Sub New(AvisoId)
+
+    Sub New(AvisoId As Integer)
 
         ' Dieser Aufruf ist für den Designer erforderlich.
         InitializeComponent()
@@ -15,7 +17,7 @@
 
     End Sub
 
-    Sub New(AvisoId, SENDUNG)
+    Sub New(AvisoId As Integer, SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen)
 
         ' Dieser Aufruf ist für den Designer erforderlich.
         InitializeComponent()
@@ -27,7 +29,7 @@
 
 
 
-    Sub New(AvisoId, SENDUNG, frmName)
+    Sub New(AvisoId As Integer, SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen, frmName As String)
 
         ' Dieser Aufruf ist für den Designer erforderlich.
         InitializeComponent()
@@ -36,12 +38,24 @@
         Me.frmName = frmName
         ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
 
+    End Sub
+
+    Sub New(AvisoId As Integer, FilialNr As Integer)
+
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+        Me.AvisoId = AvisoId
+        Me.filialNr = FilialNr
+        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+
     End Sub
     Private Sub frmAddSendnung_Load(sender As Object, e As EventArgs) Handles Me.Load
 
 
         'Me.Text = frmName
 
+        cboAbfertigungsLand.fillWithSQL("SELECT [AbfertigungsLand],AbfertigungsLand FROM [AbfertigungsLaender] WHERE Firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' OR Cluster='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "' OR (Firma is null and cluster is null)", False, "FMZOLL", True)
+
         cboAbfertigungsart.fillWithSQL("SELECT [Abfertigungsart],[Abfertigungsbezeichnung] FROM [Abfertigungsarten] ", True, "FMZOLL", True)
         txtEmpfaenger.initKdBox(Me)
         txtEmpfaenger.usrcntlWIDTH = 360
@@ -213,4 +227,34 @@
     Private Sub txtGewicht_Leave(sender As Object, e As EventArgs) Handles txtGewicht.Leave, txtColli.Leave
         sender.Text = sender.Text.Replace(" ", "")
     End Sub
+
+    Private Sub cboAbfertigungsLand_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboAbfertigungsLand.SelectedIndexChanged
+
+        initAbfertigungsart()
+
+    End Sub
+
+    Sub initAbfertigungsart(Optional fillwithAbfNr As Boolean = False, Optional AbfNr As Object = Nothing)
+        Dim abfTmp As String = cboAbfertigungsart._value
+
+        Dim filialNrwhere = filialNr
+        If Sendung Is Nothing AndAlso AvisoId > 0 AndAlso filialNr < 1 Then
+            Sendung = New VERAG_PROG_ALLGEMEIN.cSendungen(AvisoId, SQL.getValueTxtBySql("SELECT Count(*) FROM tblSendungen WHERE tblSnd_AvisoID=" & AvisoId & "", "AVISO"),,,, 0)
+            filialNrwhere = IIf(filialNr > 0, filialNr, Sendung.FilialenNr)
+        End If
+
+
+
+        cboAbfertigungsart.fillWithSQL("
+            SELECT AA.Abfertigungsart,AA.[Abfertigungsbezeichnung] FROM [Abfertigungsarten]as  AA 
+            INNER JOIN AbfertigungsLaenderAbfertigungsarten as ALA ON AA.Abfertigungsart=ALA.Abfertigungsart 
+            INNER JOIN tblAbfertigungsartenFiliale ON tblAbfertigungsartenFiliale.Abfertigungsart=AA.Abfertigungsart    
+            WHERE ALA.[AbfertigungsLand]='" & cboAbfertigungsLand._value & "' 
+            AND  Filialennr='" & filialNrwhere & "'
+            GROUP BY AA.Abfertigungsart,AA.[Abfertigungsbezeichnung]", True, "FMZOLL", True)
+        If abfTmp <> "" Then
+            cboAbfertigungsart.changeItem(abfTmp)
+        End If
+    End Sub
+
 End Class