Provisionsabrechnung

2025-10-02 09:10:07 +02:00
parent b1e1b3f26a
commit 827c68ad49
24 changed files with 2270 additions and 140 deletions
--- a/SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb
+++ b/SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb
@@ -103,6 +103,12 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.tbFiskal = New System.Windows.Forms.TabPage()
        Me.UsrCntlKundeFiskaldaten1 = New SDL.usrCntlKundeFiskaldaten()
        Me.tbVerrechnung = New System.Windows.Forms.TabPage()
+        Me.Panel2 = New System.Windows.Forms.Panel()
+        Me.Label115 = New System.Windows.Forms.Label()
+        Me.Label114 = New System.Windows.Forms.Label()
+        Me.txtProvDLProzent = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.kdProvDLProzentGSAn = New VERAG_PROG_ALLGEMEIN.KdSearchBox()
+        Me.cbxProvDL = New System.Windows.Forms.CheckBox()
        Me.cbpKopfsammelrechnung = New System.Windows.Forms.CheckBox()
        Me.pnlverag360 = New System.Windows.Forms.Panel()
        Me.Label111 = New System.Windows.Forms.Label()
@@ -265,6 +271,7 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.txtUSt_GVAusgestelltAm = New VERAG_PROG_ALLGEMEIN.MyTextBox()
        Me.txtUSt_GVAngefordertAm = New VERAG_PROG_ALLGEMEIN.MyTextBox()
        Me.tbSonstiges = New System.Windows.Forms.TabPage()
+        Me.cbxCS_Added = New System.Windows.Forms.CheckBox()
        Me.Label113 = New System.Windows.Forms.Label()
        Me.Label112 = New System.Windows.Forms.Label()
        Me.dgvIDS_Rabatte = New System.Windows.Forms.DataGridView()
@@ -405,7 +412,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.cbxCS_Added = New System.Windows.Forms.CheckBox()
        Me.tbcntrDetails.SuspendLayout()
        Me.tbAbfertigung.SuspendLayout()
        Me.tbcntrAbf.SuspendLayout()
@@ -417,6 +423,7 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.GroupBox6.SuspendLayout()
        Me.tbFiskal.SuspendLayout()
        Me.tbVerrechnung.SuspendLayout()
+        Me.Panel2.SuspendLayout()
        Me.pnlverag360.SuspendLayout()
        Me.gbMWSTAntraege.SuspendLayout()
        Me.tbVersicherung.SuspendLayout()
@@ -1136,6 +1143,7 @@ Partial Class usrcntlKundeBearbeitenFull
        '
        'tbVerrechnung
        '
+        Me.tbVerrechnung.Controls.Add(Me.Panel2)
        Me.tbVerrechnung.Controls.Add(Me.cbpKopfsammelrechnung)
        Me.tbVerrechnung.Controls.Add(Me.pnlverag360)
        Me.tbVerrechnung.Controls.Add(Me.cbxKapitalWaehrung)
@@ -1194,6 +1202,103 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.tbVerrechnung.Text = "Verrechnung"
        Me.tbVerrechnung.UseVisualStyleBackColor = True
        '
+        'Panel2
+        '
+        Me.Panel2.BackColor = System.Drawing.Color.WhiteSmoke
+        Me.Panel2.Controls.Add(Me.Label115)
+        Me.Panel2.Controls.Add(Me.Label114)
+        Me.Panel2.Controls.Add(Me.txtProvDLProzent)
+        Me.Panel2.Controls.Add(Me.kdProvDLProzentGSAn)
+        Me.Panel2.Controls.Add(Me.cbxProvDL)
+        Me.Panel2.Location = New System.Drawing.Point(240, 288)
+        Me.Panel2.Name = "Panel2"
+        Me.Panel2.Size = New System.Drawing.Size(186, 110)
+        Me.Panel2.TabIndex = 51
+        '
+        'Label115
+        '
+        Me.Label115.AutoSize = True
+        Me.Label115.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label115.Location = New System.Drawing.Point(3, 54)
+        Me.Label115.Name = "Label115"
+        Me.Label115.Size = New System.Drawing.Size(70, 13)
+        Me.Label115.TabIndex = 31
+        Me.Label115.Text = "Gutschrift an:"
+        '
+        'Label114
+        '
+        Me.Label114.AutoSize = True
+        Me.Label114.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label114.Location = New System.Drawing.Point(3, 32)
+        Me.Label114.Name = "Label114"
+        Me.Label114.Size = New System.Drawing.Size(112, 13)
+        Me.Label114.TabIndex = 29
+        Me.Label114.Text = "Provision von Dienstl.:"
+        '
+        'txtProvDLProzent
+        '
+        Me.txtProvDLProzent._DateTimeOnly = False
+        Me.txtProvDLProzent._numbersOnly = False
+        Me.txtProvDLProzent._numbersOnlyKommastellen = ""
+        Me.txtProvDLProzent._numbersOnlyTrennzeichen = True
+        Me.txtProvDLProzent._Prozent = True
+        Me.txtProvDLProzent._ShortDateNew = False
+        Me.txtProvDLProzent._ShortDateOnly = False
+        Me.txtProvDLProzent._TimeOnly = False
+        Me.txtProvDLProzent._TimeOnly_Seconds = False
+        Me.txtProvDLProzent._value = "0"
+        Me.txtProvDLProzent._Waehrung = False
+        Me.txtProvDLProzent._WaehrungZeichen = True
+        Me.txtProvDLProzent.ForeColor = System.Drawing.Color.Black
+        Me.txtProvDLProzent.Location = New System.Drawing.Point(117, 29)
+        Me.txtProvDLProzent.MaxLineLength = -1
+        Me.txtProvDLProzent.MaxLines_Warning = ""
+        Me.txtProvDLProzent.MaxLines_Warning_Label = Nothing
+        Me.txtProvDLProzent.Name = "txtProvDLProzent"
+        Me.txtProvDLProzent.Size = New System.Drawing.Size(60, 20)
+        Me.txtProvDLProzent.TabIndex = 30
+        Me.txtProvDLProzent.Text = "0,00 %"
+        Me.txtProvDLProzent.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        '
+        'kdProvDLProzentGSAn
+        '
+        Me.kdProvDLProzentGSAn._AlleFirmenCLUSTER = False
+        Me.kdProvDLProzentGSAn._AllowSetValue = True
+        Me.kdProvDLProzentGSAn._autoSizeGross = False
+        Me.kdProvDLProzentGSAn._display_Name1 = False
+        Me.kdProvDLProzentGSAn._displayAVISO_Email = False
+        Me.kdProvDLProzentGSAn._displayFullName = False
+        Me.kdProvDLProzentGSAn._displayWoelflKd = False
+        Me.kdProvDLProzentGSAn._hideIfListEmpty = True
+        Me.kdProvDLProzentGSAn._loadKdData = False
+        Me.kdProvDLProzentGSAn._searchName1 = True
+        Me.kdProvDLProzentGSAn._UseFIRMA = ""
+        Me.kdProvDLProzentGSAn._ValueKdAndName = True
+        Me.kdProvDLProzentGSAn.dgvpos = "LEFT"
+        Me.kdProvDLProzentGSAn.KdName = Nothing
+        Me.kdProvDLProzentGSAn.KdNr = "-1"
+        Me.kdProvDLProzentGSAn.kdNrField = Nothing
+        Me.kdProvDLProzentGSAn.KdNrNullInt = Nothing
+        Me.kdProvDLProzentGSAn.Location = New System.Drawing.Point(5, 69)
+        Me.kdProvDLProzentGSAn.Name = "kdProvDLProzentGSAn"
+        Me.kdProvDLProzentGSAn.nurAktive = True
+        Me.kdProvDLProzentGSAn.searchActive = True
+        Me.kdProvDLProzentGSAn.Size = New System.Drawing.Size(172, 20)
+        Me.kdProvDLProzentGSAn.TabIndex = 25
+        Me.kdProvDLProzentGSAn.TIMER_SEARCH = True
+        Me.kdProvDLProzentGSAn.usrcntl = Nothing
+        '
+        'cbxProvDL
+        '
+        Me.cbxProvDL.AutoSize = True
+        Me.cbxProvDL.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.cbxProvDL.Location = New System.Drawing.Point(3, 6)
+        Me.cbxProvDL.Name = "cbxProvDL"
+        Me.cbxProvDL.Size = New System.Drawing.Size(176, 17)
+        Me.cbxProvDL.TabIndex = 24
+        Me.cbxProvDL.Text = "Provision Dienstleistungen"
+        Me.cbxProvDL.UseVisualStyleBackColor = True
+        '
        'cbpKopfsammelrechnung
        '
        Me.cbpKopfsammelrechnung.AutoSize = True
@@ -1207,6 +1312,7 @@ Partial Class usrcntlKundeBearbeitenFull
        '
        'pnlverag360
        '
+        Me.pnlverag360.BackColor = System.Drawing.Color.WhiteSmoke
        Me.pnlverag360.Controls.Add(Me.Label111)
        Me.pnlverag360.Controls.Add(Me.txtFR)
        Me.pnlverag360.Controls.Add(Me.cbxErstattungsart)
@@ -1215,9 +1321,9 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.pnlverag360.Controls.Add(Me.gbMWSTAntraege)
        Me.pnlverag360.Controls.Add(Me.txtVorauszahlung)
        Me.pnlverag360.Controls.Add(Me.cbxVorauszahlung)
-        Me.pnlverag360.Location = New System.Drawing.Point(417, 288)
+        Me.pnlverag360.Location = New System.Drawing.Point(423, 288)
        Me.pnlverag360.Name = "pnlverag360"
-        Me.pnlverag360.Size = New System.Drawing.Size(252, 204)
+        Me.pnlverag360.Size = New System.Drawing.Size(246, 207)
        Me.pnlverag360.TabIndex = 49
        '
        'Label111
@@ -1296,7 +1402,7 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.txtAnmerkungAntraege._Waehrung = False
        Me.txtAnmerkungAntraege._WaehrungZeichen = False
        Me.txtAnmerkungAntraege.ForeColor = System.Drawing.Color.Red
-        Me.txtAnmerkungAntraege.Location = New System.Drawing.Point(8, 89)
+        Me.txtAnmerkungAntraege.Location = New System.Drawing.Point(8, 90)
        Me.txtAnmerkungAntraege.MaxLength = 10
        Me.txtAnmerkungAntraege.MaxLineLength = -1
        Me.txtAnmerkungAntraege.MaxLines_Warning = ""
@@ -1311,7 +1417,7 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.gbMWSTAntraege.Controls.Add(Me.rbHJ)
        Me.gbMWSTAntraege.Controls.Add(Me.rbQ)
        Me.gbMWSTAntraege.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.gbMWSTAntraege.Location = New System.Drawing.Point(4, 6)
+        Me.gbMWSTAntraege.Location = New System.Drawing.Point(4, 7)
        Me.gbMWSTAntraege.Name = "gbMWSTAntraege"
        Me.gbMWSTAntraege.Size = New System.Drawing.Size(199, 82)
        Me.gbMWSTAntraege.TabIndex = 46
@@ -1457,7 +1563,7 @@ Partial Class usrcntlKundeBearbeitenFull
        '
        Me.cbxAPITradeshift.AutoSize = True
        Me.cbxAPITradeshift.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.cbxAPITradeshift.Location = New System.Drawing.Point(15, 411)
+        Me.cbxAPITradeshift.Location = New System.Drawing.Point(15, 417)
        Me.cbxAPITradeshift.Name = "cbxAPITradeshift"
        Me.cbxAPITradeshift.Size = New System.Drawing.Size(157, 17)
        Me.cbxAPITradeshift.TabIndex = 36
@@ -1468,7 +1574,7 @@ Partial Class usrcntlKundeBearbeitenFull
        '
        Me.Label94.AutoSize = True
        Me.Label94.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label94.Location = New System.Drawing.Point(12, 387)
+        Me.Label94.Location = New System.Drawing.Point(12, 393)
        Me.Label94.Name = "Label94"
        Me.Label94.Size = New System.Drawing.Size(168, 13)
        Me.Label94.TabIndex = 35
@@ -1531,7 +1637,7 @@ Partial Class usrcntlKundeBearbeitenFull
        '
        Me.Label34.AutoSize = True
        Me.Label34.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label34.Location = New System.Drawing.Point(12, 289)
+        Me.Label34.Location = New System.Drawing.Point(12, 295)
        Me.Label34.Name = "Label34"
        Me.Label34.Size = New System.Drawing.Size(224, 13)
        Me.Label34.TabIndex = 22
@@ -1541,7 +1647,7 @@ Partial Class usrcntlKundeBearbeitenFull
        '
        Me.Label32.AutoSize = True
        Me.Label32.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label32.Location = New System.Drawing.Point(12, 361)
+        Me.Label32.Location = New System.Drawing.Point(12, 367)
        Me.Label32.Name = "Label32"
        Me.Label32.Size = New System.Drawing.Size(97, 13)
        Me.Label32.TabIndex = 27
@@ -1551,7 +1657,7 @@ Partial Class usrcntlKundeBearbeitenFull
        '
        Me.Label30.AutoSize = True
        Me.Label30.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label30.Location = New System.Drawing.Point(12, 336)
+        Me.Label30.Location = New System.Drawing.Point(12, 342)
        Me.Label30.Name = "Label30"
        Me.Label30.Size = New System.Drawing.Size(53, 13)
        Me.Label30.TabIndex = 25
@@ -1561,7 +1667,7 @@ Partial Class usrcntlKundeBearbeitenFull
        '
        Me.Label31.AutoSize = True
        Me.Label31.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label31.Location = New System.Drawing.Point(12, 314)
+        Me.Label31.Location = New System.Drawing.Point(12, 320)
        Me.Label31.Name = "Label31"
        Me.Label31.Size = New System.Drawing.Size(81, 13)
        Me.Label31.TabIndex = 23
@@ -1901,7 +2007,7 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.txtProvAuftraggeber._Waehrung = False
        Me.txtProvAuftraggeber._WaehrungZeichen = True
        Me.txtProvAuftraggeber.ForeColor = System.Drawing.Color.Black
-        Me.txtProvAuftraggeber.Location = New System.Drawing.Point(125, 358)
+        Me.txtProvAuftraggeber.Location = New System.Drawing.Point(125, 364)
        Me.txtProvAuftraggeber.MaxLineLength = -1
        Me.txtProvAuftraggeber.MaxLines_Warning = ""
        Me.txtProvAuftraggeber.MaxLines_Warning_Label = Nothing
@@ -1922,9 +2028,9 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.cboProvisionStaffel.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.cboProvisionStaffel.ForeColor = System.Drawing.Color.Black
        Me.cboProvisionStaffel.FormattingEnabled = True
-        Me.cboProvisionStaffel.Location = New System.Drawing.Point(125, 333)
+        Me.cboProvisionStaffel.Location = New System.Drawing.Point(95, 339)
        Me.cboProvisionStaffel.Name = "cboProvisionStaffel"
-        Me.cboProvisionStaffel.Size = New System.Drawing.Size(145, 21)
+        Me.cboProvisionStaffel.Size = New System.Drawing.Size(129, 21)
        Me.cboProvisionStaffel.TabIndex = 26
        '
        'cboProvisionStaffelArt
@@ -1938,9 +2044,9 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.cboProvisionStaffelArt.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.cboProvisionStaffelArt.ForeColor = System.Drawing.Color.Black
        Me.cboProvisionStaffelArt.FormattingEnabled = True
-        Me.cboProvisionStaffelArt.Location = New System.Drawing.Point(125, 311)
+        Me.cboProvisionStaffelArt.Location = New System.Drawing.Point(95, 317)
        Me.cboProvisionStaffelArt.Name = "cboProvisionStaffelArt"
-        Me.cboProvisionStaffelArt.Size = New System.Drawing.Size(146, 21)
+        Me.cboProvisionStaffelArt.Size = New System.Drawing.Size(130, 21)
        Me.cboProvisionStaffelArt.TabIndex = 24
        '
        'cboAbf_Waehrung
@@ -3791,6 +3897,15 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.tbSonstiges.Text = "Sonstiges"
        Me.tbSonstiges.UseVisualStyleBackColor = True
        '
+        'cbxCS_Added
+        '
+        Me.cbxCS_Added.AutoSize = True
+        Me.cbxCS_Added.Location = New System.Drawing.Point(406, 9)
+        Me.cbxCS_Added.Name = "cbxCS_Added"
+        Me.cbxCS_Added.Size = New System.Drawing.Size(15, 14)
+        Me.cbxCS_Added.TabIndex = 37
+        Me.cbxCS_Added.UseVisualStyleBackColor = True
+        '
        'Label113
        '
        Me.Label113.AutoSize = True
@@ -5529,15 +5644,6 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.DataGridViewTextBoxColumn2.HeaderText = "E-Mail"
        Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2"
        '
-        'cbxCS_Added
-        '
-        Me.cbxCS_Added.AutoSize = True
-        Me.cbxCS_Added.Location = New System.Drawing.Point(406, 9)
-        Me.cbxCS_Added.Name = "cbxCS_Added"
-        Me.cbxCS_Added.Size = New System.Drawing.Size(15, 14)
-        Me.cbxCS_Added.TabIndex = 37
-        Me.cbxCS_Added.UseVisualStyleBackColor = True
-        '
        'usrcntlKundeBearbeitenFull
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -5591,6 +5697,8 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.tbFiskal.ResumeLayout(False)
        Me.tbVerrechnung.ResumeLayout(False)
        Me.tbVerrechnung.PerformLayout()
+        Me.Panel2.ResumeLayout(False)
+        Me.Panel2.PerformLayout()
        Me.pnlverag360.ResumeLayout(False)
        Me.pnlverag360.PerformLayout()
        Me.gbMWSTAntraege.ResumeLayout(False)
@@ -5997,4 +6105,10 @@ Partial Class usrcntlKundeBearbeitenFull
    Friend WithEvents cbxErstattungsart As VERAG_PROG_ALLGEMEIN.MyComboBox
    Friend WithEvents cbpKopfsammelrechnung As CheckBox
    Friend WithEvents cbxCS_Added As CheckBox
+    Friend WithEvents Panel2 As Panel
+    Friend WithEvents Label114 As Label
+    Friend WithEvents txtProvDLProzent As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents kdProvDLProzentGSAn As VERAG_PROG_ALLGEMEIN.KdSearchBox
+    Friend WithEvents cbxProvDL As CheckBox
+    Friend WithEvents Label115 As Label
 End Class