zusätz Feld Anmerkung MWST, ustva, etc.

SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb

@@ -98,6 +98,7 @@ Partial Class usrcntlKundeBearbeitenFull
         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()
         Me.gbMWSTAntraege = New System.Windows.Forms.GroupBox()
         Me.rbJ = New System.Windows.Forms.RadioButton()
         Me.rbHJ = New System.Windows.Forms.RadioButton()
@@ -1174,14 +1175,39 @@ Partial Class usrcntlKundeBearbeitenFull
         '
         'pnlverag360
         '
+        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, 117)
+        Me.pnlverag360.Size = New System.Drawing.Size(252, 143)
         Me.pnlverag360.TabIndex = 49
         '
+        'txtAnmerkungAntraege
+        '
+        Me.txtAnmerkungAntraege._DateTimeOnly = False
+        Me.txtAnmerkungAntraege._numbersOnly = False
+        Me.txtAnmerkungAntraege._numbersOnlyKommastellen = ""
+        Me.txtAnmerkungAntraege._numbersOnlyTrennzeichen = False
+        Me.txtAnmerkungAntraege._Prozent = False
+        Me.txtAnmerkungAntraege._ShortDateNew = False
+        Me.txtAnmerkungAntraege._ShortDateOnly = False
+        Me.txtAnmerkungAntraege._TimeOnly = False
+        Me.txtAnmerkungAntraege._TimeOnly_Seconds = False
+        Me.txtAnmerkungAntraege._value = ""
+        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.MaxLength = 10
+        Me.txtAnmerkungAntraege.MaxLineLength = -1
+        Me.txtAnmerkungAntraege.MaxLines_Warning = ""
+        Me.txtAnmerkungAntraege.MaxLines_Warning_Label = Nothing
+        Me.txtAnmerkungAntraege.Name = "txtAnmerkungAntraege"
+        Me.txtAnmerkungAntraege.Size = New System.Drawing.Size(195, 20)
+        Me.txtAnmerkungAntraege.TabIndex = 49
+        '
         'gbMWSTAntraege
         '
         Me.gbMWSTAntraege.Controls.Add(Me.rbJ)
@@ -1245,7 +1271,7 @@ Partial Class usrcntlKundeBearbeitenFull
         Me.txtVorauszahlung._Waehrung = False
         Me.txtVorauszahlung._WaehrungZeichen = False
         Me.txtVorauszahlung.ForeColor = System.Drawing.Color.Red
-        Me.txtVorauszahlung.Location = New System.Drawing.Point(106, 92)
+        Me.txtVorauszahlung.Location = New System.Drawing.Point(110, 120)
         Me.txtVorauszahlung.MaxLength = 10
         Me.txtVorauszahlung.MaxLineLength = -1
         Me.txtVorauszahlung.MaxLines_Warning = ""
@@ -1253,13 +1279,12 @@ Partial Class usrcntlKundeBearbeitenFull
         Me.txtVorauszahlung.Name = "txtVorauszahlung"
         Me.txtVorauszahlung.Size = New System.Drawing.Size(123, 20)
         Me.txtVorauszahlung.TabIndex = 48
-        Me.txtVorauszahlung.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
         '
         'cbxVorauszahlung
         '
         Me.cbxVorauszahlung.AutoSize = True
         Me.cbxVorauszahlung.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.cbxVorauszahlung.Location = New System.Drawing.Point(4, 92)
+        Me.cbxVorauszahlung.Location = New System.Drawing.Point(8, 120)
         Me.cbxVorauszahlung.Name = "cbxVorauszahlung"
         Me.cbxVorauszahlung.Size = New System.Drawing.Size(96, 17)
         Me.cbxVorauszahlung.TabIndex = 47
@@ -5732,4 +5757,5 @@ Partial Class usrcntlKundeBearbeitenFull
     Friend WithEvents pnlverag360 As Panel
     Friend WithEvents txtVorauszahlung As VERAG_PROG_ALLGEMEIN.MyTextBox
     Friend WithEvents cbxVorauszahlung As CheckBox
+    Friend WithEvents txtAnmerkungAntraege As VERAG_PROG_ALLGEMEIN.MyTextBox
 End Class

SDL/kunden/usrcntlKundeBearbeitenFull.vb

@@ -203,6 +203,7 @@
         txtHandelsregisterNr.Text = loadValue(KUNDE_ERW.kde_HRNr, "")
         cbxVorauszahlung.Checked = loadValue(KUNDE_ERW.kde_VZ, False)
         txtVorauszahlung.Text = loadValue(KUNDE_ERW.kde_AnmerkungVZ, "")
+        txtAnmerkungAntraege.Text = loadValue(KUNDE_ERW.kde_AnmerkungAntrag, "")
 
         txtEORI.Text = If(KUNDE.EORITIN, "")
         txtEORINL.Text = If(KUNDE.EORITIN_NL, "")
@@ -619,6 +620,7 @@
         KUNDE_ERW.kde_HRNr = isLeerNothing(txtHandelsregisterNr.Text)
         KUNDE_ERW.kde_VZ = cbxVorauszahlung.Checked
         KUNDE_ERW.kde_AnmerkungVZ = txtVorauszahlung.Text
+        KUNDE_ERW.kde_AnmerkungAntrag = txtAnmerkungAntraege.Text
 
         If isLeerNothing(txtGruendungsDatum.Text) IsNot Nothing AndAlso IsDate(txtGruendungsDatum.Text) Then
             KUNDE_ERW.kde_GruendungsDatum = CDate(txtGruendungsDatum.Text)
@@ -2234,4 +2236,9 @@
 
         End If
     End Sub
+
+    Private Sub cbxVorauszahlung_CheckedChanged(sender As Object, e As EventArgs) Handles cbxVorauszahlung.CheckedChanged
+        txtVorauszahlung.Enabled = cbxVorauszahlung.Checked
+        If Not cbxVorauszahlung.Checked Then txtVorauszahlung.Text = ""
+    End Sub
 End Class