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

Plose date, etc.

Browse Source
This commit is contained in:
d.breimaier
2025-11-20 13:50:00 +01:00
parent c1c1bf413f
commit e13dcd095e
4 changed files with 248 additions and 40 deletions
Download Patch File Download Diff File Expand all files Collapse all files

48
UID/usrctlProcedures.Designer.vb generated
View File

@@ -59,8 +59,6 @@ Partial Class usrctlProcedures
Me.Button11 = New System.Windows.Forms.Button()
Me.Button10 = New System.Windows.Forms.Button()
Me.DataGridView1 = New System.Windows.Forms.DataGridView()
Me.Column1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.Column2 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.Button9 = New System.Windows.Forms.Button()
Me.Button8 = New System.Windows.Forms.Button()
Me.Button7 = New System.Windows.Forms.Button()
@@ -157,6 +155,10 @@ Partial Class usrctlProcedures
Me.Button99 = New System.Windows.Forms.Button()
Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.Column1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.Column2 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.Button54 = New System.Windows.Forms.Button()
Me.Label23 = New System.Windows.Forms.Label()
Me.TabControl1.SuspendLayout()
Me.TabPage3.SuspendLayout()
Me.TabPage1.SuspendLayout()
@@ -539,16 +541,6 @@ Partial Class usrctlProcedures
Me.DataGridView1.Size = New System.Drawing.Size(240, 431)
Me.DataGridView1.TabIndex = 5
'
'Column1
'
Me.Column1.HeaderText = "dat"
Me.Column1.Name = "Column1"
'
'Column2
'
Me.Column2.HeaderText = "anz"
Me.Column2.Name = "Column2"
'
'Button9
'
Me.Button9.Location = New System.Drawing.Point(131, 131)
@@ -793,6 +785,8 @@ Partial Class usrctlProcedures
'
'TabPage6
'
Me.TabPage6.Controls.Add(Me.Label23)
Me.TabPage6.Controls.Add(Me.Button54)
Me.TabPage6.Controls.Add(Me.Label19)
Me.TabPage6.Controls.Add(Me.Label18)
Me.TabPage6.Controls.Add(Me.Label17)
@@ -1449,6 +1443,34 @@ Partial Class usrctlProcedures
Me.DataGridViewTextBoxColumn2.HeaderText = "anz"
Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2"
'
'Column1
'
Me.Column1.HeaderText = "dat"
Me.Column1.Name = "Column1"
'
'Column2
'
Me.Column2.HeaderText = "anz"
Me.Column2.Name = "Column2"
'
'Button54
'
Me.Button54.Location = New System.Drawing.Point(33, 133)
Me.Button54.Name = "Button54"
Me.Button54.Size = New System.Drawing.Size(106, 28)
Me.Button54.TabIndex = 72
Me.Button54.Text = "ZNB Zinssätze"
Me.Button54.UseVisualStyleBackColor = True
'
'Label23
'
Me.Label23.AutoSize = True
Me.Label23.Location = New System.Drawing.Point(11, 141)
Me.Label23.Name = "Label23"
Me.Label23.Size = New System.Drawing.Size(16, 13)
Me.Label23.TabIndex = 73
Me.Label23.Text = "3."
'
'usrctlProcedures
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -1664,4 +1686,6 @@ Partial Class usrctlProcedures
Friend WithEvents Label22 As Label
Friend WithEvents dtpbis As DateTimePicker
Friend WithEvents Button53 As Button
Friend WithEvents Label23 As Label
Friend WithEvents Button54 As Button
End Class

60
UID/usrctlProcedures.vb
View File

@@ -4098,7 +4098,7 @@ Public Class usrctlProcedures
Dim kdnr_tmp = ""
Try
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = cbxMDM_Testsystem.Checked
Dim fd As New OpenFileDialog
If fd.ShowDialog = DialogResult.OK Then
@@ -4181,7 +4181,7 @@ Public Class usrctlProcedures
Try
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = cbxMDM_Testsystem.Checked
Dim fd As New OpenFileDialog
If fd.ShowDialog = DialogResult.OK Then
@@ -4341,6 +4341,7 @@ OPTION (MAXRECURSION 1000);", "AVISO") '
Case "Vereinigte Arabische Emirate" : ISO2SetCountry = "AE"
Case "Vereinigte Staaten" : ISO2SetCountry = "US"
Case "Vereinigtes Königreich" : ISO2SetCountry = "GB"
Case "Bosnien und Herzegowina" : ISO2SetCountry = "BA"
End Select
@@ -4359,6 +4360,61 @@ OPTION (MAXRECURSION 1000);", "AVISO") '
End Sub
Private Sub Button54_Click(sender As Object, e As EventArgs) Handles Button54.Click
Dim cnt = 0
Dim sql As New VERAG_PROG_ALLGEMEIN.SQL
Try
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = cbxMDM_Testsystem.Checked
Dim fd As New OpenFileDialog
If fd.ShowDialog = DialogResult.OK Then
If fd.FileName.ToLower.EndsWith(".csv") Then
' fd.FileName.EndsWith(".csv")
Using MyReader As New Microsoft.VisualBasic.FileIO.TextFieldParser(fd.FileName, Encoding.Default)
MyReader.TextFieldType = FileIO.FieldType.Delimited
MyReader.SetDelimiters(";")
Dim currentRow As String()
While Not MyReader.EndOfData
Try
currentRow = MyReader.ReadFields()
If currentRow.Length > 1 AndAlso isleernothing(currentRow(0)) IsNot Nothing AndAlso IsNumeric(currentRow(0)) Then
Dim KUNDE_ERW As New cKundenErweitert(currentRow(0))
If isleernothing(currentRow(1)) IsNot Nothing AndAlso IsNumeric(currentRow(1)) Then
KUNDE_ERW.kde_zinssatz = CDbl(currentRow(1))
KUNDE_ERW.SAVE()
End If
End If
cnt += 1
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
End Try
End While
End Using
End If
End If
Catch ex As Exception
MessageBox.Show("Datei nicht vorhanden.")
Finally
End Try
End Sub
'Private Sub Button26_Click(sender As Object, e As EventArgs)