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

MDM, div.

Browse Source
This commit is contained in:
d.breimaier
2024-08-30 16:55:58 +02:00
parent 3a6ba31756
commit ad7fa10999
13 changed files with 2355 additions and 2029 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1054
SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_MDM_BHI.Designer.vb generated
View File

File diff suppressed because it is too large Load Diff

7
SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_MDM_BHI.vb
View File

@@ -48,12 +48,13 @@ Public Class usrcntlVollmacht_MDM_BHI
Public Sub initKdNR(KdNR)
Me.KdNR = KdNR
Dim KUNDE As New VERAG_PROG_ALLGEMEIN.cKunde(KdNR)
Dim KUNDE_ERW As New VERAG_PROG_ALLGEMEIN.cKundenErweitert(KdNR)
Dim ADRESSE As New VERAG_PROG_ALLGEMEIN.cAdressen(KdNR)
Dim KK_List As New VERAG_PROG_ALLGEMEIN.cKundenKontakteList(KdNR)
Dim GF As cKundenKontakte = KK_List.LIST.Find(Function(c) c.kkd_kkaId = 13 And c.kkd_KundenNr = KdNR)
If GF IsNot Nothing Then
txt_GF_Name.Text = GF.kkd_AnsprechpartnerAnrede & IIf(GF.kkd_AnsprechpartnerNachname <> "", GF.kkd_AnsprechpartnerNachname & " ", "") & IIf(GF.kkd_AnsprechpartnerVorname <> "", GF.kkd_AnsprechpartnerVorname & " ", "")
txt_GF_Name.Text = GF.kkd_AnsprechpartnerAnrede & " " & IIf(GF.kkd_AnsprechpartnerNachname <> "", GF.kkd_AnsprechpartnerNachname & " ", "") & IIf(GF.kkd_AnsprechpartnerVorname <> "", GF.kkd_AnsprechpartnerVorname & " ", "")
If (GF.kkd_GebDatum IsNot Nothing AndAlso IsDate(GF.kkd_GebDatum)) Then
txt_GF_Geb.Text = CDate(GF.kkd_GebDatum).ToShortDateString
@@ -84,6 +85,10 @@ Public Class usrcntlVollmacht_MDM_BHI
txtSteuerNr.Text = If(ADRESSE.Steuernummer, "")
txtEmail.Text = If(ADRESSE.E_Mail, "")
txtAnsprechpartner.Text = (If(ADRESSE.Anrede, "") & " " & If(ADRESSE.Ansprechpartner, "")).trim
cbxKapitalWahrung.changeItem(KUNDE_ERW.kde_KapitalWaehrung)
txtKapital.Text = If(KUNDE_ERW.kde_Kapital, "")
txtHRNr.Text = If(KUNDE_ERW.kde_HRNr, "")
txtGruendungsdat.Text = If(KUNDE_ERW.kde_GruendungsDatum, "")
End Sub

1312
SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_MDM_EU.Designer.vb generated
View File

File diff suppressed because it is too large Load Diff

37
SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_MDM_EU.vb
View File

@@ -49,6 +49,7 @@ Public Class usrcntlVollmacht_MDM_EU
Me.KdNR = KdNR
Dim KUNDE As New VERAG_PROG_ALLGEMEIN.cKunde(KdNR)
Dim ADRESSE As New VERAG_PROG_ALLGEMEIN.cAdressen(KdNR)
Dim KUNDE_ERW As New VERAG_PROG_ALLGEMEIN.cKundenErweitert(KdNR)
Dim KK_List As New VERAG_PROG_ALLGEMEIN.cKundenKontakteList(KdNR)
Dim GF As cKundenKontakte = KK_List.LIST.Find(Function(c) c.kkd_kkaId = 13 And c.kkd_KundenNr = KdNR)
@@ -78,12 +79,17 @@ Public Class usrcntlVollmacht_MDM_EU
txtAdresse2.Text = If(ADRESSE.PLZ, "").ToString.Trim
txtAdresse3.Text = If(ADRESSE.Ort, "").ToString.Trim
txtUid.Text = If(ADRESSE.UstIdKz, "") & If(ADRESSE.UstIdNr, "")
txtEori.Text = If(KUNDE.EORITIN, "")
txtKapital.Text = If(KUNDE.EORITIN, "")
txtTel.Text = If(ADRESSE.Telefon, "")
txtFax.Text = If(ADRESSE.Telefax, "")
txtSteuerNr.Text = If(ADRESSE.Steuernummer, "")
txtEmail.Text = If(ADRESSE.E_Mail, "")
txtAnsprechpartner.Text = (If(ADRESSE.Anrede, "") & " " & If(ADRESSE.Ansprechpartner, "")).trim
cbxKapitalWahrung.changeItem(KUNDE_ERW.kde_KapitalWaehrung)
txtKapital.Text = If(KUNDE_ERW.kde_Kapital, "")
txtHRNr.Text = If(KUNDE_ERW.kde_HRNr, "")
txtGruendungsdat.Text = If(KUNDE_ERW.kde_GruendungsDatum, "")
End Sub
@@ -106,25 +112,28 @@ Public Class usrcntlVollmacht_MDM_EU
cboLand.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Belgium", "BE"))
cboLand.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Czech Rep", "CZ"))
cboLand.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Denmark", "DK"))
'cboLand.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("France", "FR"))
'cboLand.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Germany", "DE"))
'cboLand.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Hungary", "HU"))
'cboLand.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Italy", "IT"))
'cboLand.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Lithuania", "LT"))
'cboLand.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Luxenbourg", "LU"))
'cboLand.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Netherlands", "NL"))
'cboLand.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Norway", "NO"))
'cboLand.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Poland", "PL"))
'cboLand.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Romania", "RO"))
'cboLand.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Slovakia", "SK"))
'cboLand.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Slovenia", "SI"))
'cboLand.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Spain", "ES"))
cboLand.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Spain", "ES"))
cboLand.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("France", "FR"))
cboLand.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Great Britain", "GB"))
cboLand.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Hungary", "HU"))
cboLand.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Italy", "IT"))
cboLand.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Luxenbourg", "LU"))
cboLand.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Netherlands", "NL"))
cboLand.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Poland", "PL"))
cboLand.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Romania", "RO"))
cboLand.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Sweden", "SE"))
cboLand.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Slovakia", "SK"))
cboLand.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Slovenia", "SI"))
cboLand.changeItem("AT")
cbxLandKz.fillWithSQL("select distinct landkz, Währungstabelle.Land from Währungstabelle where landkz is not null order by LandKz", , "FMZOLL", True)
cbx_GF_Land.Items.AddRange(cbxLandKz.Items.Cast(Of VERAG_PROG_ALLGEMEIN.MyListItem).ToArray())
cbxKapitalWahrung.fillWithSQL("SELECT [Währungscode],[Land] FROM Währungstabelle ORDER BY Währungscode", , "FMZOLL", False)
txtEmailzurueck.Text = "juricevic@verag.ag"
txtOrt.Text = "Suben"

1334
SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_MDM_NICHT_EU.Designer.vb generated
View File

File diff suppressed because it is too large Load Diff

8
SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_MDM_NICHT_EU.vb
View File

@@ -48,12 +48,13 @@ Public Class usrcntlVollmacht_MDM_NICHT_EU
Public Sub initKdNR(KdNR)
Me.KdNR = KdNR
Dim KUNDE As New VERAG_PROG_ALLGEMEIN.cKunde(KdNR)
Dim KUNDE_ERW As New VERAG_PROG_ALLGEMEIN.cKundenErweitert(KdNR)
Dim ADRESSE As New VERAG_PROG_ALLGEMEIN.cAdressen(KdNR)
Dim KK_List As New VERAG_PROG_ALLGEMEIN.cKundenKontakteList(KdNR)
Dim GF As cKundenKontakte = KK_List.LIST.Find(Function(c) c.kkd_kkaId = 13 And c.kkd_KundenNr = KdNR)
If GF IsNot Nothing Then
txt_GF_Name.Text = GF.kkd_AnsprechpartnerAnrede & IIf(GF.kkd_AnsprechpartnerNachname <> "", GF.kkd_AnsprechpartnerNachname & " ", "") & IIf(GF.kkd_AnsprechpartnerVorname <> "", GF.kkd_AnsprechpartnerVorname & " ", "")
txt_GF_Name.Text = GF.kkd_AnsprechpartnerAnrede & " " & IIf(GF.kkd_AnsprechpartnerNachname <> "", GF.kkd_AnsprechpartnerNachname & " ", "") & IIf(GF.kkd_AnsprechpartnerVorname <> "", GF.kkd_AnsprechpartnerVorname & " ", "")
If (GF.kkd_GebDatum IsNot Nothing AndAlso IsDate(GF.kkd_GebDatum)) Then
txt_GF_Geb.Text = CDate(GF.kkd_GebDatum).ToShortDateString
@@ -78,12 +79,15 @@ Public Class usrcntlVollmacht_MDM_NICHT_EU
txtAdresse2.Text = If(ADRESSE.PLZ, "").ToString.Trim
txtAdresse3.Text = If(ADRESSE.Ort, "").ToString.Trim
txtUid.Text = If(ADRESSE.UstIdKz, "") & If(ADRESSE.UstIdNr, "")
txtEori.Text = If(KUNDE.EORITIN, "")
txtTel.Text = If(ADRESSE.Telefon, "")
txtFax.Text = If(ADRESSE.Telefax, "")
txtSteuerNr.Text = If(ADRESSE.Steuernummer, "")
txtEmail.Text = If(ADRESSE.E_Mail, "")
txtAnsprechpartner.Text = (If(ADRESSE.Anrede, "") & " " & If(ADRESSE.Ansprechpartner, "")).trim
cbxKapitalWahrung.changeItem(KUNDE_ERW.kde_KapitalWaehrung)
txtKapital.Text = If(KUNDE_ERW.kde_Kapital, "")
txtHRNr.Text = If(KUNDE_ERW.kde_HRNr, "")
txtGruendungsdat.Text = If(KUNDE_ERW.kde_GruendungsDatum, "")
End Sub

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

@@ -8,6 +8,7 @@ Imports System.Reflection
Imports System.Text.RegularExpressions
Imports System.Windows.Documents
Imports VERAG_PROG_ALLGEMEIN
Imports sun.jdbc
Public Class frmFormulare
Dim isSingleForm = False
@@ -258,11 +259,8 @@ Public Class frmFormulare
If VERAG_PROG_ALLGEMEIN.cAllgemein.PROGID = "7" Then 'SDL
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Vollmacht BHI", FormularManagerArten.MDM_Vollmacht_BHI))
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Vollmacht EU", FormularManagerArten.MDM_Vollmacht_EU))
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Vollmacht NICHT EU", FormularManagerArten.MDM_Vollmacht_NICHT_EU))
'MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("EU Vollmacht", FormularManagerArten.MDM_Vollmacht))
'MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("RO Vollmacht", FormularManagerArten.MDM_Vollmacht))
'MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("TR Vollmacht", FormularManagerArten.MDM_Vollmacht))
'MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("YU Vollmacht", FormularManagerArten.MDM_Vollmacht))
'MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Vollmacht NICHT EU", FormularManagerArten.MDM_Vollmacht_NICHT_EU))
Else
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DE Vollmacht", FormularManagerArten.DE_Vollmacht))
@@ -1653,6 +1651,8 @@ Public Class FormularManagerNEU
Case "firstname" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txt_GF_Name.Text))
Case "place" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtOrt.Text))
Case "place_date" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtOrt.Text & " " & usrCntl.datDatum.ToString("ddMMyyyy")))
Case "capital" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtKapital.Text & " " & usrCntl.cbxKapitalWahrung._value))
Case "crnumber" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtHRNr.Text))
End Select
@@ -1686,6 +1686,8 @@ Public Class FormularManagerNEU
Dim docBez As String = ""
docBez = "VOLLMACHT_NICHTEU_" & usrCntl.cboLand._value
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "VOLLMACHTEN", "MDM", "", docBez)
Dim pfadWord = DS.GET_TOP1_PATH(False)
@@ -1709,6 +1711,7 @@ Public Class FormularManagerNEU
Case "country" : odoc.FormFields(fieldName).Range.Text = usrCntl.cbxLandKz.Text
Case "place" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtAdresse3.Text
Case "street" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtAdresse1.Text
Case "surname_firstname" : odoc.FormFields(fieldName).Range.Text = IIf(usrCntl.txt_GF_Name.Text <> "", usrCntl.txt_GF_Name.Text, "")
Case "vatno" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtUid.Text
Case "mailcontact" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtEmail.Text ' TODO: neues Feld im formular
Case "phone" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtEmail.Text ' TODO: neues Feld im formular
@@ -1730,6 +1733,8 @@ Public Class FormularManagerNEU
Case "c_iban" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_IBAN1.Replace("IBAN:", "")
Case "c_bic" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_BIC1.Replace("BIC:", "")
Case "place_date" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtOrt.Text & ", " & usrCntl.datDatum.Value.ToString("dd-MM-yyyy")
Case "capital" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtKapital.Text & " " & usrCntl.cbxKapitalWahrung._value
Case "crnumber" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtHRNr.Text
'Case "company" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtFirma.Text))
'Case "address" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtAdresse1.Text & " " & usrCntl.txtAdresse2.Text & " " & usrCntl.txtAdresse3.Text))
@@ -1771,7 +1776,7 @@ Public Class FormularManagerNEU
Else
'oWord.Visible = True
Dim path = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath("VM_EU_" & usrCntl.cboLand._value & ".pdf", ".pdf", True, False)
Dim path = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath("VOLLMACHT_NICHTEU_" & usrCntl.cboLand._value & ".pdf", ".pdf", True, False)
odoc.SaveAs(path, Word.WdSaveFormat.wdFormatPDF)
@@ -1810,6 +1815,8 @@ Public Class FormularManagerNEU
Dim docBez As String = ""
docBez = "VOLLMACHT_" & usrCntl.cboLand._value
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "VOLLMACHTEN", "MDM", "", docBez)
Dim pfadWord = DS.GET_TOP1_PATH(False)
@@ -1833,7 +1840,7 @@ Public Class FormularManagerNEU
Case "country" : odoc.FormFields(fieldName).Range.Text = usrCntl.cbxLandKz.Text
Case "place" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtAdresse3.Text
Case "street" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtAdresse1.Text
Case "surname_firstname" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtHerrFrau.Text
Case "surname_firstname" : odoc.FormFields(fieldName).Range.Text = IIf(usrCntl.txt_GF_Name.Text <> "", usrCntl.txt_GF_Name.Text, usrCntl.txtHerrFrau.Text)
Case "vatno" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtUid.Text
Case "mailcontact" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtEmail.Text ' TODO: neues Feld im formular
Case "phone" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtEmail.Text ' TODO: neues Feld im formular
@@ -1855,6 +1862,8 @@ Public Class FormularManagerNEU
Case "c_iban" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_IBAN1.Replace("IBAN:", "")
Case "c_bic" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_BIC1.Replace("BIC:", "")
Case "place_date" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtOrt.Text & ", " & usrCntl.datDatum.Value.ToString("dd-MM-yyyy")
Case "capital" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtKapital.Text & " " & usrCntl.cbxKapitalWahrung._value
Case "crnumber" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtHRNr.Text
'Case "company" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtFirma.Text))
'Case "address" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtAdresse1.Text & " " & usrCntl.txtAdresse2.Text & " " & usrCntl.txtAdresse3.Text))
@@ -1896,7 +1905,7 @@ Public Class FormularManagerNEU
Else
'oWord.Visible = True
Dim path = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath("VM_EU_" & usrCntl.cboLand._value & ".pdf", ".pdf", True, False)
Dim path = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath("VOLLMACHT_" & usrCntl.cboLand._value & ".pdf", ".pdf", True, False)
odoc.SaveAs(path, Word.WdSaveFormat.wdFormatPDF)

136
SDL/kunden/frmKundenKontakteDetails.Designer.vb generated
View File

@@ -35,9 +35,7 @@ Partial Class frmKundenKontakteDetails
Me.PictureBox3 = New System.Windows.Forms.PictureBox()
Me.PictureBox5 = New System.Windows.Forms.PictureBox()
Me.lbl = New System.Windows.Forms.Label()
Me.cboKontaktArt = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.lblAnsprechpartnerVN = New System.Windows.Forms.TextBox()
Me.cboMannFrau = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.lblEmailCC = New System.Windows.Forms.TextBox()
Me.PictureBox6 = New System.Windows.Forms.PictureBox()
Me.lblEmailBCC = New System.Windows.Forms.TextBox()
@@ -46,14 +44,16 @@ Partial Class frmKundenKontakteDetails
Me.Label2 = New System.Windows.Forms.Label()
Me.txtStrasse = New System.Windows.Forms.TextBox()
Me.txtOrt = New System.Windows.Forms.TextBox()
Me.cbxLand = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.txtPLZ = New System.Windows.Forms.TextBox()
Me.txtGebDatum = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.PictureBox8 = New System.Windows.Forms.PictureBox()
Me.PictureBox9 = New System.Windows.Forms.PictureBox()
Me.PictureBox10 = New System.Windows.Forms.PictureBox()
Me.Label3 = New System.Windows.Forms.Label()
Me.Label4 = New System.Windows.Forms.Label()
Me.txtGebDatum = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.cbxLand = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.cboMannFrau = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.cboKontaktArt = New VERAG_PROG_ALLGEMEIN.MyComboBox()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -196,18 +196,6 @@ Partial Class frmKundenKontakteDetails
Me.lbl.TabIndex = 0
Me.lbl.Text = "Kontaktart:"
'
'cboKontaktArt
'
Me.cboKontaktArt._allowedValuesFreiText = Nothing
Me.cboKontaktArt._allowFreiText = False
Me.cboKontaktArt._value = ""
Me.cboKontaktArt.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!)
Me.cboKontaktArt.FormattingEnabled = True
Me.cboKontaktArt.Location = New System.Drawing.Point(9, 29)
Me.cboKontaktArt.Name = "cboKontaktArt"
Me.cboKontaktArt.Size = New System.Drawing.Size(495, 28)
Me.cboKontaktArt.TabIndex = 1
'
'lblAnsprechpartnerVN
'
Me.lblAnsprechpartnerVN.BackColor = System.Drawing.Color.White
@@ -219,18 +207,6 @@ Partial Class frmKundenKontakteDetails
Me.lblAnsprechpartnerVN.TabIndex = 7
Me.lblAnsprechpartnerVN.Text = "ansprechpartner"
'
'cboMannFrau
'
Me.cboMannFrau._allowedValuesFreiText = Nothing
Me.cboMannFrau._allowFreiText = False
Me.cboMannFrau._value = ""
Me.cboMannFrau.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.0!)
Me.cboMannFrau.FormattingEnabled = True
Me.cboMannFrau.Location = New System.Drawing.Point(52, 239)
Me.cboMannFrau.Name = "cboMannFrau"
Me.cboMannFrau.Size = New System.Drawing.Size(54, 26)
Me.cboMannFrau.TabIndex = 6
'
'lblEmailCC
'
Me.lblEmailCC.BackColor = System.Drawing.Color.White
@@ -317,19 +293,6 @@ Partial Class frmKundenKontakteDetails
Me.txtOrt.TabIndex = 203
Me.txtOrt.Text = "ort"
'
'cbxLand
'
Me.cbxLand._allowedValuesFreiText = Nothing
Me.cbxLand._allowFreiText = False
Me.cbxLand._value = ""
Me.cbxLand.DropDownWidth = 150
Me.cbxLand.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.0!)
Me.cbxLand.FormattingEnabled = True
Me.cbxLand.Location = New System.Drawing.Point(120, 303)
Me.cbxLand.Name = "cbxLand"
Me.cbxLand.Size = New System.Drawing.Size(41, 26)
Me.cbxLand.TabIndex = 205
'
'txtPLZ
'
Me.txtPLZ.BackColor = System.Drawing.Color.White
@@ -341,33 +304,6 @@ Partial Class frmKundenKontakteDetails
Me.txtPLZ.TabIndex = 206
Me.txtPLZ.Text = "plz"
'
'txtGebDatum
'
Me.txtGebDatum._DateTimeOnly = False
Me.txtGebDatum._numbersOnly = False
Me.txtGebDatum._numbersOnlyKommastellen = ""
Me.txtGebDatum._numbersOnlyTrennzeichen = True
Me.txtGebDatum._Prozent = False
Me.txtGebDatum._ShortDateNew = True
Me.txtGebDatum._ShortDateOnly = False
Me.txtGebDatum._TimeOnly = False
Me.txtGebDatum._TimeOnly_Seconds = False
Me.txtGebDatum._value = "geburtsdatum"
Me.txtGebDatum._Waehrung = False
Me.txtGebDatum._WaehrungZeichen = False
Me.txtGebDatum.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtGebDatum.ForeColor = System.Drawing.Color.Black
Me.txtGebDatum.Location = New System.Drawing.Point(120, 332)
Me.txtGebDatum.MaxLength = 10
Me.txtGebDatum.MaxLineLength = -1
Me.txtGebDatum.MaxLines_Warning = ""
Me.txtGebDatum.MaxLines_Warning_Label = Nothing
Me.txtGebDatum.Multiline = True
Me.txtGebDatum.Name = "txtGebDatum"
Me.txtGebDatum.Size = New System.Drawing.Size(200, 26)
Me.txtGebDatum.TabIndex = 207
Me.txtGebDatum.Text = "geburtsdatum"
'
'PictureBox8
'
Me.PictureBox8.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None
@@ -419,6 +355,70 @@ Partial Class frmKundenKontakteDetails
Me.Label4.TabIndex = 212
Me.Label4.Text = "Geb-Dat.:"
'
'txtGebDatum
'
Me.txtGebDatum._DateTimeOnly = False
Me.txtGebDatum._numbersOnly = False
Me.txtGebDatum._numbersOnlyKommastellen = ""
Me.txtGebDatum._numbersOnlyTrennzeichen = True
Me.txtGebDatum._Prozent = False
Me.txtGebDatum._ShortDateNew = True
Me.txtGebDatum._ShortDateOnly = False
Me.txtGebDatum._TimeOnly = False
Me.txtGebDatum._TimeOnly_Seconds = False
Me.txtGebDatum._value = "geburtsdatum"
Me.txtGebDatum._Waehrung = False
Me.txtGebDatum._WaehrungZeichen = False
Me.txtGebDatum.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtGebDatum.ForeColor = System.Drawing.Color.Black
Me.txtGebDatum.Location = New System.Drawing.Point(120, 332)
Me.txtGebDatum.MaxLength = 10
Me.txtGebDatum.MaxLineLength = -1
Me.txtGebDatum.MaxLines_Warning = ""
Me.txtGebDatum.MaxLines_Warning_Label = Nothing
Me.txtGebDatum.Multiline = True
Me.txtGebDatum.Name = "txtGebDatum"
Me.txtGebDatum.Size = New System.Drawing.Size(146, 26)
Me.txtGebDatum.TabIndex = 207
Me.txtGebDatum.Text = "geburtsdatum"
'
'cbxLand
'
Me.cbxLand._allowedValuesFreiText = Nothing
Me.cbxLand._allowFreiText = False
Me.cbxLand._value = ""
Me.cbxLand.DropDownWidth = 150
Me.cbxLand.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.0!)
Me.cbxLand.FormattingEnabled = True
Me.cbxLand.Location = New System.Drawing.Point(120, 303)
Me.cbxLand.Name = "cbxLand"
Me.cbxLand.Size = New System.Drawing.Size(41, 26)
Me.cbxLand.TabIndex = 205
'
'cboMannFrau
'
Me.cboMannFrau._allowedValuesFreiText = Nothing
Me.cboMannFrau._allowFreiText = False
Me.cboMannFrau._value = ""
Me.cboMannFrau.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.0!)
Me.cboMannFrau.FormattingEnabled = True
Me.cboMannFrau.Location = New System.Drawing.Point(52, 239)
Me.cboMannFrau.Name = "cboMannFrau"
Me.cboMannFrau.Size = New System.Drawing.Size(54, 26)
Me.cboMannFrau.TabIndex = 6
'
'cboKontaktArt
'
Me.cboKontaktArt._allowedValuesFreiText = Nothing
Me.cboKontaktArt._allowFreiText = False
Me.cboKontaktArt._value = ""
Me.cboKontaktArt.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!)
Me.cboKontaktArt.FormattingEnabled = True
Me.cboKontaktArt.Location = New System.Drawing.Point(9, 29)
Me.cboKontaktArt.Name = "cboKontaktArt"
Me.cboKontaktArt.Size = New System.Drawing.Size(495, 28)
Me.cboKontaktArt.TabIndex = 1
'
'frmKundenKontakteDetails
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)

398
SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb generated
View File

@@ -22,22 +22,22 @@ Partial Class usrcntlKundeBearbeitenFull
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Dim DataGridViewCellStyle17 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle18 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle19 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle20 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle21 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle22 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle23 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle24 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle25 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle26 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle27 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle28 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle29 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle30 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle31 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle32 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle11 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle12 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle13 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle14 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle15 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle16 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Me.tbcntrDetails = New System.Windows.Forms.TabControl()
Me.tbAbfertigung = New System.Windows.Forms.TabPage()
Me.cbxVerzolltBeiExport = New System.Windows.Forms.CheckBox()
@@ -93,6 +93,9 @@ Partial Class usrcntlKundeBearbeitenFull
Me.tbFiskal = New System.Windows.Forms.TabPage()
Me.UsrCntlKundeFiskaldaten1 = New SDL.usrCntlKundeFiskaldaten()
Me.tbVerrechnung = New System.Windows.Forms.TabPage()
Me.cbxKapitalWaehrung = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Label103 = New System.Windows.Forms.Label()
Me.txtKapital = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label101 = New System.Windows.Forms.Label()
Me.txtAbwZZVL = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.cbxSndDatenAusSTB = New System.Windows.Forms.CheckBox()
@@ -264,6 +267,8 @@ Partial Class usrcntlKundeBearbeitenFull
Me.lblEORI = New System.Windows.Forms.Label()
Me.Label84 = New System.Windows.Forms.Label()
Me.GroupBox3 = New System.Windows.Forms.GroupBox()
Me.txtGruendungsDatum = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label33 = New System.Windows.Forms.Label()
Me.txtHandelsregisterNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.PictureBox5 = New System.Windows.Forms.PictureBox()
Me.Label100 = New System.Windows.Forms.Label()
@@ -344,11 +349,6 @@ Partial Class usrcntlKundeBearbeitenFull
Me.cboFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.cboAuswahl = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.MyTextBox1 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label33 = New System.Windows.Forms.Label()
Me.Label103 = New System.Windows.Forms.Label()
Me.txtKapital = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.cbxKapitalWaehrung = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.tbcntrDetails.SuspendLayout()
Me.tbAbfertigung.SuspendLayout()
Me.tbcntrAbf.SuspendLayout()
@@ -1127,6 +1127,56 @@ Partial Class usrcntlKundeBearbeitenFull
Me.tbVerrechnung.Text = "Verrechnung"
Me.tbVerrechnung.UseVisualStyleBackColor = True
'
'cbxKapitalWaehrung
'
Me.cbxKapitalWaehrung._allowedValuesFreiText = Nothing
Me.cbxKapitalWaehrung._allowFreiText = False
Me.cbxKapitalWaehrung._value = ""
Me.cbxKapitalWaehrung.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
Me.cbxKapitalWaehrung.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cbxKapitalWaehrung.DropDownWidth = 200
Me.cbxKapitalWaehrung.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.cbxKapitalWaehrung.ForeColor = System.Drawing.Color.Black
Me.cbxKapitalWaehrung.FormattingEnabled = True
Me.cbxKapitalWaehrung.Location = New System.Drawing.Point(191, 293)
Me.cbxKapitalWaehrung.Name = "cbxKapitalWaehrung"
Me.cbxKapitalWaehrung.Size = New System.Drawing.Size(47, 21)
Me.cbxKapitalWaehrung.TabIndex = 45
'
'Label103
'
Me.Label103.AutoSize = True
Me.Label103.Location = New System.Drawing.Point(12, 296)
Me.Label103.Name = "Label103"
Me.Label103.Size = New System.Drawing.Size(42, 13)
Me.Label103.TabIndex = 43
Me.Label103.Text = "Kapital:"
'
'txtKapital
'
Me.txtKapital._DateTimeOnly = False
Me.txtKapital._numbersOnly = True
Me.txtKapital._numbersOnlyKommastellen = ""
Me.txtKapital._numbersOnlyTrennzeichen = False
Me.txtKapital._Prozent = False
Me.txtKapital._ShortDateNew = False
Me.txtKapital._ShortDateOnly = False
Me.txtKapital._TimeOnly = False
Me.txtKapital._TimeOnly_Seconds = False
Me.txtKapital._value = ""
Me.txtKapital._Waehrung = True
Me.txtKapital._WaehrungZeichen = False
Me.txtKapital.ForeColor = System.Drawing.Color.Red
Me.txtKapital.Location = New System.Drawing.Point(76, 293)
Me.txtKapital.MaxLength = 10
Me.txtKapital.MaxLineLength = -1
Me.txtKapital.MaxLines_Warning = ""
Me.txtKapital.MaxLines_Warning_Label = Nothing
Me.txtKapital.Name = "txtKapital"
Me.txtKapital.Size = New System.Drawing.Size(109, 20)
Me.txtKapital.TabIndex = 44
Me.txtKapital.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
'
'Label101
'
Me.Label101.AutoSize = True
@@ -2644,8 +2694,8 @@ Partial Class usrcntlKundeBearbeitenFull
Me.dgvUmsatzbericht.AllowUserToDeleteRows = False
Me.dgvUmsatzbericht.AllowUserToOrderColumns = True
Me.dgvUmsatzbericht.AllowUserToResizeRows = False
DataGridViewCellStyle17.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.dgvUmsatzbericht.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle17
DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.dgvUmsatzbericht.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
Me.dgvUmsatzbericht.BackgroundColor = System.Drawing.Color.White
Me.dgvUmsatzbericht.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvUmsatzbericht.Location = New System.Drawing.Point(6, 25)
@@ -2744,8 +2794,8 @@ Partial Class usrcntlKundeBearbeitenFull
Me.dgvOffenePosten.AllowUserToDeleteRows = False
Me.dgvOffenePosten.AllowUserToOrderColumns = True
Me.dgvOffenePosten.AllowUserToResizeRows = False
DataGridViewCellStyle18.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.dgvOffenePosten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle18
DataGridViewCellStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.dgvOffenePosten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
Me.dgvOffenePosten.BackgroundColor = System.Drawing.Color.White
Me.dgvOffenePosten.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvOffenePosten.Location = New System.Drawing.Point(6, 38)
@@ -2905,41 +2955,41 @@ Partial Class usrcntlKundeBearbeitenFull
Me.dgvKreditkarten.AllowUserToDeleteRows = False
Me.dgvKreditkarten.AllowUserToOrderColumns = True
Me.dgvKreditkarten.AllowUserToResizeRows = False
DataGridViewCellStyle19.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.dgvKreditkarten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle19
DataGridViewCellStyle3.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.dgvKreditkarten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3
Me.dgvKreditkarten.BackgroundColor = System.Drawing.Color.White
DataGridViewCellStyle20.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle20.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle20.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle20.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle20.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle20.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle20.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvKreditkarten.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle20
DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle4.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle4.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle4.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle4.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvKreditkarten.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle4
Me.dgvKreditkarten.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
DataGridViewCellStyle21.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle21.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle21.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle21.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle21.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle21.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle21.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.dgvKreditkarten.DefaultCellStyle = DataGridViewCellStyle21
DataGridViewCellStyle5.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle5.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle5.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle5.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle5.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.dgvKreditkarten.DefaultCellStyle = DataGridViewCellStyle5
Me.dgvKreditkarten.Location = New System.Drawing.Point(9, 20)
Me.dgvKreditkarten.MultiSelect = False
Me.dgvKreditkarten.Name = "dgvKreditkarten"
Me.dgvKreditkarten.ReadOnly = True
DataGridViewCellStyle22.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle22.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle22.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle22.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle22.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle22.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle22.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvKreditkarten.RowHeadersDefaultCellStyle = DataGridViewCellStyle22
DataGridViewCellStyle6.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle6.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle6.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle6.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle6.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvKreditkarten.RowHeadersDefaultCellStyle = DataGridViewCellStyle6
Me.dgvKreditkarten.RowHeadersVisible = False
DataGridViewCellStyle23.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.dgvKreditkarten.RowsDefaultCellStyle = DataGridViewCellStyle23
DataGridViewCellStyle7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.dgvKreditkarten.RowsDefaultCellStyle = DataGridViewCellStyle7
Me.dgvKreditkarten.RowTemplate.DefaultCellStyle.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.dgvKreditkarten.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.dgvKreditkarten.Size = New System.Drawing.Size(642, 312)
@@ -3079,26 +3129,26 @@ Partial Class usrcntlKundeBearbeitenFull
'
'dgvUstv_LaenderUndSteuernummern
'
DataGridViewCellStyle24.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.dgvUstv_LaenderUndSteuernummern.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle24
DataGridViewCellStyle8.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.dgvUstv_LaenderUndSteuernummern.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle8
Me.dgvUstv_LaenderUndSteuernummern.BackgroundColor = System.Drawing.Color.White
DataGridViewCellStyle25.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle25.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle25.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle25.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle25.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle25.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle25.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvUstv_LaenderUndSteuernummern.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle25
DataGridViewCellStyle9.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle9.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle9.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle9.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle9.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle9.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvUstv_LaenderUndSteuernummern.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle9
Me.dgvUstv_LaenderUndSteuernummern.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
DataGridViewCellStyle26.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle26.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle26.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle26.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle26.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle26.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle26.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.dgvUstv_LaenderUndSteuernummern.DefaultCellStyle = DataGridViewCellStyle26
DataGridViewCellStyle10.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle10.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle10.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle10.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle10.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle10.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle10.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.dgvUstv_LaenderUndSteuernummern.DefaultCellStyle = DataGridViewCellStyle10
Me.dgvUstv_LaenderUndSteuernummern.Location = New System.Drawing.Point(9, 94)
Me.dgvUstv_LaenderUndSteuernummern.Name = "dgvUstv_LaenderUndSteuernummern"
Me.dgvUstv_LaenderUndSteuernummern.Size = New System.Drawing.Size(657, 321)
@@ -3336,26 +3386,26 @@ Partial Class usrcntlKundeBearbeitenFull
'dgvSonst_IDSKunden
'
Me.dgvSonst_IDSKunden.AllowUserToResizeRows = False
DataGridViewCellStyle27.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.dgvSonst_IDSKunden.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle27
DataGridViewCellStyle11.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.dgvSonst_IDSKunden.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle11
Me.dgvSonst_IDSKunden.BackgroundColor = System.Drawing.Color.White
DataGridViewCellStyle28.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle28.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle28.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle28.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle28.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle28.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle28.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvSonst_IDSKunden.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle28
DataGridViewCellStyle12.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle12.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle12.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle12.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle12.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle12.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle12.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvSonst_IDSKunden.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle12
Me.dgvSonst_IDSKunden.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
DataGridViewCellStyle29.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle29.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle29.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle29.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle29.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle29.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle29.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.dgvSonst_IDSKunden.DefaultCellStyle = DataGridViewCellStyle29
DataGridViewCellStyle13.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle13.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle13.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle13.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle13.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle13.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle13.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.dgvSonst_IDSKunden.DefaultCellStyle = DataGridViewCellStyle13
Me.dgvSonst_IDSKunden.Location = New System.Drawing.Point(9, 251)
Me.dgvSonst_IDSKunden.MultiSelect = False
Me.dgvSonst_IDSKunden.Name = "dgvSonst_IDSKunden"
@@ -3536,7 +3586,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.tbSchnittstellen.Location = New System.Drawing.Point(4, 22)
Me.tbSchnittstellen.Name = "tbSchnittstellen"
Me.tbSchnittstellen.Padding = New System.Windows.Forms.Padding(3)
Me.tbSchnittstellen.Size = New System.Drawing.Size(672, 458)
Me.tbSchnittstellen.Size = New System.Drawing.Size(672, 495)
Me.tbSchnittstellen.TabIndex = 10
Me.tbSchnittstellen.Text = "Schnittstellen"
Me.tbSchnittstellen.UseVisualStyleBackColor = True
@@ -3573,26 +3623,26 @@ Partial Class usrcntlKundeBearbeitenFull
'DataGridView1
'
Me.DataGridView1.AllowUserToResizeRows = False
DataGridViewCellStyle30.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.DataGridView1.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle30
DataGridViewCellStyle14.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.DataGridView1.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle14
Me.DataGridView1.BackgroundColor = System.Drawing.Color.White
DataGridViewCellStyle31.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle31.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle31.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle31.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle31.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle31.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle31.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.DataGridView1.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle31
DataGridViewCellStyle15.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle15.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle15.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle15.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle15.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle15.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle15.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.DataGridView1.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle15
Me.DataGridView1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
DataGridViewCellStyle32.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle32.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle32.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle32.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle32.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle32.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle32.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.DataGridView1.DefaultCellStyle = DataGridViewCellStyle32
DataGridViewCellStyle16.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle16.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle16.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle16.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle16.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle16.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle16.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.DataGridView1.DefaultCellStyle = DataGridViewCellStyle16
Me.DataGridView1.Enabled = False
Me.DataGridView1.Location = New System.Drawing.Point(9, 93)
Me.DataGridView1.MultiSelect = False
@@ -3606,7 +3656,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.tbZahlungsinfo.Controls.Add(Me.rtb_Zahlungsinfo)
Me.tbZahlungsinfo.Location = New System.Drawing.Point(4, 22)
Me.tbZahlungsinfo.Name = "tbZahlungsinfo"
Me.tbZahlungsinfo.Size = New System.Drawing.Size(672, 458)
Me.tbZahlungsinfo.Size = New System.Drawing.Size(672, 495)
Me.tbZahlungsinfo.TabIndex = 11
Me.tbZahlungsinfo.Text = "Zahlungsinfo"
Me.tbZahlungsinfo.UseVisualStyleBackColor = True
@@ -3651,7 +3701,7 @@ Partial Class usrcntlKundeBearbeitenFull
'
'GroupBox3
'
Me.GroupBox3.Controls.Add(Me.MyTextBox1)
Me.GroupBox3.Controls.Add(Me.txtGruendungsDatum)
Me.GroupBox3.Controls.Add(Me.Label33)
Me.GroupBox3.Controls.Add(Me.txtHandelsregisterNr)
Me.GroupBox3.Controls.Add(Me.PictureBox5)
@@ -3685,12 +3735,47 @@ Partial Class usrcntlKundeBearbeitenFull
Me.GroupBox3.TabStop = False
Me.GroupBox3.Text = "Firma"
'
'txtGruendungsDatum
'
Me.txtGruendungsDatum._DateTimeOnly = False
Me.txtGruendungsDatum._numbersOnly = False
Me.txtGruendungsDatum._numbersOnlyKommastellen = ""
Me.txtGruendungsDatum._numbersOnlyTrennzeichen = True
Me.txtGruendungsDatum._Prozent = False
Me.txtGruendungsDatum._ShortDateNew = True
Me.txtGruendungsDatum._ShortDateOnly = False
Me.txtGruendungsDatum._TimeOnly = False
Me.txtGruendungsDatum._TimeOnly_Seconds = False
Me.txtGruendungsDatum._value = ""
Me.txtGruendungsDatum._Waehrung = False
Me.txtGruendungsDatum._WaehrungZeichen = True
Me.txtGruendungsDatum.ForeColor = System.Drawing.Color.Red
Me.txtGruendungsDatum.Location = New System.Drawing.Point(110, 183)
Me.txtGruendungsDatum.MaxLength = 10
Me.txtGruendungsDatum.MaxLineLength = -1
Me.txtGruendungsDatum.MaxLines_Warning = ""
Me.txtGruendungsDatum.MaxLines_Warning_Label = Nothing
Me.txtGruendungsDatum.Name = "txtGruendungsDatum"
Me.txtGruendungsDatum.Size = New System.Drawing.Size(120, 20)
Me.txtGruendungsDatum.TabIndex = 135
Me.txtGruendungsDatum.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
'
'Label33
'
Me.Label33.AutoSize = True
Me.Label33.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label33.Location = New System.Drawing.Point(10, 186)
Me.Label33.Name = "Label33"
Me.Label33.Size = New System.Drawing.Size(75, 13)
Me.Label33.TabIndex = 134
Me.Label33.Text = "gegründet am:"
'
'txtHandelsregisterNr
'
Me.txtHandelsregisterNr._DateTimeOnly = False
Me.txtHandelsregisterNr._numbersOnly = False
Me.txtHandelsregisterNr._numbersOnlyKommastellen = ""
Me.txtHandelsregisterNr._numbersOnlyTrennzeichen = True
Me.txtHandelsregisterNr._numbersOnlyTrennzeichen = False
Me.txtHandelsregisterNr._Prozent = False
Me.txtHandelsregisterNr._ShortDateNew = False
Me.txtHandelsregisterNr._ShortDateOnly = False
@@ -3698,7 +3783,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.txtHandelsregisterNr._TimeOnly_Seconds = False
Me.txtHandelsregisterNr._value = ""
Me.txtHandelsregisterNr._Waehrung = False
Me.txtHandelsregisterNr._WaehrungZeichen = True
Me.txtHandelsregisterNr._WaehrungZeichen = False
Me.txtHandelsregisterNr.ForeColor = System.Drawing.Color.Black
Me.txtHandelsregisterNr.Location = New System.Drawing.Point(111, 134)
Me.txtHandelsregisterNr.MaxLength = 17
@@ -3708,7 +3793,6 @@ Partial Class usrcntlKundeBearbeitenFull
Me.txtHandelsregisterNr.Name = "txtHandelsregisterNr"
Me.txtHandelsregisterNr.Size = New System.Drawing.Size(126, 20)
Me.txtHandelsregisterNr.TabIndex = 133
Me.txtHandelsregisterNr.Visible = False
'
'PictureBox5
'
@@ -4001,7 +4085,6 @@ Partial Class usrcntlKundeBearbeitenFull
Me.lblHandelregisterNr.Size = New System.Drawing.Size(100, 13)
Me.lblHandelregisterNr.TabIndex = 132
Me.lblHandelregisterNr.Text = "Handelsregister-Nr.:"
Me.lblHandelregisterNr.Visible = False
'
'GroupBox1
'
@@ -4642,91 +4725,6 @@ Partial Class usrcntlKundeBearbeitenFull
Me.DataGridViewTextBoxColumn2.HeaderText = "E-Mail"
Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2"
'
'MyTextBox1
'
Me.MyTextBox1._DateTimeOnly = False
Me.MyTextBox1._numbersOnly = False
Me.MyTextBox1._numbersOnlyKommastellen = ""
Me.MyTextBox1._numbersOnlyTrennzeichen = True
Me.MyTextBox1._Prozent = False
Me.MyTextBox1._ShortDateNew = True
Me.MyTextBox1._ShortDateOnly = False
Me.MyTextBox1._TimeOnly = False
Me.MyTextBox1._TimeOnly_Seconds = False
Me.MyTextBox1._value = ""
Me.MyTextBox1._Waehrung = False
Me.MyTextBox1._WaehrungZeichen = True
Me.MyTextBox1.ForeColor = System.Drawing.Color.Red
Me.MyTextBox1.Location = New System.Drawing.Point(110, 183)
Me.MyTextBox1.MaxLength = 10
Me.MyTextBox1.MaxLineLength = -1
Me.MyTextBox1.MaxLines_Warning = ""
Me.MyTextBox1.MaxLines_Warning_Label = Nothing
Me.MyTextBox1.Name = "MyTextBox1"
Me.MyTextBox1.Size = New System.Drawing.Size(120, 20)
Me.MyTextBox1.TabIndex = 135
Me.MyTextBox1.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
'
'Label33
'
Me.Label33.AutoSize = True
Me.Label33.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label33.Location = New System.Drawing.Point(10, 186)
Me.Label33.Name = "Label33"
Me.Label33.Size = New System.Drawing.Size(75, 13)
Me.Label33.TabIndex = 134
Me.Label33.Text = "gegründet am:"
'
'Label103
'
Me.Label103.AutoSize = True
Me.Label103.Location = New System.Drawing.Point(12, 296)
Me.Label103.Name = "Label103"
Me.Label103.Size = New System.Drawing.Size(42, 13)
Me.Label103.TabIndex = 43
Me.Label103.Text = "Kapital:"
'
'txtKapital
'
Me.txtKapital._DateTimeOnly = False
Me.txtKapital._numbersOnly = True
Me.txtKapital._numbersOnlyKommastellen = ""
Me.txtKapital._numbersOnlyTrennzeichen = True
Me.txtKapital._Prozent = False
Me.txtKapital._ShortDateNew = False
Me.txtKapital._ShortDateOnly = False
Me.txtKapital._TimeOnly = False
Me.txtKapital._TimeOnly_Seconds = False
Me.txtKapital._value = ""
Me.txtKapital._Waehrung = True
Me.txtKapital._WaehrungZeichen = False
Me.txtKapital.ForeColor = System.Drawing.Color.Red
Me.txtKapital.Location = New System.Drawing.Point(76, 293)
Me.txtKapital.MaxLength = 10
Me.txtKapital.MaxLineLength = -1
Me.txtKapital.MaxLines_Warning = ""
Me.txtKapital.MaxLines_Warning_Label = Nothing
Me.txtKapital.Name = "txtKapital"
Me.txtKapital.Size = New System.Drawing.Size(109, 20)
Me.txtKapital.TabIndex = 44
Me.txtKapital.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
'
'cbxKapitalWaehrung
'
Me.cbxKapitalWaehrung._allowedValuesFreiText = Nothing
Me.cbxKapitalWaehrung._allowFreiText = False
Me.cbxKapitalWaehrung._value = ""
Me.cbxKapitalWaehrung.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
Me.cbxKapitalWaehrung.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cbxKapitalWaehrung.DropDownWidth = 200
Me.cbxKapitalWaehrung.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.cbxKapitalWaehrung.ForeColor = System.Drawing.Color.Black
Me.cbxKapitalWaehrung.FormattingEnabled = True
Me.cbxKapitalWaehrung.Location = New System.Drawing.Point(191, 293)
Me.cbxKapitalWaehrung.Name = "cbxKapitalWaehrung"
Me.cbxKapitalWaehrung.Size = New System.Drawing.Size(47, 21)
Me.cbxKapitalWaehrung.TabIndex = 45
'
'usrcntlKundeBearbeitenFull
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -5124,7 +5122,7 @@ Partial Class usrcntlKundeBearbeitenFull
Friend WithEvents rtb_Zahlungsinfo As RichTextBox
Friend WithEvents txtHandelsregisterNr As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents lblHandelregisterNr As Label
Friend WithEvents MyTextBox1 As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents txtGruendungsDatum As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label33 As Label
Friend WithEvents cbxKapitalWaehrung As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents Label103 As Label

26
SDL/kunden/usrcntlKundeBearbeitenFull.vb
View File

@@ -72,11 +72,11 @@ Public Class usrcntlKundeBearbeitenFull
txtEORI.Visible = Not isVerag360
txtEORINL.Visible = Not isVerag360
lblEORI.Visible = Not isVerag360
txtHandelsregisterNr.Visible = isVerag360
lblHandelregisterNr.Visible = isVerag360
'txtEORI.Visible = Not isVerag360
'txtEORINL.Visible = Not isVerag360
'lblEORI.Visible = Not isVerag360
'txtHandelsregisterNr.Visible = isVerag360
'lblHandelregisterNr.Visible = isVerag360
If ADRESSE.AdressenNr <= 0 Then
@@ -197,9 +197,11 @@ Public Class usrcntlKundeBearbeitenFull
cboAbf_Steuerschluessel._value = loadValue(KUNDE.Steuerschlüssel, "")
cboAbf_Waehrung._value = loadValue(KUNDE.Währungscode, "EUR")
txtKapital.Text = loadValue(KUNDE_ERW.kde_Kapital, "")
cbxKapitalWaehrung._value = loadValue(KUNDE_ERW.dke_KapitalWaehrung, "EUR")
cbxKapitalWaehrung._value = loadValue(KUNDE_ERW.kde_KapitalWaehrung, "EUR")
cbxSammelrechnungBerichtLeistungsdetails.Checked = loadValue(KUNDE_ERW.kde_FakturierungSR_Details, False)
cboAbf_Sammelrechnung._value = loadValue(KUNDE.Sammelrechnung, "")
txtGruendungsDatum.Text = loadValue(KUNDE_ERW.kde_GruendungsDatum, "")
txtHandelsregisterNr.Text = loadValue(KUNDE_ERW.kde_HRNr, "")
txtEORI.Text = If(KUNDE.EORITIN, "")
@@ -576,12 +578,16 @@ Public Class usrcntlKundeBearbeitenFull
KUNDE_ERW.Zahlungsziel2 = isLeerNothing(txtAbf_Zahlungsziel2.Text)
KUNDE_ERW.Zahlungsziel3 = isLeerNothing(txtAbf_Zahlungsziel3.Text)
KUNDE_ERW.kde_Kapital = isLeerNothing(txtKapital.Text)
KUNDE_ERW.dke_KapitalWaehrung = isLeerNothing(cbxKapitalWaehrung._value)
KUNDE_ERW.kde_Kapital = isLeerNothing(txtKapital._value)
KUNDE_ERW.kde_KapitalWaehrung = isLeerNothing(cbxKapitalWaehrung._value)
KUNDE_ERW.kde_HRNr = isLeerNothing(txtHandelsregisterNr.Text)
If isLeerNothing(txtGruendungsDatum.Text) IsNot Nothing AndAlso IsDate(txtGruendungsDatum.Text) Then
KUNDE_ERW.kde_GruendungsDatum = CDate(txtGruendungsDatum.Text)
End If
KUNDE.Euroeinführung = isLeerNothing(txtAbf_Euroeinführung._value)
KUNDE.Währungscode = isLeerNothing(cboAbf_Waehrung._value)
KUNDE.Sammelrechnung = cboAbf_Sammelrechnung._value
@@ -808,7 +814,7 @@ Public Class usrcntlKundeBearbeitenFull
Private Sub loadControls()
cboAbf_Waehrung.fillWithSQL("SELECT [Währungscode],[Land] FROM Währungstabelle ORDER BY Währungscode", , "FMZOLL", False)
cbxKapitalWaehrung.Items.AddRange(cbxLandKz.Items.Cast(Of VERAG_PROG_ALLGEMEIN.MyListItem).ToArray())
cbxKapitalWaehrung.Items.AddRange(cboAbf_Waehrung.Items.Cast(Of VERAG_PROG_ALLGEMEIN.MyListItem).ToArray())
cboAbf_Steuerschluessel.fillWithSQL("SELECT [Steuerschlüssel], isnull(cast(cast( [Steuersatz %]*100 as decimal(2))as varchar(5)) + '% - ' +AuswahlSteuerbezeichnung,'') as Bezeichnung FROM [Steuertabelle] ORDER BY Steuerschlüssel", False, "FMZOLL", True)