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

NCTS_FREMD

Browse Source
This commit is contained in:
Andreas Luxbauer
2024-12-26 09:15:36 +01:00
parent 69370afc13
commit 955ae80d62
7 changed files with 834 additions and 764 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
VERAGMonitoring/frmShowData.vb
View File

@@ -85,7 +85,7 @@ Public Class frmShowData
Case "BRG"
Select Case tbcntr.SelectedIndex
Case 0 'DY
dgv.DataSource = BRG.loadDgvBySqlFromBrgKtoDAKOSYDetails(datVON.Value.ToShortDateString, datBIS.Value.ToShortDateString, "50", "50", BRG_GRN)
dgv.DataSource = BRG.loadDgvBySqlFromBrgKtoDAKOSYDetails004(datVON.Value.ToShortDateString, datBIS.Value.ToShortDateString, "50", "50", BRG_GRN)
If dgv.Columns.Count > 0 Then
dgv.Columns("nctsSA_AbgabenBetrag").DefaultCellStyle.Format = "N2"
dgv.Columns("ncts_GesamtRohmasse").DefaultCellStyle.Format = "N2"
@@ -129,6 +129,16 @@ Public Class frmShowData
dgv.Columns("ncts_GesamtRohmasse").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
dgv.Columns("ncts_GesamtAnzahlPackstuecke").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
End If
Case 5 'NCTS_FREMD
dgv.DataSource = BRG.loadDgvBySqlFromBrgKt_NCTS_FREMD_Details(datVON.Value.ToShortDateString, datBIS.Value.ToShortDateString, "50", "50", BRG_GRN)
If dgv.Columns.Count > 0 Then
dgv.Columns("nctsSA_AbgabenBetrag").DefaultCellStyle.Format = "N2"
dgv.Columns("ncts_GesamtRohmasse").DefaultCellStyle.Format = "N2"
dgv.Columns("ncts_GesamtAnzahlPackstuecke").DefaultCellStyle.Format = "N0"
dgv.Columns("nctsSA_AbgabenBetrag").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
dgv.Columns("ncts_GesamtRohmasse").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
dgv.Columns("ncts_GesamtAnzahlPackstuecke").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
End If
End Select
Case "AUFSCHUB"
End Select