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

Merge branch 'master' of https://verag.visualstudio.com/SDL/_git/SDL

Browse Source
This commit is contained in:
Andreas Luxbauer
2024-08-30 22:40:47 +02:00
parent 1b20fdd5d1 ad7fa10999
commit 8e79458cb0
27 changed files with 4589 additions and 2104 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
SDL/kunden/Vorauskasse/frmVorauskasse.vb
View File

@@ -250,7 +250,7 @@ Public Class frmVorauskasse
End If
'sqlstr &= " SELECT " & TopMax & " [vk_id],[vk_FilialeNr],[vk_AbfertigungsNr],[vk_Datum],[vk_LKW],[vk_KdNr],[vk_Firma],[vk_QS_Sachbearbeiter],[vk_QS_Bemerkung],vk_Betrag,[vk_GeldEingetroffen],[vk_BH_Sachbearbeiter],[vk_BH_Bemerkung],[vk_BH_DatumGeldeingang],vk_storno,vk_Freigegeben " & LKWAnkunft & " FROM tblVorauskassen WHERE 1=1 "
sqlstr &= " SELECT " & TopMax & " [vk_id],[vk_FilialeNr],[vk_AbfertigungsNr],[vk_Datum],[vk_LKW],[vk_KdNr],[vk_Firma],[vk_QS_Sachbearbeiter],vk_QS_SachbearbeiterId,[vk_QS_Bemerkung],vk_Betrag,[vk_GeldEingetroffen],[vk_BH_Sachbearbeiter],[vk_BH_Bemerkung],[vk_BH_DatumGeldeingang],vk_storno,vk_Freigegeben FROM tblVorauskassen " & LKWAnkunft & " "
sqlstr &= " SELECT " & TopMax & " [vk_id],[vk_FilialeNr],[vk_AbfertigungsNr],[vk_Datum],[vk_LKW],[vk_KdNr],[vk_Firma],[vk_QS_Sachbearbeiter],vk_QS_SachbearbeiterId,[vk_QS_Bemerkung],vk_Betrag,[vk_GeldEingetroffen],[vk_BH_Sachbearbeiter],[vk_BH_Bemerkung],[vk_BH_DatumGeldeingang],vk_storno,vk_Freigegeben,vk_SendungId FROM tblVorauskassen " & LKWAnkunft & " "
' MsgBox(sqlstr & getVorauskasseWhere() & " ORDER BY vk_Datum desc ")
With MyDatagridview1
@@ -357,6 +357,7 @@ Public Class frmVorauskasse
.MultiSelect = False
.Columns("vk_id").Visible = False
.Columns("vk_SendungId").Visible = False
.Columns("vk_QS_SachbearbeiterId").Visible = False
.Columns("vk_FilialeNr").Width = 45
.Columns("vk_FilialeNr").HeaderText = "Filiale"
@@ -440,17 +441,23 @@ Public Class frmVorauskasse
Dim VK As New VERAG_PROG_ALLGEMEIN.cVorauskasse(MyDatagridview1.SelectedRows(0).Cells("vk_id").Value)
VK.SET_GELDEINGANG(True, txtBemerkung.Text)
Dim VermerkIDNew = -1
cVorauskasseOptions.insertVermerk(MyDatagridview1.SelectedRows(0).Cells("vk_FilialeNr").Value, MyDatagridview1.SelectedRows(0).Cells("vk_AbfertigungsNr").Value, 14,,, VermerkIDNew,,, MyDatagridview1.SelectedRows(0).Cells("vk_id").Value, MyDatagridview1.SelectedRows(0).Cells("vk_QS_SachbearbeiterId").Value)
Dim sendungsId = -1
If VK.vk_VermerkId IsNot Nothing AndAlso VermerkIDNew > 0 Then
Dim cVermerkeDAL As New VERAG_PROG_ALLGEMEIN.cVermerkeDAL
cVermerkeDAL.SpeichernVermerkIDAufgehoben(VK.vk_VermerkId, VermerkIDNew)
If MyDatagridview1.SelectedRows(0).Cells("vk_SendungId").Value IsNot Nothing AndAlso MyDatagridview1.SelectedRows(0).Cells("vk_SendungId").Value > -1 Then
sendungsId = MyDatagridview1.SelectedRows(0).Cells("vk_SendungId").Value
End If
txtBemerkung.Text = ""
MyDatagridview1.RELOAD()
setDGVOptions()
End If
cVorauskasseOptions.insertVermerk(MyDatagridview1.SelectedRows(0).Cells("vk_FilialeNr").Value, MyDatagridview1.SelectedRows(0).Cells("vk_AbfertigungsNr").Value, 14,,, VermerkIDNew, sendungsId,, MyDatagridview1.SelectedRows(0).Cells("vk_id").Value, MyDatagridview1.SelectedRows(0).Cells("vk_QS_SachbearbeiterId").Value)
If VK.vk_VermerkId IsNot Nothing AndAlso VermerkIDNew > 0 Then
Dim cVermerkeDAL As New VERAG_PROG_ALLGEMEIN.cVermerkeDAL
cVermerkeDAL.SpeichernVermerkIDAufgehoben(VK.vk_VermerkId, VermerkIDNew)
End If
txtBemerkung.Text = ""
MyDatagridview1.RELOAD()
setDGVOptions()
End If
End Sub
Private Sub MyDatagridview1_SelectionChanged(sender As Object, e As EventArgs) Handles MyDatagridview1.SelectionChanged

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

@@ -35,15 +35,25 @@ 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()
Me.PictureBox7 = New System.Windows.Forms.PictureBox()
Me.Label1 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.txtStrasse = New System.Windows.Forms.TextBox()
Me.txtOrt = New System.Windows.Forms.TextBox()
Me.txtPLZ = New System.Windows.Forms.TextBox()
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()
@@ -51,12 +61,15 @@ Partial Class frmKundenKontakteDetails
CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox7, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox8, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox9, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox10, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'btn
'
Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn.Location = New System.Drawing.Point(185, 293)
Me.btn.Location = New System.Drawing.Point(373, 358)
Me.btn.Name = "btn"
Me.btn.Size = New System.Drawing.Size(136, 39)
Me.btn.TabIndex = 9
@@ -67,7 +80,7 @@ Partial Class frmKundenKontakteDetails
'
Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None
Me.PictureBox1.Image = Global.SDL.My.Resources.Resources.telefon
Me.PictureBox1.Location = New System.Drawing.Point(17, 75)
Me.PictureBox1.Location = New System.Drawing.Point(9, 75)
Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(25, 18)
Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
@@ -123,7 +136,7 @@ Partial Class frmKundenKontakteDetails
'
Me.PictureBox4.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None
Me.PictureBox4.Image = Global.SDL.My.Resources.Resources.email
Me.PictureBox4.Location = New System.Drawing.Point(20, 156)
Me.PictureBox4.Location = New System.Drawing.Point(12, 156)
Me.PictureBox4.Name = "PictureBox4"
Me.PictureBox4.Size = New System.Drawing.Size(22, 18)
Me.PictureBox4.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
@@ -134,7 +147,7 @@ Partial Class frmKundenKontakteDetails
'
Me.PictureBox2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None
Me.PictureBox2.Image = Global.SDL.My.Resources.Resources.fax
Me.PictureBox2.Location = New System.Drawing.Point(17, 99)
Me.PictureBox2.Location = New System.Drawing.Point(9, 99)
Me.PictureBox2.Name = "PictureBox2"
Me.PictureBox2.Size = New System.Drawing.Size(25, 18)
Me.PictureBox2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
@@ -156,7 +169,7 @@ Partial Class frmKundenKontakteDetails
'
Me.PictureBox3.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None
Me.PictureBox3.Image = Global.SDL.My.Resources.Resources.handy
Me.PictureBox3.Location = New System.Drawing.Point(17, 123)
Me.PictureBox3.Location = New System.Drawing.Point(9, 123)
Me.PictureBox3.Name = "PictureBox3"
Me.PictureBox3.Size = New System.Drawing.Size(25, 18)
Me.PictureBox3.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
@@ -167,7 +180,7 @@ Partial Class frmKundenKontakteDetails
'
Me.PictureBox5.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None
Me.PictureBox5.Image = Global.SDL.My.Resources.Resources.person
Me.PictureBox5.Location = New System.Drawing.Point(17, 242)
Me.PictureBox5.Location = New System.Drawing.Point(9, 242)
Me.PictureBox5.Name = "PictureBox5"
Me.PictureBox5.Size = New System.Drawing.Size(25, 18)
Me.PictureBox5.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
@@ -177,24 +190,12 @@ Partial Class frmKundenKontakteDetails
'lbl
'
Me.lbl.AutoSize = True
Me.lbl.Location = New System.Drawing.Point(14, 13)
Me.lbl.Location = New System.Drawing.Point(6, 13)
Me.lbl.Name = "lbl"
Me.lbl.Size = New System.Drawing.Size(59, 13)
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(17, 29)
Me.cboKontaktArt.Name = "cboKontaktArt"
Me.cboKontaktArt.Size = New System.Drawing.Size(487, 28)
Me.cboKontaktArt.TabIndex = 1
'
'lblAnsprechpartnerVN
'
Me.lblAnsprechpartnerVN.BackColor = System.Drawing.Color.White
@@ -206,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
@@ -234,7 +223,7 @@ Partial Class frmKundenKontakteDetails
'
Me.PictureBox6.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None
Me.PictureBox6.Image = Global.SDL.My.Resources.Resources.email
Me.PictureBox6.Location = New System.Drawing.Point(20, 181)
Me.PictureBox6.Location = New System.Drawing.Point(12, 181)
Me.PictureBox6.Name = "PictureBox6"
Me.PictureBox6.Size = New System.Drawing.Size(22, 18)
Me.PictureBox6.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
@@ -257,7 +246,7 @@ Partial Class frmKundenKontakteDetails
'
Me.PictureBox7.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None
Me.PictureBox7.Image = Global.SDL.My.Resources.Resources.email
Me.PictureBox7.Location = New System.Drawing.Point(20, 206)
Me.PictureBox7.Location = New System.Drawing.Point(12, 206)
Me.PictureBox7.Name = "PictureBox7"
Me.PictureBox7.Size = New System.Drawing.Size(22, 18)
Me.PictureBox7.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
@@ -282,12 +271,170 @@ Partial Class frmKundenKontakteDetails
Me.Label2.TabIndex = 197
Me.Label2.Text = "BCC:"
'
'txtStrasse
'
Me.txtStrasse.BackColor = System.Drawing.Color.White
Me.txtStrasse.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.txtStrasse.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtStrasse.Location = New System.Drawing.Point(52, 271)
Me.txtStrasse.Name = "txtStrasse"
Me.txtStrasse.Size = New System.Drawing.Size(452, 26)
Me.txtStrasse.TabIndex = 198
Me.txtStrasse.Text = "adresse"
'
'txtOrt
'
Me.txtOrt.BackColor = System.Drawing.Color.White
Me.txtOrt.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.txtOrt.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtOrt.Location = New System.Drawing.Point(272, 303)
Me.txtOrt.Name = "txtOrt"
Me.txtOrt.Size = New System.Drawing.Size(232, 26)
Me.txtOrt.TabIndex = 203
Me.txtOrt.Text = "ort"
'
'txtPLZ
'
Me.txtPLZ.BackColor = System.Drawing.Color.White
Me.txtPLZ.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.txtPLZ.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtPLZ.Location = New System.Drawing.Point(167, 303)
Me.txtPLZ.Name = "txtPLZ"
Me.txtPLZ.Size = New System.Drawing.Size(99, 26)
Me.txtPLZ.TabIndex = 206
Me.txtPLZ.Text = "plz"
'
'PictureBox8
'
Me.PictureBox8.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None
Me.PictureBox8.Image = CType(resources.GetObject("PictureBox8.Image"), System.Drawing.Image)
Me.PictureBox8.Location = New System.Drawing.Point(9, 271)
Me.PictureBox8.Name = "PictureBox8"
Me.PictureBox8.Size = New System.Drawing.Size(25, 18)
Me.PictureBox8.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
Me.PictureBox8.TabIndex = 208
Me.PictureBox8.TabStop = False
'
'PictureBox9
'
Me.PictureBox9.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None
Me.PictureBox9.Image = CType(resources.GetObject("PictureBox9.Image"), System.Drawing.Image)
Me.PictureBox9.Location = New System.Drawing.Point(9, 340)
Me.PictureBox9.Name = "PictureBox9"
Me.PictureBox9.Size = New System.Drawing.Size(25, 18)
Me.PictureBox9.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
Me.PictureBox9.TabIndex = 209
Me.PictureBox9.TabStop = False
'
'PictureBox10
'
Me.PictureBox10.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None
Me.PictureBox10.Image = CType(resources.GetObject("PictureBox10.Image"), System.Drawing.Image)
Me.PictureBox10.Location = New System.Drawing.Point(9, 305)
Me.PictureBox10.Name = "PictureBox10"
Me.PictureBox10.Size = New System.Drawing.Size(25, 18)
Me.PictureBox10.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
Me.PictureBox10.TabIndex = 210
Me.PictureBox10.TabStop = False
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Location = New System.Drawing.Point(40, 310)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(78, 13)
Me.Label3.TabIndex = 211
Me.Label3.Text = "Land/PLZ/Ort:"
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.Location = New System.Drawing.Point(40, 345)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(53, 13)
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!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.White
Me.ClientSize = New System.Drawing.Size(521, 357)
Me.ClientSize = New System.Drawing.Size(521, 409)
Me.Controls.Add(Me.Label4)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.PictureBox10)
Me.Controls.Add(Me.PictureBox9)
Me.Controls.Add(Me.PictureBox8)
Me.Controls.Add(Me.txtGebDatum)
Me.Controls.Add(Me.txtPLZ)
Me.Controls.Add(Me.cbxLand)
Me.Controls.Add(Me.txtOrt)
Me.Controls.Add(Me.txtStrasse)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.lblEmailBCC)
@@ -320,6 +467,9 @@ Partial Class frmKundenKontakteDetails
CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox7, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox8, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox9, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox10, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
@@ -346,4 +496,14 @@ Partial Class frmKundenKontakteDetails
Friend WithEvents PictureBox7 As PictureBox
Friend WithEvents Label1 As Label
Friend WithEvents Label2 As Label
Friend WithEvents txtStrasse As TextBox
Friend WithEvents txtOrt As TextBox
Friend WithEvents cbxLand As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents txtPLZ As TextBox
Friend WithEvents txtGebDatum As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents PictureBox8 As PictureBox
Friend WithEvents PictureBox9 As PictureBox
Friend WithEvents PictureBox10 As PictureBox
Friend WithEvents Label3 As Label
Friend WithEvents Label4 As Label
End Class

135
SDL/kunden/frmKundenKontakteDetails.resx
View File

@@ -118,6 +118,141 @@
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="PictureBox8.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAQAAAAEACAYAAABccqhmAAAABGdBTUEAALGPC/xhBQAACHtJREFUeF7t
3Y1xJDUQBtALhVAIhUwIhVAIhVDg+uoG7EXr/Z0Z9af3qr4qCrDP9mqkVkvr+wYAAAAAAAAAAAAAAAAA
AAAAAAAAAMD7/PI9v37Pbz/z+4f8Mcj237b/vz62PgcwsXpIt4f3z+/563v+fmPq81Xqc9dEsU0OwMG2
VX172EcP7FHZJoX6WkwIsJNthT/7gb+VrVKor9XWAV7Q5aH/KiYDeFD3h/5atskAuLCt9qMHJy2qAvhp
pQf/MjUR1ImCiYDl1KCvwT96MFZM/SycIhBv5RX/nqgIiOXBvy+ahUSp0rYG9Wiwy/XUz6xuHEJLVcom
HucdnfoZ2hbQSq36o8Esz8W2gDbs9feLSYBpKfmPSVUDtgRMpZpVo8Eq+8SWgGm40HNeTAKcSsl/fmoC
hsN5+OdJbQngEJp9c0ZzkN3VAKuBNhqAcn5MAuymBtZo0MlcMQnwdjWglP19YhLgrTz8/VKTALzMw983
JgFe4uHvH/cEeIobfjlxY5CHeDtvXkwC3MVxX2aqH+AXj3KTfX9uNAX5UpWJo4EjOdEUZMi+f53YCvCJ
ff9acVOQT+z710u95qD0Xzi2AvwoB0eDQ/LjVGBxuv7igtDCRgNC1oqG4KLc9Zct7gYsRuNPLqMhuBDH
fnIZx4KLcOlHrkUVsAB7f7kWvYAFjF54kYoTgXDO/eVWVAHB3PqTW3E7MJS/wlvuTY0Vwqx+9FcrW/0M
qsStrVClBvqW+vcVR6SOBCONXuj01ENfD/qjx1vVCKuPqY9ddUJwJBhktfK/Htx3qgmhPufoz0rNu3+G
nGiVVWzvQbvSRGAbEGT0Aiel9u5Hnl+vMhHYBgRIL//r+ztL+iRgGxAg9ey/vq8ZVqiqBlJ/xrYBAUYv
bPfUA3dkyX9L6iRQ3xONJZb/s65KNQkkNlv1ARpL26POtvJfSqwE9AEaq+746EXtmg6rUU0Co6+9a/QB
Ghu9oF1zZrf/UUlbL32Apmq1HL2gHdNxFUqqvvQBGkpahWbe91+TtBXQB2goZQWq76OrlNfABNBQyuDr
uPpvUqoAjcCGEo6jOq/+m4SJWCOwodEL2S2dV/9NQhVgAmho9EJ2StKgS7ghmDAZLyPhBCCh/N8k3Mh0
FNhIwgSQNOAS7mR0uoi1vIQJIElCH8AE0Ej3kjPx2Kl7H8BdgEa6TwBJ+/9N9+NAE0Aj3Qdb4gTQfVI2
ATRitZmPqozDdJ8AEhtO3RuzJoBGTADzMQFwmO4TgC3AfDEBNNJ9sCVOAN0nZRNAI90ngMR7AKoyDmMC
mI+LQBym+wSQ+PbT0ffZKa4CN5Lw5pOkNwN1PwGomAAaSZgAkkrO7vv/it8H0IjfQjOX+l5G32OnmACa
Gb2I3ZKyDRh9b91CMwmrTsLZc0L5n9iUjdf92KlSA6976Tn6vrrFJaCGuh8Fbuk8+BJW/4o7AA0lnARU
qgro2AtIaMRucQTYUNIA7FgFJGzBtjgBaGr0YnZNpzI04eLPx9BU0irUZSuQsvXaogHYWEojcMvspwJJ
264tJoDG0lajysxn0kkV1xYNwMYSV6TKbJVAfS2JD39l5oqLO6QOzJoEZlidEqusLTV2aC6tD/AxNQmc
eTqQ1u2/jP1/gOQVaksN1CNL1fqz6s8cfS1Jsf8PUIN19OKmZasG9pwI6nMnV1SXIURqH2CUPSaC1R78
ivI/SPpe9VpqMqiB/MwFou2hr88x+tzpUf4HqcE8epFXSj3IVQnVhFCph7sGeaX+uVL/fqVq6au8s4Ji
Aga2PBLCrLaHledj/x/INkDujfI/lG2A3Er1SghlGyC3ovsfzDZAbkX5H842QK6lxgbhVr0UJLej/F+A
bYBcC4uwDZDLOPtfyApvEZbH8sz7JWhMFSAfw2I0A2WL5t+CNANli7P/RVXjZzQgZJ1o/i1MFSCaf4vT
DFw3bv7hSHDhaP7xYxugClgz8IMjwfVi9edfmoHrBT5RBayT+sUw8IkqYJ24+MOQi0H5cfGHq1QB+bH6
8yVVQG6s/tykCsiN1Z+7qALyYvXnbqqAvFj9eYgqICdWfx6mCsiJ1Z+n+KvE+setP56mCugfeIn3CPSN
1Z+XVRVQf2X0aIDJ3IG3UAX0i/f78zZVBfitQX1SFRu8ld8d2Cd+0y+7UAXMH7/pl904Fpw/Vn925Yrw
vHHll92pAuZNvTawO8eC88WxH4dxLDhXHPtxOMeC80Tjj1NoCJ4fjT9OoyF4fjT+OJWG4Hnxbj9OpyF4
TjT+mIaG4PHR+GMqGoLHReOP6WgIHheYkobg/nHjj6lpCO4Xb/VlerYC+0XjjxZsBd4fZ/604W7Ae6P0
px1bgfdF6U9L/mqx16P0py1bgdfiui/t2Qo8H6U/EWwFHo/Snxi2Ao9F6U8cW4H7o/Qnkq3A7Sj9iWUr
8HVc+CGercD1KP1Zgq3A/6P0Zxm2Ap+j9Gc5tgL/pX4WsBxvG7bvZ3Er/zJRpT/Lq/K3br6NHpDkuO0H
P1UZPHpIkqP0hw9WOhp05AcXVjkatO+HK1Y4GlT6wxeSjwY9/HCHxH6A0h/ulHY06MgPHpTUD1D6wxMS
+gEefnhB56vC9v3woq79APt+eJOO/QClP7xRp36Ahx920OF+gH0/7KS2AjO/X8C+H3Y2cz9A6Q8HmLEf
4OGHA83UD/D+fjjYLP0ATT84ydmXhDT94GRnNgXt+2ECZzQFPfwwkSObgpp+MJmjmoKafjCpvZuCmn4w
uT2bgvb90MAeTUEPPzTyzqagph809I5fJ6bpB029ejLg4Yfmnj0ZqI+pjwWae+ZkQNMPgjxyMuDhh0D3
nAzo+EOwryYBTT8Id+1kwMMPi7g8GXDHHxazTQKO+2BR9eDr+AMAAAAAAAAAAAAAAAAAAAAAAAAAABzj
27d/ABBabbXEUZDWAAAAAElFTkSuQmCC
</value>
</data>
<data name="PictureBox9.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAQAAAAEACAYAAABccqhmAAAABGdBTUEAALGPC/xhBQAACpNJREFUeF7t
nYGN4wYSBC8Uh+JQPhOH4lAcikP518BHWL/Xe7t7PU2RM1VA4fGA/33qo0okJe1+AwAAAAAAAAAAAAAA
AAAAAAAAAAC4Nf8J+NtD6KU2VVu7wnL+G5ADq5/aVG3tCstRB4UrAeiHAEAEdVC4EoB+CABEUAeFKwHo
hwBABHVQuBKAfggARFAHhSsB6IcAQAR1ULgSgH4IAERQB4UrAeiHAEAEdVC4EoB+CABEUAeFKwHohwBA
BHVQuBKAfggARFAHhSsB6IcAQAR1ULgSgH4IAERQB4UrAeiHAEAEdVC4EoB+CABEUAeFKwHohwBABHVQ
uBKAfggARFAHhSsB6IcAQAR1ULgSgH4IAERQB4UrAeiHAEAEdVC4EoB+CAD8QP2k2D8e/vnwr++qv2TE
Dv/+bh1ndcxVlPgJ0CdzPOl5suNVrCjUMUkMwtTI6i8A8QoeIYBmUtd/iAkJQSN1raVGRry6RMCgrqe4
zse7W2cD3Bv4BXjy4xSJwBfhyY/TrAjAJ+CaH6daxzb8hN8fquEQp8inRH9CnSap0RCnyKXAO/AhH9wi
lwICNRTiRHlX4A180g+3yYeEnuBtP9xmHfPwHTUQ4nTrXa/1cPqPW+UtwQd88Ae3yrsBDwgAbpX7AA/4
8A9ulQ8FPSAAuFUC8EAN41qXFXWDBbHL1KXqetQorvUXBtBJHVPqWHNdjxrFlQBANwQghBrFlQBANwQg
hBrFlQBANwQghBrFlQBANwQghBrFlQBANwQghBrFlQBANwQghBrFlQBANwQghBrFlQBANwQghBrFlQBA
NwQghBrFlQBANwQghBrFlQBANwQghBrFlQBANwQghBrFlQBANwQghBrFlQBANwQghBrFlQBANwQghBrF
lQBANwQghBrFlQBANwQghBrFlQBANwQghBrFlQBANwQghBrFlR8Kit3yQ0FDqFEQt7geNQriFtejRkHc
4nrUKIhbXI8aBXGL61GjIG5xPWoUxC2uR42CuMX1qFEQt7geNQriFtejRkHc4nrUKIhbXI8aBXGL61Gj
IG5xPWoUxC2uR42CuMX1qFEQt7geNQriFtejRkHc4nrUKIhbXI8aBXGL61GjuNZPcQXopI4pday5rkeN
4koAoBsCEEKN4koAoBsCEEKN4koAoBsCEEKN4koAoBsCEEKN4koAoBsCEEKN4koAoBsCEEKN4koAoBsC
EEKN4koAoBsCEEKN4koAoBsCEEKN4koAfs5v3/39yfrv8D4EIIQaxZUA/Es9sf/47t8P1V7P1j/z58Pa
sMIA/0AAQqhRXAnAP0/4vx6qfb5iBYE9CUAMNYrr5gO2XrU/80r/Vev/s6KyFQIQQo3iujEAdarf8Yr/
kRWCjZcGBCCEGsV1WwBSB+d7bjwbIAAh1CiumwJQT0S1wRluigABCKFGcd0SgDNO+T+yzgY2QABCqFFc
NwTgCk/+w3rbcDoEIIQaxXV6AF552v+e0y8HCEAINYrr5ADUHXj1mK/g5HcHCEAINYrr5ACox3sV637A
1I8UE4AQahTXqQGoa231eK/k1PsBBCCEGsV1YgCufOr/7NQPChGAEGoU14kBuNJd/4+ceBZAAEKoUVyn
BeAur/6HE88CCEAINYrrtABc8W2/j5z2tiABCKFGcZ0WgHpFVY/zyk77hCABCKFGcZ0WAPUY7+CkywAC
EEKN4jopAKkD7wwJwMeuR43iOikAd3jv/z0n3QcgACHUKK4E4BrWW5dTIAAh1CiukwJwxxuAh5NuBBKA
EGoUVwJwDQnAx65HjeI6KQDq8d1FAvCx61GjuBKA6zgFAhBCjeI6KQBcAlwDAhBCjeI6KQB3+hLQW3kX
4GPXo0ZxJQDXcNK3AglACDWK66QA3PGLQId8EOhj16NGcZ0UgLt9FfhZPgr8setRo7hOCkD9jD31GO/g
JAhACDWK66QAFHe8DzDtpwIRgBBqFNdpAbjjZcCk0/+CAIRQo7hOC8BZv/m3y0nv/x8QgBBqFNdpAShS
B2BC9v+861GjuE48AO9yFjDpwz/PEIAQahTXiQEo7nAvYNq1/wEBCKFGcZ0agOLKPyBk2p3/ZwhACDWK
6+QAXPVSYOqp/wEBCKFGcZ0cgKIicKVvCU686/8WAhBCjeI6PQDFVSJQf4ap1/3PEIAQahTXDQEoXh2B
Da/8BwQghBrFdUsAilfdE5h+zf8WAhBCjeK6KQBFReDMrw1P+71/n4EAhFCjuG4LwEGFIPk2Yb3q179j
IwQghBrFdWsADrpDUE/87ZsSgBBqFNftB+tBhaC2+JV7BHWDr071t77iv4UAhFCjuBKAH6kn8hGEOjs4
rDjUf9aTvdzwlt6vQABCqFFcCQB0QwBCqFFcCQB0QwBCqFFcCQB0QwBCqFFcCQB0QwBCqFFcCQB0QwBC
qFFcCQB0QwBCqFFcCQB0QwBCqFFcCQB0QwBCqFFcCQB0QwBCqFFcCQB0QwBCqFFcCQB0QwBCqFFcCcCP
HN8FKOvz/u95/DPw/xCAEGoU120BOJ7Uxxd66gs+pfvjwup/f3h8aai2LevftwkCEEKN4jo5APVkf36i
q8d/lkccjjBMjgIBCKFGcZ0UgOMJ/+on+2c9zhbqzzwpCAQghBrF9e4BOE7n1WO7m89nCHeGAIRQo7je
8WA7XunV45niEYM7nhkQgBBqFNc7BaCe9PXEUI9jsvWY67HfBQIQQo3ievUAbHi1/6x3CQEBCKFGcb1y
AHjia68eAgIQQo3iesUA1HXvxlP9r3rVEBCAEGoU1ysFgNP9X/NqESAAIdQorlcJQL3qqz8ffs46G6iA
XgECEEKN4nqFAKQOmG1e5ZKAAIRQo7i+OgA8+ft9dQQIQAg1iusrA8CTP+crI0AAQqhRXF8VAK75877q
75YAhFCjuL7iIKmbVerPgr2+6sYgAQihRnF9RQDu8m29CVYEzoYAhFCjuJ4dgNTBge979heKCEAINYrr
2QGoVyT158CcZ58FEIAQahTXMwPAq//rPPMsgACEUKO4nhmA+n67+jNg3jPfFiQAIdQormcGgJt/r7O2
PwsCEEKN4npmALj+f51n3gcgACHUKK5nBkD9+/EcCcAA1CiuBGCPZ0EAQqhRXM8MAOyAAIRQo7gSAOiG
AIRQo7gSAOiGAIRQo7gSAOiGAIRQo7gSAOiGAIRQo7gSAOiGAIRQo7gSAOiGAIRQo7gSAOiGAIRQo7gS
AOiGAIRQo7gSAOiGAIRQo7gev48escvU177Xw7fpcLPr4fv0uNUzf57BZSEAuNW6rFgPP1ILt0oAHtQN
FjUO4nTr2F8Pv1EHt3qVX33+crgPgNvk9P+J+vHOaiTEqXL6/wSXAbhNTv/fwM1A3OKZv9DkNlQR+VQg
bhDegbMAnC7X/h/ADUGcKh/9/QR1KcDbgjhNnvxfgPsBOMkzf4XZGDgTwAny5DeoCHBPAO8qp/1NVAS4
JMC7WMcq7/U3w9kA3kGe+GGOEHB/AK8ir/gvomJQH6yob1ZVEEouFTBlHVtlHWd1zPGkBwAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAGM+3b/8D
5YK/CrjgMXgAAAAASUVORK5CYII=
</value>
</data>
<data name="PictureBox10.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAQAAAAEACAYAAABccqhmAAAABGdBTUEAALGPC/xhBQAACHtJREFUeF7t
3Y1xJDUQBtALhVAIhUwIhVAIhVDg+uoG7EXr/Z0Z9af3qr4qCrDP9mqkVkvr+wYAAAAAAAAAAAAAAAAA
AAAAAAAAAMD7/PI9v37Pbz/z+4f8Mcj237b/vz62PgcwsXpIt4f3z+/563v+fmPq81Xqc9dEsU0OwMG2
VX172EcP7FHZJoX6WkwIsJNthT/7gb+VrVKor9XWAV7Q5aH/KiYDeFD3h/5atskAuLCt9qMHJy2qAvhp
pQf/MjUR1ImCiYDl1KCvwT96MFZM/SycIhBv5RX/nqgIiOXBvy+ahUSp0rYG9Wiwy/XUz6xuHEJLVcom
HucdnfoZ2hbQSq36o8Esz8W2gDbs9feLSYBpKfmPSVUDtgRMpZpVo8Eq+8SWgGm40HNeTAKcSsl/fmoC
hsN5+OdJbQngEJp9c0ZzkN3VAKuBNhqAcn5MAuymBtZo0MlcMQnwdjWglP19YhLgrTz8/VKTALzMw983
JgFe4uHvH/cEeIobfjlxY5CHeDtvXkwC3MVxX2aqH+AXj3KTfX9uNAX5UpWJo4EjOdEUZMi+f53YCvCJ
ff9acVOQT+z710u95qD0Xzi2AvwoB0eDQ/LjVGBxuv7igtDCRgNC1oqG4KLc9Zct7gYsRuNPLqMhuBDH
fnIZx4KLcOlHrkUVsAB7f7kWvYAFjF54kYoTgXDO/eVWVAHB3PqTW3E7MJS/wlvuTY0Vwqx+9FcrW/0M
qsStrVClBvqW+vcVR6SOBCONXuj01ENfD/qjx1vVCKuPqY9ddUJwJBhktfK/Htx3qgmhPufoz0rNu3+G
nGiVVWzvQbvSRGAbEGT0Aiel9u5Hnl+vMhHYBgRIL//r+ztL+iRgGxAg9ey/vq8ZVqiqBlJ/xrYBAUYv
bPfUA3dkyX9L6iRQ3xONJZb/s65KNQkkNlv1ARpL26POtvJfSqwE9AEaq+746EXtmg6rUU0Co6+9a/QB
Ghu9oF1zZrf/UUlbL32Apmq1HL2gHdNxFUqqvvQBGkpahWbe91+TtBXQB2goZQWq76OrlNfABNBQyuDr
uPpvUqoAjcCGEo6jOq/+m4SJWCOwodEL2S2dV/9NQhVgAmho9EJ2StKgS7ghmDAZLyPhBCCh/N8k3Mh0
FNhIwgSQNOAS7mR0uoi1vIQJIElCH8AE0Ej3kjPx2Kl7H8BdgEa6TwBJ+/9N9+NAE0Aj3Qdb4gTQfVI2
ATRitZmPqozDdJ8AEhtO3RuzJoBGTADzMQFwmO4TgC3AfDEBNNJ9sCVOAN0nZRNAI90ngMR7AKoyDmMC
mI+LQBym+wSQ+PbT0ffZKa4CN5Lw5pOkNwN1PwGomAAaSZgAkkrO7vv/it8H0IjfQjOX+l5G32OnmACa
Gb2I3ZKyDRh9b91CMwmrTsLZc0L5n9iUjdf92KlSA6976Tn6vrrFJaCGuh8Fbuk8+BJW/4o7AA0lnARU
qgro2AtIaMRucQTYUNIA7FgFJGzBtjgBaGr0YnZNpzI04eLPx9BU0irUZSuQsvXaogHYWEojcMvspwJJ
264tJoDG0lajysxn0kkV1xYNwMYSV6TKbJVAfS2JD39l5oqLO6QOzJoEZlidEqusLTV2aC6tD/AxNQmc
eTqQ1u2/jP1/gOQVaksN1CNL1fqz6s8cfS1Jsf8PUIN19OKmZasG9pwI6nMnV1SXIURqH2CUPSaC1R78
ivI/SPpe9VpqMqiB/MwFou2hr88x+tzpUf4HqcE8epFXSj3IVQnVhFCph7sGeaX+uVL/fqVq6au8s4Ji
Aga2PBLCrLaHledj/x/INkDujfI/lG2A3Er1SghlGyC3ovsfzDZAbkX5H842QK6lxgbhVr0UJLej/F+A
bYBcC4uwDZDLOPtfyApvEZbH8sz7JWhMFSAfw2I0A2WL5t+CNANli7P/RVXjZzQgZJ1o/i1MFSCaf4vT
DFw3bv7hSHDhaP7xYxugClgz8IMjwfVi9edfmoHrBT5RBayT+sUw8IkqYJ24+MOQi0H5cfGHq1QB+bH6
8yVVQG6s/tykCsiN1Z+7qALyYvXnbqqAvFj9eYgqICdWfx6mCsiJ1Z+n+KvE+setP56mCugfeIn3CPSN
1Z+XVRVQf2X0aIDJ3IG3UAX0i/f78zZVBfitQX1SFRu8ld8d2Cd+0y+7UAXMH7/pl904Fpw/Vn925Yrw
vHHll92pAuZNvTawO8eC88WxH4dxLDhXHPtxOMeC80Tjj1NoCJ4fjT9OoyF4fjT+OJWG4Hnxbj9OpyF4
TjT+mIaG4PHR+GMqGoLHReOP6WgIHheYkobg/nHjj6lpCO4Xb/VlerYC+0XjjxZsBd4fZ/604W7Ae6P0
px1bgfdF6U9L/mqx16P0py1bgdfiui/t2Qo8H6U/EWwFHo/Snxi2Ao9F6U8cW4H7o/Qnkq3A7Sj9iWUr
8HVc+CGercD1KP1Zgq3A/6P0Zxm2Ap+j9Gc5tgL/pX4WsBxvG7bvZ3Er/zJRpT/Lq/K3br6NHpDkuO0H
P1UZPHpIkqP0hw9WOhp05AcXVjkatO+HK1Y4GlT6wxeSjwY9/HCHxH6A0h/ulHY06MgPHpTUD1D6wxMS
+gEefnhB56vC9v3woq79APt+eJOO/QClP7xRp36Ahx920OF+gH0/7KS2AjO/X8C+H3Y2cz9A6Q8HmLEf
4OGHA83UD/D+fjjYLP0ATT84ydmXhDT94GRnNgXt+2ECZzQFPfwwkSObgpp+MJmjmoKafjCpvZuCmn4w
uT2bgvb90MAeTUEPPzTyzqagph809I5fJ6bpB029ejLg4Yfmnj0ZqI+pjwWae+ZkQNMPgjxyMuDhh0D3
nAzo+EOwryYBTT8Id+1kwMMPi7g8GXDHHxazTQKO+2BR9eDr+AMAAAAAAAAAAAAAAAAAAAAAAAAAABzj
27d/ABBabbXEUZDWAAAAAElFTkSuQmCC
</value>
</data>
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAABAAEAgIAAAAEAGAAoyAAAFgAAACgAAACAAAAAAAEAAAEAGAAAAAAAAMgAAMQOAADEDgAAAAAAAAAA

18
SDL/kunden/frmKundenKontakteDetails.vb
View File

@@ -32,6 +32,9 @@
cboMannFrau.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Frau", "Frau"))
cboKontaktArt.fillWithSQL("SELECT [kka_id],[kka_Bezeichnung] FROM [tblKundenKontaktArten]", False, "FMZOLL", False)
cbxLand.fillWithSQL(" select distinct landkz, Währungstabelle.Land from Währungstabelle where landkz is not null order by LandKz", , "FMZOLL", True)
cbxLand.changeItem("")
If cboKontaktArt.Items.Count > 0 Then cboKontaktArt.SelectedIndex = 0
If kkd_id > 0 Then
@@ -58,6 +61,12 @@
lblEmailCC.Text = If(KD_KONTAKT.kkd_EmailCC, "")
lblEmailBCC.Text = If(KD_KONTAKT.kkd_EmailBCC, "")
lblMobil.Text = If(KD_KONTAKT.kkd_Mobil, "")
txtOrt.Text = If(KD_KONTAKT.kkd_Ort, "")
txtStrasse.Text = If(KD_KONTAKT.kkd_Adresse, "")
txtPLZ.Text = If(KD_KONTAKT.kkd_PLZ, "")
If Not IsDBNull(KD_KONTAKT.kkd_Land) Then cbxLand.changeItem(KD_KONTAKT.kkd_Land)
txtGebDatum.Text = IIf(Not IsDBNull(KD_KONTAKT.kkd_GebDatum) AndAlso IsDate(KD_KONTAKT.kkd_GebDatum), CDate(KD_KONTAKT.kkd_GebDatum), "")
End Sub
Sub getvalue()
@@ -78,6 +87,12 @@
KD_KONTAKT.kkd_EmailBCC = lblEmailBCC.Text
KD_KONTAKT.kkd_Mobil = lblMobil.Text
KD_KONTAKT.kkd_GebDatum = IIf(txtGebDatum.Text <> "" AndAlso IsDate(txtGebDatum.Text), txtGebDatum.Text, "")
KD_KONTAKT.kkd_Ort = txtOrt.Text
KD_KONTAKT.kkd_Land = cbxLand._value
KD_KONTAKT.kkd_PLZ = txtPLZ.Text
KD_KONTAKT.kkd_Adresse = txtStrasse.Text
End Sub
Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
@@ -86,7 +101,4 @@
Me.Close()
End Sub
Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles lblEmailCC.TextChanged
End Sub
End Class

1189
SDL/kunden/frmKundenblatt.Designer.vb generated
View File

File diff suppressed because it is too large Load Diff

8
SDL/kunden/frmKundenblatt.vb
View File

@@ -40,6 +40,7 @@ Public Class frmKundenblatt
Private InfoDauer As Integer = 3
Private WithEvents timShow As New Timer With {.Interval = 10}
Private WithEvents timHide As New Timer With {.Interval = 10}
Dim isVerag360 As Boolean = False
Sub New()
@@ -103,6 +104,7 @@ Public Class frmKundenblatt
tbcntrMain.ItemSize = New Size(0, 1)
tbcntrMain.SizeMode = TabSizeMode.Fixed
If Not IsDBNull(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_firmaFMZoll) AndAlso CInt(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_firmaFMZoll) = 19 Then isVerag360 = True
If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FirmenDatenAnzeige IsNot Nothing AndAlso VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FirmenDatenAnzeige <> "" Then
Dim where = If(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FirmenDatenAnzeige.contains("A"), "", " AND Firma_ID IN (" & VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FirmenDatenAnzeige & ") ")
@@ -168,6 +170,10 @@ Public Class frmKundenblatt
btnOP.Visible = True
End If
If isVerag360 Then
ToolStripMenuItem5.Visible = False
End If
loaded = True
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
@@ -313,7 +319,7 @@ Public Class frmKundenblatt
'Dim usr As New usrcntlKundeBearbeitenFull(kdNr)
UsrcntlKundeBearbeitenFull1.init(kdNr)
UsrcntlKundeBearbeitenFull1.init(kdNr, isVerag360)
If FilialeNr > 0 Then
UsrcntlKundeBearbeitenFull1.cboFiliale.changeItem(FilialeNr)

701
SDL/kunden/usrCntlOfferte.vb
View File

@@ -65,109 +65,118 @@ Public Class usrCntlOfferte
Sub initDGVOfferteDetails(OffertenNr)
loaded = False
Try
With dgvOfferteDetails
'.Columns.Clear()
With dgvOfferteDetails
'.Columns.Clear()
Try
OFFERTEBind = New cEasyBinding(BIND_DB)
OFFERTEBind.initBinding(" SELECT [LeistungsNr],[LeistungsBez],[BerechnungsartNr],[Preis],[Anzahl],[BGebLeistungsNr],[BGebProzent],[BGebMinBetrag],BerechnungsartPosInkludiert,[Eingegeben am],[Geändert am],[Sachbearbeiter],[PreisänderungProzent],[PreisAlt],[Preisänderung],KundenNr,OffertenNr " &
" FROM [Offertenpositionen] " &
" WHERE KundenNr='" & kdNr & "' and OffertenNr='" & OffertenNr & "' ORDER BY LeistungsNr, Preis DESC", "Offertenpositionen")
For Each c As DataColumn In OFFERTEBind.bindingdataTable.Columns
If c.ColumnName = "SSMA_TimeStamp" Then
OFFERTEBind.bindingdataTable.Columns.Remove(c)
Exit For
End If
Next
' KASSENBind.initBinding("SELECT * FROM " & table & "", table)
Try
OFFERTEBind = New cEasyBinding(BIND_DB)
OFFERTEBind.initBinding(" SELECT [LeistungsNr],[LeistungsBez],[BerechnungsartNr],[Preis],[Anzahl],[BGebLeistungsNr],[BGebProzent],[BGebMinBetrag],BerechnungsartPosInkludiert,[Eingegeben am],[Geändert am],[Sachbearbeiter],[PreisänderungProzent],[PreisAlt],[Preisänderung],KundenNr,OffertenNr " &
" FROM [Offertenpositionen] " &
" WHERE KundenNr='" & kdNr & "' and OffertenNr='" & OffertenNr & "' ORDER BY LeistungsNr, Preis DESC", "Offertenpositionen")
For Each c As DataColumn In OFFERTEBind.bindingdataTable.Columns
If c.ColumnName = "SSMA_TimeStamp" Then
OFFERTEBind.bindingdataTable.Columns.Remove(c)
Exit For
End If
Next
' KASSENBind.initBinding("SELECT * FROM " & table & "", table)
.DataSource = OFFERTEBind.bindingdataTable
' DataGridView.AutoSize = True
' OFFERTEBind.bindingdataTable.PrimaryKey = {OFFERTEBind.bindingdataTable.Columns("KundenNr"), OFFERTEBind.bindingdataTable.Columns("LeistungsNr"), OFFERTEBind.bindingdataTable.Columns("LeistungsNr"), OFFERTEBind.bindingdataTable.Columns("LeistungsBez")}
.DataSource = OFFERTEBind.bindingdataTable
' DataGridView.AutoSize = True
' OFFERTEBind.bindingdataTable.PrimaryKey = {OFFERTEBind.bindingdataTable.Columns("KundenNr"), OFFERTEBind.bindingdataTable.Columns("LeistungsNr"), OFFERTEBind.bindingdataTable.Columns("LeistungsNr"), OFFERTEBind.bindingdataTable.Columns("LeistungsBez")}
Catch ex As Exception
MsgBox(ex.Message)
End Try
Catch ex As Exception
MsgBox(ex.Message)
End Try
'.DataSource = SQL.loadDgvBySql(" SELECT [LeistungsNr],[LeistungsBez],[BerechnungsartNr],[Preis],[Anzahl],[BGebLeistungsNr],[BGebProzent],[BGebMinBetrag],[Eingegeben am],[Geändert am],[Sachbearbeiter],[PreisänderungProzent],[PreisAlt],[Preisänderung] " &
' " FROM [Offertenpositionen] " &
' " WHERE KundenNr='" & kdNr & "' and OffertenNr='" & OffertenNr & "' ORDER BY LeistungsNr ", "FMZOLL")
'.DataSource = SQL.loadDgvBySql(" SELECT [LeistungsNr],[LeistungsBez],[BerechnungsartNr],[Preis],[Anzahl],[BGebLeistungsNr],[BGebProzent],[BGebMinBetrag],[Eingegeben am],[Geändert am],[Sachbearbeiter],[PreisänderungProzent],[PreisAlt],[Preisänderung] " &
' " FROM [Offertenpositionen] " &
' " WHERE KundenNr='" & kdNr & "' and OffertenNr='" & OffertenNr & "' ORDER BY LeistungsNr ", "FMZOLL")
FUNC.dgvCellToCbo(dgvOfferteDetails, 2, "Berechnungsart", "BerechnungsartNr", " SELECT [BerechnungsartNr], CAST(BerechnungsartNr as varchar(3)) + ' - ' + [BerechnungsartBez] as [BerechnungsartBez] FROM [Berechnungsart] ORDER BY BerechnungsartNr ", "FMZOLL", 150)
FUNC.dgvCellToCbo(dgvOfferteDetails, 5, "BGebLeist.", "BGebLeistungsNr", " SELECT [LeistungsNr], CAST(LeistungsNr as varchar(3)) + ' - ' + [LeistungsBez] as LeistungsBez FROM [Leistungen] ORDER BY [LeistungsNr] ", "FMZOLL", 250)
FUNC.dgvCellToCbo(dgvOfferteDetails, 2, "Berechnungsart", "BerechnungsartNr", " SELECT [BerechnungsartNr], CAST(BerechnungsartNr as varchar(3)) + ' - ' + [BerechnungsartBez] as [BerechnungsartBez] FROM [Berechnungsart] ORDER BY BerechnungsartNr ", "FMZOLL", 150)
FUNC.dgvCellToCbo(dgvOfferteDetails, 5, "BGebLeist.", "BGebLeistungsNr", " SELECT [LeistungsNr], CAST(LeistungsNr as varchar(3)) + ' - ' + [LeistungsBez] as LeistungsBez FROM [Leistungen] ORDER BY [LeistungsNr] ", "FMZOLL", 250)
checkPerimissionsDGVDetails()
checkPerimissionsDGVDetails()
.Columns("OffertenNr").Visible = False
.Columns("KundenNr").Visible = False
.Columns("LeistungsNr").Width = 30
.Columns("LeistungsNr").HeaderText = "Nr"
.Columns("LeistungsBez").MinimumWidth = 200
.Columns("LeistungsBez").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
.Columns("LeistungsBez").HeaderText = "Leistung"
.Columns("BerechnungsartNr").MinimumWidth = 150
.Columns("Preis").Width = 60
.Columns("Preis").DefaultCellStyle.Format = "N2"
.Columns("Preis").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight
.Columns("Anzahl").Width = 50
.Columns("Anzahl").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
.Columns("OffertenNr").Visible = False
.Columns("KundenNr").Visible = False
.Columns("LeistungsNr").Width = 30
.Columns("LeistungsNr").HeaderText = "Nr"
.Columns("LeistungsBez").MinimumWidth = 200
.Columns("LeistungsBez").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
.Columns("LeistungsBez").HeaderText = "Leistung"
.Columns("BerechnungsartNr").MinimumWidth = 150
.Columns("Preis").Width = 60
.Columns("Preis").DefaultCellStyle.Format = "N2"
.Columns("Preis").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight
.Columns("Anzahl").Width = 50
.Columns("Anzahl").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
.Columns("BerechnungsartPosInkludiert").HeaderText = "Pos.inkl."
.Columns("BerechnungsartPosInkludiert").Width = 45
.Columns("BerechnungsartPosInkludiert").HeaderText = "Pos.inkl."
.Columns("BerechnungsartPosInkludiert").Width = 45
.Columns("BGebLeistungsNr").Width = 60
.Columns("BGebProzent").Width = 55
.Columns("BGebProzent").HeaderText = "BGeb %"
.Columns("BGebProzent").DefaultCellStyle.Format = "P"
.Columns("BGebProzent").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight
.Columns("BGebMinBetrag").Width = 60
.Columns("BGebMinBetrag").HeaderText = "BGebMinBetr."
.Columns("BGebMinBetrag").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight
.Columns("Eingegeben am").Visible = False
' .Columns("Sachbearbeiter").Visible = False
' .Columns("Geändert am").Visible = False
.Columns("PreisänderungProzent").Width = 70
.Columns("PreisänderungProzent").HeaderText = "Preisänd. %"
.Columns("PreisänderungProzent").DefaultCellStyle.Format = "P"
.Columns("PreisänderungProzent").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight
.Columns("PreisAlt").Width = 60
.Columns("PreisAlt").DefaultCellStyle.Format = "N2"
.Columns("PreisAlt").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight
.Columns("Preisänderung").Width = 60
.Columns("Preisänderung").HeaderText = "PreisNeu"
.Columns("Preisänderung").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight
' .Columns("OffertenBez").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
' .Columns("OffertenBez").HeaderText = "Bezeichnung"
.Columns("BGebLeistungsNr").Width = 60
.Columns("BGebProzent").Width = 55
.Columns("BGebProzent").HeaderText = "BGeb %"
.Columns("BGebProzent").DefaultCellStyle.Format = "P"
.Columns("BGebProzent").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight
.Columns("BGebMinBetrag").Width = 60
.Columns("BGebMinBetrag").HeaderText = "BGebMinBetr."
.Columns("BGebMinBetrag").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight
.Columns("Eingegeben am").Visible = False
' .Columns("Sachbearbeiter").Visible = False
' .Columns("Geändert am").Visible = False
.Columns("PreisänderungProzent").Width = 70
.Columns("PreisänderungProzent").HeaderText = "Preisänd. %"
.Columns("PreisänderungProzent").DefaultCellStyle.Format = "P"
.Columns("PreisänderungProzent").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight
.Columns("PreisAlt").Width = 60
.Columns("PreisAlt").DefaultCellStyle.Format = "N2"
.Columns("PreisAlt").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight
.Columns("Preisänderung").Width = 60
.Columns("Preisänderung").HeaderText = "PreisNeu"
.Columns("Preisänderung").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight
' .Columns("OffertenBez").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
' .Columns("OffertenBez").HeaderText = "Bezeichnung"
loaded = True
End With
loaded = True
End With
DGVHasChaged = False
DGVHasChaged = False
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
End Sub
Private Sub dgvOfferteDetails_SelectionChanged(sender As Object, e As EventArgs) Handles dgvOfferteNew.SelectionChanged
cbxArchivierteOffertenAnzeigen.Checked = False
cbxArchivierteOfferten.Items.Clear()
checkPermissions()
If dgvOfferteNew.RowCount > 0 Then
rtbBesonderheiten.Text = cSqlDb.checkNullStr(dgvOfferteNew.Rows(0).Cells("Besonderheiten").Value)
Else
btnStandardLaden.Visible = False
cbxArchivierteOfferten.Enabled = False
rtbBesonderheiten.Text = ""
End If
Try
If dgvOfferteNew.SelectedRows.Count > 0 Then
initDGVOfferteDetails(dgvOfferteNew.SelectedRows(0).Cells("OffertenNr").Value)
End If
cbxArchivierteOffertenAnzeigen.Checked = False
cbxArchivierteOfferten.Items.Clear()
checkPermissions()
If dgvOfferteNew.RowCount > 0 Then
rtbBesonderheiten.Text = cSqlDb.checkNullStr(dgvOfferteNew.Rows(0).Cells("Besonderheiten").Value)
Else
btnStandardLaden.Visible = False
cbxArchivierteOfferten.Enabled = False
rtbBesonderheiten.Text = ""
End If
If dgvOfferteNew.SelectedRows.Count > 0 Then
initDGVOfferteDetails(dgvOfferteNew.SelectedRows(0).Cells("OffertenNr").Value)
End If
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
End Sub
@@ -206,30 +215,35 @@ Public Class usrCntlOfferte
Private Sub btnAddLeistung_Click(sender As Object, e As EventArgs) Handles btnAddLeistung.Click
Try
Dim SQLsrt = " SELECT (select case when COUNT(*)>0 then 1 else 0 end FROM Offertenpositionen where KundenNr=" & kdNr & " and [Offertenpositionen].[OffertenNr]=[Offertenstamm].[OffertenNr]) as vorhanden," &
Dim SQLsrt = " SELECT (select case when COUNT(*)>0 then 1 else 0 end FROM Offertenpositionen where KundenNr=" & kdNr & " and [Offertenpositionen].[OffertenNr]=[Offertenstamm].[OffertenNr]) as vorhanden," &
" [Offertenstamm].[OffertenNr],[OffertenBez] FROM Offertenstamm "
For Each r As DataRow In SQL.loadDgvBySql(SQLsrt, "FMZOLL").Rows
If Not CBool(r("vorhanden")) Then
Dim i As New ToolStripMenuItem
i.Text = r("OffertenNr") & " - " & r("OffertenBez")
i.Name = "tsmiOffertNr_" & r("OffertenNr")
i.Tag = r("OffertenNr")
cntxtAddSdl.Items.Add(i)
' If s.Sperre <> 0 Then i.Enabled = False : i.Text = i.Text & " (gesperrt)"
AddHandler i.Click, AddressOf AddOffert_Click
End If
Next
For Each r As DataRow In SQL.loadDgvBySql(SQLsrt, "FMZOLL").Rows
If Not CBool(r("vorhanden")) Then
Dim i As New ToolStripMenuItem
i.Text = r("OffertenNr") & " - " & r("OffertenBez")
i.Name = "tsmiOffertNr_" & r("OffertenNr")
i.Tag = r("OffertenNr")
cntxtAddSdl.Items.Add(i)
' If s.Sperre <> 0 Then i.Enabled = False : i.Text = i.Text & " (gesperrt)"
AddHandler i.Click, AddressOf AddOffert_Click
End If
Next
btnAddLeistung.ContextMenuStrip = cntxtAddSdl
' cntxtAddSdl
Dim ptLowerLeft As New Point(sender.width, sender.Height)
ptLowerLeft = sender.PointToScreen(ptLowerLeft)
ptLowerLeft.X -= sender.width
cntxtAddSdl.Show(ptLowerLeft)
btnAddLeistung.ContextMenuStrip = cntxtAddSdl
' cntxtAddSdl
Dim ptLowerLeft As New Point(sender.width, sender.Height)
ptLowerLeft = sender.PointToScreen(ptLowerLeft)
ptLowerLeft.X -= sender.width
cntxtAddSdl.Show(ptLowerLeft)
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
End Sub
Private Sub AddOffert_Click(sender As Object, e As EventArgs) Handles DToolStripMenuItem.Click
@@ -244,47 +258,54 @@ Public Class usrCntlOfferte
Private Sub btnHinzufuegen_Click_1(sender As Object, e As EventArgs) Handles btnHinzufuegen.Click
If edit = False Then
MsgBox("Bitte vorher in den Editiermodus wechseln")
Exit Sub
End If
lblLeistunAddErr.Visible = False
lblLeistunAddErr2.Visible = False
Label3.Visible = False
If dgvOfferteNew.SelectedRows.Count <> 1 Then
Label3.Visible = True
End If
'Fehlerprüfung:
'-------
If cboLeistungenAdd._value = "" Then lblLeistunAddErr.Visible = True : Exit Sub
If LeistungsBezexists(cboLeistungenAdd._value, MyTextBox1.Text, dgvOfferteNew.SelectedRows(0).Cells("OffertenNr").Value) Then lblLeistunAddErr2.Visible = True : Exit Sub
'-------
Try
Dim l As New VERAG_PROG_ALLGEMEIN.cLeistungen(cboLeistungenAdd._value)
Dim o As New VERAG_PROG_ALLGEMEIN.cOffertPosition
o.KundenNr = kdNr
o.LeistungsNr = l.LeistungsNr
o.LeistungsBez = MyTextBox1.Text
o.OffertenNr = dgvOfferteNew.SelectedRows(0).Cells("OffertenNr").Value
'o.Preis=l.preis
o.BerechnungsartNr = l.BerechnungsartNr
'o.Anzahl = l.m
'o.BGebLeistungsNr = l.BGebUStV
'o.BGebProzent = l.XXXXXXXXXX
'o.BGebMinBetrag = l.XXXXXXXXXX
o.Eingegeben_am = Now
'o.Geändert_am = l.XXXXXXXXXX
o.Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
'o.Preisänderung = l.Preissperre
'o.PreisänderungProzent = l.XXXXXXXXXX
'o.PreisAlt = l.XXXXXXXXXX
If o.INSERT() Then
cboLeistungenAdd.changeItem("")
initDGVOfferteDetails(o.OffertenNr)
addLeistung = True
End If
If edit = False Then
MsgBox("Bitte vorher in den Editiermodus wechseln")
Exit Sub
End If
lblLeistunAddErr.Visible = False
lblLeistunAddErr2.Visible = False
Label3.Visible = False
If dgvOfferteNew.SelectedRows.Count <> 1 Then
Label3.Visible = True
End If
'Fehlerprüfung:
'-------
If cboLeistungenAdd._value = "" Then lblLeistunAddErr.Visible = True : Exit Sub
If LeistungsBezexists(cboLeistungenAdd._value, MyTextBox1.Text, dgvOfferteNew.SelectedRows(0).Cells("OffertenNr").Value) Then lblLeistunAddErr2.Visible = True : Exit Sub
'-------
Dim l As New VERAG_PROG_ALLGEMEIN.cLeistungen(cboLeistungenAdd._value)
Dim o As New VERAG_PROG_ALLGEMEIN.cOffertPosition
o.KundenNr = kdNr
o.LeistungsNr = l.LeistungsNr
o.LeistungsBez = MyTextBox1.Text
o.OffertenNr = dgvOfferteNew.SelectedRows(0).Cells("OffertenNr").Value
'o.Preis=l.preis
o.BerechnungsartNr = l.BerechnungsartNr
'o.Anzahl = l.m
'o.BGebLeistungsNr = l.BGebUStV
'o.BGebProzent = l.XXXXXXXXXX
'o.BGebMinBetrag = l.XXXXXXXXXX
o.Eingegeben_am = Now
'o.Geändert_am = l.XXXXXXXXXX
o.Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
'o.Preisänderung = l.Preissperre
'o.PreisänderungProzent = l.XXXXXXXXXX
'o.PreisAlt = l.XXXXXXXXXX
If o.INSERT() Then
cboLeistungenAdd.changeItem("")
initDGVOfferteDetails(o.OffertenNr)
addLeistung = True
End If
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
End Sub
Function LeistungsBezexists(LeistungsNr, LeistungsBez, OffertenNr)
@@ -307,28 +328,36 @@ Public Class usrCntlOfferte
End Sub
Private Sub dgvOfferteDetails_CellValueChanged(sender As Object, e As DataGridViewCellEventArgs) Handles dgvOfferteDetails.CellValueChanged
If loaded = True Then
dgvOfferteDetails.Rows(e.RowIndex).Cells("Sachbearbeiter").Value = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
dgvOfferteDetails.Rows(e.RowIndex).Cells("Geändert am").Value = Now
DGVHasChaged = True
'saveCurrentOffert()
If isNew = True Then
Try
currentOffert.Art = "Neuanlage"
currentOffert.SAVE()
Else
If loaded = True Then
dgvOfferteDetails.Rows(e.RowIndex).Cells("Sachbearbeiter").Value = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
dgvOfferteDetails.Rows(e.RowIndex).Cells("Geändert am").Value = Now
DGVHasChaged = True
'saveCurrentOffert()
If isNew = True Then
currentOffert.Art = "Neuanlage"
currentOffert.SAVE()
Else
currentOffert.Art = "Geändert"
currentOffert.SAVE()
End If
currentOffert.Art = "Geändert"
currentOffert.SAVE()
End If
End If
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
End Sub
Private Sub btnDeleteOfferte_Click(sender As Object, e As EventArgs) Handles btnDeleteOfferte.Click
If dgvOfferteNew.SelectedRows.Count = 1 Then
Try
If dgvOfferteNew.SelectedRows.Count = 1 Then
If vbYes = MsgBox("Möchten Sie das Offert '" & dgvOfferteNew.SelectedRows(0).Cells("OffertenBez").Value & "' wirklich löschen", vbYesNoCancel) Then
saveCurrentOffert()
currentOffert.Art = "Offert gelöscht"
@@ -340,20 +369,30 @@ Public Class usrCntlOfferte
End If
End If
End If
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
End Sub
Private Sub btnOfferteSpeichern_Click(sender As Object, e As EventArgs) Handles btnOfferteSpeichern.Click
KD_ERW.AutoFakturierung = cbxAutoFakturierung.Checked
KD_ERW.SAVE()
Try
checkPerimissionsDGVDetails()
edit = False
handleEditMode(edit)
saveToArchive()
KD_ERW.AutoFakturierung = cbxAutoFakturierung.Checked
KD_ERW.SAVE()
OFFERTEBind.updateBinding()
RaiseEvent OfferteChanged()
DGVHasChaged = False
checkPerimissionsDGVDetails()
edit = False
handleEditMode(edit)
saveToArchive()
OFFERTEBind.updateBinding()
RaiseEvent OfferteChanged()
DGVHasChaged = False
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
End Sub
@@ -368,81 +407,93 @@ Public Class usrCntlOfferte
Private Sub OfferteArchivieren(Optional Art As String = "")
currentOffertArchiv = New VERAG_PROG_ALLGEMEIN.cOfferteArchiv()
currentOffertArchiv.KundenNr = currentOffert.KundenNr
currentOffertArchiv.FilialenNr = currentOffert.FilialenNr
currentOffertArchiv.OffertenNr = currentOffert.OffertenNr
currentOffertArchiv.Standardofferte = currentOffert.Standardofferte
currentOffertArchiv.Besonderheiten = currentOffert.Besonderheiten
currentOffertArchiv.Eingegeben_am = currentOffert.Eingegeben_am
currentOffertArchiv.Geändert_am = currentOffert.Geändert_am
currentOffertArchiv.Sachbearbeiter = currentOffert.Sachbearbeiter
currentOffertArchiv.SSMA_TimeStamp = currentOffert.SSMA_TimeStamp
currentOffertArchiv.Gesperrt = currentOffert.Gesperrt
currentOffertArchiv.Gesperrt_Datum = currentOffert.Gesperrt_Datum
currentOffertArchiv.Gesperrt_Grund = currentOffert.Gesperrt_Grund
currentOffertArchiv.Art = currentOffert.Art
ofID = currentOffertArchiv.SAVERETURNID()
Try
If ofID > 0 Then
For Each row As DataRow In tmpDataTable.Rows
If tmpDataTable.Rows.Count = 0 Then Exit Sub
Dim oP As New VERAG_PROG_ALLGEMEIN.cOffertPositionArchiv
oP.OfID = ofID
oP.KundenNr = currentOffertArchiv.KundenNr
oP.LeistungsNr = row("LeistungsNr")
oP.LeistungsBez = row("LeistungsBez")
oP.OffertenNr = currentOffertArchiv.OffertenNr
oP.BerechnungsartNr = row("BerechnungsartNr")
oP.Preis = row("Preis")
oP.Anzahl = row("Anzahl")
oP.BGebLeistungsNr = row("BGebLeistungsNr")
oP.BGebProzent = row("BGebProzent")
oP.BGebMinBetrag = row("BGebMinBetrag")
oP.Eingegeben_am = row("Eingegeben am")
oP.Geändert_am = row("Geändert am")
oP.Sachbearbeiter = row("Sachbearbeiter")
oP.Preisänderung = row("Preisänderung")
oP.PreisänderungProzent = row("PreisänderungProzent")
oP.PreisAlt = row("PreisAlt")
oP.BerechnungsartPosInkludiert = row("BerechnungsartPosInkludiert")
oP.INSERT()
Next
End If
currentOffertArchiv = New VERAG_PROG_ALLGEMEIN.cOfferteArchiv()
currentOffertArchiv.KundenNr = currentOffert.KundenNr
currentOffertArchiv.FilialenNr = currentOffert.FilialenNr
currentOffertArchiv.OffertenNr = currentOffert.OffertenNr
currentOffertArchiv.Standardofferte = currentOffert.Standardofferte
currentOffertArchiv.Besonderheiten = currentOffert.Besonderheiten
currentOffertArchiv.Eingegeben_am = currentOffert.Eingegeben_am
currentOffertArchiv.Geändert_am = currentOffert.Geändert_am
currentOffertArchiv.Sachbearbeiter = currentOffert.Sachbearbeiter
currentOffertArchiv.SSMA_TimeStamp = currentOffert.SSMA_TimeStamp
currentOffertArchiv.Gesperrt = currentOffert.Gesperrt
currentOffertArchiv.Gesperrt_Datum = currentOffert.Gesperrt_Datum
currentOffertArchiv.Gesperrt_Grund = currentOffert.Gesperrt_Grund
currentOffertArchiv.Art = currentOffert.Art
ofID = currentOffertArchiv.SAVERETURNID()
If ofID > 0 Then
For Each row As DataRow In tmpDataTable.Rows
If tmpDataTable.Rows.Count = 0 Then Exit Sub
Dim oP As New VERAG_PROG_ALLGEMEIN.cOffertPositionArchiv
oP.OfID = ofID
oP.KundenNr = currentOffertArchiv.KundenNr
oP.LeistungsNr = row("LeistungsNr")
oP.LeistungsBez = row("LeistungsBez")
oP.OffertenNr = currentOffertArchiv.OffertenNr
oP.BerechnungsartNr = row("BerechnungsartNr")
oP.Preis = row("Preis")
oP.Anzahl = row("Anzahl")
oP.BGebLeistungsNr = row("BGebLeistungsNr")
oP.BGebProzent = row("BGebProzent")
oP.BGebMinBetrag = row("BGebMinBetrag")
oP.Eingegeben_am = row("Eingegeben am")
oP.Geändert_am = row("Geändert am")
oP.Sachbearbeiter = row("Sachbearbeiter")
oP.Preisänderung = row("Preisänderung")
oP.PreisänderungProzent = row("PreisänderungProzent")
oP.PreisAlt = row("PreisAlt")
oP.BerechnungsartPosInkludiert = row("BerechnungsartPosInkludiert")
oP.INSERT()
Next
End If
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
End Sub
Private Sub btnStandardLaden_Click(sender As Object, e As EventArgs) Handles btnStandardLaden.Click
Try
Dim KUNDE As New VERAG_PROG_ALLGEMEIN.cKunde(kdNr)
Dim FIRMA_TMP = VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(KUNDE.FilialenNr)
Dim KUNDE As New VERAG_PROG_ALLGEMEIN.cKunde(kdNr)
Dim FIRMA_TMP = VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(KUNDE.FilialenNr)
If Not vbYes = MsgBox("Möchten Sie die Standardofferte für den Kunden " & KUNDE.KundenNr & " laden?" & vbNewLine & "Aktuelle Offerteneinstellungen werden gelöscht.", vbYesNo) Then Exit Sub
If Not vbYes = MsgBox("Möchten Sie die Standardofferte für den Kunden " & KUNDE.KundenNr & " laden?" & vbNewLine & "Aktuelle Offerteneinstellungen werden gelöscht.", vbYesNo) Then Exit Sub
edit = True
handleEditMode(edit)
saveCurrentOffert()
edit = True
handleEditMode(edit)
saveCurrentOffert()
If SQL.doSQL("DELETE FROM Offerten where [KundenNr]='" & kdNr & "' AND [OffertenNr]='" & dgvOfferteNew.SelectedRows(0).Cells("OffertenNr").Value & "' ", "FMZOLL") Then
isStandard = True
isNew = True
currentOffert.Art = "Neuer Standard erstellt"
currentOffert.SAVE()
currentOffert.LOAD_POSITIONEN()
If currentOffert.POSITIONEN.Count = 0 Then '
currentOffert.RESET_STANDARTOFFERTEN_FIRMA(VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME, FIRMA_TMP)
If SQL.doSQL("DELETE FROM Offerten where [KundenNr]='" & kdNr & "' AND [OffertenNr]='" & dgvOfferteNew.SelectedRows(0).Cells("OffertenNr").Value & "' ", "FMZOLL") Then
isStandard = True
isNew = True
currentOffert.Art = "Neuer Standard erstellt"
currentOffert.SAVE()
currentOffert.LOAD_POSITIONEN()
If currentOffert.POSITIONEN.Count = 0 Then '
currentOffert.RESET_STANDARTOFFERTEN_FIRMA(VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME, FIRMA_TMP)
End If
dgvOfferteNew.GetOrder()
initDGVOfferte()
dgvOfferteNew.SetOrder()
RaiseEvent OfferteChanged()
isStandard = True
isNew = True
End If
dgvOfferteNew.GetOrder()
initDGVOfferte()
dgvOfferteNew.SetOrder()
RaiseEvent OfferteChanged()
isStandard = True
isNew = True
End If
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
End Sub
@@ -489,110 +540,122 @@ Public Class usrCntlOfferte
Private Sub checkPerimissionsDGVDetails()
With dgvOfferteDetails
Try
With dgvOfferteDetails
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("OFFERTE_BEARBEITEN", "SDL") Then
For Each c As DataGridViewColumn In .Columns
c.ReadOnly = True
handleEditMode(False)
Next
dgvOfferteDetails.AllowUserToDeleteRows = False
Else
For Each c As DataGridViewColumn In .Columns
If (c.Name = "Preis" Or c.Name = "LeistungsBez" Or c.Name = "Anzahl" Or c.Name = "BerechnungsartNr" Or c.Name = "BerechnungsartPosInkludiert") Then
If edit Then
c.ReadOnly = False
handleEditMode(edit)
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("OFFERTE_BEARBEITEN", "SDL") Then
For Each c As DataGridViewColumn In .Columns
c.ReadOnly = True
handleEditMode(False)
Next
dgvOfferteDetails.AllowUserToDeleteRows = False
Else
For Each c As DataGridViewColumn In .Columns
If (c.Name = "Preis" Or c.Name = "LeistungsBez" Or c.Name = "Anzahl" Or c.Name = "BerechnungsartNr" Or c.Name = "BerechnungsartPosInkludiert") Then
If edit Then
c.ReadOnly = False
handleEditMode(edit)
Else
c.ReadOnly = True
handleEditMode(edit)
End If
Else
c.ReadOnly = True
handleEditMode(edit)
End If
Else
c.ReadOnly = True
Next
dgvOfferteDetails.AllowUserToDeleteRows = edit
End If
End If
Next
dgvOfferteDetails.AllowUserToDeleteRows = edit
End If
End With
End With
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
End Sub
Private Sub initDGVOfferteDetailsArchived(OffertenId)
Try
loaded = False
DGVHasChaged = False
With dgvOfferteDetails
.Columns.Clear()
Try
loaded = False
DGVHasChaged = False
With dgvOfferteDetails
.Columns.Clear()
OFFERTEBind = New cEasyBinding(BIND_DB)
OFFERTEBind.initBinding(" SELECT [LeistungsNr],[LeistungsBez],[BerechnungsartNr],[Preis],[Anzahl],[BGebLeistungsNr],[BGebProzent],[BGebMinBetrag],BerechnungsartPosInkludiert,[Eingegeben am],[Geändert am],[Sachbearbeiter],[PreisänderungProzent],[PreisAlt],[Preisänderung],KundenNr,OffertenNr " &
" FROM [tblOffertenpositionenArchiv] " &
" WHERE OfId='" & OffertenId & "' ORDER BY LeistungsNr, Preis DESC", "tblOffertenpositionenArchiv")
OFFERTEBind.initBinding(" SELECT [LeistungsNr],[LeistungsBez],[BerechnungsartNr],[Preis],[Anzahl],[BGebLeistungsNr],[BGebProzent],[BGebMinBetrag],BerechnungsartPosInkludiert,[Eingegeben am],[Geändert am],[Sachbearbeiter],[PreisänderungProzent],[PreisAlt],[Preisänderung],KundenNr,OffertenNr " &
" FROM [tblOffertenpositionenArchiv] " &
" WHERE OfId='" & OffertenId & "' ORDER BY LeistungsNr, Preis DESC", "tblOffertenpositionenArchiv")
.DataSource = OFFERTEBind.bindingdataTable
.DataSource = OFFERTEBind.bindingdataTable
Catch ex As Exception
MsgBox(ex.Message)
End Try
FUNC.dgvCellToCbo(dgvOfferteDetails, 2, "Berechnungsart", "BerechnungsartNr", " SELECT [BerechnungsartNr], CAST(BerechnungsartNr as varchar(3)) + ' - ' + [BerechnungsartBez] as [BerechnungsartBez] FROM [Berechnungsart] ORDER BY BerechnungsartNr ", "FMZOLL", 150)
FUNC.dgvCellToCbo(dgvOfferteDetails, 5, "BGebLeist.", "BGebLeistungsNr", " SELECT [LeistungsNr], CAST(LeistungsNr as varchar(3)) + ' - ' + [LeistungsBez] as LeistungsBez FROM [Leistungen] ORDER BY [LeistungsNr] ", "FMZOLL", 250)
checkPerimissionsDGVDetails()
FUNC.dgvCellToCbo(dgvOfferteDetails, 2, "Berechnungsart", "BerechnungsartNr", " SELECT [BerechnungsartNr], CAST(BerechnungsartNr as varchar(3)) + ' - ' + [BerechnungsartBez] as [BerechnungsartBez] FROM [Berechnungsart] ORDER BY BerechnungsartNr ", "FMZOLL", 150)
FUNC.dgvCellToCbo(dgvOfferteDetails, 5, "BGebLeist.", "BGebLeistungsNr", " SELECT [LeistungsNr], CAST(LeistungsNr as varchar(3)) + ' - ' + [LeistungsBez] as LeistungsBez FROM [Leistungen] ORDER BY [LeistungsNr] ", "FMZOLL", 250)
.Columns("OffertenNr").Visible = False
.Columns("KundenNr").Visible = False
.Columns("LeistungsNr").Width = 30
.Columns("LeistungsNr").HeaderText = "Nr"
.Columns("LeistungsBez").MinimumWidth = 200
.Columns("LeistungsBez").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
.Columns("LeistungsBez").HeaderText = "Leistung"
.Columns("BerechnungsartNr").MinimumWidth = 150
.Columns("Preis").Width = 60
.Columns("Preis").DefaultCellStyle.Format = "N2"
.Columns("Preis").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight
.Columns("Anzahl").Width = 50
.Columns("Anzahl").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
.Columns("BerechnungsartPosInkludiert").HeaderText = "Pos.inkl."
.Columns("BerechnungsartPosInkludiert").Width = 45
.Columns("BGebLeistungsNr").Width = 60
.Columns("BGebProzent").Width = 55
.Columns("BGebProzent").HeaderText = "BGeb %"
.Columns("BGebProzent").DefaultCellStyle.Format = "P"
.Columns("BGebProzent").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight
.Columns("BGebMinBetrag").Width = 60
.Columns("BGebMinBetrag").HeaderText = "BGebMinBetr."
.Columns("BGebMinBetrag").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight
.Columns("Eingegeben am").Visible = False
.Columns("PreisänderungProzent").Width = 70
.Columns("PreisänderungProzent").HeaderText = "Preisänd. %"
.Columns("PreisänderungProzent").DefaultCellStyle.Format = "P"
.Columns("PreisänderungProzent").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight
.Columns("PreisAlt").Width = 60
.Columns("PreisAlt").DefaultCellStyle.Format = "N2"
.Columns("PreisAlt").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight
.Columns("Preisänderung").Width = 60
.Columns("Preisänderung").HeaderText = "PreisNeu"
.Columns("Preisänderung").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight
loaded = True
End With
checkPerimissionsDGVDetails()
.Columns("OffertenNr").Visible = False
.Columns("KundenNr").Visible = False
.Columns("LeistungsNr").Width = 30
.Columns("LeistungsNr").HeaderText = "Nr"
.Columns("LeistungsBez").MinimumWidth = 200
.Columns("LeistungsBez").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
.Columns("LeistungsBez").HeaderText = "Leistung"
.Columns("BerechnungsartNr").MinimumWidth = 150
.Columns("Preis").Width = 60
.Columns("Preis").DefaultCellStyle.Format = "N2"
.Columns("Preis").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight
.Columns("Anzahl").Width = 50
.Columns("Anzahl").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
.Columns("BerechnungsartPosInkludiert").HeaderText = "Pos.inkl."
.Columns("BerechnungsartPosInkludiert").Width = 45
.Columns("BGebLeistungsNr").Width = 60
.Columns("BGebProzent").Width = 55
.Columns("BGebProzent").HeaderText = "BGeb %"
.Columns("BGebProzent").DefaultCellStyle.Format = "P"
.Columns("BGebProzent").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight
.Columns("BGebMinBetrag").Width = 60
.Columns("BGebMinBetrag").HeaderText = "BGebMinBetr."
.Columns("BGebMinBetrag").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight
.Columns("Eingegeben am").Visible = False
.Columns("PreisänderungProzent").Width = 70
.Columns("PreisänderungProzent").HeaderText = "Preisänd. %"
.Columns("PreisänderungProzent").DefaultCellStyle.Format = "P"
.Columns("PreisänderungProzent").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight
.Columns("PreisAlt").Width = 60
.Columns("PreisAlt").DefaultCellStyle.Format = "N2"
.Columns("PreisAlt").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight
.Columns("Preisänderung").Width = 60
.Columns("Preisänderung").HeaderText = "PreisNeu"
.Columns("Preisänderung").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight
loaded = True
End With
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
End Sub
Private Sub saveCurrentOffert()
Try
dgvOfferteNew.Enabled = False
dgvOfferteNew.Enabled = False
currentOffert = New VERAG_PROG_ALLGEMEIN.cOfferte(kdNr, dgvOfferteNew.SelectedRows(0).Cells("OffertenNr").Value, False)
Dim orgDataTable As DataTable = dgvOfferteDetails.DataSource
tmpDataTable = orgDataTable.Copy
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
End Sub
Private Sub checkPermissions()
@@ -653,35 +716,41 @@ Public Class usrCntlOfferte
Private Sub saveToArchive()
Try
If isNew = False AndAlso isStandard = False Or isNew AndAlso isStandard = False Then 'Neuanlage oder Anlage über "Standardoffert laden" speichern,
If DGVHasChaged = False Then Exit Sub
End If
If isStandard Then
If isNew Then
OfferteArchivieren()
isNew = False
If isNew = False AndAlso isStandard = False Or isNew AndAlso isStandard = False Then 'Neuanlage oder Anlage über "Standardoffert laden" speichern,
If DGVHasChaged = False Then Exit Sub
End If
isStandard = False
Else
If DGVHasChaged Then
If isNew = False Then
If isStandard Then
If isNew Then
OfferteArchivieren()
Exit Sub
Else
If isNew Then
OfferteArchivieren()
isNew = False
End If
isNew = False
End If
End If
End If
isStandard = False
Else
If DGVHasChaged Then
If isNew = False Then
OfferteArchivieren()
Exit Sub
Else
If isNew Then
OfferteArchivieren()
isNew = False
End If
End If
End If
End If
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
End Sub

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

@@ -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,9 @@ 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()
Me.txtAdresseZusatz = New System.Windows.Forms.TextBox()
@@ -284,6 +290,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.txtFirmenname2 = New System.Windows.Forms.TextBox()
Me.Label16 = New System.Windows.Forms.Label()
Me.txtUSt_Steuernummer = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.lblHandelregisterNr = New System.Windows.Forms.Label()
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
Me.cbxLandKz = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Label14 = New System.Windows.Forms.Label()
@@ -342,8 +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.lblHandelregisterNr = New System.Windows.Forms.Label()
Me.txtHandelsregisterNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.tbcntrDetails.SuspendLayout()
Me.tbAbfertigung.SuspendLayout()
Me.tbcntrAbf.SuspendLayout()
@@ -395,7 +400,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.tbcntrDetails.Location = New System.Drawing.Point(462, 3)
Me.tbcntrDetails.Name = "tbcntrDetails"
Me.tbcntrDetails.SelectedIndex = 0
Me.tbcntrDetails.Size = New System.Drawing.Size(680, 484)
Me.tbcntrDetails.Size = New System.Drawing.Size(680, 521)
Me.tbcntrDetails.TabIndex = 3
'
'tbAbfertigung
@@ -424,7 +429,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.tbAbfertigung.Location = New System.Drawing.Point(4, 22)
Me.tbAbfertigung.Name = "tbAbfertigung"
Me.tbAbfertigung.Padding = New System.Windows.Forms.Padding(3)
Me.tbAbfertigung.Size = New System.Drawing.Size(672, 458)
Me.tbAbfertigung.Size = New System.Drawing.Size(672, 495)
Me.tbAbfertigung.TabIndex = 0
Me.tbAbfertigung.Text = " Abfertigung"
Me.tbAbfertigung.UseVisualStyleBackColor = True
@@ -538,7 +543,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.tbcntrAbf.Controls.Add(Me.tbAufschub)
Me.tbcntrAbf.Controls.Add(Me.TabPage1)
Me.tbcntrAbf.Dock = System.Windows.Forms.DockStyle.Bottom
Me.tbcntrAbf.Location = New System.Drawing.Point(3, 251)
Me.tbcntrAbf.Location = New System.Drawing.Point(3, 288)
Me.tbcntrAbf.Name = "tbcntrAbf"
Me.tbcntrAbf.SelectedIndex = 0
Me.tbcntrAbf.Size = New System.Drawing.Size(666, 204)
@@ -1050,7 +1055,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.tbFiskal.Controls.Add(Me.UsrCntlKundeFiskaldaten1)
Me.tbFiskal.Location = New System.Drawing.Point(4, 22)
Me.tbFiskal.Name = "tbFiskal"
Me.tbFiskal.Size = New System.Drawing.Size(672, 458)
Me.tbFiskal.Size = New System.Drawing.Size(672, 495)
Me.tbFiskal.TabIndex = 8
Me.tbFiskal.Text = "Fiskal"
Me.tbFiskal.UseVisualStyleBackColor = True
@@ -1061,11 +1066,14 @@ Partial Class usrcntlKundeBearbeitenFull
Me.UsrCntlKundeFiskaldaten1.Dock = System.Windows.Forms.DockStyle.Fill
Me.UsrCntlKundeFiskaldaten1.Location = New System.Drawing.Point(0, 0)
Me.UsrCntlKundeFiskaldaten1.Name = "UsrCntlKundeFiskaldaten1"
Me.UsrCntlKundeFiskaldaten1.Size = New System.Drawing.Size(672, 458)
Me.UsrCntlKundeFiskaldaten1.Size = New System.Drawing.Size(672, 495)
Me.UsrCntlKundeFiskaldaten1.TabIndex = 0
'
'tbVerrechnung
'
Me.tbVerrechnung.Controls.Add(Me.cbxKapitalWaehrung)
Me.tbVerrechnung.Controls.Add(Me.Label103)
Me.tbVerrechnung.Controls.Add(Me.txtKapital)
Me.tbVerrechnung.Controls.Add(Me.Label101)
Me.tbVerrechnung.Controls.Add(Me.txtAbwZZVL)
Me.tbVerrechnung.Controls.Add(Me.cbxSndDatenAusSTB)
@@ -1114,11 +1122,61 @@ Partial Class usrcntlKundeBearbeitenFull
Me.tbVerrechnung.Controls.Add(Me.txtAbf_Zahlungsziel)
Me.tbVerrechnung.Location = New System.Drawing.Point(4, 22)
Me.tbVerrechnung.Name = "tbVerrechnung"
Me.tbVerrechnung.Size = New System.Drawing.Size(672, 458)
Me.tbVerrechnung.Size = New System.Drawing.Size(672, 495)
Me.tbVerrechnung.TabIndex = 9
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
@@ -1240,7 +1298,7 @@ Partial Class usrcntlKundeBearbeitenFull
'
Me.Label36.AutoSize = True
Me.Label36.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label36.Location = New System.Drawing.Point(122, 246)
Me.Label36.Location = New System.Drawing.Point(122, 329)
Me.Label36.Name = "Label36"
Me.Label36.Size = New System.Drawing.Size(384, 13)
Me.Label36.TabIndex = 21
@@ -1251,7 +1309,7 @@ Partial Class usrcntlKundeBearbeitenFull
'
Me.cbxDepot.AutoSize = True
Me.cbxDepot.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cbxDepot.Location = New System.Drawing.Point(15, 246)
Me.cbxDepot.Location = New System.Drawing.Point(15, 329)
Me.cbxDepot.Name = "cbxDepot"
Me.cbxDepot.Size = New System.Drawing.Size(100, 17)
Me.cbxDepot.TabIndex = 20
@@ -1852,7 +1910,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.tbVersicherung.Location = New System.Drawing.Point(4, 22)
Me.tbVersicherung.Name = "tbVersicherung"
Me.tbVersicherung.Padding = New System.Windows.Forms.Padding(3)
Me.tbVersicherung.Size = New System.Drawing.Size(672, 458)
Me.tbVersicherung.Size = New System.Drawing.Size(672, 495)
Me.tbVersicherung.TabIndex = 1
Me.tbVersicherung.Text = "Versicherung"
Me.tbVersicherung.UseVisualStyleBackColor = True
@@ -2615,7 +2673,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.tbUmsatz.Location = New System.Drawing.Point(4, 22)
Me.tbUmsatz.Name = "tbUmsatz"
Me.tbUmsatz.Padding = New System.Windows.Forms.Padding(3)
Me.tbUmsatz.Size = New System.Drawing.Size(672, 458)
Me.tbUmsatz.Size = New System.Drawing.Size(672, 495)
Me.tbUmsatz.TabIndex = 3
Me.tbUmsatz.Text = "Umsatz"
Me.tbUmsatz.UseVisualStyleBackColor = True
@@ -2661,7 +2719,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.tbOP.Location = New System.Drawing.Point(4, 22)
Me.tbOP.Name = "tbOP"
Me.tbOP.Padding = New System.Windows.Forms.Padding(3)
Me.tbOP.Size = New System.Drawing.Size(672, 458)
Me.tbOP.Size = New System.Drawing.Size(672, 495)
Me.tbOP.TabIndex = 4
Me.tbOP.Text = "Offene Posten"
Me.tbOP.UseVisualStyleBackColor = True
@@ -2807,7 +2865,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.tbBank.Location = New System.Drawing.Point(4, 22)
Me.tbBank.Name = "tbBank"
Me.tbBank.Padding = New System.Windows.Forms.Padding(3)
Me.tbBank.Size = New System.Drawing.Size(672, 458)
Me.tbBank.Size = New System.Drawing.Size(672, 495)
Me.tbBank.TabIndex = 5
Me.tbBank.Text = "Bankverb./Kreditkarten"
Me.tbBank.UseVisualStyleBackColor = True
@@ -2986,7 +3044,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.tbUmsatzsteuer.Location = New System.Drawing.Point(4, 22)
Me.tbUmsatzsteuer.Name = "tbUmsatzsteuer"
Me.tbUmsatzsteuer.Padding = New System.Windows.Forms.Padding(3)
Me.tbUmsatzsteuer.Size = New System.Drawing.Size(672, 458)
Me.tbUmsatzsteuer.Size = New System.Drawing.Size(672, 495)
Me.tbUmsatzsteuer.TabIndex = 6
Me.tbUmsatzsteuer.Text = "Umsatzsteuer"
Me.tbUmsatzsteuer.UseVisualStyleBackColor = True
@@ -3255,7 +3313,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.tbSonstiges.Location = New System.Drawing.Point(4, 22)
Me.tbSonstiges.Name = "tbSonstiges"
Me.tbSonstiges.Padding = New System.Windows.Forms.Padding(3)
Me.tbSonstiges.Size = New System.Drawing.Size(672, 458)
Me.tbSonstiges.Size = New System.Drawing.Size(672, 495)
Me.tbSonstiges.TabIndex = 7
Me.tbSonstiges.Text = "Sonstiges"
Me.tbSonstiges.UseVisualStyleBackColor = True
@@ -3528,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
@@ -3598,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
@@ -3643,6 +3701,8 @@ Partial Class usrcntlKundeBearbeitenFull
'
'GroupBox3
'
Me.GroupBox3.Controls.Add(Me.txtGruendungsDatum)
Me.GroupBox3.Controls.Add(Me.Label33)
Me.GroupBox3.Controls.Add(Me.txtHandelsregisterNr)
Me.GroupBox3.Controls.Add(Me.PictureBox5)
Me.GroupBox3.Controls.Add(Me.Label100)
@@ -3670,11 +3730,70 @@ Partial Class usrcntlKundeBearbeitenFull
Me.GroupBox3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.GroupBox3.Location = New System.Drawing.Point(3, 3)
Me.GroupBox3.Name = "GroupBox3"
Me.GroupBox3.Size = New System.Drawing.Size(453, 182)
Me.GroupBox3.Size = New System.Drawing.Size(453, 209)
Me.GroupBox3.TabIndex = 0
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 = False
Me.txtHandelsregisterNr._Prozent = False
Me.txtHandelsregisterNr._ShortDateNew = False
Me.txtHandelsregisterNr._ShortDateOnly = False
Me.txtHandelsregisterNr._TimeOnly = False
Me.txtHandelsregisterNr._TimeOnly_Seconds = False
Me.txtHandelsregisterNr._value = ""
Me.txtHandelsregisterNr._Waehrung = False
Me.txtHandelsregisterNr._WaehrungZeichen = False
Me.txtHandelsregisterNr.ForeColor = System.Drawing.Color.Black
Me.txtHandelsregisterNr.Location = New System.Drawing.Point(111, 134)
Me.txtHandelsregisterNr.MaxLength = 17
Me.txtHandelsregisterNr.MaxLineLength = -1
Me.txtHandelsregisterNr.MaxLines_Warning = ""
Me.txtHandelsregisterNr.MaxLines_Warning_Label = Nothing
Me.txtHandelsregisterNr.Name = "txtHandelsregisterNr"
Me.txtHandelsregisterNr.Size = New System.Drawing.Size(126, 20)
Me.txtHandelsregisterNr.TabIndex = 133
'
'PictureBox5
'
Me.PictureBox5.BackgroundImage = Global.SDL.My.Resources.Resources.fragezeichen
@@ -3709,7 +3828,7 @@ Partial Class usrcntlKundeBearbeitenFull
'
Me.cbxUIDMehrfachverwendung.AutoSize = True
Me.cbxUIDMehrfachverwendung.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cbxUIDMehrfachverwendung.Location = New System.Drawing.Point(10, 133)
Me.cbxUIDMehrfachverwendung.Location = New System.Drawing.Point(292, 184)
Me.cbxUIDMehrfachverwendung.Name = "cbxUIDMehrfachverwendung"
Me.cbxUIDMehrfachverwendung.Size = New System.Drawing.Size(152, 17)
Me.cbxUIDMehrfachverwendung.TabIndex = 25
@@ -3957,6 +4076,16 @@ Partial Class usrcntlKundeBearbeitenFull
Me.txtUSt_Steuernummer.TabIndex = 11
Me.txtUSt_Steuernummer.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
'
'lblHandelregisterNr
'
Me.lblHandelregisterNr.AutoSize = True
Me.lblHandelregisterNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblHandelregisterNr.Location = New System.Drawing.Point(8, 137)
Me.lblHandelregisterNr.Name = "lblHandelregisterNr"
Me.lblHandelregisterNr.Size = New System.Drawing.Size(100, 13)
Me.lblHandelregisterNr.TabIndex = 132
Me.lblHandelregisterNr.Text = "Handelsregister-Nr.:"
'
'GroupBox1
'
Me.GroupBox1.Controls.Add(Me.cbxLandKz)
@@ -3969,7 +4098,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.GroupBox1.Controls.Add(Me.Label4)
Me.GroupBox1.Controls.Add(Me.txtStrasse)
Me.GroupBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.GroupBox1.Location = New System.Drawing.Point(3, 183)
Me.GroupBox1.Location = New System.Drawing.Point(3, 218)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(453, 102)
Me.GroupBox1.TabIndex = 1
@@ -3989,7 +4118,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.cbxLandKz.FormattingEnabled = True
Me.cbxLandKz.Location = New System.Drawing.Point(110, 49)
Me.cbxLandKz.Name = "cbxLandKz"
Me.cbxLandKz.Size = New System.Drawing.Size(39, 21)
Me.cbxLandKz.Size = New System.Drawing.Size(50, 21)
Me.cbxLandKz.TabIndex = 3
'
'Label14
@@ -4005,19 +4134,19 @@ Partial Class usrcntlKundeBearbeitenFull
'txtPostfachOrt
'
Me.txtPostfachOrt.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtPostfachOrt.Location = New System.Drawing.Point(232, 75)
Me.txtPostfachOrt.Location = New System.Drawing.Point(243, 75)
Me.txtPostfachOrt.MaxLength = 40
Me.txtPostfachOrt.Name = "txtPostfachOrt"
Me.txtPostfachOrt.Size = New System.Drawing.Size(212, 20)
Me.txtPostfachOrt.Size = New System.Drawing.Size(201, 20)
Me.txtPostfachOrt.TabIndex = 8
'
'txtOrt
'
Me.txtOrt.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtOrt.Location = New System.Drawing.Point(232, 49)
Me.txtOrt.Location = New System.Drawing.Point(243, 49)
Me.txtOrt.MaxLength = 40
Me.txtOrt.Name = "txtOrt"
Me.txtOrt.Size = New System.Drawing.Size(212, 20)
Me.txtOrt.Size = New System.Drawing.Size(201, 20)
Me.txtOrt.TabIndex = 5
'
'Label12
@@ -4036,13 +4165,13 @@ Partial Class usrcntlKundeBearbeitenFull
Me.txtPostfachPlz.Location = New System.Drawing.Point(110, 75)
Me.txtPostfachPlz.MaxLength = 7
Me.txtPostfachPlz.Name = "txtPostfachPlz"
Me.txtPostfachPlz.Size = New System.Drawing.Size(116, 20)
Me.txtPostfachPlz.Size = New System.Drawing.Size(127, 20)
Me.txtPostfachPlz.TabIndex = 7
'
'txtPlz
'
Me.txtPlz.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtPlz.Location = New System.Drawing.Point(155, 49)
Me.txtPlz.Location = New System.Drawing.Point(166, 49)
Me.txtPlz.MaxLength = 7
Me.txtPlz.Name = "txtPlz"
Me.txtPlz.Size = New System.Drawing.Size(71, 20)
@@ -4193,7 +4322,7 @@ Partial Class usrcntlKundeBearbeitenFull
'btnFirmendatenFormularSpeichern
'
Me.btnFirmendatenFormularSpeichern.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnFirmendatenFormularSpeichern.Location = New System.Drawing.Point(1081, 503)
Me.btnFirmendatenFormularSpeichern.Location = New System.Drawing.Point(1081, 540)
Me.btnFirmendatenFormularSpeichern.Name = "btnFirmendatenFormularSpeichern"
Me.btnFirmendatenFormularSpeichern.Size = New System.Drawing.Size(71, 52)
Me.btnFirmendatenFormularSpeichern.TabIndex = 16
@@ -4204,7 +4333,7 @@ Partial Class usrcntlKundeBearbeitenFull
'
Me.lblSachbearbeiter.AutoSize = True
Me.lblSachbearbeiter.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblSachbearbeiter.Location = New System.Drawing.Point(131, 525)
Me.lblSachbearbeiter.Location = New System.Drawing.Point(131, 562)
Me.lblSachbearbeiter.Name = "lblSachbearbeiter"
Me.lblSachbearbeiter.Size = New System.Drawing.Size(10, 13)
Me.lblSachbearbeiter.TabIndex = 13
@@ -4214,7 +4343,7 @@ Partial Class usrcntlKundeBearbeitenFull
'
Me.lblErfassung.AutoSize = True
Me.lblErfassung.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblErfassung.Location = New System.Drawing.Point(130, 499)
Me.lblErfassung.Location = New System.Drawing.Point(130, 536)
Me.lblErfassung.Name = "lblErfassung"
Me.lblErfassung.Size = New System.Drawing.Size(10, 13)
Me.lblErfassung.TabIndex = 5
@@ -4224,7 +4353,7 @@ Partial Class usrcntlKundeBearbeitenFull
'
Me.lblAenderung.AutoSize = True
Me.lblAenderung.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblAenderung.Location = New System.Drawing.Point(131, 512)
Me.lblAenderung.Location = New System.Drawing.Point(131, 549)
Me.lblAenderung.Name = "lblAenderung"
Me.lblAenderung.Size = New System.Drawing.Size(10, 13)
Me.lblAenderung.TabIndex = 11
@@ -4234,7 +4363,7 @@ Partial Class usrcntlKundeBearbeitenFull
'
Me.Label26.AutoSize = True
Me.Label26.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label26.Location = New System.Drawing.Point(10, 525)
Me.Label26.Location = New System.Drawing.Point(10, 562)
Me.Label26.Name = "Label26"
Me.Label26.Size = New System.Drawing.Size(117, 13)
Me.Label26.TabIndex = 12
@@ -4244,7 +4373,7 @@ Partial Class usrcntlKundeBearbeitenFull
'
Me.Label25.AutoSize = True
Me.Label25.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label25.Location = New System.Drawing.Point(9, 499)
Me.Label25.Location = New System.Drawing.Point(9, 536)
Me.Label25.Name = "Label25"
Me.Label25.Size = New System.Drawing.Size(91, 13)
Me.Label25.TabIndex = 4
@@ -4254,7 +4383,7 @@ Partial Class usrcntlKundeBearbeitenFull
'
Me.Label23.AutoSize = True
Me.Label23.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label23.Location = New System.Drawing.Point(10, 512)
Me.Label23.Location = New System.Drawing.Point(10, 549)
Me.Label23.Name = "Label23"
Me.Label23.Size = New System.Drawing.Size(90, 13)
Me.Label23.TabIndex = 10
@@ -4263,7 +4392,7 @@ Partial Class usrcntlKundeBearbeitenFull
'Button1
'
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button1.Location = New System.Drawing.Point(573, 509)
Me.Button1.Location = New System.Drawing.Point(573, 546)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(98, 38)
Me.Button1.TabIndex = 14
@@ -4275,7 +4404,7 @@ Partial Class usrcntlKundeBearbeitenFull
'
Me.Label28.AutoSize = True
Me.Label28.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label28.Location = New System.Drawing.Point(585, 550)
Me.Label28.Location = New System.Drawing.Point(585, 587)
Me.Label28.Name = "Label28"
Me.Label28.Size = New System.Drawing.Size(10, 13)
Me.Label28.TabIndex = 9
@@ -4286,7 +4415,7 @@ Partial Class usrcntlKundeBearbeitenFull
'
Me.Label29.AutoSize = True
Me.Label29.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label29.Location = New System.Drawing.Point(567, 493)
Me.Label29.Location = New System.Drawing.Point(567, 530)
Me.Label29.Name = "Label29"
Me.Label29.Size = New System.Drawing.Size(109, 13)
Me.Label29.TabIndex = 8
@@ -4297,7 +4426,7 @@ Partial Class usrcntlKundeBearbeitenFull
'
Me.tbKontakt.Controls.Add(Me.TabPage10)
Me.tbKontakt.Controls.Add(Me.TabPage11)
Me.tbKontakt.Location = New System.Drawing.Point(3, 286)
Me.tbKontakt.Location = New System.Drawing.Point(3, 321)
Me.tbKontakt.Name = "tbKontakt"
Me.tbKontakt.SelectedIndex = 0
Me.tbKontakt.Size = New System.Drawing.Size(453, 201)
@@ -4371,7 +4500,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.pnlNeukunde.Controls.Add(Me.cboFiliale)
Me.pnlNeukunde.Controls.Add(Me.cboKundenkreis)
Me.pnlNeukunde.Controls.Add(Me.Label68)
Me.pnlNeukunde.Location = New System.Drawing.Point(776, 493)
Me.pnlNeukunde.Location = New System.Drawing.Point(776, 530)
Me.pnlNeukunde.Name = "pnlNeukunde"
Me.pnlNeukunde.Size = New System.Drawing.Size(303, 74)
Me.pnlNeukunde.TabIndex = 15
@@ -4424,7 +4553,7 @@ Partial Class usrcntlKundeBearbeitenFull
'
Me.Label77.AutoSize = True
Me.Label77.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label77.Location = New System.Drawing.Point(780, 534)
Me.Label77.Location = New System.Drawing.Point(780, 571)
Me.Label77.Name = "Label77"
Me.Label77.Size = New System.Drawing.Size(64, 13)
Me.Label77.TabIndex = 6
@@ -4434,7 +4563,7 @@ Partial Class usrcntlKundeBearbeitenFull
'
Me.lblKundennr.AutoSize = True
Me.lblKundennr.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblKundennr.Location = New System.Drawing.Point(850, 532)
Me.lblKundennr.Location = New System.Drawing.Point(850, 569)
Me.lblKundennr.Name = "lblKundennr"
Me.lblKundennr.Size = New System.Drawing.Size(14, 17)
Me.lblKundennr.TabIndex = 7
@@ -4444,7 +4573,7 @@ Partial Class usrcntlKundeBearbeitenFull
'
Me.Label79.AutoSize = True
Me.Label79.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label79.Location = New System.Drawing.Point(780, 504)
Me.Label79.Location = New System.Drawing.Point(780, 541)
Me.Label79.Name = "Label79"
Me.Label79.Size = New System.Drawing.Size(40, 13)
Me.Label79.TabIndex = 4
@@ -4454,7 +4583,7 @@ Partial Class usrcntlKundeBearbeitenFull
'
Me.Label80.AutoSize = True
Me.Label80.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label80.Location = New System.Drawing.Point(278, 504)
Me.Label80.Location = New System.Drawing.Point(278, 541)
Me.Label80.Name = "Label80"
Me.Label80.Size = New System.Drawing.Size(59, 13)
Me.Label80.TabIndex = 4
@@ -4465,7 +4594,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.cbxFiBu.AutoSize = True
Me.cbxFiBu.Enabled = False
Me.cbxFiBu.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cbxFiBu.Location = New System.Drawing.Point(400, 503)
Me.cbxFiBu.Location = New System.Drawing.Point(400, 540)
Me.cbxFiBu.Name = "cbxFiBu"
Me.cbxFiBu.Size = New System.Drawing.Size(47, 17)
Me.cbxFiBu.TabIndex = 17
@@ -4477,7 +4606,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.cbxFiBuLG.AutoSize = True
Me.cbxFiBuLG.Enabled = False
Me.cbxFiBuLG.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cbxFiBuLG.Location = New System.Drawing.Point(400, 524)
Me.cbxFiBuLG.Location = New System.Drawing.Point(400, 561)
Me.cbxFiBuLG.Name = "cbxFiBuLG"
Me.cbxFiBuLG.Size = New System.Drawing.Size(64, 17)
Me.cbxFiBuLG.TabIndex = 18
@@ -4489,7 +4618,7 @@ Partial Class usrcntlKundeBearbeitenFull
'
Me.Label97.AutoSize = True
Me.Label97.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label97.Location = New System.Drawing.Point(463, 493)
Me.Label97.Location = New System.Drawing.Point(463, 530)
Me.Label97.Name = "Label97"
Me.Label97.Size = New System.Drawing.Size(100, 13)
Me.Label97.TabIndex = 19
@@ -4499,7 +4628,7 @@ Partial Class usrcntlKundeBearbeitenFull
'Button4
'
Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button4.Location = New System.Drawing.Point(466, 509)
Me.Button4.Location = New System.Drawing.Point(466, 546)
Me.Button4.Name = "Button4"
Me.Button4.Size = New System.Drawing.Size(101, 38)
Me.Button4.TabIndex = 21
@@ -4513,7 +4642,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.CheckBox1.Checked = True
Me.CheckBox1.CheckState = System.Windows.Forms.CheckState.Checked
Me.CheckBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.CheckBox1.Location = New System.Drawing.Point(466, 549)
Me.CheckBox1.Location = New System.Drawing.Point(466, 586)
Me.CheckBox1.Name = "CheckBox1"
Me.CheckBox1.Size = New System.Drawing.Size(101, 17)
Me.CheckBox1.TabIndex = 22
@@ -4527,7 +4656,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.txtERROR.BorderStyle = System.Windows.Forms.BorderStyle.None
Me.txtERROR.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtERROR.ForeColor = System.Drawing.Color.Red
Me.txtERROR.Location = New System.Drawing.Point(13, 540)
Me.txtERROR.Location = New System.Drawing.Point(13, 577)
Me.txtERROR.MaxLength = 9999
Me.txtERROR.Multiline = True
Me.txtERROR.Name = "txtERROR"
@@ -4537,7 +4666,7 @@ Partial Class usrcntlKundeBearbeitenFull
'btnDatevExport
'
Me.btnDatevExport.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnDatevExport.Location = New System.Drawing.Point(678, 509)
Me.btnDatevExport.Location = New System.Drawing.Point(678, 546)
Me.btnDatevExport.Name = "btnDatevExport"
Me.btnDatevExport.Size = New System.Drawing.Size(93, 38)
Me.btnDatevExport.TabIndex = 23
@@ -4549,7 +4678,7 @@ Partial Class usrcntlKundeBearbeitenFull
'
Me.Label98.AutoSize = True
Me.Label98.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label98.Location = New System.Drawing.Point(675, 493)
Me.Label98.Location = New System.Drawing.Point(675, 530)
Me.Label98.Name = "Label98"
Me.Label98.Size = New System.Drawing.Size(101, 13)
Me.Label98.TabIndex = 24
@@ -4569,7 +4698,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.cboFirma.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cboFirma.FormattingEnabled = True
Me.cboFirma.IntegralHeight = False
Me.cboFirma.Location = New System.Drawing.Point(342, 496)
Me.cboFirma.Location = New System.Drawing.Point(342, 533)
Me.cboFirma.Name = "cboFirma"
Me.cboFirma.Size = New System.Drawing.Size(49, 28)
Me.cboFirma.TabIndex = 5
@@ -4585,7 +4714,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.cboAuswahl.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.cboAuswahl.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cboAuswahl.FormattingEnabled = True
Me.cboAuswahl.Location = New System.Drawing.Point(826, 496)
Me.cboAuswahl.Location = New System.Drawing.Point(826, 533)
Me.cboAuswahl.Name = "cboAuswahl"
Me.cboAuswahl.Size = New System.Drawing.Size(124, 28)
Me.cboAuswahl.TabIndex = 5
@@ -4596,42 +4725,6 @@ Partial Class usrcntlKundeBearbeitenFull
Me.DataGridViewTextBoxColumn2.HeaderText = "E-Mail"
Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2"
'
'lblHandelregisterNr
'
Me.lblHandelregisterNr.AutoSize = True
Me.lblHandelregisterNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblHandelregisterNr.Location = New System.Drawing.Point(6, 161)
Me.lblHandelregisterNr.Name = "lblHandelregisterNr"
Me.lblHandelregisterNr.Size = New System.Drawing.Size(100, 13)
Me.lblHandelregisterNr.TabIndex = 132
Me.lblHandelregisterNr.Text = "Handelsregister-Nr.:"
Me.lblHandelregisterNr.Visible = False
'
'txtHandelsregisterNr
'
Me.txtHandelsregisterNr._DateTimeOnly = False
Me.txtHandelsregisterNr._numbersOnly = False
Me.txtHandelsregisterNr._numbersOnlyKommastellen = ""
Me.txtHandelsregisterNr._numbersOnlyTrennzeichen = True
Me.txtHandelsregisterNr._Prozent = False
Me.txtHandelsregisterNr._ShortDateNew = False
Me.txtHandelsregisterNr._ShortDateOnly = False
Me.txtHandelsregisterNr._TimeOnly = False
Me.txtHandelsregisterNr._TimeOnly_Seconds = False
Me.txtHandelsregisterNr._value = ""
Me.txtHandelsregisterNr._Waehrung = False
Me.txtHandelsregisterNr._WaehrungZeichen = True
Me.txtHandelsregisterNr.ForeColor = System.Drawing.Color.Black
Me.txtHandelsregisterNr.Location = New System.Drawing.Point(111, 158)
Me.txtHandelsregisterNr.MaxLength = 17
Me.txtHandelsregisterNr.MaxLineLength = -1
Me.txtHandelsregisterNr.MaxLines_Warning = ""
Me.txtHandelsregisterNr.MaxLines_Warning_Label = Nothing
Me.txtHandelsregisterNr.Name = "txtHandelsregisterNr"
Me.txtHandelsregisterNr.Size = New System.Drawing.Size(333, 20)
Me.txtHandelsregisterNr.TabIndex = 133
Me.txtHandelsregisterNr.Visible = False
'
'usrcntlKundeBearbeitenFull
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -4667,7 +4760,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.Controls.Add(Me.Label77)
Me.Controls.Add(Me.Label97)
Me.Name = "usrcntlKundeBearbeitenFull"
Me.Size = New System.Drawing.Size(1152, 570)
Me.Size = New System.Drawing.Size(1152, 607)
Me.tbcntrDetails.ResumeLayout(False)
Me.tbAbfertigung.ResumeLayout(False)
Me.tbAbfertigung.PerformLayout()
@@ -5029,4 +5122,9 @@ Partial Class usrcntlKundeBearbeitenFull
Friend WithEvents rtb_Zahlungsinfo As RichTextBox
Friend WithEvents txtHandelsregisterNr As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents lblHandelregisterNr As Label
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
Friend WithEvents txtKapital As VERAG_PROG_ALLGEMEIN.MyTextBox
End Class

44
SDL/kunden/usrcntlKundeBearbeitenFull.vb
View File

@@ -54,14 +54,14 @@ Public Class usrcntlKundeBearbeitenFull
Public Sub init(kdnr)
Public Sub init(kdnr As Integer, Optional _isVerag360 As Boolean = False)
txtERROR.Text = ""
KUNDE = New VERAG_PROG_ALLGEMEIN.cKunde(kdnr)
ADRESSE = New VERAG_PROG_ALLGEMEIN.cAdressen(kdnr)
FISKAL = New cFiskal_Daten(kdnr)
KUNDE_ERW = New VERAG_PROG_ALLGEMEIN.cKundenErweitert(kdnr)
If Not IsDBNull(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_firmaFMZoll) AndAlso CInt(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_firmaFMZoll) = 19 Then isVerag360 = True
isVerag360 = _isVerag360
cboFiliale.changeItem(loadValue(KUNDE.FilialenNr, "")) 'zuerst Filiale, dmait Kundennummernkreis später den Wert überschreiben kann!
@@ -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
@@ -196,8 +196,12 @@ Public Class usrcntlKundeBearbeitenFull
txtCreditsafe.Text = loadValue(KUNDE_ERW.kde_CreditSaveId, "")
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.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, "")
@@ -574,10 +578,18 @@ Public Class usrcntlKundeBearbeitenFull
KUNDE_ERW.Zahlungsziel2 = isLeerNothing(txtAbf_Zahlungsziel2.Text)
KUNDE_ERW.Zahlungsziel3 = isLeerNothing(txtAbf_Zahlungsziel3.Text)
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
KUNDE_ERW.kde_FakturierungSR_Details = cbxSammelrechnungBerichtLeistungsdetails.Checked
@@ -801,6 +813,9 @@ 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(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)
@@ -1148,6 +1163,19 @@ Public Class usrcntlKundeBearbeitenFull
Me.tbcntrDetails.Controls.Remove(tbUmsatz)
Me.tbcntrDetails.Controls.Remove(tbOP)
For Each c As Control In Me.tbcntrDetails.Controls
If c.Name = "tbBank" Then
If Not isVerag360 Then
c.Text = "Bankverb./Kreditkarten"
Else
c.Text = "Asfinag"
End If
End If
Next
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Kundendaten_bearbeiten", Me.FindForm) Then
btnFirmendatenFormularSpeichern.Enabled = False
End If