Timas, Fremdwährungen, Asfinag
This commit is contained in:
@@ -1,7 +1,10 @@
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.IO
|
||||
Imports System.Reflection
|
||||
Imports System.Security.Cryptography
|
||||
Imports com.itextpdf.text.pdf
|
||||
Imports DocumentFormat.OpenXml.VariantTypes
|
||||
Imports RoutineManager.cAsfinag
|
||||
|
||||
Public Class cAsfinag
|
||||
|
||||
@@ -165,7 +168,7 @@ Public Class cAsfinag
|
||||
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("PKFileName", PKFileName))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("PKLine", PKLine))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("RecordType", recordType))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("RecordType", RecordType))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("fileVersion", fileVersion))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("fileNumber", fileNumber))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("cardNumber", cardNumber))
|
||||
@@ -812,4 +815,423 @@ Public Class cAsfinag
|
||||
|
||||
End Function
|
||||
|
||||
Public Class Exportist
|
||||
|
||||
Structure Header ' Format Muss von bis Kommentar
|
||||
Dim SortField As String ' N3 Y 1 3 "000"
|
||||
Dim RecordID As String ' N2 Y 4 5 "00"
|
||||
Dim FileName As String ' C3 Y 6 8 "TBL"
|
||||
Dim LiveTestIndicator As String ' C1 Y 9 9 "L" oder "T"
|
||||
Dim FileCreationDate As String ' N8 Y 10 17 YYYYMMDD
|
||||
Dim FileCreationTime As String ' N4 Y 18 21 HHMM (24hr)
|
||||
Dim RunNumber As String ' N3 Y 22 24 Laufende Nummer pro File-Type
|
||||
Dim SenderID As String ' C2 Y 25 26 "VG"
|
||||
Dim ReceiverID As String ' C2 Y 27 28 "EP"
|
||||
Dim Filler As String ' C3 Y 29 31 Leerzeichen
|
||||
End Structure
|
||||
|
||||
Structure Body ' Format Muss von bis Kommentar
|
||||
Dim SortField As String ' N3 Y 1 3 "000"
|
||||
Dim RecordID As String ' N2 Y 4 5 "50"
|
||||
Dim ISOCountryCode As String ' N3 Y 6 8 "040" (Österreich)
|
||||
Dim CardNumber As String ' C22 Y 9 30 Komplette Tankkartennummer
|
||||
'onlyBlacklist
|
||||
Dim StopType As String ' N1 Y 31 31 "3" Stopped for Post-Pay
|
||||
'only Whitelist
|
||||
Dim ValidFrom As String ' N8 Y 31 38 YYYYMMDD
|
||||
Dim ValidTo As String ' N8 Y 39 46 YYYYMMDD
|
||||
Dim NewCardNumber As String ' N22 N 47 68 Tankkartennummer der Folge- oder Ersatzkarte
|
||||
Dim NewValidFrom As String ' N8 N 69 76 YYYYMMDD der Folge- oder Ersatzkarte
|
||||
Dim NewValidTo As String
|
||||
End Structure
|
||||
|
||||
Private Structure Trailer ' Format Muss von bis Kommentar
|
||||
Dim SortField As String ' N3 Y 1 3 "999"
|
||||
Dim RecordID As String ' N2 Y 4 5 "99"
|
||||
Dim FileName As String ' C3 Y 6 8 "TBL"
|
||||
Dim RunNumber As String ' N3 Y 9 11 Gleiche Nr. wie im Header
|
||||
Dim RecordCount As String ' N7 Y 12 18 Anzahl der Sätze inkl. Header und Trailer
|
||||
Dim Filler As String ' C13 Y 19 31 Leerzeichen
|
||||
End Structure
|
||||
|
||||
|
||||
|
||||
' Private Type TWLHeader ' Format Muss von bis Kommentar
|
||||
' SortField As String * 3 ' N3 Y 1 3 "000"
|
||||
' RecordID As String * 2 ' N2 Y 4 5 "00"
|
||||
' FileName As String * 3 ' C3 Y 6 8 "TWL"
|
||||
' LiveTestIndicator As String * 1 ' C1 Y 9 9 "L" oder "T"
|
||||
' FileCreationDate As String * 8 ' N8 Y 10 17 YYYYMMDD
|
||||
' FileCreationTime As String * 4 ' N4 Y 18 21 HHMM (24hr)
|
||||
' RunNumber As String * 3 ' N3 Y 22 24 Laufende Nummer pro File-Type
|
||||
' SenderID As String * 2 ' C2 Y 25 26 "VG"
|
||||
' ReceiverID As String * 2 ' C2 Y 27 28 "EP"
|
||||
' Filler As String * 56 ' C56 Y 29 84 Leerzeichen
|
||||
'End Type
|
||||
|
||||
'Private Type TWLBody ' Format Muss von bis Kommentar
|
||||
' SortField As String * 3 ' N3 Y 1 3 "000"
|
||||
' RecordID As String * 2 ' N2 Y 4 5 "40"
|
||||
' ISOCountryCode As String * 3 ' N3 Y 6 8 "040" (Österreich)
|
||||
' CardNumber As String * 22 ' N22 Y 9 30 Komplette Tankkartennummer
|
||||
' ValidFrom As String * 8 ' N8 Y 31 38 YYYYMMDD
|
||||
' ValidTo As String * 8 ' N8 Y 39 46 YYYYMMDD
|
||||
' NewCardNumber As String * 22 ' N22 N 47 68 Tankkartennummer der Folge- oder Ersatzkarte
|
||||
' NewValidFrom As String * 8 ' N8 N 69 76 YYYYMMDD der Folge- oder Ersatzkarte
|
||||
' NewValidTo As String * 8 ' N8 N 77 84 YYYYMMDD der Folge- oder Ersatzkarte
|
||||
'End Type
|
||||
|
||||
'Private Type TWLTrailer ' Format Muss von bis Kommentar
|
||||
' SortField As String * 3 ' N3 Y 1 3 "999"
|
||||
' RecordID As String * 2 ' N2 Y 4 5 "99"
|
||||
' FileName As String * 3 ' C3 Y 6 8 "TWL"
|
||||
' RunNumber As String * 3 ' N3 Y 9 11 Gleiche Nr. wie im Header
|
||||
' RecordCount As String * 7 ' N7 Y 12 18 Anzahl der Sätze inkl. Header und Trailer
|
||||
' Filler As String * 66 ' C66 Y 19 84 Leerzeichen
|
||||
'End Type
|
||||
|
||||
|
||||
|
||||
Dim ASFINAG_PFAD, FTP_PFAD_TEST, FTP_PFAD
|
||||
Dim sw As StreamWriter
|
||||
Dim Dateiname = ""
|
||||
|
||||
Public Function initPFad()
|
||||
|
||||
ASFINAG_PFAD = cAsfinag.Paramter.GET_PARAM_ByName("BEREITSTELLUNGS_PFAD", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM)
|
||||
FTP_PFAD_TEST = cAsfinag.Paramter.GET_PARAM_ByName("SERVER_Path_Out_Test", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM)
|
||||
FTP_PFAD = cAsfinag.Paramter.GET_PARAM_ByName("SERVER_Path_Out", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM)
|
||||
|
||||
If Not IO.Directory.Exists(ASFINAG_PFAD) Then IO.Directory.CreateDirectory(ASFINAG_PFAD)
|
||||
If Not IO.Directory.Exists(FTP_PFAD_TEST) Then IO.Directory.CreateDirectory(FTP_PFAD_TEST)
|
||||
|
||||
|
||||
|
||||
End Function
|
||||
|
||||
Public Function exportiereBlackList() As Boolean
|
||||
|
||||
Dim fileName = "TBL"
|
||||
Dim sucess = False
|
||||
Dim Header As Header
|
||||
Dim Body As Body
|
||||
Dim Trailer As Trailer
|
||||
Dim intRunNumber As Integer = 1
|
||||
Dim lngAnzahlSätze As Long
|
||||
|
||||
|
||||
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
'qryExportiereBlackList
|
||||
Dim sqlstr As String = "
|
||||
SELECT Kreditkarten.KartenNr AS CardNumber, Kreditkarten.Kartensperre AS StopType FROM Kreditkarten
|
||||
LEFT JOIN Kreditkarten AS Kreditkarten_1 ON Kreditkarten.NeueKartenNr = Kreditkarten_1.KartenNr
|
||||
WHERE Kreditkarten.Kartensperre > 0
|
||||
AND ((Kreditkarten.Kartensperrdatum)<=GETDATE())
|
||||
AND ((Left([Kreditkarten].[KartenNr],6))='990001')
|
||||
AND [Kreditkarten].[Kartenfreischaltungsdatum] <= GETDATE()
|
||||
And [Kreditkarten].[Kartenfreischaltungsdatum] <> ''
|
||||
AND DateAdd(DAY, -1, DateAdd(MONTH,1,DATEFROMPARTS(2000 + [Kreditkarten].[Kartenablaufjahr],[Kreditkarten].[Kartenablaufmonat],1))) >= GETDATE()
|
||||
AND DateAdd(DAY, -1, DateAdd(MONTH,1,DATEFROMPARTS(2000 + [Kreditkarten].[Kartenablaufjahr],[Kreditkarten].[Kartenablaufmonat],1))) <> ''
|
||||
AND (Kreditkarten_1.Kartenfreischaltungsdatum) Is Null Or (Kreditkarten_1.Kartenfreischaltungsdatum) > GETDATE()
|
||||
ORDER BY Kreditkarten.KartenNr"
|
||||
|
||||
|
||||
Dim dt As DataTable = SQL.loadDgvBySql_Param(sqlstr, "FMZOLL")
|
||||
'qry_ASFINAG_FileInfo_TBL
|
||||
Dim currentFileNr As Integer = SQL.getValueTxtBySql("SELECT fileVersion FROM [FileINfo] where [filename]='" & fileName & "'", "ASFINAG")
|
||||
If currentFileNr = 999 Then currentFileNr = 0
|
||||
currentFileNr = currentFileNr + 1
|
||||
Dim preFilename As String = ""
|
||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
|
||||
preFilename = "LVGEP"
|
||||
Else
|
||||
preFilename = "TVGEP"
|
||||
End If
|
||||
|
||||
Dim strFile As String = ASFINAG_PFAD & "\" & preFilename & fileName & "." & currentFileNr
|
||||
|
||||
Try
|
||||
|
||||
|
||||
'Dim fileExists As Boolean = File.Exists(ASFINAG_PFAD & "\" & strFile)
|
||||
|
||||
Using sw As New StreamWriter(File.Open(strFile, FileMode.OpenOrCreate))
|
||||
|
||||
|
||||
With Header
|
||||
.SortField = "000"
|
||||
.RecordID = "00"
|
||||
.FileName = fileName
|
||||
.LiveTestIndicator = "L" 'T für Testfile, L Livesystem
|
||||
.FileCreationDate = Today.ToString("yyyymmdd")
|
||||
.FileCreationTime = Now().ToString("hhmm")
|
||||
.RunNumber = Format(currentFileNr, "000")
|
||||
.SenderID = "VG"
|
||||
.ReceiverID = "EP"
|
||||
.Filler = New String(" ", 3)
|
||||
sw.Write(Header.SortField)
|
||||
sw.Write(Header.RecordID)
|
||||
sw.Write(Header.FileName)
|
||||
sw.Write(Header.LiveTestIndicator)
|
||||
sw.Write(Header.FileCreationDate)
|
||||
sw.Write(Header.FileCreationTime)
|
||||
sw.Write(Header.RunNumber)
|
||||
sw.Write(Header.SenderID)
|
||||
sw.Write(Header.ReceiverID)
|
||||
sw.Write(Header.Filler)
|
||||
sw.WriteLine()
|
||||
End With
|
||||
|
||||
lngAnzahlSätze = 1
|
||||
For Each row As DataRow In dt.Rows
|
||||
|
||||
lngAnzahlSätze = lngAnzahlSätze + 1
|
||||
With Body
|
||||
.SortField = "000"
|
||||
.RecordID = "50"
|
||||
.ISOCountryCode = "040"
|
||||
.CardNumber = row.Item("CardNumber") + New String(" ", 22 - Len(row.Item("CardNumber")))
|
||||
.StopType = row.Item("StopType")
|
||||
sw.Write(Body.SortField)
|
||||
sw.Write(Body.RecordID)
|
||||
sw.Write(Body.ISOCountryCode)
|
||||
sw.Write(Body.CardNumber)
|
||||
sw.Write(Body.StopType)
|
||||
sw.WriteLine()
|
||||
End With
|
||||
Next
|
||||
|
||||
lngAnzahlSätze = lngAnzahlSätze + 1
|
||||
With Trailer
|
||||
.SortField = "999"
|
||||
.RecordID = "99"
|
||||
.FileName = "TBL"
|
||||
.RunNumber = Format(currentFileNr, "000")
|
||||
.RecordCount = Format(lngAnzahlSätze, "0000000")
|
||||
.Filler = New String(" ", 13)
|
||||
sw.Write(Trailer.SortField)
|
||||
sw.Write(Trailer.RecordID)
|
||||
sw.Write(Trailer.FileName)
|
||||
sw.Write(Trailer.RunNumber)
|
||||
sw.Write(Trailer.RecordCount)
|
||||
sw.Write(Trailer.Filler)
|
||||
sw.WriteLine()
|
||||
End With
|
||||
sw.Close()
|
||||
|
||||
SQL.doSQL("UPDATE [dbo].[FileINfo] SET FileVersion=" & currentFileNr & " WHERE [filename]='" & fileName & "'", "ASFINAG")
|
||||
MsgBox("Files uploaded: " & uploadListToFTP(fileName))
|
||||
Return True
|
||||
|
||||
End Using
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
End Try
|
||||
|
||||
End Function
|
||||
|
||||
Public Function exportiereWhiteList() As Boolean
|
||||
|
||||
Dim fileName = "TWL"
|
||||
Dim sucess = False
|
||||
Dim Header As Header
|
||||
Dim Body As Body
|
||||
Dim Trailer As Trailer
|
||||
Dim intRunNumber As Integer = 1
|
||||
Dim lngAnzahlSätze As Long
|
||||
|
||||
|
||||
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
'qryExportiereWhiteList
|
||||
Dim sqlstr As String = "
|
||||
SELECT Kreditkarten.KartenNr AS CardNumber,
|
||||
CONVERT(varchar, [Kreditkarten].[Kartenfreischaltungsdatum],112) AS ValidFrom,
|
||||
CONVERT(varchar,DateAdd(DAY, -1, DateAdd(MONTH,1,DATEFROMPARTS(2000 + [Kreditkarten].[Kartenablaufjahr],[Kreditkarten].[Kartenablaufmonat],1))),112) AS ValidTo,
|
||||
Kreditkarten_1.KartenNr AS NewCardNumber,
|
||||
IIf(Not IsNull(Kreditkarten_1.KartenNr,0) <> 0 ,CONVERT(varchar,[Kreditkarten_1].[Kartenfreischaltungsdatum],112),'') AS NewValidFrom,
|
||||
IIf(Not IsNull(Kreditkarten_1.KartenNr,0) <> 0,CONVERT(varchar, DateAdd(DAY, -1, DateAdd(MONTH,1,DATEFROMPARTS(2000 + [Kreditkarten].[Kartenablaufjahr],[Kreditkarten].[Kartenablaufmonat],1))),112),'') AS NewValidTo,
|
||||
Kreditkarten.NeueKartenNrGemeldet
|
||||
FROM Kreditkarten AS Kreditkarten_1
|
||||
RIGHT JOIN Kreditkarten ON Kreditkarten_1.KartenNr = Kreditkarten.NeueKartenNr
|
||||
WHERE (([Kreditkarten].[Kartenfreischaltungsdatum])<= GETDATE() And ([Kreditkarten].[Kartenfreischaltungsdatum] <>'')
|
||||
AND DateAdd(DAY, -1, DateAdd(MONTH,1,DATEFROMPARTS(2000 + [Kreditkarten].[Kartenablaufjahr],[Kreditkarten].[Kartenablaufmonat],1))) >= GETDATE()
|
||||
AND ((Kreditkarten_1.KartenNr) Is Null)) OR (((Kreditkarten_1.KartenNr) Is Not Null) AND ((Kreditkarten.NeueKartenNrGemeldet)= 0))
|
||||
ORDER BY Kreditkarten.KartenNr, [Kreditkarten].[Kartenfreischaltungsdatum], CONVERT(varchar, DateAdd(DAY, -1, DateAdd(MONTH,1,DATEFROMPARTS(2000 + [Kreditkarten].[Kartenablaufjahr],[Kreditkarten].[Kartenablaufmonat],1))))
|
||||
"
|
||||
|
||||
Dim dt As DataTable = SQL.loadDgvBySql_Param(sqlstr, "FMZOLL")
|
||||
'qry_ASFINAG_FileInfo_TWL
|
||||
Dim currentFileNr As Integer = SQL.getValueTxtBySql("SELECT fileVersion FROM [FileINfo] where [filename]='" & fileName & "'", "ASFINAG")
|
||||
If currentFileNr = 999 Then currentFileNr = 0
|
||||
currentFileNr = currentFileNr + 1
|
||||
Dim preFilename As String = ""
|
||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
|
||||
preFilename = "LVGEP"
|
||||
Else
|
||||
preFilename = "TVGEP"
|
||||
End If
|
||||
|
||||
Dim strFile As String = ASFINAG_PFAD & "\" & preFilename & fileName & "." & currentFileNr
|
||||
|
||||
Try
|
||||
|
||||
|
||||
Using sw As New StreamWriter(File.Open(strFile, FileMode.OpenOrCreate))
|
||||
|
||||
|
||||
With Header
|
||||
.SortField = "000"
|
||||
.RecordID = "00"
|
||||
.FileName = fileName
|
||||
.LiveTestIndicator = "L" 'T für Testfile, L Livesystem
|
||||
.FileCreationDate = Today.ToString("yyyymmdd")
|
||||
.FileCreationTime = Now().ToString("hhmm")
|
||||
.RunNumber = Format(currentFileNr, "000")
|
||||
.SenderID = "VG"
|
||||
.ReceiverID = "EP"
|
||||
.Filler = New String(" ", 56)
|
||||
sw.Write(Header.SortField)
|
||||
sw.Write(Header.RecordID)
|
||||
sw.Write(Header.FileName)
|
||||
sw.Write(Header.LiveTestIndicator)
|
||||
sw.Write(Header.FileCreationDate)
|
||||
sw.Write(Header.FileCreationTime)
|
||||
sw.Write(Header.RunNumber)
|
||||
sw.Write(Header.SenderID)
|
||||
sw.Write(Header.ReceiverID)
|
||||
sw.Write(Header.Filler)
|
||||
sw.WriteLine()
|
||||
End With
|
||||
|
||||
lngAnzahlSätze = 1
|
||||
For Each row As DataRow In dt.Rows
|
||||
|
||||
lngAnzahlSätze = lngAnzahlSätze + 1
|
||||
With Body
|
||||
If Not IsDBNull(row.Item("NewCardNumber")) Then
|
||||
If Not row.Item("NeueKartenNrGemeldet") Then
|
||||
|
||||
lngAnzahlSätze = lngAnzahlSätze + 1
|
||||
.SortField = "000"
|
||||
.RecordID = "40"
|
||||
.ISOCountryCode = "040"
|
||||
.CardNumber = row.Item("CardNumber") + New String(" ", 22 - Len(row.Item("CardNumber")))
|
||||
.ValidFrom = row.Item("ValidFrom")
|
||||
.ValidTo = row.Item("ValidTo")
|
||||
.NewCardNumber = row.Item("NewCardNumber") + New String(" ", 22 - Len(row.Item("NewCardNumber")))
|
||||
.NewValidFrom = row.Item("NewValidFrom")
|
||||
.NewValidTo = row.Item("NewValidTo")
|
||||
sw.Write(.SortField)
|
||||
sw.Write(.RecordID)
|
||||
sw.Write(.ISOCountryCode)
|
||||
sw.Write(.CardNumber)
|
||||
sw.Write(.ValidFrom)
|
||||
sw.Write(.ValidTo)
|
||||
sw.Write(.NewCardNumber)
|
||||
sw.Write(.NewValidFrom)
|
||||
sw.Write(.NewValidTo)
|
||||
sw.WriteLine()
|
||||
row.Item("NeueKartenNrGemeldet") = True
|
||||
End If
|
||||
Else
|
||||
lngAnzahlSätze = lngAnzahlSätze + 1
|
||||
.SortField = "000"
|
||||
.RecordID = "40"
|
||||
.ISOCountryCode = "040"
|
||||
.CardNumber = row.Item("CardNumber") + New String(" ", 22 - Len(row.Item("CardNumber")))
|
||||
.ValidFrom = row.Item("ValidFrom")
|
||||
.ValidTo = row.Item("ValidTo")
|
||||
.NewCardNumber = "0000000000000000000000"
|
||||
.NewValidFrom = "00000000"
|
||||
.NewValidTo = "00000000"
|
||||
sw.Write(.SortField)
|
||||
sw.Write(.RecordID)
|
||||
sw.Write(.ISOCountryCode)
|
||||
sw.Write(.CardNumber)
|
||||
sw.Write(.ValidFrom)
|
||||
sw.Write(.ValidTo)
|
||||
sw.Write(.NewCardNumber)
|
||||
sw.Write(.NewValidFrom)
|
||||
sw.Write(.NewValidTo)
|
||||
sw.WriteLine()
|
||||
End If
|
||||
End With
|
||||
Next
|
||||
|
||||
lngAnzahlSätze = lngAnzahlSätze + 1
|
||||
With Trailer
|
||||
.SortField = "999"
|
||||
.RecordID = "99"
|
||||
.FileName = "TBL"
|
||||
.RunNumber = Format(currentFileNr, "000")
|
||||
.RecordCount = Format(lngAnzahlSätze, "0000000")
|
||||
.Filler = New String(" ", 13)
|
||||
sw.Write(Trailer.SortField)
|
||||
sw.Write(Trailer.RecordID)
|
||||
sw.Write(Trailer.FileName)
|
||||
sw.Write(Trailer.RunNumber)
|
||||
sw.Write(Trailer.RecordCount)
|
||||
sw.Write(Trailer.Filler)
|
||||
sw.WriteLine()
|
||||
End With
|
||||
sw.Close()
|
||||
|
||||
|
||||
SQL.doSQL("UPDATE [dbo].[FileINfo] SET FileVersion=" & currentFileNr & " WHERE [filename]='" & fileName & "'", "ASFINAG")
|
||||
|
||||
MsgBox("Files uploaded: " & uploadListToFTP(fileName))
|
||||
Return True
|
||||
|
||||
End Using
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
End Try
|
||||
|
||||
End Function
|
||||
|
||||
Public Function uploadListToFTP(filename As String) As Integer
|
||||
|
||||
Dim cnt = 0
|
||||
Try
|
||||
Dim SERVER_Path = ""
|
||||
|
||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
|
||||
|
||||
SERVER_Path = Me.FTP_PFAD_TEST
|
||||
Else
|
||||
|
||||
SERVER_Path = Me.FTP_PFAD
|
||||
End If
|
||||
|
||||
For Each f In IO.Directory.GetFiles(ASFINAG_PFAD)
|
||||
Dim fi As New IO.FileInfo(f)
|
||||
|
||||
If Not fi.Name.StartsWith(".") AndAlso fi.Name.Contains(filename) Then
|
||||
Dim zielPfad = SERVER_Path
|
||||
'While IO.File.Exists(zielPfad)
|
||||
' zielPfad = SERVER_Path & "\" & Now.ToString("yyyyMMdd_HHmmss_") & fi.Name
|
||||
'End While
|
||||
IO.File.Copy(f, zielPfad & "\" & fi.Name)
|
||||
If Not VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
|
||||
If IO.File.Exists(zielPfad) Then IO.File.Delete(f)
|
||||
End If
|
||||
cnt += 1
|
||||
End If
|
||||
|
||||
Next
|
||||
|
||||
|
||||
Return cnt
|
||||
|
||||
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
|
||||
|
||||
End Class
|
||||
|
||||
End Class
|
||||
|
||||
@@ -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
|
||||
|
||||
704
initATLASAufschubkonten/frmStartOptions.Designer.vb
generated
704
initATLASAufschubkonten/frmStartOptions.Designer.vb
generated
File diff suppressed because it is too large
Load Diff
@@ -142,79 +142,7 @@
|
||||
CQkJEjM9AwMAOTMC2xlgxuQAAAAASUVORK5CYII=
|
||||
</value>
|
||||
</data>
|
||||
<data name="PictureBox12.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABEhJREFUSEtj
|
||||
oDZg4WThlrSSdLPOtc53zHaMl5SUZGBnZ4fKUhMwMjCK6IloGhUYZdn32a/wX+Z/0Ge2z0L9eH0rQVVB
|
||||
QSZ2JqhCKgEBNQFFoyKjnPAj4cdjz8d+jb8U/z/iaMR9z2WeE3XSdByEdYWFGVkYGaHKKQdWTVYF4YfC
|
||||
j8VdjPsHwiALYezo89HTzWrNHNj42VigyikHDv0OC2POxrwDWYSOgZY+DNoRNMV5urMdVDn5gFOUU0rJ
|
||||
VynOd7XvBSwW/QHiHx4LPPYDQ6DUpMzEEKqNPMDKw8on5ywXBHT9w+hT0d/QLPsefTr6Rei+0Iuqwaox
|
||||
XGJcElBt5AMFT4UIYDBtjzkT8zPuQtxfNAuv+G/wn6CdoG3Bp8AnysjMSH78MXMyc0tZSbnZtNksDtsf
|
||||
9hJoODiRgC26EPcD6IDbPit9Oo3yjWz4Ffm5gXmTGaqVPMAuwC6il6ZXgx5vsedif4YfDH/kNsdtIlDe
|
||||
VlRflDo5HpeFkUcj33jM89gqbigux8bNBlVNIeCR4pFX9ldO8F7qfTLyWORHmGUx52N+2/XYrRTRFTFh
|
||||
42PjAMYZVAcOwMzBzA2MXHUFDwVLGXsZDS4JLjZ0TeyC7CLghDLVeWvU8ahPyL7z3+u/STNdMwSqFD8A
|
||||
pSBeOV41rTitYr/1ftNd57jmKnorygKDjpUBqQgU1BA0NKsym4JsESifAfFzyxmWXhKeEqxQpfgBpxin
|
||||
lEqgSnLI3pBn0Wei30aeiNzlucQzWdxEXBKY1+DJGYeF12IuxBTJe8srsfAQkfKBQckFzJgp7vPdD4KS
|
||||
d9ylOJAhL4AF73aHCQ5RwKpGjomViZWVl1VAP0u/wXeN70WYZbEXYi/7b/Lv0c3Q1eGR5eGBGokfKLgp
|
||||
hALjZBuyq0EYaOkHoIErzWvN/cWMxSSAcSoLTO57oXK/gPhp4PbAqUAfO7MLsbMBHUVcTQD2FVLGRbIQ
|
||||
LA5MfdNdZrnYolkIcswSs0ozL2Aw80KNIg5I20h7ApN5lGWdZQfQoPtAA8F1GZLFD4HVznGQZUD6NUgs
|
||||
8kjka5t2m25pW2kzFm4yShFgvuGVMJEwNq0wrXSd6bopeGfwA2RLkTHIUrfZbnvkXOWCQYkNagT5QNZZ
|
||||
NsCu225Z9MnoD8By8TfQEkQ5eTHuJzDRHAMmnkJ2EXYhqBbKADCIeIGZ29t9nvvSqJNRL4AW/UKy8L7P
|
||||
ap8Juum6BsBCgHotI25JbgkZBxkHtVC1JGDc7Qa2UX4CE8n3oJ1B64GpMlpYR5ifmZ2Zyq0iKFANUk3x
|
||||
WOhxEFgYvLZus64EJhQtqBTtALDEsQ/aHnRf3FTcASpEWwBsbQkBLQW1uqiTUJABFxcXg7y8PJupqSm/
|
||||
nZ2diL29vSgyBooJm5ub88nKyrIC1VLezgQ2zRk9PT0F6urqVCdNmmQwbdo0Y2Q8efJk3ebmZkVXV1de
|
||||
CQkJEjM9AwMAOTMC2xlgxuQAAAAASUVORK5CYII=
|
||||
</value>
|
||||
</data>
|
||||
<data name="PictureBox11.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABEhJREFUSEtj
|
||||
oDZg4WThlrSSdLPOtc53zHaMl5SUZGBnZ4fKUhMwMjCK6IloGhUYZdn32a/wX+Z/0Ge2z0L9eH0rQVVB
|
||||
QSZ2JqhCKgEBNQFFoyKjnPAj4cdjz8d+jb8U/z/iaMR9z2WeE3XSdByEdYWFGVkYGaHKKQdWTVYF4YfC
|
||||
j8VdjPsHwiALYezo89HTzWrNHNj42VigyikHDv0OC2POxrwDWYSOgZY+DNoRNMV5urMdVDn5gFOUU0rJ
|
||||
VynOd7XvBSwW/QHiHx4LPPYDQ6DUpMzEEKqNPMDKw8on5ywXBHT9w+hT0d/QLPsefTr6Rei+0Iuqwaox
|
||||
XGJcElBt5AMFT4UIYDBtjzkT8zPuQtxfNAuv+G/wn6CdoG3Bp8AnysjMSH78MXMyc0tZSbnZtNksDtsf
|
||||
9hJoODiRgC26EPcD6IDbPit9Oo3yjWz4Ffm5gXmTGaqVPMAuwC6il6ZXgx5vsedif4YfDH/kNsdtIlDe
|
||||
VlRflDo5HpeFkUcj33jM89gqbigux8bNBlVNIeCR4pFX9ldO8F7qfTLyWORHmGUx52N+2/XYrRTRFTFh
|
||||
42PjAMYZVAcOwMzBzA2MXHUFDwVLGXsZDS4JLjZ0TeyC7CLghDLVeWvU8ahPyL7z3+u/STNdMwSqFD8A
|
||||
pSBeOV41rTitYr/1ftNd57jmKnorygKDjpUBqQgU1BA0NKsym4JsESifAfFzyxmWXhKeEqxQpfgBpxin
|
||||
lEqgSnLI3pBn0Wei30aeiNzlucQzWdxEXBKY1+DJGYeF12IuxBTJe8srsfAQkfKBQckFzJgp7vPdD4KS
|
||||
d9ylOJAhL4AF73aHCQ5RwKpGjomViZWVl1VAP0u/wXeN70WYZbEXYi/7b/Lv0c3Q1eGR5eGBGokfKLgp
|
||||
hALjZBuyq0EYaOkHoIErzWvN/cWMxSSAcSoLTO57oXK/gPhp4PbAqUAfO7MLsbMBHUVcTQD2FVLGRbIQ
|
||||
LA5MfdNdZrnYolkIcswSs0ozL2Aw80KNIg5I20h7ApN5lGWdZQfQoPtAA8F1GZLFD4HVznGQZUD6NUgs
|
||||
8kjka5t2m25pW2kzFm4yShFgvuGVMJEwNq0wrXSd6bopeGfwA2RLkTHIUrfZbnvkXOWCQYkNagT5QNZZ
|
||||
NsCu225Z9MnoD8By8TfQEkQ5eTHuJzDRHAMmnkJ2EXYhqBbKADCIeIGZ29t9nvvSqJNRL4AW/UKy8L7P
|
||||
ap8Juum6BsBCgHotI25JbgkZBxkHtVC1JGDc7Qa2UX4CE8n3oJ1B64GpMlpYR5ifmZ2Zyq0iKFANUk3x
|
||||
WOhxEFgYvLZus64EJhQtqBTtALDEsQ/aHnRf3FTcASpEWwBsbQkBLQW1uqiTUJABFxcXg7y8PJupqSm/
|
||||
nZ2diL29vSgyBooJm5ub88nKyrIC1VLezgQ2zRk9PT0F6urqVCdNmmQwbdo0Y2Q8efJk3ebmZkVXV1de
|
||||
CQkJEjM9AwMAOTMC2xlgxuQAAAAASUVORK5CYII=
|
||||
</value>
|
||||
</data>
|
||||
<data name="PictureBox10.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABEhJREFUSEtj
|
||||
oDZg4WThlrSSdLPOtc53zHaMl5SUZGBnZ4fKUhMwMjCK6IloGhUYZdn32a/wX+Z/0Ge2z0L9eH0rQVVB
|
||||
QSZ2JqhCKgEBNQFFoyKjnPAj4cdjz8d+jb8U/z/iaMR9z2WeE3XSdByEdYWFGVkYGaHKKQdWTVYF4YfC
|
||||
j8VdjPsHwiALYezo89HTzWrNHNj42VigyikHDv0OC2POxrwDWYSOgZY+DNoRNMV5urMdVDn5gFOUU0rJ
|
||||
VynOd7XvBSwW/QHiHx4LPPYDQ6DUpMzEEKqNPMDKw8on5ywXBHT9w+hT0d/QLPsefTr6Rei+0Iuqwaox
|
||||
XGJcElBt5AMFT4UIYDBtjzkT8zPuQtxfNAuv+G/wn6CdoG3Bp8AnysjMSH78MXMyc0tZSbnZtNksDtsf
|
||||
9hJoODiRgC26EPcD6IDbPit9Oo3yjWz4Ffm5gXmTGaqVPMAuwC6il6ZXgx5vsedif4YfDH/kNsdtIlDe
|
||||
VlRflDo5HpeFkUcj33jM89gqbigux8bNBlVNIeCR4pFX9ldO8F7qfTLyWORHmGUx52N+2/XYrRTRFTFh
|
||||
42PjAMYZVAcOwMzBzA2MXHUFDwVLGXsZDS4JLjZ0TeyC7CLghDLVeWvU8ahPyL7z3+u/STNdMwSqFD8A
|
||||
pSBeOV41rTitYr/1ftNd57jmKnorygKDjpUBqQgU1BA0NKsym4JsESifAfFzyxmWXhKeEqxQpfgBpxin
|
||||
lEqgSnLI3pBn0Wei30aeiNzlucQzWdxEXBKY1+DJGYeF12IuxBTJe8srsfAQkfKBQckFzJgp7vPdD4KS
|
||||
d9ylOJAhL4AF73aHCQ5RwKpGjomViZWVl1VAP0u/wXeN70WYZbEXYi/7b/Lv0c3Q1eGR5eGBGokfKLgp
|
||||
hALjZBuyq0EYaOkHoIErzWvN/cWMxSSAcSoLTO57oXK/gPhp4PbAqUAfO7MLsbMBHUVcTQD2FVLGRbIQ
|
||||
LA5MfdNdZrnYolkIcswSs0ozL2Aw80KNIg5I20h7ApN5lGWdZQfQoPtAA8F1GZLFD4HVznGQZUD6NUgs
|
||||
8kjka5t2m25pW2kzFm4yShFgvuGVMJEwNq0wrXSd6bopeGfwA2RLkTHIUrfZbnvkXOWCQYkNagT5QNZZ
|
||||
NsCu225Z9MnoD8By8TfQEkQ5eTHuJzDRHAMmnkJ2EXYhqBbKADCIeIGZ29t9nvvSqJNRL4AW/UKy8L7P
|
||||
ap8Juum6BsBCgHotI25JbgkZBxkHtVC1JGDc7Qa2UX4CE8n3oJ1B64GpMlpYR5ifmZ2Zyq0iKFANUk3x
|
||||
WOhxEFgYvLZus64EJhQtqBTtALDEsQ/aHnRf3FTcASpEWwBsbQkBLQW1uqiTUJABFxcXg7y8PJupqSm/
|
||||
nZ2diL29vSgyBooJm5ub88nKyrIC1VLezgQ2zRk9PT0F6urqVCdNmmQwbdo0Y2Q8efJk3ebmZkVXV1de
|
||||
CQkJEjM9AwMAOTMC2xlgxuQAAAAASUVORK5CYII=
|
||||
</value>
|
||||
</data>
|
||||
<data name="PictureBox9.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<data name="PictureBox20.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABEhJREFUSEtj
|
||||
oDZg4WThlrSSdLPOtc53zHaMl5SUZGBnZ4fKUhMwMjCK6IloGhUYZdn32a/wX+Z/0Ge2z0L9eH0rQVVB
|
||||
@@ -577,9 +505,150 @@
|
||||
<metadata name="clmnMRN.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>True</value>
|
||||
</metadata>
|
||||
<metadata name="clmnMRN.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>True</value>
|
||||
</metadata>
|
||||
<data name="PictureBox19.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABEhJREFUSEtj
|
||||
oDZg4WThlrSSdLPOtc53zHaMl5SUZGBnZ4fKUhMwMjCK6IloGhUYZdn32a/wX+Z/0Ge2z0L9eH0rQVVB
|
||||
QSZ2JqhCKgEBNQFFoyKjnPAj4cdjz8d+jb8U/z/iaMR9z2WeE3XSdByEdYWFGVkYGaHKKQdWTVYF4YfC
|
||||
j8VdjPsHwiALYezo89HTzWrNHNj42VigyikHDv0OC2POxrwDWYSOgZY+DNoRNMV5urMdVDn5gFOUU0rJ
|
||||
VynOd7XvBSwW/QHiHx4LPPYDQ6DUpMzEEKqNPMDKw8on5ywXBHT9w+hT0d/QLPsefTr6Rei+0Iuqwaox
|
||||
XGJcElBt5AMFT4UIYDBtjzkT8zPuQtxfNAuv+G/wn6CdoG3Bp8AnysjMSH78MXMyc0tZSbnZtNksDtsf
|
||||
9hJoODiRgC26EPcD6IDbPit9Oo3yjWz4Ffm5gXmTGaqVPMAuwC6il6ZXgx5vsedif4YfDH/kNsdtIlDe
|
||||
VlRflDo5HpeFkUcj33jM89gqbigux8bNBlVNIeCR4pFX9ldO8F7qfTLyWORHmGUx52N+2/XYrRTRFTFh
|
||||
42PjAMYZVAcOwMzBzA2MXHUFDwVLGXsZDS4JLjZ0TeyC7CLghDLVeWvU8ahPyL7z3+u/STNdMwSqFD8A
|
||||
pSBeOV41rTitYr/1ftNd57jmKnorygKDjpUBqQgU1BA0NKsym4JsESifAfFzyxmWXhKeEqxQpfgBpxin
|
||||
lEqgSnLI3pBn0Wei30aeiNzlucQzWdxEXBKY1+DJGYeF12IuxBTJe8srsfAQkfKBQckFzJgp7vPdD4KS
|
||||
d9ylOJAhL4AF73aHCQ5RwKpGjomViZWVl1VAP0u/wXeN70WYZbEXYi/7b/Lv0c3Q1eGR5eGBGokfKLgp
|
||||
hALjZBuyq0EYaOkHoIErzWvN/cWMxSSAcSoLTO57oXK/gPhp4PbAqUAfO7MLsbMBHUVcTQD2FVLGRbIQ
|
||||
LA5MfdNdZrnYolkIcswSs0ozL2Aw80KNIg5I20h7ApN5lGWdZQfQoPtAA8F1GZLFD4HVznGQZUD6NUgs
|
||||
8kjka5t2m25pW2kzFm4yShFgvuGVMJEwNq0wrXSd6bopeGfwA2RLkTHIUrfZbnvkXOWCQYkNagT5QNZZ
|
||||
NsCu225Z9MnoD8By8TfQEkQ5eTHuJzDRHAMmnkJ2EXYhqBbKADCIeIGZ29t9nvvSqJNRL4AW/UKy8L7P
|
||||
ap8Juum6BsBCgHotI25JbgkZBxkHtVC1JGDc7Qa2UX4CE8n3oJ1B64GpMlpYR5ifmZ2Zyq0iKFANUk3x
|
||||
WOhxEFgYvLZus64EJhQtqBTtALDEsQ/aHnRf3FTcASpEWwBsbQkBLQW1uqiTUJABFxcXg7y8PJupqSm/
|
||||
nZ2diL29vSgyBooJm5ub88nKyrIC1VLezgQ2zRk9PT0F6urqVCdNmmQwbdo0Y2Q8efJk3ebmZkVXV1de
|
||||
CQkJEjM9AwMAOTMC2xlgxuQAAAAASUVORK5CYII=
|
||||
</value>
|
||||
</data>
|
||||
<data name="PictureBox18.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABEhJREFUSEtj
|
||||
oDZg4WThlrSSdLPOtc53zHaMl5SUZGBnZ4fKUhMwMjCK6IloGhUYZdn32a/wX+Z/0Ge2z0L9eH0rQVVB
|
||||
QSZ2JqhCKgEBNQFFoyKjnPAj4cdjz8d+jb8U/z/iaMR9z2WeE3XSdByEdYWFGVkYGaHKKQdWTVYF4YfC
|
||||
j8VdjPsHwiALYezo89HTzWrNHNj42VigyikHDv0OC2POxrwDWYSOgZY+DNoRNMV5urMdVDn5gFOUU0rJ
|
||||
VynOd7XvBSwW/QHiHx4LPPYDQ6DUpMzEEKqNPMDKw8on5ywXBHT9w+hT0d/QLPsefTr6Rei+0Iuqwaox
|
||||
XGJcElBt5AMFT4UIYDBtjzkT8zPuQtxfNAuv+G/wn6CdoG3Bp8AnysjMSH78MXMyc0tZSbnZtNksDtsf
|
||||
9hJoODiRgC26EPcD6IDbPit9Oo3yjWz4Ffm5gXmTGaqVPMAuwC6il6ZXgx5vsedif4YfDH/kNsdtIlDe
|
||||
VlRflDo5HpeFkUcj33jM89gqbigux8bNBlVNIeCR4pFX9ldO8F7qfTLyWORHmGUx52N+2/XYrRTRFTFh
|
||||
42PjAMYZVAcOwMzBzA2MXHUFDwVLGXsZDS4JLjZ0TeyC7CLghDLVeWvU8ahPyL7z3+u/STNdMwSqFD8A
|
||||
pSBeOV41rTitYr/1ftNd57jmKnorygKDjpUBqQgU1BA0NKsym4JsESifAfFzyxmWXhKeEqxQpfgBpxin
|
||||
lEqgSnLI3pBn0Wei30aeiNzlucQzWdxEXBKY1+DJGYeF12IuxBTJe8srsfAQkfKBQckFzJgp7vPdD4KS
|
||||
d9ylOJAhL4AF73aHCQ5RwKpGjomViZWVl1VAP0u/wXeN70WYZbEXYi/7b/Lv0c3Q1eGR5eGBGokfKLgp
|
||||
hALjZBuyq0EYaOkHoIErzWvN/cWMxSSAcSoLTO57oXK/gPhp4PbAqUAfO7MLsbMBHUVcTQD2FVLGRbIQ
|
||||
LA5MfdNdZrnYolkIcswSs0ozL2Aw80KNIg5I20h7ApN5lGWdZQfQoPtAA8F1GZLFD4HVznGQZUD6NUgs
|
||||
8kjka5t2m25pW2kzFm4yShFgvuGVMJEwNq0wrXSd6bopeGfwA2RLkTHIUrfZbnvkXOWCQYkNagT5QNZZ
|
||||
NsCu225Z9MnoD8By8TfQEkQ5eTHuJzDRHAMmnkJ2EXYhqBbKADCIeIGZ29t9nvvSqJNRL4AW/UKy8L7P
|
||||
ap8Juum6BsBCgHotI25JbgkZBxkHtVC1JGDc7Qa2UX4CE8n3oJ1B64GpMlpYR5ifmZ2Zyq0iKFANUk3x
|
||||
WOhxEFgYvLZus64EJhQtqBTtALDEsQ/aHnRf3FTcASpEWwBsbQkBLQW1uqiTUJABFxcXg7y8PJupqSm/
|
||||
nZ2diL29vSgyBooJm5ub88nKyrIC1VLezgQ2zRk9PT0F6urqVCdNmmQwbdo0Y2Q8efJk3ebmZkVXV1de
|
||||
CQkJEjM9AwMAOTMC2xlgxuQAAAAASUVORK5CYII=
|
||||
</value>
|
||||
</data>
|
||||
<data name="PictureBox12.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABEhJREFUSEtj
|
||||
oDZg4WThlrSSdLPOtc53zHaMl5SUZGBnZ4fKUhMwMjCK6IloGhUYZdn32a/wX+Z/0Ge2z0L9eH0rQVVB
|
||||
QSZ2JqhCKgEBNQFFoyKjnPAj4cdjz8d+jb8U/z/iaMR9z2WeE3XSdByEdYWFGVkYGaHKKQdWTVYF4YfC
|
||||
j8VdjPsHwiALYezo89HTzWrNHNj42VigyikHDv0OC2POxrwDWYSOgZY+DNoRNMV5urMdVDn5gFOUU0rJ
|
||||
VynOd7XvBSwW/QHiHx4LPPYDQ6DUpMzEEKqNPMDKw8on5ywXBHT9w+hT0d/QLPsefTr6Rei+0Iuqwaox
|
||||
XGJcElBt5AMFT4UIYDBtjzkT8zPuQtxfNAuv+G/wn6CdoG3Bp8AnysjMSH78MXMyc0tZSbnZtNksDtsf
|
||||
9hJoODiRgC26EPcD6IDbPit9Oo3yjWz4Ffm5gXmTGaqVPMAuwC6il6ZXgx5vsedif4YfDH/kNsdtIlDe
|
||||
VlRflDo5HpeFkUcj33jM89gqbigux8bNBlVNIeCR4pFX9ldO8F7qfTLyWORHmGUx52N+2/XYrRTRFTFh
|
||||
42PjAMYZVAcOwMzBzA2MXHUFDwVLGXsZDS4JLjZ0TeyC7CLghDLVeWvU8ahPyL7z3+u/STNdMwSqFD8A
|
||||
pSBeOV41rTitYr/1ftNd57jmKnorygKDjpUBqQgU1BA0NKsym4JsESifAfFzyxmWXhKeEqxQpfgBpxin
|
||||
lEqgSnLI3pBn0Wei30aeiNzlucQzWdxEXBKY1+DJGYeF12IuxBTJe8srsfAQkfKBQckFzJgp7vPdD4KS
|
||||
d9ylOJAhL4AF73aHCQ5RwKpGjomViZWVl1VAP0u/wXeN70WYZbEXYi/7b/Lv0c3Q1eGR5eGBGokfKLgp
|
||||
hALjZBuyq0EYaOkHoIErzWvN/cWMxSSAcSoLTO57oXK/gPhp4PbAqUAfO7MLsbMBHUVcTQD2FVLGRbIQ
|
||||
LA5MfdNdZrnYolkIcswSs0ozL2Aw80KNIg5I20h7ApN5lGWdZQfQoPtAA8F1GZLFD4HVznGQZUD6NUgs
|
||||
8kjka5t2m25pW2kzFm4yShFgvuGVMJEwNq0wrXSd6bopeGfwA2RLkTHIUrfZbnvkXOWCQYkNagT5QNZZ
|
||||
NsCu225Z9MnoD8By8TfQEkQ5eTHuJzDRHAMmnkJ2EXYhqBbKADCIeIGZ29t9nvvSqJNRL4AW/UKy8L7P
|
||||
ap8Juum6BsBCgHotI25JbgkZBxkHtVC1JGDc7Qa2UX4CE8n3oJ1B64GpMlpYR5ifmZ2Zyq0iKFANUk3x
|
||||
WOhxEFgYvLZus64EJhQtqBTtALDEsQ/aHnRf3FTcASpEWwBsbQkBLQW1uqiTUJABFxcXg7y8PJupqSm/
|
||||
nZ2diL29vSgyBooJm5ub88nKyrIC1VLezgQ2zRk9PT0F6urqVCdNmmQwbdo0Y2Q8efJk3ebmZkVXV1de
|
||||
CQkJEjM9AwMAOTMC2xlgxuQAAAAASUVORK5CYII=
|
||||
</value>
|
||||
</data>
|
||||
<data name="PictureBox11.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABEhJREFUSEtj
|
||||
oDZg4WThlrSSdLPOtc53zHaMl5SUZGBnZ4fKUhMwMjCK6IloGhUYZdn32a/wX+Z/0Ge2z0L9eH0rQVVB
|
||||
QSZ2JqhCKgEBNQFFoyKjnPAj4cdjz8d+jb8U/z/iaMR9z2WeE3XSdByEdYWFGVkYGaHKKQdWTVYF4YfC
|
||||
j8VdjPsHwiALYezo89HTzWrNHNj42VigyikHDv0OC2POxrwDWYSOgZY+DNoRNMV5urMdVDn5gFOUU0rJ
|
||||
VynOd7XvBSwW/QHiHx4LPPYDQ6DUpMzEEKqNPMDKw8on5ywXBHT9w+hT0d/QLPsefTr6Rei+0Iuqwaox
|
||||
XGJcElBt5AMFT4UIYDBtjzkT8zPuQtxfNAuv+G/wn6CdoG3Bp8AnysjMSH78MXMyc0tZSbnZtNksDtsf
|
||||
9hJoODiRgC26EPcD6IDbPit9Oo3yjWz4Ffm5gXmTGaqVPMAuwC6il6ZXgx5vsedif4YfDH/kNsdtIlDe
|
||||
VlRflDo5HpeFkUcj33jM89gqbigux8bNBlVNIeCR4pFX9ldO8F7qfTLyWORHmGUx52N+2/XYrRTRFTFh
|
||||
42PjAMYZVAcOwMzBzA2MXHUFDwVLGXsZDS4JLjZ0TeyC7CLghDLVeWvU8ahPyL7z3+u/STNdMwSqFD8A
|
||||
pSBeOV41rTitYr/1ftNd57jmKnorygKDjpUBqQgU1BA0NKsym4JsESifAfFzyxmWXhKeEqxQpfgBpxin
|
||||
lEqgSnLI3pBn0Wei30aeiNzlucQzWdxEXBKY1+DJGYeF12IuxBTJe8srsfAQkfKBQckFzJgp7vPdD4KS
|
||||
d9ylOJAhL4AF73aHCQ5RwKpGjomViZWVl1VAP0u/wXeN70WYZbEXYi/7b/Lv0c3Q1eGR5eGBGokfKLgp
|
||||
hALjZBuyq0EYaOkHoIErzWvN/cWMxSSAcSoLTO57oXK/gPhp4PbAqUAfO7MLsbMBHUVcTQD2FVLGRbIQ
|
||||
LA5MfdNdZrnYolkIcswSs0ozL2Aw80KNIg5I20h7ApN5lGWdZQfQoPtAA8F1GZLFD4HVznGQZUD6NUgs
|
||||
8kjka5t2m25pW2kzFm4yShFgvuGVMJEwNq0wrXSd6bopeGfwA2RLkTHIUrfZbnvkXOWCQYkNagT5QNZZ
|
||||
NsCu225Z9MnoD8By8TfQEkQ5eTHuJzDRHAMmnkJ2EXYhqBbKADCIeIGZ29t9nvvSqJNRL4AW/UKy8L7P
|
||||
ap8Juum6BsBCgHotI25JbgkZBxkHtVC1JGDc7Qa2UX4CE8n3oJ1B64GpMlpYR5ifmZ2Zyq0iKFANUk3x
|
||||
WOhxEFgYvLZus64EJhQtqBTtALDEsQ/aHnRf3FTcASpEWwBsbQkBLQW1uqiTUJABFxcXg7y8PJupqSm/
|
||||
nZ2diL29vSgyBooJm5ub88nKyrIC1VLezgQ2zRk9PT0F6urqVCdNmmQwbdo0Y2Q8efJk3ebmZkVXV1de
|
||||
CQkJEjM9AwMAOTMC2xlgxuQAAAAASUVORK5CYII=
|
||||
</value>
|
||||
</data>
|
||||
<data name="PictureBox10.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABEhJREFUSEtj
|
||||
oDZg4WThlrSSdLPOtc53zHaMl5SUZGBnZ4fKUhMwMjCK6IloGhUYZdn32a/wX+Z/0Ge2z0L9eH0rQVVB
|
||||
QSZ2JqhCKgEBNQFFoyKjnPAj4cdjz8d+jb8U/z/iaMR9z2WeE3XSdByEdYWFGVkYGaHKKQdWTVYF4YfC
|
||||
j8VdjPsHwiALYezo89HTzWrNHNj42VigyikHDv0OC2POxrwDWYSOgZY+DNoRNMV5urMdVDn5gFOUU0rJ
|
||||
VynOd7XvBSwW/QHiHx4LPPYDQ6DUpMzEEKqNPMDKw8on5ywXBHT9w+hT0d/QLPsefTr6Rei+0Iuqwaox
|
||||
XGJcElBt5AMFT4UIYDBtjzkT8zPuQtxfNAuv+G/wn6CdoG3Bp8AnysjMSH78MXMyc0tZSbnZtNksDtsf
|
||||
9hJoODiRgC26EPcD6IDbPit9Oo3yjWz4Ffm5gXmTGaqVPMAuwC6il6ZXgx5vsedif4YfDH/kNsdtIlDe
|
||||
VlRflDo5HpeFkUcj33jM89gqbigux8bNBlVNIeCR4pFX9ldO8F7qfTLyWORHmGUx52N+2/XYrRTRFTFh
|
||||
42PjAMYZVAcOwMzBzA2MXHUFDwVLGXsZDS4JLjZ0TeyC7CLghDLVeWvU8ahPyL7z3+u/STNdMwSqFD8A
|
||||
pSBeOV41rTitYr/1ftNd57jmKnorygKDjpUBqQgU1BA0NKsym4JsESifAfFzyxmWXhKeEqxQpfgBpxin
|
||||
lEqgSnLI3pBn0Wei30aeiNzlucQzWdxEXBKY1+DJGYeF12IuxBTJe8srsfAQkfKBQckFzJgp7vPdD4KS
|
||||
d9ylOJAhL4AF73aHCQ5RwKpGjomViZWVl1VAP0u/wXeN70WYZbEXYi/7b/Lv0c3Q1eGR5eGBGokfKLgp
|
||||
hALjZBuyq0EYaOkHoIErzWvN/cWMxSSAcSoLTO57oXK/gPhp4PbAqUAfO7MLsbMBHUVcTQD2FVLGRbIQ
|
||||
LA5MfdNdZrnYolkIcswSs0ozL2Aw80KNIg5I20h7ApN5lGWdZQfQoPtAA8F1GZLFD4HVznGQZUD6NUgs
|
||||
8kjka5t2m25pW2kzFm4yShFgvuGVMJEwNq0wrXSd6bopeGfwA2RLkTHIUrfZbnvkXOWCQYkNagT5QNZZ
|
||||
NsCu225Z9MnoD8By8TfQEkQ5eTHuJzDRHAMmnkJ2EXYhqBbKADCIeIGZ29t9nvvSqJNRL4AW/UKy8L7P
|
||||
ap8Juum6BsBCgHotI25JbgkZBxkHtVC1JGDc7Qa2UX4CE8n3oJ1B64GpMlpYR5ifmZ2Zyq0iKFANUk3x
|
||||
WOhxEFgYvLZus64EJhQtqBTtALDEsQ/aHnRf3FTcASpEWwBsbQkBLQW1uqiTUJABFxcXg7y8PJupqSm/
|
||||
nZ2diL29vSgyBooJm5ub88nKyrIC1VLezgQ2zRk9PT0F6urqVCdNmmQwbdo0Y2Q8efJk3ebmZkVXV1de
|
||||
CQkJEjM9AwMAOTMC2xlgxuQAAAAASUVORK5CYII=
|
||||
</value>
|
||||
</data>
|
||||
<data name="PictureBox9.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABEhJREFUSEtj
|
||||
oDZg4WThlrSSdLPOtc53zHaMl5SUZGBnZ4fKUhMwMjCK6IloGhUYZdn32a/wX+Z/0Ge2z0L9eH0rQVVB
|
||||
QSZ2JqhCKgEBNQFFoyKjnPAj4cdjz8d+jb8U/z/iaMR9z2WeE3XSdByEdYWFGVkYGaHKKQdWTVYF4YfC
|
||||
j8VdjPsHwiALYezo89HTzWrNHNj42VigyikHDv0OC2POxrwDWYSOgZY+DNoRNMV5urMdVDn5gFOUU0rJ
|
||||
VynOd7XvBSwW/QHiHx4LPPYDQ6DUpMzEEKqNPMDKw8on5ywXBHT9w+hT0d/QLPsefTr6Rei+0Iuqwaox
|
||||
XGJcElBt5AMFT4UIYDBtjzkT8zPuQtxfNAuv+G/wn6CdoG3Bp8AnysjMSH78MXMyc0tZSbnZtNksDtsf
|
||||
9hJoODiRgC26EPcD6IDbPit9Oo3yjWz4Ffm5gXmTGaqVPMAuwC6il6ZXgx5vsedif4YfDH/kNsdtIlDe
|
||||
VlRflDo5HpeFkUcj33jM89gqbigux8bNBlVNIeCR4pFX9ldO8F7qfTLyWORHmGUx52N+2/XYrRTRFTFh
|
||||
42PjAMYZVAcOwMzBzA2MXHUFDwVLGXsZDS4JLjZ0TeyC7CLghDLVeWvU8ahPyL7z3+u/STNdMwSqFD8A
|
||||
pSBeOV41rTitYr/1ftNd57jmKnorygKDjpUBqQgU1BA0NKsym4JsESifAfFzyxmWXhKeEqxQpfgBpxin
|
||||
lEqgSnLI3pBn0Wei30aeiNzlucQzWdxEXBKY1+DJGYeF12IuxBTJe8srsfAQkfKBQckFzJgp7vPdD4KS
|
||||
d9ylOJAhL4AF73aHCQ5RwKpGjomViZWVl1VAP0u/wXeN70WYZbEXYi/7b/Lv0c3Q1eGR5eGBGokfKLgp
|
||||
hALjZBuyq0EYaOkHoIErzWvN/cWMxSSAcSoLTO57oXK/gPhp4PbAqUAfO7MLsbMBHUVcTQD2FVLGRbIQ
|
||||
LA5MfdNdZrnYolkIcswSs0ozL2Aw80KNIg5I20h7ApN5lGWdZQfQoPtAA8F1GZLFD4HVznGQZUD6NUgs
|
||||
8kjka5t2m25pW2kzFm4yShFgvuGVMJEwNq0wrXSd6bopeGfwA2RLkTHIUrfZbnvkXOWCQYkNagT5QNZZ
|
||||
NsCu225Z9MnoD8By8TfQEkQ5eTHuJzDRHAMmnkJ2EXYhqBbKADCIeIGZ29t9nvvSqJNRL4AW/UKy8L7P
|
||||
ap8Juum6BsBCgHotI25JbgkZBxkHtVC1JGDc7Qa2UX4CE8n3oJ1B64GpMlpYR5ifmZ2Zyq0iKFANUk3x
|
||||
WOhxEFgYvLZus64EJhQtqBTtALDEsQ/aHnRf3FTcASpEWwBsbQkBLQW1uqiTUJABFxcXg7y8PJupqSm/
|
||||
nZ2diL29vSgyBooJm5ub88nKyrIC1VLezgQ2zRk9PT0F6urqVCdNmmQwbdo0Y2Q8efJk3ebmZkVXV1de
|
||||
CQkJEjM9AwMAOTMC2xlgxuQAAAAASUVORK5CYII=
|
||||
</value>
|
||||
</data>
|
||||
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
AAABAAEAgIAAAAEAGAAoyAAAFgAAACgAAACAAAAAAAEAAAEAGAAAAAAAAMgAAMQOAADEDgAAAAAAAAAA
|
||||
|
||||
@@ -1,10 +1,13 @@
|
||||
Imports System.Data.OleDb
|
||||
Imports System.DirectoryServices.ActiveDirectory
|
||||
Imports System.IO
|
||||
Imports System.Net
|
||||
Imports System.Text
|
||||
Imports System.Xml
|
||||
Imports DocumentFormat.OpenXml.Drawing.Diagrams
|
||||
Imports DocumentFormat.OpenXml.Wordprocessing
|
||||
Imports iTextSharp.text.pdf.qrcode.Version
|
||||
Imports Org.BouncyCastle.Asn1.Pkcs
|
||||
Imports Renci.SshNet
|
||||
Imports VERAG_PROG_ALLGEMEIN
|
||||
|
||||
@@ -1961,6 +1964,9 @@ Public Class frmStartOptions
|
||||
PictureBox12.Visible = False
|
||||
PictureBox13.Visible = False
|
||||
PictureBox14.Visible = False
|
||||
PictureBox18.Visible = False
|
||||
PictureBox19.Visible = False
|
||||
PictureBox20.Visible = False
|
||||
|
||||
End Sub
|
||||
|
||||
@@ -3453,10 +3459,114 @@ Public Class frmStartOptions
|
||||
End Sub
|
||||
|
||||
Private Sub LinkLabel42_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel42.LinkClicked
|
||||
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True
|
||||
Me.Cursor = Cursors.WaitCursor
|
||||
Dim blt = New cAsfinag.Exportist
|
||||
blt.initPFad()
|
||||
showPic(blt.exportiereWhiteList, PictureBox18)
|
||||
Me.Cursor = Cursors.Default
|
||||
End Sub
|
||||
|
||||
Private Sub LinkLabel41_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel41.LinkClicked
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True
|
||||
Me.Cursor = Cursors.WaitCursor
|
||||
Dim blt = New cAsfinag.Exportist
|
||||
blt.initPFad()
|
||||
showPic(blt.exportiereBlackList, PictureBox19)
|
||||
Me.Cursor = Cursors.Default
|
||||
End Sub
|
||||
|
||||
Private Sub LinkLabel45_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel45.LinkClicked
|
||||
|
||||
Dim MyData As String = ""
|
||||
Dim SQL = New SQL
|
||||
Dim erg = True
|
||||
|
||||
Dim firstDaycurrentMonth = DateTime.Now.AddMonths(0)
|
||||
firstDaycurrentMonth = New DateTime(firstDaycurrentMonth.Year, firstDaycurrentMonth.Month, 1)
|
||||
|
||||
Dim lastDaycurrentMonth = DateTime.Now.AddMonths(1)
|
||||
lastDaycurrentMonth = New DateTime(lastDaycurrentMonth.Year, lastDaycurrentMonth.Month, 1).AddDays(-1)
|
||||
|
||||
Dim kursart = "1" 'notirete Währung
|
||||
Dim startdatum_tag2 = firstDaycurrentMonth.Day
|
||||
Dim startdatum_monat2 = firstDaycurrentMonth.Month
|
||||
Dim startdatum_jahr2 = firstDaycurrentMonth.Year
|
||||
Dim enddatum_tag2 = lastDaycurrentMonth.Day
|
||||
Dim enddatum_monat2 = lastDaycurrentMonth.Month
|
||||
Dim enddatum_jahr2 = lastDaycurrentMonth.Year
|
||||
|
||||
Try
|
||||
System.Net.ServicePointManager.SecurityProtocol = SecurityProtocolType.Tls12
|
||||
|
||||
Using WC As New System.Net.WebClient()
|
||||
' C0008_URL()
|
||||
WC.Encoding = ASCIIEncoding.UTF8
|
||||
Dim URL = "https://www.zoll.de/SiteGlobals/Functions/Kurse/KursExport.xml?view=xmlexportkursesearchresultZOLLWeb&kursart=" & kursart &
|
||||
"&startdatum_tag2=" & startdatum_tag2 &
|
||||
"&startdatum_monat2=" & startdatum_monat2 &
|
||||
"&startdatum_jahr2=" & startdatum_jahr2 &
|
||||
"&enddatum_tag2=" & enddatum_tag2 &
|
||||
"&enddatum_monat2=" & enddatum_monat2 &
|
||||
"&enddatum_jahr2=" & enddatum_jahr2 &
|
||||
"&sort=asc&spalte=gueltigkeit"
|
||||
If URL = String.Empty Then Exit Sub
|
||||
|
||||
MyData = WC.DownloadString(URL)
|
||||
Dim doc As New XmlDocument()
|
||||
doc.LoadXml(MyData)
|
||||
If doc.HasChildNodes Then
|
||||
|
||||
If doc.GetElementsByTagName("kurs").Count > 0 Then
|
||||
Dim endDatum, startDatum
|
||||
Dim count As Integer = 1
|
||||
For Each node As XmlElement In doc.GetElementsByTagName("kurs")
|
||||
Dim wk As New cFremdwaehrungskurse()
|
||||
If node.Attributes("id") IsNot Nothing Then wk.fw_id = node.Attributes("id").Value
|
||||
If node.HasChildNodes Then
|
||||
For Each element As XmlElement In node.ChildNodes
|
||||
If element.Name = "land" AndAlso element.InnerText <> "" Then wk.fw_land = element.InnerText
|
||||
If element.Name = "iso2" AndAlso element.InnerText <> "" Then wk.fw_iso2 = element.InnerText
|
||||
If element.Name = "iso3" AndAlso element.InnerText <> "" Then wk.fw_iso3 = element.InnerText
|
||||
If element.Name = "kurswert" AndAlso element.InnerText <> "" Then wk.fw_kurswert = element.InnerText
|
||||
If element.Name = "startdatum" AndAlso element.InnerText <> "" Then
|
||||
wk.fw_startdatum = element.InnerText
|
||||
startDatum = wk.fw_startdatum
|
||||
End If
|
||||
If element.Name = "enddatum" AndAlso element.InnerText <> "" Then
|
||||
wk.fw_enddatum = element.InnerText
|
||||
endDatum = wk.fw_enddatum
|
||||
End If
|
||||
Next
|
||||
count = count + 1
|
||||
wk.SAVE()
|
||||
End If
|
||||
Next
|
||||
Dim wk_euro As New cFremdwaehrungskurse()
|
||||
wk_euro.fw_id = 0
|
||||
wk_euro.fw_land = "Europa"
|
||||
wk_euro.fw_kurswert = 1
|
||||
wk_euro.fw_iso3 = "EUR"
|
||||
wk_euro.fw_iso2 = "EU"
|
||||
wk_euro.fw_startdatum = firstDaycurrentMonth.ToShortDateString()
|
||||
wk_euro.fw_enddatum = lastDaycurrentMonth.ToShortDateString()
|
||||
wk_euro.SAVE()
|
||||
|
||||
|
||||
|
||||
Dim sqlCount = SQL.getValueTxtBySqlVarList("SELECT isnull(count(*),0) FROM tblZOLL_Wechselkurse WHERE [fw_startdatum]='" & startDatum & "' AND fw_enddatum='" & endDatum & "'", "FMZOLL")
|
||||
If count <> sqlCount Then
|
||||
MsgBox("Anzahl der Importierten Datensätze:" & sqlCount & vbNewLine & "Anzahl Datensätze in Datei: " & count)
|
||||
erg = False
|
||||
End If
|
||||
End If
|
||||
showPic(erg, PictureBox20)
|
||||
End If
|
||||
|
||||
End Using
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message & ex.StackTrace)
|
||||
End Try
|
||||
End Sub
|
||||
End Class
|
||||
Reference in New Issue
Block a user