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
2022-07-08 08:12:07 +02:00
parent e3843466c8
commit 46c14b6500
34 changed files with 1958 additions and 678 deletions
Download Patch File Download Diff File Expand all files Collapse all files

324
VERAGMonitoring/frmMain.vb
View File

@@ -86,6 +86,7 @@ Public Class frmMain
allowCBX(cbxAufschubEUST_de_VeragAG, False)
allowCBX(cbxAufschubEUST_de_Imex, False)
allowCBX(cbxBrg_at_UNISPED, False)
allowCBX(cbxBrg_at_VERAG_CS, False)
allowCBX(cbxAufschub_at_IMEX, False)
allowCBX(cbxAufschubEUST_de_Global, False)
allowCBX(cbxAufschubEUST_de_UnispedDE, False)
@@ -95,6 +96,7 @@ Public Class frmMain
allowCBX(cbxAufschubEUST_de_Unisped, True)
allowCBX(cbxAufschub_de_Unisped, True)
allowCBX(cbxBrg_at_UNISPED, True)
allowCBX(cbxBrg_at_VERAG_CS, True)
allowCBX(cbxAufschubEUST_de_UnispedDE, True)
allowCBX(cbxAufschub_de_UnispedDE, True)
End If
@@ -197,6 +199,7 @@ Public Class frmMain
allowCBX(cbxAufschubEUST_de_Unisped, True)
allowCBX(cbxAufschub_de_Unisped, True)
allowCBX(cbxBrg_at_UNISPED, True)
allowCBX(cbxBrg_at_VERAG_CS, True)
allowCBX(cbxAufschubEUST_de_UnispedDE, True)
allowCBX(cbxAufschub_de_UnispedDE, True)
@@ -238,6 +241,7 @@ Public Class frmMain
allowCBX(cbxAufschubEUST_de_VeragAG, True)
allowCBX(cbxAufschubEUST_de_Imex, True)
allowCBX(cbxBrg_at_UNISPED, True)
allowCBX(cbxBrg_at_VERAG_CS, True)
allowCBX(cbxAufschub_at_IMEX, True)
allowCBX(cbxAufschubEUST_de_Global, True)
allowCBX(cbxAufschubEUST_de_UnispedDE, True)
@@ -328,6 +332,8 @@ Public Class frmMain
Dim brg_DE_NEU As String = "17DE0000000071678"
Dim brg_AT_IMEX As String = "16AT520000G000VA6"
Dim brg_AT_ATILLA As String = "20AT520000G000092"
Dim brg_AT_VERAG_CS As String = "22AT600000G0000H4"
Dim brg_DE_UNISPED As String = "17DE0000000071270"
'If cbxBrg_de_VeragAG.Checked Then 'DE
' 'DE WOCHE
@@ -341,12 +347,23 @@ Public Class frmMain
' setLabel(lblDeTag, "0.0")
'End If
If cbxBrg_de2_VeragAG.Checked Then 'DE
Dim DE_DIFFERENZ As Double = 2500000 ' UNBEKANNT DIFFENREZ!!!
'DE WOCHE
Dim woche_de2 As Double = BRG.getBrgSumFromFMZOLL_Zabis(Now.AddDays(-6).ToShortDateString, Now.ToShortDateString, "50", "60", brg_DE_NEU)
setLabel(lblDe2Woche, String.Format("{0:C}", CDbl(woche_de2)))
'NCTS_TR DE WOCHE
Dim DeWoche_nctsTR As Double = BRG.getBrgSumFromFMZOLL_NCTS_TR(Now.AddDays(-6).ToShortDateString, Now.ToShortDateString, "50", "60", brg_DE_NEU)
setLabel(lblDe2Woche, String.Format("{0:C}", CDbl(woche_de2 + DeWoche_nctsTR + DE_DIFFERENZ)))
'DE TAG
Dim tag_de2 As Double = BRG.getBrgSumFromFMZOLL_Zabis(Now.AddMonths(-3).ToShortDateString, Now.ToShortDateString, "50", "50", brg_DE_NEU)
setLabel(lblDe2Tag, String.Format("{0:C}", CDbl(tag_de2)))
'NCTS_TR AT TAG
Dim DetTag_nctsTR As Double = BRG.getBrgSumFromFMZOLL_NCTS_TR(Now.AddMonths(-3).ToShortDateString, Now.ToShortDateString, "50", "50", brg_DE_NEU)
setLabel(lblDe2Tag, String.Format("{0:C}", CDbl(tag_de2 + DetTag_nctsTR + DE_DIFFERENZ)))
Else
setLabel(lblDe2Woche, "0.0")
setLabel(lblDe2Tag, "0.0")
@@ -359,7 +376,7 @@ Public Class frmMain
'MsgBox(AtWoche_zolaris)
'TELOTEC AT WOCHE
Dim AtWoche_TELOTEC As Double = BRG.getBrgSumFromFMZOLL_TELOTEC(Now.AddDays(-6).ToShortDateString, Now.ToShortDateString, "50", "60", brg_AT)
'TELOTEC AT WOCHE
'NCTS_TR AT WOCHE
Dim AtWoche_nctsTR As Double = BRG.getBrgSumFromFMZOLL_NCTS_TR(Now.AddDays(-6).ToShortDateString, Now.ToShortDateString, "50", "60", brg_AT)
'AT WOCHE
@@ -374,6 +391,11 @@ Public Class frmMain
Dim AtTag_telotec As Double = BRG.getBrgSumFromFMZOLL_TELOTEC(Now.AddMonths(-3).ToShortDateString, Now.ToShortDateString, "50", "50", brg_AT)
'NCTS_TR AT TAG
Dim AtTag_nctsTR As Double = BRG.getBrgSumFromFMZOLL_NCTS_TR(Now.AddMonths(-3).ToShortDateString, Now.ToShortDateString, "50", "50", brg_AT)
'MsgBox("AtTag_zolaris: " & AtTag_zolaris)
'MsgBox("AtTag_atlas: " & AtTag_atlas)
'MsgBox("AtTag_telotec: " & AtTag_telotec)
'MsgBox("AtTag_nctsTR: " & AtTag_nctsTR)
'AT TAG
Dim tag_at As Double = AtTag_zolaris + AtTag_atlas + AtTag_telotec + AtTag_nctsTR
setLabel(lblAtTag, String.Format("{0:C}", CDbl(tag_at)))
@@ -439,6 +461,65 @@ Public Class frmMain
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_VERAG_CS.Checked Then 'AT VERAG CS
'ATLAS AT WOCHE
Dim AtWoche_atlas As Double = BRG.getBrgSumFromFMZOLL_Zabis(Now.AddDays(-6).ToShortDateString, Now.ToShortDateString, "50", "60", brg_AT_verag_cs)
'ZOLARIS AT WOCHE
Dim AtWoche_zolaris As Double = BRG.getBrgSumFromFMZOLL_Zolaris(Now.AddDays(-6).ToShortDateString, Now.ToShortDateString, "50", "60", brg_AT_verag_cs)
'TELOTEC AT WOCHE
Dim AtWoche_TELOTEC As Double = BRG.getBrgSumFromFMZOLL_TELOTEC(Now.AddDays(-6).ToShortDateString, Now.ToShortDateString, "50", "60", brg_AT_verag_cs)
'AT WOCHE
Dim woche_at As Double = AtWoche_atlas + AtWoche_zolaris + AtWoche_TELOTEC
setLabel(lblAtWocheVERAG_CS, 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_verag_cs, " 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_verag_cs)
'TELOTEC AT TAG
Dim AtTag_telotec As Double = BRG.getBrgSumFromFMZOLL_TELOTEC(Now.AddMonths(-3).ToShortDateString, Now.ToShortDateString, "50", "50", brg_AT_verag_cs)
'AT TAG
Dim tag_at As Double = AtTag_zolaris + AtTag_atlas + AtTag_telotec
setLabel(lblAtTagVERAG_CS, String.Format("{0:C}", CDbl(tag_at)))
Else
setLabel(lblAtWocheVERAG_CS, "0.0")
setLabel(lblAtTagVERAG_CS, "0.0")
End If
If cbxBrg_at_UNISPED.Checked Then 'AT VERAG CS
'ATLAS AT WOCHE
Dim AtWoche_atlas As Double = BRG.getBrgSumFromFMZOLL_Zabis(Now.AddDays(-6).ToShortDateString, Now.ToShortDateString, "50", "60", brg_DE_UNISPED)
'ZOLARIS AT WOCHE
Dim AtWoche_zolaris As Double = BRG.getBrgSumFromFMZOLL_Zolaris(Now.AddDays(-6).ToShortDateString, Now.ToShortDateString, "50", "60", brg_DE_UNISPED)
'TELOTEC AT WOCHE
Dim AtWoche_TELOTEC As Double = BRG.getBrgSumFromFMZOLL_TELOTEC(Now.AddDays(-6).ToShortDateString, Now.ToShortDateString, "50", "60", brg_DE_UNISPED)
'AT WOCHE
Dim woche_at As Double = AtWoche_atlas + AtWoche_zolaris + AtWoche_TELOTEC
setLabel(lblAtWocheUNISPED, 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_DE_UNISPED, " AND DatumBestimmungErreicht IS NULL ")
'ATLAS AT TAG
Dim AtTag_atlas As Double = BRG.getBrgSumFromFMZOLL_Zabis(Now.AddMonths(-3).ToShortDateString, Now.ToShortDateString, "50", "50", brg_DE_UNISPED)
'TELOTEC AT TAG
Dim AtTag_telotec As Double = BRG.getBrgSumFromFMZOLL_TELOTEC(Now.AddMonths(-3).ToShortDateString, Now.ToShortDateString, "50", "50", brg_DE_UNISPED)
'AT TAG
Dim tag_at As Double = AtTag_zolaris + AtTag_atlas + AtTag_telotec
setLabel(lblAtTagUNISPED, String.Format("{0:C}", CDbl(tag_at)))
Else
setLabel(lblAtWocheUNISPED, "0.0")
setLabel(lblAtTagUNISPED, "0.0")
End If
' If cbxBrg_at_UNISPED.Checked Then setAlarm("UNISPED - gVV - HZA München UNISPED", "19", Me.lblAtTagUNISPED, cMonitoringBrg.brgusrset_gvvAt_UNISPED_tag_warn1, cMonitoringBrg.brgusrset_gvvAt_UNISPED_tag_warn2, cMonitoringBrg.brgusrset_gvvAt_UNISPED_de_summe, lblAt_tag_StatusUNISPED)
' If cbxBrg_at_UNISPED.Checked Then setAlarm("UNISPED - gVV - HZA München UNISPED", "19", Me.lblAtWocheUNISPED, cMonitoringBrg.brgusrset_gvvAt_UNISPED_woche_warn1, cMonitoringBrg.brgusrset_gvvAt_UNISPED_woche_warn2, cMonitoringBrg.brgusrset_gvvAt_UNISPED_de_summe, lblAt_woche_StatusUNISPED)
If cbxBrg_at_VERAG_CS.Checked Then setAlarm("VERAG CS | AT - gVV - HZA Linz/Wels Tagessaldo", "19", Me.lblAtTagVERAG_CS, cMonitoringBrg.brgusrset_gvvAt_VERAG_CS_tag_warn1, cMonitoringBrg.brgusrset_gvvAt_VERAG_CS_tag_warn2, cMonitoringBrg.brgusrset_gvvAt_VERAG_CS_de_summe, lblAt_tag_StatusVERAG_CS)
If cbxBrg_at_VERAG_CS.Checked Then setAlarm("VERAG CS | AT - gVV - HZA Linz/Wels Wochenreferenzsumme ", "19", Me.lblAtWocheVERAG_CS, cMonitoringBrg.brgusrset_gvvAt_VERAG_CS_woche_warn1, cMonitoringBrg.brgusrset_gvvAt_VERAG_CS_woche_warn2, cMonitoringBrg.brgusrset_gvvAt_VERAG_CS_de_summe, lblAt_woche_StatusVERAG_CS)
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)
' If cbxBrg_de_VeragAG.Checked Then setAlarm("DE - gVV - HZA München Tagessaldo", "6_2", Me.lblDeTag, cMonitoringBrg.brgusrset_gvvDe_tag_warn1, cMonitoringBrg.brgusrset_gvvDe_tag_warn2, cMonitoringBrg.brgusrset_gvvDe_summe, lblDe_tag_Status)
If cbxBrg_de2_VeragAG.Checked Then setAlarm("DE NEU - gVV - HZA München Tagessaldo", "6_2", Me.lblDe2Tag, cMonitoringBrg.brgusrset_gvvDe2_tag_warn1, cMonitoringBrg.brgusrset_gvvDe2_tag_warn2, cMonitoringBrg.brgusrset_gvvDe2_summe, lblDe2_tag_Status)
@@ -1089,7 +1170,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_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
'MsgBox(sender.name)
Me.Cursor = Cursors.WaitCursor
If loaded Then
@@ -1142,13 +1223,15 @@ Public Class frmMain
End Sub
Private Sub lblAufschubBrg_at_VeragAG_Click(sender As Object, e As EventArgs) Handles lblAufschubBrg_at_VeragAG.Click
Dim brg_AT_VeragAG As String = "3025365"
Dim von As Date = DateSerial(Now.Year, Now.Month, 1)
Dim vonbrg As Date = von
If Now.Day <= 15 Then vonbrg = von.AddMonths(-1)
frmShowData.Show()
frmShowData.dgv.DataSource = BRG.loadDgvBySqlZOLARIS(vonbrg.ToShortDateString, Now.ToShortDateString, brg_AT_VeragAG)
frmShowData.Label2.Text = "Anzahl: " & frmShowData.dgv.RowCount
If cbxAufschub_at_VeragAG.Checked Then
Dim brg_AT_VeragAG As String = "3025365"
Dim von As Date = DateSerial(Now.Year, Now.Month, 1)
Dim vonbrg As Date = von
If Now.Day <= 15 Then vonbrg = von.AddMonths(-1)
frmShowData.Show()
frmShowData.dgv.DataSource = BRG.loadDgvBySqlZOLARIS(vonbrg.ToShortDateString, Now.ToShortDateString, brg_AT_VeragAG)
frmShowData.Label2.Text = "Anzahl: " & frmShowData.dgv.RowCount
End If
End Sub
Private Sub lblAufschubAkt_at_VeragCS_Click(sender As Object, e As EventArgs) Handles lblAufschubAkt_at_VeragCS.Click
@@ -1160,13 +1243,15 @@ Public Class frmMain
End Sub
Private Sub lblAufschubBrg_at_VeragCS_Click(sender As Object, e As EventArgs) Handles lblAufschubBrg_at_VeragCS.Click
Dim brg_AT_VeragCS As String = "3517233"
Dim von As Date = DateSerial(Now.Year, Now.Month, 1)
Dim vonbrg As Date = von
If Now.Day <= 15 Then vonbrg = von.AddMonths(-1)
frmShowData.Show()
frmShowData.dgv.DataSource = BRG.loadDgvBySqlZOLARIS(vonbrg.ToShortDateString, Now.ToShortDateString, brg_AT_VeragCS)
frmShowData.Label2.Text = "Anzahl: " & frmShowData.dgv.RowCount
If cbxAufschub_at_VeragCS.Checked Then
Dim brg_AT_VeragCS As String = "3517233"
Dim von As Date = DateSerial(Now.Year, Now.Month, 1)
Dim vonbrg As Date = von
If Now.Day <= 15 Then vonbrg = von.AddMonths(-1)
frmShowData.Show()
frmShowData.dgv.DataSource = BRG.loadDgvBySqlZOLARIS(vonbrg.ToShortDateString, Now.ToShortDateString, brg_AT_VeragCS)
frmShowData.Label2.Text = "Anzahl: " & frmShowData.dgv.RowCount
End If
End Sub
Private Sub lblAufschubAkt_at_VeragZS_Click(sender As Object, e As EventArgs) Handles lblAufschubAkt_at_VeragZS.Click
@@ -1178,13 +1263,15 @@ Public Class frmMain
End Sub
Private Sub lblAufschubBrg_at_VeragZS_Click(sender As Object, e As EventArgs) Handles lblAufschubBrg_at_VeragZS.Click
Dim brg_AT_VeragZS As String = "3026400"
Dim von As Date = DateSerial(Now.Year, Now.Month, 1)
Dim vonbrg As Date = von
If Now.Day <= 15 Then vonbrg = von.AddMonths(-1)
frmShowData.Show()
frmShowData.dgv.DataSource = BRG.loadDgvBySqlZOLARIS(vonbrg.ToShortDateString, Now.ToShortDateString, brg_AT_VeragZS)
frmShowData.Label2.Text = "Anzahl: " & frmShowData.dgv.RowCount
If cbxAufschub_at_VeragZS.Checked Then
Dim brg_AT_VeragZS As String = "3026400"
Dim von As Date = DateSerial(Now.Year, Now.Month, 1)
Dim vonbrg As Date = von
If Now.Day <= 15 Then vonbrg = von.AddMonths(-1)
frmShowData.Show()
frmShowData.dgv.DataSource = BRG.loadDgvBySqlZOLARIS(vonbrg.ToShortDateString, Now.ToShortDateString, brg_AT_VeragZS)
frmShowData.Label2.Text = "Anzahl: " & frmShowData.dgv.RowCount
End If
End Sub
Private Sub lblAufschubAkt_de_VeragAG_Click(sender As Object, e As EventArgs) Handles lblAufschubAkt_de_VeragAG.Click
@@ -1197,7 +1284,9 @@ Public Class frmMain
End Sub
Private Sub lblAufschubBrg_de_VeragAG_Click(sender As Object, e As EventArgs) Handles lblAufschubBrg_de_VeragAG.Click
Dim brg_DE_VeragAG As String = "1"
If cbxAufschub_de_VeragAG.Checked Then
Dim brg_DE_VeragAG As String = "1"
Dim von As Date = DateSerial(Now.Year, Now.Month, 1)
Dim vonbrg As Date = von
Dim vonFaell As Date = von
@@ -1214,9 +1303,10 @@ Public Class frmMain
faelligkeitWhere &= ") "
frmShowData.dgv.DataSource = BRG.loadDgvBySqlFromAufschubKto_Faelligkeit(faelligkeitWhere, brg_DE_VeragAG)
' frmShowData.dgv.DataSource = BRG.loadDgvBySqlFromAufschubKto(vonbrg.ToShortDateString, Now.ToShortDateString, brg_DE_VeragAG)
' frmShowData.dgv.DataSource = BRG.loadDgvBySqlFromAufschubKto(vonbrg.ToShortDateString, Now.ToShortDateString, brg_DE_VeragAG)
frmShowData.Label2.Text = "Anzahl: " & frmShowData.dgv.RowCount
frmShowData.Label2.Text = "Anzahl: " & frmShowData.dgv.RowCount
End If
End Sub
Private Sub lblDeTag_Click(sender As Object, e As EventArgs)
@@ -1233,40 +1323,51 @@ Public Class frmMain
End Sub
Private Sub lblAtTag_Click(sender As Object, e As EventArgs) Handles lblAtTag.Click
Dim brg_AT As String = "05AT510000G000FP7"
Dim frmShowData = New frmShowData("BRG", brg_AT, Now.AddMonths(-3), Now)
If cbxBrg_at_VeragAG.Checked Then
Dim brg_AT As String = "05AT510000G000FP7"
Dim frmShowData = New frmShowData("BRG", brg_AT, Now.AddMonths(-3), Now)
frmShowData.Show()
End If
' frmShowDataDouble.dgv1.DataSource = BRG.loadDgvBySqlFromBrgKtoAtlas(Now.AddMonths(-3).ToShortDateString, Now.ToShortDateString, "50", "50", brg_AT)
' frmShowDataDouble.dgv2.DataSource = BRG.loadDgvBySqlFromBrgKtoUnionEZoll(Now.AddMonths(-3).ToShortDateString, Now.ToShortDateString, "50", "50", brg_AT)
' frmShowDataDouble.Label2.Text = "Anzahl: " & (frmShowDataDouble.dgv2.RowCount + frmShowDataDouble.dgv2.RowCount)
End Sub
Private Sub lblAtTagimex_Click(sender As Object, e As EventArgs) Handles lblAtTagImex.Click
Dim brg_AT As String = "16AT520000G000VA6"
If cbxBrg_at_Imex.Checked Then
Dim brg_AT As String = "16AT520000G000VA6"
Dim frmShowData = New frmShowData("BRG", brg_AT, Now.AddMonths(-3), Now)
frmShowData.Show()
End If
' frmShowDataDouble.dgv1.DataSource = BRG.loadDgvBySqlFromBrgKtoAtlas(Now.AddMonths(-3).ToShortDateString, Now.ToShortDateString, "50", "50", brg_AT)
' frmShowDataDouble.dgv2.DataSource = BRG.loadDgvBySqlFromBrgKtoUnionEZoll(Now.AddMonths(-3).ToShortDateString, Now.ToShortDateString, "50", "50", brg_AT)
' frmShowDataDouble.Label2.Text = "Anzahl: " & (frmShowDataDouble.dgv2.RowCount + frmShowDataDouble.dgv2.RowCount)
End Sub
Private Sub lblAtWoche_Click(sender As Object, e As EventArgs) Handles lblAtWoche.Click
Dim brg_AT As String = "05AT510000G000FP7"
If cbxBrg_at_VeragAG.Checked Then
Dim brg_AT As String = "05AT510000G000FP7"
Dim frmShowData = New frmShowData("BRG", brg_AT, Now.AddDays(-6), Now)
frmShowData.Show()
End If
' frmShowDataDouble.Show()
' frmShowDataDouble.dgv1.DataSource = BRG.loadDgvBySqlFromBrgKtoAtlas(Now.AddDays(-6).ToShortDateString, Now.ToShortDateString, "50", "60", brg_AT)
' frmShowDataDouble.dgv2.DataSource = BRG.loadDgvBySqlFromBrgKtoUnionEZoll(Now.AddDays(-6).ToShortDateString, Now.ToShortDateString, "50", "60", brg_AT)
' frmShowDataDouble.Label2.Text = "Anzahl: " & (frmShowDataDouble.dgv2.RowCount + frmShowDataDouble.dgv2.RowCount)
End Sub
Private Sub lblAtWocheimex_Click(sender As Object, e As EventArgs) Handles lblAtWocheImex.Click
Dim brg_AT As String = "16AT520000G000VA6"
If cbxBrg_at_Imex.Checked Then
Dim brg_AT As String = "16AT520000G000VA6"
Dim frmShowData = New frmShowData("BRG", brg_AT, Now.AddDays(-6), Now)
frmShowData.Show()
End If
' frmShowDataDouble.Show()
' frmShowDataDouble.dgv1.DataSource = BRG.loadDgvBySqlFromBrgKtoAtlas(Now.AddDays(-6).ToShortDateString, Now.ToShortDateString, "50", "60", brg_AT)
@@ -1319,15 +1420,19 @@ Public Class frmMain
End Sub
Private Sub lblDe2Tag_Click(sender As Object, e As EventArgs) Handles lblDe2Tag.Click
Dim brg_DE_NEU As String = "17DE0000000071678"
Dim frmShowData = New frmShowData("BRG", brg_DE_NEU, Now.AddMonths(-3), Now)
frmShowData.Show()
If cbxBrg_de2_VeragAG.Checked Then
Dim brg_DE_NEU As String = "17DE0000000071678"
Dim frmShowData = New frmShowData("BRG", brg_DE_NEU, Now.AddMonths(-3), Now)
frmShowData.Show()
End If
End Sub
Private Sub lblDe2Woche_Click(sender As Object, e As EventArgs) Handles lblDe2Woche.Click
Dim brg_DE_NEU As String = "17DE0000000071678"
Dim frmShowData = New frmShowData("BRG", brg_DE_NEU, Now.AddDays(-6), Now)
frmShowData.Show()
If cbxBrg_de2_VeragAG.Checked Then
Dim brg_DE_NEU As String = "17DE0000000071678"
Dim frmShowData = New frmShowData("BRG", brg_DE_NEU, Now.AddDays(-6), Now)
frmShowData.Show()
End If
End Sub
Private Sub Button3_Click_3(sender As Object, e As EventArgs) Handles btnBelastungAufheben.Click
@@ -1363,7 +1468,9 @@ Public Class frmMain
End Sub
Private Sub lblAufschubBrg_de_Imex_Click(sender As Object, e As EventArgs) Handles lblAufschubBrg_de_Imex.Click
Dim brg_DE_Imex As String = "8"
If cbxAufschub_de_Imex.Checked Then
Dim brg_DE_Imex As String = "8"
Dim von As Date = DateSerial(Now.Year, Now.Month, 1)
Dim vonbrg As Date = von
Dim vonFaell As Date = von
@@ -1382,19 +1489,24 @@ Public Class frmMain
frmShowData.dgv.DataSource = BRG.loadDgvBySqlFromAufschubKto_Faelligkeit(faelligkeitWhere, brg_DE_Imex)
frmShowData.Label2.Text = "Anzahl: " & frmShowData.dgv.RowCount
frmShowData.Label2.Text = "Anzahl: " & frmShowData.dgv.RowCount
End If
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()
If cbxBrg_at_Atilla.Checked Then
Dim brg_AT As String = "20AT520000G000092"
Dim frmShowData = New frmShowData("BRG", brg_AT, Now.AddMonths(-3), Now)
frmShowData.Show()
End If
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()
If cbxBrg_at_Atilla.Checked Then
Dim brg_AT As String = "20AT520000G000092"
Dim frmShowData = New frmShowData("BRG", brg_AT, Now.AddDays(-6), Now)
frmShowData.Show()
End If
End Sub
Dim secondmonitorSelected = False
@@ -1424,11 +1536,121 @@ Public Class frmMain
End Sub
Private Sub lblAufschubBrgEUST_de_UNISPEDDE_Click(sender As Object, e As EventArgs) Handles lblAufschubBrgEUST_de_UNISPEDDE.Click
Dim frmShowData As New frmShowData
frmShowData.dgv.DataSource = getAufschubDT("EUST", 17)
If cbxAufschubEUST_de_UnispedDE.Checked Then
Dim frmShowData As New frmShowData
frmShowData.dgv.DataSource = getAufschubDT("EUST", 15)
frmShowData.Label2.Text = "Anzahl: " & frmShowData.dgv.RowCount
frmShowData.Show()
frmShowData.Label2.Text = "Anzahl: " & frmShowData.dgv.RowCount
frmShowData.Show()
End If
End Sub
Private Sub lblAufschubBrgEUST_de_VeragAG_Click(sender As Object, e As EventArgs) Handles lblAufschubBrgEUST_de_VeragAG.Click
If cbxAufschubEUST_de_VeragAG.Checked Then
Dim frmShowData As New frmShowData
frmShowData.dgv.DataSource = getAufschubDT("EUST", 11)
frmShowData.Label2.Text = "Anzahl: " & frmShowData.dgv.RowCount
frmShowData.Show()
End If
End Sub
Private Sub Panel2_Paint(sender As Object, e As PaintEventArgs) Handles Panel2.Paint
End Sub
Private Sub lblAufschubBrgEUST_de_global_Click(sender As Object, e As EventArgs) Handles lblAufschubBrgEUST_de_global.Click
If cbxAufschubEUST_de_Global.Checked Then
Dim frmShowData As New frmShowData
frmShowData.dgv.DataSource = getAufschubDT("EUST", 10)
frmShowData.Label2.Text = "Anzahl: " & frmShowData.dgv.RowCount
frmShowData.Show()
End If
End Sub
Private Sub lblAufschubBrgEUST_de_Imex_Click(sender As Object, e As EventArgs) Handles lblAufschubBrgEUST_de_Imex.Click
If cbxAufschubEUST_de_Imex.Checked Then
Dim frmShowData As New frmShowData
frmShowData.dgv.DataSource = getAufschubDT("EUST", 12)
frmShowData.Label2.Text = "Anzahl: " & frmShowData.dgv.RowCount
frmShowData.Show()
End If
End Sub
Private Sub lblAufschubBrgEUST_de_UNISPED_Click(sender As Object, e As EventArgs) Handles lblAufschubBrgEUST_de_UNISPED.Click
If cbxAufschubEUST_de_Unisped.Checked Then
Dim frmShowData As New frmShowData
frmShowData.dgv.DataSource = getAufschubDT("EUST", 17)
frmShowData.Label2.Text = "Anzahl: " & frmShowData.dgv.RowCount
frmShowData.Show()
End If
End Sub
Private Sub lblAufschubBrg_de_UNISPED_Click(sender As Object, e As EventArgs) Handles lblAufschubBrg_de_UNISPED.Click
If cbxAufschub_de_Unisped.Checked Then
Dim frmShowData As New frmShowData
frmShowData.dgv.DataSource = getAufschubDT("ZOLL", 16)
frmShowData.Label2.Text = "Anzahl: " & frmShowData.dgv.RowCount
frmShowData.Show()
End If
End Sub
Private Sub lblAufschubBrg_de_UNISPEDDE_Click(sender As Object, e As EventArgs) Handles lblAufschubBrg_de_UNISPEDDE.Click
If cbxAufschub_de_UnispedDE.Checked Then
Dim frmShowData As New frmShowData
frmShowData.dgv.DataSource = getAufschubDT("ZOLL", 14)
frmShowData.Label2.Text = "Anzahl: " & frmShowData.dgv.RowCount
frmShowData.Show()
End If
End Sub
Private Sub lblAtTagUNISPED_Click(sender As Object, e As EventArgs) Handles lblAtTagUNISPED.Click
If cbxBrg_at_UNISPED.Checked Then
Dim brg_AT As String = "17DE0000000071270"
Dim frmShowData = New frmShowData("BRG", brg_AT, Now.AddMonths(-3), Now)
frmShowData.Show()
End If
End Sub
Private Sub lblAtTagVERAG_CS_Click(sender As Object, e As EventArgs) Handles lblAtTagVERAG_CS.Click
If cbxBrg_at_VERAG_CS.Checked Then
Dim brg_AT As String = "22AT600000G0000H4"
Dim frmShowData = New frmShowData("BRG", brg_AT, Now.AddMonths(-3), Now)
frmShowData.Show()
End If
End Sub
Private Sub lblAtWocheVERAG_CS_Click(sender As Object, e As EventArgs) Handles lblAtWocheVERAG_CS.Click
If cbxBrg_at_VERAG_CS.Checked Then
Dim brg_AT As String = "22AT600000G0000H4"
Dim frmShowData = New frmShowData("BRG", brg_AT, Now.AddDays(-6), Now)
frmShowData.Show()
End If
End Sub
Private Sub lblAtWocheUNISPED_Click(sender As Object, e As EventArgs) Handles lblAtWocheUNISPED.Click
If cbxBrg_at_UNISPED.Checked Then
Dim brg_AT As String = "17DE0000000071270"
Dim frmShowData = New frmShowData("BRG", brg_AT, Now.AddDays(-6), Now)
frmShowData.Show()
End If
End Sub
Private Sub lblAufschubBrg_at_IMEX_Click(sender As Object, e As EventArgs) Handles lblAufschubBrg_at_IMEX.Click
If cbxAufschub_at_IMEX.Checked Then
Dim brg_AT_VeragZS As String = "3027279"
Dim von As Date = DateSerial(Now.Year, Now.Month, 1)
Dim vonbrg As Date = von
If Now.Day <= 15 Then vonbrg = von.AddMonths(-1)
frmShowData.Show()
frmShowData.dgv.DataSource = BRG.loadDgvBySqlZOLARIS(vonbrg.ToShortDateString, Now.ToShortDateString, brg_AT_VeragZS)
frmShowData.Label2.Text = "Anzahl: " & frmShowData.dgv.RowCount
End If
End Sub
End Class