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

plose, etc.

Browse Source
This commit is contained in:
d.breimaier
2025-03-28 15:22:35 +01:00
parent 107d324054
commit a5ee8cfc29
4 changed files with 975 additions and 1064 deletions
Download Patch File Download Diff File Expand all files Collapse all files

33
MDM_Worker/cPLOSE_Inv_Data.vb
View File

@@ -214,6 +214,7 @@ Public Class cPLOSE_Inv_Data
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Dim dtREohneDAID As DataTable = SQL.loadDgvBySql(REohneDAID, "FMZOLL") Dim dtREohneDAID As DataTable = SQL.loadDgvBySql(REohneDAID, "FMZOLL")
Dim jahrEnd = jahr.ToString.Substring(2, 2)
If dtREohneDAID.Rows.Count > 0 Then If dtREohneDAID.Rows.Count > 0 Then
@@ -229,19 +230,43 @@ Public Class cPLOSE_Inv_Data
If filename <> "" Then If filename <> "" Then
filename2 = filename.Replace("-", "_") filename2 = filename.Replace("-", "_")
If Regex.IsMatch(filename, "^[A-Za-z]") Then If Regex.IsMatch(filename, "^[A-Za-z]") Then
Dim match As Match = Regex.Match(filename, "\d+") Dim match As Match = Regex.Match(filename, "\d+")
If match.Success Then If match.Success Then
filename3 = filename.Substring(match.Index).Trim filename3 = filename.Substring(match.Index).Trim
filename4 = filename.Replace("-", "_") filename4 = filename.Replace("-", "_")
End If End If
End If
Dim daId As Integer = 0 ElseIf filename.Contains("_dk") Then 'Sonderlogik Dänemark
filename3 = filename.Replace(jahrEnd & "-", jahrEnd)
filename4 = filename.Replace(jahrEnd & "-", jahrEnd)
ElseIf filename.Contains("_fy") Then 'Sonderlogik Norwegen
Dim indexOfFirst_ = filename.IndexOf("_fy")
If filename.Length > indexOfFirst_ + 5 Then
Dim month = filename.Substring(indexOfFirst_ + 3, 2)
If IsNumeric(month) Then
Dim test = month.IndexOf(0)
Dim monthWithoutLeadingZero As String = month
If monthWithoutLeadingZero.IndexOf(0) = 0 Then monthWithoutLeadingZero = monthWithoutLeadingZero.Replace("0", "")
filename3 = filename.Replace(jahrEnd & month, jahrEnd & monthWithoutLeadingZero)
filename4 = filename.Replace(jahrEnd & month, jahrEnd & monthWithoutLeadingZero)
End If
End If
End If
Dim daId As Integer = 0
If filename3 = "" Then If filename3 = "" Then
daId = CInt(SQL.getValueTxtBySql("Select top(1) isnull(da_id,0) FROM tblDatenarchiv WHERE da_KundenNr = 0 And da_kategorie = 'MDM' AND da_ordner='MDM_DATEN' AND da_uOrdner1= 'PLOSE' AND da_uOrdner2= '" & jahr & "' AND (da_name like '%" & filename & "' or da_name like '%" & filename2 & "')", "FMZOLL",,, 0)) daId = CInt(SQL.getValueTxtBySql("Select top(1) isnull(da_id,0) FROM tblDatenarchiv WHERE da_KundenNr = 0 And da_kategorie = 'MDM' AND da_ordner='MDM_DATEN' AND da_uOrdner1= 'PLOSE' AND da_uOrdner2= '" & jahr & "' AND (da_name like '%" & filename & "' or da_name like '%" & filename2 & "')", "FMZOLL",,, 0))
Else Else

605
initATLASAufschubkonten/frmStartOptions.Designer.vb generated
View File

@@ -26,7 +26,7 @@ Partial Class frmStartOptions
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmStartOptions)) Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmStartOptions))
Me.pnl = New System.Windows.Forms.Panel() Me.pnl = New System.Windows.Forms.Panel()
Me.txtMRNPrefix = New System.Windows.Forms.TextBox() Me.txtMRNPrefix = New System.Windows.Forms.TextBox()
Me.LinkLabel66 = New System.Windows.Forms.LinkLabel() Me.ATCNRinRE = New System.Windows.Forms.LinkLabel()
Me.PictureBox24 = New System.Windows.Forms.PictureBox() Me.PictureBox24 = New System.Windows.Forms.PictureBox()
Me.buchungenAMBAR = New System.Windows.Forms.Button() Me.buchungenAMBAR = New System.Windows.Forms.Button()
Me.LinkLabel63 = New System.Windows.Forms.LinkLabel() Me.LinkLabel63 = New System.Windows.Forms.LinkLabel()
@@ -161,8 +161,6 @@ Partial Class frmStartOptions
Me.MyComboBox1 = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.MyComboBox1 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.txtVRGOut_BezugsNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtVRGOut_BezugsNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.TabPage3 = New System.Windows.Forms.TabPage() Me.TabPage3 = New System.Windows.Forms.TabPage()
Me.Label50 = New System.Windows.Forms.Label()
Me.MyTextBox6 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.CheckBox9 = New System.Windows.Forms.CheckBox() Me.CheckBox9 = New System.Windows.Forms.CheckBox()
Me.Label49 = New System.Windows.Forms.Label() Me.Label49 = New System.Windows.Forms.Label()
Me.Button28 = New System.Windows.Forms.Button() Me.Button28 = New System.Windows.Forms.Button()
@@ -189,18 +187,19 @@ Partial Class frmStartOptions
Me.datTranscodeBis = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.datTranscodeBis = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.datTranscodeVon = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.datTranscodeVon = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.TabPage4 = New System.Windows.Forms.TabPage() Me.TabPage4 = New System.Windows.Forms.TabPage()
Me.IDS_REDetails = New System.Windows.Forms.LinkLabel()
Me.Label51 = New System.Windows.Forms.Label() Me.Label51 = New System.Windows.Forms.Label()
Me.Label50 = New System.Windows.Forms.Label() Me.Label50 = New System.Windows.Forms.Label()
Me.txtPLoseKdNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtPLoseKdNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.LinkLabel74 = New System.Windows.Forms.LinkLabel() Me.UTAREPdf = New System.Windows.Forms.LinkLabel()
Me.LinkLabel73 = New System.Windows.Forms.LinkLabel() Me.KN8_DESTAT = New System.Windows.Forms.LinkLabel()
Me.LinkLabel69 = New System.Windows.Forms.LinkLabel() Me.Laender_Steuercode = New System.Windows.Forms.LinkLabel()
Me.LinkLabel72 = New System.Windows.Forms.LinkLabel() Me.PlosePdfRE = New System.Windows.Forms.LinkLabel()
Me.lblUTAPDFvollst = New System.Windows.Forms.LinkLabel() Me.lblUTAPDFvollst = New System.Windows.Forms.LinkLabel()
Me.TextBox3 = New System.Windows.Forms.TextBox() Me.TextBox3 = New System.Windows.Forms.TextBox()
Me.cbxIDSUmbenenen = New System.Windows.Forms.CheckBox() Me.cbxIDSUmbenenen = New System.Windows.Forms.CheckBox()
Me.LinkLabel70 = New System.Windows.Forms.LinkLabel() Me.IDS_RE = New System.Windows.Forms.LinkLabel()
Me.LinkLabel67 = New System.Windows.Forms.LinkLabel() Me.IDS_Laendercode = New System.Windows.Forms.LinkLabel()
Me.cbxITalt = New System.Windows.Forms.CheckBox() Me.cbxITalt = New System.Windows.Forms.CheckBox()
Me.cbxPlose = New System.Windows.Forms.CheckBox() Me.cbxPlose = New System.Windows.Forms.CheckBox()
Me.Label46 = New System.Windows.Forms.Label() Me.Label46 = New System.Windows.Forms.Label()
@@ -209,9 +208,9 @@ Partial Class frmStartOptions
Me.cbxMSEneu = New System.Windows.Forms.CheckBox() Me.cbxMSEneu = New System.Windows.Forms.CheckBox()
Me.Button24 = New System.Windows.Forms.Button() Me.Button24 = New System.Windows.Forms.Button()
Me.cbxMSEalt = New System.Windows.Forms.CheckBox() Me.cbxMSEalt = New System.Windows.Forms.CheckBox()
Me.LinkLabel65 = New System.Windows.Forms.LinkLabel() Me.IDS_import = New System.Windows.Forms.LinkLabel()
Me.cbxUTANeu = New System.Windows.Forms.CheckBox() Me.cbxUTANeu = New System.Windows.Forms.CheckBox()
Me.LinkLabel64 = New System.Windows.Forms.LinkLabel() Me.UTA_Laender = New System.Windows.Forms.LinkLabel()
Me.cbxUTAalt = New System.Windows.Forms.CheckBox() Me.cbxUTAalt = New System.Windows.Forms.CheckBox()
Me.Label42 = New System.Windows.Forms.Label() Me.Label42 = New System.Windows.Forms.Label()
Me.cbxIDSneu = New System.Windows.Forms.CheckBox() Me.cbxIDSneu = New System.Windows.Forms.CheckBox()
@@ -222,38 +221,38 @@ Partial Class frmStartOptions
Me.LinkLabel24 = New System.Windows.Forms.LinkLabel() Me.LinkLabel24 = New System.Windows.Forms.LinkLabel()
Me.Button25 = New System.Windows.Forms.Button() Me.Button25 = New System.Windows.Forms.Button()
Me.cbxOnlyBilledTransactions = New System.Windows.Forms.CheckBox() Me.cbxOnlyBilledTransactions = New System.Windows.Forms.CheckBox()
Me.LinkLabel62 = New System.Windows.Forms.LinkLabel() Me.MSE_not_billed_Trans = New System.Windows.Forms.LinkLabel()
Me.CheckBox8 = New System.Windows.Forms.CheckBox() Me.CheckBox8 = New System.Windows.Forms.CheckBox()
Me.LinkLabel60 = New System.Windows.Forms.LinkLabel() Me.MSE_Settlements = New System.Windows.Forms.LinkLabel()
Me.Label43 = New System.Windows.Forms.Label() Me.Label43 = New System.Windows.Forms.Label()
Me.LinkLabel61 = New System.Windows.Forms.LinkLabel() Me.MSE_missingTrans = New System.Windows.Forms.LinkLabel()
Me.Label40 = New System.Windows.Forms.Label() Me.Label40 = New System.Windows.Forms.Label()
Me.PictureBox25 = New System.Windows.Forms.PictureBox() Me.PictureBox25 = New System.Windows.Forms.PictureBox()
Me.LinkLabel59 = New System.Windows.Forms.LinkLabel() Me.MSETransID = New System.Windows.Forms.LinkLabel()
Me.Button23 = New System.Windows.Forms.Button() Me.Button23 = New System.Windows.Forms.Button()
Me.Label39 = New System.Windows.Forms.Label() Me.Label39 = New System.Windows.Forms.Label()
Me.Label38 = New System.Windows.Forms.Label() Me.Label38 = New System.Windows.Forms.Label()
Me.Label37 = New System.Windows.Forms.Label() Me.Label37 = New System.Windows.Forms.Label()
Me.LinkLabel58 = New System.Windows.Forms.LinkLabel() Me.MSE_Kunden = New System.Windows.Forms.LinkLabel()
Me.LinkLabel57 = New System.Windows.Forms.LinkLabel() Me.LinkLabel57 = New System.Windows.Forms.LinkLabel()
Me.DateTimePicker2 = New System.Windows.Forms.DateTimePicker() Me.DateTimePicker2 = New System.Windows.Forms.DateTimePicker()
Me.DateTimePicker1 = New System.Windows.Forms.DateTimePicker() Me.DateTimePicker1 = New System.Windows.Forms.DateTimePicker()
Me.LinkLabel56 = New System.Windows.Forms.LinkLabel() Me.MSETransakt = New System.Windows.Forms.LinkLabel()
Me.datVon = New System.Windows.Forms.DateTimePicker() Me.datVon = New System.Windows.Forms.DateTimePicker()
Me.LinkLabel55 = New System.Windows.Forms.LinkLabel() Me.MSE_RE = New System.Windows.Forms.LinkLabel()
Me.LinkLabel54 = New System.Windows.Forms.LinkLabel() Me.MSE_Transaktions = New System.Windows.Forms.LinkLabel()
Me.TextBox2 = New System.Windows.Forms.TextBox() Me.TextBox2 = New System.Windows.Forms.TextBox()
Me.TextBox1 = New System.Windows.Forms.TextBox() Me.TextBox1 = New System.Windows.Forms.TextBox()
Me.cbxDateienlöschenUTA = New System.Windows.Forms.CheckBox() Me.cbxDateienlöschenUTA = New System.Windows.Forms.CheckBox()
Me.cbxDateienlöschenRMC = New System.Windows.Forms.CheckBox() Me.cbxDateienlöschenRMC = New System.Windows.Forms.CheckBox()
Me.LinkLabel53 = New System.Windows.Forms.LinkLabel() Me.UTA_imports = New System.Windows.Forms.LinkLabel()
Me.Label36 = New System.Windows.Forms.Label() Me.Label36 = New System.Windows.Forms.Label()
Me.Label35 = New System.Windows.Forms.Label() Me.Label35 = New System.Windows.Forms.Label()
Me.Label34 = New System.Windows.Forms.Label() Me.Label34 = New System.Windows.Forms.Label()
Me.Label33 = New System.Windows.Forms.Label() Me.Label33 = New System.Windows.Forms.Label()
Me.Label32 = New System.Windows.Forms.Label() Me.Label32 = New System.Windows.Forms.Label()
Me.Label31 = New System.Windows.Forms.Label() Me.Label31 = New System.Windows.Forms.Label()
Me.LinkLabel52 = New System.Windows.Forms.LinkLabel() Me.RMC_import = New System.Windows.Forms.LinkLabel()
Me.Label30 = New System.Windows.Forms.Label() Me.Label30 = New System.Windows.Forms.Label()
Me.Label29 = New System.Windows.Forms.Label() Me.Label29 = New System.Windows.Forms.Label()
Me.Label28 = New System.Windows.Forms.Label() Me.Label28 = New System.Windows.Forms.Label()
@@ -310,7 +309,6 @@ Partial Class frmStartOptions
Me.txtGJ_UNISPED = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtGJ_UNISPED = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Button21 = New System.Windows.Forms.Button() Me.Button21 = New System.Windows.Forms.Button()
Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.LinkLabel73 = New System.Windows.Forms.LinkLabel()
Me.pnl.SuspendLayout() Me.pnl.SuspendLayout()
CType(Me.PictureBox24, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox24, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox23, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox23, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -354,7 +352,7 @@ Partial Class frmStartOptions
Me.pnl.BackColor = System.Drawing.Color.White Me.pnl.BackColor = System.Drawing.Color.White
Me.pnl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle Me.pnl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.pnl.Controls.Add(Me.txtMRNPrefix) Me.pnl.Controls.Add(Me.txtMRNPrefix)
Me.pnl.Controls.Add(Me.LinkLabel66) Me.pnl.Controls.Add(Me.ATCNRinRE)
Me.pnl.Controls.Add(Me.PictureBox24) Me.pnl.Controls.Add(Me.PictureBox24)
Me.pnl.Controls.Add(Me.buchungenAMBAR) Me.pnl.Controls.Add(Me.buchungenAMBAR)
Me.pnl.Controls.Add(Me.LinkLabel63) Me.pnl.Controls.Add(Me.LinkLabel63)
@@ -443,16 +441,16 @@ Partial Class frmStartOptions
Me.txtMRNPrefix.TabIndex = 138 Me.txtMRNPrefix.TabIndex = 138
Me.txtMRNPrefix.Text = "24DE" Me.txtMRNPrefix.Text = "24DE"
' '
'LinkLabel66 'ATCNRinRE
' '
Me.LinkLabel66.AutoSize = True Me.ATCNRinRE.AutoSize = True
Me.LinkLabel66.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) Me.ATCNRinRE.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.LinkLabel66.Location = New System.Drawing.Point(842, 51) Me.ATCNRinRE.Location = New System.Drawing.Point(842, 51)
Me.LinkLabel66.Name = "LinkLabel66" Me.ATCNRinRE.Name = "ATCNRinRE"
Me.LinkLabel66.Size = New System.Drawing.Size(188, 13) Me.ATCNRinRE.Size = New System.Drawing.Size(188, 13)
Me.LinkLabel66.TabIndex = 137 Me.ATCNRinRE.TabIndex = 137
Me.LinkLabel66.TabStop = True Me.ATCNRinRE.TabStop = True
Me.LinkLabel66.Text = "ATCNr in Rechnungen aktu. für MRN:" Me.ATCNRinRE.Text = "ATCNr in Rechnungen aktu. für MRN:"
' '
'PictureBox24 'PictureBox24
' '
@@ -546,7 +544,7 @@ Partial Class frmStartOptions
' '
Me.PictureBox22.BackgroundImage = CType(resources.GetObject("PictureBox22.BackgroundImage"), System.Drawing.Image) Me.PictureBox22.BackgroundImage = CType(resources.GetObject("PictureBox22.BackgroundImage"), System.Drawing.Image)
Me.PictureBox22.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom Me.PictureBox22.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox22.Location = New System.Drawing.Point(676, 431) Me.PictureBox22.Location = New System.Drawing.Point(934, 157)
Me.PictureBox22.Name = "PictureBox22" Me.PictureBox22.Name = "PictureBox22"
Me.PictureBox22.Size = New System.Drawing.Size(18, 18) Me.PictureBox22.Size = New System.Drawing.Size(18, 18)
Me.PictureBox22.TabIndex = 84 Me.PictureBox22.TabIndex = 84
@@ -558,7 +556,7 @@ Partial Class frmStartOptions
Me.Button22.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.Button22.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button22.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) Me.Button22.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Button22.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.Button22.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button22.Location = New System.Drawing.Point(564, 429) Me.Button22.Location = New System.Drawing.Point(822, 155)
Me.Button22.Name = "Button22" Me.Button22.Name = "Button22"
Me.Button22.Size = New System.Drawing.Size(105, 24) Me.Button22.Size = New System.Drawing.Size(105, 24)
Me.Button22.TabIndex = 78 Me.Button22.TabIndex = 78
@@ -1069,7 +1067,6 @@ Partial Class frmStartOptions
' '
'TabPage1 'TabPage1
' '
Me.TabPage1.Controls.Add(Me.LinkLabel73)
Me.TabPage1.Controls.Add(Me.LinkLabel68) Me.TabPage1.Controls.Add(Me.LinkLabel68)
Me.TabPage1.Controls.Add(Me.PictureBox26) Me.TabPage1.Controls.Add(Me.PictureBox26)
Me.TabPage1.Controls.Add(Me.cbxGestellungspeichern) Me.TabPage1.Controls.Add(Me.cbxGestellungspeichern)
@@ -2141,8 +2138,6 @@ Partial Class frmStartOptions
' '
'TabPage3 'TabPage3
' '
Me.TabPage3.Controls.Add(Me.Label50)
Me.TabPage3.Controls.Add(Me.MyTextBox6)
Me.TabPage3.Controls.Add(Me.CheckBox9) Me.TabPage3.Controls.Add(Me.CheckBox9)
Me.TabPage3.Controls.Add(Me.Label49) Me.TabPage3.Controls.Add(Me.Label49)
Me.TabPage3.Controls.Add(Me.Button28) Me.TabPage3.Controls.Add(Me.Button28)
@@ -2175,40 +2170,6 @@ Partial Class frmStartOptions
Me.TabPage3.Text = "Partner-Systeme" Me.TabPage3.Text = "Partner-Systeme"
Me.TabPage3.UseVisualStyleBackColor = True Me.TabPage3.UseVisualStyleBackColor = True
' '
'Label50
'
Me.Label50.AutoSize = True
Me.Label50.Location = New System.Drawing.Point(548, 305)
Me.Label50.Name = "Label50"
Me.Label50.Size = New System.Drawing.Size(29, 13)
Me.Label50.TabIndex = 149
Me.Label50.Text = "Top:"
'
'MyTextBox6
'
Me.MyTextBox6._DateTimeOnly = False
Me.MyTextBox6._numbersOnly = False
Me.MyTextBox6._numbersOnlyKommastellen = ""
Me.MyTextBox6._numbersOnlyTrennzeichen = False
Me.MyTextBox6._Prozent = False
Me.MyTextBox6._ShortDateNew = False
Me.MyTextBox6._ShortDateOnly = False
Me.MyTextBox6._TimeOnly = False
Me.MyTextBox6._TimeOnly_Seconds = False
Me.MyTextBox6._value = "200"
Me.MyTextBox6._Waehrung = False
Me.MyTextBox6._WaehrungZeichen = False
Me.MyTextBox6.ForeColor = System.Drawing.Color.Black
Me.MyTextBox6.Location = New System.Drawing.Point(583, 302)
Me.MyTextBox6.MaxLength = 18
Me.MyTextBox6.MaxLineLength = -1
Me.MyTextBox6.MaxLines_Warning = ""
Me.MyTextBox6.MaxLines_Warning_Label = Nothing
Me.MyTextBox6.Name = "MyTextBox6"
Me.MyTextBox6.Size = New System.Drawing.Size(150, 20)
Me.MyTextBox6.TabIndex = 148
Me.MyTextBox6.Text = "200"
'
'CheckBox9 'CheckBox9
' '
Me.CheckBox9.AutoSize = True Me.CheckBox9.AutoSize = True
@@ -2519,18 +2480,19 @@ Partial Class frmStartOptions
' '
'TabPage4 'TabPage4
' '
Me.TabPage4.Controls.Add(Me.IDS_REDetails)
Me.TabPage4.Controls.Add(Me.Label51) Me.TabPage4.Controls.Add(Me.Label51)
Me.TabPage4.Controls.Add(Me.Label50) Me.TabPage4.Controls.Add(Me.Label50)
Me.TabPage4.Controls.Add(Me.txtPLoseKdNr) Me.TabPage4.Controls.Add(Me.txtPLoseKdNr)
Me.TabPage4.Controls.Add(Me.LinkLabel74) Me.TabPage4.Controls.Add(Me.UTAREPdf)
Me.TabPage4.Controls.Add(Me.LinkLabel73) Me.TabPage4.Controls.Add(Me.KN8_DESTAT)
Me.TabPage4.Controls.Add(Me.LinkLabel69) Me.TabPage4.Controls.Add(Me.Laender_Steuercode)
Me.TabPage4.Controls.Add(Me.LinkLabel72) Me.TabPage4.Controls.Add(Me.PlosePdfRE)
Me.TabPage4.Controls.Add(Me.lblUTAPDFvollst) Me.TabPage4.Controls.Add(Me.lblUTAPDFvollst)
Me.TabPage4.Controls.Add(Me.TextBox3) Me.TabPage4.Controls.Add(Me.TextBox3)
Me.TabPage4.Controls.Add(Me.cbxIDSUmbenenen) Me.TabPage4.Controls.Add(Me.cbxIDSUmbenenen)
Me.TabPage4.Controls.Add(Me.LinkLabel70) Me.TabPage4.Controls.Add(Me.IDS_RE)
Me.TabPage4.Controls.Add(Me.LinkLabel67) Me.TabPage4.Controls.Add(Me.IDS_Laendercode)
Me.TabPage4.Controls.Add(Me.cbxITalt) Me.TabPage4.Controls.Add(Me.cbxITalt)
Me.TabPage4.Controls.Add(Me.cbxPlose) Me.TabPage4.Controls.Add(Me.cbxPlose)
Me.TabPage4.Controls.Add(Me.Label46) Me.TabPage4.Controls.Add(Me.Label46)
@@ -2539,9 +2501,9 @@ Partial Class frmStartOptions
Me.TabPage4.Controls.Add(Me.cbxMSEneu) Me.TabPage4.Controls.Add(Me.cbxMSEneu)
Me.TabPage4.Controls.Add(Me.Button24) Me.TabPage4.Controls.Add(Me.Button24)
Me.TabPage4.Controls.Add(Me.cbxMSEalt) Me.TabPage4.Controls.Add(Me.cbxMSEalt)
Me.TabPage4.Controls.Add(Me.LinkLabel65) Me.TabPage4.Controls.Add(Me.IDS_import)
Me.TabPage4.Controls.Add(Me.cbxUTANeu) Me.TabPage4.Controls.Add(Me.cbxUTANeu)
Me.TabPage4.Controls.Add(Me.LinkLabel64) Me.TabPage4.Controls.Add(Me.UTA_Laender)
Me.TabPage4.Controls.Add(Me.cbxUTAalt) Me.TabPage4.Controls.Add(Me.cbxUTAalt)
Me.TabPage4.Controls.Add(Me.Label42) Me.TabPage4.Controls.Add(Me.Label42)
Me.TabPage4.Controls.Add(Me.cbxIDSneu) Me.TabPage4.Controls.Add(Me.cbxIDSneu)
@@ -2552,38 +2514,38 @@ Partial Class frmStartOptions
Me.TabPage4.Controls.Add(Me.LinkLabel24) Me.TabPage4.Controls.Add(Me.LinkLabel24)
Me.TabPage4.Controls.Add(Me.Button25) Me.TabPage4.Controls.Add(Me.Button25)
Me.TabPage4.Controls.Add(Me.cbxOnlyBilledTransactions) Me.TabPage4.Controls.Add(Me.cbxOnlyBilledTransactions)
Me.TabPage4.Controls.Add(Me.LinkLabel62) Me.TabPage4.Controls.Add(Me.MSE_not_billed_Trans)
Me.TabPage4.Controls.Add(Me.CheckBox8) Me.TabPage4.Controls.Add(Me.CheckBox8)
Me.TabPage4.Controls.Add(Me.LinkLabel60) Me.TabPage4.Controls.Add(Me.MSE_Settlements)
Me.TabPage4.Controls.Add(Me.Label43) Me.TabPage4.Controls.Add(Me.Label43)
Me.TabPage4.Controls.Add(Me.LinkLabel61) Me.TabPage4.Controls.Add(Me.MSE_missingTrans)
Me.TabPage4.Controls.Add(Me.Label40) Me.TabPage4.Controls.Add(Me.Label40)
Me.TabPage4.Controls.Add(Me.PictureBox25) Me.TabPage4.Controls.Add(Me.PictureBox25)
Me.TabPage4.Controls.Add(Me.LinkLabel59) Me.TabPage4.Controls.Add(Me.MSETransID)
Me.TabPage4.Controls.Add(Me.Button23) Me.TabPage4.Controls.Add(Me.Button23)
Me.TabPage4.Controls.Add(Me.Label39) Me.TabPage4.Controls.Add(Me.Label39)
Me.TabPage4.Controls.Add(Me.Label38) Me.TabPage4.Controls.Add(Me.Label38)
Me.TabPage4.Controls.Add(Me.Label37) Me.TabPage4.Controls.Add(Me.Label37)
Me.TabPage4.Controls.Add(Me.LinkLabel58) Me.TabPage4.Controls.Add(Me.MSE_Kunden)
Me.TabPage4.Controls.Add(Me.LinkLabel57) Me.TabPage4.Controls.Add(Me.LinkLabel57)
Me.TabPage4.Controls.Add(Me.DateTimePicker2) Me.TabPage4.Controls.Add(Me.DateTimePicker2)
Me.TabPage4.Controls.Add(Me.DateTimePicker1) Me.TabPage4.Controls.Add(Me.DateTimePicker1)
Me.TabPage4.Controls.Add(Me.LinkLabel56) Me.TabPage4.Controls.Add(Me.MSETransakt)
Me.TabPage4.Controls.Add(Me.datVon) Me.TabPage4.Controls.Add(Me.datVon)
Me.TabPage4.Controls.Add(Me.LinkLabel55) Me.TabPage4.Controls.Add(Me.MSE_RE)
Me.TabPage4.Controls.Add(Me.LinkLabel54) Me.TabPage4.Controls.Add(Me.MSE_Transaktions)
Me.TabPage4.Controls.Add(Me.TextBox2) Me.TabPage4.Controls.Add(Me.TextBox2)
Me.TabPage4.Controls.Add(Me.TextBox1) Me.TabPage4.Controls.Add(Me.TextBox1)
Me.TabPage4.Controls.Add(Me.cbxDateienlöschenUTA) Me.TabPage4.Controls.Add(Me.cbxDateienlöschenUTA)
Me.TabPage4.Controls.Add(Me.cbxDateienlöschenRMC) Me.TabPage4.Controls.Add(Me.cbxDateienlöschenRMC)
Me.TabPage4.Controls.Add(Me.LinkLabel53) Me.TabPage4.Controls.Add(Me.UTA_imports)
Me.TabPage4.Controls.Add(Me.Label36) Me.TabPage4.Controls.Add(Me.Label36)
Me.TabPage4.Controls.Add(Me.Label35) Me.TabPage4.Controls.Add(Me.Label35)
Me.TabPage4.Controls.Add(Me.Label34) Me.TabPage4.Controls.Add(Me.Label34)
Me.TabPage4.Controls.Add(Me.Label33) Me.TabPage4.Controls.Add(Me.Label33)
Me.TabPage4.Controls.Add(Me.Label32) Me.TabPage4.Controls.Add(Me.Label32)
Me.TabPage4.Controls.Add(Me.Label31) Me.TabPage4.Controls.Add(Me.Label31)
Me.TabPage4.Controls.Add(Me.LinkLabel52) Me.TabPage4.Controls.Add(Me.RMC_import)
Me.TabPage4.Controls.Add(Me.Label30) Me.TabPage4.Controls.Add(Me.Label30)
Me.TabPage4.Controls.Add(Me.Label29) Me.TabPage4.Controls.Add(Me.Label29)
Me.TabPage4.Controls.Add(Me.Label28) Me.TabPage4.Controls.Add(Me.Label28)
@@ -2621,6 +2583,17 @@ Partial Class frmStartOptions
Me.TabPage4.Text = "VERAG 360" Me.TabPage4.Text = "VERAG 360"
Me.TabPage4.UseVisualStyleBackColor = True Me.TabPage4.UseVisualStyleBackColor = True
' '
'IDS_REDetails
'
Me.IDS_REDetails.AutoSize = True
Me.IDS_REDetails.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.IDS_REDetails.Location = New System.Drawing.Point(21, 392)
Me.IDS_REDetails.Name = "IDS_REDetails"
Me.IDS_REDetails.Size = New System.Drawing.Size(176, 13)
Me.IDS_REDetails.TabIndex = 165
Me.IDS_REDetails.TabStop = True
Me.IDS_REDetails.Text = "Rechnungsdetaildaten aktualisieren"
'
'Label51 'Label51
' '
Me.Label51.AutoSize = True Me.Label51.AutoSize = True
@@ -2667,73 +2640,47 @@ Partial Class frmStartOptions
Me.txtPLoseKdNr.TabIndex = 162 Me.txtPLoseKdNr.TabIndex = 162
Me.txtPLoseKdNr.TextAlign = System.Windows.Forms.HorizontalAlignment.Center Me.txtPLoseKdNr.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
' '
'LinkLabel74 'UTAREPdf
' '
Me.LinkLabel74.AutoSize = True Me.UTAREPdf.AutoSize = True
Me.LinkLabel74.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) Me.UTAREPdf.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.LinkLabel74.Location = New System.Drawing.Point(609, 441) Me.UTAREPdf.Location = New System.Drawing.Point(609, 441)
Me.LinkLabel74.Name = "LinkLabel74" Me.UTAREPdf.Name = "UTAREPdf"
Me.LinkLabel74.Size = New System.Drawing.Size(119, 13) Me.UTAREPdf.Size = New System.Drawing.Size(119, 13)
Me.LinkLabel74.TabIndex = 161 Me.UTAREPdf.TabIndex = 161
Me.LinkLabel74.TabStop = True Me.UTAREPdf.TabStop = True
Me.LinkLabel74.Text = "PDF mit RE verknüpfen" Me.UTAREPdf.Text = "PDF mit RE verknüpfen"
' '
'LinkLabel73 'KN8_DESTAT
' '
Me.LinkLabel73.AutoSize = True Me.KN8_DESTAT.AutoSize = True
Me.LinkLabel73.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) Me.KN8_DESTAT.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.LinkLabel73.Location = New System.Drawing.Point(18, 387) Me.KN8_DESTAT.Location = New System.Drawing.Point(13, 444)
Me.LinkLabel73.Name = "LinkLabel73" Me.KN8_DESTAT.Name = "KN8_DESTAT"
Me.LinkLabel73.Size = New System.Drawing.Size(176, 13) Me.KN8_DESTAT.Size = New System.Drawing.Size(148, 13)
Me.LinkLabel73.TabIndex = 160 Me.KN8_DESTAT.TabIndex = 152
Me.LinkLabel73.TabStop = True Me.KN8_DESTAT.TabStop = True
Me.LinkLabel73.Text = "Rechnungsdetaildaten aktualisieren" Me.KN8_DESTAT.Text = "KN8 EZT DE Stat.Bundesamt"
' '
'LinkLabel69 'Laender_Steuercode
' '
Me.LinkLabel69.Location = New System.Drawing.Point(722, 211) Me.Laender_Steuercode.Location = New System.Drawing.Point(722, 211)
Me.LinkLabel69.Name = "LinkLabel69" Me.Laender_Steuercode.Name = "Laender_Steuercode"
Me.LinkLabel69.Size = New System.Drawing.Size(132, 23) Me.Laender_Steuercode.Size = New System.Drawing.Size(132, 23)
Me.LinkLabel69.TabIndex = 0 Me.Laender_Steuercode.TabIndex = 0
Me.LinkLabel69.TabStop = True Me.Laender_Steuercode.TabStop = True
Me.LinkLabel69.Text = "Land in Steuernr setzen" Me.Laender_Steuercode.Text = "Land in Steuernr setzen"
' '
'LinkLabel72 'PlosePdfRE
' '
Me.LinkLabel72.AutoSize = True Me.PlosePdfRE.AutoSize = True
Me.LinkLabel72.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) Me.PlosePdfRE.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.LinkLabel72.Location = New System.Drawing.Point(728, 166) Me.PlosePdfRE.Location = New System.Drawing.Point(728, 166)
Me.LinkLabel72.Name = "LinkLabel72" Me.PlosePdfRE.Name = "PlosePdfRE"
Me.LinkLabel72.Size = New System.Drawing.Size(119, 13) Me.PlosePdfRE.Size = New System.Drawing.Size(119, 13)
Me.LinkLabel72.TabIndex = 159 Me.PlosePdfRE.TabIndex = 159
Me.LinkLabel72.TabStop = True Me.PlosePdfRE.TabStop = True
Me.LinkLabel72.Text = "PDF mit RE verknüpfen" 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(797, 121)
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
' '
'lblUTAPDFvollst 'lblUTAPDFvollst
' '
@@ -2746,32 +2693,6 @@ Partial Class frmStartOptions
Me.lblUTAPDFvollst.TabStop = True Me.lblUTAPDFvollst.TabStop = True
Me.lblUTAPDFvollst.Text = "PDF Daten vollständig" Me.lblUTAPDFvollst.Text = "PDF Daten vollständig"
' '
'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(537, 415)
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
'
'TextBox3 'TextBox3
' '
Me.TextBox3.BackColor = System.Drawing.SystemColors.Menu Me.TextBox3.BackColor = System.Drawing.SystemColors.Menu
@@ -2794,53 +2715,27 @@ Partial Class frmStartOptions
Me.cbxIDSUmbenenen.TabIndex = 153 Me.cbxIDSUmbenenen.TabIndex = 153
Me.cbxIDSUmbenenen.UseVisualStyleBackColor = True Me.cbxIDSUmbenenen.UseVisualStyleBackColor = True
' '
'txtIDSYear 'IDS_RE
' '
Me.txtIDSYear._DateTimeOnly = False Me.IDS_RE.AutoSize = True
Me.txtIDSYear._numbersOnly = True Me.IDS_RE.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.txtIDSYear._numbersOnlyKommastellen = "" Me.IDS_RE.Location = New System.Drawing.Point(18, 369)
Me.txtIDSYear._numbersOnlyTrennzeichen = False Me.IDS_RE.Name = "IDS_RE"
Me.txtIDSYear._Prozent = False Me.IDS_RE.Size = New System.Drawing.Size(151, 13)
Me.txtIDSYear._ShortDateNew = False Me.IDS_RE.TabIndex = 152
Me.txtIDSYear._ShortDateOnly = False Me.IDS_RE.TabStop = True
Me.txtIDSYear._TimeOnly = False Me.IDS_RE.Text = "Rechnungsdaten aktualisieren"
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(24, 301)
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
' '
'LinkLabel70 'IDS_Laendercode
' '
Me.LinkLabel70.AutoSize = True Me.IDS_Laendercode.AutoSize = True
Me.LinkLabel70.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) Me.IDS_Laendercode.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.LinkLabel70.Location = New System.Drawing.Point(18, 369) Me.IDS_Laendercode.Location = New System.Drawing.Point(18, 348)
Me.LinkLabel70.Name = "LinkLabel70" Me.IDS_Laendercode.Name = "IDS_Laendercode"
Me.LinkLabel70.Size = New System.Drawing.Size(151, 13) Me.IDS_Laendercode.Size = New System.Drawing.Size(135, 13)
Me.LinkLabel70.TabIndex = 152 Me.IDS_Laendercode.TabIndex = 151
Me.LinkLabel70.TabStop = True Me.IDS_Laendercode.TabStop = True
Me.LinkLabel70.Text = "Rechnungsdaten aktualisieren" Me.IDS_Laendercode.Text = "Ländercode ISO2 einfügen"
'
'LinkLabel67
'
Me.LinkLabel67.AutoSize = True
Me.LinkLabel67.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.LinkLabel67.Location = New System.Drawing.Point(18, 348)
Me.LinkLabel67.Name = "LinkLabel67"
Me.LinkLabel67.Size = New System.Drawing.Size(135, 13)
Me.LinkLabel67.TabIndex = 151
Me.LinkLabel67.TabStop = True
Me.LinkLabel67.Text = "Ländercode ISO2 einfügen"
' '
'cbxITalt 'cbxITalt
' '
@@ -2937,16 +2832,16 @@ Partial Class frmStartOptions
Me.cbxMSEalt.Text = "MSE" Me.cbxMSEalt.Text = "MSE"
Me.cbxMSEalt.UseVisualStyleBackColor = True Me.cbxMSEalt.UseVisualStyleBackColor = True
' '
'LinkLabel65 'IDS_import
' '
Me.LinkLabel65.AutoSize = True Me.IDS_import.AutoSize = True
Me.LinkLabel65.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) Me.IDS_import.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.LinkLabel65.Location = New System.Drawing.Point(21, 325) Me.IDS_import.Location = New System.Drawing.Point(21, 325)
Me.LinkLabel65.Name = "LinkLabel65" Me.IDS_import.Name = "IDS_import"
Me.LinkLabel65.Size = New System.Drawing.Size(115, 13) Me.IDS_import.Size = New System.Drawing.Size(115, 13)
Me.LinkLabel65.TabIndex = 132 Me.IDS_import.TabIndex = 132
Me.LinkLabel65.TabStop = True Me.IDS_import.TabStop = True
Me.LinkLabel65.Text = "CSV + PDF importieren" Me.IDS_import.Text = "CSV + PDF importieren"
' '
'cbxUTANeu 'cbxUTANeu
' '
@@ -2961,16 +2856,16 @@ Partial Class frmStartOptions
Me.cbxUTANeu.Text = "UTA" Me.cbxUTANeu.Text = "UTA"
Me.cbxUTANeu.UseVisualStyleBackColor = True Me.cbxUTANeu.UseVisualStyleBackColor = True
' '
'LinkLabel64 'UTA_Laender
' '
Me.LinkLabel64.AutoSize = True Me.UTA_Laender.AutoSize = True
Me.LinkLabel64.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) Me.UTA_Laender.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.LinkLabel64.Location = New System.Drawing.Point(534, 392) Me.UTA_Laender.Location = New System.Drawing.Point(534, 392)
Me.LinkLabel64.Name = "LinkLabel64" Me.UTA_Laender.Name = "UTA_Laender"
Me.LinkLabel64.Size = New System.Drawing.Size(135, 13) Me.UTA_Laender.Size = New System.Drawing.Size(135, 13)
Me.LinkLabel64.TabIndex = 131 Me.UTA_Laender.TabIndex = 131
Me.LinkLabel64.TabStop = True Me.UTA_Laender.TabStop = True
Me.LinkLabel64.Text = "Ländercode ISO2 einfügen" Me.UTA_Laender.Text = "Ländercode ISO2 einfügen"
' '
'cbxUTAalt 'cbxUTAalt
' '
@@ -3090,16 +2985,16 @@ Partial Class frmStartOptions
Me.cbxOnlyBilledTransactions.Text = "nur verrechnete Transaktionen" Me.cbxOnlyBilledTransactions.Text = "nur verrechnete Transaktionen"
Me.cbxOnlyBilledTransactions.UseVisualStyleBackColor = True Me.cbxOnlyBilledTransactions.UseVisualStyleBackColor = True
' '
'LinkLabel62 'MSE_not_billed_Trans
' '
Me.LinkLabel62.AutoSize = True Me.MSE_not_billed_Trans.AutoSize = True
Me.LinkLabel62.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) Me.MSE_not_billed_Trans.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.LinkLabel62.Location = New System.Drawing.Point(265, 366) Me.MSE_not_billed_Trans.Location = New System.Drawing.Point(265, 366)
Me.LinkLabel62.Name = "LinkLabel62" Me.MSE_not_billed_Trans.Name = "MSE_not_billed_Trans"
Me.LinkLabel62.Size = New System.Drawing.Size(226, 13) Me.MSE_not_billed_Trans.Size = New System.Drawing.Size(226, 13)
Me.LinkLabel62.TabIndex = 120 Me.MSE_not_billed_Trans.TabIndex = 120
Me.LinkLabel62.TabStop = True Me.MSE_not_billed_Trans.TabStop = True
Me.LinkLabel62.Text = "nicht abgerechete Transaktionen aktualisieren" Me.MSE_not_billed_Trans.Text = "nicht abgerechete Transaktionen aktualisieren"
' '
'CheckBox8 'CheckBox8
' '
@@ -3114,16 +3009,16 @@ Partial Class frmStartOptions
Me.CheckBox8.Text = "Testsystem" Me.CheckBox8.Text = "Testsystem"
Me.CheckBox8.UseVisualStyleBackColor = True Me.CheckBox8.UseVisualStyleBackColor = True
' '
'LinkLabel60 'MSE_Settlements
' '
Me.LinkLabel60.AutoSize = True Me.MSE_Settlements.AutoSize = True
Me.LinkLabel60.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) Me.MSE_Settlements.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.LinkLabel60.Location = New System.Drawing.Point(269, 119) Me.MSE_Settlements.Location = New System.Drawing.Point(269, 119)
Me.LinkLabel60.Name = "LinkLabel60" Me.MSE_Settlements.Name = "MSE_Settlements"
Me.LinkLabel60.Size = New System.Drawing.Size(144, 13) Me.MSE_Settlements.Size = New System.Drawing.Size(144, 13)
Me.LinkLabel60.TabIndex = 119 Me.MSE_Settlements.TabIndex = 119
Me.LinkLabel60.TabStop = True Me.MSE_Settlements.TabStop = True
Me.LinkLabel60.Text = "Neueste Settlements abrufen" Me.MSE_Settlements.Text = "Neueste Settlements abrufen"
' '
'Label43 'Label43
' '
@@ -3135,16 +3030,16 @@ Partial Class frmStartOptions
Me.Label43.TabIndex = 132 Me.Label43.TabIndex = 132
Me.Label43.Text = "KdNr" Me.Label43.Text = "KdNr"
' '
'LinkLabel61 'MSE_missingTrans
' '
Me.LinkLabel61.AutoSize = True Me.MSE_missingTrans.AutoSize = True
Me.LinkLabel61.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) Me.MSE_missingTrans.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.LinkLabel61.Location = New System.Drawing.Point(264, 339) Me.MSE_missingTrans.Location = New System.Drawing.Point(264, 339)
Me.LinkLabel61.Name = "LinkLabel61" Me.MSE_missingTrans.Name = "MSE_missingTrans"
Me.LinkLabel61.Size = New System.Drawing.Size(158, 13) Me.MSE_missingTrans.Size = New System.Drawing.Size(158, 13)
Me.LinkLabel61.TabIndex = 118 Me.MSE_missingTrans.TabIndex = 118
Me.LinkLabel61.TabStop = True Me.MSE_missingTrans.TabStop = True
Me.LinkLabel61.Text = "fehlende Transaktionen abrufen" Me.MSE_missingTrans.Text = "fehlende Transaktionen abrufen"
' '
'Label40 'Label40
' '
@@ -3167,16 +3062,16 @@ Partial Class frmStartOptions
Me.PictureBox25.TabStop = False Me.PictureBox25.TabStop = False
Me.PictureBox25.Visible = False Me.PictureBox25.Visible = False
' '
'LinkLabel59 'MSETransID
' '
Me.LinkLabel59.AutoSize = True Me.MSETransID.AutoSize = True
Me.LinkLabel59.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) Me.MSETransID.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.LinkLabel59.Location = New System.Drawing.Point(277, 243) Me.MSETransID.Location = New System.Drawing.Point(277, 243)
Me.LinkLabel59.Name = "LinkLabel59" Me.MSETransID.Name = "MSETransID"
Me.LinkLabel59.Size = New System.Drawing.Size(149, 13) Me.MSETransID.Size = New System.Drawing.Size(149, 13)
Me.LinkLabel59.TabIndex = 114 Me.MSETransID.TabIndex = 114
Me.LinkLabel59.TabStop = True Me.MSETransID.TabStop = True
Me.LinkLabel59.Text = "Transaktionen von ID abrufen" Me.MSETransID.Text = "Transaktionen von ID abrufen"
' '
'Button23 'Button23
' '
@@ -3220,16 +3115,16 @@ Partial Class frmStartOptions
Me.Label37.TabIndex = 111 Me.Label37.TabIndex = 111
Me.Label37.Text = "von" Me.Label37.Text = "von"
' '
'LinkLabel58 'MSE_Kunden
' '
Me.LinkLabel58.AutoSize = True Me.MSE_Kunden.AutoSize = True
Me.LinkLabel58.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) Me.MSE_Kunden.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.LinkLabel58.Location = New System.Drawing.Point(270, 144) Me.MSE_Kunden.Location = New System.Drawing.Point(270, 144)
Me.LinkLabel58.Name = "LinkLabel58" Me.MSE_Kunden.Name = "MSE_Kunden"
Me.LinkLabel58.Size = New System.Drawing.Size(126, 13) Me.MSE_Kunden.Size = New System.Drawing.Size(126, 13)
Me.LinkLabel58.TabIndex = 110 Me.MSE_Kunden.TabIndex = 110
Me.LinkLabel58.TabStop = True Me.MSE_Kunden.TabStop = True
Me.LinkLabel58.Text = "Neueste Kunden abrufen" Me.MSE_Kunden.Text = "Neueste Kunden abrufen"
' '
'LinkLabel57 'LinkLabel57
' '
@@ -3258,16 +3153,16 @@ Partial Class frmStartOptions
Me.DateTimePicker1.Size = New System.Drawing.Size(85, 20) Me.DateTimePicker1.Size = New System.Drawing.Size(85, 20)
Me.DateTimePicker1.TabIndex = 106 Me.DateTimePicker1.TabIndex = 106
' '
'LinkLabel56 'MSETransakt
' '
Me.LinkLabel56.AutoSize = True Me.MSETransakt.AutoSize = True
Me.LinkLabel56.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) Me.MSETransakt.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.LinkLabel56.Location = New System.Drawing.Point(263, 444) Me.MSETransakt.Location = New System.Drawing.Point(263, 444)
Me.LinkLabel56.Name = "LinkLabel56" Me.MSETransakt.Name = "MSETransakt"
Me.LinkLabel56.Size = New System.Drawing.Size(114, 13) Me.MSETransakt.Size = New System.Drawing.Size(114, 13)
Me.LinkLabel56.TabIndex = 105 Me.MSETransakt.TabIndex = 105
Me.LinkLabel56.TabStop = True Me.MSETransakt.TabStop = True
Me.LinkLabel56.Text = "Transaktionen abrufen" Me.MSETransakt.Text = "Transaktionen abrufen"
' '
'datVon 'datVon
' '
@@ -3277,27 +3172,27 @@ Partial Class frmStartOptions
Me.datVon.Size = New System.Drawing.Size(85, 20) Me.datVon.Size = New System.Drawing.Size(85, 20)
Me.datVon.TabIndex = 104 Me.datVon.TabIndex = 104
' '
'LinkLabel55 'MSE_RE
' '
Me.LinkLabel55.AutoSize = True Me.MSE_RE.AutoSize = True
Me.LinkLabel55.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) Me.MSE_RE.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.LinkLabel55.Location = New System.Drawing.Point(265, 312) Me.MSE_RE.Location = New System.Drawing.Point(265, 312)
Me.LinkLabel55.Name = "LinkLabel55" Me.MSE_RE.Name = "MSE_RE"
Me.LinkLabel55.Size = New System.Drawing.Size(108, 13) Me.MSE_RE.Size = New System.Drawing.Size(108, 13)
Me.LinkLabel55.TabIndex = 103 Me.MSE_RE.TabIndex = 103
Me.LinkLabel55.TabStop = True Me.MSE_RE.TabStop = True
Me.LinkLabel55.Text = "Rechnungen abrufen" Me.MSE_RE.Text = "Rechnungen abrufen"
' '
'LinkLabel54 'MSE_Transaktions
' '
Me.LinkLabel54.AutoSize = True Me.MSE_Transaktions.AutoSize = True
Me.LinkLabel54.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) Me.MSE_Transaktions.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.LinkLabel54.Location = New System.Drawing.Point(270, 94) Me.MSE_Transaktions.Location = New System.Drawing.Point(270, 94)
Me.LinkLabel54.Name = "LinkLabel54" Me.MSE_Transaktions.Name = "MSE_Transaktions"
Me.LinkLabel54.Size = New System.Drawing.Size(157, 13) Me.MSE_Transaktions.Size = New System.Drawing.Size(157, 13)
Me.LinkLabel54.TabIndex = 102 Me.MSE_Transaktions.TabIndex = 102
Me.LinkLabel54.TabStop = True Me.MSE_Transaktions.TabStop = True
Me.LinkLabel54.Text = "Neueste Transaktionen abrufen" Me.MSE_Transaktions.Text = "Neueste Transaktionen abrufen"
' '
'TextBox2 'TextBox2
' '
@@ -3341,16 +3236,16 @@ Partial Class frmStartOptions
Me.cbxDateienlöschenRMC.TabIndex = 98 Me.cbxDateienlöschenRMC.TabIndex = 98
Me.cbxDateienlöschenRMC.UseVisualStyleBackColor = True Me.cbxDateienlöschenRMC.UseVisualStyleBackColor = True
' '
'LinkLabel53 'UTA_imports
' '
Me.LinkLabel53.AutoSize = True Me.UTA_imports.AutoSize = True
Me.LinkLabel53.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) Me.UTA_imports.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.LinkLabel53.Location = New System.Drawing.Point(534, 371) Me.UTA_imports.Location = New System.Drawing.Point(534, 371)
Me.LinkLabel53.Name = "LinkLabel53" Me.UTA_imports.Name = "UTA_imports"
Me.LinkLabel53.Size = New System.Drawing.Size(119, 13) Me.UTA_imports.Size = New System.Drawing.Size(119, 13)
Me.LinkLabel53.TabIndex = 97 Me.UTA_imports.TabIndex = 97
Me.LinkLabel53.TabStop = True Me.UTA_imports.TabStop = True
Me.LinkLabel53.Text = ".UTA + PDF importieren" Me.UTA_imports.Text = ".UTA + PDF importieren"
' '
'Label36 'Label36
' '
@@ -3415,16 +3310,16 @@ Partial Class frmStartOptions
Me.Label31.TabIndex = 91 Me.Label31.TabIndex = 91
Me.Label31.Text = "UTA" Me.Label31.Text = "UTA"
' '
'LinkLabel52 'RMC_import
' '
Me.LinkLabel52.AutoSize = True Me.RMC_import.AutoSize = True
Me.LinkLabel52.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) Me.RMC_import.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.LinkLabel52.Location = New System.Drawing.Point(530, 139) Me.RMC_import.Location = New System.Drawing.Point(530, 139)
Me.LinkLabel52.Name = "LinkLabel52" Me.RMC_import.Name = "RMC_import"
Me.LinkLabel52.Size = New System.Drawing.Size(115, 13) Me.RMC_import.Size = New System.Drawing.Size(115, 13)
Me.LinkLabel52.TabIndex = 84 Me.RMC_import.TabIndex = 84
Me.LinkLabel52.TabStop = True Me.RMC_import.TabStop = True
Me.LinkLabel52.Text = "CSV + PDF importieren" Me.RMC_import.Text = "CSV + PDF importieren"
' '
'Label30 'Label30
' '
@@ -3638,7 +3533,7 @@ Partial Class frmStartOptions
Me.txtPloseJahr._WaehrungZeichen = False Me.txtPloseJahr._WaehrungZeichen = False
Me.txtPloseJahr.BackColor = System.Drawing.SystemColors.Window Me.txtPloseJahr.BackColor = System.Drawing.SystemColors.Window
Me.txtPloseJahr.ForeColor = System.Drawing.Color.Red Me.txtPloseJahr.ForeColor = System.Drawing.Color.Red
Me.txtPloseJahr.Location = New System.Drawing.Point(725, 111) Me.txtPloseJahr.Location = New System.Drawing.Point(797, 120)
Me.txtPloseJahr.MaxLength = 10 Me.txtPloseJahr.MaxLength = 10
Me.txtPloseJahr.MaxLineLength = -1 Me.txtPloseJahr.MaxLineLength = -1
Me.txtPloseJahr.MaxLines_Warning = "" Me.txtPloseJahr.MaxLines_Warning = ""
@@ -3664,7 +3559,7 @@ Partial Class frmStartOptions
Me.txtUTADate._WaehrungZeichen = True Me.txtUTADate._WaehrungZeichen = True
Me.txtUTADate.BackColor = System.Drawing.SystemColors.Window Me.txtUTADate.BackColor = System.Drawing.SystemColors.Window
Me.txtUTADate.ForeColor = System.Drawing.Color.Red Me.txtUTADate.ForeColor = System.Drawing.Color.Red
Me.txtUTADate.Location = New System.Drawing.Point(537, 448) Me.txtUTADate.Location = New System.Drawing.Point(538, 416)
Me.txtUTADate.MaxLength = 10 Me.txtUTADate.MaxLength = 10
Me.txtUTADate.MaxLineLength = -1 Me.txtUTADate.MaxLineLength = -1
Me.txtUTADate.MaxLines_Warning = "" Me.txtUTADate.MaxLines_Warning = ""
@@ -3690,7 +3585,7 @@ Partial Class frmStartOptions
Me.txtIDSYear._WaehrungZeichen = True Me.txtIDSYear._WaehrungZeichen = True
Me.txtIDSYear.BackColor = System.Drawing.SystemColors.Window Me.txtIDSYear.BackColor = System.Drawing.SystemColors.Window
Me.txtIDSYear.ForeColor = System.Drawing.Color.Red Me.txtIDSYear.ForeColor = System.Drawing.Color.Red
Me.txtIDSYear.Location = New System.Drawing.Point(24, 387) Me.txtIDSYear.Location = New System.Drawing.Point(86, 418)
Me.txtIDSYear.MaxLength = 10 Me.txtIDSYear.MaxLength = 10
Me.txtIDSYear.MaxLineLength = -1 Me.txtIDSYear.MaxLineLength = -1
Me.txtIDSYear.MaxLines_Warning = "" Me.txtIDSYear.MaxLines_Warning = ""
@@ -4214,17 +4109,6 @@ Partial Class frmStartOptions
Me.DataGridViewTextBoxColumn1.MinimumWidth = 8 Me.DataGridViewTextBoxColumn1.MinimumWidth = 8
Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1" Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1"
' '
'LinkLabel73
'
Me.LinkLabel73.AutoSize = True
Me.LinkLabel73.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.LinkLabel73.Location = New System.Drawing.Point(18, 419)
Me.LinkLabel73.Name = "LinkLabel73"
Me.LinkLabel73.Size = New System.Drawing.Size(148, 13)
Me.LinkLabel73.TabIndex = 152
Me.LinkLabel73.TabStop = True
Me.LinkLabel73.Text = "KN8 EZT DE Stat.Bundesamt"
'
'frmStartOptions 'frmStartOptions
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -4466,12 +4350,12 @@ Partial Class frmStartOptions
Friend WithEvents MyTextBox3 As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents MyTextBox3 As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents LinkLabel51 As LinkLabel Friend WithEvents LinkLabel51 As LinkLabel
Friend WithEvents buchungenAMBAR As Button Friend WithEvents buchungenAMBAR As Button
Friend WithEvents LinkLabel52 As LinkLabel Friend WithEvents RMC_import As LinkLabel
Friend WithEvents Label30 As Label Friend WithEvents Label30 As Label
Friend WithEvents Label29 As Label Friend WithEvents Label29 As Label
Friend WithEvents cbxRMC As VERAG_PROG_ALLGEMEIN.MyComboBox Friend WithEvents cbxRMC As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents Label28 As Label Friend WithEvents Label28 As Label
Friend WithEvents LinkLabel53 As LinkLabel Friend WithEvents UTA_imports As LinkLabel
Friend WithEvents Label36 As Label Friend WithEvents Label36 As Label
Friend WithEvents Label35 As Label Friend WithEvents Label35 As Label
Friend WithEvents Label34 As Label Friend WithEvents Label34 As Label
@@ -4482,23 +4366,23 @@ Partial Class frmStartOptions
Friend WithEvents cbxDateienlöschenUTA As CheckBox Friend WithEvents cbxDateienlöschenUTA As CheckBox
Friend WithEvents TextBox2 As TextBox Friend WithEvents TextBox2 As TextBox
Friend WithEvents TextBox1 As TextBox Friend WithEvents TextBox1 As TextBox
Friend WithEvents LinkLabel54 As LinkLabel Friend WithEvents MSE_Transaktions As LinkLabel
Friend WithEvents LinkLabel55 As LinkLabel Friend WithEvents MSE_RE As LinkLabel
Friend WithEvents datVon As DateTimePicker Friend WithEvents datVon As DateTimePicker
Friend WithEvents LinkLabel56 As LinkLabel Friend WithEvents MSETransakt As LinkLabel
Friend WithEvents DateTimePicker2 As DateTimePicker Friend WithEvents DateTimePicker2 As DateTimePicker
Friend WithEvents DateTimePicker1 As DateTimePicker Friend WithEvents DateTimePicker1 As DateTimePicker
Friend WithEvents LinkLabel57 As LinkLabel Friend WithEvents LinkLabel57 As LinkLabel
Friend WithEvents LinkLabel58 As LinkLabel Friend WithEvents MSE_Kunden As LinkLabel
Friend WithEvents Label40 As Label Friend WithEvents Label40 As Label
Friend WithEvents txtTransactionID As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents txtTransactionID As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents LinkLabel59 As LinkLabel Friend WithEvents MSETransID As LinkLabel
Friend WithEvents Label39 As Label Friend WithEvents Label39 As Label
Friend WithEvents Label38 As Label Friend WithEvents Label38 As Label
Friend WithEvents Label37 As Label Friend WithEvents Label37 As Label
Friend WithEvents LinkLabel61 As LinkLabel Friend WithEvents MSE_missingTrans As LinkLabel
Friend WithEvents LinkLabel60 As LinkLabel Friend WithEvents MSE_Settlements As LinkLabel
Friend WithEvents LinkLabel62 As LinkLabel Friend WithEvents MSE_not_billed_Trans As LinkLabel
Friend WithEvents cbxOnlyBilledTransactions As CheckBox Friend WithEvents cbxOnlyBilledTransactions As CheckBox
Friend WithEvents cbxMSEBatchNr As VERAG_PROG_ALLGEMEIN.MyComboBox Friend WithEvents cbxMSEBatchNr As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents Label5 As Label Friend WithEvents Label5 As Label
@@ -4514,15 +4398,15 @@ Partial Class frmStartOptions
Friend WithEvents Button23 As Button Friend WithEvents Button23 As Button
Friend WithEvents Label42 As Label Friend WithEvents Label42 As Label
Friend WithEvents txtBatchNrofTransaction As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents txtBatchNrofTransaction As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents LinkLabel64 As LinkLabel Friend WithEvents UTA_Laender As LinkLabel
Friend WithEvents DataGridViewTextBoxColumn1 As DataGridViewTextBoxColumn Friend WithEvents DataGridViewTextBoxColumn1 As DataGridViewTextBoxColumn
Friend WithEvents Label43 As Label Friend WithEvents Label43 As Label
Friend WithEvents txtKdNr As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents txtKdNr As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents CheckBox8 As CheckBox Friend WithEvents CheckBox8 As CheckBox
Friend WithEvents Button24 As Button Friend WithEvents Button24 As Button
Friend WithEvents Button25 As Button Friend WithEvents Button25 As Button
Friend WithEvents LinkLabel65 As LinkLabel Friend WithEvents IDS_import As LinkLabel
Friend WithEvents LinkLabel66 As LinkLabel Friend WithEvents ATCNRinRE As LinkLabel
Friend WithEvents txtMRNPrefix As TextBox Friend WithEvents txtMRNPrefix As TextBox
Friend WithEvents txtUTAYear As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents txtUTAYear As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents cbxGestellungspeichern As CheckBox Friend WithEvents cbxGestellungspeichern As CheckBox
@@ -4537,11 +4421,11 @@ Partial Class frmStartOptions
Friend WithEvents Label45 As Label Friend WithEvents Label45 As Label
Friend WithEvents cbxITalt As CheckBox Friend WithEvents cbxITalt As CheckBox
Friend WithEvents cbxPlose As CheckBox Friend WithEvents cbxPlose As CheckBox
Friend WithEvents LinkLabel67 As LinkLabel Friend WithEvents IDS_Laendercode As LinkLabel
Friend WithEvents LinkLabel68 As LinkLabel Friend WithEvents LinkLabel68 As LinkLabel
Friend WithEvents PictureBox26 As PictureBox Friend WithEvents PictureBox26 As PictureBox
Friend WithEvents LinkLabel69 As LinkLabel Friend WithEvents Laender_Steuercode As LinkLabel
Friend WithEvents LinkLabel70 As LinkLabel Friend WithEvents IDS_RE As LinkLabel
Friend WithEvents Label48 As Label Friend WithEvents Label48 As Label
Friend WithEvents datTranscodeBis As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents datTranscodeBis As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents datTranscodeVon As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents datTranscodeVon As VERAG_PROG_ALLGEMEIN.MyTextBox
@@ -4559,11 +4443,12 @@ Partial Class frmStartOptions
Friend WithEvents Button28 As Button Friend WithEvents Button28 As Button
Friend WithEvents Label49 As Label Friend WithEvents Label49 As Label
Friend WithEvents CheckBox9 As CheckBox Friend WithEvents CheckBox9 As CheckBox
Friend WithEvents LinkLabel72 As LinkLabel Friend WithEvents PlosePdfRE As LinkLabel
Friend WithEvents txtPloseJahr As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents txtPloseJahr As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents LinkLabel73 As LinkLabel Friend WithEvents KN8_DESTAT As LinkLabel
Friend WithEvents LinkLabel74 As LinkLabel Friend WithEvents UTAREPdf As LinkLabel
Friend WithEvents txtPLoseKdNr As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents txtPLoseKdNr As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label51 As Label Friend WithEvents Label51 As Label
Friend WithEvents Label50 As Label Friend WithEvents Label50 As Label
Friend WithEvents IDS_REDetails As LinkLabel
End Class End Class

1340
initATLASAufschubkonten/frmStartOptions.resx
View File

File diff suppressed because it is too large Load Diff

61
initATLASAufschubkonten/frmStartOptions.vb
View File

@@ -5,7 +5,6 @@ Imports System.Net.Security
Imports System.Security.Cryptography.X509Certificates Imports System.Security.Cryptography.X509Certificates
Imports System.Text Imports System.Text
Imports System.Xml Imports System.Xml
Imports io.konik.zugferd
Imports MDM_Worker Imports MDM_Worker
Imports Renci.SshNet Imports Renci.SshNet
Imports VERAG_PROG_ALLGEMEIN Imports VERAG_PROG_ALLGEMEIN
@@ -4954,7 +4953,7 @@ Public Class frmStartOptions
End Sub End Sub
Private Sub LinkLabel52_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel52.LinkClicked Private Sub LinkLabel52_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles RMC_import.LinkClicked
Me.Visible = False Me.Visible = False
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = cbxTestsystem.Checked VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = cbxTestsystem.Checked
@@ -4964,7 +4963,7 @@ Public Class frmStartOptions
Me.Visible = True Me.Visible = True
End Sub End Sub
Private Sub LinkLabel53_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel53.LinkClicked Private Sub LinkLabel53_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles UTA_imports.LinkClicked
Me.Visible = False Me.Visible = False
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = cbxTestsystem.Checked VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = cbxTestsystem.Checked
Dim f As New frmNachrichtenVerarbeitung_MDM_divers("UTA", False, False, cbxDateienlöschenUTA.Checked) Dim f As New frmNachrichtenVerarbeitung_MDM_divers("UTA", False, False, cbxDateienlöschenUTA.Checked)
@@ -4974,7 +4973,7 @@ Public Class frmStartOptions
Me.Visible = True Me.Visible = True
End Sub End Sub
Private Sub LinkLabel54_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel54.LinkClicked Private Sub LinkLabel54_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles MSE_Transaktions.LinkClicked
Me.Visible = False Me.Visible = False
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = cbxTestsystem.Checked VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = cbxTestsystem.Checked
Dim mse As New cMSEAPI("MSE") Dim mse As New cMSEAPI("MSE")
@@ -5020,7 +5019,7 @@ Public Class frmStartOptions
Me.Visible = True Me.Visible = True
End Sub End Sub
Private Sub LinkLabel55_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel55.LinkClicked Private Sub MSE_RE_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles MSE_RE.LinkClicked
Me.Visible = False Me.Visible = False
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = cbxTestsystem.Checked VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = cbxTestsystem.Checked
@@ -5078,7 +5077,7 @@ Public Class frmStartOptions
End Sub End Sub
Private Sub LinkLabel56_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel56.LinkClicked Private Sub MSETransakt_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles MSETransakt.LinkClicked
Me.Visible = False Me.Visible = False
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = cbxTestsystem.Checked VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = cbxTestsystem.Checked
Dim mse As New cMSEAPI("MSE") Dim mse As New cMSEAPI("MSE")
@@ -5187,7 +5186,7 @@ Public Class frmStartOptions
End Sub End Sub
Private Sub LinkLabel58_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel58.LinkClicked Private Sub MSE_Kunden_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles MSE_Kunden.LinkClicked
Me.Visible = False Me.Visible = False
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = cbxTestsystem.Checked VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = cbxTestsystem.Checked
Dim mse As New cMSEAPI("MSE") Dim mse As New cMSEAPI("MSE")
@@ -5215,10 +5214,10 @@ Public Class frmStartOptions
Me.Visible = True Me.Visible = True
End Sub End Sub
Private Sub LinkLabel59_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel59.LinkClicked, LinkLabel61.LinkClicked, LinkLabel62.LinkClicked Private Sub MSETransID_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles MSETransID.LinkClicked, MSE_missingTrans.LinkClicked, MSE_not_billed_Trans.LinkClicked
If sender Is LinkLabel59 Then If sender Is MSETransID Then
If Not IsNumeric(txtTransactionID.Text) Then If Not IsNumeric(txtTransactionID.Text) Then
MsgBox("ID muss 10stellige Nr sein!") MsgBox("ID muss 10stellige Nr sein!")
Me.Visible = True Me.Visible = True
@@ -5250,7 +5249,7 @@ Public Class frmStartOptions
Dim dtTransactionID = New DataTable Dim dtTransactionID = New DataTable
If sender Is LinkLabel59 Then If sender Is MSETransID Then
dtTransactionID.Columns.Add("transaction_id", GetType(String)) dtTransactionID.Columns.Add("transaction_id", GetType(String))
dtTransactionID.Columns.Add("found", GetType(Boolean)) dtTransactionID.Columns.Add("found", GetType(Boolean))
dtTransactionID.Columns.Add("batch_seq_nr", GetType(Integer)) dtTransactionID.Columns.Add("batch_seq_nr", GetType(Integer))
@@ -5260,7 +5259,7 @@ Public Class frmStartOptions
R("batch_seq_nr") = 0 R("batch_seq_nr") = 0
dtTransactionID.Rows.Add(R) dtTransactionID.Rows.Add(R)
ElseIf sender Is LinkLabel61 Then ElseIf sender Is MSE_missingTrans Then
dtTransactionID = SQL.loadDgvBySql("select [transaction_id], CAST(1 AS BIT) as found, 0 as batch_seq_nr FROM [VERAG].[dbo].[tblMSESettlements] where [invoice_date] = '" & Date.Parse(datVon.Value).ToShortDateString & "' AND [transaction_id] not in (select [transaction_id] from [VERAG].[dbo].[tblMSETransactions])", "FMZOLL") dtTransactionID = SQL.loadDgvBySql("select [transaction_id], CAST(1 AS BIT) as found, 0 as batch_seq_nr FROM [VERAG].[dbo].[tblMSESettlements] where [invoice_date] = '" & Date.Parse(datVon.Value).ToShortDateString & "' AND [transaction_id] not in (select [transaction_id] from [VERAG].[dbo].[tblMSETransactions])", "FMZOLL")
If dtTransactionID.Rows.Count = 0 Then If dtTransactionID.Rows.Count = 0 Then
@@ -5274,7 +5273,7 @@ Public Class frmStartOptions
Exit Sub Exit Sub
End If End If
ElseIf sender Is LinkLabel62 Then ElseIf sender Is MSE_not_billed_Trans Then
dtTransactionID = SQL.loadDgvBySql("select bills.[transaction_id], CAST(1 AS BIT) as found, trans.batch_seq_nr FROM [VERAG].[dbo].[tblMSESettlements] as bills dtTransactionID = SQL.loadDgvBySql("select bills.[transaction_id], CAST(1 AS BIT) as found, trans.batch_seq_nr FROM [VERAG].[dbo].[tblMSESettlements] as bills
@@ -5329,7 +5328,7 @@ Public Class frmStartOptions
Me.Visible = True Me.Visible = True
End Sub End Sub
Private Sub LinkLabel60_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel60.LinkClicked Private Sub LinkLabel60_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles MSE_Settlements.LinkClicked
Me.Visible = False Me.Visible = False
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = cbxTestsystem.Checked VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = cbxTestsystem.Checked
@@ -5439,14 +5438,14 @@ Public Class frmStartOptions
showPic(ok, PictureBox25) showPic(ok, PictureBox25)
End Sub End Sub
Private Sub LinkLabel64_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel64.LinkClicked, LinkLabel67.LinkClicked, LinkLabel69.LinkClicked Private Sub LinkLabel64_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles UTA_Laender.LinkClicked, IDS_Laendercode.LinkClicked, Laender_Steuercode.LinkClicked
Dim iso2Laneder = "" Dim iso2Laneder = ""
Select Case sender.Name Select Case sender.Name
Case "LinkLabel64" : iso2Laneder = "select distinct (Lieferland) FROM [VERAG].[dbo].[tblUTAImportNew] where Lieferland_ISO2 is null" Case "UTA_Laender" : iso2Laneder = "select distinct (Lieferland) FROM [VERAG].[dbo].[tblUTAImportNew] where Lieferland_ISO2 is null"
Case "LinkLabel67" : iso2Laneder = "select distinct (LandNr) FROM [VERAG].[dbo].[tbl_IDS_Länder] where Lieferland_ISO2 is null" Case "IDS_Laendercode" : iso2Laneder = "select distinct (LandNr) FROM [VERAG].[dbo].[tbl_IDS_Länder] where Lieferland_ISO2 is null"
Case "LinkLabel69" : iso2Laneder = "select distinct (LandNr) FROM [VERAG].[dbo].[tblSteuernummern] where LandKZ is null" Case "Laender_Steuercode" : iso2Laneder = "select distinct (LandNr) FROM [VERAG].[dbo].[tblSteuernummern] where LandKZ is null"
End Select End Select
@@ -5456,9 +5455,9 @@ Public Class frmStartOptions
If dtiso2Laneder.Rows.Count > 0 Then If dtiso2Laneder.Rows.Count > 0 Then
For Each r As DataRow In dtiso2Laneder.Rows For Each r As DataRow In dtiso2Laneder.Rows
Select Case sender.Name Select Case sender.Name
Case "LinkLabel64" : SQL.doSQL("Update [VERAG].[dbo].[tblUTAImportNew] set Lieferland_ISO2 = '" & VERAG_PROG_ALLGEMEIN.cProgramFunctions.getISO2LandFromISO3Land(r.Item("Lieferland")) & "' where Lieferland = '" & r.Item("Lieferland") & "'", "FMZOLL") Case "UTA_Laender" : SQL.doSQL("Update [VERAG].[dbo].[tblUTAImportNew] set Lieferland_ISO2 = '" & VERAG_PROG_ALLGEMEIN.cProgramFunctions.getISO2LandFromISO3Land(r.Item("Lieferland")) & "' where Lieferland = '" & r.Item("Lieferland") & "'", "FMZOLL")
Case "LinkLabel67" : SQL.doSQL("Update [VERAG].[dbo].[tbl_IDS_Länder] set Lieferland_ISO2 = '" & VERAG_PROG_ALLGEMEIN.cProgramFunctions.getISO2LandFromLandNr(r.Item("LandNr")) & "' where LandNr = '" & r.Item("LandNr") & "'", "FMZOLL") Case "IDS_Laendercode" : SQL.doSQL("Update [VERAG].[dbo].[tbl_IDS_Länder] set Lieferland_ISO2 = '" & VERAG_PROG_ALLGEMEIN.cProgramFunctions.getISO2LandFromLandNr(r.Item("LandNr")) & "' where LandNr = '" & r.Item("LandNr") & "'", "FMZOLL")
Case "LinkLabel69" : SQL.doSQL("Update [VERAG].[dbo].[tblSteuernummern] set LandKZ = '" & VERAG_PROG_ALLGEMEIN.cProgramFunctions.getISO2LandFromLandNr(r.Item("LandNr")) & "' where LandNr = '" & r.Item("LandNr") & "'", "FMZOLL") Case "Laender_Steuercode" : SQL.doSQL("Update [VERAG].[dbo].[tblSteuernummern] set LandKZ = '" & VERAG_PROG_ALLGEMEIN.cProgramFunctions.getISO2LandFromLandNr(r.Item("LandNr")) & "' where LandNr = '" & r.Item("LandNr") & "'", "FMZOLL")
End Select End Select
@@ -5472,7 +5471,7 @@ Public Class frmStartOptions
Private Sub LinkLabel65_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel65.LinkClicked Private Sub IDS_import_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles IDS_import.LinkClicked
Me.Visible = False Me.Visible = False
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = cbxTestsystem.Checked VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = cbxTestsystem.Checked
Dim f As New frmNachrichtenVerarbeitung_MDM_divers("IDS", False, False, cbxIDSUmbenenen.Checked, True) Dim f As New frmNachrichtenVerarbeitung_MDM_divers("IDS", False, False, cbxIDSUmbenenen.Checked, True)
@@ -5483,7 +5482,7 @@ Public Class frmStartOptions
Private Sub LinkLabel66_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel66.LinkClicked Private Sub ATCNRinRE_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles ATCNRinRE.LinkClicked
Dim sql As New VERAG_PROG_ALLGEMEIN.SQL Dim sql As New VERAG_PROG_ALLGEMEIN.SQL
If txtMRNPrefix.Text = "" Then Exit Sub If txtMRNPrefix.Text = "" Then Exit Sub
@@ -5535,7 +5534,7 @@ Public Class frmStartOptions
End Sub End Sub
Private Sub LinkLabel70_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel70.LinkClicked Private Sub IDS_RE_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles IDS_RE.LinkClicked
Dim fehlendeRechungsdaten As String = "select upper(Invoicenumber) as Invoicenumber, CustomerCode, cast(YearMonthDay as Date) as YearMonthDay FROM [VERAG].[dbo].[tblIDSInvoicesNew] where TransactionVolume is null and AmminclVAT is null and TotalNetAmount is null and VATAmount is null" Dim fehlendeRechungsdaten As String = "select upper(Invoicenumber) as Invoicenumber, CustomerCode, cast(YearMonthDay as Date) as YearMonthDay FROM [VERAG].[dbo].[tblIDSInvoicesNew] where TransactionVolume is null and AmminclVAT is null and TotalNetAmount is null and VATAmount is null"
@@ -5613,9 +5612,9 @@ Public Class frmStartOptions
' Dim dt = (New SQL).loadDgvBySql("SELECT TOP (1000) [ncts_Id] FROM [tblNCTS_FREMD] where ncts_Partnersystem='ATEZ' and ncts_status < 60", "FMZOLL") ' Dim dt = (New SQL).loadDgvBySql("SELECT TOP (1000) [ncts_Id] FROM [tblNCTS_FREMD] where ncts_Partnersystem='ATEZ' and ncts_status < 60", "FMZOLL")
Dim top = 200 Dim top = 200
If IsNumeric(MyTextBox6._value) AndAlso CInt(MyTextBox6._value) > 0 Then 'If IsNumeric(MyTextBox6._value) AndAlso CInt(MyTextBox6._value) > 0 Then
top = CInt(MyTextBox6._value) ' top = CInt(MyTextBox6._value)
End If 'End If
updateATEZStatusByMRNTop(top) updateATEZStatusByMRNTop(top)
End Sub End Sub
@@ -5635,7 +5634,7 @@ Public Class frmStartOptions
End Sub End Sub
Private Sub LinkLabel72_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel72.LinkClicked Private Sub PlosePdfRE_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles PlosePdfRE.LinkClicked
If txtPloseJahr.Text.ToString.Length <> 4 Then MsgBox("Bitte Jahr eingeben!") : Exit Sub If txtPloseJahr.Text.ToString.Length <> 4 Then MsgBox("Bitte Jahr eingeben!") : Exit Sub
Dim kdNrPlose As Integer = -1 Dim kdNrPlose As Integer = -1
If txtPLoseKdNr.Text <> "" AndAlso IsNumeric(txtPLoseKdNr.Text) Then kdNrPlose = txtPLoseKdNr.Text If txtPLoseKdNr.Text <> "" AndAlso IsNumeric(txtPLoseKdNr.Text) Then kdNrPlose = txtPLoseKdNr.Text
@@ -5644,7 +5643,7 @@ Public Class frmStartOptions
End Sub End Sub
Private Sub LinkLabel90_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel73.LinkClicked Private Sub IDS_REDetails_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles IDS_REDetails.LinkClicked
Exit Sub Exit Sub
@@ -5783,7 +5782,7 @@ Public Class frmStartOptions
End Sub End Sub
Private Sub LinkLabel74_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel74.LinkClicked Private Sub UTAREPdf_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles UTAREPdf.LinkClicked
Dim utaDate As New Date Dim utaDate As New Date
@@ -5822,7 +5821,7 @@ Public Class frmStartOptions
End Sub End Sub
Private Sub LinkLabel73_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel73.LinkClicked Private Sub KN8_DESTAT_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles KN8_DESTAT.LinkClicked
Me.Cursor = Cursors.WaitCursor Me.Cursor = Cursors.WaitCursor
Try Try
Dim erg = VERAG_PROG_ALLGEMEIN.cTariffKN8_Interface.UPDATE_KN8_DESTAT() Dim erg = VERAG_PROG_ALLGEMEIN.cTariffKN8_Interface.UPDATE_KN8_DESTAT()
@@ -5831,4 +5830,6 @@ Public Class frmStartOptions
Me.Cursor = Cursors.Default Me.Cursor = Cursors.Default
End Sub End Sub
End Class End Class