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

Messenger, Formulare, etc.

Browse Source
This commit is contained in:
d.breimaier
2026-02-20 15:50:33 +01:00
parent 34f124916b
commit 80de7c2cf9
4 changed files with 35 additions and 21 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -4143,7 +4143,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.Kunden.Location = New System.Drawing.Point(4, 22)
Me.Kunden.Name = "Kunden"
Me.Kunden.Padding = New System.Windows.Forms.Padding(3)
Me.Kunden.Size = New System.Drawing.Size(651, 175)
Me.Kunden.Size = New System.Drawing.Size(651, 164)
Me.Kunden.TabIndex = 1
Me.Kunden.Text = "Kundenpreise"
Me.Kunden.UseVisualStyleBackColor = True
@@ -4176,7 +4176,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.dgvIDS_Rabatte.Dock = System.Windows.Forms.DockStyle.Fill
Me.dgvIDS_Rabatte.Location = New System.Drawing.Point(3, 3)
Me.dgvIDS_Rabatte.Name = "dgvIDS_Rabatte"
Me.dgvIDS_Rabatte.Size = New System.Drawing.Size(645, 169)
Me.dgvIDS_Rabatte.Size = New System.Drawing.Size(645, 158)
Me.dgvIDS_Rabatte.TabIndex = 34
'
'TabPage2
@@ -4188,7 +4188,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.TabPage2.Location = New System.Drawing.Point(4, 22)
Me.TabPage2.Name = "TabPage2"
Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage2.Size = New System.Drawing.Size(651, 175)
Me.TabPage2.Size = New System.Drawing.Size(651, 164)
Me.TabPage2.TabIndex = 2
Me.TabPage2.Text = "ATEZ KundenNr"
Me.TabPage2.UseVisualStyleBackColor = True
@@ -5497,7 +5497,7 @@ Partial Class usrcntlKundeBearbeitenFull
'
Me.txtEmail2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtEmail2.Location = New System.Drawing.Point(107, 120)
Me.txtEmail2.MaxLength = 40
Me.txtEmail2.MaxLength = 100
Me.txtEmail2.Name = "txtEmail2"
Me.txtEmail2.Size = New System.Drawing.Size(333, 20)
Me.txtEmail2.TabIndex = 9
@@ -5506,7 +5506,7 @@ Partial Class usrcntlKundeBearbeitenFull
'
Me.txtEmail.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtEmail.Location = New System.Drawing.Point(107, 94)
Me.txtEmail.MaxLength = 40
Me.txtEmail.MaxLength = 100
Me.txtEmail.Name = "txtEmail"
Me.txtEmail.Size = New System.Drawing.Size(333, 20)
Me.txtEmail.TabIndex = 7

19
SDL/kunden/usrcntlKundeBearbeitenFull.vb
View File

@@ -885,14 +885,25 @@ Public Class usrcntlKundeBearbeitenFull
txtERROR.Text = err : Exit Sub
End If
Dim allowdelete = Not (KUNDE.hasEntry And ADRESSE.hasEntry) ' wenn der Eintrag bereits existiert
Dim Email1 As String = VERAG_PROG_ALLGEMEIN.cProgramFunctions.checkifMailisOK(txtEmail.Text)
If Email1 <> "" Then
txtERROR.Text = Email1 & " ist keine gültige Email!" : Exit Sub
End If
If Not checkAbfertigungsverbot() Then
txtERROR.Text = "Grund für Abfertigungsverbot angeben!" : Exit Sub
Dim Email2 As String = VERAG_PROG_ALLGEMEIN.cProgramFunctions.checkifMailisOK(txtEmail2.Text)
If Email2 <> "" Then
txtERROR.Text = Email2 & " ist keine gültige Email!" : Exit Sub
End If
If ADRESSE.SAVE() Then
Dim allowdelete = Not (KUNDE.hasEntry And ADRESSE.hasEntry) ' wenn der Eintrag bereits existiert
If Not checkAbfertigungsverbot() Then
txtERROR.Text = "Grund für Abfertigungsverbot angeben!" : Exit Sub
End If
If ADRESSE.SAVE() Then
If KUNDE.SAVE() Then
If FISKAL.SAVE AndAlso KUNDE_ERW.SAVE Then
If usrCntlAufschubkonten.SAVE() Then