Merge branch 'master' of https://verag.visualstudio.com/ADMIN/_git/ADMIN
This commit is contained in:
ja
22
VERAGMonitoring/My Project/Resources.Designer.vb
generated
22
VERAGMonitoring/My Project/Resources.Designer.vb
generated
@@ -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", "15.0.0.0"), _
|
||||
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "16.0.0.0"), _
|
||||
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
|
||||
Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _
|
||||
@@ -60,6 +60,15 @@ 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>
|
||||
@@ -71,16 +80,7 @@ Namespace My.Resources
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Sucht eine lokalisierte Zeichenfolge, die ähnelt.
|
||||
'''</summary>
|
||||
Friend ReadOnly Property sdfsdfsdf3sdfsdf() As String
|
||||
Get
|
||||
Return ResourceManager.GetString("sdfsdfsdf3sdfsdf", resourceCulture)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Sucht eine lokalisierte Zeichenfolge, die 1.3.6 ähnelt.
|
||||
''' Sucht eine lokalisierte Zeichenfolge, die 1.3.8 ähnelt.
|
||||
'''</summary>
|
||||
Friend ReadOnly Property version() As String
|
||||
Get
|
||||
|
||||
@@ -118,13 +118,13 @@
|
||||
<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.6</value>
|
||||
<value>1.3.8</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="sdfsdfsdf3sdfsdf" xml:space="preserve">
|
||||
<data name="dfsdfe333" xml:space="preserve">
|
||||
<value />
|
||||
</data>
|
||||
</root>
|
||||
@@ -211,6 +211,32 @@ Public Class cBrgDb
|
||||
Return Nothing
|
||||
End Function
|
||||
|
||||
Public Function loadDgvBySqlFromAufschubKto_Faelligkeit(ByVal faelligkeitWHERE As String, ByVal brgKto As String, Optional where As String = "") As DataTable
|
||||
|
||||
Dim sql As String = "SELECT [brgak_id] as Id,[brgak_datum] as Datum,[brgak_betrag] as Betrag,[brgak_filename] as Dateiname,[brgak_atc] as ATC " &
|
||||
" FROM tblBrgAufschub WHERE brgak_brgaktoId = '" & brgKto & "' " & faelligkeitWHERE & where
|
||||
|
||||
While True 'Endlosschleife; wird verlassen durch Return oder Application.Exit()
|
||||
Try
|
||||
Dim myTable = New DataTable()
|
||||
Using conn As SqlConnection = VERAG_PROG_ALLGEMEIN.SQL.GetNewOpenConnectionADMIN()
|
||||
Using cmd As New SqlCommand(sql, conn)
|
||||
Dim dr As SqlDataReader = cmd.ExecuteReader()
|
||||
myTable.Load(dr)
|
||||
dr.Close()
|
||||
End Using
|
||||
conn.Close()
|
||||
End Using
|
||||
Return myTable 'While Schleife wird hier verlassen
|
||||
Catch ex As Exception
|
||||
Dim antwort As MsgBoxResult = MsgBox(ex.Message, CType(MsgBoxStyle.RetryCancel + MsgBoxStyle.Exclamation, MsgBoxStyle),
|
||||
"Problem in Function 'loadDgvBySqlZOLARIS'")
|
||||
End Try
|
||||
End While
|
||||
|
||||
Return Nothing
|
||||
|
||||
End Function
|
||||
Public Function loadDgvBySqlFromBrgKtoAtlas(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 DataTable
|
||||
|
||||
Dim sql As String = "SELECT [ID_NCTS], [basman_nr], [basman_nl], [veoant_beznr], [veoant_lfdnr], [veoant_stat], [veoant_arbnr], [veoant_mrn], [veoant_abgdst], [veoant_bedst], [veoant_wgdat], [veoant_anzpos], [veoant_andat], [veoant_korant], [veoant_vrbdat], [veoant_sb], [veopos_posnr], [veopos_stat], [veopos_wbsch1], [veopos_rohmas], [veoerz_sicbsc], [veoerz_basbtg],[veoerz_sicbtg],[vegdat_erldat] " &
|
||||
@@ -690,13 +716,32 @@ Public Class cBrgDb
|
||||
Return Nothing
|
||||
End Function
|
||||
|
||||
Public Function getBrgSumFromBrgKto(ByVal datumVon As DateTime, ByVal datumBis As DateTime, ByVal brgKto As String, Optional where As String = "", Optional EinzahlungsbetraegeMitrechnen As Boolean = True) As String
|
||||
Public Function getBrgSumFromBrgKto(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 String
|
||||
Dim einzahlung = ""
|
||||
If Not EinzahlungsbetraegeMitrechnen Then
|
||||
einzahlung = " AND [brgak_art] NOT IN ('einzahlung') "
|
||||
End If
|
||||
Dim sql As String = "SELECT SUM(brgak_betrag) " &
|
||||
" FROM tblBrgAufschub WHERE ( brgak_datum BETWEEN '" & datumVon & " 00:00:00' AND '" & datumBis & " 23:59:59') AND brgak_brgaktoId = '" & brgKto & "' " & where & einzahlung
|
||||
|
||||
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 SUM(brgak_betrag) " &
|
||||
" 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 SUM(brgak_betrag) " &
|
||||
" FROM tblBrgAufschub WHERE brgak_faelligkeitsdatum='" & CDate(faelligkeit).ToShortDateString & "' AND brgak_brgaktoId = '" & brgKto & "' " & where & einzahlung
|
||||
End If
|
||||
|
||||
' MsgBox(sql)
|
||||
' Dim daten As New List(Of cEntry)
|
||||
|
||||
@@ -6,6 +6,8 @@
|
||||
cboBrg.Items.Add(New MyListItem("Aufschub VERAG Spedition AG (Österreich)", "2"))
|
||||
cboBrg.Items.Add(New MyListItem("Aufschub VERAG Customs Service GmbH (Österreich)", "3"))
|
||||
cboBrg.Items.Add(New MyListItem("Aufschub VERAG Zollservice GmbH (Österreich)", "4"))
|
||||
cboBrg.Items.Add(New MyListItem("Aufschub IMEX Customs Service GmbH", "8"))
|
||||
cboBrg.Items.Add(New MyListItem("Aufschub IMEX Customs Service GmbH (Österreich)", "13"))
|
||||
cboBrg.SelectedIndex = 0
|
||||
initDgv()
|
||||
|
||||
|
||||
878
VERAGMonitoring/frmMain.Designer.vb
generated
878
VERAGMonitoring/frmMain.Designer.vb
generated
File diff suppressed because it is too large
Load Diff
@@ -76,6 +76,7 @@ Public Class frmMain
|
||||
cbxAufschub_at_VeragCS.Enabled = False
|
||||
cbxAufschub_at_VeragZS.Enabled = False
|
||||
|
||||
cbxAufschub_de_Imex.Checked = False
|
||||
cbxAufschub_de_Imex.Enabled = False
|
||||
cbxBrg_at_Imex.Enabled = False
|
||||
Button2.Visible = False
|
||||
@@ -96,6 +97,35 @@ Public Class frmMain
|
||||
cbxAufschub_at_VeragZS.Enabled = False
|
||||
Button2.Visible = False
|
||||
Button4.Enabled = False
|
||||
cbxAufschub_de_Imex.Checked = True
|
||||
cbxAufschub_de_Imex.Enabled = 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
|
||||
|
||||
Case "VERIMEX"
|
||||
'cbxBrg_at_VeragAG.Enabled = False
|
||||
@@ -325,59 +355,92 @@ Public Class frmMain
|
||||
|
||||
Dim von As Date = DateSerial(Now.Year, Now.Month, 1)
|
||||
Dim vonbrg As Date = von
|
||||
Dim vonFaell As Date = von
|
||||
' Dim vonbrg26 As Date = von
|
||||
If Now.Day <= 15 Then vonbrg = von.AddMonths(-1)
|
||||
If Now.Day > 16 Then vonFaell = von.AddMonths(1)
|
||||
'If Now.Day <= 26 Then vonbrg26 = von.AddMonths(-1)
|
||||
|
||||
'Aufschub DE VERAG AG
|
||||
Dim threadAufschub_de_VeragAG As _
|
||||
New System.Threading.Thread(Sub()
|
||||
If cbxAufschub_de_VeragAG.Checked Then
|
||||
''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 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_16 As Double = BRG.getBrgSumFromBrgKto(vonbrg.ToShortDateString, Now.ToShortDateString, brg_DE_VeragAG,,, "16")
|
||||
' ' Dim betragBrg_26 As Double = BRG.getBrgSumFromBrgKto(vonbrg.AddMonths(-1).ToShortDateString, Now.ToShortDateString, brg_DE_VeragAG,,, "26")
|
||||
' Dim betragBrg_16 As Double = BRG.getBrgSumFromBrgKto(Nothing, Nothing, brg_DE_VeragAG,,, , CDate("16" & vonFaell.ToString(".MM.yyyy")))
|
||||
' Dim betragBrg_26 As Double = 0
|
||||
' If Now.Day <= 26 Then betragBrg_26 += BRG.getBrgSumFromBrgKto(Nothing, Nothing, brg_DE_VeragAG,, , , CDate("26" & Now.ToString(".MM.yyyy"))) '9
|
||||
' betragBrg_26 += BRG.getBrgSumFromBrgKto(Nothing, Nothing, brg_DE_VeragAG,, , , CDate("26" & Now.AddMonths(1).ToString(".MM.yyyy"))) '9
|
||||
' betragBrg_26 += BRG.getBrgSumFromBrgKto(Nothing, Nothing, brg_DE_VeragAG,, , , CDate("26" & Now.AddMonths(2).ToString(".MM.yyyy"))) '10
|
||||
|
||||
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)
|
||||
' setLabel(lblAufschubBrg_de_VeragAG, String.Format("{0:C}", CDbl(betragBrg_16) + CDbl(betragBrg_26)))
|
||||
' 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)
|
||||
|
||||
lblAufschubAkt_de_VeragAG.ForeColor = Color.Black
|
||||
' 'Dim betragBrg_oE_16 As Double = BRG.getBrgSumFromBrgKto(vonbrg.ToShortDateString, Now.ToShortDateString, brg_DE_VeragAG,, False, "16")
|
||||
' 'Dim betragBrg_oE_26 As Double = BRG.getBrgSumFromBrgKto(vonbrg.AddMonths(-1).ToShortDateString, Now.ToShortDateString, brg_DE_VeragAG,, False, "26")
|
||||
' Dim betragBrg_oE_16 As Double = BRG.getBrgSumFromBrgKto(Nothing, Nothing, brg_DE_VeragAG,, False, , CDate("16" & vonFaell.ToString(".MM.yyyy")))
|
||||
' Dim betragBrg_oE_26 As Double = 0
|
||||
' If Now.Day <= 26 Then betragBrg_oE_26 += BRG.getBrgSumFromBrgKto(Nothing, Nothing, brg_DE_VeragAG,, False, , CDate("26" & Now.ToString(".MM.yyyy"))) '9
|
||||
' betragBrg_oE_26 += BRG.getBrgSumFromBrgKto(Nothing, Nothing, brg_DE_VeragAG,, False, , CDate("26" & Now.AddMonths(1).ToString(".MM.yyyy"))) '9
|
||||
' betragBrg_oE_26 += BRG.getBrgSumFromBrgKto(Nothing, Nothing, brg_DE_VeragAG,, False, , CDate("26" & Now.AddMonths(2).ToString(".MM.yyyy"))) '10
|
||||
|
||||
'Aufschub DE IMEX
|
||||
Dim threadAufschub_de_Imex As _
|
||||
New System.Threading.Thread(Sub()
|
||||
If cbxAufschub_de_Imex.Checked Then
|
||||
' setLabel(lblAufschubBrg_de_VeragAG_oE, String.Format("{0:C}", CDbl(betragBrg_oE_16) + CDbl(betragBrg_oE_26)))
|
||||
' Else
|
||||
' ' setLabel(lblAufschubAkt_de_VeragAG, "0.0")
|
||||
' setLabel(lblAufschubBrg_de_VeragAG, "0.0")
|
||||
' setLabel(lblAufschubBrg_de_VeragAG_oE, "0.0")
|
||||
|
||||
Dim betragAktuell As Double = BRG.getBrgSumFromBrgKto(von.ToShortDateString, Now.ToShortDateString, brg_DE_Imex)
|
||||
setLabel(lblAufschubAkt_de_Imex, String.Format("{0:C}", CDbl(betragAktuell)))
|
||||
' End If
|
||||
' End Sub)
|
||||
'threadAufschub_de_VeragAG.IsBackground = True
|
||||
'threadAufschub_de_VeragAG.Start()
|
||||
'threads.Add(threadAufschub_de_VeragAG)
|
||||
|
||||
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)
|
||||
'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_16 As Double = BRG.getBrgSumFromBrgKto(vonbrg.ToShortDateString, Now.ToShortDateString, brg_DE_Imex,,, "16")
|
||||
' 'Dim betragBrg_26 As Double = BRG.getBrgSumFromBrgKto(vonbrg.ToShortDateString, Now.ToShortDateString, brg_DE_Imex,,, "26")
|
||||
|
||||
' Dim betragBrg_16 As Double = BRG.getBrgSumFromBrgKto(Nothing, Nothing, brg_DE_Imex,,, , CDate("16" & vonFaell.ToString(".MM.yyyy")))
|
||||
' Dim betragBrg_26 As Double = 0
|
||||
' If Now.Day <= 26 Then betragBrg_26 += BRG.getBrgSumFromBrgKto(Nothing, Nothing, brg_DE_Imex,, , , CDate("26" & Now.ToString(".MM.yyyy"))) '9
|
||||
' betragBrg_26 += BRG.getBrgSumFromBrgKto(Nothing, Nothing, brg_DE_Imex,, , , CDate("26" & Now.AddMonths(1).ToString(".MM.yyyy"))) '9
|
||||
' betragBrg_26 += BRG.getBrgSumFromBrgKto(Nothing, Nothing, brg_DE_Imex,, , , CDate("26" & Now.AddMonths(2).ToString(".MM.yyyy"))) '10
|
||||
|
||||
|
||||
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
|
||||
' setLabel(lblAufschubBrg_de_Imex, String.Format("{0:C}", CDbl(betragBrg_16) + CDbl(betragBrg_26)))
|
||||
' setAlarm("Aufschubkonto DE - Imex Customs Service GmbH - HZA München", "8", Me.lblAufschubBrg_de_Imex, cMonitoringBrg.brgusrset_aufschub_imex_de_warn1, cMonitoringBrg.brgusrset_aufschub_imex_de_warn2, cMonitoringBrg.brgusrset_aufschub_imex_de_summe, lblAufschubStatus_de_Imex)
|
||||
|
||||
' ' Dim betragBrg_oE_16 As Double = BRG.getBrgSumFromBrgKto(vonbrg.ToShortDateString, Now.ToShortDateString, brg_DE_Imex,, False, "16")
|
||||
' ' Dim betragBrg_oE_26 As Double = BRG.getBrgSumFromBrgKto(vonbrg.ToShortDateString, Now.ToShortDateString, brg_DE_Imex,, False, "26")
|
||||
' Dim betragBrg_oE_16 As Double = BRG.getBrgSumFromBrgKto(Nothing, Nothing, brg_DE_Imex,, False, , CDate("16" & vonFaell.ToString(".MM.yyyy")))
|
||||
' Dim betragBrg_oE_26 As Double = 0
|
||||
' If Now.Day <= 26 Then betragBrg_oE_26 += BRG.getBrgSumFromBrgKto(Nothing, Nothing, brg_DE_Imex,, False, , CDate("26" & Now.ToString(".MM.yyyy"))) '9
|
||||
' betragBrg_oE_26 += BRG.getBrgSumFromBrgKto(Nothing, Nothing, brg_DE_Imex,, False, , CDate("26" & Now.AddMonths(1).ToString(".MM.yyyy"))) '9
|
||||
' betragBrg_oE_26 += BRG.getBrgSumFromBrgKto(Nothing, Nothing, brg_DE_Imex,, False, , CDate("26" & Now.AddMonths(2).ToString(".MM.yyyy"))) '10
|
||||
' setLabel(lblAufschubBrg_de_Imex_oE, String.Format("{0:C}", CDbl(betragBrg_oE_16) + CDbl(betragBrg_oE_26)))
|
||||
' 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
|
||||
@@ -480,8 +543,161 @@ Public Class frmMain
|
||||
threadAufschub_at_VeragZS.Start()
|
||||
threads.Add(threadAufschub_at_VeragZS)
|
||||
|
||||
'Aufschub AT VERAG Zollservice Service GmbH
|
||||
Dim threadAufschub_at_IMEX As _
|
||||
New System.Threading.Thread(Sub()
|
||||
If cbxAufschub_at_IMEX.Checked Then
|
||||
|
||||
'Dim betragAktuell As Double = CDbl(BRG.getBrgSumFromZolaris(von_new.ToShortDateString, Now.ToShortDateString, brg_AT_IMEX, True)) _
|
||||
' + CDbl(BRG.getBrgSumFromBrgKto(von_new.ToShortDateString, Now.ToShortDateString, brg_AT_IMEX_Aufschub))
|
||||
'setLabel(lblAufschubAkt_at_IMEX, String.Format("{0:C}", CDbl(betragAktuell)))
|
||||
|
||||
Dim betragBrg As Double = -CDbl(BRG.getBrgSumFromZolaris(vonbrg_new.ToShortDateString, Now.ToShortDateString, "3027279", True)) _
|
||||
+ (-1 * CDbl(BRG.getBrgSumFromBrgKto(vonbrg_new.ToShortDateString, Now.ToShortDateString, 13)))
|
||||
'Dim betragBrg As Double = BRG.getBrgSumFromBrgKto(vonbrg_new.ToShortDateString, Now.ToShortDateString, brg_AT_IMEX_Aufschub)
|
||||
'Dim zolaris As Double = BRG.getBrgSumFromZolaris(vonbrg_new.ToShortDateString, Now.ToShortDateString, brg_AT_IMEX, True)
|
||||
'betragBrg += zolaris
|
||||
setLabel(lblAufschubBrg_at_IMEX, String.Format("{0:C}", CDbl(betragBrg)))
|
||||
setAlarm2("Aufschubkonto AT - VERAG Zollsercvie GmbH - HZA Linz/Wels", "4", Me.lblAufschubBrg_at_IMEX, cMonitoringBrg.brgusrset_aufschub_ZS_at_warn1, cMonitoringBrg.brgusrset_aufschub_ZS_at_warn2, cMonitoringBrg.brgusrset_aufschub_ZS_at_summe, lblAufschubStatus_at_IMEX)
|
||||
|
||||
|
||||
'Dim betragBrg_oE As Double = BRG.getBrgSumFromBrgKto(vonbrg.ToShortDateString, Now.ToShortDateString, brg_AT_IMEX,, False)
|
||||
'betragBrg_oE += zolaris
|
||||
'setLabel(lblAufschubBrg_at_IMEX_oE, String.Format("{0:C}", CDbl(betragBrg_oE)))
|
||||
Else
|
||||
' setLabel(lblAufschubAkt_at_IMEX, "0.0")
|
||||
setLabel(lblAufschubBrg_at_IMEX, "0.0")
|
||||
' setLabel(lblAufschubBrg_at_IMEX_oE, "0.0")
|
||||
End If
|
||||
End Sub)
|
||||
threadAufschub_at_IMEX.IsBackground = True
|
||||
threadAufschub_at_IMEX.Start()
|
||||
threads.Add(threadAufschub_at_IMEX)
|
||||
|
||||
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("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_AT("GESAMT", 13, cbxAufschub_at_IMEX, lblAufschubBrg_at_IMEX, Nothing, lblAufschub_at_IMEX, lblAufschubStatus_at_IMEX) 'IMEX AT - GESAMT
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Sub doAufschubCalc(ART As String, BRG_ID As Integer, cbx As CheckBox, lblBRG As Label, lblBRG_oE As Label, lblAufschub As Label, lblAStatus As Label)
|
||||
|
||||
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)
|
||||
|
||||
lblAufschub.ForeColor = Color.Gray
|
||||
lblBRG.ForeColor = Color.Gray
|
||||
If lblBRG_oE IsNot Nothing Then lblBRG_oE.ForeColor = Color.Gray
|
||||
|
||||
Dim cAufschubKonten As New VERAG_PROG_ALLGEMEIN.cAufschubKonten(BRG_ID)
|
||||
|
||||
|
||||
setLabel(lblAufschub, cAufschubKonten.brgakto_bez & " - " & CDbl(cAufschubKonten.brgakto_betrag).ToString("C0"))
|
||||
|
||||
Dim threadAufschub As _
|
||||
New System.Threading.Thread(Sub()
|
||||
If cbx.Checked Then
|
||||
|
||||
Dim betrag As Double = 0
|
||||
Dim betrag_oE As Double = 0
|
||||
|
||||
If ART = "ZOLL" Then
|
||||
Dim betragBrg_16 As Double = BRG.getBrgSumFromBrgKto(Nothing, Nothing, BRG_ID,,, , CDate("16" & vonFaell.ToString(".MM.yyyy")))
|
||||
Dim betragBrg_26 As Double = 0
|
||||
If Now.Day <= 26 Then betragBrg_26 += BRG.getBrgSumFromBrgKto(Nothing, Nothing, BRG_ID,, , , CDate("26" & Now.ToString(".MM.yyyy"))) '9
|
||||
betragBrg_26 += BRG.getBrgSumFromBrgKto(Nothing, Nothing, BRG_ID,, , , CDate("26" & Now.AddMonths(1).ToString(".MM.yyyy"))) '9
|
||||
betragBrg_26 += BRG.getBrgSumFromBrgKto(Nothing, Nothing, BRG_ID,, , , CDate("26" & Now.AddMonths(2).ToString(".MM.yyyy"))) '10
|
||||
betrag = CDbl(betragBrg_16) + CDbl(betragBrg_26)
|
||||
|
||||
Dim betragBrg_oE_16 As Double = BRG.getBrgSumFromBrgKto(Nothing, Nothing, BRG_ID,, False, , CDate("16" & vonFaell.ToString(".MM.yyyy")))
|
||||
Dim betragBrg_oE_26 As Double = 0
|
||||
If Now.Day <= 26 Then betragBrg_oE_26 += BRG.getBrgSumFromBrgKto(Nothing, Nothing, BRG_ID,, False, , CDate("26" & Now.ToString(".MM.yyyy"))) '9
|
||||
betragBrg_oE_26 += BRG.getBrgSumFromBrgKto(Nothing, Nothing, BRG_ID,, False, , CDate("26" & Now.AddMonths(1).ToString(".MM.yyyy"))) '9
|
||||
betragBrg_oE_26 += BRG.getBrgSumFromBrgKto(Nothing, Nothing, BRG_ID,, False, , CDate("26" & Now.AddMonths(2).ToString(".MM.yyyy"))) '10
|
||||
betrag_oE = CDbl(betragBrg_oE_16) + CDbl(betragBrg_oE_26)
|
||||
|
||||
Else
|
||||
betrag = BRG.getBrgSumFromBrgKto(vonbrg.ToShortDateString, Now.ToShortDateString, BRG_ID)
|
||||
betrag_oE = BRG.getBrgSumFromBrgKto(vonbrg.ToShortDateString, Now.ToShortDateString, BRG_ID,, False)
|
||||
End If
|
||||
|
||||
|
||||
setLabel(lblBRG, String.Format("{0:C}", betrag))
|
||||
setAlarm(cAufschubKonten.brgakto_bez, BRG_ID, lblBRG, cAufschubKonten.brgakto_warn1, cAufschubKonten.brgakto_warn2, cAufschubKonten.brgakto_betrag, lblAStatus)
|
||||
|
||||
setLabel(lblBRG_oE, String.Format("{0:C}", betrag_oE))
|
||||
setLabelvisible(lblAStatus, True)
|
||||
Else
|
||||
setLabel(lblBRG, "0.0")
|
||||
setLabel(lblBRG_oE, "0.0")
|
||||
setLabelvisible(lblAStatus, False)
|
||||
|
||||
End If
|
||||
|
||||
lblAufschub.ForeColor = Color.Black
|
||||
lblBRG.ForeColor = Color.Black
|
||||
lblBRG_oE.ForeColor = Color.Black
|
||||
End Sub)
|
||||
threadAufschub.IsBackground = True
|
||||
threadAufschub.Start()
|
||||
threads.Add(threadAufschub)
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
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)
|
||||
|
||||
|
||||
|
||||
Dim von_new = New Date(2015, 1, 1) 'KTOSTAND von Begin der Aufzeichnungen an...
|
||||
Dim vonbrg_new = von_new
|
||||
|
||||
' lblAufschub.ForeColor = Color.Gray
|
||||
lblBRG.ForeColor = Color.Gray
|
||||
If lblBRG_oE IsNot Nothing Then lblBRG_oE.ForeColor = Color.Gray
|
||||
|
||||
Dim cAufschubKonten As New VERAG_PROG_ALLGEMEIN.cAufschubKonten(BRG_ID)
|
||||
|
||||
'Aufschub AT VERAG Zollservice Service GmbH
|
||||
Dim threadAufschub As _
|
||||
New System.Threading.Thread(Sub()
|
||||
If cbx.Checked Then
|
||||
|
||||
Dim betragBrg As Double = -CDbl(BRG.getBrgSumFromZolaris(vonbrg_new.ToShortDateString, Now.ToShortDateString, cAufschubKonten.brgakto_ktonr, True)) _
|
||||
+ (-1 * CDbl(BRG.getBrgSumFromBrgKto(vonbrg_new.ToShortDateString, Now.ToShortDateString, BRG_ID)))
|
||||
setLabel(lblBRG, String.Format("{0:C}", CDbl(betragBrg)))
|
||||
|
||||
setAlarm2(cAufschubKonten.brgakto_bez, BRG_ID, lblBRG, cAufschubKonten.brgakto_warn1, cAufschubKonten.brgakto_warn2, cAufschubKonten.brgakto_betrag, lblAStatus)
|
||||
|
||||
Else
|
||||
setLabel(lblBRG, "0.0")
|
||||
|
||||
End If
|
||||
End Sub)
|
||||
threadAufschub.IsBackground = True
|
||||
threadAufschub.Start()
|
||||
threads.Add(threadAufschub)
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
'threadsicherer Aufruf
|
||||
Delegate Sub setLabelCallback(l As Label, t As String)
|
||||
Private Sub setLabel(l As Label, t As String)
|
||||
@@ -493,6 +709,16 @@ Public Class frmMain
|
||||
End If
|
||||
End Sub
|
||||
|
||||
'threadsicherer Aufruf
|
||||
Delegate Sub setLabelCallbackvisible(l As Label, visible As Boolean)
|
||||
Private Sub setLabelvisible(l As Label, visible As Boolean)
|
||||
If Me.InvokeRequired Then
|
||||
Dim d As New setLabelCallbackvisible(AddressOf setLabelvisible)
|
||||
Me.Invoke(d, New Object() {l, visible})
|
||||
Else
|
||||
l.Visible = visible
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
Sub allinGray()
|
||||
@@ -719,7 +945,7 @@ Public Class frmMain
|
||||
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
|
||||
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, cbxAufschubEUST_de_VeragAG.CheckedChanged, cbxAufschubEUST_de_Imex.CheckedChanged, cbxAufschubEUST_de_Global.CheckedChanged, cbxAufschub_de_Unisped.CheckedChanged, cbxAufschubEUST_de_Unisped.CheckedChanged, cbxAufschub_de_UnispedDE.CheckedChanged, cbxAufschubEUST_de_UnispedDE.CheckedChanged, cbxAufschub_at_IMEX.CheckedChanged, cbxBrg_at_UNISPED.CheckedChanged, cbxBrg_at_Atilla.CheckedChanged, cbxBrg_at_Imex.CheckedChanged
|
||||
'MsgBox(sender.name)
|
||||
Me.Cursor = Cursors.WaitCursor
|
||||
If loaded Then
|
||||
@@ -830,9 +1056,22 @@ Public Class frmMain
|
||||
Dim brg_DE_VeragAG As String = "1"
|
||||
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)
|
||||
frmShowData.Show()
|
||||
frmShowData.dgv.DataSource = BRG.loadDgvBySqlFromAufschubKto(vonbrg.ToShortDateString, Now.ToShortDateString, brg_DE_VeragAG)
|
||||
|
||||
Dim faelligkeitWhere = " AND brgak_faelligkeitsdatum IN ("
|
||||
faelligkeitWhere &= "'" & CDate("16" & vonFaell.ToString(".MM.yyyy")).ToShortDateString & "'"
|
||||
|
||||
If Now.Day <= 26 Then faelligkeitWhere &= ",'" & CDate("26" & Now.ToString(".MM.yyyy")).ToShortDateString & "'"
|
||||
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)
|
||||
|
||||
frmShowData.Label2.Text = "Anzahl: " & frmShowData.dgv.RowCount
|
||||
End Sub
|
||||
|
||||
@@ -983,9 +1222,22 @@ Public Class frmMain
|
||||
Dim brg_DE_Imex As String = "8"
|
||||
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)
|
||||
frmShowData.Show()
|
||||
frmShowData.dgv.DataSource = BRG.loadDgvBySqlFromAufschubKto(vonbrg.ToShortDateString, Now.ToShortDateString, brg_DE_Imex)
|
||||
' frmShowData.dgv.DataSource = BRG.loadDgvBySqlFromAufschubKto(vonbrg.ToShortDateString, Now.ToShortDateString, brg_DE_Imex)
|
||||
|
||||
Dim faelligkeitWhere = " AND brgak_faelligkeitsdatum IN ("
|
||||
faelligkeitWhere &= "'" & CDate("16" & vonFaell.ToString(".MM.yyyy")).ToShortDateString & "'"
|
||||
|
||||
If Now.Day <= 26 Then faelligkeitWhere &= ",'" & CDate("26" & Now.ToString(".MM.yyyy")).ToShortDateString & "'"
|
||||
faelligkeitWhere &= ",'" & CDate("26" & Now.AddMonths(1).ToString(".MM.yyyy")).ToShortDateString & "'"
|
||||
faelligkeitWhere &= ",'" & CDate("26" & Now.AddMonths(2).ToString(".MM.yyyy")).ToShortDateString & "'"
|
||||
faelligkeitWhere &= ") "
|
||||
|
||||
frmShowData.dgv.DataSource = BRG.loadDgvBySqlFromAufschubKto_Faelligkeit(faelligkeitWhere, brg_DE_Imex)
|
||||
|
||||
frmShowData.Label2.Text = "Anzahl: " & frmShowData.dgv.RowCount
|
||||
End Sub
|
||||
|
||||
@@ -1001,13 +1253,6 @@ Public Class frmMain
|
||||
frmShowData.Show()
|
||||
End Sub
|
||||
|
||||
Private Sub cbxBrg_at_Atilla_CheckedChanged(sender As Object, e As EventArgs) Handles cbxBrg_at_Atilla.CheckedChanged
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub cbxBrg_at_Imex_CheckedChanged(sender As Object, e As EventArgs) Handles cbxBrg_at_Imex.CheckedChanged
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
|
||||
|
||||
Reference in New Issue
Block a user