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

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2020-10-02 10:36:37 +02:00
parent f5248e4a51
commit fa670231f7
17 changed files with 297 additions and 102 deletions
Download Patch File Download Diff File Expand all files Collapse all files

46
VERAGMonitoring/frmMain.vb
View File

@@ -85,6 +85,7 @@ Public Class frmMain
cbxBrg_de2_VeragAG.Enabled = False
cbxBrg_at_VeragAG.Checked = False
cbxBrg_de2_VeragAG.Checked = False
cbxBrg_at_Atilla.Enabled = False
cbxAufschub_de_VeragAG.Checked = False
cbxAufschub_at_VeragAG.Checked = False
cbxAufschub_at_VeragCS.Checked = False
@@ -175,6 +176,7 @@ Public Class frmMain
Dim brg_DE As String = "05DE0000000009345"
Dim brg_DE_NEU As String = "17DE0000000071678"
Dim brg_AT_IMEX As String = "16AT520000G000VA6"
Dim brg_AT_ATILLA As String = "20AT520000G000092"
'If cbxBrg_de_VeragAG.Checked Then 'DE
' 'DE WOCHE
@@ -251,8 +253,37 @@ Public Class frmMain
setLabel(lblAtWocheImex, "0.0")
setLabel(lblAtTagImex, "0.0")
End If
If cbxBrg_at_Imex.Checked Then setAlarm("AT - gVV - HZA Linz/Wels Tagessaldo", "9", Me.lblAtTagImex, cMonitoringBrg.brgusrset_gvvAt_imex_tag_warn1, cMonitoringBrg.brgusrset_gvvAt_imex_tag_warn2, cMonitoringBrg.brgusrset_gvvAt_imex_de_summe, lblAt_tag_StatusImex)
If cbxBrg_at_Imex.Checked Then setAlarm("AT - gVV - HZA Linz/Wels Wochenreferenzsumme ", "9", Me.lblAtWocheImex, cMonitoringBrg.brgusrset_gvvAt_imex_woche_warn1, cMonitoringBrg.brgusrset_gvvAt_imex_woche_warn2, cMonitoringBrg.brgusrset_gvvAt_imex_de_summe, lblAt_woche_StatusImex)
If cbxBrg_at_Imex.Checked Then setAlarm("IMEX | AT - gVV - HZA Linz/Wels Tagessaldo", "9", Me.lblAtTagImex, cMonitoringBrg.brgusrset_gvvAt_imex_tag_warn1, cMonitoringBrg.brgusrset_gvvAt_imex_tag_warn2, cMonitoringBrg.brgusrset_gvvAt_imex_de_summe, lblAt_tag_StatusImex)
If cbxBrg_at_Imex.Checked Then setAlarm("IMEX | AT - gVV - HZA Linz/Wels Wochenreferenzsumme ", "9", Me.lblAtWocheImex, cMonitoringBrg.brgusrset_gvvAt_imex_woche_warn1, cMonitoringBrg.brgusrset_gvvAt_imex_woche_warn2, cMonitoringBrg.brgusrset_gvvAt_imex_de_summe, lblAt_woche_StatusImex)
If cbxBrg_at_Atilla.Checked Then 'AT ATILLA
'ATLAS AT WOCHE
Dim AtWoche_atlas As Double = BRG.getBrgSumFromFMZOLL_Zabis(Now.AddDays(-6).ToShortDateString, Now.ToShortDateString, "50", "60", brg_AT_ATILLA)
'ZOLARIS AT WOCHE
Dim AtWoche_zolaris As Double = BRG.getBrgSumFromFMZOLL_Zolaris(Now.AddDays(-6).ToShortDateString, Now.ToShortDateString, "50", "60", brg_AT_ATILLA)
'TELOTEC AT WOCHE
Dim AtWoche_TELOTEC As Double = BRG.getBrgSumFromFMZOLL_TELOTEC(Now.AddDays(-6).ToShortDateString, Now.ToShortDateString, "50", "60", brg_AT_ATILLA)
'AT WOCHE
Dim woche_at As Double = AtWoche_atlas + AtWoche_zolaris + AtWoche_TELOTEC
setLabel(lblAtWocheAtilla, String.Format("{0:C}", CDbl(woche_at)))
'ZOLARIS AT TAG
Dim AtTag_zolaris As Double = BRG.getBrgSumFromFMZOLL_Zolaris(Now.AddMonths(-3).ToShortDateString, Now.ToShortDateString, "50", "50", brg_AT_ATILLA, " AND DatumBestimmungErreicht IS NULL ")
'ATLAS AT TAG
Dim AtTag_atlas As Double = BRG.getBrgSumFromFMZOLL_Zabis(Now.AddMonths(-3).ToShortDateString, Now.ToShortDateString, "50", "50", brg_AT_ATILLA)
'TELOTEC AT TAG
Dim AtTag_telotec As Double = BRG.getBrgSumFromFMZOLL_TELOTEC(Now.AddMonths(-3).ToShortDateString, Now.ToShortDateString, "50", "50", brg_AT_ATILLA)
'AT TAG
Dim tag_at As Double = AtTag_zolaris + AtTag_atlas + AtTag_telotec
setLabel(lblAtTagAtilla, String.Format("{0:C}", CDbl(tag_at)))
Else
setLabel(lblAtWocheAtilla, "0.0")
setLabel(lblAtTagAtilla, "0.0")
End If
If cbxBrg_at_Atilla.Checked Then setAlarm("ATILLA | AT - gVV - HZA Linz/Wels Tagessaldo", "9", Me.lblAtTagAtilla, cMonitoringBrg.brgusrset_gvvAt_ATILLA_tag_warn1, cMonitoringBrg.brgusrset_gvvAt_ATILLA_tag_warn2, cMonitoringBrg.brgusrset_gvvAt_ATILLA_de_summe, lblAt_tag_StatusAtilla)
If cbxBrg_at_Atilla.Checked Then setAlarm("ATILLA | AT - gVV - HZA Linz/Wels Wochenreferenzsumme ", "9", Me.lblAtWocheAtilla, cMonitoringBrg.brgusrset_gvvAt_ATILLA_woche_warn1, cMonitoringBrg.brgusrset_gvvAt_ATILLA_woche_warn2, cMonitoringBrg.brgusrset_gvvAt_ATILLA_de_summe, lblAt_woche_StatusAtilla)
If cbxBrg_at_VeragAG.Checked Then setAlarm("AT - gVV - HZA Linz/Wels Tagessaldo", "6_1", Me.lblAtTag, cMonitoringBrg.brgusrset_gvvAt_tag_warn1, cMonitoringBrg.brgusrset_gvvAt_tag_warn2, cMonitoringBrg.brgusrset_gvvAt_summe, lblAt_tag_Status)
@@ -610,6 +641,7 @@ Public Class frmMain
' lblBrg_de_VeragAG.Text &= " (" & String.Format("{0:C}", cMonitoringBrg.brgusrset_gvvDe_summe) & ")"
If cbxBrg_de2_VeragAG.Checked Then lblBrg_de2_VeragAG.Text &= " (" & String.Format("{0:C}", cMonitoringBrg.brgusrset_gvvDe2_summe) & ")"
lblBrg_at_Imex.Text &= " (" & String.Format("{0:C}", cMonitoringBrg.brgusrset_gvvAt_imex_de_summe) & ")"
lblBrg_at_atilla.Text &= " (" & String.Format("{0:C}", cMonitoringBrg.brgusrset_gvvAt_ATILLA_de_summe) & ")"
lblAufschub_de_VeragAG.Text &= " (" & String.Format("{0:C}", cMonitoringBrg.brgusrset_aufschub_AG_de_summe) & ")"
@@ -942,7 +974,17 @@ Public Class frmMain
frmShowData.Label2.Text = "Anzahl: " & frmShowData.dgv.RowCount
End Sub
Private Sub lblAtTagAtilla_Click(sender As Object, e As EventArgs) Handles lblAtTagAtilla.Click
Dim brg_AT As String = "20AT520000G000092"
Dim frmShowData = New frmShowData("BRG", brg_AT, Now.AddMonths(-3), Now)
frmShowData.Show()
End Sub
Private Sub lblAtWocheAtilla_Click(sender As Object, e As EventArgs) Handles lblAtWocheAtilla.Click
Dim brg_AT As String = "20AT520000G000092"
Dim frmShowData = New frmShowData("BRG", brg_AT, Now.AddDays(-6), Now)
frmShowData.Show()
End Sub
End Class