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

kundenuebers

Browse Source
This commit is contained in:
d.breimaier
2025-09-05 10:41:14 +02:00
parent 78908fbc7d
commit 5559437593
3 changed files with 30 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
SDL/kunden/usrCntlKundenuebersicht.vb
View File

@@ -3355,7 +3355,12 @@ Public Class usrCntlKundenuebersicht
Dim company As New cCreditSafeAPI.Company("", "", "", "", KUNDE_ERW.kde_CreditSaveNo, KUNDE_ERW.kde_CreditSaveId, Nothing, "", "", "", "", "", "", "", "", "", KUNDE.KundenNr)
cs.AddCompanyToPortfolio(company)
If Not KUNDE_ERW.kde_CSPortfolioAdded Then
cs.AddCompanyToPortfolio(company)
KUNDE_ERW.kde_CSPortfolioAdded = True
KUNDE_ERW.SAVE()
End If
company.lastChecked = IIf(IsDate(lastChecked), lastChecked, Today().AddDays(-30))

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

@@ -103,6 +103,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.tbFiskal = New System.Windows.Forms.TabPage()
Me.UsrCntlKundeFiskaldaten1 = New SDL.usrCntlKundeFiskaldaten()
Me.tbVerrechnung = New System.Windows.Forms.TabPage()
Me.cbpKopfsammelrechnung = New System.Windows.Forms.CheckBox()
Me.pnlverag360 = New System.Windows.Forms.Panel()
Me.Label111 = New System.Windows.Forms.Label()
Me.txtFR = New VERAG_PROG_ALLGEMEIN.MyTextBox()
@@ -404,7 +405,7 @@ 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.cbpKopfsammelrechnung = New System.Windows.Forms.CheckBox()
Me.cbxCS_Added = New System.Windows.Forms.CheckBox()
Me.tbcntrDetails.SuspendLayout()
Me.tbAbfertigung.SuspendLayout()
Me.tbcntrAbf.SuspendLayout()
@@ -1193,6 +1194,17 @@ Partial Class usrcntlKundeBearbeitenFull
Me.tbVerrechnung.Text = "Verrechnung"
Me.tbVerrechnung.UseVisualStyleBackColor = True
'
'cbpKopfsammelrechnung
'
Me.cbpKopfsammelrechnung.AutoSize = True
Me.cbpKopfsammelrechnung.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cbpKopfsammelrechnung.Location = New System.Drawing.Point(417, 244)
Me.cbpKopfsammelrechnung.Name = "cbpKopfsammelrechnung"
Me.cbpKopfsammelrechnung.Size = New System.Drawing.Size(202, 30)
Me.cbpKopfsammelrechnung.TabIndex = 50
Me.cbpKopfsammelrechnung.Text = "Kopf-Sammelrechnung" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(Abr. mit unvollst. Rg+ Kopfrechnung)"
Me.cbpKopfsammelrechnung.UseVisualStyleBackColor = True
'
'pnlverag360
'
Me.pnlverag360.Controls.Add(Me.Label111)
@@ -3733,6 +3745,7 @@ Partial Class usrcntlKundeBearbeitenFull
'
'tbSonstiges
'
Me.tbSonstiges.Controls.Add(Me.cbxCS_Added)
Me.tbSonstiges.Controls.Add(Me.Label113)
Me.tbSonstiges.Controls.Add(Me.Label112)
Me.tbSonstiges.Controls.Add(Me.dgvIDS_Rabatte)
@@ -5516,16 +5529,14 @@ Partial Class usrcntlKundeBearbeitenFull
Me.DataGridViewTextBoxColumn2.HeaderText = "E-Mail"
Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2"
'
'cbpKopfsammelrechnung
'cbxCS_Added
'
Me.cbpKopfsammelrechnung.AutoSize = True
Me.cbpKopfsammelrechnung.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cbpKopfsammelrechnung.Location = New System.Drawing.Point(417, 244)
Me.cbpKopfsammelrechnung.Name = "cbpKopfsammelrechnung"
Me.cbpKopfsammelrechnung.Size = New System.Drawing.Size(202, 30)
Me.cbpKopfsammelrechnung.TabIndex = 50
Me.cbpKopfsammelrechnung.Text = "Kopf-Sammelrechnung" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(Abr. mit unvollst. Rg+ Kopfrechnung)"
Me.cbpKopfsammelrechnung.UseVisualStyleBackColor = True
Me.cbxCS_Added.AutoSize = True
Me.cbxCS_Added.Location = New System.Drawing.Point(406, 9)
Me.cbxCS_Added.Name = "cbxCS_Added"
Me.cbxCS_Added.Size = New System.Drawing.Size(15, 14)
Me.cbxCS_Added.TabIndex = 37
Me.cbxCS_Added.UseVisualStyleBackColor = True
'
'usrcntlKundeBearbeitenFull
'
@@ -5985,4 +5996,5 @@ Partial Class usrcntlKundeBearbeitenFull
Friend WithEvents Label111 As Label
Friend WithEvents cbxErstattungsart As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents cbpKopfsammelrechnung As CheckBox
Friend WithEvents cbxCS_Added As CheckBox
End Class

2
SDL/kunden/usrcntlKundeBearbeitenFull.vb
View File

@@ -212,6 +212,7 @@
cbxVorauszahlung.Checked = loadValue(KUNDE_ERW.kde_VZ, False)
txtVorauszahlung.Text = loadValue(KUNDE_ERW.kde_AnmerkungVZ, "")
cbxFR.Checked = loadValue(KUNDE_ERW.kde_FR, False)
cbxCS_Added.Checked = loadValue(KUNDE_ERW.kde_CSPortfolioAdded, False)
txtFR.Text = loadValue(KUNDE_ERW.kde_AnmerkungFR, "")
cbpKopfsammelrechnung.Checked = KUNDE_ERW.kde_Kopfsammelrechnung
txtAnmerkungAntraege.Text = loadValue(KUNDE_ERW.kde_AnmerkungAntrag, "")
@@ -714,6 +715,7 @@
KUNDE_ERW.kde_txtVersicherungDeckungsquote = isLeerNothingDbl(txtVersicherungDeckungsquote._value)
KUNDE_ERW.kde_txtVersicherungNichtVersicherbar = cbxNichtVersicherbar.Checked
KUNDE_ERW.kde_CSPortfolioAdded = cbxCS_Added.Checked
KUNDE_ERW.kde_Versicherung_GemeldeterBetrag = isLeerNothingDbl(txtVersicherung_GemeldeterBetrag._value)
KUNDE_ERW.kde_txtVersicherungEHNr = isLeerNothing(txtVers_EHNr._value)