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

ATR, Fakt (UNISPED Vorlage Zahlungsziel), Preise

Browse Source
This commit is contained in:
Andreas Luxbauer
2024-01-29 14:27:54 +01:00
parent a4609e853d
commit 6e023041f9
13 changed files with 276 additions and 69 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -337,6 +337,8 @@ 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.txtAbwZZVL = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label101 = New System.Windows.Forms.Label()
Me.tbcntrDetails.SuspendLayout()
Me.tbAbfertigung.SuspendLayout()
Me.tbcntrAbf.SuspendLayout()
@@ -1056,6 +1058,8 @@ Partial Class usrcntlKundeBearbeitenFull
'
'tbVerrechnung
'
Me.tbVerrechnung.Controls.Add(Me.Label101)
Me.tbVerrechnung.Controls.Add(Me.txtAbwZZVL)
Me.tbVerrechnung.Controls.Add(Me.cbxSndDatenAusSTB)
Me.tbVerrechnung.Controls.Add(Me.Label95)
Me.tbVerrechnung.Controls.Add(Me.cbxSammelrechnungBerichtLeistungsdetails)
@@ -4519,6 +4523,40 @@ Partial Class usrcntlKundeBearbeitenFull
Me.DataGridViewTextBoxColumn2.HeaderText = "E-Mail"
Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2"
'
'txtAbwZZVL
'
Me.txtAbwZZVL._DateTimeOnly = False
Me.txtAbwZZVL._numbersOnly = True
Me.txtAbwZZVL._numbersOnlyKommastellen = ""
Me.txtAbwZZVL._numbersOnlyTrennzeichen = True
Me.txtAbwZZVL._Prozent = False
Me.txtAbwZZVL._ShortDateNew = False
Me.txtAbwZZVL._ShortDateOnly = False
Me.txtAbwZZVL._TimeOnly = False
Me.txtAbwZZVL._TimeOnly_Seconds = False
Me.txtAbwZZVL._value = ""
Me.txtAbwZZVL._Waehrung = False
Me.txtAbwZZVL._WaehrungZeichen = True
Me.txtAbwZZVL.ForeColor = System.Drawing.Color.Red
Me.txtAbwZZVL.Location = New System.Drawing.Point(191, 66)
Me.txtAbwZZVL.MaxLength = 10
Me.txtAbwZZVL.MaxLineLength = -1
Me.txtAbwZZVL.MaxLines_Warning = ""
Me.txtAbwZZVL.MaxLines_Warning_Label = Nothing
Me.txtAbwZZVL.Name = "txtAbwZZVL"
Me.txtAbwZZVL.Size = New System.Drawing.Size(60, 20)
Me.txtAbwZZVL.TabIndex = 41
Me.txtAbwZZVL.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
'
'Label101
'
Me.Label101.AutoSize = True
Me.Label101.Location = New System.Drawing.Point(191, 53)
Me.Label101.Name = "Label101"
Me.Label101.Size = New System.Drawing.Size(50, 13)
Me.Label101.TabIndex = 42
Me.Label101.Text = "abw. ZZ:"
'
'usrcntlKundeBearbeitenFull
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -4907,4 +4945,6 @@ Partial Class usrcntlKundeBearbeitenFull
Friend WithEvents Label100 As Label
Friend WithEvents txtAdresseZusatz As TextBox
Friend WithEvents PictureBox5 As PictureBox
Friend WithEvents Label101 As Label
Friend WithEvents txtAbwZZVL As VERAG_PROG_ALLGEMEIN.MyTextBox
End Class

2
SDL/kunden/usrcntlKundeBearbeitenFull.vb
View File

@@ -218,6 +218,7 @@ Public Class usrcntlKundeBearbeitenFull
txtAbf_Bankspesen._value = loadValue(KUNDE.Bankspesen, "")
txtAbf_BankspesenMindestbetrag._value = loadValue(KUNDE.Bankspesen_Mindestbetrag, "")
txtVers_Kreditlimit.Text = loadValue(KUNDE.Kreditlimit, "")
txtAbwZZVL.Text = loadValue(KUNDE_ERW.kde_abweichendesZZVL, "")
txtAbf_Zahlungsziel.Text = loadValue(KUNDE.Zahlungsziel, "")
txtAbf_Zahlungsziel2.Text = loadValue(KUNDE_ERW.Zahlungsziel2, "")
txtAbf_Zahlungsziel3.Text = loadValue(KUNDE_ERW.Zahlungsziel3, "")
@@ -514,6 +515,7 @@ Public Class usrcntlKundeBearbeitenFull
KUNDE.Bankspesen_Mindestbetrag = If(IsNumeric(txtAbf_BankspesenMindestbetrag._value), CDbl(txtAbf_BankspesenMindestbetrag._value), 0)
KUNDE.Kreditlimit = txtVers_Kreditlimit.Text
KUNDE_ERW.kde_abweichendesZZVL = If(txtAbwZZVL._value <> "" And IsNumeric(txtAbwZZVL._value), txtAbwZZVL._value, Nothing)
KUNDE.Zahlungsziel = txtAbf_Zahlungsziel.Text
KUNDE_ERW.Zahlungsziel2 = isLeerNothing(txtAbf_Zahlungsziel2.Text)