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

MDM Formulare

Browse Source
This commit is contained in:
d.breimaier
2025-02-06 16:02:22 +01:00
parent 07dc2fea9d
commit 9114e628e2
1 changed files with 13 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
SDL/Formulare/KDFormulare/frmFormulare.vb
View File

@@ -1717,6 +1717,16 @@ Public Class FormularManagerNEU
If usrCntl.txtGruendungsdat.Text <> "" AndAlso IsDate(usrCntl.txtGruendungsdat.Text) Then foundingDateIsValid = True
privateFirma = usrCntl.cbxPrivatfirma.Checked
Dim founding_day As String
Dim founding_year As String
Dim founding_month As String
If foundingDateIsValid Then
founding_day = usrCntl.txtGruendungsdat.Text.ToString.Substring(0, 2)
founding_month = usrCntl.txtGruendungsdat.Text.ToString.Substring(3, 2)
founding_year = usrCntl.txtGruendungsdat.Text.ToString.Substring(6, 4)
End If
For Each item In list
If usrCntl.cboLand._value <> "PL" Then 'PLN NICHT EU überspringen
@@ -1746,9 +1756,9 @@ Public Class FormularManagerNEU
Case "founding_date" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, IIf(foundingDateIsValid, usrCntl.txtGruendungsdat.Text, "")))
Case "founding_day" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, IIf(foundingDateIsValid, usrCntl.txtGruendungsdat.Text.ToString.Substring(0, 2), "")))
Case "founding_month" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, IIf(foundingDateIsValid, usrCntl.txtGruendungsdat.Text.ToString.Substring(3, 2), "")))
Case "founding_year" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, IIf(foundingDateIsValid, usrCntl.txtGruendungsdat.Text.ToString.Substring(6, 4), "")))
Case "founding_day" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, IIf(foundingDateIsValid, founding_day, "")))
Case "founding_month" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, IIf(foundingDateIsValid, founding_month, "")))
Case "founding_year" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, IIf(foundingDateIsValid, founding_year, "")))
'NL
Case "private_no" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, IIf(usrCntl.cbxPrivatfirma.Checked, "Off", "On")))