From 8f5fa223a56d00adc2bda13189b472164028d41f Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Mon, 28 Aug 2023 17:14:24 +0200 Subject: [PATCH 1/6] Asfinag --- UID/Mitarbeiter/usrCntlMitarbeiter.vb | 3 - initATLASAufschubkonten/RoutineManager.vbproj | 10 + initATLASAufschubkonten/cAsfinag.vb | 762 ++++++++++++++ ...sfinag_NachrichtenVerarbeitung.Designer.vb | 260 +++++ .../frmAsfinag_NachrichtenVerarbeitung.resx | 986 ++++++++++++++++++ .../frmAsfinag_NachrichtenVerarbeitung.vb | 565 ++++++++++ .../frmStartOptions.Designer.vb | 96 ++ 7 files changed, 2679 insertions(+), 3 deletions(-) create mode 100644 initATLASAufschubkonten/cAsfinag.vb create mode 100644 initATLASAufschubkonten/frmAsfinag_NachrichtenVerarbeitung.Designer.vb create mode 100644 initATLASAufschubkonten/frmAsfinag_NachrichtenVerarbeitung.resx create mode 100644 initATLASAufschubkonten/frmAsfinag_NachrichtenVerarbeitung.vb diff --git a/UID/Mitarbeiter/usrCntlMitarbeiter.vb b/UID/Mitarbeiter/usrCntlMitarbeiter.vb index f415aa0..32794f4 100644 --- a/UID/Mitarbeiter/usrCntlMitarbeiter.vb +++ b/UID/Mitarbeiter/usrCntlMitarbeiter.vb @@ -824,7 +824,4 @@ Public Class usrCntlMitarbeiter End Function - - - End Class diff --git a/initATLASAufschubkonten/RoutineManager.vbproj b/initATLASAufschubkonten/RoutineManager.vbproj index d14f2b0..f2844a4 100644 --- a/initATLASAufschubkonten/RoutineManager.vbproj +++ b/initATLASAufschubkonten/RoutineManager.vbproj @@ -146,6 +146,7 @@ + @@ -164,6 +165,12 @@ Form + + frmAsfinag_NachrichtenVerarbeitung.vb + + + Form + frmTRNCTS_NachrichtenVerarbeitung_OREGON.vb @@ -235,6 +242,9 @@ frmTRNCTS_NachrichtenVerarbeitung_ATEZ.vb + + frmAsfinag_NachrichtenVerarbeitung.vb + frmTRNCTS_NachrichtenVerarbeitung_OREGON.vb diff --git a/initATLASAufschubkonten/cAsfinag.vb b/initATLASAufschubkonten/cAsfinag.vb new file mode 100644 index 0000000..9fc9cab --- /dev/null +++ b/initATLASAufschubkonten/cAsfinag.vb @@ -0,0 +1,762 @@ +Imports System.Data.SqlClient +Imports System.Reflection +Imports DocumentFormat.OpenXml.VariantTypes + +Public Class cAsfinag + + Public Class CLFHeader + + Property PKFileName As Object = Nothing + Property recordType As Integer + Property fileVersion As Integer + Property fileNumber As Integer + Property inidcator As Object = Nothing + Property senderID As Object = Nothing + Property receiverID As Object = Nothing + Property fileCreationDate As Object = Nothing + Property fileCreationTime As Object = Nothing + Property ISOCountryCode As Object = Nothing + Property creationName As Object = Nothing + + Public hasEntry = False + + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + + Sub New(PKFileName) + Me.PKFileName = PKFileName + LOAD() + End Sub + Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + 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("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("inidcator", inidcator)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("senderID", senderID)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("receiverID", receiverID)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("fileCreationDate", fileCreationDate)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("fileCreationTime", fileCreationTime)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ISOCountryCode", ISOCountryCode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("creationName", creationName)) + + Return list + End Function + + Public Function SAVE() As Boolean + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + + Dim sqlstr = " BEGIN TRAN If EXISTS(Select * FROM CLFHeader WHERE PKFileName=@PKFileName AND filenumber = @filenumber) " & + " BEGIN " & getUpdateCmd() & " End " & + " Else " & + " BEGIN " & getInsertCmd() & " End " & + " commit tran " + + Return SQL.doSQLVarList(sqlstr, "ASFINAG", , list) + End Function + + Public Sub LOAD() + Try + hasEntry = False + Using conn As SqlConnection = SQL.GetNewOpenConnectionAsfinag() + Using cmd As New SqlCommand("Select * FROM CLFHeader WHERE PKFileName=@PKFileName AND filenumber = @filenumber ", conn) + cmd.Parameters.AddWithValue("@PKFileName", PKFileName) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + For Each li In getParameterList() + Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable) + + If dr.Item(li.Text) Is DBNull.Value Then + propInfo.SetValue(Me, Nothing) + Else + propInfo.SetValue(Me, dr.Item(li.Text)) + End If + + Next + hasEntry = True + End If + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler In der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End Sub + + + + Public Function getUpdateCmd() As String + Try + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + + Dim str As String = "" + For Each i In list + If Not i.isPrimaryParam Then + str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & "," + End If + Next + str = str.Substring(0, str.Length - 1) 'wg. ',' + Return (" UPDATE [CLFHeader] SET " & str & " WHERE PKFileName=@PKFileName AND filenumber = @filenumber") + + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + + + Public Function getInsertCmd() As String + Try + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + Dim str As String = "" + Dim values As String = "" + For Each i In list + If Not i.isPrimaryParam Then + str &= "[" & i.Text & "]," + values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & "," + End If + Next + str = str.Substring(0, str.Length - 1) 'wg. ',' + values = values.Substring(0, values.Length - 1) 'wg. ',' + Return (" INSERT INTO CLFHeader (" & str & ") VALUES(" & values & ") ") + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + + End Class + + Public Class CLFBody + + Property PKFileName As Object = Nothing + Property recordType As Integer + Property fileVersion As Integer + Property fileNumber As Integer + Property cardNumber As Integer + Property validTo As Integer + Property OBUID As Object = Nothing + Property vehicleLicensePlate As Object = Nothing + Property nationality As Object = Nothing + Property vehicleCategory As Object = Nothing + Property emissionCategory As Object = Nothing + Property status As Object = Nothing + Property contractDate As Object = Nothing + + + Public hasEntry = False + + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + + Sub New(PKFileName) + Me.PKFileName = PKFileName + LOAD() + End Sub + Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + 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("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)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("validTo", validTo)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("OBUID", OBUID)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vehicleLicensePlate", vehicleLicensePlate)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nationality", nationality)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vehicleCategory", vehicleCategory)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("emissionCategory", emissionCategory)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("status", status)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("contractDate", contractDate)) + + Return list + End Function + + Public Function SAVE() As Boolean + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + + Dim sqlstr = " BEGIN TRAN If EXISTS(Select * FROM CLFBody WHERE PKFileName=@PKFileName AND filenumber = @filenumber) " & + " BEGIN " & getUpdateCmd() & " End " & + " Else " & + " BEGIN " & getInsertCmd() & " End " & + " commit tran " + + Return SQL.doSQLVarList(sqlstr, "ASFINAG", , list) + End Function + + Public Sub LOAD() + Try + hasEntry = False + Using conn As SqlConnection = SQL.GetNewOpenConnectionAsfinag() + Using cmd As New SqlCommand("Select * FROM CLFBody WHERE PKFileName=@PKFileName AND filenumber = @filenumber ", conn) + cmd.Parameters.AddWithValue("@PKFileName", PKFileName) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + For Each li In getParameterList() + Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable) + + If dr.Item(li.Text) Is DBNull.Value Then + propInfo.SetValue(Me, Nothing) + Else + propInfo.SetValue(Me, dr.Item(li.Text)) + End If + + Next + hasEntry = True + End If + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler In der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End Sub + + + + Public Function getUpdateCmd() As String + Try + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + + Dim str As String = "" + For Each i In list + If Not i.isPrimaryParam Then + str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & "," + End If + Next + str = str.Substring(0, str.Length - 1) 'wg. ',' + Return (" UPDATE [CLFBody] SET " & str & " WHERE PKFileName=@PKFileName AND filenumber = @filenumbere ") + + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + + + Public Function getInsertCmd() As String + Try + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + Dim str As String = "" + Dim values As String = "" + For Each i In list + If Not i.isPrimaryParam Then + str &= "[" & i.Text & "]," + values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & "," + End If + Next + str = str.Substring(0, str.Length - 1) 'wg. ',' + values = values.Substring(0, values.Length - 1) 'wg. ',' + Return (" INSERT INTO CLFBody (" & str & ") VALUES(" & values & ") ") + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + + + + + + End Class + + Public Class CLTrailer + + Property PKFileName As Object = Nothing + Property recordType As Integer + Property fileVersion As Integer + Property fileNumber As Integer + Property recordCount As Integer + + + + Public hasEntry = False + + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + + Sub New(PKFileName) + Me.PKFileName = PKFileName + LOAD() + End Sub + Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + 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("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("recordCount", recordCount)) + + Return list + End Function + + Public Function SAVE() As Boolean + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + + Dim sqlstr = " BEGIN TRAN If EXISTS(Select * FROM CLFTrailer WHERE _BASE_id=@_BASE_id) " & + " BEGIN " & getUpdateCmd() & " End " & + " Else " & + " BEGIN " & getInsertCmd() & " End " & + " commit tran " + + Return SQL.doSQLVarList(sqlstr, "ASFINAG", , list) + End Function + + Public Sub LOAD() + Try + hasEntry = False + Using conn As SqlConnection = SQL.GetNewOpenConnectionAsfinag() + Using cmd As New SqlCommand("Select * FROM CLFTrailer WHERE PKFileName=@PKFileName AND filenumber = @filenumber ", conn) + cmd.Parameters.AddWithValue("@PKFileName", PKFileName) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + For Each li In getParameterList() + Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable) + + If dr.Item(li.Text) Is DBNull.Value Then + propInfo.SetValue(Me, Nothing) + Else + propInfo.SetValue(Me, dr.Item(li.Text)) + End If + + Next + hasEntry = True + End If + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler In der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End Sub + + + + Public Function getUpdateCmd() As String + Try + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + + Dim str As String = "" + For Each i In list + If Not i.isPrimaryParam Then + str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & "," + End If + Next + str = str.Substring(0, str.Length - 1) 'wg. ',' + Return (" UPDATE [CLFTrailer] SET " & str & " WHERE PKFileName=@PKFileName AND filenumber = @filenumbere ") + + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + + + Public Function getInsertCmd() As String + Try + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + Dim str As String = "" + Dim values As String = "" + For Each i In list + If Not i.isPrimaryParam Then + str &= "[" & i.Text & "]," + values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & "," + End If + Next + str = str.Substring(0, str.Length - 1) 'wg. ',' + values = values.Substring(0, values.Length - 1) 'wg. ',' + Return (" INSERT INTO CLFTrailer (" & str & ") VALUES(" & values & ") ") + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + + + + End Class + + + Public Class TTRHeader + + Property PKFileName As Object = Nothing + Property recordType As Integer + Property fileVersion As Integer + Property fileNumber As Integer + Property inidcator As Object = Nothing + Property senderID As Object = Nothing + Property receiverID As Object = Nothing + Property fileCreationDate As Object = Nothing + Property fileCreationTime As Object = Nothing + Property ISOCountryCode As Object = Nothing + + Public hasEntry = False + + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + + Sub New(PKFileName) + Me.PKFileName = PKFileName + LOAD() + End Sub + Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + 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("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("inidcator", inidcator)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("senderID", senderID)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("receiverID", receiverID)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("fileCreationDate", fileCreationDate)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("fileCreationTime", fileCreationTime)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ISOCountryCode", ISOCountryCode)) + + Return list + End Function + + Public Function SAVE() As Boolean + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + + Dim sqlstr = " BEGIN TRAN If EXISTS(Select * FROM TTRHeader WHERE PKFileName=@PKFileName AND filenumber = @filenumber) " & + " BEGIN " & getUpdateCmd() & " End " & + " Else " & + " BEGIN " & getInsertCmd() & " End " & + " commit tran " + + Return SQL.doSQLVarList(sqlstr, "ASFINAG", , list) + End Function + + Public Sub LOAD() + Try + hasEntry = False + Using conn As SqlConnection = SQL.GetNewOpenConnectionAsfinag() + Using cmd As New SqlCommand("Select * FROM TTRHeader WHERE PKFileName=@PKFileName AND filenumber = @filenumber ", conn) + cmd.Parameters.AddWithValue("@PKFileName", PKFileName) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + For Each li In getParameterList() + Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable) + + If dr.Item(li.Text) Is DBNull.Value Then + propInfo.SetValue(Me, Nothing) + Else + propInfo.SetValue(Me, dr.Item(li.Text)) + End If + + Next + hasEntry = True + End If + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler In der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End Sub + + + + Public Function getUpdateCmd() As String + Try + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + + Dim str As String = "" + For Each i In list + If Not i.isPrimaryParam Then + str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & "," + End If + Next + str = str.Substring(0, str.Length - 1) 'wg. ',' + Return (" UPDATE [TTRHeader] SET " & str & " WHERE PKFileName=@PKFileName AND filenumber = @filenumber") + + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + + + Public Function getInsertCmd() As String + Try + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + Dim str As String = "" + Dim values As String = "" + For Each i In list + If Not i.isPrimaryParam Then + str &= "[" & i.Text & "]," + values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & "," + End If + Next + str = str.Substring(0, str.Length - 1) 'wg. ',' + values = values.Substring(0, values.Length - 1) 'wg. ',' + Return (" INSERT INTO TTRHeader (" & str & ") VALUES(" & values & ") ") + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + + End Class + + Public Class TTRBody + + Property PKFileName As Object = Nothing + Property recordType As Integer + Property fileVersion As Integer + Property siteId As Integer + Property fileNumber As Integer + Property cardNumber As Integer + Property fileCreationDate As Date + Property deliveryNoteNumber As Integer + Property deliveryDate As Date + Property deliveryTime As Date + Property transactionType As Integer + Property productCode As Integer + Property productQuantity As Double + Property amountInclVAT As Double + Property VATrate As Double + Property VATamount As Double + + Public hasEntry = False + + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + + Sub New(PKFileName) + Me.PKFileName = PKFileName + LOAD() + End Sub + Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + 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("recordType", recordType)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("fileversion", fileversion)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("siteId", siteId)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("fileNumber", fileNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("cardNumber", cardNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("fileCreationDate", fileCreationDate)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("deliveryNoteNumber", deliveryNoteNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("deliveryDate", deliveryDate)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("deliveryTime", deliveryTime)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("transactionType", transactionType)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("productCode", productCode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("productQuantity", productQuantity)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("amountInclVAT", amountInclVAT)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("VATrate", VATrate)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("VATamount", VATamount)) + + Return list + End Function + + Public Function SAVE() As Boolean + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + + Dim sqlstr = " BEGIN TRAN If EXISTS(Select * FROM TTRBody WHERE PKFileName=@PKFileName AND filenumber = @filenumber) " & + " BEGIN " & getUpdateCmd() & " End " & + " Else " & + " BEGIN " & getInsertCmd() & " End " & + " commit tran " + + Return SQL.doSQLVarList(sqlstr, "ASFINAG", , list) + End Function + + Public Sub LOAD() + Try + hasEntry = False + Using conn As SqlConnection = SQL.GetNewOpenConnectionAsfinag() + Using cmd As New SqlCommand("Select * FROM TTRBody WHERE PKFileName=@PKFileName AND filenumber = @filenumber ", conn) + cmd.Parameters.AddWithValue("@PKFileName", PKFileName) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + For Each li In getParameterList() + Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable) + + If dr.Item(li.Text) Is DBNull.Value Then + propInfo.SetValue(Me, Nothing) + Else + propInfo.SetValue(Me, dr.Item(li.Text)) + End If + + Next + hasEntry = True + End If + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler In der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End Sub + + + + Public Function getUpdateCmd() As String + Try + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + + Dim str As String = "" + For Each i In list + If Not i.isPrimaryParam Then + str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & "," + End If + Next + str = str.Substring(0, str.Length - 1) 'wg. ',' + Return (" UPDATE [TTRBody] SET " & str & " WHERE PKFileName=@PKFileName AND filenumber = @filenumbere ") + + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + + + Public Function getInsertCmd() As String + Try + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + Dim str As String = "" + Dim values As String = "" + For Each i In list + If Not i.isPrimaryParam Then + str &= "[" & i.Text & "]," + values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & "," + End If + Next + str = str.Substring(0, str.Length - 1) 'wg. ',' + values = values.Substring(0, values.Length - 1) 'wg. ',' + Return (" INSERT INTO TTRBody (" & str & ") VALUES(" & values & ") ") + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + + + + + + End Class + + Public Class TTRTrailer + + Property PKFileName As Object = Nothing + Property recordType As Integer + Property fileVersion As Integer + Property recordCount As Integer + Property checksumProductQuantity As Double + Property checksumAmounntInclVAT As Double + + + + Public hasEntry = False + + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + + Sub New(PKFileName) + Me.PKFileName = PKFileName + LOAD() + End Sub + Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + 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("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("recordCount", recordCount)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("checksumProductQuantity", checksumProductQuantity)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("checksumAmounntInclVAT", checksumAmounntInclVAT)) + + Return list + End Function + + Public Function SAVE() As Boolean + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + + Dim sqlstr = " BEGIN TRAN If EXISTS(Select * FROM TTRTrailer WHERE _BASE_id=@_BASE_id) " & + " BEGIN " & getUpdateCmd() & " End " & + " Else " & + " BEGIN " & getInsertCmd() & " End " & + " commit tran " + + Return SQL.doSQLVarList(sqlstr, "ASFINAG", , list) + End Function + + Public Sub LOAD() + Try + hasEntry = False + Using conn As SqlConnection = SQL.GetNewOpenConnectionAsfinag() + Using cmd As New SqlCommand("Select * FROM TTRTrailer WHERE PKFileName=@PKFileName AND filenumber = @filenumber ", conn) + cmd.Parameters.AddWithValue("@PKFileName", PKFileName) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + For Each li In getParameterList() + Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable) + + If dr.Item(li.Text) Is DBNull.Value Then + propInfo.SetValue(Me, Nothing) + Else + propInfo.SetValue(Me, dr.Item(li.Text)) + End If + + Next + hasEntry = True + End If + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler In der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End Sub + + + + Public Function getUpdateCmd() As String + Try + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + + Dim str As String = "" + For Each i In list + If Not i.isPrimaryParam Then + str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & "," + End If + Next + str = str.Substring(0, str.Length - 1) 'wg. ',' + Return (" UPDATE [TTRTrailer] SET " & str & " WHERE PKFileName=@PKFileName AND filenumber = @filenumbere ") + + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + + + Public Function getInsertCmd() As String + Try + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + Dim str As String = "" + Dim values As String = "" + For Each i In list + If Not i.isPrimaryParam Then + str &= "[" & i.Text & "]," + values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & "," + End If + Next + str = str.Substring(0, str.Length - 1) 'wg. ',' + values = values.Substring(0, values.Length - 1) 'wg. ',' + Return (" INSERT INTO TTRTrailer (" & str & ") VALUES(" & values & ") ") + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + + + + End Class + + Public Class Paramter + Shared SQL As New VERAG_PROG_ALLGEMEIN.SQL + + Shared Function GET_PARAM_ByName(tcParam_name, TESTSYSTEM) As String + Return SQL.getValueTxtBySql("SELECT TOP 1 [Param_value] FROM [tblPartnersystem_Paramter] WHERE Param_system='ASFINAG' AND [Param_name]='" & tcParam_name & "'", , , SQL.GetNewOpenConnectionFMZOLL_SYSTEM(TESTSYSTEM)) + End Function + End Class + +End Class diff --git a/initATLASAufschubkonten/frmAsfinag_NachrichtenVerarbeitung.Designer.vb b/initATLASAufschubkonten/frmAsfinag_NachrichtenVerarbeitung.Designer.vb new file mode 100644 index 0000000..f5dc429 --- /dev/null +++ b/initATLASAufschubkonten/frmAsfinag_NachrichtenVerarbeitung.Designer.vb @@ -0,0 +1,260 @@ + +Partial Class frmAsfinag_NachrichtenVerabeitung + Inherits System.Windows.Forms.Form + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. + 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmTRNCTS_NachrichtenVerarbeitung)) + Me.btn = New System.Windows.Forms.Button() + Me.pnl = New System.Windows.Forms.Panel() + Me.lblDatenCnt = New System.Windows.Forms.Label() + Me.dgvEinarbeitung = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) + Me.clmnArt = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.Column1 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.Label9 = New System.Windows.Forms.Label() + Me.Button2 = New System.Windows.Forms.Button() + Me.Label7 = New System.Windows.Forms.Label() + Me.ListBox3 = New System.Windows.Forms.ListBox() + Me.Label6 = New System.Windows.Forms.Label() + Me.Label5 = New System.Windows.Forms.Label() + Me.Button1 = New System.Windows.Forms.Button() + Me.btnOK = New System.Windows.Forms.Button() + Me.Label2 = New System.Windows.Forms.Label() + Me.Label1 = New System.Windows.Forms.Label() + Me.pnl.SuspendLayout() + CType(Me.dgvEinarbeitung, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'btn + ' + Me.btn.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btn.BackColor = System.Drawing.Color.Red + Me.btn.FlatAppearance.BorderColor = System.Drawing.Color.Gray + Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btn.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btn.ForeColor = System.Drawing.Color.White + Me.btn.Location = New System.Drawing.Point(379, -1) + Me.btn.Margin = New System.Windows.Forms.Padding(0) + Me.btn.Name = "btn" + Me.btn.Size = New System.Drawing.Size(75, 22) + Me.btn.TabIndex = 6 + Me.btn.Text = "X" + Me.btn.UseVisualStyleBackColor = False + ' + 'pnl + ' + Me.pnl.BackColor = System.Drawing.Color.White + Me.pnl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnl.Controls.Add(Me.lblDatenCnt) + Me.pnl.Controls.Add(Me.dgvEinarbeitung) + Me.pnl.Controls.Add(Me.Label9) + Me.pnl.Controls.Add(Me.Button2) + Me.pnl.Controls.Add(Me.Label7) + Me.pnl.Controls.Add(Me.ListBox3) + Me.pnl.Controls.Add(Me.Label6) + Me.pnl.Controls.Add(Me.Label5) + Me.pnl.Controls.Add(Me.Button1) + Me.pnl.Controls.Add(Me.btnOK) + Me.pnl.Controls.Add(Me.Label2) + Me.pnl.Controls.Add(Me.Label1) + Me.pnl.Controls.Add(Me.btn) + Me.pnl.Dock = System.Windows.Forms.DockStyle.Fill + Me.pnl.Location = New System.Drawing.Point(0, 0) + Me.pnl.Name = "pnl" + Me.pnl.Size = New System.Drawing.Size(456, 319) + Me.pnl.TabIndex = 1 + ' + 'lblDatenCnt + ' + Me.lblDatenCnt.AutoSize = True + Me.lblDatenCnt.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblDatenCnt.Location = New System.Drawing.Point(309, 132) + Me.lblDatenCnt.Name = "lblDatenCnt" + Me.lblDatenCnt.Size = New System.Drawing.Size(13, 13) + Me.lblDatenCnt.TabIndex = 19 + Me.lblDatenCnt.Text = "0" + Me.lblDatenCnt.Visible = False + ' + 'dgvEinarbeitung + ' + Me.dgvEinarbeitung.AKTUALISIERUNGS_INTERVALL = -1 + Me.dgvEinarbeitung.AllowUserToAddRows = False + Me.dgvEinarbeitung.AllowUserToDeleteRows = False + Me.dgvEinarbeitung.AllowUserToOrderColumns = True + Me.dgvEinarbeitung.AllowUserToResizeColumns = False + Me.dgvEinarbeitung.AllowUserToResizeRows = False + Me.dgvEinarbeitung.BackgroundColor = System.Drawing.Color.White + Me.dgvEinarbeitung.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.dgvEinarbeitung.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.clmnArt, Me.Column1}) + Me.dgvEinarbeitung.Location = New System.Drawing.Point(12, 164) + Me.dgvEinarbeitung.Name = "dgvEinarbeitung" + Me.dgvEinarbeitung.RowHeadersVisible = False + Me.dgvEinarbeitung.Size = New System.Drawing.Size(291, 145) + Me.dgvEinarbeitung.TabIndex = 18 + ' + 'clmnArt + ' + Me.clmnArt.HeaderText = "Art" + Me.clmnArt.Name = "clmnArt" + Me.clmnArt.Width = 150 + ' + 'Column1 + ' + Me.Column1.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill + Me.Column1.HeaderText = "BezugsNr" + Me.Column1.Name = "Column1" + ' + 'Label9 + ' + Me.Label9.AutoSize = True + Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label9.Location = New System.Drawing.Point(306, 103) + Me.Label9.Name = "Label9" + Me.Label9.Size = New System.Drawing.Size(44, 13) + Me.Label9.TabIndex = 17 + Me.Label9.Text = "läuft..." + Me.Label9.Visible = False + ' + 'Button2 + ' + Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button2.Location = New System.Drawing.Point(309, 50) + Me.Button2.Name = "Button2" + Me.Button2.Size = New System.Drawing.Size(141, 50) + Me.Button2.TabIndex = 16 + Me.Button2.Text = "Einlesen" + Me.Button2.UseVisualStyleBackColor = True + ' + 'Label7 + ' + Me.Label7.AutoSize = True + Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label7.Location = New System.Drawing.Point(8, 34) + Me.Label7.Name = "Label7" + Me.Label7.Size = New System.Drawing.Size(90, 13) + Me.Label7.TabIndex = 13 + Me.Label7.Text = "Daten sichern:" + ' + 'ListBox3 + ' + Me.ListBox3.FormattingEnabled = True + Me.ListBox3.Location = New System.Drawing.Point(11, 50) + Me.ListBox3.Name = "ListBox3" + Me.ListBox3.Size = New System.Drawing.Size(292, 95) + Me.ListBox3.TabIndex = 12 + ' + 'Label6 + ' + Me.Label6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label6.Location = New System.Drawing.Point(306, 240) + Me.Label6.Name = "Label6" + Me.Label6.Size = New System.Drawing.Size(144, 37) + Me.Label6.TabIndex = 11 + Me.Label6.Text = "0 Datensätze nicht " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "erkannt." + Me.Label6.Visible = False + ' + 'Label5 + ' + Me.Label5.AutoSize = True + Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label5.Location = New System.Drawing.Point(306, 217) + Me.Label5.Name = "Label5" + Me.Label5.Size = New System.Drawing.Size(44, 13) + Me.Label5.TabIndex = 10 + Me.Label5.Text = "läuft..." + Me.Label5.Visible = False + ' + 'Button1 + ' + Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button1.Location = New System.Drawing.Point(309, 164) + Me.Button1.Name = "Button1" + Me.Button1.Size = New System.Drawing.Size(141, 50) + Me.Button1.TabIndex = 9 + Me.Button1.Text = "Einarbeiten" + Me.Button1.UseVisualStyleBackColor = True + ' + 'btnOK + ' + Me.btnOK.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnOK.Location = New System.Drawing.Point(309, 280) + Me.btnOK.Name = "btnOK" + Me.btnOK.Size = New System.Drawing.Size(141, 29) + Me.btnOK.TabIndex = 9 + Me.btnOK.Text = "Schließen" + Me.btnOK.UseVisualStyleBackColor = True + Me.btnOK.Visible = False + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label2.Location = New System.Drawing.Point(8, 8) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(222, 13) + Me.Label2.TabIndex = 8 + Me.Label2.Text = "Einarbeitung der Nachrichtendaten von MAVI" + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label1.Location = New System.Drawing.Point(8, 148) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(82, 13) + Me.Label1.TabIndex = 8 + Me.Label1.Text = "Einarbeitung:" + ' + 'frmTRNCTS_NachrichtenVerarbeitung + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(456, 319) + Me.Controls.Add(Me.pnl) + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None + Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) + Me.Name = "frmTRNCTS_NachrichtenVerarbeitung" + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "DY NachrichtenVerarbeitung" + Me.pnl.ResumeLayout(False) + Me.pnl.PerformLayout() + CType(Me.dgvEinarbeitung, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + + End Sub + Friend WithEvents btn As System.Windows.Forms.Button + Friend WithEvents pnl As System.Windows.Forms.Panel + Friend WithEvents Label2 As System.Windows.Forms.Label + Friend WithEvents Label1 As System.Windows.Forms.Label + Friend WithEvents Button1 As System.Windows.Forms.Button + Friend WithEvents btnOK As System.Windows.Forms.Button + Friend WithEvents Label5 As System.Windows.Forms.Label + Friend WithEvents Label6 As System.Windows.Forms.Label + Friend WithEvents Label7 As System.Windows.Forms.Label + Friend WithEvents ListBox3 As System.Windows.Forms.ListBox + Friend WithEvents Label9 As System.Windows.Forms.Label + Friend WithEvents Button2 As System.Windows.Forms.Button + Friend WithEvents dgvEinarbeitung As VERAG_PROG_ALLGEMEIN.MyDatagridview + Friend WithEvents clmnArt As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents Column1 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents lblDatenCnt As Label +End Class diff --git a/initATLASAufschubkonten/frmAsfinag_NachrichtenVerarbeitung.resx b/initATLASAufschubkonten/frmAsfinag_NachrichtenVerarbeitung.resx new file mode 100644 index 0000000..25e30ca --- /dev/null +++ b/initATLASAufschubkonten/frmAsfinag_NachrichtenVerarbeitung.resx @@ -0,0 +1,986 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + True + + + True + + + + + AAABAAEAgIAAAAEAGAAoyAAAFgAAACgAAACAAAAAAAEAAAEAGAAAAAAAAMgAAMQOAADEDgAAAAAAAAAA + AACRbEd5TB+CWC59USZ8USV9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ8USV9USaCWC55TB+RbEd4Sx5mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB4Sx5/VClmMwBuPg5r + OglrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOgluPg5mMwB/VCl0RhhmMwBmMwBnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFmMwBmMwB0RhhzRBVmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBz + RBV3Sh1mMwBnNQJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBnNQJmMwB3Sh18UCRmMwBqOQdnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFqOQdmMwB8UCR9USZmMwBrOQhn + NAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9 + USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwDm4N3///////// + ///////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////// + //////////////////////////////////////////////90SSZmMwBmMwBmMwBmMwBmMwB0SSb39fT/ + //////////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////////+YfWtmMwBmMwBm + MwBmMwB0SSbu6+n////////////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT///// + ///////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5zUy8X////////////////L + v7itmo1mMwBmMwCYfWv///////90SSZmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn + NAFmMwBmMwBmMwB0SSb////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDu6+n///////////////////////////////////////////////////////////+j + jH1mMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwC3p5z/ + ///////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwCYfWv////////////////Bs6pmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwB0SSb///////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCt + mo3////////////////////////////////////m4N2Mbli3p5z///////+jjH1mMwBmMwBmMwBmMwBm + MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwCMblj///////////////////////////+M + blhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////////////////// + ///////////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////+3 + p5xmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwDU + y8X///////////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////90SSZm + MwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j////////////////////////////////////////////39fTm + 4N3///////+3p5xmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwC3 + p5z////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3 + p5z////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwCjjH3////////////////Lv7hmMwBmMwBmMwBmMwBmMwCAXUL///////////////////90 + SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL39fT////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBm + MwC3p5z////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z////////////////////U + y8WAXUJmMwBmMwC3p5z39fT////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9 + USZ9USZmMwBrOQhnNAFmMwBmMwBmMwDBs6r////////////////u6+n///////////+tmo1mMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////////////////90SSZmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj////////////////m4N1mMwBmMwBmMwBm + MwBmMwC3p5z////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////// + ///////////////////////////////////////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBm + MwBmMwD39fT////////////////Lv7hmMwBmMwBmMwBmMwBmMwCAXULu6+n////////////////39fRm + MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwDm4N3///////////// + //+jjH3////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb///////////// + //////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD3 + 9fT///////////////90SSZmMwBmMwBmMwBmMwDm4N3///////////////+jjH1mMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDu6+n///////////////////////////////////////////////////// + //////+3p5xmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////////////+MblhmMwBmMwBmMwBmMwBm + MwBmMwCMblj///////////////////90SSZmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn + NAFmMwBmMwBmMwD39fT///////////////9mMwDLv7j///////////+3p5xmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwDm4N3////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////+YfWtmMwBmMwBmMwCAXUL///////// + ///////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////// + //////////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwC3p5z///////// + //////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////+jjH1mMwBmMwBmMwBm + MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwCMblj////////////////m4N1mMwCAXUL39fT/ + ///////39fSAXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////Uy8VmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////////// + ///////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwDUy8X////////////u6+lmMwBmMwBmMwBmMwCMblj///////////////////90SSZmMwBm + MwBmMwBmMwBmMwBmMwC3p5z///////////////////9mMwBmMwBmMwB0SSb///////////////////// + //////////////+3p5xmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwCjjH3/ + ///////////////Uy8VmMwBmMwC3p5z////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwC3p5z////////////////////////////////////////////////////m4N1mMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwCjjH3////////////////////////////////////////////////////////////d + 1tGMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////+tmo1mMwBmMwBmMwCt + mo3////////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////////////////90SSZm + MwBmMwBmMwDm4N3////////////////////////////////Uy8VmMwBmMwBmMwBmMwBnNAFrOQhmMwB9 + USZ9USZmMwBrOQhnNAFmMwBmMwC3p5z///////////////+3p5xmMwBmMwB0SSb39fT///////////+Y + fWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////////////////////////////////////// + //////////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb///////////////////////////// + //////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3 + p5z////////////39fR0SSZmMwBmMwDBs6r////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBm + MwCjjH3///////////////////+jjH1mMwBmMwBmMwDBs6r////////////////////////////////3 + 9fRmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwDUy8X///////////////+t + mo1mMwBmMwBmMwCtmo3////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT///// + //////////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwDu6+n///////////////90SSZmMwBmMwBmMwBmMwBmMwCjjH3m4N3////////////////39fR0SSZm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///////////+3p5xmMwBmMwDUy8X///////////// + //+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb////////////////////Bs6pmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn + NAFmMwBmMwDu6+n///////////////+MblhmMwBmMwBmMwBmMwDu6+n///////////+tmo1mMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////+YfWtmMwBmMwBmMwBmMwBmMwBm + MwB0SSbu6+n///////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////// + ///39fSAXUJmMwD39fT///////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///// + ///////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////Uy8W3p5y3p5yYfWtmMwBmMwBm + MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwB0SSb///////////////////90SSZmMwBmMwBmMwBm + MwCtmo3////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////m4N1m + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////// + //////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j////////////////Bs6pmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDUy8X////////////Lv7h0SSb///////////////////90SSZmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwDu + 6+n///////////////+jjH1mMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwCYfWv///// + ///////////u6+lmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////+3p5xmMwBmMwBmMwBmMwBmMwBm + MwBmMwCjjH3///////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwCYfWv////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///// + //////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////+tmo3/ + ///////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////// + //+YfWtmMwBmMwBmMwBmMwBmMwCtmo3////////////////u6+lmMwBmMwBmMwBmMwBnNAFrOQhmMwB9 + USZ9USZmMwBrOQhnNAFmMwC3p5z////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwCYfWv///// + //////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////////+MblhmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb////////////////u6+lmMwBm + MwBmMwBmMwBmMwCAXULLv7j///////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwC3p5z////////////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDd1tH///////////////////+3p5x0SSZmMwBmMwC3p5z///////////////////+t + mo1mMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwDLv7j////////////////Bs6pm + MwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT/ + //////////////////////////////////////////////////////////90SSZmMwBmMwBmMwBmMwBm + MwBmMwDm4N3////////////////////////////////////////////////////////////Bs6pmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///////////////////////////+3 + p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////////////// + ///////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn + NAFmMwDm4N3///////////////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////+Y + fWtmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////////////////////////////////////// + //////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwDLv7j///////////////////////////////////// + ///////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCj + jH3///////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwCtmo339fT///////////////////////////////////////+tmo1mMwBmMwBmMwBmMwBmMwBm + MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAF0SSb///////////////////+MblhmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDLv7j////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwC3p5z///////////////// + //////////////////////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwC3p5z///// + ///////////////////////////////////////m4N23p5yMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////////////////9mMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH23p5z39fT////////////////Uy8W3 + p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9 + USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn + NAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9 + USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ8UCRmMwBqOQdn + NAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBnNAFqOQdmMwB8UCR3Sh1mMwBnNQJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNQJmMwB3Sh1zRBVmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBz + RBV0RhhmMwBmMwBnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFmMwBmMwB0Rhh/VClmMwBuPg5rOglrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOgluPg5mMwB/VCl4Sx5mMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwB4Sx6RbEd5TB+CWC59USZ8USV9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ8USV9USaCWC55TB+RbEf///////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////////////////p6ferq+Kr + q+Krq+Krq+Krq+Krq+LFxer///////////////////////////////////////////////////////// + //////////+4uOarq+Krq+Krq+Krq+Krq+Ld3fP///////////////////////////////////////// + //////////////////////////////+4uOarq+Krq+Krq+Krq+Krq+Ld3fP///////////////////// + //////////////////////+rq+Krq+Krq+Krq+Krq+Krq+Krq+Krq+Krq+Krq+Krq+Krq+Krq+Krq+Kr + q+Krq+K4uOb////////////////////////////////Fxeqrq+Krq+Krq+Krq+Krq+Krq+Lp6ff///// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////d3fMDA70DA70DA70DA70DA70DA71ZWcv///////////////////////// + ///////////////////////////////R0e9sbNADA70DA70DA70DA70DA70DA70DA70DA70DA72dnd30 + 9Pv////////////////////////////////////////////////R0e9sbNADA70DA70DA70DA70DA70D + A70DA70DA70DA72dnd309Pv///////////////////////////////8pKcIDA70DA70DA70DA70DA70D + A70DA70DA70DA70DA70DA70DA70DA70DA70DA70pKcL///////////////////+4uOZsbNADA70DA70D + A70DA70DA70DA70DA70DA70DA70DA72dnd3p6ff///////////////////////////////////////// + //////////////////////////////////////////////////////////8pKcIDA70DA70DA70DA70D + A70DA73///////////////////////////////////////////////////+dnd0DA70DA70DA70DA70D + A70DA70DA70DA70DA70DA70DA70DA70DA724uOb///////////////////////////////////////+d + nd0DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA724uOb///////////////////// + //////9ZWcsDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA7309Pv/ + ///////p6fdZWcsDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA72rq+L///// + //////////////////////////////////////////////////////////////////////////////// + //////////9sbNADA70DA70DA70DA70DA70DA73d3fP///////////////////////////////////// + //////9+ftQDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA72rq+L///// + //////////////////////////9+ftQDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70D + A70DA70DA72rq+L///////////////////////+OjtkDA70DA70DA70DA70DA70DA70DA70DA70DA70D + A70DA70DA70DA70DA70DA70DA73d3fP////p6fcpKcIDA70DA70DA70DA70DA70DA70DA70DA70DA70D + A70DA70DA70DA70DA70DA70DA72dnd3///////////////////////////////////////////////// + //////////////////////////////////////////+dnd0DA70DA70DA70DA70DA70DA73Fxer///// + //////////////////////////////////+rq+IDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70D + A70DA70DA70DA70DA70DA70DA72rq+L///////////////////////+rq+IDA70DA70DA70DA70DA70D + A70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA72rq+L///////////////////+rq+IDA70D + A70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA724uOb///9ZWcsDA70DA70D + A70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA73Fxer///////////// + //////////////////////////////////////////////////////////////////////////+rq+ID + A70DA70DA70DA70DA70DA72dnd3////////////////////////////////////p6fcDA70DA70DA70D + A70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA73d3fP///////////// + ///p6fcDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70D + A73d3fP////////////////R0e8DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70D + A70DA70DA72rq+K4uOYDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70D + A70DA70DA70DA71ZWcv///////////////////////////////////////////////////////////// + ///////////////////////////d3fMDA70DA70DA70DA70DA70DA71+ftT///////////////////// + //////////////+rq+IDA70DA70DA70DA70DA70DA70DA72dnd309Pv////R0e9+ftQDA70DA70DA70D + A70DA70DA70DA71sbND///////////////+rq+IDA70DA70DA70DA70DA70DA70DA72dnd309Pv////R + 0e9+ftQDA70DA70DA70DA70DA70DA70DA71sbND////////////////09PsDA70DA70DA70DA70DA70D + A71ZWcv///////////////////////////////////////9sbNADA70DA70DA70DA70DA70DA70DA72d + nd3d3fP////////d3fN+ftQDA70DA70DA70DA70DA70DA70DA73d3fP///////////////////////// + ///////////////////////////////////////////////////////////09PsDA70DA70DA70DA70D + A70DA71ERMf///////////////////////////////////9ZWcsDA70DA70DA70DA70DA70DA72rq+L/ + //////////////////+dnd0DA70DA70DA70DA70DA70DA70DA73Fxer///////////9ZWcsDA70DA70D + A70DA70DA70DA72rq+L///////////////////+dnd0DA70DA70DA70DA70DA70DA70DA73Fxer///// + //////////8pKcIDA70DA70DA70DA70DA70DA73////////////////////////////////////09PsD + A70DA70DA70DA70DA70DA70DA73d3fP///////////////////////9sbNADA70DA70DA70DA70DA70D + A73Fxer///////////////////////////////////////////////////////////////////////// + //////////////9ZWcsDA70DA70DA70DA70DA70DA7309Pv////////////////////////////09PsD + A70DA70DA70DA70DA70DA71ERMf///////////////////////////9ZWcsDA70DA70DA70DA70DA70D + A71sbND////////09PsDA70DA70DA70DA70DA70DA71ERMf///////////////////////////9ZWcsD + A70DA70DA70DA70DA70DA71sbND///////////////9+ftQDA70DA70DA70DA70DA70DA73d3fP///// + ///////////////////////////09Purq+Krq+Krq+JsbNADA70DA72Ojtn///////////////////// + //////9ZWcsDA70DA70DA70DA70DA70DA724uOb///////////////////////////////////////// + //////////////////////////////////////////////9+ftQDA70DA70DA70DA70DA70DA73R0e// + ///////////////////////////d3fMDA70DA70DA70DA70DA70DA71+ftT///////////////////// + //////+4uOYDA70DA70DA70DA70DA70DA70DA7309Pv////d3fMDA70DA70DA70DA70DA70DA71+ftT/ + //////////////////////////+4uOYDA70DA70DA70DA70DA70DA70DA7309Pv///////////+dnd0D + A70DA70DA70DA70DA70DA73Fxer///////////////////////////////////////////////////// + ///////////////////////////d3fOrq+IpKcIDA70DA70DA70DA70DA70DA70DA73Fxer///////// + //////////////////////////////////////////////////////////////////////////////+r + q+IDA70DA70DA70DA70DA70DA72rq+L////////////////////////////R0e8DA70DA70DA70DA70D + A70DA72Ojtn///////////////////////////////8pKcIDA70DA70DA70DA70DA70DA73Fxer////R + 0e8DA70DA70DA70DA70DA70DA72Ojtn///////////////////////////////8pKcIDA70DA70DA70D + A70DA70DA73Fxer///////////+4uOYDA70DA70DA70DA70DA70DA72rq+L///////////////////// + //////////////////////////////////////////////+4uOarq+IDA70DA70DA70DA70DA70DA70D + A70DA70DA70DA70DA7309Pv///////////////////////////////////////////////////////// + ///////////////////////////////FxeoDA70DA70DA70DA70DA70DA72dnd3///////////////// + ///////////R0e8DA70DA70DA70DA70DA70DA72Ojtn///////////////////////////////9+ftQD + A70DA70DA70DA70DA70DA72rq+L////R0e8DA70DA70DA70DA70DA70DA72Ojtn///////////////// + //////////////9+ftQDA70DA70DA70DA70DA70DA72rq+L////////////d3fMDA70DA70DA70DA70D + A70DA71+ftT////////////////////////////////////////////////////////p6fednd0DA70D + A70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA71sbND///////////////////////////// + ///////////////////////////////////////////////////////////////p6fcDA70DA70DA70D + A70DA70DA71ZWcv////////////////////////////p6fcDA70DA70DA70DA70DA70DA71ZWcv///// + //////////////////////////+rq+IDA70DA70DA70DA70DA70DA72Ojtn////p6fcDA70DA70DA70D + A70DA70DA71ZWcv///////////////////////////////+rq+IDA70DA70DA70DA70DA70DA72Ojtn/ + ///////////09PsDA70DA70DA70DA70DA70DA71ERMf///////////////////////////////////// + ///////////////FxeoDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70pKcLp + 6ff///////////////////////////////////////////////////////////////////////////// + //////////////////8pKcIDA70DA70DA70DA70DA70pKcL////////////////////////////09PsD + A70DA70DA70DA70DA70DA70pKcL////////////////////////////////d3fMDA70DA70DA70DA70D + A70DA71sbND////09PsDA70DA70DA70DA70DA70DA70pKcL////////////////////////////////d + 3fMDA70DA70DA70DA70DA70DA71sbND///////////////9ZWcsDA70DA70DA70DA70DA70DA7309Pv/ + ///////////////////////////////////////////FxeoDA70DA70DA70DA70DA70DA70DA70DA70D + A70DA70DA70DA70DA70DA71ERMfd3fP///////////////////////////////////////////////// + //////////////////////////////////////////////////9ZWcsDA70DA70DA70DA70DA70DA73d + 3fP///////////////////////////8pKcIDA70DA70DA70DA70DA70DA73R0e////////////////// + ///////////p6fcDA70DA70DA70DA70DA70DA71sbND///////8pKcIDA70DA70DA70DA70DA70DA73R + 0e/////////////////////////////p6fcDA70DA70DA70DA70DA70DA71sbND///////////////9+ + ftQDA70DA70DA70DA70DA70DA73d3fP////////////////////////////////////////09PspKcID + A70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA71ZWcurq+L///////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //+dnd0DA70DA70DA70DA70DA70DA73Fxer///////////////////////////9+ftQDA70DA70DA70D + A70DA70DA72Ojtn////////////////////////////p6fcDA70DA70DA70DA70DA70DA71+ftT///// + //9+ftQDA70DA70DA70DA70DA70DA72Ojtn////////////////////////////p6fcDA70DA70DA70D + A70DA70DA71+ftT///////////////+rq+IDA70DA70DA70DA70DA70DA724uOb///////////////// + ///////////////////////FxeoDA70DA70DA70DA70DA70DA70DA70DA70DA70DA71sbNCrq+Lp6ff/ + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////+rq+IDA70DA70DA70DA70DA70DA72rq+L///////////// + ///////////////FxeoDA70DA70DA70DA70DA70DA70DA73p6ff////////////////////////FxeoD + A70DA70DA70DA70DA70DA72Ojtn////////FxeoDA70DA70DA70DA70DA70DA70DA73p6ff///////// + ///////////////FxeoDA70DA70DA70DA70DA70DA72Ojtn////////////////FxeoDA70DA70DA70D + A70DA70DA72dnd3///////////////////////////////////////+rq+IDA70DA70DA70DA70DA70D + A70DA72Ojtm4uOb///////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////////////d3fMDA70DA70D + A70DA70DA70DA71+ftT///////////////////////////////8pKcIDA70DA70DA70DA70DA70DA71+ + ftT///////////////////////+OjtkDA70DA70DA70DA70DA70DA72rq+L///////////8pKcIDA70D + A70DA70DA70DA70DA71+ftT///////////////////////+OjtkDA70DA70DA70DA70DA70DA72rq+L/ + ///////////////d3fMDA70DA70DA70DA70DA70DA71sbND///////////////////////////////// + //////+rq+IDA70DA70DA70DA70DA70DA73d3fP////////////////////p6ferq+Krq+L09Pv///// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////09PsDA70DA70DA70DA70DA70DA71ERMf///////////////////////////// + //+rq+IDA70DA70DA70DA70DA70DA70DA71+ftT///////////////+4uOYDA70DA70DA70DA70DA70D + A70DA73d3fP///////////+rq+IDA70DA70DA70DA70DA70DA70DA71+ftT///////////////+4uOYD + A70DA70DA70DA70DA70DA70DA73d3fP///////////////////8pKcIDA70DA70DA70DA70DA70pKcL/ + //////////////////////////////////////+rq+IDA70DA70DA70DA70DA70DA724uOb///////// + ///////09PtZWcsDA70DA70DA70DA71sbNCrq+L09Pv///////////////////////////////////// + ///////////////////////////09Purq+Krq+Krq+Krq+Krq+Krq+IpKcIDA70DA70DA70DA70DA70D + A72rq+Krq+Krq+Krq+Krq+Krq+LR0e////////9ERMcDA70DA70DA70DA70DA70DA70DA70DA72rq+Kr + q+JZWcsDA70DA70DA70DA70DA70DA70DA71ZWcv///////////////////9ERMcDA70DA70DA70DA70D + A70DA70DA70DA72rq+Krq+JZWcsDA70DA70DA70DA70DA70DA70DA71ZWcv///////////////////// + //9ZWcsDA70DA70DA70DA70DA70DA7309Pv////////////////////////////////////R0e8DA70D + A70DA70DA70DA70DA70DA71ZWcurq+Krq+J+ftQDA70DA70DA70DA70DA70DA70DA70pKcL09Pv///// + ///////////////////////////////////////////////////////////09PsDA70DA70DA70DA70D + A70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA72Ojtn////////d3fMDA70D + A70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA73R0e////////// + ///////////d3fMDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70D + A70DA73R0e////////////////////////+OjtkDA70DA70DA70DA70DA70DA73R0e////////////// + //////////////////////////9ERMcDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70D + A70DA70DA70DA70DA72rq+L///////////////////////////////////////////////////////// + //////////////8pKcIDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70D + A70DA70DA71ZWcv///////////+4uOYDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70D + A70DA70DA70DA72dnd3///////////////////////////+4uOYDA70DA70DA70DA70DA70DA70DA70D + A70DA70DA70DA70DA70DA70DA70DA70DA72dnd3///////////////////////////+rq+IDA70DA70D + A70DA70DA70DA72rq+L////////////////////////////////////////d3fMDA70DA70DA70DA70D + A70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA71ZWcv///////////////////////////// + //////////////////////////////////////////////9sbNADA70DA70DA70DA70DA70DA70DA70D + A70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70pKcL///////////////+4uOYDA70DA70DA70D + A70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA71+ftT///////////////////////////////// + //+4uOYDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA71+ftT///////////// + ///////////////////R0e8DA70DA70DA70DA70DA70DA72Ojtn///////////////////////////// + //////////////+4uOYDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA71ZWcvp + 6ff///////////////////////////////////////////////////////////////////////////+d + nd0DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA73p + 6ff////////////////d3fNZWcsDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA724uOb///// + ///////////////////////////////////////d3fNZWcsDA70DA70DA70DA70DA70DA70DA70DA70D + A70DA70DA724uOb////////////////////////////////////09PsDA70DA70DA70DA70DA70DA71Z + Wcv////////////////////////////////////////////////R0e9ERMcDA70DA70DA70DA70DA70D + A70DA70DA70DA70DA70DA72Ojtn///////////////////////////////////////////////////// + //////////////////////////////+rq+IDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70D + A70DA70DA70DA70DA70DA70DA70DA73R0e/////////////////////////R0e+rq+IpKcIDA70DA70D + A70DA70DA72Ojtmrq+L////////////////////////////////////////////////////////////R + 0e+rq+IpKcIDA70DA70DA70DA70DA72Ojtmrq+L///////////////////////////////////////// + //////8pKcIDA70DA70DA70DA70DA70DA73///////////////////////////////////////////// + //////////+4uOarq+IDA70DA70DA70DA70DA70DA71+ftSrq+L09Pv///////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA== + + + \ No newline at end of file diff --git a/initATLASAufschubkonten/frmAsfinag_NachrichtenVerarbeitung.vb b/initATLASAufschubkonten/frmAsfinag_NachrichtenVerarbeitung.vb new file mode 100644 index 0000000..1c671a2 --- /dev/null +++ b/initATLASAufschubkonten/frmAsfinag_NachrichtenVerarbeitung.vb @@ -0,0 +1,565 @@ +Imports System.IO +Imports System.Globalization +Imports System.Xml +Imports Renci.SshNet +Imports System.Net +Imports System.Text + +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 ASFINAG_PFAD = "" '"C:\Users\DEVELOPER1\Desktop\test\TEST\Nachrichtendaten_Einarbeitung\" + Dim VERARBEITUNGS_PFAD = "" '"C:\Users\DEVELOPER1\Desktop\test\TEST\Nachrichtendaten_Einarbeitung\" + Dim ZIEL_PFAD = "" '"C:\Users\DEVELOPER1\Desktop\test\TEST\Nachrichtendaten_Ablage\" + Dim ERROR_PFAD = "" '"C:\Users\DEVELOPER1\Desktop\test\TEST\Nachrichtendaten_ERROR\" + Dim PARTNERSYSTEM = "ASFINAG" + Dim SERVER_Path = "" + Dim SERVER_Path_TEST = "" + ' Dim BOX_VERSION = "8.8" + + Dim Dateiname = "" + + Sub New() + + ' Dieser Aufruf ist für den Designer erforderlich. + InitializeComponent() + + ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. + + End Sub + Sub New(allowClose) 'autostart + + ' Dieser Aufruf ist für den Designer erforderlich. + InitializeComponent() + Me.allowClose = allowClose + ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. + + 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.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) + Me.ERROR_PFAD = cAsfinag.Paramter.GET_PARAM_ByName("ERROR_PFAD", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM) + + If Not IO.Directory.Exists(VERARBEITUNGS_PFAD) Then IO.Directory.CreateDirectory(VERARBEITUNGS_PFAD) + If Not IO.Directory.Exists(ZIEL_PFAD) Then IO.Directory.CreateDirectory(ZIEL_PFAD) + If Not IO.Directory.Exists(ERROR_PFAD) Then IO.Directory.CreateDirectory(ERROR_PFAD) + + 'Me.BOX_VERSION = NCTSTR_Worker.cDY_Paramter.GET_PARAM_ByName("BOX_VERSION", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM) + + End Sub + + + Private Sub frmDYNachrichtenVerarbeitung_Load(sender As Object, e As EventArgs) Handles Me.Load + initPfade() + For Each d In System.IO.Directory.GetFiles(VERARBEITUNGS_PFAD) + ListBox3.Items.Add(frmStartOptions.cut_file(d)) + Me.Refresh() + Next + End Sub + + Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click + Me.Enabled = False + Try + Label9.Visible = True + Dim cnt = getNachrichtenDatenFromAsfinagServices() + Label9.Text = cnt & " Datensätze empfangen." + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + Me.Enabled = True + + End Sub + Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click + Me.Enabled = False + Try + Label5.Visible = True + + DatenEinlesen() '<<<<------------ + + If dsNichtErkannt > 0 Then + + Label6.Text = dsNichtErkannt & " Datensätze nicht " & vbNewLine & "erkannt." + Label6.Visible = True + End If + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + Me.Enabled = True + Label5.Text = cntDatenEingelesen & " Datensätze verarbeitet." + + End Sub + + + Function getNachrichtenDatenFromAsfinagServices() As Integer + Dim cnt = 0 + Try + Dim SERVER_Path = "" + + If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then + + SERVER_Path = Me.SERVER_Path '"\\ftps.verag.ag\FTP\MAVI\IN\" + Else + + SERVER_Path = 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) + End If + + ListBox3.Items.Add(frmStartOptions.cut_file((New FileInfo(zielPfad)).Name)) 'zur Liste hinzufügen + + 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 + + + Function getNachrichtenDatenFromMAVIServices_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() + + VERAG_PROG_ALLGEMEIN.cAllgemein.ERR_OP_GLOBAL = VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL + + If ListBox3.Items.Count = 0 Then + Label6.Text = "Keine Daten zum Einlesen vorhanden." + Label6.Visible = True + Exit Sub + End If + + + For NACHRICHTENTYP = 1 To 10 'Nach Nachrichtentyp abarbeteiten + + For Each d In System.IO.Directory.GetFiles(VERARBEITUNGS_PFAD) + Try + Dateiname = d + cWorker_NCTS.Dateiname = d + If IO.File.Exists(d) Then + Dim found = False + Dim nr_id As Integer = -1 + Dim fi As FileInfo = New FileInfo(d) + If Not fi.Name.StartsWith(".") Then + + Dim alreadyMoved = False + + Dim NACHRICHTENTYP_notfound = False + + If fi.Extension.ToLower = ".xml" Then + Dim xmlWriterSettings As XmlWriterSettings = New XmlWriterSettings With {.Encoding = System.Text.Encoding.UTF8, .CheckCharacters = True} + + Dim doc As New XmlDocument() + Dim XML_Code = System.IO.File.ReadAllText(d, System.Text.UTF8Encoding.Default) + + doc.LoadXml(SanitizeXmlString(XML_Code)) + Dim VERSION As String = "" + + '------------------------------------------------------------------------------------------------------------------------------ + ' eZOLL + '------------------------------------------------------------------------------------------------------------------------------ + + + '------------------------------------------ + '------------------ Anmeldung ------------------ + '------------------------------------------ + 'MAVI: CC015B - Versandanmeldung Final + + Select Case NACHRICHTENTYP + Case 1 + 'NCTS: Versandanmeldung + If Not found And cNCTSPartnerWorker.cMAVIGetMsgType.isTRNCTS_VersandanmeldungXML_CC015B(doc) Then + If cMAVIWorker.readNCTS_VersandanmeldungXML_CC015B(PARTNERSYSTEM, Me, doc, nr_id, d) <> "" Then found = True + End If + + Case 2 + 'NCTS: Versandanmeldung - Ergänzung GUID + If Not found And cNCTSPartnerWorker.cMAVIGetMsgType.isTRNCTS_VersandanmeldungXML_CC015B_RES(doc) Then + If cMAVIWorker.readNCTS_VersandanmeldungXML_CC015B_RES(PARTNERSYSTEM, Me, doc, nr_id) <> "" Then found = True + End If + Case 3 + 'NCTS: BestätigungZoll + If Not found And cNCTSPartnerWorker.cMAVIGetMsgType.isTRNCTS_BestaetigungZollXML_CC029B(doc) Then + If cMAVIWorker.readNCTS_BestaetigungZollXML_CC029B(PARTNERSYSTEM, Me, doc, nr_id) <> "" Then found = True + End If + Case 4 + 'NCTS: Guarantee + If Not found And cNCTSPartnerWorker.cMAVIGetMsgType.isTRNCTS_BestaetigungZollXML_GUA_INF(doc) Then + If cMAVIWorker.readNCTS_BestaetigungZollXML_GUA_INF(PARTNERSYSTEM, Me, doc, nr_id) <> "" Then found = True + End If + Case 5 + 'NCTS: Ankunftsanzeige + If Not found And cNCTSPartnerWorker.cMAVIGetMsgType.isTRNCTS_BestaetigungZollXML_ARR_INF(doc) Then + If cMAVIWorker.readNCTS_BestaetigungZollXML_ARR_INF(PARTNERSYSTEM, Me, doc, nr_id) <> "" Then found = True + End If + + Case 6 + 'NCTS: Erledigungsmitteilung + If Not found And cNCTSPartnerWorker.cMAVIGetMsgType.isTRNCTS_ErledigungsmitteilungXML_CC045A(doc) Then + If cMAVIWorker.readNCTS_ErledigungsmitteilungXML_CC045A(PARTNERSYSTEM, Me, doc, nr_id) <> "" Then found = True + End If + + Case 7 + 'NCTS: Cancellation decision CC009A + If Not found And cNCTSPartnerWorker.cMAVIGetMsgType.isTRNCTS_AbbruchXML_CC009A(doc) Then + If cMAVIWorker.readNCTS_AbbruchXML_CC009A(PARTNERSYSTEM, Me, doc, nr_id) <> "" Then found = True + End If + Case 8 + 'NCTS: Declaration rejected CC016A + If Not found And cNCTSPartnerWorker.cMAVIGetMsgType.isTRNCTS_RueckweisungXML_CC016A(doc) Then + If cMAVIWorker.readNCTS_RueckweisungXML_CC016A(PARTNERSYSTEM, Me, doc, nr_id) <> "" Then found = True + End If + Case 9 + 'NCTS: No release for transit – type B CC051B + If Not found And cNCTSPartnerWorker.cMAVIGetMsgType.isTRNCTS_KeineFreigabeXML_CC051B(doc) Then + If cMAVIWorker.readNCTS_KeineFreigabeXML_CC051B(PARTNERSYSTEM, Me, doc, nr_id) <> "" Then found = True + End If + + + Case 10 + NACHRICHTENTYP_notfound = True ' alle nciht zu verarbeitenden + End Select + End If + + + Dim destPath = "" + 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.Year & "\" & Now.ToString("yyyyMMdd") & "\", destPath) + cntDatenEingelesen += 1 + Else + If NACHRICHTENTYP_notfound Then + frmStartOptions.moveFile(d, ERROR_PFAD, destPath) ' nciht gefunden, oder durch ERROR nicht eingearbt,. + dsNichtErkannt += 1 + End If + End If + + If destPath <> "" And nr_id > 0 Then + VERAG_PROG_ALLGEMEIN.cNCTS_TR_Nachrichten.updatePath(nr_id, destPath) + End If + + Me.Refresh() + End If + End If + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + Next + + + Next + + End Sub + + + + Function getString(doc As XmlDocument) As Boolean + If doc.HasChildNodes Then + ' If doc.GetElementsByTagName("DakosyMessageInternal").Count > 0 Then + Dim sw = New StringWriter() + Dim xw = New XmlTextWriter(sw) + doc.WriteTo(xw) + Dim XmlString = sw.ToString() + End If + Return False + End Function + + + + Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles btnOK.Click + Me.Close() + End Sub + + Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click + Me.Close() + End Sub + + + + Sub addDGVEinarbeitung(art, BezugsNr) + dgvEinarbeitung.Rows.Add(art, BezugsNr) + Try + dgvEinarbeitung.FirstDisplayedScrollingRowIndex = dgvEinarbeitung.RowCount - 1 + Catch ex As Exception + End Try + End Sub + + + + + + + Function readPLOSE_Detail(d As String) As String + ' Try + ' readPLOSE_Detail = "" + ' Dim KdnR = "" + + ' Using MyReader As New Microsoft.VisualBasic.FileIO.TextFieldParser(d, Encoding.UTF8) + ' MyReader.TextFieldType = FileIO.FieldType.Delimited + ' MyReader.SetDelimiters(";") + ' Dim currentRow As String() + + ' Dim cnt = 0 + ' If True Then + + ' While Not MyReader.EndOfData + ' Try + ' currentRow = MyReader.ReadFields() + + + ' If currentRow.Length > 24 Then + ' Dim PLOSE As New cNCTSPartnerWorker.cPLOSE + + + ' PLOSE.plose_Datensatztyp = SQL.isleernothing(currentRow(0)) + ' PLOSE.plose_KodexMautTankstelle = SQL.isleernothing(currentRow(1)) + ' PLOSE.plose_BeschreibungMautTankstelle = SQL.isleernothing(currentRow(2)) + ' PLOSE.plose_KodexEinfahrt = SQL.isleernothing(currentRow(3)) + ' PLOSE.plose_BeschreibungEinfahrt = SQL.isleernothing(currentRow(4)) + ' PLOSE.plose_KodexAusfahrt = SQL.isleernothing(currentRow(5)) + ' PLOSE.plose_BeschreibungAusfahrt = SQL.isleernothing(currentRow(6)) + ' PLOSE.plose_Kartenkodex = SQL.isleernothing(currentRow(7)) + ' PLOSE.plose_Kontonummer = SQL.isleernothing(currentRow(8)) + ' PLOSE.plose_NummerKarteGeraet = SQL.isleernothing(currentRow(9)) + ' PLOSE.plose_Kennzeichen = SQL.isleernothing(currentRow(10)) + ' PLOSE.plose_InterneNrFahrzeug = SQL.isleernothing(currentRow(11)) + ' PLOSE.plose_POLSEKundennummer = SQL.isleernothing(currentRow(12)) + ' PLOSE.plose_Firmenname = SQL.isleernothing(currentRow(13)) + ' PLOSE.plose_DatumTransaktion = SQL.isleernothingDateFormatstring(currentRow(14)) + ' PLOSE.plose_Produktbeschreibung = SQL.isleernothing(currentRow(15)) + ' PLOSE.plose_Menge = SQL.isNullNothingDbl(currentRow(16)) + ' PLOSE.plose_Preis = SQL.isNullNothingDbl(currentRow(17)) + ' PLOSE.Einheitsrabatt = SQL.isleernothing(currentRow(18)) + ' PLOSE.plose_NettobetragTransaktion = SQL.isNullNothingDbl(currentRow(19)) + ' PLOSE.plose_MWSTBetrag = SQL.isNullNothingDbl(currentRow(20)) + ' PLOSE.plose_BruttobetragTransaktion = SQL.isNullNothingDbl(currentRow(21)) + ' PLOSE.plose_NettobetragWaehrungAbbuchung = SQL.isNullNothingDbl(currentRow(22)) + ' PLOSE.plose_MWSTBetragWaehrungAbbuchung = SQL.isNullNothingDbl(currentRow(23)) + ' PLOSE.plose_BruttobetragWaehrungAbbuchung = SQL.isNullNothingDbl(currentRow(24)) + ' PLOSE.plose_WaehrungLandDiesntleistung = SQL.isleernothing(currentRow(25)) + ' PLOSE.plose_WaehrungAbbuchung = SQL.isleernothing(currentRow(26)) + ' PLOSE.plose_DokumentNrQuittungUhrzeit = SQL.isleernothing(currentRow(27)) + ' PLOSE.plose_ArtTransaktion = SQL.isleernothing(currentRow(28)) + ' PLOSE.plose_Fahrzeugklasse = SQL.isleernothing(currentRow(29)) + ' PLOSE.plose_KlassenidentifikationEURO = SQL.isleernothing(currentRow(30)) + ' PLOSE.plose_ProduktbeschreibungShort = SQL.isleernothing(currentRow(31)) + ' PLOSE.plose_DokumentNrQuittungUhrzeit = SQL.isleernothing(currentRow(32)) + ' PLOSE.plose_Geraetetyp = SQL.isleernothing(currentRow(33)) + ' PLOSE.plose_ProduktCode = SQL.isleernothing(currentRow(34)) + ' PLOSE.plose_ReferenzenBuchungMaut = SQL.isleernothing(currentRow(35)) + + ' '''''''''''' + ' If PLOSE.SAVE() Then + + ' End If + + ' End If + + ' cnt += 1 + + ' 'For Each currentField In currentRow + ' 'Next + ' Catch ex As Exception + ' VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name) + ' End Try + ' End While + + + ' 'Label30.Text = (cnt + 1) & " / " & LineCount + ' 'Label31.Visible = True + ' readPLOSE_Detail = "Zeilen: " & cnt + ' Else + ' MsgBox("FEHLER beim Löschen der vorhandenen OP-Liste.") + ' End If + ' End Using + + + + + ' Try + ' ' System.IO.File.Delete(p) + ' Catch ex As Exception + ' VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name) + ' End Try + + ' addDGVEinarbeitung("PLOSE: Detail" & KdnR, readPLOSE_Detail) + + ' ' End Using + + ' 'End If + + ' Catch ex As Exception + ' VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name) + ' MsgBox(ex.StackTrace & ex.Message) + ' readPLOSE_Detail = "" + ' End Try + End Function + + + Private Sub dgvEinarbeitung_SelectionChanged(sender As Object, e As EventArgs) Handles dgvEinarbeitung.SelectionChanged + dgvEinarbeitung.ClearSelection() + + End Sub + + + + + + + Private Sub frmTCNachrichtenVerarbeitung_Shown(sender As Object, e As EventArgs) Handles Me.Shown + If allowClose Then + Me.Refresh() + + Button2.PerformClick() + Button1.PerformClick() + + System.Threading.Thread.Sleep(2000) + + Me.Close() + End If + End Sub + + Private Sub pnl_Paint(sender As Object, e As PaintEventArgs) Handles pnl.Paint + + End Sub +End Class + diff --git a/initATLASAufschubkonten/frmStartOptions.Designer.vb b/initATLASAufschubkonten/frmStartOptions.Designer.vb index 8490b88..0e14271 100644 --- a/initATLASAufschubkonten/frmStartOptions.Designer.vb +++ b/initATLASAufschubkonten/frmStartOptions.Designer.vb @@ -172,6 +172,13 @@ Partial Class frmStartOptions Me.lklAufschubkontenATLASEZOLL = New System.Windows.Forms.LinkLabel() Me.lblRoutineManager = New System.Windows.Forms.Label() Me.txtGJ_UNISPED = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.TabPage4 = New System.Windows.Forms.TabPage() + Me.LinkLabel41 = New System.Windows.Forms.LinkLabel() + Me.LinkLabel42 = New System.Windows.Forms.LinkLabel() + Me.Label23 = New System.Windows.Forms.Label() + Me.LinkLabel43 = New System.Windows.Forms.LinkLabel() + Me.LinkLabel44 = New System.Windows.Forms.LinkLabel() + Me.Label24 = New System.Windows.Forms.Label() Me.pnl.SuspendLayout() CType(Me.piceZollAnh, System.ComponentModel.ISupportInitialize).BeginInit() Me.tbcntr.SuspendLayout() @@ -197,6 +204,7 @@ Partial Class frmStartOptions CType(Me.PictureBox11, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox10, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox9, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TabPage4.SuspendLayout() Me.SuspendLayout() ' 'pnl @@ -756,6 +764,7 @@ Partial Class frmStartOptions Me.tbcntr.Controls.Add(Me.TabPage1) Me.tbcntr.Controls.Add(Me.TabPage2) Me.tbcntr.Controls.Add(Me.TabPage3) + Me.tbcntr.Controls.Add(Me.TabPage4) Me.tbcntr.Dock = System.Windows.Forms.DockStyle.Bottom Me.tbcntr.Location = New System.Drawing.Point(0, 404) Me.tbcntr.Name = "tbcntr" @@ -2101,6 +2110,84 @@ Partial Class frmStartOptions Me.txtGJ_UNISPED.Size = New System.Drawing.Size(53, 20) Me.txtGJ_UNISPED.TabIndex = 68 ' + 'TabPage4 + ' + Me.TabPage4.Controls.Add(Me.LinkLabel41) + Me.TabPage4.Controls.Add(Me.LinkLabel42) + Me.TabPage4.Controls.Add(Me.Label23) + Me.TabPage4.Controls.Add(Me.LinkLabel43) + Me.TabPage4.Controls.Add(Me.LinkLabel44) + Me.TabPage4.Controls.Add(Me.Label24) + Me.TabPage4.Location = New System.Drawing.Point(4, 22) + Me.TabPage4.Name = "TabPage4" + Me.TabPage4.Size = New System.Drawing.Size(851, 395) + Me.TabPage4.TabIndex = 3 + Me.TabPage4.Text = "Asfinag" + Me.TabPage4.UseVisualStyleBackColor = True + ' + 'LinkLabel41 + ' + Me.LinkLabel41.AutoSize = True + Me.LinkLabel41.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.LinkLabel41.Location = New System.Drawing.Point(17, 165) + Me.LinkLabel41.Name = "LinkLabel41" + Me.LinkLabel41.Size = New System.Drawing.Size(82, 13) + Me.LinkLabel41.TabIndex = 35 + Me.LinkLabel41.TabStop = True + Me.LinkLabel41.Text = "Black-List (TBL)" + ' + 'LinkLabel42 + ' + Me.LinkLabel42.AutoSize = True + Me.LinkLabel42.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.LinkLabel42.Location = New System.Drawing.Point(17, 140) + Me.LinkLabel42.Name = "LinkLabel42" + Me.LinkLabel42.Size = New System.Drawing.Size(87, 13) + Me.LinkLabel42.TabIndex = 34 + Me.LinkLabel42.TabStop = True + Me.LinkLabel42.Text = "White-List (TWL)" + ' + 'Label23 + ' + Me.Label23.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label23.Location = New System.Drawing.Point(17, 113) + Me.Label23.Name = "Label23" + Me.Label23.Size = New System.Drawing.Size(296, 16) + Me.Label23.TabIndex = 33 + Me.Label23.Text = "Export" + ' + 'LinkLabel43 + ' + Me.LinkLabel43.AutoSize = True + Me.LinkLabel43.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.LinkLabel43.Location = New System.Drawing.Point(17, 68) + Me.LinkLabel43.Name = "LinkLabel43" + Me.LinkLabel43.Size = New System.Drawing.Size(102, 13) + Me.LinkLabel43.TabIndex = 32 + Me.LinkLabel43.TabStop = True + Me.LinkLabel43.Text = "Contractdaten (CLF)" + ' + 'LinkLabel44 + ' + Me.LinkLabel44.AutoSize = True + Me.LinkLabel44.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.LinkLabel44.Location = New System.Drawing.Point(17, 43) + Me.LinkLabel44.Name = "LinkLabel44" + Me.LinkLabel44.Size = New System.Drawing.Size(126, 13) + Me.LinkLabel44.TabIndex = 31 + Me.LinkLabel44.TabStop = True + Me.LinkLabel44.Text = "Transaktionsdaten (TTR)" + ' + 'Label24 + ' + Me.Label24.AutoSize = True + Me.Label24.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label24.Location = New System.Drawing.Point(17, 16) + Me.Label24.Name = "Label24" + Me.Label24.Size = New System.Drawing.Size(42, 13) + Me.Label24.TabIndex = 30 + Me.Label24.Text = "Import" + ' 'frmStartOptions ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) @@ -2143,6 +2230,8 @@ Partial Class frmStartOptions CType(Me.PictureBox11, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBox10, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBox9, System.ComponentModel.ISupportInitialize).EndInit() + Me.TabPage4.ResumeLayout(False) + Me.TabPage4.PerformLayout() Me.ResumeLayout(False) End Sub @@ -2294,4 +2383,11 @@ Partial Class frmStartOptions Friend WithEvents LinkLabel40 As LinkLabel Friend WithEvents Label22 As Label Friend WithEvents cbxVermerk As CheckBox + Friend WithEvents TabPage4 As TabPage + Friend WithEvents LinkLabel41 As LinkLabel + Friend WithEvents LinkLabel42 As LinkLabel + Friend WithEvents Label23 As Label + Friend WithEvents LinkLabel43 As LinkLabel + Friend WithEvents LinkLabel44 As LinkLabel + Friend WithEvents Label24 As Label End Class From 6ed2f79fe0a644da586cd5d5057e6f98f9afe0ca Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Wed, 30 Aug 2023 17:19:36 +0200 Subject: [PATCH 2/6] Asfinag_Datenaustausch --- initATLASAufschubkonten/cAsfinag.vb | 151 ++-- ...sfinag_NachrichtenVerarbeitung.Designer.vb | 42 +- .../frmAsfinag_NachrichtenVerarbeitung.vb | 676 ++++++++++++------ .../frmStartOptions.Designer.vb | 176 ++--- initATLASAufschubkonten/frmStartOptions.resx | 195 ++--- initATLASAufschubkonten/frmStartOptions.vb | 23 + 6 files changed, 778 insertions(+), 485 deletions(-) diff --git a/initATLASAufschubkonten/cAsfinag.vb b/initATLASAufschubkonten/cAsfinag.vb index 9fc9cab..af620ae 100644 --- a/initATLASAufschubkonten/cAsfinag.vb +++ b/initATLASAufschubkonten/cAsfinag.vb @@ -1,5 +1,6 @@ Imports System.Data.SqlClient Imports System.Reflection +Imports System.Security.Cryptography Imports DocumentFormat.OpenXml.VariantTypes Public Class cAsfinag @@ -7,14 +8,14 @@ Public Class cAsfinag Public Class CLFHeader Property PKFileName As Object = Nothing - Property recordType As Integer + Property recordType As String Property fileVersion As Integer Property fileNumber As Integer - Property inidcator As Object = Nothing + Property indcator As Object = Nothing Property senderID As Object = Nothing Property receiverID As Object = Nothing - Property fileCreationDate As Object = Nothing - Property fileCreationTime As Object = Nothing + Property fileCreationDate As DateTime + Property fileCreationTime As DateTime Property ISOCountryCode As Object = Nothing Property creationName As Object = Nothing @@ -22,17 +23,23 @@ Public Class cAsfinag Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL - Sub New(PKFileName) + Sub New(PKFileName, fileNumber) Me.PKFileName = PKFileName + Me.fileNumber = fileNumber LOAD() End Sub + + Sub New() + + End Sub + Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) 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("fileNumber", fileNumber)) 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("inidcator", inidcator)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("fileVersion", fileVersion)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("indcator", indcator)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("senderID", senderID)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("receiverID", receiverID)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("fileCreationDate", fileCreationDate)) @@ -46,7 +53,7 @@ Public Class cAsfinag Public Function SAVE() As Boolean Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() - Dim sqlstr = " BEGIN TRAN If EXISTS(Select * FROM CLFHeader WHERE PKFileName=@PKFileName AND filenumber = @filenumber) " & + Dim sqlstr = " BEGIN TRAN If EXISTS(Select * FROM CLFHeader WHERE PKFileName=@PKFileName AND fileNumber = @fileNumber) " & " BEGIN " & getUpdateCmd() & " End " & " Else " & " BEGIN " & getInsertCmd() & " End " & @@ -59,8 +66,9 @@ Public Class cAsfinag Try hasEntry = False Using conn As SqlConnection = SQL.GetNewOpenConnectionAsfinag() - Using cmd As New SqlCommand("Select * FROM CLFHeader WHERE PKFileName=@PKFileName AND filenumber = @filenumber ", conn) + Using cmd As New SqlCommand("Select * FROM CLFHeader WHERE PKFileName=@PKFileName AND fileNumber = @fileNumber", conn) cmd.Parameters.AddWithValue("@PKFileName", PKFileName) + cmd.Parameters.AddWithValue("@filenumber", fileNumber) Dim dr = cmd.ExecuteReader() If dr.Read Then For Each li In getParameterList() @@ -96,7 +104,7 @@ Public Class cAsfinag End If Next str = str.Substring(0, str.Length - 1) 'wg. ',' - Return (" UPDATE [CLFHeader] SET " & str & " WHERE PKFileName=@PKFileName AND filenumber = @filenumber") + Return (" UPDATE [CLFHeader] SET " & str & " WHERE PKFileName=@PKFileName ") Catch ex As Exception MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) @@ -130,10 +138,10 @@ Public Class cAsfinag Public Class CLFBody Property PKFileName As Object = Nothing - Property recordType As Integer + Property RecordType As String Property fileVersion As Integer Property fileNumber As Integer - Property cardNumber As Integer + Property cardNumber As String Property validTo As Integer Property OBUID As Object = Nothing Property vehicleLicensePlate As Object = Nothing @@ -142,22 +150,24 @@ Public Class cAsfinag Property emissionCategory As Object = Nothing Property status As Object = Nothing Property contractDate As Object = Nothing - + Property PKLine As Long Public hasEntry = False Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL - Sub New(PKFileName) + Sub New(PKFileName, PKLine) Me.PKFileName = PKFileName + Me.PKLine = PKLine LOAD() End Sub Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) 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("recordType", recordType)) + 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("fileVersion", fileVersion)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("fileNumber", filenumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("fileNumber", fileNumber)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("cardNumber", cardNumber)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("validTo", validTo)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("OBUID", OBUID)) @@ -168,13 +178,14 @@ Public Class cAsfinag list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("status", status)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("contractDate", contractDate)) + Return list End Function Public Function SAVE() As Boolean Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() - Dim sqlstr = " BEGIN TRAN If EXISTS(Select * FROM CLFBody WHERE PKFileName=@PKFileName AND filenumber = @filenumber) " & + Dim sqlstr = " BEGIN TRAN If EXISTS(Select * FROM CLFBody WHERE PKFileName=@PKFileName AND PKLine = @PKLine) " & " BEGIN " & getUpdateCmd() & " End " & " Else " & " BEGIN " & getInsertCmd() & " End " & @@ -187,8 +198,9 @@ Public Class cAsfinag Try hasEntry = False Using conn As SqlConnection = SQL.GetNewOpenConnectionAsfinag() - Using cmd As New SqlCommand("Select * FROM CLFBody WHERE PKFileName=@PKFileName AND filenumber = @filenumber ", conn) + Using cmd As New SqlCommand("Select * FROM CLFBody WHERE PKFileName=@PKFileName AND PKLine = @PKLine ", conn) cmd.Parameters.AddWithValue("@PKFileName", PKFileName) + cmd.Parameters.AddWithValue("@PKLine", PKLine) Dim dr = cmd.ExecuteReader() If dr.Read Then For Each li In getParameterList() @@ -224,7 +236,7 @@ Public Class cAsfinag End If Next str = str.Substring(0, str.Length - 1) 'wg. ',' - Return (" UPDATE [CLFBody] SET " & str & " WHERE PKFileName=@PKFileName AND filenumber = @filenumbere ") + Return (" UPDATE [CLFBody] SET " & str & " WHERE PKFileName=@PKFileName AND PKLine = @PKLine ") Catch ex As Exception MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) @@ -259,10 +271,10 @@ Public Class cAsfinag End Class - Public Class CLTrailer + Public Class CLFTrailer Property PKFileName As Object = Nothing - Property recordType As Integer + Property recordType As String Property fileVersion As Integer Property fileNumber As Integer Property recordCount As Integer @@ -291,7 +303,7 @@ Public Class cAsfinag Public Function SAVE() As Boolean Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() - Dim sqlstr = " BEGIN TRAN If EXISTS(Select * FROM CLFTrailer WHERE _BASE_id=@_BASE_id) " & + Dim sqlstr = " BEGIN TRAN If EXISTS(Select * FROM CLFTrailer WHERE PKFileName=@PKFileName) " & " BEGIN " & getUpdateCmd() & " End " & " Else " & " BEGIN " & getInsertCmd() & " End " & @@ -304,7 +316,7 @@ Public Class cAsfinag Try hasEntry = False Using conn As SqlConnection = SQL.GetNewOpenConnectionAsfinag() - Using cmd As New SqlCommand("Select * FROM CLFTrailer WHERE PKFileName=@PKFileName AND filenumber = @filenumber ", conn) + Using cmd As New SqlCommand("Select * FROM CLFTrailer WHERE PKFileName=@PKFileName", conn) cmd.Parameters.AddWithValue("@PKFileName", PKFileName) Dim dr = cmd.ExecuteReader() If dr.Read Then @@ -341,7 +353,7 @@ Public Class cAsfinag End If Next str = str.Substring(0, str.Length - 1) 'wg. ',' - Return (" UPDATE [CLFTrailer] SET " & str & " WHERE PKFileName=@PKFileName AND filenumber = @filenumbere ") + Return (" UPDATE [CLFTrailer] SET " & str & " WHERE PKFileName=@PKFileName") Catch ex As Exception MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) @@ -381,33 +393,36 @@ Public Class cAsfinag Property recordType As Integer Property fileVersion As Integer Property fileNumber As Integer - Property inidcator As Object = Nothing Property senderID As Object = Nothing Property receiverID As Object = Nothing - Property fileCreationDate As Object = Nothing - Property fileCreationTime As Object = Nothing + Property fileCreationDate As DateTime + Property fileCreationTime As DateTime Property ISOCountryCode As Object = Nothing + Property description As Object = Nothing + Property currencyCode As Object = Nothing Public hasEntry = False Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL - Sub New(PKFileName) + Sub New(PKFileName, filenummer) Me.PKFileName = PKFileName + Me.fileNumber = filenummer LOAD() End Sub Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) 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("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("inidcator", inidcator)) + 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("senderID", senderID)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("receiverID", receiverID)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("fileCreationDate", fileCreationDate)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("fileCreationTime", fileCreationTime)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ISOCountryCode", ISOCountryCode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("description", description)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("currencyCode", currencyCode)) Return list End Function @@ -415,7 +430,7 @@ Public Class cAsfinag Public Function SAVE() As Boolean Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() - Dim sqlstr = " BEGIN TRAN If EXISTS(Select * FROM TTRHeader WHERE PKFileName=@PKFileName AND filenumber = @filenumber) " & + Dim sqlstr = " BEGIN TRAN If EXISTS(Select * FROM TTRHeader WHERE PKFileName=@PKFileName AND fileNumber = @fileNumber) " & " BEGIN " & getUpdateCmd() & " End " & " Else " & " BEGIN " & getInsertCmd() & " End " & @@ -428,8 +443,9 @@ Public Class cAsfinag Try hasEntry = False Using conn As SqlConnection = SQL.GetNewOpenConnectionAsfinag() - Using cmd As New SqlCommand("Select * FROM TTRHeader WHERE PKFileName=@PKFileName AND filenumber = @filenumber ", conn) + Using cmd As New SqlCommand("Select * FROM TTRHeader WHERE PKFileName=@PKFileName AND fileNumber = @fileNumber ", conn) cmd.Parameters.AddWithValue("@PKFileName", PKFileName) + cmd.Parameters.AddWithValue("@fileNumber", fileNumber) Dim dr = cmd.ExecuteReader() If dr.Read Then For Each li In getParameterList() @@ -501,9 +517,9 @@ Public Class cAsfinag Property PKFileName As Object = Nothing Property recordType As Integer Property fileVersion As Integer - Property siteId As Integer + Property siteId As String Property fileNumber As Integer - Property cardNumber As Integer + Property cardNumber As String Property fileCreationDate As Date Property deliveryNoteNumber As Integer Property deliveryDate As Date @@ -514,33 +530,48 @@ Public Class cAsfinag Property amountInclVAT As Double Property VATrate As Double Property VATamount As Double + Property PKLine As Integer + Property km As Integer + Property driverId As Integer + Property receiptNumber As String + Property OBUID As String Public hasEntry = False Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL - Sub New(PKFileName) + Sub New() + + End Sub + + Sub New(PKFileName, PKLine) Me.PKFileName = PKFileName + Me.PKLine = PKLine LOAD() End Sub Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) 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("fileVersion", fileVersion)) 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("siteId", siteId)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("fileNumber", fileNumber)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("cardNumber", cardNumber)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("fileCreationDate", fileCreationDate)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("deliveryNoteNumber", deliveryNoteNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("cardNumber", cardNumber)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("deliveryDate", deliveryDate)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("deliveryTime", deliveryTime)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("transactionType", transactionType)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("productCode", productCode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("km", km)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("driverId", driverId)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("productQuantity", productQuantity)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("amountInclVAT", amountInclVAT)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("VATrate", VATrate)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("VATamount", VATamount)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("receiptNumber", receiptNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("OBUID", OBUID)) Return list End Function @@ -548,7 +579,7 @@ Public Class cAsfinag Public Function SAVE() As Boolean Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() - Dim sqlstr = " BEGIN TRAN If EXISTS(Select * FROM TTRBody WHERE PKFileName=@PKFileName AND filenumber = @filenumber) " & + Dim sqlstr = " BEGIN TRAN If EXISTS(Select * FROM TTRBody WHERE PKFileName=@PKFileName AND PKLine = @PKLine) " & " BEGIN " & getUpdateCmd() & " End " & " Else " & " BEGIN " & getInsertCmd() & " End " & @@ -561,8 +592,9 @@ Public Class cAsfinag Try hasEntry = False Using conn As SqlConnection = SQL.GetNewOpenConnectionAsfinag() - Using cmd As New SqlCommand("Select * FROM TTRBody WHERE PKFileName=@PKFileName AND filenumber = @filenumber ", conn) + Using cmd As New SqlCommand("Select * FROM TTRBody WHERE PKFileName=@PKFileName AND PKLine = @PKLine ", conn) cmd.Parameters.AddWithValue("@PKFileName", PKFileName) + cmd.Parameters.AddWithValue("@PKLine", PKLine) Dim dr = cmd.ExecuteReader() If dr.Read Then For Each li In getParameterList() @@ -598,7 +630,7 @@ Public Class cAsfinag End If Next str = str.Substring(0, str.Length - 1) 'wg. ',' - Return (" UPDATE [TTRBody] SET " & str & " WHERE PKFileName=@PKFileName AND filenumber = @filenumbere ") + Return (" UPDATE [TTRBody] SET " & str & " WHERE PKFileName=@PKFileName AND PKLine = @PKLine ") Catch ex As Exception MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) @@ -642,8 +674,6 @@ Public Class cAsfinag Property checksumProductQuantity As Double Property checksumAmounntInclVAT As Double - - Public hasEntry = False Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL @@ -656,8 +686,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("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("fileVersion", fileVersion)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("recordCount", recordCount)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("checksumProductQuantity", checksumProductQuantity)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("checksumAmounntInclVAT", checksumAmounntInclVAT)) @@ -668,7 +697,7 @@ Public Class cAsfinag Public Function SAVE() As Boolean Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() - Dim sqlstr = " BEGIN TRAN If EXISTS(Select * FROM TTRTrailer WHERE _BASE_id=@_BASE_id) " & + Dim sqlstr = " BEGIN TRAN If EXISTS(Select * FROM TTRTrailer WHERE PKFileName=@PKFileName) " & " BEGIN " & getUpdateCmd() & " End " & " Else " & " BEGIN " & getInsertCmd() & " End " & @@ -681,7 +710,7 @@ Public Class cAsfinag Try hasEntry = False Using conn As SqlConnection = SQL.GetNewOpenConnectionAsfinag() - Using cmd As New SqlCommand("Select * FROM TTRTrailer WHERE PKFileName=@PKFileName AND filenumber = @filenumber ", conn) + Using cmd As New SqlCommand("Select * FROM TTRTrailer WHERE PKFileName=@PKFileName", conn) cmd.Parameters.AddWithValue("@PKFileName", PKFileName) Dim dr = cmd.ExecuteReader() If dr.Read Then @@ -718,7 +747,7 @@ Public Class cAsfinag End If Next str = str.Substring(0, str.Length - 1) 'wg. ',' - Return (" UPDATE [TTRTrailer] SET " & str & " WHERE PKFileName=@PKFileName AND filenumber = @filenumbere ") + Return (" UPDATE [TTRTrailer] SET " & str & " WHERE PKFileName=@PKFileName") Catch ex As Exception MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) @@ -759,4 +788,28 @@ Public Class cAsfinag End Function End Class + + Shared Function fktMod10Prüfziffer(strNummer As String) As String + ' Der Funktion wird im Feld strNummer der Wert ohne Prüfziffer übergeben. + ' Die Funktion berechnet und liefert die Prüfziffer zurück. + + Dim intIX As Integer + Dim intZSum As Integer + Dim intSum As Integer + Dim boo1 As Boolean + + For intIX = Len(strNummer) To 1 Step -1 + intZSum = IIf(boo1, Mid(strNummer, intIX, 1) * 1, Mid(strNummer, intIX, 1) * 2) + If intZSum < 10 Then + intSum = intSum + intZSum + Else + intSum = intSum + ((intZSum Mod 10) + ((intZSum - (intZSum Mod 10)) / 10)) + End If + boo1 = Not boo1 + Next intIX + + fktMod10Prüfziffer = CStr((10 - (intSum Mod 10)) Mod 10) + + End Function + End Class diff --git a/initATLASAufschubkonten/frmAsfinag_NachrichtenVerarbeitung.Designer.vb b/initATLASAufschubkonten/frmAsfinag_NachrichtenVerarbeitung.Designer.vb index f5dc429..7154f4d 100644 --- a/initATLASAufschubkonten/frmAsfinag_NachrichtenVerarbeitung.Designer.vb +++ b/initATLASAufschubkonten/frmAsfinag_NachrichtenVerarbeitung.Designer.vb @@ -23,13 +23,11 @@ Partial Class frmAsfinag_NachrichtenVerabeitung Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container() - Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmTRNCTS_NachrichtenVerarbeitung)) + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmAsfinag_NachrichtenVerabeitung)) Me.btn = New System.Windows.Forms.Button() Me.pnl = New System.Windows.Forms.Panel() Me.lblDatenCnt = New System.Windows.Forms.Label() Me.dgvEinarbeitung = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) - Me.clmnArt = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.Column1 = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.Label9 = New System.Windows.Forms.Label() Me.Button2 = New System.Windows.Forms.Button() Me.Label7 = New System.Windows.Forms.Label() @@ -40,6 +38,8 @@ Partial Class frmAsfinag_NachrichtenVerabeitung Me.btnOK = New System.Windows.Forms.Button() Me.Label2 = New System.Windows.Forms.Label() Me.Label1 = New System.Windows.Forms.Label() + Me.clmnArt = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.Column1 = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.pnl.SuspendLayout() CType(Me.dgvEinarbeitung, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() @@ -111,18 +111,6 @@ Partial Class frmAsfinag_NachrichtenVerabeitung Me.dgvEinarbeitung.Size = New System.Drawing.Size(291, 145) Me.dgvEinarbeitung.TabIndex = 18 ' - 'clmnArt - ' - Me.clmnArt.HeaderText = "Art" - Me.clmnArt.Name = "clmnArt" - Me.clmnArt.Width = 150 - ' - 'Column1 - ' - Me.Column1.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill - Me.Column1.HeaderText = "BezugsNr" - Me.Column1.Name = "Column1" - ' 'Label9 ' Me.Label9.AutoSize = True @@ -210,9 +198,9 @@ Partial Class frmAsfinag_NachrichtenVerabeitung Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label2.Location = New System.Drawing.Point(8, 8) Me.Label2.Name = "Label2" - Me.Label2.Size = New System.Drawing.Size(222, 13) + Me.Label2.Size = New System.Drawing.Size(231, 13) Me.Label2.TabIndex = 8 - Me.Label2.Text = "Einarbeitung der Nachrichtendaten von MAVI" + Me.Label2.Text = "Einarbeitung der Nachrichtendaten von Asfinag" ' 'Label1 ' @@ -224,7 +212,19 @@ Partial Class frmAsfinag_NachrichtenVerabeitung Me.Label1.TabIndex = 8 Me.Label1.Text = "Einarbeitung:" ' - 'frmTRNCTS_NachrichtenVerarbeitung + 'clmnArt + ' + Me.clmnArt.HeaderText = "Dateiname" + Me.clmnArt.Name = "clmnArt" + Me.clmnArt.Width = 150 + ' + 'Column1 + ' + Me.Column1.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill + Me.Column1.HeaderText = "Status" + Me.Column1.Name = "Column1" + ' + 'frmAsfinag_NachrichtenVerabeitung ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font @@ -232,7 +232,7 @@ Partial Class frmAsfinag_NachrichtenVerabeitung Me.Controls.Add(Me.pnl) Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) - Me.Name = "frmTRNCTS_NachrichtenVerarbeitung" + Me.Name = "frmAsfinag_NachrichtenVerabeitung" Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen Me.Text = "DY NachrichtenVerarbeitung" Me.pnl.ResumeLayout(False) @@ -254,7 +254,7 @@ Partial Class frmAsfinag_NachrichtenVerabeitung Friend WithEvents Label9 As System.Windows.Forms.Label Friend WithEvents Button2 As System.Windows.Forms.Button Friend WithEvents dgvEinarbeitung As VERAG_PROG_ALLGEMEIN.MyDatagridview - Friend WithEvents clmnArt As System.Windows.Forms.DataGridViewTextBoxColumn - Friend WithEvents Column1 As System.Windows.Forms.DataGridViewTextBoxColumn Friend WithEvents lblDatenCnt As Label + Friend WithEvents clmnArt As DataGridViewTextBoxColumn + Friend WithEvents Column1 As DataGridViewTextBoxColumn End Class diff --git a/initATLASAufschubkonten/frmAsfinag_NachrichtenVerarbeitung.vb b/initATLASAufschubkonten/frmAsfinag_NachrichtenVerarbeitung.vb index 1c671a2..533ed70 100644 --- a/initATLASAufschubkonten/frmAsfinag_NachrichtenVerarbeitung.vb +++ b/initATLASAufschubkonten/frmAsfinag_NachrichtenVerarbeitung.vb @@ -4,6 +4,10 @@ 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 @@ -19,22 +23,23 @@ Public Class frmAsfinag_NachrichtenVerabeitung Dim PARTNERSYSTEM = "ASFINAG" Dim SERVER_Path = "" Dim SERVER_Path_TEST = "" - ' Dim BOX_VERSION = "8.8" + Dim FileType As String Dim Dateiname = "" - Sub New() + Sub New(FileType) ' Dieser Aufruf ist für den Designer erforderlich. InitializeComponent() ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. - + Me.FileType = FileType End Sub - Sub New(allowClose) 'autostart + Sub New(FileType, allowClose) 'autostart ' Dieser Aufruf ist für den Designer erforderlich. InitializeComponent() + FileType = FileType Me.allowClose = allowClose ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. @@ -52,6 +57,8 @@ Public Class frmAsfinag_NachrichtenVerabeitung If Not IO.Directory.Exists(ZIEL_PFAD) Then IO.Directory.CreateDirectory(ZIEL_PFAD) If Not IO.Directory.Exists(ERROR_PFAD) Then IO.Directory.CreateDirectory(ERROR_PFAD) + + 'Me.BOX_VERSION = NCTSTR_Worker.cDY_Paramter.GET_PARAM_ByName("BOX_VERSION", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM) End Sub @@ -59,17 +66,28 @@ Public Class frmAsfinag_NachrichtenVerabeitung Private Sub frmDYNachrichtenVerarbeitung_Load(sender As Object, e As EventArgs) Handles Me.Load initPfade() - For Each d In System.IO.Directory.GetFiles(VERARBEITUNGS_PFAD) - ListBox3.Items.Add(frmStartOptions.cut_file(d)) - Me.Refresh() - Next + + If FileType <> "" Then + + Label2.Text &= " " & FileType + + For Each d In System.IO.Directory.GetFiles(VERARBEITUNGS_PFAD) + Dim filename = frmStartOptions.cut_file(d) + If filename.ToLower.Contains(FileType) Then + ListBox3.Items.Add(filename) + End If + + Me.Refresh() + Next + End If + End Sub Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click Me.Enabled = False Try Label9.Visible = True - Dim cnt = getNachrichtenDatenFromAsfinagServices() + Dim cnt = getNachrichtenDatenFromFTP() Label9.Text = cnt & " Datensätze empfangen." Catch ex As Exception @@ -99,7 +117,7 @@ Public Class frmAsfinag_NachrichtenVerabeitung End Sub - Function getNachrichtenDatenFromAsfinagServices() As Integer + Function getNachrichtenDatenFromFTP() As Integer Dim cnt = 0 Try Dim SERVER_Path = "" @@ -125,9 +143,16 @@ Public Class frmAsfinag_NachrichtenVerabeitung If IO.File.Exists(zielPfad) Then IO.File.Delete(f) End If - ListBox3.Items.Add(frmStartOptions.cut_file((New FileInfo(zielPfad)).Name)) 'zur Liste hinzufügen + 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 + - cnt += 1 End If Next @@ -142,7 +167,7 @@ Public Class frmAsfinag_NachrichtenVerabeitung End Function - Function getNachrichtenDatenFromMAVIServices_ALTERNATIV() As Integer + Function getNachrichtenDatenFromAsfinag_ALTERNATIV() As Integer Dim cnt = 0 Try For Each f In IO.Directory.GetFiles(ASFINAG_PFAD) @@ -260,7 +285,7 @@ Public Class frmAsfinag_NachrichtenVerabeitung Sub DatenEinlesen() - VERAG_PROG_ALLGEMEIN.cAllgemein.ERR_OP_GLOBAL = VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL + VERAG_PROG_ALLGEMEIN.cAllgemein.ERR_OP_GLOBAL = VERAG_PROG_ALLGEMEIN.ERROR_OP.SHOW If ListBox3.Items.Count = 0 Then Label6.Text = "Keine Daten zum Einlesen vorhanden." @@ -269,142 +294,81 @@ Public Class frmAsfinag_NachrichtenVerabeitung End If - For NACHRICHTENTYP = 1 To 10 'Nach Nachrichtentyp abarbeteiten + For Each d In System.IO.Directory.GetFiles(VERARBEITUNGS_PFAD) - For Each d In System.IO.Directory.GetFiles(VERARBEITUNGS_PFAD) - Try - Dateiname = d - cWorker_NCTS.Dateiname = d - If IO.File.Exists(d) Then - Dim found = False - Dim nr_id As Integer = -1 - Dim fi As FileInfo = New FileInfo(d) - If Not fi.Name.StartsWith(".") Then - - Dim alreadyMoved = False - - Dim NACHRICHTENTYP_notfound = False - - If fi.Extension.ToLower = ".xml" Then - Dim xmlWriterSettings As XmlWriterSettings = New XmlWriterSettings With {.Encoding = System.Text.Encoding.UTF8, .CheckCharacters = True} - - Dim doc As New XmlDocument() - Dim XML_Code = System.IO.File.ReadAllText(d, System.Text.UTF8Encoding.Default) - - doc.LoadXml(SanitizeXmlString(XML_Code)) - Dim VERSION As String = "" - - '------------------------------------------------------------------------------------------------------------------------------ - ' eZOLL - '------------------------------------------------------------------------------------------------------------------------------ + Try + Dim correctFile As Boolean = False + For Each i In ListBox3.Items + Dim fileName As FileInfo = New FileInfo(d) + If Equals(fileName.Name, i) Then + correctFile = True + Exit For + End If + Next - '------------------------------------------ - '------------------ Anmeldung ------------------ - '------------------------------------------ - 'MAVI: CC015B - Versandanmeldung Final - - Select Case NACHRICHTENTYP - Case 1 - 'NCTS: Versandanmeldung - If Not found And cNCTSPartnerWorker.cMAVIGetMsgType.isTRNCTS_VersandanmeldungXML_CC015B(doc) Then - If cMAVIWorker.readNCTS_VersandanmeldungXML_CC015B(PARTNERSYSTEM, Me, doc, nr_id, d) <> "" Then found = True - End If - - Case 2 - 'NCTS: Versandanmeldung - Ergänzung GUID - If Not found And cNCTSPartnerWorker.cMAVIGetMsgType.isTRNCTS_VersandanmeldungXML_CC015B_RES(doc) Then - If cMAVIWorker.readNCTS_VersandanmeldungXML_CC015B_RES(PARTNERSYSTEM, Me, doc, nr_id) <> "" Then found = True - End If - Case 3 - 'NCTS: BestätigungZoll - If Not found And cNCTSPartnerWorker.cMAVIGetMsgType.isTRNCTS_BestaetigungZollXML_CC029B(doc) Then - If cMAVIWorker.readNCTS_BestaetigungZollXML_CC029B(PARTNERSYSTEM, Me, doc, nr_id) <> "" Then found = True - End If - Case 4 - 'NCTS: Guarantee - If Not found And cNCTSPartnerWorker.cMAVIGetMsgType.isTRNCTS_BestaetigungZollXML_GUA_INF(doc) Then - If cMAVIWorker.readNCTS_BestaetigungZollXML_GUA_INF(PARTNERSYSTEM, Me, doc, nr_id) <> "" Then found = True - End If - Case 5 - 'NCTS: Ankunftsanzeige - If Not found And cNCTSPartnerWorker.cMAVIGetMsgType.isTRNCTS_BestaetigungZollXML_ARR_INF(doc) Then - If cMAVIWorker.readNCTS_BestaetigungZollXML_ARR_INF(PARTNERSYSTEM, Me, doc, nr_id) <> "" Then found = True - End If - - Case 6 - 'NCTS: Erledigungsmitteilung - If Not found And cNCTSPartnerWorker.cMAVIGetMsgType.isTRNCTS_ErledigungsmitteilungXML_CC045A(doc) Then - If cMAVIWorker.readNCTS_ErledigungsmitteilungXML_CC045A(PARTNERSYSTEM, Me, doc, nr_id) <> "" Then found = True - End If - - Case 7 - 'NCTS: Cancellation decision CC009A - If Not found And cNCTSPartnerWorker.cMAVIGetMsgType.isTRNCTS_AbbruchXML_CC009A(doc) Then - If cMAVIWorker.readNCTS_AbbruchXML_CC009A(PARTNERSYSTEM, Me, doc, nr_id) <> "" Then found = True - End If - Case 8 - 'NCTS: Declaration rejected CC016A - If Not found And cNCTSPartnerWorker.cMAVIGetMsgType.isTRNCTS_RueckweisungXML_CC016A(doc) Then - If cMAVIWorker.readNCTS_RueckweisungXML_CC016A(PARTNERSYSTEM, Me, doc, nr_id) <> "" Then found = True - End If - Case 9 - 'NCTS: No release for transit – type B CC051B - If Not found And cNCTSPartnerWorker.cMAVIGetMsgType.isTRNCTS_KeineFreigabeXML_CC051B(doc) Then - If cMAVIWorker.readNCTS_KeineFreigabeXML_CC051B(PARTNERSYSTEM, Me, doc, nr_id) <> "" Then found = True - End If + Dim found = False + Dateiname = d + If IO.File.Exists(d) And correctFile Then - Case 10 - NACHRICHTENTYP_notfound = True ' alle nciht zu verarbeitenden - End Select + Dim nr_id As Integer = -1 + + Dim fi As FileInfo = New FileInfo(d) + If Not fi.Name.StartsWith(".") Then + + Dim alreadyMoved = False + + Dim objFileRead As StreamReader = New StreamReader(d) + + If objFileRead.Peek() = -1 Then + + MsgBox("Datei hat keinen Inhalt!", + MsgBoxStyle.Information, + MsgBoxStyle.DefaultButton2 = MsgBoxStyle.OkOnly) + Exit Sub + + ElseIf FileType = "clf" Then + + If readAndSaveCLF(objFileRead, fi) Then + addDGVEinarbeitung(fi.Name, "OK") + found = True End If - Dim destPath = "" - 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.Year & "\" & Now.ToString("yyyyMMdd") & "\", destPath) - cntDatenEingelesen += 1 - Else - If NACHRICHTENTYP_notfound Then - frmStartOptions.moveFile(d, ERROR_PFAD, destPath) ' nciht gefunden, oder durch ERROR nicht eingearbt,. - dsNichtErkannt += 1 - End If + ElseIf FileType = "ttr" Then + + If readAndSaveTTR(objFileRead, fi) Then + addDGVEinarbeitung(fi.Name, "OK") + found = True End If - If destPath <> "" And nr_id > 0 Then - VERAG_PROG_ALLGEMEIN.cNCTS_TR_Nachrichten.updatePath(nr_id, destPath) - End If + End If - Me.Refresh() + 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) + cntDatenEingelesen += 1 + Else + If Not found Then + frmStartOptions.moveFile(d, ERROR_PFAD, VERARBEITUNGS_PFAD) ' nciht gefunden, oder durch ERROR nicht eingearbt,. + dsNichtErkannt += 1 End If End If - Catch ex As Exception - VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name) - End Try - Next + Me.Refresh() + + End If + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try Next End Sub - - - Function getString(doc As XmlDocument) As Boolean - If doc.HasChildNodes Then - ' If doc.GetElementsByTagName("DakosyMessageInternal").Count > 0 Then - Dim sw = New StringWriter() - Dim xw = New XmlTextWriter(sw) - doc.WriteTo(xw) - Dim XmlString = sw.ToString() - End If - Return False - End Function - - - Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles btnOK.Click Me.Close() End Sub @@ -424,127 +388,362 @@ Public Class frmAsfinag_NachrichtenVerabeitung End Sub + Public Function readAndSaveCLF(objFileRead As StreamReader, fi As FileInfo) As Boolean + + Dim booHeaderVorhanden = False + Dim booPrüfziffernfehler = False + Dim booInTransaktion = False + Dim booTrailerVorhanden = False + + Dim lngPKLine As Long = 0 + Dim lngRecordCount As Long + + Do While (objFileRead.Peek() > -1) + Dim strZeile = objFileRead.ReadLine() + lngRecordCount = lngRecordCount + 1 + + Select Case Mid(strZeile, 1, 2) + Case "10" + booHeaderVorhanden = True + Dim ext = CInt(fi.Extension.Remove(0, 1)) + Dim clfHeader As New cAsfinag.CLFHeader(fi.Name.ToString, ext) + With clfHeader + .PKFileName = fi.Name + .recordType = Mid(strZeile, 1, 2) + .fileVersion = Mid(strZeile, 3, 2) + .indcator = Trim(Mid(strZeile, 9, 1)) + .senderID = Trim(Mid(strZeile, 10, 6)) + .receiverID = Trim(Mid(strZeile, 16, 6)) + .fileCreationDate = DateSerial(Mid(strZeile, 22, 4), Mid(strZeile, 26, 2), Mid(strZeile, 28, 2)) + .fileCreationTime = Now() + '.fileCreationTime = DateSerial(Mid(strZeile, 22, 4), Mid(strZeile, 26, 2), Mid(strZeile, 28, 2)) & " " & TimeSerial(Mid(strZeile, 30, 2), Mid(strZeile, 32, 2), Mid(strZeile, 34, 2)) + .ISOCountryCode = Trim(Mid(strZeile, 62, 3)) + .SAVE() + End With + + Case "20" + ' Meldung bei nicht vorhandenen Haeder. + If Not booHeaderVorhanden Then + MsgBox("Datei kann wegen fehlenden Header nicht verarbeitet werden.") + objFileRead.Close() + Return False + End If + + Dim clfBody As New cAsfinag.CLFBody(fi.Name, lngPKLine) + With clfBody + .PKFileName = fi.Name + lngPKLine = lngPKLine + 1 + .RecordType = Trim(Mid(strZeile, 1, 2)) + .fileVersion = Trim(Mid(strZeile, 3, 2)) + .fileNumber = Trim(Mid(strZeile, 5, 3)) + .cardNumber = Trim(Mid(strZeile, 9, 22)) + .validTo = Trim(Mid(strZeile, 31, 4)) + .OBUID = Trim(Mid(strZeile, 35, 18)) + .vehicleLicensePlate = Trim(Mid(strZeile, 53, 10)) + .nationality = Trim(Mid(strZeile, 63, 3)) + .vehicleCategory = Trim(Mid(strZeile, 66, 1)) + .emissionCategory = Trim(Mid(strZeile, 67, 2)) + .status = Trim(Mid(strZeile, 69, 2)) + .contractDate = DateSerial(Mid(strZeile, 71, 4), Mid(strZeile, 75, 2), Mid(strZeile, 77, 2)) + .SAVE() + End With + 'CardNumber prüfen. + If (Right(clfBody.cardNumber, 1)) <> cAsfinag.fktMod10Prüfziffer(Left(clfBody.cardNumber, Len(clfBody.cardNumber) - 1)) Then + booPrüfziffernfehler = True + End If + 'strSQL = "SELECT * FROM CLFArchiv WHERE (OBUID = N'" & Trim(Mid(strZeile, 37, 18)) & "')" + 'rstCLFArchiv.Open strSQL, cnnASFINAG, adOpenStatic, adLockOptimistic, adCmdText - Function readPLOSE_Detail(d As String) As String - ' Try - ' readPLOSE_Detail = "" - ' Dim KdnR = "" + 'With rstCLFArchiv + ' If .EOF Then + ' .AddNew + ' !OBUID = Trim(Mid(strZeile, 37, 18)) + ' End If + ' !FileName = strPKFileName + ' !RecordType = Trim(Mid(strZeile, 1, 2)) + ' !RunNumber = Trim(Mid(strZeile, 3, 8)) + ' !CardNumber = Trim(Mid(strZeile, 11, 22)) + ' !ValidTo = Trim(Mid(strZeile, 33, 4)) + ' !KfzKennzeichen = Trim(Mid(strZeile, 55, 10)) + ' !Nationalität = Trim(Mid(strZeile, 65, 3)) + ' !Kategorie = Trim(Mid(strZeile, 68, 1)) + ' !Schadstoffklasse = Trim(Mid(strZeile, 69, 2)) + ' !Status = Trim(Mid(strZeile, 71, 2)) + ' !DatumVertragsabschluss = DateSerial(Mid(strZeile, 73, 4), Mid(strZeile, 77, 2), Mid(strZeile, 79, 2)) + ' .Update + ' .Close + 'End With - ' Using MyReader As New Microsoft.VisualBasic.FileIO.TextFieldParser(d, Encoding.UTF8) - ' MyReader.TextFieldType = FileIO.FieldType.Delimited - ' MyReader.SetDelimiters(";") - ' Dim currentRow As String() + ' Meldung bei Prüfziffernfehler. + If booPrüfziffernfehler Then + MsgBox("Prüfziffernfehler in Zeile " & CStr(lngRecordCount) & vbCrLf & "Datei kann nicht verarbeitet werden. " & vbNewLine & " " & fi.Name.ToString) + booInTransaktion = False + Return False - ' Dim cnt = 0 - ' If True Then + End If + Case "90" + ' Meldung bei nicht vorhandenen Haeder. + If Not booHeaderVorhanden Then + MsgBox("Datei kann wegen fehlenden Header nicht verarbeitet werden.") + objFileRead.Close() + Return False + End If - ' While Not MyReader.EndOfData - ' Try - ' currentRow = MyReader.ReadFields() + booTrailerVorhanden = True + Dim clfTrailer As New cAsfinag.CLFTrailer(fi.Name) + + With clfTrailer + .PKFileName = fi.Name + .recordType = Trim(Mid(strZeile, 1, 2)) + .fileVersion = Trim(Mid(strZeile, 3, 2)) + .fileNumber = Trim(Mid(strZeile, 5, 4)) + .recordCount = Trim(Mid(strZeile, 9, 7)) + .SAVE() + End With + ' Prüfsumme Anzahl der Sätze im File ohne Header und Trailer. + If clfTrailer.recordCount <> (lngRecordCount) Then + MsgBox("Record Count: " & clfTrailer.recordCount & vbCrLf & "Prüfsumme: " & (lngRecordCount) & vbCrLf) + objFileRead.Close() + Return False + End If - ' If currentRow.Length > 24 Then - ' Dim PLOSE As New cNCTSPartnerWorker.cPLOSE + ' Meldung bei Prüfsummenfehler. + If booPrüfziffernfehler Then + MsgBox("Datei kann wegen Prüfsummenfehler nicht verarbeitet werden.") + objFileRead.Close() + ' MsgBox strPrompt, , strPKFileName + ' ' Zurücksetzen der Transaktion. + 'cnnASFINAG.RollbackTrans + ' booInTransaktion = False + End If + Case Else + ' Andere RecordNumber überlesen. + End Select + Loop - ' PLOSE.plose_Datensatztyp = SQL.isleernothing(currentRow(0)) - ' PLOSE.plose_KodexMautTankstelle = SQL.isleernothing(currentRow(1)) - ' PLOSE.plose_BeschreibungMautTankstelle = SQL.isleernothing(currentRow(2)) - ' PLOSE.plose_KodexEinfahrt = SQL.isleernothing(currentRow(3)) - ' PLOSE.plose_BeschreibungEinfahrt = SQL.isleernothing(currentRow(4)) - ' PLOSE.plose_KodexAusfahrt = SQL.isleernothing(currentRow(5)) - ' PLOSE.plose_BeschreibungAusfahrt = SQL.isleernothing(currentRow(6)) - ' PLOSE.plose_Kartenkodex = SQL.isleernothing(currentRow(7)) - ' PLOSE.plose_Kontonummer = SQL.isleernothing(currentRow(8)) - ' PLOSE.plose_NummerKarteGeraet = SQL.isleernothing(currentRow(9)) - ' PLOSE.plose_Kennzeichen = SQL.isleernothing(currentRow(10)) - ' PLOSE.plose_InterneNrFahrzeug = SQL.isleernothing(currentRow(11)) - ' PLOSE.plose_POLSEKundennummer = SQL.isleernothing(currentRow(12)) - ' PLOSE.plose_Firmenname = SQL.isleernothing(currentRow(13)) - ' PLOSE.plose_DatumTransaktion = SQL.isleernothingDateFormatstring(currentRow(14)) - ' PLOSE.plose_Produktbeschreibung = SQL.isleernothing(currentRow(15)) - ' PLOSE.plose_Menge = SQL.isNullNothingDbl(currentRow(16)) - ' PLOSE.plose_Preis = SQL.isNullNothingDbl(currentRow(17)) - ' PLOSE.Einheitsrabatt = SQL.isleernothing(currentRow(18)) - ' PLOSE.plose_NettobetragTransaktion = SQL.isNullNothingDbl(currentRow(19)) - ' PLOSE.plose_MWSTBetrag = SQL.isNullNothingDbl(currentRow(20)) - ' PLOSE.plose_BruttobetragTransaktion = SQL.isNullNothingDbl(currentRow(21)) - ' PLOSE.plose_NettobetragWaehrungAbbuchung = SQL.isNullNothingDbl(currentRow(22)) - ' PLOSE.plose_MWSTBetragWaehrungAbbuchung = SQL.isNullNothingDbl(currentRow(23)) - ' PLOSE.plose_BruttobetragWaehrungAbbuchung = SQL.isNullNothingDbl(currentRow(24)) - ' PLOSE.plose_WaehrungLandDiesntleistung = SQL.isleernothing(currentRow(25)) - ' PLOSE.plose_WaehrungAbbuchung = SQL.isleernothing(currentRow(26)) - ' PLOSE.plose_DokumentNrQuittungUhrzeit = SQL.isleernothing(currentRow(27)) - ' PLOSE.plose_ArtTransaktion = SQL.isleernothing(currentRow(28)) - ' PLOSE.plose_Fahrzeugklasse = SQL.isleernothing(currentRow(29)) - ' PLOSE.plose_KlassenidentifikationEURO = SQL.isleernothing(currentRow(30)) - ' PLOSE.plose_ProduktbeschreibungShort = SQL.isleernothing(currentRow(31)) - ' PLOSE.plose_DokumentNrQuittungUhrzeit = SQL.isleernothing(currentRow(32)) - ' PLOSE.plose_Geraetetyp = SQL.isleernothing(currentRow(33)) - ' PLOSE.plose_ProduktCode = SQL.isleernothing(currentRow(34)) - ' PLOSE.plose_ReferenzenBuchungMaut = SQL.isleernothing(currentRow(35)) + objFileRead.Close() - ' '''''''''''' - ' If PLOSE.SAVE() Then + Return True - ' End If - - ' End If - - ' cnt += 1 - - ' 'For Each currentField In currentRow - ' 'Next - ' Catch ex As Exception - ' VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name) - ' End Try - ' End While - - - ' 'Label30.Text = (cnt + 1) & " / " & LineCount - ' 'Label31.Visible = True - ' readPLOSE_Detail = "Zeilen: " & cnt - ' Else - ' MsgBox("FEHLER beim Löschen der vorhandenen OP-Liste.") - ' End If - ' End Using - - - - - ' Try - ' ' System.IO.File.Delete(p) - ' Catch ex As Exception - ' VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name) - ' End Try - - ' addDGVEinarbeitung("PLOSE: Detail" & KdnR, readPLOSE_Detail) - - ' ' End Using - - ' 'End If - - ' Catch ex As Exception - ' VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name) - ' MsgBox(ex.StackTrace & ex.Message) - ' readPLOSE_Detail = "" - ' End Try End Function + + + Public Function readAndSaveTTR(objFileRead As StreamReader, fi As FileInfo) As Boolean + + Dim booHeaderVorhanden = False + Dim booPrüfziffernfehler = False + Dim booInTransaktion = False + Dim booTrailerVorhanden = False + Dim dblCheckSumQuantity As Double + Dim curCheckSumAmount As Double + + Dim lngPKLine As Long = 0 + Dim lngRecordCount As Long + + Do While (objFileRead.Peek() > -1) + Dim strZeile = objFileRead.ReadLine() + lngRecordCount = lngRecordCount + 1 + + Select Case Mid(strZeile, 1, 2) + Case "10" + booHeaderVorhanden = True + Dim ext = CInt(fi.Extension.Remove(0, 1)) + Dim ttrHeader As New cAsfinag.TTRHeader(fi.Name.ToString, ext) + With ttrHeader + .PKFileName = fi.Name + .recordType = Trim(Mid(strZeile, 1, 2)) + .fileVersion = Trim(Mid(strZeile, 3, 2)) + .senderID = Trim(Mid(strZeile, 5, 6)) + .receiverID = Trim(Mid(strZeile, 11, 6)) + .fileCreationDate = DateSerial(Mid(strZeile, 17, 4), Mid(strZeile, 21, 2), Mid(strZeile, 23, 2)) + .fileCreationTime = DateSerial(Mid(strZeile, 17, 4), Mid(strZeile, 21, 2), Mid(strZeile, 23, 2)) & " " & TimeSerial(Mid(strZeile, 25, 2), Mid(strZeile, 27, 2), 0) + .fileNumber = Trim(Mid(strZeile, 29, 4)) + .currencyCode = Trim(Mid(strZeile, 33, 3)) + .description = IIf(Trim(Mid(strZeile, 36, 25)) = "", Nothing, Trim(Mid(strZeile, 36, 25))) + .ISOCountryCode = Trim(Mid(strZeile, 61, 3)) + .SAVE() + End With + + Case "20" + ' Meldung bei nicht vorhandenen Haeder. + If Not booHeaderVorhanden Then + MsgBox("Datei kann wegen fehlenden Header nicht verarbeitet werden.") + objFileRead.Close() + Return False + End If + + + Dim ttrBody As New cAsfinag.TTRBody(fi.Name, lngPKLine) + + With ttrBody + .PKFileName = fi.Name + .recordType = Trim(Mid(strZeile, 1, 2)) + lngPKLine = lngPKLine + 1 + .PKLine = lngPKLine + .fileVersion = Trim(Mid(strZeile, 3, 2)) + .siteId = IIf(Trim(Mid(strZeile, 7, 15)) = "", Nothing, Trim(Mid(strZeile, 7, 15))) + .fileNumber = Trim(Mid(strZeile, 22, 4)) + .fileCreationDate = DateSerial(Mid(strZeile, 26, 4), Mid(strZeile, 30, 2), Mid(strZeile, 32, 2)) + .deliveryNoteNumber = IIf(Trim(Mid(strZeile, 35, 8)) = "", Nothing, Trim(Mid(strZeile, 35, 8))) + .cardNumber = Trim(Mid(strZeile, 43, 22)) + .deliveryDate = DateSerial(Mid(strZeile, 65, 4), Mid(strZeile, 69, 2), Mid(strZeile, 71, 2)) + .deliveryTime = IIf(Trim(Mid(strZeile, 73, 4)) = "", Nothing, DateSerial(Mid(strZeile, 65, 4), Mid(strZeile, 69, 2), Mid(strZeile, 71, 2)) & " " & TimeSerial(Mid(strZeile, 73, 2), Mid(strZeile, 75, 2), 0)) + .transactionType = Trim(Mid(strZeile, 77, 2)) + .productCode = Trim(Mid(strZeile, 79, 4)) + .km = IIf(Trim(Mid(strZeile, 83, 7)) = "", Nothing, Trim(Mid(strZeile, 83, 7))) + .driverId = IIf(Trim(Mid(strZeile, 90, 4)) = "", Nothing, Trim(Mid(strZeile, 90, 4))) + .productQuantity = Trim(Mid(strZeile, 94, 6)) / 100 + .amountInclVAT = Trim(Mid(strZeile, 100, 10)) / 100 + .VATrate = Trim(Mid(strZeile, 155, 4)) / 100 + .VATamount = Trim(Mid(strZeile, 159, 10)) / 100 + .OBUID = Trim(Mid(strZeile, 130, 25)) + .receiptNumber = Trim(Mid(strZeile, 110, 20)) + + ' Bei den Checksummen wird unabhängig vom TransactionType immer der positive Betrag aufsummiert. + dblCheckSumQuantity = dblCheckSumQuantity + ttrBody.productQuantity + curCheckSumAmount = curCheckSumAmount + ttrBody.amountInclVAT + ' Bei TransactionType 03 .......Credit-Transaktion (negativ) + + If ttrBody.transactionType = 3 Then + ' Vorzeichenänderung + ttrBody.km = 0 - ttrBody.km + ttrBody.productQuantity = 0 - ttrBody.productQuantity + ttrBody.amountInclVAT = 0 - ttrBody.amountInclVAT + ttrBody.VATamount = 0 - ttrBody.VATamount + End If + + ' CardNumber prüfen. + If (Right(ttrBody.cardNumber, 1)) <> (fktMod10Prüfziffer(Left(ttrBody.cardNumber, Len(ttrBody.cardNumber) - 1))) Then + booPrüfziffernfehler = True + End If + .SAVE() + + End With + + 'strSQL = "SELECT * FROM CLFArchiv WHERE (OBUID = N'" & Trim(Mid(strZeile, 37, 18)) & "')" + 'rstCLFArchiv.Open strSQL, cnnASFINAG, adOpenStatic, adLockOptimistic, adCmdText + + + 'With rstCLFArchiv + ' If .EOF Then + ' .AddNew + ' !OBUID = Trim(Mid(strZeile, 37, 18)) + ' End If + ' !FileName = strPKFileName + ' !RecordType = Trim(Mid(strZeile, 1, 2)) + ' !RunNumber = Trim(Mid(strZeile, 3, 8)) + ' !CardNumber = Trim(Mid(strZeile, 11, 22)) + ' !ValidTo = Trim(Mid(strZeile, 33, 4)) + ' !KfzKennzeichen = Trim(Mid(strZeile, 55, 10)) + ' !Nationalität = Trim(Mid(strZeile, 65, 3)) + ' !Kategorie = Trim(Mid(strZeile, 68, 1)) + ' !Schadstoffklasse = Trim(Mid(strZeile, 69, 2)) + ' !Status = Trim(Mid(strZeile, 71, 2)) + ' !DatumVertragsabschluss = DateSerial(Mid(strZeile, 73, 4), Mid(strZeile, 77, 2), Mid(strZeile, 79, 2)) + ' .Update + ' .Close + 'End With + + ' Meldung bei Prüfziffernfehler. + If booPrüfziffernfehler Then + MsgBox("Prüfziffernfehler in Zeile " & CStr(lngRecordCount) & vbCrLf & "Datei kann nicht verarbeitet werden. " & vbNewLine & " " & fi.Name.ToString) + booInTransaktion = False + objFileRead.Close() + Return False + End If + + + Case "90" + ' Meldung bei nicht vorhandenen Haeder. + If Not booHeaderVorhanden Then + MsgBox("Datei kann wegen fehlenden Header nicht verarbeitet werden.") + objFileRead.Close() + Return False + End If + + booTrailerVorhanden = True + + + Dim ttrTrailer As New cAsfinag.TTRTrailer(fi.Name) + With ttrTrailer + .PKFileName = fi.Name + .recordType = Trim(Mid(strZeile, 1, 2)) + .fileVersion = Trim(Mid(strZeile, 3, 2)) + '.fileNumber = Trim(Mid(strZeile, 5, 4)) + .recordCount = Trim(Mid(strZeile, 5, 9)) + .checksumProductQuantity = Trim(Mid(strZeile, 14, 15)) / 100 + .checksumAmounntInclVAT = Trim(Mid(strZeile, 29, 15)) / 100 + .SAVE() + + Dim strPrompt + If ttrTrailer.recordCount <> lngRecordCount Then + strPrompt = strPrompt & "Record Count: " & ttrTrailer.recordCount & vbCrLf & + "Prüfsumme: " & lngRecordCount & vbCrLf + End If + ' Prüfsumme Menge. + If ttrTrailer.checksumProductQuantity <> dblCheckSumQuantity Then + strPrompt = strPrompt & "Check Sum Quantity: " & ttrTrailer.checksumProductQuantity & vbCrLf & + "Prüfsumme: " & dblCheckSumQuantity & vbCrLf + End If + ' Prüfsumme Betrag. + If ttrTrailer.checksumAmounntInclVAT <> Math.Round(curCheckSumAmount, 2) Then + strPrompt = strPrompt & "Check Sum Amount: " & ttrTrailer.checksumAmounntInclVAT & vbCrLf & + "Prüfsumme: " & curCheckSumAmount & vbCrLf + End If + + If strPrompt <> "" Then + MsgBox(strPrompt) + objFileRead.Close() + Return False + End If + + End With + ' Prüfsumme Anzahl der Sätze im File ohne Header und Trailer. + + If ttrTrailer.recordCount <> (lngRecordCount) Then + MsgBox("Record Count: " & ttrTrailer.recordCount & vbCrLf & "Prüfsumme: " & (lngRecordCount) & vbCrLf) + objFileRead.Close() + Return False + End If + + + ' Meldung bei Prüfsummenfehler. + If booPrüfziffernfehler Then + MsgBox("Datei kann wegen Prüfsummenfehler nicht verarbeitet werden.") + objFileRead.Close() + Return False + ' MsgBox strPrompt, , strPKFileName + ' ' Zurücksetzen der Transaktion. + 'cnnASFINAG.RollbackTrans + ' booInTransaktion = False + End If + Case Else + ' Andere RecordNumber überlesen. + End Select + + Loop + + objFileRead.Close() + + Return True + + End Function + + + + Private Sub dgvEinarbeitung_SelectionChanged(sender As Object, e As EventArgs) Handles dgvEinarbeitung.SelectionChanged dgvEinarbeitung.ClearSelection() End Sub - - - - - Private Sub frmTCNachrichtenVerarbeitung_Shown(sender As Object, e As EventArgs) Handles Me.Shown If allowClose Then Me.Refresh() @@ -561,5 +760,20 @@ Public Class frmAsfinag_NachrichtenVerabeitung Private Sub pnl_Paint(sender As Object, e As PaintEventArgs) Handles pnl.Paint End Sub + + + Public Shadows Function Right(ByVal sText As String, + ByVal nLen As Integer) As String + + If nLen > sText.Length Then nLen = sText.Length + Return (sText.Substring(sText.Length - nLen)) + End Function + + Public Shadows Function Left(ByVal sText As String, + ByVal nLen As Integer) As String + + If nLen > sText.Length Then nLen = sText.Length + Return (sText.Substring(0, nLen)) + End Function End Class diff --git a/initATLASAufschubkonten/frmStartOptions.Designer.vb b/initATLASAufschubkonten/frmStartOptions.Designer.vb index 0e14271..c16fd6f 100644 --- a/initATLASAufschubkonten/frmStartOptions.Designer.vb +++ b/initATLASAufschubkonten/frmStartOptions.Designer.vb @@ -148,6 +148,13 @@ Partial Class frmStartOptions Me.LinkLabel29 = New System.Windows.Forms.LinkLabel() Me.LinkLabel30 = New System.Windows.Forms.LinkLabel() Me.Label11 = New System.Windows.Forms.Label() + Me.TabPage4 = New System.Windows.Forms.TabPage() + Me.LinkLabel41 = New System.Windows.Forms.LinkLabel() + Me.LinkLabel42 = New System.Windows.Forms.LinkLabel() + Me.Label23 = New System.Windows.Forms.Label() + Me.LinkLabel43 = New System.Windows.Forms.LinkLabel() + Me.LinkLabel44 = New System.Windows.Forms.LinkLabel() + Me.Label24 = New System.Windows.Forms.Label() Me.CheckBox2 = New System.Windows.Forms.CheckBox() Me.LinkLabel25 = New System.Windows.Forms.LinkLabel() Me.CheckBox1 = New System.Windows.Forms.CheckBox() @@ -172,13 +179,6 @@ Partial Class frmStartOptions Me.lklAufschubkontenATLASEZOLL = New System.Windows.Forms.LinkLabel() Me.lblRoutineManager = New System.Windows.Forms.Label() Me.txtGJ_UNISPED = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.TabPage4 = New System.Windows.Forms.TabPage() - Me.LinkLabel41 = New System.Windows.Forms.LinkLabel() - Me.LinkLabel42 = New System.Windows.Forms.LinkLabel() - Me.Label23 = New System.Windows.Forms.Label() - Me.LinkLabel43 = New System.Windows.Forms.LinkLabel() - Me.LinkLabel44 = New System.Windows.Forms.LinkLabel() - Me.Label24 = New System.Windows.Forms.Label() Me.pnl.SuspendLayout() CType(Me.piceZollAnh, System.ComponentModel.ISupportInitialize).BeginInit() Me.tbcntr.SuspendLayout() @@ -200,11 +200,11 @@ Partial Class frmStartOptions CType(Me.PictureBox14, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.dgvMRN, System.ComponentModel.ISupportInitialize).BeginInit() Me.TabPage3.SuspendLayout() + Me.TabPage4.SuspendLayout() CType(Me.PictureBox12, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox11, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox10, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox9, System.ComponentModel.ISupportInitialize).BeginInit() - Me.TabPage4.SuspendLayout() Me.SuspendLayout() ' 'pnl @@ -1816,6 +1816,84 @@ Partial Class frmStartOptions Me.Label11.TabIndex = 22 Me.Label11.Text = "MAVI Nachrichtenverarbeitung (NCTS TR):" ' + 'TabPage4 + ' + Me.TabPage4.Controls.Add(Me.LinkLabel41) + Me.TabPage4.Controls.Add(Me.LinkLabel42) + Me.TabPage4.Controls.Add(Me.Label23) + Me.TabPage4.Controls.Add(Me.LinkLabel43) + Me.TabPage4.Controls.Add(Me.LinkLabel44) + Me.TabPage4.Controls.Add(Me.Label24) + Me.TabPage4.Location = New System.Drawing.Point(4, 22) + Me.TabPage4.Name = "TabPage4" + Me.TabPage4.Size = New System.Drawing.Size(851, 395) + Me.TabPage4.TabIndex = 3 + Me.TabPage4.Text = "Asfinag" + Me.TabPage4.UseVisualStyleBackColor = True + ' + 'LinkLabel41 + ' + Me.LinkLabel41.AutoSize = True + Me.LinkLabel41.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.LinkLabel41.Location = New System.Drawing.Point(17, 165) + Me.LinkLabel41.Name = "LinkLabel41" + Me.LinkLabel41.Size = New System.Drawing.Size(82, 13) + Me.LinkLabel41.TabIndex = 35 + Me.LinkLabel41.TabStop = True + Me.LinkLabel41.Text = "Black-List (TBL)" + ' + 'LinkLabel42 + ' + Me.LinkLabel42.AutoSize = True + Me.LinkLabel42.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.LinkLabel42.Location = New System.Drawing.Point(17, 140) + Me.LinkLabel42.Name = "LinkLabel42" + Me.LinkLabel42.Size = New System.Drawing.Size(87, 13) + Me.LinkLabel42.TabIndex = 34 + Me.LinkLabel42.TabStop = True + Me.LinkLabel42.Text = "White-List (TWL)" + ' + 'Label23 + ' + Me.Label23.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label23.Location = New System.Drawing.Point(17, 113) + Me.Label23.Name = "Label23" + Me.Label23.Size = New System.Drawing.Size(296, 16) + Me.Label23.TabIndex = 33 + Me.Label23.Text = "Export" + ' + 'LinkLabel43 + ' + Me.LinkLabel43.AutoSize = True + Me.LinkLabel43.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.LinkLabel43.Location = New System.Drawing.Point(17, 68) + Me.LinkLabel43.Name = "LinkLabel43" + Me.LinkLabel43.Size = New System.Drawing.Size(102, 13) + Me.LinkLabel43.TabIndex = 32 + Me.LinkLabel43.TabStop = True + Me.LinkLabel43.Text = "Contractdaten (CLF)" + ' + 'LinkLabel44 + ' + Me.LinkLabel44.AutoSize = True + Me.LinkLabel44.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.LinkLabel44.Location = New System.Drawing.Point(17, 43) + Me.LinkLabel44.Name = "LinkLabel44" + Me.LinkLabel44.Size = New System.Drawing.Size(126, 13) + Me.LinkLabel44.TabIndex = 31 + Me.LinkLabel44.TabStop = True + Me.LinkLabel44.Text = "Transaktionsdaten (TTR)" + ' + 'Label24 + ' + Me.Label24.AutoSize = True + Me.Label24.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label24.Location = New System.Drawing.Point(17, 16) + Me.Label24.Name = "Label24" + Me.Label24.Size = New System.Drawing.Size(42, 13) + Me.Label24.TabIndex = 30 + Me.Label24.Text = "Import" + ' 'CheckBox2 ' Me.CheckBox2.AutoSize = True @@ -2110,84 +2188,6 @@ Partial Class frmStartOptions Me.txtGJ_UNISPED.Size = New System.Drawing.Size(53, 20) Me.txtGJ_UNISPED.TabIndex = 68 ' - 'TabPage4 - ' - Me.TabPage4.Controls.Add(Me.LinkLabel41) - Me.TabPage4.Controls.Add(Me.LinkLabel42) - Me.TabPage4.Controls.Add(Me.Label23) - Me.TabPage4.Controls.Add(Me.LinkLabel43) - Me.TabPage4.Controls.Add(Me.LinkLabel44) - Me.TabPage4.Controls.Add(Me.Label24) - Me.TabPage4.Location = New System.Drawing.Point(4, 22) - Me.TabPage4.Name = "TabPage4" - Me.TabPage4.Size = New System.Drawing.Size(851, 395) - Me.TabPage4.TabIndex = 3 - Me.TabPage4.Text = "Asfinag" - Me.TabPage4.UseVisualStyleBackColor = True - ' - 'LinkLabel41 - ' - Me.LinkLabel41.AutoSize = True - Me.LinkLabel41.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.LinkLabel41.Location = New System.Drawing.Point(17, 165) - Me.LinkLabel41.Name = "LinkLabel41" - Me.LinkLabel41.Size = New System.Drawing.Size(82, 13) - Me.LinkLabel41.TabIndex = 35 - Me.LinkLabel41.TabStop = True - Me.LinkLabel41.Text = "Black-List (TBL)" - ' - 'LinkLabel42 - ' - Me.LinkLabel42.AutoSize = True - Me.LinkLabel42.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.LinkLabel42.Location = New System.Drawing.Point(17, 140) - Me.LinkLabel42.Name = "LinkLabel42" - Me.LinkLabel42.Size = New System.Drawing.Size(87, 13) - Me.LinkLabel42.TabIndex = 34 - Me.LinkLabel42.TabStop = True - Me.LinkLabel42.Text = "White-List (TWL)" - ' - 'Label23 - ' - Me.Label23.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label23.Location = New System.Drawing.Point(17, 113) - Me.Label23.Name = "Label23" - Me.Label23.Size = New System.Drawing.Size(296, 16) - Me.Label23.TabIndex = 33 - Me.Label23.Text = "Export" - ' - 'LinkLabel43 - ' - Me.LinkLabel43.AutoSize = True - Me.LinkLabel43.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.LinkLabel43.Location = New System.Drawing.Point(17, 68) - Me.LinkLabel43.Name = "LinkLabel43" - Me.LinkLabel43.Size = New System.Drawing.Size(102, 13) - Me.LinkLabel43.TabIndex = 32 - Me.LinkLabel43.TabStop = True - Me.LinkLabel43.Text = "Contractdaten (CLF)" - ' - 'LinkLabel44 - ' - Me.LinkLabel44.AutoSize = True - Me.LinkLabel44.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.LinkLabel44.Location = New System.Drawing.Point(17, 43) - Me.LinkLabel44.Name = "LinkLabel44" - Me.LinkLabel44.Size = New System.Drawing.Size(126, 13) - Me.LinkLabel44.TabIndex = 31 - Me.LinkLabel44.TabStop = True - Me.LinkLabel44.Text = "Transaktionsdaten (TTR)" - ' - 'Label24 - ' - Me.Label24.AutoSize = True - Me.Label24.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label24.Location = New System.Drawing.Point(17, 16) - Me.Label24.Name = "Label24" - Me.Label24.Size = New System.Drawing.Size(42, 13) - Me.Label24.TabIndex = 30 - Me.Label24.Text = "Import" - ' 'frmStartOptions ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) @@ -2226,12 +2226,12 @@ Partial Class frmStartOptions CType(Me.dgvMRN, System.ComponentModel.ISupportInitialize).EndInit() Me.TabPage3.ResumeLayout(False) Me.TabPage3.PerformLayout() + Me.TabPage4.ResumeLayout(False) + Me.TabPage4.PerformLayout() CType(Me.PictureBox12, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBox11, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBox10, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBox9, System.ComponentModel.ISupportInitialize).EndInit() - Me.TabPage4.ResumeLayout(False) - Me.TabPage4.PerformLayout() Me.ResumeLayout(False) End Sub diff --git a/initATLASAufschubkonten/frmStartOptions.resx b/initATLASAufschubkonten/frmStartOptions.resx index a055b7d..1edf06b 100644 --- a/initATLASAufschubkonten/frmStartOptions.resx +++ b/initATLASAufschubkonten/frmStartOptions.resx @@ -140,6 +140,102 @@ WOhxEFgYvLZus64EJhQtqBTtALDEsQ/aHnRf3FTcASpEWwBsbQkBLQW1uqiTUJABFxcXg7y8PJupqSm/ nZ2diL29vSgyBooJm5ub88nKyrIC1VLezgQ2zRk9PT0F6urqVCdNmmQwbdo0Y2Q8efJk3ebmZkVXV1de CQkJEjM9AwMAOTMC2xlgxuQAAAAASUVORK5CYII= + + + + + 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= + + + + + 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= + + + + + 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= + + + + + 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= @@ -481,102 +577,9 @@ True - - - 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= - - - - - 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= - - - - - 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= - - - - - 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= - - + + True + AAABAAEAgIAAAAEAGAAoyAAAFgAAACgAAACAAAAAAAEAAAEAGAAAAAAAAMgAAMQOAADEDgAAAAAAAAAA diff --git a/initATLASAufschubkonten/frmStartOptions.vb b/initATLASAufschubkonten/frmStartOptions.vb index 452cf7c..d48dfeb 100644 --- a/initATLASAufschubkonten/frmStartOptions.vb +++ b/initATLASAufschubkonten/frmStartOptions.vb @@ -3436,4 +3436,27 @@ Public Class frmStartOptions VERAG_PROG_ALLGEMEIN.cDatev_Interface.genDatensatzCSV_ALL(cbxDatevOpen.Checked, cbxDatevDebitoren.Checked, cbxDatevBuchungen.Checked) End Sub + Private Sub LinkLabel44_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel44.LinkClicked + Me.Visible = False + VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True + Dim f As New frmAsfinag_NachrichtenVerabeitung("ttr") + f.ShowDialog() + Me.Visible = True + End Sub + + Private Sub LinkLabel43_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel43.LinkClicked + Me.Visible = False + VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True + Dim f As New frmAsfinag_NachrichtenVerabeitung("clf") + f.ShowDialog() + Me.Visible = True + End Sub + + Private Sub LinkLabel42_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel42.LinkClicked + + End Sub + + Private Sub LinkLabel41_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel41.LinkClicked + + End Sub End Class \ No newline at end of file From dae5b4da7701b6e4b47b68c042a13049bee06633 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Tue, 19 Sep 2023 15:32:15 +0200 Subject: [PATCH 3/6] =?UTF-8?q?Timas,=20Fremdw=C3=A4hrungen,=20Asfinag?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- UID/ADMIN.vbproj | 11 + UID/Mitarbeiter/frmMitarbDetails.Designer.vb | 2 +- UID/Mitarbeiter/frmMitarbDetails.vb | 6 +- UID/Mitarbeiter/frmMitarbTimas.Designer.vb | 759 ++++++++++++++++ UID/Mitarbeiter/frmMitarbTimas.resx | 835 ++++++++++++++++++ UID/Mitarbeiter/frmMitarbTimas.vb | 307 +++++++ .../usrCntlMitarbeiter.Designer.vb | 209 ++--- UID/Mitarbeiter/usrCntlMitarbeiter.vb | 11 + UID/My Project/AssemblyInfo.vb | 4 +- initATLASAufschubkonten/cAsfinag.vb | 424 ++++++++- .../frmAsfinag_NachrichtenVerarbeitung.vb | 172 +--- .../frmStartOptions.Designer.vb | 704 ++++++++------- initATLASAufschubkonten/frmStartOptions.resx | 221 +++-- initATLASAufschubkonten/frmStartOptions.vb | 112 ++- 14 files changed, 3126 insertions(+), 651 deletions(-) create mode 100644 UID/Mitarbeiter/frmMitarbTimas.Designer.vb create mode 100644 UID/Mitarbeiter/frmMitarbTimas.resx create mode 100644 UID/Mitarbeiter/frmMitarbTimas.vb diff --git a/UID/ADMIN.vbproj b/UID/ADMIN.vbproj index 924da17..5a922f0 100644 --- a/UID/ADMIN.vbproj +++ b/UID/ADMIN.vbproj @@ -467,6 +467,12 @@ Form + + frmMitarbTimas.vb + + + Form + True True @@ -727,6 +733,10 @@ frmPrintLayout.vb + + frmMitarbTimas.vb + Designer + frmBenutzerBerGruppenKopieren.vb @@ -757,6 +767,7 @@ frmMitarbDetails.vb + Designer frmMitarbeiter.vb diff --git a/UID/Mitarbeiter/frmMitarbDetails.Designer.vb b/UID/Mitarbeiter/frmMitarbDetails.Designer.vb index 1e11805..b3d93af 100644 --- a/UID/Mitarbeiter/frmMitarbDetails.Designer.vb +++ b/UID/Mitarbeiter/frmMitarbDetails.Designer.vb @@ -820,7 +820,7 @@ Partial Class frmMitarbDetails Me.TabControl1.Location = New System.Drawing.Point(5, 26) Me.TabControl1.Name = "TabControl1" Me.TabControl1.SelectedIndex = 0 - Me.TabControl1.Size = New System.Drawing.Size(360, 145) + Me.TabControl1.Size = New System.Drawing.Size(287, 145) Me.TabControl1.TabIndex = 122 ' 'PictureBox9 diff --git a/UID/Mitarbeiter/frmMitarbDetails.vb b/UID/Mitarbeiter/frmMitarbDetails.vb index 5403ca1..4bd6232 100644 --- a/UID/Mitarbeiter/frmMitarbDetails.vb +++ b/UID/Mitarbeiter/frmMitarbDetails.vb @@ -864,7 +864,7 @@ Public Class frmMitarbDetails If IsNothing(mitarbeiter.mit_timasId) Then cbxTimasAngelegt.Checked = False - timas.getGroups(dtTimas) + timas.getAllGroups(dtTimas) initDGV(dtTimas) Else cbxTimasAngelegt.Checked = True @@ -1141,8 +1141,8 @@ Public Class frmMitarbDetails If checkMandatoryFields() Then - timas.createMA(mitarbeiter, rtfInfoTimas.Text, dtTimas) - tbcntr_TabIndexChanged(sender, e) + timas.createEmployee(mitarbeiter, rtfInfoTimas.Text, dtTimas) + tbcntr_TabIndexChanged(sender, e) End If End Sub diff --git a/UID/Mitarbeiter/frmMitarbTimas.Designer.vb b/UID/Mitarbeiter/frmMitarbTimas.Designer.vb new file mode 100644 index 0000000..82ba6fc --- /dev/null +++ b/UID/Mitarbeiter/frmMitarbTimas.Designer.vb @@ -0,0 +1,759 @@ + +Partial Class frmMitarbTimas + Inherits System.Windows.Forms.Form + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. + 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMitarbTimas)) + Me.PictureBox1 = New System.Windows.Forms.PictureBox() + Me.Label1 = New System.Windows.Forms.Label() + Me.Panel1 = New System.Windows.Forms.Panel() + Me.Label48 = New System.Windows.Forms.Label() + Me.Label47 = New System.Windows.Forms.Label() + Me.btnCancel = New System.Windows.Forms.Button() + Me.btnOK = New System.Windows.Forms.Button() + Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components) + Me.GroupBox2 = New System.Windows.Forms.GroupBox() + Me.GroupBox1 = New System.Windows.Forms.GroupBox() + Me.cbxTestaccount = New System.Windows.Forms.CheckBox() + Me.cbxGebDat = New System.Windows.Forms.CheckBox() + Me.txtGebDat = New System.Windows.Forms.DateTimePicker() + Me.lblgeb = New System.Windows.Forms.Label() + Me.txtMobiltel = New System.Windows.Forms.TextBox() + Me.Label18 = New System.Windows.Forms.Label() + Me.txtOrt = New System.Windows.Forms.TextBox() + Me.Label16 = New System.Windows.Forms.Label() + Me.txtPlz = New System.Windows.Forms.TextBox() + Me.Label14 = New System.Windows.Forms.Label() + Me.txtStrasse = New System.Windows.Forms.TextBox() + Me.Label13 = New System.Windows.Forms.Label() + Me.rbtnGeschlechtW = New System.Windows.Forms.RadioButton() + Me.rbtnGeschlechtM = New System.Windows.Forms.RadioButton() + Me.txtNname = New System.Windows.Forms.TextBox() + Me.Label5 = New System.Windows.Forms.Label() + Me.txtVname = New System.Windows.Forms.TextBox() + Me.Label2 = New System.Windows.Forms.Label() + Me.GroupBox3 = New System.Windows.Forms.GroupBox() + Me.Label3 = New System.Windows.Forms.Label() + Me.txtUsername = New System.Windows.Forms.TextBox() + Me.Label19 = New System.Windows.Forms.Label() + Me.txtDurchwahl = New System.Windows.Forms.TextBox() + Me.Label20 = New System.Windows.Forms.Label() + Me.txtEmail = New System.Windows.Forms.TextBox() + Me.cbxGekuendigt = New System.Windows.Forms.CheckBox() + Me.datGekuendigtAm = New System.Windows.Forms.DateTimePicker() + Me.datEinstiegsdatum = New System.Windows.Forms.DateTimePicker() + Me.Label30 = New System.Windows.Forms.Label() + Me.cbxEinsteigsDat = New System.Windows.Forms.CheckBox() + Me.txtTelNr = New System.Windows.Forms.TextBox() + Me.Label6 = New System.Windows.Forms.Label() + Me.txtPwd = New System.Windows.Forms.TextBox() + Me.Label8 = New System.Windows.Forms.Label() + Me.lkl = New System.Windows.Forms.LinkLabel() + Me.lblInfo = New System.Windows.Forms.Label() + Me.txtInfo = New System.Windows.Forms.TextBox() + Me.lblCard = New System.Windows.Forms.Label() + Me.txtCard = New System.Windows.Forms.TextBox() + Me.Label7 = New System.Windows.Forms.Label() + Me.TextBox2 = New System.Windows.Forms.TextBox() + Me.cbxAccount = New System.Windows.Forms.CheckBox() + Me.lblLohnNr = New System.Windows.Forms.Label() + Me.txtLohn = New System.Windows.Forms.TextBox() + Me.TabControl1 = New System.Windows.Forms.TabControl() + Me.dgvData = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) + CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.Panel1.SuspendLayout() + Me.GroupBox2.SuspendLayout() + Me.GroupBox1.SuspendLayout() + Me.GroupBox3.SuspendLayout() + CType(Me.dgvData, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'PictureBox1 + ' + Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image) + Me.PictureBox1.Location = New System.Drawing.Point(12, 7) + Me.PictureBox1.Name = "PictureBox1" + Me.PictureBox1.Size = New System.Drawing.Size(198, 41) + Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.PictureBox1.TabIndex = 13 + Me.PictureBox1.TabStop = False + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Cursor = System.Windows.Forms.Cursors.Default + Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label1.Location = New System.Drawing.Point(216, 19) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(101, 16) + Me.Label1.TabIndex = 18 + Me.Label1.Text = "Zeiterfassung" + ' + 'Panel1 + ' + Me.Panel1.Controls.Add(Me.Label48) + Me.Panel1.Controls.Add(Me.Label47) + Me.Panel1.Controls.Add(Me.Label1) + Me.Panel1.Controls.Add(Me.PictureBox1) + Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top + Me.Panel1.Location = New System.Drawing.Point(0, 0) + Me.Panel1.Name = "Panel1" + Me.Panel1.Size = New System.Drawing.Size(570, 57) + Me.Panel1.TabIndex = 23 + ' + 'Label48 + ' + Me.Label48.Cursor = System.Windows.Forms.Cursors.Default + Me.Label48.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label48.Location = New System.Drawing.Point(449, 22) + Me.Label48.Name = "Label48" + Me.Label48.Size = New System.Drawing.Size(82, 16) + Me.Label48.TabIndex = 93 + Me.Label48.Text = "00" + Me.Label48.TextAlign = System.Drawing.ContentAlignment.TopRight + ' + 'Label47 + ' + Me.Label47.AutoSize = True + Me.Label47.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label47.Location = New System.Drawing.Point(508, 9) + Me.Label47.Name = "Label47" + Me.Label47.Size = New System.Drawing.Size(21, 13) + Me.Label47.TabIndex = 92 + Me.Label47.Text = "ID:" + ' + 'btnCancel + ' + Me.btnCancel.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.btnCancel.BackColor = System.Drawing.Color.White + Me.btnCancel.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnCancel.Location = New System.Drawing.Point(191, 871) + Me.btnCancel.Name = "btnCancel" + Me.btnCancel.Size = New System.Drawing.Size(88, 36) + Me.btnCancel.TabIndex = 52 + Me.btnCancel.Text = "Abbrechen" + Me.btnCancel.UseVisualStyleBackColor = False + ' + 'btnOK + ' + Me.btnOK.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.btnOK.BackColor = System.Drawing.Color.White + Me.btnOK.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnOK.Location = New System.Drawing.Point(12, 871) + Me.btnOK.Name = "btnOK" + Me.btnOK.Size = New System.Drawing.Size(173, 36) + Me.btnOK.TabIndex = 51 + Me.btnOK.Text = "OK" + Me.btnOK.UseVisualStyleBackColor = False + ' + 'ContextMenuStrip1 + ' + Me.ContextMenuStrip1.Name = "ContextMenuStrip1" + Me.ContextMenuStrip1.Size = New System.Drawing.Size(61, 4) + ' + 'GroupBox2 + ' + Me.GroupBox2.Controls.Add(Me.txtLohn) + Me.GroupBox2.Controls.Add(Me.lblLohnNr) + Me.GroupBox2.Controls.Add(Me.cbxAccount) + Me.GroupBox2.Controls.Add(Me.TextBox2) + Me.GroupBox2.Controls.Add(Me.Label7) + Me.GroupBox2.Controls.Add(Me.txtCard) + Me.GroupBox2.Controls.Add(Me.lblCard) + Me.GroupBox2.Controls.Add(Me.txtInfo) + Me.GroupBox2.Controls.Add(Me.lblInfo) + Me.GroupBox2.Controls.Add(Me.lkl) + Me.GroupBox2.Controls.Add(Me.Label8) + Me.GroupBox2.Controls.Add(Me.txtPwd) + Me.GroupBox2.Controls.Add(Me.Label6) + Me.GroupBox2.Controls.Add(Me.txtTelNr) + Me.GroupBox2.Controls.Add(Me.cbxEinsteigsDat) + Me.GroupBox2.Controls.Add(Me.Label30) + Me.GroupBox2.Controls.Add(Me.datEinstiegsdatum) + Me.GroupBox2.Controls.Add(Me.datGekuendigtAm) + Me.GroupBox2.Controls.Add(Me.cbxGekuendigt) + Me.GroupBox2.Controls.Add(Me.txtEmail) + Me.GroupBox2.Controls.Add(Me.Label20) + Me.GroupBox2.Controls.Add(Me.txtDurchwahl) + Me.GroupBox2.Controls.Add(Me.Label19) + Me.GroupBox2.Controls.Add(Me.txtUsername) + Me.GroupBox2.Controls.Add(Me.Label3) + Me.GroupBox2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.GroupBox2.Location = New System.Drawing.Point(6, 289) + Me.GroupBox2.Name = "GroupBox2" + Me.GroupBox2.Size = New System.Drawing.Size(552, 303) + Me.GroupBox2.TabIndex = 86 + Me.GroupBox2.TabStop = False + Me.GroupBox2.Text = "Timas - User" + ' + 'GroupBox1 + ' + Me.GroupBox1.Controls.Add(Me.cbxTestaccount) + Me.GroupBox1.Controls.Add(Me.cbxGebDat) + Me.GroupBox1.Controls.Add(Me.txtGebDat) + Me.GroupBox1.Controls.Add(Me.lblgeb) + Me.GroupBox1.Controls.Add(Me.txtMobiltel) + Me.GroupBox1.Controls.Add(Me.Label18) + Me.GroupBox1.Controls.Add(Me.txtOrt) + Me.GroupBox1.Controls.Add(Me.Label16) + Me.GroupBox1.Controls.Add(Me.txtPlz) + Me.GroupBox1.Controls.Add(Me.Label14) + Me.GroupBox1.Controls.Add(Me.txtStrasse) + Me.GroupBox1.Controls.Add(Me.Label13) + Me.GroupBox1.Controls.Add(Me.rbtnGeschlechtW) + Me.GroupBox1.Controls.Add(Me.rbtnGeschlechtM) + Me.GroupBox1.Controls.Add(Me.txtNname) + Me.GroupBox1.Controls.Add(Me.Label5) + Me.GroupBox1.Controls.Add(Me.txtVname) + Me.GroupBox1.Controls.Add(Me.Label2) + Me.GroupBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.GroupBox1.Location = New System.Drawing.Point(12, 63) + Me.GroupBox1.Name = "GroupBox1" + Me.GroupBox1.Size = New System.Drawing.Size(552, 220) + Me.GroupBox1.TabIndex = 85 + Me.GroupBox1.TabStop = False + Me.GroupBox1.Text = "Person" + ' + 'cbxTestaccount + ' + Me.cbxTestaccount.AutoSize = True + Me.cbxTestaccount.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cbxTestaccount.Location = New System.Drawing.Point(389, 61) + Me.cbxTestaccount.Name = "cbxTestaccount" + Me.cbxTestaccount.Size = New System.Drawing.Size(86, 17) + Me.cbxTestaccount.TabIndex = 92 + Me.cbxTestaccount.Text = "Testaccount" + Me.cbxTestaccount.UseVisualStyleBackColor = True + ' + 'cbxGebDat + ' + Me.cbxGebDat.AutoSize = True + Me.cbxGebDat.Checked = True + Me.cbxGebDat.CheckState = System.Windows.Forms.CheckState.Checked + Me.cbxGebDat.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cbxGebDat.Location = New System.Drawing.Point(9, 196) + Me.cbxGebDat.Name = "cbxGebDat" + Me.cbxGebDat.Size = New System.Drawing.Size(15, 14) + Me.cbxGebDat.TabIndex = 91 + Me.cbxGebDat.UseVisualStyleBackColor = True + ' + 'txtGebDat + ' + Me.txtGebDat.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtGebDat.Location = New System.Drawing.Point(30, 194) + Me.txtGebDat.Name = "txtGebDat" + Me.txtGebDat.Size = New System.Drawing.Size(200, 20) + Me.txtGebDat.TabIndex = 10 + ' + 'lblgeb + ' + Me.lblgeb.AutoSize = True + Me.lblgeb.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblgeb.Location = New System.Drawing.Point(6, 178) + Me.lblgeb.Name = "lblgeb" + Me.lblgeb.Size = New System.Drawing.Size(62, 13) + Me.lblgeb.TabIndex = 82 + Me.lblgeb.Text = "Geburtstag:" + ' + 'txtMobiltel + ' + Me.txtMobiltel.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtMobiltel.Location = New System.Drawing.Point(9, 155) + Me.txtMobiltel.Name = "txtMobiltel" + Me.txtMobiltel.Size = New System.Drawing.Size(286, 20) + Me.txtMobiltel.TabIndex = 8 + ' + 'Label18 + ' + Me.Label18.AutoSize = True + Me.Label18.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label18.Location = New System.Drawing.Point(6, 139) + Me.Label18.Name = "Label18" + Me.Label18.Size = New System.Drawing.Size(84, 13) + Me.Label18.TabIndex = 79 + Me.Label18.Text = "Mobiltelefon-Nr.:" + ' + 'txtOrt + ' + Me.txtOrt.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtOrt.Location = New System.Drawing.Point(196, 116) + Me.txtOrt.Name = "txtOrt" + Me.txtOrt.Size = New System.Drawing.Size(177, 20) + Me.txtOrt.TabIndex = 7 + ' + 'Label16 + ' + Me.Label16.AutoSize = True + Me.Label16.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label16.Location = New System.Drawing.Point(193, 100) + Me.Label16.Name = "Label16" + Me.Label16.Size = New System.Drawing.Size(24, 13) + Me.Label16.TabIndex = 75 + Me.Label16.Text = "Ort:" + ' + 'txtPlz + ' + Me.txtPlz.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtPlz.Location = New System.Drawing.Point(10, 116) + Me.txtPlz.Name = "txtPlz" + Me.txtPlz.Size = New System.Drawing.Size(177, 20) + Me.txtPlz.TabIndex = 6 + ' + 'Label14 + ' + Me.Label14.AutoSize = True + Me.Label14.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label14.Location = New System.Drawing.Point(7, 100) + Me.Label14.Name = "Label14" + Me.Label14.Size = New System.Drawing.Size(30, 13) + Me.Label14.TabIndex = 73 + Me.Label14.Text = "PLZ:" + ' + 'txtStrasse + ' + Me.txtStrasse.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtStrasse.Location = New System.Drawing.Point(9, 77) + Me.txtStrasse.Name = "txtStrasse" + Me.txtStrasse.Size = New System.Drawing.Size(286, 20) + Me.txtStrasse.TabIndex = 3 + ' + 'Label13 + ' + Me.Label13.AutoSize = True + Me.Label13.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label13.Location = New System.Drawing.Point(6, 61) + Me.Label13.Name = "Label13" + Me.Label13.Size = New System.Drawing.Size(45, 13) + Me.Label13.TabIndex = 71 + Me.Label13.Text = "Strasse:" + ' + 'rbtnGeschlechtW + ' + Me.rbtnGeschlechtW.AutoSize = True + Me.rbtnGeschlechtW.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.rbtnGeschlechtW.Location = New System.Drawing.Point(389, 35) + Me.rbtnGeschlechtW.Name = "rbtnGeschlechtW" + Me.rbtnGeschlechtW.Size = New System.Drawing.Size(33, 17) + Me.rbtnGeschlechtW.TabIndex = 65 + Me.rbtnGeschlechtW.Text = "w" + Me.rbtnGeschlechtW.UseVisualStyleBackColor = True + ' + 'rbtnGeschlechtM + ' + Me.rbtnGeschlechtM.AutoSize = True + Me.rbtnGeschlechtM.Checked = True + Me.rbtnGeschlechtM.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.rbtnGeschlechtM.Location = New System.Drawing.Point(389, 19) + Me.rbtnGeschlechtM.Name = "rbtnGeschlechtM" + Me.rbtnGeschlechtM.Size = New System.Drawing.Size(33, 17) + Me.rbtnGeschlechtM.TabIndex = 64 + Me.rbtnGeschlechtM.TabStop = True + Me.rbtnGeschlechtM.Text = "m" + Me.rbtnGeschlechtM.UseVisualStyleBackColor = True + ' + 'txtNname + ' + Me.txtNname.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtNname.Location = New System.Drawing.Point(193, 32) + Me.txtNname.Name = "txtNname" + Me.txtNname.Size = New System.Drawing.Size(177, 20) + Me.txtNname.TabIndex = 2 + ' + 'Label5 + ' + Me.Label5.AutoSize = True + Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label5.Location = New System.Drawing.Point(190, 16) + Me.Label5.Name = "Label5" + Me.Label5.Size = New System.Drawing.Size(62, 13) + Me.Label5.TabIndex = 61 + Me.Label5.Text = "Nachname:" + ' + 'txtVname + ' + Me.txtVname.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtVname.Location = New System.Drawing.Point(10, 32) + Me.txtVname.Name = "txtVname" + Me.txtVname.Size = New System.Drawing.Size(177, 20) + Me.txtVname.TabIndex = 1 + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label2.Location = New System.Drawing.Point(7, 16) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(52, 13) + Me.Label2.TabIndex = 60 + Me.Label2.Text = "Vorname:" + ' + 'GroupBox3 + ' + Me.GroupBox3.Controls.Add(Me.dgvData) + Me.GroupBox3.Controls.Add(Me.TabControl1) + Me.GroupBox3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.GroupBox3.Location = New System.Drawing.Point(6, 598) + Me.GroupBox3.Name = "GroupBox3" + Me.GroupBox3.Size = New System.Drawing.Size(552, 261) + Me.GroupBox3.TabIndex = 87 + Me.GroupBox3.TabStop = False + Me.GroupBox3.Text = "Timas - Gruppen" + ' + 'Label3 + ' + Me.Label3.AutoSize = True + Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label3.Location = New System.Drawing.Point(13, 39) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(58, 13) + Me.Label3.TabIndex = 56 + Me.Label3.Text = "Username:" + ' + 'txtUsername + ' + Me.txtUsername.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtUsername.Location = New System.Drawing.Point(16, 55) + Me.txtUsername.Name = "txtUsername" + Me.txtUsername.Size = New System.Drawing.Size(177, 20) + Me.txtUsername.TabIndex = 0 + ' + 'Label19 + ' + Me.Label19.AutoSize = True + Me.Label19.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label19.Location = New System.Drawing.Point(15, 188) + Me.Label19.Name = "Label19" + Me.Label19.Size = New System.Drawing.Size(108, 13) + Me.Label19.TabIndex = 81 + Me.Label19.Text = "Telefon / Durchwahl:" + ' + 'txtDurchwahl + ' + Me.txtDurchwahl.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtDurchwahl.Location = New System.Drawing.Point(138, 204) + Me.txtDurchwahl.Name = "txtDurchwahl" + Me.txtDurchwahl.Size = New System.Drawing.Size(54, 20) + Me.txtDurchwahl.TabIndex = 6 + ' + 'Label20 + ' + Me.Label20.AutoSize = True + Me.Label20.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label20.Location = New System.Drawing.Point(207, 188) + Me.Label20.Name = "Label20" + Me.Label20.Size = New System.Drawing.Size(39, 13) + Me.Label20.TabIndex = 83 + Me.Label20.Text = "E-Mail:" + ' + 'txtEmail + ' + Me.txtEmail.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtEmail.Location = New System.Drawing.Point(210, 204) + Me.txtEmail.Name = "txtEmail" + Me.txtEmail.Size = New System.Drawing.Size(178, 20) + Me.txtEmail.TabIndex = 7 + ' + 'cbxGekuendigt + ' + Me.cbxGekuendigt.AutoSize = True + Me.cbxGekuendigt.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cbxGekuendigt.Location = New System.Drawing.Point(16, 262) + Me.cbxGekuendigt.Name = "cbxGekuendigt" + Me.cbxGekuendigt.Size = New System.Drawing.Size(69, 17) + Me.cbxGekuendigt.TabIndex = 8 + Me.cbxGekuendigt.Text = "Ende DV" + Me.cbxGekuendigt.UseVisualStyleBackColor = True + ' + 'datGekuendigtAm + ' + Me.datGekuendigtAm.Enabled = False + Me.datGekuendigtAm.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.datGekuendigtAm.Location = New System.Drawing.Point(118, 259) + Me.datGekuendigtAm.Name = "datGekuendigtAm" + Me.datGekuendigtAm.Size = New System.Drawing.Size(200, 20) + Me.datGekuendigtAm.TabIndex = 9 + ' + 'datEinstiegsdatum + ' + Me.datEinstiegsdatum.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.datEinstiegsdatum.Location = New System.Drawing.Point(118, 236) + Me.datEinstiegsdatum.Name = "datEinstiegsdatum" + Me.datEinstiegsdatum.Size = New System.Drawing.Size(200, 20) + Me.datEinstiegsdatum.TabIndex = 2 + ' + 'Label30 + ' + Me.Label30.AutoSize = True + Me.Label30.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label30.Location = New System.Drawing.Point(31, 238) + Me.Label30.Name = "Label30" + Me.Label30.Size = New System.Drawing.Size(81, 13) + Me.Label30.TabIndex = 89 + Me.Label30.Text = "Einstiegsdatum:" + ' + 'cbxEinsteigsDat + ' + Me.cbxEinsteigsDat.AutoSize = True + Me.cbxEinsteigsDat.Checked = True + Me.cbxEinsteigsDat.CheckState = System.Windows.Forms.CheckState.Checked + Me.cbxEinsteigsDat.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cbxEinsteigsDat.Location = New System.Drawing.Point(16, 238) + Me.cbxEinsteigsDat.Name = "cbxEinsteigsDat" + Me.cbxEinsteigsDat.Size = New System.Drawing.Size(15, 14) + Me.cbxEinsteigsDat.TabIndex = 90 + Me.cbxEinsteigsDat.UseVisualStyleBackColor = True + ' + 'txtTelNr + ' + Me.txtTelNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtTelNr.Location = New System.Drawing.Point(18, 204) + Me.txtTelNr.Name = "txtTelNr" + Me.txtTelNr.Size = New System.Drawing.Size(114, 20) + Me.txtTelNr.TabIndex = 113 + ' + 'Label6 + ' + Me.Label6.AutoSize = True + Me.Label6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label6.Location = New System.Drawing.Point(202, 36) + Me.Label6.Name = "Label6" + Me.Label6.Size = New System.Drawing.Size(53, 13) + Me.Label6.TabIndex = 116 + Me.Label6.Text = "Passwort:" + ' + 'txtPwd + ' + Me.txtPwd.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtPwd.Location = New System.Drawing.Point(204, 52) + Me.txtPwd.Name = "txtPwd" + Me.txtPwd.Size = New System.Drawing.Size(178, 20) + Me.txtPwd.TabIndex = 115 + ' + 'Label8 + ' + Me.Label8.AutoSize = True + Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label8.Location = New System.Drawing.Point(206, 55) + Me.Label8.Name = "Label8" + Me.Label8.Size = New System.Drawing.Size(146, 13) + Me.Label8.TabIndex = 114 + Me.Label8.Text = "(erst bei Doppelklick sichtbar)" + ' + 'lkl + ' + Me.lkl.AutoSize = True + Me.lkl.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lkl.Location = New System.Drawing.Point(347, 36) + Me.lkl.Name = "lkl" + Me.lkl.Size = New System.Drawing.Size(35, 13) + Me.lkl.TabIndex = 117 + Me.lkl.TabStop = True + Me.lkl.Text = "Reset" + ' + 'lblInfo + ' + Me.lblInfo.AutoSize = True + Me.lblInfo.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblInfo.Location = New System.Drawing.Point(13, 125) + Me.lblInfo.Name = "lblInfo" + Me.lblInfo.Size = New System.Drawing.Size(28, 13) + Me.lblInfo.TabIndex = 119 + Me.lblInfo.Text = "Info:" + ' + 'txtInfo + ' + Me.txtInfo.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtInfo.Location = New System.Drawing.Point(16, 141) + Me.txtInfo.Name = "txtInfo" + Me.txtInfo.Size = New System.Drawing.Size(179, 20) + Me.txtInfo.TabIndex = 118 + ' + 'lblCard + ' + Me.lblCard.AutoSize = True + Me.lblCard.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblCard.Location = New System.Drawing.Point(202, 80) + Me.lblCard.Name = "lblCard" + Me.lblCard.Size = New System.Drawing.Size(55, 13) + Me.lblCard.TabIndex = 123 + Me.lblCard.Text = "Karten-Nr:" + ' + 'txtCard + ' + Me.txtCard.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtCard.Location = New System.Drawing.Point(205, 96) + Me.txtCard.Name = "txtCard" + Me.txtCard.Size = New System.Drawing.Size(179, 20) + Me.txtCard.TabIndex = 122 + ' + 'Label7 + ' + Me.Label7.AutoSize = True + Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label7.Location = New System.Drawing.Point(13, 80) + Me.Label7.Name = "Label7" + Me.Label7.Size = New System.Drawing.Size(49, 13) + Me.Label7.TabIndex = 125 + Me.Label7.Text = "RFID-Nr:" + ' + 'TextBox2 + ' + Me.TextBox2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.TextBox2.Location = New System.Drawing.Point(16, 96) + Me.TextBox2.Name = "TextBox2" + Me.TextBox2.Size = New System.Drawing.Size(179, 20) + Me.TextBox2.TabIndex = 124 + ' + 'cbxAccount + ' + Me.cbxAccount.AutoSize = True + Me.cbxAccount.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cbxAccount.Location = New System.Drawing.Point(16, 19) + Me.cbxAccount.Name = "cbxAccount" + Me.cbxAccount.Size = New System.Drawing.Size(52, 17) + Me.cbxAccount.TabIndex = 126 + Me.cbxAccount.Text = "Login" + Me.cbxAccount.UseVisualStyleBackColor = True + ' + 'lblLohnNr + ' + Me.lblLohnNr.AutoSize = True + Me.lblLohnNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblLohnNr.Location = New System.Drawing.Point(204, 125) + Me.lblLohnNr.Name = "lblLohnNr" + Me.lblLohnNr.Size = New System.Drawing.Size(48, 13) + Me.lblLohnNr.TabIndex = 128 + Me.lblLohnNr.Text = "Lohn-Nr:" + ' + 'txtLohn + ' + Me.txtLohn.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtLohn.Location = New System.Drawing.Point(207, 141) + Me.txtLohn.Name = "txtLohn" + Me.txtLohn.Size = New System.Drawing.Size(179, 20) + Me.txtLohn.TabIndex = 127 + ' + 'TabControl1 + ' + Me.TabControl1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.TabControl1.Location = New System.Drawing.Point(6, 19) + Me.TabControl1.Name = "TabControl1" + Me.TabControl1.SelectedIndex = 0 + Me.TabControl1.Size = New System.Drawing.Size(546, 242) + Me.TabControl1.TabIndex = 123 + ' + 'dgvData + ' + Me.dgvData.AKTUALISIERUNGS_INTERVALL = -1 + Me.dgvData.BackgroundColor = System.Drawing.Color.White + Me.dgvData.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.dgvData.Location = New System.Drawing.Point(6, 19) + Me.dgvData.Name = "dgvData" + Me.dgvData.Size = New System.Drawing.Size(546, 242) + Me.dgvData.TabIndex = 124 + ' + 'frmMitarbTimas + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.BackColor = System.Drawing.Color.WhiteSmoke + Me.ClientSize = New System.Drawing.Size(570, 919) + Me.Controls.Add(Me.GroupBox3) + Me.Controls.Add(Me.GroupBox2) + Me.Controls.Add(Me.GroupBox1) + Me.Controls.Add(Me.btnCancel) + Me.Controls.Add(Me.btnOK) + Me.Controls.Add(Me.Panel1) + Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) + Me.Name = "frmMitarbTimas" + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "frmMitarbDetails" + CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit() + Me.Panel1.ResumeLayout(False) + Me.Panel1.PerformLayout() + Me.GroupBox2.ResumeLayout(False) + Me.GroupBox2.PerformLayout() + Me.GroupBox1.ResumeLayout(False) + Me.GroupBox1.PerformLayout() + Me.GroupBox3.ResumeLayout(False) + CType(Me.dgvData, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + + End Sub + Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox + Friend WithEvents Label1 As System.Windows.Forms.Label + Friend WithEvents Panel1 As System.Windows.Forms.Panel + Friend WithEvents btnCancel As System.Windows.Forms.Button + Friend WithEvents btnOK As System.Windows.Forms.Button + Friend WithEvents Label48 As System.Windows.Forms.Label + Friend WithEvents Label47 As System.Windows.Forms.Label + Friend WithEvents ContextMenuStrip1 As ContextMenuStrip + Private WithEvents GroupBox2 As GroupBox + Friend WithEvents GroupBox1 As GroupBox + Friend WithEvents cbxTestaccount As CheckBox + Friend WithEvents cbxGebDat As CheckBox + Friend WithEvents txtGebDat As DateTimePicker + Friend WithEvents lblgeb As Label + Friend WithEvents txtMobiltel As TextBox + Friend WithEvents Label18 As Label + Friend WithEvents txtOrt As TextBox + Friend WithEvents Label16 As Label + Friend WithEvents txtPlz As TextBox + Friend WithEvents Label14 As Label + Friend WithEvents txtStrasse As TextBox + Friend WithEvents Label13 As Label + Friend WithEvents rbtnGeschlechtW As RadioButton + Friend WithEvents rbtnGeschlechtM As RadioButton + Friend WithEvents txtNname As TextBox + Friend WithEvents Label5 As Label + Friend WithEvents txtVname As TextBox + Friend WithEvents Label2 As Label + Friend WithEvents txtLohn As TextBox + Friend WithEvents lblLohnNr As Label + Friend WithEvents cbxAccount As CheckBox + Friend WithEvents TextBox2 As TextBox + Friend WithEvents Label7 As Label + Friend WithEvents txtCard As TextBox + Friend WithEvents lblCard As Label + Friend WithEvents txtInfo As TextBox + Friend WithEvents lblInfo As Label + Friend WithEvents lkl As LinkLabel + Friend WithEvents Label8 As Label + Friend WithEvents txtPwd As TextBox + Friend WithEvents Label6 As Label + Friend WithEvents txtTelNr As TextBox + Friend WithEvents cbxEinsteigsDat As CheckBox + Friend WithEvents Label30 As Label + Friend WithEvents datEinstiegsdatum As DateTimePicker + Friend WithEvents datGekuendigtAm As DateTimePicker + Friend WithEvents cbxGekuendigt As CheckBox + Friend WithEvents txtEmail As TextBox + Friend WithEvents Label20 As Label + Friend WithEvents txtDurchwahl As TextBox + Friend WithEvents Label19 As Label + Friend WithEvents txtUsername As TextBox + Friend WithEvents Label3 As Label + Private WithEvents GroupBox3 As GroupBox + Friend WithEvents TabControl1 As TabControl + Friend WithEvents dgvData As VERAG_PROG_ALLGEMEIN.MyDatagridview +End Class diff --git a/UID/Mitarbeiter/frmMitarbTimas.resx b/UID/Mitarbeiter/frmMitarbTimas.resx new file mode 100644 index 0000000..db78be9 --- /dev/null +++ b/UID/Mitarbeiter/frmMitarbTimas.resx @@ -0,0 +1,835 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + + + iVBORw0KGgoAAAANSUhEUgAABAQAAADDCAYAAAAVxcPwAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAADM2SURBVHhe7d154H37XO9xwzEdU+YkyTkoTbiHUBwl + SoUIpUw3R4YrGaKruA0iEnUJodwIR6au6WSI7jnIPEbI1HF0UYbrZJ5yX2+n7eyzf6/9/X7ea6+9Pp/1 + Wc8/Hv98fr/v2u/1Xp+19+fzXmt91tm+/vWvAwAAAACAhbGNAAAAAACgb7YRAAAAAAD0zTYCAAAAAIC+ + 2UYAAAAAANA32wgAAAAAAPpmGwEAAAAAQN9sIwAAAAAA6JttBAAAAAAAfbONAAAAAACgb7YRAAAAAAD0 + zTYCAAAAAIC+2UYAAAAAANA32wgAAAAAAPpmGwEAAAAAQN9sIwAAAAAA6JttBAAAAAAAfbONAAAAAACg + b7YRAAAAAAD0zTYCAAAAAIC+2caMs/3g7wAAAABYhnPJMXJ9uaP8pjxCniR/LafIO+RU+Vf59H/6knx9 + hlbxh09I7Nc75Y1ysrxQniWx/38g95Pbyo3k6nIZOYe4XA7i5mTAULYxw3VSAAAAALN2fjle7i6Pl5j8 + xmT4q+Imztjuy/J+eYn8kdxBvkcGFQrcnAwYyjYeRJ3wluI6ei1xgl1ejjhZMMh3yhfF5bqGO4mLsxX/ + VVzc6MO3iDvuc/Q/xe0jxhe/S6urSR+X98kb5GUSV5GeKA+Vu8pPy/fLhcUdNyzDA8T1pRY9Rdw+YP4u + ITHOj8n/2+Vr4voAxhO/E8+TKLpcVtxxOYKbowFD2caDqBOeXd4krlPX8mQ54mTBICeKy3EN75GjxMXZ + CgoCfaMggCnFwPBV8hi5s1xTjhZ3PNGPi8vp4vpEi/5Doojl9gXzc6z8hrxG4ti6Y47pvFaiWHwhccfr + G9wcDRjKNh5GHfHHxXXiWuILLG67OeKEQco1xOW3lluIi7MlFAT6RkEAtcUdW/9HHijXltaLpMh7tLhj + 37J4ZtrtC+YhCo0nSEw+3fFFff8uj5RLyxHH0M3PgKFsYwl1xhiguA5cy3PliBMGKXFlyuW2hri9Nu5G + cXG2hIJA3ygIoDWfkli46kdkDt+RONgVJB4xcce6ddcVt09oV9yN8hCJ7xF3TNGez8pvyXnkm8fSzc2A + oWxjCXXGa4nruDUdJ988WZByc3E5rSVWrnVxtoaCQN8oCKBl/yTx3On5xB1ztO/Z4o7tHPy9uH1Ce+I7 + IiaVMbl0xxLte7dcTb5xTN3cDBjKNpZSh4xFMFynrSVW7lz/AkSZeH3Me8XltIaXiouzRRQE+kZBAHPw + Ubmb8DjBvPyguOM5Jz8jbt/Qjh+VeDOAO36Yl3ht4+3EzsuAoWxjKXXIeG6/tQVI4jbKzS9DHOwe4nJZ + yzcroDNAQaBvFAQwJ2+Wq4g7/mjPK8Udxzl5l5xT3P6hrigQxuvt3HHDvN3fzcuAoWxjhjplrPDvOmst + r5bNL0VsFxOeT4jLZQ3PEBdnqygI9I2CAOYmFiH8ZXF9AO24ibjjN0d3FLePqCdeY3qKuOOFPtzHzcuA + IWxjhjrk5aS1BXF+Sja/HOE9XFwOa/iKxAJLLs5WURDoGwUBzNWDxfUD1BdXbuPKujtuc3SasI5FOy4h + bxd3rNCXm7u5GZBlGzPUGcOj1jpnC94qrL58uMtLXE1yOazhceLibBkFgb5REMCcURRoU9zB4Y7XnN1X + 3L5iWnFnQDw65I4R+nO6XMHNz4AM25ihjhguJa2tXPpzsv4liSP9lbjc1fA5se9abRwFgb5REMDc3V5c + f0Ad55dYBNIdqzn7pPT0fTlH55AXiTs+6Fe8Mvwcbo4GlLKNGeqEK78nrqPW8h5hxeXtrikub7XEe3Fd + nK2jINA3CgKYu8/Ld4vrE5je/xB3nHrw++L2GdPouW/hYCe4ORpQyjZmqBOuxMC5pcXpwi/Jeow4Uyy+ + 6HJWw5yvLFAQ6BsFAfTg9RJXD12/wHQuKZ8Rd4x68AWZ451+Pbi6fFXccUH/4q6j87t5GlDCNmaoA66L + Z8hcR60lFro5t2zGuXS3EJevWub87CEFgb5REEAvThDXLzCdx4g7Nj15orh9x/7Eax/fJu54YDnu6eZp + QAnbmKEOuC5Wmf0XcR21ll+VzTiXLAok7xOXqxo+LHNenZiCQN8oCKAXc/+unbsrSbxJxx2bnsRV6thX + lwPsx38TdyywLKcKawlgENuYoc63qbXVc+M2mguIi3WJ7ikuT7XM/aoVBYG+URBAT+4qrm9g/54r7pj0 + 6DnicoDxRZGvx0UqMcxPurkacBjbmKHOtykW8nuvuI5ay/3Fxbo0MbmJ5/Vdjmp4t8x94UcKAn2jIICe + xHcur+Sd3g+JOx49u4a4XGBc9xCXfyzTU91cDTiMbcxQ53PilX+uo9byaelpYD/UI8Tlp5afFRfnnFAQ + 6BsFAfQmJqeuf2B/WlrEdyp/Jy4XGE8sFNrSI6Co73Q5t5uvAQexjRnqeE5cgXiruM5ay1xfazeWy8uX + xOWmhlj1uocrVRQE+kZBAL15nLj+gf24mbjjsAQ/IS4nGEfk1+Udy3Y9N18DDmIbM9TxtrmRuI5ay2fl + UuJiXYK/EpeXWn5UXJxzQ0GgbxQE0JtY+JfHBqYRj8S9R9xxWIK4MMTrLvfnRHF5x7I9yM3XgIPYxgx1 + vIOcLK6z1hIDYhdn764pLh+1vFRcnHNEQaBvFATQo6uK6yMY193E5X9JflFcbrCbWEzw8+JyjmV7mZuv + AQexjRnqeAe5trjOWkvcMv8d4mLtVVwJau35xauJi3WOKAj0jYIAenQvcX0E44m3G31MXP6X5AMSrzt2 + OcJwPyMu38Cn3XwNOIhtzFDHO8zzxXXYWp4kLs5e3VJcHmp5hrg454qCQN8oCKBHzxbXRzCe3xGX+yWK + lfBdjjDcE8XlGgjf4eZswDa2MUOd7jDfJ/8hrsPW8FW5orhYexNV+ajOuzzU8BW5grhY54qCQN8oCKBH + /ySuj2Ac3yqxbpHL/RL9q8QdEy5XGOb94nINhBu6ORuwjW3MUKcr8ZfiOmwtscCei7M39xa3/7X0uLo1 + BYG+URBAj74mR4vrJ9jdn4rL+5L9trhcIe8y4nIMrJzg5mzANrYxQ52uRLzy7sviOm0NccdCT8+xOxeR + T4nb/xriasmlxcU6ZxQE+kZBAL26urh+gt18l8SdiC7nS/YZuYS4nCHnZ8XluHVflLfLs+QRcl/5Bbmh + xOLX3yOXk/jdnUqMS79TYqHVa8lPye3kPvJH8hx5s8xtAccHujkbsI1tzFCnK/UYcZ22lheJi7MXjxS3 + 37U8WFycc9dKQeBh4n7ssJueXs9GQQDrbi+un2A3zxOX7xpebtpqepS4nCHnIeLy25p/kyfLCRKFsjm/ + gvKcciWJMd9TpKULbs6fujkbsI1tzFCnKxVVuNaeqYu3ILhY5+4YaemOjE9ITK5crHPXSkEgFrBy8QEr + rRQEbiybhZceXFziCtdN5XfldeL2vxX3F9dPMNx1xOW6hg/JeeSNa221xbgk7hh1uUO5uKDl8tuCuAM3 + imI/JjGJdvH3IM6tn5N3ictDbS9wczZgG9uYoU6X0VpV82Rxcc5d3I7l9reWXxMXZw8oCGAuWikI/Ii4 + +HoUBYK45dTlobboDy5mDBN3E71GXK5ruINEXHG+uX+v5WmymTvkfFBcbmv7e4mFxF3MvTpKWrsjN5zs + 5mzANrYxQ50uI66itHabzY+Li3Wu4q4Ht5+1nCbnExdrDygIYC4oCNRzW2nprq3wTHGxYphbiMtzDe+U + 9duzW7qiHFeQryLruUO5uDIdi4K63Nb0dInJsYt5CX5PXF5qeZubswHb2MYMdbqsXxfXeWuJ2+l6eU44 + 9iMqtG4/a7mjuFh7QUEAc0FBoK5YPMvlo5ZXiYsTeTEReq+4PNdwE1mPL67atjSJ/BtZjw/l4tXNLqc1 + vUJ6fjygRIy/Iw8uPzVQEECKbcxQp8uKq8UfEdeBa7mZuFjn5pbi9q+WeLaq94oxBQHMBQWB+uKVty4n + NbxNXIzI+xVxOa7h1eJifJK4/1/L9cTFiYNdX1w+a4m1wWKVfhfr0sQjYnEHjMvT1E51czZgG9uYoU43 + xF3EdeBaYuI659VPw7nlA+L2r5abi4u1JxQEMBcUBOqLq3utDBjfLS5G5FxQYjV1l+MaYmFDF+e3SUuv + Tnu99PQWl6ncRlw+a3mouDiX6iRxeZoaBQGk2MYMdboh4qrx+8V14lrm/gqme4vbr1pihe0l/NhTEMBc + UBBowyni8jK1U8XFh5yWnh1+obgYV+L1v+7vaon36bs4sV1LY70vSbxBzMW5VDGXcLma2ofcnA3YxjZm + qNMNdWtxnbiWKFDEVXYXa+suKq0t1riUQT8FAcwFBYE23E9cXqb2f8XFh3IxGfqcuPxOLe48+X5xca5c + SD4u7u9reI8seSG6IX5fXC5riKvhLsYlu5y4XE2NOwSQYhsz1OmGilv03yquI9dyV3Gxtu6Pxe1PLS8W + F2ePKAhgLigItOF4cXmZ2qfFxYdyfyYutzX8pbgYN91D3N/XcidxccJr5Xs8nCAuxqX7pLh8TYmCAFJs + Y4Y63S5+SlxHruWjMrdX5B0rLb3OKq5SXE1crD2iIIC5oCDQhkuKy8vUKAjs5sryVXG5nVqMAUoXdos7 + IVt6ZDPuVOn51cRje6K4PNbAYoLem8Tla0oUBJBiGzPU6Xb1SnGduZa4ndPF2arniNuPWk4UF2evKAhg + LigItCHWVmlhIhkFcBcfysTz+i6vNTxKXIzb3ErcdmqJ11G7OHGkJ4vL4dQ+Ji4+tLGw4D+5ORuwjW3M + UKfb1Q+L68y1fELiOTsXa2tay11cpYhVtF2svaIggLmgINCOuDrvcjMlFhUcrpXHPkK89u0S4uLcJopS + bxC3vRrifLiIuFhxVq28upT1A7Z7nricTemtbs4GbGMbM9TpxtBSpT3MYXIVP+ivFRd/LY8VF2vPKAhg + LigItKOFgsD7xMWGg7U2mR763d9SUSM8XFycOKsWJpshe1fKkhwnN6vsOm7OBmxjGzPU6cbwA9LKu5nD + Z+Ti4mJtxc+Ji72WuEqxxNfPUBDAXFAQaMe/i8vNlN4oLjYcrKXb7eONARcQF2eJli7GfEG+XVycOFMr + BYFYnNLFh4m4ORkwlG3McJ10oKeJ+9Kp5RHi4mxBLAr0QXFx1xLvN3ax9o6CAOaCgkA7XF6m9nJxsWG7 + 1hbku6e4OEt9r7SyMGL4c3Fx4kytFARuIS4+TMTNyYChbGOG66QDxbPnLa2WH9XqbxMXa22/Ji7mWmLd + hW8RF2vvKAhgLigItCGu6Lq8TO1Z4uLDdi29si/WgIgChYszIybhbvs1RHEi3t7g4sQZWikIxCMnLj5M + xM3JgKFsY4brpDt4nLgvnloeLy7Omi4q/09cvLVEgcLFugQUBDAXFATaELdFu7xM7Y/FxQfvwhLFb5fL + Gm4vLs6suPDxeXGfUcNfi4sTZ2ilIBB3l7j4MBE3JwOGso0ZrpPuIJ5Bb+mH6SvS2qr5MYhzsdZymiz5 + HcKtFASwu97fqUxBoA3XEZeXqS25kDvEQ8TlsYZ/kHOIi3OIeOTPfU4t1xYXJ9opCPT+e9k8NycDhrKN + Ga6T7uih4r58anmquDhrOFZaeqwi/JK4WJeCgkA/KAhMY+kFgbuIy8vUbikuPhzpMhKPEbo81nBjcXEO + Fa9ajgUK3WfVcIq4ONFOQeCy4uLDRNycDBjKNma4TrqjeBa9hVcyrcTbD1q5Neo54mKs5V1yTnGxLgUF + gX5QEJjG0gsCrTyzzS2/5Z4kLoc1vEpcjLtqaX2E8NPi4ly6VgoCNdeNit9qFxPO6lQ3bwMc25ihDrcP + 9xfXuWuJL2AX55Rauc10Xbzr1MW6JBQE+kFBYBpLLgjEO+zjMSuXlynF43DnEhcjzur75Gvi8ljDD4uL + c1etvUHh7TLmYxG9oCBAQaAUBQEUs40Z6nD7EM+kf1RcB6/lmuJinUIMIl8vLq5aXisu1qWhINAPCgLT + WHJB4HricjK1t4iLD0d6kbgc1vACcTGO5VbiPreW24mLc8koCFAQKEVBAMVsY4Y63L7cTVwHr+VvxcU5 + hVuLi6mmGNi6WJeGgkA/KAhMY8kFgZeIy8nU/kRcfDir64vLXw3x+GLcreDiHEtcfHiDuM+vYaxXK/aE + ggAFgVIUBFDMNmaow+1L3M7Y0u1rocZA9jzyz+LiqeVvxMW6RBQE+kFBYBpLLQjcVlw+avh5cTHiTDE5 + fpO4/NXwFHFxji3eL+8+v5Z7iotzqSgIUBAoRUEAxWxjhjrcPt1GXCev5XXi4tyn+4qLpZa4SnFVcbEu + EQWBflAQmMYSCwK3kFbeEBPrB8Q79V2cONMviMtfDdF3Licuzn14obg4aviEXFBcnEtEQYCCQCkKAihm + GzPU4fYpFpSJhWVcR6/lJuJi3YeLSUtvXAhPFxfrUlEQ6AcFgWksqSAQfep/ictDLS8TFyvOFLepf1Bc + /mqIc9fFuS/xBoqvioulhgeJi3OJKAhQEChFQQDFbGOGOty+xft2XUev5W0y1cq3jxIXQy1xleJYcbEu + FQWBflAQmEaPBYF4j3sUcK8s8bq0B8jJEndUuRzUFI8uuH3Ame4lLnc1fEYuLi7OfWrl9Zjhs3IpcXEu + DQUBCgKlKAigmG3MUIebwqvFdfZaYpE/F+eYriit3GK68hhxsS4ZBYF+UBBA7+L261iXxvUPnCEmOp8U + l78afltcnPt2afmcuJhqYPxxBgoCFARKURBAMduYoQ43heuK6+y1xGKHR4mLdSzPFffZtUSF/lvFxbpk + FAT6QUEAvftNcX0DZ/oDcbmr4d/kAuLinMLviYurhrhAcgVxcS4JBQEKAqUoCKCYbcxQh5vKSeI6fC13 + EhfnGK4j7jNrioGBi3XpKAj0g4IAevYROb+4voEzXFa+IC5/NfyquDinEov5RVHCxVbDieLiXBIKAhQE + SlEQQDHbmKEON5VY2b6l5zFPk/OKi3UX8aqj14v7zFriNlNWpfYoCPSDggB6djNx/QJnerK43NUQrxtu + 4R38vyIuvlquJi7OpaAgQEGgFAUBFLONGepwU3qGuE5fSyw85OLcRaxP4D6rpvuIixUUBHpCQQC9eqK4 + PoEz/YC0dNGhlcUfzyXvExdjDUt/SwYFAQoCpSgIoJhtzFCHm1I8P9bSq3DGfr4v7jiIqwLus2rZ150Q + vaAg0A8KAujRK6SFK82te7G4/NUQr1ue6m1GJW4pLs5ari8uziWgIEBBoBQFARSzjRnqcFN7vLiOX8sD + xcU5xK+L+4yafklcrDgDBYF+UBBAb14uNRelm4sbiMtfLfHqShdnLfEo4+vExVrDGyVicrH2joIABYFS + FARQzDZmqMNNLV6F09KiP5+Wi4iLNSPeMxzbcp9Ry7vknOLixRkoCPSDggB68iThzoDDxZX4t4jLYQ2v + FBdnba297elW4uLsHQUBCgKlKAigmG3MUIeroaXXAoWHiYsz40/EbbsmFqE6HAWBflAQQA9iEdjbiOsD + OFI8q+/yWMsPiYuzBS8QF3MN75V9v/65RRQEKAiUoiCAYrYxQx2uhrgi39LV9M9J3LngYi1xJfmKuG3X + 8lpxseKsKAj0g4IA5uyLEoXli4o7/jjSeeRUcfms4fni4mzFlaWldZzuIi7OnrVSELiMuPimQEGgDAUB + FLONGepwtfymuBOglhiIuThL/G9x26zpeHGx4qwoCPSDggDm6KPyUNmlKL1UvyYupzXEGw6+V1ycLfkz + cfHXEH3/aHFx9qqVgkDN30sKAmUoCKCYbcxQh6vl/BI/Bu4kqOHL8h3iYj1Ia8/lhZPExYojURDoBwUB + zMUH5XHyE8I6L8PELc+fEpdfzMcDxB3fXrVSELiKuPimQEGgDAUBFLONGepwNd1d3ElQy5PFxblNrJIb + q+W6bdUSVylqftHPTSsFgVjHIga4GK6l13ztAwWBfsSCr4+WHxMKAsM8QlxuMS/x+OjFxB3jHrVSELiR + uPimQEGgDAUBFLONGepwNcUKynGlxJ0INcSzdfGMnYvV+UVx26npaeJihddKQeB3xMUHrFAQ6NO/yR/K + seKOO450OYk1F1w+MT+PFHece9RKQeCO4uKbAgWBMhQEUMw2ZqjD1XY7cSdCLc8WF+em80pLixmFeOzh + GHHxwqMggLmgINC3uLvrqUJh4HCRJ5dDzFO8inrII5tz1EpB4OHi4ptC3M3n7vJrxZvE5WxqFARQzDZm + qMPVFl8M7xB3MtRyNXGxrvt1cX9b0y4LIy4VBQHMBQWBZfiSPEjiDjrXD5buqhLFE5c7zNdfiDvevWml + IPAScfGhnddzUhBAMduYoQ7XgpuKOxlqebG4OFcuLi29NjF8Vi4lLl5sR0EAc0FBYFneLJcX1xeW7G/F + 5Qvz9jWZw1sadtVKQeCT0vu6O0M9QVzOpkZBAMVsY4Y6XCteI+6EqCXeHuDiDHEl3v1NTXFFycWKg1EQ + wFxQEFiej8s1xPWHJfpxcXlCH+LKrDvuPWmlIBD4bvHicQqXr6lREEAx25ihDteK64k7IWp5pbg4v0ti + 8UH3N7V8Qi4kLl4cjIIA5oKCwDKdLnGbvOsTSxJXM98uLkfoxw+LO/69aKkg8BBxMS7dY8Xla2oUBFDM + Nmaow7UkbtV3J0Ut7rUszxf3f2u6t2zGiTIUBDAXFASW62PyreL6xVLcXlxu0JdXizv+vXi6uP2u4SNy + lLg4lyzWV3D5mhoFARSzjRnqcC2JxfzcSVHLW+TssoqvtbsYwmlyHlnPI8pREMBcUBBYtnh2fv33aEnO + J/Fb5/KC/txEXD/owePF7XMttxUX51KdU+KuW5erqVEQQDHbmKEO15pnijsxarmlRFwxEGvlVSTrYkK7 + mUOUoyCAuaAggHhNr+sbvbufuHygT++UXhe8+0Nx+1zLhyQKbi7WJfoJcXmqgYIAitnGDHW41lxRWnpG + /10SFcOoorp/r+kfhVVid0NBAHNBQQBxlXxpryO8qLT2Vh/s3x3E9Ye5a/GV1bGqvot1iU4Rl6MaKAig + mG3MUIdr0RPFnRy13E2iiur+raafEZc/lKMggLmgIIBwR3H9o1ePFJcH9C2KX+cV1yfmLO7ycftb293F + xbskdxaXm1ooCKCYbcxQh2vRZeQL4k6QGr5i2mqL1zS63CGHggDmgoIAwrY34PTo8vJlcXlA/+4jrl/M + 2Q3E7WsLHiBLvev0ZtLadw0FARSzjRnqcK1q7Tmr1hwvLm/IoSCAuaAggJVLi+sjvWlpRXZMLxZ3+xZx + fWOujhG3r614lcQC3y72HsX6CQ+W/xCXj5ooCKCYbcxQh2vVxYTnBr2TxOUMeRQEMBcUBLASr+BzfaQn + x4nbdyxLTNZc/5ireM1fS+tkbfNCibc99LpmSRSa7imnitv/FlAQQDHbmKEO17IHijtJliyqmFcRly/k + URDAXLRSELixxGCqB/Fu/++U75d4rWwsHvsgiaLrp8TtfwseK66P9OQV4vYdy/I56e2OmHiLgtvXFsX3 + 4DPkrnJliUW23T61Lu4E+CG5r7xMviRuf1tCQQDFbGOGOlzLLiAfE3eiLNXTxOUKw1AQwFy0UhD4EXHx + 9SYGvvG87/PF5aGmuK3XxdyLnxS331imPxXXT+bqRHH7OQdflLdJ7MMfyD0kXs/9o/Jf5FiJQuuq6Hph + cTkYKuYFsd2LSxRzw/fJVeW6EmsBnCCxHsLj5cXyQWnxkYDDvNPN2wDHNmaow7XuV8WdKEsUC57E82cu + TximlYIA9ieOsTv2c0NBoJ64K+J0cfmo4cPi4uxBLGr2DnH7jWWKW+zjldSuv8zRvcXtJ7Du9W7eBji2 + MUMdrnXx/FLLz/hM6dHicoThKAj0j4LAuJZYEAhxBexr4nIytXjzjYuxB/FaRbfPWLZniesvc/SD4vYR + WPcKN28DHNuYoQ43B3cQd7IsyWflkuLyg+EoCPSPgsC4lloQCPHsvstJDT0u9hXP+f6LuP0Fri6u38xN + LCzIotk4zHPdvA1wbGOGOtwcxC2E/yjuhFmK3xWXG+yGgkD/KAiMa8kFgXhkq5VnUeM5WhfjnP2GuH0F + wsvF9Zs5ijse3D4CK49y8zbAsY0Z6nBzEQuFuBNmCeJdvBcUlxfshoJA/ygIjGvJBYHwBnF5mVpvBYFY + JIyrpjjMDcX1n7m5jbj9A1bu4eZtgGMbM9Th5uR14k6a3t1LXD6wOwoC/aMgMK6lFwQeKS4vU+utINBK + /0bb3iJnF9eH5iRWy49HQd0+AuF4N28DHNuYoQ43JzEQdSdNzz4kPT4r2goKAv2jIDCupRcE4pVWLi9T + 66kgEK8qi7fouP0ENt1aXD+am78Qt39AfB8e7eZtgGMbM9Th5ual4k6eXsWCii4PGAcFgf5REBjX0gsC + NxKXl6n1VBB4prh9BJz3y7nE9aU5iXfnu/0DXuXmbMA2tjFDnW5ujhN38vTonRILKro8YBwUBPpHQWBc + Sy8IXFdcXqbWS0HgGuL2r6ZYt+eyEjleuu+VL4rLU013F9ef5uYl4vYPy3Y/N2cDtrGNGep0c/RscSdQ + b24qbv8xHgoC/aMgMK6lFwRauaoXkzUX39ycLG7/arqzuFiX6sHi8lTTRyWew3fxzsm1xO0fliveZHM5 + N2cDtrGNGep0c/Rd8lVxJ1Iv/l7cvmNcFAT6R0FgXBQEfF6m1kNB4Mbi9q2mNwt35p3V0fJhcfmq6X+I + i3duni5u/7BML3LzNeAgtjFDHW+u/lzcidSLuC3V7TfGRUGgfxQExkVBwOdlanMvCBwl8Vic27eari0u + 3qX7eXH5qunfJV5X6eKdk0sLr9zEynXdfA04iG3MUMebq3i+7wviTqa5e5G4fcb4KAj0j4LAuCgI+LxM + be4FgTuJ26+aniIuVpzhFHF5q+mPxcU6N78gbv+wLCe5uRpwGNuYoc43Z628D3pM8ezQD4jbX4yPgkD/ + KAiMi4KAz8vU5lwQiFvQPyJuv2qJq82XEhcvzhBjk9Ye14zXs11OXLxz82Rx+4hl+Lxc0c3VgMPYxgx1 + vjmLW8VOF3dizdVTxe0r9oOCQP8oCIyLgoDPy9TmXBB4oLh9quk+4mLFWT1GXP5q+ktxsc7NeeWN4vYR + /buHm6cBJWxjhjrg3P2WuBNrjqLSfXlx+4n9oCDQPwoC46Ig4PMytbkWBC4hcTXe7VMt75Ie3ms/hYtK + vJbR5bGWnu6sjPPjfeL2E/060c3RgFK2MUOdcO7itTMfF3eCzc2jxe0j9oeCQP8oCIyLgoDPy9TmWhD4 + E3H7U9MNxcUK767i8lhTT2svfbu8X9x+oj+vkHO7ORpQyjZmqBP24F7iTrI5+axcUtz+YX8oCPSPgsC4 + KAj4vExtjgWBK0rcCef2p5bniosV251T3iounzUdLy7eOYqiQNy54vYT/ThJjnbzMyDDNmaoI/bg3HKa + uJNtLn5X3L5hvygI9I+CwLgoCPi8TG2OBYHniNuXWuJNRb0sSDe164jLaU2vERfrXF1YXipuXzF/8Zt+ + lJubAVm2MUOdsRdzntjF83gXFLdf2C8KAv2jIDAuCgI+L1ObW0HgWuL2o6bfFhcrypwoLq813UxcrHMV + d2PEBaOvidtfzM+/yk3dnAwYyjZmqFP2Ir4053p7VTzy4PYJ+0dBoH8UBMZFQcDnZWpzKwi8Stx+1PLP + cj5xsaLMZSQed3T5rSXGgUeJi3fOoqD2j+L2GfMQj0vFGioXETsnA4ayjRnRKTtyc3EnYctOlXjkwe0P + 9o+CQP8oCIyLgoDPy9TmVBC4qbh9qCnGCy5W5NxfXH5rOkFcrHMXY8V7y6fE7TfaFI8mPUGOkW8eTzcn + A4ayjRnrnbMDZ5fXizshW3V7cfuCaVAQ6B8FgXFREPB5mdpcCgJxtfbd4vahlngu28WKvPNIayvif1h6 + vvsj1haIQkzceu72H234B4kCzsXkiOPo5mTAULYxw3XSmbu+uBOzRe+Qc4jbD0yDgkD/KAiMi4KAz8vU + 5lIQuIu4+GuJ23a/W1ysGObG4nJd0/3ExdqTuGPgF+VlwhoD9X1R4hWCvyGHfse4ORkwlG3McJ20Ay8X + d7K25ibi4sd0KAj0j4LAuCgI+LxMbQ4FgQvIR8XFX8sfiosVu/kbcfmuJW6rn9s6G7u4tPyyvEBOF5cT + jOvjEncbPVRuIKm7UtycDBjKNma4TtqBa4g7eVvyanGxY1oUBPpHQWBcFAR8XqY2h8nOb4mLvZYoTlxI + XKzYzZUk7r5wea/lYeJi7V0ssn2c3FkeL68UHi8YJu68iLW+/k7+XOJRjbiYFwtqutwXc3MyYCjbmOE6 + aSfiGasYMLXqvOLixrTiljt3fNCPXhbtjKsPbv+m1uMK3hkx2HZ5mVqsmePia0ncIeBir+VocXFiHPH6 + ZJf3Wnid81lF/4/CzfFya7mPPFyeJM+Uk+QUeZt8QKKI8Ok1c30sIe6YWO3DaRJrmrxJTpbnydPlsfJA + iUecYsHRa8uxsrfxg5uTAUPZRgAAAAAA0DfbCAAAAAAA+mYbAQAAAABA32wjAAAAAADom20EAAAAAAB9 + s40AAAAAAKBvthEAAAAAAPTNNgIAAAAAgL7ZRgAAAAAA0DfbCAAAAAAA+mYbAQAAAABA32wjAAAAAADo + m20EAAAAAAB9s40AAAAAAKBvthEAAAAAAPTNNgIA0Lp3nO1sADBHd5b/Lk+Qrx/iAxL/NxwjbntTmnPs + LTlOVrn5lLj8rVvP5XHuNxEYyjYCANA6DYp29SZxA6+DPEvctsYQ23afOUQM1leDx4uI+7yxDcnnuhgU + u+0eZtfPDTHJcds+TOaY/a24bZQY0jcyE7CYnLhtbIr+5P5+KmMc613ssv+3kjHO8dXE0H3Gvswp9oeJ + +2xnl3NyiPgujv0vKQCUiG0d434fgQzbCABA6zQQ2kVm0Lhu6KS1xFiDRCe2HYPHfRYHxog/JqZu29vE + PrntZGU/dyUmOG57zi4ToSG5jaKQ25ZTmseheRpD9F0X05SG7P8NZF+FjKGFrFJzjD0T7y7nZFbsr4th + DE9wv5FAKdsIAEDrNAgaqvRq6Db7mBTF1Vz3Wfuwj0HwrjldyUwSxvrMoUWe7AQ1rrK67Rxml/2MCZ3b + 5qaSq79D8zSWyJ+LaypD9r/ktvpdxVXufRT65hj7VOdkRsQU++k+f0xRnORRAgxiGwEAaJ0GP0Nlruo6 + +5hQTz3ZiatoYz7TW3qF+TBx54bbvjPWlcuYDLvtHyZ7zIZOfHbpG6W3RJfcgTA0T2MZelfPWDL7H8d6 + X1fWnfhOG+t8nnPsU52TpabOZZzHFAWQZhsBAGidBj5DjDGpyExaS9WY7Iw5EB/j+eIQg2e3/U1jFSDC + 0AJP5piV7peza9847Cpo6R0I+yiEZexayNtV6d0rQyeBMZmLHIch51N85q4T3DnHHqY6J0sNyUX8zSqX + Q45FnCcXcb+ZwDa2EQCA1mnQkzXWLeb7GEhmBn4x6F0NGHcZOIZvDB7FxZRRcoW5RGzHbX/dWMdxJbbn + Pucw2WPmtlFi6LFdiWPstrsS/cf93aaheRrLZp/fJlM4iNy6bTil50n2eMVdHNtymy0G7dLPwpxjD1Od + kyXicR33udscFE82l6wpgBTbCABA6zToyRrzCuMYk+iV2Jb7DOewCXNMXLKT87gi5bZVauoJ+q4T5HUl + BQgnc8zCYVfpt8l+zjbRL9z2Q8mz4kPzVEOm/x+UlyH2MQnO3gY/9K6fOccepjonS2XuDijph9kCA48O + oJhtBACgdRrwZGQHu4cZczCZGTSXTN5jYJxdxGqX/YnBrNvmUAfdmj32Z5U+Y78pO9GJY+K2c5js52wT + k+RtMZQUWHYtGk0lW5w6rPiUkT1WJRPqlcwCf5m3S6zMOfaVqc7JUpkCdGksB33/Re7i31d4HSGK2UYA + AFqnAU+p0klC5spiZkB8mEyxIgZ6bhubYoCZvXXabadE6ZWw0vxuy+3YdyKEoccxc8x2yW3mcw7j9jX6 + ifu/m0r7XW2ZV7uNeddD9nyL/+u2s02m72f3a86xr5vqnCzlPneb0jsj4lgx6cfobCMAAK3TYKhE6WA3 + BqKZWzLHHFCWXKFdyVzRzL73OrPtdSXxx/8pLRxsy23J52SuRoa4qug+6zCZYza06BAyn1Nic+JRelV1 + aJ6mlpkUDr07xInJmfuMbTKv11wpLaiFzLk859jXTXVOlnKfu03Ennpcwv0mAkPZRgAAWucGSUbpBGE1 + yM0MXKPYsPl5WbENt20ne/Uss+0QEwO3nYOUfkYch9KJh9vPkr+NCV52cjPkGGbzOnQynf2cEpu3/pee + H0PyVEOtSeE+r7CvZPYt0+fmHPu6zHf3FAWuzD6vxPkZ32FRnHbb/Cb3mwgMZRsBAGidGyRtKL3iv36l + cIqB67rYhtu2M+Q57n1PkErjj/+XuXV4/Sphyd/FZCCusJXehRAiN+v7UipzzMLQyXTp52T2OaxPNkr6 + x9A8TW2qQs2m7GJvQwpvIbMuSOlV/DnHvi7z3RKmKHBli5PbxPkX2wrfjNv9JgJD2UYAAFq3GhhtEQOn + 0itf67dqll4xDWNcYcx83pDBeGYgPqTgUBr/aiDr/s1ZnxSUTFpXuclcJRx6/DID/aFXVEMmt5njvCqA + xd+5f980Rj+fwlSFmk2ZczgM/dzMlfzS74o5x75uqnMyI3KV+T7K+MYCgu53ERjCNgIA0DoNiA5SOtDd + HHxmJhVjXDnNXN0d8mztkIliRslkfX0AXvL/w2oSWjLQX8WdvUo49Apx5pgNKbKslORq1QezV3qj4FLa + 18e6kr5vmcntGOfuSmmfDrt8bmZyWXqVfc6xr5vqnMzKnpdDRL+/iPuNBErZRgAAWqdB0DalgzB3pWjq + W09LB8rx/9zfHyYz4M8OlGPf3XY2rW+3dNIWcWceFYhtZ64ShiEFlpCZ3Ay52rlS8jnruc0sqBh9vzRf + u/bxqWT6+qrgNIZMfxj6uaXn2krppHrOsa+b6pwcIn6PMvENEdu/gfudBErYRgAAWqcBkBODz9LbU2Og + 5raRGbwNnVSGTPFh6NU5t61tsu8AL73CvD4AL/2bOAYlE7z1bWcmxLH91d9lZAtGQ/tH6ees738URsae + eAztd1PLTjrHuush+7lDJ6Ol583Ktu+2dXOOfd1U5+SuSouhu6AogEFsIwAArdPgxykddB00+c3cfjp0 + kBzib902nSFX57ID8ey+lOZ6fQAek1b3f4bYfMQhc4V46G3DmWM2tOgQSj9nc3KTia9Ept9lHk9xsv1v + XXZSGJNht52sbH/OTnZXspPJkv2bc+zrpjonxxLxZnNSKvaPxweQZhsBAGidBj6bMlefDxp0ZgZrQyeW + IVN4GHJFM3PFPGSvnJXE7wbg0eb+b0ZsY/WoQJjqamfmmO27b7jcRh5K75Apkel3ux7XXa7c1poUTjWp + zuS29K6OOce+bqpzcl+i745ZJGCxQaTZRgAAWqeBz7qxJ0KldplcZAbK2atm8f8z23frKRymZPtuAJ4Z + wG+zOaHP3g0xdPKZyenQokMYmtsQz2C7/z9Eab/LXqF3sn18Xa1JYcTsPmOb9SJWqZiIu21tU9rv5hz7 + uqnOySnF+RSxZu56WnmT+70EDmIbAQBonQY+67JXw8c0ZHKZmUANuWqWzUd2oFwav9tutLn/W8q9DSFz + dS0mEJt/XyI76R3SL8IuuV0ZMpHYlOl3ux7TIX18Xc1JYeazh1xlzxbQMhP3Occepjona8oWVT7gfi+B + g9hGAABap4HPSvbq8NiGTDAyE6iY7LptbJMdJMekIHt1tjR+NwDPDnDXRaxu0pCZAA+9Qpw5ZhGn20aJ + XXK7skuOVzL9Ljvx25Tt4+tqTwozfS/7XRF93W1nm4PWRnHmHHvIfPfvck4eJvY18uNs3rk25Psn9TjB + 5m8lcBjbCABA6zTwCTGRrfGowLohA7zMBCrzHHdMdjJX/cI+3/vt/jZ7q/K6GGDvur2hk8/MMRvSJ1ZK + P+ewIs6ud81k+l30oc2JUMYuk/T4exe/s49JYebz3d0tB8ku1Ji9wj7n2ENmorzLOXmYbFFqn8eJOwSQ + ZhsBAGidBj6h5qMCK0MmGZlJe+nV+9RVpP80dJBcEv9Bt4FnrkyubJuQZK+GZya66zKFpxjAu22U2DW3 + K9krtJtK+11tUxVqtsnmufTW++z5PKTPzTn2sM87HLIy3w8l5++6THHlWe73EjiIbQQAoHUa+GRuF40B + agwIS2ULDZkrnJlB+EEDxxicR6yZCdG62PaQSV/p1bDIufv7kJ0wxCR521W1yIH7m22G7HP8jdvWNkOL + DmPkdl02NyvZCUtNUxVqDpL5voi+fNjEOntO71LomGvsU52TpbLnWkzyt32nrcv+Ft3Z/V4CB7GNAAC0 + TIOeGAyWTgSGDDizg83MRCNTyNiXocWAUDrwPWgAns3BQY81ZCYgQye62Xhr5nZdxFFyx8Gm0oJDbdnz + tPQKd1bEkX10KSZ668cxikFx/LPHa5dzOcw19uw5uauSR6uyeQyRy83fjygURFt2e7xhAIPYRgAAWqaB + T+kkMAaoJVdhnBisum06maJD9ur42IZekVspjf+ggX7plfBwWLyZScjQiW7mmA0tOoQxcrtpyGsISwsO + tWUnhbtMnA8TfXpI8WUXuxYDVuYY+9Tfo5EjF8e6zPfa2OL4Hed+L4HD2EYAAFqlQU9mErB55SUjc6tm + ZhKYKTSMKa42jTHRK4m/JB8lE5D4PwcVdLID8KH7nzlmQ4sOYazcbsrEH/Y5cR7TVIWaUlNOrOOW8zGP + 09xiz/bpXWT6TtyFMlUeV+LzKAZgMNsIAECLNOiJQWTpYCsmwJuDtYwoJrjtblMywI3/4/52nyJfuxRG + 1pXGXzIpLrnL47DbdPdxjDZlj9nQosOYud0UkxS3LWeKifNYMpPCXQo1GVHAyiwCN0TJ7etDzCX2qb9H + s31nijyuxOcc434vgVK2EQCAFv3n4McNipxdnxfOXn0uGegOuX17iFURYIw7AtaVxl/yuYdN5ksebSgp + KqxETtw2DhP74ra3zZCiQxgzt05prqaaOO9qqkLNUPF5Y1/FjnNmaP/KaD327Dm5q6F9J/5uX4WBOD63 + cr+TQJZtBACgRRoAxaCyxBhXoYLb9jYlBYj4P+5vx+I+c0yl8ZcM/KPg4v52pWTthzjO7m+doX3isDg3 + uW2UGDO3TuTTbW9T7K/7+9ZEHlz820wxkXZWx9VN6kpEgWas77OsVmPPnpO72rXvrPpqpoDpRBEgtsPj + ARiVbQQAoHUaFAHA3JQUfoZekd63OcfemsiTy59zxN+730RgKNsIAAAAAAD6ZhsBAAAAAEDfbCMAAAAA + AOibbQQAAAAAAH2zjQAAAAAAoG+2EQAAAAAA9M02AgAAAACAvtlGAAAAAADQN9sIAAAAAAD6ZhsBAAAA + AEDfbCMAAAAAAOibbQQAAAAAAH2zjQAAAAAAoG+2EQAAAAAA9M02AgAAAACAvtlGAAAAAADQs6+f7f8D + B3v2d44WCwAAAAAASUVORK5CYII= + + + + 17, 17 + + + + AAABAAEAYGAAAAEAGACocAAAFgAAACgAAABgAAAAwAAAAAEAGAAAAAAAgHAAAMQOAADEDgAAAAAAAAAA + AAB6TSF6TSFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFw + QRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFw + QRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFw + QRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFw + QRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRF6TSF6TSF6TSF6TSFwQRFw + QRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFw + QRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFw + QRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFw + QRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFw + QRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRF6TSF6TSFnNQJnNQJmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBnNQJnNQJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBtPAttPAtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBtPAtt + PAtwQRFwQRFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBwQRFwQRFwQRFwQRFmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBwQRFwQRFwQRFwQRFmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBwQRFwQRFwQRFwQRFmMwBmMwBmMwBmMwDLv7j////////////39fR0 + SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////////////////////////////// + //+AXUJmMwBmMwBmMwBmMwDUy8X///////////90SSZmMwBmMwBmMwBmMwBmMwDu6+n///////////+A + XUJmMwBmMwBmMwDd1tH///////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwCMblj////////////39fRm + MwBmMwBmMwBmMwBmMwBmMwBmMwC3p5zd1tH////////////39fS3p5x0SSaYfWv////Uy8VmMwBmMwBm + MwBmMwBmMwBwQRFwQRFwQRFwQRFmMwBmMwBmMwBmMwDm4N3////////////////Lv7hmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwD///////////////////////////////////////////////+jjH1mMwBmMwBm + MwBmMwC3p5z///////////+jjH1mMwBmMwBmMwBmMwCYfWv////////////Uy8VmMwBmMwBmMwBmMwCA + XUL39fT////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwC3p5z////////////Uy8VmMwBmMwBmMwBmMwBm + MwCMblju6+n////////////////////////////////d1tH////39fRmMwBmMwBmMwBmMwBmMwBwQRFw + QRFwQRFwQRFmMwBmMwBmMwBmMwD///////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBm + MwDm4N3////////////////////////////////////////////Bs6pmMwBmMwBmMwBmMwCMblj///// + ///////Bs6pmMwBmMwBmMwBmMwDLv7j///////////+jjH1mMwBmMwBmMwBmMwBmMwC3p5z///////// + //+YfWtmMwBmMwBmMwBmMwBmMwDLv7j///////////+3p5xmMwBmMwBmMwBmMwB0SSbu6+n///////// + ///////////////Lv7jd1tH///////////////+jjH1mMwBmMwBmMwBmMwBwQRFwQRFwQRFwQRFmMwBm + MwBmMwCMblj////////////u6+n////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////// + //+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb////////////m4N1mMwBm + MwBmMwB0SSb39fT////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////////// + //////////////////////////+MblhmMwBmMwBmMwBmMwC3p5z///////////////+tmo1mMwBmMwBm + MwBmMwDBs6r////////////Bs6pmMwBmMwBmMwBmMwBwQRFwQRFwQRFwQRFmMwBmMwBmMwCtmo3///// + //////+3p5zUy8X///////+3p5xmMwBmMwBmMwBmMwBmMwBmMwCjjH3////////////Uy8VmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3////////39fRmMwBmMwBmMwCtmo3///// + //////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////////////////////////// + //////////90SSZmMwBmMwBmMwBmMwDd1tH///////////+3p5xmMwBmMwDUy8X///////////////// + ///////m4N1mMwBmMwBmMwBmMwBwQRFwQRFwQRFwQRFmMwBmMwBmMwDBs6r///////////+jjH2AXUL/ + ///////39fSAXUJmMwBmMwBmMwBmMwBmMwB0SSb////////////////////////////////////////m + 4N1mMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////////////////////////+3p5xmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z////////////////////////////////////////m4N1mMwBm + MwBmMwBmMwBmMwDd1tH///////////+tmo1mMwBmMwC3p5z///////////////////////////+AXUJm + MwBmMwBmMwBwQRFwQRFwQRFwQRFmMwBmMwBmMwDm4N3///////////90SSZmMwDBs6r////////Uy8Vm + MwBmMwBmMwBmMwBmMwBmMwD39fT///////////////////////////////////////9mMwBmMwBmMwBm + MwBmMwBmMwCjjH3///////////////////////////////////////////////+3p5xmMwBmMwBmMwBm + MwBmMwBmMwBmMwDu6+n////////Lv7hmMwBmMwC3p5z////////////Bs6pmMwBmMwBmMwBmMwBmMwDU + y8X////////////Bs6pmMwBmMwCYfWv///////////////////////////+3p5xmMwBmMwBmMwBwQRFw + QRFwQRFwQRFmMwBmMwBmMwD39fT////////39fRmMwBmMwB0SSb39fT///////+jjH1mMwBmMwBmMwBm + MwBmMwDUy8X///////////////////////////////////////+MblhmMwBmMwBmMwBmMwBmMwCAXUL/ + //////////////////////////////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwCY + fWv///////////+MblhmMwDLv7j///////////+jjH1mMwBmMwBmMwBmMwBmMwC3p5z////////////u + 6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBwQRFwQRFwQRFwQRFmMwBm + MwCMblj////////////d1tFmMwBmMwBmMwCtmo3////////u6+lmMwBmMwBmMwBmMwBmMwC3p5z///// + ///////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT////////m4N1m + MwBmMwBmMwBmMwBmMwC3p5z////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j////////d + 1tFmMwDm4N3///////////90SSZmMwBmMwBmMwBmMwBmMwCAXUL///////////////+3p5xmMwBmMwBm + MwBmMwBmMwDBs6r////d1tG3p5yMblhmMwBmMwBmMwBwQRFwQRFwQRFwQRFmMwBmMwCjjH3///////// + ///Bs6pmMwBmMwBmMwBmMwDm4N3///////+3p5xmMwBmMwBmMwBmMwCMblj////////////m4N1mMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////90SSZmMwBmMwBmMwBm + MwCjjH3///////////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbu6+n///////+3p5z///////// + ///39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////Bs6p0SSZmMwBmMwC3p5z///// + ///////39fR0SSZmMwBmMwBmMwBwQRFwQRFwQRFwQRFmMwBmMwDBs6r///////////+3p5xmMwBmMwBm + MwBmMwCYfWv///////////+AXUJmMwBmMwBmMwBmMwD///////////////////////////////////// + //////////+jjH1mMwBmMwBmMwBmMwC3p5z///////////////////////////////////////////// + ///d1tFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3////////////////////////Uy8VmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDd1tH///////////////////////////////////////////+3p5xmMwBm + MwBmMwBmMwBwQRFwQRFwQRFwQRFmMwBmMwDUy8X///////////+MblhmMwBmMwBmMwBmMwBmMwDLv7j/ + ///////d1tFmMwBmMwBmMwBmMwDm4N3///////////////////////////////////////////+3p5xm + MwBmMwBmMwBmMwCMblj////////////////////////////////////////////u6+mAXUJmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwC3p5z////////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBwQRFw + QRFwQRFwQRFmMwBmMwD39fT///////////90SSZmMwBmMwBmMwBmMwBmMwCAXUL///////////+3p5xm + MwBmMwBmMwDBs6r////////////////////////////////////////////Uy8VmMwBmMwBmMwBmMwB0 + SSb////////////////////////////////////m4N23p5x0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwCAXUL39fT///////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCA + XUK3p5zm4N3///////////////+3p5yMblhmMwBmMwBmMwBmMwBmMwBmMwBwQRFwQRFwQRFwQRFmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBwQRFwQRFwQRFwQRFmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBwQRFwQRFwQRFwQRFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBwQRFwQRFwQRFwQRFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBwQRFw + QRFwQRFwQRFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBwQRFwQRFwQRFwQRFmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBwQRFwQRFwQRFwQRFmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBwQRFwQRFtPAttPAtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBtPAttPAtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBnNQJnNQJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNQJnNQJ6TSF6TSFwQRFw + QRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFw + QRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFw + QRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFw + QRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFw + QRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRF6TSF6TSF6TSF6TSFwQRFwQRFwQRFwQRFwQRFw + QRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFw + QRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFw + QRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFw + QRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFw + QRFwQRFwQRFwQRFwQRFwQRFwQRF6TSF6TSH///////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////R0e+rq+Krq+Krq+Krq+LR0e////////////////// + //////////+rq+Krq+Krq+Krq+Krq+Ld3fP////d3fOrq+Krq+Krq+Krq+Krq+Krq+Krq+Krq+Krq+Kr + q+K4uOb////////////////////////////d3fOrq+Krq+Krq+Krq+L////////////////Fxeqrq+Kr + q+Krq+L////////////p6ferq+Krq+Krq+Krq+Krq+L///////////////+4uOarq+Krq+Krq+Krq+Lp + 6ff///////////+4uOarq+Krq+Krq+LR0e////////////////////////+rq+Krq+Krq+Krq+LR0e// + ///////////////////////FxeoDA70DA70DA70DA71sbND///////////////////////////8DA70D + A70DA70DA70DA73Fxer////R0e8DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA72Ojtn0 + 9Pv////////////////R0e8DA70DA70DA70DA73p6ff///////////9ZWcsDA70DA70DA73R0e////// + ///d3fMDA70DA70DA70DA70DA7309Pv///////////9+ftQDA70DA70DA70DA72rq+L///////////9+ + ftQDA70DA70DA72Ojtn////////////////////R0e8DA70DA70DA70DA72Ojtn///////////////// + //////////9sbNADA70DA70DA70DA73R0e/////////////////////p6fcDA70DA70DA70DA70DA73p + 6ff////09PsDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA71ERMfd3fP///////// + ///09PsDA70DA70DA70DA73Fxer///////////8pKcIDA70DA70DA71sbND///////////8pKcIDA70D + A70DA70DA73R0e////////////+dnd0DA70DA70DA70DA72dnd3///////////+dnd0DA70DA70DA71Z + Wcv///////////////////+OjtkDA70DA70DA70DA71ZWcv////////////////////////////R0e8D + A70DA70DA70DA71+ftT////////////////////R0e8DA70DA70DA70DA70pKcL///////////9ERMcD + A70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70pKcLp6ff///////////9ERMcDA70D + A70DA72rq+L////////p6fcDA70DA70DA70DA70DA73R0e////////9ZWcsDA70DA70DA70DA72rq+L/ + //////////+4uOYDA70DA70DA70DA71sbND///////////+4uOYDA70DA70DA70DA73///////////// + ///09PsDA70DA70DA70DA70DA70pKcL///////////////////////////////9sbNADA70DA70DA70D + A72rq+Krq+Krq+Krq+Krq+J+ftQDA70DA70DA70DA71ZWcv///////////9+ftQDA70DA70DA70DA73F + xer////////d3fOOjtkDA70DA70DA70DA70DA71sbND///////////9+ftQDA70DA70DA71+ftT///// + ///FxeoDA70DA70DA70DA70DA71sbND///////+dnd0DA70DA70DA70DA72dnd3////////////d3fMD + A70DA70DA70DA70pKcL////////////d3fMDA70DA70DA70DA73d3fP///////////+rq+IDA70DA70D + A70DA70DA70DA73d3fP////////////////////////////R0e8DA70DA70DA70DA70DA70DA70DA70D + A70DA70DA70DA70DA70DA70DA72Ojtn///////////+dnd0DA70DA70DA70DA72rq+L///////////// + //+rq+IDA70DA70DA70DA70DA73R0e////////+dnd0DA70DA70DA71ZWcv///////+rq+IDA70DA70D + A70DA70DA70DA73R0e////+rq+IDA70DA70DA70DA71sbND///////////////8DA70DA70DA70DA70D + A73p6ff////////09PsDA70DA70DA70DA73Fxer///////////9ERMcDA70DA70DA70DA70DA70DA73F + xer///////////////////////////////9sbNADA70DA70DA70DA70DA70DA70DA70DA70DA70DA70D + A70DA70DA72rq+L///////////+4uOYDA70DA70DA70DA72Ojtn///////////////////9ZWcsDA70D + A70DA70DA71+ftT////////FxeoDA70DA70DA70DA73///////+OjtkDA70DA70DA70DA70DA70DA71s + bND////R0e8DA70DA70DA70DA70pKcL///////////////9ZWcsDA70DA70DA70DA73Fxer///////// + //9ZWcsDA70DA70DA72rq+L////////FxeoDA70DA70DA70DA70DA70DA70DA72rq+L///////////// + ///////////////////R0e8DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA73Fxer/ + ///////////d3fMDA70DA70DA70DA71ZWcv///////////////////+rq+IDA70DA70DA70DA70DA730 + 9Pv////d3fMDA70DA70DA70DA73d3fP///9ZWcsDA70DA70DA70DA70DA70DA70DA73R0e/09PsDA70D + A70DA70DA70DA73p6ff///////////9+ftQDA70DA70DA70DA72rq+L///////////9+ftQDA70DA70D + A71+ftT///////9sbNADA70DA70DA70DA70DA70DA70DA71+ftT///////////////////////////// + //////9sbNADA70DA70DA70pKcL09Pv///////8DA70DA70DA70DA70DA73p6ff///////////////8D + A70DA70DA70DA70pKcL////////////////////09PsDA70DA70DA70DA70DA73d3fP///////8DA70D + A70DA70DA724uOb///8pKcIDA70DA70DA70DA70DA70DA70DA71sbND///8pKcIDA70DA70DA70DA73F + xer///////////+rq+IDA70DA70DA70DA72Ojtn///////////+rq+IDA70DA70DA71ERMf////p6fcD + A70DA70DA70DA70DA70DA70DA70DA71ZWcv////////////////////////////////////R0e8DA70D + A70DA70DA724uOb////d3fMDA70DA70DA70DA70pKcL///////////////////9ZWcsDA70DA70DA70D + A73d3fP///////////////////8pKcIDA70DA70DA70DA73Fxer///////9ZWcsDA70DA70DA72dnd3p + 6fcDA70DA70DA70DA71ZWcsDA70DA70DA70DA73p6fdsbNADA70DA70DA70DA72rq+L////////////F + xeoDA70DA70DA70DA71ZWcv////////////FxeoDA70DA70DA70DA7309Pudnd0DA70DA70DA70DA70p + KcIDA70DA70DA70DA7309Pv///////////////////////////////////9sbNADA70DA70DA71ERMf/ + ///FxeoDA70DA70DA70DA71ZWcv///////////////////9+ftQDA70DA70DA70DA73Fxer///////// + //////////9ERMcDA70DA70DA70DA724uOb///////+OjtkDA70DA70DA71+ftTFxeoDA70DA70DA70D + A724uOZsbNADA70DA70DA72Ojtmdnd0DA70DA70DA70DA72Ojtn////////////d3fMDA70DA70DA70D + A70pKcL////////////d3fMDA70DA70DA70DA73R0e8pKcIDA70DA70DA70DA72rq+IDA70DA70DA70D + A73d3fP////////////////////////////////////R0e8DA70DA70DA70DA73Fxeqrq+IDA70DA70D + A70DA72Ojtn///////////////////+rq+IDA70DA70DA70DA72rq+L///////////////////9ERMcD + A70DA70DA70DA73Fxer///////+rq+IDA70DA70DA71ERMerq+IDA70DA70DA70DA73d3fPR0e8DA70D + A70DA70DA72rq+IDA70DA70DA70DA71ZWcv///////////////8pKcIDA70DA70DA70DA73d3fP///// + //////8DA70DA70DA70DA71+ftQDA70DA70DA70DA71ERMf///8pKcIDA70DA70DA724uOb///////// + //////////////////////////////9sbNADA70DA70DA71sbNCdnd0DA70DA70DA70DA72rq+L///// + ///////////////FxeoDA70DA70DA70DA71+ftT///////////////////8DA70DA70DA70DA70DA73d + 3fP////////FxeoDA70DA70DA70DA71sbNADA70DA70DA70DA7309Pv///9sbNADA70DA70DA71ZWcsD + A70DA70DA70DA70pKcL///////////////9ZWcsDA70DA70DA70DA73Fxer///////////9ZWcsDA70D + A70DA70DA70DA70DA70DA70DA72rq+L///9ZWcsDA70DA70DA72dnd3///////////////////////// + ///////////////FxeoDA70DA70DA70DA70pKcIDA70DA70DA70DA73Fxer////////////////////p + 6fcDA70DA70DA70DA71ZWcv///////////////+4uOYDA70DA70DA70DA70pKcL09Pv////////p6fcD + A70DA70DA70DA70DA70DA70DA70DA71ERMf////////R0e8DA70DA70DA70DA70DA70DA70DA70DA70D + A73d3fP///////////+OjtkDA70DA70DA70DA72rq+L///////////+OjtkDA70DA70DA70DA70DA70D + A70DA70DA73p6ff///+dnd0DA70DA70DA71sbND///////////////////////////////////////// + //9ERMcDA70DA70DA70DA70DA70DA70DA70DA73p6ff///////////////////////8pKcIDA70DA70D + A70DA73////////////p6fdERMcDA70DA70DA70DA72Ojtn///////////////8pKcIDA70DA70DA70D + A70DA70DA70DA71sbND///////////9sbNADA70DA70DA70DA70DA70DA70DA70DA73Fxer///////// + //+rq+IDA70DA70DA70DA71+ftT///////////+rq+IDA70DA70DA70DA70DA70DA70DA71+ftT///// + //+rq+IDA70DA70DA70pKcL///////////////////////////////////////////+4uOYDA70DA70D + A70DA70DA70DA70DA70pKcL///////////////////////////9ZWcsDA70DA70DA70DA72dnd2rq+Kd + nd0DA70DA70DA70DA70DA70DA73p6ff///////////////9sbNADA70DA70DA70DA70DA70DA70DA72d + nd3////////////R0e8DA70DA70DA70DA70DA70DA70DA70DA72rq+L////////////FxeoDA70DA70D + A70DA71ZWcv////////////FxeoDA70DA70DA70DA70DA70DA70DA73R0e/////////R0e8DA70DA70D + A70DA7309Pv///////////////////////////////////////////9ERMcDA70DA70DA70DA70DA70D + A71ZWcv///////////////////////////+OjtkDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70D + A70DA72rq+L///////////////////+dnd0DA70DA70DA70DA70DA70DA70DA72rq+L///////////// + //9sbNADA70DA70DA70DA70DA70DA70DA71+ftT////////////p6fcDA70DA70DA70DA70DA73///// + ///////p6fcDA70DA70DA70DA70DA70DA71ERMf////////////09PsDA70DA70DA70DA73Fxer///// + //////////////////////////////////////+4uOYDA70DA70DA70DA70DA70DA72Ojtn///////// + //////////////////+rq+IDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA72rq+L///////// + //////////////+rq+IDA70DA70DA70DA70DA70DA70DA73R0e/////////////////R0e8DA70DA70D + A70DA70DA70DA70DA71ZWcv///////////////8pKcIDA70DA70DA70DA73d3fP///////////8pKcID + A70DA70DA70DA70DA72rq+L///////////////9ERMcDA70DA70DA72rq+L///////////////////// + //////////////////////////9ERMcDA70DA70DA70DA70DA72rq+L///////////////////////// + ///FxeoDA70DA70DA70DA70DA70DA70DA70DA71ERMerq+Ld3fP////////////////////////////d + 3fMDA70DA70DA70DA70DA70DA70DA73p6ff///////////////////9sbNADA70DA70DA70DA70DA70D + A70DA73///////////////9sbNADA70DA70DA70DA724uOb///////////9ZWcsDA70DA70DA70DA70p + KcL09Pv///////////////9+ftQDA70DA70DA72Ojtn///////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////8AAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAA= + + + \ No newline at end of file diff --git a/UID/Mitarbeiter/frmMitarbTimas.vb b/UID/Mitarbeiter/frmMitarbTimas.vb new file mode 100644 index 0000000..0a5c87d --- /dev/null +++ b/UID/Mitarbeiter/frmMitarbTimas.vb @@ -0,0 +1,307 @@ + +Imports System.DirectoryServices +Imports System.Globalization +Imports System.IO +Imports System.Net +Imports System.Net.Http +Imports System.Net.WebRequestMethods +Imports System.Security.Policy +Imports System.Text +Imports System.Text.RegularExpressions +Imports System.Windows +Imports System.Windows.Forms.VisualStyles.VisualStyleElement.StartPanel +Imports DAKOSY_Worker.DEERRE +Imports DocumentFormat.OpenXml.Spreadsheet +Imports GrapeCity.ActiveReports.ReportsCore.Tools +Imports itextsharp.text.pdf.codec.wmf +Imports Microsoft.VisualBasic.ApplicationServices +Imports Newtonsoft.Json +Imports VERAG_PROG_ALLGEMEIN + +Public Class frmMitarbTimas + + Public mid As Integer = -1 + Public isUpdate As Boolean = False + Dim emp As cTimasEmployee + Dim timas As cTimasAPI + Dim dtTimas As New DataTable + + Sub New() + + ' Dieser Aufruf ist für den Designer erforderlich. + InitializeComponent() + + ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. + + End Sub + + + Private Sub frmMitarbDetails_Load(sender As Object, e As EventArgs) Handles MyBase.Load + + txtPwd.Visible = False + cbxEinsteigsDat.Checked = False + cbxGebDat.Checked = False + + + txtGebDat.Format = DateTimePickerFormat.Custom + txtGebDat.CustomFormat = "dd.MM.yyyy" + datGekuendigtAm.Format = DateTimePickerFormat.Custom + datGekuendigtAm.CustomFormat = "dd.MM.yyyy" + datEinstiegsdatum.Format = DateTimePickerFormat.Custom + datEinstiegsdatum.CustomFormat = "dd.MM.yyyy" + + + If mid > 0 Then + initMitarbeiter(mid) + Else + MsgBox("Fehler beim Laden der Daten!") + End If + + End Sub + Private Sub initMitarbeiter(Optional _isUpdate As Boolean = True) + timas = New cTimasAPI + emp = timas.getEmployee(mid) + + timas.getAllGroups(dtTimas) + + initDGV(dtTimas) + + isUpdate = _isUpdate + Label48.Text = emp.externid + txtUsername.Text = emp.login + txtVname.Text = emp.firstname + txtNname.Text = emp.lastname + txtPwd.Text = emp.password + If emp.gender = "male" Then rbtnGeschlechtM.Checked = True + If emp.gender = "female" Then rbtnGeschlechtW.Checked = True + + If emp.birthdayDate = "null" Then + cbxGebDat.Checked = False + Else + cbxGebDat.Checked = True : txtGebDat.Text = emp.birthdayDate + End If + txtStrasse.Text = emp.street + txtLohn.Text = emp.pnr1 + txtPlz.Text = emp.zipcode + txtCard.Text = emp.card + txtOrt.Text = emp.city + txtInfo.Text = emp.info + 'cboNiederlassung.changeItem(mitarbeiter.mit_niederlassung) + 'cboAbteilung.changeItem(mitarbeiter.mit_abteilung) + txtTelNr.Text = emp.phone1 + txtEmail.Text = emp.email + txtMobiltel.Text = emp.phone2 + + 'txtPersonalNr.Text = emp.pnr1 + + cbxAccount.Checked = emp.loginActive + + If emp.entryDate = "null" Then + cbxEinsteigsDat.Checked = False + Else + cbxEinsteigsDat.Checked = True : datEinstiegsdatum.Text = emp.entryDate + End If + + + If emp.exitDate <> "null" Then + cbxGekuendigt.Checked = True + datGekuendigtAm.Text = emp.exitDate + Else + cbxGekuendigt.Checked = False + End If + + End Sub + + + Private Sub btnCancel_Click(sender As Object, e As EventArgs) Handles btnCancel.Click + Me.Close() + End Sub + + Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles btnOK.Click + Dim newMid As Integer = 0 + If txtVname.Text = "" And txtNname.Text = "" Then MsgBox("Bitte geben Sie einen Namen ein!") : Exit Sub + getMitarbeiter() + Me.Refresh() + + End Sub + + + Private Sub getMitarbeiter() + + emp.login = txtUsername.Text + emp.password = txtPwd.Text + If rbtnGeschlechtM.Checked Then emp.gender = "male" + If rbtnGeschlechtW.Checked Then emp.gender = "female" + emp.firstname = txtVname.Text + emp.lastname = txtNname.Text + If cbxGebDat.Checked Then emp.birthdayDate = txtGebDat.Text Else emp.birthdayDate = "null" + emp.street = txtStrasse.Text + emp.zipcode = txtPlz.Text + emp.street = txtOrt.Text + + emp.phone1 = txtTelNr.Text & " " & txtDurchwahl.Text + emp.email = txtEmail.Text + emp.phone2 = txtMobiltel.Text + emp.info = txtInfo.Text + + + If cbxEinsteigsDat.Checked Then emp.entryDate = datEinstiegsdatum.Text Else emp.entryDate = "null" + If cbxGekuendigt.Checked Then emp.exitDate = datGekuendigtAm.Text Else emp.exitDate = "null" + + 'mitarbeiter.mit_TESTonly = cbxTestaccount.Checked + If checkMandatoryFields() Then + timas.updateEmployee(emp, dgvData) + End If + + + + End Sub + + + Private Sub Label8_Click_1(sender As Object, e As EventArgs) + txtPwd.Visible = True + Label8.Visible = False + End Sub + + Private Sub btnSave_Click(sender As Object, e As EventArgs) + If txtVname.Text = "" And txtNname.Text = "" Then MsgBox("Bitte geben Sie einen Namen ein!") : Exit Sub + getMitarbeiter() + If isUpdate Then + emp.ID = mid + 'If UID.updateMitarbeiter(mitarbeiter) Then Me.Close() + End If + End Sub + + Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) + datEinstiegsdatum.Enabled = cbxEinsteigsDat.Checked + End Sub + + Private Sub CheckBox2_CheckedChanged(sender As Object, e As EventArgs) + txtGebDat.Enabled = cbxGebDat.Checked + End Sub + + + Private Sub cbxGekuendigt_CheckedChanged(sender As Object, e As EventArgs) + datGekuendigtAm.Enabled = cbxGekuendigt.Checked + End Sub + + + + Private Sub cboNiederlassung_SelectedIndexChanged(sender As Object, e As EventArgs) + + End Sub + + Private Sub Button5_Click(sender As Object, e As EventArgs) + Dim frmBenutzerBerGruppen As New frmBenutzerBerGruppen(mid, 3, "DISPO") + frmBenutzerBerGruppen.Show(Me) + End Sub + + Private Sub lkl_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles lkl.LinkClicked + If vbYes = MsgBox("Möchten Sie das Kennwort wirklich zurücksetzen? " & vbNewLine & "Der Benutzer wird beim nächsten Login zur Eingabe aufgefordert.", vbYesNoCancel) Then + ' txtPwd.Text = "0000" + getMitarbeiter() + emp.password = "null" + If checkMandatoryFields() Then + timas.updateEmployee(emp, Nothing) + End If + End If + End Sub + + + + Private Function checkMandatoryFields() As Boolean + + + If Not cbxEinsteigsDat.Checked Or emp.entryDate = "" Then + MsgBox("Einstiegsdatum prüfen!") + Return False + End If + + If CDate(emp.entryDate).ToShortDateString <= DateTime.Parse("01/01/2000") Then + MsgBox("Einstiegsdatum darf nicht vor 01.01.2000 liegen!") + Return False + End If + + + + If emp.firstname = "" Or emp.lastname = "" Then + MsgBox("Vor- und Nachnamen angeben!") + Return False + End If + + If emp.info = "" Then + MsgBox("Firma/Info angeben!") + Return False + End If + + Return True + + End Function + + Sub initDGV(dt As DataTable) + + + If dtTimas.Columns.Count > 0 Then + + If TabControl1.TabCount = 0 Then + For Each row As DataRow In dt.DefaultView.ToTable(True, "groupType").Rows + Dim TabIndex As Integer 'Anzahl der erstellten Tabs, bei keinem Tab ist der Index 0 + TabIndex = TabControl1.TabCount + TabControl1.TabPages.Add(row("groupType")) + If TabIndex = 0 Then + Dim tab As TabPage = Me.TabControl1.SelectedTab + Dim dv = New DataView(dt) + dv.RowFilter = "groupType = '" & tab.Text & "'" + dgvData.DataSource = dv + If dgvData.Columns.Count > 0 Then + With dgvData + .RowHeadersWidth = 10 + .Columns("id").Visible = True + .Columns("name").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill + .Columns("groupType").Visible = False + .Columns("info").Width = 200 + .Columns("set").Width = 20 + .Columns("set").HeaderText = "X" + .Dock = DockStyle.Fill + + For Each r As DataGridViewRow In dgvData.Rows + For Each i As cTimasGruppe In emp.Gruppen + If r.Cells("id").Value = i.Id Then r.Cells("set").Value = True + Next + Next + End With + tab.Controls.Add(Me.dgvData) + End If + End If + + Next + End If + End If + + + End Sub + + Private Sub PictureBox9_Click_1(sender As Object, e As EventArgs) + Dim webAddress As String = "https://zeit.verag.ag/" + Process.Start(webAddress) + End Sub + + Private Sub TabControl1_SelectedIndexChanged_1(sender As Object, e As EventArgs) Handles TabControl1.SelectedIndexChanged + If dgvData Is Nothing And dgvData.Rows.Count < 1 Then Exit Sub + Dim tab As TabPage = Me.TabControl1.SelectedTab + If ((Not tab Is Nothing) AndAlso (Not tab.Controls.Contains(Me.dgvData))) Then + Dim dv = New DataView(dtTimas) + dv.RowFilter = "groupType = '" & tab.Text & "'" + dgvData.DataSource = dv + If dgvData.Columns.Count > 0 Then + tab.Controls.Add(Me.dgvData) + End If + + + End If + End Sub + + + +End Class + diff --git a/UID/Mitarbeiter/usrCntlMitarbeiter.Designer.vb b/UID/Mitarbeiter/usrCntlMitarbeiter.Designer.vb index e3ad354..7dad38a 100644 --- a/UID/Mitarbeiter/usrCntlMitarbeiter.Designer.vb +++ b/UID/Mitarbeiter/usrCntlMitarbeiter.Designer.vb @@ -31,21 +31,13 @@ Partial Class usrCntlMitarbeiter Me.Button3 = New System.Windows.Forms.Button() Me.TabControl1 = New System.Windows.Forms.TabControl() Me.TabPage1 = New System.Windows.Forms.TabPage() - Me.dgvVERAG = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) Me.TabPage2 = New System.Windows.Forms.TabPage() - Me.dgvATILLA = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) Me.TabPage3 = New System.Windows.Forms.TabPage() - Me.dgvIMEX = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) Me.TabPage4 = New System.Windows.Forms.TabPage() - Me.dgvUNISPED = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) Me.TabPage5 = New System.Windows.Forms.TabPage() - Me.dgvAMBAR = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) Me.TabPage6 = New System.Windows.Forms.TabPage() - Me.dgvFRONTOFFICE = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) Me.TabPage7 = New System.Windows.Forms.TabPage() - Me.dgvVERIMEX = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) Me.TabPage8 = New System.Windows.Forms.TabPage() - Me.dgvTimasNew = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) Me.Panel1 = New System.Windows.Forms.Panel() Me.cbx = New System.Windows.Forms.CheckBox() Me.txtSuche = New System.Windows.Forms.TextBox() @@ -57,27 +49,35 @@ Partial Class usrCntlMitarbeiter Me.UserKopierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.BerechtigungenSetzenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip(Me.components) + Me.dgvVERAG = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) + Me.dgvATILLA = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) + Me.dgvIMEX = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) + Me.dgvUNISPED = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) + Me.dgvAMBAR = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) + Me.dgvFRONTOFFICE = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) + Me.dgvVERIMEX = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) + Me.dgvTimasNew = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) Me.Panel2.SuspendLayout() Me.TabControl1.SuspendLayout() Me.TabPage1.SuspendLayout() - CType(Me.dgvVERAG, System.ComponentModel.ISupportInitialize).BeginInit() Me.TabPage2.SuspendLayout() - CType(Me.dgvATILLA, System.ComponentModel.ISupportInitialize).BeginInit() Me.TabPage3.SuspendLayout() - CType(Me.dgvIMEX, System.ComponentModel.ISupportInitialize).BeginInit() Me.TabPage4.SuspendLayout() - CType(Me.dgvUNISPED, System.ComponentModel.ISupportInitialize).BeginInit() Me.TabPage5.SuspendLayout() - CType(Me.dgvAMBAR, System.ComponentModel.ISupportInitialize).BeginInit() Me.TabPage6.SuspendLayout() - CType(Me.dgvFRONTOFFICE, System.ComponentModel.ISupportInitialize).BeginInit() Me.TabPage7.SuspendLayout() - CType(Me.dgvVERIMEX, System.ComponentModel.ISupportInitialize).BeginInit() Me.TabPage8.SuspendLayout() - CType(Me.dgvTimasNew, System.ComponentModel.ISupportInitialize).BeginInit() Me.Panel1.SuspendLayout() Me.Panel3.SuspendLayout() Me.ContextMenuStrip1.SuspendLayout() + CType(Me.dgvVERAG, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.dgvATILLA, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.dgvIMEX, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.dgvUNISPED, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.dgvAMBAR, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.dgvFRONTOFFICE, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.dgvVERIMEX, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.dgvTimasNew, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' 'Button6 @@ -175,16 +175,6 @@ Partial Class usrCntlMitarbeiter Me.TabPage1.Text = "VERAG" Me.TabPage1.UseVisualStyleBackColor = True ' - 'dgvVERAG - ' - Me.dgvVERAG.AKTUALISIERUNGS_INTERVALL = -1 - Me.dgvVERAG.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - Me.dgvVERAG.Dock = System.Windows.Forms.DockStyle.Fill - Me.dgvVERAG.Location = New System.Drawing.Point(3, 3) - Me.dgvVERAG.Name = "dgvVERAG" - Me.dgvVERAG.Size = New System.Drawing.Size(875, 616) - Me.dgvVERAG.TabIndex = 24 - ' 'TabPage2 ' Me.TabPage2.Controls.Add(Me.dgvATILLA) @@ -196,16 +186,6 @@ Partial Class usrCntlMitarbeiter Me.TabPage2.Text = "ATILLA" Me.TabPage2.UseVisualStyleBackColor = True ' - 'dgvATILLA - ' - Me.dgvATILLA.AKTUALISIERUNGS_INTERVALL = -1 - Me.dgvATILLA.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - Me.dgvATILLA.Dock = System.Windows.Forms.DockStyle.Fill - Me.dgvATILLA.Location = New System.Drawing.Point(3, 3) - Me.dgvATILLA.Name = "dgvATILLA" - Me.dgvATILLA.Size = New System.Drawing.Size(875, 616) - Me.dgvATILLA.TabIndex = 25 - ' 'TabPage3 ' Me.TabPage3.Controls.Add(Me.dgvIMEX) @@ -217,16 +197,6 @@ Partial Class usrCntlMitarbeiter Me.TabPage3.Text = "IMEX" Me.TabPage3.UseVisualStyleBackColor = True ' - 'dgvIMEX - ' - Me.dgvIMEX.AKTUALISIERUNGS_INTERVALL = -1 - Me.dgvIMEX.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - Me.dgvIMEX.Dock = System.Windows.Forms.DockStyle.Fill - Me.dgvIMEX.Location = New System.Drawing.Point(3, 3) - Me.dgvIMEX.Name = "dgvIMEX" - Me.dgvIMEX.Size = New System.Drawing.Size(875, 616) - Me.dgvIMEX.TabIndex = 25 - ' 'TabPage4 ' Me.TabPage4.Controls.Add(Me.dgvUNISPED) @@ -238,16 +208,6 @@ Partial Class usrCntlMitarbeiter Me.TabPage4.Text = "UNISPED" Me.TabPage4.UseVisualStyleBackColor = True ' - 'dgvUNISPED - ' - Me.dgvUNISPED.AKTUALISIERUNGS_INTERVALL = -1 - Me.dgvUNISPED.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - Me.dgvUNISPED.Dock = System.Windows.Forms.DockStyle.Fill - Me.dgvUNISPED.Location = New System.Drawing.Point(3, 3) - Me.dgvUNISPED.Name = "dgvUNISPED" - Me.dgvUNISPED.Size = New System.Drawing.Size(875, 616) - Me.dgvUNISPED.TabIndex = 25 - ' 'TabPage5 ' Me.TabPage5.Controls.Add(Me.dgvAMBAR) @@ -259,16 +219,6 @@ Partial Class usrCntlMitarbeiter Me.TabPage5.Text = "AMBAR" Me.TabPage5.UseVisualStyleBackColor = True ' - 'dgvAMBAR - ' - Me.dgvAMBAR.AKTUALISIERUNGS_INTERVALL = -1 - Me.dgvAMBAR.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - Me.dgvAMBAR.Dock = System.Windows.Forms.DockStyle.Fill - Me.dgvAMBAR.Location = New System.Drawing.Point(3, 3) - Me.dgvAMBAR.Name = "dgvAMBAR" - Me.dgvAMBAR.Size = New System.Drawing.Size(875, 616) - Me.dgvAMBAR.TabIndex = 25 - ' 'TabPage6 ' Me.TabPage6.Controls.Add(Me.dgvFRONTOFFICE) @@ -280,16 +230,6 @@ Partial Class usrCntlMitarbeiter Me.TabPage6.Text = "FRONT-OFFICE" Me.TabPage6.UseVisualStyleBackColor = True ' - 'dgvFRONTOFFICE - ' - Me.dgvFRONTOFFICE.AKTUALISIERUNGS_INTERVALL = -1 - Me.dgvFRONTOFFICE.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - Me.dgvFRONTOFFICE.Dock = System.Windows.Forms.DockStyle.Fill - Me.dgvFRONTOFFICE.Location = New System.Drawing.Point(3, 3) - Me.dgvFRONTOFFICE.Name = "dgvFRONTOFFICE" - Me.dgvFRONTOFFICE.Size = New System.Drawing.Size(875, 616) - Me.dgvFRONTOFFICE.TabIndex = 26 - ' 'TabPage7 ' Me.TabPage7.Controls.Add(Me.dgvVERIMEX) @@ -301,16 +241,6 @@ Partial Class usrCntlMitarbeiter Me.TabPage7.Text = "VERIMEX" Me.TabPage7.UseVisualStyleBackColor = True ' - 'dgvVERIMEX - ' - Me.dgvVERIMEX.AKTUALISIERUNGS_INTERVALL = -1 - Me.dgvVERIMEX.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - Me.dgvVERIMEX.Dock = System.Windows.Forms.DockStyle.Fill - Me.dgvVERIMEX.Location = New System.Drawing.Point(3, 3) - Me.dgvVERIMEX.Name = "dgvVERIMEX" - Me.dgvVERIMEX.Size = New System.Drawing.Size(875, 616) - Me.dgvVERIMEX.TabIndex = 27 - ' 'TabPage8 ' Me.TabPage8.Controls.Add(Me.dgvTimasNew) @@ -321,16 +251,6 @@ Partial Class usrCntlMitarbeiter Me.TabPage8.Text = "Zeiterfassung" Me.TabPage8.UseVisualStyleBackColor = True ' - 'dgvTimasNew - ' - Me.dgvTimasNew.AKTUALISIERUNGS_INTERVALL = -1 - Me.dgvTimasNew.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - Me.dgvTimasNew.Location = New System.Drawing.Point(3, 3) - Me.dgvTimasNew.Name = "dgvTimasNew" - Me.dgvTimasNew.ReadOnly = True - Me.dgvTimasNew.Size = New System.Drawing.Size(875, 616) - Me.dgvTimasNew.TabIndex = 0 - ' 'Panel1 ' Me.Panel1.Controls.Add(Me.cbx) @@ -421,6 +341,87 @@ Partial Class usrCntlMitarbeiter Me.ContextMenuStrip2.Name = "ContextMenuStrip2" Me.ContextMenuStrip2.Size = New System.Drawing.Size(61, 4) ' + 'dgvVERAG + ' + Me.dgvVERAG.AKTUALISIERUNGS_INTERVALL = -1 + Me.dgvVERAG.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.dgvVERAG.Dock = System.Windows.Forms.DockStyle.Fill + Me.dgvVERAG.Location = New System.Drawing.Point(3, 3) + Me.dgvVERAG.Name = "dgvVERAG" + Me.dgvVERAG.Size = New System.Drawing.Size(875, 616) + Me.dgvVERAG.TabIndex = 24 + ' + 'dgvATILLA + ' + Me.dgvATILLA.AKTUALISIERUNGS_INTERVALL = -1 + Me.dgvATILLA.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.dgvATILLA.Dock = System.Windows.Forms.DockStyle.Fill + Me.dgvATILLA.Location = New System.Drawing.Point(3, 3) + Me.dgvATILLA.Name = "dgvATILLA" + Me.dgvATILLA.Size = New System.Drawing.Size(875, 616) + Me.dgvATILLA.TabIndex = 25 + ' + 'dgvIMEX + ' + Me.dgvIMEX.AKTUALISIERUNGS_INTERVALL = -1 + Me.dgvIMEX.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.dgvIMEX.Dock = System.Windows.Forms.DockStyle.Fill + Me.dgvIMEX.Location = New System.Drawing.Point(3, 3) + Me.dgvIMEX.Name = "dgvIMEX" + Me.dgvIMEX.Size = New System.Drawing.Size(875, 616) + Me.dgvIMEX.TabIndex = 25 + ' + 'dgvUNISPED + ' + Me.dgvUNISPED.AKTUALISIERUNGS_INTERVALL = -1 + Me.dgvUNISPED.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.dgvUNISPED.Dock = System.Windows.Forms.DockStyle.Fill + Me.dgvUNISPED.Location = New System.Drawing.Point(3, 3) + Me.dgvUNISPED.Name = "dgvUNISPED" + Me.dgvUNISPED.Size = New System.Drawing.Size(875, 616) + Me.dgvUNISPED.TabIndex = 25 + ' + 'dgvAMBAR + ' + Me.dgvAMBAR.AKTUALISIERUNGS_INTERVALL = -1 + Me.dgvAMBAR.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.dgvAMBAR.Dock = System.Windows.Forms.DockStyle.Fill + Me.dgvAMBAR.Location = New System.Drawing.Point(3, 3) + Me.dgvAMBAR.Name = "dgvAMBAR" + Me.dgvAMBAR.Size = New System.Drawing.Size(875, 616) + Me.dgvAMBAR.TabIndex = 25 + ' + 'dgvFRONTOFFICE + ' + Me.dgvFRONTOFFICE.AKTUALISIERUNGS_INTERVALL = -1 + Me.dgvFRONTOFFICE.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.dgvFRONTOFFICE.Dock = System.Windows.Forms.DockStyle.Fill + Me.dgvFRONTOFFICE.Location = New System.Drawing.Point(3, 3) + Me.dgvFRONTOFFICE.Name = "dgvFRONTOFFICE" + Me.dgvFRONTOFFICE.Size = New System.Drawing.Size(875, 616) + Me.dgvFRONTOFFICE.TabIndex = 26 + ' + 'dgvVERIMEX + ' + Me.dgvVERIMEX.AKTUALISIERUNGS_INTERVALL = -1 + Me.dgvVERIMEX.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.dgvVERIMEX.Dock = System.Windows.Forms.DockStyle.Fill + Me.dgvVERIMEX.Location = New System.Drawing.Point(3, 3) + Me.dgvVERIMEX.Name = "dgvVERIMEX" + Me.dgvVERIMEX.Size = New System.Drawing.Size(875, 616) + Me.dgvVERIMEX.TabIndex = 27 + ' + 'dgvTimasNew + ' + Me.dgvTimasNew.AKTUALISIERUNGS_INTERVALL = -1 + Me.dgvTimasNew.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.dgvTimasNew.Dock = System.Windows.Forms.DockStyle.Fill + Me.dgvTimasNew.Location = New System.Drawing.Point(0, 0) + Me.dgvTimasNew.Name = "dgvTimasNew" + Me.dgvTimasNew.ReadOnly = True + Me.dgvTimasNew.Size = New System.Drawing.Size(881, 622) + Me.dgvTimasNew.TabIndex = 0 + ' 'usrCntlMitarbeiter ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) @@ -434,25 +435,25 @@ Partial Class usrCntlMitarbeiter Me.Panel2.ResumeLayout(False) Me.TabControl1.ResumeLayout(False) Me.TabPage1.ResumeLayout(False) - CType(Me.dgvVERAG, System.ComponentModel.ISupportInitialize).EndInit() Me.TabPage2.ResumeLayout(False) - CType(Me.dgvATILLA, System.ComponentModel.ISupportInitialize).EndInit() Me.TabPage3.ResumeLayout(False) - CType(Me.dgvIMEX, System.ComponentModel.ISupportInitialize).EndInit() Me.TabPage4.ResumeLayout(False) - CType(Me.dgvUNISPED, System.ComponentModel.ISupportInitialize).EndInit() Me.TabPage5.ResumeLayout(False) - CType(Me.dgvAMBAR, System.ComponentModel.ISupportInitialize).EndInit() Me.TabPage6.ResumeLayout(False) - CType(Me.dgvFRONTOFFICE, System.ComponentModel.ISupportInitialize).EndInit() Me.TabPage7.ResumeLayout(False) - CType(Me.dgvVERIMEX, System.ComponentModel.ISupportInitialize).EndInit() Me.TabPage8.ResumeLayout(False) - CType(Me.dgvTimasNew, System.ComponentModel.ISupportInitialize).EndInit() Me.Panel1.ResumeLayout(False) Me.Panel1.PerformLayout() Me.Panel3.ResumeLayout(False) Me.ContextMenuStrip1.ResumeLayout(False) + CType(Me.dgvVERAG, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.dgvATILLA, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.dgvIMEX, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.dgvUNISPED, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.dgvAMBAR, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.dgvFRONTOFFICE, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.dgvVERIMEX, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.dgvTimasNew, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) End Sub diff --git a/UID/Mitarbeiter/usrCntlMitarbeiter.vb b/UID/Mitarbeiter/usrCntlMitarbeiter.vb index 32794f4..c15b67a 100644 --- a/UID/Mitarbeiter/usrCntlMitarbeiter.vb +++ b/UID/Mitarbeiter/usrCntlMitarbeiter.vb @@ -226,6 +226,7 @@ Public Class usrCntlMitarbeiter .RowHeadersVisible = False .SelectionMode = DataGridViewSelectionMode.FullRowSelect .AllowUserToOrderColumns = True + .Columns(6).AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill End With @@ -824,4 +825,14 @@ Public Class usrCntlMitarbeiter End Function + Private Sub dgvTimasNew_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvTimasNew.CellDoubleClick + Me.Cursor = Cursors.WaitCursor + 'neue GUI für Änderungen im Timas + + Dim frmMitarbDetails As New frmMitarbTimas() + frmMitarbDetails.mid = sender.CurrentRow.Cells(0).Value + frmMitarbDetails.Show(Me) + sender.RELOAD() + Me.Cursor = Cursors.Default + End Sub End Class diff --git a/UID/My Project/AssemblyInfo.vb b/UID/My Project/AssemblyInfo.vb index 33ce4e7..85a03c4 100644 --- a/UID/My Project/AssemblyInfo.vb +++ b/UID/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + + diff --git a/initATLASAufschubkonten/cAsfinag.vb b/initATLASAufschubkonten/cAsfinag.vb index af620ae..faf57b2 100644 --- a/initATLASAufschubkonten/cAsfinag.vb +++ b/initATLASAufschubkonten/cAsfinag.vb @@ -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 diff --git a/initATLASAufschubkonten/frmAsfinag_NachrichtenVerarbeitung.vb b/initATLASAufschubkonten/frmAsfinag_NachrichtenVerarbeitung.vb index 533ed70..47897b9 100644 --- a/initATLASAufschubkonten/frmAsfinag_NachrichtenVerarbeitung.vb +++ b/initATLASAufschubkonten/frmAsfinag_NachrichtenVerarbeitung.vb @@ -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 diff --git a/initATLASAufschubkonten/frmStartOptions.Designer.vb b/initATLASAufschubkonten/frmStartOptions.Designer.vb index c16fd6f..084baf8 100644 --- a/initATLASAufschubkonten/frmStartOptions.Designer.vb +++ b/initATLASAufschubkonten/frmStartOptions.Designer.vb @@ -38,20 +38,16 @@ Partial Class frmStartOptions Me.Label20 = New System.Windows.Forms.Label() Me.Label19 = New System.Windows.Forms.Label() Me.Label18 = New System.Windows.Forms.Label() - Me.MyTextBox2 = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.LinkLabel36 = New System.Windows.Forms.LinkLabel() Me.Button13 = New System.Windows.Forms.Button() Me.Button12 = New System.Windows.Forms.Button() Me.cbxSyskaWdh = New System.Windows.Forms.CheckBox() - Me.txtSyskaWdhDateiname = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Button10 = New System.Windows.Forms.Button() Me.piceZollAnh = New System.Windows.Forms.PictureBox() - Me.txtEZOLLAnhDat = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.lblEZOLLDat = New System.Windows.Forms.LinkLabel() Me.Button6 = New System.Windows.Forms.Button() Me.CheckBox6 = New System.Windows.Forms.CheckBox() Me.Button7 = New System.Windows.Forms.Button() - Me.cboSYSKAFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.CheckBox7 = New System.Windows.Forms.CheckBox() Me.Label16 = New System.Windows.Forms.Label() Me.LinkLabel33 = New System.Windows.Forms.LinkLabel() @@ -60,7 +56,6 @@ Partial Class frmStartOptions Me.Button4 = New System.Windows.Forms.Button() Me.CheckBox5 = New System.Windows.Forms.CheckBox() Me.Button3 = New System.Windows.Forms.Button() - Me.cboBMDUnispedFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.CheckBox4 = New System.Windows.Forms.CheckBox() Me.Label13 = New System.Windows.Forms.Label() Me.CheckBox3 = New System.Windows.Forms.CheckBox() @@ -127,15 +122,6 @@ Partial Class frmStartOptions Me.Label7 = New System.Windows.Forms.Label() Me.LinkLabel27 = New System.Windows.Forms.LinkLabel() Me.Label6 = New System.Windows.Forms.Label() - Me.dgvMRN = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) - Me.clmnMRN = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.txtVRGOut_MRN = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtVRGOut_FilialenNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtVRGOut_AbfertigungsNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.MyComboBox2 = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.txtVRGOutEZA_BezugsNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.MyComboBox1 = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.txtVRGOut_BezugsNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.TabPage3 = New System.Windows.Forms.TabPage() Me.LinkLabel39 = New System.Windows.Forms.LinkLabel() Me.LinkLabel40 = New System.Windows.Forms.LinkLabel() @@ -149,6 +135,8 @@ Partial Class frmStartOptions Me.LinkLabel30 = New System.Windows.Forms.LinkLabel() Me.Label11 = New System.Windows.Forms.Label() Me.TabPage4 = New System.Windows.Forms.TabPage() + Me.PictureBox19 = New System.Windows.Forms.PictureBox() + Me.PictureBox18 = New System.Windows.Forms.PictureBox() Me.LinkLabel41 = New System.Windows.Forms.LinkLabel() Me.LinkLabel42 = New System.Windows.Forms.LinkLabel() Me.Label23 = New System.Windows.Forms.Label() @@ -162,7 +150,6 @@ Partial Class frmStartOptions Me.cbxKd = New System.Windows.Forms.CheckBox() Me.Button9 = New System.Windows.Forms.Button() Me.Label3 = New System.Windows.Forms.Label() - Me.MyTextBox1 = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.PictureBox12 = New System.Windows.Forms.PictureBox() Me.LinkLabel20 = New System.Windows.Forms.LinkLabel() Me.PictureBox11 = New System.Windows.Forms.PictureBox() @@ -178,6 +165,23 @@ Partial Class frmStartOptions Me.LinkLabel3 = New System.Windows.Forms.LinkLabel() Me.lklAufschubkontenATLASEZOLL = New System.Windows.Forms.LinkLabel() Me.lblRoutineManager = New System.Windows.Forms.Label() + Me.LinkLabel45 = New System.Windows.Forms.LinkLabel() + Me.PictureBox20 = New System.Windows.Forms.PictureBox() + Me.MyTextBox2 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtSyskaWdhDateiname = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtEZOLLAnhDat = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.cboSYSKAFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.cboBMDUnispedFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.dgvMRN = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) + Me.clmnMRN = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.txtVRGOut_MRN = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtVRGOut_FilialenNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtVRGOut_AbfertigungsNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.MyComboBox2 = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.txtVRGOutEZA_BezugsNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.MyComboBox1 = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.txtVRGOut_BezugsNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.MyTextBox1 = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtGJ_UNISPED = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.pnl.SuspendLayout() CType(Me.piceZollAnh, System.ComponentModel.ISupportInitialize).BeginInit() @@ -198,13 +202,16 @@ Partial Class frmStartOptions Me.TabPage2.SuspendLayout() CType(Me.PictureBox15, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox14, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.dgvMRN, System.ComponentModel.ISupportInitialize).BeginInit() Me.TabPage3.SuspendLayout() Me.TabPage4.SuspendLayout() + CType(Me.PictureBox19, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.PictureBox18, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox12, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox11, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox10, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox9, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.PictureBox20, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.dgvMRN, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' 'pnl @@ -425,29 +432,6 @@ Partial Class frmStartOptions Me.Label18.TabIndex = 64 Me.Label18.Text = "Max" ' - 'MyTextBox2 - ' - Me.MyTextBox2._DateTimeOnly = False - Me.MyTextBox2._numbersOnly = True - Me.MyTextBox2._numbersOnlyKommastellen = "" - Me.MyTextBox2._numbersOnlyTrennzeichen = True - Me.MyTextBox2._Prozent = False - Me.MyTextBox2._ShortDateNew = False - Me.MyTextBox2._ShortDateOnly = False - Me.MyTextBox2._TimeOnly = False - Me.MyTextBox2._TimeOnly_Seconds = False - Me.MyTextBox2._value = "" - Me.MyTextBox2._Waehrung = False - Me.MyTextBox2._WaehrungZeichen = True - Me.MyTextBox2.ForeColor = System.Drawing.Color.Red - Me.MyTextBox2.Location = New System.Drawing.Point(151, 152) - Me.MyTextBox2.MaxLineLength = -1 - Me.MyTextBox2.MaxLines_Warning = "" - Me.MyTextBox2.MaxLines_Warning_Label = Nothing - Me.MyTextBox2.Name = "MyTextBox2" - Me.MyTextBox2.Size = New System.Drawing.Size(53, 20) - Me.MyTextBox2.TabIndex = 63 - ' 'LinkLabel36 ' Me.LinkLabel36.AutoSize = True @@ -494,30 +478,6 @@ Partial Class frmStartOptions Me.cbxSyskaWdh.Text = "Buchungen wiederh." Me.cbxSyskaWdh.UseVisualStyleBackColor = True ' - 'txtSyskaWdhDateiname - ' - Me.txtSyskaWdhDateiname._DateTimeOnly = False - Me.txtSyskaWdhDateiname._numbersOnly = False - Me.txtSyskaWdhDateiname._numbersOnlyKommastellen = "" - Me.txtSyskaWdhDateiname._numbersOnlyTrennzeichen = True - Me.txtSyskaWdhDateiname._Prozent = False - Me.txtSyskaWdhDateiname._ShortDateNew = False - Me.txtSyskaWdhDateiname._ShortDateOnly = False - Me.txtSyskaWdhDateiname._TimeOnly = False - Me.txtSyskaWdhDateiname._TimeOnly_Seconds = False - Me.txtSyskaWdhDateiname._value = "" - Me.txtSyskaWdhDateiname._Waehrung = False - Me.txtSyskaWdhDateiname._WaehrungZeichen = True - Me.txtSyskaWdhDateiname.ForeColor = System.Drawing.Color.Black - Me.txtSyskaWdhDateiname.Location = New System.Drawing.Point(687, 295) - Me.txtSyskaWdhDateiname.MaxLength = 50 - Me.txtSyskaWdhDateiname.MaxLineLength = -1 - Me.txtSyskaWdhDateiname.MaxLines_Warning = "" - Me.txtSyskaWdhDateiname.MaxLines_Warning_Label = Nothing - Me.txtSyskaWdhDateiname.Name = "txtSyskaWdhDateiname" - Me.txtSyskaWdhDateiname.Size = New System.Drawing.Size(136, 20) - Me.txtSyskaWdhDateiname.TabIndex = 58 - ' 'Button10 ' Me.Button10.FlatStyle = System.Windows.Forms.FlatStyle.Flat @@ -542,30 +502,6 @@ Partial Class frmStartOptions Me.piceZollAnh.TabStop = False Me.piceZollAnh.Visible = False ' - 'txtEZOLLAnhDat - ' - Me.txtEZOLLAnhDat._DateTimeOnly = False - Me.txtEZOLLAnhDat._numbersOnly = False - Me.txtEZOLLAnhDat._numbersOnlyKommastellen = "" - Me.txtEZOLLAnhDat._numbersOnlyTrennzeichen = True - Me.txtEZOLLAnhDat._Prozent = False - Me.txtEZOLLAnhDat._ShortDateNew = True - Me.txtEZOLLAnhDat._ShortDateOnly = False - Me.txtEZOLLAnhDat._TimeOnly = False - Me.txtEZOLLAnhDat._TimeOnly_Seconds = False - Me.txtEZOLLAnhDat._value = "" - Me.txtEZOLLAnhDat._Waehrung = False - Me.txtEZOLLAnhDat._WaehrungZeichen = True - Me.txtEZOLLAnhDat.ForeColor = System.Drawing.Color.Black - Me.txtEZOLLAnhDat.Location = New System.Drawing.Point(408, 190) - Me.txtEZOLLAnhDat.MaxLength = 10 - Me.txtEZOLLAnhDat.MaxLineLength = -1 - Me.txtEZOLLAnhDat.MaxLines_Warning = "" - Me.txtEZOLLAnhDat.MaxLines_Warning_Label = Nothing - Me.txtEZOLLAnhDat.Name = "txtEZOLLAnhDat" - Me.txtEZOLLAnhDat.Size = New System.Drawing.Size(87, 20) - Me.txtEZOLLAnhDat.TabIndex = 55 - ' 'lblEZOLLDat ' Me.lblEZOLLDat.AutoSize = True @@ -614,17 +550,6 @@ Partial Class frmStartOptions Me.Button7.Text = "Buchungen --> Syska" Me.Button7.UseVisualStyleBackColor = True ' - 'cboSYSKAFirma - ' - Me.cboSYSKAFirma._allowedValuesFreiText = Nothing - Me.cboSYSKAFirma._allowFreiText = False - Me.cboSYSKAFirma._value = "" - Me.cboSYSKAFirma.FormattingEnabled = True - Me.cboSYSKAFirma.Location = New System.Drawing.Point(559, 276) - Me.cboSYSKAFirma.Name = "cboSYSKAFirma" - Me.cboSYSKAFirma.Size = New System.Drawing.Size(129, 21) - Me.cboSYSKAFirma.TabIndex = 51 - ' 'CheckBox7 ' Me.CheckBox7.AutoSize = True @@ -717,17 +642,6 @@ Partial Class frmStartOptions Me.Button3.Text = "Buchungen --> BMD" Me.Button3.UseVisualStyleBackColor = True ' - 'cboBMDUnispedFirma - ' - Me.cboBMDUnispedFirma._allowedValuesFreiText = Nothing - Me.cboBMDUnispedFirma._allowFreiText = False - Me.cboBMDUnispedFirma._value = "" - Me.cboBMDUnispedFirma.FormattingEnabled = True - Me.cboBMDUnispedFirma.Location = New System.Drawing.Point(268, 276) - Me.cboBMDUnispedFirma.Name = "cboBMDUnispedFirma" - Me.cboBMDUnispedFirma.Size = New System.Drawing.Size(124, 21) - Me.cboBMDUnispedFirma.TabIndex = 42 - ' 'CheckBox4 ' Me.CheckBox4.AutoSize = True @@ -774,6 +688,8 @@ Partial Class frmStartOptions ' 'TabPage1 ' + Me.TabPage1.Controls.Add(Me.PictureBox20) + Me.TabPage1.Controls.Add(Me.LinkLabel45) Me.TabPage1.Controls.Add(Me.LinkLabel38) Me.TabPage1.Controls.Add(Me.PictureBox17) Me.TabPage1.Controls.Add(Me.LinkLabel37) @@ -825,7 +741,7 @@ Partial Class frmStartOptions ' Me.LinkLabel38.AutoSize = True Me.LinkLabel38.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.LinkLabel38.Location = New System.Drawing.Point(475, 125) + Me.LinkLabel38.Location = New System.Drawing.Point(475, 65) Me.LinkLabel38.Name = "LinkLabel38" Me.LinkLabel38.Size = New System.Drawing.Size(141, 13) Me.LinkLabel38.TabIndex = 59 @@ -836,7 +752,7 @@ Partial Class frmStartOptions ' Me.PictureBox17.BackgroundImage = CType(resources.GetObject("PictureBox17.BackgroundImage"), System.Drawing.Image) Me.PictureBox17.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.PictureBox17.Location = New System.Drawing.Point(630, 120) + Me.PictureBox17.Location = New System.Drawing.Point(630, 60) Me.PictureBox17.Name = "PictureBox17" Me.PictureBox17.Size = New System.Drawing.Size(18, 18) Me.PictureBox17.TabIndex = 60 @@ -847,7 +763,7 @@ Partial Class frmStartOptions ' Me.LinkLabel37.AutoSize = True Me.LinkLabel37.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.LinkLabel37.Location = New System.Drawing.Point(295, 125) + Me.LinkLabel37.Location = New System.Drawing.Point(290, 97) Me.LinkLabel37.Name = "LinkLabel37" Me.LinkLabel37.Size = New System.Drawing.Size(94, 13) Me.LinkLabel37.TabIndex = 57 @@ -858,7 +774,7 @@ Partial Class frmStartOptions ' Me.PictureBox16.BackgroundImage = CType(resources.GetObject("PictureBox16.BackgroundImage"), System.Drawing.Image) Me.PictureBox16.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.PictureBox16.Location = New System.Drawing.Point(400, 120) + Me.PictureBox16.Location = New System.Drawing.Point(395, 92) Me.PictureBox16.Name = "PictureBox16" Me.PictureBox16.Size = New System.Drawing.Size(18, 18) Me.PictureBox16.TabIndex = 58 @@ -893,7 +809,7 @@ Partial Class frmStartOptions ' Me.LinkLabel28.AutoSize = True Me.LinkLabel28.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.LinkLabel28.Location = New System.Drawing.Point(13, 234) + Me.LinkLabel28.Location = New System.Drawing.Point(13, 254) Me.LinkLabel28.Name = "LinkLabel28" Me.LinkLabel28.Size = New System.Drawing.Size(197, 13) Me.LinkLabel28.TabIndex = 55 @@ -948,7 +864,7 @@ Partial Class frmStartOptions ' Me.Label2.AutoSize = True Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label2.Location = New System.Drawing.Point(11, 158) + Me.Label2.Location = New System.Drawing.Point(11, 178) Me.Label2.Name = "Label2" Me.Label2.Size = New System.Drawing.Size(205, 13) Me.Label2.TabIndex = 11 @@ -958,7 +874,7 @@ Partial Class frmStartOptions ' Me.LinkLabel5.AutoSize = True Me.LinkLabel5.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.LinkLabel5.Location = New System.Drawing.Point(11, 185) + Me.LinkLabel5.Location = New System.Drawing.Point(11, 205) Me.LinkLabel5.Name = "LinkLabel5" Me.LinkLabel5.Size = New System.Drawing.Size(177, 13) Me.LinkLabel5.TabIndex = 12 @@ -969,7 +885,7 @@ Partial Class frmStartOptions ' Me.LinkLabel6.AutoSize = True Me.LinkLabel6.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.LinkLabel6.Location = New System.Drawing.Point(295, 185) + Me.LinkLabel6.Location = New System.Drawing.Point(295, 205) Me.LinkLabel6.Name = "LinkLabel6" Me.LinkLabel6.Size = New System.Drawing.Size(180, 13) Me.LinkLabel6.TabIndex = 13 @@ -980,7 +896,7 @@ Partial Class frmStartOptions ' Me.LinkLabel23.AutoSize = True Me.LinkLabel23.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.LinkLabel23.Location = New System.Drawing.Point(295, 313) + Me.LinkLabel23.Location = New System.Drawing.Point(295, 333) Me.LinkLabel23.Name = "LinkLabel23" Me.LinkLabel23.Size = New System.Drawing.Size(180, 13) Me.LinkLabel23.TabIndex = 21 @@ -1002,7 +918,7 @@ Partial Class frmStartOptions ' Me.LinkLabel24.AutoSize = True Me.LinkLabel24.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.LinkLabel24.Location = New System.Drawing.Point(295, 288) + Me.LinkLabel24.Location = New System.Drawing.Point(295, 308) Me.LinkLabel24.Name = "LinkLabel24" Me.LinkLabel24.Size = New System.Drawing.Size(177, 13) Me.LinkLabel24.TabIndex = 19 @@ -1024,7 +940,7 @@ Partial Class frmStartOptions ' Me.Label5.AutoSize = True Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label5.Location = New System.Drawing.Point(295, 261) + Me.Label5.Location = New System.Drawing.Point(295, 281) Me.Label5.Name = "Label5" Me.Label5.Size = New System.Drawing.Size(184, 13) Me.Label5.TabIndex = 17 @@ -1034,7 +950,7 @@ Partial Class frmStartOptions ' Me.LinkLabel8.AutoSize = True Me.LinkLabel8.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.LinkLabel8.Location = New System.Drawing.Point(295, 37) + Me.LinkLabel8.Location = New System.Drawing.Point(13, 156) Me.LinkLabel8.Name = "LinkLabel8" Me.LinkLabel8.Size = New System.Drawing.Size(120, 13) Me.LinkLabel8.TabIndex = 2 @@ -1045,7 +961,7 @@ Partial Class frmStartOptions ' Me.LinkLabel21.AutoSize = True Me.LinkLabel21.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.LinkLabel21.Location = New System.Drawing.Point(11, 313) + Me.LinkLabel21.Location = New System.Drawing.Point(11, 333) Me.LinkLabel21.Name = "LinkLabel21" Me.LinkLabel21.Size = New System.Drawing.Size(180, 13) Me.LinkLabel21.TabIndex = 20 @@ -1056,7 +972,7 @@ Partial Class frmStartOptions ' Me.PictureBox2.BackgroundImage = CType(resources.GetObject("PictureBox2.BackgroundImage"), System.Drawing.Image) Me.PictureBox2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.PictureBox2.Location = New System.Drawing.Point(421, 32) + Me.PictureBox2.Location = New System.Drawing.Point(139, 151) Me.PictureBox2.Name = "PictureBox2" Me.PictureBox2.Size = New System.Drawing.Size(18, 18) Me.PictureBox2.TabIndex = 14 @@ -1067,7 +983,7 @@ Partial Class frmStartOptions ' Me.LinkLabel22.AutoSize = True Me.LinkLabel22.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.LinkLabel22.Location = New System.Drawing.Point(11, 288) + Me.LinkLabel22.Location = New System.Drawing.Point(11, 308) Me.LinkLabel22.Name = "LinkLabel22" Me.LinkLabel22.Size = New System.Drawing.Size(177, 13) Me.LinkLabel22.TabIndex = 18 @@ -1078,7 +994,7 @@ Partial Class frmStartOptions ' Me.LinkLabel9.AutoSize = True Me.LinkLabel9.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.LinkLabel9.Location = New System.Drawing.Point(11, 210) + Me.LinkLabel9.Location = New System.Drawing.Point(11, 230) Me.LinkLabel9.Name = "LinkLabel9" Me.LinkLabel9.Size = New System.Drawing.Size(180, 13) Me.LinkLabel9.TabIndex = 14 @@ -1089,7 +1005,7 @@ Partial Class frmStartOptions ' Me.Label4.AutoSize = True Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label4.Location = New System.Drawing.Point(11, 261) + Me.Label4.Location = New System.Drawing.Point(11, 281) Me.Label4.Name = "Label4" Me.Label4.Size = New System.Drawing.Size(211, 13) Me.Label4.TabIndex = 16 @@ -1099,7 +1015,7 @@ Partial Class frmStartOptions ' Me.LinkLabel10.AutoSize = True Me.LinkLabel10.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.LinkLabel10.Location = New System.Drawing.Point(295, 65) + Me.LinkLabel10.Location = New System.Drawing.Point(290, 37) Me.LinkLabel10.Name = "LinkLabel10" Me.LinkLabel10.Size = New System.Drawing.Size(104, 13) Me.LinkLabel10.TabIndex = 5 @@ -1120,7 +1036,7 @@ Partial Class frmStartOptions ' Me.PictureBox3.BackgroundImage = CType(resources.GetObject("PictureBox3.BackgroundImage"), System.Drawing.Image) Me.PictureBox3.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.PictureBox3.Location = New System.Drawing.Point(405, 60) + Me.PictureBox3.Location = New System.Drawing.Point(400, 32) Me.PictureBox3.Name = "PictureBox3" Me.PictureBox3.Size = New System.Drawing.Size(18, 18) Me.PictureBox3.TabIndex = 17 @@ -1131,7 +1047,7 @@ Partial Class frmStartOptions ' Me.LinkLabel11.AutoSize = True Me.LinkLabel11.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.LinkLabel11.Location = New System.Drawing.Point(475, 65) + Me.LinkLabel11.Location = New System.Drawing.Point(287, 156) Me.LinkLabel11.Name = "LinkLabel11" Me.LinkLabel11.Size = New System.Drawing.Size(202, 13) Me.LinkLabel11.TabIndex = 6 @@ -1142,7 +1058,7 @@ Partial Class frmStartOptions ' Me.PictureBox4.BackgroundImage = CType(resources.GetObject("PictureBox4.BackgroundImage"), System.Drawing.Image) Me.PictureBox4.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.PictureBox4.Location = New System.Drawing.Point(683, 60) + Me.PictureBox4.Location = New System.Drawing.Point(495, 151) Me.PictureBox4.Name = "PictureBox4" Me.PictureBox4.Size = New System.Drawing.Size(18, 18) Me.PictureBox4.TabIndex = 19 @@ -1153,7 +1069,7 @@ Partial Class frmStartOptions ' Me.LinkLabel12.AutoSize = True Me.LinkLabel12.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.LinkLabel12.Location = New System.Drawing.Point(475, 37) + Me.LinkLabel12.Location = New System.Drawing.Point(287, 125) Me.LinkLabel12.Name = "LinkLabel12" Me.LinkLabel12.Size = New System.Drawing.Size(159, 13) Me.LinkLabel12.TabIndex = 3 @@ -1164,7 +1080,7 @@ Partial Class frmStartOptions ' Me.PictureBox5.BackgroundImage = CType(resources.GetObject("PictureBox5.BackgroundImage"), System.Drawing.Image) Me.PictureBox5.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.PictureBox5.Location = New System.Drawing.Point(640, 32) + Me.PictureBox5.Location = New System.Drawing.Point(452, 120) Me.PictureBox5.Name = "PictureBox5" Me.PictureBox5.Size = New System.Drawing.Size(18, 18) Me.PictureBox5.TabIndex = 21 @@ -1197,7 +1113,7 @@ Partial Class frmStartOptions ' Me.LinkLabel14.AutoSize = True Me.LinkLabel14.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.LinkLabel14.Location = New System.Drawing.Point(295, 95) + Me.LinkLabel14.Location = New System.Drawing.Point(290, 67) Me.LinkLabel14.Name = "LinkLabel14" Me.LinkLabel14.Size = New System.Drawing.Size(99, 13) Me.LinkLabel14.TabIndex = 8 @@ -1208,7 +1124,7 @@ Partial Class frmStartOptions ' Me.PictureBox7.BackgroundImage = CType(resources.GetObject("PictureBox7.BackgroundImage"), System.Drawing.Image) Me.PictureBox7.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.PictureBox7.Location = New System.Drawing.Point(400, 90) + Me.PictureBox7.Location = New System.Drawing.Point(395, 62) Me.PictureBox7.Name = "PictureBox7" Me.PictureBox7.Size = New System.Drawing.Size(18, 18) Me.PictureBox7.TabIndex = 25 @@ -1219,7 +1135,7 @@ Partial Class frmStartOptions ' Me.LinkLabel15.AutoSize = True Me.LinkLabel15.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.LinkLabel15.Location = New System.Drawing.Point(295, 210) + Me.LinkLabel15.Location = New System.Drawing.Point(295, 230) Me.LinkLabel15.Name = "LinkLabel15" Me.LinkLabel15.Size = New System.Drawing.Size(183, 13) Me.LinkLabel15.TabIndex = 15 @@ -1230,7 +1146,7 @@ Partial Class frmStartOptions ' Me.LinkLabel16.AutoSize = True Me.LinkLabel16.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.LinkLabel16.Location = New System.Drawing.Point(475, 95) + Me.LinkLabel16.Location = New System.Drawing.Point(475, 37) Me.LinkLabel16.Name = "LinkLabel16" Me.LinkLabel16.Size = New System.Drawing.Size(149, 13) Me.LinkLabel16.TabIndex = 9 @@ -1241,7 +1157,7 @@ Partial Class frmStartOptions ' Me.PictureBox8.BackgroundImage = CType(resources.GetObject("PictureBox8.BackgroundImage"), System.Drawing.Image) Me.PictureBox8.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.PictureBox8.Location = New System.Drawing.Point(630, 90) + Me.PictureBox8.Location = New System.Drawing.Point(630, 32) Me.PictureBox8.Name = "PictureBox8" Me.PictureBox8.Size = New System.Drawing.Size(18, 18) Me.PictureBox8.TabIndex = 29 @@ -1522,165 +1438,6 @@ Partial Class frmStartOptions Me.Label6.TabIndex = 0 Me.Label6.Text = "VERAG IN" ' - 'dgvMRN - ' - Me.dgvMRN.AKTUALISIERUNGS_INTERVALL = -1 - Me.dgvMRN.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - Me.dgvMRN.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.clmnMRN}) - Me.dgvMRN.Location = New System.Drawing.Point(637, 63) - Me.dgvMRN.Name = "dgvMRN" - Me.dgvMRN.RowHeadersWidth = 62 - Me.dgvMRN.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect - Me.dgvMRN.Size = New System.Drawing.Size(207, 134) - Me.dgvMRN.TabIndex = 75 - ' - 'clmnMRN - ' - Me.clmnMRN.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill - Me.clmnMRN.HeaderText = "MRN" - Me.clmnMRN.MinimumWidth = 8 - Me.clmnMRN.Name = "clmnMRN" - ' - 'txtVRGOut_MRN - ' - Me.txtVRGOut_MRN._DateTimeOnly = False - Me.txtVRGOut_MRN._numbersOnly = False - Me.txtVRGOut_MRN._numbersOnlyKommastellen = "" - Me.txtVRGOut_MRN._numbersOnlyTrennzeichen = True - Me.txtVRGOut_MRN._Prozent = False - Me.txtVRGOut_MRN._ShortDateNew = False - Me.txtVRGOut_MRN._ShortDateOnly = False - Me.txtVRGOut_MRN._TimeOnly = False - Me.txtVRGOut_MRN._TimeOnly_Seconds = False - Me.txtVRGOut_MRN._value = "" - Me.txtVRGOut_MRN._Waehrung = False - Me.txtVRGOut_MRN._WaehrungZeichen = False - Me.txtVRGOut_MRN.ForeColor = System.Drawing.Color.Red - Me.txtVRGOut_MRN.Location = New System.Drawing.Point(359, 84) - Me.txtVRGOut_MRN.MaxLineLength = -1 - Me.txtVRGOut_MRN.MaxLines_Warning = "" - Me.txtVRGOut_MRN.MaxLines_Warning_Label = Nothing - Me.txtVRGOut_MRN.Name = "txtVRGOut_MRN" - Me.txtVRGOut_MRN.Size = New System.Drawing.Size(153, 20) - Me.txtVRGOut_MRN.TabIndex = 73 - ' - 'txtVRGOut_FilialenNr - ' - Me.txtVRGOut_FilialenNr._DateTimeOnly = False - Me.txtVRGOut_FilialenNr._numbersOnly = False - Me.txtVRGOut_FilialenNr._numbersOnlyKommastellen = "" - Me.txtVRGOut_FilialenNr._numbersOnlyTrennzeichen = True - Me.txtVRGOut_FilialenNr._Prozent = False - Me.txtVRGOut_FilialenNr._ShortDateNew = False - Me.txtVRGOut_FilialenNr._ShortDateOnly = False - Me.txtVRGOut_FilialenNr._TimeOnly = False - Me.txtVRGOut_FilialenNr._TimeOnly_Seconds = False - Me.txtVRGOut_FilialenNr._value = "" - Me.txtVRGOut_FilialenNr._Waehrung = False - Me.txtVRGOut_FilialenNr._WaehrungZeichen = False - Me.txtVRGOut_FilialenNr.ForeColor = System.Drawing.Color.Red - Me.txtVRGOut_FilialenNr.Location = New System.Drawing.Point(398, 176) - Me.txtVRGOut_FilialenNr.MaxLineLength = -1 - Me.txtVRGOut_FilialenNr.MaxLines_Warning = "" - Me.txtVRGOut_FilialenNr.MaxLines_Warning_Label = Nothing - Me.txtVRGOut_FilialenNr.Multiline = True - Me.txtVRGOut_FilialenNr.Name = "txtVRGOut_FilialenNr" - Me.txtVRGOut_FilialenNr.Size = New System.Drawing.Size(56, 21) - Me.txtVRGOut_FilialenNr.TabIndex = 71 - ' - 'txtVRGOut_AbfertigungsNr - ' - Me.txtVRGOut_AbfertigungsNr._DateTimeOnly = False - Me.txtVRGOut_AbfertigungsNr._numbersOnly = False - Me.txtVRGOut_AbfertigungsNr._numbersOnlyKommastellen = "" - Me.txtVRGOut_AbfertigungsNr._numbersOnlyTrennzeichen = True - Me.txtVRGOut_AbfertigungsNr._Prozent = False - Me.txtVRGOut_AbfertigungsNr._ShortDateNew = False - Me.txtVRGOut_AbfertigungsNr._ShortDateOnly = False - Me.txtVRGOut_AbfertigungsNr._TimeOnly = False - Me.txtVRGOut_AbfertigungsNr._TimeOnly_Seconds = False - Me.txtVRGOut_AbfertigungsNr._value = "" - Me.txtVRGOut_AbfertigungsNr._Waehrung = False - Me.txtVRGOut_AbfertigungsNr._WaehrungZeichen = False - Me.txtVRGOut_AbfertigungsNr.ForeColor = System.Drawing.Color.Red - Me.txtVRGOut_AbfertigungsNr.Location = New System.Drawing.Point(453, 176) - Me.txtVRGOut_AbfertigungsNr.MaxLineLength = -1 - Me.txtVRGOut_AbfertigungsNr.MaxLines_Warning = "" - Me.txtVRGOut_AbfertigungsNr.MaxLines_Warning_Label = Nothing - Me.txtVRGOut_AbfertigungsNr.Multiline = True - Me.txtVRGOut_AbfertigungsNr.Name = "txtVRGOut_AbfertigungsNr" - Me.txtVRGOut_AbfertigungsNr.Size = New System.Drawing.Size(137, 21) - Me.txtVRGOut_AbfertigungsNr.TabIndex = 70 - ' - 'MyComboBox2 - ' - Me.MyComboBox2._allowedValuesFreiText = Nothing - Me.MyComboBox2._allowFreiText = False - Me.MyComboBox2._value = "" - Me.MyComboBox2.FormattingEnabled = True - Me.MyComboBox2.Location = New System.Drawing.Point(298, 252) - Me.MyComboBox2.Name = "MyComboBox2" - Me.MyComboBox2.Size = New System.Drawing.Size(62, 21) - Me.MyComboBox2.TabIndex = 64 - ' - 'txtVRGOutEZA_BezugsNr - ' - Me.txtVRGOutEZA_BezugsNr._DateTimeOnly = False - Me.txtVRGOutEZA_BezugsNr._numbersOnly = False - Me.txtVRGOutEZA_BezugsNr._numbersOnlyKommastellen = "" - Me.txtVRGOutEZA_BezugsNr._numbersOnlyTrennzeichen = True - Me.txtVRGOutEZA_BezugsNr._Prozent = False - Me.txtVRGOutEZA_BezugsNr._ShortDateNew = False - Me.txtVRGOutEZA_BezugsNr._ShortDateOnly = False - Me.txtVRGOutEZA_BezugsNr._TimeOnly = False - Me.txtVRGOutEZA_BezugsNr._TimeOnly_Seconds = False - Me.txtVRGOutEZA_BezugsNr._value = "" - Me.txtVRGOutEZA_BezugsNr._Waehrung = False - Me.txtVRGOutEZA_BezugsNr._WaehrungZeichen = False - Me.txtVRGOutEZA_BezugsNr.ForeColor = System.Drawing.Color.Red - Me.txtVRGOutEZA_BezugsNr.Location = New System.Drawing.Point(359, 252) - Me.txtVRGOutEZA_BezugsNr.MaxLineLength = -1 - Me.txtVRGOutEZA_BezugsNr.MaxLines_Warning = "" - Me.txtVRGOutEZA_BezugsNr.MaxLines_Warning_Label = Nothing - Me.txtVRGOutEZA_BezugsNr.Multiline = True - Me.txtVRGOutEZA_BezugsNr.Name = "txtVRGOutEZA_BezugsNr" - Me.txtVRGOutEZA_BezugsNr.Size = New System.Drawing.Size(153, 21) - Me.txtVRGOutEZA_BezugsNr.TabIndex = 65 - ' - 'MyComboBox1 - ' - Me.MyComboBox1._allowedValuesFreiText = Nothing - Me.MyComboBox1._allowFreiText = False - Me.MyComboBox1._value = "" - Me.MyComboBox1.FormattingEnabled = True - Me.MyComboBox1.Location = New System.Drawing.Point(298, 62) - Me.MyComboBox1.Name = "MyComboBox1" - Me.MyComboBox1.Size = New System.Drawing.Size(62, 21) - Me.MyComboBox1.TabIndex = 4 - ' - 'txtVRGOut_BezugsNr - ' - Me.txtVRGOut_BezugsNr._DateTimeOnly = False - Me.txtVRGOut_BezugsNr._numbersOnly = False - Me.txtVRGOut_BezugsNr._numbersOnlyKommastellen = "" - Me.txtVRGOut_BezugsNr._numbersOnlyTrennzeichen = True - Me.txtVRGOut_BezugsNr._Prozent = False - Me.txtVRGOut_BezugsNr._ShortDateNew = False - Me.txtVRGOut_BezugsNr._ShortDateOnly = False - Me.txtVRGOut_BezugsNr._TimeOnly = False - Me.txtVRGOut_BezugsNr._TimeOnly_Seconds = False - Me.txtVRGOut_BezugsNr._value = "" - Me.txtVRGOut_BezugsNr._Waehrung = False - Me.txtVRGOut_BezugsNr._WaehrungZeichen = False - Me.txtVRGOut_BezugsNr.ForeColor = System.Drawing.Color.Red - Me.txtVRGOut_BezugsNr.Location = New System.Drawing.Point(359, 62) - Me.txtVRGOut_BezugsNr.MaxLineLength = -1 - Me.txtVRGOut_BezugsNr.MaxLines_Warning = "" - Me.txtVRGOut_BezugsNr.MaxLines_Warning_Label = Nothing - Me.txtVRGOut_BezugsNr.Name = "txtVRGOut_BezugsNr" - Me.txtVRGOut_BezugsNr.Size = New System.Drawing.Size(153, 20) - Me.txtVRGOut_BezugsNr.TabIndex = 5 - ' 'TabPage3 ' Me.TabPage3.Controls.Add(Me.LinkLabel39) @@ -1818,6 +1575,8 @@ Partial Class frmStartOptions ' 'TabPage4 ' + Me.TabPage4.Controls.Add(Me.PictureBox19) + Me.TabPage4.Controls.Add(Me.PictureBox18) Me.TabPage4.Controls.Add(Me.LinkLabel41) Me.TabPage4.Controls.Add(Me.LinkLabel42) Me.TabPage4.Controls.Add(Me.Label23) @@ -1831,6 +1590,28 @@ Partial Class frmStartOptions Me.TabPage4.Text = "Asfinag" Me.TabPage4.UseVisualStyleBackColor = True ' + 'PictureBox19 + ' + Me.PictureBox19.BackgroundImage = CType(resources.GetObject("PictureBox19.BackgroundImage"), System.Drawing.Image) + Me.PictureBox19.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.PictureBox19.Location = New System.Drawing.Point(110, 165) + Me.PictureBox19.Name = "PictureBox19" + Me.PictureBox19.Size = New System.Drawing.Size(18, 18) + Me.PictureBox19.TabIndex = 37 + Me.PictureBox19.TabStop = False + Me.PictureBox19.Visible = False + ' + 'PictureBox18 + ' + Me.PictureBox18.BackgroundImage = CType(resources.GetObject("PictureBox18.BackgroundImage"), System.Drawing.Image) + Me.PictureBox18.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.PictureBox18.Location = New System.Drawing.Point(110, 135) + Me.PictureBox18.Name = "PictureBox18" + Me.PictureBox18.Size = New System.Drawing.Size(18, 18) + Me.PictureBox18.TabIndex = 36 + Me.PictureBox18.TabStop = False + Me.PictureBox18.Visible = False + ' 'LinkLabel41 ' Me.LinkLabel41.AutoSize = True @@ -1972,30 +1753,6 @@ Partial Class frmStartOptions Me.Label3.TabIndex = 14 Me.Label3.Text = "Routine Manager IMEX" ' - 'MyTextBox1 - ' - Me.MyTextBox1._DateTimeOnly = False - Me.MyTextBox1._numbersOnly = True - Me.MyTextBox1._numbersOnlyKommastellen = "" - Me.MyTextBox1._numbersOnlyTrennzeichen = True - Me.MyTextBox1._Prozent = False - Me.MyTextBox1._ShortDateNew = False - Me.MyTextBox1._ShortDateOnly = False - Me.MyTextBox1._TimeOnly = False - Me.MyTextBox1._TimeOnly_Seconds = False - Me.MyTextBox1._value = "100000" - Me.MyTextBox1._Waehrung = False - Me.MyTextBox1._WaehrungZeichen = True - Me.MyTextBox1.ForeColor = System.Drawing.Color.Black - Me.MyTextBox1.Location = New System.Drawing.Point(151, 132) - Me.MyTextBox1.MaxLineLength = -1 - Me.MyTextBox1.MaxLines_Warning = "" - Me.MyTextBox1.MaxLines_Warning_Label = Nothing - Me.MyTextBox1.Name = "MyTextBox1" - Me.MyTextBox1.Size = New System.Drawing.Size(53, 20) - Me.MyTextBox1.TabIndex = 11 - Me.MyTextBox1.Text = "100000" - ' 'PictureBox12 ' Me.PictureBox12.BackgroundImage = CType(resources.GetObject("PictureBox12.BackgroundImage"), System.Drawing.Image) @@ -2164,6 +1921,304 @@ Partial Class frmStartOptions Me.lblRoutineManager.TabIndex = 1 Me.lblRoutineManager.Text = "Routine Manager" ' + 'LinkLabel45 + ' + Me.LinkLabel45.AutoSize = True + Me.LinkLabel45.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.LinkLabel45.Location = New System.Drawing.Point(475, 95) + Me.LinkLabel45.Name = "LinkLabel45" + Me.LinkLabel45.Size = New System.Drawing.Size(112, 13) + Me.LinkLabel45.TabIndex = 61 + Me.LinkLabel45.TabStop = True + Me.LinkLabel45.Text = "Wechselkurse EZOLL" + ' + 'PictureBox20 + ' + Me.PictureBox20.BackgroundImage = CType(resources.GetObject("PictureBox20.BackgroundImage"), System.Drawing.Image) + Me.PictureBox20.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.PictureBox20.Location = New System.Drawing.Point(586, 90) + Me.PictureBox20.Name = "PictureBox20" + Me.PictureBox20.Size = New System.Drawing.Size(18, 18) + Me.PictureBox20.TabIndex = 62 + Me.PictureBox20.TabStop = False + Me.PictureBox20.Visible = False + ' + 'MyTextBox2 + ' + Me.MyTextBox2._DateTimeOnly = False + Me.MyTextBox2._numbersOnly = True + Me.MyTextBox2._numbersOnlyKommastellen = "" + Me.MyTextBox2._numbersOnlyTrennzeichen = True + Me.MyTextBox2._Prozent = False + Me.MyTextBox2._ShortDateNew = False + Me.MyTextBox2._ShortDateOnly = False + Me.MyTextBox2._TimeOnly = False + Me.MyTextBox2._TimeOnly_Seconds = False + Me.MyTextBox2._value = "" + Me.MyTextBox2._Waehrung = False + Me.MyTextBox2._WaehrungZeichen = True + Me.MyTextBox2.ForeColor = System.Drawing.Color.Red + Me.MyTextBox2.Location = New System.Drawing.Point(151, 152) + Me.MyTextBox2.MaxLineLength = -1 + Me.MyTextBox2.MaxLines_Warning = "" + Me.MyTextBox2.MaxLines_Warning_Label = Nothing + Me.MyTextBox2.Name = "MyTextBox2" + Me.MyTextBox2.Size = New System.Drawing.Size(53, 20) + Me.MyTextBox2.TabIndex = 63 + ' + 'txtSyskaWdhDateiname + ' + Me.txtSyskaWdhDateiname._DateTimeOnly = False + Me.txtSyskaWdhDateiname._numbersOnly = False + Me.txtSyskaWdhDateiname._numbersOnlyKommastellen = "" + Me.txtSyskaWdhDateiname._numbersOnlyTrennzeichen = True + Me.txtSyskaWdhDateiname._Prozent = False + Me.txtSyskaWdhDateiname._ShortDateNew = False + Me.txtSyskaWdhDateiname._ShortDateOnly = False + Me.txtSyskaWdhDateiname._TimeOnly = False + Me.txtSyskaWdhDateiname._TimeOnly_Seconds = False + Me.txtSyskaWdhDateiname._value = "" + Me.txtSyskaWdhDateiname._Waehrung = False + Me.txtSyskaWdhDateiname._WaehrungZeichen = True + Me.txtSyskaWdhDateiname.ForeColor = System.Drawing.Color.Black + Me.txtSyskaWdhDateiname.Location = New System.Drawing.Point(687, 295) + Me.txtSyskaWdhDateiname.MaxLength = 50 + Me.txtSyskaWdhDateiname.MaxLineLength = -1 + Me.txtSyskaWdhDateiname.MaxLines_Warning = "" + Me.txtSyskaWdhDateiname.MaxLines_Warning_Label = Nothing + Me.txtSyskaWdhDateiname.Name = "txtSyskaWdhDateiname" + Me.txtSyskaWdhDateiname.Size = New System.Drawing.Size(136, 20) + Me.txtSyskaWdhDateiname.TabIndex = 58 + ' + 'txtEZOLLAnhDat + ' + Me.txtEZOLLAnhDat._DateTimeOnly = False + Me.txtEZOLLAnhDat._numbersOnly = False + Me.txtEZOLLAnhDat._numbersOnlyKommastellen = "" + Me.txtEZOLLAnhDat._numbersOnlyTrennzeichen = True + Me.txtEZOLLAnhDat._Prozent = False + Me.txtEZOLLAnhDat._ShortDateNew = True + Me.txtEZOLLAnhDat._ShortDateOnly = False + Me.txtEZOLLAnhDat._TimeOnly = False + Me.txtEZOLLAnhDat._TimeOnly_Seconds = False + Me.txtEZOLLAnhDat._value = "" + Me.txtEZOLLAnhDat._Waehrung = False + Me.txtEZOLLAnhDat._WaehrungZeichen = True + Me.txtEZOLLAnhDat.ForeColor = System.Drawing.Color.Black + Me.txtEZOLLAnhDat.Location = New System.Drawing.Point(408, 190) + Me.txtEZOLLAnhDat.MaxLength = 10 + Me.txtEZOLLAnhDat.MaxLineLength = -1 + Me.txtEZOLLAnhDat.MaxLines_Warning = "" + Me.txtEZOLLAnhDat.MaxLines_Warning_Label = Nothing + Me.txtEZOLLAnhDat.Name = "txtEZOLLAnhDat" + Me.txtEZOLLAnhDat.Size = New System.Drawing.Size(87, 20) + Me.txtEZOLLAnhDat.TabIndex = 55 + ' + 'cboSYSKAFirma + ' + Me.cboSYSKAFirma._allowedValuesFreiText = Nothing + Me.cboSYSKAFirma._allowFreiText = False + Me.cboSYSKAFirma._value = "" + Me.cboSYSKAFirma.FormattingEnabled = True + Me.cboSYSKAFirma.Location = New System.Drawing.Point(559, 276) + Me.cboSYSKAFirma.Name = "cboSYSKAFirma" + Me.cboSYSKAFirma.Size = New System.Drawing.Size(129, 21) + Me.cboSYSKAFirma.TabIndex = 51 + ' + 'cboBMDUnispedFirma + ' + Me.cboBMDUnispedFirma._allowedValuesFreiText = Nothing + Me.cboBMDUnispedFirma._allowFreiText = False + Me.cboBMDUnispedFirma._value = "" + Me.cboBMDUnispedFirma.FormattingEnabled = True + Me.cboBMDUnispedFirma.Location = New System.Drawing.Point(268, 276) + Me.cboBMDUnispedFirma.Name = "cboBMDUnispedFirma" + Me.cboBMDUnispedFirma.Size = New System.Drawing.Size(124, 21) + Me.cboBMDUnispedFirma.TabIndex = 42 + ' + 'dgvMRN + ' + Me.dgvMRN.AKTUALISIERUNGS_INTERVALL = -1 + Me.dgvMRN.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.dgvMRN.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.clmnMRN}) + Me.dgvMRN.Location = New System.Drawing.Point(637, 63) + Me.dgvMRN.Name = "dgvMRN" + Me.dgvMRN.RowHeadersWidth = 62 + Me.dgvMRN.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect + Me.dgvMRN.Size = New System.Drawing.Size(207, 134) + Me.dgvMRN.TabIndex = 75 + ' + 'clmnMRN + ' + Me.clmnMRN.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill + Me.clmnMRN.HeaderText = "MRN" + Me.clmnMRN.MinimumWidth = 8 + Me.clmnMRN.Name = "clmnMRN" + ' + 'txtVRGOut_MRN + ' + Me.txtVRGOut_MRN._DateTimeOnly = False + Me.txtVRGOut_MRN._numbersOnly = False + Me.txtVRGOut_MRN._numbersOnlyKommastellen = "" + Me.txtVRGOut_MRN._numbersOnlyTrennzeichen = True + Me.txtVRGOut_MRN._Prozent = False + Me.txtVRGOut_MRN._ShortDateNew = False + Me.txtVRGOut_MRN._ShortDateOnly = False + Me.txtVRGOut_MRN._TimeOnly = False + Me.txtVRGOut_MRN._TimeOnly_Seconds = False + Me.txtVRGOut_MRN._value = "" + Me.txtVRGOut_MRN._Waehrung = False + Me.txtVRGOut_MRN._WaehrungZeichen = False + Me.txtVRGOut_MRN.ForeColor = System.Drawing.Color.Red + Me.txtVRGOut_MRN.Location = New System.Drawing.Point(359, 84) + Me.txtVRGOut_MRN.MaxLineLength = -1 + Me.txtVRGOut_MRN.MaxLines_Warning = "" + Me.txtVRGOut_MRN.MaxLines_Warning_Label = Nothing + Me.txtVRGOut_MRN.Name = "txtVRGOut_MRN" + Me.txtVRGOut_MRN.Size = New System.Drawing.Size(153, 20) + Me.txtVRGOut_MRN.TabIndex = 73 + ' + 'txtVRGOut_FilialenNr + ' + Me.txtVRGOut_FilialenNr._DateTimeOnly = False + Me.txtVRGOut_FilialenNr._numbersOnly = False + Me.txtVRGOut_FilialenNr._numbersOnlyKommastellen = "" + Me.txtVRGOut_FilialenNr._numbersOnlyTrennzeichen = True + Me.txtVRGOut_FilialenNr._Prozent = False + Me.txtVRGOut_FilialenNr._ShortDateNew = False + Me.txtVRGOut_FilialenNr._ShortDateOnly = False + Me.txtVRGOut_FilialenNr._TimeOnly = False + Me.txtVRGOut_FilialenNr._TimeOnly_Seconds = False + Me.txtVRGOut_FilialenNr._value = "" + Me.txtVRGOut_FilialenNr._Waehrung = False + Me.txtVRGOut_FilialenNr._WaehrungZeichen = False + Me.txtVRGOut_FilialenNr.ForeColor = System.Drawing.Color.Red + Me.txtVRGOut_FilialenNr.Location = New System.Drawing.Point(398, 176) + Me.txtVRGOut_FilialenNr.MaxLineLength = -1 + Me.txtVRGOut_FilialenNr.MaxLines_Warning = "" + Me.txtVRGOut_FilialenNr.MaxLines_Warning_Label = Nothing + Me.txtVRGOut_FilialenNr.Multiline = True + Me.txtVRGOut_FilialenNr.Name = "txtVRGOut_FilialenNr" + Me.txtVRGOut_FilialenNr.Size = New System.Drawing.Size(56, 21) + Me.txtVRGOut_FilialenNr.TabIndex = 71 + ' + 'txtVRGOut_AbfertigungsNr + ' + Me.txtVRGOut_AbfertigungsNr._DateTimeOnly = False + Me.txtVRGOut_AbfertigungsNr._numbersOnly = False + Me.txtVRGOut_AbfertigungsNr._numbersOnlyKommastellen = "" + Me.txtVRGOut_AbfertigungsNr._numbersOnlyTrennzeichen = True + Me.txtVRGOut_AbfertigungsNr._Prozent = False + Me.txtVRGOut_AbfertigungsNr._ShortDateNew = False + Me.txtVRGOut_AbfertigungsNr._ShortDateOnly = False + Me.txtVRGOut_AbfertigungsNr._TimeOnly = False + Me.txtVRGOut_AbfertigungsNr._TimeOnly_Seconds = False + Me.txtVRGOut_AbfertigungsNr._value = "" + Me.txtVRGOut_AbfertigungsNr._Waehrung = False + Me.txtVRGOut_AbfertigungsNr._WaehrungZeichen = False + Me.txtVRGOut_AbfertigungsNr.ForeColor = System.Drawing.Color.Red + Me.txtVRGOut_AbfertigungsNr.Location = New System.Drawing.Point(453, 176) + Me.txtVRGOut_AbfertigungsNr.MaxLineLength = -1 + Me.txtVRGOut_AbfertigungsNr.MaxLines_Warning = "" + Me.txtVRGOut_AbfertigungsNr.MaxLines_Warning_Label = Nothing + Me.txtVRGOut_AbfertigungsNr.Multiline = True + Me.txtVRGOut_AbfertigungsNr.Name = "txtVRGOut_AbfertigungsNr" + Me.txtVRGOut_AbfertigungsNr.Size = New System.Drawing.Size(137, 21) + Me.txtVRGOut_AbfertigungsNr.TabIndex = 70 + ' + 'MyComboBox2 + ' + Me.MyComboBox2._allowedValuesFreiText = Nothing + Me.MyComboBox2._allowFreiText = False + Me.MyComboBox2._value = "" + Me.MyComboBox2.FormattingEnabled = True + Me.MyComboBox2.Location = New System.Drawing.Point(298, 252) + Me.MyComboBox2.Name = "MyComboBox2" + Me.MyComboBox2.Size = New System.Drawing.Size(62, 21) + Me.MyComboBox2.TabIndex = 64 + ' + 'txtVRGOutEZA_BezugsNr + ' + Me.txtVRGOutEZA_BezugsNr._DateTimeOnly = False + Me.txtVRGOutEZA_BezugsNr._numbersOnly = False + Me.txtVRGOutEZA_BezugsNr._numbersOnlyKommastellen = "" + Me.txtVRGOutEZA_BezugsNr._numbersOnlyTrennzeichen = True + Me.txtVRGOutEZA_BezugsNr._Prozent = False + Me.txtVRGOutEZA_BezugsNr._ShortDateNew = False + Me.txtVRGOutEZA_BezugsNr._ShortDateOnly = False + Me.txtVRGOutEZA_BezugsNr._TimeOnly = False + Me.txtVRGOutEZA_BezugsNr._TimeOnly_Seconds = False + Me.txtVRGOutEZA_BezugsNr._value = "" + Me.txtVRGOutEZA_BezugsNr._Waehrung = False + Me.txtVRGOutEZA_BezugsNr._WaehrungZeichen = False + Me.txtVRGOutEZA_BezugsNr.ForeColor = System.Drawing.Color.Red + Me.txtVRGOutEZA_BezugsNr.Location = New System.Drawing.Point(359, 252) + Me.txtVRGOutEZA_BezugsNr.MaxLineLength = -1 + Me.txtVRGOutEZA_BezugsNr.MaxLines_Warning = "" + Me.txtVRGOutEZA_BezugsNr.MaxLines_Warning_Label = Nothing + Me.txtVRGOutEZA_BezugsNr.Multiline = True + Me.txtVRGOutEZA_BezugsNr.Name = "txtVRGOutEZA_BezugsNr" + Me.txtVRGOutEZA_BezugsNr.Size = New System.Drawing.Size(153, 21) + Me.txtVRGOutEZA_BezugsNr.TabIndex = 65 + ' + 'MyComboBox1 + ' + Me.MyComboBox1._allowedValuesFreiText = Nothing + Me.MyComboBox1._allowFreiText = False + Me.MyComboBox1._value = "" + Me.MyComboBox1.FormattingEnabled = True + Me.MyComboBox1.Location = New System.Drawing.Point(298, 62) + Me.MyComboBox1.Name = "MyComboBox1" + Me.MyComboBox1.Size = New System.Drawing.Size(62, 21) + Me.MyComboBox1.TabIndex = 4 + ' + 'txtVRGOut_BezugsNr + ' + Me.txtVRGOut_BezugsNr._DateTimeOnly = False + Me.txtVRGOut_BezugsNr._numbersOnly = False + Me.txtVRGOut_BezugsNr._numbersOnlyKommastellen = "" + Me.txtVRGOut_BezugsNr._numbersOnlyTrennzeichen = True + Me.txtVRGOut_BezugsNr._Prozent = False + Me.txtVRGOut_BezugsNr._ShortDateNew = False + Me.txtVRGOut_BezugsNr._ShortDateOnly = False + Me.txtVRGOut_BezugsNr._TimeOnly = False + Me.txtVRGOut_BezugsNr._TimeOnly_Seconds = False + Me.txtVRGOut_BezugsNr._value = "" + Me.txtVRGOut_BezugsNr._Waehrung = False + Me.txtVRGOut_BezugsNr._WaehrungZeichen = False + Me.txtVRGOut_BezugsNr.ForeColor = System.Drawing.Color.Red + Me.txtVRGOut_BezugsNr.Location = New System.Drawing.Point(359, 62) + Me.txtVRGOut_BezugsNr.MaxLineLength = -1 + Me.txtVRGOut_BezugsNr.MaxLines_Warning = "" + Me.txtVRGOut_BezugsNr.MaxLines_Warning_Label = Nothing + Me.txtVRGOut_BezugsNr.Name = "txtVRGOut_BezugsNr" + Me.txtVRGOut_BezugsNr.Size = New System.Drawing.Size(153, 20) + Me.txtVRGOut_BezugsNr.TabIndex = 5 + ' + 'MyTextBox1 + ' + Me.MyTextBox1._DateTimeOnly = False + Me.MyTextBox1._numbersOnly = True + Me.MyTextBox1._numbersOnlyKommastellen = "" + Me.MyTextBox1._numbersOnlyTrennzeichen = True + Me.MyTextBox1._Prozent = False + Me.MyTextBox1._ShortDateNew = False + Me.MyTextBox1._ShortDateOnly = False + Me.MyTextBox1._TimeOnly = False + Me.MyTextBox1._TimeOnly_Seconds = False + Me.MyTextBox1._value = "100000" + Me.MyTextBox1._Waehrung = False + Me.MyTextBox1._WaehrungZeichen = True + Me.MyTextBox1.ForeColor = System.Drawing.Color.Black + Me.MyTextBox1.Location = New System.Drawing.Point(151, 132) + Me.MyTextBox1.MaxLineLength = -1 + Me.MyTextBox1.MaxLines_Warning = "" + Me.MyTextBox1.MaxLines_Warning_Label = Nothing + Me.MyTextBox1.Name = "MyTextBox1" + Me.MyTextBox1.Size = New System.Drawing.Size(53, 20) + Me.MyTextBox1.TabIndex = 11 + Me.MyTextBox1.Text = "100000" + ' 'txtGJ_UNISPED ' Me.txtGJ_UNISPED._DateTimeOnly = False @@ -2223,15 +2278,18 @@ Partial Class frmStartOptions Me.TabPage2.PerformLayout() CType(Me.PictureBox15, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBox14, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.dgvMRN, System.ComponentModel.ISupportInitialize).EndInit() Me.TabPage3.ResumeLayout(False) Me.TabPage3.PerformLayout() Me.TabPage4.ResumeLayout(False) Me.TabPage4.PerformLayout() + CType(Me.PictureBox19, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.PictureBox18, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBox12, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBox11, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBox10, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBox9, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.PictureBox20, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.dgvMRN, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) End Sub @@ -2390,4 +2448,8 @@ Partial Class frmStartOptions Friend WithEvents LinkLabel43 As LinkLabel Friend WithEvents LinkLabel44 As LinkLabel Friend WithEvents Label24 As Label + Friend WithEvents PictureBox19 As PictureBox + Friend WithEvents PictureBox18 As PictureBox + Friend WithEvents LinkLabel45 As LinkLabel + Friend WithEvents PictureBox20 As PictureBox End Class diff --git a/initATLASAufschubkonten/frmStartOptions.resx b/initATLASAufschubkonten/frmStartOptions.resx index 1edf06b..1c8ce50 100644 --- a/initATLASAufschubkonten/frmStartOptions.resx +++ b/initATLASAufschubkonten/frmStartOptions.resx @@ -142,79 +142,7 @@ CQkJEjM9AwMAOTMC2xlgxuQAAAAASUVORK5CYII= - - - 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= - - - - - 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= - - - - - 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= - - - + iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABEhJREFUSEtj oDZg4WThlrSSdLPOtc53zHaMl5SUZGBnZ4fKUhMwMjCK6IloGhUYZdn32a/wX+Z/0Ge2z0L9eH0rQVVB @@ -577,9 +505,150 @@ True - - True - + + + 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= + + + + + 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= + + + + + 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= + + + + + 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= + + + + + 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= + + + + + 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= + + AAABAAEAgIAAAAEAGAAoyAAAFgAAACgAAACAAAAAAAEAAAEAGAAAAAAAAMgAAMQOAADEDgAAAAAAAAAA diff --git a/initATLASAufschubkonten/frmStartOptions.vb b/initATLASAufschubkonten/frmStartOptions.vb index d48dfeb..8ed9c45 100644 --- a/initATLASAufschubkonten/frmStartOptions.vb +++ b/initATLASAufschubkonten/frmStartOptions.vb @@ -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 \ No newline at end of file From 72d42e813c4230bc6f1b47ce9ef423e98378747a Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Tue, 19 Sep 2023 15:42:51 +0200 Subject: [PATCH 4/6] commit --- initATLASAufschubkonten/frmStartOptions.vb | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/initATLASAufschubkonten/frmStartOptions.vb b/initATLASAufschubkonten/frmStartOptions.vb index db2abe3..4983392 100644 --- a/initATLASAufschubkonten/frmStartOptions.vb +++ b/initATLASAufschubkonten/frmStartOptions.vb @@ -3134,18 +3134,18 @@ Public Class frmStartOptions End If SDL.Sachbearbeiter = "ASFINAG" - Dim Validto = SQl.checkNullStr(oRDR.GetValue("DatumVertragsabschluss")) + Dim Validto = SQL.checkNullStr(oRDR.GetValue("DatumVertragsabschluss")) - SDL.KartenNr = SQl.checkNullStr(oRDR.GetValue("CardNumber")) + SDL.KartenNr = SQL.checkNullStr(oRDR.GetValue("CardNumber")) If Validto <> "" Then SDL.GültigBis = DateAdd("d", -1, DateAdd("m", 1, DateSerial("20" & Mid(Validto, 1, 2), Mid(Validto, 3, 2), 1))) End If - SDL.OBUID = SQl.checkNullStr(oRDR.GetValue("OBUID")) - SDL.Vertragsabschlussdatum = SQl.checkNullStr(oRDR.GetValue("DatumVertragsabschluss")) - SDL.Kategorie = SQl.checkNullStr(oRDR.GetValue("Kategorie")) - SDL.Schadstoffklasse = SQl.checkNullStr(oRDR.GetValue("Schadstoffklasse")) - SDL.Status = SQl.checkNullStr(oRDR.GetValue("Status")) + SDL.OBUID = SQL.checkNullStr(oRDR.GetValue("OBUID")) + SDL.Vertragsabschlussdatum = SQL.checkNullStr(oRDR.GetValue("DatumVertragsabschluss")) + SDL.Kategorie = SQL.checkNullStr(oRDR.GetValue("Kategorie")) + SDL.Schadstoffklasse = SQL.checkNullStr(oRDR.GetValue("Schadstoffklasse")) + SDL.Status = SQL.checkNullStr(oRDR.GetValue("Status")) SDL.SAVE() End If From f46065ef1e9d91f23e6c4246d9f7e13697795598 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Tue, 19 Sep 2023 18:03:01 +0200 Subject: [PATCH 5/6] Timas und Mitarbeiter (Sprache) --- UID/Mitarbeiter/frmMitarbDetails.Designer.vb | 29 ++++++++++++++++++ UID/Mitarbeiter/frmMitarbDetails.vb | 32 +++++++++++++++++++- UID/Mitarbeiter/frmMitarbTimas.vb | 12 ++++++-- UID/cSqlDb.vb | 8 +++-- 4 files changed, 75 insertions(+), 6 deletions(-) diff --git a/UID/Mitarbeiter/frmMitarbDetails.Designer.vb b/UID/Mitarbeiter/frmMitarbDetails.Designer.vb index b3d93af..9b1a7b9 100644 --- a/UID/Mitarbeiter/frmMitarbDetails.Designer.vb +++ b/UID/Mitarbeiter/frmMitarbDetails.Designer.vb @@ -203,6 +203,8 @@ Partial Class frmMitarbDetails Me.cboAdminBer = New System.Windows.Forms.ComboBox() Me.Label7 = New System.Windows.Forms.Label() Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components) + Me.TabPage7 = New System.Windows.Forms.TabPage() + Me.lbSprachen = New VERAG_PROG_ALLGEMEIN.MyListBox() CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() Me.Panel1.SuspendLayout() Me.TabControl2.SuspendLayout() @@ -225,6 +227,7 @@ Partial Class frmMitarbDetails CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TabPage7.SuspendLayout() Me.SuspendLayout() ' 'PictureBox1 @@ -350,6 +353,7 @@ Partial Class frmMitarbDetails Me.tbcntr.Controls.Add(Me.TabPage4) Me.tbcntr.Controls.Add(Me.TabPage5) Me.tbcntr.Controls.Add(Me.TabPage6) + Me.tbcntr.Controls.Add(Me.TabPage7) Me.tbcntr.Location = New System.Drawing.Point(2, 539) Me.tbcntr.Name = "tbcntr" Me.tbcntr.SelectedIndex = 0 @@ -2229,6 +2233,28 @@ Partial Class frmMitarbDetails Me.ContextMenuStrip1.Name = "ContextMenuStrip1" Me.ContextMenuStrip1.Size = New System.Drawing.Size(61, 4) ' + 'TabPage7 + ' + Me.TabPage7.Controls.Add(Me.lbSprachen) + Me.TabPage7.Location = New System.Drawing.Point(4, 22) + Me.TabPage7.Name = "TabPage7" + Me.TabPage7.Size = New System.Drawing.Size(442, 174) + Me.TabPage7.TabIndex = 4 + Me.TabPage7.Text = "Sprachen" + Me.TabPage7.UseVisualStyleBackColor = True + ' + 'lbSprachen + ' + Me.lbSprachen._value = "" + Me.lbSprachen.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lbSprachen.FormattingEnabled = True + Me.lbSprachen.Location = New System.Drawing.Point(5, 3) + Me.lbSprachen.MultiColumn = True + Me.lbSprachen.Name = "lbSprachen" + Me.lbSprachen.SelectionMode = System.Windows.Forms.SelectionMode.MultiSimple + Me.lbSprachen.Size = New System.Drawing.Size(152, 95) + Me.lbSprachen.TabIndex = 97 + ' 'frmMitarbDetails ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) @@ -2274,6 +2300,7 @@ Partial Class frmMitarbDetails CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).EndInit() + Me.TabPage7.ResumeLayout(False) Me.ResumeLayout(False) End Sub @@ -2456,4 +2483,6 @@ Partial Class frmMitarbDetails Friend WithEvents Label60 As Label Friend WithEvents Label61 As Label Friend WithEvents txtATGRNAccessCode_AT51FP7 As TextBox + Friend WithEvents TabPage7 As TabPage + Friend WithEvents lbSprachen As VERAG_PROG_ALLGEMEIN.MyListBox End Class diff --git a/UID/Mitarbeiter/frmMitarbDetails.vb b/UID/Mitarbeiter/frmMitarbDetails.vb index 4bd6232..2fda113 100644 --- a/UID/Mitarbeiter/frmMitarbDetails.vb +++ b/UID/Mitarbeiter/frmMitarbDetails.vb @@ -79,6 +79,9 @@ Public Class frmMitarbDetails MyListBox1.fillWithSQL("SELECT [Firma_ID],[Firma_Bez] FROM [VERAG].[dbo].[tblFirma]", False, "FMZOLL") MyListBox1.Items.Insert(0, New VERAG_PROG_ALLGEMEIN.MyListItem("Alle", "A")) + + lbSprachen.fillWithSQL("SELECT [wert], [bezeichnung] FROM [dbo].[tblSprachen]", False, "ADMIN") + cboDPFirma.Items.Clear() cboDPFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", "")) cboDPFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ALLE", "ALLE")) @@ -125,7 +128,6 @@ Public Class frmMitarbDetails cboProgSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ENGLISCH", "EN")) - cboFirma.Items.Clear() cboFirma.Items.Add("VERAG") cboFirma.Items.Add("ATILLA") @@ -332,6 +334,16 @@ Public Class frmMitarbDetails Next End If + If mitarbeiter.mit_Sprachkentnisse IsNot Nothing AndAlso mitarbeiter.mit_Sprachkentnisse <> "" Then + For Each f In mitarbeiter.mit_Sprachkentnisse.ToString.Split(",") + For i = 0 To lbSprachen.Items.Count - 1 + If DirectCast(lbSprachen.Items(i), VERAG_PROG_ALLGEMEIN.MyListItem).Value.ToString = f.ToString Then + lbSprachen.SetSelected(i, True) + End If + Next + Next + End If + If mitarbeiter.mit_einstiegsdatum = "" Then cbxEinsteigsDat.Checked = False @@ -601,6 +613,24 @@ Public Class frmMitarbDetails + mitarbeiter.mit_Sprachkentnisse = "" + 'For Each a In lbSprachen.SelectedItems + ' If DirectCast(a, VERAG_PROG_ALLGEMEIN.MyListItem).Value = "DE" Then + ' mitarbeiter.mit_Sprachkentnisse = "DE" + ' Exit For + ' End If + 'Next + If mitarbeiter.mit_Sprachkentnisse = "" Then + For Each i In lbSprachen.SelectedItems + mitarbeiter.mit_Sprachkentnisse &= DirectCast(i, VERAG_PROG_ALLGEMEIN.MyListItem).Value & "," + Next + End If + If mitarbeiter.mit_Sprachkentnisse <> "" And mitarbeiter.mit_Sprachkentnisse.ToString.EndsWith(",") Then + mitarbeiter.mit_Sprachkentnisse = mitarbeiter.mit_Sprachkentnisse.ToString.Substring(0, mitarbeiter.mit_Sprachkentnisse.ToString.Length - 1) + End If + + + mitarbeiter.mit_FMZollPersIDKasseIsnotSpedBuch = cbxSpedBuch.Checked mitarbeiter.mit_FMZollPersIDSpedBuch = Nothing diff --git a/UID/Mitarbeiter/frmMitarbTimas.vb b/UID/Mitarbeiter/frmMitarbTimas.vb index 0a5c87d..6c6fb2d 100644 --- a/UID/Mitarbeiter/frmMitarbTimas.vb +++ b/UID/Mitarbeiter/frmMitarbTimas.vb @@ -96,20 +96,27 @@ Public Class frmMitarbTimas cbxAccount.Checked = emp.loginActive - If emp.entryDate = "null" Then + If emp.entryDate Is Nothing Then cbxEinsteigsDat.Checked = False Else cbxEinsteigsDat.Checked = True : datEinstiegsdatum.Text = emp.entryDate End If - If emp.exitDate <> "null" Then + If emp.exitDate IsNot Nothing Then cbxGekuendigt.Checked = True datGekuendigtAm.Text = emp.exitDate Else cbxGekuendigt.Checked = False End If + If emp.birthdayDate Is Nothing Then + cbxGebDat.Checked = False + Else + cbxGebDat.Checked = True : txtGebDat.Text = emp.birthdayDate + End If + + End Sub @@ -147,6 +154,7 @@ Public Class frmMitarbTimas If cbxEinsteigsDat.Checked Then emp.entryDate = datEinstiegsdatum.Text Else emp.entryDate = "null" If cbxGekuendigt.Checked Then emp.exitDate = datGekuendigtAm.Text Else emp.exitDate = "null" + If cbxGebDat.Checked Then emp.birthdayDate = txtGebDat.Text Else emp.birthdayDate = "null" 'mitarbeiter.mit_TESTonly = cbxTestaccount.Checked If checkMandatoryFields() Then diff --git a/UID/cSqlDb.vb b/UID/cSqlDb.vb index 443f032..ac8e6dc 100644 --- a/UID/cSqlDb.vb +++ b/UID/cSqlDb.vb @@ -1550,8 +1550,8 @@ Public Class cMitarbeiter 'Änderung Dim sql = "INSERT INTO tblMitarbeiter " & - "(mit_username,mit_abweichenderAnzeigename, mit_pwd, mit_geschlecht, mit_affix, mit_vname, mit_nname, mit_gebdat, mit_strasse,mit_hausnr,mit_land,mit_plz,mit_ort,mit_niederlassung, mit_abteilung, mit_position, mit_durchwahl, mit_email, mit_mobiltel, mit_allowAnruf,mit_info, mit_einstiegsdatum, mit_gekuendigt, mit_kuendigungsdatum, mit_foto,mit_firma,mit_firmaFMZoll,mit_FMZollPersID,mit_FMZollPersIDKasseIsnotSpedBuch,mit_FMZollPersIDSpedBuch,mit_standartFiliale,mit_DpUserStandardDP,mit_EZOLL_SB,mit_ATLAS_SB,mit_FirmenDatenAnzeige,mit_DAKOSY_SB,mit_DAKOSY_SBFull,mit_DpUserStandardFirma,mit_DpUserStandardFirma2,mit_TESTonly,mit_PasswortChanged,mit_TELOTEC_SB,mit_AliasAD_Domain,mit_AliasAD_Username,mit_AliasAD_Domain2,mit_AliasAD_Username2,mit_teamId,mit_ChatBenutzer,mit_FirmaHaupt,mit_ChatEasteregg,mit_MAVerzeichnis_SettingsTstmp,mit_MAVerzeichnis_allowGebDat,mit_MAVerzeichnis_allowWohnadresse,mit_MAVerzeichnis_allowGebDatOhneJahr,mit_MAVerzeichnis_Spitzname,mit_foto_DocId,mit_MAVerzeichnis_Motto,mit_sprache,mit_fakturierungsgruppe, mit_CSuser, mit_CSpwd, mit_PersonalNr, mit_telefonnr,mit_ATGRNAccessCode_AT51FP7,mit_ATGRNAccessCode_AT52VA6 ) OUTPUT INSERTED.mit_id VALUES " & - "(@mit_username,@mit_abweichenderAnzeigename,@mit_pwd,@mit_geschlecht,@mit_affix,@mit_vname,@mit_nname,@mit_gebdat,@mit_strasse,@mit_hausnr,@mit_land,@mit_plz,@mit_ort,@mit_niederlassung,@mit_abteilung,@mit_position,@mit_durchwahl,@mit_email,@mit_mobiltel,@mit_allowAnruf,@mit_info,@mit_einstiegsdatum,@mit_gekuendigt,@mit_kuendigungsdatum,@mit_foto,@mit_firma,@mit_firmaFMZoll,@mit_FMZollPersID,@mit_FMZollPersIDKasseIsnotSpedBuch,@mit_FMZollPersIDSpedBuch,@mit_standartFiliale,@mit_DpUserStandardDP,@mit_EZOLL_SB,@mit_ATLAS_SB,@mit_FirmenDatenAnzeige,@mit_DAKOSY_SB,@mit_DAKOSY_SBFull,@mit_DpUserStandardFirma,@mit_DpUserStandardFirma2,@mit_TESTonly,@mit_PasswortChanged,@mit_TELOTEC_SB,@mit_AliasAD_Domain,@mit_AliasAD_Username,@mit_AliasAD_Domain2,@mit_AliasAD_Username2,@mit_teamId,@mit_ChatBenutzer,@mit_FirmaHaupt,@mit_ChatEasteregg,@mit_MAVerzeichnis_SettingsTstmp,@mit_MAVerzeichnis_allowGebDat,@mit_MAVerzeichnis_allowWohnadresse,@mit_MAVerzeichnis_allowGebDatOhneJahr,@mit_MAVerzeichnis_Spitzname,@mit_foto_DocId,@mit_MAVerzeichnis_Motto ,@mit_sprache,@mit_fakturierungsgruppe, @mit_CSuser, @mit_CSpwd, @mit_PersonalNr, @mit_telefonnr,@mit_ATGRNAccessCode_AT51FP7 ,@mit_ATGRNAccessCode_AT52VA6)" + "(mit_username,mit_abweichenderAnzeigename, mit_pwd, mit_geschlecht, mit_affix, mit_vname, mit_nname, mit_gebdat, mit_strasse,mit_hausnr,mit_land,mit_plz,mit_ort,mit_niederlassung, mit_abteilung, mit_position, mit_durchwahl, mit_email, mit_mobiltel, mit_allowAnruf,mit_info, mit_einstiegsdatum, mit_gekuendigt, mit_kuendigungsdatum, mit_foto,mit_firma,mit_firmaFMZoll,mit_FMZollPersID,mit_FMZollPersIDKasseIsnotSpedBuch,mit_FMZollPersIDSpedBuch,mit_standartFiliale,mit_DpUserStandardDP,mit_EZOLL_SB,mit_ATLAS_SB,mit_FirmenDatenAnzeige,mit_DAKOSY_SB,mit_DAKOSY_SBFull,mit_DpUserStandardFirma,mit_DpUserStandardFirma2,mit_TESTonly,mit_PasswortChanged,mit_TELOTEC_SB,mit_AliasAD_Domain,mit_AliasAD_Username,mit_AliasAD_Domain2,mit_AliasAD_Username2,mit_teamId,mit_ChatBenutzer,mit_FirmaHaupt,mit_ChatEasteregg,mit_MAVerzeichnis_SettingsTstmp,mit_MAVerzeichnis_allowGebDat,mit_MAVerzeichnis_allowWohnadresse,mit_MAVerzeichnis_allowGebDatOhneJahr,mit_MAVerzeichnis_Spitzname,mit_foto_DocId,mit_MAVerzeichnis_Motto,mit_sprache,mit_fakturierungsgruppe, mit_CSuser, mit_CSpwd, mit_PersonalNr, mit_telefonnr,mit_ATGRNAccessCode_AT51FP7,mit_ATGRNAccessCode_AT52VA6 , mit_Sprachkentnisse) OUTPUT INSERTED.mit_id VALUES " & + "(@mit_username,@mit_abweichenderAnzeigename,@mit_pwd,@mit_geschlecht,@mit_affix,@mit_vname,@mit_nname,@mit_gebdat,@mit_strasse,@mit_hausnr,@mit_land,@mit_plz,@mit_ort,@mit_niederlassung,@mit_abteilung,@mit_position,@mit_durchwahl,@mit_email,@mit_mobiltel,@mit_allowAnruf,@mit_info,@mit_einstiegsdatum,@mit_gekuendigt,@mit_kuendigungsdatum,@mit_foto,@mit_firma,@mit_firmaFMZoll,@mit_FMZollPersID,@mit_FMZollPersIDKasseIsnotSpedBuch,@mit_FMZollPersIDSpedBuch,@mit_standartFiliale,@mit_DpUserStandardDP,@mit_EZOLL_SB,@mit_ATLAS_SB,@mit_FirmenDatenAnzeige,@mit_DAKOSY_SB,@mit_DAKOSY_SBFull,@mit_DpUserStandardFirma,@mit_DpUserStandardFirma2,@mit_TESTonly,@mit_PasswortChanged,@mit_TELOTEC_SB,@mit_AliasAD_Domain,@mit_AliasAD_Username,@mit_AliasAD_Domain2,@mit_AliasAD_Username2,@mit_teamId,@mit_ChatBenutzer,@mit_FirmaHaupt,@mit_ChatEasteregg,@mit_MAVerzeichnis_SettingsTstmp,@mit_MAVerzeichnis_allowGebDat,@mit_MAVerzeichnis_allowWohnadresse,@mit_MAVerzeichnis_allowGebDatOhneJahr,@mit_MAVerzeichnis_Spitzname,@mit_foto_DocId,@mit_MAVerzeichnis_Motto ,@mit_sprache,@mit_fakturierungsgruppe, @mit_CSuser, @mit_CSpwd, @mit_PersonalNr, @mit_telefonnr,@mit_ATGRNAccessCode_AT51FP7 ,@mit_ATGRNAccessCode_AT52VA6, @mit_Sprachkentnisse)" @@ -1628,6 +1628,7 @@ Public Class cMitarbeiter cmd.Parameters.AddWithValue("@mit_telefonnr", If(m.mit_telefonnr, DBNull.Value)) cmd.Parameters.AddWithValue("@mit_ATGRNAccessCode_AT51FP7 ", If(m.mit_ATGRNAccessCode_AT51FP7, DBNull.Value)) cmd.Parameters.AddWithValue("@mit_ATGRNAccessCode_AT52VA6 ", If(m.mit_ATGRNAccessCode_AT52VA6, DBNull.Value)) + cmd.Parameters.AddWithValue("@mit_Sprachkentnisse ", If(m.mit_Sprachkentnisse, DBNull.Value)) Try mid = cmd.ExecuteScalar() @@ -1646,7 +1647,7 @@ Public Class cMitarbeiter Dim sql = "UPDATE tblMitarbeiter " & "SET mit_username=@mit_username, mit_abweichenderAnzeigename=@mit_abweichenderAnzeigename,mit_pwd=@mit_pwd, mit_geschlecht=@mit_geschlecht, mit_affix=@mit_affix, mit_vname=@mit_vname, mit_nname=@mit_nname, mit_gebdat=@mit_gebdat, mit_strasse=@mit_strasse, mit_hausnr=@mit_hausnr, mit_land=@mit_land, mit_plz=@mit_plz, mit_ort=@mit_ort, mit_niederlassung=@mit_niederlassung, mit_abteilung=@mit_abteilung, mit_position=@mit_position, mit_durchwahl=@mit_durchwahl, mit_email=@mit_email, mit_mobiltel=@mit_mobiltel, mit_allowAnruf=@mit_allowAnruf, mit_info=@mit_info, mit_einstiegsdatum=@mit_einstiegsdatum, mit_gekuendigt=@mit_gekuendigt, mit_kuendigungsdatum=@mit_kuendigungsdatum, mit_foto=@mit_foto, mit_firma=@mit_firma,mit_firmaFMZoll=@mit_firmaFMZoll,mit_FMZollPersID=@mit_FMZollPersID, mit_FMZollPersIDKasseIsnotSpedBuch=@mit_FMZollPersIDKasseIsnotSpedBuch,mit_FMZollPersIDSpedBuch=@mit_FMZollPersIDSpedBuch,mit_standartFiliale=@mit_standartFiliale,mit_standardPreisliste=@mit_standardPreisliste,mit_DpUserStandardDP=@mit_DpUserStandardDP, mit_EZOLL_SB=@mit_EZOLL_SB, mit_ATLAS_SB=@mit_ATLAS_SB,mit_FirmenDatenAnzeige=@mit_FirmenDatenAnzeige,mit_DAKOSY_SB=@mit_DAKOSY_SB, mit_DAKOSY_SBFull=@mit_DAKOSY_SBFull ,mit_DpUserStandardFirma=@mit_DpUserStandardFirma,mit_DpUserStandardFirma2=@mit_DpUserStandardFirma2, mit_TESTonly=@mit_TESTonly,mit_PasswortChanged=@mit_PasswortChanged,mit_TELOTEC_SB=@mit_TELOTEC_SB,mit_AliasAD_Domain=@mit_AliasAD_Domain,mit_AliasAD_Username=@mit_AliasAD_Username,mit_AliasAD_Domain2=@mit_AliasAD_Domain2,mit_AliasAD_Username2=@mit_AliasAD_Username2,mit_teamId=@mit_teamId,mit_ChatBenutzer=@mit_ChatBenutzer,mit_FirmaHaupt=@mit_FirmaHaupt " & - " ,mit_ChatEasteregg=@mit_ChatEasteregg,mit_MAVerzeichnis_SettingsTstmp=@mit_MAVerzeichnis_SettingsTstmp,mit_MAVerzeichnis_allowGebDat=@mit_MAVerzeichnis_allowGebDat,mit_MAVerzeichnis_allowWohnadresse=@mit_MAVerzeichnis_allowWohnadresse,mit_MAVerzeichnis_allowGebDatOhneJahr=@mit_MAVerzeichnis_allowGebDatOhneJahr,mit_MAVerzeichnis_Spitzname=@mit_MAVerzeichnis_Spitzname,mit_foto_DocId=@mit_foto_DocId,mit_MAVerzeichnis_Motto=@mit_MAVerzeichnis_Motto,mit_sprache=@mit_sprache,mit_fakturierungsgruppe=@mit_fakturierungsgruppe, mit_CSuser=@mit_CSuser, mit_CSpwd=@mit_CSpwd, mit_PersonalNr = @mit_PersonalNr, mit_telefonnr = @mit_telefonnr, mit_ATGRNAccessCode_AT51FP7 =@mit_ATGRNAccessCode_AT51FP7 ,mit_ATGRNAccessCode_AT52VA6=@mit_ATGRNAccessCode_AT52VA6 " & + " ,mit_ChatEasteregg=@mit_ChatEasteregg,mit_MAVerzeichnis_SettingsTstmp=@mit_MAVerzeichnis_SettingsTstmp,mit_MAVerzeichnis_allowGebDat=@mit_MAVerzeichnis_allowGebDat,mit_MAVerzeichnis_allowWohnadresse=@mit_MAVerzeichnis_allowWohnadresse,mit_MAVerzeichnis_allowGebDatOhneJahr=@mit_MAVerzeichnis_allowGebDatOhneJahr,mit_MAVerzeichnis_Spitzname=@mit_MAVerzeichnis_Spitzname,mit_foto_DocId=@mit_foto_DocId,mit_MAVerzeichnis_Motto=@mit_MAVerzeichnis_Motto,mit_sprache=@mit_sprache,mit_fakturierungsgruppe=@mit_fakturierungsgruppe, mit_CSuser=@mit_CSuser, mit_CSpwd=@mit_CSpwd, mit_PersonalNr = @mit_PersonalNr, mit_telefonnr = @mit_telefonnr, mit_ATGRNAccessCode_AT51FP7 =@mit_ATGRNAccessCode_AT51FP7 ,mit_ATGRNAccessCode_AT52VA6=@mit_ATGRNAccessCode_AT52VA6, mit_Sprachkentnisse=@mit_Sprachkentnisse" & " WHERE mit_id=@mit_id " @@ -1724,6 +1725,7 @@ Public Class cMitarbeiter cmd.Parameters.AddWithValue("@mit_telefonnr", If(m.mit_telefonnr, DBNull.Value)) cmd.Parameters.AddWithValue("@mit_ATGRNAccessCode_AT51FP7 ", If(m.mit_ATGRNAccessCode_AT51FP7, DBNull.Value)) cmd.Parameters.AddWithValue("@mit_ATGRNAccessCode_AT52VA6 ", If(m.mit_ATGRNAccessCode_AT52VA6, DBNull.Value)) + cmd.Parameters.AddWithValue("@mit_Sprachkentnisse", If(m.mit_Sprachkentnisse, DBNull.Value)) From 791b0ad4be9fb1b5d09a1de1bdda8766fcf00b7e Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Wed, 20 Sep 2023 10:18:37 +0200 Subject: [PATCH 6/6] Timas --- UID/Mitarbeiter/frmMitarbDetails.Designer.vb | 52 ++++++++++---------- UID/Mitarbeiter/usrCntlMitarbeiter.vb | 2 +- 2 files changed, 27 insertions(+), 27 deletions(-) diff --git a/UID/Mitarbeiter/frmMitarbDetails.Designer.vb b/UID/Mitarbeiter/frmMitarbDetails.Designer.vb index 9b1a7b9..4d0b5bc 100644 --- a/UID/Mitarbeiter/frmMitarbDetails.Designer.vb +++ b/UID/Mitarbeiter/frmMitarbDetails.Designer.vb @@ -83,6 +83,8 @@ Partial Class frmMitarbDetails Me.cbxTimasAngelegt = New System.Windows.Forms.CheckBox() Me.txtPersonalNr = New System.Windows.Forms.TextBox() Me.btnMAanlegen = New System.Windows.Forms.Button() + Me.TabPage7 = New System.Windows.Forms.TabPage() + Me.lbSprachen = New VERAG_PROG_ALLGEMEIN.MyListBox() Me.Label4 = New System.Windows.Forms.Label() Me.GroupBox2 = New System.Windows.Forms.GroupBox() Me.txtTelNr = New System.Windows.Forms.TextBox() @@ -203,8 +205,6 @@ Partial Class frmMitarbDetails Me.cboAdminBer = New System.Windows.Forms.ComboBox() Me.Label7 = New System.Windows.Forms.Label() Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components) - Me.TabPage7 = New System.Windows.Forms.TabPage() - Me.lbSprachen = New VERAG_PROG_ALLGEMEIN.MyListBox() CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() Me.Panel1.SuspendLayout() Me.TabControl2.SuspendLayout() @@ -216,6 +216,7 @@ Partial Class frmMitarbDetails Me.TabPage6.SuspendLayout() CType(Me.PictureBox9, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.dgvData, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TabPage7.SuspendLayout() Me.GroupBox2.SuspendLayout() Me.GroupBox1.SuspendLayout() CType(Me.picFoto, System.ComponentModel.ISupportInitialize).BeginInit() @@ -227,7 +228,6 @@ Partial Class frmMitarbDetails CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).BeginInit() - Me.TabPage7.SuspendLayout() Me.SuspendLayout() ' 'PictureBox1 @@ -898,6 +898,28 @@ Partial Class frmMitarbDetails Me.btnMAanlegen.Text = "anlegen" Me.btnMAanlegen.UseVisualStyleBackColor = False ' + 'TabPage7 + ' + Me.TabPage7.Controls.Add(Me.lbSprachen) + Me.TabPage7.Location = New System.Drawing.Point(4, 22) + Me.TabPage7.Name = "TabPage7" + Me.TabPage7.Size = New System.Drawing.Size(442, 174) + Me.TabPage7.TabIndex = 4 + Me.TabPage7.Text = "Sprachen" + Me.TabPage7.UseVisualStyleBackColor = True + ' + 'lbSprachen + ' + Me.lbSprachen._value = "" + Me.lbSprachen.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lbSprachen.FormattingEnabled = True + Me.lbSprachen.Location = New System.Drawing.Point(5, 3) + Me.lbSprachen.MultiColumn = True + Me.lbSprachen.Name = "lbSprachen" + Me.lbSprachen.SelectionMode = System.Windows.Forms.SelectionMode.MultiSimple + Me.lbSprachen.Size = New System.Drawing.Size(152, 134) + Me.lbSprachen.TabIndex = 97 + ' 'Label4 ' Me.Label4.AutoSize = True @@ -2233,28 +2255,6 @@ Partial Class frmMitarbDetails Me.ContextMenuStrip1.Name = "ContextMenuStrip1" Me.ContextMenuStrip1.Size = New System.Drawing.Size(61, 4) ' - 'TabPage7 - ' - Me.TabPage7.Controls.Add(Me.lbSprachen) - Me.TabPage7.Location = New System.Drawing.Point(4, 22) - Me.TabPage7.Name = "TabPage7" - Me.TabPage7.Size = New System.Drawing.Size(442, 174) - Me.TabPage7.TabIndex = 4 - Me.TabPage7.Text = "Sprachen" - Me.TabPage7.UseVisualStyleBackColor = True - ' - 'lbSprachen - ' - Me.lbSprachen._value = "" - Me.lbSprachen.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.lbSprachen.FormattingEnabled = True - Me.lbSprachen.Location = New System.Drawing.Point(5, 3) - Me.lbSprachen.MultiColumn = True - Me.lbSprachen.Name = "lbSprachen" - Me.lbSprachen.SelectionMode = System.Windows.Forms.SelectionMode.MultiSimple - Me.lbSprachen.Size = New System.Drawing.Size(152, 95) - Me.lbSprachen.TabIndex = 97 - ' 'frmMitarbDetails ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) @@ -2286,6 +2286,7 @@ Partial Class frmMitarbDetails Me.TabPage6.PerformLayout() CType(Me.PictureBox9, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.dgvData, System.ComponentModel.ISupportInitialize).EndInit() + Me.TabPage7.ResumeLayout(False) Me.GroupBox2.ResumeLayout(False) Me.GroupBox2.PerformLayout() Me.GroupBox1.ResumeLayout(False) @@ -2300,7 +2301,6 @@ Partial Class frmMitarbDetails CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).EndInit() - Me.TabPage7.ResumeLayout(False) Me.ResumeLayout(False) End Sub diff --git a/UID/Mitarbeiter/usrCntlMitarbeiter.vb b/UID/Mitarbeiter/usrCntlMitarbeiter.vb index c15b67a..d58fcd6 100644 --- a/UID/Mitarbeiter/usrCntlMitarbeiter.vb +++ b/UID/Mitarbeiter/usrCntlMitarbeiter.vb @@ -200,7 +200,7 @@ Public Class usrCntlMitarbeiter If dt.Columns.Count > 0 Then If txtSuche.Text <> "" Then - dt.DefaultView.RowFilter = "lastname like '%" & txtSuche.Text & "%' or firstname like '%" & txtSuche.Text & "%' or pnr1 like '%" & txtSuche.Text & "%' or info like '%" & txtSuche.Text & "%'" + dt.DefaultView.RowFilter = "Vorname like '%" & txtSuche.Text & "%' or Nachname like '%" & txtSuche.Text & "%' or 'Personal-Nr (Lohn)' like '%" & txtSuche.Text & "%' or Info like '%" & txtSuche.Text & "%'" Else dt.DefaultView.RowFilter = Nothing End If