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 Dateiname = ""
Public year As Integer
Public UtaTestkunden As Boolean = False
Sub New(programName As String)
@@ -715,7 +717,7 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers
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")
Else
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.txtMRNPrefix = New System.Windows.Forms.TextBox()
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.buchungenAMBAR = New System.Windows.Forms.Button()
Me.LinkLabel63 = New System.Windows.Forms.LinkLabel()
@@ -180,20 +173,38 @@ Partial Class frmStartOptions
Me.LinkLabel30 = New System.Windows.Forms.LinkLabel()
Me.Label11 = New System.Windows.Forms.Label()
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.cbxMSEalt = New System.Windows.Forms.CheckBox()
Me.LinkLabel65 = New System.Windows.Forms.LinkLabel()
Me.cbxUTANeu = New System.Windows.Forms.CheckBox()
Me.LinkLabel64 = 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()
Me.cbxUploadDA = New System.Windows.Forms.CheckBox()
Me.cbxIDSalt = New System.Windows.Forms.CheckBox()
Me.Label5 = New System.Windows.Forms.Label()
Me.LinkLabel23 = 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.LinkLabel62 = New System.Windows.Forms.LinkLabel()
Me.CheckBox8 = New System.Windows.Forms.CheckBox()
Me.LinkLabel60 = New System.Windows.Forms.LinkLabel()
Me.Label43 = New System.Windows.Forms.Label()
Me.LinkLabel61 = New System.Windows.Forms.LinkLabel()
Me.txtKdNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label40 = New System.Windows.Forms.Label()
Me.PictureBox25 = New System.Windows.Forms.PictureBox()
Me.LinkLabel59 = 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()
@@ -268,19 +279,8 @@ 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.cbxIDSalt = 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.cbxUTATestkunden = New System.Windows.Forms.CheckBox()
Me.pnl.SuspendLayout()
CType(Me.PictureBox25, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox24, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox23, 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()
Me.TabPage3.SuspendLayout()
Me.TabPage4.SuspendLayout()
CType(Me.PictureBox25, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox21, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox19, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox18, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -421,101 +422,6 @@ Partial Class frmStartOptions
Me.LinkLabel66.TabStop = True
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
'
Me.PictureBox24.BackgroundImage = CType(resources.GetObject("PictureBox24.BackgroundImage"), System.Drawing.Image)
@@ -2336,6 +2242,7 @@ Partial Class frmStartOptions
'
'TabPage4
'
Me.TabPage4.Controls.Add(Me.cbxUTATestkunden)
Me.TabPage4.Controls.Add(Me.cbxITalt)
Me.TabPage4.Controls.Add(Me.cbxPlose)
Me.TabPage4.Controls.Add(Me.Label46)
@@ -2423,6 +2330,89 @@ Partial Class frmStartOptions
Me.TabPage4.Text = "VERAG 360"
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
'
Me.txtUTAYear._DateTimeOnly = False
@@ -2449,6 +2439,19 @@ Partial Class frmStartOptions
Me.txtUTAYear.TabIndex = 133
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
'
Me.LinkLabel65.AutoSize = True
@@ -2460,17 +2463,43 @@ Partial Class frmStartOptions
Me.LinkLabel65.TabStop = True
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
'
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(555, 393)
Me.LinkLabel64.Location = New System.Drawing.Point(534, 425)
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"
'
'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
'
Me.Label42.AutoSize = True
@@ -2481,6 +2510,19 @@ Partial Class frmStartOptions
Me.Label42.TabIndex = 130
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
'
Me.cbxUploadDA.AutoSize = True
@@ -2492,6 +2534,19 @@ Partial Class frmStartOptions
Me.cbxUploadDA.Text = "PDF ins DS"
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
'
Me.Label5.AutoSize = True
@@ -2525,6 +2580,18 @@ Partial Class frmStartOptions
Me.LinkLabel24.TabStop = True
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
'
Me.cbxOnlyBilledTransactions.AutoSize = True
@@ -2549,6 +2616,19 @@ Partial Class frmStartOptions
Me.LinkLabel62.TabStop = True
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
'
Me.LinkLabel60.AutoSize = True
@@ -2560,6 +2640,16 @@ Partial Class frmStartOptions
Me.LinkLabel60.TabStop = True
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
'
Me.LinkLabel61.AutoSize = True
@@ -2571,6 +2661,30 @@ Partial Class frmStartOptions
Me.LinkLabel61.TabStop = True
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
'
Me.Label40.AutoSize = True
@@ -2581,6 +2695,17 @@ Partial Class frmStartOptions
Me.Label40.TabIndex = 116
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
'
Me.LinkLabel59.AutoSize = True
@@ -2592,6 +2717,18 @@ Partial Class frmStartOptions
Me.LinkLabel59.TabStop = True
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
'
Me.Label39.AutoSize = True
@@ -2749,7 +2886,7 @@ Partial Class frmStartOptions
'
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(555, 372)
Me.LinkLabel53.Location = New System.Drawing.Point(534, 404)
Me.LinkLabel53.Name = "LinkLabel53"
Me.LinkLabel53.Size = New System.Drawing.Size(82, 13)
Me.LinkLabel53.TabIndex = 97
@@ -3490,140 +3627,18 @@ Partial Class frmStartOptions
Me.DataGridViewTextBoxColumn1.MinimumWidth = 8
Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1"
'
'cbxIDSalt
'cbxUTATestkunden
'
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
'
'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
Me.cbxUTATestkunden.AutoSize = True
Me.cbxUTATestkunden.Checked = True
Me.cbxUTATestkunden.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbxUTATestkunden.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cbxUTATestkunden.Location = New System.Drawing.Point(532, 374)
Me.cbxUTATestkunden.Name = "cbxUTATestkunden"
Me.cbxUTATestkunden.Size = New System.Drawing.Size(170, 17)
Me.cbxUTATestkunden.TabIndex = 150
Me.cbxUTATestkunden.Text = "nur Testkunden (2) importieren"
Me.cbxUTATestkunden.UseVisualStyleBackColor = True
'
'frmStartOptions
'
@@ -3640,7 +3655,6 @@ Partial Class frmStartOptions
Me.WindowState = System.Windows.Forms.FormWindowState.Minimized
Me.pnl.ResumeLayout(False)
Me.pnl.PerformLayout()
CType(Me.PictureBox25, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox24, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox23, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox22, System.ComponentModel.ISupportInitialize).EndInit()
@@ -3671,6 +3685,7 @@ Partial Class frmStartOptions
Me.TabPage3.PerformLayout()
Me.TabPage4.ResumeLayout(False)
Me.TabPage4.PerformLayout()
CType(Me.PictureBox25, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox21, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox19, 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 cbxITalt As CheckBox
Friend WithEvents cbxPlose As CheckBox
Friend WithEvents cbxUTATestkunden As CheckBox
End Class

33
initATLASAufschubkonten/frmStartOptions.vb
View File

@@ -1,13 +1,8 @@
Imports System.Data.OleDb
Imports System.IO
Imports System.Linq.Expressions
Imports System.Net
Imports System.Runtime.InteropServices
Imports System.Text
Imports System.Xml
Imports com.sun.corba.se.spi.orb
Imports DocumentFormat.OpenXml.Office2010.Word
Imports Microsoft.Office.Interop
Imports Renci.SshNet
Imports VERAG_PROG_ALLGEMEIN
@@ -87,6 +82,19 @@ Public Class frmStartOptions
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
PARAM = ""
@@ -771,7 +779,16 @@ Public Class frmStartOptions
Dim sendMail As Boolean = False
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
ok = cMDMFunctionsAllgemein.UStVAKunden_SummenNeuBerechnen(,, dt, sendMail)
@@ -1726,8 +1743,6 @@ Public Class frmStartOptions
End If
Catch ex As Exception
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
Private Sub cbxTestsystem_CheckedChanged(sender As Object, e As EventArgs) Handles cbxTestsystem.CheckedChanged
If tbcntr.SelectedIndex = 3 Then
checkTBLandTWLNr()
@@ -4853,6 +4869,7 @@ Public Class frmStartOptions
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = cbxTestsystem.Checked
Dim f As New frmNachrichtenVerarbeitung_MDM_divers("UTA", False, False, cbxDateienlöschenUTA.Checked)
f.year = txtUTAYear.Text
f.UtaTestkunden = cbxUTATestkunden.Checked
f.ShowDialog()
Me.Visible = True
End Sub