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

MDM

Browse Source
This commit is contained in:
d.breimaier
2024-11-22 14:14:23 +01:00
parent 83c60e4a2f
commit eac8337ede
3 changed files with 294 additions and 259 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
initATLASAufschubkonten/frmNachrichtenVerarbeitung_MDM_divers.vb
View File

@@ -24,6 +24,8 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers
Dim programName As String Dim programName As String
Dim Dateiname = "" Dim Dateiname = ""
Public year As Integer Public year As Integer
Public UtaTestkunden As Boolean = False
Sub New(programName As String) Sub New(programName As String)
@@ -715,7 +717,7 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers
Dim objFileRead As StreamReader = New StreamReader(d) Dim objFileRead As StreamReader = New StreamReader(d)
If uta.readAndSaveUTA(objFileRead, fi, cnt) Then If uta.readAndSaveUTA(objFileRead, fi, cnt, UtaTestkunden) Then
addDGVEinarbeitung(fi.Name, "OK") addDGVEinarbeitung(fi.Name, "OK")
Else Else
addDGVEinarbeitung(fi.Name, "Fehler") addDGVEinarbeitung(fi.Name, "Fehler")

516
initATLASAufschubkonten/frmStartOptions.Designer.vb generated
View File

@@ -27,13 +27,6 @@ Partial Class 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.LinkLabel66 = New System.Windows.Forms.LinkLabel()
Me.Button25 = New System.Windows.Forms.Button()
Me.Button24 = New System.Windows.Forms.Button()
Me.CheckBox8 = New System.Windows.Forms.CheckBox()
Me.Label43 = New System.Windows.Forms.Label()
Me.txtKdNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.PictureBox25 = New System.Windows.Forms.PictureBox()
Me.Button23 = New System.Windows.Forms.Button()
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()
@@ -180,20 +173,38 @@ Partial Class frmStartOptions
Me.LinkLabel30 = New System.Windows.Forms.LinkLabel() Me.LinkLabel30 = New System.Windows.Forms.LinkLabel()
Me.Label11 = New System.Windows.Forms.Label() Me.Label11 = New System.Windows.Forms.Label()
Me.TabPage4 = New System.Windows.Forms.TabPage() Me.TabPage4 = New System.Windows.Forms.TabPage()
Me.cbxITalt = New System.Windows.Forms.CheckBox()
Me.cbxPlose = New System.Windows.Forms.CheckBox()
Me.Label46 = New System.Windows.Forms.Label()
Me.Label45 = New System.Windows.Forms.Label()
Me.Label44 = New System.Windows.Forms.Label()
Me.cbxMSEneu = New System.Windows.Forms.CheckBox()
Me.Button24 = New System.Windows.Forms.Button()
Me.txtUTAYear = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtUTAYear = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.cbxMSEalt = New System.Windows.Forms.CheckBox()
Me.LinkLabel65 = New System.Windows.Forms.LinkLabel() Me.LinkLabel65 = New System.Windows.Forms.LinkLabel()
Me.cbxUTANeu = New System.Windows.Forms.CheckBox()
Me.LinkLabel64 = New System.Windows.Forms.LinkLabel() Me.LinkLabel64 = New System.Windows.Forms.LinkLabel()
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.cbxUploadDA = New System.Windows.Forms.CheckBox() Me.cbxUploadDA = New System.Windows.Forms.CheckBox()
Me.cbxIDSalt = New System.Windows.Forms.CheckBox()
Me.Label5 = New System.Windows.Forms.Label() Me.Label5 = New System.Windows.Forms.Label()
Me.LinkLabel23 = New System.Windows.Forms.LinkLabel() Me.LinkLabel23 = New System.Windows.Forms.LinkLabel()
Me.LinkLabel24 = New System.Windows.Forms.LinkLabel() Me.LinkLabel24 = New System.Windows.Forms.LinkLabel()
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.LinkLabel62 = New System.Windows.Forms.LinkLabel()
Me.CheckBox8 = New System.Windows.Forms.CheckBox()
Me.LinkLabel60 = New System.Windows.Forms.LinkLabel() Me.LinkLabel60 = New System.Windows.Forms.LinkLabel()
Me.Label43 = New System.Windows.Forms.Label()
Me.LinkLabel61 = New System.Windows.Forms.LinkLabel() Me.LinkLabel61 = New System.Windows.Forms.LinkLabel()
Me.txtKdNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label40 = New System.Windows.Forms.Label() Me.Label40 = New System.Windows.Forms.Label()
Me.PictureBox25 = New System.Windows.Forms.PictureBox()
Me.LinkLabel59 = New System.Windows.Forms.LinkLabel() Me.LinkLabel59 = New System.Windows.Forms.LinkLabel()
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()
@@ -268,19 +279,8 @@ 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.cbxIDSalt = New System.Windows.Forms.CheckBox() Me.cbxUTATestkunden = New System.Windows.Forms.CheckBox()
Me.cbxIDSneu = New System.Windows.Forms.CheckBox()
Me.cbxUTANeu = New System.Windows.Forms.CheckBox()
Me.cbxUTAalt = New System.Windows.Forms.CheckBox()
Me.cbxMSEneu = New System.Windows.Forms.CheckBox()
Me.cbxMSEalt = New System.Windows.Forms.CheckBox()
Me.Label44 = New System.Windows.Forms.Label()
Me.Label45 = New System.Windows.Forms.Label()
Me.Label46 = New System.Windows.Forms.Label()
Me.cbxPlose = New System.Windows.Forms.CheckBox()
Me.cbxITalt = New System.Windows.Forms.CheckBox()
Me.pnl.SuspendLayout() Me.pnl.SuspendLayout()
CType(Me.PictureBox25, System.ComponentModel.ISupportInitialize).BeginInit()
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()
CType(Me.PictureBox22, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox22, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -307,6 +307,7 @@ Partial Class frmStartOptions
CType(Me.dgvMRN, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.dgvMRN, System.ComponentModel.ISupportInitialize).BeginInit()
Me.TabPage3.SuspendLayout() Me.TabPage3.SuspendLayout()
Me.TabPage4.SuspendLayout() Me.TabPage4.SuspendLayout()
CType(Me.PictureBox25, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox21, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox21, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox19, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox19, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox18, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox18, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -421,101 +422,6 @@ Partial Class frmStartOptions
Me.LinkLabel66.TabStop = True Me.LinkLabel66.TabStop = True
Me.LinkLabel66.Text = "ATCNr in Rechnungen aktu. für MRN:" Me.LinkLabel66.Text = "ATCNr in Rechnungen aktu. für MRN:"
' '
'Button25
'
Me.Button25.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button25.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Button25.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button25.Location = New System.Drawing.Point(986, 292)
Me.Button25.Name = "Button25"
Me.Button25.Size = New System.Drawing.Size(187, 38)
Me.Button25.TabIndex = 135
Me.Button25.Text = "Summen anzeigen"
Me.Button25.UseVisualStyleBackColor = True
'
'Button24
'
Me.Button24.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button24.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Button24.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button24.Location = New System.Drawing.Point(1000, 358)
Me.Button24.Name = "Button24"
Me.Button24.Size = New System.Drawing.Size(187, 38)
Me.Button24.TabIndex = 134
Me.Button24.Text = "test"
Me.Button24.UseVisualStyleBackColor = True
Me.Button24.Visible = False
'
'CheckBox8
'
Me.CheckBox8.AutoSize = True
Me.CheckBox8.Checked = True
Me.CheckBox8.CheckState = System.Windows.Forms.CheckState.Checked
Me.CheckBox8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.CheckBox8.Location = New System.Drawing.Point(1094, 66)
Me.CheckBox8.Name = "CheckBox8"
Me.CheckBox8.Size = New System.Drawing.Size(79, 17)
Me.CheckBox8.TabIndex = 133
Me.CheckBox8.Text = "Testsystem"
Me.CheckBox8.UseVisualStyleBackColor = True
'
'Label43
'
Me.Label43.AutoSize = True
Me.Label43.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label43.Location = New System.Drawing.Point(983, 93)
Me.Label43.Name = "Label43"
Me.Label43.Size = New System.Drawing.Size(35, 13)
Me.Label43.TabIndex = 132
Me.Label43.Text = "KdNr"
'
'txtKdNr
'
Me.txtKdNr._DateTimeOnly = False
Me.txtKdNr._numbersOnly = True
Me.txtKdNr._numbersOnlyKommastellen = ""
Me.txtKdNr._numbersOnlyTrennzeichen = False
Me.txtKdNr._Prozent = False
Me.txtKdNr._ShortDateNew = False
Me.txtKdNr._ShortDateOnly = False
Me.txtKdNr._TimeOnly = False
Me.txtKdNr._TimeOnly_Seconds = False
Me.txtKdNr._value = ""
Me.txtKdNr._Waehrung = False
Me.txtKdNr._WaehrungZeichen = True
Me.txtKdNr.ForeColor = System.Drawing.Color.Black
Me.txtKdNr.Location = New System.Drawing.Point(1037, 86)
Me.txtKdNr.MaxLength = 50
Me.txtKdNr.MaxLineLength = -1
Me.txtKdNr.MaxLines_Warning = ""
Me.txtKdNr.MaxLines_Warning_Label = Nothing
Me.txtKdNr.Name = "txtKdNr"
Me.txtKdNr.Size = New System.Drawing.Size(136, 20)
Me.txtKdNr.TabIndex = 95
'
'PictureBox25
'
Me.PictureBox25.BackgroundImage = CType(resources.GetObject("PictureBox25.BackgroundImage"), System.Drawing.Image)
Me.PictureBox25.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox25.Location = New System.Drawing.Point(1194, 263)
Me.PictureBox25.Name = "PictureBox25"
Me.PictureBox25.Size = New System.Drawing.Size(18, 18)
Me.PictureBox25.TabIndex = 94
Me.PictureBox25.TabStop = False
Me.PictureBox25.Visible = False
'
'Button23
'
Me.Button23.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button23.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Button23.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button23.Location = New System.Drawing.Point(986, 247)
Me.Button23.Name = "Button23"
Me.Button23.Size = New System.Drawing.Size(187, 38)
Me.Button23.TabIndex = 93
Me.Button23.Text = "Summen aktualisieren (USTV-Anträge)"
Me.Button23.UseVisualStyleBackColor = True
'
'PictureBox24 'PictureBox24
' '
Me.PictureBox24.BackgroundImage = CType(resources.GetObject("PictureBox24.BackgroundImage"), System.Drawing.Image) Me.PictureBox24.BackgroundImage = CType(resources.GetObject("PictureBox24.BackgroundImage"), System.Drawing.Image)
@@ -2336,6 +2242,7 @@ Partial Class frmStartOptions
' '
'TabPage4 'TabPage4
' '
Me.TabPage4.Controls.Add(Me.cbxUTATestkunden)
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)
@@ -2423,6 +2330,89 @@ Partial Class frmStartOptions
Me.TabPage4.Text = "VERAG 360" Me.TabPage4.Text = "VERAG 360"
Me.TabPage4.UseVisualStyleBackColor = True Me.TabPage4.UseVisualStyleBackColor = True
' '
'cbxITalt
'
Me.cbxITalt.AutoSize = True
Me.cbxITalt.Checked = True
Me.cbxITalt.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbxITalt.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cbxITalt.Location = New System.Drawing.Point(986, 212)
Me.cbxITalt.Name = "cbxITalt"
Me.cbxITalt.Size = New System.Drawing.Size(36, 17)
Me.cbxITalt.TabIndex = 149
Me.cbxITalt.Text = "IT"
Me.cbxITalt.UseVisualStyleBackColor = True
'
'cbxPlose
'
Me.cbxPlose.AutoSize = True
Me.cbxPlose.Checked = True
Me.cbxPlose.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbxPlose.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cbxPlose.Location = New System.Drawing.Point(1104, 212)
Me.cbxPlose.Name = "cbxPlose"
Me.cbxPlose.Size = New System.Drawing.Size(52, 17)
Me.cbxPlose.TabIndex = 148
Me.cbxPlose.Text = "Plose"
Me.cbxPlose.UseVisualStyleBackColor = True
'
'Label46
'
Me.Label46.AutoSize = True
Me.Label46.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label46.Location = New System.Drawing.Point(1101, 123)
Me.Label46.Name = "Label46"
Me.Label46.Size = New System.Drawing.Size(111, 13)
Me.Label46.TabIndex = 147
Me.Label46.Text = "Schnittstellen Neu"
'
'Label45
'
Me.Label45.AutoSize = True
Me.Label45.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label45.Location = New System.Drawing.Point(983, 123)
Me.Label45.Name = "Label45"
Me.Label45.Size = New System.Drawing.Size(103, 13)
Me.Label45.TabIndex = 146
Me.Label45.Text = "Schnittstellen Alt"
'
'Label44
'
Me.Label44.AutoSize = True
Me.Label44.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label44.ForeColor = System.Drawing.Color.Red
Me.Label44.Location = New System.Drawing.Point(983, 42)
Me.Label44.Name = "Label44"
Me.Label44.Size = New System.Drawing.Size(204, 13)
Me.Label44.TabIndex = 145
Me.Label44.Text = "USTVA-Summen berechnen (MDM)"
'
'cbxMSEneu
'
Me.cbxMSEneu.AutoSize = True
Me.cbxMSEneu.Checked = True
Me.cbxMSEneu.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbxMSEneu.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cbxMSEneu.Location = New System.Drawing.Point(1104, 189)
Me.cbxMSEneu.Name = "cbxMSEneu"
Me.cbxMSEneu.Size = New System.Drawing.Size(49, 17)
Me.cbxMSEneu.TabIndex = 144
Me.cbxMSEneu.Text = "MSE"
Me.cbxMSEneu.UseVisualStyleBackColor = True
'
'Button24
'
Me.Button24.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button24.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Button24.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button24.Location = New System.Drawing.Point(1000, 358)
Me.Button24.Name = "Button24"
Me.Button24.Size = New System.Drawing.Size(187, 38)
Me.Button24.TabIndex = 134
Me.Button24.Text = "test"
Me.Button24.UseVisualStyleBackColor = True
Me.Button24.Visible = False
'
'txtUTAYear 'txtUTAYear
' '
Me.txtUTAYear._DateTimeOnly = False Me.txtUTAYear._DateTimeOnly = False
@@ -2449,6 +2439,19 @@ Partial Class frmStartOptions
Me.txtUTAYear.TabIndex = 133 Me.txtUTAYear.TabIndex = 133
Me.txtUTAYear.TextAlign = System.Windows.Forms.HorizontalAlignment.Center Me.txtUTAYear.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
' '
'cbxMSEalt
'
Me.cbxMSEalt.AutoSize = True
Me.cbxMSEalt.Checked = True
Me.cbxMSEalt.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbxMSEalt.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cbxMSEalt.Location = New System.Drawing.Point(986, 189)
Me.cbxMSEalt.Name = "cbxMSEalt"
Me.cbxMSEalt.Size = New System.Drawing.Size(49, 17)
Me.cbxMSEalt.TabIndex = 143
Me.cbxMSEalt.Text = "MSE"
Me.cbxMSEalt.UseVisualStyleBackColor = True
'
'LinkLabel65 'LinkLabel65
' '
Me.LinkLabel65.AutoSize = True Me.LinkLabel65.AutoSize = True
@@ -2460,17 +2463,43 @@ Partial Class frmStartOptions
Me.LinkLabel65.TabStop = True Me.LinkLabel65.TabStop = True
Me.LinkLabel65.Text = "CSV + PDF importieren" Me.LinkLabel65.Text = "CSV + PDF importieren"
' '
'cbxUTANeu
'
Me.cbxUTANeu.AutoSize = True
Me.cbxUTANeu.Checked = True
Me.cbxUTANeu.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbxUTANeu.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cbxUTANeu.Location = New System.Drawing.Point(1104, 168)
Me.cbxUTANeu.Name = "cbxUTANeu"
Me.cbxUTANeu.Size = New System.Drawing.Size(48, 17)
Me.cbxUTANeu.TabIndex = 142
Me.cbxUTANeu.Text = "UTA"
Me.cbxUTANeu.UseVisualStyleBackColor = True
'
'LinkLabel64 'LinkLabel64
' '
Me.LinkLabel64.AutoSize = True 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.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(555, 393) Me.LinkLabel64.Location = New System.Drawing.Point(534, 425)
Me.LinkLabel64.Name = "LinkLabel64" Me.LinkLabel64.Name = "LinkLabel64"
Me.LinkLabel64.Size = New System.Drawing.Size(135, 13) Me.LinkLabel64.Size = New System.Drawing.Size(135, 13)
Me.LinkLabel64.TabIndex = 131 Me.LinkLabel64.TabIndex = 131
Me.LinkLabel64.TabStop = True Me.LinkLabel64.TabStop = True
Me.LinkLabel64.Text = "Ländercode ISO2 einfügen" Me.LinkLabel64.Text = "Ländercode ISO2 einfügen"
' '
'cbxUTAalt
'
Me.cbxUTAalt.AutoSize = True
Me.cbxUTAalt.Checked = True
Me.cbxUTAalt.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbxUTAalt.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cbxUTAalt.Location = New System.Drawing.Point(986, 168)
Me.cbxUTAalt.Name = "cbxUTAalt"
Me.cbxUTAalt.Size = New System.Drawing.Size(48, 17)
Me.cbxUTAalt.TabIndex = 141
Me.cbxUTAalt.Text = "UTA"
Me.cbxUTAalt.UseVisualStyleBackColor = True
'
'Label42 'Label42
' '
Me.Label42.AutoSize = True Me.Label42.AutoSize = True
@@ -2481,6 +2510,19 @@ Partial Class frmStartOptions
Me.Label42.TabIndex = 130 Me.Label42.TabIndex = 130
Me.Label42.Text = "Batch" Me.Label42.Text = "Batch"
' '
'cbxIDSneu
'
Me.cbxIDSneu.AutoSize = True
Me.cbxIDSneu.Checked = True
Me.cbxIDSneu.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbxIDSneu.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cbxIDSneu.Location = New System.Drawing.Point(1104, 148)
Me.cbxIDSneu.Name = "cbxIDSneu"
Me.cbxIDSneu.Size = New System.Drawing.Size(44, 17)
Me.cbxIDSneu.TabIndex = 140
Me.cbxIDSneu.Text = "IDS"
Me.cbxIDSneu.UseVisualStyleBackColor = True
'
'cbxUploadDA 'cbxUploadDA
' '
Me.cbxUploadDA.AutoSize = True Me.cbxUploadDA.AutoSize = True
@@ -2492,6 +2534,19 @@ Partial Class frmStartOptions
Me.cbxUploadDA.Text = "PDF ins DS" Me.cbxUploadDA.Text = "PDF ins DS"
Me.cbxUploadDA.UseVisualStyleBackColor = True Me.cbxUploadDA.UseVisualStyleBackColor = True
' '
'cbxIDSalt
'
Me.cbxIDSalt.AutoSize = True
Me.cbxIDSalt.Checked = True
Me.cbxIDSalt.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbxIDSalt.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cbxIDSalt.Location = New System.Drawing.Point(986, 148)
Me.cbxIDSalt.Name = "cbxIDSalt"
Me.cbxIDSalt.Size = New System.Drawing.Size(44, 17)
Me.cbxIDSalt.TabIndex = 139
Me.cbxIDSalt.Text = "IDS"
Me.cbxIDSalt.UseVisualStyleBackColor = True
'
'Label5 'Label5
' '
Me.Label5.AutoSize = True Me.Label5.AutoSize = True
@@ -2525,6 +2580,18 @@ Partial Class frmStartOptions
Me.LinkLabel24.TabStop = True Me.LinkLabel24.TabStop = True
Me.LinkLabel24.Text = "Eingangsnachrichten abrufen TEST" Me.LinkLabel24.Text = "Eingangsnachrichten abrufen TEST"
' '
'Button25
'
Me.Button25.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button25.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Button25.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button25.Location = New System.Drawing.Point(986, 292)
Me.Button25.Name = "Button25"
Me.Button25.Size = New System.Drawing.Size(187, 38)
Me.Button25.TabIndex = 135
Me.Button25.Text = "Summen anzeigen"
Me.Button25.UseVisualStyleBackColor = True
'
'cbxOnlyBilledTransactions 'cbxOnlyBilledTransactions
' '
Me.cbxOnlyBilledTransactions.AutoSize = True Me.cbxOnlyBilledTransactions.AutoSize = True
@@ -2549,6 +2616,19 @@ Partial Class frmStartOptions
Me.LinkLabel62.TabStop = True Me.LinkLabel62.TabStop = True
Me.LinkLabel62.Text = "nicht abgerechete Transaktionen aktualisieren" Me.LinkLabel62.Text = "nicht abgerechete Transaktionen aktualisieren"
' '
'CheckBox8
'
Me.CheckBox8.AutoSize = True
Me.CheckBox8.Checked = True
Me.CheckBox8.CheckState = System.Windows.Forms.CheckState.Checked
Me.CheckBox8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.CheckBox8.Location = New System.Drawing.Point(1094, 66)
Me.CheckBox8.Name = "CheckBox8"
Me.CheckBox8.Size = New System.Drawing.Size(79, 17)
Me.CheckBox8.TabIndex = 133
Me.CheckBox8.Text = "Testsystem"
Me.CheckBox8.UseVisualStyleBackColor = True
'
'LinkLabel60 'LinkLabel60
' '
Me.LinkLabel60.AutoSize = True Me.LinkLabel60.AutoSize = True
@@ -2560,6 +2640,16 @@ Partial Class frmStartOptions
Me.LinkLabel60.TabStop = True Me.LinkLabel60.TabStop = True
Me.LinkLabel60.Text = "Neueste Settlements abrufen" Me.LinkLabel60.Text = "Neueste Settlements abrufen"
' '
'Label43
'
Me.Label43.AutoSize = True
Me.Label43.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label43.Location = New System.Drawing.Point(983, 93)
Me.Label43.Name = "Label43"
Me.Label43.Size = New System.Drawing.Size(35, 13)
Me.Label43.TabIndex = 132
Me.Label43.Text = "KdNr"
'
'LinkLabel61 'LinkLabel61
' '
Me.LinkLabel61.AutoSize = True Me.LinkLabel61.AutoSize = True
@@ -2571,6 +2661,30 @@ Partial Class frmStartOptions
Me.LinkLabel61.TabStop = True Me.LinkLabel61.TabStop = True
Me.LinkLabel61.Text = "fehlende Transaktionen abrufen" Me.LinkLabel61.Text = "fehlende Transaktionen abrufen"
' '
'txtKdNr
'
Me.txtKdNr._DateTimeOnly = False
Me.txtKdNr._numbersOnly = True
Me.txtKdNr._numbersOnlyKommastellen = ""
Me.txtKdNr._numbersOnlyTrennzeichen = False
Me.txtKdNr._Prozent = False
Me.txtKdNr._ShortDateNew = False
Me.txtKdNr._ShortDateOnly = False
Me.txtKdNr._TimeOnly = False
Me.txtKdNr._TimeOnly_Seconds = False
Me.txtKdNr._value = ""
Me.txtKdNr._Waehrung = False
Me.txtKdNr._WaehrungZeichen = True
Me.txtKdNr.ForeColor = System.Drawing.Color.Black
Me.txtKdNr.Location = New System.Drawing.Point(1037, 86)
Me.txtKdNr.MaxLength = 50
Me.txtKdNr.MaxLineLength = -1
Me.txtKdNr.MaxLines_Warning = ""
Me.txtKdNr.MaxLines_Warning_Label = Nothing
Me.txtKdNr.Name = "txtKdNr"
Me.txtKdNr.Size = New System.Drawing.Size(136, 20)
Me.txtKdNr.TabIndex = 95
'
'Label40 'Label40
' '
Me.Label40.AutoSize = True Me.Label40.AutoSize = True
@@ -2581,6 +2695,17 @@ Partial Class frmStartOptions
Me.Label40.TabIndex = 116 Me.Label40.TabIndex = 116
Me.Label40.Text = "ID" Me.Label40.Text = "ID"
' '
'PictureBox25
'
Me.PictureBox25.BackgroundImage = CType(resources.GetObject("PictureBox25.BackgroundImage"), System.Drawing.Image)
Me.PictureBox25.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox25.Location = New System.Drawing.Point(1194, 263)
Me.PictureBox25.Name = "PictureBox25"
Me.PictureBox25.Size = New System.Drawing.Size(18, 18)
Me.PictureBox25.TabIndex = 94
Me.PictureBox25.TabStop = False
Me.PictureBox25.Visible = False
'
'LinkLabel59 'LinkLabel59
' '
Me.LinkLabel59.AutoSize = True Me.LinkLabel59.AutoSize = True
@@ -2592,6 +2717,18 @@ Partial Class frmStartOptions
Me.LinkLabel59.TabStop = True Me.LinkLabel59.TabStop = True
Me.LinkLabel59.Text = "Transaktionen von ID abrufen" Me.LinkLabel59.Text = "Transaktionen von ID abrufen"
' '
'Button23
'
Me.Button23.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button23.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Button23.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button23.Location = New System.Drawing.Point(986, 247)
Me.Button23.Name = "Button23"
Me.Button23.Size = New System.Drawing.Size(187, 38)
Me.Button23.TabIndex = 93
Me.Button23.Text = "Summen aktualisieren (USTV-Anträge)"
Me.Button23.UseVisualStyleBackColor = True
'
'Label39 'Label39
' '
Me.Label39.AutoSize = True Me.Label39.AutoSize = True
@@ -2749,7 +2886,7 @@ Partial Class frmStartOptions
' '
Me.LinkLabel53.AutoSize = True 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.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(555, 372) Me.LinkLabel53.Location = New System.Drawing.Point(534, 404)
Me.LinkLabel53.Name = "LinkLabel53" Me.LinkLabel53.Name = "LinkLabel53"
Me.LinkLabel53.Size = New System.Drawing.Size(82, 13) Me.LinkLabel53.Size = New System.Drawing.Size(82, 13)
Me.LinkLabel53.TabIndex = 97 Me.LinkLabel53.TabIndex = 97
@@ -3490,140 +3627,18 @@ Partial Class frmStartOptions
Me.DataGridViewTextBoxColumn1.MinimumWidth = 8 Me.DataGridViewTextBoxColumn1.MinimumWidth = 8
Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1" Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1"
' '
'cbxIDSalt 'cbxUTATestkunden
' '
Me.cbxIDSalt.AutoSize = True Me.cbxUTATestkunden.AutoSize = True
Me.cbxIDSalt.Checked = True Me.cbxUTATestkunden.Checked = True
Me.cbxIDSalt.CheckState = System.Windows.Forms.CheckState.Checked Me.cbxUTATestkunden.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbxIDSalt.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.cbxUTATestkunden.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cbxIDSalt.Location = New System.Drawing.Point(986, 148) Me.cbxUTATestkunden.Location = New System.Drawing.Point(532, 374)
Me.cbxIDSalt.Name = "cbxIDSalt" Me.cbxUTATestkunden.Name = "cbxUTATestkunden"
Me.cbxIDSalt.Size = New System.Drawing.Size(44, 17) Me.cbxUTATestkunden.Size = New System.Drawing.Size(170, 17)
Me.cbxIDSalt.TabIndex = 139 Me.cbxUTATestkunden.TabIndex = 150
Me.cbxIDSalt.Text = "IDS" Me.cbxUTATestkunden.Text = "nur Testkunden (2) importieren"
Me.cbxIDSalt.UseVisualStyleBackColor = True Me.cbxUTATestkunden.UseVisualStyleBackColor = True
'
'cbxIDSneu
'
Me.cbxIDSneu.AutoSize = True
Me.cbxIDSneu.Checked = True
Me.cbxIDSneu.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbxIDSneu.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cbxIDSneu.Location = New System.Drawing.Point(1104, 148)
Me.cbxIDSneu.Name = "cbxIDSneu"
Me.cbxIDSneu.Size = New System.Drawing.Size(44, 17)
Me.cbxIDSneu.TabIndex = 140
Me.cbxIDSneu.Text = "IDS"
Me.cbxIDSneu.UseVisualStyleBackColor = True
'
'cbxUTANeu
'
Me.cbxUTANeu.AutoSize = True
Me.cbxUTANeu.Checked = True
Me.cbxUTANeu.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbxUTANeu.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cbxUTANeu.Location = New System.Drawing.Point(1104, 168)
Me.cbxUTANeu.Name = "cbxUTANeu"
Me.cbxUTANeu.Size = New System.Drawing.Size(48, 17)
Me.cbxUTANeu.TabIndex = 142
Me.cbxUTANeu.Text = "UTA"
Me.cbxUTANeu.UseVisualStyleBackColor = True
'
'cbxUTAalt
'
Me.cbxUTAalt.AutoSize = True
Me.cbxUTAalt.Checked = True
Me.cbxUTAalt.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbxUTAalt.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cbxUTAalt.Location = New System.Drawing.Point(986, 168)
Me.cbxUTAalt.Name = "cbxUTAalt"
Me.cbxUTAalt.Size = New System.Drawing.Size(48, 17)
Me.cbxUTAalt.TabIndex = 141
Me.cbxUTAalt.Text = "UTA"
Me.cbxUTAalt.UseVisualStyleBackColor = True
'
'cbxMSEneu
'
Me.cbxMSEneu.AutoSize = True
Me.cbxMSEneu.Checked = True
Me.cbxMSEneu.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbxMSEneu.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cbxMSEneu.Location = New System.Drawing.Point(1104, 189)
Me.cbxMSEneu.Name = "cbxMSEneu"
Me.cbxMSEneu.Size = New System.Drawing.Size(49, 17)
Me.cbxMSEneu.TabIndex = 144
Me.cbxMSEneu.Text = "MSE"
Me.cbxMSEneu.UseVisualStyleBackColor = True
'
'cbxMSEalt
'
Me.cbxMSEalt.AutoSize = True
Me.cbxMSEalt.Checked = True
Me.cbxMSEalt.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbxMSEalt.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cbxMSEalt.Location = New System.Drawing.Point(986, 189)
Me.cbxMSEalt.Name = "cbxMSEalt"
Me.cbxMSEalt.Size = New System.Drawing.Size(49, 17)
Me.cbxMSEalt.TabIndex = 143
Me.cbxMSEalt.Text = "MSE"
Me.cbxMSEalt.UseVisualStyleBackColor = True
'
'Label44
'
Me.Label44.AutoSize = True
Me.Label44.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label44.ForeColor = System.Drawing.Color.Red
Me.Label44.Location = New System.Drawing.Point(983, 42)
Me.Label44.Name = "Label44"
Me.Label44.Size = New System.Drawing.Size(204, 13)
Me.Label44.TabIndex = 145
Me.Label44.Text = "USTVA-Summen berechnen (MDM)"
'
'Label45
'
Me.Label45.AutoSize = True
Me.Label45.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label45.Location = New System.Drawing.Point(983, 123)
Me.Label45.Name = "Label45"
Me.Label45.Size = New System.Drawing.Size(103, 13)
Me.Label45.TabIndex = 146
Me.Label45.Text = "Schnittstellen Alt"
'
'Label46
'
Me.Label46.AutoSize = True
Me.Label46.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label46.Location = New System.Drawing.Point(1101, 123)
Me.Label46.Name = "Label46"
Me.Label46.Size = New System.Drawing.Size(111, 13)
Me.Label46.TabIndex = 147
Me.Label46.Text = "Schnittstellen Neu"
'
'cbxPlose
'
Me.cbxPlose.AutoSize = True
Me.cbxPlose.Checked = True
Me.cbxPlose.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbxPlose.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cbxPlose.Location = New System.Drawing.Point(1104, 212)
Me.cbxPlose.Name = "cbxPlose"
Me.cbxPlose.Size = New System.Drawing.Size(52, 17)
Me.cbxPlose.TabIndex = 148
Me.cbxPlose.Text = "Plose"
Me.cbxPlose.UseVisualStyleBackColor = True
'
'cbxITalt
'
Me.cbxITalt.AutoSize = True
Me.cbxITalt.Checked = True
Me.cbxITalt.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbxITalt.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cbxITalt.Location = New System.Drawing.Point(986, 212)
Me.cbxITalt.Name = "cbxITalt"
Me.cbxITalt.Size = New System.Drawing.Size(36, 17)
Me.cbxITalt.TabIndex = 149
Me.cbxITalt.Text = "IT"
Me.cbxITalt.UseVisualStyleBackColor = True
' '
'frmStartOptions 'frmStartOptions
' '
@@ -3640,7 +3655,6 @@ Partial Class frmStartOptions
Me.WindowState = System.Windows.Forms.FormWindowState.Minimized Me.WindowState = System.Windows.Forms.FormWindowState.Minimized
Me.pnl.ResumeLayout(False) Me.pnl.ResumeLayout(False)
Me.pnl.PerformLayout() Me.pnl.PerformLayout()
CType(Me.PictureBox25, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox24, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBox24, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox23, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBox23, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox22, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBox22, System.ComponentModel.ISupportInitialize).EndInit()
@@ -3671,6 +3685,7 @@ Partial Class frmStartOptions
Me.TabPage3.PerformLayout() Me.TabPage3.PerformLayout()
Me.TabPage4.ResumeLayout(False) Me.TabPage4.ResumeLayout(False)
Me.TabPage4.PerformLayout() Me.TabPage4.PerformLayout()
CType(Me.PictureBox25, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox21, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBox21, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox19, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBox19, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox18, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBox18, System.ComponentModel.ISupportInitialize).EndInit()
@@ -3936,4 +3951,5 @@ 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 cbxUTATestkunden As CheckBox
End Class End Class

33
initATLASAufschubkonten/frmStartOptions.vb
View File

@@ -1,13 +1,8 @@
Imports System.Data.OleDb Imports System.Data.OleDb
Imports System.IO Imports System.IO
Imports System.Linq.Expressions
Imports System.Net Imports System.Net
Imports System.Runtime.InteropServices
Imports System.Text Imports System.Text
Imports System.Xml Imports System.Xml
Imports com.sun.corba.se.spi.orb
Imports DocumentFormat.OpenXml.Office2010.Word
Imports Microsoft.Office.Interop
Imports Renci.SshNet Imports Renci.SshNet
Imports VERAG_PROG_ALLGEMEIN Imports VERAG_PROG_ALLGEMEIN
@@ -87,6 +82,19 @@ Public Class frmStartOptions
txtEZOLLAnhDat._value = Now.ToShortDateString txtEZOLLAnhDat._value = Now.ToShortDateString
Dim Paramslist As New cParameterList(VERAG_PROG_ALLGEMEIN.cAllgemein.PROGID)
cbxIDSalt.Checked = Paramslist.GET_PARAMETER_VALUE_BOOL("Schnittstelle_IDS_alt")
cbxIDSneu.Checked = Paramslist.GET_PARAMETER_VALUE_BOOL("Schnittstelle_IDS_neu")
cbxMSEalt.Checked = Paramslist.GET_PARAMETER_VALUE_BOOL("Schnittstelle_MSE_alt")
cbxMSEneu.Checked = Paramslist.GET_PARAMETER_VALUE_BOOL("Schnittstelle_MSE_neu")
cbxPlose.Checked = Paramslist.GET_PARAMETER_VALUE_BOOL("Schnittstelle_PLOSE")
cbxITalt.Checked = Paramslist.GET_PARAMETER_VALUE_BOOL("Schnittstelle_IT")
cbxUTAalt.Checked = Paramslist.GET_PARAMETER_VALUE_BOOL("Schnittstelle_UTA_alt")
cbxUTANeu.Checked = Paramslist.GET_PARAMETER_VALUE_BOOL("Schnittstelle_UTA_neu")
cbxGestellungspeichern.Checked = Paramslist.GET_PARAMETER_VALUE_BOOL("Gestellung_erstellen")
Dim PARAM = "" 'INSERT_BENACHRICHTIGUNG_VERMERKE_TEAMS Dim PARAM = "" 'INSERT_BENACHRICHTIGUNG_VERMERKE_TEAMS
PARAM = "" PARAM = ""
@@ -771,7 +779,16 @@ Public Class frmStartOptions
Dim sendMail As Boolean = False Dim sendMail As Boolean = False
Dim dt As New DataTable Dim dt As New DataTable
cMDMFunctionsAllgemein.setSchnittstellen(False, True, True, False, True, False, True, False) Dim IDSalt = Paramslist.GET_PARAMETER_VALUE_BOOL("Schnittstelle_IDS_alt")
Dim IDSneu = Paramslist.GET_PARAMETER_VALUE_BOOL("Schnittstelle_IDS_neu")
Dim MSEalt = Paramslist.GET_PARAMETER_VALUE_BOOL("Schnittstelle_MSE_alt")
Dim MSEneu = Paramslist.GET_PARAMETER_VALUE_BOOL("Schnittstelle_MSE_neu")
Dim PLOSE = Paramslist.GET_PARAMETER_VALUE_BOOL("Schnittstelle_PLOSE")
Dim IT = Paramslist.GET_PARAMETER_VALUE_BOOL("Schnittstelle_IT")
Dim UTAalt = Paramslist.GET_PARAMETER_VALUE_BOOL("Schnittstelle_UTA_alt")
Dim UTAneu = Paramslist.GET_PARAMETER_VALUE_BOOL("Schnittstelle_UTA_neu")
cMDMFunctionsAllgemein.setSchnittstellen(PLOSE, IT, MSEalt, MSEneu, IDSalt, IDSneu, UTAalt, UTAneu)
If cMDMFunctionsAllgemein.Update_UStVASummenNeuBerechnen() Then If cMDMFunctionsAllgemein.Update_UStVASummenNeuBerechnen() Then
ok = cMDMFunctionsAllgemein.UStVAKunden_SummenNeuBerechnen(,, dt, sendMail) ok = cMDMFunctionsAllgemein.UStVAKunden_SummenNeuBerechnen(,, dt, sendMail)
@@ -1726,8 +1743,6 @@ Public Class frmStartOptions
End If End If
Catch ex As Exception Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.LOG) VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.LOG)
@@ -4750,6 +4765,7 @@ Public Class frmStartOptions
End Sub End Sub
Private Sub cbxTestsystem_CheckedChanged(sender As Object, e As EventArgs) Handles cbxTestsystem.CheckedChanged Private Sub cbxTestsystem_CheckedChanged(sender As Object, e As EventArgs) Handles cbxTestsystem.CheckedChanged
If tbcntr.SelectedIndex = 3 Then If tbcntr.SelectedIndex = 3 Then
checkTBLandTWLNr() checkTBLandTWLNr()
@@ -4853,6 +4869,7 @@ Public Class frmStartOptions
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)
f.year = txtUTAYear.Text f.year = txtUTAYear.Text
f.UtaTestkunden = cbxUTATestkunden.Checked
f.ShowDialog() f.ShowDialog()
Me.Visible = True Me.Visible = True
End Sub End Sub