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

Meldung bei fehlerhafter Standortermittlung.

Browse Source
This commit is contained in:
d.breimaier
2022-10-12 11:33:03 +02:00
parent e9a84ab255
commit acf168c72e
1 changed files with 8 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
Aviso/frmFrachtkostenBerechnen.vb
View File

@@ -152,15 +152,17 @@ Public Class frmFrachtkostenBerechnen
tbEUAnteil._value = 0.6 tbEUAnteil._value = 0.6
tbNichtEUAnteil._value = 0.4 tbNichtEUAnteil._value = 0.4
If distance = "0" Or distance = "" Then
MsgBox("Standort vom Abgangsort/Bestimmungsort kann nicht ermittelt werden!" & vbCr & "Bitte Eingabe prüfen")
End If
lblDistanzEU.Text = "Distanz" lblDistanzEU.Text = "Distanz"
txbCalcDistanceEU._value = distance txbCalcDistanceEU._value = distance
lblDistanzNichtEU.Visible = False lblDistanzNichtEU.Visible = False
txbCalcDistanceNichtEU.Visible = False txbCalcDistanceNichtEU.Visible = False
Else Else
lblDistanzEU.Text = "Distanz" lblDistanzEU.Text = "Distanz"
txbCalcDistanceEU._value = distance txbCalcDistanceEU._value = distance
lblDistanzNichtEU.Visible = False lblDistanzNichtEU.Visible = False
txbCalcDistanceNichtEU.Visible = False txbCalcDistanceNichtEU.Visible = False