From fa8d9ae20938dfb31ada753cdfddb216a9d1e30d Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Tue, 13 May 2025 15:54:07 +0200 Subject: [PATCH] Mahnung, Kundebearbeiten, USTVA-Antrag --- SDL/USTV/frmMDM_USTVAntrag.Designer.vb | 219 ++++---- SDL/USTV/frmMDM_USTVAntrag.vb | 15 +- SDL/USTV/ustCntlUSTV_ErstattungPosition .vb | 12 +- SDL/buchhaltung/frmBU_Mahnlauf.vb | 12 +- .../usrcntlKundeBearbeitenFull.Designer.vb | 522 ++++++++++-------- SDL/kunden/usrcntlKundeBearbeitenFull.vb | 27 + .../Classes/USTV/cUSTVAntrag.vb | 5 +- 7 files changed, 482 insertions(+), 330 deletions(-) diff --git a/SDL/USTV/frmMDM_USTVAntrag.Designer.vb b/SDL/USTV/frmMDM_USTVAntrag.Designer.vb index fe2b4650..8d57723e 100644 --- a/SDL/USTV/frmMDM_USTVAntrag.Designer.vb +++ b/SDL/USTV/frmMDM_USTVAntrag.Designer.vb @@ -40,6 +40,7 @@ Partial Class frmMDM_USTVAntrag Me.Button1 = New System.Windows.Forms.Button() Me.lbl_EintrageVerarbetiet = New System.Windows.Forms.Label() Me.pnlHeader = New System.Windows.Forms.Panel() + Me.cbxRGretour = New System.Windows.Forms.CheckBox() Me.lblGesamtUSteuer = New System.Windows.Forms.Label() Me.lblDiffernezbetrag = New System.Windows.Forms.Label() Me.lblGesamtErstattung = New System.Windows.Forms.Label() @@ -50,6 +51,10 @@ Partial Class frmMDM_USTVAntrag Me.cbxLand = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.lblLand = New System.Windows.Forms.Label() Me.Panel8 = New System.Windows.Forms.Panel() + Me.Label16 = New System.Windows.Forms.Label() + Me.txtRZam = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label17 = New System.Windows.Forms.Label() + Me.txtRZ = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label15 = New System.Windows.Forms.Label() Me.txtVZam = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.btnAbfertigungsNrVergeben = New System.Windows.Forms.Button() @@ -107,6 +112,7 @@ Partial Class frmMDM_USTVAntrag Me.dgvUSTVPositionen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) Me.pnlAntragsPosDetails = New System.Windows.Forms.Panel() Me.Panel2 = New System.Windows.Forms.Panel() + Me.UstCntlUSTV_AntragPosition1 = New SDL.ustCntlUSTV_AntragPosition() Me.Panel4 = New System.Windows.Forms.Panel() Me.cbxKIUploaddelete = New System.Windows.Forms.CheckBox() Me.scanUSTVA = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() @@ -117,18 +123,13 @@ Partial Class frmMDM_USTVAntrag Me.Panel3 = New System.Windows.Forms.Panel() Me.dgvErstattungspositionen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) Me.pnlErstattungsdetails = New System.Windows.Forms.Panel() + Me.UstCntlUSTV_AntragErstattungen1 = New SDL.ustCntlUSTV_ErstattungPosition() Me.Panel1 = New System.Windows.Forms.Panel() Me.Button2 = New System.Windows.Forms.Button() Me.Button3 = New System.Windows.Forms.Button() Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.cnS_KIUPLOAD = New System.Windows.Forms.ContextMenuStrip(Me.components) - Me.UstCntlUSTV_AntragPosition1 = New SDL.ustCntlUSTV_AntragPosition() - Me.UstCntlUSTV_AntragErstattungen1 = New SDL.ustCntlUSTV_ErstattungPosition() - Me.Label16 = New System.Windows.Forms.Label() - Me.txtRZam = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.Label17 = New System.Windows.Forms.Label() - Me.txtRZ = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.pnlBottom.SuspendLayout() CType(Me.pb_Beleg, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.picExcel, System.ComponentModel.ISupportInitialize).BeginInit() @@ -331,6 +332,7 @@ Partial Class frmMDM_USTVAntrag 'pnlHeader ' Me.pnlHeader.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.pnlHeader.Controls.Add(Me.cbxRGretour) Me.pnlHeader.Controls.Add(Me.lblGesamtUSteuer) Me.pnlHeader.Controls.Add(Me.lblDiffernezbetrag) Me.pnlHeader.Controls.Add(Me.lblGesamtErstattung) @@ -355,6 +357,18 @@ Partial Class frmMDM_USTVAntrag Me.pnlHeader.Size = New System.Drawing.Size(1454, 201) Me.pnlHeader.TabIndex = 0 ' + 'cbxRGretour + ' + Me.cbxRGretour.AutoSize = True + Me.cbxRGretour.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cbxRGretour.ForeColor = System.Drawing.Color.White + Me.cbxRGretour.Location = New System.Drawing.Point(483, 13) + Me.cbxRGretour.Name = "cbxRGretour" + Me.cbxRGretour.Size = New System.Drawing.Size(89, 20) + Me.cbxRGretour.TabIndex = 52 + Me.cbxRGretour.Text = "RG Retour" + Me.cbxRGretour.UseVisualStyleBackColor = True + ' 'lblGesamtUSteuer ' Me.lblGesamtUSteuer.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) @@ -532,6 +546,82 @@ Partial Class frmMDM_USTVAntrag Me.Panel8.Size = New System.Drawing.Size(973, 115) Me.Panel8.TabIndex = 19 ' + 'Label16 + ' + Me.Label16.AutoSize = True + Me.Label16.BackColor = System.Drawing.Color.Transparent + Me.Label16.Cursor = System.Windows.Forms.Cursors.Hand + Me.Label16.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label16.ForeColor = System.Drawing.Color.Black + Me.Label16.Location = New System.Drawing.Point(800, 91) + Me.Label16.Name = "Label16" + Me.Label16.Size = New System.Drawing.Size(54, 17) + Me.Label16.TabIndex = 55 + Me.Label16.Text = "RZ am:" + ' + 'txtRZam + ' + Me.txtRZam._DateTimeOnly = False + Me.txtRZam._numbersOnly = False + Me.txtRZam._numbersOnlyKommastellen = "" + Me.txtRZam._numbersOnlyTrennzeichen = False + Me.txtRZam._Prozent = False + Me.txtRZam._ShortDateNew = False + Me.txtRZam._ShortDateOnly = True + Me.txtRZam._TimeOnly = False + Me.txtRZam._TimeOnly_Seconds = False + Me.txtRZam._value = "" + Me.txtRZam._Waehrung = False + Me.txtRZam._WaehrungZeichen = False + Me.txtRZam.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!) + Me.txtRZam.ForeColor = System.Drawing.Color.Black + Me.txtRZam.Location = New System.Drawing.Point(865, 87) + Me.txtRZam.MaxLength = 10 + Me.txtRZam.MaxLineLength = -1 + Me.txtRZam.MaxLines_Warning = "" + Me.txtRZam.MaxLines_Warning_Label = Nothing + Me.txtRZam.Name = "txtRZam" + Me.txtRZam.Size = New System.Drawing.Size(100, 23) + Me.txtRZam.TabIndex = 56 + ' + 'Label17 + ' + Me.Label17.AutoSize = True + Me.Label17.BackColor = System.Drawing.Color.Transparent + Me.Label17.Cursor = System.Windows.Forms.Cursors.Hand + Me.Label17.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label17.ForeColor = System.Drawing.Color.Black + Me.Label17.Location = New System.Drawing.Point(524, 91) + Me.Label17.Name = "Label17" + Me.Label17.Size = New System.Drawing.Size(94, 17) + Me.Label17.TabIndex = 53 + Me.Label17.Text = "Rückzahlung:" + ' + 'txtRZ + ' + Me.txtRZ._DateTimeOnly = False + Me.txtRZ._numbersOnly = True + Me.txtRZ._numbersOnlyKommastellen = "" + Me.txtRZ._numbersOnlyTrennzeichen = True + Me.txtRZ._Prozent = False + Me.txtRZ._ShortDateNew = False + Me.txtRZ._ShortDateOnly = False + Me.txtRZ._TimeOnly = False + Me.txtRZ._TimeOnly_Seconds = False + Me.txtRZ._value = "" + Me.txtRZ._Waehrung = True + Me.txtRZ._WaehrungZeichen = True + Me.txtRZ.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!) + Me.txtRZ.ForeColor = System.Drawing.Color.Black + Me.txtRZ.Location = New System.Drawing.Point(654, 87) + Me.txtRZ.MaxLength = 10 + Me.txtRZ.MaxLineLength = -1 + Me.txtRZ.MaxLines_Warning = "" + Me.txtRZ.MaxLines_Warning_Label = Nothing + Me.txtRZ.Name = "txtRZ" + Me.txtRZ.Size = New System.Drawing.Size(125, 23) + Me.txtRZ.TabIndex = 54 + ' 'Label15 ' Me.Label15.AutoSize = True @@ -1402,6 +1492,14 @@ Partial Class frmMDM_USTVAntrag Me.Panel2.Size = New System.Drawing.Size(1438, 263) Me.Panel2.TabIndex = 1 ' + 'UstCntlUSTV_AntragPosition1 + ' + Me.UstCntlUSTV_AntragPosition1.Dock = System.Windows.Forms.DockStyle.Fill + Me.UstCntlUSTV_AntragPosition1.Location = New System.Drawing.Point(154, 0) + Me.UstCntlUSTV_AntragPosition1.Name = "UstCntlUSTV_AntragPosition1" + Me.UstCntlUSTV_AntragPosition1.Size = New System.Drawing.Size(1282, 261) + Me.UstCntlUSTV_AntragPosition1.TabIndex = 0 + ' 'Panel4 ' Me.Panel4.BackColor = System.Drawing.Color.WhiteSmoke @@ -1497,7 +1595,7 @@ Partial Class frmMDM_USTVAntrag Me.TabPage2.Location = New System.Drawing.Point(4, 22) Me.TabPage2.Name = "TabPage2" Me.TabPage2.Padding = New System.Windows.Forms.Padding(3) - Me.TabPage2.Size = New System.Drawing.Size(1444, 444) + Me.TabPage2.Size = New System.Drawing.Size(1444, 415) Me.TabPage2.TabIndex = 1 Me.TabPage2.Text = "Erstattungspositionen" Me.TabPage2.UseVisualStyleBackColor = True @@ -1511,7 +1609,7 @@ Partial Class frmMDM_USTVAntrag Me.Panel3.Dock = System.Windows.Forms.DockStyle.Fill Me.Panel3.Location = New System.Drawing.Point(3, 3) Me.Panel3.Name = "Panel3" - Me.Panel3.Size = New System.Drawing.Size(1438, 438) + Me.Panel3.Size = New System.Drawing.Size(1438, 409) Me.Panel3.TabIndex = 3 ' 'dgvErstattungspositionen @@ -1532,7 +1630,7 @@ Partial Class frmMDM_USTVAntrag Me.dgvErstattungspositionen.RowHeadersVisible = False Me.dgvErstattungspositionen.RowHeadersWidth = 62 Me.dgvErstattungspositionen.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect - Me.dgvErstattungspositionen.Size = New System.Drawing.Size(1438, 172) + Me.dgvErstattungspositionen.Size = New System.Drawing.Size(1438, 143) Me.dgvErstattungspositionen.TabIndex = 1 ' 'pnlErstattungsdetails @@ -1542,11 +1640,19 @@ Partial Class frmMDM_USTVAntrag Me.pnlErstattungsdetails.Controls.Add(Me.UstCntlUSTV_AntragErstattungen1) Me.pnlErstattungsdetails.Controls.Add(Me.Panel1) Me.pnlErstattungsdetails.Dock = System.Windows.Forms.DockStyle.Bottom - Me.pnlErstattungsdetails.Location = New System.Drawing.Point(0, 175) + Me.pnlErstattungsdetails.Location = New System.Drawing.Point(0, 146) Me.pnlErstattungsdetails.Name = "pnlErstattungsdetails" Me.pnlErstattungsdetails.Size = New System.Drawing.Size(1436, 261) Me.pnlErstattungsdetails.TabIndex = 0 ' + 'UstCntlUSTV_AntragErstattungen1 + ' + Me.UstCntlUSTV_AntragErstattungen1.Dock = System.Windows.Forms.DockStyle.Fill + Me.UstCntlUSTV_AntragErstattungen1.Location = New System.Drawing.Point(154, 0) + Me.UstCntlUSTV_AntragErstattungen1.Name = "UstCntlUSTV_AntragErstattungen1" + Me.UstCntlUSTV_AntragErstattungen1.Size = New System.Drawing.Size(1280, 259) + Me.UstCntlUSTV_AntragErstattungen1.TabIndex = 2 + ' 'Panel1 ' Me.Panel1.BackColor = System.Drawing.Color.WhiteSmoke @@ -1602,98 +1708,6 @@ Partial Class frmMDM_USTVAntrag Me.cnS_KIUPLOAD.Name = "ContextMenuStrip1" Me.cnS_KIUPLOAD.Size = New System.Drawing.Size(61, 4) ' - 'UstCntlUSTV_AntragPosition1 - ' - Me.UstCntlUSTV_AntragPosition1.Dock = System.Windows.Forms.DockStyle.Fill - Me.UstCntlUSTV_AntragPosition1.Location = New System.Drawing.Point(154, 0) - Me.UstCntlUSTV_AntragPosition1.Name = "UstCntlUSTV_AntragPosition1" - Me.UstCntlUSTV_AntragPosition1.Size = New System.Drawing.Size(1282, 261) - Me.UstCntlUSTV_AntragPosition1.TabIndex = 0 - ' - 'UstCntlUSTV_AntragErstattungen1 - ' - Me.UstCntlUSTV_AntragErstattungen1.Dock = System.Windows.Forms.DockStyle.Fill - Me.UstCntlUSTV_AntragErstattungen1.Location = New System.Drawing.Point(154, 0) - Me.UstCntlUSTV_AntragErstattungen1.Name = "UstCntlUSTV_AntragErstattungen1" - Me.UstCntlUSTV_AntragErstattungen1.Size = New System.Drawing.Size(1280, 259) - Me.UstCntlUSTV_AntragErstattungen1.TabIndex = 2 - ' - 'Label16 - ' - Me.Label16.AutoSize = True - Me.Label16.BackColor = System.Drawing.Color.Transparent - Me.Label16.Cursor = System.Windows.Forms.Cursors.Hand - Me.Label16.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label16.ForeColor = System.Drawing.Color.Black - Me.Label16.Location = New System.Drawing.Point(800, 91) - Me.Label16.Name = "Label16" - Me.Label16.Size = New System.Drawing.Size(54, 17) - Me.Label16.TabIndex = 55 - Me.Label16.Text = "RZ am:" - ' - 'txtRZam - ' - Me.txtRZam._DateTimeOnly = False - Me.txtRZam._numbersOnly = False - Me.txtRZam._numbersOnlyKommastellen = "" - Me.txtRZam._numbersOnlyTrennzeichen = False - Me.txtRZam._Prozent = False - Me.txtRZam._ShortDateNew = False - Me.txtRZam._ShortDateOnly = True - Me.txtRZam._TimeOnly = False - Me.txtRZam._TimeOnly_Seconds = False - Me.txtRZam._value = "" - Me.txtRZam._Waehrung = False - Me.txtRZam._WaehrungZeichen = False - Me.txtRZam.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!) - Me.txtRZam.ForeColor = System.Drawing.Color.Black - Me.txtRZam.Location = New System.Drawing.Point(865, 87) - Me.txtRZam.MaxLength = 10 - Me.txtRZam.MaxLineLength = -1 - Me.txtRZam.MaxLines_Warning = "" - Me.txtRZam.MaxLines_Warning_Label = Nothing - Me.txtRZam.Name = "txtRZam" - Me.txtRZam.Size = New System.Drawing.Size(100, 23) - Me.txtRZam.TabIndex = 56 - ' - 'Label17 - ' - Me.Label17.AutoSize = True - Me.Label17.BackColor = System.Drawing.Color.Transparent - Me.Label17.Cursor = System.Windows.Forms.Cursors.Hand - Me.Label17.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label17.ForeColor = System.Drawing.Color.Black - Me.Label17.Location = New System.Drawing.Point(524, 91) - Me.Label17.Name = "Label17" - Me.Label17.Size = New System.Drawing.Size(94, 17) - Me.Label17.TabIndex = 53 - Me.Label17.Text = "Rückzahlung:" - ' - 'txtRZ - ' - Me.txtRZ._DateTimeOnly = False - Me.txtRZ._numbersOnly = True - Me.txtRZ._numbersOnlyKommastellen = "" - Me.txtRZ._numbersOnlyTrennzeichen = True - Me.txtRZ._Prozent = False - Me.txtRZ._ShortDateNew = False - Me.txtRZ._ShortDateOnly = False - Me.txtRZ._TimeOnly = False - Me.txtRZ._TimeOnly_Seconds = False - Me.txtRZ._value = "" - Me.txtRZ._Waehrung = True - Me.txtRZ._WaehrungZeichen = True - Me.txtRZ.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!) - Me.txtRZ.ForeColor = System.Drawing.Color.Black - Me.txtRZ.Location = New System.Drawing.Point(654, 87) - Me.txtRZ.MaxLength = 10 - Me.txtRZ.MaxLineLength = -1 - Me.txtRZ.MaxLines_Warning = "" - Me.txtRZ.MaxLines_Warning_Label = Nothing - Me.txtRZ.Name = "txtRZ" - Me.txtRZ.Size = New System.Drawing.Size(125, 23) - Me.txtRZ.TabIndex = 54 - ' 'frmMDM_USTVAntrag ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) @@ -1843,4 +1857,5 @@ Partial Class frmMDM_USTVAntrag Friend WithEvents txtRZam As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents Label17 As Label Friend WithEvents txtRZ As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents cbxRGretour As CheckBox End Class diff --git a/SDL/USTV/frmMDM_USTVAntrag.vb b/SDL/USTV/frmMDM_USTVAntrag.vb index 2d0bedc7..9891b8d1 100644 --- a/SDL/USTV/frmMDM_USTVAntrag.vb +++ b/SDL/USTV/frmMDM_USTVAntrag.vb @@ -336,6 +336,7 @@ Public Class frmMDM_USTVAntrag txtEingereichtAm.Text = If(USTV_ANTRAG.UStVAn_AntragEingereichtAm, "") cbxFiliale.changeItem(If(USTV_ANTRAG.FilialenNr, "")) cbxWahrung.changeItem(If(USTV_ANTRAG.UStVAn_Währungscode, "")) + cbxRGretour.Checked = USTV_ANTRAG.UStVAn_RGRetour End Sub @@ -350,6 +351,8 @@ Public Class frmMDM_USTVAntrag USTV_ANTRAG.UStVAn_AntragArt = cboAntragArt._value USTV_ANTRAG.UStVAn_StatusText = rtbStatusText.Text + USTV_ANTRAG.UStVAn_RGRetour = cbxRGretour.Checked + USTV_ANTRAG.FilialenNr = cbxFiliale._value USTV_ANTRAG.FilialenNr = cbxFiliale._value @@ -1014,7 +1017,7 @@ Public Class frmMDM_USTVAntrag USTV_POS.UStVPo_ReDat = r.Item("rmc_reDatum") USTV_POS.UStVPo_ReNr = r.Item("rmc_reNr").ToString USTV_POS.UStVPo_SchnittstellenNr = bytSchnittstellenNr - USTV_POS.UStVPo_daId = r.Item("rmc_daId") + 'USTV_POS.UStVPo_daId = r.Item("rmc_daId") If IsNumeric(USTV_POS.UStVPo_daId) AndAlso USTV_POS.UStVPo_daId > 0 Then USTV_POS.UStVPo_daId_loeschbar = False Else @@ -3140,6 +3143,16 @@ Public Class frmMDM_USTVAntrag End Sub + Private Sub cbxRGretour_CheckedChanged(sender As Object, e As EventArgs) Handles cbxRGretour.CheckedChanged + + If cbxRGretour.Checked Then + cbxRGretour.ForeColor = Color.Red + Else + cbxRGretour.ForeColor = Color.White + End If + + End Sub + Private Sub initScanUSTVA() If USTV_ANTRAG IsNot Nothing Then scanUSTVA.INIT(USTV_ANTRAG.UStVAn_KuNr, "MDM", "USTVA_KI_" & USTV_ANTRAG.UStVAn_ID) diff --git a/SDL/USTV/ustCntlUSTV_ErstattungPosition .vb b/SDL/USTV/ustCntlUSTV_ErstattungPosition .vb index add5c64e..d15a5d78 100644 --- a/SDL/USTV/ustCntlUSTV_ErstattungPosition .vb +++ b/SDL/USTV/ustCntlUSTV_ErstattungPosition .vb @@ -225,7 +225,7 @@ Public Class ustCntlUSTV_ErstattungPosition ' txtUSTBetrag.Text = Math.Floor((txtUSTBetragEUR._value * txtUmrechnungskurs._value) * 100 + 0.5) / 100 ' 'values_changed() 'End If - + If IsNumeric(txtUSTBetragEUR) Then txtChanged = True If IsNumeric(txtUSTBetragEUR.Text) AndAlso IsNumeric(txtUSTBetrag.Text) Then @@ -250,19 +250,29 @@ Public Class ustCntlUSTV_ErstattungPosition If txtBelegDatum.Text <> "" Then txtBelegDatum.Text = txtBelegDatum.Text.Replace("-", ".") End If + txtChanged = True ElseIf sender Is txtBerufungsdatum Then If txtBerufungsdatum.Text <> "" Then txtBerufungsdatum.Text = txtBerufungsdatum.Text.Replace("-", ".") End If + txtChanged = True ElseIf sender Is txtGuDatum Then If txtGuDatum.Text <> "" Then txtGuDatum.Text = txtGuDatum.Text.Replace("-", ".") End If + txtChanged = True + + ElseIf sender Is txtBemerkung Then + + If txtBemerkung.Text <> "" Then + txtBemerkung.Text = txtBemerkung.Text + End If + txtChanged = True End If End If diff --git a/SDL/buchhaltung/frmBU_Mahnlauf.vb b/SDL/buchhaltung/frmBU_Mahnlauf.vb index 665b8dd1..392e562a 100644 --- a/SDL/buchhaltung/frmBU_Mahnlauf.vb +++ b/SDL/buchhaltung/frmBU_Mahnlauf.vb @@ -391,13 +391,13 @@ Public Class frmBU_Mahnlauf Select Case Sprache Case "EN" rpt.lblSummeUeberschrift.Text = "Total:" - rpt.lblSteuersatz.Text = "Late payment interest of 9.5% p.a. from due date" - rpt.lblZwText.Text = "Dunning fee" + rpt.lblSteuersatz.Text = "Interest for late payment 9.5% " + rpt.lblZwText.Text = "Reminder Fee" rpt.lblZwischensumme.Text = "Subtotal" Case "RO" rpt.lblSummeUeberschrift.Text = "Total:" - rpt.lblSteuersatz.Text = "Late payment interest of 9.5% p.a. from due date" - rpt.lblZwText.Text = "Dunning fee" + rpt.lblSteuersatz.Text = "Penalitati întârziere la plată 9,5 % " + rpt.lblZwText.Text = "Taxa somatie" rpt.lblZwischensumme.Text = "Subtotal" End Select @@ -1112,6 +1112,8 @@ Public Class frmBU_Mahnlauf Private Shared Sub getMahnstufetextMDM(MAHNSTUFE, ByRef MahnTEXT_VOR, ByRef MahnTEXT_NACH, ByRef MAHNTEXT) + 'nur Deutsch, weil übersetzung über tblTranslate! + Select Case MAHNSTUFE Case -2 MahnTEXT_VOR = "Nachstehend ersehen Sie die Übersicht Ihrer offenen Rechnungen:" @@ -1504,7 +1506,7 @@ Public Class frmBU_Mahnlauf End If End If - 'noch keine unterscheidung der Abteilungen bei MDM, daher hardcodiert. + 'noch keine Unterscheidung der Abteilungen bei MDM, daher hardcodiert. Dim MautVertrMail = "z.batinic@verag.ag;alex@verag.ag;maut.ro@verag.ag;ma@verag.ag;n.ljubas@verag.ag;s.vidovic@verag.ag;" Dim MautFaktMail = "s.kriegner@verag.ag;" diff --git a/SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb b/SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb index 9d328acd..c8b32820 100644 --- a/SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb +++ b/SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb @@ -23,28 +23,31 @@ Partial Class usrcntlKundeBearbeitenFull Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container() - Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle11 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle12 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle13 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle14 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle15 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle16 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle17 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle18 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle19 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle20 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle21 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle22 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle32 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle33 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle34 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle35 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle36 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle37 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle38 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle39 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle40 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle41 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle42 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle43 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle44 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle26 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle27 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle28 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle29 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle30 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle31 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle45 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle46 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle47 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle48 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle49 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle50 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Me.tbcntrDetails = New System.Windows.Forms.TabControl() Me.tbAbfertigung = New System.Windows.Forms.TabPage() Me.cbxVerzolltBeiExport = New System.Windows.Forms.CheckBox() @@ -101,6 +104,8 @@ Partial Class usrcntlKundeBearbeitenFull Me.UsrCntlKundeFiskaldaten1 = New SDL.usrCntlKundeFiskaldaten() Me.tbVerrechnung = New System.Windows.Forms.TabPage() Me.pnlverag360 = New System.Windows.Forms.Panel() + Me.txtFR = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.cbxFR = New System.Windows.Forms.CheckBox() Me.txtAnmerkungAntraege = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.gbMWSTAntraege = New System.Windows.Forms.GroupBox() Me.rbJ = New System.Windows.Forms.RadioButton() @@ -257,6 +262,10 @@ 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.Label113 = New System.Windows.Forms.Label() + Me.Label112 = New System.Windows.Forms.Label() + Me.dgvIDS_Rabatte = New System.Windows.Forms.DataGridView() + Me.lblIDS_Rabatte = New System.Windows.Forms.Label() Me.txtSumVerag = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtSonst_KdNrVerag = New System.Windows.Forms.TextBox() Me.Label110 = New System.Windows.Forms.Label() @@ -393,8 +402,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.txtFR = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.cbxFR = New System.Windows.Forms.CheckBox() Me.tbcntrDetails.SuspendLayout() Me.tbAbfertigung.SuspendLayout() Me.tbcntrAbf.SuspendLayout() @@ -420,6 +427,7 @@ Partial Class usrcntlKundeBearbeitenFull CType(Me.dgvMWST, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.dgvUstv_LaenderUndSteuernummern, System.ComponentModel.ISupportInitialize).BeginInit() Me.tbSonstiges.SuspendLayout() + CType(Me.dgvIDS_Rabatte, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.dgvSonst_IDSKunden, System.ComponentModel.ISupportInitialize).BeginInit() Me.tbSchnittstellen.SuspendLayout() CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).BeginInit() @@ -1194,6 +1202,41 @@ Partial Class usrcntlKundeBearbeitenFull Me.pnlverag360.Size = New System.Drawing.Size(252, 169) Me.pnlverag360.TabIndex = 49 ' + 'txtFR + ' + 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 + ' + 'cbxFR + ' + 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 + ' 'txtAnmerkungAntraege ' Me.txtAnmerkungAntraege._DateTimeOnly = False @@ -3023,8 +3066,8 @@ Partial Class usrcntlKundeBearbeitenFull Me.dgvUmsatzbericht.AllowUserToDeleteRows = False Me.dgvUmsatzbericht.AllowUserToOrderColumns = True Me.dgvUmsatzbericht.AllowUserToResizeRows = False - DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.dgvUmsatzbericht.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1 + DataGridViewCellStyle32.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvUmsatzbericht.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle32 Me.dgvUmsatzbericht.BackgroundColor = System.Drawing.Color.White Me.dgvUmsatzbericht.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvUmsatzbericht.Location = New System.Drawing.Point(6, 25) @@ -3123,8 +3166,8 @@ Partial Class usrcntlKundeBearbeitenFull Me.dgvOffenePosten.AllowUserToDeleteRows = False Me.dgvOffenePosten.AllowUserToOrderColumns = True Me.dgvOffenePosten.AllowUserToResizeRows = False - DataGridViewCellStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.dgvOffenePosten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2 + DataGridViewCellStyle33.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvOffenePosten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle33 Me.dgvOffenePosten.BackgroundColor = System.Drawing.Color.White Me.dgvOffenePosten.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvOffenePosten.Location = New System.Drawing.Point(6, 38) @@ -3285,41 +3328,41 @@ Partial Class usrcntlKundeBearbeitenFull Me.dgvKreditkarten.AllowUserToDeleteRows = False Me.dgvKreditkarten.AllowUserToOrderColumns = True Me.dgvKreditkarten.AllowUserToResizeRows = False - DataGridViewCellStyle3.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.dgvKreditkarten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3 + DataGridViewCellStyle34.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvKreditkarten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle34 Me.dgvKreditkarten.BackgroundColor = System.Drawing.Color.White - DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle4.BackColor = System.Drawing.SystemColors.Control - DataGridViewCellStyle4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle4.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle4.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle4.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.dgvKreditkarten.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle4 + DataGridViewCellStyle35.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle35.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle35.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle35.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle35.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle35.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle35.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvKreditkarten.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle35 Me.dgvKreditkarten.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - DataGridViewCellStyle5.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle5.BackColor = System.Drawing.SystemColors.Window - DataGridViewCellStyle5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle5.ForeColor = System.Drawing.SystemColors.ControlText - DataGridViewCellStyle5.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle5.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] - Me.dgvKreditkarten.DefaultCellStyle = DataGridViewCellStyle5 + DataGridViewCellStyle36.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle36.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle36.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle36.ForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle36.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle36.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle36.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.dgvKreditkarten.DefaultCellStyle = DataGridViewCellStyle36 Me.dgvKreditkarten.Location = New System.Drawing.Point(9, 20) Me.dgvKreditkarten.MultiSelect = False Me.dgvKreditkarten.Name = "dgvKreditkarten" Me.dgvKreditkarten.ReadOnly = True - DataGridViewCellStyle6.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle6.BackColor = System.Drawing.SystemColors.Control - DataGridViewCellStyle6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle6.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle6.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle6.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.dgvKreditkarten.RowHeadersDefaultCellStyle = DataGridViewCellStyle6 + DataGridViewCellStyle37.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle37.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle37.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle37.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle37.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle37.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle37.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvKreditkarten.RowHeadersDefaultCellStyle = DataGridViewCellStyle37 Me.dgvKreditkarten.RowHeadersVisible = False - DataGridViewCellStyle7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.dgvKreditkarten.RowsDefaultCellStyle = DataGridViewCellStyle7 + DataGridViewCellStyle38.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.dgvKreditkarten.RowsDefaultCellStyle = DataGridViewCellStyle38 Me.dgvKreditkarten.RowTemplate.DefaultCellStyle.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.dgvKreditkarten.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect Me.dgvKreditkarten.Size = New System.Drawing.Size(642, 312) @@ -3399,26 +3442,26 @@ Partial Class usrcntlKundeBearbeitenFull ' 'dgvMWST ' - DataGridViewCellStyle8.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.dgvMWST.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle8 + DataGridViewCellStyle39.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvMWST.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle39 Me.dgvMWST.BackgroundColor = System.Drawing.Color.White - DataGridViewCellStyle9.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle9.BackColor = System.Drawing.SystemColors.Control - DataGridViewCellStyle9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle9.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle9.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle9.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle9.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.dgvMWST.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle9 + DataGridViewCellStyle40.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle40.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle40.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle40.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle40.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle40.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle40.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvMWST.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle40 Me.dgvMWST.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - DataGridViewCellStyle10.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle10.BackColor = System.Drawing.SystemColors.Window - DataGridViewCellStyle10.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle10.ForeColor = System.Drawing.SystemColors.ControlText - DataGridViewCellStyle10.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle10.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle10.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] - Me.dgvMWST.DefaultCellStyle = DataGridViewCellStyle10 + DataGridViewCellStyle41.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle41.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle41.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle41.ForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle41.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle41.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle41.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.dgvMWST.DefaultCellStyle = DataGridViewCellStyle41 Me.dgvMWST.Location = New System.Drawing.Point(9, 359) Me.dgvMWST.Name = "dgvMWST" Me.dgvMWST.Size = New System.Drawing.Size(171, 125) @@ -3503,26 +3546,26 @@ Partial Class usrcntlKundeBearbeitenFull ' 'dgvUstv_LaenderUndSteuernummern ' - DataGridViewCellStyle11.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.dgvUstv_LaenderUndSteuernummern.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle11 + DataGridViewCellStyle42.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvUstv_LaenderUndSteuernummern.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle42 Me.dgvUstv_LaenderUndSteuernummern.BackgroundColor = System.Drawing.Color.White - DataGridViewCellStyle12.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle12.BackColor = System.Drawing.SystemColors.Control - DataGridViewCellStyle12.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle12.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle12.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle12.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle12.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.dgvUstv_LaenderUndSteuernummern.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle12 + DataGridViewCellStyle43.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle43.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle43.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle43.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle43.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle43.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle43.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvUstv_LaenderUndSteuernummern.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle43 Me.dgvUstv_LaenderUndSteuernummern.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - DataGridViewCellStyle13.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle13.BackColor = System.Drawing.SystemColors.Window - DataGridViewCellStyle13.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle13.ForeColor = System.Drawing.SystemColors.ControlText - DataGridViewCellStyle13.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle13.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle13.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] - Me.dgvUstv_LaenderUndSteuernummern.DefaultCellStyle = DataGridViewCellStyle13 + DataGridViewCellStyle44.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle44.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle44.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle44.ForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle44.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle44.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle44.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.dgvUstv_LaenderUndSteuernummern.DefaultCellStyle = DataGridViewCellStyle44 Me.dgvUstv_LaenderUndSteuernummern.Location = New System.Drawing.Point(9, 94) Me.dgvUstv_LaenderUndSteuernummern.Name = "dgvUstv_LaenderUndSteuernummern" Me.dgvUstv_LaenderUndSteuernummern.Size = New System.Drawing.Size(657, 259) @@ -3658,6 +3701,10 @@ Partial Class usrcntlKundeBearbeitenFull ' 'tbSonstiges ' + Me.tbSonstiges.Controls.Add(Me.Label113) + Me.tbSonstiges.Controls.Add(Me.Label112) + Me.tbSonstiges.Controls.Add(Me.dgvIDS_Rabatte) + Me.tbSonstiges.Controls.Add(Me.lblIDS_Rabatte) Me.tbSonstiges.Controls.Add(Me.txtSumVerag) Me.tbSonstiges.Controls.Add(Me.txtSonst_KdNrVerag) Me.tbSonstiges.Controls.Add(Me.Label110) @@ -3699,6 +3746,67 @@ Partial Class usrcntlKundeBearbeitenFull Me.tbSonstiges.Text = "Sonstiges" Me.tbSonstiges.UseVisualStyleBackColor = True ' + 'Label113 + ' + Me.Label113.AutoSize = True + Me.Label113.Enabled = False + Me.Label113.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label113.Location = New System.Drawing.Point(6, 34) + Me.Label113.Name = "Label113" + Me.Label113.Size = New System.Drawing.Size(28, 13) + Me.Label113.TabIndex = 36 + Me.Label113.Text = "IDS:" + Me.Label113.Visible = False + ' + 'Label112 + ' + Me.Label112.AutoSize = True + Me.Label112.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label112.Location = New System.Drawing.Point(425, 92) + Me.Label112.Name = "Label112" + Me.Label112.Size = New System.Drawing.Size(119, 13) + Me.Label112.TabIndex = 35 + Me.Label112.Text = "CSV-Daten bereitstellen" + ' + 'dgvIDS_Rabatte + ' + Me.dgvIDS_Rabatte.AllowUserToResizeRows = False + DataGridViewCellStyle26.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvIDS_Rabatte.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle26 + Me.dgvIDS_Rabatte.BackgroundColor = System.Drawing.Color.White + DataGridViewCellStyle27.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle27.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle27.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle27.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle27.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle27.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle27.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvIDS_Rabatte.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle27 + Me.dgvIDS_Rabatte.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + DataGridViewCellStyle28.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle28.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle28.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle28.ForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle28.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle28.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle28.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.dgvIDS_Rabatte.DefaultCellStyle = DataGridViewCellStyle28 + Me.dgvIDS_Rabatte.Location = New System.Drawing.Point(9, 317) + Me.dgvIDS_Rabatte.MultiSelect = False + Me.dgvIDS_Rabatte.Name = "dgvIDS_Rabatte" + Me.dgvIDS_Rabatte.Size = New System.Drawing.Size(657, 172) + Me.dgvIDS_Rabatte.TabIndex = 34 + ' + 'lblIDS_Rabatte + ' + Me.lblIDS_Rabatte.AutoSize = True + Me.lblIDS_Rabatte.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblIDS_Rabatte.Location = New System.Drawing.Point(7, 301) + Me.lblIDS_Rabatte.Name = "lblIDS_Rabatte" + Me.lblIDS_Rabatte.Size = New System.Drawing.Size(100, 13) + Me.lblIDS_Rabatte.TabIndex = 33 + Me.lblIDS_Rabatte.Text = "IDS-Rabatte/Preise" + ' 'txtSumVerag ' Me.txtSumVerag._DateTimeOnly = False @@ -3714,7 +3822,7 @@ Partial Class usrcntlKundeBearbeitenFull Me.txtSumVerag._Waehrung = False Me.txtSumVerag._WaehrungZeichen = True Me.txtSumVerag.ForeColor = System.Drawing.Color.Black - Me.txtSumVerag.Location = New System.Drawing.Point(254, 230) + Me.txtSumVerag.Location = New System.Drawing.Point(258, 163) Me.txtSumVerag.MaxLineLength = -1 Me.txtSumVerag.MaxLines_Warning = "" Me.txtSumVerag.MaxLines_Warning_Label = Nothing @@ -3724,7 +3832,7 @@ Partial Class usrcntlKundeBearbeitenFull ' 'txtSonst_KdNrVerag ' - Me.txtSonst_KdNrVerag.Location = New System.Drawing.Point(119, 231) + Me.txtSonst_KdNrVerag.Location = New System.Drawing.Point(123, 164) Me.txtSonst_KdNrVerag.MaxLength = 20 Me.txtSonst_KdNrVerag.Name = "txtSonst_KdNrVerag" Me.txtSonst_KdNrVerag.Size = New System.Drawing.Size(122, 20) @@ -3735,7 +3843,7 @@ Partial Class usrcntlKundeBearbeitenFull Me.Label110.AutoSize = True Me.Label110.Enabled = False Me.Label110.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label110.Location = New System.Drawing.Point(6, 233) + Me.Label110.Location = New System.Drawing.Point(7, 163) Me.Label110.Name = "Label110" Me.Label110.Size = New System.Drawing.Size(82, 13) Me.Label110.TabIndex = 30 @@ -3755,7 +3863,7 @@ Partial Class usrcntlKundeBearbeitenFull ' Me.Label99.AutoSize = True Me.Label99.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label99.Location = New System.Drawing.Point(6, 34) + Me.Label99.Location = New System.Drawing.Point(427, 9) Me.Label99.Name = "Label99" Me.Label99.Size = New System.Drawing.Size(71, 13) Me.Label99.TabIndex = 24 @@ -3763,34 +3871,36 @@ Partial Class usrcntlKundeBearbeitenFull ' 'txtCreditsafe ' - Me.txtCreditsafe.Location = New System.Drawing.Point(119, 31) + Me.txtCreditsafe.Location = New System.Drawing.Point(540, 6) Me.txtCreditsafe.Name = "txtCreditsafe" Me.txtCreditsafe.Size = New System.Drawing.Size(122, 20) Me.txtCreditsafe.TabIndex = 23 ' 'txtSonst_KdNrTOBB ' - Me.txtSonst_KdNrTOBB.Location = New System.Drawing.Point(119, 208) + Me.txtSonst_KdNrTOBB.Location = New System.Drawing.Point(540, 50) Me.txtSonst_KdNrTOBB.MaxLength = 20 Me.txtSonst_KdNrTOBB.Name = "txtSonst_KdNrTOBB" Me.txtSonst_KdNrTOBB.Size = New System.Drawing.Size(122, 20) Me.txtSonst_KdNrTOBB.TabIndex = 22 + Me.txtSonst_KdNrTOBB.Visible = False ' 'Label96 ' Me.Label96.AutoSize = True Me.Label96.Enabled = False Me.Label96.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label96.Location = New System.Drawing.Point(6, 211) + Me.Label96.Location = New System.Drawing.Point(427, 53) Me.Label96.Name = "Label96" Me.Label96.Size = New System.Drawing.Size(83, 13) Me.Label96.TabIndex = 21 Me.Label96.Text = "KdNr bei TOBB:" + Me.Label96.Visible = False ' 'txtSonst_KdNrPLOSE ' Me.txtSonst_KdNrPLOSE.Enabled = False - Me.txtSonst_KdNrPLOSE.Location = New System.Drawing.Point(119, 182) + Me.txtSonst_KdNrPLOSE.Location = New System.Drawing.Point(123, 134) Me.txtSonst_KdNrPLOSE.Name = "txtSonst_KdNrPLOSE" Me.txtSonst_KdNrPLOSE.Size = New System.Drawing.Size(122, 20) Me.txtSonst_KdNrPLOSE.TabIndex = 20 @@ -3800,7 +3910,7 @@ Partial Class usrcntlKundeBearbeitenFull Me.Label83.AutoSize = True Me.Label83.Enabled = False Me.Label83.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label83.Location = New System.Drawing.Point(6, 185) + Me.Label83.Location = New System.Drawing.Point(7, 134) Me.Label83.Name = "Label83" Me.Label83.Size = New System.Drawing.Size(89, 13) Me.Label83.TabIndex = 19 @@ -3810,7 +3920,7 @@ Partial Class usrcntlKundeBearbeitenFull ' Me.Label76.AutoSize = True Me.Label76.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label76.Location = New System.Drawing.Point(4, 262) + Me.Label76.Location = New System.Drawing.Point(7, 192) Me.Label76.Name = "Label76" Me.Label76.Size = New System.Drawing.Size(65, 13) Me.Label76.TabIndex = 17 @@ -3819,75 +3929,75 @@ Partial Class usrcntlKundeBearbeitenFull 'dgvSonst_IDSKunden ' Me.dgvSonst_IDSKunden.AllowUserToResizeRows = False - DataGridViewCellStyle14.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.dgvSonst_IDSKunden.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle14 + DataGridViewCellStyle29.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvSonst_IDSKunden.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle29 Me.dgvSonst_IDSKunden.BackgroundColor = System.Drawing.Color.White - DataGridViewCellStyle15.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle15.BackColor = System.Drawing.SystemColors.Control - DataGridViewCellStyle15.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle15.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle15.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle15.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle15.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.dgvSonst_IDSKunden.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle15 + DataGridViewCellStyle30.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle30.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle30.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle30.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle30.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle30.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle30.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvSonst_IDSKunden.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle30 Me.dgvSonst_IDSKunden.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - DataGridViewCellStyle16.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle16.BackColor = System.Drawing.SystemColors.Window - DataGridViewCellStyle16.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle16.ForeColor = System.Drawing.SystemColors.ControlText - DataGridViewCellStyle16.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle16.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle16.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] - Me.dgvSonst_IDSKunden.DefaultCellStyle = DataGridViewCellStyle16 - Me.dgvSonst_IDSKunden.Location = New System.Drawing.Point(9, 308) + DataGridViewCellStyle31.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle31.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle31.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle31.ForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle31.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle31.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle31.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.dgvSonst_IDSKunden.DefaultCellStyle = DataGridViewCellStyle31 + Me.dgvSonst_IDSKunden.Location = New System.Drawing.Point(9, 214) Me.dgvSonst_IDSKunden.MultiSelect = False Me.dgvSonst_IDSKunden.Name = "dgvSonst_IDSKunden" - Me.dgvSonst_IDSKunden.Size = New System.Drawing.Size(657, 144) + Me.dgvSonst_IDSKunden.Size = New System.Drawing.Size(657, 84) Me.dgvSonst_IDSKunden.TabIndex = 18 ' 'cbxSonst_CsvAsfinag ' Me.cbxSonst_CsvAsfinag.AutoSize = True - Me.cbxSonst_CsvAsfinag.Location = New System.Drawing.Point(114, 261) + Me.cbxSonst_CsvAsfinag.Location = New System.Drawing.Point(428, 131) Me.cbxSonst_CsvAsfinag.Name = "cbxSonst_CsvAsfinag" - Me.cbxSonst_CsvAsfinag.Size = New System.Drawing.Size(264, 17) + Me.cbxSonst_CsvAsfinag.Size = New System.Drawing.Size(136, 17) Me.cbxSonst_CsvAsfinag.TabIndex = 15 - Me.cbxSonst_CsvAsfinag.Text = "ASFINAG-Abrechnungsdaten als CSV bereitstellen" + Me.cbxSonst_CsvAsfinag.Text = "AT-Abrechnungsdaten " Me.cbxSonst_CsvAsfinag.UseVisualStyleBackColor = True ' 'cbxSonst_CsvUTA ' Me.cbxSonst_CsvUTA.AutoSize = True - Me.cbxSonst_CsvUTA.Location = New System.Drawing.Point(429, 155) + Me.cbxSonst_CsvUTA.Location = New System.Drawing.Point(428, 177) Me.cbxSonst_CsvUTA.Name = "cbxSonst_CsvUTA" - Me.cbxSonst_CsvUTA.Size = New System.Drawing.Size(240, 17) + Me.cbxSonst_CsvUTA.Size = New System.Drawing.Size(144, 17) Me.cbxSonst_CsvUTA.TabIndex = 14 - Me.cbxSonst_CsvUTA.Text = "UTA-Abrechnungsdaten als CSV bereitstellen" + Me.cbxSonst_CsvUTA.Text = "UTA-Abrechnungsdaten " Me.cbxSonst_CsvUTA.UseVisualStyleBackColor = True ' 'cbxSonst_CsvMSE ' Me.cbxSonst_CsvMSE.AutoSize = True - Me.cbxSonst_CsvMSE.Location = New System.Drawing.Point(429, 103) + Me.cbxSonst_CsvMSE.Location = New System.Drawing.Point(428, 154) Me.cbxSonst_CsvMSE.Name = "cbxSonst_CsvMSE" - Me.cbxSonst_CsvMSE.Size = New System.Drawing.Size(241, 17) + Me.cbxSonst_CsvMSE.Size = New System.Drawing.Size(142, 17) Me.cbxSonst_CsvMSE.TabIndex = 9 - Me.cbxSonst_CsvMSE.Text = "MSE-Abrechnungsdaten als CSV bereitstellen" + Me.cbxSonst_CsvMSE.Text = "MSE-Abrechnungsdaten" Me.cbxSonst_CsvMSE.UseVisualStyleBackColor = True ' 'cbxSonst_CsvMautbericht ' Me.cbxSonst_CsvMautbericht.AutoSize = True - Me.cbxSonst_CsvMautbericht.Location = New System.Drawing.Point(429, 7) + Me.cbxSonst_CsvMautbericht.Location = New System.Drawing.Point(428, 111) Me.cbxSonst_CsvMautbericht.Name = "cbxSonst_CsvMautbericht" - Me.cbxSonst_CsvMautbericht.Size = New System.Drawing.Size(181, 17) + Me.cbxSonst_CsvMautbericht.Size = New System.Drawing.Size(82, 17) Me.cbxSonst_CsvMautbericht.TabIndex = 2 - Me.cbxSonst_CsvMautbericht.Text = "Mautbericht als CSV bereitstellen" + Me.cbxSonst_CsvMautbericht.Text = "Mautbericht" Me.cbxSonst_CsvMautbericht.UseVisualStyleBackColor = True ' 'txtSonst_KdNrUTA ' - Me.txtSonst_KdNrUTA.Location = New System.Drawing.Point(119, 156) + Me.txtSonst_KdNrUTA.Location = New System.Drawing.Point(123, 108) Me.txtSonst_KdNrUTA.Name = "txtSonst_KdNrUTA" Me.txtSonst_KdNrUTA.Size = New System.Drawing.Size(122, 20) Me.txtSonst_KdNrUTA.TabIndex = 13 @@ -3896,7 +4006,7 @@ Partial Class usrcntlKundeBearbeitenFull ' Me.Label75.AutoSize = True Me.Label75.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label75.Location = New System.Drawing.Point(6, 159) + Me.Label75.Location = New System.Drawing.Point(7, 108) Me.Label75.Name = "Label75" Me.Label75.Size = New System.Drawing.Size(76, 13) Me.Label75.TabIndex = 12 @@ -3904,7 +4014,7 @@ Partial Class usrcntlKundeBearbeitenFull ' 'txtSonst_KdNrTelepass ' - Me.txtSonst_KdNrTelepass.Location = New System.Drawing.Point(119, 130) + Me.txtSonst_KdNrTelepass.Location = New System.Drawing.Point(540, 73) Me.txtSonst_KdNrTelepass.Name = "txtSonst_KdNrTelepass" Me.txtSonst_KdNrTelepass.Size = New System.Drawing.Size(122, 20) Me.txtSonst_KdNrTelepass.TabIndex = 11 @@ -3913,7 +4023,7 @@ Partial Class usrcntlKundeBearbeitenFull ' Me.Label74.AutoSize = True Me.Label74.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label74.Location = New System.Drawing.Point(6, 133) + Me.Label74.Location = New System.Drawing.Point(425, 76) Me.Label74.Name = "Label74" Me.Label74.Size = New System.Drawing.Size(109, 13) Me.Label74.TabIndex = 10 @@ -3921,7 +4031,7 @@ Partial Class usrcntlKundeBearbeitenFull ' 'txtSonst_KdNrMSE ' - Me.txtSonst_KdNrMSE.Location = New System.Drawing.Point(119, 104) + Me.txtSonst_KdNrMSE.Location = New System.Drawing.Point(123, 79) Me.txtSonst_KdNrMSE.Name = "txtSonst_KdNrMSE" Me.txtSonst_KdNrMSE.Size = New System.Drawing.Size(122, 20) Me.txtSonst_KdNrMSE.TabIndex = 8 @@ -3930,7 +4040,7 @@ Partial Class usrcntlKundeBearbeitenFull ' Me.Label73.AutoSize = True Me.Label73.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label73.Location = New System.Drawing.Point(6, 107) + Me.Label73.Location = New System.Drawing.Point(7, 79) Me.Label73.Name = "Label73" Me.Label73.Size = New System.Drawing.Size(77, 13) Me.Label73.TabIndex = 7 @@ -3938,7 +4048,7 @@ Partial Class usrcntlKundeBearbeitenFull ' 'txtSonst_KdNrWOELFL ' - Me.txtSonst_KdNrWOELFL.Location = New System.Drawing.Point(119, 78) + Me.txtSonst_KdNrWOELFL.Location = New System.Drawing.Point(123, 53) Me.txtSonst_KdNrWOELFL.Name = "txtSonst_KdNrWOELFL" Me.txtSonst_KdNrWOELFL.Size = New System.Drawing.Size(122, 20) Me.txtSonst_KdNrWOELFL.TabIndex = 6 @@ -3947,7 +4057,7 @@ Partial Class usrcntlKundeBearbeitenFull ' Me.Label72.AutoSize = True Me.Label72.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label72.Location = New System.Drawing.Point(6, 81) + Me.Label72.Location = New System.Drawing.Point(7, 53) Me.Label72.Name = "Label72" Me.Label72.Size = New System.Drawing.Size(78, 13) Me.Label72.TabIndex = 5 @@ -3956,21 +4066,23 @@ Partial Class usrcntlKundeBearbeitenFull 'txtSonst_KdNrIDS ' Me.txtSonst_KdNrIDS.Enabled = False - Me.txtSonst_KdNrIDS.Location = New System.Drawing.Point(119, 52) + Me.txtSonst_KdNrIDS.Location = New System.Drawing.Point(540, 28) Me.txtSonst_KdNrIDS.Name = "txtSonst_KdNrIDS" Me.txtSonst_KdNrIDS.Size = New System.Drawing.Size(122, 20) Me.txtSonst_KdNrIDS.TabIndex = 4 + Me.txtSonst_KdNrIDS.Visible = False ' 'Label70 ' Me.Label70.AutoSize = True Me.Label70.Enabled = False Me.Label70.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label70.Location = New System.Drawing.Point(6, 55) + Me.Label70.Location = New System.Drawing.Point(427, 28) Me.Label70.Name = "Label70" Me.Label70.Size = New System.Drawing.Size(72, 13) Me.Label70.TabIndex = 3 Me.Label70.Text = "KdNr bei IDS:" + Me.Label70.Visible = False ' 'Label71 ' @@ -3997,7 +4109,7 @@ Partial Class usrcntlKundeBearbeitenFull Me.txtSumPLOSE._Waehrung = False Me.txtSumPLOSE._WaehrungZeichen = True Me.txtSumPLOSE.ForeColor = System.Drawing.Color.Black - Me.txtSumPLOSE.Location = New System.Drawing.Point(254, 182) + Me.txtSumPLOSE.Location = New System.Drawing.Point(258, 134) Me.txtSumPLOSE.MaxLineLength = -1 Me.txtSumPLOSE.MaxLines_Warning = "" Me.txtSumPLOSE.MaxLines_Warning_Label = Nothing @@ -4020,7 +4132,7 @@ Partial Class usrcntlKundeBearbeitenFull Me.txtSumUTA._Waehrung = False Me.txtSumUTA._WaehrungZeichen = True Me.txtSumUTA.ForeColor = System.Drawing.Color.Black - Me.txtSumUTA.Location = New System.Drawing.Point(254, 159) + Me.txtSumUTA.Location = New System.Drawing.Point(258, 111) Me.txtSumUTA.MaxLineLength = -1 Me.txtSumUTA.MaxLines_Warning = "" Me.txtSumUTA.MaxLines_Warning_Label = Nothing @@ -4043,7 +4155,7 @@ Partial Class usrcntlKundeBearbeitenFull Me.txtSumMSE._Waehrung = False Me.txtSumMSE._WaehrungZeichen = True Me.txtSumMSE.ForeColor = System.Drawing.Color.Black - Me.txtSumMSE.Location = New System.Drawing.Point(254, 104) + Me.txtSumMSE.Location = New System.Drawing.Point(258, 79) Me.txtSumMSE.MaxLineLength = -1 Me.txtSumMSE.MaxLines_Warning = "" Me.txtSumMSE.MaxLines_Warning_Label = Nothing @@ -4066,7 +4178,7 @@ Partial Class usrcntlKundeBearbeitenFull Me.txtSumIDS._Waehrung = False Me.txtSumIDS._WaehrungZeichen = True Me.txtSumIDS.ForeColor = System.Drawing.Color.Black - Me.txtSumIDS.Location = New System.Drawing.Point(254, 52) + Me.txtSumIDS.Location = New System.Drawing.Point(256, 31) Me.txtSumIDS.MaxLineLength = -1 Me.txtSumIDS.MaxLines_Warning = "" Me.txtSumIDS.MaxLines_Warning_Label = Nothing @@ -4082,7 +4194,7 @@ Partial Class usrcntlKundeBearbeitenFull Me.btnSonstAendSpeichern.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnSonstAendSpeichern.ForeColor = System.Drawing.Color.Black Me.btnSonstAendSpeichern.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnSonstAendSpeichern.Location = New System.Drawing.Point(512, 214) + Me.btnSonstAendSpeichern.Location = New System.Drawing.Point(512, 189) Me.btnSonstAendSpeichern.Name = "btnSonstAendSpeichern" Me.btnSonstAendSpeichern.Size = New System.Drawing.Size(157, 23) Me.btnSonstAendSpeichern.TabIndex = 16 @@ -4147,26 +4259,26 @@ Partial Class usrcntlKundeBearbeitenFull 'DataGridView1 ' Me.DataGridView1.AllowUserToResizeRows = False - DataGridViewCellStyle17.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.DataGridView1.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle17 + DataGridViewCellStyle45.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.DataGridView1.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle45 Me.DataGridView1.BackgroundColor = System.Drawing.Color.White - DataGridViewCellStyle18.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle18.BackColor = System.Drawing.SystemColors.Control - DataGridViewCellStyle18.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle18.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle18.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle18.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle18.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.DataGridView1.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle18 + DataGridViewCellStyle46.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle46.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle46.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle46.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle46.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle46.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle46.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.DataGridView1.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle46 Me.DataGridView1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - DataGridViewCellStyle19.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle19.BackColor = System.Drawing.SystemColors.Window - DataGridViewCellStyle19.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle19.ForeColor = System.Drawing.SystemColors.ControlText - DataGridViewCellStyle19.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle19.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle19.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] - Me.DataGridView1.DefaultCellStyle = DataGridViewCellStyle19 + DataGridViewCellStyle47.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle47.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle47.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle47.ForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle47.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle47.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle47.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.DataGridView1.DefaultCellStyle = DataGridViewCellStyle47 Me.DataGridView1.Enabled = False Me.DataGridView1.Location = New System.Drawing.Point(6, 111) Me.DataGridView1.MultiSelect = False @@ -4220,26 +4332,26 @@ Partial Class usrcntlKundeBearbeitenFull ' Me.dgvBankverbindungen.AllowUserToDeleteRows = False Me.dgvBankverbindungen.AllowUserToResizeRows = False - DataGridViewCellStyle20.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.dgvBankverbindungen.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle20 + DataGridViewCellStyle48.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvBankverbindungen.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle48 Me.dgvBankverbindungen.BackgroundColor = System.Drawing.Color.White - DataGridViewCellStyle21.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle21.BackColor = System.Drawing.SystemColors.Control - DataGridViewCellStyle21.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle21.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle21.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle21.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle21.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.dgvBankverbindungen.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle21 + DataGridViewCellStyle49.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle49.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle49.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle49.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle49.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle49.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle49.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvBankverbindungen.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle49 Me.dgvBankverbindungen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - DataGridViewCellStyle22.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle22.BackColor = System.Drawing.SystemColors.Window - DataGridViewCellStyle22.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle22.ForeColor = System.Drawing.SystemColors.ControlText - DataGridViewCellStyle22.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle22.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle22.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] - Me.dgvBankverbindungen.DefaultCellStyle = DataGridViewCellStyle22 + DataGridViewCellStyle50.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle50.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle50.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle50.ForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle50.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle50.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle50.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.dgvBankverbindungen.DefaultCellStyle = DataGridViewCellStyle50 Me.dgvBankverbindungen.Location = New System.Drawing.Point(3, 40) Me.dgvBankverbindungen.MultiSelect = False Me.dgvBankverbindungen.Name = "dgvBankverbindungen" @@ -5368,41 +5480,6 @@ Partial Class usrcntlKundeBearbeitenFull Me.DataGridViewTextBoxColumn2.HeaderText = "E-Mail" Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2" ' - 'txtFR - ' - 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 - ' - 'cbxFR - ' - 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 ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) @@ -5478,6 +5555,7 @@ Partial Class usrcntlKundeBearbeitenFull CType(Me.dgvUstv_LaenderUndSteuernummern, System.ComponentModel.ISupportInitialize).EndInit() Me.tbSonstiges.ResumeLayout(False) Me.tbSonstiges.PerformLayout() + CType(Me.dgvIDS_Rabatte, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.dgvSonst_IDSKunden, System.ComponentModel.ISupportInitialize).EndInit() Me.tbSchnittstellen.ResumeLayout(False) Me.tbSchnittstellen.PerformLayout() @@ -5853,4 +5931,8 @@ Partial Class usrcntlKundeBearbeitenFull Friend WithEvents btnMWSTspeichern As VERAG_PROG_ALLGEMEIN.FlatButton Friend WithEvents txtFR As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents cbxFR As CheckBox + Friend WithEvents dgvIDS_Rabatte As DataGridView + Friend WithEvents lblIDS_Rabatte As Label + Friend WithEvents Label113 As Label + Friend WithEvents Label112 As Label End Class diff --git a/SDL/kunden/usrcntlKundeBearbeitenFull.vb b/SDL/kunden/usrcntlKundeBearbeitenFull.vb index f81d2888..93556951 100644 --- a/SDL/kunden/usrcntlKundeBearbeitenFull.vb +++ b/SDL/kunden/usrcntlKundeBearbeitenFull.vb @@ -2157,6 +2157,32 @@ End Sub + Private Sub initdgvIDSRabatte() + + + Dim KundeOhneRabatt As Integer = CInt(sql.getValueTxtBySql("select count(*) from tbl_IDS_Kunden_ohne_Rabatt where CustomerCode = " & KUNDE.KundenNr, "FMZOLL")) + lblIDS_Rabatte.Text = "IDS-Rabatte/Preise" & IIf(KundeOhneRabatt > 0, " - KUNDE OHNE RABATT", "") + + With dgvIDS_Rabatte + + + .DataSource = sql.loadDgvBySql("SELECT P.ProductDescription, C.OutletCountry, S.OutletName, RW.Rechenwert, Kz FROM [VERAG].[dbo].[tbl_IDS_Rechenwerte] as RW + left join [VERAG].[dbo].[tbl_IDS_Produkte] as P on P.ProductTypeCode = RW.ProductTypeCode + left join [VERAG].[dbo].[tbl_IDS_Länder] as C on C.OutletCountryCode = RW.OutletCountryCode + left join [VERAG].[dbo].[tbl_IDS_Stationen] as S on S.[OutletCode] = RW.OutletCode where CustomerCode =" & KUNDE.KundenNr, "FMZOLL") + + .ReadOnly = True + + + .Columns(0).HeaderText = "Produkt" + .Columns(1).HeaderText = "Land" + .Columns(2).HeaderText = "Station" + .Columns(4).HeaderText = "Rabatt/Preis" + + End With + + End Sub + Private Sub initdgvOP() With dgvOffenePosten @@ -2265,6 +2291,7 @@ If tbcntrDetails.SelectedTab Is tbSonstiges Then initdgvIDSKunden() + initdgvIDSRabatte() End If If tbcntrDetails.SelectedTab Is tbBankverbindungen Then diff --git a/VERAG_PROG_ALLGEMEIN/Classes/USTV/cUSTVAntrag.vb b/VERAG_PROG_ALLGEMEIN/Classes/USTV/cUSTVAntrag.vb index 3ec5fc4e..cdef5b24 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/USTV/cUSTVAntrag.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/USTV/cUSTVAntrag.vb @@ -57,6 +57,8 @@ Public Class cUSTVAntrag Property UStVAn_Status As Object = Nothing Property UStVAn_StatusText As Object = Nothing Property UStVAn_AntragArt As Object = Nothing + Property UStVAn_RGRetour As Object = Nothing + Property POSITIONEN As New List(Of cUStVPositionen) '= Nothing @@ -123,7 +125,8 @@ Public Class cUSTVAntrag list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_Zeitstempel", UStVAn_Zeitstempel)) ' DATETIME Default (getdate()) NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_Status", UStVAn_Status)) ' DATETIME Default (getdate()) NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_StatusText", UStVAn_StatusText)) ' DATETIME Default (getdate()) NULL, - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_AntragArt", UStVAn_AntragArt)) ' DATETIME Default (getdate()) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_AntragArt", UStVAn_AntragArt)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_RGRetour", UStVAn_RGRetour)) ' DATETIME Default (getdate()) NULL, Return list