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

gesamtsicherheiten

Browse Source
This commit is contained in:
d.breimaier
2026-03-18 13:53:44 +01:00
parent 5490712df7
commit e93748277b
7 changed files with 416 additions and 298 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
Aviso/frmGesamtsicherheitenMenuNEU.vb
View File

@@ -75,6 +75,7 @@ Public Class frmGesamtsicherheitenMenuNEU
) <> 0 "
If cbxStandort._value <> "" Then sqladdon &= " AND gs_filialenNr = " & cbxStandort._value.ToString
If cbxWarenort._value <> "" Then sqladdon &= " AND gs_warenort = '" & cbxWarenort._value.ToString & "'"
If cbxAUTO.Checked Then sqladdon &= " AND CAST(gs_dakoyimport AS INT) = 1"
'Dim sqlstring As String =
' " select * from (Select gs_gsnr as gs_gsnr, MIN(gs_standort) as gs_standort, MIN(gs_warenort) as gs_warenort, MIN(gs_filialenNr) as gs_filialenNr, min(gs_abfertigungsNr) as gs_abfertigungsNr, MIN(gs_avisoId) as gs_avisoId,
@@ -127,12 +128,14 @@ Public Class frmGesamtsicherheitenMenuNEU
)
SELECT
gs.gs_gsnr,
MAX(CAST(gs_dakoyimport AS INT)) AS gs_DAKOSYAUTO,
MIN(gs.gs_standort) AS gs_standort,
MIN(gs.gs_warenort) AS gs_warenort,
MIN(gs.gs_filialenNr) AS gs_filialenNr,
MIN(gs.gs_abfertigungsNr) AS gs_abfertigungsNr,
MIN(gs.gs_avisoId) AS gs_avisoId,
MAX(gs.gs_LKWKZ) AS gs_LKWKZ,
MIN(gs.gs_datum) AS gs_datum,
(
COALESCE(MAX(SicherheitsSaldo.gs_SicherheitsSaldo), 0) +
@@ -166,7 +169,7 @@ Public Class frmGesamtsicherheitenMenuNEU
.RowHeadersWidth = 6
.Columns("gs_standort").Visible = False
.Columns("gs_gsnr").HeaderText = "#"
.Columns("gs_gsnr").Width = 36
.Columns("gs_gsnr").Width = 45
.Columns("gs_filialenNr").HeaderText = "Filiale"
.Columns("gs_filialenNr").Width = 43
.Columns("gs_abfertigungsNr").HeaderText = "Abfert.Nr."
@@ -181,6 +184,21 @@ Public Class frmGesamtsicherheitenMenuNEU
.Columns("gs_avisoId").Width = 96
.Columns("gs_avisoId").HeaderText = "LKW-ID"
.Columns("gs_LKWKZ").HeaderText = "LKW-KZ"
.Columns("gs_DAKOSYAUTO").HeaderText = "AUTO"
.Columns("gs_DAKOSYAUTO").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
If TypeOf .Columns("gs_DAKOSYAUTO") Is DataGridViewCheckBoxColumn = False Then
Dim colIndex As Integer = dgvListe.Columns("gs_DAKOSYAUTO").Index
.Columns.Remove("gs_DAKOSYAUTO")
Dim chkCol As New DataGridViewCheckBoxColumn()
chkCol.Name = "gs_DAKOSYAUTO"
chkCol.HeaderText = "AUTO"
chkCol.Width = 40
chkCol.DataPropertyName = "gs_DAKOSYAUTO"
.Columns.Insert(colIndex, chkCol)
End If
End With
@@ -233,7 +251,8 @@ Public Class frmGesamtsicherheitenMenuNEU
.warenortID = dgvListe.CurrentRow.Cells("gs_warenort").Value
.avisoID = dgvListe.CurrentRow.Cells("gs_avisoId").Value
.dataTable = Me.dataTable
.firmaId = Me.firmaId
.DAKOSY_AUTO = dgvListe.CurrentRow.Cells("gs_DAKOSYAUTO").Value
End With
AddHandler frm.FormClosing, Function()