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
2021-11-18 14:59:04 +01:00
parent 05280436a4
commit 98378dd496
51 changed files with 4647 additions and 763 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
VERAGMonitoring/My Project/Resources.Designer.vb generated
View File

@@ -22,7 +22,7 @@ Namespace My.Resources
'''<summary>
''' Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
'''</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "16.0.0.0"), _
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "17.0.0.0"), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _
@@ -60,15 +60,6 @@ Namespace My.Resources
End Set
End Property
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die ähnelt.
'''</summary>
Friend ReadOnly Property dfsdfe333() As String
Get
Return ResourceManager.GetString("dfsdfe333", resourceCulture)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
@@ -80,7 +71,7 @@ Namespace My.Resources
End Property
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die 1.3.8 ähnelt.
''' Sucht eine lokalisierte Zeichenfolge, die 1.3.9 ähnelt.
'''</summary>
Friend ReadOnly Property version() As String
Get

5
VERAGMonitoring/My Project/Resources.resx
View File

@@ -118,13 +118,10 @@
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<data name="version" xml:space="preserve">
<value>1.3.8</value>
<value>1.3.9</value>
</data>
<assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="refresh" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\refresh.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="dfsdfe333" xml:space="preserve">
<value />
</data>
</root>

49
VERAGMonitoring/cSqlDb.vb
View File

@@ -414,8 +414,11 @@ Public Class cBrgDb
If dr.Item("brgusr_allowBelaustungAufheben") = True Then
frmMain.brgusr_allowBelaustungAufheben = True
End If
If dr.Item("brgusr_AdminUser") = True Then
frmMain.brgusr_AdminUser = True
End If
frmMain.firma = dr.Item("brgusr_firma").ToString
frmMain.firma = dr.Item("brgusr_firma").ToString 'FIRMA GESETZT!
Return True
End If
@@ -429,17 +432,18 @@ Public Class cBrgDb
Public Function insertBrgAufschubEinzahlung(brgak_datum, brgak_betrag, brgak_brgaktoId, brgak_filename, brgak_atc) As Boolean
Public Function insertBrgAufschubEinzahlung(brgak_datum, brgak_betrag, brgak_brgaktoId, brgak_filename, brgak_atc, brgak_faelligkeitsdatum) As Boolean
Try
Using conn As SqlConnection = VERAG_PROG_ALLGEMEIN.SQL.GetNewOpenConnectionADMIN()
Using cmd As New SqlCommand("INSERT INTO tblBrgAufschub " &
" (brgak_datum, brgak_betrag, brgak_brgaktoId, brgak_filename, brgak_atc, brgak_art) VALUES" &
" (@brgak_datum, @brgak_betrag, @brgak_brgaktoId, @brgak_filename, @brgak_atc,'einzahlung') ", conn)
" (brgak_datum, brgak_betrag, brgak_brgaktoId, brgak_filename, brgak_atc, brgak_art,brgak_faelligkeitsdatum) VALUES" &
" (@brgak_datum, @brgak_betrag, @brgak_brgaktoId, @brgak_filename, @brgak_atc,'einzahlung',@brgak_faelligkeitsdatum) ", conn)
cmd.Parameters.AddWithValue("@brgak_datum", brgak_datum)
cmd.Parameters.AddWithValue("@brgak_betrag", brgak_betrag)
cmd.Parameters.AddWithValue("@brgak_brgaktoId", brgak_brgaktoId)
cmd.Parameters.AddWithValue("@brgak_filename", brgak_filename)
cmd.Parameters.AddWithValue("@brgak_atc", brgak_atc)
cmd.Parameters.AddWithValue("@brgak_faelligkeitsdatum", brgak_faelligkeitsdatum)
Try
cmd.ExecuteNonQuery()
@@ -535,8 +539,8 @@ Public Class cBrgDb
Public Function getBrgSumFromFMZOLL_Zabis(ByVal datumVon As DateTime, ByVal datumBis As DateTime, ByVal statusVon As String, ByVal statusBis As String, ByVal buergschaft As String, Optional where As String = "") As String
Dim tmp_sub As String = getBrgSumFromFMZOLL_Zabis_SUBEN(datumVon, datumBis, statusVon, statusBis, buergschaft, where)
Dim tmp_sbg As String = getBrgSumFromFMZOLL_Zabis_SALZBURG(datumVon, datumBis, statusVon, statusBis, buergschaft, where)
Dim tmp_sub As String = 0 'getBrgSumFromFMZOLL_Zabis_SUBEN(datumVon, datumBis, statusVon, statusBis, buergschaft, where)
Dim tmp_sbg As String = 0 ' getBrgSumFromFMZOLL_Zabis_SALZBURG(datumVon, datumBis, statusVon, statusBis, buergschaft, where)
Dim tmp_DY As String = getBrgSumFrom_DAKOSY(datumVon, datumBis, statusVon, statusBis, buergschaft, where)
'Dim tmp_nctsTR As String = getBrgSumFrom_NCTS_TR(datumVon, datumBis, statusVon, statusBis, buergschaft, where)
Return CDbl(tmp_sub) + CDbl(tmp_sbg) + CDbl(tmp_DY) ' + CDbl(tmp_nctsTR)
@@ -768,6 +772,39 @@ Public Class cBrgDb
Return Nothing
End Function
Public Function getBrgFromBrgKto(ByVal datumVon As DateTime, ByVal datumBis As DateTime, ByVal brgKto As String, Optional where As String = "", Optional EinzahlungsbetraegeMitrechnen As Boolean = True, Optional faelligkeitsTAG As String = "", Optional faelligkeit As Object = Nothing) As DataTable
Dim einzahlung = ""
If Not EinzahlungsbetraegeMitrechnen Then
einzahlung = " AND [brgak_art] NOT IN ('einzahlung') "
End If
Dim sql As String = ""
If faelligkeit Is Nothing Then
Dim faelligkeitWhere As String = ""
If faelligkeitsTAG <> "" Then
If faelligkeitsTAG = "16" Then
faelligkeitWhere = " And (DATEPART(day,[brgak_faelligkeitsdatum] )=" & faelligkeitsTAG & " Or [brgak_faelligkeitsdatum] Is null) "
Else
faelligkeitWhere = " And DATEPART(day,[brgak_faelligkeitsdatum] )=" & faelligkeitsTAG & " "
End If
End If
sql = "SELECT * " &
" FROM tblBrgAufschub WHERE ( brgak_datum BETWEEN '" & datumVon & " 00:00:00' AND '" & datumBis & " 23:59:59') AND brgak_brgaktoId = '" & brgKto & "' " & where & einzahlung & faelligkeitWhere
Else
sql = "SELECT * " &
" FROM tblBrgAufschub WHERE brgak_faelligkeitsdatum='" & CDate(faelligkeit).ToShortDateString & "' AND brgak_brgaktoId = '" & brgKto & "' " & where & einzahlung
End If
Dim ADMINSQL As New VERAG_PROG_ALLGEMEIN.SQL
Return ADMINSQL.loadDgvBySql(sql, "ADMIN")
End Function
Public Function getBrgSumFromZolaris(ByVal datumVon As DateTime, ByVal datumBis As DateTime, ByVal kto As String, ByVal aufgehobenAbziehen As Boolean, Optional where As String = "") As String
Try
Dim sql As String =

38
VERAGMonitoring/frmEinzahlung.Designer.vb generated
View File

@@ -34,6 +34,8 @@ Partial Class frmEinzahlung
Me.Label3 = New System.Windows.Forms.Label()
Me.Label4 = New System.Windows.Forms.Label()
Me.lblSaved = New System.Windows.Forms.Label()
Me.txtFealligkeit = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label5 = New System.Windows.Forms.Label()
Me.Panel1.SuspendLayout()
CType(Me.dgvEinzahlungen, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
@@ -114,7 +116,7 @@ Partial Class frmEinzahlung
'
Me.cbotxtBetrag.Location = New System.Drawing.Point(19, 154)
Me.cbotxtBetrag.Name = "cbotxtBetrag"
Me.cbotxtBetrag.Size = New System.Drawing.Size(285, 20)
Me.cbotxtBetrag.Size = New System.Drawing.Size(179, 20)
Me.cbotxtBetrag.TabIndex = 13
'
'Label3
@@ -146,11 +148,43 @@ Partial Class frmEinzahlung
Me.lblSaved.Text = "gespeichert..."
Me.lblSaved.Visible = False
'
'txtFealligkeit
'
Me.txtFealligkeit._DateTimeOnly = False
Me.txtFealligkeit._numbersOnly = False
Me.txtFealligkeit._numbersOnlyKommastellen = ""
Me.txtFealligkeit._Prozent = False
Me.txtFealligkeit._ShortDateNew = True
Me.txtFealligkeit._ShortDateOnly = False
Me.txtFealligkeit._TimeOnly = False
Me.txtFealligkeit._value = ""
Me.txtFealligkeit._Waehrung = False
Me.txtFealligkeit._WaehrungZeichen = True
Me.txtFealligkeit.ForeColor = System.Drawing.Color.Black
Me.txtFealligkeit.Location = New System.Drawing.Point(204, 154)
Me.txtFealligkeit.MaxLineLength = -1
Me.txtFealligkeit.MaxLines_Warning = ""
Me.txtFealligkeit.MaxLines_Warning_Label = Nothing
Me.txtFealligkeit.Name = "txtFealligkeit"
Me.txtFealligkeit.Size = New System.Drawing.Size(100, 20)
Me.txtFealligkeit.TabIndex = 16
'
'Label5
'
Me.Label5.AutoSize = True
Me.Label5.Location = New System.Drawing.Point(201, 138)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(34, 9)
Me.Label5.TabIndex = 17
Me.Label5.Text = "Fälligkeit:"
'
'frmEinzahlung
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(909, 264)
Me.Controls.Add(Me.Label5)
Me.Controls.Add(Me.txtFealligkeit)
Me.Controls.Add(Me.lblSaved)
Me.Controls.Add(Me.Label4)
Me.Controls.Add(Me.Label3)
@@ -181,4 +215,6 @@ Partial Class frmEinzahlung
Friend WithEvents Label4 As System.Windows.Forms.Label
Friend WithEvents lblSaved As System.Windows.Forms.Label
Friend WithEvents btnClose As System.Windows.Forms.Button
Friend WithEvents txtFealligkeit As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label5 As Label
End Class

6
VERAGMonitoring/frmEinzahlung.vb
View File

@@ -17,13 +17,15 @@
dgvEinzahlungen.Columns(0).Visible = False
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnSave.Click
If isDouble(cbotxtBetrag.Text) Then
If isDouble(cbotxtBetrag.Text) And IsDate(txtFealligkeit._value) Then
Dim oItem As MyListItem = CType(cboBrg.SelectedItem, MyListItem)
If BRG.insertBrgAufschubEinzahlung(Now.ToString("dd.MM.yyyy hh:mm:ss"), CDbl(cbotxtBetrag.Text) * -1, oItem.Value, "", "") Then
If BRG.insertBrgAufschubEinzahlung(Now.ToString("dd.MM.yyyy hh:mm:ss"), CDbl(cbotxtBetrag.Text) * -1, oItem.Value, "", "", CDate(txtFealligkeit._value)) Then
cbotxtBetrag.Text = ""
lblSaved.Visible = True
initDgv()
End If
Else
MsgBox("Bitte alle Felder angeben!")
End If
End Sub

74
VERAGMonitoring/frmMain.Designer.vb generated
View File

@@ -25,6 +25,7 @@ Partial Class frmMain
Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMain))
Me.Panel2 = New System.Windows.Forms.Panel()
Me.Button3 = New System.Windows.Forms.Button()
Me.lblAufschubBrgEUST_de_UNISPEDDE_oE = New System.Windows.Forms.Label()
Me.cbxAufschubEUST_de_UnispedDE = New System.Windows.Forms.CheckBox()
Me.lblAufschubEUST_de_UNISPEDDE = New System.Windows.Forms.Label()
@@ -164,6 +165,7 @@ Partial Class frmMain
'Panel2
'
Me.Panel2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Panel2.Controls.Add(Me.Button3)
Me.Panel2.Controls.Add(Me.lblAufschubBrgEUST_de_UNISPEDDE_oE)
Me.Panel2.Controls.Add(Me.cbxAufschubEUST_de_UnispedDE)
Me.Panel2.Controls.Add(Me.lblAufschubEUST_de_UNISPEDDE)
@@ -285,6 +287,23 @@ Partial Class frmMain
Me.Panel2.Size = New System.Drawing.Size(671, 608)
Me.Panel2.TabIndex = 8
'
'Button3
'
Me.Button3.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Button3.BackColor = System.Drawing.Color.Gray
Me.Button3.FlatAppearance.BorderColor = System.Drawing.Color.White
Me.Button3.FlatAppearance.BorderSize = 0
Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button3.ForeColor = System.Drawing.Color.White
Me.Button3.Location = New System.Drawing.Point(501, 574)
Me.Button3.Name = "Button3"
Me.Button3.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.Button3.Size = New System.Drawing.Size(45, 24)
Me.Button3.TabIndex = 86
Me.Button3.Text = "< >"
Me.Button3.UseVisualStyleBackColor = False
'
'lblAufschubBrgEUST_de_UNISPEDDE_oE
'
Me.lblAufschubBrgEUST_de_UNISPEDDE_oE.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
@@ -300,8 +319,7 @@ Partial Class frmMain
'cbxAufschubEUST_de_UnispedDE
'
Me.cbxAufschubEUST_de_UnispedDE.AutoSize = True
Me.cbxAufschubEUST_de_UnispedDE.Checked = True
Me.cbxAufschubEUST_de_UnispedDE.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbxAufschubEUST_de_UnispedDE.Enabled = False
Me.cbxAufschubEUST_de_UnispedDE.Location = New System.Drawing.Point(9, 437)
Me.cbxAufschubEUST_de_UnispedDE.Name = "cbxAufschubEUST_de_UnispedDE"
Me.cbxAufschubEUST_de_UnispedDE.Size = New System.Drawing.Size(15, 14)
@@ -360,8 +378,7 @@ Partial Class frmMain
'cbxAufschub_de_UnispedDE
'
Me.cbxAufschub_de_UnispedDE.AutoSize = True
Me.cbxAufschub_de_UnispedDE.Checked = True
Me.cbxAufschub_de_UnispedDE.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbxAufschub_de_UnispedDE.Enabled = False
Me.cbxAufschub_de_UnispedDE.Location = New System.Drawing.Point(9, 419)
Me.cbxAufschub_de_UnispedDE.Name = "cbxAufschub_de_UnispedDE"
Me.cbxAufschub_de_UnispedDE.Size = New System.Drawing.Size(15, 14)
@@ -420,8 +437,7 @@ Partial Class frmMain
'cbxAufschubEUST_de_Global
'
Me.cbxAufschubEUST_de_Global.AutoSize = True
Me.cbxAufschubEUST_de_Global.Checked = True
Me.cbxAufschubEUST_de_Global.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbxAufschubEUST_de_Global.Enabled = False
Me.cbxAufschubEUST_de_Global.Location = New System.Drawing.Point(9, 351)
Me.cbxAufschubEUST_de_Global.Name = "cbxAufschubEUST_de_Global"
Me.cbxAufschubEUST_de_Global.Size = New System.Drawing.Size(15, 14)
@@ -468,8 +484,7 @@ Partial Class frmMain
'cbxAufschub_at_IMEX
'
Me.cbxAufschub_at_IMEX.AutoSize = True
Me.cbxAufschub_at_IMEX.Checked = True
Me.cbxAufschub_at_IMEX.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbxAufschub_at_IMEX.Enabled = False
Me.cbxAufschub_at_IMEX.Location = New System.Drawing.Point(9, 546)
Me.cbxAufschub_at_IMEX.Name = "cbxAufschub_at_IMEX"
Me.cbxAufschub_at_IMEX.Size = New System.Drawing.Size(15, 14)
@@ -516,8 +531,7 @@ Partial Class frmMain
'cbxBrg_at_UNISPED
'
Me.cbxBrg_at_UNISPED.AutoSize = True
Me.cbxBrg_at_UNISPED.Checked = True
Me.cbxBrg_at_UNISPED.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbxBrg_at_UNISPED.Enabled = False
Me.cbxBrg_at_UNISPED.Location = New System.Drawing.Point(9, 210)
Me.cbxBrg_at_UNISPED.Name = "cbxBrg_at_UNISPED"
Me.cbxBrg_at_UNISPED.Size = New System.Drawing.Size(15, 14)
@@ -603,8 +617,7 @@ Partial Class frmMain
'cbxAufschubEUST_de_Unisped
'
Me.cbxAufschubEUST_de_Unisped.AutoSize = True
Me.cbxAufschubEUST_de_Unisped.Checked = True
Me.cbxAufschubEUST_de_Unisped.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbxAufschubEUST_de_Unisped.Enabled = False
Me.cbxAufschubEUST_de_Unisped.Location = New System.Drawing.Point(9, 399)
Me.cbxAufschubEUST_de_Unisped.Name = "cbxAufschubEUST_de_Unisped"
Me.cbxAufschubEUST_de_Unisped.Size = New System.Drawing.Size(15, 14)
@@ -663,8 +676,7 @@ Partial Class frmMain
'cbxAufschub_de_Unisped
'
Me.cbxAufschub_de_Unisped.AutoSize = True
Me.cbxAufschub_de_Unisped.Checked = True
Me.cbxAufschub_de_Unisped.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbxAufschub_de_Unisped.Enabled = False
Me.cbxAufschub_de_Unisped.Location = New System.Drawing.Point(9, 381)
Me.cbxAufschub_de_Unisped.Name = "cbxAufschub_de_Unisped"
Me.cbxAufschub_de_Unisped.Size = New System.Drawing.Size(15, 14)
@@ -723,8 +735,7 @@ Partial Class frmMain
'cbxAufschubEUST_de_VeragAG
'
Me.cbxAufschubEUST_de_VeragAG.AutoSize = True
Me.cbxAufschubEUST_de_VeragAG.Checked = True
Me.cbxAufschubEUST_de_VeragAG.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbxAufschubEUST_de_VeragAG.Enabled = False
Me.cbxAufschubEUST_de_VeragAG.Location = New System.Drawing.Point(9, 287)
Me.cbxAufschubEUST_de_VeragAG.Name = "cbxAufschubEUST_de_VeragAG"
Me.cbxAufschubEUST_de_VeragAG.Size = New System.Drawing.Size(15, 14)
@@ -783,8 +794,7 @@ Partial Class frmMain
'cbxAufschubEUST_de_Imex
'
Me.cbxAufschubEUST_de_Imex.AutoSize = True
Me.cbxAufschubEUST_de_Imex.Checked = True
Me.cbxAufschubEUST_de_Imex.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbxAufschubEUST_de_Imex.Enabled = False
Me.cbxAufschubEUST_de_Imex.Location = New System.Drawing.Point(9, 332)
Me.cbxAufschubEUST_de_Imex.Name = "cbxAufschubEUST_de_Imex"
Me.cbxAufschubEUST_de_Imex.Size = New System.Drawing.Size(15, 14)
@@ -831,8 +841,7 @@ Partial Class frmMain
'cbxBrg_at_Atilla
'
Me.cbxBrg_at_Atilla.AutoSize = True
Me.cbxBrg_at_Atilla.Checked = True
Me.cbxBrg_at_Atilla.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbxBrg_at_Atilla.Enabled = False
Me.cbxBrg_at_Atilla.Location = New System.Drawing.Point(9, 188)
Me.cbxBrg_at_Atilla.Name = "cbxBrg_at_Atilla"
Me.cbxBrg_at_Atilla.Size = New System.Drawing.Size(15, 14)
@@ -906,8 +915,7 @@ Partial Class frmMain
'cbxBrg_at_Imex
'
Me.cbxBrg_at_Imex.AutoSize = True
Me.cbxBrg_at_Imex.Checked = True
Me.cbxBrg_at_Imex.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbxBrg_at_Imex.Enabled = False
Me.cbxBrg_at_Imex.Location = New System.Drawing.Point(9, 165)
Me.cbxBrg_at_Imex.Name = "cbxBrg_at_Imex"
Me.cbxBrg_at_Imex.Size = New System.Drawing.Size(15, 14)
@@ -1055,8 +1063,7 @@ Partial Class frmMain
'cbxAufschub_de_Imex
'
Me.cbxAufschub_de_Imex.AutoSize = True
Me.cbxAufschub_de_Imex.Checked = True
Me.cbxAufschub_de_Imex.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbxAufschub_de_Imex.Enabled = False
Me.cbxAufschub_de_Imex.Location = New System.Drawing.Point(9, 314)
Me.cbxAufschub_de_Imex.Name = "cbxAufschub_de_Imex"
Me.cbxAufschub_de_Imex.Size = New System.Drawing.Size(15, 14)
@@ -1116,8 +1123,7 @@ Partial Class frmMain
'cbxBrg_de2_VeragAG
'
Me.cbxBrg_de2_VeragAG.AutoSize = True
Me.cbxBrg_de2_VeragAG.Checked = True
Me.cbxBrg_de2_VeragAG.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbxBrg_de2_VeragAG.Enabled = False
Me.cbxBrg_de2_VeragAG.Location = New System.Drawing.Point(9, 122)
Me.cbxBrg_de2_VeragAG.Name = "cbxBrg_de2_VeragAG"
Me.cbxBrg_de2_VeragAG.Size = New System.Drawing.Size(15, 14)
@@ -1224,8 +1230,7 @@ Partial Class frmMain
'cbxAufschub_at_VeragZS
'
Me.cbxAufschub_at_VeragZS.AutoSize = True
Me.cbxAufschub_at_VeragZS.Checked = True
Me.cbxAufschub_at_VeragZS.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbxAufschub_at_VeragZS.Enabled = False
Me.cbxAufschub_at_VeragZS.Location = New System.Drawing.Point(9, 526)
Me.cbxAufschub_at_VeragZS.Name = "cbxAufschub_at_VeragZS"
Me.cbxAufschub_at_VeragZS.Size = New System.Drawing.Size(15, 14)
@@ -1338,8 +1343,7 @@ Partial Class frmMain
'cbxAufschub_at_VeragCS
'
Me.cbxAufschub_at_VeragCS.AutoSize = True
Me.cbxAufschub_at_VeragCS.Checked = True
Me.cbxAufschub_at_VeragCS.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbxAufschub_at_VeragCS.Enabled = False
Me.cbxAufschub_at_VeragCS.Location = New System.Drawing.Point(9, 506)
Me.cbxAufschub_at_VeragCS.Name = "cbxAufschub_at_VeragCS"
Me.cbxAufschub_at_VeragCS.Size = New System.Drawing.Size(15, 14)
@@ -1359,8 +1363,7 @@ Partial Class frmMain
'cbxAufschub_at_VeragAG
'
Me.cbxAufschub_at_VeragAG.AutoSize = True
Me.cbxAufschub_at_VeragAG.Checked = True
Me.cbxAufschub_at_VeragAG.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbxAufschub_at_VeragAG.Enabled = False
Me.cbxAufschub_at_VeragAG.Location = New System.Drawing.Point(9, 486)
Me.cbxAufschub_at_VeragAG.Name = "cbxAufschub_at_VeragAG"
Me.cbxAufschub_at_VeragAG.Size = New System.Drawing.Size(15, 14)
@@ -1370,8 +1373,7 @@ Partial Class frmMain
'cbxAufschub_de_VeragAG
'
Me.cbxAufschub_de_VeragAG.AutoSize = True
Me.cbxAufschub_de_VeragAG.Checked = True
Me.cbxAufschub_de_VeragAG.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbxAufschub_de_VeragAG.Enabled = False
Me.cbxAufschub_de_VeragAG.Location = New System.Drawing.Point(9, 269)
Me.cbxAufschub_de_VeragAG.Name = "cbxAufschub_de_VeragAG"
Me.cbxAufschub_de_VeragAG.Size = New System.Drawing.Size(15, 14)
@@ -1392,8 +1394,7 @@ Partial Class frmMain
'cbxBrg_at_VeragAG
'
Me.cbxBrg_at_VeragAG.AutoSize = True
Me.cbxBrg_at_VeragAG.Checked = True
Me.cbxBrg_at_VeragAG.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbxBrg_at_VeragAG.Enabled = False
Me.cbxBrg_at_VeragAG.Location = New System.Drawing.Point(9, 143)
Me.cbxBrg_at_VeragAG.Name = "cbxBrg_at_VeragAG"
Me.cbxBrg_at_VeragAG.Size = New System.Drawing.Size(15, 14)
@@ -1954,4 +1955,5 @@ Partial Class frmMain
Friend WithEvents lblAufschub_de_UNISPEDDE As Label
Friend WithEvents lblAufschubBrg_de_UNISPEDDE As Label
Friend WithEvents lblAufschubStatus_de_UNISPEDDE As Label
Friend WithEvents Button3 As Button
End Class

333
VERAGMonitoring/frmMain.vb
View File

@@ -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