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

Karaca Aufschub

Browse Source
This commit is contained in:
Andreas Luxbauer
2026-03-16 20:05:33 +01:00
parent 04367593bb
commit 91615faa08
5 changed files with 95 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
VERAGMonitoring/frmMain.vb
View File

@@ -102,6 +102,7 @@ Public Class frmMain
allowCBX(cbxBrg_at_VERAG_CS, True)
allowCBX(cbxAufschubEUST_de_UnispedDE, True)
allowCBX(cbxAufschub_de_UnispedDE, True)
allowCBX(cbxAufschubEUST_de_KARACA, True)
End If
If brgusr_AdminUser Then
@@ -829,6 +830,10 @@ Public Class frmMain
doAufschubCalc("ZOLL", 14, cbxAufschub_de_UnispedDE, lblAufschubBrg_de_UNISPEDDE, lblAufschubBrg_de_UNISPEDDE_oE, lblAufschub_de_UNISPEDDE, lblAufschubStatus_de_UNISPEDDE) 'UNISPED(DE) DE - ZOLL
doAufschubCalc("EUST", 15, cbxAufschubEUST_de_UnispedDE, lblAufschubBrgEUST_de_UNISPEDDE, lblAufschubBrgEUST_de_UNISPEDDE_oE, lblAufschubEUST_de_UNISPEDDE, lblAufschubStatusEUST_de_UNISPEDDE) 'UNISPED(DE) DE - EUST
'KARACA
doAufschubCalc("ZOLL", 27, cbxAufschubEUST_de_KARACA, lblAufschubBrgEUST_de_KARACA, lblAufschubBrgEUST_de_KARACA_oE, lblAufschubBrgEUST_de_KARACA, lblAufschubStatusEUST_de_KARACA) 'UNISPED(DE) DE - ZOLL
doAufschubCalc_AT("GESAMT", 13, cbxAufschub_at_IMEX, lblAufschubBrg_at_IMEX, Nothing, lblAufschub_at_IMEX, lblAufschubStatus_at_IMEX) 'IMEX AT - GESAMT
End Sub
@@ -1255,7 +1260,7 @@ Public Class frmMain
End Try
Return True
End Function
Private Sub cbxBrg_de_VeragAG_CheckedChanged(sender As Object, e As EventArgs) Handles cbxBrg_de2_VeragAG.CheckedChanged, cbxBrg_at_VeragAG.CheckedChanged, cbxAufschub_de_VeragAG.CheckedChanged, cbxAufschub_at_VeragAG.CheckedChanged, cbxAufschub_at_VeragCS.CheckedChanged, cbxAufschub_at_VeragZS.CheckedChanged, cbxAufschubEUST_de_VeragAG.CheckedChanged, cbxAufschubEUST_de_Imex.CheckedChanged, cbxAufschubEUST_de_Global.CheckedChanged, cbxAufschub_de_Unisped.CheckedChanged, cbxAufschubEUST_de_Unisped.CheckedChanged, cbxAufschub_de_UnispedDE.CheckedChanged, cbxAufschubEUST_de_UnispedDE.CheckedChanged, cbxAufschub_at_IMEX.CheckedChanged, cbxBrg_at_UNISPED.CheckedChanged, cbxBrg_at_VERAG_CS.CheckedChanged, cbxBrg_at_Atilla.CheckedChanged, cbxBrg_at_Imex.CheckedChanged
Private Sub cbxBrg_de_VeragAG_CheckedChanged(sender As Object, e As EventArgs) Handles cbxBrg_de2_VeragAG.CheckedChanged, cbxBrg_at_VeragAG.CheckedChanged, cbxAufschub_de_VeragAG.CheckedChanged, cbxAufschub_at_VeragAG.CheckedChanged, cbxAufschub_at_VeragCS.CheckedChanged, cbxAufschub_at_VeragZS.CheckedChanged, cbxAufschubEUST_de_VeragAG.CheckedChanged, cbxAufschubEUST_de_Imex.CheckedChanged, cbxAufschubEUST_de_Global.CheckedChanged, cbxAufschub_de_Unisped.CheckedChanged, cbxAufschubEUST_de_Unisped.CheckedChanged, cbxAufschub_de_UnispedDE.CheckedChanged, cbxAufschubEUST_de_UnispedDE.CheckedChanged, cbxAufschub_at_IMEX.CheckedChanged, cbxBrg_at_UNISPED.CheckedChanged, cbxBrg_at_VERAG_CS.CheckedChanged, cbxBrg_at_Atilla.CheckedChanged, cbxBrg_at_Imex.CheckedChanged, cbxAufschubEUST_de_KARACA.CheckedChanged
'MsgBox(sender.name)
Me.Cursor = Cursors.WaitCursor
If loaded Then
@@ -1747,6 +1752,16 @@ Public Class frmMain
Dim f As New frmMRNStorno
f.ShowDialog(Me)
End Sub
Private Sub lblAufschubBrgEUST_de_KARACA_oE_Click(sender As Object, e As EventArgs) Handles lblAufschubBrgEUST_de_KARACA_oE.Click
If cbxAufschubEUST_de_UnispedDE.Checked Then
Dim frmShowData As New frmShowData
frmShowData.dgv.DataSource = getAufschubDT("EUST", 27)
frmShowData.Label2.Text = "Anzahl: " & frmShowData.dgv.RowCount
frmShowData.Show()
End If
End Sub
End Class