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

Sendungsdetails, etc.

Browse Source
This commit is contained in:
d.breimaier
2026-03-25 15:51:50 +01:00
parent 73f867c7e4
commit e6f22a2e5d
8 changed files with 326 additions and 268 deletions
Download Patch File Download Diff File Expand all files Collapse all files

38
Aviso/frmGesamtsicherheitenMenuNEU.vb
View File

@@ -68,6 +68,7 @@ Public Class frmGesamtsicherheitenMenuNEU
Public Function LoadDGV()
Dim sqladdon As String = ""
Dim sqlWhere As String = ""
Dim sqlSicherheitssaldo As String = ""
If chkOffen.Checked Then sqlSicherheitssaldo &= " HAVING
( COALESCE(MAX(SicherheitsSaldo.gs_SicherheitsSaldo), 0) +
@@ -77,6 +78,24 @@ Public Class frmGesamtsicherheitenMenuNEU
If cbxWarenort._value <> "" Then sqladdon &= " AND gs_warenort = '" & cbxWarenort._value.ToString & "'"
If cbxAUTO.Checked Then sqladdon &= " AND CAST(gs_dakoyimport AS INT) = 1"
If txtSuchbegriff.Text <> "" Then
sqlWhere = " AND ( gs.gs_freitext LIKE '%" & txtSuchbegriff.Text.Trim() & "%' OR
gs.gs_abfertigungsNr LIKE '%" & txtSuchbegriff.Text.Trim() & "%' OR
gs.gs_avisoId LIKE '%" & txtSuchbegriff.Text.Trim() & "%' OR
gs.gs_ATBNr LIKE '%" & txtSuchbegriff.Text.Trim() & "%' OR
gs.gs_VeralteteWeitereRegistriernummer LIKE '%" & txtSuchbegriff.Text.Trim() & "%' OR
gs.gs_MRNNr LIKE '%" & txtSuchbegriff.Text.Trim() & "%' OR
gs.gs_LKWKZ LIKE '%" & txtSuchbegriff.Text.Trim() & "%' OR
gs.gs_warenort LIKE '%" & txtSuchbegriff.Text.Trim() & "%'
)"
End If
'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,
' max(gs_LKWKZ) as gs_LKWKZ, min (gs_datum) as gs_datum, FORMAT(
@@ -145,17 +164,10 @@ Public Class frmGesamtsicherheitenMenuNEU
tblGesamtsicherheit gs
LEFT JOIN SicherheitsSaldo ON gs.gs_gsnr = SicherheitsSaldo.gs_gsnr
LEFT JOIN PositionenSaldo ON gs.gs_gsnr = PositionenSaldo.gsp_gsnr
WHERE
WHERE gs.gs_gsnr <> 2030 AND
gs.gs_standort = '" & Standort & "' " & sqladdon & "
AND gs.gs_datum BETWEEN '" & Date.Parse(txtDatVon.Text) & "' AND '" & Date.Parse(txtDatBis.Text).AddDays(1).AddSeconds(-1) & "'
AND (
gs.gs_freitext LIKE '%" & txtSuchbegriff.Text & "%' OR
gs.gs_abfertigungsNr LIKE '%" & txtSuchbegriff.Text & "%' OR
gs.gs_avisoId LIKE '%" & txtSuchbegriff.Text & "%' OR
gs.gs_ATBNr LIKE '%" & txtSuchbegriff.Text & "%' OR
gs.gs_LKWKZ LIKE '%" & txtSuchbegriff.Text & "%' OR
gs.gs_warenort LIKE '%" & txtSuchbegriff.Text & "%'
)
AND gs.gs_datum BETWEEN '" & Date.Parse(txtDatVon.Text) & "' AND '" & Date.Parse(txtDatBis.Text).AddDays(1).AddSeconds(-1) & "'" & sqlWhere & "
GROUP BY
gs.gs_gsnr " & sqlSicherheitssaldo &
"ORDER BY
@@ -472,7 +484,7 @@ Public Class frmGesamtsicherheitenMenuNEU
WHEN gs_art = 'Open' THEN -gs_sicherheitsbetrag
WHEN gs_art = 'Close' THEN gs_sicherheitsbetrag
END) AS gs_SicherheitsSaldo
FROM tblGesamtsicherheit
FROM tblGesamtsicherheit WHERE gs_gsnr <> 2030
GROUP BY gs_gsnr
),
PositionenSaldo AS (
@@ -482,7 +494,7 @@ Public Class frmGesamtsicherheitenMenuNEU
WHEN gsp_art = 'Open' THEN -gsp_sicherheitsbetrag
WHEN gsp_art = 'Close' THEN gsp_sicherheitsbetrag
END) AS gsp_SicherheitsSaldo
FROM tblGesamtsicherheitsPositionen
FROM tblGesamtsicherheitsPositionen WHERE gsp_gsnr <> 2030
GROUP BY gsp_gsnr
)
SELECT
@@ -497,7 +509,7 @@ Public Class frmGesamtsicherheitenMenuNEU
FROM tblGesamtsicherheit gs
LEFT JOIN SicherheitsSaldo ON gs.gs_gsnr = SicherheitsSaldo.gs_gsnr
LEFT JOIN PositionenSaldo ON gs.gs_gsnr = PositionenSaldo.gsp_gsnr
WHERE gs.gs_standort = '" & Standort & "'
WHERE gs.gs_standort = '" & Standort & "' AND gs.gs_gsnr <> 2030
AND gs.gs_datum < '" & Date.Now().AddDays(-85) & "'
GROUP BY gs.gs_gsnr
) AS meh2