From 5b38670a9dc725660b603d8db55e88d76bd9b95a Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Mon, 4 May 2026 15:35:37 +0200 Subject: [PATCH] Mitarbeiter, etc. --- .../usrCntlMitarbeiter.Designer.vb | 12 + UID/Mitarbeiter/usrCntlMitarbeiter.vb | 108 +- .../frmStartOptions.Designer.vb | 1876 +++++++++-------- initATLASAufschubkonten/frmStartOptions.vb | 336 ++- 4 files changed, 1405 insertions(+), 927 deletions(-) diff --git a/UID/Mitarbeiter/usrCntlMitarbeiter.Designer.vb b/UID/Mitarbeiter/usrCntlMitarbeiter.Designer.vb index 42efc49..6f27ba4 100644 --- a/UID/Mitarbeiter/usrCntlMitarbeiter.Designer.vb +++ b/UID/Mitarbeiter/usrCntlMitarbeiter.Designer.vb @@ -59,6 +59,7 @@ Partial Class usrCntlMitarbeiter Me.UserKopierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.BerechtigungenSetzenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip(Me.components) + Me.Button7 = New System.Windows.Forms.Button() Me.Panel2.SuspendLayout() Me.TabControl1.SuspendLayout() Me.TabPage1.SuspendLayout() @@ -93,6 +94,7 @@ Partial Class usrCntlMitarbeiter ' 'Panel2 ' + Me.Panel2.Controls.Add(Me.Button7) Me.Panel2.Controls.Add(Me.Button9) Me.Panel2.Controls.Add(Me.Button6) Me.Panel2.Controls.Add(Me.Button5) @@ -452,6 +454,15 @@ Partial Class usrCntlMitarbeiter Me.ContextMenuStrip2.Name = "ContextMenuStrip2" Me.ContextMenuStrip2.Size = New System.Drawing.Size(61, 4) ' + 'Button7 + ' + Me.Button7.Location = New System.Drawing.Point(9, 325) + Me.Button7.Name = "Button7" + Me.Button7.Size = New System.Drawing.Size(75, 34) + Me.Button7.TabIndex = 22 + Me.Button7.Text = "Check" + Me.Button7.UseVisualStyleBackColor = True + ' 'usrCntlMitarbeiter ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) @@ -523,4 +534,5 @@ Partial Class usrCntlMitarbeiter Friend WithEvents ContextMenuStrip2 As ContextMenuStrip Friend WithEvents cbxZE As CheckBox Friend WithEvents cbxDakosy As CheckBox + Friend WithEvents Button7 As Button End Class diff --git a/UID/Mitarbeiter/usrCntlMitarbeiter.vb b/UID/Mitarbeiter/usrCntlMitarbeiter.vb index 7091476..c19b8e8 100644 --- a/UID/Mitarbeiter/usrCntlMitarbeiter.vb +++ b/UID/Mitarbeiter/usrCntlMitarbeiter.vb @@ -1,6 +1,7 @@ Imports System.ComponentModel Imports System.Net Imports System.Text +Imports Mysqlx.XDevAPI.CRUD Imports VERAG_PROG_ALLGEMEIN @@ -55,6 +56,12 @@ Public Class usrCntlMitarbeiter End If End If + If TabControl1.SelectedIndex = 7 Then + Button7.Visible = True + Else + Button7.Visible = False + End If + End Sub Public Sub showVERAGATILLA(firma) @@ -215,7 +222,12 @@ Public Class usrCntlMitarbeiter Else Dim timas As New cTimasAPI("timas") timas.getEmployeeList(dt) - dgvTimasNew.DataSource = dt + + Dim dt_onlyActive As New DataTable + dt_onlyActive = dt.Select("[Ausweis-Nr] <> 0 and Vorname <> '' and Nachname <> ''").CopyToDataTable + dgvTimasNew.DataSource = dt_onlyActive + + ' MsgBox("ALLE:" & dt.Rows.Count & vbNewLine & "AKIVE:" & dt_onlyActive.Rows.Count) End If With dgvTimasNew @@ -886,5 +898,99 @@ Public Class usrCntlMitarbeiter Tabelle_anzeigen() End Sub + Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click + If dgvTimasNew.Rows.Count = 0 Then Exit Sub + + Try + + + Dim dt_Accounts As New DataTable + dt_Accounts.Columns.Add("accountid", GetType(Integer)) + + Dim ROW_ACC As DataRow = dt_Accounts.NewRow + ROW_ACC("accountid") = "993" 'Auszahlungen ÜS! + dt_Accounts.Rows.Add(ROW_ACC) + + 'Dim ROW_ACC1 As DataRow = dt_Accounts.NewRow + 'ROW_ACC1("accountid") = "1598" 'Auszahlungen ÜS! + 'dt_Accounts.Rows.Add(ROW_ACC1) + + 'Dim ROW_ACC2 As DataRow = dt_Accounts.NewRow + 'ROW_ACC2("accountid") = "1235" 'Auszahlungen ÜS! + 'dt_Accounts.Rows.Add(ROW_ACC2) + + + Dim dt_Employee As New DataTable + dt_Employee.Columns.Add("employeeId", GetType(Integer)) + dt_Employee.Columns.Add("Vorname", GetType(String)) + dt_Employee.Columns.Add("Nachname", GetType(String)) + + Dim dt_result As New DataTable + + Dim dateStart As New Date("2025", "01", "01") + Dim dateEnd = Today() + + For Each r As DataGridViewRow In dgvTimasNew.Rows + Dim ROW As DataRow = dt_Employee.NewRow + ROW("employeeId") = r.Cells("Id").Value + ROW("Vorname") = r.Cells("Vorname").Value + ROW("Nachname") = r.Cells("Nachname").Value + dt_Employee.Rows.Add(ROW) + Next + + + + Dim timas As New cTimasAPI("timas") + timas.getTimeAccounts(dateStart, dateEnd, 0, dt_Accounts, dt_result, dt_Employee) + + If dt_result.Rows.Count > 0 Then + + + Dim dt_falschAusbezahlt As New DataTable + + dt_falschAusbezahlt = dt_result.Select("multiplier = '-'", "date").CopyToDataTable + + If dt_falschAusbezahlt.Rows.Count = 0 Then + MsgBox("keine falsch ausbezahlten Überstunden vorhanden!" & vbNewLine & "Es wird nur geprüft, ob die ausbezahlten Überstunden NICHT negativ sind!") + Exit Sub + Else + + ' VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dt_falschAusbezahlt,,,,,,,, True) + + Dim query = From fa In dt_falschAusbezahlt.AsEnumerable() + Join emp In dt_Employee.AsEnumerable() On fa.Field(Of Integer)("employeeId") Equals emp.Field(Of Integer)("employeeId") + Select result = fa.ItemArray.Concat({emp.Field(Of String)("Vorname"), emp.Field(Of String)("Nachname")}).ToArray() + + ' Neue Tabelle erstellen (Struktur erweitern) + Dim dt_merged As New DataTable + + ' Alte Spalten übernehmen + For Each col As DataColumn In dt_falschAusbezahlt.Columns + dt_merged.Columns.Add(col.ColumnName, col.DataType) + Next + + ' Neue Spalten hinzufügen + dt_merged.Columns.Add("Vorname", GetType(String)) + dt_merged.Columns.Add("Nachname", GetType(String)) + + ' Daten einfügen + For Each row In query + dt_merged.Rows.Add(row) + Next + + If dt_merged.Rows.Count > 0 Then + VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dt_merged,,,,,,,, True) + End If + End If + + + End If + + Catch ex As Exception + + End Try + + + End Sub End Class diff --git a/initATLASAufschubkonten/frmStartOptions.Designer.vb b/initATLASAufschubkonten/frmStartOptions.Designer.vb index c228c71..cf02fe9 100644 --- a/initATLASAufschubkonten/frmStartOptions.Designer.vb +++ b/initATLASAufschubkonten/frmStartOptions.Designer.vb @@ -25,6 +25,7 @@ Partial Class frmStartOptions Me.components = New System.ComponentModel.Container() Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmStartOptions)) Me.pnl = New System.Windows.Forms.Panel() + Me.Button32 = New System.Windows.Forms.Button() Me.btnEZOLL_1month = New System.Windows.Forms.Button() Me.btnEZOLL_7days = New System.Windows.Forms.Button() Me.cbxEZOLLUNISPED = New System.Windows.Forms.CheckBox() @@ -41,6 +42,7 @@ Partial Class frmStartOptions Me.LinkLabel63 = New System.Windows.Forms.LinkLabel() Me.PictureBox23 = New System.Windows.Forms.PictureBox() Me.Label27 = New System.Windows.Forms.Label() + Me.MyTextBox3 = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.LinkLabel51 = New System.Windows.Forms.LinkLabel() Me.PictureBox22 = New System.Windows.Forms.PictureBox() Me.Button22 = New System.Windows.Forms.Button() @@ -57,16 +59,20 @@ Partial Class frmStartOptions Me.Label20 = New System.Windows.Forms.Label() Me.Label19 = New System.Windows.Forms.Label() Me.Label18 = New System.Windows.Forms.Label() + Me.MyTextBox2 = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.LinkLabel36 = New System.Windows.Forms.LinkLabel() Me.Button13 = New System.Windows.Forms.Button() Me.Button12 = New System.Windows.Forms.Button() Me.cbxSyskaWdh = New System.Windows.Forms.CheckBox() + Me.txtSyskaWdhDateiname = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Button10 = New System.Windows.Forms.Button() Me.piceZollAnh = New System.Windows.Forms.PictureBox() + Me.txtEZOLLAnhDat = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.lblEZOLLDat = New System.Windows.Forms.LinkLabel() Me.Button6 = New System.Windows.Forms.Button() Me.CheckBox6 = New System.Windows.Forms.CheckBox() Me.Button7 = New System.Windows.Forms.Button() + Me.cboSYSKAFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.CheckBox7 = New System.Windows.Forms.CheckBox() Me.Label16 = New System.Windows.Forms.Label() Me.LinkLabel33 = New System.Windows.Forms.LinkLabel() @@ -75,6 +81,7 @@ Partial Class frmStartOptions Me.Button4 = New System.Windows.Forms.Button() Me.CheckBox5 = New System.Windows.Forms.CheckBox() Me.Button3 = New System.Windows.Forms.Button() + Me.cboBMDUnispedFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.CheckBox4 = New System.Windows.Forms.CheckBox() Me.Label13 = New System.Windows.Forms.Label() Me.tbcntr = New System.Windows.Forms.TabControl() @@ -84,6 +91,7 @@ Partial Class frmStartOptions Me.LinkLabel68 = New System.Windows.Forms.LinkLabel() Me.PictureBox26 = New System.Windows.Forms.PictureBox() Me.cbxGestellungspeichern = New System.Windows.Forms.CheckBox() + Me.MyTextBox4 = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label41 = New System.Windows.Forms.Label() Me.LinkLabel99 = New System.Windows.Forms.LinkLabel() Me.PictureBox99 = New System.Windows.Forms.PictureBox() @@ -153,7 +161,21 @@ Partial Class frmStartOptions Me.Label6 = New System.Windows.Forms.Label() Me.PictureBox15 = New System.Windows.Forms.PictureBox() Me.PictureBox14 = New System.Windows.Forms.PictureBox() + Me.dgvMRN = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) + Me.clmnMRN = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.txtVRGOut_MRN = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtVRGOut_FilialenNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtVRGOut_AbfertigungsNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.MyComboBox2 = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.txtVRGOutEZA_BezugsNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.MyComboBox1 = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.txtVRGOut_BezugsNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.TabPage3 = New System.Windows.Forms.TabPage() + Me.Button31 = New System.Windows.Forms.Button() + Me.Label56 = New System.Windows.Forms.Label() + Me.MyTextBox5 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Button29 = New System.Windows.Forms.Button() + Me.Label55 = New System.Windows.Forms.Label() Me.btnTesttc = New System.Windows.Forms.Button() Me.cboTCAPI_Call = New System.Windows.Forms.Button() Me.Label50cboTCAPI_ = New System.Windows.Forms.Label() @@ -183,10 +205,17 @@ Partial Class frmStartOptions Me.cbxTCAnhEinlesen = New System.Windows.Forms.CheckBox() Me.cboTCAPI_Files = New System.Windows.Forms.Button() Me.cbxTCVB_Versand = New System.Windows.Forms.CheckBox() + Me.cboTCAPI_Firma = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.MyTextBox06 = 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() Me.TabControl1 = New System.Windows.Forms.TabControl() Me.Asfinag = New System.Windows.Forms.TabPage() Me.Label28 = New System.Windows.Forms.Label() + Me.txtTWLNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtTBLNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label24 = New System.Windows.Forms.Label() Me.LinkLabel44 = New System.Windows.Forms.LinkLabel() Me.LinkLabel43 = New System.Windows.Forms.LinkLabel() @@ -217,6 +246,7 @@ 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.LinkLabel25 = New System.Windows.Forms.LinkLabel() Me.Label61 = New System.Windows.Forms.Label() @@ -243,6 +273,10 @@ 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.Label58 = New System.Windows.Forms.Label() Me.lblOriginalRechnungRMC = New System.Windows.Forms.Label() @@ -253,6 +287,7 @@ Partial Class frmStartOptions 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.lblOriginalRechnungUTA = New System.Windows.Forms.Label() Me.Label65 = New System.Windows.Forms.Label() @@ -266,6 +301,8 @@ 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.lblOriginalRechnungPLOSE = New System.Windows.Forms.Label() Me.Label63 = New System.Windows.Forms.Label() @@ -279,6 +316,8 @@ Partial Class frmStartOptions Me.LinkLabel24 = New System.Windows.Forms.LinkLabel() Me.LinkLabel23 = 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.btnCheckPDF_USTVA = New System.Windows.Forms.Button() Me.cbxPloseNeu = New System.Windows.Forms.CheckBox() @@ -298,10 +337,12 @@ 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.TabPage8 = New System.Windows.Forms.TabPage() Me.PictureBox27 = New System.Windows.Forms.PictureBox() Me.Label60 = New System.Windows.Forms.Label() Me.dtp_MDM_Einarbeitung = New System.Windows.Forms.DateTimePicker() + Me.dgv_MDMEinarbeitung = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) Me.KN8_DESTAT = New System.Windows.Forms.LinkLabel() Me.Button24 = New System.Windows.Forms.Button() Me.cbxTestFTP = New System.Windows.Forms.CheckBox() @@ -311,6 +352,7 @@ Partial Class frmStartOptions Me.lblAbDat = New System.Windows.Forms.Label() Me.Button27 = New System.Windows.Forms.Button() Me.lblWartungen = New System.Windows.Forms.Label() + Me.txtWartungFaelligkeitAbDat = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.TabPage7 = New System.Windows.Forms.TabPage() Me.cbxEventtriggered = New System.Windows.Forms.CheckBox() Me.Label50 = New System.Windows.Forms.Label() @@ -328,11 +370,13 @@ Partial Class frmStartOptions Me.lblMissingCS = New System.Windows.Forms.Label() Me.Button28 = New System.Windows.Forms.Button() Me.btnCreditsaveLauf = New System.Windows.Forms.Button() + Me.txtCSDate = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.CheckBox1 = New System.Windows.Forms.CheckBox() Me.cbxBu = New System.Windows.Forms.CheckBox() Me.cbxKd = New System.Windows.Forms.CheckBox() Me.Button9 = New System.Windows.Forms.Button() Me.Label3 = New System.Windows.Forms.Label() + Me.MyTextBox1 = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.PictureBox12 = New System.Windows.Forms.PictureBox() Me.LinkLabel20 = New System.Windows.Forms.LinkLabel() Me.PictureBox11 = New System.Windows.Forms.PictureBox() @@ -348,52 +392,10 @@ Partial Class frmStartOptions Me.LinkLabel3 = New System.Windows.Forms.LinkLabel() Me.lklAufschubkontenATLASEZOLL = New System.Windows.Forms.LinkLabel() Me.lblRoutineManager = New System.Windows.Forms.Label() - Me.Button21 = New System.Windows.Forms.Button() - Me.Label55 = New System.Windows.Forms.Label() - Me.Button29 = New System.Windows.Forms.Button() - Me.Label56 = New System.Windows.Forms.Label() - Me.MyTextBox3 = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.MyTextBox2 = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtSyskaWdhDateiname = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtEZOLLAnhDat = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.cboSYSKAFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.cboBMDUnispedFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.MyTextBox4 = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.dgvMRN = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) - Me.clmnMRN = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.txtVRGOut_MRN = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtVRGOut_FilialenNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtVRGOut_AbfertigungsNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.MyComboBox2 = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.txtVRGOutEZA_BezugsNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.MyComboBox1 = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.txtVRGOut_BezugsNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.MyTextBox5 = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.cboTCAPI_Firma = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.MyTextBox06 = 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.txtTWLNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtTBLNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtIDSYear = New VERAG_PROG_ALLGEMEIN.MyTextBox() - 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.cbxRMC = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.txtUTAYear = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtUTADate = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtPloseJahr = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtPLoseKdNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtKdNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.dgv_MDMEinarbeitung = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) - Me.txtWartungFaelligkeitAbDat = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtCSDate = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.MyTextBox1 = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtGJ_UNISPED = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Button21 = New System.Windows.Forms.Button() Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.Button31 = New System.Windows.Forms.Button() + Me.cbxZugferdAufDeveloper = New System.Windows.Forms.CheckBox() Me.pnl.SuspendLayout() CType(Me.pbEmailscheck, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox24, System.ComponentModel.ISupportInitialize).BeginInit() @@ -420,6 +422,7 @@ Partial Class frmStartOptions Me.TabPage2.SuspendLayout() CType(Me.PictureBox15, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox14, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.dgvMRN, System.ComponentModel.ISupportInitialize).BeginInit() Me.TabPage3.SuspendLayout() Me.Panel1.SuspendLayout() Me.TabPage4.SuspendLayout() @@ -437,20 +440,21 @@ Partial Class frmStartOptions CType(Me.PictureBox25, System.ComponentModel.ISupportInitialize).BeginInit() Me.TabPage8.SuspendLayout() CType(Me.PictureBox27, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.dgv_MDMEinarbeitung, System.ComponentModel.ISupportInitialize).BeginInit() Me.TabPage6.SuspendLayout() Me.TabPage7.SuspendLayout() CType(Me.PictureBox12, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox11, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox10, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox9, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.dgvMRN, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.dgv_MDMEinarbeitung, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' 'pnl ' Me.pnl.BackColor = System.Drawing.Color.White Me.pnl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnl.Controls.Add(Me.cbxZugferdAufDeveloper) + Me.pnl.Controls.Add(Me.Button32) Me.pnl.Controls.Add(Me.btnEZOLL_1month) Me.pnl.Controls.Add(Me.btnEZOLL_7days) Me.pnl.Controls.Add(Me.cbxEZOLLUNISPED) @@ -538,6 +542,18 @@ Partial Class frmStartOptions Me.pnl.Size = New System.Drawing.Size(1229, 946) Me.pnl.TabIndex = 0 ' + 'Button32 + ' + Me.Button32.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button32.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.Button32.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button32.Location = New System.Drawing.Point(996, 269) + Me.Button32.Name = "Button32" + Me.Button32.Size = New System.Drawing.Size(103, 40) + Me.Button32.TabIndex = 148 + Me.Button32.Text = "ZuGFerD-Check" + Me.Button32.UseVisualStyleBackColor = True + ' 'btnEZOLL_1month ' Me.btnEZOLL_1month.FlatStyle = System.Windows.Forms.FlatStyle.Flat @@ -714,6 +730,29 @@ Partial Class frmStartOptions Me.Label27.TabIndex = 87 Me.Label27.Text = "älter als Tage" ' + 'MyTextBox3 + ' + Me.MyTextBox3._DateTimeOnly = False + Me.MyTextBox3._numbersOnly = True + Me.MyTextBox3._numbersOnlyKommastellen = "" + Me.MyTextBox3._numbersOnlyTrennzeichen = True + Me.MyTextBox3._Prozent = False + Me.MyTextBox3._ShortDateNew = False + Me.MyTextBox3._ShortDateOnly = False + Me.MyTextBox3._TimeOnly = False + Me.MyTextBox3._TimeOnly_Seconds = False + Me.MyTextBox3._value = "" + Me.MyTextBox3._Waehrung = False + Me.MyTextBox3._WaehrungZeichen = True + Me.MyTextBox3.ForeColor = System.Drawing.Color.Red + Me.MyTextBox3.Location = New System.Drawing.Point(127, 232) + Me.MyTextBox3.MaxLineLength = -1 + Me.MyTextBox3.MaxLines_Warning = "" + Me.MyTextBox3.MaxLines_Warning_Label = Nothing + Me.MyTextBox3.Name = "MyTextBox3" + Me.MyTextBox3.Size = New System.Drawing.Size(53, 20) + Me.MyTextBox3.TabIndex = 86 + ' 'LinkLabel51 ' Me.LinkLabel51.AutoSize = True @@ -892,6 +931,29 @@ Partial Class frmStartOptions Me.Label18.TabIndex = 64 Me.Label18.Text = "Max" ' + 'MyTextBox2 + ' + Me.MyTextBox2._DateTimeOnly = False + Me.MyTextBox2._numbersOnly = True + Me.MyTextBox2._numbersOnlyKommastellen = "" + Me.MyTextBox2._numbersOnlyTrennzeichen = True + Me.MyTextBox2._Prozent = False + Me.MyTextBox2._ShortDateNew = False + Me.MyTextBox2._ShortDateOnly = False + Me.MyTextBox2._TimeOnly = False + Me.MyTextBox2._TimeOnly_Seconds = False + Me.MyTextBox2._value = "" + Me.MyTextBox2._Waehrung = False + Me.MyTextBox2._WaehrungZeichen = True + Me.MyTextBox2.ForeColor = System.Drawing.Color.Red + Me.MyTextBox2.Location = New System.Drawing.Point(151, 176) + Me.MyTextBox2.MaxLineLength = -1 + Me.MyTextBox2.MaxLines_Warning = "" + Me.MyTextBox2.MaxLines_Warning_Label = Nothing + Me.MyTextBox2.Name = "MyTextBox2" + Me.MyTextBox2.Size = New System.Drawing.Size(53, 20) + Me.MyTextBox2.TabIndex = 63 + ' 'LinkLabel36 ' Me.LinkLabel36.AutoSize = True @@ -938,6 +1000,30 @@ Partial Class frmStartOptions Me.cbxSyskaWdh.Text = "Buchungen wiederh." Me.cbxSyskaWdh.UseVisualStyleBackColor = True ' + 'txtSyskaWdhDateiname + ' + Me.txtSyskaWdhDateiname._DateTimeOnly = False + Me.txtSyskaWdhDateiname._numbersOnly = False + Me.txtSyskaWdhDateiname._numbersOnlyKommastellen = "" + Me.txtSyskaWdhDateiname._numbersOnlyTrennzeichen = True + Me.txtSyskaWdhDateiname._Prozent = False + Me.txtSyskaWdhDateiname._ShortDateNew = False + Me.txtSyskaWdhDateiname._ShortDateOnly = False + Me.txtSyskaWdhDateiname._TimeOnly = False + Me.txtSyskaWdhDateiname._TimeOnly_Seconds = False + Me.txtSyskaWdhDateiname._value = "" + Me.txtSyskaWdhDateiname._Waehrung = False + Me.txtSyskaWdhDateiname._WaehrungZeichen = True + Me.txtSyskaWdhDateiname.ForeColor = System.Drawing.Color.Black + Me.txtSyskaWdhDateiname.Location = New System.Drawing.Point(692, 318) + Me.txtSyskaWdhDateiname.MaxLength = 50 + Me.txtSyskaWdhDateiname.MaxLineLength = -1 + Me.txtSyskaWdhDateiname.MaxLines_Warning = "" + Me.txtSyskaWdhDateiname.MaxLines_Warning_Label = Nothing + Me.txtSyskaWdhDateiname.Name = "txtSyskaWdhDateiname" + Me.txtSyskaWdhDateiname.Size = New System.Drawing.Size(136, 20) + Me.txtSyskaWdhDateiname.TabIndex = 58 + ' 'Button10 ' Me.Button10.FlatStyle = System.Windows.Forms.FlatStyle.Flat @@ -962,6 +1048,30 @@ Partial Class frmStartOptions Me.piceZollAnh.TabStop = False Me.piceZollAnh.Visible = False ' + 'txtEZOLLAnhDat + ' + Me.txtEZOLLAnhDat._DateTimeOnly = False + Me.txtEZOLLAnhDat._numbersOnly = False + Me.txtEZOLLAnhDat._numbersOnlyKommastellen = "" + Me.txtEZOLLAnhDat._numbersOnlyTrennzeichen = True + Me.txtEZOLLAnhDat._Prozent = False + Me.txtEZOLLAnhDat._ShortDateNew = True + Me.txtEZOLLAnhDat._ShortDateOnly = False + Me.txtEZOLLAnhDat._TimeOnly = False + Me.txtEZOLLAnhDat._TimeOnly_Seconds = False + Me.txtEZOLLAnhDat._value = "" + Me.txtEZOLLAnhDat._Waehrung = False + Me.txtEZOLLAnhDat._WaehrungZeichen = True + Me.txtEZOLLAnhDat.ForeColor = System.Drawing.Color.Black + Me.txtEZOLLAnhDat.Location = New System.Drawing.Point(425, 207) + Me.txtEZOLLAnhDat.MaxLength = 10 + Me.txtEZOLLAnhDat.MaxLineLength = -1 + Me.txtEZOLLAnhDat.MaxLines_Warning = "" + Me.txtEZOLLAnhDat.MaxLines_Warning_Label = Nothing + Me.txtEZOLLAnhDat.Name = "txtEZOLLAnhDat" + Me.txtEZOLLAnhDat.Size = New System.Drawing.Size(87, 20) + Me.txtEZOLLAnhDat.TabIndex = 55 + ' 'lblEZOLLDat ' Me.lblEZOLLDat.AutoSize = True @@ -1010,6 +1120,17 @@ Partial Class frmStartOptions Me.Button7.Text = "Buchungen --> Syska" Me.Button7.UseVisualStyleBackColor = True ' + 'cboSYSKAFirma + ' + Me.cboSYSKAFirma._allowedValuesFreiText = Nothing + Me.cboSYSKAFirma._allowFreiText = False + Me.cboSYSKAFirma._value = "" + Me.cboSYSKAFirma.FormattingEnabled = True + Me.cboSYSKAFirma.Location = New System.Drawing.Point(564, 299) + Me.cboSYSKAFirma.Name = "cboSYSKAFirma" + Me.cboSYSKAFirma.Size = New System.Drawing.Size(129, 21) + Me.cboSYSKAFirma.TabIndex = 51 + ' 'CheckBox7 ' Me.CheckBox7.AutoSize = True @@ -1102,6 +1223,17 @@ Partial Class frmStartOptions Me.Button3.Text = "Buchungen --> BMD" Me.Button3.UseVisualStyleBackColor = True ' + 'cboBMDUnispedFirma + ' + Me.cboBMDUnispedFirma._allowedValuesFreiText = Nothing + Me.cboBMDUnispedFirma._allowFreiText = False + Me.cboBMDUnispedFirma._value = "" + Me.cboBMDUnispedFirma.FormattingEnabled = True + Me.cboBMDUnispedFirma.Location = New System.Drawing.Point(268, 300) + Me.cboBMDUnispedFirma.Name = "cboBMDUnispedFirma" + Me.cboBMDUnispedFirma.Size = New System.Drawing.Size(124, 21) + Me.cboBMDUnispedFirma.TabIndex = 42 + ' 'CheckBox4 ' Me.CheckBox4.AutoSize = True @@ -1256,6 +1388,30 @@ Partial Class frmStartOptions Me.cbxGestellungspeichern.Text = "SAVE VW" Me.cbxGestellungspeichern.UseVisualStyleBackColor = True ' + 'MyTextBox4 + ' + Me.MyTextBox4._DateTimeOnly = False + Me.MyTextBox4._numbersOnly = False + Me.MyTextBox4._numbersOnlyKommastellen = "" + Me.MyTextBox4._numbersOnlyTrennzeichen = True + Me.MyTextBox4._Prozent = False + Me.MyTextBox4._ShortDateNew = True + Me.MyTextBox4._ShortDateOnly = False + Me.MyTextBox4._TimeOnly = False + Me.MyTextBox4._TimeOnly_Seconds = False + Me.MyTextBox4._value = "" + Me.MyTextBox4._Waehrung = False + Me.MyTextBox4._WaehrungZeichen = True + Me.MyTextBox4.ForeColor = System.Drawing.Color.Black + Me.MyTextBox4.Location = New System.Drawing.Point(775, 277) + Me.MyTextBox4.MaxLength = 10 + Me.MyTextBox4.MaxLineLength = -1 + Me.MyTextBox4.MaxLines_Warning = "" + Me.MyTextBox4.MaxLines_Warning_Label = Nothing + Me.MyTextBox4.Name = "MyTextBox4" + Me.MyTextBox4.Size = New System.Drawing.Size(80, 20) + Me.MyTextBox4.TabIndex = 90 + ' 'Label41 ' Me.Label41.AutoSize = True @@ -2050,6 +2206,165 @@ Partial Class frmStartOptions Me.PictureBox14.TabStop = False Me.PictureBox14.Visible = False ' + 'dgvMRN + ' + Me.dgvMRN.AKTUALISIERUNGS_INTERVALL = -1 + Me.dgvMRN.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.dgvMRN.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.clmnMRN}) + Me.dgvMRN.Location = New System.Drawing.Point(637, 63) + Me.dgvMRN.Name = "dgvMRN" + Me.dgvMRN.RowHeadersWidth = 62 + Me.dgvMRN.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect + Me.dgvMRN.Size = New System.Drawing.Size(207, 134) + Me.dgvMRN.TabIndex = 75 + ' + 'clmnMRN + ' + Me.clmnMRN.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill + Me.clmnMRN.HeaderText = "MRN" + Me.clmnMRN.MinimumWidth = 8 + Me.clmnMRN.Name = "clmnMRN" + ' + 'txtVRGOut_MRN + ' + Me.txtVRGOut_MRN._DateTimeOnly = False + Me.txtVRGOut_MRN._numbersOnly = False + Me.txtVRGOut_MRN._numbersOnlyKommastellen = "" + Me.txtVRGOut_MRN._numbersOnlyTrennzeichen = True + Me.txtVRGOut_MRN._Prozent = False + Me.txtVRGOut_MRN._ShortDateNew = False + Me.txtVRGOut_MRN._ShortDateOnly = False + Me.txtVRGOut_MRN._TimeOnly = False + Me.txtVRGOut_MRN._TimeOnly_Seconds = False + Me.txtVRGOut_MRN._value = "" + Me.txtVRGOut_MRN._Waehrung = False + Me.txtVRGOut_MRN._WaehrungZeichen = False + Me.txtVRGOut_MRN.ForeColor = System.Drawing.Color.Red + Me.txtVRGOut_MRN.Location = New System.Drawing.Point(359, 84) + Me.txtVRGOut_MRN.MaxLineLength = -1 + Me.txtVRGOut_MRN.MaxLines_Warning = "" + Me.txtVRGOut_MRN.MaxLines_Warning_Label = Nothing + Me.txtVRGOut_MRN.Name = "txtVRGOut_MRN" + Me.txtVRGOut_MRN.Size = New System.Drawing.Size(153, 20) + Me.txtVRGOut_MRN.TabIndex = 73 + ' + 'txtVRGOut_FilialenNr + ' + Me.txtVRGOut_FilialenNr._DateTimeOnly = False + Me.txtVRGOut_FilialenNr._numbersOnly = False + Me.txtVRGOut_FilialenNr._numbersOnlyKommastellen = "" + Me.txtVRGOut_FilialenNr._numbersOnlyTrennzeichen = True + Me.txtVRGOut_FilialenNr._Prozent = False + Me.txtVRGOut_FilialenNr._ShortDateNew = False + Me.txtVRGOut_FilialenNr._ShortDateOnly = False + Me.txtVRGOut_FilialenNr._TimeOnly = False + Me.txtVRGOut_FilialenNr._TimeOnly_Seconds = False + Me.txtVRGOut_FilialenNr._value = "" + Me.txtVRGOut_FilialenNr._Waehrung = False + Me.txtVRGOut_FilialenNr._WaehrungZeichen = False + Me.txtVRGOut_FilialenNr.ForeColor = System.Drawing.Color.Red + Me.txtVRGOut_FilialenNr.Location = New System.Drawing.Point(398, 176) + Me.txtVRGOut_FilialenNr.MaxLineLength = -1 + Me.txtVRGOut_FilialenNr.MaxLines_Warning = "" + Me.txtVRGOut_FilialenNr.MaxLines_Warning_Label = Nothing + Me.txtVRGOut_FilialenNr.Multiline = True + Me.txtVRGOut_FilialenNr.Name = "txtVRGOut_FilialenNr" + Me.txtVRGOut_FilialenNr.Size = New System.Drawing.Size(56, 21) + Me.txtVRGOut_FilialenNr.TabIndex = 71 + ' + 'txtVRGOut_AbfertigungsNr + ' + Me.txtVRGOut_AbfertigungsNr._DateTimeOnly = False + Me.txtVRGOut_AbfertigungsNr._numbersOnly = False + Me.txtVRGOut_AbfertigungsNr._numbersOnlyKommastellen = "" + Me.txtVRGOut_AbfertigungsNr._numbersOnlyTrennzeichen = True + Me.txtVRGOut_AbfertigungsNr._Prozent = False + Me.txtVRGOut_AbfertigungsNr._ShortDateNew = False + Me.txtVRGOut_AbfertigungsNr._ShortDateOnly = False + Me.txtVRGOut_AbfertigungsNr._TimeOnly = False + Me.txtVRGOut_AbfertigungsNr._TimeOnly_Seconds = False + Me.txtVRGOut_AbfertigungsNr._value = "" + Me.txtVRGOut_AbfertigungsNr._Waehrung = False + Me.txtVRGOut_AbfertigungsNr._WaehrungZeichen = False + Me.txtVRGOut_AbfertigungsNr.ForeColor = System.Drawing.Color.Red + Me.txtVRGOut_AbfertigungsNr.Location = New System.Drawing.Point(453, 176) + Me.txtVRGOut_AbfertigungsNr.MaxLineLength = -1 + Me.txtVRGOut_AbfertigungsNr.MaxLines_Warning = "" + Me.txtVRGOut_AbfertigungsNr.MaxLines_Warning_Label = Nothing + Me.txtVRGOut_AbfertigungsNr.Multiline = True + Me.txtVRGOut_AbfertigungsNr.Name = "txtVRGOut_AbfertigungsNr" + Me.txtVRGOut_AbfertigungsNr.Size = New System.Drawing.Size(137, 21) + Me.txtVRGOut_AbfertigungsNr.TabIndex = 70 + ' + 'MyComboBox2 + ' + Me.MyComboBox2._allowedValuesFreiText = Nothing + Me.MyComboBox2._allowFreiText = False + Me.MyComboBox2._value = "" + Me.MyComboBox2.FormattingEnabled = True + Me.MyComboBox2.Location = New System.Drawing.Point(298, 252) + Me.MyComboBox2.Name = "MyComboBox2" + Me.MyComboBox2.Size = New System.Drawing.Size(62, 21) + Me.MyComboBox2.TabIndex = 64 + ' + 'txtVRGOutEZA_BezugsNr + ' + Me.txtVRGOutEZA_BezugsNr._DateTimeOnly = False + Me.txtVRGOutEZA_BezugsNr._numbersOnly = False + Me.txtVRGOutEZA_BezugsNr._numbersOnlyKommastellen = "" + Me.txtVRGOutEZA_BezugsNr._numbersOnlyTrennzeichen = True + Me.txtVRGOutEZA_BezugsNr._Prozent = False + Me.txtVRGOutEZA_BezugsNr._ShortDateNew = False + Me.txtVRGOutEZA_BezugsNr._ShortDateOnly = False + Me.txtVRGOutEZA_BezugsNr._TimeOnly = False + Me.txtVRGOutEZA_BezugsNr._TimeOnly_Seconds = False + Me.txtVRGOutEZA_BezugsNr._value = "" + Me.txtVRGOutEZA_BezugsNr._Waehrung = False + Me.txtVRGOutEZA_BezugsNr._WaehrungZeichen = False + Me.txtVRGOutEZA_BezugsNr.ForeColor = System.Drawing.Color.Red + Me.txtVRGOutEZA_BezugsNr.Location = New System.Drawing.Point(359, 252) + Me.txtVRGOutEZA_BezugsNr.MaxLineLength = -1 + Me.txtVRGOutEZA_BezugsNr.MaxLines_Warning = "" + Me.txtVRGOutEZA_BezugsNr.MaxLines_Warning_Label = Nothing + Me.txtVRGOutEZA_BezugsNr.Multiline = True + Me.txtVRGOutEZA_BezugsNr.Name = "txtVRGOutEZA_BezugsNr" + Me.txtVRGOutEZA_BezugsNr.Size = New System.Drawing.Size(153, 21) + Me.txtVRGOutEZA_BezugsNr.TabIndex = 65 + ' + 'MyComboBox1 + ' + Me.MyComboBox1._allowedValuesFreiText = Nothing + Me.MyComboBox1._allowFreiText = False + Me.MyComboBox1._value = "" + Me.MyComboBox1.FormattingEnabled = True + Me.MyComboBox1.Location = New System.Drawing.Point(298, 62) + Me.MyComboBox1.Name = "MyComboBox1" + Me.MyComboBox1.Size = New System.Drawing.Size(62, 21) + Me.MyComboBox1.TabIndex = 4 + ' + 'txtVRGOut_BezugsNr + ' + Me.txtVRGOut_BezugsNr._DateTimeOnly = False + Me.txtVRGOut_BezugsNr._numbersOnly = False + Me.txtVRGOut_BezugsNr._numbersOnlyKommastellen = "" + Me.txtVRGOut_BezugsNr._numbersOnlyTrennzeichen = True + Me.txtVRGOut_BezugsNr._Prozent = False + Me.txtVRGOut_BezugsNr._ShortDateNew = False + Me.txtVRGOut_BezugsNr._ShortDateOnly = False + Me.txtVRGOut_BezugsNr._TimeOnly = False + Me.txtVRGOut_BezugsNr._TimeOnly_Seconds = False + Me.txtVRGOut_BezugsNr._value = "" + Me.txtVRGOut_BezugsNr._Waehrung = False + Me.txtVRGOut_BezugsNr._WaehrungZeichen = False + Me.txtVRGOut_BezugsNr.ForeColor = System.Drawing.Color.Red + Me.txtVRGOut_BezugsNr.Location = New System.Drawing.Point(359, 62) + Me.txtVRGOut_BezugsNr.MaxLineLength = -1 + Me.txtVRGOut_BezugsNr.MaxLines_Warning = "" + Me.txtVRGOut_BezugsNr.MaxLines_Warning_Label = Nothing + Me.txtVRGOut_BezugsNr.Name = "txtVRGOut_BezugsNr" + Me.txtVRGOut_BezugsNr.Size = New System.Drawing.Size(153, 20) + Me.txtVRGOut_BezugsNr.TabIndex = 5 + ' 'TabPage3 ' Me.TabPage3.Controls.Add(Me.Button31) @@ -2095,6 +2410,74 @@ Partial Class frmStartOptions Me.TabPage3.Text = "Partner-Systeme" Me.TabPage3.UseVisualStyleBackColor = True ' + 'Button31 + ' + Me.Button31.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button31.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.Button31.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button31.Location = New System.Drawing.Point(14, 358) + Me.Button31.Name = "Button31" + Me.Button31.Size = New System.Drawing.Size(123, 24) + Me.Button31.TabIndex = 161 + Me.Button31.Text = "Status Updaten" + Me.Button31.UseVisualStyleBackColor = True + ' + 'Label56 + ' + Me.Label56.AutoSize = True + Me.Label56.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!) + Me.Label56.Location = New System.Drawing.Point(144, 334) + Me.Label56.Name = "Label56" + Me.Label56.Size = New System.Drawing.Size(22, 13) + Me.Label56.TabIndex = 160 + Me.Label56.Text = "ab:" + ' + 'MyTextBox5 + ' + Me.MyTextBox5._DateTimeOnly = False + Me.MyTextBox5._numbersOnly = False + Me.MyTextBox5._numbersOnlyKommastellen = "" + Me.MyTextBox5._numbersOnlyTrennzeichen = True + Me.MyTextBox5._Prozent = False + Me.MyTextBox5._ShortDateNew = True + Me.MyTextBox5._ShortDateOnly = False + Me.MyTextBox5._TimeOnly = False + Me.MyTextBox5._TimeOnly_Seconds = False + Me.MyTextBox5._value = "" + Me.MyTextBox5._Waehrung = False + Me.MyTextBox5._WaehrungZeichen = True + Me.MyTextBox5.ForeColor = System.Drawing.Color.Black + Me.MyTextBox5.Location = New System.Drawing.Point(169, 331) + Me.MyTextBox5.MaxLength = 10 + 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(87, 20) + Me.MyTextBox5.TabIndex = 159 + ' + 'Button29 + ' + Me.Button29.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button29.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.Button29.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button29.Location = New System.Drawing.Point(14, 328) + Me.Button29.Name = "Button29" + Me.Button29.Size = New System.Drawing.Size(123, 24) + Me.Button29.TabIndex = 158 + Me.Button29.Text = "NCTS Einlesen" + Me.Button29.UseVisualStyleBackColor = True + ' + 'Label55 + ' + Me.Label55.AutoSize = True + Me.Label55.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label55.Location = New System.Drawing.Point(13, 309) + Me.Label55.Name = "Label55" + Me.Label55.Size = New System.Drawing.Size(96, 13) + Me.Label55.TabIndex = 157 + Me.Label55.Text = "MODALTRANS:" + ' 'btnTesttc ' Me.btnTesttc.FlatStyle = System.Windows.Forms.FlatStyle.Flat @@ -2414,6 +2797,116 @@ Partial Class frmStartOptions Me.cbxTCVB_Versand.Text = "ZB Versand" Me.cbxTCVB_Versand.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" + ' + 'MyTextBox06 + ' + Me.MyTextBox06._DateTimeOnly = False + Me.MyTextBox06._numbersOnly = False + Me.MyTextBox06._numbersOnlyKommastellen = "" + Me.MyTextBox06._numbersOnlyTrennzeichen = False + Me.MyTextBox06._Prozent = False + Me.MyTextBox06._ShortDateNew = False + Me.MyTextBox06._ShortDateOnly = False + Me.MyTextBox06._TimeOnly = False + Me.MyTextBox06._TimeOnly_Seconds = False + Me.MyTextBox06._value = "200" + Me.MyTextBox06._Waehrung = False + Me.MyTextBox06._WaehrungZeichen = False + Me.MyTextBox06.ForeColor = System.Drawing.Color.Black + Me.MyTextBox06.Location = New System.Drawing.Point(583, 302) + Me.MyTextBox06.MaxLength = 18 + Me.MyTextBox06.MaxLineLength = -1 + Me.MyTextBox06.MaxLines_Warning = "" + Me.MyTextBox06.MaxLines_Warning_Label = Nothing + Me.MyTextBox06.Name = "MyTextBox06" + Me.MyTextBox06.Size = New System.Drawing.Size(150, 20) + Me.MyTextBox06.TabIndex = 148 + Me.MyTextBox06.Text = "200" + ' + 'txtCheckATEZMRN + ' + 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 + ' + Me.datTranscodeBis._DateTimeOnly = False + Me.datTranscodeBis._numbersOnly = False + Me.datTranscodeBis._numbersOnlyKommastellen = "" + Me.datTranscodeBis._numbersOnlyTrennzeichen = True + Me.datTranscodeBis._Prozent = False + Me.datTranscodeBis._ShortDateNew = True + Me.datTranscodeBis._ShortDateOnly = False + Me.datTranscodeBis._TimeOnly = False + Me.datTranscodeBis._TimeOnly_Seconds = False + Me.datTranscodeBis._value = "" + Me.datTranscodeBis._Waehrung = False + Me.datTranscodeBis._WaehrungZeichen = True + Me.datTranscodeBis.ForeColor = System.Drawing.Color.Black + Me.datTranscodeBis.Location = New System.Drawing.Point(646, 245) + Me.datTranscodeBis.MaxLength = 10 + Me.datTranscodeBis.MaxLineLength = -1 + Me.datTranscodeBis.MaxLines_Warning = "" + Me.datTranscodeBis.MaxLines_Warning_Label = Nothing + Me.datTranscodeBis.Name = "datTranscodeBis" + Me.datTranscodeBis.Size = New System.Drawing.Size(87, 20) + Me.datTranscodeBis.TabIndex = 143 + ' + 'datTranscodeVon + ' + Me.datTranscodeVon._DateTimeOnly = False + Me.datTranscodeVon._numbersOnly = False + Me.datTranscodeVon._numbersOnlyKommastellen = "" + Me.datTranscodeVon._numbersOnlyTrennzeichen = True + Me.datTranscodeVon._Prozent = False + Me.datTranscodeVon._ShortDateNew = True + Me.datTranscodeVon._ShortDateOnly = False + Me.datTranscodeVon._TimeOnly = False + Me.datTranscodeVon._TimeOnly_Seconds = False + Me.datTranscodeVon._value = "" + Me.datTranscodeVon._Waehrung = False + Me.datTranscodeVon._WaehrungZeichen = True + Me.datTranscodeVon.ForeColor = System.Drawing.Color.Black + Me.datTranscodeVon.Location = New System.Drawing.Point(548, 245) + Me.datTranscodeVon.MaxLength = 10 + Me.datTranscodeVon.MaxLineLength = -1 + Me.datTranscodeVon.MaxLines_Warning = "" + Me.datTranscodeVon.MaxLines_Warning_Label = Nothing + Me.datTranscodeVon.Name = "datTranscodeVon" + Me.datTranscodeVon.Size = New System.Drawing.Size(87, 20) + Me.datTranscodeVon.TabIndex = 142 + ' 'TabPage4 ' Me.TabPage4.Controls.Add(Me.TabControl1) @@ -2482,6 +2975,54 @@ Partial Class frmStartOptions Me.Label28.TabIndex = 81 Me.Label28.Text = "ASFINAG" ' + 'txtTWLNr + ' + Me.txtTWLNr._DateTimeOnly = False + Me.txtTWLNr._numbersOnly = True + Me.txtTWLNr._numbersOnlyKommastellen = "" + Me.txtTWLNr._numbersOnlyTrennzeichen = False + Me.txtTWLNr._Prozent = False + Me.txtTWLNr._ShortDateNew = False + Me.txtTWLNr._ShortDateOnly = False + Me.txtTWLNr._TimeOnly = False + Me.txtTWLNr._TimeOnly_Seconds = False + Me.txtTWLNr._value = "" + Me.txtTWLNr._Waehrung = False + Me.txtTWLNr._WaehrungZeichen = True + Me.txtTWLNr.ForeColor = System.Drawing.Color.Red + Me.txtTWLNr.Location = New System.Drawing.Point(168, 152) + Me.txtTWLNr.MaxLineLength = -1 + Me.txtTWLNr.MaxLines_Warning = "" + Me.txtTWLNr.MaxLines_Warning_Label = Nothing + Me.txtTWLNr.Name = "txtTWLNr" + Me.txtTWLNr.ReadOnly = True + Me.txtTWLNr.Size = New System.Drawing.Size(53, 20) + Me.txtTWLNr.TabIndex = 78 + ' + 'txtTBLNr + ' + Me.txtTBLNr._DateTimeOnly = False + Me.txtTBLNr._numbersOnly = True + Me.txtTBLNr._numbersOnlyKommastellen = "" + Me.txtTBLNr._numbersOnlyTrennzeichen = False + Me.txtTBLNr._Prozent = False + Me.txtTBLNr._ShortDateNew = False + Me.txtTBLNr._ShortDateOnly = False + Me.txtTBLNr._TimeOnly = False + Me.txtTBLNr._TimeOnly_Seconds = False + Me.txtTBLNr._value = "" + Me.txtTBLNr._Waehrung = False + Me.txtTBLNr._WaehrungZeichen = True + Me.txtTBLNr.ForeColor = System.Drawing.Color.Red + Me.txtTBLNr.Location = New System.Drawing.Point(168, 180) + Me.txtTBLNr.MaxLineLength = -1 + Me.txtTBLNr.MaxLines_Warning = "" + Me.txtTBLNr.MaxLines_Warning_Label = Nothing + Me.txtTBLNr.Name = "txtTBLNr" + Me.txtTBLNr.ReadOnly = True + Me.txtTBLNr.Size = New System.Drawing.Size(53, 20) + Me.txtTBLNr.TabIndex = 79 + ' 'Label24 ' Me.Label24.AutoSize = True @@ -2818,6 +3359,32 @@ 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.LinkLabel25) @@ -3116,6 +3683,98 @@ 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.Label58) @@ -3229,6 +3888,17 @@ 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(13, 115) + Me.cbxRMC.Name = "cbxRMC" + Me.cbxRMC.Size = New System.Drawing.Size(80, 21) + Me.cbxRMC.TabIndex = 90 + ' 'UTA ' Me.UTA.Controls.Add(Me.lblOriginalRechnungUTA) @@ -3379,6 +4049,58 @@ 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, 215) + 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.lblOriginalRechnungPLOSE) @@ -3528,6 +4250,58 @@ 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(83, 146) + 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(83, 169) + 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.btnCheckPDF_USTVA) @@ -3774,6 +4548,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 + ' 'TabPage8 ' Me.TabPage8.Controls.Add(Me.PictureBox27) @@ -3817,6 +4615,15 @@ Partial Class frmStartOptions Me.dtp_MDM_Einarbeitung.Size = New System.Drawing.Size(77, 20) Me.dtp_MDM_Einarbeitung.TabIndex = 1 ' + 'dgv_MDMEinarbeitung + ' + Me.dgv_MDMEinarbeitung.AKTUALISIERUNGS_INTERVALL = -1 + Me.dgv_MDMEinarbeitung.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.dgv_MDMEinarbeitung.Location = New System.Drawing.Point(13, 35) + Me.dgv_MDMEinarbeitung.Name = "dgv_MDMEinarbeitung" + Me.dgv_MDMEinarbeitung.Size = New System.Drawing.Size(458, 170) + Me.dgv_MDMEinarbeitung.TabIndex = 0 + ' 'KN8_DESTAT ' Me.KN8_DESTAT.AutoSize = True @@ -3921,6 +4728,30 @@ Partial Class frmStartOptions Me.lblWartungen.TabIndex = 15 Me.lblWartungen.Text = "Wartungen" ' + 'txtWartungFaelligkeitAbDat + ' + Me.txtWartungFaelligkeitAbDat._DateTimeOnly = False + Me.txtWartungFaelligkeitAbDat._numbersOnly = False + Me.txtWartungFaelligkeitAbDat._numbersOnlyKommastellen = "" + Me.txtWartungFaelligkeitAbDat._numbersOnlyTrennzeichen = True + Me.txtWartungFaelligkeitAbDat._Prozent = False + Me.txtWartungFaelligkeitAbDat._ShortDateNew = True + Me.txtWartungFaelligkeitAbDat._ShortDateOnly = False + Me.txtWartungFaelligkeitAbDat._TimeOnly = False + Me.txtWartungFaelligkeitAbDat._TimeOnly_Seconds = False + Me.txtWartungFaelligkeitAbDat._value = "" + Me.txtWartungFaelligkeitAbDat._Waehrung = False + Me.txtWartungFaelligkeitAbDat._WaehrungZeichen = True + Me.txtWartungFaelligkeitAbDat.ForeColor = System.Drawing.Color.Red + Me.txtWartungFaelligkeitAbDat.Location = New System.Drawing.Point(75, 76) + Me.txtWartungFaelligkeitAbDat.MaxLength = 10 + Me.txtWartungFaelligkeitAbDat.MaxLineLength = -1 + Me.txtWartungFaelligkeitAbDat.MaxLines_Warning = "" + Me.txtWartungFaelligkeitAbDat.MaxLines_Warning_Label = Nothing + Me.txtWartungFaelligkeitAbDat.Name = "txtWartungFaelligkeitAbDat" + Me.txtWartungFaelligkeitAbDat.Size = New System.Drawing.Size(101, 20) + Me.txtWartungFaelligkeitAbDat.TabIndex = 141 + ' 'TabPage7 ' Me.TabPage7.Controls.Add(Me.cbxEventtriggered) @@ -4129,6 +4960,33 @@ Partial Class frmStartOptions Me.btnCreditsaveLauf.Text = "CS Portfolio-Upload" Me.btnCreditsaveLauf.UseVisualStyleBackColor = True ' + 'txtCSDate + ' + Me.txtCSDate._DateTimeOnly = False + Me.txtCSDate._numbersOnly = False + Me.txtCSDate._numbersOnlyKommastellen = "" + Me.txtCSDate._numbersOnlyTrennzeichen = False + Me.txtCSDate._Prozent = False + Me.txtCSDate._ShortDateNew = False + Me.txtCSDate._ShortDateOnly = True + Me.txtCSDate._TimeOnly = False + Me.txtCSDate._TimeOnly_Seconds = False + Me.txtCSDate._value = "" + Me.txtCSDate._Waehrung = False + Me.txtCSDate._WaehrungZeichen = True + Me.txtCSDate.BackColor = System.Drawing.SystemColors.Window + Me.txtCSDate.Enabled = False + Me.txtCSDate.ForeColor = System.Drawing.Color.Red + Me.txtCSDate.Location = New System.Drawing.Point(96, 174) + Me.txtCSDate.MaxLength = 10 + Me.txtCSDate.MaxLineLength = -1 + Me.txtCSDate.MaxLines_Warning = "" + Me.txtCSDate.MaxLines_Warning_Label = Nothing + Me.txtCSDate.Name = "txtCSDate" + Me.txtCSDate.Size = New System.Drawing.Size(66, 20) + Me.txtCSDate.TabIndex = 157 + Me.txtCSDate.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' 'CheckBox1 ' Me.CheckBox1.AutoSize = True @@ -4186,6 +5044,30 @@ Partial Class frmStartOptions Me.Label3.TabIndex = 14 Me.Label3.Text = "Routine Manager IMEX" ' + 'MyTextBox1 + ' + Me.MyTextBox1._DateTimeOnly = False + Me.MyTextBox1._numbersOnly = True + Me.MyTextBox1._numbersOnlyKommastellen = "" + Me.MyTextBox1._numbersOnlyTrennzeichen = True + Me.MyTextBox1._Prozent = False + Me.MyTextBox1._ShortDateNew = False + Me.MyTextBox1._ShortDateOnly = False + Me.MyTextBox1._TimeOnly = False + Me.MyTextBox1._TimeOnly_Seconds = False + Me.MyTextBox1._value = "100000" + Me.MyTextBox1._Waehrung = False + Me.MyTextBox1._WaehrungZeichen = True + Me.MyTextBox1.ForeColor = System.Drawing.Color.Black + Me.MyTextBox1.Location = New System.Drawing.Point(151, 156) + Me.MyTextBox1.MaxLineLength = -1 + Me.MyTextBox1.MaxLines_Warning = "" + Me.MyTextBox1.MaxLines_Warning_Label = Nothing + Me.MyTextBox1.Name = "MyTextBox1" + Me.MyTextBox1.Size = New System.Drawing.Size(53, 20) + Me.MyTextBox1.TabIndex = 11 + Me.MyTextBox1.Text = "100000" + ' 'PictureBox12 ' Me.PictureBox12.BackgroundImage = CType(resources.GetObject("PictureBox12.BackgroundImage"), System.Drawing.Image) @@ -4354,872 +5236,6 @@ Partial Class frmStartOptions Me.lblRoutineManager.TabIndex = 1 Me.lblRoutineManager.Text = "Routine Manager" ' - 'Button21 - ' - Me.Button21.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button21.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.Button21.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button21.Location = New System.Drawing.Point(581, 346) - Me.Button21.Name = "Button21" - Me.Button21.Size = New System.Drawing.Size(211, 24) - Me.Button21.TabIndex = 81 - Me.Button21.Text = "AAS Sendung 24h" - Me.Button21.UseVisualStyleBackColor = True - ' - 'Label55 - ' - Me.Label55.AutoSize = True - Me.Label55.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label55.Location = New System.Drawing.Point(13, 309) - Me.Label55.Name = "Label55" - Me.Label55.Size = New System.Drawing.Size(96, 13) - Me.Label55.TabIndex = 157 - Me.Label55.Text = "MODALTRANS:" - ' - 'Button29 - ' - Me.Button29.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button29.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.Button29.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button29.Location = New System.Drawing.Point(14, 328) - Me.Button29.Name = "Button29" - Me.Button29.Size = New System.Drawing.Size(123, 24) - Me.Button29.TabIndex = 158 - Me.Button29.Text = "NCTS Einlesen" - Me.Button29.UseVisualStyleBackColor = True - ' - 'Label56 - ' - Me.Label56.AutoSize = True - Me.Label56.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!) - Me.Label56.Location = New System.Drawing.Point(144, 334) - Me.Label56.Name = "Label56" - Me.Label56.Size = New System.Drawing.Size(22, 13) - Me.Label56.TabIndex = 160 - Me.Label56.Text = "ab:" - ' - 'MyTextBox3 - ' - Me.MyTextBox3._DateTimeOnly = False - Me.MyTextBox3._numbersOnly = True - Me.MyTextBox3._numbersOnlyKommastellen = "" - Me.MyTextBox3._numbersOnlyTrennzeichen = True - Me.MyTextBox3._Prozent = False - Me.MyTextBox3._ShortDateNew = False - Me.MyTextBox3._ShortDateOnly = False - Me.MyTextBox3._TimeOnly = False - Me.MyTextBox3._TimeOnly_Seconds = False - Me.MyTextBox3._value = "" - Me.MyTextBox3._Waehrung = False - Me.MyTextBox3._WaehrungZeichen = True - Me.MyTextBox3.ForeColor = System.Drawing.Color.Red - Me.MyTextBox3.Location = New System.Drawing.Point(127, 232) - Me.MyTextBox3.MaxLineLength = -1 - Me.MyTextBox3.MaxLines_Warning = "" - Me.MyTextBox3.MaxLines_Warning_Label = Nothing - Me.MyTextBox3.Name = "MyTextBox3" - Me.MyTextBox3.Size = New System.Drawing.Size(53, 20) - Me.MyTextBox3.TabIndex = 86 - ' - 'MyTextBox2 - ' - Me.MyTextBox2._DateTimeOnly = False - Me.MyTextBox2._numbersOnly = True - Me.MyTextBox2._numbersOnlyKommastellen = "" - Me.MyTextBox2._numbersOnlyTrennzeichen = True - Me.MyTextBox2._Prozent = False - Me.MyTextBox2._ShortDateNew = False - Me.MyTextBox2._ShortDateOnly = False - Me.MyTextBox2._TimeOnly = False - Me.MyTextBox2._TimeOnly_Seconds = False - Me.MyTextBox2._value = "" - Me.MyTextBox2._Waehrung = False - Me.MyTextBox2._WaehrungZeichen = True - Me.MyTextBox2.ForeColor = System.Drawing.Color.Red - Me.MyTextBox2.Location = New System.Drawing.Point(151, 176) - Me.MyTextBox2.MaxLineLength = -1 - Me.MyTextBox2.MaxLines_Warning = "" - Me.MyTextBox2.MaxLines_Warning_Label = Nothing - Me.MyTextBox2.Name = "MyTextBox2" - Me.MyTextBox2.Size = New System.Drawing.Size(53, 20) - Me.MyTextBox2.TabIndex = 63 - ' - 'txtSyskaWdhDateiname - ' - Me.txtSyskaWdhDateiname._DateTimeOnly = False - Me.txtSyskaWdhDateiname._numbersOnly = False - Me.txtSyskaWdhDateiname._numbersOnlyKommastellen = "" - Me.txtSyskaWdhDateiname._numbersOnlyTrennzeichen = True - Me.txtSyskaWdhDateiname._Prozent = False - Me.txtSyskaWdhDateiname._ShortDateNew = False - Me.txtSyskaWdhDateiname._ShortDateOnly = False - Me.txtSyskaWdhDateiname._TimeOnly = False - Me.txtSyskaWdhDateiname._TimeOnly_Seconds = False - Me.txtSyskaWdhDateiname._value = "" - Me.txtSyskaWdhDateiname._Waehrung = False - Me.txtSyskaWdhDateiname._WaehrungZeichen = True - Me.txtSyskaWdhDateiname.ForeColor = System.Drawing.Color.Black - Me.txtSyskaWdhDateiname.Location = New System.Drawing.Point(692, 318) - Me.txtSyskaWdhDateiname.MaxLength = 50 - Me.txtSyskaWdhDateiname.MaxLineLength = -1 - Me.txtSyskaWdhDateiname.MaxLines_Warning = "" - Me.txtSyskaWdhDateiname.MaxLines_Warning_Label = Nothing - Me.txtSyskaWdhDateiname.Name = "txtSyskaWdhDateiname" - Me.txtSyskaWdhDateiname.Size = New System.Drawing.Size(136, 20) - Me.txtSyskaWdhDateiname.TabIndex = 58 - ' - 'txtEZOLLAnhDat - ' - Me.txtEZOLLAnhDat._DateTimeOnly = False - Me.txtEZOLLAnhDat._numbersOnly = False - Me.txtEZOLLAnhDat._numbersOnlyKommastellen = "" - Me.txtEZOLLAnhDat._numbersOnlyTrennzeichen = True - Me.txtEZOLLAnhDat._Prozent = False - Me.txtEZOLLAnhDat._ShortDateNew = True - Me.txtEZOLLAnhDat._ShortDateOnly = False - Me.txtEZOLLAnhDat._TimeOnly = False - Me.txtEZOLLAnhDat._TimeOnly_Seconds = False - Me.txtEZOLLAnhDat._value = "" - Me.txtEZOLLAnhDat._Waehrung = False - Me.txtEZOLLAnhDat._WaehrungZeichen = True - Me.txtEZOLLAnhDat.ForeColor = System.Drawing.Color.Black - Me.txtEZOLLAnhDat.Location = New System.Drawing.Point(425, 207) - Me.txtEZOLLAnhDat.MaxLength = 10 - Me.txtEZOLLAnhDat.MaxLineLength = -1 - Me.txtEZOLLAnhDat.MaxLines_Warning = "" - Me.txtEZOLLAnhDat.MaxLines_Warning_Label = Nothing - Me.txtEZOLLAnhDat.Name = "txtEZOLLAnhDat" - Me.txtEZOLLAnhDat.Size = New System.Drawing.Size(87, 20) - Me.txtEZOLLAnhDat.TabIndex = 55 - ' - 'cboSYSKAFirma - ' - Me.cboSYSKAFirma._allowedValuesFreiText = Nothing - Me.cboSYSKAFirma._allowFreiText = False - Me.cboSYSKAFirma._value = "" - Me.cboSYSKAFirma.FormattingEnabled = True - Me.cboSYSKAFirma.Location = New System.Drawing.Point(564, 299) - Me.cboSYSKAFirma.Name = "cboSYSKAFirma" - Me.cboSYSKAFirma.Size = New System.Drawing.Size(129, 21) - Me.cboSYSKAFirma.TabIndex = 51 - ' - 'cboBMDUnispedFirma - ' - Me.cboBMDUnispedFirma._allowedValuesFreiText = Nothing - Me.cboBMDUnispedFirma._allowFreiText = False - Me.cboBMDUnispedFirma._value = "" - Me.cboBMDUnispedFirma.FormattingEnabled = True - Me.cboBMDUnispedFirma.Location = New System.Drawing.Point(268, 300) - Me.cboBMDUnispedFirma.Name = "cboBMDUnispedFirma" - Me.cboBMDUnispedFirma.Size = New System.Drawing.Size(124, 21) - Me.cboBMDUnispedFirma.TabIndex = 42 - ' - 'MyTextBox4 - ' - Me.MyTextBox4._DateTimeOnly = False - Me.MyTextBox4._numbersOnly = False - Me.MyTextBox4._numbersOnlyKommastellen = "" - Me.MyTextBox4._numbersOnlyTrennzeichen = True - Me.MyTextBox4._Prozent = False - Me.MyTextBox4._ShortDateNew = True - Me.MyTextBox4._ShortDateOnly = False - Me.MyTextBox4._TimeOnly = False - Me.MyTextBox4._TimeOnly_Seconds = False - Me.MyTextBox4._value = "" - Me.MyTextBox4._Waehrung = False - Me.MyTextBox4._WaehrungZeichen = True - Me.MyTextBox4.ForeColor = System.Drawing.Color.Black - Me.MyTextBox4.Location = New System.Drawing.Point(775, 277) - Me.MyTextBox4.MaxLength = 10 - Me.MyTextBox4.MaxLineLength = -1 - Me.MyTextBox4.MaxLines_Warning = "" - Me.MyTextBox4.MaxLines_Warning_Label = Nothing - Me.MyTextBox4.Name = "MyTextBox4" - Me.MyTextBox4.Size = New System.Drawing.Size(80, 20) - Me.MyTextBox4.TabIndex = 90 - ' - 'dgvMRN - ' - Me.dgvMRN.AKTUALISIERUNGS_INTERVALL = -1 - Me.dgvMRN.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - Me.dgvMRN.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.clmnMRN}) - Me.dgvMRN.Location = New System.Drawing.Point(637, 63) - Me.dgvMRN.Name = "dgvMRN" - Me.dgvMRN.RowHeadersWidth = 62 - Me.dgvMRN.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect - Me.dgvMRN.Size = New System.Drawing.Size(207, 134) - Me.dgvMRN.TabIndex = 75 - ' - 'clmnMRN - ' - Me.clmnMRN.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill - Me.clmnMRN.HeaderText = "MRN" - Me.clmnMRN.MinimumWidth = 8 - Me.clmnMRN.Name = "clmnMRN" - ' - 'txtVRGOut_MRN - ' - Me.txtVRGOut_MRN._DateTimeOnly = False - Me.txtVRGOut_MRN._numbersOnly = False - Me.txtVRGOut_MRN._numbersOnlyKommastellen = "" - Me.txtVRGOut_MRN._numbersOnlyTrennzeichen = True - Me.txtVRGOut_MRN._Prozent = False - Me.txtVRGOut_MRN._ShortDateNew = False - Me.txtVRGOut_MRN._ShortDateOnly = False - Me.txtVRGOut_MRN._TimeOnly = False - Me.txtVRGOut_MRN._TimeOnly_Seconds = False - Me.txtVRGOut_MRN._value = "" - Me.txtVRGOut_MRN._Waehrung = False - Me.txtVRGOut_MRN._WaehrungZeichen = False - Me.txtVRGOut_MRN.ForeColor = System.Drawing.Color.Red - Me.txtVRGOut_MRN.Location = New System.Drawing.Point(359, 84) - Me.txtVRGOut_MRN.MaxLineLength = -1 - Me.txtVRGOut_MRN.MaxLines_Warning = "" - Me.txtVRGOut_MRN.MaxLines_Warning_Label = Nothing - Me.txtVRGOut_MRN.Name = "txtVRGOut_MRN" - Me.txtVRGOut_MRN.Size = New System.Drawing.Size(153, 20) - Me.txtVRGOut_MRN.TabIndex = 73 - ' - 'txtVRGOut_FilialenNr - ' - Me.txtVRGOut_FilialenNr._DateTimeOnly = False - Me.txtVRGOut_FilialenNr._numbersOnly = False - Me.txtVRGOut_FilialenNr._numbersOnlyKommastellen = "" - Me.txtVRGOut_FilialenNr._numbersOnlyTrennzeichen = True - Me.txtVRGOut_FilialenNr._Prozent = False - Me.txtVRGOut_FilialenNr._ShortDateNew = False - Me.txtVRGOut_FilialenNr._ShortDateOnly = False - Me.txtVRGOut_FilialenNr._TimeOnly = False - Me.txtVRGOut_FilialenNr._TimeOnly_Seconds = False - Me.txtVRGOut_FilialenNr._value = "" - Me.txtVRGOut_FilialenNr._Waehrung = False - Me.txtVRGOut_FilialenNr._WaehrungZeichen = False - Me.txtVRGOut_FilialenNr.ForeColor = System.Drawing.Color.Red - Me.txtVRGOut_FilialenNr.Location = New System.Drawing.Point(398, 176) - Me.txtVRGOut_FilialenNr.MaxLineLength = -1 - Me.txtVRGOut_FilialenNr.MaxLines_Warning = "" - Me.txtVRGOut_FilialenNr.MaxLines_Warning_Label = Nothing - Me.txtVRGOut_FilialenNr.Multiline = True - Me.txtVRGOut_FilialenNr.Name = "txtVRGOut_FilialenNr" - Me.txtVRGOut_FilialenNr.Size = New System.Drawing.Size(56, 21) - Me.txtVRGOut_FilialenNr.TabIndex = 71 - ' - 'txtVRGOut_AbfertigungsNr - ' - Me.txtVRGOut_AbfertigungsNr._DateTimeOnly = False - Me.txtVRGOut_AbfertigungsNr._numbersOnly = False - Me.txtVRGOut_AbfertigungsNr._numbersOnlyKommastellen = "" - Me.txtVRGOut_AbfertigungsNr._numbersOnlyTrennzeichen = True - Me.txtVRGOut_AbfertigungsNr._Prozent = False - Me.txtVRGOut_AbfertigungsNr._ShortDateNew = False - Me.txtVRGOut_AbfertigungsNr._ShortDateOnly = False - Me.txtVRGOut_AbfertigungsNr._TimeOnly = False - Me.txtVRGOut_AbfertigungsNr._TimeOnly_Seconds = False - Me.txtVRGOut_AbfertigungsNr._value = "" - Me.txtVRGOut_AbfertigungsNr._Waehrung = False - Me.txtVRGOut_AbfertigungsNr._WaehrungZeichen = False - Me.txtVRGOut_AbfertigungsNr.ForeColor = System.Drawing.Color.Red - Me.txtVRGOut_AbfertigungsNr.Location = New System.Drawing.Point(453, 176) - Me.txtVRGOut_AbfertigungsNr.MaxLineLength = -1 - Me.txtVRGOut_AbfertigungsNr.MaxLines_Warning = "" - Me.txtVRGOut_AbfertigungsNr.MaxLines_Warning_Label = Nothing - Me.txtVRGOut_AbfertigungsNr.Multiline = True - Me.txtVRGOut_AbfertigungsNr.Name = "txtVRGOut_AbfertigungsNr" - Me.txtVRGOut_AbfertigungsNr.Size = New System.Drawing.Size(137, 21) - Me.txtVRGOut_AbfertigungsNr.TabIndex = 70 - ' - 'MyComboBox2 - ' - Me.MyComboBox2._allowedValuesFreiText = Nothing - Me.MyComboBox2._allowFreiText = False - Me.MyComboBox2._value = "" - Me.MyComboBox2.FormattingEnabled = True - Me.MyComboBox2.Location = New System.Drawing.Point(298, 252) - Me.MyComboBox2.Name = "MyComboBox2" - Me.MyComboBox2.Size = New System.Drawing.Size(62, 21) - Me.MyComboBox2.TabIndex = 64 - ' - 'txtVRGOutEZA_BezugsNr - ' - Me.txtVRGOutEZA_BezugsNr._DateTimeOnly = False - Me.txtVRGOutEZA_BezugsNr._numbersOnly = False - Me.txtVRGOutEZA_BezugsNr._numbersOnlyKommastellen = "" - Me.txtVRGOutEZA_BezugsNr._numbersOnlyTrennzeichen = True - Me.txtVRGOutEZA_BezugsNr._Prozent = False - Me.txtVRGOutEZA_BezugsNr._ShortDateNew = False - Me.txtVRGOutEZA_BezugsNr._ShortDateOnly = False - Me.txtVRGOutEZA_BezugsNr._TimeOnly = False - Me.txtVRGOutEZA_BezugsNr._TimeOnly_Seconds = False - Me.txtVRGOutEZA_BezugsNr._value = "" - Me.txtVRGOutEZA_BezugsNr._Waehrung = False - Me.txtVRGOutEZA_BezugsNr._WaehrungZeichen = False - Me.txtVRGOutEZA_BezugsNr.ForeColor = System.Drawing.Color.Red - Me.txtVRGOutEZA_BezugsNr.Location = New System.Drawing.Point(359, 252) - Me.txtVRGOutEZA_BezugsNr.MaxLineLength = -1 - Me.txtVRGOutEZA_BezugsNr.MaxLines_Warning = "" - Me.txtVRGOutEZA_BezugsNr.MaxLines_Warning_Label = Nothing - Me.txtVRGOutEZA_BezugsNr.Multiline = True - Me.txtVRGOutEZA_BezugsNr.Name = "txtVRGOutEZA_BezugsNr" - Me.txtVRGOutEZA_BezugsNr.Size = New System.Drawing.Size(153, 21) - Me.txtVRGOutEZA_BezugsNr.TabIndex = 65 - ' - 'MyComboBox1 - ' - Me.MyComboBox1._allowedValuesFreiText = Nothing - Me.MyComboBox1._allowFreiText = False - Me.MyComboBox1._value = "" - Me.MyComboBox1.FormattingEnabled = True - Me.MyComboBox1.Location = New System.Drawing.Point(298, 62) - Me.MyComboBox1.Name = "MyComboBox1" - Me.MyComboBox1.Size = New System.Drawing.Size(62, 21) - Me.MyComboBox1.TabIndex = 4 - ' - 'txtVRGOut_BezugsNr - ' - Me.txtVRGOut_BezugsNr._DateTimeOnly = False - Me.txtVRGOut_BezugsNr._numbersOnly = False - Me.txtVRGOut_BezugsNr._numbersOnlyKommastellen = "" - Me.txtVRGOut_BezugsNr._numbersOnlyTrennzeichen = True - Me.txtVRGOut_BezugsNr._Prozent = False - Me.txtVRGOut_BezugsNr._ShortDateNew = False - Me.txtVRGOut_BezugsNr._ShortDateOnly = False - Me.txtVRGOut_BezugsNr._TimeOnly = False - Me.txtVRGOut_BezugsNr._TimeOnly_Seconds = False - Me.txtVRGOut_BezugsNr._value = "" - Me.txtVRGOut_BezugsNr._Waehrung = False - Me.txtVRGOut_BezugsNr._WaehrungZeichen = False - Me.txtVRGOut_BezugsNr.ForeColor = System.Drawing.Color.Red - Me.txtVRGOut_BezugsNr.Location = New System.Drawing.Point(359, 62) - Me.txtVRGOut_BezugsNr.MaxLineLength = -1 - Me.txtVRGOut_BezugsNr.MaxLines_Warning = "" - Me.txtVRGOut_BezugsNr.MaxLines_Warning_Label = Nothing - Me.txtVRGOut_BezugsNr.Name = "txtVRGOut_BezugsNr" - Me.txtVRGOut_BezugsNr.Size = New System.Drawing.Size(153, 20) - Me.txtVRGOut_BezugsNr.TabIndex = 5 - ' - 'MyTextBox5 - ' - Me.MyTextBox5._DateTimeOnly = False - Me.MyTextBox5._numbersOnly = False - Me.MyTextBox5._numbersOnlyKommastellen = "" - Me.MyTextBox5._numbersOnlyTrennzeichen = True - Me.MyTextBox5._Prozent = False - Me.MyTextBox5._ShortDateNew = True - Me.MyTextBox5._ShortDateOnly = False - Me.MyTextBox5._TimeOnly = False - Me.MyTextBox5._TimeOnly_Seconds = False - Me.MyTextBox5._value = "" - Me.MyTextBox5._Waehrung = False - Me.MyTextBox5._WaehrungZeichen = True - Me.MyTextBox5.ForeColor = System.Drawing.Color.Black - Me.MyTextBox5.Location = New System.Drawing.Point(169, 331) - Me.MyTextBox5.MaxLength = 10 - 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(87, 20) - Me.MyTextBox5.TabIndex = 159 - ' - '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" - ' - 'MyTextBox06 - ' - Me.MyTextBox06._DateTimeOnly = False - Me.MyTextBox06._numbersOnly = False - Me.MyTextBox06._numbersOnlyKommastellen = "" - Me.MyTextBox06._numbersOnlyTrennzeichen = False - Me.MyTextBox06._Prozent = False - Me.MyTextBox06._ShortDateNew = False - Me.MyTextBox06._ShortDateOnly = False - Me.MyTextBox06._TimeOnly = False - Me.MyTextBox06._TimeOnly_Seconds = False - Me.MyTextBox06._value = "200" - Me.MyTextBox06._Waehrung = False - Me.MyTextBox06._WaehrungZeichen = False - Me.MyTextBox06.ForeColor = System.Drawing.Color.Black - Me.MyTextBox06.Location = New System.Drawing.Point(583, 302) - Me.MyTextBox06.MaxLength = 18 - Me.MyTextBox06.MaxLineLength = -1 - Me.MyTextBox06.MaxLines_Warning = "" - Me.MyTextBox06.MaxLines_Warning_Label = Nothing - Me.MyTextBox06.Name = "MyTextBox06" - Me.MyTextBox06.Size = New System.Drawing.Size(150, 20) - Me.MyTextBox06.TabIndex = 148 - Me.MyTextBox06.Text = "200" - ' - 'txtCheckATEZMRN - ' - 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 - ' - Me.datTranscodeBis._DateTimeOnly = False - Me.datTranscodeBis._numbersOnly = False - Me.datTranscodeBis._numbersOnlyKommastellen = "" - Me.datTranscodeBis._numbersOnlyTrennzeichen = True - Me.datTranscodeBis._Prozent = False - Me.datTranscodeBis._ShortDateNew = True - Me.datTranscodeBis._ShortDateOnly = False - Me.datTranscodeBis._TimeOnly = False - Me.datTranscodeBis._TimeOnly_Seconds = False - Me.datTranscodeBis._value = "" - Me.datTranscodeBis._Waehrung = False - Me.datTranscodeBis._WaehrungZeichen = True - Me.datTranscodeBis.ForeColor = System.Drawing.Color.Black - Me.datTranscodeBis.Location = New System.Drawing.Point(646, 245) - Me.datTranscodeBis.MaxLength = 10 - Me.datTranscodeBis.MaxLineLength = -1 - Me.datTranscodeBis.MaxLines_Warning = "" - Me.datTranscodeBis.MaxLines_Warning_Label = Nothing - Me.datTranscodeBis.Name = "datTranscodeBis" - Me.datTranscodeBis.Size = New System.Drawing.Size(87, 20) - Me.datTranscodeBis.TabIndex = 143 - ' - 'datTranscodeVon - ' - Me.datTranscodeVon._DateTimeOnly = False - Me.datTranscodeVon._numbersOnly = False - Me.datTranscodeVon._numbersOnlyKommastellen = "" - Me.datTranscodeVon._numbersOnlyTrennzeichen = True - Me.datTranscodeVon._Prozent = False - Me.datTranscodeVon._ShortDateNew = True - Me.datTranscodeVon._ShortDateOnly = False - Me.datTranscodeVon._TimeOnly = False - Me.datTranscodeVon._TimeOnly_Seconds = False - Me.datTranscodeVon._value = "" - Me.datTranscodeVon._Waehrung = False - Me.datTranscodeVon._WaehrungZeichen = True - Me.datTranscodeVon.ForeColor = System.Drawing.Color.Black - Me.datTranscodeVon.Location = New System.Drawing.Point(548, 245) - Me.datTranscodeVon.MaxLength = 10 - Me.datTranscodeVon.MaxLineLength = -1 - Me.datTranscodeVon.MaxLines_Warning = "" - Me.datTranscodeVon.MaxLines_Warning_Label = Nothing - Me.datTranscodeVon.Name = "datTranscodeVon" - Me.datTranscodeVon.Size = New System.Drawing.Size(87, 20) - Me.datTranscodeVon.TabIndex = 142 - ' - 'txtTWLNr - ' - Me.txtTWLNr._DateTimeOnly = False - Me.txtTWLNr._numbersOnly = True - Me.txtTWLNr._numbersOnlyKommastellen = "" - Me.txtTWLNr._numbersOnlyTrennzeichen = False - Me.txtTWLNr._Prozent = False - Me.txtTWLNr._ShortDateNew = False - Me.txtTWLNr._ShortDateOnly = False - Me.txtTWLNr._TimeOnly = False - Me.txtTWLNr._TimeOnly_Seconds = False - Me.txtTWLNr._value = "" - Me.txtTWLNr._Waehrung = False - Me.txtTWLNr._WaehrungZeichen = True - Me.txtTWLNr.ForeColor = System.Drawing.Color.Red - Me.txtTWLNr.Location = New System.Drawing.Point(168, 152) - Me.txtTWLNr.MaxLineLength = -1 - Me.txtTWLNr.MaxLines_Warning = "" - Me.txtTWLNr.MaxLines_Warning_Label = Nothing - Me.txtTWLNr.Name = "txtTWLNr" - Me.txtTWLNr.ReadOnly = True - Me.txtTWLNr.Size = New System.Drawing.Size(53, 20) - Me.txtTWLNr.TabIndex = 78 - ' - 'txtTBLNr - ' - Me.txtTBLNr._DateTimeOnly = False - Me.txtTBLNr._numbersOnly = True - Me.txtTBLNr._numbersOnlyKommastellen = "" - Me.txtTBLNr._numbersOnlyTrennzeichen = False - Me.txtTBLNr._Prozent = False - Me.txtTBLNr._ShortDateNew = False - Me.txtTBLNr._ShortDateOnly = False - Me.txtTBLNr._TimeOnly = False - Me.txtTBLNr._TimeOnly_Seconds = False - Me.txtTBLNr._value = "" - Me.txtTBLNr._Waehrung = False - Me.txtTBLNr._WaehrungZeichen = True - Me.txtTBLNr.ForeColor = System.Drawing.Color.Red - Me.txtTBLNr.Location = New System.Drawing.Point(168, 180) - Me.txtTBLNr.MaxLineLength = -1 - Me.txtTBLNr.MaxLines_Warning = "" - Me.txtTBLNr.MaxLines_Warning_Label = Nothing - Me.txtTBLNr.Name = "txtTBLNr" - Me.txtTBLNr.ReadOnly = True - Me.txtTBLNr.Size = New System.Drawing.Size(53, 20) - Me.txtTBLNr.TabIndex = 79 - ' - '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 - ' - '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 - ' - 'cbxRMC - ' - Me.cbxRMC._allowedValuesFreiText = Nothing - Me.cbxRMC._allowFreiText = False - Me.cbxRMC._value = "" - Me.cbxRMC.FormattingEnabled = True - Me.cbxRMC.Location = New System.Drawing.Point(13, 115) - Me.cbxRMC.Name = "cbxRMC" - Me.cbxRMC.Size = New System.Drawing.Size(80, 21) - Me.cbxRMC.TabIndex = 90 - ' - '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, 215) - 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 - ' - '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(83, 146) - 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(83, 169) - 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 - ' - '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 - ' - 'dgv_MDMEinarbeitung - ' - Me.dgv_MDMEinarbeitung.AKTUALISIERUNGS_INTERVALL = -1 - Me.dgv_MDMEinarbeitung.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - Me.dgv_MDMEinarbeitung.Location = New System.Drawing.Point(13, 35) - Me.dgv_MDMEinarbeitung.Name = "dgv_MDMEinarbeitung" - Me.dgv_MDMEinarbeitung.Size = New System.Drawing.Size(458, 170) - Me.dgv_MDMEinarbeitung.TabIndex = 0 - ' - 'txtWartungFaelligkeitAbDat - ' - Me.txtWartungFaelligkeitAbDat._DateTimeOnly = False - Me.txtWartungFaelligkeitAbDat._numbersOnly = False - Me.txtWartungFaelligkeitAbDat._numbersOnlyKommastellen = "" - Me.txtWartungFaelligkeitAbDat._numbersOnlyTrennzeichen = True - Me.txtWartungFaelligkeitAbDat._Prozent = False - Me.txtWartungFaelligkeitAbDat._ShortDateNew = True - Me.txtWartungFaelligkeitAbDat._ShortDateOnly = False - Me.txtWartungFaelligkeitAbDat._TimeOnly = False - Me.txtWartungFaelligkeitAbDat._TimeOnly_Seconds = False - Me.txtWartungFaelligkeitAbDat._value = "" - Me.txtWartungFaelligkeitAbDat._Waehrung = False - Me.txtWartungFaelligkeitAbDat._WaehrungZeichen = True - Me.txtWartungFaelligkeitAbDat.ForeColor = System.Drawing.Color.Red - Me.txtWartungFaelligkeitAbDat.Location = New System.Drawing.Point(75, 76) - Me.txtWartungFaelligkeitAbDat.MaxLength = 10 - Me.txtWartungFaelligkeitAbDat.MaxLineLength = -1 - Me.txtWartungFaelligkeitAbDat.MaxLines_Warning = "" - Me.txtWartungFaelligkeitAbDat.MaxLines_Warning_Label = Nothing - Me.txtWartungFaelligkeitAbDat.Name = "txtWartungFaelligkeitAbDat" - Me.txtWartungFaelligkeitAbDat.Size = New System.Drawing.Size(101, 20) - Me.txtWartungFaelligkeitAbDat.TabIndex = 141 - ' - 'txtCSDate - ' - Me.txtCSDate._DateTimeOnly = False - Me.txtCSDate._numbersOnly = False - Me.txtCSDate._numbersOnlyKommastellen = "" - Me.txtCSDate._numbersOnlyTrennzeichen = False - Me.txtCSDate._Prozent = False - Me.txtCSDate._ShortDateNew = False - Me.txtCSDate._ShortDateOnly = True - Me.txtCSDate._TimeOnly = False - Me.txtCSDate._TimeOnly_Seconds = False - Me.txtCSDate._value = "" - Me.txtCSDate._Waehrung = False - Me.txtCSDate._WaehrungZeichen = True - Me.txtCSDate.BackColor = System.Drawing.SystemColors.Window - Me.txtCSDate.Enabled = False - Me.txtCSDate.ForeColor = System.Drawing.Color.Red - Me.txtCSDate.Location = New System.Drawing.Point(96, 174) - Me.txtCSDate.MaxLength = 10 - Me.txtCSDate.MaxLineLength = -1 - Me.txtCSDate.MaxLines_Warning = "" - Me.txtCSDate.MaxLines_Warning_Label = Nothing - Me.txtCSDate.Name = "txtCSDate" - Me.txtCSDate.Size = New System.Drawing.Size(66, 20) - Me.txtCSDate.TabIndex = 157 - Me.txtCSDate.TextAlign = System.Windows.Forms.HorizontalAlignment.Center - ' - 'MyTextBox1 - ' - Me.MyTextBox1._DateTimeOnly = False - Me.MyTextBox1._numbersOnly = True - Me.MyTextBox1._numbersOnlyKommastellen = "" - Me.MyTextBox1._numbersOnlyTrennzeichen = True - Me.MyTextBox1._Prozent = False - Me.MyTextBox1._ShortDateNew = False - Me.MyTextBox1._ShortDateOnly = False - Me.MyTextBox1._TimeOnly = False - Me.MyTextBox1._TimeOnly_Seconds = False - Me.MyTextBox1._value = "100000" - Me.MyTextBox1._Waehrung = False - Me.MyTextBox1._WaehrungZeichen = True - Me.MyTextBox1.ForeColor = System.Drawing.Color.Black - Me.MyTextBox1.Location = New System.Drawing.Point(151, 156) - Me.MyTextBox1.MaxLineLength = -1 - Me.MyTextBox1.MaxLines_Warning = "" - Me.MyTextBox1.MaxLines_Warning_Label = Nothing - Me.MyTextBox1.Name = "MyTextBox1" - Me.MyTextBox1.Size = New System.Drawing.Size(53, 20) - Me.MyTextBox1.TabIndex = 11 - Me.MyTextBox1.Text = "100000" - ' 'txtGJ_UNISPED ' Me.txtGJ_UNISPED._DateTimeOnly = False @@ -5244,6 +5260,18 @@ Partial Class frmStartOptions Me.txtGJ_UNISPED.Size = New System.Drawing.Size(53, 20) Me.txtGJ_UNISPED.TabIndex = 68 ' + 'Button21 + ' + Me.Button21.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button21.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.Button21.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button21.Location = New System.Drawing.Point(581, 346) + Me.Button21.Name = "Button21" + Me.Button21.Size = New System.Drawing.Size(211, 24) + Me.Button21.TabIndex = 81 + Me.Button21.Text = "AAS Sendung 24h" + Me.Button21.UseVisualStyleBackColor = True + ' 'DataGridViewTextBoxColumn1 ' Me.DataGridViewTextBoxColumn1.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill @@ -5251,17 +5279,15 @@ Partial Class frmStartOptions Me.DataGridViewTextBoxColumn1.MinimumWidth = 8 Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1" ' - 'Button31 + 'cbxZugferdAufDeveloper ' - Me.Button31.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button31.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.Button31.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button31.Location = New System.Drawing.Point(14, 358) - Me.Button31.Name = "Button31" - Me.Button31.Size = New System.Drawing.Size(123, 24) - Me.Button31.TabIndex = 161 - Me.Button31.Text = "Status Updaten" - Me.Button31.UseVisualStyleBackColor = True + Me.cbxZugferdAufDeveloper.AutoSize = True + Me.cbxZugferdAufDeveloper.Location = New System.Drawing.Point(996, 246) + Me.cbxZugferdAufDeveloper.Name = "cbxZugferdAufDeveloper" + Me.cbxZugferdAufDeveloper.Size = New System.Drawing.Size(74, 17) + Me.cbxZugferdAufDeveloper.TabIndex = 149 + Me.cbxZugferdAufDeveloper.Text = "UNISPED" + Me.cbxZugferdAufDeveloper.UseVisualStyleBackColor = True ' 'frmStartOptions ' @@ -5305,6 +5331,7 @@ Partial Class frmStartOptions Me.TabPage2.PerformLayout() CType(Me.PictureBox15, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBox14, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.dgvMRN, System.ComponentModel.ISupportInitialize).EndInit() Me.TabPage3.ResumeLayout(False) Me.TabPage3.PerformLayout() Me.Panel1.ResumeLayout(False) @@ -5333,6 +5360,7 @@ Partial Class frmStartOptions Me.TabPage8.ResumeLayout(False) Me.TabPage8.PerformLayout() CType(Me.PictureBox27, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.dgv_MDMEinarbeitung, System.ComponentModel.ISupportInitialize).EndInit() Me.TabPage6.ResumeLayout(False) Me.TabPage6.PerformLayout() Me.TabPage7.ResumeLayout(False) @@ -5341,8 +5369,6 @@ Partial Class frmStartOptions CType(Me.PictureBox11, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBox10, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBox9, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.dgvMRN, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.dgv_MDMEinarbeitung, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) End Sub @@ -5716,4 +5742,6 @@ Partial Class frmStartOptions Friend WithEvents Label56 As Label Friend WithEvents MyTextBox5 As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents Button31 As Button + Friend WithEvents Button32 As Button + Friend WithEvents cbxZugferdAufDeveloper As CheckBox End Class diff --git a/initATLASAufschubkonten/frmStartOptions.vb b/initATLASAufschubkonten/frmStartOptions.vb index c551f11..5b58440 100644 --- a/initATLASAufschubkonten/frmStartOptions.vb +++ b/initATLASAufschubkonten/frmStartOptions.vb @@ -6,6 +6,7 @@ Imports System.Security.Cryptography.X509Certificates Imports System.Text Imports System.Threading Imports System.Xml +Imports iTextSharp.text Imports javax Imports MDM_Worker Imports Renci.SshNet @@ -3512,7 +3513,7 @@ Public Class frmStartOptions ' Datei hochladen Using fileStream As New FileStream(localFilePath, FileMode.Open) - sftpClient.UploadFile(fileStream, remoteDirectory & Path.GetFileName(localFilePath)) + sftpClient.UploadFile(fileStream, remoteDirectory & System.IO.Path.GetFileName(localFilePath)) End Using Console.WriteLine("Datei erfolgreich hochgeladen!") @@ -8132,4 +8133,335 @@ repeatRequest: End Sub -End Class \ No newline at end of file + + + Private Function checkZugferd(sendNotificationEmails As Boolean) As Boolean + + VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False + + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + + 'aktuell verwendet Verag360 kein Zugferd und Sammelrechnung 6 geht aktuell noch nicht... + + Dim dt As DataTable = SQL.loadDgvBySql("SELECT RK_ID, dsId, Firma_ID, RechnungsNr FROM [Rechnungsausgang] where RK_ID = 2923288 ", "FMZOLL", 100, False) + + Dim sumTotal_IMEX As Integer = 0 + Dim sumTotal_VERAG As Integer = 0 + Dim sumTotal_CS As Integer = 0 + Dim sumTotal_US As Integer = 0 + Dim sumTotal_AMBAR As Integer = 0 + Dim sumTotal_ATILLA As Integer = 0 + Dim sumTotal_360 As Integer = 0 + + Dim sumvalid_IMEX As Integer = 0 + Dim sumvalid_VERAG As Integer = 0 + Dim sumvalid_CS As Integer = 0 + Dim sumvalid_US As Integer = 0 + Dim sumvalid_AMBAR As Integer = 0 + Dim sumvalid_ATILLA As Integer = 0 + Dim sumvalid_360 As Integer = 0 + + Dim sumInvalid_IMEX As Integer = 0 + Dim sumInvalid_VERAG As Integer = 0 + Dim sumInvalid_CS As Integer = 0 + Dim sumInvalid_US As Integer = 0 + Dim sumInvalid_AMBAR As Integer = 0 + Dim sumInvalid_ATILLA As Integer = 0 + Dim sumInvalid_360 As Integer = 0 + + Dim sumInvalid_Total As Integer = 0 + Dim sumvalid_Total As Integer = 0 + Dim sumTotal_Total As Integer = 0 + + Dim dtVerag As DataTable = dt.Clone() + Dim dtIMEX As DataTable = dt.Clone() + Dim dtAMBAR As DataTable = dt.Clone() + Dim dtUNISPED As DataTable = dt.Clone() + Dim dtCS As DataTable = dt.Clone() + Dim dtATILLA As DataTable = dt.Clone() + Dim dt360 As DataTable = dt.Clone() + + + + + For Each row In dt.Rows + + Dim rkObj As Object = row("RK_ID") + Dim dsObj As Object = row("dsId") + + If rkObj IsNot DBNull.Value AndAlso dsObj IsNot DBNull.Value Then + + Dim rkId As Integer + Dim dsId As Integer + + If Integer.TryParse(rkObj.ToString(), rkId) AndAlso + Integer.TryParse(dsObj.ToString(), dsId) AndAlso + dsId > 0 Then + + Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(dsId) + Dim Path As String = DS.GET_TOP1_PATH() + If Path <> "" And System.IO.File.Exists(Path) Then + + Try + + Dim psi As New ProcessStartInfo() + + 'psi.FileName = "C:\Program Files\Eclipse Adoptium\jre-11.0.28.6-hotspot\bin\java.exe" + 'psi.Arguments = "-jar ""C:\Users\d.breimaier\Downloads\Mustang-CLI-2.21.0.jar"" --no-notices --action validate --source " & Path & "" + + Dim Paramslist As New cParameterList(VERAG_PROG_ALLGEMEIN.cAllgemein.PROGID) + psi.FileName = Paramslist.GET_PARAMETER_VALUE("ZUGFeRD_Check_Pfad_JAVA") + psi.Arguments = Paramslist.GET_PARAMETER_VALUE("ZUGFeRD_Check_Pfad_CMD") & Path + + + 'psi.FileName = "C:\Program Files (x86)\Java\jre1.8.0_491\bin\java.exe" + 'psi.Arguments = "-jar ""C:\Verag\Mustang-CLI-2.21.0.jar"" --no-notices --action validate --source " & Path & "" + + + psi.RedirectStandardOutput = True + psi.RedirectStandardError = True + psi.UseShellExecute = False + psi.CreateNoWindow = True + + Using p As Process = Process.Start(psi) + Dim output = p.StandardOutput.ReadToEnd() + Dim err = p.StandardError.ReadToEnd() + p.WaitForExit() + + If output <> "" Then + Dim tmpPath_Report = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath("MUSTANG-REPORT_" & rkObj, ".pdf", , False) + Dim PruefungOK = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.CreateValidationPdf(output, Path, rkId, tmpPath_Report) + If tmpPath_Report <> "" Then + 'Process.Start(tmpPath_Report) + + Dim fileInfo_ZP As New FileInfo(tmpPath_Report) + Dim ZUGF_DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "ZUGFERD", Now().Year, "", "", fileInfo_ZP.Name, -1, False) + ZUGF_DS.uploadDataToDATENSERVER(tmpPath_Report, fileInfo_ZP.Name, fileInfo_ZP.Extension,,,, True) + SQL.doSQL("Update [Rechnungsausgang] SET zugferdcheck_datetime=getDate(),zugferdcheck = " & IIf(PruefungOK, "1", "0") & ", zugferdcheck_daid = " & ZUGF_DS.da_id & " where RK_ID = " & rkId, "FMZOLL") + + + Select Case row("Firma_ID") + Case 11 + sumTotal_CS += 1 + If PruefungOK Then + sumvalid_CS += 1 + Else + sumInvalid_CS += 1 + + dtCS.ImportRow(row) + End If + Case 24 + sumTotal_AMBAR += 1 + + If PruefungOK Then + sumvalid_AMBAR += 1 + Else + sumInvalid_AMBAR += 1 + dtAMBAR.ImportRow(row) + End If + + Case 21, 22, 23 + sumTotal_US += 1 + If PruefungOK Then + sumvalid_US += 1 + Else + sumInvalid_US += 1 + dtUNISPED.ImportRow(row) + End If + + Case 20 + sumTotal_IMEX += 1 + If PruefungOK Then + sumvalid_IMEX += 1 + Else + sumInvalid_IMEX += 1 + dtIMEX.ImportRow(row) + End If + + Case 19 + sumTotal_360 += 1 + If PruefungOK Then + sumvalid_360 += 1 + Else + sumInvalid_360 += 1 + dt360.ImportRow(row) + End If + + Case 7 + sumTotal_ATILLA += 1 + If PruefungOK Then + sumvalid_ATILLA += 1 + Else + sumInvalid_ATILLA += 1 + dtATILLA.ImportRow(row) + End If + Case Else + sumTotal_VERAG += 1 + If PruefungOK Then + sumvalid_VERAG += 1 + Else + sumInvalid_VERAG += 1 + dtVerag.ImportRow(row) + End If + + + End Select + + End If + End If + + + End Using + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + Return False + End Try + + End If + + End If + + End If + + Next + + + If dt.Rows.Count > 0 Then + + If Not sendNotificationEmails Then + 'VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dt,,,,, True,,, True) + Else + + + Dim Betreff = "ZUGFeRD-CHECK" + + 'hier ungültigen Prüfungen pro Firma + + If dtVerag.Rows.Count > 0 Then + Dim empfaneger = cMitarbeiter.GetEMailRecipientForEmailNotification("ZUGFERD-Check") + If empfaneger <> "" Then + Dim path = VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dtVerag,,,,, False,,, True) + Dim anhenge As New List(Of String) + anhenge.Add(path) + VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(empfaneger, IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "TEST-", "") & Betreff & " VERAG", createMailTextZugferd(sumTotal_VERAG, sumvalid_VERAG, sumInvalid_VERAG, "VERAG"),, True, False,,, anhenge) + End If + End If + + If dtIMEX.Rows.Count > 0 Then + Dim empfaneger = cMitarbeiter.GetEMailRecipientForEmailNotification("ZUGFERD-Check") + If empfaneger <> "" Then + Dim path = VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dtIMEX,,,,, False,,, True) + Dim anhenge As New List(Of String) + anhenge.Add(path) + VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(empfaneger, IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "TEST-", "") & Betreff & " IMEX", createMailTextZugferd(sumTotal_IMEX, sumvalid_IMEX, sumInvalid_IMEX, "IMEX"),, True, False,,, anhenge) + End If + End If + + If dtAMBAR.Rows.Count > 0 Then + Dim empfaneger = cMitarbeiter.GetEMailRecipientForEmailNotification("ZUGFERD-Check") + If empfaneger <> "" Then + Dim path = VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dtAMBAR,,,,, False,,, True) + Dim anhenge As New List(Of String) + anhenge.Add(path) + VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(empfaneger, IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "TEST-", "") & Betreff & " AMBAR", createMailTextZugferd(sumTotal_AMBAR, sumvalid_AMBAR, sumInvalid_AMBAR, "AMBAR"),, True, False,,, anhenge) + End If + End If + + If dtUNISPED.Rows.Count > 0 Then + Dim empfaneger = cMitarbeiter.GetEMailRecipientForEmailNotification("ZUGFERD-Check") + If empfaneger <> "" Then + Dim path = VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dtUNISPED,,,,, False,,, True) + Dim anhenge As New List(Of String) + anhenge.Add(path) + VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(empfaneger, IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "TEST-", "") & Betreff & " UNISPED", createMailTextZugferd(sumTotal_US, sumvalid_US, sumInvalid_US, "UNISPED"),, True, False,,, anhenge) + End If + End If + + If dtATILLA.Rows.Count > 0 Then + Dim empfaneger = cMitarbeiter.GetEMailRecipientForEmailNotification("ZUGFERD-Check") + If empfaneger <> "" Then + Dim path = VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dtATILLA,,,,, False,,, True) + Dim anhenge As New List(Of String) + anhenge.Add(path) + VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(empfaneger, IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "TEST-", "") & Betreff & " ATILLA", createMailTextZugferd(sumTotal_ATILLA, sumvalid_ATILLA, sumInvalid_ATILLA, "ATILLA"),, True, False,,, anhenge) + End If + End If + + If dt360.Rows.Count > 0 Then + Dim empfaneger = cMitarbeiter.GetEMailRecipientForEmailNotification("ZUGFERD-Check") + If empfaneger <> "" Then + Dim path = VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dt360,,,,, False,,, True) + Dim anhenge As New List(Of String) + anhenge.Add(path) + VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(empfaneger, IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "TEST-", "") & Betreff & " VERAG 360", createMailTextZugferd(sumTotal_360, sumvalid_360, sumInvalid_360, "VERAG 360"),, True, False,,, anhenge) + End If + End If + + If dtCS.Rows.Count > 0 Then + Dim empfaneger = cMitarbeiter.GetEMailRecipientForEmailNotification("ZUGFERD-Check") + If empfaneger <> "" Then + Dim path = VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dtCS,,,,, False,,, True) + Dim anhenge As New List(Of String) + anhenge.Add(path) + VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(empfaneger, IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "TEST-", "") & Betreff & "VERAG CS", createMailTextZugferd(sumTotal_CS, sumvalid_CS, sumInvalid_CS, "VERAG CS"),, True, False,,, anhenge) + End If + End If + + + 'hier alle Prüfungen + + Dim empfanegerALL = cMitarbeiter.GetEMailRecipientForEmailNotification("ZUGFERD-Check") + If empfanegerALL <> "" Then + + sumTotal_Total = sumTotal_VERAG + sumTotal_ATILLA + sumTotal_AMBAR + sumTotal_360 + sumTotal_CS + sumTotal_IMEX + sumTotal_US + sumInvalid_Total = sumInvalid_VERAG + sumInvalid_ATILLA + sumInvalid_AMBAR + sumInvalid_360 + sumInvalid_CS + sumInvalid_IMEX + sumInvalid_US + sumvalid_Total = sumvalid_VERAG + sumvalid_ATILLA + sumvalid_AMBAR + sumvalid_360 + sumvalid_CS + sumvalid_IMEX + sumvalid_US + + VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(empfanegerALL, IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "TEST-", "") & Betreff & " ALL", createMailTextZugferd(sumTotal_Total, sumvalid_Total, sumInvalid_Total, "ALL"),, True, False) + End If + + End If + + End If + + + + + Return True + + + End Function + + Private Function createMailTextZugferd(total As Integer, valid As Integer, invalid As Integer, Firma As String) As String + + Dim MailText = "Auflistung der gültigen/ungültigen ZUGFeRD-Prüfungen vom " & Now.ToShortDateString & " für " & Firma & "

" + MailText &= "" + MailText &= "" + MailText &= "" + MailText &= "" + MailText &= "" + MailText &= "" + MailText &= "" + MailText &= "
GültigUngültigGesamt
" & valid & "" & invalid & "" & total & "
" + MailText &= "

Erstellt am: " & Now.ToShortDateString & " um " & Now.ToShortTimeString + MailText &= "

Automatisch generiertes E-Mail." + + Return MailText + + End Function + + Private Sub Button32_Click_1(sender As Object, e As EventArgs) Handles Button32.Click + + Dim sendNotificationEmails = False + + Select Case MsgBox("Soll eine Info-Mail an die zuständigen Mitarbeiter geschickt werden?", vbYesNoCancel) + Case MsgBoxResult.Cancel : Exit Sub + Case MsgBoxResult.Yes : sendNotificationEmails = True + Case Else + + End Select + + checkZugferd(sendNotificationEmails) + End Sub +End Class