Merge branch 'master' of https://dev.azure.com/VeragAG/_git/AVISO

2024-11-08 11:26:12 +01:00
parent 778facb93b 20ef28a101
commit 8f21788a8a
3 changed files with 95 additions and 7 deletions
--- a/Aviso/Anhänge/frmAddSendnung.Designer.vb
+++ b/Aviso/Anhänge/frmAddSendnung.Designer.vb
@@ -47,6 +47,8 @@ Partial Class frmAddSendnung
        Me.txtWarenwertWaehrung = New VERAG_PROG_ALLGEMEIN.MySearchBox()
        Me.lblWW = New System.Windows.Forms.Label()
        Me.txtWarenwert = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label5 = New System.Windows.Forms.Label()
+        Me.cboAbfertigungsLand = New VERAG_PROG_ALLGEMEIN.MyComboBox()
        CType(Me.picWarnAbsender, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.picWarnEmpfaenger, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.SuspendLayout()
@@ -59,9 +61,9 @@ Partial Class frmAddSendnung
        Me.cboAbfertigungsart.BackColor = System.Drawing.Color.White
        Me.cboAbfertigungsart.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.cboAbfertigungsart.FormattingEnabled = True
-        Me.cboAbfertigungsart.Location = New System.Drawing.Point(12, 29)
+        Me.cboAbfertigungsart.Location = New System.Drawing.Point(102, 29)
        Me.cboAbfertigungsart.Name = "cboAbfertigungsart"
-        Me.cboAbfertigungsart.Size = New System.Drawing.Size(425, 24)
+        Me.cboAbfertigungsart.Size = New System.Drawing.Size(335, 24)
        Me.cboAbfertigungsart.TabIndex = 1
        '
        'Label1
@@ -69,7 +71,7 @@ Partial Class frmAddSendnung
        Me.Label1.AutoSize = True
        Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label1.ForeColor = System.Drawing.Color.Black
-        Me.Label1.Location = New System.Drawing.Point(10, 9)
+        Me.Label1.Location = New System.Drawing.Point(99, 9)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(109, 17)
        Me.Label1.TabIndex = 0
@@ -86,6 +88,7 @@ Partial Class frmAddSendnung
        Me.txtEmpfaenger._displayWoelflKd = False
        Me.txtEmpfaenger._hideIfListEmpty = True
        Me.txtEmpfaenger._loadKdData = True
+        Me.txtEmpfaenger._searchName1 = True
        Me.txtEmpfaenger._UseFIRMA = ""
        Me.txtEmpfaenger._ValueKdAndName = True
        Me.txtEmpfaenger.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper
@@ -109,6 +112,7 @@ Partial Class frmAddSendnung
        Me.txtGewicht._DateTimeOnly = False
        Me.txtGewicht._numbersOnly = True
        Me.txtGewicht._numbersOnlyKommastellen = ""
+        Me.txtGewicht._numbersOnlyTrennzeichen = True
        Me.txtGewicht._Prozent = False
        Me.txtGewicht._ShortDateNew = False
        Me.txtGewicht._ShortDateOnly = False
@@ -150,6 +154,7 @@ Partial Class frmAddSendnung
        Me.txtColli._DateTimeOnly = False
        Me.txtColli._numbersOnly = True
        Me.txtColli._numbersOnlyKommastellen = ""
+        Me.txtColli._numbersOnlyTrennzeichen = True
        Me.txtColli._Prozent = False
        Me.txtColli._ShortDateNew = False
        Me.txtColli._ShortDateOnly = False
@@ -230,6 +235,7 @@ Partial Class frmAddSendnung
        Me.txtAbsender._displayWoelflKd = False
        Me.txtAbsender._hideIfListEmpty = True
        Me.txtAbsender._loadKdData = True
+        Me.txtAbsender._searchName1 = True
        Me.txtAbsender._UseFIRMA = ""
        Me.txtAbsender._ValueKdAndName = True
        Me.txtAbsender.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper
@@ -360,6 +366,7 @@ Partial Class frmAddSendnung
        Me.txtWarenwert._DateTimeOnly = False
        Me.txtWarenwert._numbersOnly = True
        Me.txtWarenwert._numbersOnlyKommastellen = ""
+        Me.txtWarenwert._numbersOnlyTrennzeichen = True
        Me.txtWarenwert._Prozent = False
        Me.txtWarenwert._ShortDateNew = False
        Me.txtWarenwert._ShortDateOnly = False
@@ -378,12 +385,38 @@ Partial Class frmAddSendnung
        Me.txtWarenwert.TabIndex = 15
        Me.txtWarenwert.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
        '
+        'Label5
+        '
+        Me.Label5.AutoSize = True
+        Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label5.ForeColor = System.Drawing.Color.Black
+        Me.Label5.Location = New System.Drawing.Point(9, 9)
+        Me.Label5.Name = "Label5"
+        Me.Label5.Size = New System.Drawing.Size(74, 17)
+        Me.Label5.TabIndex = 88
+        Me.Label5.Text = "Abf.-Land:"
+        '
+        'cboAbfertigungsLand
+        '
+        Me.cboAbfertigungsLand._allowedValuesFreiText = Nothing
+        Me.cboAbfertigungsLand._allowFreiText = False
+        Me.cboAbfertigungsLand._value = ""
+        Me.cboAbfertigungsLand.BackColor = System.Drawing.Color.White
+        Me.cboAbfertigungsLand.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.cboAbfertigungsLand.FormattingEnabled = True
+        Me.cboAbfertigungsLand.Location = New System.Drawing.Point(15, 29)
+        Me.cboAbfertigungsLand.Name = "cboAbfertigungsLand"
+        Me.cboAbfertigungsLand.Size = New System.Drawing.Size(68, 24)
+        Me.cboAbfertigungsLand.TabIndex = 89
+        '
        'frmAddSendnung
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
        Me.BackColor = System.Drawing.Color.White
        Me.ClientSize = New System.Drawing.Size(449, 441)
+        Me.Controls.Add(Me.cboAbfertigungsLand)
+        Me.Controls.Add(Me.Label5)
        Me.Controls.Add(Me.txtWarenwertWaehrung)
        Me.Controls.Add(Me.lblWW)
        Me.Controls.Add(Me.txtWarenwert)
@@ -440,4 +473,6 @@ Partial Class frmAddSendnung
    Friend WithEvents txtWarenwertWaehrung As VERAG_PROG_ALLGEMEIN.MySearchBox
    Friend WithEvents lblWW As Label
    Friend WithEvents txtWarenwert As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label5 As Label
+    Friend WithEvents cboAbfertigungsLand As VERAG_PROG_ALLGEMEIN.MyComboBox
 End Class
--- a/Aviso/Anhänge/frmAddSendnung.vb
+++ b/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
--- a/Aviso/Anhänge/frmSendungAnhangImport.vb
+++ b/Aviso/Anhänge/frmSendungAnhangImport.vb
@@ -1611,7 +1611,16 @@ Public Class frmSendungAnhangImport
    End Sub

    Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles btnAddSnd.Click
-        Dim f As New frmAddSendnung(AvisoId)
+
+        If cboSendungen.SelectedItem.value Is Nothing Then Exit Sub
+
+        Dim SND As New VERAG_PROG_ALLGEMEIN.cSendungen(cboSendungen.SelectedItem.value)
+
+        If SND.FilialenNr < 1 Then MsgBox("In bestehender Sendung wurde keine Filiale ausgewählt!") : Exit Sub
+
+        Dim f = New frmAddSendnung(AvisoId, SND.FilialenNr)
+
+
        If f.ShowDialog(Me) = DialogResult.OK Then
            initSendungen()
            cboSendungen.changeItem(f.SendungsId)