Aliquote Urlaubsberechnung, Asfinag, Timas

This commit is contained in:
2024-01-15 16:56:38 +01:00
parent 7b639ea564
commit 6c5d797341
7 changed files with 323 additions and 62 deletions

View File

@@ -1056,7 +1056,7 @@ Public Class cAsfinag
FTP_PFAD = cAsfinag.Paramter.GET_PARAM_ByName("SERVER_Path_Out", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM)
If Not IO.Directory.Exists(VERARBEITUNG_PFAD) Then IO.Directory.CreateDirectory(VERARBEITUNG_PFAD)
If Not IO.Directory.Exists(FTP_PFAD_TEST) Then IO.Directory.CreateDirectory(FTP_PFAD_TEST)
'If Not IO.Directory.Exists(FTP_PFAD_TEST) Then IO.Directory.CreateDirectory(FTP_PFAD_TEST)
End Function

View File

@@ -230,6 +230,7 @@ Public Class frmAsfinag_NachrichtenVerabeitung
End If
End Sub
Private Sub pnl_Paint(sender As Object, e As PaintEventArgs) Handles pnl.Paint
End Sub

View File

@@ -498,10 +498,10 @@ Public Class frmStartOptions
Dim autoclose As Boolean = True
Dim testFTP As Boolean = VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM
Dim fmCLF As New frmAsfinag_NachrichtenVerabeitung("CLF", testFTP, autoclose)
fmCLF.Show()
fmCLF.ShowDialog()
AddHandler fmCLF.FormClosed, AddressOf closeMe
Dim fmTTR As New frmAsfinag_NachrichtenVerabeitung("TTR", testFTP, autoclose)
fmTTR.Show()
fmTTR.ShowDialog()
AddHandler fmTTR.FormClosed, AddressOf closeMe
closeMe()