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

gesamtsicherheiten: Positionsnummerierung und AvisoID eingebaut

Browse Source
This commit is contained in:
d.breimaier
2022-11-02 17:34:13 +01:00
parent a1e0c2bc6e
commit ff9be06159
3 changed files with 116 additions and 36 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
Aviso/frmGesamtsicherheitenMenuNEU.vb
View File

@@ -5,7 +5,7 @@ Public Class frmGesamtsicherheitenMenuNEU
Public SQL As New VERAG_PROG_ALLGEMEIN.SQL
Dim GesSichRef As VERAG_PROG_ALLGEMEIN.cGesamtsicherheitsReferenz
Public dt As DataTable
Public dataTable As DataTable
Public Property Standort As String = ""
@@ -102,9 +102,9 @@ Public Class frmGesamtsicherheitenMenuNEU
If dgvListe.Rows.Count = 0 Then Exit Function
dt = New DataTable()
dt.Columns.Add("gs_gsnr", GetType(Integer))
dt.Columns.Add("gs_isOpen", GetType(Boolean))
dataTable = New DataTable()
dataTable.Columns.Add("gs_gsnr", GetType(Integer))
dataTable.Columns.Add("gs_isOpen", GetType(Boolean))
@@ -112,9 +112,9 @@ Public Class frmGesamtsicherheitenMenuNEU
For Each row As DataGridViewRow In dgvListe.Rows
If row.Cells("gs_SicherheitsSaldo").Value <> 0 Then
dt.Rows.Add(row.Cells("gs_gsnr").Value, True)
dataTable.Rows.Add(row.Cells("gs_gsnr").Value, True)
Else
dt.Rows.Add(row.Cells("gs_gsnr").Value, False)
dataTable.Rows.Add(row.Cells("gs_gsnr").Value, False)
End If
Next
@@ -157,7 +157,7 @@ Public Class frmGesamtsicherheitenMenuNEU
.FilialNummer = dgvListe.CurrentRow.Cells("gs_filialenNr").Value
.Abfertigungsnummer = dgvListe.CurrentRow.Cells("gs_abfertigungsNr").Value
.warenortID = dgvListe.CurrentRow.Cells("gs_warenort").Value
.dt = Me.dt
.dataTable = Me.dataTable
End With
AddHandler frm.FormClosing, Function()
@@ -176,7 +176,7 @@ Public Class frmGesamtsicherheitenMenuNEU
.Standort = Me.Standort
.datum = Date.Now
.Neu = True
.dt = Me.dt
.dataTable = Me.dataTable
End With
AddHandler frm.FormClosing, Function()
GesSichRef.CalcSaldo()