Fremdrechnung_erw.

2025-04-25 14:13:52 +02:00
parent 07633f1986
commit f140798b09
5 changed files with 138 additions and 59 deletions
--- a/SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb
+++ b/SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb
@@ -55,9 +55,11 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.cboFremdspedition = New System.Windows.Forms.ComboBox()
        Me.cbxVerzolltBei = New System.Windows.Forms.CheckBox()
        Me.cbxBesonderheitenNEU = New System.Windows.Forms.CheckBox()
+        Me.UsrCntlKundenBesonderheiten1 = New SDL.usrCntlKundenBesonderheiten()
        Me.tbcntrAbf = New System.Windows.Forms.TabControl()
        Me.TabPage4 = New System.Windows.Forms.TabPage()
        Me.FlowLayoutPanel1 = New System.Windows.Forms.FlowLayoutPanel()
+        Me.UsrCntlKundenAvisoMailBenachrichtigung1 = New SDL.usrCntlKundenAvisoMailBenachrichtigung()
        Me.rtbLKWFreigabeSenden = New System.Windows.Forms.RichTextBox()
        Me.Label18 = New System.Windows.Forms.Label()
        Me.TabPage3 = New System.Windows.Forms.TabPage()
@@ -71,6 +73,7 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.cboAbfVerb_Abfertigungsverbot = New System.Windows.Forms.CheckBox()
        Me.txtAbfVerb_AbfertigungsverbotSeit = New VERAG_PROG_ALLGEMEIN.MyTextBox()
        Me.tbAufschub = New System.Windows.Forms.TabPage()
+        Me.usrCntlAufschubkonten = New SDL.usrCntlAufschubkonten()
        Me.TabPage1 = New System.Windows.Forms.TabPage()
        Me.Label78 = New System.Windows.Forms.Label()
        Me.cbxAbf_ZollVM = New System.Windows.Forms.CheckBox()
@@ -95,6 +98,7 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.rtbAbf_Besonderheiten = New System.Windows.Forms.RichTextBox()
        Me.Panel1 = New System.Windows.Forms.Panel()
        Me.tbFiskal = New System.Windows.Forms.TabPage()
+        Me.UsrCntlKundeFiskaldaten1 = New SDL.usrCntlKundeFiskaldaten()
        Me.tbVerrechnung = New System.Windows.Forms.TabPage()
        Me.pnlverag360 = New System.Windows.Forms.Panel()
        Me.txtAnmerkungAntraege = New VERAG_PROG_ALLGEMEIN.MyTextBox()
@@ -363,6 +367,7 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.tbKontakt = New System.Windows.Forms.TabControl()
        Me.TabPage10 = New System.Windows.Forms.TabPage()
        Me.TabPage11 = New System.Windows.Forms.TabPage()
+        Me.ucKundenKontakte = New SDL.usrCntlKundenKontakte()
        Me.Label50 = New System.Windows.Forms.Label()
        Me.Label68 = New System.Windows.Forms.Label()
        Me.pnlNeukunde = New System.Windows.Forms.Panel()
@@ -388,11 +393,8 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.cboFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox()
        Me.cboAuswahl = New VERAG_PROG_ALLGEMEIN.MyComboBox()
        Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn()
-        Me.ucKundenKontakte = New SDL.usrCntlKundenKontakte()
-        Me.UsrCntlKundenBesonderheiten1 = New SDL.usrCntlKundenBesonderheiten()
-        Me.UsrCntlKundenAvisoMailBenachrichtigung1 = New SDL.usrCntlKundenAvisoMailBenachrichtigung()
-        Me.usrCntlAufschubkonten = New SDL.usrCntlAufschubkonten()
-        Me.UsrCntlKundeFiskaldaten1 = New SDL.usrCntlKundeFiskaldaten()
+        Me.txtFR = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.cbxFR = New System.Windows.Forms.CheckBox()
        Me.tbcntrDetails.SuspendLayout()
        Me.tbAbfertigung.SuspendLayout()
        Me.tbcntrAbf.SuspendLayout()
@@ -577,6 +579,16 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.cbxBesonderheitenNEU.Text = "Besonderheiten NEU"
        Me.cbxBesonderheitenNEU.UseVisualStyleBackColor = True
        '
+        'UsrCntlKundenBesonderheiten1
+        '
+        Me.UsrCntlKundenBesonderheiten1.BackColor = System.Drawing.Color.White
+        Me.UsrCntlKundenBesonderheiten1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.UsrCntlKundenBesonderheiten1.Location = New System.Drawing.Point(6, 25)
+        Me.UsrCntlKundenBesonderheiten1.Name = "UsrCntlKundenBesonderheiten1"
+        Me.UsrCntlKundenBesonderheiten1.Size = New System.Drawing.Size(107, 52)
+        Me.UsrCntlKundenBesonderheiten1.TabIndex = 235
+        Me.UsrCntlKundenBesonderheiten1.Visible = False
+        '
        'tbcntrAbf
        '
        Me.tbcntrAbf.Controls.Add(Me.TabPage4)
@@ -611,6 +623,15 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.FlowLayoutPanel1.Size = New System.Drawing.Size(200, 100)
        Me.FlowLayoutPanel1.TabIndex = 7
        '
+        'UsrCntlKundenAvisoMailBenachrichtigung1
+        '
+        Me.UsrCntlKundenAvisoMailBenachrichtigung1.AutoScroll = True
+        Me.UsrCntlKundenAvisoMailBenachrichtigung1.BackColor = System.Drawing.Color.White
+        Me.UsrCntlKundenAvisoMailBenachrichtigung1.Location = New System.Drawing.Point(0, 6)
+        Me.UsrCntlKundenAvisoMailBenachrichtigung1.Name = "UsrCntlKundenAvisoMailBenachrichtigung1"
+        Me.UsrCntlKundenAvisoMailBenachrichtigung1.Size = New System.Drawing.Size(479, 172)
+        Me.UsrCntlKundenAvisoMailBenachrichtigung1.TabIndex = 6
+        '
        'rtbLKWFreigabeSenden
        '
        Me.rtbLKWFreigabeSenden.Location = New System.Drawing.Point(485, 33)
@@ -779,6 +800,14 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.tbAufschub.Text = "Aufschubkonten"
        Me.tbAufschub.UseVisualStyleBackColor = True
        '
+        'usrCntlAufschubkonten
+        '
+        Me.usrCntlAufschubkonten.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.usrCntlAufschubkonten.Location = New System.Drawing.Point(3, 3)
+        Me.usrCntlAufschubkonten.Name = "usrCntlAufschubkonten"
+        Me.usrCntlAufschubkonten.Size = New System.Drawing.Size(652, 172)
+        Me.usrCntlAufschubkonten.TabIndex = 0
+        '
        'TabPage1
        '
        Me.TabPage1.Controls.Add(Me.Label78)
@@ -1084,6 +1113,15 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.tbFiskal.Text = "Fiskal"
        Me.tbFiskal.UseVisualStyleBackColor = True
        '
+        'UsrCntlKundeFiskaldaten1
+        '
+        Me.UsrCntlKundeFiskaldaten1.BackColor = System.Drawing.Color.White
+        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, 495)
+        Me.UsrCntlKundeFiskaldaten1.TabIndex = 0
+        '
        'tbVerrechnung
        '
        Me.tbVerrechnung.Controls.Add(Me.pnlverag360)
@@ -1145,13 +1183,15 @@ Partial Class usrcntlKundeBearbeitenFull
        '
        'pnlverag360
        '
+        Me.pnlverag360.Controls.Add(Me.txtFR)
+        Me.pnlverag360.Controls.Add(Me.cbxFR)
        Me.pnlverag360.Controls.Add(Me.txtAnmerkungAntraege)
        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, 247)
        Me.pnlverag360.Name = "pnlverag360"
-        Me.pnlverag360.Size = New System.Drawing.Size(252, 143)
+        Me.pnlverag360.Size = New System.Drawing.Size(252, 169)
        Me.pnlverag360.TabIndex = 49
        '
        'txtAnmerkungAntraege
@@ -5040,6 +5080,14 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.TabPage11.Text = "Spezifisch"
        Me.TabPage11.UseVisualStyleBackColor = True
        '
+        'ucKundenKontakte
+        '
+        Me.ucKundenKontakte.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.ucKundenKontakte.Location = New System.Drawing.Point(3, 3)
+        Me.ucKundenKontakte.Name = "ucKundenKontakte"
+        Me.ucKundenKontakte.Size = New System.Drawing.Size(439, 169)
+        Me.ucKundenKontakte.TabIndex = 0
+        '
        'Label50
        '
        Me.Label50.AutoSize = True
@@ -5320,49 +5368,40 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.DataGridViewTextBoxColumn2.HeaderText = "E-Mail"
        Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2"
        '
-        'ucKundenKontakte
+        'txtFR
        '
-        Me.ucKundenKontakte.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.ucKundenKontakte.Location = New System.Drawing.Point(3, 3)
-        Me.ucKundenKontakte.Name = "ucKundenKontakte"
-        Me.ucKundenKontakte.Size = New System.Drawing.Size(439, 169)
-        Me.ucKundenKontakte.TabIndex = 0
+        Me.txtFR._DateTimeOnly = False
+        Me.txtFR._numbersOnly = False
+        Me.txtFR._numbersOnlyKommastellen = ""
+        Me.txtFR._numbersOnlyTrennzeichen = False
+        Me.txtFR._Prozent = False
+        Me.txtFR._ShortDateNew = False
+        Me.txtFR._ShortDateOnly = False
+        Me.txtFR._TimeOnly = False
+        Me.txtFR._TimeOnly_Seconds = False
+        Me.txtFR._value = ""
+        Me.txtFR._Waehrung = False
+        Me.txtFR._WaehrungZeichen = False
+        Me.txtFR.ForeColor = System.Drawing.Color.Red
+        Me.txtFR.Location = New System.Drawing.Point(110, 146)
+        Me.txtFR.MaxLength = 10
+        Me.txtFR.MaxLineLength = -1
+        Me.txtFR.MaxLines_Warning = ""
+        Me.txtFR.MaxLines_Warning_Label = Nothing
+        Me.txtFR.Name = "txtFR"
+        Me.txtFR.Size = New System.Drawing.Size(123, 20)
+        Me.txtFR.TabIndex = 51
        '
-        'UsrCntlKundenBesonderheiten1
+        'cbxFR
        '
-        Me.UsrCntlKundenBesonderheiten1.BackColor = System.Drawing.Color.White
-        Me.UsrCntlKundenBesonderheiten1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
-        Me.UsrCntlKundenBesonderheiten1.Location = New System.Drawing.Point(6, 25)
-        Me.UsrCntlKundenBesonderheiten1.Name = "UsrCntlKundenBesonderheiten1"
-        Me.UsrCntlKundenBesonderheiten1.Size = New System.Drawing.Size(107, 52)
-        Me.UsrCntlKundenBesonderheiten1.TabIndex = 235
-        Me.UsrCntlKundenBesonderheiten1.Visible = False
-        '
-        'UsrCntlKundenAvisoMailBenachrichtigung1
-        '
-        Me.UsrCntlKundenAvisoMailBenachrichtigung1.AutoScroll = True
-        Me.UsrCntlKundenAvisoMailBenachrichtigung1.BackColor = System.Drawing.Color.White
-        Me.UsrCntlKundenAvisoMailBenachrichtigung1.Location = New System.Drawing.Point(0, 6)
-        Me.UsrCntlKundenAvisoMailBenachrichtigung1.Name = "UsrCntlKundenAvisoMailBenachrichtigung1"
-        Me.UsrCntlKundenAvisoMailBenachrichtigung1.Size = New System.Drawing.Size(479, 172)
-        Me.UsrCntlKundenAvisoMailBenachrichtigung1.TabIndex = 6
-        '
-        'usrCntlAufschubkonten
-        '
-        Me.usrCntlAufschubkonten.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.usrCntlAufschubkonten.Location = New System.Drawing.Point(3, 3)
-        Me.usrCntlAufschubkonten.Name = "usrCntlAufschubkonten"
-        Me.usrCntlAufschubkonten.Size = New System.Drawing.Size(652, 172)
-        Me.usrCntlAufschubkonten.TabIndex = 0
-        '
-        'UsrCntlKundeFiskaldaten1
-        '
-        Me.UsrCntlKundeFiskaldaten1.BackColor = System.Drawing.Color.White
-        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, 495)
-        Me.UsrCntlKundeFiskaldaten1.TabIndex = 0
+        Me.cbxFR.AutoSize = True
+        Me.cbxFR.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.cbxFR.Location = New System.Drawing.Point(8, 146)
+        Me.cbxFR.Name = "cbxFR"
+        Me.cbxFR.Size = New System.Drawing.Size(100, 17)
+        Me.cbxFR.TabIndex = 50
+        Me.cbxFR.Text = "Fremdrechnung"
+        Me.cbxFR.UseVisualStyleBackColor = True
        '
        'usrcntlKundeBearbeitenFull
        '
@@ -5812,4 +5851,6 @@ Partial Class usrcntlKundeBearbeitenFull
    Friend WithEvents txtAnmerkungAntraege As VERAG_PROG_ALLGEMEIN.MyTextBox
    Friend WithEvents dgvMWST As DataGridView
    Friend WithEvents btnMWSTspeichern As VERAG_PROG_ALLGEMEIN.FlatButton
+    Friend WithEvents txtFR As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents cbxFR As CheckBox
 End Class