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

Bugfixes

Browse Source
This commit is contained in:
d.breimaier
2022-10-12 11:23:39 +02:00
parent 457faacad0
commit e5f6b65a9c
2 changed files with 7 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Aviso/frmFrachtkostenBerechnen.Designer.vb generated
View File

@@ -286,6 +286,7 @@ Partial Class frmFrachtkostenBerechnen
Me.cbxLandNach._allowedValuesFreiText = Nothing Me.cbxLandNach._allowedValuesFreiText = Nothing
Me.cbxLandNach._allowFreiText = False Me.cbxLandNach._allowFreiText = False
Me.cbxLandNach._value = "" Me.cbxLandNach._value = ""
Me.cbxLandNach.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.Append
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"
@@ -297,6 +298,7 @@ Partial Class frmFrachtkostenBerechnen
Me.cbxLandVon._allowedValuesFreiText = Nothing Me.cbxLandVon._allowedValuesFreiText = Nothing
Me.cbxLandVon._allowFreiText = False Me.cbxLandVon._allowFreiText = False
Me.cbxLandVon._value = "" Me.cbxLandVon._value = ""
Me.cbxLandVon.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.Suggest
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"

10
Aviso/frmFrachtkostenBerechnen.vb
View File

@@ -21,8 +21,6 @@ Public Class frmFrachtkostenBerechnen
InitializeComponent() InitializeComponent()
Try Try
MsgBox(IsNumeric(absID))
MsgBox(IsNumeric(empfID))
gewicht = IIf(gewichtInput.ToString <> "", CDbl(gewichtInput), 0) gewicht = IIf(gewichtInput.ToString <> "", CDbl(gewichtInput), 0)
@@ -50,13 +48,15 @@ Public Class frmFrachtkostenBerechnen
Private Sub frmFrachtkotenBerechnen_Load(sender As Object, e As EventArgs) Handles MyBase.Load Private Sub frmFrachtkotenBerechnen_Load(sender As Object, e As EventArgs) Handles MyBase.Load
cbxLandVon.fillWithSQL("SELECT Distinct(ISNULL([LandKz],'')) FROM [VERAG].[dbo].[Adressen]", False, "FMZOLL", True, True)
cbxLandVon.fillWithSQL("SELECT Distinct(ISNULL([LandKz],'')) as LandKZ FROM [VERAG].[dbo].[Adressen] order by LandKz asc", False, "FMZOLL", True, 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 [VERAG].[dbo].[Adressen] where AdressenNr = '" & absenderID & "'")
txbVonOrt.fillWithSQL("SELECT ISNULL([Ort],'') FROM [VERAG].[dbo].[Adressen] where AdressenNr = '" & absenderID & "'") txbVonOrt.fillWithSQL("SELECT ISNULL([Ort],'') FROM [VERAG].[dbo].[Adressen] where AdressenNr = '" & absenderID & "'")
cbxLandNach.Items.AddRange(cbxLandVon.Items.Cast(Of VERAG_PROG_ALLGEMEIN.MyListItem).ToArray())
cbxLandNach.fillWithSQL("SELECT Distinct(ISNULL([LandKz],'')) FROM [VERAG].[dbo].[Adressen]", False, "FMZOLL", True, True)
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 [VERAG].[dbo].[Adressen] where AdressenNr = '" & empfaengerID & "'")
txbNachOrt.fillWithSQL("SELECT ISNULL([Ort],'') FROM [VERAG].[dbo].[Adressen] where AdressenNr = '" & empfaengerID & "'") txbNachOrt.fillWithSQL("SELECT ISNULL([Ort],'') FROM [VERAG].[dbo].[Adressen] where AdressenNr = '" & empfaengerID & "'")