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

Asfinag, ZE-MA-Ansicht

Browse Source
This commit is contained in:
d.breimaier
2023-11-22 16:02:59 +01:00
parent 7a3a0a73ec
commit 227ff9592a
8 changed files with 125 additions and 125 deletions
Download Patch File Download Diff File Expand all files Collapse all files

27
initATLASAufschubkonten/frmAsfinag_NachrichtenVerarbeitung.vb
View File

@@ -1,24 +1,13 @@
Imports System.IO
Imports System.Globalization
Imports System.Xml
Imports Renci.SshNet
Imports System.Net
Imports System.Text
Imports System.ComponentModel
Imports RoutineManager.cAsfinag
Imports DocumentFormat.OpenXml.Drawing.Charts
Imports DocumentFormat.OpenXml.VariantTypes
Public Class frmAsfinag_NachrichtenVerabeitung
Dim cntDatenEingelesen As Integer = 0
Dim dsNichtErkannt As Integer = 0
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Dim allowClose = False
' Dim DY_PFAD = "C:\Users\DEVELOPER1\Desktop\test\TEST\"
Dim PARTNERSYSTEM = "ASFINAG"
Dim FileType As String
Dim asfinag As New cAsfinag()
Dim Dateiname = ""
Sub New(FileType)
@@ -49,7 +38,7 @@ Public Class frmAsfinag_NachrichtenVerabeitung
For Each d In System.IO.Directory.GetFiles(asfinag.VERARBEITUNG_PFAD)
Dim filename = frmStartOptions.cut_file(d)
If filename.ToLower.Contains(FileType) Then
If filename.ToUpper.Contains(FileType) Then
Dim targetsystem As String = "nicht definiert"
If filename.Substring(0, 1) = "T" Then
targetsystem = "Test"
@@ -59,7 +48,7 @@ Public Class frmAsfinag_NachrichtenVerabeitung
ListBox3.Items.Add(filename)
End If
Me.Refresh()
Me.Refresh()
Next
End If
@@ -154,7 +143,7 @@ Public Class frmAsfinag_NachrichtenVerabeitung
MsgBoxStyle.DefaultButton2 = MsgBoxStyle.OkOnly)
Exit Sub
ElseIf FileType = "clf" Then
ElseIf FileType = "CLF" Then
If asfinag.readAndSaveCLF(objFileRead, fi) Then
addDGVEinarbeitung(fi.Name, "OK")
@@ -164,7 +153,7 @@ Public Class frmAsfinag_NachrichtenVerabeitung
End If
ElseIf FileType = "ttr" Then
ElseIf FileType = "TTR" Then
If asfinag.readAndSaveTTR(objFileRead, fi) Then
addDGVEinarbeitung(fi.Name, "OK")
@@ -178,13 +167,13 @@ Public Class frmAsfinag_NachrichtenVerabeitung
End If
If found Then
If Not IO.Directory.Exists(asfinag.ARCHIV_PFAD & "\" & Now.Year & "\" & Now.ToString("MMdd") & "\") Then IO.Directory.CreateDirectory(asfinag.ARCHIV_PFAD & "\" & Now.Year & "\" & Now.ToString("MMdd") & "\")
frmStartOptions.moveFile(d, asfinag.ARCHIV_PFAD & "\" & Now.Year & "\" & Now.ToString("MMdd") & "\", asfinag.VERARBEITUNG_PFAD)
If Not IO.Directory.Exists(asfinag.ARCHIV_PFAD & "\" & Now.Year & "\" & FileType) Then IO.Directory.CreateDirectory(asfinag.ARCHIV_PFAD & "\" & Now.Year & "\" & FileType & "\")
frmStartOptions.moveFile(d, asfinag.ARCHIV_PFAD & "\" & Now.Year & "\" & FileType & "\", asfinag.VERARBEITUNG_PFAD)
cntDatenEingelesen += 1
Else
If Not found Then
If Not IO.Directory.Exists(asfinag.ERROR_PFAD & "\" & Now.Year & "\" & Now.ToString("MMdd") & "\") Then IO.Directory.CreateDirectory(asfinag.ERROR_PFAD & "\" & Now.Year & "\" & Now.ToString("MMdd") & "\")
frmStartOptions.moveFile(d, asfinag.ERROR_PFAD & "\" & Now.Year & "\" & Now.ToString("MMdd") & "\", asfinag.VERARBEITUNG_PFAD)
If Not IO.Directory.Exists(asfinag.ERROR_PFAD & "\" & Now.Year & "\" & FileType & "\") Then IO.Directory.CreateDirectory(asfinag.ERROR_PFAD & "\" & Now.Year & "\" & FileType & "\")
frmStartOptions.moveFile(d, asfinag.ERROR_PFAD & "\" & Now.Year & "\" & FileType & "\", asfinag.VERARBEITUNG_PFAD)
' nciht gefunden, oder durch ERROR nicht eingearbt,.
dsNichtErkannt += 1
End If