From 15f61cbbea5bcb299f9d965ad8ddfaaa2bc00138 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Mon, 9 Oct 2023 13:51:02 +0200 Subject: [PATCH] Timas, Asfinag-Schnittstelle --- UID/Mitarbeiter/frmMitarbTimas.Designer.vb | 43 +- UID/Mitarbeiter/frmMitarbTimas.vb | 62 +- UID/My Project/AssemblyInfo.vb | 4 +- initATLASAufschubkonten/cAsfinag.vb | 781 ++++++++++++++++-- ...sfinag_NachrichtenVerarbeitung.Designer.vb | 39 +- .../frmAsfinag_NachrichtenVerarbeitung.vb | 467 +---------- .../frmStartOptions.Designer.vb | 597 ++++--------- initATLASAufschubkonten/frmStartOptions.resx | 27 +- initATLASAufschubkonten/frmStartOptions.vb | 412 +++++---- 9 files changed, 1299 insertions(+), 1133 deletions(-) diff --git a/UID/Mitarbeiter/frmMitarbTimas.Designer.vb b/UID/Mitarbeiter/frmMitarbTimas.Designer.vb index 3dc014d..7f6c51d 100644 --- a/UID/Mitarbeiter/frmMitarbTimas.Designer.vb +++ b/UID/Mitarbeiter/frmMitarbTimas.Designer.vb @@ -43,8 +43,6 @@ Partial Class frmMitarbTimas Me.txtInfo = New System.Windows.Forms.TextBox() Me.lblInfo = New System.Windows.Forms.Label() Me.lkl = New System.Windows.Forms.LinkLabel() - Me.Label8 = New System.Windows.Forms.Label() - Me.txtPwd = New System.Windows.Forms.TextBox() Me.Label6 = New System.Windows.Forms.Label() Me.txtTelNr = New System.Windows.Forms.TextBox() Me.cbxEinsteigsDat = New System.Windows.Forms.CheckBox() @@ -80,6 +78,7 @@ Partial Class frmMitarbTimas Me.GroupBox3 = New System.Windows.Forms.GroupBox() Me.dgvData = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) Me.TabControl1 = New System.Windows.Forms.TabControl() + Me.Button1 = New System.Windows.Forms.Button() CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() Me.Panel1.SuspendLayout() Me.GroupBox2.SuspendLayout() @@ -175,6 +174,7 @@ Partial Class frmMitarbTimas ' 'GroupBox2 ' + Me.GroupBox2.Controls.Add(Me.Button1) Me.GroupBox2.Controls.Add(Me.txtLohn) Me.GroupBox2.Controls.Add(Me.lblLohnNr) Me.GroupBox2.Controls.Add(Me.cbxAccount) @@ -185,8 +185,6 @@ Partial Class frmMitarbTimas 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) @@ -295,36 +293,18 @@ Partial Class frmMitarbTimas ' 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.Location = New System.Drawing.Point(266, 55) 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" ' - '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)" - ' - '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 - ' '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.Location = New System.Drawing.Point(202, 55) Me.Label6.Name = "Label6" Me.Label6.Size = New System.Drawing.Size(53, 13) Me.Label6.TabIndex = 116 @@ -674,6 +654,18 @@ Partial Class frmMitarbTimas Me.TabControl1.Size = New System.Drawing.Size(546, 242) Me.TabControl1.TabIndex = 123 ' + 'Button1 + ' + Me.Button1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.Button1.BackColor = System.Drawing.Color.White + Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button1.Location = New System.Drawing.Point(418, 15) + Me.Button1.Name = "Button1" + Me.Button1.Size = New System.Drawing.Size(128, 23) + Me.Button1.TabIndex = 88 + Me.Button1.Text = "aus AVISO laden" + Me.Button1.UseVisualStyleBackColor = False + ' 'frmMitarbTimas ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) @@ -740,8 +732,6 @@ Partial Class frmMitarbTimas 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 @@ -758,4 +748,5 @@ Partial Class frmMitarbTimas Private WithEvents GroupBox3 As GroupBox Friend WithEvents TabControl1 As TabControl Friend WithEvents dgvData As VERAG_PROG_ALLGEMEIN.MyDatagridview + Friend WithEvents Button1 As Button End Class diff --git a/UID/Mitarbeiter/frmMitarbTimas.vb b/UID/Mitarbeiter/frmMitarbTimas.vb index e924d60..41a4ba4 100644 --- a/UID/Mitarbeiter/frmMitarbTimas.vb +++ b/UID/Mitarbeiter/frmMitarbTimas.vb @@ -5,6 +5,7 @@ Imports System.IO Imports System.Net Imports System.Net.Http Imports System.Net.WebRequestMethods +Imports System.Security.Cryptography Imports System.Security.Policy Imports System.Text Imports System.Text.RegularExpressions @@ -20,6 +21,7 @@ Imports VERAG_PROG_ALLGEMEIN Public Class frmMitarbTimas + Private avisoEmp As VERAG_PROG_ALLGEMEIN.cMitarbeiter Public mid As Integer = -1 Public isUpdate As Boolean = False Dim emp As cTimasEmployee @@ -38,11 +40,8 @@ Public Class frmMitarbTimas 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 @@ -58,9 +57,10 @@ Public Class frmMitarbTimas End If End Sub - Private Sub initMitarbeiter(Optional _isUpdate As Boolean = True) + Private Sub initMitarbeiter(mid As Integer, Optional _isUpdate As Boolean = False) timas = New cTimasAPI emp = timas.getEmployee(mid) + avisoEmp = New VERAG_PROG_ALLGEMEIN.cMitarbeiter(emp.externid) timas.getAllGroups(dtTimas) @@ -71,7 +71,7 @@ Public Class frmMitarbTimas txtUsername.Text = emp.login txtVname.Text = emp.firstname txtNname.Text = emp.lastname - txtPwd.Text = emp.password + 'txtPwd.Text = emp.password If emp.gender = "male" Then rbtnGeschlechtM.Checked = True If emp.gender = "female" Then rbtnGeschlechtW.Checked = True @@ -137,7 +137,7 @@ Public Class frmMitarbTimas Private Sub getMitarbeiter() emp.login = txtUsername.Text - emp.password = txtPwd.Text + 'emp.password = txtPwd.Text If rbtnGeschlechtM.Checked Then emp.gender = "male" If rbtnGeschlechtW.Checked Then emp.gender = "female" emp.firstname = txtVname.Text @@ -161,7 +161,6 @@ Public Class frmMitarbTimas 'mitarbeiter.mit_TESTonly = cbxTestaccount.Checked If checkMandatoryFields() Then timas.updateEmployee(emp, dgvData) - End If @@ -169,10 +168,6 @@ Public Class frmMitarbTimas 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 @@ -208,13 +203,31 @@ Public Class frmMitarbTimas 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) + If vbYes = MsgBox("Möchten Sie das Kennwort neu setzen?", vbYesNoCancel) Then + If vbYes = MsgBox("Möchten Sie den Kennwort aus AVISO/SQL übernehmen?", vbYesNoCancel) Then + If avisoEmp IsNot Nothing AndAlso avisoEmp.mit_pwd <> "" Then + emp.password = avisoEmp.mit_pwd + If checkMandatoryFields() Then + timas.updateEmployee(emp, Nothing) + Exit Sub + End If + Else + MsgBox("Mitarbeiter-PW konnte konnten nicht aus AVISO geladen werden!") + End If End If + + + Dim input = InputBox("Neues Passwort:", "Passwort anlegen") + If input <> "" Then + getMitarbeiter() + emp.password = input + If checkMandatoryFields() Then + timas.updateEmployee(emp, Nothing) + End If + Else + MsgBox("Passwort wurde nicht neu vergeben!") + End If + End If End Sub @@ -312,7 +325,20 @@ Public Class frmMitarbTimas End If End Sub + Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click - + If vbYes = MsgBox("Möchten Sie Daten aus AVISO/SQL übernehmen?", vbYesNo) Then + If avisoEmp IsNot Nothing AndAlso avisoEmp.mit_username <> "" Then + txtUsername.Text = avisoEmp.mit_username + If txtInfo.Text = "" Then + txtInfo.Text = avisoEmp.mit_firma & " - " & avisoEmp.mit_abteilung + End If + cbxAccount.Checked = True + getMitarbeiter() + Else + MsgBox("Mitarbeiterdaten konnten nicht aus AVISO geladen werden!") + End If + End If + End Sub End Class diff --git a/UID/My Project/AssemblyInfo.vb b/UID/My Project/AssemblyInfo.vb index 80164b6..40122b9 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 faf57b2..21554f4 100644 --- a/initATLASAufschubkonten/cAsfinag.vb +++ b/initATLASAufschubkonten/cAsfinag.vb @@ -1,13 +1,18 @@ Imports System.Data.SqlClient +Imports System.Data.SqlTypes +Imports System.Diagnostics.Eventing Imports System.IO Imports System.Reflection Imports System.Security.Cryptography Imports com.itextpdf.text.pdf Imports DocumentFormat.OpenXml.VariantTypes Imports RoutineManager.cAsfinag +Imports VERAG_PROG_ALLGEMEIN Public Class cAsfinag + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + Public Class CLFHeader Property PKFileName As Object = Nothing @@ -154,6 +159,10 @@ Public Class cAsfinag Property status As Object = Nothing Property contractDate As Object = Nothing Property PKLine As Long + Property engineCharacteristics As Integer + Property CO2EmissionsClass As Integer + Property contractType As Integer + Public hasEntry = False @@ -180,7 +189,9 @@ Public Class cAsfinag 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)) - + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("engineCharacteristics", engineCharacteristics)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CO2EmissionsClass", CO2EmissionsClass)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("contractType", contractType)) Return list End Function @@ -272,6 +283,148 @@ Public Class cAsfinag + End Class + + Public Class CLFArchiv + + Property PKFileName As Object = Nothing + Property RecordType As String + Property fileVersion As Integer + Property fileNumber As Integer + Property cardNumber As String + 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 + Property PKLine As Long + Property engineCharacteristics As Integer + Property CO2EmissionsClass As Integer + Property contractType As Integer + + + Public hasEntry = False + + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + + Sub New(PKFileName, OBUID) + Me.PKFileName = PKFileName + Me.OBUID = OBUID + 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("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)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("engineCharacteristics", engineCharacteristics)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CO2EmissionsClass", CO2EmissionsClass)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("contractType", contractType)) + + 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 CLFArchiv WHERE PKFileName=@PKFileName AND OBUID = @OBUID) " & + " 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 CLFArchiv WHERE PKFileName=@PKFileName AND OBUID = @OBUID ", conn) + cmd.Parameters.AddWithValue("@PKFileName", PKFileName) + cmd.Parameters.AddWithValue("@OBUID", OBUID) + 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 [CLFArchiv] SET " & str & " WHERE PKFileName=@PKFileName AND OBUID = @OBUID ") + + 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 CLFArchiv (" & 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 CLFTrailer @@ -393,6 +546,7 @@ Public Class cAsfinag Public Class TTRHeader Property PKFileName As Object = Nothing + Property PKHistory As Integer Property recordType As Integer Property fileVersion As Integer Property fileNumber As Integer @@ -408,14 +562,16 @@ Public Class cAsfinag Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL - Sub New(PKFileName, filenummer) + Sub New(PKFileName, filenummer, PKHistory) Me.PKFileName = PKFileName Me.fileNumber = filenummer + Me.PKHistory = PKHistory 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("PKHistory", PKHistory)) 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)) @@ -433,22 +589,32 @@ 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 AND PKHistory = @PKHistory) " & " BEGIN " & getUpdateCmd() & " End " & " Else " & - " BEGIN " & getInsertCmd() & " End " & - " commit tran " + " BEGIN " & getInsertCmd() & " End " & " commit tran " Return SQL.doSQLVarList(sqlstr, "ASFINAG", , list) End Function + + Public Function UPDATE(OldKHistory As Integer) As Boolean + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + + Dim sqlstr = " BEGIN TRAN" & getUpdateCmd(OldKHistory) & " 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) + Using cmd As New SqlCommand("Select * FROM TTRHeader WHERE PKFileName=@PKFileName AND fileNumber = @fileNumber AND PKHistory = @PKHistory ", conn) cmd.Parameters.AddWithValue("@PKFileName", PKFileName) cmd.Parameters.AddWithValue("@fileNumber", fileNumber) + cmd.Parameters.AddWithValue("@PKHistory", PKHistory) Dim dr = cmd.ExecuteReader() If dr.Read Then For Each li In getParameterList() @@ -473,7 +639,7 @@ Public Class cAsfinag - Public Function getUpdateCmd() As String + Public Function getUpdateCmd(Optional OldKHistory As Integer = Nothing) As String Try Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() @@ -484,7 +650,12 @@ Public Class cAsfinag End If Next str = str.Substring(0, str.Length - 1) 'wg. ',' - Return (" UPDATE [TTRHeader] SET " & str & " WHERE PKFileName=@PKFileName AND filenumber = @filenumber") + If OldKHistory >= 0 Then + Return " UPDATE [TTRHeader] SET " & str & " WHERE PKFileName=@PKFileName AND filenumber = @filenumber AND PKHistory = " & OldKHistory + Else + Return " UPDATE [TTRHeader] SET " & str & " WHERE PKFileName=@PKFileName AND filenumber = @filenumber" + End If + Catch ex As Exception MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) @@ -519,6 +690,7 @@ Public Class cAsfinag Property PKFileName As Object = Nothing Property recordType As Integer + Property PKHistory As Integer Property fileVersion As Integer Property siteId As String Property fileNumber As Integer @@ -538,6 +710,7 @@ Public Class cAsfinag Property driverId As Integer Property receiptNumber As String Property OBUID As String + Property abrechnungsdatum As Date Public hasEntry = False @@ -547,14 +720,16 @@ Public Class cAsfinag End Sub - Sub New(PKFileName, PKLine) + Sub New(PKFileName, PKLine, PKHistory) Me.PKFileName = PKFileName Me.PKLine = PKLine + Me.PKHistory = PKHistory 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("PKHistory", PKHistory)) 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)) @@ -575,6 +750,7 @@ Public Class cAsfinag 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)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("abrechnungsdatum", abrechnungsdatum)) Return list End Function @@ -582,11 +758,10 @@ 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 PKLine = @PKLine) " & + Dim sqlstr = " BEGIN TRAN If EXISTS(Select * FROM TTRBody WHERE PKFileName=@PKFileName AND PKLine = @PKLine AND PKHistory = @PKHistory) " & " BEGIN " & getUpdateCmd() & " End " & " Else " & - " BEGIN " & getInsertCmd() & " End " & - " commit tran " + " BEGIN " & getInsertCmd() & " End " & " commit tran " Return SQL.doSQLVarList(sqlstr, "ASFINAG", , list) End Function @@ -595,9 +770,10 @@ Public Class cAsfinag Try hasEntry = False Using conn As SqlConnection = SQL.GetNewOpenConnectionAsfinag() - Using cmd As New SqlCommand("Select * FROM TTRBody WHERE PKFileName=@PKFileName AND PKLine = @PKLine ", conn) + Using cmd As New SqlCommand("Select * FROM TTRBody WHERE PKFileName=@PKFileName AND PKLine = @PKLine AND PKHistory = @PKHistory ", conn) cmd.Parameters.AddWithValue("@PKFileName", PKFileName) cmd.Parameters.AddWithValue("@PKLine", PKLine) + cmd.Parameters.AddWithValue("@PKHistory", PKHistory) Dim dr = cmd.ExecuteReader() If dr.Read Then For Each li In getParameterList() @@ -633,7 +809,7 @@ Public Class cAsfinag End If Next str = str.Substring(0, str.Length - 1) 'wg. ',' - Return (" UPDATE [TTRBody] SET " & str & " WHERE PKFileName=@PKFileName AND PKLine = @PKLine ") + Return (" UPDATE [TTRBody] SET " & str & " WHERE PKFileName=@PKFileName AND PKLine = @PKLine AND PKHistory = @PKHistory") Catch ex As Exception MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) @@ -671,6 +847,7 @@ Public Class cAsfinag Public Class TTRTrailer Property PKFileName As Object = Nothing + Property PKHistory As Integer Property recordType As Integer Property fileVersion As Integer Property recordCount As Integer @@ -681,13 +858,15 @@ Public Class cAsfinag Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL - Sub New(PKFileName) + Sub New(PKFileName, PKHistory) Me.PKFileName = PKFileName + Me.PKHistory = PKHistory 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("PKHistory", PKHistory)) 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("recordCount", recordCount)) @@ -700,7 +879,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 PKFileName=@PKFileName) " & + Dim sqlstr = " BEGIN TRAN If EXISTS(Select * FROM TTRTrailer WHERE PKFileName=@PKFileName AND PKHistory = @PKHistory) " & " BEGIN " & getUpdateCmd() & " End " & " Else " & " BEGIN " & getInsertCmd() & " End " & @@ -713,8 +892,9 @@ Public Class cAsfinag Try hasEntry = False Using conn As SqlConnection = SQL.GetNewOpenConnectionAsfinag() - Using cmd As New SqlCommand("Select * FROM TTRTrailer WHERE PKFileName=@PKFileName", conn) + Using cmd As New SqlCommand("Select * FROM TTRTrailer WHERE PKFileName=@PKFileName AND PKHistory = @PKHistory", conn) cmd.Parameters.AddWithValue("@PKFileName", PKFileName) + cmd.Parameters.AddWithValue("@PKHistory", PKHistory) Dim dr = cmd.ExecuteReader() If dr.Read Then For Each li In getParameterList() @@ -855,60 +1035,25 @@ Public Class cAsfinag 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 VERARBEITUNG_PFAD, ARCHIV_PFAD, BEREITSTELLUNG_PFAD, ERROR_PFAD, FTP_PFAD_TEST, FTP_PFAD Dim sw As StreamWriter Dim Dateiname = "" - Public Function initPFad() + Public Function initExportPfade() - ASFINAG_PFAD = cAsfinag.Paramter.GET_PARAM_ByName("BEREITSTELLUNGS_PFAD", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM) + ERROR_PFAD = cAsfinag.Paramter.GET_PARAM_ByName("ERROR_PFAD", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM) + BEREITSTELLUNG_PFAD = cAsfinag.Paramter.GET_PARAM_ByName("BEREITSTELLUNG_PFAD", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM) + ARCHIV_PFAD = cAsfinag.Paramter.GET_PARAM_ByName("ARCHIV_PFAD", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM) + VERARBEITUNG_PFAD = cAsfinag.Paramter.GET_PARAM_ByName("VERARBEITUNG_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(VERARBEITUNG_PFAD) Then IO.Directory.CreateDirectory(VERARBEITUNG_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" @@ -948,7 +1093,7 @@ Public Class cAsfinag preFilename = "TVGEP" End If - Dim strFile As String = ASFINAG_PFAD & "\" & preFilename & fileName & "." & currentFileNr + Dim strFile As String = BEREITSTELLUNG_PFAD & "\" & preFilename & fileName & "." & currentFileNr Try @@ -1071,7 +1216,7 @@ Public Class cAsfinag preFilename = "TVGEP" End If - Dim strFile As String = ASFINAG_PFAD & "\" & preFilename & fileName & "." & currentFileNr + Dim strFile As String = BEREITSTELLUNG_PFAD & "\" & preFilename & fileName & "." & currentFileNr Try @@ -1197,13 +1342,13 @@ Public Class cAsfinag If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then - SERVER_Path = Me.FTP_PFAD_TEST + SERVER_Path = FTP_PFAD_TEST Else - SERVER_Path = Me.FTP_PFAD + SERVER_Path = FTP_PFAD End If - For Each f In IO.Directory.GetFiles(ASFINAG_PFAD) + For Each f In IO.Directory.GetFiles(BEREITSTELLUNG_PFAD) Dim fi As New IO.FileInfo(f) If Not fi.Name.StartsWith(".") AndAlso fi.Name.Contains(filename) Then @@ -1211,9 +1356,9 @@ Public Class cAsfinag '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) + IO.File.Copy(f, zielPfad & "\" & fi.Name, True) + If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM And IO.File.Exists(zielPfad & "\" & fi.Name) Then + IO.File.Move(BEREITSTELLUNG_PFAD & "\" & fi.Name, ARCHIV_PFAD & "\" & fi.Name) End If cnt += 1 End If @@ -1232,6 +1377,506 @@ Public Class cAsfinag End Function + + End Class + Public VERARBEITUNG_PFAD + Public ARCHIV_PFAD + Public BEREITSTELLUNG_PFAD + Public ERROR_PFAD + Public FTP_PFAD_TEST + Public FTP_PFAD + Dim Dateiname = "" + + Public Function initImportPfade() + + ERROR_PFAD = cAsfinag.Paramter.GET_PARAM_ByName("ERROR_PFAD", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM) + BEREITSTELLUNG_PFAD = cAsfinag.Paramter.GET_PARAM_ByName("BEREITSTELLUNG_PFAD", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM) + ARCHIV_PFAD = cAsfinag.Paramter.GET_PARAM_ByName("ARCHIV_PFAD", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM) + VERARBEITUNG_PFAD = cAsfinag.Paramter.GET_PARAM_ByName("VERARBEITUNG_PFAD", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM) + FTP_PFAD_TEST = cAsfinag.Paramter.GET_PARAM_ByName("SERVER_Path_In_Test", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM) + FTP_PFAD = cAsfinag.Paramter.GET_PARAM_ByName("SERVER_Path_In", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM) + + If Not IO.Directory.Exists(VERARBEITUNG_PFAD) Then IO.Directory.CreateDirectory(VERARBEITUNG_PFAD) + If Not IO.Directory.Exists(FTP_PFAD_TEST) Then IO.Directory.CreateDirectory(FTP_PFAD_TEST) + + End Function + + Function getNachrichtenDatenFromFTP(ByRef filenameList As List(Of String), ByVal fileType As String) As Integer + Dim cnt = 0 + Try + Dim SERVERPath = "" + + If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then + + SERVERPath = Me.FTP_PFAD_TEST + Else + + SERVERPath = Me.FTP_PFAD + End If + + + For Each f In IO.Directory.GetFiles(SERVERPath) + Dim fi As New IO.FileInfo(f) + If fi.Name.ToLower.Contains(fileType) Then + If Not fi.Name.StartsWith(".") Then + Dim zielPfad = VERARBEITUNG_PFAD & "\" & fi.Name + While IO.File.Exists(zielPfad) + zielPfad = VERARBEITUNG_PFAD & "\" & "DOPPELT" & "\" & fi.Name.Replace(fi.Extension, "") & fi.Extension & Now.ToString("_yyyyMMdd_HHmmss") + End While + IO.File.Copy(f, zielPfad) + If 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 + filenameList.Add(filename) + cnt += 1 + End If + + End If + 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 + + 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 lngRecordCount As Long + + 'Datei auf Fehler prüfen! + Do While (objFileRead.Peek() > -1) + Dim strZeile = objFileRead.ReadLine() + lngRecordCount = lngRecordCount + 1 + + Select Case Mid(strZeile, 1, 2) + Case "10" + booHeaderVorhanden = True + 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 + + 'CardNumber prüfen. + If (Right(Trim(Mid(strZeile, 9, 22)), 1)) <> cAsfinag.fktMod10Prüfziffer(Left(Trim(Mid(strZeile, 9, 22)), Len(Trim(Mid(strZeile, 9, 22))) - 1)) Then + booPrüfziffernfehler = True + End If + + ' 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 + + 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 clfTrailer As New cAsfinag.CLFTrailer(fi.Name) + + ' Prüfsumme Anzahl der Sätze im File ohne Header und Trailer. + If Trim(Mid(strZeile, 9, 7)) <> (lngRecordCount) Then + MsgBox("Fehler: " & vbNewLine & "Prüfsumme in der Datei stimmt nicht mit der Zeilenanzahl der Datei überein! " & vbNewLine & "Record Count: " & Trim(Mid(strZeile, 9, 7)) & 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() + + End If + Case Else + + End Select + + Loop + + + Dim lngPKLine As Long = 0 + lngRecordCount = 0 + + 'gleicher PKFileName wird nun aus CLFHeader gelöscht. CASCADE löscht dann zugehörige CLFBody und CLFTrailer (muss noch eingebaut werden). + SQL.doSQL("delete FROM CLFHeader WHERE (PKHistory = 0) AND (PKFileName = N'" & fi.Name.ToString & "')", "ASFINAG") + + SQL.doSQL("UPDATE CLF SET PKFileName = '" & fi.Name.ToString & "'", "ASFINAG") + objFileRead.DiscardBufferedData() + objFileRead.BaseStream.Seek(0, System.IO.SeekOrigin.Begin) + + 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 = DateSerial(Mid(strZeile, 22, 4), Mid(strZeile, 26, 2), Mid(strZeile, 28, 2)) & " " & TimeSerial(Mid(strZeile, 30, 2), Mid(strZeile, 32, 2), 0) + '.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" + + 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)) + .engineCharacteristics = Trim(Mid(strZeile, 79, 3)) + .CO2EmissionsClass = Trim(Mid(strZeile, 82, 1)) + .contractType = Trim(Mid(strZeile, 83, 1)) + .SAVE() + End With + + + + Dim strSQLASFINAG = "SELECT * FROM CLFArchiv WHERE OBUID = N'" & Trim(Mid(strZeile, 35, 18)) & "'" + + Dim dtAsfinag As DataTable = SQL.loadDgvBySql_Param(strSQLASFINAG, "ASFINAG") + + Dim clfArchiv As New cAsfinag.CLFArchiv(fi.Name, Trim(Mid(strZeile, 35, 18))) + + If dtAsfinag.Rows.Count = 0 Then + With clfArchiv + .PKFileName = fi.Name + .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)) + .engineCharacteristics = Trim(Mid(strZeile, 79, 3)) + .CO2EmissionsClass = Trim(Mid(strZeile, 82, 1)) + .contractType = Trim(Mid(strZeile, 83, 1)) + .SAVE() + End With + End If + + For Each r As DataRow In dtAsfinag.Rows + + clfArchiv = New cAsfinag.CLFArchiv(r.Item("PKFileName"), r.Item("OBUID")) + + With clfArchiv + .PKFileName = fi.Name + .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)) + .engineCharacteristics = Trim(Mid(strZeile, 79, 3)) + .CO2EmissionsClass = Trim(Mid(strZeile, 82, 1)) + .contractType = Trim(Mid(strZeile, 83, 1)) + .SAVE() + End With + Next + + + Case "90" + + 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 + + + + Case Else + ' Andere RecordNumber überlesen. + End Select + + Loop + + objFileRead.Close() + + Return True + + 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 + + 'Datei auf Fehler prüfen + Do While (objFileRead.Peek() > -1) + Dim strZeile = objFileRead.ReadLine() + lngRecordCount = lngRecordCount + 1 + + Select Case Mid(strZeile, 1, 2) + Case "10" + booHeaderVorhanden = True + 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 + + + ' Bei den Checksummen wird unabhängig vom TransactionType immer der positive Betrag aufsummiert. + dblCheckSumQuantity = dblCheckSumQuantity + Trim(Mid(strZeile, 94, 6)) / 100 + curCheckSumAmount = curCheckSumAmount + Trim(Mid(strZeile, 100, 10)) / 100 + If (Right(Trim(Mid(strZeile, 43, 22)), 1)) <> (fktMod10Prüfziffer(Left(Trim(Mid(strZeile, 43, 22)), Len(Trim(Mid(strZeile, 43, 22))) - 1))) Then + booPrüfziffernfehler = True + End If + + ' 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 strPrompt + Dim recordCount = Trim(Mid(strZeile, 5, 9)) + If recordCount <> lngRecordCount Then + strPrompt = strPrompt & "Record Count: " & recordCount & vbCrLf & + "Prüfsumme: " & lngRecordCount & vbCrLf + End If + ' Prüfsumme Menge. + Dim checksumProductQuantity = Trim(Mid(strZeile, 14, 15)) / 100 + If checksumProductQuantity <> dblCheckSumQuantity Then + strPrompt = strPrompt & "Check Sum Quantity: " & checksumProductQuantity & vbCrLf & + "Prüfsumme: " & dblCheckSumQuantity & vbCrLf + End If + ' Prüfsumme Betrag. + Dim checksumAmounntInclVAT = Trim(Mid(strZeile, 29, 15)) / 100 + If checksumAmounntInclVAT <> Math.Round(curCheckSumAmount, 2) Then + strPrompt = strPrompt & "Check Sum Amount: " & checksumAmounntInclVAT & vbCrLf & + "Prüfsumme: " & curCheckSumAmount & vbCrLf + End If + + If strPrompt <> "" Then + MsgBox(strPrompt) + objFileRead.Close() + Return False + End If + + ' Prüfsumme Anzahl der Sätze im File ohne Header und Trailer. + If recordCount <> (lngRecordCount) Then + MsgBox("Record Count: " & 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 + End If + Case Else + ' Andere RecordNumber überlesen. + End Select + + Loop + + + objFileRead.DiscardBufferedData() + objFileRead.BaseStream.Seek(0, System.IO.SeekOrigin.Begin) + + lngPKLine = 0 + lngRecordCount = 0 + + ' ----------------------------------------------------------------------------------- + ' Wenn der FileName schon in der Tabelle TTRHeader existiert, die Einträge in der History verschieben. + ' Die Tabellen TTRBody und TTRTrailer werden über CASCADE aktualisiert. + + Dim SQLTTRHeader = "SELECT PKHistory, PKFileName, fileNumber FROM TTRHeader WHERE (PKHistory = 0) And (PKFileName = N'" & fi.Name.ToString & "') And (fileNumber = " & fi.Extension.Remove(0, 1) & ") " + Dim dtTTRHeader As DataTable = SQL.loadDgvBySql_Param(SQLTTRHeader, "ASFINAG") + + If dtTTRHeader.Rows.Count > 0 Then + Dim hisorty = SQL.getValueTxtBySql("SELECT PKHistory FROM TTRHeader WHERE (PKFileName = N'" & fi.Name.ToString & "') ORDER BY PKHistory DESC", "ASFINAG") + hisorty = hisorty + 1 + For Each row As DataRow In dtTTRHeader.Rows + Dim ttrHeaderArchiv As New cAsfinag.TTRHeader(row.Item("PKFileName"), row.Item("fileNumber"), "0") + ttrHeaderArchiv.PKHistory = hisorty + ttrHeaderArchiv.UPDATE("0") + Next + + End If + + ' ----------------------------------------------------------------------------------- + + Do While (objFileRead.Peek() > -1) + Dim strZeile = objFileRead.ReadLine() + lngRecordCount = lngRecordCount + 1 + + Select Case Mid(strZeile, 1, 2) + Case "10" + Dim ext = CInt(fi.Extension.Remove(0, 1)) + Dim ttrHeader As New cAsfinag.TTRHeader(fi.Name.ToString, ext, "0") + 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" + + Dim ttrBody As New cAsfinag.TTRBody(fi.Name, lngPKLine, "0") + 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)) + .abrechnungsdatum = SqlDateTime.Null + + 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 + .SAVE() + + End With + + + Case "90" + + Dim ttrTrailer As New cAsfinag.TTRTrailer(fi.Name, "0") + 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() + + End With + + Case Else + ' Andere RecordNumber überlesen. + End Select + + Loop + + objFileRead.Close() + + Return True + + End Function + End Class diff --git a/initATLASAufschubkonten/frmAsfinag_NachrichtenVerarbeitung.Designer.vb b/initATLASAufschubkonten/frmAsfinag_NachrichtenVerarbeitung.Designer.vb index 7154f4d..17148e2 100644 --- a/initATLASAufschubkonten/frmAsfinag_NachrichtenVerarbeitung.Designer.vb +++ b/initATLASAufschubkonten/frmAsfinag_NachrichtenVerarbeitung.Designer.vb @@ -28,6 +28,8 @@ Partial Class frmAsfinag_NachrichtenVerabeitung 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() @@ -38,8 +40,7 @@ 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.lblTestsystem = New System.Windows.Forms.Label() Me.pnl.SuspendLayout() CType(Me.dgvEinarbeitung, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() @@ -64,6 +65,7 @@ Partial Class frmAsfinag_NachrichtenVerabeitung ' Me.pnl.BackColor = System.Drawing.Color.White Me.pnl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnl.Controls.Add(Me.lblTestsystem) Me.pnl.Controls.Add(Me.lblDatenCnt) Me.pnl.Controls.Add(Me.dgvEinarbeitung) Me.pnl.Controls.Add(Me.Label9) @@ -111,6 +113,18 @@ Partial Class frmAsfinag_NachrichtenVerabeitung Me.dgvEinarbeitung.Size = New System.Drawing.Size(291, 145) Me.dgvEinarbeitung.TabIndex = 18 ' + '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" + ' 'Label9 ' Me.Label9.AutoSize = True @@ -212,17 +226,17 @@ Partial Class frmAsfinag_NachrichtenVerabeitung Me.Label1.TabIndex = 8 Me.Label1.Text = "Einarbeitung:" ' - 'clmnArt + 'lblTestsystem ' - 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" + Me.lblTestsystem.AutoSize = True + Me.lblTestsystem.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblTestsystem.ForeColor = System.Drawing.Color.Red + Me.lblTestsystem.Location = New System.Drawing.Point(274, 8) + Me.lblTestsystem.Name = "lblTestsystem" + Me.lblTestsystem.Size = New System.Drawing.Size(89, 13) + Me.lblTestsystem.TabIndex = 20 + Me.lblTestsystem.Text = "TESTSYSTEM" + Me.lblTestsystem.Visible = False ' 'frmAsfinag_NachrichtenVerabeitung ' @@ -257,4 +271,5 @@ Partial Class frmAsfinag_NachrichtenVerabeitung Friend WithEvents lblDatenCnt As Label Friend WithEvents clmnArt As DataGridViewTextBoxColumn Friend WithEvents Column1 As DataGridViewTextBoxColumn + Friend WithEvents lblTestsystem As Label End Class diff --git a/initATLASAufschubkonten/frmAsfinag_NachrichtenVerarbeitung.vb b/initATLASAufschubkonten/frmAsfinag_NachrichtenVerarbeitung.vb index 47897b9..4bab09b 100644 --- a/initATLASAufschubkonten/frmAsfinag_NachrichtenVerarbeitung.vb +++ b/initATLASAufschubkonten/frmAsfinag_NachrichtenVerarbeitung.vb @@ -15,15 +15,9 @@ Public Class frmAsfinag_NachrichtenVerabeitung 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 FileType As String + Dim asfinag As New cAsfinag() Dim Dateiname = "" @@ -45,39 +39,27 @@ Public Class frmAsfinag_NachrichtenVerabeitung End Sub - Sub initPfade() - 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) - 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() + lblTestsystem.Visible = VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM + asfinag.initImportPfade() If FileType <> "" Then Label2.Text &= " " & FileType.ToUpper - For Each d In System.IO.Directory.GetFiles(VERARBEITUNGS_PFAD) + For Each d In System.IO.Directory.GetFiles(asfinag.VERARBEITUNG_PFAD) Dim filename = frmStartOptions.cut_file(d) If filename.ToLower.Contains(FileType) Then + Dim targetsystem As String = "nicht definiert" + If filename.Substring(0, 1) = "T" Then + targetsystem = "Test" + ElseIf filename.Substring(0, 1) = "L" Then + targetsystem = "Produktiv" + End If ListBox3.Items.Add(filename) End If - Me.Refresh() + Me.Refresh() Next End If @@ -86,8 +68,18 @@ Public Class frmAsfinag_NachrichtenVerabeitung Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click Me.Enabled = False Try + Dim stringLIst As New List(Of String) Label9.Visible = True - Dim cnt = getNachrichtenDatenFromFTP() + Dim cnt = asfinag.getNachrichtenDatenFromFTP(stringLIst, FileType) + For Each s In stringLIst + Dim targetsystem As String = "nicht definiert" + If s.Substring(0, 1) = "T" Then + targetsystem = "Test" + ElseIf s.Substring(0, 1) = "L" Then + targetsystem = "Produktiv" + End If + ListBox3.Items.Add(s) + Next Label9.Text = cnt & " Datensätze empfangen." Catch ex As Exception @@ -117,56 +109,6 @@ Public Class frmAsfinag_NachrichtenVerabeitung End Sub - Function getNachrichtenDatenFromFTP() As Integer - Dim cnt = 0 - Try - Dim SERVERPath = "" - - If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then - - SERVERPath = Me.SERVER_Path '"\\ftps.verag.ag\FTP\MAVI\IN\" - Else - - 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 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 - 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 - - - Sub DatenEinlesen() VERAG_PROG_ALLGEMEIN.cAllgemein.ERR_OP_GLOBAL = VERAG_PROG_ALLGEMEIN.ERROR_OP.SHOW @@ -178,7 +120,7 @@ Public Class frmAsfinag_NachrichtenVerabeitung End If - For Each d In System.IO.Directory.GetFiles(VERARBEITUNGS_PFAD) + For Each d In System.IO.Directory.GetFiles(asfinag.VERARBEITUNG_PFAD) Try Dim correctFile As Boolean = False @@ -214,7 +156,7 @@ Public Class frmAsfinag_NachrichtenVerabeitung ElseIf FileType = "clf" Then - If readAndSaveCLF(objFileRead, fi) Then + If asfinag.readAndSaveCLF(objFileRead, fi) Then addDGVEinarbeitung(fi.Name, "OK") found = True Else @@ -224,7 +166,7 @@ Public Class frmAsfinag_NachrichtenVerabeitung ElseIf FileType = "ttr" Then - If readAndSaveTTR(objFileRead, fi) Then + If asfinag.readAndSaveTTR(objFileRead, fi) Then addDGVEinarbeitung(fi.Name, "OK") found = True Else @@ -236,12 +178,14 @@ Public Class frmAsfinag_NachrichtenVerabeitung End If If found Then - 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) + If Not IO.Directory.Exists(asfinag.ARCHIV_PFAD & "\" & Now.Year & "\" & Now.ToString("MMdd") & "\") Then IO.Directory.CreateDirectory(asfinag.ARCHIV_PFAD & "\" & Now.Year & "\" & Now.ToString("MMdd") & "\") + frmStartOptions.moveFile(d, asfinag.ARCHIV_PFAD & "\" & Now.Year & "\" & Now.ToString("MMdd") & "\", asfinag.VERARBEITUNG_PFAD) cntDatenEingelesen += 1 Else If Not found Then - frmStartOptions.moveFile(d, ERROR_PFAD, VERARBEITUNGS_PFAD) ' nciht gefunden, oder durch ERROR nicht eingearbt,. + If Not IO.Directory.Exists(asfinag.ERROR_PFAD & "\" & Now.Year & "\" & Now.ToString("MMdd") & "\") Then IO.Directory.CreateDirectory(asfinag.ERROR_PFAD & "\" & Now.Year & "\" & Now.ToString("MMdd") & "\") + frmStartOptions.moveFile(d, asfinag.ERROR_PFAD & "\" & Now.Year & "\" & Now.ToString("MMdd") & "\", asfinag.VERARBEITUNG_PFAD) + ' nciht gefunden, oder durch ERROR nicht eingearbt,. dsNichtErkannt += 1 End If End If @@ -276,357 +220,6 @@ 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 - - - '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 - 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 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 - - - ' 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 - - objFileRead.Close() - - Return True - - 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() diff --git a/initATLASAufschubkonten/frmStartOptions.Designer.vb b/initATLASAufschubkonten/frmStartOptions.Designer.vb index 39dc7b0..b9dbf72 100644 --- a/initATLASAufschubkonten/frmStartOptions.Designer.vb +++ b/initATLASAufschubkonten/frmStartOptions.Designer.vb @@ -38,16 +38,20 @@ 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.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() @@ -56,15 +60,19 @@ 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() Me.tbcntr = New System.Windows.Forms.TabControl() Me.TabPage1 = New System.Windows.Forms.TabPage() + Me.Button21 = New System.Windows.Forms.Button() Me.Button20 = New System.Windows.Forms.Button() Me.Button19 = New System.Windows.Forms.Button() - Me.Label23 = New System.Windows.Forms.Label() + Me.Label99 = New System.Windows.Forms.Label() Me.Button18 = New System.Windows.Forms.Button() + Me.PictureBox20 = New System.Windows.Forms.PictureBox() + Me.LinkLabel45 = New System.Windows.Forms.LinkLabel() Me.Button17 = New System.Windows.Forms.Button() Me.LinkLabel38 = New System.Windows.Forms.LinkLabel() Me.PictureBox17 = New System.Windows.Forms.PictureBox() @@ -125,6 +133,15 @@ 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.PictureBox15 = New System.Windows.Forms.PictureBox() Me.PictureBox14 = New System.Windows.Forms.PictureBox() Me.TabPage3 = New System.Windows.Forms.TabPage() @@ -140,11 +157,12 @@ 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.LinkLabel46 = New System.Windows.Forms.LinkLabel() 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.Label99 = New System.Windows.Forms.Label() + 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() @@ -155,6 +173,7 @@ 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() @@ -170,29 +189,14 @@ 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.Button21 = New System.Windows.Forms.Button() + Me.LinkLabel47 = New System.Windows.Forms.LinkLabel() + Me.PictureBox21 = New System.Windows.Forms.PictureBox() Me.pnl.SuspendLayout() CType(Me.piceZollAnh, System.ComponentModel.ISupportInitialize).BeginInit() Me.tbcntr.SuspendLayout() Me.TabPage1.SuspendLayout() + CType(Me.PictureBox20, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox17, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox16, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox13, System.ComponentModel.ISupportInitialize).BeginInit() @@ -209,7 +213,6 @@ Partial Class frmStartOptions CType(Me.dgvMRN, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox15, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox14, System.ComponentModel.ISupportInitialize).BeginInit() - Me.TabPage3.SuspendLayout() Me.TabPage4.SuspendLayout() CType(Me.PictureBox19, System.ComponentModel.ISupportInitialize).BeginInit() @@ -218,8 +221,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() - CType(Me.PictureBox20, System.ComponentModel.ISupportInitialize).BeginInit() - + CType(Me.PictureBox21, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' 'pnl @@ -440,6 +442,29 @@ 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 @@ -486,6 +511,30 @@ 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 @@ -534,17 +583,6 @@ Partial Class frmStartOptions Me.txtEZOLLAnhDat.Size = New System.Drawing.Size(87, 20) Me.txtEZOLLAnhDat.TabIndex = 55 ' - 'piceZollAnh - ' - Me.piceZollAnh.BackgroundImage = CType(resources.GetObject("piceZollAnh.BackgroundImage"), System.Drawing.Image) - Me.piceZollAnh.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.piceZollAnh.Location = New System.Drawing.Point(500, 190) - Me.piceZollAnh.Name = "piceZollAnh" - Me.piceZollAnh.Size = New System.Drawing.Size(18, 18) - Me.piceZollAnh.TabIndex = 56 - Me.piceZollAnh.TabStop = False - Me.piceZollAnh.Visible = False - ' 'lblEZOLLDat ' Me.lblEZOLLDat.AutoSize = True @@ -593,6 +631,17 @@ 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 @@ -685,6 +734,17 @@ 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 @@ -786,6 +846,18 @@ Partial Class frmStartOptions Me.TabPage1.Text = "Zollverfahren" Me.TabPage1.UseVisualStyleBackColor = True ' + 'Button21 + ' + Me.Button21.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button21.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.Button21.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button21.Location = New System.Drawing.Point(581, 346) + Me.Button21.Name = "Button21" + Me.Button21.Size = New System.Drawing.Size(211, 24) + Me.Button21.TabIndex = 81 + Me.Button21.Text = "AAS Sendung 24h" + Me.Button21.UseVisualStyleBackColor = True + ' 'Button20 ' Me.Button20.Enabled = False @@ -811,7 +883,7 @@ Partial Class frmStartOptions Me.Button19.Text = "AAS Vermerke 24h" Me.Button19.UseVisualStyleBackColor = True ' - 'Label23 + 'Label99 ' Me.Label99.AutoSize = True Me.Label99.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) @@ -833,6 +905,28 @@ Partial Class frmStartOptions Me.Button18.Text = "AAS Vermerke Überschreitung" Me.Button18.UseVisualStyleBackColor = True ' + '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 + ' + '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" + ' 'Button17 ' Me.Button17.FlatStyle = System.Windows.Forms.FlatStyle.Flat @@ -860,17 +954,6 @@ 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.Name = "PictureBox17" - Me.PictureBox17.Size = New System.Drawing.Size(18, 18) - Me.PictureBox17.TabIndex = 60 - Me.PictureBox17.TabStop = False - Me.PictureBox17.Visible = False - ' - 'PictureBox17 - ' - 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, 60) Me.PictureBox17.Name = "PictureBox17" Me.PictureBox17.Size = New System.Drawing.Size(18, 18) @@ -893,17 +976,6 @@ 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.Name = "PictureBox16" - Me.PictureBox16.Size = New System.Drawing.Size(18, 18) - Me.PictureBox16.TabIndex = 58 - Me.PictureBox16.TabStop = False - Me.PictureBox16.Visible = False - ' - 'PictureBox16 - ' - 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(395, 92) Me.PictureBox16.Name = "PictureBox16" Me.PictureBox16.Size = New System.Drawing.Size(18, 18) @@ -1102,17 +1174,6 @@ 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.Name = "PictureBox2" - Me.PictureBox2.Size = New System.Drawing.Size(18, 18) - Me.PictureBox2.TabIndex = 14 - Me.PictureBox2.TabStop = False - Me.PictureBox2.Visible = False - ' - 'PictureBox2 - ' - 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(139, 151) Me.PictureBox2.Name = "PictureBox2" Me.PictureBox2.Size = New System.Drawing.Size(18, 18) @@ -1177,17 +1238,6 @@ 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.Name = "PictureBox3" - Me.PictureBox3.Size = New System.Drawing.Size(18, 18) - Me.PictureBox3.TabIndex = 17 - Me.PictureBox3.TabStop = False - Me.PictureBox3.Visible = False - ' - 'PictureBox3 - ' - 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(400, 32) Me.PictureBox3.Name = "PictureBox3" Me.PictureBox3.Size = New System.Drawing.Size(18, 18) @@ -1210,17 +1260,6 @@ 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.Name = "PictureBox4" - Me.PictureBox4.Size = New System.Drawing.Size(18, 18) - Me.PictureBox4.TabIndex = 19 - Me.PictureBox4.TabStop = False - Me.PictureBox4.Visible = False - ' - 'PictureBox4 - ' - 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(495, 151) Me.PictureBox4.Name = "PictureBox4" Me.PictureBox4.Size = New System.Drawing.Size(18, 18) @@ -1243,17 +1282,6 @@ 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.Name = "PictureBox5" - Me.PictureBox5.Size = New System.Drawing.Size(18, 18) - Me.PictureBox5.TabIndex = 21 - Me.PictureBox5.TabStop = False - Me.PictureBox5.Visible = False - ' - 'PictureBox5 - ' - 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(452, 120) Me.PictureBox5.Name = "PictureBox5" Me.PictureBox5.Size = New System.Drawing.Size(18, 18) @@ -1298,17 +1326,6 @@ 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.Name = "PictureBox7" - Me.PictureBox7.Size = New System.Drawing.Size(18, 18) - Me.PictureBox7.TabIndex = 25 - Me.PictureBox7.TabStop = False - Me.PictureBox7.Visible = False - ' - 'PictureBox7 - ' - 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(395, 62) Me.PictureBox7.Name = "PictureBox7" Me.PictureBox7.Size = New System.Drawing.Size(18, 18) @@ -1342,17 +1359,6 @@ 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.Name = "PictureBox8" - Me.PictureBox8.Size = New System.Drawing.Size(18, 18) - Me.PictureBox8.TabIndex = 29 - Me.PictureBox8.TabStop = False - Me.PictureBox8.Visible = False - ' - 'PictureBox8 - ' - 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, 32) Me.PictureBox8.Name = "PictureBox8" Me.PictureBox8.Size = New System.Drawing.Size(18, 18) @@ -1930,6 +1936,9 @@ Partial Class frmStartOptions ' 'TabPage4 ' + Me.TabPage4.Controls.Add(Me.PictureBox21) + Me.TabPage4.Controls.Add(Me.LinkLabel47) + Me.TabPage4.Controls.Add(Me.LinkLabel46) Me.TabPage4.Controls.Add(Me.PictureBox19) Me.TabPage4.Controls.Add(Me.PictureBox18) Me.TabPage4.Controls.Add(Me.LinkLabel41) @@ -1945,11 +1954,22 @@ Partial Class frmStartOptions Me.TabPage4.Text = "Asfinag" Me.TabPage4.UseVisualStyleBackColor = True ' + 'LinkLabel46 + ' + Me.LinkLabel46.AutoSize = True + Me.LinkLabel46.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.LinkLabel46.Location = New System.Drawing.Point(17, 91) + Me.LinkLabel46.Name = "LinkLabel46" + Me.LinkLabel46.Size = New System.Drawing.Size(120, 13) + Me.LinkLabel46.TabIndex = 38 + Me.LinkLabel46.TabStop = True + Me.LinkLabel46.Text = "Contractdaten anzeigen" + ' '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.Location = New System.Drawing.Point(321, 68) Me.PictureBox19.Name = "PictureBox19" Me.PictureBox19.Size = New System.Drawing.Size(18, 18) Me.PictureBox19.TabIndex = 37 @@ -1960,7 +1980,7 @@ Partial Class frmStartOptions ' 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.Location = New System.Drawing.Point(321, 38) Me.PictureBox18.Name = "PictureBox18" Me.PictureBox18.Size = New System.Drawing.Size(18, 18) Me.PictureBox18.TabIndex = 36 @@ -1971,7 +1991,7 @@ Partial Class frmStartOptions ' 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.Location = New System.Drawing.Point(228, 68) Me.LinkLabel41.Name = "LinkLabel41" Me.LinkLabel41.Size = New System.Drawing.Size(82, 13) Me.LinkLabel41.TabIndex = 35 @@ -1982,7 +2002,7 @@ Partial Class frmStartOptions ' 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.Location = New System.Drawing.Point(228, 43) Me.LinkLabel42.Name = "LinkLabel42" Me.LinkLabel42.Size = New System.Drawing.Size(87, 13) Me.LinkLabel42.TabIndex = 34 @@ -1992,7 +2012,7 @@ Partial Class frmStartOptions '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.Location = New System.Drawing.Point(228, 16) Me.Label23.Name = "Label23" Me.Label23.Size = New System.Drawing.Size(296, 16) Me.Label23.TabIndex = 33 @@ -2300,286 +2320,6 @@ 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 - ' - - '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 @@ -2604,17 +2344,27 @@ Partial Class frmStartOptions Me.txtGJ_UNISPED.Size = New System.Drawing.Size(53, 20) Me.txtGJ_UNISPED.TabIndex = 68 ' - 'Button21 + 'LinkLabel47 ' - Me.Button21.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button21.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.Button21.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button21.Location = New System.Drawing.Point(581, 346) - Me.Button21.Name = "Button21" - Me.Button21.Size = New System.Drawing.Size(211, 24) - Me.Button21.TabIndex = 81 - Me.Button21.Text = "AAS Sendung 24h" - Me.Button21.UseVisualStyleBackColor = True + Me.LinkLabel47.AutoSize = True + Me.LinkLabel47.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.LinkLabel47.Location = New System.Drawing.Point(17, 115) + Me.LinkLabel47.Name = "LinkLabel47" + Me.LinkLabel47.Size = New System.Drawing.Size(72, 13) + Me.LinkLabel47.TabIndex = 39 + Me.LinkLabel47.TabStop = True + Me.LinkLabel47.Text = "Import to SDL" + ' + 'PictureBox21 + ' + Me.PictureBox21.BackgroundImage = CType(resources.GetObject("PictureBox21.BackgroundImage"), System.Drawing.Image) + Me.PictureBox21.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.PictureBox21.Location = New System.Drawing.Point(99, 115) + Me.PictureBox21.Name = "PictureBox21" + Me.PictureBox21.Size = New System.Drawing.Size(18, 18) + Me.PictureBox21.TabIndex = 40 + Me.PictureBox21.TabStop = False + Me.PictureBox21.Visible = False ' 'frmStartOptions ' @@ -2635,6 +2385,7 @@ Partial Class frmStartOptions Me.tbcntr.ResumeLayout(False) Me.TabPage1.ResumeLayout(False) Me.TabPage1.PerformLayout() + CType(Me.PictureBox20, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBox17, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBox16, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBox13, System.ComponentModel.ISupportInitialize).EndInit() @@ -2654,8 +2405,6 @@ Partial Class frmStartOptions CType(Me.PictureBox14, System.ComponentModel.ISupportInitialize).EndInit() Me.TabPage3.ResumeLayout(False) Me.TabPage3.PerformLayout() - Me.TabPage3.ResumeLayout(False) - Me.TabPage3.PerformLayout() Me.TabPage4.ResumeLayout(False) Me.TabPage4.PerformLayout() CType(Me.PictureBox19, System.ComponentModel.ISupportInitialize).EndInit() @@ -2664,8 +2413,7 @@ Partial Class frmStartOptions 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() + CType(Me.PictureBox21, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) End Sub @@ -2834,4 +2582,7 @@ Partial Class frmStartOptions Friend WithEvents Button20 As Button Friend WithEvents Button19 As Button Friend WithEvents Button21 As Button + Friend WithEvents LinkLabel46 As LinkLabel + Friend WithEvents LinkLabel47 As LinkLabel + Friend WithEvents PictureBox21 As PictureBox End Class diff --git a/initATLASAufschubkonten/frmStartOptions.resx b/initATLASAufschubkonten/frmStartOptions.resx index 5fd8635..1ca0be2 100644 --- a/initATLASAufschubkonten/frmStartOptions.resx +++ b/initATLASAufschubkonten/frmStartOptions.resx @@ -505,9 +505,30 @@ CQkJEjM9AwMAOTMC2xlgxuQAAAAASUVORK5CYII= - - 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 diff --git a/initATLASAufschubkonten/frmStartOptions.vb b/initATLASAufschubkonten/frmStartOptions.vb index 36eed9b..1c70599 100644 --- a/initATLASAufschubkonten/frmStartOptions.vb +++ b/initATLASAufschubkonten/frmStartOptions.vb @@ -4,7 +4,9 @@ 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 @@ -244,7 +246,10 @@ Public Class frmStartOptions Me.Refresh() DAKOSY_Worker.cIMPORT_Codelisten.IMPORT("I6010", True) DAKOSY_Worker.cIMPORT_Codelisten.IMPORT("I6010", False) + importEZOLLWechselkurse(True) + importEZOLLWechselkurse(False) Me.Refresh() + closeMe() End Sub Case "KD_DATA_DAKOSY" @@ -2002,6 +2007,7 @@ Public Class frmStartOptions PictureBox18.Visible = False PictureBox19.Visible = False PictureBox20.Visible = False + PictureBox21.Visible = False End Sub @@ -3105,13 +3111,13 @@ Public Class frmStartOptions ASFINAG_LKW() End Sub - Function ASFINAG_LKW() + Function ASFINAG_LKW(Optional isFMZoll As Boolean = True) As Boolean Try Dim SQl As New VERAG_PROG_ALLGEMEIN.SQL ' CLF-Einträge aus den bestehenden SDL-Datensätzen entfernen, ' damit nach dem Aktualisierungslauf der Istzustand der CLF in der SDL hergestellt wird. - If Not SQl.getValueTxtBySql("UPDATE SDL Set OBUID = NULL, Vertragsabschlussdatum = NULL, Kategorie = NULL, Status = NULL WHERE (SDLNr = 200) AND (NOT Vertragsabschlussdatum IS NULL)", "SDL") Then + If Not SQl.doSQL("UPDATE SDL Set OBUID = NULL, Vertragsabschlussdatum = NULL, Kategorie = NULL, Status = NULL WHERE (SDLNr = 200) AND (NOT Vertragsabschlussdatum IS NULL)", "SDL") Then VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("ERROR", "Fehler beim Reset SDL-Daten.", System.Reflection.MethodBase.GetCurrentMethod.Name) Return False End If @@ -3124,74 +3130,150 @@ Public Class frmStartOptions End If + If isFMZoll Then + ' Verbindung zur ASFINAG Datenbank herstellen + Dim connectionString = "" + If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then + connectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=\\DEVELOPER\f\FMZoll\Mautmanager.adp" + Else + connectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=\\FMZOLL\f\FMZoll\Mautmanager.adp" + End If + Dim con As New OleDbConnection(connectionString) + Dim cmd As New OleDbCommand + Dim var1 As String + Dim adapter As OleDbDataAdapter = New OleDbDataAdapter() + Dim reader As OleDbDataReader = Nothing - ' Verbindung zur ASFINAG Datenbank herstellen - Dim connectionString = "" - If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then - connectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=\\DEVELOPER\f\FMZoll\Mautmanager.adp" + ' Kfz Kennzeichen einlesen. + Dim SQLQuery = "SELECT CardNumber, ValidTo, OBUID, KfzKennzeichen, Nationalität, DatumVertragsabschluss, Kategorie, Schadstoffklasse, Status FROM vwCLFBody " + Using Command As New OleDbCommand(SQLQuery, con) + Using oRDR As OleDbDataReader = Command.ExecuteReader + While (oRDR.Read) + Dim KartenNr = oRDR.GetValue("CardNumber") + + Dim KfzKennzeichen = fktConvert(oRDR.GetValue("KfzKennzeichen")) + + ' Kundennummer einlesen + Dim KdNr As Integer = SQl.getValueTxtBySql("SELECT AdressenNr FROM Kreditkarten WHERE KartenNr='" & KartenNr & "'", "SDL",,, -1) + + If KdNr > 0 Then + + Call fktKundenSDLVerwalten(KdNr, SDLNr) + Call fktKundenLkwVerwalten(KdNr, oRDR.GetValue("KfzKennzeichen"), oRDR.GetValue("Nationalität")) + + Dim SDL = New VERAG_PROG_ALLGEMEIN.cSDL(KdNr, oRDR.GetValue("KfzKennzeichen"), SDLNr) + If Not SDL.hasentry Then + SDL.KundenNr = KdNr + SDL.KfzKennzeichen = KfzKennzeichen + SDL.SDLNr = SDLNr + SDL.History = 0 'fktLiefereHistorywert(!KundenNr, !SDLNr) + SDL.Erfassungsdatum = Now + Else + SDL.Änderungsdatum = Now + End If + SDL.Sachbearbeiter = "ASFINAG" + + Dim Validto = SQL.checkNullStr(oRDR.GetValue("DatumVertragsabschluss")) + + 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.SAVE() + End If + + End While + End Using + End Using + con.Close() Else - connectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=\\FMZOLL\f\FMZoll\Mautmanager.adp" - End If - Dim con As New OleDbConnection(connectionString) - Dim cmd As New OleDbCommand - Dim var1 As String - Dim adapter As OleDbDataAdapter = New OleDbDataAdapter() - Dim reader As OleDbDataReader = Nothing - ' Kfz Kennzeichen einlesen. - Dim SQLQuery = "SELECT CardNumber, ValidTo, OBUID, KfzKennzeichen, Nationalität, DatumVertragsabschluss, Kategorie, Schadstoffklasse, Status FROM vwCLFBody " - Using Command As New OleDbCommand(SQLQuery, con) - Using oRDR As OleDbDataReader = Command.ExecuteReader - While (oRDR.Read) - Dim KartenNr = oRDR.GetValue("CardNumber") + ' Kfz Kennzeichen einlesen. - Dim KfzKennzeichen = fktConvert(oRDR.GetValue("KfzKennzeichen")) - ' Kundennummer einlesen - Dim KdNr As Integer = SQl.getValueTxtBySql("SELECT AdressenNr FROM Kreditkarten WHERE KartenNr='" & KartenNr & "'", "SDL",,, -1) + Dim strSQLASFINAG = "SELECT cardNumber, ValidTo, OBUID, vehicleLicensePlate, nationality, contractDate, vehicleCategory, emissionCategory, status FROM vwCLFBody" - If KdNr > 0 Then + Dim dtAsfinag As DataTable = SQl.loadDgvBySql_Param(strSQLASFINAG, "ASFINAG") - Call fktKundenSDLVerwalten(KdNr, SDLNr) - Call fktKundenLkwVerwalten(KdNr, oRDR.GetValue("KfzKennzeichen"), oRDR.GetValue("Nationalität")) + If dtAsfinag.Rows.Count < 1 Then + Return False + End If - Dim SDL = New VERAG_PROG_ALLGEMEIN.cSDL(KdNr, oRDR.GetValue("KfzKennzeichen"), SDLNr) - If Not SDL.hasentry Then - SDL.KundenNr = KdNr - SDL.KfzKennzeichen = KfzKennzeichen - SDL.SDLNr = SDLNr - SDL.History = 0 'fktLiefereHistorywert(!KundenNr, !SDLNr) - SDL.Erfassungsdatum = Now - Else - SDL.Änderungsdatum = Now - End If - SDL.Sachbearbeiter = "ASFINAG" + For Each row As DataRow In dtAsfinag.Rows - Dim Validto = SQL.checkNullStr(oRDR.GetValue("DatumVertragsabschluss")) + Dim KdNr As Integer = SQl.getValueTxtBySql("SELECT Kreditkarten.AdressenNr FROM Kreditkarten WHERE Kreditkarten.KartenNr='" & row.Item("cardNumber") & "'", "FMZOLL",,, -1) - 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.SAVE() + If KdNr > 0 Then + + Call fktKundenSDLVerwalten(KdNr, SDLNr) + Call fktKundenLkwVerwalten(KdNr, row.Item("vehicleLicensePlate"), row.Item("nationality")) + + ' Die MautAT Tabelle aktualisieren. + + Dim SDL = New VERAG_PROG_ALLGEMEIN.cSDL(KdNr, row.Item("vehicleLicensePlate"), SDLNr) + + If Not SDL.hasentry Then + SDL.KundenNr = KdNr + SDL.KfzKennzeichen = row.Item("vehicleLicensePlate") + SDL.SDLNr = SDLNr + SDL.History = 0 'fktLiefereHistorywert(!KundenNr, !SDLNr) + SDL.Erfassungsdatum = Now + Else + SDL.Änderungsdatum = Now + End If + SDL.Sachbearbeiter = "ASFINAG" + + Dim Validto = SQL.checkNullStr(row.Item("contractDate")) + + SDL.KartenNr = SQL.checkNullStr(row.Item("cardNumber")) + If Validto <> "" Then + 'MsgBox(Mid(Validto, 7, 2) & " " & Mid(Validto, 4, 2)) + SDL.GültigBis = DateAdd("d", -1, DateAdd("m", 1, DateSerial("20" & Mid(Validto, 7, 2), Mid(Validto, 4, 2), 1))) 'noch im DETAIL checken! End If - End While - End Using - End Using - con.Close() + SDL.OBUID = SQL.checkNullStr(row.Item("OBUID")) + SDL.Vertragsabschlussdatum = SQL.checkNullStr(row.Item("contractDate")) + SDL.Kategorie = SQL.checkNullStr(row.Item("vehicleCategory")) + SDL.Schadstoffklasse = SQL.checkNullStr(row.Item("emissionCategory")) + SDL.Status = SQL.checkNullStr(row.Item("status")) + SDL.SAVE() + End If + + Dim strOBU = "OBU " & row.Item("OBUID") & " jetzt in " & KdNr & "/" & row.Item("vehicleLicensePlate") & "/" & SDLNr & "/" & 0 & "." + + ' Mehrfachvorkommen der OBU-ID prüfen. + Dim strSQL = "SELECT OBUID, Vermerk FROM vwSDL WHERE (SDLNr = " & SDLNr & ") And (OBUID = '" & row.Item("OBUID") & "') And ((KundenNr <> " & KdNr & ") Or (KfzKennzeichen <> '" & row.Item("vehicleLicensePlate") & "'))" + Dim dtCheckOBUID As DataTable = SQl.loadDgvBySql_Param(strSQL, "SDL") + + If dtCheckOBUID.Rows.Count > 0 Then + + For Each rowCheckOBUID As DataRow In dtCheckOBUID.Rows + Dim SDL = New VERAG_PROG_ALLGEMEIN.cSDL(KdNr, row.Item("vehicleLicensePlate"), SDLNr) + Dim leftString = Trim(strOBU & " " & SDL.Vermerk.Substring(0, 100)) + SDL.Vermerk = Trim(strOBU & " " & SDL.Vermerk.Substring(0, 100)) + SDL.OBUID = DBNull.Value + SDL.SAVE() + + Next + End If + + Next + + + End If Return True Catch ex As Exception - VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL) + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.SHOW) Return False End Try End Function @@ -3212,7 +3294,6 @@ Public Class frmStartOptions fktConvert = fktConvert & Mid(KfzKennzeichen, I, 1) End Select Next I - End Function Public Function fktKundenLkwVerwalten(ByRef KdNr As Integer, ByRef KfzKennzeichen As String, Nationalitaet As String) @@ -3491,13 +3572,14 @@ Public Class frmStartOptions Dim f As New frmAsfinag_NachrichtenVerabeitung("clf") f.ShowDialog() Me.Visible = True + 'ASFINAG_LKW(False) 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() + blt.initExportPfade() showPic(blt.exportiereWhiteList, PictureBox18) Me.Cursor = Cursors.Default End Sub @@ -3506,103 +3588,15 @@ Public Class frmStartOptions VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True Me.Cursor = Cursors.WaitCursor Dim blt = New cAsfinag.Exportist - blt.initPFad() + blt.initExportPfade() 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 + showPic(importEZOLLWechselkurse(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM), PictureBox20) - 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 Private Sub Button17_Click(sender As Object, e As EventArgs) Handles Button17.Click Dim f As New frmDatenarchivarchiv @@ -3751,4 +3745,134 @@ Public Class frmStartOptions Private Sub Button20_Click(sender As Object, e As EventArgs) Handles Button20.Click doAASVermerke_Ankunft() End Sub + + Private Sub LinkLabel46_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel46.LinkClicked + + Try + + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + Dim frm As New Form + Dim dgv As New DataGridView() + Dim dt As DataTable = SQL.loadDgvBySql("SELECT dbo.CLFBody.* FROM dbo.CLF INNER JOIN dbo.CLFBody ON dbo.CLF.PKHistory = dbo.CLFBody.PKHistory AND dbo.CLF.PKFileName = dbo.CLFBody.PKFileName", "ASFINAG") + + dgv.DataSource = dt + If dgv IsNot Nothing Then + frm.Size = New Size(1400, 1000) + dgv.Size = New Size(frm.Size.Width - 50, frm.Size.Height - 50) + dgv.Dock = DockStyle.Fill + dgv.Anchor = AnchorStyles.Left + dgv.Anchor = AnchorStyles.Top + frm.Controls.Add(dgv) + frm.StartPosition = FormStartPosition.CenterScreen + frm.ShowDialog() + End If + + + Catch ex As Exception + + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + + End Sub + + Private Function importEZOLLWechselkurse(isTestsystem As Boolean) As Boolean + + VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = isTestsystem + + 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 Return False + + 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 + End If + + End Using + + Return erg + + Catch ex As Exception + MsgBox(ex.Message & ex.StackTrace) + End Try + End Function + + Private Sub LinkLabel47_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel47.LinkClicked + VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True + showPic(ASFINAG_LKW(False), PictureBox21) + End Sub End Class \ No newline at end of file