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

IDS, Fix zzAktivitaet, etc.

Browse Source
This commit is contained in:
d.breimaier
2024-11-12 10:33:34 +01:00
parent d5a02cd1be
commit aa4807b672
5 changed files with 286 additions and 83 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
MailSender/MAILSender.vb
View File

@@ -234,7 +234,7 @@ Module Mail
Dim KdNr As String = "714869" Dim KdNr As String = "714869"
System.Console.WriteLine("OPTION erkannt: ZF _ Erstellt eine monaltiche Auswertung der DAKSOY-Abfertigungen für ZF.") System.Console.WriteLine("OPTION erkannt: ZF _ Erstellt eine monaltiche Auswertung der DAKSOY-Abfertigungen für ZF.")
System.Console.WriteLine("Auswertung Details gestartet...") System.Console.WriteLine("Auswertung Details gestartet...")
If SendEmail_ZF("robert.buchbauer@zf.com; christina.eggerl@zf.com; teresa.elster@zf.com", KdNr, von, bis) Then If SendEmail_ZF("robert.buchbauer@zf.com; teresa.elster@zf.com", KdNr, von, bis) Then
System.Console.WriteLine("Vorgang erfolgreich abgeschlossen ...") System.Console.WriteLine("Vorgang erfolgreich abgeschlossen ...")
End If End If
Case "QS_AUFTEILUNG" Case "QS_AUFTEILUNG"

3
initATLASAufschubkonten/RoutineManager.vbproj
View File

@@ -92,6 +92,9 @@
<EmbedInteropTypes>True</EmbedInteropTypes> <EmbedInteropTypes>True</EmbedInteropTypes>
<HintPath>C:\Windows\assembly\GAC_MSIL\Microsoft.Office.Interop.Excel\15.0.0.0__71e9bce111e9429c\Microsoft.Office.Interop.Excel.dll</HintPath> <HintPath>C:\Windows\assembly\GAC_MSIL\Microsoft.Office.Interop.Excel\15.0.0.0__71e9bce111e9429c\Microsoft.Office.Interop.Excel.dll</HintPath>
</Reference> </Reference>
<Reference Include="Microsoft.Office.Interop.Outlook, Version=15.0.0.0, Culture=neutral, PublicKeyToken=71e9bce111e9429c, processorArchitecture=MSIL">
<EmbedInteropTypes>True</EmbedInteropTypes>
</Reference>
<Reference Include="OFFICE, Version=15.0.0.0, Culture=neutral, PublicKeyToken=71e9bce111e9429c, processorArchitecture=MSIL"> <Reference Include="OFFICE, Version=15.0.0.0, Culture=neutral, PublicKeyToken=71e9bce111e9429c, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
<EmbedInteropTypes>True</EmbedInteropTypes> <EmbedInteropTypes>True</EmbedInteropTypes>

139
initATLASAufschubkonten/cWorker_Verwahrung.vb
View File

@@ -1,6 +1,8 @@
Imports System.Globalization Imports System.Globalization
Imports System.IO Imports System.IO
Imports System.Xml Imports System.Xml
Imports com.sun.org.apache.xpath.internal.operations
Imports com.sun.tools.doclets.internal.toolkit.util
Imports DAKOSY_Worker Imports DAKOSY_Worker
Imports DocumentFormat.OpenXml Imports DocumentFormat.OpenXml
Imports DocumentFormat.OpenXml.Spreadsheet Imports DocumentFormat.OpenXml.Spreadsheet
@@ -17,56 +19,137 @@ Public Class cWorker_Verwahrung
Shared Function readVW_SumAVerwahrungsinfo(FORM As frmDYNachrichtenVerarbeitung, d As String) As String Shared Function readVW_SumAVerwahrungsinfo(FORM As frmDYNachrichtenVerarbeitung, d As String) As String
Try Try
Dim NCTS As DAKOSY_Worker.ErledigungsmeldungNCTSDE.ErledigungsmeldungMOTyp = DAKOSY_Worker.ErledigungsmeldungNCTSDE.ErledigungsmeldungMOTyp.LoadFromFile(d) Dim VWI As DAKOSY_Worker.SumAVerwahrungsinfo_009.SumAVerwahrungsinfoSVTyp = DAKOSY_Worker.SumAVerwahrungsinfo_009.SumAVerwahrungsinfoSVTyp.LoadFromFile(d)
Dim MRN = "" Dim Vorpapiernummer = ""
Dim tstmp As Object = Nothing Dim RegistriernummerATLAS = ""
Dim ankungsdatum As Object = Nothing
Dim gestellungsdatum As Object = Nothing
readVW_SumAVerwahrungsinfo = "" readVW_SumAVerwahrungsinfo = ""
If NCTS IsNot Nothing Then If VWI IsNot Nothing Then
If NCTS.EinzelErledigungsmeldung IsNot Nothing Then If VWI.EinzelSumAVerwahrungsinfo IsNot Nothing Then
If NCTS.EinzelErledigungsmeldung.ObjektIdentifizierung IsNot Nothing Then If VWI.EinzelSumAVerwahrungsinfo.ObjektIdentifizierung IsNot Nothing Then
If NCTS.EinzelErledigungsmeldung.ObjektIdentifizierung.ObjektName IsNot Nothing Then If VWI.EinzelSumAVerwahrungsinfo.ObjektIdentifizierung.ObjektName IsNot Nothing Then
readVW_SumAVerwahrungsinfo = NCTS.EinzelErledigungsmeldung.ObjektIdentifizierung.ObjektName readVW_SumAVerwahrungsinfo = VWI.EinzelSumAVerwahrungsinfo.ObjektIdentifizierung.ObjektName 'Nur ObjektAntragsart VV (SumA Vorgang) /NE (NCTS-Vorgang )
End If End If
End If End If
If NCTS.EinzelErledigungsmeldung.KopfDaten IsNot Nothing Then If VWI.EinzelSumAVerwahrungsinfo.KopfDaten IsNot Nothing Then
If NCTS.EinzelErledigungsmeldung.KopfDaten.MRN IsNot Nothing Then If VWI.EinzelSumAVerwahrungsinfo.KopfDaten.Vorpapiernummer IsNot Nothing Then
MRN = NCTS.EinzelErledigungsmeldung.KopfDaten.MRN Vorpapiernummer = VWI.EinzelSumAVerwahrungsinfo.KopfDaten.Vorpapiernummer
End If End If
If NCTS.EinzelErledigungsmeldung.KopfDaten.ZeitpunktErledigung > "01.01.2000" Then
tstmp = NCTS.EinzelErledigungsmeldung.KopfDaten.ZeitpunktErledigung
End If
End If
End If
End If
If readVW_SumAVerwahrungsinfo <> "" And MRN <> "" Then 'BEZUGSNR vorhanden If VWI.EinzelSumAVerwahrungsinfo.KopfDaten.RegistriernummerATLAS IsNot Nothing Then
Dim STATUS As DAKOSY_Worker.cDakosy_Statusmeldungen = FORM.getStatusCheckTransID(NCTS.Transaktion.IOReferenz, NCTS.Transaktion.IODatumZeit) RegistriernummerATLAS = VWI.EinzelSumAVerwahrungsinfo.KopfDaten.RegistriernummerATLAS
End If
If VWI.EinzelSumAVerwahrungsinfo.KopfDaten.GestellungDatum > "01.01.2000" Then
gestellungsdatum = VWI.EinzelSumAVerwahrungsinfo.KopfDaten.GestellungDatum
End If
If VWI.EinzelSumAVerwahrungsinfo.KopfDaten.Ankunftsdatum > "01.01.2000" Then
ankungsdatum = VWI.EinzelSumAVerwahrungsinfo.KopfDaten.Ankunftsdatum
End If
If VWI.EinzelSumAVerwahrungsinfo.Position IsNot Nothing Then
For Each POS In VWI.EinzelSumAVerwahrungsinfo.Position
If POS.Positionsnummer IsNot Nothing Then
End If
Next
End If
End If
End If
End If
If readVW_SumAVerwahrungsinfo <> "" And Vorpapiernummer <> "" Then 'BEZUGSNR vorhanden
Dim STATUS As DAKOSY_Worker.cDakosy_Statusmeldungen = FORM.getStatusCheckTransID(VWI.Transaktion.IOReferenz, VWI.Transaktion.IODatumZeit)
STATUS.dySt_BezugsNr = readVW_SumAVerwahrungsinfo STATUS.dySt_BezugsNr = readVW_SumAVerwahrungsinfo
STATUS.dySt_artMitteilung = "VW_INFO" STATUS.dySt_artMitteilung = "VW_INFO"
STATUS.dySt_dyArt = "VW" '"NCTS" 'T1/T2 STATUS.dySt_dyArt = "VW"
STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.V_50 STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.V_50
STATUS.dySt_ergCode = "TSTMP" STATUS.dySt_ergCode = "GSTDATUM"
STATUS.dySt_ergMitteilung = "" STATUS.dySt_ergMitteilung = ""
If tstmp IsNot Nothing Then STATUS.dySt_ergZeitpunkt = tstmp If gestellungsdatum IsNot Nothing Then STATUS.dySt_ergZeitpunkt = gestellungsdatum
STATUS.SAVE() STATUS.SAVE()
'---------------------------------------------------------------- '----------------------------------------------------------------
'VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True
Try
'Verwahrung ANSCHREIBUNG
'Dim ANSCHREIBUNG As New cSicherheiten()
'With ANSCHREIBUNG 'Dim Standort As String = ""
'If MRN.Length > 4 Then
' Select Case MRN.Substring(0, 4)
' Case 4803, 4809
' Standort = "VERAG AG"
' Case 5601
' Standort = "Unisped GmbH"
' Case 5701
' Standort = "AMBAR"
' Case 4810,
' Standort = "VERAG GmbH"
' Case 5103
' Standort = "VERAG CS"
' Case 5501
' Standort = "IMEX"
' End Select
'End With ' Dim GesSichRef = New VERAG_PROG_ALLGEMEIN.cGesamtsicherheitsReferenz(Standort)
' 'For Each pos In NCTS.EinzelErledigungsmeldung.Position
'---------------------------------------------------------------- ' Dim saldo = GesSichRef.CalcSaldo()
' Dim filiale
' Dim abfertigungsnummer
' Dim dy_SendungsId = VWI.Transaktion.IOReferenz
' If dy_SendungsId IsNot Nothing AndAlso IsNumeric(dy_SendungsId) Then
' Dim SND As New VERAG_PROG_ALLGEMEIN.cSendungen(dy_SendungsId)
' If SND IsNot Nothing Then
' If SND.FilialenNr > 0 Then filiale = SND.FilialenNr
' If SND.AbfertigungsNr > 0 Then abfertigungsnummer = SND.AbfertigungsNr
' 'Verwahrung ANSCHREIBUNG
' Dim ANSCHREIBUNG As New cSicherheiten()
' With ANSCHREIBUNG
' .gs_ATBNr = Vorpapiernummer
' .gs_posNr = 1
' .gs_datum = gestellungsdatum
' .gs_warenwert = SND.tblSnd_Warenwert
' .gs_sicherheitsbetrag = (SND.tblSnd_Warenwert * (GesSichRef.gsr_zollsatz / 100))
' .gs_standort = Standort
' .gs_art = "OPEN"
' '.gs_gsNr = ANSCHREIBUNG.gessicherheitID
' .gs_erstellungsdatum = Now()
' .gs_freitext = ""
' .gs_saldo = GesSichRef.gsr_Saldo
' .gs_atr = ""
' .gs_filialenNr = filiale
' .gs_abfertigungsnr = abfertigungsnummer
' '.gs_LKWKZ = SND.tblSnd_id
' '.gs_warenort = gessich.warenortID
' End With
' End If
' End If
'End If
'----------------------------------------------------------------
Catch ex As Exception
'VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
End Try
'VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
FORM.addDGVEinarbeitung("VW: Verwahrungsinfo", STATUS.dySt_BezugsNr) FORM.addDGVEinarbeitung("VW: Verwahrungsinfo", STATUS.dySt_BezugsNr)
End If End If

129
initATLASAufschubkonten/frmNachrichtenVerarbeitung_MDM_divers.vb
View File

@@ -19,6 +19,7 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers
Dim renameFilesAfterDownload = False Dim renameFilesAfterDownload = False
Dim rmc As New cRMC Dim rmc As New cRMC
Dim uta As New cUTA Dim uta As New cUTA
Dim ids As New cIDS
Dim programName As String Dim programName As String
Dim Dateiname = "" Dim Dateiname = ""
@@ -63,6 +64,12 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers
ListBox3.Items.Add(frmStartOptions.cut_file(d)) ListBox3.Items.Add(frmStartOptions.cut_file(d))
Me.Refresh() Me.Refresh()
Next Next
ElseIf programName.Contains("IDS") Then
ids.initImportPfade(programName)
For Each d In System.IO.Directory.GetFiles(ids.VERARBEITUNG_PFAD)
ListBox3.Items.Add(frmStartOptions.cut_file(d))
Me.Refresh()
Next
End If End If
End Sub End Sub
@@ -107,7 +114,7 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers
ElseIf programName.Contains("UTA") Then ElseIf programName.Contains("UTA") Then
DownloadSFtpDirectory(uta.API_STRING, New NetworkCredential(uta.API.Rows(0).Item("api_user").ToString, uta.API.Rows(0).Item("api_password").ToString), "", cnt, deleteFilesAfterDownload, "/TRX/" & Now.Year, renameFilesAfterDownload) DownloadSFtpDirectory(uta.API_STRING, New NetworkCredential(uta.API.Rows(0).Item("api_user").ToString, uta.API.Rows(0).Item("api_password").ToString), "", cnt, deleteFilesAfterDownload, "/TRX/" & Now.Year, renameFilesAfterDownload)
ElseIf programName.Contains("IDS") Then ElseIf programName.Contains("IDS") Then
'DownloadSFtpDirectory(uta.API_STRING, New NetworkCredential(uta.API.Rows(0).Item("api_user").ToString, uta.API.Rows(0).Item("api_password").ToString), "", cnt, False, "/TRX/" & Now.Year) 'keinFTP (NOCH NICHT)!
End If End If
@@ -224,7 +231,7 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers
Using client = New SftpClient(ConnectionInfo) Using client = New SftpClient(ConnectionInfo)
client.Connect() client.Connect()
Dim files = client.ListDirectory(Path) Dim files = client.ListDirectory(Path).OrderBy(Function(file) file.LastAccessTime).Reverse
Dim targetFile As SftpFile Dim targetFile As SftpFile
@@ -235,27 +242,37 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers
If file.IsRegularFile AndAlso file.Name.ToLower.EndsWith(".uta") AndAlso file.Length > 0 AndAlso IIf(renameAfterDownload, Not file.Name.ToLower.StartsWith("_"), Not file.Name.ToLower.StartsWith("_")) Then If file.IsRegularFile AndAlso file.Name.ToLower.EndsWith(".uta") AndAlso file.Length > 0 AndAlso IIf(renameAfterDownload, Not file.Name.ToLower.StartsWith("_"), Not file.Name.ToLower.StartsWith("_")) Then
Dim remoteFileName = "/" & file.Name Dim remoteFileName = "/" & file.Name
Dim filePath = uta.VERARBEITUNG_PFAD & If(System.IO.File.Exists(uta.VERARBEITUNG_PFAD & file.Name), Name.Replace(".UTA", "_") & Now.ToString("yyMMdd_HHmmss.fff") & ".UTA", file.Name) Dim filePath = uta.VERARBEITUNG_PFAD & IIf(System.IO.File.Exists(uta.VERARBEITUNG_PFAD & file.Name), file.Name.Replace(".UTA", "_") & Now.ToString("yyMMdd_HHmmss.fff") & ".UTA", file.Name)
Dim downloadedFile As Stream = System.IO.File.Create(filePath) Dim downloadedFile As Stream = System.IO.File.Create(filePath)
client.DownloadFile(Path + remoteFileName, downloadedFile) client.DownloadFile(Path + remoteFileName, downloadedFile)
If System.IO.File.Exists(filePath) AndAlso deleteAfterDownload Then client.DeleteFile(Path + remoteFileName) 'Datei nach erfolgreichem Herunterladen vom Server löschen If System.IO.File.Exists(filePath) AndAlso deleteAfterDownload Then
client.DeleteFile(Path + remoteFileName) 'Datei nach erfolgreichem Herunterladen vom Server löschen
End If
If System.IO.File.Exists(filePath) AndAlso Not deleteAfterDownload And renameAfterDownload Then If System.IO.File.Exists(filePath) AndAlso Not deleteAfterDownload And renameAfterDownload Then
Dim remoteFileNameRenamed = "/_" & file.Name Try
client.RenameFile(Path + remoteFileName, Path + remoteFileNameRenamed) 'verarbeitete Datei kennzeichnen mit beginnenden "_"
Dim remoteFileNameRenamed = "/_" & file.Name
client.RenameFile(Path + remoteFileName, Path + remoteFileNameRenamed) 'verarbeitete Datei kennzeichnen mit beginnenden "_"
Catch ex As Exception
End Try
End If End If
downloadedFile.Dispose() downloadedFile.Dispose()
Dim fi As FileInfo = New FileInfo(filePath) Dim fi As FileInfo = New FileInfo(filePath)
ListBox3.Items.Add(frmStartOptions.cut_file(fi.Name)) 'zur Liste hinzufügen If fi.Extension = ".uta" Then
cnt += 1 ListBox3.Items.Add(frmStartOptions.cut_file(fi.Name)) 'zur Liste hinzufügen
cnt += 1
End If
End If End If
Next Next
@@ -303,6 +320,9 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers
ElseIf programName.Contains("UTA") Then ElseIf programName.Contains("UTA") Then
verarbeitungspfad = uta.VERARBEITUNG_PFAD verarbeitungspfad = uta.VERARBEITUNG_PFAD
zielpfad = uta.ZIEL_PFAD zielpfad = uta.ZIEL_PFAD
ElseIf programName.Contains("IDS") Then
verarbeitungspfad = ids.VERARBEITUNG_PFAD
zielpfad = ids.ZIEL_PFAD
End If End If
For i = 1 To 2 For i = 1 To 2
@@ -411,7 +431,7 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers
If True Then 'Not System.IO.Directory.Exists(zielpfad & "Invoice_PDF\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\") Then System.IO.Directory.CreateDirectory(zielpfad & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\") If True Then 'Not System.IO.Directory.Exists(zielpfad & "Invoice_PDF\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\") Then System.IO.Directory.CreateDirectory(zielpfad & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\")
If fi.Name.ToString.StartsWith("invoice_") Then If fi.Name.ToString.StartsWith("AP") Then
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("MDM", "MDM_DATEN", "UTA", Now.Year, Now.ToString("yyyyMMdd"), frmStartOptions.getFileName(d)) Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("MDM", "MDM_DATEN", "UTA", Now.Year, Now.ToString("yyyyMMdd"), frmStartOptions.getFileName(d))
@@ -467,7 +487,9 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers
If UTA_Beleg_ID <> "" Then If UTA_Beleg_ID <> "" Then
'TO DO -> ÄNDERN---------------------- 'TO DO -> ÄNDERN----------------------
SQL.doSQL("Update [tblUTAImportNew] SET [daId]='" & DS.da_id & "' where [UTA_Beleg_ID] = '" & UTA_Beleg_ID & "' and [rmc_importDatum] > DATEADD(DAY,-4,getdate()) ", "FMZOLL") If SQL.doSQL("Update [tblUTAImportNew] SET [daId]='" & DS.da_id & "' where [UTA_Beleg_ID] = '" & UTA_Beleg_ID & "' ", "FMZOLL") Then
frmStartOptions.moveFile_DateBack(d, zielpfad & "Invoice_PDF\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\")
End If
'TO DO -> ÄNDERN---------------------- 'TO DO -> ÄNDERN----------------------
End If End If
@@ -480,14 +502,71 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers
End If End If
End If End If
'frmStartOptions.moveFile_DateBack(d, zielpfad & "Invoice_PDF\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\")
If fi.Name.ToLower.Contains("pdf") Then addDGVEinarbeitung("PDF", fi.Name) If fi.Name.ToLower.Contains("pdf") Then addDGVEinarbeitung("PDF", fi.Name)
dgvEinarbeitung.Refresh() dgvEinarbeitung.Refresh()
End Select
ElseIf programName.Contains("IDS") Then
Select Case i
Case 1
'------------------------------------------
'------------------ .CSV ------------------
'------------------------------------------
'If Not deleteTable Then
' deleteTable = uta.clearimporttable()
'End If
If fi.Extension.ToLower = ".csv" Then
If Not found Then
If readIDS(d) <> "" Then found = True
End If
If found Then cntDatenEingelesen += 1
End If
Case 2
'------------------------------------------
'------------------ .PDF ------------------
'------------------------------------------
If fi.Extension.ToLower = ".pdf" Then
If True Then
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("MDM", "MDM_DATEN", "IDS", Now.Year, Now.ToString("yyyyMMdd"), frmStartOptions.getFileName(d))
DS.uploadDataToDATENSERVER(d,,,,,, True)
Try
Catch ex As System.Exception
End Try
End If
End If
If fi.Name.ToLower.Contains("pdf") Then addDGVEinarbeitung("PDF", fi.Name)
dgvEinarbeitung.Refresh() dgvEinarbeitung.Refresh()
End Select End Select
End If End If
If True Then If True Then
If Not alreadyMoved Then If Not alreadyMoved Then
@@ -626,6 +705,30 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers
End Try End Try
End Function
Function readIDS(d As String) As String
Try
Dim fi As FileInfo = New FileInfo(d)
Dim cnt = 0
Dim objFileRead As StreamReader = New StreamReader(d)
If ids.readAndSaveIDS(objFileRead, fi, cnt) Then
addDGVEinarbeitung(fi.Name, "OK")
Else
addDGVEinarbeitung(fi.Name, "Fehler")
End If
readIDS = "Zeilen: " & cnt
Catch ex As System.Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
MsgBox(ex.StackTrace & ex.Message)
End Try
End Function End Function

96
initATLASAufschubkonten/frmStartOptions.Designer.vb generated
View File

@@ -25,6 +25,7 @@ Partial Class frmStartOptions
Me.components = New System.ComponentModel.Container() Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmStartOptions)) Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmStartOptions))
Me.pnl = New System.Windows.Forms.Panel() Me.pnl = New System.Windows.Forms.Panel()
Me.Button25 = New System.Windows.Forms.Button()
Me.Button24 = New System.Windows.Forms.Button() Me.Button24 = New System.Windows.Forms.Button()
Me.CheckBox8 = New System.Windows.Forms.CheckBox() Me.CheckBox8 = New System.Windows.Forms.CheckBox()
Me.Label43 = New System.Windows.Forms.Label() Me.Label43 = New System.Windows.Forms.Label()
@@ -262,7 +263,7 @@ Partial Class frmStartOptions
Me.txtGJ_UNISPED = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtGJ_UNISPED = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Button21 = New System.Windows.Forms.Button() Me.Button21 = New System.Windows.Forms.Button()
Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.Button25 = New System.Windows.Forms.Button() Me.LinkLabel65 = New System.Windows.Forms.LinkLabel()
Me.pnl.SuspendLayout() Me.pnl.SuspendLayout()
CType(Me.PictureBox25, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox25, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox24, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox24, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -391,6 +392,18 @@ Partial Class frmStartOptions
Me.pnl.Size = New System.Drawing.Size(1229, 1007) Me.pnl.Size = New System.Drawing.Size(1229, 1007)
Me.pnl.TabIndex = 0 Me.pnl.TabIndex = 0
' '
'Button25
'
Me.Button25.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button25.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Button25.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button25.Location = New System.Drawing.Point(910, 298)
Me.Button25.Name = "Button25"
Me.Button25.Size = New System.Drawing.Size(187, 38)
Me.Button25.TabIndex = 135
Me.Button25.Text = "Summen anzeigen"
Me.Button25.UseVisualStyleBackColor = True
'
'Button24 'Button24
' '
Me.Button24.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.Button24.FlatStyle = System.Windows.Forms.FlatStyle.Flat
@@ -2282,6 +2295,7 @@ Partial Class frmStartOptions
' '
'TabPage4 'TabPage4
' '
Me.TabPage4.Controls.Add(Me.LinkLabel65)
Me.TabPage4.Controls.Add(Me.LinkLabel64) Me.TabPage4.Controls.Add(Me.LinkLabel64)
Me.TabPage4.Controls.Add(Me.Label42) Me.TabPage4.Controls.Add(Me.Label42)
Me.TabPage4.Controls.Add(Me.cbxUploadDA) Me.TabPage4.Controls.Add(Me.cbxUploadDA)
@@ -2364,7 +2378,7 @@ Partial Class frmStartOptions
' '
Me.Label42.AutoSize = True Me.Label42.AutoSize = True
Me.Label42.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label42.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label42.Location = New System.Drawing.Point(772, 235) Me.Label42.Location = New System.Drawing.Point(884, 235)
Me.Label42.Name = "Label42" Me.Label42.Name = "Label42"
Me.Label42.Size = New System.Drawing.Size(40, 13) Me.Label42.Size = New System.Drawing.Size(40, 13)
Me.Label42.TabIndex = 130 Me.Label42.TabIndex = 130
@@ -2374,7 +2388,7 @@ Partial Class frmStartOptions
' '
Me.cbxUploadDA.AutoSize = True Me.cbxUploadDA.AutoSize = True
Me.cbxUploadDA.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.cbxUploadDA.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cbxUploadDA.Location = New System.Drawing.Point(772, 324) Me.cbxUploadDA.Location = New System.Drawing.Point(884, 324)
Me.cbxUploadDA.Name = "cbxUploadDA" Me.cbxUploadDA.Name = "cbxUploadDA"
Me.cbxUploadDA.Size = New System.Drawing.Size(81, 17) Me.cbxUploadDA.Size = New System.Drawing.Size(81, 17)
Me.cbxUploadDA.TabIndex = 128 Me.cbxUploadDA.TabIndex = 128
@@ -2386,7 +2400,7 @@ Partial Class frmStartOptions
Me.Label5.AutoSize = True Me.Label5.AutoSize = True
Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label5.ForeColor = System.Drawing.Color.Red Me.Label5.ForeColor = System.Drawing.Color.Red
Me.Label5.Location = New System.Drawing.Point(879, 39) Me.Label5.Location = New System.Drawing.Point(991, 39)
Me.Label5.Name = "Label5" Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(56, 16) Me.Label5.Size = New System.Drawing.Size(56, 16)
Me.Label5.TabIndex = 126 Me.Label5.TabIndex = 126
@@ -2396,7 +2410,7 @@ Partial Class frmStartOptions
' '
Me.LinkLabel23.AutoSize = True Me.LinkLabel23.AutoSize = True
Me.LinkLabel23.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) Me.LinkLabel23.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.LinkLabel23.Location = New System.Drawing.Point(879, 117) Me.LinkLabel23.Location = New System.Drawing.Point(991, 117)
Me.LinkLabel23.Name = "LinkLabel23" Me.LinkLabel23.Name = "LinkLabel23"
Me.LinkLabel23.Size = New System.Drawing.Size(180, 13) Me.LinkLabel23.Size = New System.Drawing.Size(180, 13)
Me.LinkLabel23.TabIndex = 125 Me.LinkLabel23.TabIndex = 125
@@ -2407,7 +2421,7 @@ Partial Class frmStartOptions
' '
Me.LinkLabel24.AutoSize = True Me.LinkLabel24.AutoSize = True
Me.LinkLabel24.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) Me.LinkLabel24.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.LinkLabel24.Location = New System.Drawing.Point(879, 92) Me.LinkLabel24.Location = New System.Drawing.Point(991, 92)
Me.LinkLabel24.Name = "LinkLabel24" Me.LinkLabel24.Name = "LinkLabel24"
Me.LinkLabel24.Size = New System.Drawing.Size(177, 13) Me.LinkLabel24.Size = New System.Drawing.Size(177, 13)
Me.LinkLabel24.TabIndex = 124 Me.LinkLabel24.TabIndex = 124
@@ -2420,7 +2434,7 @@ Partial Class frmStartOptions
Me.cbxOnlyBilledTransactions.Checked = True Me.cbxOnlyBilledTransactions.Checked = True
Me.cbxOnlyBilledTransactions.CheckState = System.Windows.Forms.CheckState.Checked Me.cbxOnlyBilledTransactions.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbxOnlyBilledTransactions.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.cbxOnlyBilledTransactions.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cbxOnlyBilledTransactions.Location = New System.Drawing.Point(670, 84) Me.cbxOnlyBilledTransactions.Location = New System.Drawing.Point(782, 84)
Me.cbxOnlyBilledTransactions.Name = "cbxOnlyBilledTransactions" Me.cbxOnlyBilledTransactions.Name = "cbxOnlyBilledTransactions"
Me.cbxOnlyBilledTransactions.Size = New System.Drawing.Size(172, 17) Me.cbxOnlyBilledTransactions.Size = New System.Drawing.Size(172, 17)
Me.cbxOnlyBilledTransactions.TabIndex = 121 Me.cbxOnlyBilledTransactions.TabIndex = 121
@@ -2431,7 +2445,7 @@ Partial Class frmStartOptions
' '
Me.LinkLabel62.AutoSize = True Me.LinkLabel62.AutoSize = True
Me.LinkLabel62.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) Me.LinkLabel62.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.LinkLabel62.Location = New System.Drawing.Point(622, 374) Me.LinkLabel62.Location = New System.Drawing.Point(734, 374)
Me.LinkLabel62.Name = "LinkLabel62" Me.LinkLabel62.Name = "LinkLabel62"
Me.LinkLabel62.Size = New System.Drawing.Size(226, 13) Me.LinkLabel62.Size = New System.Drawing.Size(226, 13)
Me.LinkLabel62.TabIndex = 120 Me.LinkLabel62.TabIndex = 120
@@ -2442,7 +2456,7 @@ Partial Class frmStartOptions
' '
Me.LinkLabel60.AutoSize = True Me.LinkLabel60.AutoSize = True
Me.LinkLabel60.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) Me.LinkLabel60.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.LinkLabel60.Location = New System.Drawing.Point(662, 131) Me.LinkLabel60.Location = New System.Drawing.Point(774, 131)
Me.LinkLabel60.Name = "LinkLabel60" Me.LinkLabel60.Name = "LinkLabel60"
Me.LinkLabel60.Size = New System.Drawing.Size(144, 13) Me.LinkLabel60.Size = New System.Drawing.Size(144, 13)
Me.LinkLabel60.TabIndex = 119 Me.LinkLabel60.TabIndex = 119
@@ -2453,7 +2467,7 @@ Partial Class frmStartOptions
' '
Me.LinkLabel61.AutoSize = True Me.LinkLabel61.AutoSize = True
Me.LinkLabel61.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) Me.LinkLabel61.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.LinkLabel61.Location = New System.Drawing.Point(657, 351) Me.LinkLabel61.Location = New System.Drawing.Point(769, 351)
Me.LinkLabel61.Name = "LinkLabel61" Me.LinkLabel61.Name = "LinkLabel61"
Me.LinkLabel61.Size = New System.Drawing.Size(158, 13) Me.LinkLabel61.Size = New System.Drawing.Size(158, 13)
Me.LinkLabel61.TabIndex = 118 Me.LinkLabel61.TabIndex = 118
@@ -2464,7 +2478,7 @@ Partial Class frmStartOptions
' '
Me.Label40.AutoSize = True Me.Label40.AutoSize = True
Me.Label40.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label40.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label40.Location = New System.Drawing.Point(658, 235) Me.Label40.Location = New System.Drawing.Point(770, 235)
Me.Label40.Name = "Label40" Me.Label40.Name = "Label40"
Me.Label40.Size = New System.Drawing.Size(20, 13) Me.Label40.Size = New System.Drawing.Size(20, 13)
Me.Label40.TabIndex = 116 Me.Label40.TabIndex = 116
@@ -2474,7 +2488,7 @@ Partial Class frmStartOptions
' '
Me.LinkLabel59.AutoSize = True Me.LinkLabel59.AutoSize = True
Me.LinkLabel59.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) Me.LinkLabel59.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.LinkLabel59.Location = New System.Drawing.Point(670, 255) Me.LinkLabel59.Location = New System.Drawing.Point(782, 255)
Me.LinkLabel59.Name = "LinkLabel59" Me.LinkLabel59.Name = "LinkLabel59"
Me.LinkLabel59.Size = New System.Drawing.Size(149, 13) Me.LinkLabel59.Size = New System.Drawing.Size(149, 13)
Me.LinkLabel59.TabIndex = 114 Me.LinkLabel59.TabIndex = 114
@@ -2485,7 +2499,7 @@ Partial Class frmStartOptions
' '
Me.Label39.AutoSize = True Me.Label39.AutoSize = True
Me.Label39.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label39.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label39.Location = New System.Drawing.Point(657, 296) Me.Label39.Location = New System.Drawing.Point(769, 296)
Me.Label39.Name = "Label39" Me.Label39.Name = "Label39"
Me.Label39.Size = New System.Drawing.Size(28, 13) Me.Label39.Size = New System.Drawing.Size(28, 13)
Me.Label39.TabIndex = 113 Me.Label39.TabIndex = 113
@@ -2495,7 +2509,7 @@ Partial Class frmStartOptions
' '
Me.Label38.AutoSize = True Me.Label38.AutoSize = True
Me.Label38.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label38.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label38.Location = New System.Drawing.Point(656, 439) Me.Label38.Location = New System.Drawing.Point(768, 439)
Me.Label38.Name = "Label38" Me.Label38.Name = "Label38"
Me.Label38.Size = New System.Drawing.Size(23, 13) Me.Label38.Size = New System.Drawing.Size(23, 13)
Me.Label38.TabIndex = 112 Me.Label38.TabIndex = 112
@@ -2505,7 +2519,7 @@ Partial Class frmStartOptions
' '
Me.Label37.AutoSize = True Me.Label37.AutoSize = True
Me.Label37.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label37.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label37.Location = New System.Drawing.Point(656, 420) Me.Label37.Location = New System.Drawing.Point(768, 420)
Me.Label37.Name = "Label37" Me.Label37.Name = "Label37"
Me.Label37.Size = New System.Drawing.Size(28, 13) Me.Label37.Size = New System.Drawing.Size(28, 13)
Me.Label37.TabIndex = 111 Me.Label37.TabIndex = 111
@@ -2515,7 +2529,7 @@ Partial Class frmStartOptions
' '
Me.LinkLabel58.AutoSize = True Me.LinkLabel58.AutoSize = True
Me.LinkLabel58.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) Me.LinkLabel58.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.LinkLabel58.Location = New System.Drawing.Point(663, 156) Me.LinkLabel58.Location = New System.Drawing.Point(775, 156)
Me.LinkLabel58.Name = "LinkLabel58" Me.LinkLabel58.Name = "LinkLabel58"
Me.LinkLabel58.Size = New System.Drawing.Size(126, 13) Me.LinkLabel58.Size = New System.Drawing.Size(126, 13)
Me.LinkLabel58.TabIndex = 110 Me.LinkLabel58.TabIndex = 110
@@ -2526,7 +2540,7 @@ Partial Class frmStartOptions
' '
Me.LinkLabel57.AutoSize = True Me.LinkLabel57.AutoSize = True
Me.LinkLabel57.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) Me.LinkLabel57.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.LinkLabel57.Location = New System.Drawing.Point(663, 205) Me.LinkLabel57.Location = New System.Drawing.Point(775, 205)
Me.LinkLabel57.Name = "LinkLabel57" Me.LinkLabel57.Name = "LinkLabel57"
Me.LinkLabel57.Size = New System.Drawing.Size(166, 13) Me.LinkLabel57.Size = New System.Drawing.Size(166, 13)
Me.LinkLabel57.TabIndex = 108 Me.LinkLabel57.TabIndex = 108
@@ -2536,7 +2550,7 @@ Partial Class frmStartOptions
'DateTimePicker2 'DateTimePicker2
' '
Me.DateTimePicker2.Format = System.Windows.Forms.DateTimePickerFormat.[Short] Me.DateTimePicker2.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
Me.DateTimePicker2.Location = New System.Drawing.Point(691, 433) Me.DateTimePicker2.Location = New System.Drawing.Point(803, 433)
Me.DateTimePicker2.Name = "DateTimePicker2" Me.DateTimePicker2.Name = "DateTimePicker2"
Me.DateTimePicker2.Size = New System.Drawing.Size(85, 20) Me.DateTimePicker2.Size = New System.Drawing.Size(85, 20)
Me.DateTimePicker2.TabIndex = 107 Me.DateTimePicker2.TabIndex = 107
@@ -2544,7 +2558,7 @@ Partial Class frmStartOptions
'DateTimePicker1 'DateTimePicker1
' '
Me.DateTimePicker1.Format = System.Windows.Forms.DateTimePickerFormat.[Short] Me.DateTimePicker1.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
Me.DateTimePicker1.Location = New System.Drawing.Point(691, 414) Me.DateTimePicker1.Location = New System.Drawing.Point(803, 414)
Me.DateTimePicker1.Name = "DateTimePicker1" Me.DateTimePicker1.Name = "DateTimePicker1"
Me.DateTimePicker1.Size = New System.Drawing.Size(85, 20) Me.DateTimePicker1.Size = New System.Drawing.Size(85, 20)
Me.DateTimePicker1.TabIndex = 106 Me.DateTimePicker1.TabIndex = 106
@@ -2553,7 +2567,7 @@ Partial Class frmStartOptions
' '
Me.LinkLabel56.AutoSize = True Me.LinkLabel56.AutoSize = True
Me.LinkLabel56.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) Me.LinkLabel56.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.LinkLabel56.Location = New System.Drawing.Point(656, 456) Me.LinkLabel56.Location = New System.Drawing.Point(768, 456)
Me.LinkLabel56.Name = "LinkLabel56" Me.LinkLabel56.Name = "LinkLabel56"
Me.LinkLabel56.Size = New System.Drawing.Size(114, 13) Me.LinkLabel56.Size = New System.Drawing.Size(114, 13)
Me.LinkLabel56.TabIndex = 105 Me.LinkLabel56.TabIndex = 105
@@ -2563,7 +2577,7 @@ Partial Class frmStartOptions
'datVon 'datVon
' '
Me.datVon.Format = System.Windows.Forms.DateTimePickerFormat.[Short] Me.datVon.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
Me.datVon.Location = New System.Drawing.Point(691, 296) Me.datVon.Location = New System.Drawing.Point(803, 296)
Me.datVon.Name = "datVon" Me.datVon.Name = "datVon"
Me.datVon.Size = New System.Drawing.Size(85, 20) Me.datVon.Size = New System.Drawing.Size(85, 20)
Me.datVon.TabIndex = 104 Me.datVon.TabIndex = 104
@@ -2572,7 +2586,7 @@ Partial Class frmStartOptions
' '
Me.LinkLabel55.AutoSize = True Me.LinkLabel55.AutoSize = True
Me.LinkLabel55.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) Me.LinkLabel55.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.LinkLabel55.Location = New System.Drawing.Point(658, 324) Me.LinkLabel55.Location = New System.Drawing.Point(770, 324)
Me.LinkLabel55.Name = "LinkLabel55" Me.LinkLabel55.Name = "LinkLabel55"
Me.LinkLabel55.Size = New System.Drawing.Size(108, 13) Me.LinkLabel55.Size = New System.Drawing.Size(108, 13)
Me.LinkLabel55.TabIndex = 103 Me.LinkLabel55.TabIndex = 103
@@ -2583,7 +2597,7 @@ Partial Class frmStartOptions
' '
Me.LinkLabel54.AutoSize = True Me.LinkLabel54.AutoSize = True
Me.LinkLabel54.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) Me.LinkLabel54.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.LinkLabel54.Location = New System.Drawing.Point(663, 106) Me.LinkLabel54.Location = New System.Drawing.Point(775, 106)
Me.LinkLabel54.Name = "LinkLabel54" Me.LinkLabel54.Name = "LinkLabel54"
Me.LinkLabel54.Size = New System.Drawing.Size(157, 13) Me.LinkLabel54.Size = New System.Drawing.Size(157, 13)
Me.LinkLabel54.TabIndex = 102 Me.LinkLabel54.TabIndex = 102
@@ -2649,7 +2663,7 @@ Partial Class frmStartOptions
' '
Me.Label36.AutoSize = True Me.Label36.AutoSize = True
Me.Label36.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label36.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label36.Location = New System.Drawing.Point(663, 65) Me.Label36.Location = New System.Drawing.Point(775, 65)
Me.Label36.Name = "Label36" Me.Label36.Name = "Label36"
Me.Label36.Size = New System.Drawing.Size(42, 13) Me.Label36.Size = New System.Drawing.Size(42, 13)
Me.Label36.TabIndex = 96 Me.Label36.TabIndex = 96
@@ -2659,7 +2673,7 @@ Partial Class frmStartOptions
' '
Me.Label35.AutoSize = True Me.Label35.AutoSize = True
Me.Label35.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label35.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label35.Location = New System.Drawing.Point(549, 65) Me.Label35.Location = New System.Drawing.Point(572, 65)
Me.Label35.Name = "Label35" Me.Label35.Name = "Label35"
Me.Label35.Size = New System.Drawing.Size(42, 13) Me.Label35.Size = New System.Drawing.Size(42, 13)
Me.Label35.TabIndex = 95 Me.Label35.TabIndex = 95
@@ -2680,7 +2694,7 @@ Partial Class frmStartOptions
Me.Label33.AutoSize = True Me.Label33.AutoSize = True
Me.Label33.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label33.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label33.ForeColor = System.Drawing.Color.Red Me.Label33.ForeColor = System.Drawing.Color.Red
Me.Label33.Location = New System.Drawing.Point(663, 39) Me.Label33.Location = New System.Drawing.Point(775, 39)
Me.Label33.Name = "Label33" Me.Label33.Name = "Label33"
Me.Label33.Size = New System.Drawing.Size(39, 16) Me.Label33.Size = New System.Drawing.Size(39, 16)
Me.Label33.TabIndex = 93 Me.Label33.TabIndex = 93
@@ -2691,7 +2705,7 @@ Partial Class frmStartOptions
Me.Label32.AutoSize = True Me.Label32.AutoSize = True
Me.Label32.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label32.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label32.ForeColor = System.Drawing.Color.Red Me.Label32.ForeColor = System.Drawing.Color.Red
Me.Label32.Location = New System.Drawing.Point(549, 39) Me.Label32.Location = New System.Drawing.Point(572, 39)
Me.Label32.Name = "Label32" Me.Label32.Name = "Label32"
Me.Label32.Size = New System.Drawing.Size(32, 16) Me.Label32.Size = New System.Drawing.Size(32, 16)
Me.Label32.TabIndex = 92 Me.Label32.TabIndex = 92
@@ -2931,7 +2945,7 @@ Partial Class frmStartOptions
Me.txtBatchNrofTransaction._WaehrungZeichen = True Me.txtBatchNrofTransaction._WaehrungZeichen = True
Me.txtBatchNrofTransaction.BackColor = System.Drawing.SystemColors.Window Me.txtBatchNrofTransaction.BackColor = System.Drawing.SystemColors.Window
Me.txtBatchNrofTransaction.ForeColor = System.Drawing.Color.Red Me.txtBatchNrofTransaction.ForeColor = System.Drawing.Color.Red
Me.txtBatchNrofTransaction.Location = New System.Drawing.Point(817, 232) Me.txtBatchNrofTransaction.Location = New System.Drawing.Point(929, 232)
Me.txtBatchNrofTransaction.MaxLength = 10 Me.txtBatchNrofTransaction.MaxLength = 10
Me.txtBatchNrofTransaction.MaxLineLength = -1 Me.txtBatchNrofTransaction.MaxLineLength = -1
Me.txtBatchNrofTransaction.MaxLines_Warning = "" Me.txtBatchNrofTransaction.MaxLines_Warning = ""
@@ -2957,7 +2971,7 @@ Partial Class frmStartOptions
Me.txtBatchNr._WaehrungZeichen = True Me.txtBatchNr._WaehrungZeichen = True
Me.txtBatchNr.BackColor = System.Drawing.SystemColors.Window Me.txtBatchNr.BackColor = System.Drawing.SystemColors.Window
Me.txtBatchNr.ForeColor = System.Drawing.Color.Red Me.txtBatchNr.ForeColor = System.Drawing.Color.Red
Me.txtBatchNr.Location = New System.Drawing.Point(721, 181) Me.txtBatchNr.Location = New System.Drawing.Point(833, 181)
Me.txtBatchNr.MaxLength = 10 Me.txtBatchNr.MaxLength = 10
Me.txtBatchNr.MaxLineLength = -1 Me.txtBatchNr.MaxLineLength = -1
Me.txtBatchNr.MaxLines_Warning = "" Me.txtBatchNr.MaxLines_Warning = ""
@@ -2975,7 +2989,7 @@ Partial Class frmStartOptions
Me.cbxMSEBatchNr.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList Me.cbxMSEBatchNr.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cbxMSEBatchNr.DropDownWidth = 20 Me.cbxMSEBatchNr.DropDownWidth = 20
Me.cbxMSEBatchNr.FormattingEnabled = True Me.cbxMSEBatchNr.FormattingEnabled = True
Me.cbxMSEBatchNr.Location = New System.Drawing.Point(670, 181) Me.cbxMSEBatchNr.Location = New System.Drawing.Point(782, 181)
Me.cbxMSEBatchNr.Name = "cbxMSEBatchNr" Me.cbxMSEBatchNr.Name = "cbxMSEBatchNr"
Me.cbxMSEBatchNr.Size = New System.Drawing.Size(44, 21) Me.cbxMSEBatchNr.Size = New System.Drawing.Size(44, 21)
Me.cbxMSEBatchNr.TabIndex = 122 Me.cbxMSEBatchNr.TabIndex = 122
@@ -2996,7 +3010,7 @@ Partial Class frmStartOptions
Me.txtTransactionID._WaehrungZeichen = True Me.txtTransactionID._WaehrungZeichen = True
Me.txtTransactionID.BackColor = System.Drawing.SystemColors.Window Me.txtTransactionID.BackColor = System.Drawing.SystemColors.Window
Me.txtTransactionID.ForeColor = System.Drawing.Color.Black Me.txtTransactionID.ForeColor = System.Drawing.Color.Black
Me.txtTransactionID.Location = New System.Drawing.Point(681, 232) Me.txtTransactionID.Location = New System.Drawing.Point(793, 232)
Me.txtTransactionID.MaxLength = 10 Me.txtTransactionID.MaxLength = 10
Me.txtTransactionID.MaxLineLength = -1 Me.txtTransactionID.MaxLineLength = -1
Me.txtTransactionID.MaxLines_Warning = "" Me.txtTransactionID.MaxLines_Warning = ""
@@ -3379,17 +3393,16 @@ Partial Class frmStartOptions
Me.DataGridViewTextBoxColumn1.MinimumWidth = 8 Me.DataGridViewTextBoxColumn1.MinimumWidth = 8
Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1" Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1"
' '
'Button25 'LinkLabel65
' '
Me.Button25.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.LinkLabel65.AutoSize = True
Me.Button25.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) Me.LinkLabel65.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Button25.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.LinkLabel65.Location = New System.Drawing.Point(572, 88)
Me.Button25.Location = New System.Drawing.Point(910, 298) Me.LinkLabel65.Name = "LinkLabel65"
Me.Button25.Name = "Button25" Me.LinkLabel65.Size = New System.Drawing.Size(115, 13)
Me.Button25.Size = New System.Drawing.Size(187, 38) Me.LinkLabel65.TabIndex = 132
Me.Button25.TabIndex = 135 Me.LinkLabel65.TabStop = True
Me.Button25.Text = "Summen anzeigen" Me.LinkLabel65.Text = "CSV + PDF importieren"
Me.Button25.UseVisualStyleBackColor = True
' '
'frmStartOptions 'frmStartOptions
' '
@@ -3686,4 +3699,5 @@ Partial Class frmStartOptions
Friend WithEvents CheckBox8 As CheckBox Friend WithEvents CheckBox8 As CheckBox
Friend WithEvents Button24 As Button Friend WithEvents Button24 As Button
Friend WithEvents Button25 As Button Friend WithEvents Button25 As Button
Friend WithEvents LinkLabel65 As LinkLabel
End Class End Class