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

GUI Verbesserung Warenorte

Browse Source
This commit is contained in:
d.breimaier
2023-01-11 08:43:25 +01:00
parent fc89dc23ef
commit 39837250f1
2 changed files with 14 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Aviso/My Project/AssemblyInfo.vb
View File

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("3.8.4.7")>
<Assembly: AssemblyFileVersion("3.8.4.7")>
<Assembly: AssemblyVersion("3.8.4.8")>
<Assembly: AssemblyFileVersion("3.8.4.8")>

14
Aviso/frmWarenorte.vb
View File

@@ -44,7 +44,9 @@ Public Class frmWarenorte
.Columns("wo_warenort").HeaderText = "Warenort"
.Columns("wo_bezeichnung").Visible = False
.Columns("wo_aktiv").Visible = False
.Columns("wo_firma").Visible = False
'.Columns("wo_firma").Visible = False
.Columns("wo_firma").HeaderText = "Firma"
.Columns("wo_firma").Width = 70
End With
@@ -130,7 +132,15 @@ Public Class frmWarenorte
End If
Dim WarenortNew As New cWarenorte(dgvWarenorteNew.SelectedRows(0).Cells("wo_warenort").Value, dgvWarenorteNew.SelectedRows(0).Cells("wo_firma").Value)
Dim WarenortNew As cWarenorte
If dgvWarenorteNew.SelectedRows(0).Cells("wo_firma").Value Is DBNull.Value Then
WarenortNew = New cWarenorte(dgvWarenorteNew.SelectedRows(0).Cells("wo_warenort").Value, DBNull.Value)
Else
WarenortNew = New cWarenorte(dgvWarenorteNew.SelectedRows(0).Cells("wo_warenort").Value, dgvWarenorteNew.SelectedRows(0).Cells("wo_firma").Value)
End If
txtWarenort.Text = WarenortNew.wo_warenort
txtBezeichnung.Text = WarenortNew.wo_bezeichnung