From 0fea3813eb902f33de0a151dba19e80c78776f50 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Thu, 24 Apr 2025 14:12:48 +0200 Subject: [PATCH] ustva --- SDL/USTV/frmMDM_USTVAntrag.Designer.vb | 934 ++++++++++++------------- SDL/USTV/frmMDM_USTVAntrag.vb | 8 +- 2 files changed, 473 insertions(+), 469 deletions(-) diff --git a/SDL/USTV/frmMDM_USTVAntrag.Designer.vb b/SDL/USTV/frmMDM_USTVAntrag.Designer.vb index 97b2aa82..59c2a822 100644 --- a/SDL/USTV/frmMDM_USTVAntrag.Designer.vb +++ b/SDL/USTV/frmMDM_USTVAntrag.Designer.vb @@ -27,6 +27,8 @@ Partial Class frmMDM_USTVAntrag Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMDM_USTVAntrag)) Me.pnlBottom = New System.Windows.Forms.Panel() + Me.Button5 = New System.Windows.Forms.Button() + Me.txtSumme = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label27 = New System.Windows.Forms.Label() Me.picExcel = New System.Windows.Forms.PictureBox() Me.Button4 = New System.Windows.Forms.Button() @@ -40,24 +42,39 @@ Partial Class frmMDM_USTVAntrag Me.lblGesamtUSteuer = New System.Windows.Forms.Label() Me.lblDiffernezbetrag = New System.Windows.Forms.Label() Me.lblGesamtErstattung = New System.Windows.Forms.Label() + Me.KdSearchBox1 = New VERAG_PROG_ALLGEMEIN.KdSearchBox() + Me.cboAntragArt = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.lblKdNr = New System.Windows.Forms.Label() Me.Panel9 = New System.Windows.Forms.Panel() + Me.cbxLand = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.lblLand = New System.Windows.Forms.Label() Me.Panel8 = New System.Windows.Forms.Panel() Me.Label15 = New System.Windows.Forms.Label() + Me.txtVZam = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.btnAbfertigungsNrVergeben = New System.Windows.Forms.Button() Me.Label14 = New System.Windows.Forms.Label() + Me.txtEingereichtAm = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.lblMWSTAntrag = New System.Windows.Forms.Label() Me.Label13 = New System.Windows.Forms.Label() + Me.txtGueltig = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label11 = New System.Windows.Forms.Label() + Me.txtStNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label9 = New System.Windows.Forms.Label() + Me.txtVZ = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtAbfNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label8 = New System.Windows.Forms.Label() + Me.cbxFiliale = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.Label4 = New System.Windows.Forms.Label() Me.Label2 = New System.Windows.Forms.Label() + Me.txtBezugsNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.cbxWahrung = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.lblWahrung = New System.Windows.Forms.Label() 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() + Me.txtBis = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Panel6 = New System.Windows.Forms.Panel() Me.lblGesamtUSteuerFW = New System.Windows.Forms.Label() Me.Label12 = New System.Windows.Forms.Label() @@ -80,46 +97,29 @@ Partial Class frmMDM_USTVAntrag Me.btnStorno = New System.Windows.Forms.Button() Me.lblAntragAbgeschlossen = New System.Windows.Forms.Label() Me.Label5 = New System.Windows.Forms.Label() + Me.cboStatus = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.lblFirma = New System.Windows.Forms.Label() Me.lblWarnung = New System.Windows.Forms.Label() Me.pnlBody = New System.Windows.Forms.Panel() Me.TabControl1 = New System.Windows.Forms.TabControl() Me.TabPage1 = New System.Windows.Forms.TabPage() + 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.btnEintragloeschen = New System.Windows.Forms.Button() Me.btnNeuerEintrag = New System.Windows.Forms.Button() Me.TabPage2 = New System.Windows.Forms.TabPage() 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.KdSearchBox1 = New VERAG_PROG_ALLGEMEIN.KdSearchBox() - Me.cboAntragArt = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.cbxLand = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.txtVZam = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtEingereichtAm = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtGueltig = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtStNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtVZ = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtAbfNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.cbxFiliale = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.txtBezugsNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.cbxWahrung = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.txt3470 = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtVon = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtBis = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.cboStatus = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.dgvUSTVPositionen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) - Me.dgvErstattungspositionen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) - Me.txtSumme = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.UstCntlUSTV_AntragPosition1 = New SDL.ustCntlUSTV_AntragPosition() - Me.UstCntlUSTV_AntragErstattungen1 = New SDL.ustCntlUSTV_ErstattungPosition() - Me.Button5 = New System.Windows.Forms.Button() Me.pnlBottom.SuspendLayout() CType(Me.picExcel, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.picPDF, System.ComponentModel.ISupportInitialize).BeginInit() @@ -132,15 +132,15 @@ Partial Class frmMDM_USTVAntrag Me.pnlBody.SuspendLayout() Me.TabControl1.SuspendLayout() Me.TabPage1.SuspendLayout() + CType(Me.dgvUSTVPositionen, System.ComponentModel.ISupportInitialize).BeginInit() Me.pnlAntragsPosDetails.SuspendLayout() Me.Panel2.SuspendLayout() Me.Panel4.SuspendLayout() Me.TabPage2.SuspendLayout() Me.Panel3.SuspendLayout() + CType(Me.dgvErstattungspositionen, System.ComponentModel.ISupportInitialize).BeginInit() Me.pnlErstattungsdetails.SuspendLayout() Me.Panel1.SuspendLayout() - CType(Me.dgvUSTVPositionen, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.dgvErstattungspositionen, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' 'pnlBottom @@ -164,6 +164,44 @@ Partial Class frmMDM_USTVAntrag Me.pnlBottom.Size = New System.Drawing.Size(1454, 100) Me.pnlBottom.TabIndex = 3 ' + 'Button5 + ' + Me.Button5.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button5.ForeColor = System.Drawing.Color.Black + Me.Button5.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button5.Location = New System.Drawing.Point(869, 17) + Me.Button5.Name = "Button5" + Me.Button5.Size = New System.Drawing.Size(103, 39) + Me.Button5.TabIndex = 50 + Me.Button5.Text = "Gutschrift" + Me.Button5.UseVisualStyleBackColor = True + Me.Button5.Visible = False + ' + 'txtSumme + ' + Me.txtSumme._DateTimeOnly = False + Me.txtSumme._numbersOnly = False + Me.txtSumme._numbersOnlyKommastellen = "" + Me.txtSumme._numbersOnlyTrennzeichen = False + Me.txtSumme._Prozent = False + Me.txtSumme._ShortDateNew = False + Me.txtSumme._ShortDateOnly = False + Me.txtSumme._TimeOnly = False + Me.txtSumme._TimeOnly_Seconds = False + Me.txtSumme._value = "" + Me.txtSumme._Waehrung = True + Me.txtSumme._WaehrungZeichen = True + Me.txtSumme.ForeColor = System.Drawing.Color.Black + Me.txtSumme.Location = New System.Drawing.Point(1158, 67) + Me.txtSumme.MaxLineLength = -1 + Me.txtSumme.MaxLines_Warning = "" + Me.txtSumme.MaxLines_Warning_Label = Nothing + Me.txtSumme.Name = "txtSumme" + Me.txtSumme.ReadOnly = True + Me.txtSumme.Size = New System.Drawing.Size(88, 20) + Me.txtSumme.TabIndex = 49 + Me.txtSumme.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + ' 'Label27 ' Me.Label27.AutoSize = True @@ -337,6 +375,48 @@ Partial Class frmMDM_USTVAntrag Me.lblGesamtErstattung.Text = "000.000,00" Me.lblGesamtErstattung.TextAlign = System.Drawing.ContentAlignment.TopRight ' + 'KdSearchBox1 + ' + Me.KdSearchBox1._AlleFirmenCLUSTER = False + Me.KdSearchBox1._AllowSetValue = False + Me.KdSearchBox1._autoSizeGross = False + Me.KdSearchBox1._display_Name1 = False + Me.KdSearchBox1._displayAVISO_Email = False + Me.KdSearchBox1._displayFullName = False + Me.KdSearchBox1._displayWoelflKd = False + Me.KdSearchBox1._hideIfListEmpty = True + Me.KdSearchBox1._loadKdData = False + Me.KdSearchBox1._searchName1 = True + Me.KdSearchBox1._UseFIRMA = "" + Me.KdSearchBox1._ValueKdAndName = True + Me.KdSearchBox1.dgvpos = "LEFT" + Me.KdSearchBox1.KdName = Nothing + Me.KdSearchBox1.KdNr = "-1" + Me.KdSearchBox1.kdNrField = Nothing + Me.KdSearchBox1.KdNrNullInt = Nothing + Me.KdSearchBox1.Location = New System.Drawing.Point(298, 10) + Me.KdSearchBox1.Name = "KdSearchBox1" + Me.KdSearchBox1.nurAktive = True + Me.KdSearchBox1.searchActive = True + Me.KdSearchBox1.Size = New System.Drawing.Size(171, 20) + Me.KdSearchBox1.TabIndex = 22 + Me.KdSearchBox1.TIMER_SEARCH = True + Me.KdSearchBox1.usrcntl = Nothing + ' + 'cboAntragArt + ' + Me.cboAntragArt._allowedValuesFreiText = Nothing + Me.cboAntragArt._allowFreiText = False + Me.cboAntragArt._value = "" + Me.cboAntragArt.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) + Me.cboAntragArt.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold) + Me.cboAntragArt.FormattingEnabled = True + Me.cboAntragArt.Location = New System.Drawing.Point(83, 10) + Me.cboAntragArt.Name = "cboAntragArt" + Me.cboAntragArt.Size = New System.Drawing.Size(191, 28) + Me.cboAntragArt.TabIndex = 21 + Me.cboAntragArt.Text = "USTV-Antrag" + ' 'lblKdNr ' Me.lblKdNr.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ @@ -361,6 +441,21 @@ Partial Class frmMDM_USTVAntrag Me.Panel9.Size = New System.Drawing.Size(65, 90) Me.Panel9.TabIndex = 20 ' + 'cbxLand + ' + Me.cbxLand._allowedValuesFreiText = Nothing + Me.cbxLand._allowFreiText = False + Me.cbxLand._value = "" + Me.cbxLand.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) + Me.cbxLand.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold) + Me.cbxLand.FormattingEnabled = True + Me.cbxLand.Location = New System.Drawing.Point(0, 0) + Me.cbxLand.Name = "cbxLand" + Me.cbxLand.Size = New System.Drawing.Size(65, 28) + Me.cbxLand.TabIndex = 23 + Me.cbxLand.Text = "USTV-Antrag" + Me.cbxLand.Visible = False + ' 'lblLand ' Me.lblLand.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) @@ -424,6 +519,31 @@ Partial Class frmMDM_USTVAntrag Me.Label15.TabIndex = 51 Me.Label15.Text = "VZ am:" ' + 'txtVZam + ' + Me.txtVZam._DateTimeOnly = False + Me.txtVZam._numbersOnly = False + Me.txtVZam._numbersOnlyKommastellen = "" + Me.txtVZam._numbersOnlyTrennzeichen = False + Me.txtVZam._Prozent = False + Me.txtVZam._ShortDateNew = False + Me.txtVZam._ShortDateOnly = True + Me.txtVZam._TimeOnly = False + Me.txtVZam._TimeOnly_Seconds = False + Me.txtVZam._value = "" + Me.txtVZam._Waehrung = False + Me.txtVZam._WaehrungZeichen = False + Me.txtVZam.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!) + Me.txtVZam.ForeColor = System.Drawing.Color.Black + Me.txtVZam.Location = New System.Drawing.Point(865, 60) + Me.txtVZam.MaxLength = 10 + Me.txtVZam.MaxLineLength = -1 + Me.txtVZam.MaxLines_Warning = "" + Me.txtVZam.MaxLines_Warning_Label = Nothing + Me.txtVZam.Name = "txtVZam" + Me.txtVZam.Size = New System.Drawing.Size(100, 23) + Me.txtVZam.TabIndex = 52 + ' 'btnAbfertigungsNrVergeben ' Me.btnAbfertigungsNrVergeben.FlatStyle = System.Windows.Forms.FlatStyle.Flat @@ -450,6 +570,31 @@ Partial Class frmMDM_USTVAntrag Me.Label14.TabIndex = 27 Me.Label14.Text = "eingereicht am" ' + 'txtEingereichtAm + ' + Me.txtEingereichtAm._DateTimeOnly = False + Me.txtEingereichtAm._numbersOnly = False + Me.txtEingereichtAm._numbersOnlyKommastellen = "" + Me.txtEingereichtAm._numbersOnlyTrennzeichen = False + Me.txtEingereichtAm._Prozent = False + Me.txtEingereichtAm._ShortDateNew = False + Me.txtEingereichtAm._ShortDateOnly = True + Me.txtEingereichtAm._TimeOnly = False + Me.txtEingereichtAm._TimeOnly_Seconds = False + Me.txtEingereichtAm._value = "" + Me.txtEingereichtAm._Waehrung = False + Me.txtEingereichtAm._WaehrungZeichen = False + Me.txtEingereichtAm.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!) + Me.txtEingereichtAm.ForeColor = System.Drawing.Color.Black + Me.txtEingereichtAm.Location = New System.Drawing.Point(654, 60) + Me.txtEingereichtAm.MaxLength = 10 + Me.txtEingereichtAm.MaxLineLength = -1 + Me.txtEingereichtAm.MaxLines_Warning = "" + Me.txtEingereichtAm.MaxLines_Warning_Label = Nothing + Me.txtEingereichtAm.Name = "txtEingereichtAm" + Me.txtEingereichtAm.Size = New System.Drawing.Size(100, 23) + Me.txtEingereichtAm.TabIndex = 26 + ' 'lblMWSTAntrag ' Me.lblMWSTAntrag.AutoSize = True @@ -475,6 +620,31 @@ Partial Class frmMDM_USTVAntrag Me.Label13.TabIndex = 24 Me.Label13.Text = "gültig bis" ' + 'txtGueltig + ' + Me.txtGueltig._DateTimeOnly = False + Me.txtGueltig._numbersOnly = False + Me.txtGueltig._numbersOnlyKommastellen = "" + Me.txtGueltig._numbersOnlyTrennzeichen = False + Me.txtGueltig._Prozent = False + Me.txtGueltig._ShortDateNew = False + Me.txtGueltig._ShortDateOnly = True + Me.txtGueltig._TimeOnly = False + Me.txtGueltig._TimeOnly_Seconds = False + Me.txtGueltig._value = "" + Me.txtGueltig._Waehrung = False + Me.txtGueltig._WaehrungZeichen = False + Me.txtGueltig.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!) + Me.txtGueltig.ForeColor = System.Drawing.Color.Black + Me.txtGueltig.Location = New System.Drawing.Point(101, 61) + Me.txtGueltig.MaxLength = 10 + Me.txtGueltig.MaxLineLength = -1 + Me.txtGueltig.MaxLines_Warning = "" + Me.txtGueltig.MaxLines_Warning_Label = Nothing + Me.txtGueltig.Name = "txtGueltig" + Me.txtGueltig.Size = New System.Drawing.Size(100, 23) + Me.txtGueltig.TabIndex = 23 + ' 'Label11 ' Me.Label11.AutoSize = True @@ -488,6 +658,31 @@ Partial Class frmMDM_USTVAntrag Me.Label11.TabIndex = 21 Me.Label11.Text = "Steuer-Nr:" ' + 'txtStNr + ' + Me.txtStNr._DateTimeOnly = False + Me.txtStNr._numbersOnly = False + Me.txtStNr._numbersOnlyKommastellen = "" + Me.txtStNr._numbersOnlyTrennzeichen = False + Me.txtStNr._Prozent = False + Me.txtStNr._ShortDateNew = False + Me.txtStNr._ShortDateOnly = False + Me.txtStNr._TimeOnly = False + Me.txtStNr._TimeOnly_Seconds = False + Me.txtStNr._value = "" + Me.txtStNr._Waehrung = False + Me.txtStNr._WaehrungZeichen = False + Me.txtStNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!) + Me.txtStNr.ForeColor = System.Drawing.Color.Black + Me.txtStNr.Location = New System.Drawing.Point(101, 36) + Me.txtStNr.MaxLength = 20 + Me.txtStNr.MaxLineLength = -1 + Me.txtStNr.MaxLines_Warning = "" + Me.txtStNr.MaxLines_Warning_Label = Nothing + Me.txtStNr.Name = "txtStNr" + Me.txtStNr.Size = New System.Drawing.Size(136, 23) + Me.txtStNr.TabIndex = 22 + ' 'Label9 ' Me.Label9.AutoSize = True @@ -501,6 +696,56 @@ Partial Class frmMDM_USTVAntrag Me.Label9.TabIndex = 19 Me.Label9.Text = "VZ:" ' + 'txtVZ + ' + Me.txtVZ._DateTimeOnly = False + Me.txtVZ._numbersOnly = True + Me.txtVZ._numbersOnlyKommastellen = "" + Me.txtVZ._numbersOnlyTrennzeichen = True + Me.txtVZ._Prozent = False + Me.txtVZ._ShortDateNew = False + Me.txtVZ._ShortDateOnly = False + Me.txtVZ._TimeOnly = False + Me.txtVZ._TimeOnly_Seconds = False + Me.txtVZ._value = "" + Me.txtVZ._Waehrung = True + Me.txtVZ._WaehrungZeichen = True + Me.txtVZ.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!) + Me.txtVZ.ForeColor = System.Drawing.Color.Black + Me.txtVZ.Location = New System.Drawing.Point(865, 31) + Me.txtVZ.MaxLength = 10 + Me.txtVZ.MaxLineLength = -1 + Me.txtVZ.MaxLines_Warning = "" + Me.txtVZ.MaxLines_Warning_Label = Nothing + Me.txtVZ.Name = "txtVZ" + Me.txtVZ.Size = New System.Drawing.Size(100, 23) + Me.txtVZ.TabIndex = 20 + ' + 'txtAbfNr + ' + Me.txtAbfNr._DateTimeOnly = False + Me.txtAbfNr._numbersOnly = True + Me.txtAbfNr._numbersOnlyKommastellen = "" + Me.txtAbfNr._numbersOnlyTrennzeichen = False + Me.txtAbfNr._Prozent = False + Me.txtAbfNr._ShortDateNew = False + Me.txtAbfNr._ShortDateOnly = False + Me.txtAbfNr._TimeOnly = False + Me.txtAbfNr._TimeOnly_Seconds = False + Me.txtAbfNr._value = "" + Me.txtAbfNr._Waehrung = False + Me.txtAbfNr._WaehrungZeichen = False + Me.txtAbfNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!) + Me.txtAbfNr.ForeColor = System.Drawing.Color.Red + Me.txtAbfNr.Location = New System.Drawing.Point(654, 33) + Me.txtAbfNr.MaxLength = 10 + Me.txtAbfNr.MaxLineLength = -1 + Me.txtAbfNr.MaxLines_Warning = "" + Me.txtAbfNr.MaxLines_Warning_Label = Nothing + Me.txtAbfNr.Name = "txtAbfNr" + Me.txtAbfNr.Size = New System.Drawing.Size(117, 23) + Me.txtAbfNr.TabIndex = 18 + ' 'Label8 ' Me.Label8.AutoSize = True @@ -514,6 +759,19 @@ Partial Class frmMDM_USTVAntrag Me.Label8.TabIndex = 17 Me.Label8.Text = "Abfertigungs-Nr:" ' + 'cbxFiliale + ' + Me.cbxFiliale._allowedValuesFreiText = Nothing + Me.cbxFiliale._allowFreiText = False + Me.cbxFiliale._value = "" + Me.cbxFiliale.DropDownWidth = 150 + Me.cbxFiliale.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cbxFiliale.FormattingEnabled = True + Me.cbxFiliale.Location = New System.Drawing.Point(413, 32) + Me.cbxFiliale.Name = "cbxFiliale" + Me.cbxFiliale.Size = New System.Drawing.Size(105, 24) + Me.cbxFiliale.TabIndex = 16 + ' 'Label4 ' Me.Label4.AutoSize = True @@ -540,6 +798,43 @@ Partial Class frmMDM_USTVAntrag Me.Label2.TabIndex = 13 Me.Label2.Text = "Bezugs/Pos-Nr.:" ' + 'txtBezugsNr + ' + Me.txtBezugsNr._DateTimeOnly = False + Me.txtBezugsNr._numbersOnly = True + Me.txtBezugsNr._numbersOnlyKommastellen = "" + Me.txtBezugsNr._numbersOnlyTrennzeichen = False + Me.txtBezugsNr._Prozent = False + Me.txtBezugsNr._ShortDateNew = False + Me.txtBezugsNr._ShortDateOnly = False + Me.txtBezugsNr._TimeOnly = False + Me.txtBezugsNr._TimeOnly_Seconds = False + Me.txtBezugsNr._value = "" + Me.txtBezugsNr._Waehrung = False + Me.txtBezugsNr._WaehrungZeichen = False + Me.txtBezugsNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!) + Me.txtBezugsNr.ForeColor = System.Drawing.Color.Red + Me.txtBezugsNr.Location = New System.Drawing.Point(654, 4) + Me.txtBezugsNr.MaxLength = 10 + Me.txtBezugsNr.MaxLineLength = -1 + Me.txtBezugsNr.MaxLines_Warning = "" + Me.txtBezugsNr.MaxLines_Warning_Label = Nothing + Me.txtBezugsNr.Name = "txtBezugsNr" + Me.txtBezugsNr.Size = New System.Drawing.Size(146, 23) + Me.txtBezugsNr.TabIndex = 14 + ' + 'cbxWahrung + ' + Me.cbxWahrung._allowedValuesFreiText = Nothing + Me.cbxWahrung._allowFreiText = False + Me.cbxWahrung._value = "" + Me.cbxWahrung.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cbxWahrung.FormattingEnabled = True + Me.cbxWahrung.Location = New System.Drawing.Point(431, 4) + Me.cbxWahrung.Name = "cbxWahrung" + Me.cbxWahrung.Size = New System.Drawing.Size(87, 24) + Me.cbxWahrung.TabIndex = 12 + ' 'lblWahrung ' Me.lblWahrung.AutoSize = True @@ -566,6 +861,31 @@ Partial Class frmMDM_USTVAntrag 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(865, 2) + 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 = 10 + ' 'Label3 ' Me.Label3.AutoSize = True @@ -592,6 +912,56 @@ Partial Class frmMDM_USTVAntrag Me.lblZeitraum.TabIndex = 7 Me.lblZeitraum.Text = "-" ' + 'txtVon + ' + Me.txtVon._DateTimeOnly = False + Me.txtVon._numbersOnly = False + Me.txtVon._numbersOnlyKommastellen = "" + Me.txtVon._numbersOnlyTrennzeichen = False + Me.txtVon._Prozent = False + Me.txtVon._ShortDateNew = True + Me.txtVon._ShortDateOnly = False + Me.txtVon._TimeOnly = False + Me.txtVon._TimeOnly_Seconds = False + Me.txtVon._value = "" + Me.txtVon._Waehrung = False + Me.txtVon._WaehrungZeichen = False + Me.txtVon.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!) + Me.txtVon.ForeColor = System.Drawing.Color.Black + Me.txtVon.Location = New System.Drawing.Point(101, 9) + Me.txtVon.MaxLength = 10 + Me.txtVon.MaxLineLength = -1 + Me.txtVon.MaxLines_Warning = "" + Me.txtVon.MaxLines_Warning_Label = Nothing + Me.txtVon.Name = "txtVon" + Me.txtVon.Size = New System.Drawing.Size(100, 23) + Me.txtVon.TabIndex = 6 + ' + 'txtBis + ' + Me.txtBis._DateTimeOnly = False + Me.txtBis._numbersOnly = False + Me.txtBis._numbersOnlyKommastellen = "" + Me.txtBis._numbersOnlyTrennzeichen = False + Me.txtBis._Prozent = False + Me.txtBis._ShortDateNew = True + Me.txtBis._ShortDateOnly = False + Me.txtBis._TimeOnly = False + Me.txtBis._TimeOnly_Seconds = False + Me.txtBis._value = "" + Me.txtBis._Waehrung = False + Me.txtBis._WaehrungZeichen = False + Me.txtBis.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!) + Me.txtBis.ForeColor = System.Drawing.Color.Black + Me.txtBis.Location = New System.Drawing.Point(227, 9) + Me.txtBis.MaxLength = 10 + Me.txtBis.MaxLineLength = -1 + Me.txtBis.MaxLines_Warning = "" + Me.txtBis.MaxLines_Warning_Label = Nothing + Me.txtBis.Name = "txtBis" + Me.txtBis.Size = New System.Drawing.Size(100, 23) + Me.txtBis.TabIndex = 8 + ' 'Panel6 ' Me.Panel6.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) @@ -887,6 +1257,19 @@ Partial Class frmMDM_USTVAntrag Me.Label5.TabIndex = 0 Me.Label5.Text = "Status:" ' + 'cboStatus + ' + Me.cboStatus._allowedValuesFreiText = Nothing + Me.cboStatus._allowFreiText = False + Me.cboStatus._value = "" + Me.cboStatus.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) + Me.cboStatus.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!) + Me.cboStatus.FormattingEnabled = True + Me.cboStatus.Location = New System.Drawing.Point(76, 16) + Me.cboStatus.Name = "cboStatus" + Me.cboStatus.Size = New System.Drawing.Size(394, 28) + Me.cboStatus.TabIndex = 1 + ' 'lblFirma ' Me.lblFirma.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ @@ -950,6 +1333,27 @@ Partial Class frmMDM_USTVAntrag Me.TabPage1.Text = "Antragspositionen" Me.TabPage1.UseVisualStyleBackColor = True ' + 'dgvUSTVPositionen + ' + Me.dgvUSTVPositionen.AKTUALISIERUNGS_INTERVALL = 500 + Me.dgvUSTVPositionen.AllowUserToAddRows = False + Me.dgvUSTVPositionen.AllowUserToDeleteRows = False + DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvUSTVPositionen.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1 + Me.dgvUSTVPositionen.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ + Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.dgvUSTVPositionen.BackgroundColor = System.Drawing.Color.White + Me.dgvUSTVPositionen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.dgvUSTVPositionen.Location = New System.Drawing.Point(3, 3) + Me.dgvUSTVPositionen.Name = "dgvUSTVPositionen" + Me.dgvUSTVPositionen.ReadOnly = True + Me.dgvUSTVPositionen.RowHeadersVisible = False + Me.dgvUSTVPositionen.RowHeadersWidth = 62 + Me.dgvUSTVPositionen.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect + Me.dgvUSTVPositionen.Size = New System.Drawing.Size(1438, 169) + Me.dgvUSTVPositionen.TabIndex = 0 + ' 'pnlAntragsPosDetails ' Me.pnlAntragsPosDetails.Controls.Add(Me.Panel2) @@ -971,6 +1375,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 @@ -1034,6 +1446,27 @@ Partial Class frmMDM_USTVAntrag Me.Panel3.Size = New System.Drawing.Size(1438, 438) Me.Panel3.TabIndex = 3 ' + 'dgvErstattungspositionen + ' + Me.dgvErstattungspositionen.AKTUALISIERUNGS_INTERVALL = 500 + Me.dgvErstattungspositionen.AllowUserToAddRows = False + Me.dgvErstattungspositionen.AllowUserToDeleteRows = False + DataGridViewCellStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvErstattungspositionen.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2 + Me.dgvErstattungspositionen.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ + Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.dgvErstattungspositionen.BackgroundColor = System.Drawing.Color.White + Me.dgvErstattungspositionen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.dgvErstattungspositionen.Location = New System.Drawing.Point(3, 3) + Me.dgvErstattungspositionen.Name = "dgvErstattungspositionen" + Me.dgvErstattungspositionen.ReadOnly = True + 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.TabIndex = 1 + ' 'pnlErstattungsdetails ' Me.pnlErstattungsdetails.BackColor = System.Drawing.Color.WhiteSmoke @@ -1046,6 +1479,14 @@ Partial Class frmMDM_USTVAntrag 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 @@ -1096,447 +1537,6 @@ Partial Class frmMDM_USTVAntrag Me.ContextMenuStrip2.Name = "ContextMenuStrip1" Me.ContextMenuStrip2.Size = New System.Drawing.Size(61, 4) ' - 'KdSearchBox1 - ' - Me.KdSearchBox1._AlleFirmenCLUSTER = False - Me.KdSearchBox1._AllowSetValue = False - Me.KdSearchBox1._autoSizeGross = False - Me.KdSearchBox1._display_Name1 = False - Me.KdSearchBox1._displayAVISO_Email = False - Me.KdSearchBox1._displayFullName = False - Me.KdSearchBox1._displayWoelflKd = False - Me.KdSearchBox1._hideIfListEmpty = True - Me.KdSearchBox1._loadKdData = False - Me.KdSearchBox1._searchName1 = True - Me.KdSearchBox1._UseFIRMA = "" - Me.KdSearchBox1._ValueKdAndName = True - Me.KdSearchBox1.dgvpos = "LEFT" - Me.KdSearchBox1.KdName = Nothing - Me.KdSearchBox1.KdNr = "-1" - Me.KdSearchBox1.kdNrField = Nothing - Me.KdSearchBox1.KdNrNullInt = Nothing - Me.KdSearchBox1.Location = New System.Drawing.Point(298, 10) - Me.KdSearchBox1.Name = "KdSearchBox1" - Me.KdSearchBox1.nurAktive = True - Me.KdSearchBox1.searchActive = True - Me.KdSearchBox1.Size = New System.Drawing.Size(171, 20) - Me.KdSearchBox1.TabIndex = 22 - Me.KdSearchBox1.TIMER_SEARCH = True - Me.KdSearchBox1.usrcntl = Nothing - ' - 'cboAntragArt - ' - Me.cboAntragArt._allowedValuesFreiText = Nothing - Me.cboAntragArt._allowFreiText = False - Me.cboAntragArt._value = "" - Me.cboAntragArt.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) - Me.cboAntragArt.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold) - Me.cboAntragArt.FormattingEnabled = True - Me.cboAntragArt.Location = New System.Drawing.Point(83, 10) - Me.cboAntragArt.Name = "cboAntragArt" - Me.cboAntragArt.Size = New System.Drawing.Size(191, 28) - Me.cboAntragArt.TabIndex = 21 - Me.cboAntragArt.Text = "USTV-Antrag" - ' - 'cbxLand - ' - Me.cbxLand._allowedValuesFreiText = Nothing - Me.cbxLand._allowFreiText = False - Me.cbxLand._value = "" - Me.cbxLand.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) - Me.cbxLand.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold) - Me.cbxLand.FormattingEnabled = True - Me.cbxLand.Location = New System.Drawing.Point(0, 0) - Me.cbxLand.Name = "cbxLand" - Me.cbxLand.Size = New System.Drawing.Size(65, 28) - Me.cbxLand.TabIndex = 23 - Me.cbxLand.Text = "USTV-Antrag" - Me.cbxLand.Visible = False - ' - 'txtVZam - ' - Me.txtVZam._DateTimeOnly = False - Me.txtVZam._numbersOnly = False - Me.txtVZam._numbersOnlyKommastellen = "" - Me.txtVZam._numbersOnlyTrennzeichen = False - Me.txtVZam._Prozent = False - Me.txtVZam._ShortDateNew = False - Me.txtVZam._ShortDateOnly = True - Me.txtVZam._TimeOnly = False - Me.txtVZam._TimeOnly_Seconds = False - Me.txtVZam._value = "" - Me.txtVZam._Waehrung = False - Me.txtVZam._WaehrungZeichen = False - Me.txtVZam.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!) - Me.txtVZam.ForeColor = System.Drawing.Color.Black - Me.txtVZam.Location = New System.Drawing.Point(865, 60) - Me.txtVZam.MaxLength = 10 - Me.txtVZam.MaxLineLength = -1 - Me.txtVZam.MaxLines_Warning = "" - Me.txtVZam.MaxLines_Warning_Label = Nothing - Me.txtVZam.Name = "txtVZam" - Me.txtVZam.Size = New System.Drawing.Size(100, 23) - Me.txtVZam.TabIndex = 52 - ' - 'txtEingereichtAm - ' - Me.txtEingereichtAm._DateTimeOnly = False - Me.txtEingereichtAm._numbersOnly = False - Me.txtEingereichtAm._numbersOnlyKommastellen = "" - Me.txtEingereichtAm._numbersOnlyTrennzeichen = False - Me.txtEingereichtAm._Prozent = False - Me.txtEingereichtAm._ShortDateNew = False - Me.txtEingereichtAm._ShortDateOnly = True - Me.txtEingereichtAm._TimeOnly = False - Me.txtEingereichtAm._TimeOnly_Seconds = False - Me.txtEingereichtAm._value = "" - Me.txtEingereichtAm._Waehrung = False - Me.txtEingereichtAm._WaehrungZeichen = False - Me.txtEingereichtAm.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!) - Me.txtEingereichtAm.ForeColor = System.Drawing.Color.Black - Me.txtEingereichtAm.Location = New System.Drawing.Point(654, 60) - Me.txtEingereichtAm.MaxLength = 10 - Me.txtEingereichtAm.MaxLineLength = -1 - Me.txtEingereichtAm.MaxLines_Warning = "" - Me.txtEingereichtAm.MaxLines_Warning_Label = Nothing - Me.txtEingereichtAm.Name = "txtEingereichtAm" - Me.txtEingereichtAm.Size = New System.Drawing.Size(100, 23) - Me.txtEingereichtAm.TabIndex = 26 - ' - 'txtGueltig - ' - Me.txtGueltig._DateTimeOnly = False - Me.txtGueltig._numbersOnly = False - Me.txtGueltig._numbersOnlyKommastellen = "" - Me.txtGueltig._numbersOnlyTrennzeichen = False - Me.txtGueltig._Prozent = False - Me.txtGueltig._ShortDateNew = False - Me.txtGueltig._ShortDateOnly = True - Me.txtGueltig._TimeOnly = False - Me.txtGueltig._TimeOnly_Seconds = False - Me.txtGueltig._value = "" - Me.txtGueltig._Waehrung = False - Me.txtGueltig._WaehrungZeichen = False - Me.txtGueltig.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!) - Me.txtGueltig.ForeColor = System.Drawing.Color.Black - Me.txtGueltig.Location = New System.Drawing.Point(101, 61) - Me.txtGueltig.MaxLength = 10 - Me.txtGueltig.MaxLineLength = -1 - Me.txtGueltig.MaxLines_Warning = "" - Me.txtGueltig.MaxLines_Warning_Label = Nothing - Me.txtGueltig.Name = "txtGueltig" - Me.txtGueltig.Size = New System.Drawing.Size(100, 23) - Me.txtGueltig.TabIndex = 23 - ' - 'txtStNr - ' - Me.txtStNr._DateTimeOnly = False - Me.txtStNr._numbersOnly = False - Me.txtStNr._numbersOnlyKommastellen = "" - Me.txtStNr._numbersOnlyTrennzeichen = False - Me.txtStNr._Prozent = False - Me.txtStNr._ShortDateNew = False - Me.txtStNr._ShortDateOnly = False - Me.txtStNr._TimeOnly = False - Me.txtStNr._TimeOnly_Seconds = False - Me.txtStNr._value = "" - Me.txtStNr._Waehrung = False - Me.txtStNr._WaehrungZeichen = False - Me.txtStNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!) - Me.txtStNr.ForeColor = System.Drawing.Color.Black - Me.txtStNr.Location = New System.Drawing.Point(101, 36) - Me.txtStNr.MaxLength = 20 - Me.txtStNr.MaxLineLength = -1 - Me.txtStNr.MaxLines_Warning = "" - Me.txtStNr.MaxLines_Warning_Label = Nothing - Me.txtStNr.Name = "txtStNr" - Me.txtStNr.Size = New System.Drawing.Size(136, 23) - Me.txtStNr.TabIndex = 22 - ' - 'txtVZ - ' - Me.txtVZ._DateTimeOnly = False - Me.txtVZ._numbersOnly = True - Me.txtVZ._numbersOnlyKommastellen = "" - Me.txtVZ._numbersOnlyTrennzeichen = True - Me.txtVZ._Prozent = False - Me.txtVZ._ShortDateNew = False - Me.txtVZ._ShortDateOnly = False - Me.txtVZ._TimeOnly = False - Me.txtVZ._TimeOnly_Seconds = False - Me.txtVZ._value = "" - Me.txtVZ._Waehrung = True - Me.txtVZ._WaehrungZeichen = True - Me.txtVZ.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!) - Me.txtVZ.ForeColor = System.Drawing.Color.Black - Me.txtVZ.Location = New System.Drawing.Point(865, 31) - Me.txtVZ.MaxLength = 10 - Me.txtVZ.MaxLineLength = -1 - Me.txtVZ.MaxLines_Warning = "" - Me.txtVZ.MaxLines_Warning_Label = Nothing - Me.txtVZ.Name = "txtVZ" - Me.txtVZ.Size = New System.Drawing.Size(100, 23) - Me.txtVZ.TabIndex = 20 - ' - 'txtAbfNr - ' - Me.txtAbfNr._DateTimeOnly = False - Me.txtAbfNr._numbersOnly = True - Me.txtAbfNr._numbersOnlyKommastellen = "" - Me.txtAbfNr._numbersOnlyTrennzeichen = False - Me.txtAbfNr._Prozent = False - Me.txtAbfNr._ShortDateNew = False - Me.txtAbfNr._ShortDateOnly = False - Me.txtAbfNr._TimeOnly = False - Me.txtAbfNr._TimeOnly_Seconds = False - Me.txtAbfNr._value = "" - Me.txtAbfNr._Waehrung = False - Me.txtAbfNr._WaehrungZeichen = False - Me.txtAbfNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!) - Me.txtAbfNr.ForeColor = System.Drawing.Color.Red - Me.txtAbfNr.Location = New System.Drawing.Point(654, 33) - Me.txtAbfNr.MaxLength = 10 - Me.txtAbfNr.MaxLineLength = -1 - Me.txtAbfNr.MaxLines_Warning = "" - Me.txtAbfNr.MaxLines_Warning_Label = Nothing - Me.txtAbfNr.Name = "txtAbfNr" - Me.txtAbfNr.Size = New System.Drawing.Size(117, 23) - Me.txtAbfNr.TabIndex = 18 - ' - 'cbxFiliale - ' - Me.cbxFiliale._allowedValuesFreiText = Nothing - Me.cbxFiliale._allowFreiText = False - Me.cbxFiliale._value = "" - Me.cbxFiliale.DropDownWidth = 150 - Me.cbxFiliale.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.cbxFiliale.FormattingEnabled = True - Me.cbxFiliale.Location = New System.Drawing.Point(413, 32) - Me.cbxFiliale.Name = "cbxFiliale" - Me.cbxFiliale.Size = New System.Drawing.Size(105, 24) - Me.cbxFiliale.TabIndex = 16 - ' - 'txtBezugsNr - ' - Me.txtBezugsNr._DateTimeOnly = False - Me.txtBezugsNr._numbersOnly = True - Me.txtBezugsNr._numbersOnlyKommastellen = "" - Me.txtBezugsNr._numbersOnlyTrennzeichen = False - Me.txtBezugsNr._Prozent = False - Me.txtBezugsNr._ShortDateNew = False - Me.txtBezugsNr._ShortDateOnly = False - Me.txtBezugsNr._TimeOnly = False - Me.txtBezugsNr._TimeOnly_Seconds = False - Me.txtBezugsNr._value = "" - Me.txtBezugsNr._Waehrung = False - Me.txtBezugsNr._WaehrungZeichen = False - Me.txtBezugsNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!) - Me.txtBezugsNr.ForeColor = System.Drawing.Color.Red - Me.txtBezugsNr.Location = New System.Drawing.Point(654, 4) - Me.txtBezugsNr.MaxLength = 10 - Me.txtBezugsNr.MaxLineLength = -1 - Me.txtBezugsNr.MaxLines_Warning = "" - Me.txtBezugsNr.MaxLines_Warning_Label = Nothing - Me.txtBezugsNr.Name = "txtBezugsNr" - Me.txtBezugsNr.Size = New System.Drawing.Size(146, 23) - Me.txtBezugsNr.TabIndex = 14 - ' - 'cbxWahrung - ' - Me.cbxWahrung._allowedValuesFreiText = Nothing - Me.cbxWahrung._allowFreiText = False - Me.cbxWahrung._value = "" - Me.cbxWahrung.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.cbxWahrung.FormattingEnabled = True - Me.cbxWahrung.Location = New System.Drawing.Point(431, 4) - Me.cbxWahrung.Name = "cbxWahrung" - Me.cbxWahrung.Size = New System.Drawing.Size(87, 24) - Me.cbxWahrung.TabIndex = 12 - ' - '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(865, 2) - 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 = 10 - ' - 'txtVon - ' - Me.txtVon._DateTimeOnly = False - Me.txtVon._numbersOnly = False - Me.txtVon._numbersOnlyKommastellen = "" - Me.txtVon._numbersOnlyTrennzeichen = False - Me.txtVon._Prozent = False - Me.txtVon._ShortDateNew = True - Me.txtVon._ShortDateOnly = False - Me.txtVon._TimeOnly = False - Me.txtVon._TimeOnly_Seconds = False - Me.txtVon._value = "" - Me.txtVon._Waehrung = False - Me.txtVon._WaehrungZeichen = False - Me.txtVon.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!) - Me.txtVon.ForeColor = System.Drawing.Color.Black - Me.txtVon.Location = New System.Drawing.Point(101, 9) - Me.txtVon.MaxLength = 10 - Me.txtVon.MaxLineLength = -1 - Me.txtVon.MaxLines_Warning = "" - Me.txtVon.MaxLines_Warning_Label = Nothing - Me.txtVon.Name = "txtVon" - Me.txtVon.Size = New System.Drawing.Size(100, 23) - Me.txtVon.TabIndex = 6 - ' - 'txtBis - ' - Me.txtBis._DateTimeOnly = False - Me.txtBis._numbersOnly = False - Me.txtBis._numbersOnlyKommastellen = "" - Me.txtBis._numbersOnlyTrennzeichen = False - Me.txtBis._Prozent = False - Me.txtBis._ShortDateNew = True - Me.txtBis._ShortDateOnly = False - Me.txtBis._TimeOnly = False - Me.txtBis._TimeOnly_Seconds = False - Me.txtBis._value = "" - Me.txtBis._Waehrung = False - Me.txtBis._WaehrungZeichen = False - Me.txtBis.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!) - Me.txtBis.ForeColor = System.Drawing.Color.Black - Me.txtBis.Location = New System.Drawing.Point(227, 9) - Me.txtBis.MaxLength = 10 - Me.txtBis.MaxLineLength = -1 - Me.txtBis.MaxLines_Warning = "" - Me.txtBis.MaxLines_Warning_Label = Nothing - Me.txtBis.Name = "txtBis" - Me.txtBis.Size = New System.Drawing.Size(100, 23) - Me.txtBis.TabIndex = 8 - ' - 'cboStatus - ' - Me.cboStatus._allowedValuesFreiText = Nothing - Me.cboStatus._allowFreiText = False - Me.cboStatus._value = "" - Me.cboStatus.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) - Me.cboStatus.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!) - Me.cboStatus.FormattingEnabled = True - Me.cboStatus.Location = New System.Drawing.Point(76, 16) - Me.cboStatus.Name = "cboStatus" - Me.cboStatus.Size = New System.Drawing.Size(394, 28) - Me.cboStatus.TabIndex = 1 - ' - 'dgvUSTVPositionen - ' - Me.dgvUSTVPositionen.AKTUALISIERUNGS_INTERVALL = 500 - Me.dgvUSTVPositionen.AllowUserToAddRows = False - Me.dgvUSTVPositionen.AllowUserToDeleteRows = False - DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.dgvUSTVPositionen.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1 - Me.dgvUSTVPositionen.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ - Or System.Windows.Forms.AnchorStyles.Left) _ - Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.dgvUSTVPositionen.BackgroundColor = System.Drawing.Color.White - Me.dgvUSTVPositionen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - Me.dgvUSTVPositionen.Location = New System.Drawing.Point(3, 3) - Me.dgvUSTVPositionen.Name = "dgvUSTVPositionen" - Me.dgvUSTVPositionen.ReadOnly = True - Me.dgvUSTVPositionen.RowHeadersVisible = False - Me.dgvUSTVPositionen.RowHeadersWidth = 62 - Me.dgvUSTVPositionen.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect - Me.dgvUSTVPositionen.Size = New System.Drawing.Size(1438, 169) - Me.dgvUSTVPositionen.TabIndex = 0 - ' - 'dgvErstattungspositionen - ' - Me.dgvErstattungspositionen.AKTUALISIERUNGS_INTERVALL = 500 - Me.dgvErstattungspositionen.AllowUserToAddRows = False - Me.dgvErstattungspositionen.AllowUserToDeleteRows = False - DataGridViewCellStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.dgvErstattungspositionen.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2 - Me.dgvErstattungspositionen.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ - Or System.Windows.Forms.AnchorStyles.Left) _ - Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.dgvErstattungspositionen.BackgroundColor = System.Drawing.Color.White - Me.dgvErstattungspositionen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - Me.dgvErstattungspositionen.Location = New System.Drawing.Point(3, 3) - Me.dgvErstattungspositionen.Name = "dgvErstattungspositionen" - Me.dgvErstattungspositionen.ReadOnly = True - 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.TabIndex = 1 - ' - 'txtSumme - ' - Me.txtSumme._DateTimeOnly = False - Me.txtSumme._numbersOnly = False - Me.txtSumme._numbersOnlyKommastellen = "" - Me.txtSumme._numbersOnlyTrennzeichen = False - Me.txtSumme._Prozent = False - Me.txtSumme._ShortDateNew = False - Me.txtSumme._ShortDateOnly = False - Me.txtSumme._TimeOnly = False - Me.txtSumme._TimeOnly_Seconds = False - Me.txtSumme._value = "" - Me.txtSumme._Waehrung = True - Me.txtSumme._WaehrungZeichen = True - Me.txtSumme.ForeColor = System.Drawing.Color.Black - Me.txtSumme.Location = New System.Drawing.Point(1158, 67) - Me.txtSumme.MaxLineLength = -1 - Me.txtSumme.MaxLines_Warning = "" - Me.txtSumme.MaxLines_Warning_Label = Nothing - Me.txtSumme.Name = "txtSumme" - Me.txtSumme.ReadOnly = True - Me.txtSumme.Size = New System.Drawing.Size(88, 20) - Me.txtSumme.TabIndex = 49 - Me.txtSumme.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - ' - '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 - ' - 'Button5 - ' - Me.Button5.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button5.ForeColor = System.Drawing.Color.Black - Me.Button5.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button5.Location = New System.Drawing.Point(869, 17) - Me.Button5.Name = "Button5" - Me.Button5.Size = New System.Drawing.Size(103, 39) - Me.Button5.TabIndex = 50 - Me.Button5.Text = "Gutschrift" - Me.Button5.UseVisualStyleBackColor = True - Me.Button5.Visible = False - ' 'frmMDM_USTVAntrag ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) @@ -1568,15 +1568,15 @@ Partial Class frmMDM_USTVAntrag Me.pnlBody.ResumeLayout(False) Me.TabControl1.ResumeLayout(False) Me.TabPage1.ResumeLayout(False) + CType(Me.dgvUSTVPositionen, System.ComponentModel.ISupportInitialize).EndInit() Me.pnlAntragsPosDetails.ResumeLayout(False) Me.Panel2.ResumeLayout(False) Me.Panel4.ResumeLayout(False) Me.TabPage2.ResumeLayout(False) Me.Panel3.ResumeLayout(False) + CType(Me.dgvErstattungspositionen, System.ComponentModel.ISupportInitialize).EndInit() Me.pnlErstattungsdetails.ResumeLayout(False) Me.Panel1.ResumeLayout(False) - CType(Me.dgvUSTVPositionen, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.dgvErstattungspositionen, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) End Sub diff --git a/SDL/USTV/frmMDM_USTVAntrag.vb b/SDL/USTV/frmMDM_USTVAntrag.vb index 233cc5b9..55573829 100644 --- a/SDL/USTV/frmMDM_USTVAntrag.vb +++ b/SDL/USTV/frmMDM_USTVAntrag.vb @@ -1335,10 +1335,10 @@ Public Class frmMDM_USTVAntrag Exit Sub End If - If cbxWahrung.SelectedValue Is Nothing Then + If cbxWahrung.SelectedItem Is Nothing Then USTV_ANTRAG.UStVAn_Währungscode = SQL.DLookup("Währungscode", "[Länderverzeichnis für die Außenhandelsstatistik]", "Landnr='" & USTV_ANTRAG.UStVAn_LandNr & "'", "FMZOLL") Else - USTV_ANTRAG.UStVAn_Währungscode = cbxWahrung.SelectedValue + USTV_ANTRAG.UStVAn_Währungscode = cbxWahrung.SelectedItem.Text End If If Not (IsDate(txtVon._value) AndAlso IsDate(txtBis._value)) Then @@ -2742,6 +2742,10 @@ Public Class frmMDM_USTVAntrag End Sub + Private Sub cbxWahrung_SelectedValueChanged(sender As Object, e As EventArgs) Handles cbxWahrung.SelectedValueChanged + + End Sub + Private Sub calcSumme() Dim countSumme As Double = 0