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

Asfinag

Browse Source
This commit is contained in:
d.breimaier
2023-11-23 15:47:35 +01:00
parent c9aad69b94
commit 518a2ecaa7
6 changed files with 272 additions and 203 deletions
Download Patch File Download Diff File Expand all files Collapse all files

40
initATLASAufschubkonten/frmStartOptions.vb
View File

@@ -3604,7 +3604,8 @@ Public Class frmStartOptions
Private Sub LinkLabel44_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel44.LinkClicked
Me.Visible = False
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = CheckBox8.Checked
Dim f As New frmAsfinag_NachrichtenVerabeitung("TTR")
If Not checkTestsystemSettings() Then Exit Sub
Dim f As New frmAsfinag_NachrichtenVerabeitung("TTR", cbxTestFTP.Checked)
f.ShowDialog()
Me.Visible = True
End Sub
@@ -3612,7 +3613,8 @@ Public Class frmStartOptions
Private Sub LinkLabel43_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel43.LinkClicked
Me.Visible = False
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = CheckBox8.Checked
Dim f As New frmAsfinag_NachrichtenVerabeitung("CLF")
If Not checkTestsystemSettings() Then Exit Sub
Dim f As New frmAsfinag_NachrichtenVerabeitung("CLF", cbxTestFTP.Checked)
f.ShowDialog()
Me.Visible = True
'ASFINAG_LKW(False)
@@ -3620,6 +3622,7 @@ Public Class frmStartOptions
Private Sub LinkLabel42_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel42.LinkClicked
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = CheckBox8.Checked
If Not checkTestsystemSettings() Then Exit Sub
Me.Cursor = Cursors.WaitCursor
Dim blt = New cAsfinag.Exportist
blt.initExportPfade()
@@ -3629,6 +3632,7 @@ Public Class frmStartOptions
Private Sub LinkLabel41_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel41.LinkClicked
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = CheckBox8.Checked
If Not checkTestsystemSettings() Then Exit Sub
Me.Cursor = Cursors.WaitCursor
Dim blt = New cAsfinag.Exportist
blt.initExportPfade()
@@ -3792,11 +3796,29 @@ Public Class frmStartOptions
Private Sub LinkLabel99_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel46.LinkClicked
Try
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = CheckBox8.Checked
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Dim frm As New Form
Dim dgv As New DataGridView()
Dim dt As DataTable = SQL.loadDgvBySql("SELECT dbo.CLFBody.* FROM dbo.CLF INNER JOIN dbo.CLFBody ON dbo.CLF.PKHistory = dbo.CLFBody.PKHistory AND dbo.CLF.PKFileName = dbo.CLFBody.PKFileName", "ASFINAG")
Dim dt As DataTable = SQL.loadDgvBySql("SELECT dbo.CLFBody.PKHistory,
dbo.CLFBody.PKFileName,
dbo.CLFBody.PKLine,
dbo.CLFBody.RecordType,
dbo.CLFBody.fileNumber,
dbo.CLFBody.cardNumber,
dbo.CLFBody.validTo OBUID,
dbo.CLFBody.vehicleLicensePlate,
dbo.CLFBody.nationality,
dbo.CLFBody.vehicleCategory,
dbo.CLFBody.emissionCategory,
dbo.CLFBody.status,
dbo.CLFBody.contractDate,
dbo.CLFBody.fileVersion,
dbo.CLFBody.engineCharacteristics,
dbo.CLFBody.CO2EmissionsClass,
dbo.CLFBody.contractType FROM dbo.CLF INNER JOIN dbo.CLFBody ON dbo.CLF.PKHistory = dbo.CLFBody.PKHistory AND dbo.CLF.PKFileName = dbo.CLFBody.PKFileName
", "ASFINAG")
dgv.DataSource = dt
If dgv IsNot Nothing Then
@@ -3805,6 +3827,7 @@ Public Class frmStartOptions
dgv.Dock = DockStyle.Fill
dgv.Anchor = AnchorStyles.Left
dgv.Anchor = AnchorStyles.Top
dgv.ReadOnly = True
frm.Controls.Add(dgv)
frm.StartPosition = FormStartPosition.CenterScreen
frm.ShowDialog()
@@ -3937,4 +3960,15 @@ Public Class frmStartOptions
importFileFromEZOLL(If(CheckBox2.Checked, Now.AddDays(-7), If(CheckBox3.Checked, Now.AddMonths(-1), Now)))
VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = f
End Sub
Private Function checkTestsystemSettings() As Boolean
Dim check As Boolean = False
If cbxTestFTP.Checked And Not CheckBox8.Checked Then
MsgBox("Testdaten von/auf TEST-FTP in/von Prod-Umgebung importieren/exportieren?" & vbNewLine & " Keine gute Idee!")
Else
check = True
End If
Return check
End Function
End Class