Imports VERAGMonitoring.cGlobal Imports VERAGMonitoring.cUserSettings Public Class frmMain Public allowEinzahlung As Boolean = False Public brgusr_allowBelaustungAufheben As Boolean = False Public firma As String = "VERAG" Dim cClient As New cClient Public buergschaft As New cBuergschaft Private BRG As New cBrgDb Dim cMonitoringBrg As cMonitoringBrg Dim ico As NotifyIcon Dim threads As New List(Of Object) Dim loaded = False Private Sub frmMain_FormClosing(sender As Object, e As EventArgs) Handles Me.FormClosing Try : ico.Visible = Not Visible : Catch : End Try End Sub Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG" 'auf UPDATES prüfen: Dim LOGIN As New cLogin If CInt(LOGIN.getAktuelleVersion().Replace(".", "")) > CInt(My.Resources.version.Replace(".", "")) Then Me.Enabled = False If vbYes = MsgBox("Es ist eine neue Programm-Version verfügbar. Das Programm muss aktualisiert werden, bevor Sie es weiter verwenden können. " & vbNewLine & vbNewLine & "Update jetzt durchführen?", CType(vbQuestion + vbYesNo, MsgBoxStyle), "Update verfügbar") Then UpdateVERAGMonitoringUPDATER() Else Application.Exit() End If End If ico = icoVERAGMonitoring AddHandler ico.BalloonTipClicked, AddressOf showMe If Not BRG.checkUser(System.Environment.MachineName, Environment.UserName) Then MsgBox("Sie sind für das Monitoring-Programm nicht freigeschaltet!") : Application.Exit() ' If allowEinzahlung Then btnEinzahlung.Visible = True If allowEinzahlung Then btnZusBel.Visible = True If brgusr_allowBelaustungAufheben Then btnBelastungAufheben.Visible = True cMonitoringBrg = BRG.getMonitoringData() btnKtoAkt.Visible = allowEinzahlung btnEinzahlung.Visible = allowEinzahlung 'Me.Show() btnZusBel.Visible = False Me.WindowState = FormWindowState.Normal ' Me.Visible = True ' Me.Top = My.Computer.Screen.WorkingArea.Height - Me.Height ' Me.Left = My.Computer.Screen.WorkingArea.Width - Me.Width Me.Top = 10 Me.Left = 10 ' Me.BringToFront() hideme() 'Me.WindowState = FormWindowState.Normal 'Me.WindowState = FormWindowState.Minimized Me.MaximizeBox = False Me.MinimizeBox = False Me.ControlBox = False Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None ' initBrg() ' initAufschub() ' initWarnstufen() Select Case Me.firma Case "ATILLA" cbxAufschub_de_VeragAG.Checked = False cbxAufschub_at_VeragAG.Checked = False cbxAufschub_at_VeragCS.Checked = False cbxAufschub_at_VeragZS.Checked = False cbxAufschub_de_VeragAG.Enabled = False cbxAufschub_at_VeragAG.Enabled = False cbxAufschub_at_VeragCS.Enabled = False cbxAufschub_at_VeragZS.Enabled = False cbxAufschub_de_Imex.Enabled = False cbxBrg_at_Imex.Enabled = False Button2.Visible = False Button4.Enabled = False Case "IMEX" cbxBrg_at_VeragAG.Enabled = False cbxBrg_de2_VeragAG.Enabled = False cbxBrg_at_VeragAG.Checked = False cbxBrg_de2_VeragAG.Checked = False cbxAufschub_de_VeragAG.Checked = False cbxAufschub_at_VeragAG.Checked = False cbxAufschub_at_VeragCS.Checked = False cbxAufschub_at_VeragZS.Checked = False cbxAufschub_de_VeragAG.Enabled = False cbxAufschub_at_VeragAG.Enabled = False cbxAufschub_at_VeragCS.Enabled = False cbxAufschub_at_VeragZS.Enabled = False Button2.Visible = False Button4.Enabled = False End Select Timer.Start() loaded = True End Sub Private Sub hideme() 'Me.Visible = False Me.Hide() Try ico.BalloonTipText = "VERAG Monitoring" & vbNewLine & "Klicken Sie auf das Logo, um den aktuellen Status anzuzeigen..." ico.ShowBalloonTip(2000) Catch ex As Exception End Try End Sub Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer.Tick 'alle 10 Minuten 'Me.Refresh() If allThreadsClosed() Then allinGray() Dim ta As New System.Threading.Thread(AddressOf initAll) ta.IsBackground = True ta.Start() setLabel(lblAkt, "Aktualisierung läuft ...") End If Exit Sub Me.Cursor = Cursors.WaitCursor Dim t As New System.Threading.Thread(AddressOf initAll) t.IsBackground = True t.Start() Me.Cursor = Cursors.Default Dim g As Graphics = Me.CreateGraphics g.DrawRectangle(New Pen(Color.Black, Width = 2), New Rectangle(0, 0, Me.Width - 1, Me.Height - 1)) End Sub Private Sub SchließenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SchließenToolStripMenuItem.Click Me.Close() End Sub Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click hideMe() End Sub Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click hideMe() frmSettings.Show() End Sub Public Sub showMe() 'me.Visible = True Me.Show() Me.WindowState = FormWindowState.Normal End Sub Private Sub ContextMenuStrip1_Click(sender As Object, e As MouseEventArgs) Handles icoVERAGMonitoring.MouseClick If (e.Button = Windows.Forms.MouseButtons.Left) Then showMe() 'Me.Show() Me.BringToFront() ElseIf (e.Button = Windows.Forms.MouseButtons.Right) Then Try : ico.ContextMenuStrip = mneNotifyIcon : Catch ex As Exception : End Try End If End Sub Private Sub initBrg() ' buergschaft.brg_datum = Now.ToString("dd.MM.yyyy") Dim brg_AT As String = "05AT510000G000FP7" Dim brg_DE As String = "05DE0000000009345" Dim brg_DE_NEU As String = "17DE0000000071678" Dim brg_AT_IMEX As String = "16AT520000G000VA6" 'If cbxBrg_de_VeragAG.Checked Then 'DE ' 'DE WOCHE ' Dim woche_de As Double = BRG.getBrgSumFromFMZOLL_Zabis(Now.AddDays(-6).ToShortDateString, Now.ToShortDateString, "50", "60", brg_DE) ' setLabel(lblDeWoche, String.Format("{0:C}", CDbl(woche_de))) ' 'DE TAG ' Dim tag_de As Double = BRG.getBrgSumFromFMZOLL_Zabis(Now.AddMonths(-3).ToShortDateString, Now.ToShortDateString, "50", "50", brg_DE) ' setLabel(lblDeTag, String.Format("{0:C}", CDbl(tag_de))) 'Else ' setLabel(lblDeWoche, "0.0") ' setLabel(lblDeTag, "0.0") 'End If If cbxBrg_de2_VeragAG.Checked Then 'DE '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))) '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))) Else setLabel(lblDe2Woche, "0.0") setLabel(lblDe2Tag, "0.0") End If If cbxBrg_at_VeragAG.Checked Then 'AT 'ATLAS AT WOCHE Dim AtWoche_atlas As Double = BRG.getBrgSumFromFMZOLL_Zabis(Now.AddDays(-6).ToShortDateString, Now.ToShortDateString, "50", "60", brg_AT) 'ZOLARIS AT WOCHE Dim AtWoche_zolaris As Double = BRG.getBrgSumFromFMZOLL_Zolaris(Now.AddDays(-6).ToShortDateString, Now.ToShortDateString, "50", "60", brg_AT) 'TELOTEC AT WOCHE Dim AtWoche_TELOTEC As Double = BRG.getBrgSumFromFMZOLL_TELOTEC(Now.AddDays(-6).ToShortDateString, Now.ToShortDateString, "50", "60", brg_AT) 'TELOTEC AT WOCHE Dim AtWoche_nctsTR As Double = BRG.getBrgSumFromFMZOLL_NCTS_TR(Now.AddDays(-6).ToShortDateString, Now.ToShortDateString, "50", "60", brg_AT) 'AT WOCHE Dim woche_at As Double = AtWoche_atlas + AtWoche_zolaris + AtWoche_TELOTEC setLabel(lblAtWoche, 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, " 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) 'TELOTEC AT TAG 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) 'AT TAG Dim tag_at As Double = AtTag_zolaris + AtTag_atlas + AtTag_telotec + AtTag_nctsTR setLabel(lblAtTag, String.Format("{0:C}", CDbl(tag_at))) Else setLabel(lblAtWoche, "0.0") setLabel(lblAtTag, "0.0") End If If cbxBrg_at_Imex.Checked Then 'AT IMEX 'ATLAS AT WOCHE Dim AtWoche_atlas As Double = BRG.getBrgSumFromFMZOLL_Zabis(Now.AddDays(-6).ToShortDateString, Now.ToShortDateString, "50", "60", brg_AT_IMEX) 'ZOLARIS AT WOCHE Dim AtWoche_zolaris As Double = BRG.getBrgSumFromFMZOLL_Zolaris(Now.AddDays(-6).ToShortDateString, Now.ToShortDateString, "50", "60", brg_AT_IMEX) 'TELOTEC AT WOCHE Dim AtWoche_TELOTEC As Double = BRG.getBrgSumFromFMZOLL_TELOTEC(Now.AddDays(-6).ToShortDateString, Now.ToShortDateString, "50", "60", brg_AT_IMEX) 'AT WOCHE Dim woche_at As Double = AtWoche_atlas + AtWoche_zolaris + AtWoche_TELOTEC setLabel(lblAtWocheImex, 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_IMEX, " 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_IMEX) 'TELOTEC AT TAG Dim AtTag_telotec As Double = BRG.getBrgSumFromFMZOLL_TELOTEC(Now.AddMonths(-3).ToShortDateString, Now.ToShortDateString, "50", "50", brg_AT_IMEX) 'AT TAG Dim tag_at As Double = AtTag_zolaris + AtTag_atlas + AtTag_telotec setLabel(lblAtTagImex, String.Format("{0:C}", CDbl(tag_at))) Else 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_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) If cbxBrg_at_VeragAG.Checked Then setAlarm("AT - gVV - HZA Linz/Wels Wochenreferenzsumme ", "7_1", Me.lblAtWoche, cMonitoringBrg.brgusrset_gvvAt_woche_warn1, cMonitoringBrg.brgusrset_gvvAt_woche_warn2, cMonitoringBrg.brgusrset_gvvAt_summe, lblAt_woche_Status) ' If cbxBrg_de_VeragAG.Checked Then setAlarm("DE - gVV - HZA München Wochenreferenzsumme ", "7_2", lblDeWoche, cMonitoringBrg.brgusrset_gvvDe_woche_warn1, cMonitoringBrg.brgusrset_gvvDe_woche_warn2, cMonitoringBrg.brgusrset_gvvDe_summe, lblDe_woche_Status) If cbxBrg_de2_VeragAG.Checked Then setAlarm("DE NEU - gVV - HZA München Wochenreferenzsumme ", "7_2", lblDe2Woche, cMonitoringBrg.brgusrset_gvvDe2_woche_warn1, cMonitoringBrg.brgusrset_gvvDe2_woche_warn2, cMonitoringBrg.brgusrset_gvvDe2_summe, lblDe2_woche_Status) End Sub Private Sub initAufschub() Dim brg_DE_VeragAG As String = "1" ' aus eigener DB Dim brg_AT_VeragAG_Aufschub As String = "2" Dim brg_AT_VeragZS_Aufschub As String = "4" Dim brg_AT_VeragCS_Aufschub As String = "3" Dim brg_DE_Imex As String = "8" ' aus eigener DB Dim brg_AT_VeragAG As String = "3025365" Dim brg_AT_VeragZS As String = "3026400" 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) 'Aufschub DE VERAG AG Dim threadAufschub_de_VeragAG As _ New System.Threading.Thread(Sub() If cbxAufschub_de_VeragAG.Checked Then Dim betragAktuell As Double = BRG.getBrgSumFromBrgKto(von.ToShortDateString, Now.ToShortDateString, brg_DE_VeragAG) setLabel(lblAufschubAkt_de_VeragAG, String.Format("{0:C}", CDbl(betragAktuell))) Dim betragBrg As Double = BRG.getBrgSumFromBrgKto(vonbrg.ToShortDateString, Now.ToShortDateString, brg_DE_VeragAG) setLabel(lblAufschubBrg_de_VeragAG, String.Format("{0:C}", CDbl(betragBrg))) setAlarm("Aufschubkonto DE - VERAG Spedition AG - HZA München", "1", Me.lblAufschubBrg_de_VeragAG, cMonitoringBrg.brgusrset_aufschub_AG_de_warn1, cMonitoringBrg.brgusrset_aufschub_AG_de_warn2, cMonitoringBrg.brgusrset_aufschub_AG_de_summe, lblAufschubStatus_de_VeragAG) Dim betragBrg_oE As Double = BRG.getBrgSumFromBrgKto(vonbrg.ToShortDateString, Now.ToShortDateString, brg_DE_VeragAG,, False) setLabel(lblAufschubBrg_de_VeragAG_oE, String.Format("{0:C}", CDbl(betragBrg_oE))) Else setLabel(lblAufschubAkt_de_VeragAG, "0.0") setLabel(lblAufschubBrg_de_VeragAG, "0.0") setLabel(lblAufschubBrg_de_VeragAG_oE, "0.0") End If End Sub) threadAufschub_de_VeragAG.IsBackground = True threadAufschub_de_VeragAG.Start() threads.Add(threadAufschub_de_VeragAG) lblAufschubAkt_de_VeragAG.ForeColor = Color.Black 'Aufschub DE IMEX Dim threadAufschub_de_Imex As _ New System.Threading.Thread(Sub() If cbxAufschub_de_Imex.Checked Then Dim betragAktuell As Double = BRG.getBrgSumFromBrgKto(von.ToShortDateString, Now.ToShortDateString, brg_DE_Imex) setLabel(lblAufschubAkt_de_Imex, String.Format("{0:C}", CDbl(betragAktuell))) Dim betragBrg As Double = BRG.getBrgSumFromBrgKto(vonbrg.ToShortDateString, Now.ToShortDateString, brg_DE_Imex) setLabel(lblAufschubBrg_de_Imex, String.Format("{0:C}", CDbl(betragBrg))) setAlarm("Aufschubkonto DE - Imex Customs Service GmbH - HZA München", "8", Me.lblAufschubBrg_de_Imex, cMonitoringBrg.brgusrset_aufschub_AG_de_warn1, cMonitoringBrg.brgusrset_aufschub_AG_de_warn2, cMonitoringBrg.brgusrset_aufschub_AG_de_summe, lblAufschubStatus_de_Imex) Dim betragBrg_oE As Double = BRG.getBrgSumFromBrgKto(vonbrg.ToShortDateString, Now.ToShortDateString, brg_DE_Imex,, False) setLabel(lblAufschubBrg_de_Imex_oE, String.Format("{0:C}", CDbl(betragBrg_oE))) Else setLabel(lblAufschubAkt_de_Imex, "0.0") setLabel(lblAufschubBrg_de_Imex, "0.0") setLabel(lblAufschubBrg_de_Imex_oE, "0.0") End If End Sub) threadAufschub_de_Imex.IsBackground = True threadAufschub_de_Imex.Start() threads.Add(threadAufschub_de_Imex) lblAufschubAkt_de_Imex.ForeColor = Color.Black Dim von_new = New Date(2015, 1, 1) 'KTOSTAND von Begin der Aufzeichnungen an... Dim vonbrg_new = von_new 'Aufschub AT VERAG AG Dim threadAufschub_at_VeragAG As _ New System.Threading.Thread(Sub() If cbxAufschub_at_VeragAG.Checked Then Dim betragAktuell As Double = CDbl(BRG.getBrgSumFromZolaris(von_new.ToShortDateString, Now.ToShortDateString, brg_AT_VeragAG, True)) _ + CDbl(BRG.getBrgSumFromBrgKto(von_new.ToShortDateString, Now.ToShortDateString, brg_AT_VeragAG_Aufschub)) setLabel(lblAufschubAkt_at_VeragAG, String.Format("{0:C}", CDbl(betragAktuell))) Dim betragBrg As Double = -CDbl(BRG.getBrgSumFromZolaris(vonbrg_new.ToShortDateString, Now.ToShortDateString, brg_AT_VeragAG, True)) _ + (-1 * CDbl(BRG.getBrgSumFromBrgKto(vonbrg_new.ToShortDateString, Now.ToShortDateString, brg_AT_VeragAG_Aufschub))) 'Dim betragBrg As Double = BRG.getBrgSumFromBrgKto(vonbrg_new.ToShortDateString, Now.ToShortDateString, brg_AT_VeragAG_Aufschub) 'Dim zolaris As Double = BRG.getBrgSumFromZolaris(vonbrg_new.ToShortDateString, Now.ToShortDateString, brg_AT_VeragAG, True) 'betragBrg += zolaris setLabel(lblAufschubBrg_at_VeragAG, String.Format("{0:C}", CDbl(betragBrg))) setAlarm2("Aufschubkonto AT - VERAG Spedition AG - HZA Linz/Wels", "2", Me.lblAufschubBrg_at_VeragAG, cMonitoringBrg.brgusrset_aufschub_AG_at_warn1, cMonitoringBrg.brgusrset_aufschub_AG_at_warn2, cMonitoringBrg.brgusrset_aufschub_AG_at_summe, lblAufschubStatus_at_VeragAG) 'Dim betragBrg_oE As Double = BRG.getBrgSumFromBrgKto(vonbrg.ToShortDateString, Now.ToShortDateString, brg_AT_VeragAG,, False) 'betragBrg_oE += zolaris 'setLabel(lblAufschubBrg_at_VeragAG_oE, String.Format("{0:C}", CDbl(betragBrg_oE))) Else setLabel(lblAufschubAkt_at_VeragAG, "0.0") setLabel(lblAufschubBrg_at_VeragAG, "0.0") setLabel(lblAufschubBrg_at_VeragAG_oE, "0.0") End If End Sub) threadAufschub_at_VeragAG.IsBackground = True threadAufschub_at_VeragAG.Start() threads.Add(threadAufschub_at_VeragAG) 'Aufschub AT VERAG Customs Service GmbH 'Aufschub AT VERAG AG Dim threadAufschub_at_VeragCS As _ New System.Threading.Thread(Sub() If cbxAufschub_at_VeragCS.Checked Then Dim betragAktuell As Double = CDbl(BRG.getBrgSumFromZolaris(von_new.ToShortDateString, Now.ToShortDateString, brg_AT_VeragCS, True)) _ + CDbl(BRG.getBrgSumFromBrgKto(von_new.ToShortDateString, Now.ToShortDateString, brg_AT_VeragCS_Aufschub)) setLabel(lblAufschubAkt_at_VeragCS, String.Format("{0:C}", CDbl(betragAktuell))) Dim betragBrg As Double = -CDbl(BRG.getBrgSumFromZolaris(vonbrg_new.ToShortDateString, Now.ToShortDateString, brg_AT_VeragCS, True)) _ + (-1 * CDbl(BRG.getBrgSumFromBrgKto(vonbrg_new.ToShortDateString, Now.ToShortDateString, brg_AT_VeragCS_Aufschub))) 'Dim betragBrg As Double = BRG.getBrgSumFromBrgKto(vonbrg_new.ToShortDateString, Now.ToShortDateString, brg_AT_VeragCS_Aufschub) 'Dim zolaris As Double = BRG.getBrgSumFromZolaris(vonbrg_new.ToShortDateString, Now.ToShortDateString, brg_AT_VeragCS, True) 'MsgBox(betragBrg) 'betragBrg += zolaris 'MsgBox(zolaris) setLabel(lblAufschubBrg_at_VeragCS, String.Format("{0:C}", CDbl(betragBrg))) ' MsgBox(betragBrg & " - " & cMonitoringBrg.brgusrset_aufschub_CS_at_warn1) setAlarm2("Aufschubkonto AT - VERAG Customs Sercvie GmbH - HZA Salzburg", "3", Me.lblAufschubBrg_at_VeragCS, cMonitoringBrg.brgusrset_aufschub_CS_at_warn1, cMonitoringBrg.brgusrset_aufschub_CS_at_warn2, cMonitoringBrg.brgusrset_aufschub_CS_at_summe, lblAufschubStatus_at_VeragCS) 'Dim betragBrg_oE As Double = BRG.getBrgSumFromBrgKto(vonbrg.ToShortDateString, Now.ToShortDateString, brg_AT_VeragCS,, False) 'betragBrg_oE += zolaris 'setLabel(lblAufschubBrg_at_VeragCS_oE, String.Format("{0:C}", CDbl(betragBrg_oE))) Else setLabel(lblAufschubAkt_at_VeragCS, "0.0") setLabel(lblAufschubBrg_at_VeragCS, "0.0") setLabel(lblAufschubBrg_at_VeragCS_oE, "0.0") End If End Sub) threadAufschub_at_VeragCS.IsBackground = True threadAufschub_at_VeragCS.Start() threads.Add(threadAufschub_at_VeragCS) 'Aufschub AT VERAG Zollservice Service GmbH Dim threadAufschub_at_VeragZS As _ New System.Threading.Thread(Sub() If cbxAufschub_at_VeragZS.Checked Then Dim betragAktuell As Double = CDbl(BRG.getBrgSumFromZolaris(von_new.ToShortDateString, Now.ToShortDateString, brg_AT_VeragZS, True)) _ + CDbl(BRG.getBrgSumFromBrgKto(von_new.ToShortDateString, Now.ToShortDateString, brg_AT_VeragZS_Aufschub)) setLabel(lblAufschubAkt_at_VeragZS, String.Format("{0:C}", CDbl(betragAktuell))) Dim betragBrg As Double = -CDbl(BRG.getBrgSumFromZolaris(vonbrg_new.ToShortDateString, Now.ToShortDateString, brg_AT_VeragZS, True)) _ + (-1 * CDbl(BRG.getBrgSumFromBrgKto(vonbrg_new.ToShortDateString, Now.ToShortDateString, brg_AT_VeragZS_Aufschub))) 'Dim betragBrg As Double = BRG.getBrgSumFromBrgKto(vonbrg_new.ToShortDateString, Now.ToShortDateString, brg_AT_VeragZS_Aufschub) 'Dim zolaris As Double = BRG.getBrgSumFromZolaris(vonbrg_new.ToShortDateString, Now.ToShortDateString, brg_AT_VeragZS, True) 'betragBrg += zolaris setLabel(lblAufschubBrg_at_VeragZS, String.Format("{0:C}", CDbl(betragBrg))) setAlarm2("Aufschubkonto AT - VERAG Zollsercvie GmbH - HZA Linz/Wels", "4", Me.lblAufschubBrg_at_VeragZS, cMonitoringBrg.brgusrset_aufschub_ZS_at_warn1, cMonitoringBrg.brgusrset_aufschub_ZS_at_warn2, cMonitoringBrg.brgusrset_aufschub_ZS_at_summe, lblAufschubStatus_at_VeragZS) 'Dim betragBrg_oE As Double = BRG.getBrgSumFromBrgKto(vonbrg.ToShortDateString, Now.ToShortDateString, brg_AT_VeragZS,, False) 'betragBrg_oE += zolaris 'setLabel(lblAufschubBrg_at_VeragZS_oE, String.Format("{0:C}", CDbl(betragBrg_oE))) Else setLabel(lblAufschubAkt_at_VeragZS, "0.0") setLabel(lblAufschubBrg_at_VeragZS, "0.0") setLabel(lblAufschubBrg_at_VeragZS_oE, "0.0") End If End Sub) threadAufschub_at_VeragZS.IsBackground = True threadAufschub_at_VeragZS.Start() threads.Add(threadAufschub_at_VeragZS) End Sub 'threadsicherer Aufruf Delegate Sub setLabelCallback(l As Label, t As String) Private Sub setLabel(l As Label, t As String) If Me.InvokeRequired Then Dim d As New setLabelCallback(AddressOf setLabel) Me.Invoke(d, New Object() {l, t}) Else l.Text = t End If End Sub Sub allinGray() Me.lblAtTag.ForeColor = Color.Gray Me.lblAtTagImex.ForeColor = Color.Gray ' Me.lblDeTag.ForeColor = Color.Gray Me.lblAtWoche.ForeColor = Color.Gray Me.lblAtWocheImex.ForeColor = Color.Gray ' Me.lblDeWoche.ForeColor = Color.Gray Me.lblDe2Tag.ForeColor = Color.Gray Me.lblDe2Woche.ForeColor = Color.Gray Me.lblAufschubBrg_de_VeragAG.ForeColor = Color.Gray Me.lblAufschubAkt_de_VeragAG.ForeColor = Color.Gray Me.lblAufschubBrg_de_Imex.ForeColor = Color.Gray Me.lblAufschubAkt_de_Imex.ForeColor = Color.Gray Me.lblAufschubBrg_at_VeragAG.ForeColor = Color.Gray Me.lblAufschubBrg_at_VeragZS.ForeColor = Color.Gray Me.lblAufschubBrg_at_VeragCS.ForeColor = Color.Gray End Sub 'threadsicherer Aufruf Delegate Sub setAlarmCallback(brgsch As String, kontoNr As String, lbl_wert As Label, warn1 As Double, warn2 As Double, summe As Double, lblStatus As Label) Private Sub setAlarm(brgsch As String, kontoNr As String, lbl_wert As Label, warn1 As Double, warn2 As Double, summe As Double, lblStatus As Label) If Me.InvokeRequired Then Dim d As New setAlarmCallback(AddressOf setAlarm) Me.Invoke(d, New Object() {brgsch, kontoNr, lbl_wert, warn1, warn2, summe, lblStatus}) Else Dim wert As Double = lbl_wert.Text lblStatus.Text = "OK" lblStatus.ForeColor = Color.White lblStatus.BackColor = Color.Green ToolTip1.SetToolTip(lblStatus, "Die Bürgschaftssumme ist auf einem sicherem Niveau") lbl_wert.ForeColor = Color.Black Dim stufe As Integer = -1 If wert > warn1 Then lblStatus.Text = "HOCH" lblStatus.ForeColor = Color.White lblStatus.BackColor = Color.DarkOrange lbl_wert.ForeColor = Color.OrangeRed ToolTip1.SetToolTip(lblStatus, "Die Bürgschaftssumme ist bereits sehr hoch, bitte im Auge behalten!") stufe = 1 End If If wert > warn2 Then lblStatus.Text = "WARN" lblStatus.ForeColor = Color.White lblStatus.BackColor = Color.Red lbl_wert.ForeColor = Color.Red ToolTip1.SetToolTip(lblStatus, "Die Bürgschaftssumme ist unmittelbar vor der Überschreitung. Bitte unverzüglich Maßnamen setzen!") stufe = 2 End If If wert > summe Then lblStatus.Text = "ÜBER" lblStatus.ForeColor = Color.White lblStatus.BackColor = Color.DarkRed lbl_wert.ForeColor = Color.DarkRed ToolTip1.SetToolTip(lblStatus, "Die Bürgschaftssumme wurde überschritten!") stufe = 3 End If If stufe > 0 Then If Not BRG.existsMeldung(Now.ToShortDateString, kontoNr, stufe, System.Environment.MachineName & "\" & Environment.UserName) Then If Not alertAlreadyOpen(stufe, kontoNr) Then Dim f As New frmAlert f.buergschaft = brgsch f.referenzbetrag = String.Format("{0:C}", CDbl(summe)) f.aktWert = String.Format("{0:C}", CDbl(wert)) f.stufe = stufe f.kontoNr = kontoNr f.Show() ' Me.Visible=False End If End If End If End If End Sub Delegate Sub setAlarm2Callback(brgsch As String, kontoNr As String, lbl_wert As Label, warn1 As Double, warn2 As Double, summe As Double, lblStatus As Label) Private Sub setAlarm2(brgsch As String, kontoNr As String, lbl_wert As Label, warn1 As Double, warn2 As Double, summe As Double, lblStatus As Label) If Me.InvokeRequired Then Dim d As New setAlarm2Callback(AddressOf setAlarm2) Me.Invoke(d, New Object() {brgsch, kontoNr, lbl_wert, warn1, warn2, summe, lblStatus}) Else Dim wert As Double = lbl_wert.Text lblStatus.Text = "OK" lblStatus.ForeColor = Color.White lblStatus.BackColor = Color.Green ToolTip1.SetToolTip(lblStatus, "Kontostand ist auf einem sicherem Niveau") lbl_wert.ForeColor = Color.Black Dim stufe As Integer = -1 If wert < warn1 Then lblStatus.Text = "WARN" lblStatus.ForeColor = Color.White lblStatus.BackColor = Color.DarkOrange lbl_wert.ForeColor = Color.OrangeRed ToolTip1.SetToolTip(lblStatus, "Kontostand ist bereits sehr niedrig!") stufe = 1 End If If wert < warn2 Then lblStatus.Text = "WARN" lblStatus.ForeColor = Color.White lblStatus.BackColor = Color.Red lbl_wert.ForeColor = Color.Red ToolTip1.SetToolTip(lblStatus, "Das Konto ist fast erschöpft!") stufe = 2 End If If wert < summe Then lblStatus.Text = "ÜBER" lblStatus.ForeColor = Color.White lblStatus.BackColor = Color.DarkRed lbl_wert.ForeColor = Color.DarkRed ToolTip1.SetToolTip(lblStatus, "Das Konto wurde überzogen!") stufe = 3 End If If stufe > 0 Then If Not BRG.existsMeldung(Now.ToShortDateString, kontoNr, stufe, System.Environment.MachineName & "\" & Environment.UserName) Then If Not alertAlreadyOpen(stufe, kontoNr) Then Dim f As New frmAlert f.buergschaft = brgsch f.referenzbetrag = String.Format("{0:C}", CDbl(summe)) f.aktWert = String.Format("{0:C}", CDbl(wert)) f.stufe = stufe f.kontoNr = kontoNr f.Show() ' Me.Visible=False End If End If End If End If End Sub Function alertAlreadyOpen(stufe, kontoNr) As Boolean For Each f As Form In My.Application.OpenForms ' Use a thread-safe method to get all form titles. If f.Name = "frmAlert" Then Dim fAlert As frmAlert = DirectCast(f, frmAlert) If fAlert.stufe = stufe And fAlert.kontoNr = kontoNr Then Return True End If End If Next Return False End Function Private Sub frmMain_Shown(sender As Object, e As EventArgs) Handles Me.Shown lblAkt.Text = "" loaded = False For Each c In Me.Controls If c.GetType.Name = "CheckBox" Then If getProperty(c.Name) <> "" Then c.Checked = getProperty(c.Name) End If Next allinGray() loaded = True If cbxBrg_at_VeragAG.Checked Then lblBrg_at_VeragAG.Text &= " (" & String.Format("{0:C}", cMonitoringBrg.brgusrset_gvvAt_summe) & ")" ' 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) & ")" lblAufschub_de_VeragAG.Text &= " (" & String.Format("{0:C}", cMonitoringBrg.brgusrset_aufschub_AG_de_summe) & ")" lblAufschub_at_VeragAG.Text &= " (" & String.Format("{0:C}", cMonitoringBrg.brgusrset_aufschub_AG_at_summe) & ")" lblAufschub_at_VeragZS.Text &= " (" & String.Format("{0:C}", cMonitoringBrg.brgusrset_aufschub_ZS_at_summe) & ")" lblAufschub_at_VeragCS.Text &= " (" & String.Format("{0:C}", cMonitoringBrg.brgusrset_aufschub_CS_at_summe) & ")" lblAufschub_de_Imex.Text &= " (" & String.Format("{0:C}", cMonitoringBrg.brgusrset_aufschub_imex_de_summe) & ")" Dim g As Graphics = Me.CreateGraphics g.DrawRectangle(New Pen(Color.Black, Width = 2), New Rectangle(0, 0, Me.Width - 1, Me.Height - 1)) Me.WindowState = FormWindowState.Normal ' Me.Visible = True Me.Top = My.Computer.Screen.WorkingArea.Height - Me.Height Me.Left = My.Computer.Screen.WorkingArea.Width - Me.Width 'Me.BringToFront() Me.Cursor = Cursors.WaitCursor Dim t As New System.Threading.Thread(AddressOf initAll) t.IsBackground = True System.Threading.Thread.Sleep(1000) t.Start() Me.Cursor = Cursors.Default End Sub Sub initAll() 'System.Threading.Thread.Sleep(10000) cMonitoringBrg = BRG.getMonitoringData() initBrg() initAufschub() ' initWarnstufen() ' MsgBox("test") 'setLabel(lblAkt, "aktualisiert, " & Now.ToString("dd.MM. - HH:mm:ss")) Dim t As New System.Threading.Thread(AddressOf aktTreads) t.IsBackground = True t.Start() End Sub Sub aktTreads() While allThreadsClosed() = False System.Threading.Thread.Sleep(500) End While setLabel(lblAkt, "aktualisiert, " & Now.ToString("dd.MM. - HH:mm:ss")) End Sub Function allThreadsClosed() As Boolean Try For Each t As System.Threading.Thread In threads If t.IsAlive Then Return False Else ' threads.Remove(t) End If Next Catch ex As Exception MsgBox(ex.Message) 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 'MsgBox(sender.name) Me.Cursor = Cursors.WaitCursor If loaded Then If sender.name <> "" Then setProperty(sender.Name, sender.Checked) Me.Cursor = Cursors.WaitCursor Dim t As New System.Threading.Thread(AddressOf initAll) t.IsBackground = True t.Start() Me.Cursor = Cursors.Default End If Me.Cursor = Cursors.Default End Sub Private Sub HauptfensterToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles HauptfensterToolStripMenuItem.Click frmAlert.Close() frmSettings.Close() ' Me.Show() showMe() Me.BringToFront() End Sub Private Sub EinstellungenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EinstellungenToolStripMenuItem.Click hideMe() frmSettings.Show() frmSettings.BringToFront() End Sub Private Sub UpdateToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles UpdateToolStripMenuItem.Click UpdateVERAGMonitoringUPDATER() End Sub Public Sub UpdateVERAGMonitoringUPDATER() If Not System.IO.File.Exists(AppDomain.CurrentDomain.BaseDirectory & "VERAGMonitoringUPDATER.exe") Then MsgBox("ERROR_UPDATE: Update konnte nicht fortgesetzt werden." & vbNewLine & vbNewLine & "Update-Datei existiert nicht.", vbCritical) Application.Exit() Else Process.Start("VERAGMonitoringUPDATER.exe") Application.Exit() End If End Sub Private Sub lblAufschubAkt_at_VeragAG_Click(sender As Object, e As EventArgs) Handles lblAufschubAkt_at_VeragAG.Click Dim brg_AT_VeragAG As String = "3025365" Dim von As Date = DateSerial(Now.Year, Now.Month, 1) frmShowData.Show() frmShowData.dgv.DataSource = BRG.loadDgvBySqlZOLARIS(von.ToShortDateString, Now.ToShortDateString, brg_AT_VeragAG) frmShowData.Label2.Text = "Anzahl: " & frmShowData.dgv.RowCount 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 End Sub Private Sub lblAufschubAkt_at_VeragCS_Click(sender As Object, e As EventArgs) Handles lblAufschubAkt_at_VeragCS.Click Dim brg_AT_VeragCS As String = "3517233" Dim von As Date = DateSerial(Now.Year, Now.Month, 1) frmShowData.Show() frmShowData.dgv.DataSource = BRG.loadDgvBySqlZOLARIS(von.ToShortDateString, Now.ToShortDateString, brg_AT_VeragCS) frmShowData.Label2.Text = "Anzahl: " & frmShowData.dgv.RowCount 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 End Sub Private Sub lblAufschubAkt_at_VeragZS_Click(sender As Object, e As EventArgs) Handles lblAufschubAkt_at_VeragZS.Click Dim brg_AT_VeragZS As String = "3026400" Dim von As Date = DateSerial(Now.Year, Now.Month, 1) frmShowData.Show() frmShowData.dgv.DataSource = BRG.loadDgvBySqlZOLARIS(von.ToShortDateString, Now.ToShortDateString, brg_AT_VeragZS) frmShowData.Label2.Text = "Anzahl: " & frmShowData.dgv.RowCount 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 End Sub Private Sub lblAufschubAkt_de_VeragAG_Click(sender As Object, e As EventArgs) Handles lblAufschubAkt_de_VeragAG.Click Dim brg_DE_VeragAG As String = "1" Dim von As Date = DateSerial(Now.Year, Now.Month, 1) frmShowData.Show() frmShowData.dgv.DataSource = BRG.loadDgvBySqlFromAufschubKto(von.ToShortDateString, Now.ToShortDateString, brg_DE_VeragAG) frmShowData.Label2.Text = "Anzahl: " & frmShowData.dgv.RowCount 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" 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.loadDgvBySqlFromAufschubKto(vonbrg.ToShortDateString, Now.ToShortDateString, brg_DE_VeragAG) frmShowData.Label2.Text = "Anzahl: " & frmShowData.dgv.RowCount End Sub Private Sub lblDeTag_Click(sender As Object, e As EventArgs) Dim brg_DE As String = "05DE0000000009345" Dim frmShowData = New frmShowData("BRG", brg_DE, Now.AddMonths(-3), Now) frmShowData.Show() End Sub Private Sub lblDeWoche_Click(sender As Object, e As EventArgs) Dim brg_DE As String = "05DE0000000009345" Dim frmShowData = New frmShowData("BRG", brg_DE, Now.AddDays(-6), Now) frmShowData.Show() 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) frmShowData.Show() ' 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" Dim frmShowData = New frmShowData("BRG", brg_AT, Now.AddMonths(-3), Now) frmShowData.Show() ' 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" Dim frmShowData = New frmShowData("BRG", brg_AT, Now.AddDays(-6), Now) frmShowData.Show() ' 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" Dim frmShowData = New frmShowData("BRG", brg_AT, Now.AddDays(-6), Now) frmShowData.Show() ' 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 Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click 'lblImport.Visible = True cClient.begin() End Sub ' Delegate Sub initSuccessCallback() ' Public Sub initSuccess() ' If Me.InvokeRequired Then ' Me.Invoke(New initSuccessCallback(AddressOf initSuccess)) ' Exit Sub ' Else ' Me.btnAktualisieren.PerformClick() ' MsgBox("Einlesen erfolgreich!" & Me.lblImport.Visible, vbSystemModal, "Aufschubkonten") ' Me.lblImport.Text = "fertig" ' Me.lblImport.Visible = False ' End If 'End Sub Private Sub Button3_Click_1(sender As Object, e As EventArgs) Handles btnEinzahlung.Click frmEinzahlung.Show() End Sub Private Sub Button3_Click(sender As Object, e As EventArgs) Handles btnZusBel.Click frmZusBelast.Show() End Sub Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click refreshMe() End Sub Private Sub refreshMe() If allThreadsClosed() Then allinGray() Dim t As New System.Threading.Thread(AddressOf initAll) t.IsBackground = True t.Start() setLabel(lblAkt, "Aktualisierung läuft ...") End If End Sub Private Sub Button3_Click_2(sender As Object, e As EventArgs) Handles btnKtoAkt.Click frmKtoStandAkt.Show() 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() 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() End Sub Private Sub Button3_Click_3(sender As Object, e As EventArgs) Handles btnBelastungAufheben.Click frmBelastAufheben.ShowDialog(Me) refreshMe() End Sub Private Sub cbxAufschub_de_Imex_CheckedChanged(sender As Object, e As EventArgs) Handles cbxAufschub_de_Imex.CheckedChanged 'MsgBox(sender.name) Me.Cursor = Cursors.WaitCursor If loaded Then If sender.name <> "" Then setProperty(sender.Name, sender.Checked) Me.Cursor = Cursors.WaitCursor Dim t As New System.Threading.Thread(AddressOf initAll) t.IsBackground = True t.Start() Me.Cursor = Cursors.Default End If Me.Cursor = Cursors.Default End Sub Private Sub lblAufschubAkt_de_Imex_Click(sender As Object, e As EventArgs) Handles lblAufschubAkt_de_Imex.Click Dim brg_DE_Imex As String = "8" Dim von As Date = DateSerial(Now.Year, Now.Month, 1) frmShowData.Show() frmShowData.dgv.DataSource = BRG.loadDgvBySqlFromAufschubKto(von.ToShortDateString, Now.ToShortDateString, brg_DE_Imex) frmShowData.Label2.Text = "Anzahl: " & frmShowData.dgv.RowCount 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" 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.loadDgvBySqlFromAufschubKto(vonbrg.ToShortDateString, Now.ToShortDateString, brg_DE_Imex) frmShowData.Label2.Text = "Anzahl: " & frmShowData.dgv.RowCount End Sub End Class