neu
This commit is contained in:
@@ -3,6 +3,7 @@ Imports VERAGMonitoring.cUserSettings
|
||||
|
||||
Public Class frmMain
|
||||
Public allowEinzahlung As Boolean = False
|
||||
Public brgusr_AdminUser = False
|
||||
Public brgusr_allowBelaustungAufheben As Boolean = False
|
||||
Public firma As String = "VERAG"
|
||||
Dim cClient As New cClient
|
||||
@@ -12,6 +13,7 @@ Public Class frmMain
|
||||
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
|
||||
@@ -36,6 +38,11 @@ Public Class frmMain
|
||||
AddHandler ico.BalloonTipClicked, AddressOf showMe
|
||||
|
||||
If Not (BRG.checkUser(System.Environment.MachineName, Environment.UserName) Or BRG.checkUser("SERVER", Environment.UserName)) Then MsgBox("Sie sind für das Monitoring-Programm nicht freigeschaltet!") : Application.Exit()
|
||||
|
||||
|
||||
' Me.firma = "VERIMEX"
|
||||
|
||||
|
||||
' If allowEinzahlung Then btnEinzahlung.Visible = True
|
||||
If allowEinzahlung Then btnZusBel.Visible = True
|
||||
If brgusr_allowBelaustungAufheben Then btnBelastungAufheben.Visible = True
|
||||
@@ -65,84 +72,179 @@ Public Class frmMain
|
||||
' 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
|
||||
allowCBX(cbxAufschub_at_VeragZS, False)
|
||||
allowCBX(cbxAufschub_at_VeragCS, False)
|
||||
allowCBX(cbxAufschub_at_VeragAG, False)
|
||||
allowCBX(cbxAufschub_de_VeragAG, False)
|
||||
allowCBX(cbxBrg_at_VeragAG, False)
|
||||
allowCBX(cbxBrg_de2_VeragAG, False)
|
||||
allowCBX(cbxAufschub_de_Imex, False)
|
||||
allowCBX(cbxBrg_at_Imex, False)
|
||||
allowCBX(cbxBrg_at_Atilla, False)
|
||||
allowCBX(cbxAufschubEUST_de_Unisped, False)
|
||||
allowCBX(cbxAufschub_de_Unisped, False)
|
||||
allowCBX(cbxAufschubEUST_de_VeragAG, False)
|
||||
allowCBX(cbxAufschubEUST_de_Imex, False)
|
||||
allowCBX(cbxBrg_at_UNISPED, False)
|
||||
allowCBX(cbxAufschub_at_IMEX, False)
|
||||
allowCBX(cbxAufschubEUST_de_Global, False)
|
||||
allowCBX(cbxAufschubEUST_de_UnispedDE, False)
|
||||
allowCBX(cbxAufschub_de_UnispedDE, False)
|
||||
|
||||
cbxAufschub_de_Imex.Checked = 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
|
||||
cbxBrg_at_Atilla.Enabled = 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
|
||||
cbxAufschub_de_Imex.Checked = True
|
||||
cbxAufschub_de_Imex.Enabled = True
|
||||
If Environment.UserName.ToString.ToLower = "developer1" Or Environment.UserName.ToString.ToLower = "al" Then
|
||||
allowCBX(cbxAufschubEUST_de_Unisped, True)
|
||||
allowCBX(cbxAufschub_de_Unisped, True)
|
||||
allowCBX(cbxBrg_at_UNISPED, True)
|
||||
allowCBX(cbxAufschubEUST_de_UnispedDE, True)
|
||||
allowCBX(cbxAufschub_de_UnispedDE, True)
|
||||
End If
|
||||
|
||||
Case "UNISPED"
|
||||
cbxBrg_at_VeragAG.Enabled = False
|
||||
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
|
||||
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
|
||||
cbxAufschub_de_Imex.Checked = False
|
||||
cbxAufschub_de_Imex.Enabled = False
|
||||
If brgusr_AdminUser Then
|
||||
allowCBX(cbxAufschub_at_VeragZS, True)
|
||||
allowCBX(cbxAufschub_at_VeragCS, True)
|
||||
allowCBX(cbxAufschub_at_VeragAG, True)
|
||||
allowCBX(cbxAufschub_de_VeragAG, True)
|
||||
allowCBX(cbxBrg_at_VeragAG, True)
|
||||
allowCBX(cbxBrg_de2_VeragAG, True)
|
||||
allowCBX(cbxAufschub_de_Imex, True)
|
||||
allowCBX(cbxBrg_at_Imex, True)
|
||||
allowCBX(cbxBrg_at_Atilla, True)
|
||||
allowCBX(cbxAufschubEUST_de_VeragAG, True)
|
||||
allowCBX(cbxAufschubEUST_de_Imex, True)
|
||||
allowCBX(cbxAufschub_at_IMEX, True)
|
||||
allowCBX(cbxAufschubEUST_de_Global, True)
|
||||
|
||||
cbxAufschub_de_Unisped.Checked = True
|
||||
cbxAufschub_de_Unisped.Enabled = True
|
||||
Else
|
||||
|
||||
cbxAufschub_de_Unisped.Checked = True
|
||||
cbxAufschub_de_Unisped.Enabled = True
|
||||
cbxAufschubEUST_de_Unisped.Checked = True
|
||||
cbxAufschubEUST_de_Unisped.Enabled = True
|
||||
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
|
||||
|
||||
Case "VERIMEX"
|
||||
'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
|
||||
'cbxAufschub_de_Imex.Checked = False
|
||||
'cbxAufschub_de_Imex.Enabled = False
|
||||
'cbxBrg_at_Imex.Enabled = False
|
||||
Button2.Visible = False
|
||||
Button4.Enabled = False
|
||||
|
||||
allowCBX(cbxBrg_at_VeragAG, True)
|
||||
allowCBX(cbxBrg_de2_VeragAG, True)
|
||||
allowCBX(cbxBrg_at_VeragAG, True)
|
||||
allowCBX(cbxBrg_de2_VeragAG, True)
|
||||
allowCBX(cbxBrg_at_Atilla, True)
|
||||
|
||||
Case "IMEX"
|
||||
'cbxBrg_at_VeragAG.Enabled = False
|
||||
'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
|
||||
'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
|
||||
'cbxAufschub_de_Imex.Checked = True
|
||||
'cbxAufschub_de_Imex.Enabled = True
|
||||
|
||||
allowCBX(cbxBrg_at_VeragAG, True)
|
||||
allowCBX(cbxBrg_de2_VeragAG, True)
|
||||
allowCBX(cbxBrg_at_VeragAG, True)
|
||||
allowCBX(cbxBrg_de2_VeragAG, True)
|
||||
allowCBX(cbxAufschub_de_Imex, True)
|
||||
allowCBX(cbxBrg_at_Imex, True)
|
||||
allowCBX(cbxAufschubEUST_de_Imex, True)
|
||||
allowCBX(cbxAufschubEUST_de_Global, True)
|
||||
allowCBX(cbxAufschub_at_IMEX, True)
|
||||
Case "UNISPED"
|
||||
'cbxBrg_at_VeragAG.Enabled = False
|
||||
'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
|
||||
'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
|
||||
'cbxAufschub_de_Imex.Checked = False
|
||||
'cbxAufschub_de_Imex.Enabled = False
|
||||
|
||||
'cbxAufschub_de_Unisped.Checked = True
|
||||
'cbxAufschub_de_Unisped.Enabled = True
|
||||
|
||||
'cbxAufschub_de_Unisped.Checked = True
|
||||
'cbxAufschub_de_Unisped.Enabled = True
|
||||
'cbxAufschubEUST_de_Unisped.Checked = True
|
||||
'cbxAufschubEUST_de_Unisped.Enabled = True
|
||||
|
||||
allowCBX(cbxAufschubEUST_de_Unisped, True)
|
||||
allowCBX(cbxAufschub_de_Unisped, True)
|
||||
allowCBX(cbxBrg_at_UNISPED, True)
|
||||
allowCBX(cbxAufschubEUST_de_UnispedDE, True)
|
||||
allowCBX(cbxAufschub_de_UnispedDE, True)
|
||||
|
||||
Case "VERIMEX"
|
||||
'cbxBrg_at_VeragAG.Enabled = False
|
||||
'cbxBrg_de2_VeragAG.Enabled = False
|
||||
'cbxBrg_at_VeragAG.Checked = False
|
||||
'cbxBrg_de2_VeragAG.Checked = False
|
||||
allowCBX(cbxBrg_at_VeragAG, True)
|
||||
allowCBX(cbxBrg_de2_VeragAG, True)
|
||||
allowCBX(cbxBrg_at_VeragAG, True)
|
||||
allowCBX(cbxBrg_de2_VeragAG, True)
|
||||
allowCBX(cbxBrg_at_Imex, True)
|
||||
allowCBX(cbxBrg_at_Atilla, True)
|
||||
|
||||
'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
|
||||
Case Else 'VERAG'
|
||||
|
||||
allowCBX(cbxAufschub_at_VeragZS, True)
|
||||
allowCBX(cbxAufschub_at_VeragCS, True)
|
||||
allowCBX(cbxAufschub_at_VeragAG, True)
|
||||
allowCBX(cbxAufschub_de_VeragAG, True)
|
||||
allowCBX(cbxBrg_at_VeragAG, True)
|
||||
allowCBX(cbxBrg_de2_VeragAG, True)
|
||||
allowCBX(cbxAufschub_de_Imex, True)
|
||||
allowCBX(cbxBrg_at_Imex, True)
|
||||
allowCBX(cbxBrg_at_Atilla, True)
|
||||
allowCBX(cbxAufschubEUST_de_Unisped, True)
|
||||
allowCBX(cbxAufschub_de_Unisped, True)
|
||||
allowCBX(cbxAufschubEUST_de_VeragAG, True)
|
||||
allowCBX(cbxAufschubEUST_de_Imex, True)
|
||||
allowCBX(cbxBrg_at_UNISPED, True)
|
||||
allowCBX(cbxAufschub_at_IMEX, True)
|
||||
allowCBX(cbxAufschubEUST_de_Global, True)
|
||||
allowCBX(cbxAufschubEUST_de_UnispedDE, True)
|
||||
allowCBX(cbxAufschub_de_UnispedDE, True)
|
||||
|
||||
End Select
|
||||
End If
|
||||
|
||||
|
||||
|
||||
@@ -150,6 +252,10 @@ Public Class frmMain
|
||||
loaded = True
|
||||
End Sub
|
||||
|
||||
Sub allowCBX(cbx As CheckBox, allow As Boolean)
|
||||
cbx.Enabled = allow
|
||||
cbx.Checked = allow
|
||||
End Sub
|
||||
Private Sub hideme()
|
||||
'Me.Visible = False
|
||||
Me.Hide()
|
||||
@@ -250,10 +356,12 @@ Public Class frmMain
|
||||
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)
|
||||
'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
|
||||
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 + AtWoche_nctsTR
|
||||
setLabel(lblAtWoche, String.Format("{0:C}", CDbl(woche_at)))
|
||||
@@ -577,15 +685,15 @@ Public Class frmMain
|
||||
doAufschubCalc("ZOLL", 1, cbxAufschub_de_VeragAG, lblAufschubBrg_de_VeragAG, lblAufschubBrg_de_VeragAG_oE, lblAufschub_de_VeragAG, lblAufschubStatus_de_VeragAG) 'VERAG AG DE - ZOLL
|
||||
doAufschubCalc("ZOLL", 8, cbxAufschub_de_Imex, lblAufschubBrg_de_Imex, lblAufschubBrg_de_Imex_oE, lblAufschub_de_Imex, lblAufschubStatus_de_Imex) 'IMEX DE - ZOLL
|
||||
|
||||
doAufschubCalc("ZOLL", 14, cbxAufschub_de_Unisped, lblAufschubBrg_de_UNISPED, lblAufschubBrg_de_UNISPED_oE, lblAufschub_de_UNISPED, lblAufschubStatus_de_UNISPED) 'UNISPED DE - ZOLL
|
||||
doAufschubCalc("EUST", 15, cbxAufschubEUST_de_Unisped, lblAufschubBrgEUST_de_UNISPED, lblAufschubBrgEUST_de_UNISPED_oE, lblAufschubEUST_de_UNISPED, lblAufschubStatusEUST_de_UNISPED) 'UNISPED DE - EUST
|
||||
doAufschubCalc("ZOLL", 16, cbxAufschub_de_Unisped, lblAufschubBrg_de_UNISPED, lblAufschubBrg_de_UNISPED_oE, lblAufschub_de_UNISPED, lblAufschubStatus_de_UNISPED) 'UNISPED DE - ZOLL
|
||||
doAufschubCalc("EUST", 17, cbxAufschubEUST_de_Unisped, lblAufschubBrgEUST_de_UNISPED, lblAufschubBrgEUST_de_UNISPED_oE, lblAufschubEUST_de_UNISPED, lblAufschubStatusEUST_de_UNISPED) 'UNISPED DE - EUST
|
||||
|
||||
doAufschubCalc("EUST", 12, cbxAufschubEUST_de_Imex, lblAufschubBrgEUST_de_Imex, lblAufschubBrgEUST_de_Imex_oE, lblAufschubEUST_de_Imex, lblAufschubStatusEUST_de_Imex) 'imex DE - EUST
|
||||
doAufschubCalc("EUST", 10, cbxAufschubEUST_de_Global, lblAufschubBrgEUST_de_global, lblAufschubBrgEUST_de_global_oE, lblAufschubEUST_de_Global, lblAufschubStatusEUST_de_global) 'GLOBAL DE - EUST
|
||||
doAufschubCalc("EUST", 11, cbxAufschubEUST_de_VeragAG, lblAufschubBrgEUST_de_VeragAG, lblAufschubBrgEUST_de_VeragAG_oE, lblAufschubEUST_de_VeragAG, lblAufschubStatusEUST_de_VeragAG) 'VERAG DE - EUST
|
||||
|
||||
doAufschubCalc("ZOLL", 16, cbxAufschub_de_UnispedDE, lblAufschubBrg_de_UNISPEDDE, lblAufschubBrg_de_UNISPEDDE_oE, lblAufschub_de_UNISPEDDE, lblAufschubStatus_de_UNISPEDDE) 'UNISPED(DE) DE - ZOLL
|
||||
doAufschubCalc("EUST", 17, cbxAufschubEUST_de_UnispedDE, lblAufschubBrgEUST_de_UNISPEDDE, lblAufschubBrgEUST_de_UNISPEDDE_oE, lblAufschubEUST_de_UNISPEDDE, lblAufschubStatusEUST_de_UNISPEDDE) 'UNISPED(DE) DE - EUST
|
||||
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
|
||||
|
||||
doAufschubCalc_AT("GESAMT", 13, cbxAufschub_at_IMEX, lblAufschubBrg_at_IMEX, Nothing, lblAufschub_at_IMEX, lblAufschubStatus_at_IMEX) 'IMEX AT - GESAMT
|
||||
|
||||
@@ -660,7 +768,43 @@ Public Class frmMain
|
||||
|
||||
|
||||
End Sub
|
||||
Function getAufschubDT(ART As String, BRG_ID As Integer) As DataTable 'NICHT FERTIG!!!!
|
||||
|
||||
Dim von As Date = DateSerial(Now.Year, Now.Month, 1)
|
||||
Dim vonbrg As Date = von
|
||||
Dim vonFaell As Date = von
|
||||
|
||||
If Now.Day <= 15 Then vonbrg = von.AddMonths(-1)
|
||||
If Now.Day > 16 Then vonFaell = von.AddMonths(1)
|
||||
|
||||
Dim cAufschubKonten As New VERAG_PROG_ALLGEMEIN.cAufschubKonten(BRG_ID)
|
||||
|
||||
Try
|
||||
Dim dt As DataTable
|
||||
|
||||
If ART = "ZOLL" Then
|
||||
Dim dt_betragBrg_16 As DataTable = BRG.getBrgFromBrgKto(Nothing, Nothing, BRG_ID,,, , CDate("16" & vonFaell.ToString(".MM.yyyy")))
|
||||
Dim dt_betragBrg_26 As New DataTable
|
||||
If Now.Day <= 26 Then dt_betragBrg_26 = BRG.getBrgFromBrgKto(Nothing, Nothing, BRG_ID,, , , CDate("26" & Now.ToString(".MM.yyyy"))) '9
|
||||
Dim dt_betragBrg_26_2 As DataTable = BRG.getBrgFromBrgKto(Nothing, Nothing, BRG_ID,, , , CDate("26" & Now.AddMonths(1).ToString(".MM.yyyy"))) '9
|
||||
Dim dt_betragBrg_26_3 As DataTable = BRG.getBrgFromBrgKto(Nothing, Nothing, BRG_ID,, , , CDate("26" & Now.AddMonths(2).ToString(".MM.yyyy"))) '10
|
||||
|
||||
dt = dt_betragBrg_16
|
||||
If dt_betragBrg_26 IsNot Nothing Then dt.Merge(dt_betragBrg_26)
|
||||
If dt_betragBrg_26_2 IsNot Nothing Then dt.Merge(dt_betragBrg_26_2)
|
||||
If dt_betragBrg_26_3 IsNot Nothing Then dt.Merge(dt_betragBrg_26_3)
|
||||
|
||||
Else
|
||||
dt = BRG.getBrgFromBrgKto(vonbrg.ToShortDateString, Now.ToShortDateString, BRG_ID)
|
||||
End If
|
||||
|
||||
Return dt
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message & ex.StackTrace)
|
||||
End Try
|
||||
Return Nothing
|
||||
End Function
|
||||
Sub doAufschubCalc_AT(ART As String, BRG_ID As Integer, cbx As CheckBox, lblBRG As Label, lblBRG_oE As Label, lblAufschub As Label, lblAStatus As Label)
|
||||
|
||||
|
||||
@@ -1068,7 +1212,7 @@ Public Class frmMain
|
||||
faelligkeitWhere &= ",'" & CDate("26" & Now.AddMonths(1).ToString(".MM.yyyy")).ToShortDateString & "'"
|
||||
faelligkeitWhere &= ",'" & CDate("26" & Now.AddMonths(2).ToString(".MM.yyyy")).ToShortDateString & "'"
|
||||
faelligkeitWhere &= ") "
|
||||
MsgBox(faelligkeitWhere)
|
||||
|
||||
frmShowData.dgv.DataSource = BRG.loadDgvBySqlFromAufschubKto_Faelligkeit(faelligkeitWhere, brg_DE_VeragAG)
|
||||
' frmShowData.dgv.DataSource = BRG.loadDgvBySqlFromAufschubKto(vonbrg.ToShortDateString, Now.ToShortDateString, brg_DE_VeragAG)
|
||||
|
||||
@@ -1253,6 +1397,39 @@ Public Class frmMain
|
||||
frmShowData.Show()
|
||||
End Sub
|
||||
|
||||
Dim secondmonitorSelected = False
|
||||
Private Sub Button3_Click_4(sender As Object, e As EventArgs) Handles Button3.Click
|
||||
Dim secondaryMonitor = Screen.AllScreens.FirstOrDefault(Function(x) Not x.Primary)
|
||||
If secondmonitorSelected Then
|
||||
secondaryMonitor = Screen.AllScreens.FirstOrDefault(Function(x) x.Primary) 'Hauptbildschirm
|
||||
End If
|
||||
If secondaryMonitor IsNot Nothing Then
|
||||
Me.WindowState = FormWindowState.Normal
|
||||
Dim newLocation = secondaryMonitor.Bounds.Location
|
||||
'newLocation.Offset(0, 0) ' adjust as needed
|
||||
Me.Location = newLocation
|
||||
|
||||
' Me.WindowState = FormWindowState.Normal
|
||||
' Me.Visible = True
|
||||
' MsgBox(secondaryMonitor.Bounds.Location.Y & " - " & MsgBox(secondaryMonitor.Bounds.Location.X))
|
||||
Me.Top = secondaryMonitor.Bounds.Location.Y + secondaryMonitor.WorkingArea.Height - Me.Height
|
||||
Me.Left = secondaryMonitor.Bounds.Location.X + secondaryMonitor.WorkingArea.Width - Me.Width
|
||||
|
||||
|
||||
Me.Refresh()
|
||||
'Me.WindowState = FormWindowState.Maximized
|
||||
' Also see Me.Size and Me.Bounds
|
||||
End If
|
||||
secondmonitorSelected = Not secondmonitorSelected
|
||||
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)
|
||||
|
||||
frmShowData.Label2.Text = "Anzahl: " & frmShowData.dgv.RowCount
|
||||
frmShowData.Show()
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
|
||||
|
||||
Reference in New Issue
Block a user