diff --git a/UID/usrctlProcedures.Designer.vb b/UID/usrctlProcedures.Designer.vb index 9d3be35..6bdd199 100644 --- a/UID/usrctlProcedures.Designer.vb +++ b/UID/usrctlProcedures.Designer.vb @@ -83,6 +83,7 @@ Partial Class usrctlProcedures Me.tctModalTEstLRN = New System.Windows.Forms.TextBox() Me.Button45 = New System.Windows.Forms.Button() Me.TabPage5 = New System.Windows.Forms.TabPage() + Me.btnTC_FtpIUpload = New System.Windows.Forms.Button() Me.Button48 = New System.Windows.Forms.Button() Me.Button47 = New System.Windows.Forms.Button() Me.Button18 = New System.Windows.Forms.Button() @@ -138,7 +139,6 @@ Partial Class usrctlProcedures Me.Button43 = New System.Windows.Forms.Button() Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.Button49 = New System.Windows.Forms.Button() Me.TabControl1.SuspendLayout() Me.TabPage3.SuspendLayout() Me.TabPage1.SuspendLayout() @@ -731,6 +731,7 @@ Partial Class usrctlProcedures ' 'TabPage5 ' + Me.TabPage5.Controls.Add(Me.btnTC_FtpIUpload) Me.TabPage5.Controls.Add(Me.Button48) Me.TabPage5.Controls.Add(Me.Button47) Me.TabPage5.Location = New System.Drawing.Point(4, 22) @@ -741,6 +742,15 @@ Partial Class usrctlProcedures Me.TabPage5.Text = "Teleotec" Me.TabPage5.UseVisualStyleBackColor = True ' + 'btnTC_FtpIUpload + ' + Me.btnTC_FtpIUpload.Location = New System.Drawing.Point(48, 157) + Me.btnTC_FtpIUpload.Name = "btnTC_FtpIUpload" + Me.btnTC_FtpIUpload.Size = New System.Drawing.Size(145, 49) + Me.btnTC_FtpIUpload.TabIndex = 64 + Me.btnTC_FtpIUpload.Text = "TEST FTP UPload ATEZ" + Me.btnTC_FtpIUpload.UseVisualStyleBackColor = True + ' 'Button48 ' Me.Button48.Location = New System.Drawing.Point(209, 24) @@ -1238,20 +1248,10 @@ Partial Class usrctlProcedures Me.DataGridViewTextBoxColumn2.HeaderText = "anz" Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2" ' - 'Button49 - ' - Me.Button49.Location = New System.Drawing.Point(547, 29) - Me.Button49.Name = "Button49" - Me.Button49.Size = New System.Drawing.Size(145, 49) - Me.Button49.TabIndex = 66 - Me.Button49.Text = "Kundenkontakte imp." - Me.Button49.UseVisualStyleBackColor = True - ' 'usrctlProcedures ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font - Me.Controls.Add(Me.Button49) Me.Controls.Add(Me.Button43) Me.Controls.Add(Me.Button33) Me.Controls.Add(Me.lblStatus) @@ -1440,5 +1440,5 @@ Partial Class usrctlProcedures Friend WithEvents TabPage5 As TabPage Friend WithEvents Button47 As Button Friend WithEvents Button48 As Button - Friend WithEvents Button49 As Button + Friend WithEvents btnTC_FtpIUpload As Button End Class diff --git a/UID/usrctlProcedures.vb b/UID/usrctlProcedures.vb index a90bc04..5be1997 100644 --- a/UID/usrctlProcedures.vb +++ b/UID/usrctlProcedures.vb @@ -1,23 +1,23 @@ -Imports System.DirectoryServices -Imports System.Collections.Generic -Imports PdfSharp.Pdf -Imports PdfSharp.Drawing - -Imports PdfSharp.Pdf.IO -Imports PdfSharp.Pdf.AcroForms -Imports iTextSharp.text.pdf -Imports System.IO -Imports System.Data.SqlClient -Imports System.Net.Mail -Imports Microsoft.Office.Interop -Imports System.Net -Imports System.Text -Imports System.Xml.Serialization -Imports System.Xml +Imports System.Collections.Generic Imports System.Data.OleDb +Imports System.Data.SqlClient +Imports System.DirectoryServices +Imports System.IO +Imports System.Net +Imports System.Net.Mail +Imports System.Text +Imports System.Xml +Imports System.Xml.Serialization Imports Chilkat -Imports TELOTEC_Worker Imports GrapeCity +Imports iTextSharp.text.pdf +Imports Microsoft.Office.Interop +Imports PdfSharp.Drawing +Imports PdfSharp.Pdf +Imports PdfSharp.Pdf.AcroForms +Imports PdfSharp.Pdf.IO +Imports Renci.SshNet +Imports TELOTEC_Worker Imports VERAG_PROG_ALLGEMEIN Imports VERAG_PROG_ALLGEMEIN.cTelotecAPI 'Imports Microsoft.Office.Interop @@ -3774,7 +3774,7 @@ Public Class usrctlProcedures ' Pfad zur Excel-Datei anpassen - Dim filePath As String = "D:\Andreas\TMP\elotec ncts 02 2025\ATILLA _ DUR.xlsx" + Dim filePath As String = "D:\Andreas\TMP\elot\Garantiebeträge 042025-Atilla-Durmaz.xlsx" ' Excel Anwendung starten Dim excelApp As New Excel.Application @@ -3796,8 +3796,8 @@ Public Class usrctlProcedures TELANM = New cTelotec_Anmeldung End If - TELANM.telanm_ART = "T2" '"T1" '"T2" - TELANM.Hea_DecTy = "T2" '"T1" '"T2" + TELANM.telanm_ART = "T1" '"T1" '"T2" + TELANM.Hea_DecTy = "T1" '"T1" '"T2" TELANM.telanm_BezugsNr = excelRange.Cells(i, 4).Value TELANM.Refs_LRN = excelRange.Cells(i, 4).Value TELANM.telanm_Status = 50 @@ -3860,6 +3860,7 @@ Public Class usrctlProcedures 'TELANM.SAVE() + Console.WriteLine(TELANM.Refs_LRN & " - " & i) Next @@ -3883,7 +3884,7 @@ Public Class usrctlProcedures ReleaseObject(excelApp) Console.WriteLine("Excel-Daten wurden erfolgreich ausgelesen.") - Console.ReadKey() + 'Console.ReadKey() End Sub @@ -3921,16 +3922,39 @@ Public Class usrctlProcedures Private Sub Button47_Click(sender As Object, e As EventArgs) Handles Button47.Click Dim TELO As New VERAG_PROG_ALLGEMEIN.cTelotecAPI + Dim Company = "ATILLA" - Dim messages As List(Of VERAG_PROG_ALLGEMEIN.cTelotecAPI.TAMessage) = TELO.GetTAMessages() - - - MsgBox(messages.Count) - - For Each mmm In messages - MsgBox(mmm.lrn) - MsgBox(mmm.declarationContent.anmeldedatum) + For ii As Integer = 0 To 50 + Dim messages As List(Of VERAG_PROG_ALLGEMEIN.cTelotecAPI.TAMessage) = TELO.GetTAMessages(Company) + Threading.Thread.Sleep(1000) ' Next + + Company = "IMEX" + For ii As Integer = 0 To 50 + Dim messages As List(Of VERAG_PROG_ALLGEMEIN.cTelotecAPI.TAMessage) = TELO.GetTAMessages(Company) + Threading.Thread.Sleep(1000) ' + Next + + Company = "DURMAZ" + For ii As Integer = 0 To 50 + Dim messages As List(Of VERAG_PROG_ALLGEMEIN.cTelotecAPI.TAMessage) = TELO.GetTAMessages(Company) + Threading.Thread.Sleep(1000) ' + Next + + 'Company = "VERAG" = ATILLA + 'For ii As Integer = 0 To 50 + ' Dim messages As List(Of VERAG_PROG_ALLGEMEIN.cTelotecAPI.TAMessage) = TELO.GetTAMessages(Company) + ' Threading.Thread.Sleep(1000) ' + 'Next + + + + ' MsgBox(messages.Count) + + 'For Each mmm In messages + ' ' MsgBox(mmm.lrn) + ' ' MsgBox(mmm.declarationContent.anmeldedatum) + 'Next End Sub Private Sub Button48_Click(sender As Object, e As EventArgs) Handles Button48.Click @@ -3956,9 +3980,7 @@ Public Class usrctlProcedures If TELO_ANM.SAVE() Then MsgBox("SUSSSSS") End If - Next - Else Console.WriteLine("🔕 Keine Datei ausgewählt.") End If @@ -3967,107 +3989,18 @@ Public Class usrctlProcedures End Sub - Private Sub Button49_Click(sender As Object, e As EventArgs) Handles Button49.Click + Private Sub Button49_Click(sender As Object, e As EventArgs) Handles btnTC_FtpIUpload.Click + Using ofd As New OpenFileDialog() + ofd.Title = "Wähle eine TEST-Datei" - - Dim cnt = 0 - - Dim sql As New VERAG_PROG_ALLGEMEIN.SQL - Dim kdnr_tmp = "" - - VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = CheckBox3.Checked - - Try - - Dim fd As New OpenFileDialog - If fd.ShowDialog = DialogResult.OK Then - If fd.FileName.ToLower.EndsWith(".csv") Then - - ' fd.FileName.EndsWith(".csv") - Using MyReader As New Microsoft.VisualBasic.FileIO.TextFieldParser(fd.FileName, Encoding.Default) - MyReader.TextFieldType = FileIO.FieldType.Delimited - MyReader.SetDelimiters(";") - Dim currentRow As String() - While Not MyReader.EndOfData - Try - ' - currentRow = MyReader.ReadFields() - - If currentRow.Length > 2 Then - If Not (currentRow(0).Trim() = "aktiv") Then - If currentRow.Length > 12 Then - - Dim kundenNr = isleernothing((currentRow(1))) - - If kundenNr IsNot Nothing Then - kdnr_tmp = kundenNr - - 'Mahnung an - If isleernothing((currentRow(9))) IsNot Nothing Then - - - - Dim KDKont As New VERAG_PROG_ALLGEMEIN.cKundenKontakte(10, kundenNr) - KDKont.kkd_Email = isleernothing((currentRow(9))) - KDKont.kkd_kkaId = 10 'Mahnung an - KDKont.kkd_kkaBez = "Mahnung an" - - If KDKont.SAVE() Then - TextBox10.Text &= KDKont.kkd_id & vbNewLine - Else - MsgBox("FEHLER: " & currentRow(2).Trim() & " - " & currentRow(3).Trim()) - End If - End If - - - 'Rechnung an - If isleernothing((currentRow(10))) IsNot Nothing Then - - Dim KDKont As New VERAG_PROG_ALLGEMEIN.cKundenKontakte(8, kundenNr) - KDKont.kkd_Email = isleernothing((currentRow(10))) - KDKont.kkd_kkaId = 8 'Rechnung an - KDKont.kkd_kkaBez = "Rechnung an" - - If KDKont.SAVE() Then - TextBox10.Text &= KDKont.kkd_id & vbNewLine - Else - MsgBox("FEHLER: " & currentRow(2).Trim() & " - " & currentRow(3).Trim()) - End If - End If - - - End If - - - If cnt Mod 10 = 0 Then - Application.DoEvents() - - Label10.Text = (cnt + 1) - End If - - Else - 'MsgBox(currentRow(2)) - End If - End If - End If - - 'For Each currentField In currentRow - cnt += 1 - 'Next - Catch ex As Exception - MsgBox(kdnr_tmp & " " & ex.Message & ex.StackTrace) - End Try - End While - End Using - End If + If ofd.ShowDialog() = DialogResult.OK Then + Dim selectedPath As String = ofd.FileName + Dim c As New cTelotecAPI + c.SaveJsonResponseTo_ATEZFTP(selectedPath) + Else + Console.WriteLine("🔕 Keine Datei ausgewählt.") End If - - Catch ex As Exception - MessageBox.Show("Datei nicht vorhanden.") - Finally - - End Try - + End Using End Sub diff --git a/initATLASAufschubkonten/frmStartOptions.Designer.vb b/initATLASAufschubkonten/frmStartOptions.Designer.vb index 66e62fd..27d6f7e 100644 --- a/initATLASAufschubkonten/frmStartOptions.Designer.vb +++ b/initATLASAufschubkonten/frmStartOptions.Designer.vb @@ -161,13 +161,17 @@ Partial Class frmStartOptions Me.MyComboBox1 = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.txtVRGOut_BezugsNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.TabPage3 = New System.Windows.Forms.TabPage() + Me.cboTCAPI_Firma = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.cboTCAPI_Files = New System.Windows.Forms.Button() + Me.cboTCAPI_Call = New System.Windows.Forms.Button() + Me.Label50cboTCAPI_ = New System.Windows.Forms.Label() Me.MyTextBox06 = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.CheckBox9 = New System.Windows.Forms.CheckBox() - Me.Label49 = New System.Windows.Forms.Label() - Me.Button28 = New System.Windows.Forms.Button() + Me.lblcheckopatez = New System.Windows.Forms.Label() + Me.checkallopenATEZ = New System.Windows.Forms.Button() Me.LinkLabel71 = New System.Windows.Forms.LinkLabel() Me.cbxOverrideNCTSFin = New System.Windows.Forms.CheckBox() - Me.Label48 = New System.Windows.Forms.Label() + Me.lblTrnscodeStrich = New System.Windows.Forms.Label() Me.Label47 = New System.Windows.Forms.Label() Me.LinkLabel50 = New System.Windows.Forms.LinkLabel() Me.Label26 = New System.Windows.Forms.Label() @@ -184,7 +188,7 @@ Partial Class frmStartOptions Me.LinkLabel29 = New System.Windows.Forms.LinkLabel() Me.LinkLabel30 = New System.Windows.Forms.LinkLabel() Me.Label11 = New System.Windows.Forms.Label() - Me.MyTextBox5 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtCheckATEZMRN = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.datTranscodeBis = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.datTranscodeVon = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.TabPage4 = New System.Windows.Forms.TabPage() @@ -209,7 +213,6 @@ Partial Class frmStartOptions Me.IDS = New System.Windows.Forms.TabPage() Me.IDSUpdateDAID = New System.Windows.Forms.LinkLabel() Me.Label32 = New System.Windows.Forms.Label() - Me.txtIDSYear = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label35 = New System.Windows.Forms.Label() Me.IDS_import = New System.Windows.Forms.LinkLabel() Me.IDS_REDetails = New System.Windows.Forms.LinkLabel() @@ -217,12 +220,9 @@ Partial Class frmStartOptions Me.IDS_RE = New System.Windows.Forms.LinkLabel() Me.cbxIDSUmbenenen = New System.Windows.Forms.CheckBox() Me.TextBox3 = New System.Windows.Forms.TextBox() + Me.txtIDSYear = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.MSE = New System.Windows.Forms.TabPage() Me.Label33 = New System.Windows.Forms.Label() - Me.txtTransactionID = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.cbxMSEBatchNr = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.txtBatchNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtBatchNrofTransaction = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label36 = New System.Windows.Forms.Label() Me.MSE_Transaktions = New System.Windows.Forms.LinkLabel() Me.MSE_RE = New System.Windows.Forms.LinkLabel() @@ -243,17 +243,19 @@ Partial Class frmStartOptions Me.Label42 = New System.Windows.Forms.Label() Me.cbxOnlyBilledTransactions = New System.Windows.Forms.CheckBox() Me.cbxUploadDA = New System.Windows.Forms.CheckBox() + Me.txtTransactionID = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.cbxMSEBatchNr = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.txtBatchNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtBatchNrofTransaction = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.RMC = New System.Windows.Forms.TabPage() Me.Label29 = New System.Windows.Forms.Label() - Me.cbxRMC = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.Label30 = New System.Windows.Forms.Label() Me.RMC_import = New System.Windows.Forms.LinkLabel() Me.cbxDateienlöschenRMC = New System.Windows.Forms.CheckBox() Me.TextBox2 = New System.Windows.Forms.TextBox() + Me.cbxRMC = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.UTA = New System.Windows.Forms.TabPage() Me.Label31 = New System.Windows.Forms.Label() - Me.txtUTAYear = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtUTADate = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label34 = New System.Windows.Forms.Label() Me.lblJahrUTA = New System.Windows.Forms.Label() Me.UTA_imports = New System.Windows.Forms.LinkLabel() @@ -262,21 +264,22 @@ Partial Class frmStartOptions Me.TextBox1 = New System.Windows.Forms.TextBox() Me.UTA_Laender = New System.Windows.Forms.LinkLabel() Me.lblUTAPDFvollst = New System.Windows.Forms.LinkLabel() + Me.txtUTAYear = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtUTADate = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.PLOSE = New System.Windows.Forms.TabPage() Me.LinkLabel52 = New System.Windows.Forms.LinkLabel() Me.Label5 = New System.Windows.Forms.Label() - Me.txtPloseJahr = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label52 = New System.Windows.Forms.Label() - Me.txtPLoseKdNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label51 = New System.Windows.Forms.Label() Me.LinkLabel24 = New System.Windows.Forms.LinkLabel() Me.LinkLabel23 = New System.Windows.Forms.LinkLabel() Me.Laender_Steuercode = New System.Windows.Forms.LinkLabel() Me.PlosePdfRE = New System.Windows.Forms.LinkLabel() + Me.txtPloseJahr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtPLoseKdNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.TabPage5 = New System.Windows.Forms.TabPage() Me.cbxPloseNeu = New System.Windows.Forms.CheckBox() Me.Label44 = New System.Windows.Forms.Label() - Me.txtKdNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.cbxITalt = New System.Windows.Forms.CheckBox() Me.Button23 = New System.Windows.Forms.Button() Me.cbxPlose = New System.Windows.Forms.CheckBox() @@ -292,6 +295,7 @@ Partial Class frmStartOptions Me.cbxMSEalt = New System.Windows.Forms.CheckBox() Me.cbxUTAalt = New System.Windows.Forms.CheckBox() Me.cbxUTANeu = New System.Windows.Forms.CheckBox() + Me.txtKdNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.KN8_DESTAT = New System.Windows.Forms.LinkLabel() Me.Button24 = New System.Windows.Forms.Button() Me.cbxTestFTP = New System.Windows.Forms.CheckBox() @@ -322,7 +326,6 @@ Partial Class frmStartOptions Me.txtGJ_UNISPED = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Button21 = New System.Windows.Forms.Button() Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.LinkLabel53 = New System.Windows.Forms.LinkLabel() Me.pnl.SuspendLayout() CType(Me.PictureBox24, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox23, System.ComponentModel.ISupportInitialize).BeginInit() @@ -2160,13 +2163,17 @@ Partial Class frmStartOptions ' 'TabPage3 ' + Me.TabPage3.Controls.Add(Me.cboTCAPI_Firma) + Me.TabPage3.Controls.Add(Me.cboTCAPI_Files) + Me.TabPage3.Controls.Add(Me.cboTCAPI_Call) + Me.TabPage3.Controls.Add(Me.Label50cboTCAPI_) Me.TabPage3.Controls.Add(Me.MyTextBox06) Me.TabPage3.Controls.Add(Me.CheckBox9) - Me.TabPage3.Controls.Add(Me.Label49) - Me.TabPage3.Controls.Add(Me.Button28) + Me.TabPage3.Controls.Add(Me.lblcheckopatez) + Me.TabPage3.Controls.Add(Me.checkallopenATEZ) Me.TabPage3.Controls.Add(Me.LinkLabel71) Me.TabPage3.Controls.Add(Me.cbxOverrideNCTSFin) - Me.TabPage3.Controls.Add(Me.Label48) + Me.TabPage3.Controls.Add(Me.lblTrnscodeStrich) Me.TabPage3.Controls.Add(Me.Label47) Me.TabPage3.Controls.Add(Me.LinkLabel50) Me.TabPage3.Controls.Add(Me.Label26) @@ -2183,7 +2190,7 @@ Partial Class frmStartOptions Me.TabPage3.Controls.Add(Me.LinkLabel29) Me.TabPage3.Controls.Add(Me.LinkLabel30) Me.TabPage3.Controls.Add(Me.Label11) - Me.TabPage3.Controls.Add(Me.MyTextBox5) + Me.TabPage3.Controls.Add(Me.txtCheckATEZMRN) Me.TabPage3.Controls.Add(Me.datTranscodeBis) Me.TabPage3.Controls.Add(Me.datTranscodeVon) Me.TabPage3.Location = New System.Drawing.Point(4, 22) @@ -2193,6 +2200,53 @@ Partial Class frmStartOptions Me.TabPage3.Text = "Partner-Systeme" Me.TabPage3.UseVisualStyleBackColor = True ' + 'cboTCAPI_Firma + ' + Me.cboTCAPI_Firma._allowedValuesFreiText = Nothing + Me.cboTCAPI_Firma._allowFreiText = False + Me.cboTCAPI_Firma._value = "" + Me.cboTCAPI_Firma.FormattingEnabled = True + Me.cboTCAPI_Firma.Items.AddRange(New Object() {"ALLE", "ATILLA", "IMEX", "DURMAZ"}) + Me.cboTCAPI_Firma.Location = New System.Drawing.Point(570, 381) + Me.cboTCAPI_Firma.Name = "cboTCAPI_Firma" + Me.cboTCAPI_Firma.Size = New System.Drawing.Size(88, 21) + Me.cboTCAPI_Firma.TabIndex = 152 + Me.cboTCAPI_Firma.Text = "ALLE" + ' + 'cboTCAPI_Files + ' + Me.cboTCAPI_Files.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.cboTCAPI_Files.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.cboTCAPI_Files.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.cboTCAPI_Files.Location = New System.Drawing.Point(419, 411) + Me.cboTCAPI_Files.Name = "cboTCAPI_Files" + Me.cboTCAPI_Files.Size = New System.Drawing.Size(239, 24) + Me.cboTCAPI_Files.TabIndex = 151 + Me.cboTCAPI_Files.Text = "Files hochladen und einarbeiten..." + Me.cboTCAPI_Files.UseVisualStyleBackColor = True + ' + 'cboTCAPI_Call + ' + Me.cboTCAPI_Call.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.cboTCAPI_Call.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.cboTCAPI_Call.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.cboTCAPI_Call.Location = New System.Drawing.Point(419, 381) + Me.cboTCAPI_Call.Name = "cboTCAPI_Call" + Me.cboTCAPI_Call.Size = New System.Drawing.Size(145, 24) + Me.cboTCAPI_Call.TabIndex = 150 + Me.cboTCAPI_Call.Text = "Telotec API abrufen" + Me.cboTCAPI_Call.UseVisualStyleBackColor = True + ' + 'Label50cboTCAPI_ + ' + Me.Label50cboTCAPI_.AutoSize = True + Me.Label50cboTCAPI_.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label50cboTCAPI_.Location = New System.Drawing.Point(416, 365) + Me.Label50cboTCAPI_.Name = "Label50cboTCAPI_" + Me.Label50cboTCAPI_.Size = New System.Drawing.Size(91, 13) + Me.Label50cboTCAPI_.TabIndex = 149 + Me.Label50cboTCAPI_.Text = "TELOTEC API:" + ' 'MyTextBox06 ' Me.MyTextBox06._DateTimeOnly = False @@ -2231,26 +2285,26 @@ Partial Class frmStartOptions Me.CheckBox9.Text = "mit Positionsdaten" Me.CheckBox9.UseVisualStyleBackColor = True ' - 'Label49 + 'lblcheckopatez ' - Me.Label49.AutoSize = True - Me.Label49.Location = New System.Drawing.Point(545, 328) - Me.Label49.Name = "Label49" - Me.Label49.Size = New System.Drawing.Size(10, 13) - Me.Label49.TabIndex = 139 - Me.Label49.Text = "-" + Me.lblcheckopatez.AutoSize = True + Me.lblcheckopatez.Location = New System.Drawing.Point(545, 328) + Me.lblcheckopatez.Name = "lblcheckopatez" + Me.lblcheckopatez.Size = New System.Drawing.Size(10, 13) + Me.lblcheckopatez.TabIndex = 139 + Me.lblcheckopatez.Text = "-" ' - 'Button28 + 'checkallopenATEZ ' - Me.Button28.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button28.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.Button28.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button28.Location = New System.Drawing.Point(419, 302) - Me.Button28.Name = "Button28" - Me.Button28.Size = New System.Drawing.Size(123, 39) - Me.Button28.TabIndex = 146 - Me.Button28.Text = "Check all open " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "ATEZ MRN" - Me.Button28.UseVisualStyleBackColor = True + Me.checkallopenATEZ.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.checkallopenATEZ.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.checkallopenATEZ.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.checkallopenATEZ.Location = New System.Drawing.Point(419, 302) + Me.checkallopenATEZ.Name = "checkallopenATEZ" + Me.checkallopenATEZ.Size = New System.Drawing.Size(123, 39) + Me.checkallopenATEZ.TabIndex = 146 + Me.checkallopenATEZ.Text = "Check all open " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "ATEZ MRN" + Me.checkallopenATEZ.UseVisualStyleBackColor = True ' 'LinkLabel71 ' @@ -2274,15 +2328,15 @@ Partial Class frmStartOptions Me.cbxOverrideNCTSFin.Text = "Erledigte Daten auch überschreiben" Me.cbxOverrideNCTSFin.UseVisualStyleBackColor = True ' - 'Label48 + 'lblTrnscodeStrich ' - Me.Label48.AutoSize = True - Me.Label48.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label48.Location = New System.Drawing.Point(635, 248) - Me.Label48.Name = "Label48" - Me.Label48.Size = New System.Drawing.Size(11, 13) - Me.Label48.TabIndex = 144 - Me.Label48.Text = "-" + Me.lblTrnscodeStrich.AutoSize = True + Me.lblTrnscodeStrich.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblTrnscodeStrich.Location = New System.Drawing.Point(635, 248) + Me.lblTrnscodeStrich.Name = "lblTrnscodeStrich" + Me.lblTrnscodeStrich.Size = New System.Drawing.Size(11, 13) + Me.lblTrnscodeStrich.TabIndex = 144 + Me.lblTrnscodeStrich.Text = "-" ' 'Label47 ' @@ -2454,29 +2508,29 @@ Partial Class frmStartOptions Me.Label11.TabIndex = 22 Me.Label11.Text = "MAVI Nachrichtenverarbeitung (NCTS TR):" ' - 'MyTextBox5 + 'txtCheckATEZMRN ' - Me.MyTextBox5._DateTimeOnly = False - Me.MyTextBox5._numbersOnly = False - Me.MyTextBox5._numbersOnlyKommastellen = "" - Me.MyTextBox5._numbersOnlyTrennzeichen = False - Me.MyTextBox5._Prozent = False - Me.MyTextBox5._ShortDateNew = False - Me.MyTextBox5._ShortDateOnly = False - Me.MyTextBox5._TimeOnly = False - Me.MyTextBox5._TimeOnly_Seconds = False - Me.MyTextBox5._value = "" - Me.MyTextBox5._Waehrung = False - Me.MyTextBox5._WaehrungZeichen = False - Me.MyTextBox5.ForeColor = System.Drawing.Color.Black - Me.MyTextBox5.Location = New System.Drawing.Point(548, 272) - Me.MyTextBox5.MaxLength = 18 - Me.MyTextBox5.MaxLineLength = -1 - Me.MyTextBox5.MaxLines_Warning = "" - Me.MyTextBox5.MaxLines_Warning_Label = Nothing - Me.MyTextBox5.Name = "MyTextBox5" - Me.MyTextBox5.Size = New System.Drawing.Size(185, 20) - Me.MyTextBox5.TabIndex = 139 + Me.txtCheckATEZMRN._DateTimeOnly = False + Me.txtCheckATEZMRN._numbersOnly = False + Me.txtCheckATEZMRN._numbersOnlyKommastellen = "" + Me.txtCheckATEZMRN._numbersOnlyTrennzeichen = False + Me.txtCheckATEZMRN._Prozent = False + Me.txtCheckATEZMRN._ShortDateNew = False + Me.txtCheckATEZMRN._ShortDateOnly = False + Me.txtCheckATEZMRN._TimeOnly = False + Me.txtCheckATEZMRN._TimeOnly_Seconds = False + Me.txtCheckATEZMRN._value = "" + Me.txtCheckATEZMRN._Waehrung = False + Me.txtCheckATEZMRN._WaehrungZeichen = False + Me.txtCheckATEZMRN.ForeColor = System.Drawing.Color.Black + Me.txtCheckATEZMRN.Location = New System.Drawing.Point(548, 272) + Me.txtCheckATEZMRN.MaxLength = 18 + Me.txtCheckATEZMRN.MaxLineLength = -1 + Me.txtCheckATEZMRN.MaxLines_Warning = "" + Me.txtCheckATEZMRN.MaxLines_Warning_Label = Nothing + Me.txtCheckATEZMRN.Name = "txtCheckATEZMRN" + Me.txtCheckATEZMRN.Size = New System.Drawing.Size(185, 20) + Me.txtCheckATEZMRN.TabIndex = 139 ' 'datTranscodeBis ' @@ -2782,7 +2836,6 @@ Partial Class frmStartOptions ' Me.IDS.Controls.Add(Me.IDSUpdateDAID) Me.IDS.Controls.Add(Me.Label32) - Me.IDS.Controls.Add(Me.txtIDSYear) Me.IDS.Controls.Add(Me.Label35) Me.IDS.Controls.Add(Me.IDS_import) Me.IDS.Controls.Add(Me.IDS_REDetails) @@ -2790,6 +2843,7 @@ Partial Class frmStartOptions Me.IDS.Controls.Add(Me.IDS_RE) Me.IDS.Controls.Add(Me.cbxIDSUmbenenen) Me.IDS.Controls.Add(Me.TextBox3) + Me.IDS.Controls.Add(Me.txtIDSYear) Me.IDS.Location = New System.Drawing.Point(4, 22) Me.IDS.Name = "IDS" Me.IDS.Padding = New System.Windows.Forms.Padding(3) @@ -2820,32 +2874,6 @@ Partial Class frmStartOptions Me.Label32.TabIndex = 92 Me.Label32.Text = "IDS" ' - 'txtIDSYear - ' - Me.txtIDSYear._DateTimeOnly = False - Me.txtIDSYear._numbersOnly = True - Me.txtIDSYear._numbersOnlyKommastellen = "" - Me.txtIDSYear._numbersOnlyTrennzeichen = False - Me.txtIDSYear._Prozent = False - Me.txtIDSYear._ShortDateNew = False - Me.txtIDSYear._ShortDateOnly = False - Me.txtIDSYear._TimeOnly = False - Me.txtIDSYear._TimeOnly_Seconds = False - Me.txtIDSYear._value = "" - Me.txtIDSYear._Waehrung = False - Me.txtIDSYear._WaehrungZeichen = True - Me.txtIDSYear.BackColor = System.Drawing.SystemColors.Window - Me.txtIDSYear.ForeColor = System.Drawing.Color.Red - Me.txtIDSYear.Location = New System.Drawing.Point(12, 61) - Me.txtIDSYear.MaxLength = 10 - Me.txtIDSYear.MaxLineLength = -1 - Me.txtIDSYear.MaxLines_Warning = "" - Me.txtIDSYear.MaxLines_Warning_Label = Nothing - Me.txtIDSYear.Name = "txtIDSYear" - Me.txtIDSYear.Size = New System.Drawing.Size(66, 20) - Me.txtIDSYear.TabIndex = 155 - Me.txtIDSYear.TextAlign = System.Windows.Forms.HorizontalAlignment.Center - ' 'Label35 ' Me.Label35.AutoSize = True @@ -2922,13 +2950,35 @@ Partial Class frmStartOptions Me.TextBox3.TabIndex = 154 Me.TextBox3.Text = "Dateien nach Import von FTP umbenennen" ' + 'txtIDSYear + ' + Me.txtIDSYear._DateTimeOnly = False + Me.txtIDSYear._numbersOnly = True + Me.txtIDSYear._numbersOnlyKommastellen = "" + Me.txtIDSYear._numbersOnlyTrennzeichen = False + Me.txtIDSYear._Prozent = False + Me.txtIDSYear._ShortDateNew = False + Me.txtIDSYear._ShortDateOnly = False + Me.txtIDSYear._TimeOnly = False + Me.txtIDSYear._TimeOnly_Seconds = False + Me.txtIDSYear._value = "" + Me.txtIDSYear._Waehrung = False + Me.txtIDSYear._WaehrungZeichen = True + Me.txtIDSYear.BackColor = System.Drawing.SystemColors.Window + Me.txtIDSYear.ForeColor = System.Drawing.Color.Red + Me.txtIDSYear.Location = New System.Drawing.Point(12, 61) + Me.txtIDSYear.MaxLength = 10 + Me.txtIDSYear.MaxLineLength = -1 + Me.txtIDSYear.MaxLines_Warning = "" + Me.txtIDSYear.MaxLines_Warning_Label = Nothing + Me.txtIDSYear.Name = "txtIDSYear" + Me.txtIDSYear.Size = New System.Drawing.Size(66, 20) + Me.txtIDSYear.TabIndex = 155 + Me.txtIDSYear.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' 'MSE ' Me.MSE.Controls.Add(Me.Label33) - Me.MSE.Controls.Add(Me.txtTransactionID) - Me.MSE.Controls.Add(Me.cbxMSEBatchNr) - Me.MSE.Controls.Add(Me.txtBatchNr) - Me.MSE.Controls.Add(Me.txtBatchNrofTransaction) Me.MSE.Controls.Add(Me.Label36) Me.MSE.Controls.Add(Me.MSE_Transaktions) Me.MSE.Controls.Add(Me.MSE_RE) @@ -2949,6 +2999,10 @@ Partial Class frmStartOptions Me.MSE.Controls.Add(Me.Label42) Me.MSE.Controls.Add(Me.cbxOnlyBilledTransactions) Me.MSE.Controls.Add(Me.cbxUploadDA) + Me.MSE.Controls.Add(Me.txtTransactionID) + Me.MSE.Controls.Add(Me.cbxMSEBatchNr) + Me.MSE.Controls.Add(Me.txtBatchNr) + Me.MSE.Controls.Add(Me.txtBatchNrofTransaction) Me.MSE.Location = New System.Drawing.Point(4, 22) Me.MSE.Name = "MSE" Me.MSE.Size = New System.Drawing.Size(937, 440) @@ -2967,98 +3021,6 @@ Partial Class frmStartOptions Me.Label33.TabIndex = 93 Me.Label33.Text = "MSE" ' - 'txtTransactionID - ' - Me.txtTransactionID._DateTimeOnly = False - Me.txtTransactionID._numbersOnly = True - Me.txtTransactionID._numbersOnlyKommastellen = "" - Me.txtTransactionID._numbersOnlyTrennzeichen = False - Me.txtTransactionID._Prozent = False - Me.txtTransactionID._ShortDateNew = False - Me.txtTransactionID._ShortDateOnly = False - Me.txtTransactionID._TimeOnly = False - Me.txtTransactionID._TimeOnly_Seconds = False - Me.txtTransactionID._value = "" - Me.txtTransactionID._Waehrung = False - Me.txtTransactionID._WaehrungZeichen = True - Me.txtTransactionID.BackColor = System.Drawing.SystemColors.Window - Me.txtTransactionID.ForeColor = System.Drawing.Color.Black - Me.txtTransactionID.Location = New System.Drawing.Point(41, 207) - Me.txtTransactionID.MaxLength = 10 - Me.txtTransactionID.MaxLineLength = -1 - Me.txtTransactionID.MaxLines_Warning = "" - Me.txtTransactionID.MaxLines_Warning_Label = Nothing - Me.txtTransactionID.Name = "txtTransactionID" - Me.txtTransactionID.Size = New System.Drawing.Size(85, 20) - Me.txtTransactionID.TabIndex = 115 - Me.txtTransactionID.Text = "1001723285" - Me.txtTransactionID.TextAlign = System.Windows.Forms.HorizontalAlignment.Center - ' - 'cbxMSEBatchNr - ' - Me.cbxMSEBatchNr._allowedValuesFreiText = Nothing - Me.cbxMSEBatchNr._allowFreiText = True - Me.cbxMSEBatchNr._value = "" - Me.cbxMSEBatchNr.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList - Me.cbxMSEBatchNr.DropDownWidth = 20 - Me.cbxMSEBatchNr.FormattingEnabled = True - Me.cbxMSEBatchNr.Location = New System.Drawing.Point(30, 156) - Me.cbxMSEBatchNr.Name = "cbxMSEBatchNr" - Me.cbxMSEBatchNr.Size = New System.Drawing.Size(44, 21) - Me.cbxMSEBatchNr.TabIndex = 122 - ' - 'txtBatchNr - ' - Me.txtBatchNr._DateTimeOnly = False - Me.txtBatchNr._numbersOnly = True - Me.txtBatchNr._numbersOnlyKommastellen = "" - Me.txtBatchNr._numbersOnlyTrennzeichen = False - Me.txtBatchNr._Prozent = False - Me.txtBatchNr._ShortDateNew = False - Me.txtBatchNr._ShortDateOnly = False - Me.txtBatchNr._TimeOnly = False - Me.txtBatchNr._TimeOnly_Seconds = False - Me.txtBatchNr._value = "" - Me.txtBatchNr._Waehrung = False - Me.txtBatchNr._WaehrungZeichen = True - Me.txtBatchNr.BackColor = System.Drawing.SystemColors.Window - Me.txtBatchNr.ForeColor = System.Drawing.Color.Red - Me.txtBatchNr.Location = New System.Drawing.Point(81, 156) - Me.txtBatchNr.MaxLength = 10 - Me.txtBatchNr.MaxLineLength = -1 - Me.txtBatchNr.MaxLines_Warning = "" - Me.txtBatchNr.MaxLines_Warning_Label = Nothing - Me.txtBatchNr.Name = "txtBatchNr" - Me.txtBatchNr.Size = New System.Drawing.Size(36, 20) - Me.txtBatchNr.TabIndex = 127 - Me.txtBatchNr.TextAlign = System.Windows.Forms.HorizontalAlignment.Center - ' - 'txtBatchNrofTransaction - ' - Me.txtBatchNrofTransaction._DateTimeOnly = False - Me.txtBatchNrofTransaction._numbersOnly = True - Me.txtBatchNrofTransaction._numbersOnlyKommastellen = "" - Me.txtBatchNrofTransaction._numbersOnlyTrennzeichen = False - Me.txtBatchNrofTransaction._Prozent = False - Me.txtBatchNrofTransaction._ShortDateNew = False - Me.txtBatchNrofTransaction._ShortDateOnly = False - Me.txtBatchNrofTransaction._TimeOnly = False - Me.txtBatchNrofTransaction._TimeOnly_Seconds = False - Me.txtBatchNrofTransaction._value = "" - Me.txtBatchNrofTransaction._Waehrung = False - Me.txtBatchNrofTransaction._WaehrungZeichen = True - Me.txtBatchNrofTransaction.BackColor = System.Drawing.SystemColors.Window - Me.txtBatchNrofTransaction.ForeColor = System.Drawing.Color.Red - Me.txtBatchNrofTransaction.Location = New System.Drawing.Point(177, 207) - Me.txtBatchNrofTransaction.MaxLength = 10 - Me.txtBatchNrofTransaction.MaxLineLength = -1 - Me.txtBatchNrofTransaction.MaxLines_Warning = "" - Me.txtBatchNrofTransaction.MaxLines_Warning_Label = Nothing - Me.txtBatchNrofTransaction.Name = "txtBatchNrofTransaction" - Me.txtBatchNrofTransaction.Size = New System.Drawing.Size(36, 20) - Me.txtBatchNrofTransaction.TabIndex = 129 - Me.txtBatchNrofTransaction.TextAlign = System.Windows.Forms.HorizontalAlignment.Center - ' 'Label36 ' Me.Label36.AutoSize = True @@ -3266,14 +3228,106 @@ Partial Class frmStartOptions Me.cbxUploadDA.Text = "PDF ins DS" Me.cbxUploadDA.UseVisualStyleBackColor = True ' + 'txtTransactionID + ' + Me.txtTransactionID._DateTimeOnly = False + Me.txtTransactionID._numbersOnly = True + Me.txtTransactionID._numbersOnlyKommastellen = "" + Me.txtTransactionID._numbersOnlyTrennzeichen = False + Me.txtTransactionID._Prozent = False + Me.txtTransactionID._ShortDateNew = False + Me.txtTransactionID._ShortDateOnly = False + Me.txtTransactionID._TimeOnly = False + Me.txtTransactionID._TimeOnly_Seconds = False + Me.txtTransactionID._value = "" + Me.txtTransactionID._Waehrung = False + Me.txtTransactionID._WaehrungZeichen = True + Me.txtTransactionID.BackColor = System.Drawing.SystemColors.Window + Me.txtTransactionID.ForeColor = System.Drawing.Color.Black + Me.txtTransactionID.Location = New System.Drawing.Point(41, 207) + Me.txtTransactionID.MaxLength = 10 + Me.txtTransactionID.MaxLineLength = -1 + Me.txtTransactionID.MaxLines_Warning = "" + Me.txtTransactionID.MaxLines_Warning_Label = Nothing + Me.txtTransactionID.Name = "txtTransactionID" + Me.txtTransactionID.Size = New System.Drawing.Size(85, 20) + Me.txtTransactionID.TabIndex = 115 + Me.txtTransactionID.Text = "1001723285" + Me.txtTransactionID.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'cbxMSEBatchNr + ' + Me.cbxMSEBatchNr._allowedValuesFreiText = Nothing + Me.cbxMSEBatchNr._allowFreiText = True + Me.cbxMSEBatchNr._value = "" + Me.cbxMSEBatchNr.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cbxMSEBatchNr.DropDownWidth = 20 + Me.cbxMSEBatchNr.FormattingEnabled = True + Me.cbxMSEBatchNr.Location = New System.Drawing.Point(30, 156) + Me.cbxMSEBatchNr.Name = "cbxMSEBatchNr" + Me.cbxMSEBatchNr.Size = New System.Drawing.Size(44, 21) + Me.cbxMSEBatchNr.TabIndex = 122 + ' + 'txtBatchNr + ' + Me.txtBatchNr._DateTimeOnly = False + Me.txtBatchNr._numbersOnly = True + Me.txtBatchNr._numbersOnlyKommastellen = "" + Me.txtBatchNr._numbersOnlyTrennzeichen = False + Me.txtBatchNr._Prozent = False + Me.txtBatchNr._ShortDateNew = False + Me.txtBatchNr._ShortDateOnly = False + Me.txtBatchNr._TimeOnly = False + Me.txtBatchNr._TimeOnly_Seconds = False + Me.txtBatchNr._value = "" + Me.txtBatchNr._Waehrung = False + Me.txtBatchNr._WaehrungZeichen = True + Me.txtBatchNr.BackColor = System.Drawing.SystemColors.Window + Me.txtBatchNr.ForeColor = System.Drawing.Color.Red + Me.txtBatchNr.Location = New System.Drawing.Point(81, 156) + Me.txtBatchNr.MaxLength = 10 + Me.txtBatchNr.MaxLineLength = -1 + Me.txtBatchNr.MaxLines_Warning = "" + Me.txtBatchNr.MaxLines_Warning_Label = Nothing + Me.txtBatchNr.Name = "txtBatchNr" + Me.txtBatchNr.Size = New System.Drawing.Size(36, 20) + Me.txtBatchNr.TabIndex = 127 + Me.txtBatchNr.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'txtBatchNrofTransaction + ' + Me.txtBatchNrofTransaction._DateTimeOnly = False + Me.txtBatchNrofTransaction._numbersOnly = True + Me.txtBatchNrofTransaction._numbersOnlyKommastellen = "" + Me.txtBatchNrofTransaction._numbersOnlyTrennzeichen = False + Me.txtBatchNrofTransaction._Prozent = False + Me.txtBatchNrofTransaction._ShortDateNew = False + Me.txtBatchNrofTransaction._ShortDateOnly = False + Me.txtBatchNrofTransaction._TimeOnly = False + Me.txtBatchNrofTransaction._TimeOnly_Seconds = False + Me.txtBatchNrofTransaction._value = "" + Me.txtBatchNrofTransaction._Waehrung = False + Me.txtBatchNrofTransaction._WaehrungZeichen = True + Me.txtBatchNrofTransaction.BackColor = System.Drawing.SystemColors.Window + Me.txtBatchNrofTransaction.ForeColor = System.Drawing.Color.Red + Me.txtBatchNrofTransaction.Location = New System.Drawing.Point(177, 207) + Me.txtBatchNrofTransaction.MaxLength = 10 + Me.txtBatchNrofTransaction.MaxLineLength = -1 + Me.txtBatchNrofTransaction.MaxLines_Warning = "" + Me.txtBatchNrofTransaction.MaxLines_Warning_Label = Nothing + Me.txtBatchNrofTransaction.Name = "txtBatchNrofTransaction" + Me.txtBatchNrofTransaction.Size = New System.Drawing.Size(36, 20) + Me.txtBatchNrofTransaction.TabIndex = 129 + Me.txtBatchNrofTransaction.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' 'RMC ' Me.RMC.Controls.Add(Me.Label29) - Me.RMC.Controls.Add(Me.cbxRMC) Me.RMC.Controls.Add(Me.Label30) Me.RMC.Controls.Add(Me.RMC_import) Me.RMC.Controls.Add(Me.cbxDateienlöschenRMC) Me.RMC.Controls.Add(Me.TextBox2) + Me.RMC.Controls.Add(Me.cbxRMC) Me.RMC.Location = New System.Drawing.Point(4, 22) Me.RMC.Name = "RMC" Me.RMC.Size = New System.Drawing.Size(937, 440) @@ -3292,17 +3346,6 @@ Partial Class frmStartOptions Me.Label29.TabIndex = 82 Me.Label29.Text = "RMC" ' - 'cbxRMC - ' - Me.cbxRMC._allowedValuesFreiText = Nothing - Me.cbxRMC._allowFreiText = False - Me.cbxRMC._value = "" - Me.cbxRMC.FormattingEnabled = True - Me.cbxRMC.Location = New System.Drawing.Point(14, 142) - Me.cbxRMC.Name = "cbxRMC" - Me.cbxRMC.Size = New System.Drawing.Size(80, 21) - Me.cbxRMC.TabIndex = 90 - ' 'Label30 ' Me.Label30.AutoSize = True @@ -3344,11 +3387,20 @@ Partial Class frmStartOptions Me.TextBox2.TabIndex = 101 Me.TextBox2.Text = "Dateien nach Import von FTP löschen" ' + 'cbxRMC + ' + Me.cbxRMC._allowedValuesFreiText = Nothing + Me.cbxRMC._allowFreiText = False + Me.cbxRMC._value = "" + Me.cbxRMC.FormattingEnabled = True + Me.cbxRMC.Location = New System.Drawing.Point(14, 142) + Me.cbxRMC.Name = "cbxRMC" + Me.cbxRMC.Size = New System.Drawing.Size(80, 21) + Me.cbxRMC.TabIndex = 90 + ' 'UTA ' Me.UTA.Controls.Add(Me.Label31) - Me.UTA.Controls.Add(Me.txtUTAYear) - Me.UTA.Controls.Add(Me.txtUTADate) Me.UTA.Controls.Add(Me.Label34) Me.UTA.Controls.Add(Me.lblJahrUTA) Me.UTA.Controls.Add(Me.UTA_imports) @@ -3357,6 +3409,8 @@ Partial Class frmStartOptions Me.UTA.Controls.Add(Me.TextBox1) Me.UTA.Controls.Add(Me.UTA_Laender) Me.UTA.Controls.Add(Me.lblUTAPDFvollst) + Me.UTA.Controls.Add(Me.txtUTAYear) + Me.UTA.Controls.Add(Me.txtUTADate) Me.UTA.Location = New System.Drawing.Point(4, 22) Me.UTA.Name = "UTA" Me.UTA.Size = New System.Drawing.Size(937, 440) @@ -3375,58 +3429,6 @@ Partial Class frmStartOptions Me.Label31.TabIndex = 91 Me.Label31.Text = "UTA" ' - 'txtUTAYear - ' - Me.txtUTAYear._DateTimeOnly = False - Me.txtUTAYear._numbersOnly = True - Me.txtUTAYear._numbersOnlyKommastellen = "" - Me.txtUTAYear._numbersOnlyTrennzeichen = False - Me.txtUTAYear._Prozent = False - Me.txtUTAYear._ShortDateNew = False - Me.txtUTAYear._ShortDateOnly = False - Me.txtUTAYear._TimeOnly = False - Me.txtUTAYear._TimeOnly_Seconds = False - Me.txtUTAYear._value = "" - Me.txtUTAYear._Waehrung = False - Me.txtUTAYear._WaehrungZeichen = True - Me.txtUTAYear.BackColor = System.Drawing.SystemColors.Window - Me.txtUTAYear.ForeColor = System.Drawing.Color.Red - Me.txtUTAYear.Location = New System.Drawing.Point(58, 113) - Me.txtUTAYear.MaxLength = 10 - Me.txtUTAYear.MaxLineLength = -1 - Me.txtUTAYear.MaxLines_Warning = "" - Me.txtUTAYear.MaxLines_Warning_Label = Nothing - Me.txtUTAYear.Name = "txtUTAYear" - Me.txtUTAYear.Size = New System.Drawing.Size(66, 20) - Me.txtUTAYear.TabIndex = 133 - Me.txtUTAYear.TextAlign = System.Windows.Forms.HorizontalAlignment.Center - ' - 'txtUTADate - ' - Me.txtUTADate._DateTimeOnly = False - Me.txtUTADate._numbersOnly = False - Me.txtUTADate._numbersOnlyKommastellen = "" - Me.txtUTADate._numbersOnlyTrennzeichen = False - Me.txtUTADate._Prozent = False - Me.txtUTADate._ShortDateNew = False - Me.txtUTADate._ShortDateOnly = True - Me.txtUTADate._TimeOnly = False - Me.txtUTADate._TimeOnly_Seconds = False - Me.txtUTADate._value = "" - Me.txtUTADate._Waehrung = False - Me.txtUTADate._WaehrungZeichen = True - Me.txtUTADate.BackColor = System.Drawing.SystemColors.Window - Me.txtUTADate.ForeColor = System.Drawing.Color.Red - Me.txtUTADate.Location = New System.Drawing.Point(17, 183) - Me.txtUTADate.MaxLength = 10 - Me.txtUTADate.MaxLineLength = -1 - Me.txtUTADate.MaxLines_Warning = "" - Me.txtUTADate.MaxLines_Warning_Label = Nothing - Me.txtUTADate.Name = "txtUTADate" - Me.txtUTADate.Size = New System.Drawing.Size(66, 20) - Me.txtUTADate.TabIndex = 156 - Me.txtUTADate.TextAlign = System.Windows.Forms.HorizontalAlignment.Center - ' 'Label34 ' Me.Label34.AutoSize = True @@ -3512,19 +3514,70 @@ Partial Class frmStartOptions Me.lblUTAPDFvollst.TabStop = True Me.lblUTAPDFvollst.Text = "PDF Daten vollständig" ' + 'txtUTAYear + ' + Me.txtUTAYear._DateTimeOnly = False + Me.txtUTAYear._numbersOnly = True + Me.txtUTAYear._numbersOnlyKommastellen = "" + Me.txtUTAYear._numbersOnlyTrennzeichen = False + Me.txtUTAYear._Prozent = False + Me.txtUTAYear._ShortDateNew = False + Me.txtUTAYear._ShortDateOnly = False + Me.txtUTAYear._TimeOnly = False + Me.txtUTAYear._TimeOnly_Seconds = False + Me.txtUTAYear._value = "" + Me.txtUTAYear._Waehrung = False + Me.txtUTAYear._WaehrungZeichen = True + Me.txtUTAYear.BackColor = System.Drawing.SystemColors.Window + Me.txtUTAYear.ForeColor = System.Drawing.Color.Red + Me.txtUTAYear.Location = New System.Drawing.Point(58, 113) + Me.txtUTAYear.MaxLength = 10 + Me.txtUTAYear.MaxLineLength = -1 + Me.txtUTAYear.MaxLines_Warning = "" + Me.txtUTAYear.MaxLines_Warning_Label = Nothing + Me.txtUTAYear.Name = "txtUTAYear" + Me.txtUTAYear.Size = New System.Drawing.Size(66, 20) + Me.txtUTAYear.TabIndex = 133 + Me.txtUTAYear.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'txtUTADate + ' + Me.txtUTADate._DateTimeOnly = False + Me.txtUTADate._numbersOnly = False + Me.txtUTADate._numbersOnlyKommastellen = "" + Me.txtUTADate._numbersOnlyTrennzeichen = False + Me.txtUTADate._Prozent = False + Me.txtUTADate._ShortDateNew = False + Me.txtUTADate._ShortDateOnly = True + Me.txtUTADate._TimeOnly = False + Me.txtUTADate._TimeOnly_Seconds = False + Me.txtUTADate._value = "" + Me.txtUTADate._Waehrung = False + Me.txtUTADate._WaehrungZeichen = True + Me.txtUTADate.BackColor = System.Drawing.SystemColors.Window + Me.txtUTADate.ForeColor = System.Drawing.Color.Red + Me.txtUTADate.Location = New System.Drawing.Point(17, 183) + Me.txtUTADate.MaxLength = 10 + Me.txtUTADate.MaxLineLength = -1 + Me.txtUTADate.MaxLines_Warning = "" + Me.txtUTADate.MaxLines_Warning_Label = Nothing + Me.txtUTADate.Name = "txtUTADate" + Me.txtUTADate.Size = New System.Drawing.Size(66, 20) + Me.txtUTADate.TabIndex = 156 + Me.txtUTADate.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' 'PLOSE ' - Me.PLOSE.Controls.Add(Me.LinkLabel53) Me.PLOSE.Controls.Add(Me.LinkLabel52) Me.PLOSE.Controls.Add(Me.Label5) - Me.PLOSE.Controls.Add(Me.txtPloseJahr) Me.PLOSE.Controls.Add(Me.Label52) - Me.PLOSE.Controls.Add(Me.txtPLoseKdNr) Me.PLOSE.Controls.Add(Me.Label51) Me.PLOSE.Controls.Add(Me.LinkLabel24) Me.PLOSE.Controls.Add(Me.LinkLabel23) Me.PLOSE.Controls.Add(Me.Laender_Steuercode) Me.PLOSE.Controls.Add(Me.PlosePdfRE) + Me.PLOSE.Controls.Add(Me.txtPloseJahr) + Me.PLOSE.Controls.Add(Me.txtPLoseKdNr) Me.PLOSE.Location = New System.Drawing.Point(4, 22) Me.PLOSE.Name = "PLOSE" Me.PLOSE.Size = New System.Drawing.Size(937, 440) @@ -3554,32 +3607,6 @@ Partial Class frmStartOptions Me.Label5.TabIndex = 126 Me.Label5.Text = "PLOSE" ' - 'txtPloseJahr - ' - Me.txtPloseJahr._DateTimeOnly = False - Me.txtPloseJahr._numbersOnly = True - Me.txtPloseJahr._numbersOnlyKommastellen = "" - Me.txtPloseJahr._numbersOnlyTrennzeichen = False - Me.txtPloseJahr._Prozent = False - Me.txtPloseJahr._ShortDateNew = False - Me.txtPloseJahr._ShortDateOnly = False - Me.txtPloseJahr._TimeOnly = False - Me.txtPloseJahr._TimeOnly_Seconds = False - Me.txtPloseJahr._value = "" - Me.txtPloseJahr._Waehrung = False - Me.txtPloseJahr._WaehrungZeichen = False - Me.txtPloseJahr.BackColor = System.Drawing.SystemColors.Window - Me.txtPloseJahr.ForeColor = System.Drawing.Color.Red - Me.txtPloseJahr.Location = New System.Drawing.Point(88, 111) - Me.txtPloseJahr.MaxLength = 10 - Me.txtPloseJahr.MaxLineLength = -1 - Me.txtPloseJahr.MaxLines_Warning = "" - Me.txtPloseJahr.MaxLines_Warning_Label = Nothing - Me.txtPloseJahr.Name = "txtPloseJahr" - Me.txtPloseJahr.Size = New System.Drawing.Size(66, 20) - Me.txtPloseJahr.TabIndex = 158 - Me.txtPloseJahr.TextAlign = System.Windows.Forms.HorizontalAlignment.Center - ' 'Label52 ' Me.Label52.AutoSize = True @@ -3590,32 +3617,6 @@ Partial Class frmStartOptions Me.Label52.TabIndex = 166 Me.Label52.Text = "Jahr" ' - 'txtPLoseKdNr - ' - Me.txtPLoseKdNr._DateTimeOnly = False - Me.txtPLoseKdNr._numbersOnly = True - Me.txtPLoseKdNr._numbersOnlyKommastellen = "" - Me.txtPLoseKdNr._numbersOnlyTrennzeichen = False - Me.txtPLoseKdNr._Prozent = False - Me.txtPLoseKdNr._ShortDateNew = False - Me.txtPLoseKdNr._ShortDateOnly = False - Me.txtPLoseKdNr._TimeOnly = False - Me.txtPLoseKdNr._TimeOnly_Seconds = False - Me.txtPLoseKdNr._value = "" - Me.txtPLoseKdNr._Waehrung = False - Me.txtPLoseKdNr._WaehrungZeichen = False - Me.txtPLoseKdNr.BackColor = System.Drawing.SystemColors.Window - Me.txtPLoseKdNr.ForeColor = System.Drawing.Color.Red - Me.txtPLoseKdNr.Location = New System.Drawing.Point(88, 134) - Me.txtPLoseKdNr.MaxLength = 10 - Me.txtPLoseKdNr.MaxLineLength = -1 - Me.txtPLoseKdNr.MaxLines_Warning = "" - Me.txtPLoseKdNr.MaxLines_Warning_Label = Nothing - Me.txtPLoseKdNr.Name = "txtPLoseKdNr" - Me.txtPLoseKdNr.Size = New System.Drawing.Size(66, 20) - Me.txtPLoseKdNr.TabIndex = 162 - Me.txtPLoseKdNr.TextAlign = System.Windows.Forms.HorizontalAlignment.Center - ' 'Label51 ' Me.Label51.AutoSize = True @@ -3669,11 +3670,62 @@ Partial Class frmStartOptions Me.PlosePdfRE.TabStop = True Me.PlosePdfRE.Text = "PDF mit RE verknüpfen" ' + 'txtPloseJahr + ' + Me.txtPloseJahr._DateTimeOnly = False + Me.txtPloseJahr._numbersOnly = True + Me.txtPloseJahr._numbersOnlyKommastellen = "" + Me.txtPloseJahr._numbersOnlyTrennzeichen = False + Me.txtPloseJahr._Prozent = False + Me.txtPloseJahr._ShortDateNew = False + Me.txtPloseJahr._ShortDateOnly = False + Me.txtPloseJahr._TimeOnly = False + Me.txtPloseJahr._TimeOnly_Seconds = False + Me.txtPloseJahr._value = "" + Me.txtPloseJahr._Waehrung = False + Me.txtPloseJahr._WaehrungZeichen = False + Me.txtPloseJahr.BackColor = System.Drawing.SystemColors.Window + Me.txtPloseJahr.ForeColor = System.Drawing.Color.Red + Me.txtPloseJahr.Location = New System.Drawing.Point(88, 111) + Me.txtPloseJahr.MaxLength = 10 + Me.txtPloseJahr.MaxLineLength = -1 + Me.txtPloseJahr.MaxLines_Warning = "" + Me.txtPloseJahr.MaxLines_Warning_Label = Nothing + Me.txtPloseJahr.Name = "txtPloseJahr" + Me.txtPloseJahr.Size = New System.Drawing.Size(66, 20) + Me.txtPloseJahr.TabIndex = 158 + Me.txtPloseJahr.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'txtPLoseKdNr + ' + Me.txtPLoseKdNr._DateTimeOnly = False + Me.txtPLoseKdNr._numbersOnly = True + Me.txtPLoseKdNr._numbersOnlyKommastellen = "" + Me.txtPLoseKdNr._numbersOnlyTrennzeichen = False + Me.txtPLoseKdNr._Prozent = False + Me.txtPLoseKdNr._ShortDateNew = False + Me.txtPLoseKdNr._ShortDateOnly = False + Me.txtPLoseKdNr._TimeOnly = False + Me.txtPLoseKdNr._TimeOnly_Seconds = False + Me.txtPLoseKdNr._value = "" + Me.txtPLoseKdNr._Waehrung = False + Me.txtPLoseKdNr._WaehrungZeichen = False + Me.txtPLoseKdNr.BackColor = System.Drawing.SystemColors.Window + Me.txtPLoseKdNr.ForeColor = System.Drawing.Color.Red + Me.txtPLoseKdNr.Location = New System.Drawing.Point(88, 134) + Me.txtPLoseKdNr.MaxLength = 10 + Me.txtPLoseKdNr.MaxLineLength = -1 + Me.txtPLoseKdNr.MaxLines_Warning = "" + Me.txtPLoseKdNr.MaxLines_Warning_Label = Nothing + Me.txtPLoseKdNr.Name = "txtPLoseKdNr" + Me.txtPLoseKdNr.Size = New System.Drawing.Size(66, 20) + Me.txtPLoseKdNr.TabIndex = 162 + Me.txtPLoseKdNr.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' 'TabPage5 ' Me.TabPage5.Controls.Add(Me.cbxPloseNeu) Me.TabPage5.Controls.Add(Me.Label44) - Me.TabPage5.Controls.Add(Me.txtKdNr) Me.TabPage5.Controls.Add(Me.cbxITalt) Me.TabPage5.Controls.Add(Me.Button23) Me.TabPage5.Controls.Add(Me.cbxPlose) @@ -3689,6 +3741,7 @@ Partial Class frmStartOptions Me.TabPage5.Controls.Add(Me.cbxMSEalt) Me.TabPage5.Controls.Add(Me.cbxUTAalt) Me.TabPage5.Controls.Add(Me.cbxUTANeu) + Me.TabPage5.Controls.Add(Me.txtKdNr) Me.TabPage5.Location = New System.Drawing.Point(4, 22) Me.TabPage5.Name = "TabPage5" Me.TabPage5.Size = New System.Drawing.Size(937, 440) @@ -3720,30 +3773,6 @@ Partial Class frmStartOptions Me.Label44.TabIndex = 145 Me.Label44.Text = "USTVA-Summen berechnen (MDM)" ' - 'txtKdNr - ' - Me.txtKdNr._DateTimeOnly = False - Me.txtKdNr._numbersOnly = True - Me.txtKdNr._numbersOnlyKommastellen = "" - Me.txtKdNr._numbersOnlyTrennzeichen = False - Me.txtKdNr._Prozent = False - Me.txtKdNr._ShortDateNew = False - Me.txtKdNr._ShortDateOnly = False - Me.txtKdNr._TimeOnly = False - Me.txtKdNr._TimeOnly_Seconds = False - Me.txtKdNr._value = "" - Me.txtKdNr._Waehrung = False - Me.txtKdNr._WaehrungZeichen = True - Me.txtKdNr.ForeColor = System.Drawing.Color.Black - Me.txtKdNr.Location = New System.Drawing.Point(77, 69) - Me.txtKdNr.MaxLength = 50 - Me.txtKdNr.MaxLineLength = -1 - Me.txtKdNr.MaxLines_Warning = "" - Me.txtKdNr.MaxLines_Warning_Label = Nothing - Me.txtKdNr.Name = "txtKdNr" - Me.txtKdNr.Size = New System.Drawing.Size(136, 20) - Me.txtKdNr.TabIndex = 95 - ' 'cbxITalt ' Me.cbxITalt.AutoSize = True @@ -3926,6 +3955,30 @@ Partial Class frmStartOptions Me.cbxUTANeu.Text = "UTA" Me.cbxUTANeu.UseVisualStyleBackColor = True ' + 'txtKdNr + ' + Me.txtKdNr._DateTimeOnly = False + Me.txtKdNr._numbersOnly = True + Me.txtKdNr._numbersOnlyKommastellen = "" + Me.txtKdNr._numbersOnlyTrennzeichen = False + Me.txtKdNr._Prozent = False + Me.txtKdNr._ShortDateNew = False + Me.txtKdNr._ShortDateOnly = False + Me.txtKdNr._TimeOnly = False + Me.txtKdNr._TimeOnly_Seconds = False + Me.txtKdNr._value = "" + Me.txtKdNr._Waehrung = False + Me.txtKdNr._WaehrungZeichen = True + Me.txtKdNr.ForeColor = System.Drawing.Color.Black + Me.txtKdNr.Location = New System.Drawing.Point(77, 69) + Me.txtKdNr.MaxLength = 50 + Me.txtKdNr.MaxLineLength = -1 + Me.txtKdNr.MaxLines_Warning = "" + Me.txtKdNr.MaxLines_Warning_Label = Nothing + Me.txtKdNr.Name = "txtKdNr" + Me.txtKdNr.Size = New System.Drawing.Size(136, 20) + Me.txtKdNr.TabIndex = 95 + ' 'KN8_DESTAT ' Me.KN8_DESTAT.AutoSize = True @@ -4288,16 +4341,6 @@ Partial Class frmStartOptions Me.DataGridViewTextBoxColumn1.MinimumWidth = 8 Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1" ' - 'LinkLabel53 - ' - Me.LinkLabel53.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.LinkLabel53.Location = New System.Drawing.Point(24, 221) - Me.LinkLabel53.Name = "LinkLabel53" - Me.LinkLabel53.Size = New System.Drawing.Size(156, 23) - Me.LinkLabel53.TabIndex = 169 - Me.LinkLabel53.TabStop = True - Me.LinkLabel53.Text = "USTVA-Pos prüfen/setzen (archiv.)" - ' 'frmStartOptions ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) @@ -4631,7 +4674,7 @@ Partial Class frmStartOptions Friend WithEvents PictureBox26 As PictureBox Friend WithEvents Laender_Steuercode As LinkLabel Friend WithEvents IDS_RE As LinkLabel - Friend WithEvents Label48 As Label + Friend WithEvents lblTrnscodeStrich As Label Friend WithEvents datTranscodeBis As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents datTranscodeVon As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents Label47 As Label @@ -4644,9 +4687,9 @@ Partial Class frmStartOptions Friend WithEvents lblUTAPDFvollst As LinkLabel Friend WithEvents txtUTADate As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents LinkLabel71 As LinkLabel - Friend WithEvents MyTextBox5 As VERAG_PROG_ALLGEMEIN.MyTextBox - Friend WithEvents Button28 As Button - Friend WithEvents Label49 As Label + Friend WithEvents txtCheckATEZMRN As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents checkallopenATEZ As Button + Friend WithEvents lblcheckopatez As Label Friend WithEvents CheckBox9 As CheckBox Friend WithEvents PlosePdfRE As LinkLabel Friend WithEvents txtPloseJahr As VERAG_PROG_ALLGEMEIN.MyTextBox @@ -4668,5 +4711,8 @@ Partial Class frmStartOptions Friend WithEvents UTA As TabPage Friend WithEvents PLOSE As TabPage Friend WithEvents TabPage5 As TabPage - Friend WithEvents LinkLabel53 As LinkLabel + Friend WithEvents Label50cboTCAPI_ As Label + Friend WithEvents cboTCAPI_Files As Button + Friend WithEvents cboTCAPI_Call As Button + Friend WithEvents cboTCAPI_Firma As VERAG_PROG_ALLGEMEIN.MyComboBox End Class diff --git a/initATLASAufschubkonten/frmStartOptions.resx b/initATLASAufschubkonten/frmStartOptions.resx index 8da457c..5d9bc21 100644 --- a/initATLASAufschubkonten/frmStartOptions.resx +++ b/initATLASAufschubkonten/frmStartOptions.resx @@ -212,6 +212,102 @@ +z1oZ9B6syqzaGEdYX5mdmYqt4qgQDVINcVjocfByBORr63brCulbaW10NVQHYibiNsHbQ+6L24q7oAu RxPAxs8mJG4iDmp1USehIAMuLi4GeXl5NlNTU347OzsRe3t7UWRsZ2cnbG5uzicrK8vKxcVFXOmCD0hK SjJ6enoK1NXVqU6aNMlg2rRpxsh48uTJus3NzYqurq68EhISJGd6ADkzAttxL7feAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABGdJREFUSEtj + YKAyYOFk4Za0knSzzrXOd8x2jJeUlGRgZ2dHV0YFwMjAKKInomlUYJRl32e/wn+Z/0Gf2T4L9eP1rQRV + BQWZ2JnQdVAGBNQEFI2KjHLCj4Qfjz0f+zX+Uvz/iKMR9z2XeU7USdNxENYVFmZkYWRE10c2sGqyKgg/ + FH4s7mLcPxAGWQhjR5+Pnm5Wa+bAxs/Ggq6PbODQ77Aw5mzMO5BF6DjuYtzDoB1BU5ynO9uh6yMZcIpy + Sin5KsX5rva9gMWiP3EX4354LPDYb9VkVWpSZmKIrp8kwMrDyifnLBcUtCPoYfSp6G9oln2PPh39InRf + 6EXVYNUYLjEuCXT9JAMFT4UI5+nO22POxPyMuxD3F83CK/4b/CdoJ2hb8CnwiTIyM5Iff8yczNxSVlJu + Nm02i8P2h72EJRKwRRfifsScibnts9Kn0yjfyIZfkZ+bhZOFGd0MkgC7ALuIXppeDXq8xZ6L/Rl+MPyR + 2xy3iXpperai+qLUyfG4LIw8GvnGY57HVnFDcTk2bjZ0beQBHikeeWV/5QTvpd4nI49FfoRZFnM+5rdd + j91KEV0REzY+Ng5GZgJ5nJmDmZtPgU9dwUPBUsZeRoNLgosNXRO7ILsIOKFMdd4adTzqE7Lv/Pf6b9JM + 1wxB0YALgFIQrxyvmlacVrHfer/prnNccxW9FWXZBdhZGZCKQEENQUOzKrMpaKnxR9zFuOeWMyy9JDwl + WJHNxQk4xTilVAJVkkP2hjyLPhP9NvJE5C7PJZ7J4ibikqw8rPDkjMPCazEXYorkveWVWHiISPnMHMxc + qsGqKe7z3Q+Cy75LcSBDXkQcjdjuMMEhStJKUo6JlYmVlZdVQD9Lv8F3je9FeKq8EHvZf5N/j26Grg6P + LA8PutlYgYKbQqjzVOdtyK6GuvxD7IXYlea15v5ixmISXBJcsm5z3PZC5X7FXYx7Grg9cKpZlZkzuxA7 + GxMrE4FUAgXIpTuahWDxmPMx011mudiiWQhyzBKzSjMvQQ1BXnQz8QJpG2lPZX/lKMs6y464i3H34y/F + g+syJIsfhh8KPw6yLPxQ+GuQWOSRyNc27Tbd0rbSZizcZJQibHxsvBImEsamFaaVrjNdNwXvDH6A7mMY + BlnqNtttj5yrXDAosaGbRTKQdZYNsOu2WxZ9MvpD3IW43/GX4hHl5MW4n75rfI/pZ+kXsouwC6HrJQuw + cLPwKngqeLvPc18adTLqRfyl+F9IFt73We0zQTdd14BdkIotI25JbgkZBxkHtVC1JLc5brtjz8f+jL0Q + +z1oZ9B6syqzaGEdYX5mdmYqt4qgQDVINcVjocfByBORr63brCulbaW10NVQHYibiNsHbQ+6L24q7oAu + RxPAxs8mJG4iDmp1USehIAMuLi4GeXl5NlNTU347OzsRe3t7UWRsZ2cnbG5uzicrK8vKxcVFXOmCD0hK + SjJ6enoK1NXVqU6aNMlg2rRpxsh48uTJus3NzYqurq68EhISJGd6ADkzAttxL7feAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABGdJREFUSEtj + YKAyYOFk4Za0knSzzrXOd8x2jJeUlGRgZ2dHV0YFwMjAKKInomlUYJRl32e/wn+Z/0Gf2T4L9eP1rQRV + BQWZ2JnQdVAGBNQEFI2KjHLCj4Qfjz0f+zX+Uvz/iKMR9z2XeU7USdNxENYVFmZkYWRE10c2sGqyKgg/ + FH4s7mLcPxAGWQhjR5+Pnm5Wa+bAxs/Ggq6PbODQ77Aw5mzMO5BF6DjuYtzDoB1BU5ynO9uh6yMZcIpy + Sin5KsX5rva9gMWiP3EX4354LPDYb9VkVWpSZmKIrp8kwMrDyifnLBcUtCPoYfSp6G9oln2PPh39InRf + 6EXVYNUYLjEuCXT9JAMFT4UI5+nO22POxPyMuxD3F83CK/4b/CdoJ2hb8CnwiTIyM5Iff8yczNxSVlJu + Nm02i8P2h72EJRKwRRfifsScibnts9Kn0yjfyIZfkZ+bhZOFGd0MkgC7ALuIXppeDXq8xZ6L/Rl+MPyR + 2xy3iXpperai+qLUyfG4LIw8GvnGY57HVnFDcTk2bjZ0beQBHikeeWV/5QTvpd4nI49FfoRZFnM+5rdd + j91KEV0REzY+Ng5GZgJ5nJmDmZtPgU9dwUPBUsZeRoNLgosNXRO7ILsIOKFMdd4adTzqE7Lv/Pf6b9JM + 1wxB0YALgFIQrxyvmlacVrHfer/prnNccxW9FWXZBdhZGZCKQEENQUOzKrMpaKnxR9zFuOeWMyy9JDwl + WJHNxQk4xTilVAJVkkP2hjyLPhP9NvJE5C7PJZ7J4ibikqw8rPDkjMPCazEXYorkveWVWHiISPnMHMxc + qsGqKe7z3Q+Cy75LcSBDXkQcjdjuMMEhStJKUo6JlYmVlZdVQD9Lv8F3je9FeKq8EHvZf5N/j26Grg6P + LA8PutlYgYKbQqjzVOdtyK6GuvxD7IXYlea15v5ixmISXBJcsm5z3PZC5X7FXYx7Grg9cKpZlZkzuxA7 + GxMrE4FUAgXIpTuahWDxmPMx011mudiiWQhyzBKzSjMvQQ1BXnQz8QJpG2lPZX/lKMs6y464i3H34y/F + g+syJIsfhh8KPw6yLPxQ+GuQWOSRyNc27Tbd0rbSZizcZJQibHxsvBImEsamFaaVrjNdNwXvDH6A7mMY + BlnqNtttj5yrXDAosaGbRTKQdZYNsOu2WxZ9MvpD3IW43/GX4hHl5MW4n75rfI/pZ+kXsouwC6HrJQuw + cLPwKngqeLvPc18adTLqRfyl+F9IFt73We0zQTdd14BdkIotI25JbgkZBxkHtVC1JLc5brtjz8f+jL0Q + +z1oZ9B6syqzaGEdYX5mdmYqt4qgQDVINcVjocfByBORr63brCulbaW10NVQHYibiNsHbQ+6L24q7oAu + RxPAxs8mJG4iDmp1USehIAMuLi4GeXl5NlNTU347OzsRe3t7UWRsZ2cnbG5uzicrK8vKxcVFXOmCD0hK + SjJ6enoK1NXVqU6aNMlg2rRpxsh48uTJus3NzYqurq68EhISJGd6ADkzAttxL7feAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABGdJREFUSEtj + YKAyYOFk4Za0knSzzrXOd8x2jJeUlGRgZ2dHV0YFwMjAKKInomlUYJRl32e/wn+Z/0Gf2T4L9eP1rQRV + BQWZ2JnQdVAGBNQEFI2KjHLCj4Qfjz0f+zX+Uvz/iKMR9z2XeU7USdNxENYVFmZkYWRE10c2sGqyKgg/ + FH4s7mLcPxAGWQhjR5+Pnm5Wa+bAxs/Ggq6PbODQ77Aw5mzMO5BF6DjuYtzDoB1BU5ynO9uh6yMZcIpy + Sin5KsX5rva9gMWiP3EX4354LPDYb9VkVWpSZmKIrp8kwMrDyifnLBcUtCPoYfSp6G9oln2PPh39InRf + 6EXVYNUYLjEuCXT9JAMFT4UI5+nO22POxPyMuxD3F83CK/4b/CdoJ2hb8CnwiTIyM5Iff8yczNxSVlJu + Nm02i8P2h72EJRKwRRfifsScibnts9Kn0yjfyIZfkZ+bhZOFGd0MkgC7ALuIXppeDXq8xZ6L/Rl+MPyR + 2xy3iXpperai+qLUyfG4LIw8GvnGY57HVnFDcTk2bjZ0beQBHikeeWV/5QTvpd4nI49FfoRZFnM+5rdd + j91KEV0REzY+Ng5GZgJ5nJmDmZtPgU9dwUPBUsZeRoNLgosNXRO7ILsIOKFMdd4adTzqE7Lv/Pf6b9JM + 1wxB0YALgFIQrxyvmlacVrHfer/prnNccxW9FWXZBdhZGZCKQEENQUOzKrMpaKnxR9zFuOeWMyy9JDwl + WJHNxQk4xTilVAJVkkP2hjyLPhP9NvJE5C7PJZ7J4ibikqw8rPDkjMPCazEXYorkveWVWHiISPnMHMxc + qsGqKe7z3Q+Cy75LcSBDXkQcjdjuMMEhStJKUo6JlYmVlZdVQD9Lv8F3je9FeKq8EHvZf5N/j26Grg6P + LA8PutlYgYKbQqjzVOdtyK6GuvxD7IXYlea15v5ixmISXBJcsm5z3PZC5X7FXYx7Grg9cKpZlZkzuxA7 + GxMrE4FUAgXIpTuahWDxmPMx011mudiiWQhyzBKzSjMvQQ1BXnQz8QJpG2lPZX/lKMs6y464i3H34y/F + g+syJIsfhh8KPw6yLPxQ+GuQWOSRyNc27Tbd0rbSZizcZJQibHxsvBImEsamFaaVrjNdNwXvDH6A7mMY + BlnqNtttj5yrXDAosaGbRTKQdZYNsOu2WxZ9MvpD3IW43/GX4hHl5MW4n75rfI/pZ+kXsouwC6HrJQuw + cLPwKngqeLvPc18adTLqRfyl+F9IFt73We0zQTdd14BdkIotI25JbgkZBxkHtVC1JLc5brtjz8f+jL0Q + +z1oZ9B6syqzaGEdYX5mdmYqt4qgQDVINcVjocfByBORr63brCulbaW10NVQHYibiNsHbQ+6L24q7oAu + RxPAxs8mJG4iDmp1USehIAMuLi4GeXl5NlNTU347OzsRe3t7UWRsZ2cnbG5uzicrK8vKxcVFXOmCD0hK + SjJ6enoK1NXVqU6aNMlg2rRpxsh48uTJus3NzYqurq68EhISJGd6ADkzAttxL7feAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABGdJREFUSEtj + YKAyYOFk4Za0knSzzrXOd8x2jJeUlGRgZ2dHV0YFwMjAKKInomlUYJRl32e/wn+Z/0Gf2T4L9eP1rQRV + BQWZ2JnQdVAGBNQEFI2KjHLCj4Qfjz0f+zX+Uvz/iKMR9z2XeU7USdNxENYVFmZkYWRE10c2sGqyKgg/ + FH4s7mLcPxAGWQhjR5+Pnm5Wa+bAxs/Ggq6PbODQ77Aw5mzMO5BF6DjuYtzDoB1BU5ynO9uh6yMZcIpy + Sin5KsX5rva9gMWiP3EX4354LPDYb9VkVWpSZmKIrp8kwMrDyifnLBcUtCPoYfSp6G9oln2PPh39InRf + 6EXVYNUYLjEuCXT9JAMFT4UI5+nO22POxPyMuxD3F83CK/4b/CdoJ2hb8CnwiTIyM5Iff8yczNxSVlJu + Nm02i8P2h72EJRKwRRfifsScibnts9Kn0yjfyIZfkZ+bhZOFGd0MkgC7ALuIXppeDXq8xZ6L/Rl+MPyR + 2xy3iXpperai+qLUyfG4LIw8GvnGY57HVnFDcTk2bjZ0beQBHikeeWV/5QTvpd4nI49FfoRZFnM+5rdd + j91KEV0REzY+Ng5GZgJ5nJmDmZtPgU9dwUPBUsZeRoNLgosNXRO7ILsIOKFMdd4adTzqE7Lv/Pf6b9JM + 1wxB0YALgFIQrxyvmlacVrHfer/prnNccxW9FWXZBdhZGZCKQEENQUOzKrMpaKnxR9zFuOeWMyy9JDwl + WJHNxQk4xTilVAJVkkP2hjyLPhP9NvJE5C7PJZ7J4ibikqw8rPDkjMPCazEXYorkveWVWHiISPnMHMxc + qsGqKe7z3Q+Cy75LcSBDXkQcjdjuMMEhStJKUo6JlYmVlZdVQD9Lv8F3je9FeKq8EHvZf5N/j26Grg6P + LA8PutlYgYKbQqjzVOdtyK6GuvxD7IXYlea15v5ixmISXBJcsm5z3PZC5X7FXYx7Grg9cKpZlZkzuxA7 + GxMrE4FUAgXIpTuahWDxmPMx011mudiiWQhyzBKzSjMvQQ1BXnQz8QJpG2lPZX/lKMs6y464i3H34y/F + g+syJIsfhh8KPw6yLPxQ+GuQWOSRyNc27Tbd0rbSZizcZJQibHxsvBImEsamFaaVrjNdNwXvDH6A7mMY + BlnqNtttj5yrXDAosaGbRTKQdZYNsOu2WxZ9MvpD3IW43/GX4hHl5MW4n75rfI/pZ+kXsouwC6HrJQuw + cLPwKngqeLvPc18adTLqRfyl+F9IFt73We0zQTdd14BdkIotI25JbgkZBxkHtVC1JLc5brtjz8f+jL0Q + +z1oZ9B6syqzaGEdYX5mdmYqt4qgQDVINcVjocfByBORr63brCulbaW10NVQHYibiNsHbQ+6L24q7oAu + RxPAxs8mJG4iDmp1USehIAMuLi4GeXl5NlNTU347OzsRe3t7UWRsZ2cnbG5uzicrK8vKxcVFXOmCD0hK + SjJ6enoK1NXVqU6aNMlg2rRpxsh48uTJus3NzYqurq68EhISJGd6ADkzAttxL7feAAAAAElFTkSuQmCC @@ -625,6 +721,9 @@ True + + True + iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABGdJREFUSEtj @@ -719,102 +818,6 @@ +z1oZ9B6syqzaGEdYX5mdmYqt4qgQDVINcVjocfByBORr63brCulbaW10NVQHYibiNsHbQ+6L24q7oAu RxPAxs8mJG4iDmp1USehIAMuLi4GeXl5NlNTU347OzsRe3t7UWRsZ2cnbG5uzicrK8vKxcVFXOmCD0hK SjJ6enoK1NXVqU6aNMlg2rRpxsh48uTJus3NzYqurq68EhISJGd6ADkzAttxL7feAAAAAElFTkSuQmCC - - - - - iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABGdJREFUSEtj - YKAyYOFk4Za0knSzzrXOd8x2jJeUlGRgZ2dHV0YFwMjAKKInomlUYJRl32e/wn+Z/0Gf2T4L9eP1rQRV - BQWZ2JnQdVAGBNQEFI2KjHLCj4Qfjz0f+zX+Uvz/iKMR9z2XeU7USdNxENYVFmZkYWRE10c2sGqyKgg/ - FH4s7mLcPxAGWQhjR5+Pnm5Wa+bAxs/Ggq6PbODQ77Aw5mzMO5BF6DjuYtzDoB1BU5ynO9uh6yMZcIpy - Sin5KsX5rva9gMWiP3EX4354LPDYb9VkVWpSZmKIrp8kwMrDyifnLBcUtCPoYfSp6G9oln2PPh39InRf - 6EXVYNUYLjEuCXT9JAMFT4UI5+nO22POxPyMuxD3F83CK/4b/CdoJ2hb8CnwiTIyM5Iff8yczNxSVlJu - Nm02i8P2h72EJRKwRRfifsScibnts9Kn0yjfyIZfkZ+bhZOFGd0MkgC7ALuIXppeDXq8xZ6L/Rl+MPyR - 2xy3iXpperai+qLUyfG4LIw8GvnGY57HVnFDcTk2bjZ0beQBHikeeWV/5QTvpd4nI49FfoRZFnM+5rdd - j91KEV0REzY+Ng5GZgJ5nJmDmZtPgU9dwUPBUsZeRoNLgosNXRO7ILsIOKFMdd4adTzqE7Lv/Pf6b9JM - 1wxB0YALgFIQrxyvmlacVrHfer/prnNccxW9FWXZBdhZGZCKQEENQUOzKrMpaKnxR9zFuOeWMyy9JDwl - WJHNxQk4xTilVAJVkkP2hjyLPhP9NvJE5C7PJZ7J4ibikqw8rPDkjMPCazEXYorkveWVWHiISPnMHMxc - qsGqKe7z3Q+Cy75LcSBDXkQcjdjuMMEhStJKUo6JlYmVlZdVQD9Lv8F3je9FeKq8EHvZf5N/j26Grg6P - LA8PutlYgYKbQqjzVOdtyK6GuvxD7IXYlea15v5ixmISXBJcsm5z3PZC5X7FXYx7Grg9cKpZlZkzuxA7 - GxMrE4FUAgXIpTuahWDxmPMx011mudiiWQhyzBKzSjMvQQ1BXnQz8QJpG2lPZX/lKMs6y464i3H34y/F - g+syJIsfhh8KPw6yLPxQ+GuQWOSRyNc27Tbd0rbSZizcZJQibHxsvBImEsamFaaVrjNdNwXvDH6A7mMY - BlnqNtttj5yrXDAosaGbRTKQdZYNsOu2WxZ9MvpD3IW43/GX4hHl5MW4n75rfI/pZ+kXsouwC6HrJQuw - cLPwKngqeLvPc18adTLqRfyl+F9IFt73We0zQTdd14BdkIotI25JbgkZBxkHtVC1JLc5brtjz8f+jL0Q - +z1oZ9B6syqzaGEdYX5mdmYqt4qgQDVINcVjocfByBORr63brCulbaW10NVQHYibiNsHbQ+6L24q7oAu - RxPAxs8mJG4iDmp1USehIAMuLi4GeXl5NlNTU347OzsRe3t7UWRsZ2cnbG5uzicrK8vKxcVFXOmCD0hK - SjJ6enoK1NXVqU6aNMlg2rRpxsh48uTJus3NzYqurq68EhISJGd6ADkzAttxL7feAAAAAElFTkSuQmCC - - - - - iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABGdJREFUSEtj - YKAyYOFk4Za0knSzzrXOd8x2jJeUlGRgZ2dHV0YFwMjAKKInomlUYJRl32e/wn+Z/0Gf2T4L9eP1rQRV - BQWZ2JnQdVAGBNQEFI2KjHLCj4Qfjz0f+zX+Uvz/iKMR9z2XeU7USdNxENYVFmZkYWRE10c2sGqyKgg/ - FH4s7mLcPxAGWQhjR5+Pnm5Wa+bAxs/Ggq6PbODQ77Aw5mzMO5BF6DjuYtzDoB1BU5ynO9uh6yMZcIpy - Sin5KsX5rva9gMWiP3EX4354LPDYb9VkVWpSZmKIrp8kwMrDyifnLBcUtCPoYfSp6G9oln2PPh39InRf - 6EXVYNUYLjEuCXT9JAMFT4UI5+nO22POxPyMuxD3F83CK/4b/CdoJ2hb8CnwiTIyM5Iff8yczNxSVlJu - Nm02i8P2h72EJRKwRRfifsScibnts9Kn0yjfyIZfkZ+bhZOFGd0MkgC7ALuIXppeDXq8xZ6L/Rl+MPyR - 2xy3iXpperai+qLUyfG4LIw8GvnGY57HVnFDcTk2bjZ0beQBHikeeWV/5QTvpd4nI49FfoRZFnM+5rdd - j91KEV0REzY+Ng5GZgJ5nJmDmZtPgU9dwUPBUsZeRoNLgosNXRO7ILsIOKFMdd4adTzqE7Lv/Pf6b9JM - 1wxB0YALgFIQrxyvmlacVrHfer/prnNccxW9FWXZBdhZGZCKQEENQUOzKrMpaKnxR9zFuOeWMyy9JDwl - WJHNxQk4xTilVAJVkkP2hjyLPhP9NvJE5C7PJZ7J4ibikqw8rPDkjMPCazEXYorkveWVWHiISPnMHMxc - qsGqKe7z3Q+Cy75LcSBDXkQcjdjuMMEhStJKUo6JlYmVlZdVQD9Lv8F3je9FeKq8EHvZf5N/j26Grg6P - LA8PutlYgYKbQqjzVOdtyK6GuvxD7IXYlea15v5ixmISXBJcsm5z3PZC5X7FXYx7Grg9cKpZlZkzuxA7 - GxMrE4FUAgXIpTuahWDxmPMx011mudiiWQhyzBKzSjMvQQ1BXnQz8QJpG2lPZX/lKMs6y464i3H34y/F - g+syJIsfhh8KPw6yLPxQ+GuQWOSRyNc27Tbd0rbSZizcZJQibHxsvBImEsamFaaVrjNdNwXvDH6A7mMY - BlnqNtttj5yrXDAosaGbRTKQdZYNsOu2WxZ9MvpD3IW43/GX4hHl5MW4n75rfI/pZ+kXsouwC6HrJQuw - cLPwKngqeLvPc18adTLqRfyl+F9IFt73We0zQTdd14BdkIotI25JbgkZBxkHtVC1JLc5brtjz8f+jL0Q - +z1oZ9B6syqzaGEdYX5mdmYqt4qgQDVINcVjocfByBORr63brCulbaW10NVQHYibiNsHbQ+6L24q7oAu - RxPAxs8mJG4iDmp1USehIAMuLi4GeXl5NlNTU347OzsRe3t7UWRsZ2cnbG5uzicrK8vKxcVFXOmCD0hK - SjJ6enoK1NXVqU6aNMlg2rRpxsh48uTJus3NzYqurq68EhISJGd6ADkzAttxL7feAAAAAElFTkSuQmCC - - - - - iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABGdJREFUSEtj - YKAyYOFk4Za0knSzzrXOd8x2jJeUlGRgZ2dHV0YFwMjAKKInomlUYJRl32e/wn+Z/0Gf2T4L9eP1rQRV - BQWZ2JnQdVAGBNQEFI2KjHLCj4Qfjz0f+zX+Uvz/iKMR9z2XeU7USdNxENYVFmZkYWRE10c2sGqyKgg/ - FH4s7mLcPxAGWQhjR5+Pnm5Wa+bAxs/Ggq6PbODQ77Aw5mzMO5BF6DjuYtzDoB1BU5ynO9uh6yMZcIpy - Sin5KsX5rva9gMWiP3EX4354LPDYb9VkVWpSZmKIrp8kwMrDyifnLBcUtCPoYfSp6G9oln2PPh39InRf - 6EXVYNUYLjEuCXT9JAMFT4UI5+nO22POxPyMuxD3F83CK/4b/CdoJ2hb8CnwiTIyM5Iff8yczNxSVlJu - Nm02i8P2h72EJRKwRRfifsScibnts9Kn0yjfyIZfkZ+bhZOFGd0MkgC7ALuIXppeDXq8xZ6L/Rl+MPyR - 2xy3iXpperai+qLUyfG4LIw8GvnGY57HVnFDcTk2bjZ0beQBHikeeWV/5QTvpd4nI49FfoRZFnM+5rdd - j91KEV0REzY+Ng5GZgJ5nJmDmZtPgU9dwUPBUsZeRoNLgosNXRO7ILsIOKFMdd4adTzqE7Lv/Pf6b9JM - 1wxB0YALgFIQrxyvmlacVrHfer/prnNccxW9FWXZBdhZGZCKQEENQUOzKrMpaKnxR9zFuOeWMyy9JDwl - WJHNxQk4xTilVAJVkkP2hjyLPhP9NvJE5C7PJZ7J4ibikqw8rPDkjMPCazEXYorkveWVWHiISPnMHMxc - qsGqKe7z3Q+Cy75LcSBDXkQcjdjuMMEhStJKUo6JlYmVlZdVQD9Lv8F3je9FeKq8EHvZf5N/j26Grg6P - LA8PutlYgYKbQqjzVOdtyK6GuvxD7IXYlea15v5ixmISXBJcsm5z3PZC5X7FXYx7Grg9cKpZlZkzuxA7 - GxMrE4FUAgXIpTuahWDxmPMx011mudiiWQhyzBKzSjMvQQ1BXnQz8QJpG2lPZX/lKMs6y464i3H34y/F - g+syJIsfhh8KPw6yLPxQ+GuQWOSRyNc27Tbd0rbSZizcZJQibHxsvBImEsamFaaVrjNdNwXvDH6A7mMY - BlnqNtttj5yrXDAosaGbRTKQdZYNsOu2WxZ9MvpD3IW43/GX4hHl5MW4n75rfI/pZ+kXsouwC6HrJQuw - cLPwKngqeLvPc18adTLqRfyl+F9IFt73We0zQTdd14BdkIotI25JbgkZBxkHtVC1JLc5brtjz8f+jL0Q - +z1oZ9B6syqzaGEdYX5mdmYqt4qgQDVINcVjocfByBORr63brCulbaW10NVQHYibiNsHbQ+6L24q7oAu - RxPAxs8mJG4iDmp1USehIAMuLi4GeXl5NlNTU347OzsRe3t7UWRsZ2cnbG5uzicrK8vKxcVFXOmCD0hK - SjJ6enoK1NXVqU6aNMlg2rRpxsh48uTJus3NzYqurq68EhISJGd6ADkzAttxL7feAAAAAElFTkSuQmCC - - - - - iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABGdJREFUSEtj - YKAyYOFk4Za0knSzzrXOd8x2jJeUlGRgZ2dHV0YFwMjAKKInomlUYJRl32e/wn+Z/0Gf2T4L9eP1rQRV - BQWZ2JnQdVAGBNQEFI2KjHLCj4Qfjz0f+zX+Uvz/iKMR9z2XeU7USdNxENYVFmZkYWRE10c2sGqyKgg/ - FH4s7mLcPxAGWQhjR5+Pnm5Wa+bAxs/Ggq6PbODQ77Aw5mzMO5BF6DjuYtzDoB1BU5ynO9uh6yMZcIpy - Sin5KsX5rva9gMWiP3EX4354LPDYb9VkVWpSZmKIrp8kwMrDyifnLBcUtCPoYfSp6G9oln2PPh39InRf - 6EXVYNUYLjEuCXT9JAMFT4UI5+nO22POxPyMuxD3F83CK/4b/CdoJ2hb8CnwiTIyM5Iff8yczNxSVlJu - Nm02i8P2h72EJRKwRRfifsScibnts9Kn0yjfyIZfkZ+bhZOFGd0MkgC7ALuIXppeDXq8xZ6L/Rl+MPyR - 2xy3iXpperai+qLUyfG4LIw8GvnGY57HVnFDcTk2bjZ0beQBHikeeWV/5QTvpd4nI49FfoRZFnM+5rdd - j91KEV0REzY+Ng5GZgJ5nJmDmZtPgU9dwUPBUsZeRoNLgosNXRO7ILsIOKFMdd4adTzqE7Lv/Pf6b9JM - 1wxB0YALgFIQrxyvmlacVrHfer/prnNccxW9FWXZBdhZGZCKQEENQUOzKrMpaKnxR9zFuOeWMyy9JDwl - WJHNxQk4xTilVAJVkkP2hjyLPhP9NvJE5C7PJZ7J4ibikqw8rPDkjMPCazEXYorkveWVWHiISPnMHMxc - qsGqKe7z3Q+Cy75LcSBDXkQcjdjuMMEhStJKUo6JlYmVlZdVQD9Lv8F3je9FeKq8EHvZf5N/j26Grg6P - LA8PutlYgYKbQqjzVOdtyK6GuvxD7IXYlea15v5ixmISXBJcsm5z3PZC5X7FXYx7Grg9cKpZlZkzuxA7 - GxMrE4FUAgXIpTuahWDxmPMx011mudiiWQhyzBKzSjMvQQ1BXnQz8QJpG2lPZX/lKMs6y464i3H34y/F - g+syJIsfhh8KPw6yLPxQ+GuQWOSRyNc27Tbd0rbSZizcZJQibHxsvBImEsamFaaVrjNdNwXvDH6A7mMY - BlnqNtttj5yrXDAosaGbRTKQdZYNsOu2WxZ9MvpD3IW43/GX4hHl5MW4n75rfI/pZ+kXsouwC6HrJQuw - cLPwKngqeLvPc18adTLqRfyl+F9IFt73We0zQTdd14BdkIotI25JbgkZBxkHtVC1JLc5brtjz8f+jL0Q - +z1oZ9B6syqzaGEdYX5mdmYqt4qgQDVINcVjocfByBORr63brCulbaW10NVQHYibiNsHbQ+6L24q7oAu - RxPAxs8mJG4iDmp1USehIAMuLi4GeXl5NlNTU347OzsRe3t7UWRsZ2cnbG5uzicrK8vKxcVFXOmCD0hK - SjJ6enoK1NXVqU6aNMlg2rRpxsh48uTJus3NzYqurq68EhISJGd6ADkzAttxL7feAAAAAElFTkSuQmCC diff --git a/initATLASAufschubkonten/frmStartOptions.vb b/initATLASAufschubkonten/frmStartOptions.vb index a229645..98c652f 100644 --- a/initATLASAufschubkonten/frmStartOptions.vb +++ b/initATLASAufschubkonten/frmStartOptions.vb @@ -8,7 +8,9 @@ Imports System.Xml Imports com.sun.media.sound Imports com.sun.org.apache.xerces.internal.impl.dv.xs Imports MDM_Worker +Imports Org.BouncyCastle.Bcpg Imports Renci.SshNet +Imports TELOTEC_Worker Imports VERAG_PROG_ALLGEMEIN Public Class frmStartOptions @@ -317,7 +319,7 @@ Public Class frmStartOptions Dim f As New frmInfo(PARAM) f.Show() VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False - sendWOELFL_USTVAntraege("FTP", False) + sendWOELFL_USTVAntraege("FTP", True) closeMe() Case "SDL_GUELTISBIS" Dim f As New frmInfo(PARAM) @@ -5408,11 +5410,6 @@ Public Class frmStartOptions Exit Sub End If - If cbxPlose.Checked And cbxPloseNeu.Checked Then - MsgBox("Plose-Vorschausummen werden per alter Logik UND neuer Logik berechnet, das würde die Plose-Vorschausumme doppelt berechnet werden!" & vbNewLine & "Vorgang wird abgebrochen!") - Exit Sub - End If - cMDMFunctionsAllgemein.setSchnittstellen(cbxPlose.Checked, cbxITalt.Checked, cbxMSEalt.Checked, cbxMSEneu.Checked, cbxIDSalt.Checked, cbxIDSneu.Checked, cbxUTAalt.Checked, cbxUTANeu.Checked, cbxPloseNeu.Checked) If sender Is Button23 Then @@ -5544,7 +5541,7 @@ Public Class frmStartOptions Private Sub Button27_Click(sender As Object, e As EventArgs) Handles btnTestATEZ.Click - VERAG_PROG_ALLGEMEIN.cATEZ_ncts_api.updateStatusByMRN(MyTextBox5.Text) + VERAG_PROG_ALLGEMEIN.cATEZ_ncts_api.updateStatusByMRN(txtCheckATEZMRN.Text) End Sub @@ -5634,7 +5631,7 @@ weiter: End Sub - Private Sub Button28_Click(sender As Object, e As EventArgs) Handles Button28.Click + Private Sub Button28_Click(sender As Object, e As EventArgs) Handles checkallopenATEZ.Click ' Dim dt = (New SQL).loadDgvBySql("SELECT TOP (1000) [ncts_Id] FROM [tblNCTS_FREMD] where ncts_Partnersystem='ATEZ' and ncts_status < 60", "FMZOLL") Dim top = 200 @@ -5648,14 +5645,14 @@ weiter: Sub updateATEZStatusByMRNTop(top As Integer) Dim dt = (New SQL).loadDgvBySql("SELECT TOP (" & top & ") ncts_MRN FROM [tblNCTS_FREMD] where ncts_Status between 50 and 59 and ncts_Partnersystem='ATEZ'", "FMZOLL") If dt IsNot Nothing Then - Label49.Text = "-" + lblcheckopatez.Text = "-" Dim cnt = 1 For Each r In dt.Rows - Label49.Text = cnt & "/" & dt.Rows.Count + lblcheckopatez.Text = cnt & "/" & dt.Rows.Count Me.Refresh() VERAG_PROG_ALLGEMEIN.cATEZ_ncts_api.updateStatusByMRN(r("ncts_MRN")) Next - Label49.Text = dt.Rows.Count & "fin" + lblcheckopatez.Text = dt.Rows.Count & "fin" End If End Sub @@ -5828,7 +5825,7 @@ weiter: End If - Dim fehlendePDFzuRE As String = "select Rechnungsnummer_pro_Lieferland, cast([Rechnungsdatum] as Date) as Rechnungsdatum, Kundennummer, Abrechnungsnummer from tblUTAImportNew where daId is null and cast([Rechnungsdatum] as Date) = '" & utaDate & "' and Lieferland <> 'ROM' and Steuerliches_Lieferland <> 'ROM' or daId is null and cast([Rechnungsdatum] as Date) = '" & utaDate & "' and Kundennummer = 868070 group by Rechnungsdatum, Kundennummer, Abrechnungsnummer, Rechnungsnummer_pro_Lieferland " + Dim fehlendePDFzuRE As String = "select Rechnungsnummer_pro_Lieferland, cast([Rechnungsdatum] as Date) as Rechnungsdatum, Kundennummer, Abrechnungsnummer from tblUTAImportNew where daId is null and cast([Rechnungsdatum] as Date) = '" & utaDate & "' and Lieferland <> 'ROM' and Steuerliches_Lieferland <> 'ROM' group by Rechnungsdatum, Kundennummer, Abrechnungsnummer, Rechnungsnummer_pro_Lieferland " Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL Dim dtRechnnungsdaten As DataTable = SQL.loadDgvBySql(fehlendePDFzuRE, "FMZOLL") @@ -5958,33 +5955,33 @@ weiter: End Sub - Private Sub LinkLabel53_LinkClicked_1(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel53.LinkClicked - - Dim sql As New SQL - - Dim PLOSEdaidaktualiseren As String = "select * from tblPLOSE_Details where Year(plose_RechnungsDatum) = " & txtPloseJahr.Text & " and UStVAn_ID is null and plose_ArchiviertDatum is null and plose_Archiv = 0 and plose_POLSEKundennummer = 540961 " - - Dim dtUSTVA_daid_akt As DataTable = sql.loadDgvBySql(PLOSEdaidaktualiseren, "FMZOLL") - - For Each row As DataRow In dtUSTVA_daid_akt.Rows - - Dim ustva As New cUSTVAntrag(row.Item("UStVAn_ID")) - - If ustva.UStVAn_LandNr IsNot Nothing AndAlso IsNumeric(ustva.UStVAn_LandNr) Then - - Dim Antrag_LandKz = sql.DLookup("LandKz", "[Länderverzeichnis für die Außenhandelsstatistik]", "Landnr='" & ustva.UStVAn_LandNr & "'", "FMZOLL") - - Dim daId As Integer = 0 - - Dim SQL_String = "SELECT isnull(tblIDSInvoicesNewSplittedByCountry.daId ,0) FROM [tblIDSInvoicesNewSplittedByCountry] where tblIDSInvoicesNewSplittedByCountry.[YearMonthDay] ='" & CDate(row.Item("UStVPo_ReDat")).ToShortDateString & "' AND tblIDSInvoicesNewSplittedByCountry.Invoicenumber ='" & row.Item("UStVPo_ReNr").ToString.Replace("/", "") & "' and tblIDSInvoicesNewSplittedByCountry.Country='" & Antrag_LandKz & "' AND tblIDSInvoicesNewSplittedByCountry.daId is not null" - - daId = CInt(sql.getValueTxtBySql(SQL_String, "FMZOLL",,, 0)) - - If daId > 0 Then sql.doSQL("update tblUStVPositionen set UStVPo_daId = " & daId & ", UStVPo_SchnittstellenNr = 12 where UStVAn_ID = " & row.Item("UStVAn_ID") & " and UStVPo_ID = " & row.Item("UStVPo_ID") & " AND UStVPo_SchnittstellenNr = 8", "FMZOLL") - - End If - - Next + Private Sub Button29_Click(sender As Object, e As EventArgs) Handles cboTCAPI_Files.Click End Sub + + Private Sub Button27_Click_1(sender As Object, e As EventArgs) Handles cboTCAPI_Call.Click + + Select Case cboTCAPI_Firma.Text + Case "ALLE" + doTelotecAPIMulit("ATILLA") + doTelotecAPIMulit("IMEX") + doTelotecAPIMulit("DURMAZ") + Case Else + doTelotecAPIMulit(cboTCAPI_Firma.Text) + End Select + + + End Sub + Sub doTelotecAPIMulit(Firma) + Dim TELO As New VERAG_PROG_ALLGEMEIN.cTelotecAPI + For ii As Integer = 0 To 50 + Dim messages As List(Of VERAG_PROG_ALLGEMEIN.cTelotecAPI.TAMessage) = TELO.GetTAMessages(Firma) + 'Threading.Thread.Sleep(100) ' + 'convert + For Each msg In messages + ' Dim cTelotec_Anmeldung = cTelotec_Anmeldung.ConvertTAMessageToTelotec(msg) + ' -----------> HIER WEITERMACHEN!!!! + Next + Next + End Sub End Class \ No newline at end of file