Code development platform for open source projects from the European Union institutions :large_blue_circle: EU Login authentication by SMS has been phased out. To see alternatives please check here

Skip to content
Snippets Groups Projects
Commit d2fdcea5 authored by Markus Quaritsch's avatar Markus Quaritsch
Browse files

fix: check if hdv-class is valid

parent 790ebade
No related branches found
No related tags found
No related merge requests found
......@@ -1037,7 +1037,8 @@ lbDlog:
HDVclass = "-"
End If
PicVehicle.Image = ConvPicPath(HDVclass.ToInt(), False) 'Image.FromFile(cDeclaration.ConvPicPath(HDVclass, False))
PicVehicle.Image = ConvPicPath(If(s0 Is Nothing, -1, HDVclass.ToInt()), False) _
'Image.FromFile(cDeclaration.ConvPicPath(HDVclass, False))
TbHVCclass.Text = "HDV Class " & HDVclass
TbVehCat.Text = VEH0.VehicleCategory.GetCategoryName() 'ConvVehCat(VEH0.VehCat, True)
......
......@@ -122,7 +122,7 @@ Public Class VehicleForm
TbHDVclass.Text = _hdVclass
PicVehicle.Image = ConvPicPath(_hdVclass.ToInt(), False)
PicVehicle.Image = ConvPicPath(If(s0 Is Nothing, -1, _hdVclass.ToInt()), False)
End Sub
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment