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

Monitorin - MRN Storno

Browse Source
This commit is contained in:
Andreas Luxbauer
2022-09-21 10:19:23 +02:00
parent 4bc0e5f33e
commit 1e7312208e
11 changed files with 2155 additions and 64 deletions
Download Patch File Download Diff File Expand all files Collapse all files

44
VERAGMonitoring/frmMain.vb
View File

@@ -22,9 +22,12 @@ Public Class frmMain
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"
lblVersion.Text = "Version " & Application.ProductVersion
'auf UPDATES prüfen:
Dim LOGIN As New cLogin
If CInt(LOGIN.getAktuelleVersion().Replace(".", "")) > CInt(My.Resources.version.Replace(".", "")) Then
If CInt(LOGIN.getAktuelleVersion().Replace(".", "")) > CInt(Application.ProductVersion.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()
@@ -383,14 +386,16 @@ Public Class frmMain
Dim woche_at As Double = AtWoche_atlas + AtWoche_zolaris + AtWoche_TELOTEC + AtWoche_nctsTR
setLabel(lblAtWoche, String.Format("{0:C}", CDbl(woche_at)))
'In AT nur 1 Monat zurück, da Behörde manuell storniert!
'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 ")
Dim AtTag_zolaris As Double = BRG.getBrgSumFromFMZOLL_Zolaris(Now.AddMonths(-1).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)
Dim AtTag_atlas As Double = BRG.getBrgSumFromFMZOLL_Zabis(Now.AddMonths(-1).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)
Dim AtTag_telotec As Double = BRG.getBrgSumFromFMZOLL_TELOTEC(Now.AddMonths(-1).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)
Dim AtTag_nctsTR As Double = BRG.getBrgSumFromFMZOLL_NCTS_TR(Now.AddMonths(-1).ToShortDateString, Now.ToShortDateString, "50", "50", brg_AT)
'MsgBox("AtTag_zolaris: " & AtTag_zolaris)
'MsgBox("AtTag_atlas: " & AtTag_atlas)
@@ -416,11 +421,11 @@ Public Class frmMain
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 ")
Dim AtTag_zolaris As Double = BRG.getBrgSumFromFMZOLL_Zolaris(Now.AddMonths(-1).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)
Dim AtTag_atlas As Double = BRG.getBrgSumFromFMZOLL_Zabis(Now.AddMonths(-1).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)
Dim AtTag_telotec As Double = BRG.getBrgSumFromFMZOLL_TELOTEC(Now.AddMonths(-1).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)))
@@ -445,11 +450,11 @@ Public Class frmMain
setLabel(lblAtWocheAtilla, String.Format("{0:C}", CDbl(woche_at)))
'ZOLARIS AT TAG
Dim AtTag_zolaris As Double = BRG.getBrgSumFromFMZOLL_Zolaris(Now.AddMonths(-3).ToShortDateString, Now.ToShortDateString, "50", "50", brg_AT_ATILLA, " AND DatumBestimmungErreicht IS NULL ")
Dim AtTag_zolaris As Double = BRG.getBrgSumFromFMZOLL_Zolaris(Now.AddMonths(-1).ToShortDateString, Now.ToShortDateString, "50", "50", brg_AT_ATILLA, " AND DatumBestimmungErreicht IS NULL ")
'ATLAS AT TAG
Dim AtTag_atlas As Double = BRG.getBrgSumFromFMZOLL_Zabis(Now.AddMonths(-3).ToShortDateString, Now.ToShortDateString, "50", "50", brg_AT_ATILLA)
Dim AtTag_atlas As Double = BRG.getBrgSumFromFMZOLL_Zabis(Now.AddMonths(-1).ToShortDateString, Now.ToShortDateString, "50", "50", brg_AT_ATILLA)
'TELOTEC AT TAG
Dim AtTag_telotec As Double = BRG.getBrgSumFromFMZOLL_TELOTEC(Now.AddMonths(-3).ToShortDateString, Now.ToShortDateString, "50", "50", brg_AT_ATILLA)
Dim AtTag_telotec As Double = BRG.getBrgSumFromFMZOLL_TELOTEC(Now.AddMonths(-1).ToShortDateString, Now.ToShortDateString, "50", "50", brg_AT_ATILLA)
'AT TAG
Dim tag_at As Double = AtTag_zolaris + AtTag_atlas + AtTag_telotec
setLabel(lblAtTagAtilla, String.Format("{0:C}", CDbl(tag_at)))
@@ -474,11 +479,11 @@ Public Class frmMain
setLabel(lblAtWocheVERAG_CS, String.Format("{0:C}", CDbl(woche_at)))
'ZOLARIS AT TAG
Dim AtTag_zolaris As Double = BRG.getBrgSumFromFMZOLL_Zolaris(Now.AddMonths(-3).ToShortDateString, Now.ToShortDateString, "50", "50", brg_AT_verag_cs, " AND DatumBestimmungErreicht IS NULL ")
Dim AtTag_zolaris As Double = BRG.getBrgSumFromFMZOLL_Zolaris(Now.AddMonths(-1).ToShortDateString, Now.ToShortDateString, "50", "50", brg_AT_VERAG_CS, " AND DatumBestimmungErreicht IS NULL ")
'ATLAS AT TAG
Dim AtTag_atlas As Double = BRG.getBrgSumFromFMZOLL_Zabis(Now.AddMonths(-3).ToShortDateString, Now.ToShortDateString, "50", "50", brg_AT_verag_cs)
Dim AtTag_atlas As Double = BRG.getBrgSumFromFMZOLL_Zabis(Now.AddMonths(-1).ToShortDateString, Now.ToShortDateString, "50", "50", brg_AT_VERAG_CS)
'TELOTEC AT TAG
Dim AtTag_telotec As Double = BRG.getBrgSumFromFMZOLL_TELOTEC(Now.AddMonths(-3).ToShortDateString, Now.ToShortDateString, "50", "50", brg_AT_verag_cs)
Dim AtTag_telotec As Double = BRG.getBrgSumFromFMZOLL_TELOTEC(Now.AddMonths(-1).ToShortDateString, Now.ToShortDateString, "50", "50", brg_AT_VERAG_CS)
'AT TAG
Dim tag_at As Double = AtTag_zolaris + AtTag_atlas + AtTag_telotec
setLabel(lblAtTagVERAG_CS, String.Format("{0:C}", CDbl(tag_at)))
@@ -499,11 +504,11 @@ Public Class frmMain
setLabel(lblAtWocheUNISPED, String.Format("{0:C}", CDbl(woche_at)))
'ZOLARIS AT TAG
Dim AtTag_zolaris As Double = BRG.getBrgSumFromFMZOLL_Zolaris(Now.AddMonths(-3).ToShortDateString, Now.ToShortDateString, "50", "50", brg_DE_UNISPED, " AND DatumBestimmungErreicht IS NULL ")
Dim AtTag_zolaris As Double = BRG.getBrgSumFromFMZOLL_Zolaris(Now.AddMonths(-1).ToShortDateString, Now.ToShortDateString, "50", "50", brg_DE_UNISPED, " AND DatumBestimmungErreicht IS NULL ")
'ATLAS AT TAG
Dim AtTag_atlas As Double = BRG.getBrgSumFromFMZOLL_Zabis(Now.AddMonths(-3).ToShortDateString, Now.ToShortDateString, "50", "50", brg_DE_UNISPED)
Dim AtTag_atlas As Double = BRG.getBrgSumFromFMZOLL_Zabis(Now.AddMonths(-1).ToShortDateString, Now.ToShortDateString, "50", "50", brg_DE_UNISPED)
'TELOTEC AT TAG
Dim AtTag_telotec As Double = BRG.getBrgSumFromFMZOLL_TELOTEC(Now.AddMonths(-3).ToShortDateString, Now.ToShortDateString, "50", "50", brg_DE_UNISPED)
Dim AtTag_telotec As Double = BRG.getBrgSumFromFMZOLL_TELOTEC(Now.AddMonths(-1).ToShortDateString, Now.ToShortDateString, "50", "50", brg_DE_UNISPED)
'AT TAG
Dim tag_at As Double = AtTag_zolaris + AtTag_atlas + AtTag_telotec
setLabel(lblAtTagUNISPED, String.Format("{0:C}", CDbl(tag_at)))
@@ -1652,6 +1657,11 @@ Public Class frmMain
frmShowData.Label2.Text = "Anzahl: " & frmShowData.dgv.RowCount
End If
End Sub
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
Dim f As New frmMRNStorno
f.ShowDialog(Me)
End Sub
End Class