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

NCTS5

Browse Source
This commit is contained in:
Andreas Luxbauer
2023-11-14 15:07:32 +01:00
parent e54c9114fb
commit 391bea7c98
9 changed files with 27107 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
VERAGMonitoring/My Project/AssemblyInfo.vb
View File

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.0.4.6")>
<Assembly: AssemblyFileVersion("1.0.4.6")>
<Assembly: AssemblyVersion("1.0.4.7")>
<Assembly: AssemblyFileVersion("1.0.4.7")>

8
VERAGMonitoring/frmMain.vb
View File

@@ -416,8 +416,10 @@ Public Class frmMain
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)
'NCTS FREMD AT WOCHE
Dim AtWoche_NCTS_TR As Double = BRG.getBrgSumFromFMZOLL_NCTS_TR(Now.AddDays(-6).ToShortDateString, Now.ToShortDateString, "50", "60", brg_AT_IMEX)
'AT WOCHE
Dim woche_at As Double = AtWoche_atlas + AtWoche_zolaris + AtWoche_TELOTEC
Dim woche_at As Double = AtWoche_atlas + AtWoche_zolaris + AtWoche_TELOTEC + AtWoche_NCTS_TR
setLabel(lblAtWocheImex, String.Format("{0:C}", CDbl(woche_at)))
'ZOLARIS AT TAG
@@ -426,8 +428,10 @@ Public Class frmMain
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(-1).ToShortDateString, Now.ToShortDateString, "50", "50", brg_AT_IMEX)
'NCTS FREMD AT TAG
Dim AtTag_NCTS_FREMD As Double = BRG.getBrgSumFromFMZOLL_NCTS_TR(Now.AddMonths(-1).ToShortDateString, Now.ToShortDateString, "50", "50", brg_AT_IMEX)
'AT TAG
Dim tag_at As Double = AtTag_zolaris + AtTag_atlas + AtTag_telotec
Dim tag_at As Double = AtTag_zolaris + AtTag_atlas + AtTag_telotec + AtTag_NCTS_FREMD
setLabel(lblAtTagImex, String.Format("{0:C}", CDbl(tag_at)))
Else
setLabel(lblAtWocheImex, "0.0")