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

merge

Browse Source
This commit is contained in:
Andreas Luxbauer
2026-01-01 01:02:11 +01:00
parent ff7682582d e3c2ac353d
commit 97f6690550
6 changed files with 328 additions and 235 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
UID/Mitarbeiter/frmMitarbDetails.vb
View File

@@ -151,6 +151,7 @@ Public Class frmMitarbDetails
cbxClientTimas.Items.Clear()
cbxClientTimas.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
cbxClientTimas.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AMBAR", "AMBAR"))
cbxClientTimas.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATILLA", "ATILLA"))
cbxClientTimas.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("FRONTOFFICE", "FO"))
cbxClientTimas.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("IMEX", "IMEX"))

5
UID/usrctlProcedures.Designer.vb generated
View File

@@ -108,7 +108,6 @@ Partial Class usrctlProcedures
Me.Button52 = New System.Windows.Forms.Button()
Me.TabPage8 = New System.Windows.Forms.TabPage()
Me.btnImportTrStat = New System.Windows.Forms.Button()
Me.TabPage9 = New System.Windows.Forms.TabPage()
Me.btnT1Data = New System.Windows.Forms.Button()
Me.TabPage10 = New System.Windows.Forms.TabPage()
Me.txtListTCMrn = New System.Windows.Forms.TextBox()
@@ -116,6 +115,8 @@ Partial Class usrctlProcedures
Me.btnCBAM_ATEZ = New System.Windows.Forms.Button()
Me.txtListDYMrn = New System.Windows.Forms.TextBox()
Me.btnDYtoVERAEZA = New System.Windows.Forms.Button()
Me.TabPage9 = New System.Windows.Forms.TabPage()
Me.btnT1Data = New System.Windows.Forms.Button()
Me.Button18 = New System.Windows.Forms.Button()
Me.TextBox1 = New System.Windows.Forms.TextBox()
Me.lblAnzahl = New System.Windows.Forms.Label()
@@ -845,7 +846,7 @@ Partial Class usrctlProcedures
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.Text = "Vers-Summe"
Me.Button54.UseVisualStyleBackColor = True
'
'Label19

6
UID/usrctlProcedures.vb
View File

@@ -4348,6 +4348,7 @@ OPTION (MAXRECURSION 1000);", "AVISO") '
Case "Vereinigte Staaten" : ISO2SetCountry = "US"
Case "Vereinigtes Königreich" : ISO2SetCountry = "GB"
Case "Bosnien und Herzegowina" : ISO2SetCountry = "BA"
Case "Mauretanien" : ISO2SetCountry = "MR"
End Select
@@ -4380,7 +4381,6 @@ OPTION (MAXRECURSION 1000);", "AVISO") '
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(";")
@@ -4393,8 +4393,8 @@ OPTION (MAXRECURSION 1000);", "AVISO") '
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))
If isleernothing(currentRow(1)) Is Nothing AndAlso isleernothing(currentRow(2)) IsNot Nothing AndAlso IsNumeric(currentRow(2)) Then
KUNDE_ERW.kde_SEG_Summe = CDbl(currentRow(2))
KUNDE_ERW.SAVE()
End If