diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_MDM_EU.vb b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_MDM_EU.vb index f4326890..8cb36257 100644 --- a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_MDM_EU.vb +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_MDM_EU.vb @@ -147,7 +147,7 @@ Public Class usrcntlVollmacht_MDM_EU cbxLandKz.fillWithSQL("select distinct landkz, Währungstabelle.Land from Währungstabelle where landkz is not null order by LandKz", , "FMZOLL", True) - cbxKapitalWahrung.fillWithSQL("SELECT [Währungscode],[Land] FROM Währungstabelle ORDER BY Währungscode", , "FMZOLL", False) + cbxKapitalWahrung.fillWithSQL("SELECT fw_iso3, fw_land FROM [VERAG].[dbo].[tblWahrungtabelleNEU] order by fw_land ", , "FMZOLL", False) cbx_GF_Land.Items.Clear() cbx_GF_Land.Items.AddRange(cbxLandKz.Items.Cast(Of VERAG_PROG_ALLGEMEIN.MyListItem).ToArray()) diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_MDM_NICHT_EU.vb b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_MDM_NICHT_EU.vb index 7b091c10..cb76a616 100644 --- a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_MDM_NICHT_EU.vb +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_MDM_NICHT_EU.vb @@ -141,7 +141,7 @@ Public Class usrcntlVollmacht_MDM_NICHT_EU cbxLandKz.fillWithSQL("select distinct landkz, Währungstabelle.Land from Währungstabelle where landkz is not null order by LandKz", , "FMZOLL", True) - cbxKapitalWahrung.fillWithSQL("SELECT [Währungscode],[Land] FROM Währungstabelle ORDER BY Währungscode", , "FMZOLL", False) + cbxKapitalWahrung.fillWithSQL("SELECT fw_iso3, fw_land FROM [VERAG].[dbo].[tblWahrungtabelleNEU] order by fw_land ", , "FMZOLL", False) cbx_GF_Land.Items.Clear() cbx_GF_Land.Items.AddRange(cbxLandKz.Items.Cast(Of VERAG_PROG_ALLGEMEIN.MyListItem).ToArray()) diff --git a/SDL/USTV/frmMDM_USTVAntrag.Designer.vb b/SDL/USTV/frmMDM_USTVAntrag.Designer.vb index 8c9112d3..00dd11c4 100644 --- a/SDL/USTV/frmMDM_USTVAntrag.Designer.vb +++ b/SDL/USTV/frmMDM_USTVAntrag.Designer.vb @@ -39,6 +39,8 @@ Partial Class frmMDM_USTVAntrag Me.Panel9 = New System.Windows.Forms.Panel() Me.lblLand = New System.Windows.Forms.Label() Me.Panel8 = New System.Windows.Forms.Panel() + Me.Label1 = New System.Windows.Forms.Label() + Me.txt3470 = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label3 = New System.Windows.Forms.Label() Me.lblZeitraum = New System.Windows.Forms.Label() Me.txtVon = New VERAG_PROG_ALLGEMEIN.MyTextBox() @@ -71,13 +73,11 @@ Partial Class frmMDM_USTVAntrag Me.dgvUSTVPositionen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) Me.pnl = 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.Button3 = New System.Windows.Forms.Button() Me.Button2 = New System.Windows.Forms.Button() Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components) - Me.txt3470 = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.Label1 = New System.Windows.Forms.Label() - Me.UstCntlUSTV_AntragPosition1 = New SDL.ustCntlUSTV_AntragPosition() Me.Panel3.SuspendLayout() Me.Panel1.SuspendLayout() Me.Panel9.SuspendLayout() @@ -286,6 +286,44 @@ Partial Class frmMDM_USTVAntrag Me.Panel8.Size = New System.Drawing.Size(973, 87) Me.Panel8.TabIndex = 19 ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.BackColor = System.Drawing.Color.Transparent + Me.Label1.Cursor = System.Windows.Forms.Cursors.Hand + Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label1.ForeColor = System.Drawing.Color.Black + Me.Label1.Location = New System.Drawing.Point(785, 6) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(44, 17) + Me.Label1.TabIndex = 10 + Me.Label1.Text = "3470:" + ' + 'txt3470 + ' + Me.txt3470._DateTimeOnly = False + Me.txt3470._numbersOnly = True + Me.txt3470._numbersOnlyKommastellen = "" + Me.txt3470._numbersOnlyTrennzeichen = True + Me.txt3470._Prozent = False + Me.txt3470._ShortDateNew = False + Me.txt3470._ShortDateOnly = False + Me.txt3470._TimeOnly = False + Me.txt3470._TimeOnly_Seconds = False + Me.txt3470._value = "" + Me.txt3470._Waehrung = True + Me.txt3470._WaehrungZeichen = True + Me.txt3470.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!) + Me.txt3470.ForeColor = System.Drawing.Color.Black + Me.txt3470.Location = New System.Drawing.Point(858, 3) + Me.txt3470.MaxLength = 10 + Me.txt3470.MaxLineLength = -1 + Me.txt3470.MaxLines_Warning = "" + Me.txt3470.MaxLines_Warning_Label = Nothing + Me.txt3470.Name = "txt3470" + Me.txt3470.Size = New System.Drawing.Size(100, 23) + Me.txt3470.TabIndex = 9 + ' 'Label3 ' Me.Label3.AutoSize = True @@ -736,6 +774,14 @@ Partial Class frmMDM_USTVAntrag Me.Panel2.Size = New System.Drawing.Size(1300, 269) Me.Panel2.TabIndex = 1 ' + 'UstCntlUSTV_AntragPosition1 + ' + Me.UstCntlUSTV_AntragPosition1.Dock = System.Windows.Forms.DockStyle.Fill + Me.UstCntlUSTV_AntragPosition1.Location = New System.Drawing.Point(0, 0) + Me.UstCntlUSTV_AntragPosition1.Name = "UstCntlUSTV_AntragPosition1" + Me.UstCntlUSTV_AntragPosition1.Size = New System.Drawing.Size(1298, 267) + Me.UstCntlUSTV_AntragPosition1.TabIndex = 0 + ' 'Panel4 ' Me.Panel4.BackColor = System.Drawing.Color.WhiteSmoke @@ -783,52 +829,6 @@ Partial Class frmMDM_USTVAntrag Me.ContextMenuStrip1.Name = "ContextMenuStrip1" Me.ContextMenuStrip1.Size = New System.Drawing.Size(61, 4) ' - 'txt3470 - ' - Me.txt3470._DateTimeOnly = False - Me.txt3470._numbersOnly = True - Me.txt3470._numbersOnlyKommastellen = "" - Me.txt3470._numbersOnlyTrennzeichen = True - Me.txt3470._Prozent = False - Me.txt3470._ShortDateNew = False - Me.txt3470._ShortDateOnly = False - Me.txt3470._TimeOnly = False - Me.txt3470._TimeOnly_Seconds = False - Me.txt3470._value = "" - Me.txt3470._Waehrung = True - Me.txt3470._WaehrungZeichen = True - Me.txt3470.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!) - Me.txt3470.ForeColor = System.Drawing.Color.Black - Me.txt3470.Location = New System.Drawing.Point(858, 3) - Me.txt3470.MaxLength = 10 - Me.txt3470.MaxLineLength = -1 - Me.txt3470.MaxLines_Warning = "" - Me.txt3470.MaxLines_Warning_Label = Nothing - Me.txt3470.Name = "txt3470" - Me.txt3470.Size = New System.Drawing.Size(100, 23) - Me.txt3470.TabIndex = 9 - ' - 'Label1 - ' - Me.Label1.AutoSize = True - Me.Label1.BackColor = System.Drawing.Color.Transparent - Me.Label1.Cursor = System.Windows.Forms.Cursors.Hand - Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label1.ForeColor = System.Drawing.Color.Black - Me.Label1.Location = New System.Drawing.Point(785, 6) - Me.Label1.Name = "Label1" - Me.Label1.Size = New System.Drawing.Size(44, 17) - Me.Label1.TabIndex = 10 - Me.Label1.Text = "3470:" - ' - 'UstCntlUSTV_AntragPosition1 - ' - Me.UstCntlUSTV_AntragPosition1.Dock = System.Windows.Forms.DockStyle.Fill - Me.UstCntlUSTV_AntragPosition1.Location = New System.Drawing.Point(0, 0) - Me.UstCntlUSTV_AntragPosition1.Name = "UstCntlUSTV_AntragPosition1" - Me.UstCntlUSTV_AntragPosition1.Size = New System.Drawing.Size(1298, 267) - Me.UstCntlUSTV_AntragPosition1.TabIndex = 0 - ' 'frmMDM_USTVAntrag ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) diff --git a/SDL/USTV/frmMDM_USTVAntrag.vb b/SDL/USTV/frmMDM_USTVAntrag.vb index 4d6df86e..2851c75c 100644 --- a/SDL/USTV/frmMDM_USTVAntrag.vb +++ b/SDL/USTV/frmMDM_USTVAntrag.vb @@ -684,6 +684,10 @@ Public Class frmMDM_USTVAntrag End Sub + Private Sub txt3470_ValueChanged() Handles txt3470.ValueChanged + + End Sub + ' Private Sub cmdITMautÜbernehmen_Click() diff --git a/SDL/USTV/usrCntlUSTV.Designer.vb b/SDL/USTV/usrCntlUSTV.Designer.vb index dd8c6ec8..106134bf 100644 --- a/SDL/USTV/usrCntlUSTV.Designer.vb +++ b/SDL/USTV/usrCntlUSTV.Designer.vb @@ -42,18 +42,24 @@ Partial Class usrCntlUSTV Me.FlatButton2 = New System.Windows.Forms.Button() Me.Panel2 = New System.Windows.Forms.Panel() Me.Panel3 = New System.Windows.Forms.Panel() + Me.txtSumDiff = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtSumErst = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtSumUst = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label5 = New System.Windows.Forms.Label() + Me.Label4 = New System.Windows.Forms.Label() + Me.Label3 = New System.Windows.Forms.Label() Me.btnRMCalle = New System.Windows.Forms.Button() Me.btnMail = New System.Windows.Forms.Button() Me.btnPLOSEAlle = New System.Windows.Forms.Button() Me.Button5 = New System.Windows.Forms.Button() Me.Button8 = New System.Windows.Forms.Button() Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components) - Me.Label3 = New System.Windows.Forms.Label() - Me.Label4 = New System.Windows.Forms.Label() - Me.Label5 = New System.Windows.Forms.Label() - Me.txtSumUst = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtSumErst = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtSumDiff = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtVorschaubetrGes = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label6 = New System.Windows.Forms.Label() + Me.txt3470Betrag = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label7 = New System.Windows.Forms.Label() + Me.txtVZBetrag = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label8 = New System.Windows.Forms.Label() CType(Me.dgvUSTV, System.ComponentModel.ISupportInitialize).BeginInit() Me.Panel1.SuspendLayout() Me.Panel2.SuspendLayout() @@ -101,6 +107,12 @@ Partial Class usrCntlUSTV 'Panel1 ' Me.Panel1.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.Panel1.Controls.Add(Me.txtVZBetrag) + Me.Panel1.Controls.Add(Me.Label8) + Me.Panel1.Controls.Add(Me.txt3470Betrag) + Me.Panel1.Controls.Add(Me.Label7) + Me.Panel1.Controls.Add(Me.txtVorschaubetrGes) + Me.Panel1.Controls.Add(Me.Label6) Me.Panel1.Controls.Add(Me.cbxDifferenzbetrag) Me.Panel1.Controls.Add(Me.cbxEingereicht) Me.Panel1.Controls.Add(Me.cbxTopMax) @@ -329,6 +341,111 @@ Partial Class usrCntlUSTV Me.Panel3.Size = New System.Drawing.Size(1627, 77) Me.Panel3.TabIndex = 0 ' + 'txtSumDiff + ' + Me.txtSumDiff._DateTimeOnly = False + Me.txtSumDiff._numbersOnly = False + Me.txtSumDiff._numbersOnlyKommastellen = "" + Me.txtSumDiff._numbersOnlyTrennzeichen = True + Me.txtSumDiff._Prozent = False + Me.txtSumDiff._ShortDateNew = False + Me.txtSumDiff._ShortDateOnly = False + Me.txtSumDiff._TimeOnly = False + Me.txtSumDiff._TimeOnly_Seconds = False + Me.txtSumDiff._value = "" + Me.txtSumDiff._Waehrung = True + Me.txtSumDiff._WaehrungZeichen = True + Me.txtSumDiff.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.txtSumDiff.ForeColor = System.Drawing.Color.Black + Me.txtSumDiff.Location = New System.Drawing.Point(1179, 46) + Me.txtSumDiff.MaxLineLength = -1 + Me.txtSumDiff.MaxLines_Warning = "" + Me.txtSumDiff.MaxLines_Warning_Label = Nothing + Me.txtSumDiff.Name = "txtSumDiff" + Me.txtSumDiff.ReadOnly = True + Me.txtSumDiff.Size = New System.Drawing.Size(107, 20) + Me.txtSumDiff.TabIndex = 32 + ' + 'txtSumErst + ' + Me.txtSumErst._DateTimeOnly = False + Me.txtSumErst._numbersOnly = False + Me.txtSumErst._numbersOnlyKommastellen = "" + Me.txtSumErst._numbersOnlyTrennzeichen = True + Me.txtSumErst._Prozent = False + Me.txtSumErst._ShortDateNew = False + Me.txtSumErst._ShortDateOnly = False + Me.txtSumErst._TimeOnly = False + Me.txtSumErst._TimeOnly_Seconds = False + Me.txtSumErst._value = "" + Me.txtSumErst._Waehrung = True + Me.txtSumErst._WaehrungZeichen = True + Me.txtSumErst.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.txtSumErst.ForeColor = System.Drawing.Color.Black + Me.txtSumErst.Location = New System.Drawing.Point(1179, 26) + Me.txtSumErst.MaxLineLength = -1 + Me.txtSumErst.MaxLines_Warning = "" + Me.txtSumErst.MaxLines_Warning_Label = Nothing + Me.txtSumErst.Name = "txtSumErst" + Me.txtSumErst.ReadOnly = True + Me.txtSumErst.Size = New System.Drawing.Size(107, 20) + Me.txtSumErst.TabIndex = 31 + ' + 'txtSumUst + ' + Me.txtSumUst._DateTimeOnly = False + Me.txtSumUst._numbersOnly = False + Me.txtSumUst._numbersOnlyKommastellen = "" + Me.txtSumUst._numbersOnlyTrennzeichen = True + Me.txtSumUst._Prozent = False + Me.txtSumUst._ShortDateNew = False + Me.txtSumUst._ShortDateOnly = False + Me.txtSumUst._TimeOnly = False + Me.txtSumUst._TimeOnly_Seconds = False + Me.txtSumUst._value = "" + Me.txtSumUst._Waehrung = True + Me.txtSumUst._WaehrungZeichen = True + Me.txtSumUst.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.txtSumUst.ForeColor = System.Drawing.Color.Black + Me.txtSumUst.Location = New System.Drawing.Point(1179, 6) + Me.txtSumUst.MaxLineLength = -1 + Me.txtSumUst.MaxLines_Warning = "" + Me.txtSumUst.MaxLines_Warning_Label = Nothing + Me.txtSumUst.Name = "txtSumUst" + Me.txtSumUst.ReadOnly = True + Me.txtSumUst.Size = New System.Drawing.Size(107, 20) + Me.txtSumUst.TabIndex = 30 + ' + 'Label5 + ' + Me.Label5.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.Label5.AutoSize = True + Me.Label5.Location = New System.Drawing.Point(1074, 49) + Me.Label5.Name = "Label5" + Me.Label5.Size = New System.Drawing.Size(79, 13) + Me.Label5.TabIndex = 29 + Me.Label5.Text = "Differenzbetrag" + ' + 'Label4 + ' + Me.Label4.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.Label4.AutoSize = True + Me.Label4.Location = New System.Drawing.Point(1074, 29) + Me.Label4.Name = "Label4" + Me.Label4.Size = New System.Drawing.Size(90, 13) + Me.Label4.TabIndex = 28 + Me.Label4.Text = "Erstattungsbetrag" + ' + 'Label3 + ' + Me.Label3.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.Label3.AutoSize = True + Me.Label3.Location = New System.Drawing.Point(1074, 8) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(59, 13) + Me.Label3.TabIndex = 27 + Me.Label3.Text = "USt-Betrag" + ' 'btnRMCalle ' Me.btnRMCalle.FlatStyle = System.Windows.Forms.FlatStyle.Flat @@ -404,110 +521,110 @@ Partial Class usrCntlUSTV Me.ContextMenuStrip1.Name = "ContextMenuStrip1" Me.ContextMenuStrip1.Size = New System.Drawing.Size(61, 4) ' - 'Label3 + 'txtVorschaubetrGes ' - Me.Label3.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.Label3.AutoSize = True - Me.Label3.Location = New System.Drawing.Point(1074, 8) - Me.Label3.Name = "Label3" - Me.Label3.Size = New System.Drawing.Size(59, 13) - Me.Label3.TabIndex = 27 - Me.Label3.Text = "USt-Betrag" + Me.txtVorschaubetrGes._DateTimeOnly = False + Me.txtVorschaubetrGes._numbersOnly = False + Me.txtVorschaubetrGes._numbersOnlyKommastellen = "" + Me.txtVorschaubetrGes._numbersOnlyTrennzeichen = True + Me.txtVorschaubetrGes._Prozent = False + Me.txtVorschaubetrGes._ShortDateNew = False + Me.txtVorschaubetrGes._ShortDateOnly = False + Me.txtVorschaubetrGes._TimeOnly = False + Me.txtVorschaubetrGes._TimeOnly_Seconds = False + Me.txtVorschaubetrGes._value = "" + Me.txtVorschaubetrGes._Waehrung = True + Me.txtVorschaubetrGes._WaehrungZeichen = True + Me.txtVorschaubetrGes.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.txtVorschaubetrGes.ForeColor = System.Drawing.Color.Black + Me.txtVorschaubetrGes.Location = New System.Drawing.Point(940, 5) + Me.txtVorschaubetrGes.MaxLineLength = -1 + Me.txtVorschaubetrGes.MaxLines_Warning = "" + Me.txtVorschaubetrGes.MaxLines_Warning_Label = Nothing + Me.txtVorschaubetrGes.Name = "txtVorschaubetrGes" + Me.txtVorschaubetrGes.ReadOnly = True + Me.txtVorschaubetrGes.Size = New System.Drawing.Size(107, 20) + Me.txtVorschaubetrGes.TabIndex = 34 ' - 'Label4 + 'Label6 ' - Me.Label4.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.Label4.AutoSize = True - Me.Label4.Location = New System.Drawing.Point(1074, 29) - Me.Label4.Name = "Label4" - Me.Label4.Size = New System.Drawing.Size(90, 13) - Me.Label4.TabIndex = 28 - Me.Label4.Text = "Erstattungsbetrag" + Me.Label6.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.Label6.AutoSize = True + Me.Label6.Location = New System.Drawing.Point(813, 9) + Me.Label6.Name = "Label6" + Me.Label6.Size = New System.Drawing.Size(121, 13) + Me.Label6.TabIndex = 33 + Me.Label6.Text = "Vorschaubetrag-Gesamt" ' - 'Label5 + 'txt3470Betrag ' - Me.Label5.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.Label5.AutoSize = True - Me.Label5.Location = New System.Drawing.Point(1074, 49) - Me.Label5.Name = "Label5" - Me.Label5.Size = New System.Drawing.Size(79, 13) - Me.Label5.TabIndex = 29 - Me.Label5.Text = "Differenzbetrag" + Me.txt3470Betrag._DateTimeOnly = False + Me.txt3470Betrag._numbersOnly = False + Me.txt3470Betrag._numbersOnlyKommastellen = "" + Me.txt3470Betrag._numbersOnlyTrennzeichen = True + Me.txt3470Betrag._Prozent = False + Me.txt3470Betrag._ShortDateNew = False + Me.txt3470Betrag._ShortDateOnly = False + Me.txt3470Betrag._TimeOnly = False + Me.txt3470Betrag._TimeOnly_Seconds = False + Me.txt3470Betrag._value = "" + Me.txt3470Betrag._Waehrung = True + Me.txt3470Betrag._WaehrungZeichen = True + Me.txt3470Betrag.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.txt3470Betrag.ForeColor = System.Drawing.Color.Black + Me.txt3470Betrag.Location = New System.Drawing.Point(1102, 5) + Me.txt3470Betrag.MaxLineLength = -1 + Me.txt3470Betrag.MaxLines_Warning = "" + Me.txt3470Betrag.MaxLines_Warning_Label = Nothing + Me.txt3470Betrag.Name = "txt3470Betrag" + Me.txt3470Betrag.ReadOnly = True + Me.txt3470Betrag.Size = New System.Drawing.Size(107, 20) + Me.txt3470Betrag.TabIndex = 49 ' - 'txtSumUst + 'Label7 ' - Me.txtSumUst._DateTimeOnly = False - Me.txtSumUst._numbersOnly = False - Me.txtSumUst._numbersOnlyKommastellen = "" - Me.txtSumUst._numbersOnlyTrennzeichen = True - Me.txtSumUst._Prozent = False - Me.txtSumUst._ShortDateNew = False - Me.txtSumUst._ShortDateOnly = False - Me.txtSumUst._TimeOnly = False - Me.txtSumUst._TimeOnly_Seconds = False - Me.txtSumUst._value = "" - Me.txtSumUst._Waehrung = True - Me.txtSumUst._WaehrungZeichen = True - Me.txtSumUst.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.txtSumUst.ForeColor = System.Drawing.Color.Black - Me.txtSumUst.Location = New System.Drawing.Point(1179, 6) - Me.txtSumUst.MaxLineLength = -1 - Me.txtSumUst.MaxLines_Warning = "" - Me.txtSumUst.MaxLines_Warning_Label = Nothing - Me.txtSumUst.Name = "txtSumUst" - Me.txtSumUst.ReadOnly = True - Me.txtSumUst.Size = New System.Drawing.Size(107, 20) - Me.txtSumUst.TabIndex = 30 + Me.Label7.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.Label7.AutoSize = True + Me.Label7.Location = New System.Drawing.Point(1065, 10) + Me.Label7.Name = "Label7" + Me.Label7.Size = New System.Drawing.Size(31, 13) + Me.Label7.TabIndex = 48 + Me.Label7.Text = "3470" ' - 'txtSumErst + 'txtVZBetrag ' - Me.txtSumErst._DateTimeOnly = False - Me.txtSumErst._numbersOnly = False - Me.txtSumErst._numbersOnlyKommastellen = "" - Me.txtSumErst._numbersOnlyTrennzeichen = True - Me.txtSumErst._Prozent = False - Me.txtSumErst._ShortDateNew = False - Me.txtSumErst._ShortDateOnly = False - Me.txtSumErst._TimeOnly = False - Me.txtSumErst._TimeOnly_Seconds = False - Me.txtSumErst._value = "" - Me.txtSumErst._Waehrung = True - Me.txtSumErst._WaehrungZeichen = True - Me.txtSumErst.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.txtSumErst.ForeColor = System.Drawing.Color.Black - Me.txtSumErst.Location = New System.Drawing.Point(1179, 26) - Me.txtSumErst.MaxLineLength = -1 - Me.txtSumErst.MaxLines_Warning = "" - Me.txtSumErst.MaxLines_Warning_Label = Nothing - Me.txtSumErst.Name = "txtSumErst" - Me.txtSumErst.ReadOnly = True - Me.txtSumErst.Size = New System.Drawing.Size(107, 20) - Me.txtSumErst.TabIndex = 31 + Me.txtVZBetrag._DateTimeOnly = False + Me.txtVZBetrag._numbersOnly = False + Me.txtVZBetrag._numbersOnlyKommastellen = "" + Me.txtVZBetrag._numbersOnlyTrennzeichen = True + Me.txtVZBetrag._Prozent = False + Me.txtVZBetrag._ShortDateNew = False + Me.txtVZBetrag._ShortDateOnly = False + Me.txtVZBetrag._TimeOnly = False + Me.txtVZBetrag._TimeOnly_Seconds = False + Me.txtVZBetrag._value = "" + Me.txtVZBetrag._Waehrung = True + Me.txtVZBetrag._WaehrungZeichen = True + Me.txtVZBetrag.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.txtVZBetrag.ForeColor = System.Drawing.Color.Black + Me.txtVZBetrag.Location = New System.Drawing.Point(1290, 6) + Me.txtVZBetrag.MaxLineLength = -1 + Me.txtVZBetrag.MaxLines_Warning = "" + Me.txtVZBetrag.MaxLines_Warning_Label = Nothing + Me.txtVZBetrag.Name = "txtVZBetrag" + Me.txtVZBetrag.ReadOnly = True + Me.txtVZBetrag.Size = New System.Drawing.Size(107, 20) + Me.txtVZBetrag.TabIndex = 51 ' - 'txtSumDiff + 'Label8 ' - Me.txtSumDiff._DateTimeOnly = False - Me.txtSumDiff._numbersOnly = False - Me.txtSumDiff._numbersOnlyKommastellen = "" - Me.txtSumDiff._numbersOnlyTrennzeichen = True - Me.txtSumDiff._Prozent = False - Me.txtSumDiff._ShortDateNew = False - Me.txtSumDiff._ShortDateOnly = False - Me.txtSumDiff._TimeOnly = False - Me.txtSumDiff._TimeOnly_Seconds = False - Me.txtSumDiff._value = "" - Me.txtSumDiff._Waehrung = True - Me.txtSumDiff._WaehrungZeichen = True - Me.txtSumDiff.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.txtSumDiff.ForeColor = System.Drawing.Color.Black - Me.txtSumDiff.Location = New System.Drawing.Point(1179, 46) - Me.txtSumDiff.MaxLineLength = -1 - Me.txtSumDiff.MaxLines_Warning = "" - Me.txtSumDiff.MaxLines_Warning_Label = Nothing - Me.txtSumDiff.Name = "txtSumDiff" - Me.txtSumDiff.ReadOnly = True - Me.txtSumDiff.Size = New System.Drawing.Size(107, 20) - Me.txtSumDiff.TabIndex = 32 + Me.Label8.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.Label8.AutoSize = True + Me.Label8.Location = New System.Drawing.Point(1229, 11) + Me.Label8.Name = "Label8" + Me.Label8.Size = New System.Drawing.Size(55, 13) + Me.Label8.TabIndex = 50 + Me.Label8.Text = "VZ-Betrag" ' 'usrCntlUSTV ' @@ -558,4 +675,10 @@ Partial Class usrCntlUSTV Friend WithEvents txtSumDiff As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents txtSumErst As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents txtSumUst As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents txtVorschaubetrGes As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label6 As Label + Friend WithEvents txtVZBetrag As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label8 As Label + Friend WithEvents txt3470Betrag As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label7 As Label End Class diff --git a/SDL/USTV/usrCntlUSTV.vb b/SDL/USTV/usrCntlUSTV.vb index 60cbd663..cde03fbd 100644 --- a/SDL/USTV/usrCntlUSTV.vb +++ b/SDL/USTV/usrCntlUSTV.vb @@ -138,17 +138,26 @@ Public Class usrCntlUSTV .Columns("UStVAn_Sachbearbeiter").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill End If - Dim GesamtUSteuer As Double - Dim GesamtErstattung As Double - Dim Differnezbetrag As Double + Dim GesamtUSteuer As Double = 0 + Dim GesamtErstattung As Double = 0 + Dim Differnezbetrag As Double = 0 + + Dim Gesamt3470 As Double = 0 + Dim GesamtVZBetrag As Double = 0 If KdSearchBox1.KdNr > 0 Then GesamtUSteuer = SQL.DLookup("isnull(sum(UStVAn_USteuerbetragEUR),0)", "tblUStVAntrag", "UStVAn_KuNr='" & KdSearchBox1.KdNr & "'", "FMZOLL", "0") GesamtErstattung = SQL.DLookup("isnull(sum(UStVAn_ErstattungsbetragEUR),0)", "tblUStVAntrag", "UStVAn_KuNr='" & KdSearchBox1.KdNr & "'", "FMZOLL", "0") + + Gesamt3470 = SQL.DLookup("isnull(sum(UStVAn_3470),0)", "tblUStVAntrag", "UStVAn_KuNr='" & KdSearchBox1.KdNr & "'", "FMZOLL", "0") + GesamtVZBetrag = SQL.DLookup("isnull(sum(UStVAn_VZBetrag),0)", "tblUStVAntrag", "UStVAn_KuNr='" & KdSearchBox1.KdNr & "'", "FMZOLL", "0") + Else For Each rows As DataGridViewRow In .Rows If IsNumeric(rows.Cells("UStVAn_USteuerbetragEUR").Value) Then GesamtUSteuer += rows.Cells("UStVAn_USteuerbetragEUR").Value If IsNumeric(rows.Cells("UStVAn_ErstattungsbetragEUR").Value) Then GesamtErstattung += rows.Cells("UStVAn_ErstattungsbetragEUR").Value + If IsNumeric(rows.Cells("UStVAn_3470").Value) Then Gesamt3470 += rows.Cells("UStVAn_3470").Value + If IsNumeric(rows.Cells("UStVAn_VZBetrag").Value) Then GesamtVZBetrag += rows.Cells("UStVAn_VZBetrag").Value Next End If @@ -158,6 +167,8 @@ Public Class usrCntlUSTV txtSumUst.Text = GesamtUSteuer.ToString("C2") txtSumErst.Text = GesamtErstattung.ToString("C2") txtSumDiff.Text = Differnezbetrag.ToString("C2") + txt3470Betrag.Text = Gesamt3470.ToString("C2") + txtVZBetrag.Text = GesamtVZBetrag.ToString("C2") End With diff --git a/SDL/kunden/frmKundenblatt.Designer.vb b/SDL/kunden/frmKundenblatt.Designer.vb index 8d697148..c0877314 100644 --- a/SDL/kunden/frmKundenblatt.Designer.vb +++ b/SDL/kunden/frmKundenblatt.Designer.vb @@ -276,7 +276,7 @@ Partial Class frmKundenblatt Me.tbFirmendaten.Location = New System.Drawing.Point(4, 25) Me.tbFirmendaten.Name = "tbFirmendaten" Me.tbFirmendaten.Padding = New System.Windows.Forms.Padding(3) - Me.tbFirmendaten.Size = New System.Drawing.Size(1630, 999) + Me.tbFirmendaten.Size = New System.Drawing.Size(1630, 1016) Me.tbFirmendaten.TabIndex = 3 Me.tbFirmendaten.Text = "Firmendaten" ' @@ -286,7 +286,7 @@ Partial Class frmKundenblatt Me.Panel4.Dock = System.Windows.Forms.DockStyle.Fill Me.Panel4.Location = New System.Drawing.Point(3, 3) Me.Panel4.Name = "Panel4" - Me.Panel4.Size = New System.Drawing.Size(1624, 993) + Me.Panel4.Size = New System.Drawing.Size(1624, 1010) Me.Panel4.TabIndex = 0 ' 'UsrcntlKundeBearbeitenFull1 @@ -296,7 +296,7 @@ Partial Class frmKundenblatt Me.UsrcntlKundeBearbeitenFull1.Location = New System.Drawing.Point(0, 0) Me.UsrcntlKundeBearbeitenFull1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) Me.UsrcntlKundeBearbeitenFull1.Name = "UsrcntlKundeBearbeitenFull1" - Me.UsrcntlKundeBearbeitenFull1.Size = New System.Drawing.Size(1624, 993) + Me.UsrcntlKundeBearbeitenFull1.Size = New System.Drawing.Size(1624, 1010) Me.UsrcntlKundeBearbeitenFull1.TabIndex = 0 ' 'tbcntrMain @@ -314,7 +314,7 @@ Partial Class frmKundenblatt Me.tbcntrMain.Margin = New System.Windows.Forms.Padding(0) Me.tbcntrMain.Name = "tbcntrMain" Me.tbcntrMain.SelectedIndex = 0 - Me.tbcntrMain.Size = New System.Drawing.Size(1638, 1028) + Me.tbcntrMain.Size = New System.Drawing.Size(1638, 1045) Me.tbcntrMain.TabIndex = 3 ' 'tbAllgemein @@ -355,7 +355,7 @@ Partial Class frmKundenblatt Me.tbAllgemein.Margin = New System.Windows.Forms.Padding(0) Me.tbAllgemein.Name = "tbAllgemein" Me.tbAllgemein.Padding = New System.Windows.Forms.Padding(3) - Me.tbAllgemein.Size = New System.Drawing.Size(1630, 999) + Me.tbAllgemein.Size = New System.Drawing.Size(1630, 1016) Me.tbAllgemein.TabIndex = 0 Me.tbAllgemein.Text = "Allgemein" ' @@ -465,7 +465,7 @@ Partial Class frmKundenblatt Me.dgvOffenePosten.RowHeadersDefaultCellStyle = DataGridViewCellStyle4 Me.dgvOffenePosten.RowHeadersVisible = False Me.dgvOffenePosten.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect - Me.dgvOffenePosten.Size = New System.Drawing.Size(714, 400) + Me.dgvOffenePosten.Size = New System.Drawing.Size(714, 417) Me.dgvOffenePosten.TabIndex = 175 ' 'btnOP @@ -805,7 +805,7 @@ Partial Class frmKundenblatt Me.dgvSperrliste.Name = "dgvSperrliste" Me.dgvSperrliste.ReadOnly = True Me.dgvSperrliste.RowHeadersDefaultCellStyle = DataGridViewCellStyle7 - Me.dgvSperrliste.Size = New System.Drawing.Size(432, 955) + Me.dgvSperrliste.Size = New System.Drawing.Size(432, 972) Me.dgvSperrliste.TabIndex = 23 ' 'PictureBox2 @@ -859,7 +859,7 @@ Partial Class frmKundenblatt Me.tbZoll.Location = New System.Drawing.Point(4, 25) Me.tbZoll.Name = "tbZoll" Me.tbZoll.Padding = New System.Windows.Forms.Padding(3) - Me.tbZoll.Size = New System.Drawing.Size(1630, 999) + Me.tbZoll.Size = New System.Drawing.Size(1630, 1016) Me.tbZoll.TabIndex = 9 Me.tbZoll.Text = "ZOLL" Me.tbZoll.UseVisualStyleBackColor = True @@ -871,7 +871,7 @@ Partial Class frmKundenblatt Me.tbcntrZOLL.Location = New System.Drawing.Point(3, 3) Me.tbcntrZOLL.Name = "tbcntrZOLL" Me.tbcntrZOLL.SelectedIndex = 0 - Me.tbcntrZOLL.Size = New System.Drawing.Size(1624, 993) + Me.tbcntrZOLL.Size = New System.Drawing.Size(1624, 1010) Me.tbcntrZOLL.TabIndex = 0 ' 'tabZoll_Artikel @@ -879,7 +879,7 @@ Partial Class frmKundenblatt Me.tabZoll_Artikel.Location = New System.Drawing.Point(4, 22) Me.tabZoll_Artikel.Name = "tabZoll_Artikel" Me.tabZoll_Artikel.Padding = New System.Windows.Forms.Padding(3) - Me.tabZoll_Artikel.Size = New System.Drawing.Size(1616, 967) + Me.tabZoll_Artikel.Size = New System.Drawing.Size(1616, 984) Me.tabZoll_Artikel.TabIndex = 1 Me.tabZoll_Artikel.Text = "Artikel" Me.tabZoll_Artikel.UseVisualStyleBackColor = True @@ -890,7 +890,7 @@ Partial Class frmKundenblatt Me.tbMdm.Location = New System.Drawing.Point(4, 25) Me.tbMdm.Name = "tbMdm" Me.tbMdm.Padding = New System.Windows.Forms.Padding(3) - Me.tbMdm.Size = New System.Drawing.Size(1630, 999) + Me.tbMdm.Size = New System.Drawing.Size(1630, 1016) Me.tbMdm.TabIndex = 10 Me.tbMdm.Text = "MDM" Me.tbMdm.UseVisualStyleBackColor = True @@ -908,7 +908,7 @@ Partial Class frmKundenblatt Me.tbcntrMDM.Margin = New System.Windows.Forms.Padding(0) Me.tbcntrMDM.Name = "tbcntrMDM" Me.tbcntrMDM.SelectedIndex = 0 - Me.tbcntrMDM.Size = New System.Drawing.Size(1624, 993) + Me.tbcntrMDM.Size = New System.Drawing.Size(1624, 1010) Me.tbcntrMDM.TabIndex = 0 ' 'tbSDL @@ -920,7 +920,7 @@ Partial Class frmKundenblatt Me.tbSDL.Margin = New System.Windows.Forms.Padding(0) Me.tbSDL.Name = "tbSDL" Me.tbSDL.Padding = New System.Windows.Forms.Padding(3) - Me.tbSDL.Size = New System.Drawing.Size(1616, 967) + Me.tbSDL.Size = New System.Drawing.Size(1616, 984) Me.tbSDL.TabIndex = 5 Me.tbSDL.Text = "SDL-Leistungen" Me.tbSDL.UseVisualStyleBackColor = True @@ -962,7 +962,7 @@ Partial Class frmKundenblatt DataGridViewCellStyle13.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] Me.dgvSDLLeistungenFull.RowHeadersDefaultCellStyle = DataGridViewCellStyle13 Me.dgvSDLLeistungenFull.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect - Me.dgvSDLLeistungenFull.Size = New System.Drawing.Size(1610, 771) + Me.dgvSDLLeistungenFull.Size = New System.Drawing.Size(1610, 788) Me.dgvSDLLeistungenFull.TabIndex = 5 ' 'Panel6 @@ -1067,7 +1067,7 @@ Partial Class frmKundenblatt Me.Panel5.Controls.Add(Me.lblLetzterSA_SDL) Me.Panel5.Controls.Add(Me.rtbVermerke) Me.Panel5.Dock = System.Windows.Forms.DockStyle.Bottom - Me.Panel5.Location = New System.Drawing.Point(3, 821) + Me.Panel5.Location = New System.Drawing.Point(3, 838) Me.Panel5.Name = "Panel5" Me.Panel5.Size = New System.Drawing.Size(1610, 143) Me.Panel5.TabIndex = 177 @@ -1941,7 +1941,7 @@ Partial Class frmKundenblatt Me.tbOfferte.Location = New System.Drawing.Point(4, 25) Me.tbOfferte.Margin = New System.Windows.Forms.Padding(2) Me.tbOfferte.Name = "tbOfferte" - Me.tbOfferte.Size = New System.Drawing.Size(1630, 999) + Me.tbOfferte.Size = New System.Drawing.Size(1630, 1016) Me.tbOfferte.TabIndex = 11 Me.tbOfferte.Text = "Offerte" Me.tbOfferte.UseVisualStyleBackColor = True @@ -1953,7 +1953,7 @@ Partial Class frmKundenblatt Me.UsrCntlOfferte1.Location = New System.Drawing.Point(0, 0) Me.UsrCntlOfferte1.Margin = New System.Windows.Forms.Padding(1) Me.UsrCntlOfferte1.Name = "UsrCntlOfferte1" - Me.UsrCntlOfferte1.Size = New System.Drawing.Size(1630, 999) + Me.UsrCntlOfferte1.Size = New System.Drawing.Size(1630, 1016) Me.UsrCntlOfferte1.TabIndex = 0 ' 'tbUSTV @@ -1961,7 +1961,7 @@ Partial Class frmKundenblatt Me.tbUSTV.Controls.Add(Me.tbcntrUSTV) Me.tbUSTV.Location = New System.Drawing.Point(4, 25) Me.tbUSTV.Name = "tbUSTV" - Me.tbUSTV.Size = New System.Drawing.Size(1630, 999) + Me.tbUSTV.Size = New System.Drawing.Size(1630, 1016) Me.tbUSTV.TabIndex = 12 Me.tbUSTV.Text = "USTV" Me.tbUSTV.UseVisualStyleBackColor = True @@ -1975,7 +1975,7 @@ Partial Class frmKundenblatt Me.tbcntrUSTV.Margin = New System.Windows.Forms.Padding(0) Me.tbcntrUSTV.Name = "tbcntrUSTV" Me.tbcntrUSTV.SelectedIndex = 0 - Me.tbcntrUSTV.Size = New System.Drawing.Size(1630, 999) + Me.tbcntrUSTV.Size = New System.Drawing.Size(1630, 1016) Me.tbcntrUSTV.TabIndex = 1 ' 'tbUSTVDokumente @@ -1988,7 +1988,7 @@ Partial Class frmKundenblatt Me.tbUSTVDokumente.Controls.Add(Me.scanUSTVVollmachten) Me.tbUSTVDokumente.Location = New System.Drawing.Point(4, 22) Me.tbUSTVDokumente.Name = "tbUSTVDokumente" - Me.tbUSTVDokumente.Size = New System.Drawing.Size(1622, 973) + Me.tbUSTVDokumente.Size = New System.Drawing.Size(1622, 990) Me.tbUSTVDokumente.TabIndex = 8 Me.tbUSTVDokumente.Text = "Dokumente" Me.tbUSTVDokumente.UseVisualStyleBackColor = True @@ -2086,7 +2086,7 @@ Partial Class frmKundenblatt Me.tbUSTVAntrage.Location = New System.Drawing.Point(4, 22) Me.tbUSTVAntrage.Name = "tbUSTVAntrage" Me.tbUSTVAntrage.Padding = New System.Windows.Forms.Padding(3) - Me.tbUSTVAntrage.Size = New System.Drawing.Size(184, 45) + Me.tbUSTVAntrage.Size = New System.Drawing.Size(1622, 990) Me.tbUSTVAntrage.TabIndex = 9 Me.tbUSTVAntrage.Text = "USTV-Anträge" Me.tbUSTVAntrage.UseVisualStyleBackColor = True @@ -2096,7 +2096,7 @@ Partial Class frmKundenblatt Me.UsrCntlUSTV.Dock = System.Windows.Forms.DockStyle.Fill Me.UsrCntlUSTV.Location = New System.Drawing.Point(3, 3) Me.UsrCntlUSTV.Name = "UsrCntlUSTV" - Me.UsrCntlUSTV.Size = New System.Drawing.Size(178, 39) + Me.UsrCntlUSTV.Size = New System.Drawing.Size(1616, 984) Me.UsrCntlUSTV.TabIndex = 0 ' 'cntxtExcel @@ -2380,7 +2380,7 @@ Partial Class frmKundenblatt Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoScroll = True Me.BackColor = System.Drawing.Color.White - Me.ClientSize = New System.Drawing.Size(1595, 1157) + Me.ClientSize = New System.Drawing.Size(1595, 1174) Me.Controls.Add(Me.lblAbfVerb) Me.Controls.Add(Me.btnAbfVerb) Me.Controls.Add(Me.tbcntrMain)