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 dtREohneDAID As DataTable = SQL.loadDgvBySql(REohneDAID, "FMZOLL")
Dim jahrEnd = jahr.ToString.Substring(2, 2)
If dtREohneDAID.Rows.Count > 0 Then
@@ -229,19 +230,43 @@ Public Class cPLOSE_Inv_Data
If filename <> "" Then
filename2 = filename.Replace("-", "_")
If Regex.IsMatch(filename, "^[A-Za-z]") Then
Dim match As Match = Regex.Match(filename, "\d+")
If match.Success Then
filename3 = filename.Substring(match.Index).Trim
filename4 = filename.Replace("-", "_")
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
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

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))
Me.pnl = New System.Windows.Forms.Panel()
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.buchungenAMBAR = New System.Windows.Forms.Button()
Me.LinkLabel63 = New System.Windows.Forms.LinkLabel()
@@ -161,8 +161,6 @@ Partial Class frmStartOptions
Me.MyComboBox1 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.txtVRGOut_BezugsNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.TabPage3 = New System.Windows.Forms.TabPage()
Me.Label50 = New System.Windows.Forms.Label()
Me.MyTextBox6 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.CheckBox9 = New System.Windows.Forms.CheckBox()
Me.Label49 = New System.Windows.Forms.Label()
Me.Button28 = New System.Windows.Forms.Button()
@@ -189,18 +187,19 @@ Partial Class frmStartOptions
Me.datTranscodeBis = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.datTranscodeVon = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.TabPage4 = New System.Windows.Forms.TabPage()
Me.IDS_REDetails = New System.Windows.Forms.LinkLabel()
Me.Label51 = New System.Windows.Forms.Label()
Me.Label50 = New System.Windows.Forms.Label()
Me.txtPLoseKdNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.LinkLabel74 = New System.Windows.Forms.LinkLabel()
Me.LinkLabel73 = New System.Windows.Forms.LinkLabel()
Me.LinkLabel69 = New System.Windows.Forms.LinkLabel()
Me.LinkLabel72 = New System.Windows.Forms.LinkLabel()
Me.UTAREPdf = New System.Windows.Forms.LinkLabel()
Me.KN8_DESTAT = New System.Windows.Forms.LinkLabel()
Me.Laender_Steuercode = New System.Windows.Forms.LinkLabel()
Me.PlosePdfRE = New System.Windows.Forms.LinkLabel()
Me.lblUTAPDFvollst = New System.Windows.Forms.LinkLabel()
Me.TextBox3 = New System.Windows.Forms.TextBox()
Me.cbxIDSUmbenenen = New System.Windows.Forms.CheckBox()
Me.LinkLabel70 = New System.Windows.Forms.LinkLabel()
Me.LinkLabel67 = New System.Windows.Forms.LinkLabel()
Me.IDS_RE = New System.Windows.Forms.LinkLabel()
Me.IDS_Laendercode = New System.Windows.Forms.LinkLabel()
Me.cbxITalt = New System.Windows.Forms.CheckBox()
Me.cbxPlose = New System.Windows.Forms.CheckBox()
Me.Label46 = New System.Windows.Forms.Label()
@@ -209,9 +208,9 @@ Partial Class frmStartOptions
Me.cbxMSEneu = New System.Windows.Forms.CheckBox()
Me.Button24 = New System.Windows.Forms.Button()
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.LinkLabel64 = New System.Windows.Forms.LinkLabel()
Me.UTA_Laender = New System.Windows.Forms.LinkLabel()
Me.cbxUTAalt = New System.Windows.Forms.CheckBox()
Me.Label42 = New System.Windows.Forms.Label()
Me.cbxIDSneu = New System.Windows.Forms.CheckBox()
@@ -222,38 +221,38 @@ Partial Class frmStartOptions
Me.LinkLabel24 = New System.Windows.Forms.LinkLabel()
Me.Button25 = New System.Windows.Forms.Button()
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.LinkLabel60 = New System.Windows.Forms.LinkLabel()
Me.MSE_Settlements = New System.Windows.Forms.LinkLabel()
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.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.Label39 = New System.Windows.Forms.Label()
Me.Label38 = 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.DateTimePicker2 = 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.LinkLabel55 = New System.Windows.Forms.LinkLabel()
Me.LinkLabel54 = New System.Windows.Forms.LinkLabel()
Me.MSE_RE = New System.Windows.Forms.LinkLabel()
Me.MSE_Transaktions = New System.Windows.Forms.LinkLabel()
Me.TextBox2 = New System.Windows.Forms.TextBox()
Me.TextBox1 = New System.Windows.Forms.TextBox()
Me.cbxDateienlöschenUTA = 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.Label35 = New System.Windows.Forms.Label()
Me.Label34 = New System.Windows.Forms.Label()
Me.Label33 = New System.Windows.Forms.Label()
Me.Label32 = 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.Label29 = 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.Button21 = New System.Windows.Forms.Button()
Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.LinkLabel73 = New System.Windows.Forms.LinkLabel()
Me.pnl.SuspendLayout()
CType(Me.PictureBox24, 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.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
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.buchungenAMBAR)
Me.pnl.Controls.Add(Me.LinkLabel63)
@@ -443,16 +441,16 @@ Partial Class frmStartOptions
Me.txtMRNPrefix.TabIndex = 138
Me.txtMRNPrefix.Text = "24DE"
'
'LinkLabel66
'ATCNRinRE
'
Me.LinkLabel66.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.LinkLabel66.Location = New System.Drawing.Point(842, 51)
Me.LinkLabel66.Name = "LinkLabel66"
Me.LinkLabel66.Size = New System.Drawing.Size(188, 13)
Me.LinkLabel66.TabIndex = 137
Me.LinkLabel66.TabStop = True
Me.LinkLabel66.Text = "ATCNr in Rechnungen aktu. für MRN:"
Me.ATCNRinRE.AutoSize = True
Me.ATCNRinRE.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.ATCNRinRE.Location = New System.Drawing.Point(842, 51)
Me.ATCNRinRE.Name = "ATCNRinRE"
Me.ATCNRinRE.Size = New System.Drawing.Size(188, 13)
Me.ATCNRinRE.TabIndex = 137
Me.ATCNRinRE.TabStop = True
Me.ATCNRinRE.Text = "ATCNr in Rechnungen aktu. für MRN:"
'
'PictureBox24
'
@@ -546,7 +544,7 @@ Partial Class frmStartOptions
'
Me.PictureBox22.BackgroundImage = CType(resources.GetObject("PictureBox22.BackgroundImage"), System.Drawing.Image)
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.Size = New System.Drawing.Size(18, 18)
Me.PictureBox22.TabIndex = 84
@@ -558,7 +556,7 @@ Partial Class frmStartOptions
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.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.Size = New System.Drawing.Size(105, 24)
Me.Button22.TabIndex = 78
@@ -1069,7 +1067,6 @@ Partial Class frmStartOptions
'
'TabPage1
'
Me.TabPage1.Controls.Add(Me.LinkLabel73)
Me.TabPage1.Controls.Add(Me.LinkLabel68)
Me.TabPage1.Controls.Add(Me.PictureBox26)
Me.TabPage1.Controls.Add(Me.cbxGestellungspeichern)
@@ -2141,8 +2138,6 @@ Partial Class frmStartOptions
'
'TabPage3
'
Me.TabPage3.Controls.Add(Me.Label50)
Me.TabPage3.Controls.Add(Me.MyTextBox6)
Me.TabPage3.Controls.Add(Me.CheckBox9)
Me.TabPage3.Controls.Add(Me.Label49)
Me.TabPage3.Controls.Add(Me.Button28)
@@ -2175,40 +2170,6 @@ Partial Class frmStartOptions
Me.TabPage3.Text = "Partner-Systeme"
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
'
Me.CheckBox9.AutoSize = True
@@ -2519,18 +2480,19 @@ Partial Class frmStartOptions
'
'TabPage4
'
Me.TabPage4.Controls.Add(Me.IDS_REDetails)
Me.TabPage4.Controls.Add(Me.Label51)
Me.TabPage4.Controls.Add(Me.Label50)
Me.TabPage4.Controls.Add(Me.txtPLoseKdNr)
Me.TabPage4.Controls.Add(Me.LinkLabel74)
Me.TabPage4.Controls.Add(Me.LinkLabel73)
Me.TabPage4.Controls.Add(Me.LinkLabel69)
Me.TabPage4.Controls.Add(Me.LinkLabel72)
Me.TabPage4.Controls.Add(Me.UTAREPdf)
Me.TabPage4.Controls.Add(Me.KN8_DESTAT)
Me.TabPage4.Controls.Add(Me.Laender_Steuercode)
Me.TabPage4.Controls.Add(Me.PlosePdfRE)
Me.TabPage4.Controls.Add(Me.lblUTAPDFvollst)
Me.TabPage4.Controls.Add(Me.TextBox3)
Me.TabPage4.Controls.Add(Me.cbxIDSUmbenenen)
Me.TabPage4.Controls.Add(Me.LinkLabel70)
Me.TabPage4.Controls.Add(Me.LinkLabel67)
Me.TabPage4.Controls.Add(Me.IDS_RE)
Me.TabPage4.Controls.Add(Me.IDS_Laendercode)
Me.TabPage4.Controls.Add(Me.cbxITalt)
Me.TabPage4.Controls.Add(Me.cbxPlose)
Me.TabPage4.Controls.Add(Me.Label46)
@@ -2539,9 +2501,9 @@ Partial Class frmStartOptions
Me.TabPage4.Controls.Add(Me.cbxMSEneu)
Me.TabPage4.Controls.Add(Me.Button24)
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.LinkLabel64)
Me.TabPage4.Controls.Add(Me.UTA_Laender)
Me.TabPage4.Controls.Add(Me.cbxUTAalt)
Me.TabPage4.Controls.Add(Me.Label42)
Me.TabPage4.Controls.Add(Me.cbxIDSneu)
@@ -2552,38 +2514,38 @@ Partial Class frmStartOptions
Me.TabPage4.Controls.Add(Me.LinkLabel24)
Me.TabPage4.Controls.Add(Me.Button25)
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.LinkLabel60)
Me.TabPage4.Controls.Add(Me.MSE_Settlements)
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.PictureBox25)
Me.TabPage4.Controls.Add(Me.LinkLabel59)
Me.TabPage4.Controls.Add(Me.MSETransID)
Me.TabPage4.Controls.Add(Me.Button23)
Me.TabPage4.Controls.Add(Me.Label39)
Me.TabPage4.Controls.Add(Me.Label38)
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.DateTimePicker2)
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.LinkLabel55)
Me.TabPage4.Controls.Add(Me.LinkLabel54)
Me.TabPage4.Controls.Add(Me.MSE_RE)
Me.TabPage4.Controls.Add(Me.MSE_Transaktions)
Me.TabPage4.Controls.Add(Me.TextBox2)
Me.TabPage4.Controls.Add(Me.TextBox1)
Me.TabPage4.Controls.Add(Me.cbxDateienlöschenUTA)
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.Label35)
Me.TabPage4.Controls.Add(Me.Label34)
Me.TabPage4.Controls.Add(Me.Label33)
Me.TabPage4.Controls.Add(Me.Label32)
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.Label29)
Me.TabPage4.Controls.Add(Me.Label28)
@@ -2621,6 +2583,17 @@ Partial Class frmStartOptions
Me.TabPage4.Text = "VERAG 360"
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
'
Me.Label51.AutoSize = True
@@ -2667,73 +2640,47 @@ Partial Class frmStartOptions
Me.txtPLoseKdNr.TabIndex = 162
Me.txtPLoseKdNr.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
'
'LinkLabel74
'UTAREPdf
'
Me.LinkLabel74.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.LinkLabel74.Location = New System.Drawing.Point(609, 441)
Me.LinkLabel74.Name = "LinkLabel74"
Me.LinkLabel74.Size = New System.Drawing.Size(119, 13)
Me.LinkLabel74.TabIndex = 161
Me.LinkLabel74.TabStop = True
Me.LinkLabel74.Text = "PDF mit RE verknüpfen"
Me.UTAREPdf.AutoSize = True
Me.UTAREPdf.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.UTAREPdf.Location = New System.Drawing.Point(609, 441)
Me.UTAREPdf.Name = "UTAREPdf"
Me.UTAREPdf.Size = New System.Drawing.Size(119, 13)
Me.UTAREPdf.TabIndex = 161
Me.UTAREPdf.TabStop = True
Me.UTAREPdf.Text = "PDF mit RE verknüpfen"
'
'LinkLabel73
'KN8_DESTAT
'
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, 387)
Me.LinkLabel73.Name = "LinkLabel73"
Me.LinkLabel73.Size = New System.Drawing.Size(176, 13)
Me.LinkLabel73.TabIndex = 160
Me.LinkLabel73.TabStop = True
Me.LinkLabel73.Text = "Rechnungsdetaildaten aktualisieren"
Me.KN8_DESTAT.AutoSize = True
Me.KN8_DESTAT.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.KN8_DESTAT.Location = New System.Drawing.Point(13, 444)
Me.KN8_DESTAT.Name = "KN8_DESTAT"
Me.KN8_DESTAT.Size = New System.Drawing.Size(148, 13)
Me.KN8_DESTAT.TabIndex = 152
Me.KN8_DESTAT.TabStop = True
Me.KN8_DESTAT.Text = "KN8 EZT DE Stat.Bundesamt"
'
'LinkLabel69
'Laender_Steuercode
'
Me.LinkLabel69.Location = New System.Drawing.Point(722, 211)
Me.LinkLabel69.Name = "LinkLabel69"
Me.LinkLabel69.Size = New System.Drawing.Size(132, 23)
Me.LinkLabel69.TabIndex = 0
Me.LinkLabel69.TabStop = True
Me.LinkLabel69.Text = "Land in Steuernr setzen"
Me.Laender_Steuercode.Location = New System.Drawing.Point(722, 211)
Me.Laender_Steuercode.Name = "Laender_Steuercode"
Me.Laender_Steuercode.Size = New System.Drawing.Size(132, 23)
Me.Laender_Steuercode.TabIndex = 0
Me.Laender_Steuercode.TabStop = True
Me.Laender_Steuercode.Text = "Land in Steuernr setzen"
'
'LinkLabel72
'PlosePdfRE
'
Me.LinkLabel72.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.LinkLabel72.Location = New System.Drawing.Point(728, 166)
Me.LinkLabel72.Name = "LinkLabel72"
Me.LinkLabel72.Size = New System.Drawing.Size(119, 13)
Me.LinkLabel72.TabIndex = 159
Me.LinkLabel72.TabStop = True
Me.LinkLabel72.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
Me.PlosePdfRE.AutoSize = True
Me.PlosePdfRE.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.PlosePdfRE.Location = New System.Drawing.Point(728, 166)
Me.PlosePdfRE.Name = "PlosePdfRE"
Me.PlosePdfRE.Size = New System.Drawing.Size(119, 13)
Me.PlosePdfRE.TabIndex = 159
Me.PlosePdfRE.TabStop = True
Me.PlosePdfRE.Text = "PDF mit RE verknüpfen"
'
'lblUTAPDFvollst
'
@@ -2746,32 +2693,6 @@ Partial Class frmStartOptions
Me.lblUTAPDFvollst.TabStop = True
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
'
Me.TextBox3.BackColor = System.Drawing.SystemColors.Menu
@@ -2794,53 +2715,27 @@ Partial Class frmStartOptions
Me.cbxIDSUmbenenen.TabIndex = 153
Me.cbxIDSUmbenenen.UseVisualStyleBackColor = True
'
'txtIDSYear
'IDS_RE
'
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(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
Me.IDS_RE.AutoSize = 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.IDS_RE.Location = New System.Drawing.Point(18, 369)
Me.IDS_RE.Name = "IDS_RE"
Me.IDS_RE.Size = New System.Drawing.Size(151, 13)
Me.IDS_RE.TabIndex = 152
Me.IDS_RE.TabStop = True
Me.IDS_RE.Text = "Rechnungsdaten aktualisieren"
'
'LinkLabel70
'IDS_Laendercode
'
Me.LinkLabel70.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.LinkLabel70.Location = New System.Drawing.Point(18, 369)
Me.LinkLabel70.Name = "LinkLabel70"
Me.LinkLabel70.Size = New System.Drawing.Size(151, 13)
Me.LinkLabel70.TabIndex = 152
Me.LinkLabel70.TabStop = True
Me.LinkLabel70.Text = "Rechnungsdaten aktualisieren"
'
'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"
Me.IDS_Laendercode.AutoSize = True
Me.IDS_Laendercode.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.IDS_Laendercode.Location = New System.Drawing.Point(18, 348)
Me.IDS_Laendercode.Name = "IDS_Laendercode"
Me.IDS_Laendercode.Size = New System.Drawing.Size(135, 13)
Me.IDS_Laendercode.TabIndex = 151
Me.IDS_Laendercode.TabStop = True
Me.IDS_Laendercode.Text = "Ländercode ISO2 einfügen"
'
'cbxITalt
'
@@ -2937,16 +2832,16 @@ Partial Class frmStartOptions
Me.cbxMSEalt.Text = "MSE"
Me.cbxMSEalt.UseVisualStyleBackColor = True
'
'LinkLabel65
'IDS_import
'
Me.LinkLabel65.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.LinkLabel65.Location = New System.Drawing.Point(21, 325)
Me.LinkLabel65.Name = "LinkLabel65"
Me.LinkLabel65.Size = New System.Drawing.Size(115, 13)
Me.LinkLabel65.TabIndex = 132
Me.LinkLabel65.TabStop = True
Me.LinkLabel65.Text = "CSV + PDF importieren"
Me.IDS_import.AutoSize = True
Me.IDS_import.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.IDS_import.Location = New System.Drawing.Point(21, 325)
Me.IDS_import.Name = "IDS_import"
Me.IDS_import.Size = New System.Drawing.Size(115, 13)
Me.IDS_import.TabIndex = 132
Me.IDS_import.TabStop = True
Me.IDS_import.Text = "CSV + PDF importieren"
'
'cbxUTANeu
'
@@ -2961,16 +2856,16 @@ Partial Class frmStartOptions
Me.cbxUTANeu.Text = "UTA"
Me.cbxUTANeu.UseVisualStyleBackColor = True
'
'LinkLabel64
'UTA_Laender
'
Me.LinkLabel64.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.LinkLabel64.Location = New System.Drawing.Point(534, 392)
Me.LinkLabel64.Name = "LinkLabel64"
Me.LinkLabel64.Size = New System.Drawing.Size(135, 13)
Me.LinkLabel64.TabIndex = 131
Me.LinkLabel64.TabStop = True
Me.LinkLabel64.Text = "Ländercode ISO2 einfügen"
Me.UTA_Laender.AutoSize = True
Me.UTA_Laender.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.UTA_Laender.Location = New System.Drawing.Point(534, 392)
Me.UTA_Laender.Name = "UTA_Laender"
Me.UTA_Laender.Size = New System.Drawing.Size(135, 13)
Me.UTA_Laender.TabIndex = 131
Me.UTA_Laender.TabStop = True
Me.UTA_Laender.Text = "Ländercode ISO2 einfügen"
'
'cbxUTAalt
'
@@ -3090,16 +2985,16 @@ Partial Class frmStartOptions
Me.cbxOnlyBilledTransactions.Text = "nur verrechnete Transaktionen"
Me.cbxOnlyBilledTransactions.UseVisualStyleBackColor = True
'
'LinkLabel62
'MSE_not_billed_Trans
'
Me.LinkLabel62.AutoSize = True
Me.LinkLabel62.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.LinkLabel62.Location = New System.Drawing.Point(265, 366)
Me.LinkLabel62.Name = "LinkLabel62"
Me.LinkLabel62.Size = New System.Drawing.Size(226, 13)
Me.LinkLabel62.TabIndex = 120
Me.LinkLabel62.TabStop = True
Me.LinkLabel62.Text = "nicht abgerechete Transaktionen aktualisieren"
Me.MSE_not_billed_Trans.AutoSize = True
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.MSE_not_billed_Trans.Location = New System.Drawing.Point(265, 366)
Me.MSE_not_billed_Trans.Name = "MSE_not_billed_Trans"
Me.MSE_not_billed_Trans.Size = New System.Drawing.Size(226, 13)
Me.MSE_not_billed_Trans.TabIndex = 120
Me.MSE_not_billed_Trans.TabStop = True
Me.MSE_not_billed_Trans.Text = "nicht abgerechete Transaktionen aktualisieren"
'
'CheckBox8
'
@@ -3114,16 +3009,16 @@ Partial Class frmStartOptions
Me.CheckBox8.Text = "Testsystem"
Me.CheckBox8.UseVisualStyleBackColor = True
'
'LinkLabel60
'MSE_Settlements
'
Me.LinkLabel60.AutoSize = True
Me.LinkLabel60.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.LinkLabel60.Location = New System.Drawing.Point(269, 119)
Me.LinkLabel60.Name = "LinkLabel60"
Me.LinkLabel60.Size = New System.Drawing.Size(144, 13)
Me.LinkLabel60.TabIndex = 119
Me.LinkLabel60.TabStop = True
Me.LinkLabel60.Text = "Neueste Settlements abrufen"
Me.MSE_Settlements.AutoSize = True
Me.MSE_Settlements.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.MSE_Settlements.Location = New System.Drawing.Point(269, 119)
Me.MSE_Settlements.Name = "MSE_Settlements"
Me.MSE_Settlements.Size = New System.Drawing.Size(144, 13)
Me.MSE_Settlements.TabIndex = 119
Me.MSE_Settlements.TabStop = True
Me.MSE_Settlements.Text = "Neueste Settlements abrufen"
'
'Label43
'
@@ -3135,16 +3030,16 @@ Partial Class frmStartOptions
Me.Label43.TabIndex = 132
Me.Label43.Text = "KdNr"
'
'LinkLabel61
'MSE_missingTrans
'
Me.LinkLabel61.AutoSize = True
Me.LinkLabel61.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.LinkLabel61.Location = New System.Drawing.Point(264, 339)
Me.LinkLabel61.Name = "LinkLabel61"
Me.LinkLabel61.Size = New System.Drawing.Size(158, 13)
Me.LinkLabel61.TabIndex = 118
Me.LinkLabel61.TabStop = True
Me.LinkLabel61.Text = "fehlende Transaktionen abrufen"
Me.MSE_missingTrans.AutoSize = True
Me.MSE_missingTrans.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.MSE_missingTrans.Location = New System.Drawing.Point(264, 339)
Me.MSE_missingTrans.Name = "MSE_missingTrans"
Me.MSE_missingTrans.Size = New System.Drawing.Size(158, 13)
Me.MSE_missingTrans.TabIndex = 118
Me.MSE_missingTrans.TabStop = True
Me.MSE_missingTrans.Text = "fehlende Transaktionen abrufen"
'
'Label40
'
@@ -3167,16 +3062,16 @@ Partial Class frmStartOptions
Me.PictureBox25.TabStop = False
Me.PictureBox25.Visible = False
'
'LinkLabel59
'MSETransID
'
Me.LinkLabel59.AutoSize = True
Me.LinkLabel59.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.LinkLabel59.Location = New System.Drawing.Point(277, 243)
Me.LinkLabel59.Name = "LinkLabel59"
Me.LinkLabel59.Size = New System.Drawing.Size(149, 13)
Me.LinkLabel59.TabIndex = 114
Me.LinkLabel59.TabStop = True
Me.LinkLabel59.Text = "Transaktionen von ID abrufen"
Me.MSETransID.AutoSize = True
Me.MSETransID.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.MSETransID.Location = New System.Drawing.Point(277, 243)
Me.MSETransID.Name = "MSETransID"
Me.MSETransID.Size = New System.Drawing.Size(149, 13)
Me.MSETransID.TabIndex = 114
Me.MSETransID.TabStop = True
Me.MSETransID.Text = "Transaktionen von ID abrufen"
'
'Button23
'
@@ -3220,16 +3115,16 @@ Partial Class frmStartOptions
Me.Label37.TabIndex = 111
Me.Label37.Text = "von"
'
'LinkLabel58
'MSE_Kunden
'
Me.LinkLabel58.AutoSize = True
Me.LinkLabel58.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.LinkLabel58.Location = New System.Drawing.Point(270, 144)
Me.LinkLabel58.Name = "LinkLabel58"
Me.LinkLabel58.Size = New System.Drawing.Size(126, 13)
Me.LinkLabel58.TabIndex = 110
Me.LinkLabel58.TabStop = True
Me.LinkLabel58.Text = "Neueste Kunden abrufen"
Me.MSE_Kunden.AutoSize = True
Me.MSE_Kunden.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.MSE_Kunden.Location = New System.Drawing.Point(270, 144)
Me.MSE_Kunden.Name = "MSE_Kunden"
Me.MSE_Kunden.Size = New System.Drawing.Size(126, 13)
Me.MSE_Kunden.TabIndex = 110
Me.MSE_Kunden.TabStop = True
Me.MSE_Kunden.Text = "Neueste Kunden abrufen"
'
'LinkLabel57
'
@@ -3258,16 +3153,16 @@ Partial Class frmStartOptions
Me.DateTimePicker1.Size = New System.Drawing.Size(85, 20)
Me.DateTimePicker1.TabIndex = 106
'
'LinkLabel56
'MSETransakt
'
Me.LinkLabel56.AutoSize = True
Me.LinkLabel56.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.LinkLabel56.Location = New System.Drawing.Point(263, 444)
Me.LinkLabel56.Name = "LinkLabel56"
Me.LinkLabel56.Size = New System.Drawing.Size(114, 13)
Me.LinkLabel56.TabIndex = 105
Me.LinkLabel56.TabStop = True
Me.LinkLabel56.Text = "Transaktionen abrufen"
Me.MSETransakt.AutoSize = True
Me.MSETransakt.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.MSETransakt.Location = New System.Drawing.Point(263, 444)
Me.MSETransakt.Name = "MSETransakt"
Me.MSETransakt.Size = New System.Drawing.Size(114, 13)
Me.MSETransakt.TabIndex = 105
Me.MSETransakt.TabStop = True
Me.MSETransakt.Text = "Transaktionen abrufen"
'
'datVon
'
@@ -3277,27 +3172,27 @@ Partial Class frmStartOptions
Me.datVon.Size = New System.Drawing.Size(85, 20)
Me.datVon.TabIndex = 104
'
'LinkLabel55
'MSE_RE
'
Me.LinkLabel55.AutoSize = True
Me.LinkLabel55.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.LinkLabel55.Location = New System.Drawing.Point(265, 312)
Me.LinkLabel55.Name = "LinkLabel55"
Me.LinkLabel55.Size = New System.Drawing.Size(108, 13)
Me.LinkLabel55.TabIndex = 103
Me.LinkLabel55.TabStop = True
Me.LinkLabel55.Text = "Rechnungen abrufen"
Me.MSE_RE.AutoSize = True
Me.MSE_RE.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.MSE_RE.Location = New System.Drawing.Point(265, 312)
Me.MSE_RE.Name = "MSE_RE"
Me.MSE_RE.Size = New System.Drawing.Size(108, 13)
Me.MSE_RE.TabIndex = 103
Me.MSE_RE.TabStop = True
Me.MSE_RE.Text = "Rechnungen abrufen"
'
'LinkLabel54
'MSE_Transaktions
'
Me.LinkLabel54.AutoSize = True
Me.LinkLabel54.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.LinkLabel54.Location = New System.Drawing.Point(270, 94)
Me.LinkLabel54.Name = "LinkLabel54"
Me.LinkLabel54.Size = New System.Drawing.Size(157, 13)
Me.LinkLabel54.TabIndex = 102
Me.LinkLabel54.TabStop = True
Me.LinkLabel54.Text = "Neueste Transaktionen abrufen"
Me.MSE_Transaktions.AutoSize = True
Me.MSE_Transaktions.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.MSE_Transaktions.Location = New System.Drawing.Point(270, 94)
Me.MSE_Transaktions.Name = "MSE_Transaktions"
Me.MSE_Transaktions.Size = New System.Drawing.Size(157, 13)
Me.MSE_Transaktions.TabIndex = 102
Me.MSE_Transaktions.TabStop = True
Me.MSE_Transaktions.Text = "Neueste Transaktionen abrufen"
'
'TextBox2
'
@@ -3341,16 +3236,16 @@ Partial Class frmStartOptions
Me.cbxDateienlöschenRMC.TabIndex = 98
Me.cbxDateienlöschenRMC.UseVisualStyleBackColor = True
'
'LinkLabel53
'UTA_imports
'
Me.LinkLabel53.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.LinkLabel53.Location = New System.Drawing.Point(534, 371)
Me.LinkLabel53.Name = "LinkLabel53"
Me.LinkLabel53.Size = New System.Drawing.Size(119, 13)
Me.LinkLabel53.TabIndex = 97
Me.LinkLabel53.TabStop = True
Me.LinkLabel53.Text = ".UTA + PDF importieren"
Me.UTA_imports.AutoSize = True
Me.UTA_imports.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.UTA_imports.Location = New System.Drawing.Point(534, 371)
Me.UTA_imports.Name = "UTA_imports"
Me.UTA_imports.Size = New System.Drawing.Size(119, 13)
Me.UTA_imports.TabIndex = 97
Me.UTA_imports.TabStop = True
Me.UTA_imports.Text = ".UTA + PDF importieren"
'
'Label36
'
@@ -3415,16 +3310,16 @@ Partial Class frmStartOptions
Me.Label31.TabIndex = 91
Me.Label31.Text = "UTA"
'
'LinkLabel52
'RMC_import
'
Me.LinkLabel52.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.LinkLabel52.Location = New System.Drawing.Point(530, 139)
Me.LinkLabel52.Name = "LinkLabel52"
Me.LinkLabel52.Size = New System.Drawing.Size(115, 13)
Me.LinkLabel52.TabIndex = 84
Me.LinkLabel52.TabStop = True
Me.LinkLabel52.Text = "CSV + PDF importieren"
Me.RMC_import.AutoSize = True
Me.RMC_import.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.RMC_import.Location = New System.Drawing.Point(530, 139)
Me.RMC_import.Name = "RMC_import"
Me.RMC_import.Size = New System.Drawing.Size(115, 13)
Me.RMC_import.TabIndex = 84
Me.RMC_import.TabStop = True
Me.RMC_import.Text = "CSV + PDF importieren"
'
'Label30
'
@@ -3638,7 +3533,7 @@ Partial Class frmStartOptions
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(725, 111)
Me.txtPloseJahr.Location = New System.Drawing.Point(797, 120)
Me.txtPloseJahr.MaxLength = 10
Me.txtPloseJahr.MaxLineLength = -1
Me.txtPloseJahr.MaxLines_Warning = ""
@@ -3664,7 +3559,7 @@ Partial Class frmStartOptions
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, 448)
Me.txtUTADate.Location = New System.Drawing.Point(538, 416)
Me.txtUTADate.MaxLength = 10
Me.txtUTADate.MaxLineLength = -1
Me.txtUTADate.MaxLines_Warning = ""
@@ -3690,7 +3585,7 @@ Partial Class frmStartOptions
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, 387)
Me.txtIDSYear.Location = New System.Drawing.Point(86, 418)
Me.txtIDSYear.MaxLength = 10
Me.txtIDSYear.MaxLineLength = -1
Me.txtIDSYear.MaxLines_Warning = ""
@@ -4214,17 +4109,6 @@ Partial Class frmStartOptions
Me.DataGridViewTextBoxColumn1.MinimumWidth = 8
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
'
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 LinkLabel51 As LinkLabel
Friend WithEvents buchungenAMBAR As Button
Friend WithEvents LinkLabel52 As LinkLabel
Friend WithEvents RMC_import As LinkLabel
Friend WithEvents Label30 As Label
Friend WithEvents Label29 As Label
Friend WithEvents cbxRMC As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents Label28 As Label
Friend WithEvents LinkLabel53 As LinkLabel
Friend WithEvents UTA_imports As LinkLabel
Friend WithEvents Label36 As Label
Friend WithEvents Label35 As Label
Friend WithEvents Label34 As Label
@@ -4482,23 +4366,23 @@ Partial Class frmStartOptions
Friend WithEvents cbxDateienlöschenUTA As CheckBox
Friend WithEvents TextBox2 As TextBox
Friend WithEvents TextBox1 As TextBox
Friend WithEvents LinkLabel54 As LinkLabel
Friend WithEvents LinkLabel55 As LinkLabel
Friend WithEvents MSE_Transaktions As LinkLabel
Friend WithEvents MSE_RE As LinkLabel
Friend WithEvents datVon As DateTimePicker
Friend WithEvents LinkLabel56 As LinkLabel
Friend WithEvents MSETransakt As LinkLabel
Friend WithEvents DateTimePicker2 As DateTimePicker
Friend WithEvents DateTimePicker1 As DateTimePicker
Friend WithEvents LinkLabel57 As LinkLabel
Friend WithEvents LinkLabel58 As LinkLabel
Friend WithEvents MSE_Kunden As LinkLabel
Friend WithEvents Label40 As Label
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 Label38 As Label
Friend WithEvents Label37 As Label
Friend WithEvents LinkLabel61 As LinkLabel
Friend WithEvents LinkLabel60 As LinkLabel
Friend WithEvents LinkLabel62 As LinkLabel
Friend WithEvents MSE_missingTrans As LinkLabel
Friend WithEvents MSE_Settlements As LinkLabel
Friend WithEvents MSE_not_billed_Trans As LinkLabel
Friend WithEvents cbxOnlyBilledTransactions As CheckBox
Friend WithEvents cbxMSEBatchNr As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents Label5 As Label
@@ -4514,15 +4398,15 @@ Partial Class frmStartOptions
Friend WithEvents Button23 As Button
Friend WithEvents Label42 As Label
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 Label43 As Label
Friend WithEvents txtKdNr As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents CheckBox8 As CheckBox
Friend WithEvents Button24 As Button
Friend WithEvents Button25 As Button
Friend WithEvents LinkLabel65 As LinkLabel
Friend WithEvents LinkLabel66 As LinkLabel
Friend WithEvents IDS_import As LinkLabel
Friend WithEvents ATCNRinRE As LinkLabel
Friend WithEvents txtMRNPrefix As TextBox
Friend WithEvents txtUTAYear As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents cbxGestellungspeichern As CheckBox
@@ -4537,11 +4421,11 @@ Partial Class frmStartOptions
Friend WithEvents Label45 As Label
Friend WithEvents cbxITalt 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 PictureBox26 As PictureBox
Friend WithEvents LinkLabel69 As LinkLabel
Friend WithEvents LinkLabel70 As LinkLabel
Friend WithEvents Laender_Steuercode As LinkLabel
Friend WithEvents IDS_RE As LinkLabel
Friend WithEvents Label48 As Label
Friend WithEvents datTranscodeBis 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 Label49 As Label
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 LinkLabel73 As LinkLabel
Friend WithEvents LinkLabel74 As LinkLabel
Friend WithEvents KN8_DESTAT As LinkLabel
Friend WithEvents UTAREPdf As LinkLabel
Friend WithEvents txtPLoseKdNr As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label51 As Label
Friend WithEvents Label50 As Label
Friend WithEvents IDS_REDetails As LinkLabel
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.Text
Imports System.Xml
Imports io.konik.zugferd
Imports MDM_Worker
Imports Renci.SshNet
Imports VERAG_PROG_ALLGEMEIN
@@ -4954,7 +4953,7 @@ Public Class frmStartOptions
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
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = cbxTestsystem.Checked
@@ -4964,7 +4963,7 @@ Public Class frmStartOptions
Me.Visible = True
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
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = cbxTestsystem.Checked
Dim f As New frmNachrichtenVerarbeitung_MDM_divers("UTA", False, False, cbxDateienlöschenUTA.Checked)
@@ -4974,7 +4973,7 @@ Public Class frmStartOptions
Me.Visible = True
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
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = cbxTestsystem.Checked
Dim mse As New cMSEAPI("MSE")
@@ -5020,7 +5019,7 @@ Public Class frmStartOptions
Me.Visible = True
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
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = cbxTestsystem.Checked
@@ -5078,7 +5077,7 @@ Public Class frmStartOptions
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
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = cbxTestsystem.Checked
Dim mse As New cMSEAPI("MSE")
@@ -5187,7 +5186,7 @@ Public Class frmStartOptions
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
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = cbxTestsystem.Checked
Dim mse As New cMSEAPI("MSE")
@@ -5215,10 +5214,10 @@ Public Class frmStartOptions
Me.Visible = True
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
MsgBox("ID muss 10stellige Nr sein!")
Me.Visible = True
@@ -5250,7 +5249,7 @@ Public Class frmStartOptions
Dim dtTransactionID = New DataTable
If sender Is LinkLabel59 Then
If sender Is MSETransID Then
dtTransactionID.Columns.Add("transaction_id", GetType(String))
dtTransactionID.Columns.Add("found", GetType(Boolean))
dtTransactionID.Columns.Add("batch_seq_nr", GetType(Integer))
@@ -5260,7 +5259,7 @@ Public Class frmStartOptions
R("batch_seq_nr") = 0
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")
If dtTransactionID.Rows.Count = 0 Then
@@ -5274,7 +5273,7 @@ Public Class frmStartOptions
Exit Sub
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
@@ -5329,7 +5328,7 @@ Public Class frmStartOptions
Me.Visible = True
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
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = cbxTestsystem.Checked
@@ -5439,14 +5438,14 @@ Public Class frmStartOptions
showPic(ok, PictureBox25)
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 = ""
Select Case sender.Name
Case "LinkLabel64" : 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 "LinkLabel69" : iso2Laneder = "select distinct (LandNr) FROM [VERAG].[dbo].[tblSteuernummern] where LandKZ is null"
Case "UTA_Laender" : iso2Laneder = "select distinct (Lieferland) FROM [VERAG].[dbo].[tblUTAImportNew] 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 "Laender_Steuercode" : iso2Laneder = "select distinct (LandNr) FROM [VERAG].[dbo].[tblSteuernummern] where LandKZ is null"
End Select
@@ -5456,9 +5455,9 @@ Public Class frmStartOptions
If dtiso2Laneder.Rows.Count > 0 Then
For Each r As DataRow In dtiso2Laneder.Rows
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 "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 "LinkLabel69" : SQL.doSQL("Update [VERAG].[dbo].[tblSteuernummern] set LandKZ = '" & VERAG_PROG_ALLGEMEIN.cProgramFunctions.getISO2LandFromLandNr(r.Item("LandNr")) & "' where LandNr = '" & r.Item("LandNr") & "'", "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 "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 "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
@@ -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
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = cbxTestsystem.Checked
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
If txtMRNPrefix.Text = "" Then Exit Sub
@@ -5535,7 +5534,7 @@ Public Class frmStartOptions
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"
@@ -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 top = 200
If IsNumeric(MyTextBox6._value) AndAlso CInt(MyTextBox6._value) > 0 Then
top = CInt(MyTextBox6._value)
End If
'If IsNumeric(MyTextBox6._value) AndAlso CInt(MyTextBox6._value) > 0 Then
' top = CInt(MyTextBox6._value)
'End If
updateATEZStatusByMRNTop(top)
End Sub
@@ -5635,7 +5634,7 @@ Public Class frmStartOptions
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
Dim kdNrPlose As Integer = -1
If txtPLoseKdNr.Text <> "" AndAlso IsNumeric(txtPLoseKdNr.Text) Then kdNrPlose = txtPLoseKdNr.Text
@@ -5644,7 +5643,7 @@ Public Class frmStartOptions
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
@@ -5783,7 +5782,7 @@ Public Class frmStartOptions
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
@@ -5822,7 +5821,7 @@ Public Class frmStartOptions
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
Try
Dim erg = VERAG_PROG_ALLGEMEIN.cTariffKN8_Interface.UPDATE_KN8_DESTAT()
@@ -5831,4 +5830,6 @@ Public Class frmStartOptions
Me.Cursor = Cursors.Default
End Sub
End Class