From 47d2e5b8d085daee18e69b88248709396a5f5ca6 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Fri, 8 Nov 2024 11:05:53 +0100 Subject: [PATCH] Sendung aus IMportAssistent anlegen fix --- Aviso/Anhänge/frmAddSendnung.Designer.vb | 41 +++++++++++++++++-- Aviso/Anhänge/frmAddSendnung.vb | 50 ++++++++++++++++++++++-- Aviso/Anhänge/frmSendungAnhangImport.vb | 11 +++++- Aviso/My Project/AssemblyInfo.vb | 4 +- 4 files changed, 97 insertions(+), 9 deletions(-) diff --git a/Aviso/Anhänge/frmAddSendnung.Designer.vb b/Aviso/Anhänge/frmAddSendnung.Designer.vb index a6177ff..617cdd9 100644 --- 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 diff --git a/Aviso/Anhänge/frmAddSendnung.vb b/Aviso/Anhänge/frmAddSendnung.vb index b0cf2ce..67f5e87 100644 --- 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 \ No newline at end of file diff --git a/Aviso/Anhänge/frmSendungAnhangImport.vb b/Aviso/Anhänge/frmSendungAnhangImport.vb index 61e6441..919ce30 100644 --- 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) diff --git a/Aviso/My Project/AssemblyInfo.vb b/Aviso/My Project/AssemblyInfo.vb index 084a935..ef34caf 100644 --- a/Aviso/My Project/AssemblyInfo.vb +++ b/Aviso/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + +