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

Gessamtsicherheiten, Gesamtsicherheiten, essensbestellungen

Browse Source
This commit is contained in:
d.breimaier
2023-01-04 16:52:24 +01:00
parent 31af690dc4
commit 48b12b78f5
20 changed files with 3646 additions and 731 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
Aviso/frmGesamtsicherheitenMenuNEU.vb
View File

@@ -12,7 +12,9 @@ Public Class frmGesamtsicherheitenMenuNEU
Private Sub frmGesamtsicherheitenNEU_Menu_Load(sender As Object, e As EventArgs) Handles MyBase.Load
cbxStandort.fillWithSQL("SELECT FilialenNr, cast(FilialenNr as varchar(4)) + ' ' + Grenzstelle FROM Filialen WHERE Fil_Status='A' ORDER BY FilialenNr ", True, "FMZOLL", True)
cbxWarenort.fillWithSQL("SELECT [grz_Grenzstelle], [grz_Bezeichnung] FROM [tblGrenzstelle] WHERE [grz_Aktiv] ='1' AND [grz_Warenort] ='1' ORDER BY [grz_Reihenfolge] ", True, "AVISO", True)
'cbxWarenort.fillWithSQL("SELECT [grz_Grenzstelle], [grz_Bezeichnung] FROM [tblGrenzstelle] WHERE [grz_Aktiv] ='1' AND [grz_Warenort] ='1' ORDER BY [grz_Reihenfolge] ", True, "AVISO", True)
cbxWarenort.fillWithSQL("SELECT [wo_warenort],CONCAT([wo_knnr],' - ' ,[wo_bezeichnung]) FROM [tblWarenorte] WHERE [wo_aktiv] ='1' ORDER BY [wo_reihenfolge] ", True, "AVISO", True)
cbxWarenort.DropDownWidth = 150
Me.Text = "Gesamtsicherheiten " & Standort
frmHauptfenster.EnableDoubleBuffered(dgvListe)
@@ -116,18 +118,9 @@ Public Class frmGesamtsicherheitenMenuNEU
If row.Cells("gs_SicherheitsSaldo").Value <> 0 And row.Cells("gs_SicherheitsSaldo").Value <> 0.01 And row.Cells("gs_SicherheitsSaldo").Value <> -0.01 Then
dataTable.Rows.Add(row.Cells("gs_gsnr").Value, True)
Else
dataTable.Rows.Add(row.Cells("gs_gsnr").Value, False)
End If
End If
Next
For Each row As DataGridViewRow In dgvListe.Rows
If Not IsDBNull(row.Cells("gs_SicherheitsSaldo").Value) Then
If row.Cells("gs_SicherheitsSaldo").Value <> 0 And row.Cells("gs_SicherheitsSaldo").Value <> 0.01 And row.Cells("gs_SicherheitsSaldo").Value <> -0.01 Then
row.DefaultCellStyle.BackColor = Color.IndianRed
Else
dataTable.Rows.Add(row.Cells("gs_gsnr").Value, False)
row.DefaultCellStyle.BackColor = Color.Green
End If
End If