Timas, Fremdwährungen, Asfinag
This commit is contained in:
@@ -46,8 +46,8 @@ Public Class frmAsfinag_NachrichtenVerabeitung
|
||||
End Sub
|
||||
|
||||
Sub initPfade()
|
||||
Me.SERVER_Path = cAsfinag.Paramter.GET_PARAM_ByName("SERVER_Path", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM)
|
||||
Me.SERVER_Path_TEST = cAsfinag.Paramter.GET_PARAM_ByName("SERVER_Path_TEST", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM)
|
||||
Me.SERVER_Path = cAsfinag.Paramter.GET_PARAM_ByName("SERVER_Path_In", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM)
|
||||
Me.SERVER_Path_TEST = cAsfinag.Paramter.GET_PARAM_ByName("SERVER_Path_In_Test", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM)
|
||||
Me.ASFINAG_PFAD = cAsfinag.Paramter.GET_PARAM_ByName("BEREITSTELLUNGS_PFAD", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM)
|
||||
Me.VERARBEITUNGS_PFAD = cAsfinag.Paramter.GET_PARAM_ByName("VERARBEITUNGS_PFAD", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM)
|
||||
Me.ZIEL_PFAD = cAsfinag.Paramter.GET_PARAM_ByName("ZIEL_PFAD", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM)
|
||||
@@ -69,7 +69,7 @@ Public Class frmAsfinag_NachrichtenVerabeitung
|
||||
|
||||
If FileType <> "" Then
|
||||
|
||||
Label2.Text &= " " & FileType
|
||||
Label2.Text &= " " & FileType.ToUpper
|
||||
|
||||
For Each d In System.IO.Directory.GetFiles(VERARBEITUNGS_PFAD)
|
||||
Dim filename = frmStartOptions.cut_file(d)
|
||||
@@ -120,40 +120,39 @@ Public Class frmAsfinag_NachrichtenVerabeitung
|
||||
Function getNachrichtenDatenFromFTP() As Integer
|
||||
Dim cnt = 0
|
||||
Try
|
||||
Dim SERVER_Path = ""
|
||||
Dim SERVERPath = ""
|
||||
|
||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
|
||||
|
||||
SERVER_Path = Me.SERVER_Path '"\\ftps.verag.ag\FTP\MAVI\IN\"
|
||||
SERVERPath = Me.SERVER_Path '"\\ftps.verag.ag\FTP\MAVI\IN\"
|
||||
Else
|
||||
|
||||
SERVER_Path = Me.SERVER_Path_TEST '"\\ftps.verag.ag\FTP\MAVI\IN\"
|
||||
SERVERPath = Me.SERVER_Path_TEST '"\\ftps.verag.ag\FTP\MAVI\IN\"
|
||||
End If
|
||||
|
||||
|
||||
For Each f In IO.Directory.GetFiles(SERVER_Path)
|
||||
Dim fi As New IO.FileInfo(f)
|
||||
If Not fi.Name.StartsWith(".") Then
|
||||
Dim zielPfad = VERARBEITUNGS_PFAD & "\" & fi.Name
|
||||
While IO.File.Exists(zielPfad)
|
||||
zielPfad = VERARBEITUNGS_PFAD & "\" & Now.ToString("yyyyMMdd_HHmmss_") & fi.Name
|
||||
End While
|
||||
IO.File.Copy(f, zielPfad)
|
||||
If Not VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
|
||||
If IO.File.Exists(zielPfad) Then IO.File.Delete(f)
|
||||
If fi.Name.ToLower.Contains(FileType) Then
|
||||
If Not fi.Name.StartsWith(".") Then
|
||||
Dim zielPfad = VERARBEITUNGS_PFAD & "\" & fi.Name
|
||||
While IO.File.Exists(zielPfad)
|
||||
zielPfad = VERARBEITUNGS_PFAD & "\" & Now.ToString("yyyyMMdd_HHmmss_") & fi.Name
|
||||
End While
|
||||
IO.File.Copy(f, zielPfad)
|
||||
If Not VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
|
||||
If IO.File.Exists(zielPfad) Then IO.File.Delete(f)
|
||||
End If
|
||||
|
||||
Dim filename = frmStartOptions.cut_file((New FileInfo(zielPfad)).Name)
|
||||
If filename.ToLower.Contains(FileType) Then
|
||||
ListBox3.Items.Add(filename)
|
||||
cnt += 1
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
Dim filename = frmStartOptions.cut_file((New FileInfo(zielPfad)).Name)
|
||||
If filename.ToLower.Contains(FileType) Then
|
||||
ListBox3.Items.Add(filename)
|
||||
cnt += 1
|
||||
End If
|
||||
|
||||
|
||||
'ListBox3.Items.Add(frmStartOptions.cut_file((New FileInfo(zielPfad)).Name)) 'zur Liste hinzufügen
|
||||
|
||||
|
||||
End If
|
||||
|
||||
Next
|
||||
|
||||
|
||||
@@ -167,121 +166,6 @@ Public Class frmAsfinag_NachrichtenVerabeitung
|
||||
End Function
|
||||
|
||||
|
||||
Function getNachrichtenDatenFromAsfinag_ALTERNATIV() As Integer
|
||||
Dim cnt = 0
|
||||
Try
|
||||
For Each f In IO.Directory.GetFiles(ASFINAG_PFAD)
|
||||
Dim FI As New FileInfo(f)
|
||||
If Not FI.Name.StartsWith(".") Then
|
||||
'Temp. DownloadPfad
|
||||
Dim destFilenameTMP = VERARBEITUNGS_PFAD + "." & If(IO.File.Exists(VERARBEITUNGS_PFAD & "." & FI.Name), Now.ToString("yyMMdd_HHmmss.fff_"), "") & FI.Name
|
||||
|
||||
'Datei herunterladen
|
||||
IO.File.Copy(f, destFilenameTMP)
|
||||
If IO.File.Exists(destFilenameTMP) Then IO.File.Delete(f) 'Datei nach erfolgreichem Herunterladen vom Server löschen
|
||||
|
||||
'Gültiger Filename
|
||||
Dim destFilename = VERARBEITUNGS_PFAD & If(IO.File.Exists(VERARBEITUNGS_PFAD & FI.Name), Now.ToString("yyMMdd_HHmmss.fff_"), "") & FI.Name
|
||||
IO.File.Move(destFilenameTMP, destFilename) 'Datei umbenennen
|
||||
|
||||
Dim fi_dest As FileInfo = New FileInfo(destFilename)
|
||||
ListBox3.Items.Add(frmStartOptions.cut_file(fi_dest.Name)) 'zur Liste hinzufügen
|
||||
cnt += 1
|
||||
lblDatenCnt.Text = cnt
|
||||
Me.Refresh()
|
||||
End If
|
||||
Next
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
End Try
|
||||
|
||||
Return cnt
|
||||
|
||||
'Dim cnt = 0
|
||||
'Try
|
||||
' Dim DY_server = ""
|
||||
' Dim DY_name = ""
|
||||
' Dim DY_pwd = ""
|
||||
' Dim DY_port = ""
|
||||
' Dim DY_PFAD_out = ""
|
||||
|
||||
' DAKOSY_Worker.cDakosyFunftions.getSFTPLoginData(DY_server, DY_name, DY_pwd, DY_port, "", DY_PFAD_out)
|
||||
|
||||
|
||||
' Dim ConnectionInfo As New ConnectionInfo(DY_server, DY_port, DY_name, New PasswordAuthenticationMethod(DY_name, DY_pwd))
|
||||
' Using client = New SftpClient(ConnectionInfo)
|
||||
' client.Connect()
|
||||
|
||||
' For Each f In client.ListDirectory(DY_PFAD_out)
|
||||
' ' MsgBox(f.Name)
|
||||
' If Not f.Name.StartsWith(".") Then
|
||||
' 'Temp. DownloadPfad
|
||||
' Dim destFilenameTMP = VERARBEITUNGS_PFAD + "." & If(IO.File.Exists(VERARBEITUNGS_PFAD & "." & f.Name), Now.ToString("yyMMdd_HHmmss.fff_"), "") & f.Name
|
||||
|
||||
' 'Datei herunterladen
|
||||
' Dim downloadFileStream As Stream = File.OpenWrite(destFilenameTMP)
|
||||
' client.DownloadFile(f.FullName, downloadFileStream)
|
||||
' If IO.File.Exists(destFilenameTMP) Then client.DeleteFile(f.FullName) 'Datei nach erfolgreichem Herunterladen vom Server löschen
|
||||
' downloadFileStream.Dispose()
|
||||
|
||||
' 'Gültiger Filename
|
||||
' Dim destFilename = VERARBEITUNGS_PFAD & If(IO.File.Exists(VERARBEITUNGS_PFAD & f.Name), Now.ToString("yyMMdd_HHmmss.fff_"), "") & f.Name
|
||||
' IO.File.Move(destFilenameTMP, destFilename) 'Datei umbenennen
|
||||
|
||||
' Dim fi As FileInfo = New FileInfo(destFilename)
|
||||
' ListBox3.Items.Add(frmStartOptions.cut_file(fi.Name)) 'zur Liste hinzufügen
|
||||
' cnt += 1
|
||||
' End If
|
||||
' Next
|
||||
' client.Disconnect()
|
||||
' End Using
|
||||
'Catch ex As Exception
|
||||
' VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
'End Try
|
||||
|
||||
'Return cnt
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
' Dim toEncodeAsBytes() As Byte = System.Text.ASCIIEncoding.ASCII.GetBytes(toEncode)
|
||||
' string returnValue = System.Convert.ToBase64String(toEncodeAsBytes)
|
||||
Public Function stripNonValidXMLCharacters(ByVal textIn As String) As String
|
||||
Dim textOut As System.Text.StringBuilder = New System.Text.StringBuilder()
|
||||
Dim current As Char
|
||||
If textIn Is Nothing OrElse textIn = String.Empty Then Return String.Empty
|
||||
For i As Integer = 0 To textIn.Length - 1
|
||||
current = textIn(i)
|
||||
If (current = "9" OrElse current = "10" OrElse current = "13") OrElse ((current >= "32") AndAlso (current <= "55295")) OrElse ((current >= "57344") AndAlso (current <= "65533")) OrElse ((current >= "65536") AndAlso (current <= "1114111")) Then
|
||||
textOut.Append(current)
|
||||
End If
|
||||
Next
|
||||
|
||||
Return textOut.ToString()
|
||||
End Function
|
||||
|
||||
Public Function SanitizeXmlString(ByVal xml As String) As String
|
||||
If xml Is Nothing Then
|
||||
Throw New ArgumentNullException("xml")
|
||||
End If
|
||||
|
||||
Dim buffer As System.Text.StringBuilder = New System.Text.StringBuilder(xml.Length)
|
||||
For Each c As Char In xml
|
||||
If IsLegalXmlChar(Asc(c)) Then
|
||||
buffer.Append(c)
|
||||
End If
|
||||
Next
|
||||
|
||||
Return buffer.ToString()
|
||||
End Function
|
||||
|
||||
Public Function IsLegalXmlChar(ByVal character As Integer) As Boolean
|
||||
Return (character = 9 OrElse character = 10 OrElse character = 13 OrElse (character >= 32 AndAlso character <= 55295) OrElse (character >= 57344 AndAlso character <= 65533) OrElse (character >= 65536 AndAlso character <= 1114111))
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
Sub DatenEinlesen()
|
||||
|
||||
@@ -333,6 +217,8 @@ Public Class frmAsfinag_NachrichtenVerabeitung
|
||||
If readAndSaveCLF(objFileRead, fi) Then
|
||||
addDGVEinarbeitung(fi.Name, "OK")
|
||||
found = True
|
||||
Else
|
||||
addDGVEinarbeitung(fi.Name, "Fehler")
|
||||
End If
|
||||
|
||||
|
||||
@@ -341,6 +227,8 @@ Public Class frmAsfinag_NachrichtenVerabeitung
|
||||
If readAndSaveTTR(objFileRead, fi) Then
|
||||
addDGVEinarbeitung(fi.Name, "OK")
|
||||
found = True
|
||||
Else
|
||||
addDGVEinarbeitung(fi.Name, "Fehler")
|
||||
End If
|
||||
|
||||
End If
|
||||
@@ -348,8 +236,8 @@ Public Class frmAsfinag_NachrichtenVerabeitung
|
||||
End If
|
||||
|
||||
If found Then
|
||||
If Not IO.Directory.Exists(ZIEL_PFAD & "\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\") Then IO.Directory.CreateDirectory(ZIEL_PFAD & "\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\")
|
||||
frmStartOptions.moveFile(d, ZIEL_PFAD & "\" & Now.ToString("yyyyMMdd") & "\", VERARBEITUNGS_PFAD)
|
||||
If Not IO.Directory.Exists(ZIEL_PFAD & "\" & Now.Year & "\" & Now.ToString("MMdd") & "\") Then IO.Directory.CreateDirectory(ZIEL_PFAD & "\" & Now.Year & "\" & Now.ToString("MMdd") & "\")
|
||||
frmStartOptions.moveFile(d, ZIEL_PFAD & "\" & Now.Year & "\" & Now.ToString("MMdd") & "\", VERARBEITUNGS_PFAD)
|
||||
cntDatenEingelesen += 1
|
||||
Else
|
||||
If Not found Then
|
||||
|
||||
Reference in New Issue
Block a user