edv/AVISO
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Bugfix

Browse Source
This commit is contained in:
d.breimaier
2022-10-12 14:23:58 +02:00
parent acf168c72e
commit faec94f9e3
2 changed files with 14 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
Aviso/frmFrachtkostenBerechnen.Designer.vb generated
View File

@@ -287,10 +287,11 @@ Partial Class frmFrachtkostenBerechnen
Me.cbxLandNach._allowFreiText = False Me.cbxLandNach._allowFreiText = False
Me.cbxLandNach._value = "" Me.cbxLandNach._value = ""
Me.cbxLandNach.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.Append Me.cbxLandNach.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.Append
Me.cbxLandNach.DropDownWidth = 250
Me.cbxLandNach.FormattingEnabled = True Me.cbxLandNach.FormattingEnabled = True
Me.cbxLandNach.Location = New System.Drawing.Point(255, 23) Me.cbxLandNach.Location = New System.Drawing.Point(255, 23)
Me.cbxLandNach.Name = "cbxLandNach" Me.cbxLandNach.Name = "cbxLandNach"
Me.cbxLandNach.Size = New System.Drawing.Size(50, 21) Me.cbxLandNach.Size = New System.Drawing.Size(35, 21)
Me.cbxLandNach.TabIndex = 6 Me.cbxLandNach.TabIndex = 6
' '
'cbxLandVon 'cbxLandVon
@@ -299,10 +300,11 @@ Partial Class frmFrachtkostenBerechnen
Me.cbxLandVon._allowFreiText = False Me.cbxLandVon._allowFreiText = False
Me.cbxLandVon._value = "" Me.cbxLandVon._value = ""
Me.cbxLandVon.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.Suggest Me.cbxLandVon.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.Suggest
Me.cbxLandVon.DropDownWidth = 250
Me.cbxLandVon.FormattingEnabled = True Me.cbxLandVon.FormattingEnabled = True
Me.cbxLandVon.Location = New System.Drawing.Point(75, 22) Me.cbxLandVon.Location = New System.Drawing.Point(75, 22)
Me.cbxLandVon.Name = "cbxLandVon" Me.cbxLandVon.Name = "cbxLandVon"
Me.cbxLandVon.Size = New System.Drawing.Size(50, 21) Me.cbxLandVon.Size = New System.Drawing.Size(35, 21)
Me.cbxLandVon.TabIndex = 3 Me.cbxLandVon.TabIndex = 3
' '
'txbCalcDistanceNichtEU 'txbCalcDistanceNichtEU
@@ -532,12 +534,12 @@ Partial Class frmFrachtkostenBerechnen
Me.txbNachPLZ._Waehrung = False Me.txbNachPLZ._Waehrung = False
Me.txbNachPLZ._WaehrungZeichen = True Me.txbNachPLZ._WaehrungZeichen = True
Me.txbNachPLZ.ForeColor = System.Drawing.Color.Black Me.txbNachPLZ.ForeColor = System.Drawing.Color.Black
Me.txbNachPLZ.Location = New System.Drawing.Point(311, 23) Me.txbNachPLZ.Location = New System.Drawing.Point(301, 23)
Me.txbNachPLZ.MaxLineLength = -1 Me.txbNachPLZ.MaxLineLength = -1
Me.txbNachPLZ.MaxLines_Warning = "" Me.txbNachPLZ.MaxLines_Warning = ""
Me.txbNachPLZ.MaxLines_Warning_Label = Nothing Me.txbNachPLZ.MaxLines_Warning_Label = Nothing
Me.txbNachPLZ.Name = "txbNachPLZ" Me.txbNachPLZ.Name = "txbNachPLZ"
Me.txbNachPLZ.Size = New System.Drawing.Size(50, 20) Me.txbNachPLZ.Size = New System.Drawing.Size(60, 20)
Me.txbNachPLZ.TabIndex = 7 Me.txbNachPLZ.TabIndex = 7
' '
'txbVonPLZ 'txbVonPLZ
@@ -555,12 +557,12 @@ Partial Class frmFrachtkostenBerechnen
Me.txbVonPLZ._Waehrung = False Me.txbVonPLZ._Waehrung = False
Me.txbVonPLZ._WaehrungZeichen = True Me.txbVonPLZ._WaehrungZeichen = True
Me.txbVonPLZ.ForeColor = System.Drawing.Color.Black Me.txbVonPLZ.ForeColor = System.Drawing.Color.Black
Me.txbVonPLZ.Location = New System.Drawing.Point(130, 23) Me.txbVonPLZ.Location = New System.Drawing.Point(116, 23)
Me.txbVonPLZ.MaxLineLength = -1 Me.txbVonPLZ.MaxLineLength = -1
Me.txbVonPLZ.MaxLines_Warning = "" Me.txbVonPLZ.MaxLines_Warning = ""
Me.txbVonPLZ.MaxLines_Warning_Label = Nothing Me.txbVonPLZ.MaxLines_Warning_Label = Nothing
Me.txbVonPLZ.Name = "txbVonPLZ" Me.txbVonPLZ.Name = "txbVonPLZ"
Me.txbVonPLZ.Size = New System.Drawing.Size(50, 20) Me.txbVonPLZ.Size = New System.Drawing.Size(64, 20)
Me.txbVonPLZ.TabIndex = 4 Me.txbVonPLZ.TabIndex = 4
' '
'tbNichtEUAnteil 'tbNichtEUAnteil

11
Aviso/frmFrachtkostenBerechnen.vb
View File

@@ -50,16 +50,17 @@ Public Class frmFrachtkostenBerechnen
cbxLandVon.fillWithSQL("SELECT Distinct(ISNULL([LandKz],'')) as LandKZ FROM [VERAG].[dbo].[Adressen] order by LandKz asc", False, "FMZOLL", True, True) 'cbxLandVon.fillWithSQL("SELECT Distinct(ISNULL([LandKz],'')) as LandKZ FROM [Adressen] order by LandKz asc", False, "FMZOLL", True, True)
cbxLandVon.fillWithSQL(" select distinct landkz, Währungstabelle.Land from Währungstabelle where landkz is not null order by LandKz", True, "FMZOLL", True)
cbxLandVon.changeItem(sql.DLookup("[LandKz]", "[Adressen]", "[AdressenNr]='" & absenderID & "'", "FMZOLL", "")) cbxLandVon.changeItem(sql.DLookup("[LandKz]", "[Adressen]", "[AdressenNr]='" & absenderID & "'", "FMZOLL", ""))
txbVonPLZ.fillWithSQL("SELECT ISNULL([PLZ],'') FROM [VERAG].[dbo].[Adressen] where AdressenNr = '" & absenderID & "'") txbVonPLZ.fillWithSQL("SELECT ISNULL([PLZ],'') FROM [Adressen] where AdressenNr = '" & absenderID & "'", "FMZOLL")
txbVonOrt.fillWithSQL("SELECT ISNULL([Ort],'') FROM [VERAG].[dbo].[Adressen] where AdressenNr = '" & absenderID & "'") txbVonOrt.fillWithSQL("SELECT ISNULL([Ort],'') FROM [Adressen] where AdressenNr = '" & absenderID & "'", "FMZOLL")
cbxLandNach.Items.AddRange(cbxLandVon.Items.Cast(Of VERAG_PROG_ALLGEMEIN.MyListItem).ToArray()) cbxLandNach.Items.AddRange(cbxLandVon.Items.Cast(Of VERAG_PROG_ALLGEMEIN.MyListItem).ToArray())
cbxLandNach.changeItem(sql.DLookup("[LandKz]", "[Adressen]", "[AdressenNr]='" & empfaengerID & "'", "FMZOLL", "")) cbxLandNach.changeItem(sql.DLookup("[LandKz]", "[Adressen]", "[AdressenNr]='" & empfaengerID & "'", "FMZOLL", ""))
txbNachPLZ.fillWithSQL("SELECT ISNULL([PLZ],'-') FROM [VERAG].[dbo].[Adressen] where AdressenNr = '" & empfaengerID & "'") txbNachPLZ.fillWithSQL("SELECT ISNULL([PLZ],'-') FROM [Adressen] where AdressenNr = '" & empfaengerID & "'", "FMZOLL")
txbNachOrt.fillWithSQL("SELECT ISNULL([Ort],'') FROM [VERAG].[dbo].[Adressen] where AdressenNr = '" & empfaengerID & "'") txbNachOrt.fillWithSQL("SELECT ISNULL([Ort],'') FROM [Adressen] where AdressenNr = '" & empfaengerID & "'", "FMZOLL")
ckbManAnteilsermittlung.Checked = True ckbManAnteilsermittlung.Checked = True