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-12-13 17:02:22 +01:00
parent 4b4a4a3286
commit 424316755e
2 changed files with 5 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
initATLASAufschubkonten/frmAsfinag_NachrichtenVerarbeitung.vb
View File

@@ -221,10 +221,9 @@ Public Class frmAsfinag_NachrichtenVerabeitung
Private Sub frmTCNachrichtenVerarbeitung_Shown(sender As Object, e As EventArgs) Handles Me.Shown Private Sub frmTCNachrichtenVerarbeitung_Shown(sender As Object, e As EventArgs) Handles Me.Shown
If allowClose Then If allowClose Then
Me.Refresh() Me.Refresh()
Button2.PerformClick() Button2.PerformClick()
System.Threading.Thread.Sleep(2000)
Button1.PerformClick() Button1.PerformClick()
System.Threading.Thread.Sleep(20000) System.Threading.Thread.Sleep(20000)
Me.Close() Me.Close()

7
initATLASAufschubkonten/frmStartOptions.vb
View File

@@ -480,13 +480,13 @@ Public Class frmStartOptions
Case "ASFINAG_IMPORT" Case "ASFINAG_IMPORT"
Dim f As New frmInfo(PARAM) Dim f As New frmInfo(PARAM)
f.Show() f.Show()
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True
Dim autoclose As Boolean = True Dim autoclose As Boolean = True
Dim testFTP As Boolean = VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Dim testFTP As Boolean = VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM
Dim fmCLF As New frmAsfinag_NachrichtenVerabeitung("CLF", testFTP) Dim fmCLF As New frmAsfinag_NachrichtenVerabeitung("CLF", testFTP, autoclose)
fmCLF.Show() fmCLF.Show()
AddHandler fmCLF.FormClosed, AddressOf closeMe AddHandler fmCLF.FormClosed, AddressOf closeMe
Dim fmTTR As New frmAsfinag_NachrichtenVerabeitung("TTR", testFTP) Dim fmTTR As New frmAsfinag_NachrichtenVerabeitung("TTR", testFTP, autoclose)
fmTTR.Show() fmTTR.Show()
AddHandler fmTTR.FormClosed, AddressOf closeMe AddHandler fmTTR.FormClosed, AddressOf closeMe
closeMe() closeMe()
@@ -3826,6 +3826,7 @@ Public Class frmStartOptions
Dim frm As New Form Dim frm As New Form
Dim dgv As New DataGridView() Dim dgv As New DataGridView()
Dim dt As DataTable = SQL.loadDgvBySql("SELECT dbo.CLFBody.PKHistory, Dim dt As DataTable = SQL.loadDgvBySql("SELECT dbo.CLFBody.PKHistory,
dbo.CLFBody.ImportDate,
dbo.CLFBody.PKFileName, dbo.CLFBody.PKFileName,
dbo.CLFBody.PKLine, dbo.CLFBody.PKLine,
dbo.CLFBody.RecordType, dbo.CLFBody.RecordType,