From f01ca8b53a69c45649093397710ae759572bd911 Mon Sep 17 00:00:00 2001 From: Andreas Luxbauer Date: Wed, 16 Nov 2022 09:08:46 +0100 Subject: [PATCH] =?UTF-8?q?USTV-Anh=C3=A4nge=20Rechnungen?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- SDL/USTV/frmMDM_USTVAntrag.Designer.vb | 611 +++++++++--------- SDL/USTV/frmMDM_USTVAntrag.vb | 2 +- SDL/USTV/ustCntlUSTV_AntragPosition.vb | 19 +- .../usrcntlPDFScanList.vb | 5 + 4 files changed, 329 insertions(+), 308 deletions(-) diff --git a/SDL/USTV/frmMDM_USTVAntrag.Designer.vb b/SDL/USTV/frmMDM_USTVAntrag.Designer.vb index 519a823b..458b074f 100644 --- a/SDL/USTV/frmMDM_USTVAntrag.Designer.vb +++ b/SDL/USTV/frmMDM_USTVAntrag.Designer.vb @@ -31,8 +31,23 @@ Partial Class frmMDM_USTVAntrag Me.Button1 = New System.Windows.Forms.Button() Me.lblPLOSE_EintrageVerarbetiet = New System.Windows.Forms.Label() Me.Panel1 = New System.Windows.Forms.Panel() - Me.Label6 = New System.Windows.Forms.Label() + Me.lblKdNr = New System.Windows.Forms.Label() + Me.Panel9 = New System.Windows.Forms.Panel() + Me.lblLand = New System.Windows.Forms.Label() + Me.Panel8 = New System.Windows.Forms.Panel() + Me.Label3 = New System.Windows.Forms.Label() + Me.lblZeitraum = New System.Windows.Forms.Label() + Me.Panel6 = New System.Windows.Forms.Panel() + Me.lblGesamtUSteuer = New System.Windows.Forms.Label() + Me.Label12 = New System.Windows.Forms.Label() + Me.lblDiffernezbetrag = New System.Windows.Forms.Label() + Me.Label10 = New System.Windows.Forms.Label() + Me.lblGesamtErstattung = New System.Windows.Forms.Label() + Me.Label7 = New System.Windows.Forms.Label() Me.Panel5 = New System.Windows.Forms.Panel() + Me.Panel7 = New System.Windows.Forms.Panel() + Me.Label6 = New System.Windows.Forms.Label() + Me.rtbStatusText = New System.Windows.Forms.RichTextBox() Me.FlowLayoutPanel = New System.Windows.Forms.FlowLayoutPanel() Me.btnBearb = New System.Windows.Forms.Button() Me.btnUnvollst = New System.Windows.Forms.Button() @@ -44,46 +59,31 @@ 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.txtBis = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtVon = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.rtbStatusText = New System.Windows.Forms.RichTextBox() - Me.Label3 = New System.Windows.Forms.Label() - Me.lblZeitraum = New System.Windows.Forms.Label() Me.lblFirma = New System.Windows.Forms.Label() Me.Label1 = New System.Windows.Forms.Label() Me.pnlFilter = New System.Windows.Forms.Panel() - Me.dgvUSTVPositionen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) Me.pnl = New System.Windows.Forms.Panel() Me.Panel2 = New System.Windows.Forms.Panel() Me.Panel4 = New System.Windows.Forms.Panel() Me.Button3 = New System.Windows.Forms.Button() Me.Button2 = New System.Windows.Forms.Button() - Me.Label7 = New System.Windows.Forms.Label() - Me.lblGesamtErstattung = New System.Windows.Forms.Label() - Me.lblDiffernezbetrag = New System.Windows.Forms.Label() - Me.Label10 = New System.Windows.Forms.Label() - Me.lblGesamtUSteuer = New System.Windows.Forms.Label() - Me.Label12 = New System.Windows.Forms.Label() + Me.dgvUSTVPositionen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) + Me.txtVon = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtBis = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.cboStatus = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.UstCntlUSTV_AntragPosition1 = New SDL.ustCntlUSTV_AntragPosition() - Me.Panel6 = New System.Windows.Forms.Panel() - Me.lblLand = New System.Windows.Forms.Label() - Me.Panel7 = New System.Windows.Forms.Panel() - Me.Panel8 = New System.Windows.Forms.Panel() - Me.Panel9 = New System.Windows.Forms.Panel() - Me.lblKdNr = New System.Windows.Forms.Label() Me.Panel3.SuspendLayout() Me.Panel1.SuspendLayout() + Me.Panel9.SuspendLayout() + Me.Panel8.SuspendLayout() Me.Panel5.SuspendLayout() + Me.Panel7.SuspendLayout() Me.FlowLayoutPanel.SuspendLayout() Me.pnlFilter.SuspendLayout() - CType(Me.dgvUSTVPositionen, System.ComponentModel.ISupportInitialize).BeginInit() Me.pnl.SuspendLayout() Me.Panel2.SuspendLayout() Me.Panel4.SuspendLayout() - Me.Panel7.SuspendLayout() - Me.Panel8.SuspendLayout() - Me.Panel9.SuspendLayout() + CType(Me.dgvUSTVPositionen, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' 'Panel3 @@ -172,17 +172,176 @@ Partial Class frmMDM_USTVAntrag Me.Panel1.Size = New System.Drawing.Size(1454, 177) Me.Panel1.TabIndex = 0 ' - 'Label6 + 'lblKdNr ' - Me.Label6.AutoSize = True - Me.Label6.BackColor = System.Drawing.Color.Transparent - Me.Label6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) - Me.Label6.ForeColor = System.Drawing.Color.Black - Me.Label6.Location = New System.Drawing.Point(4, 10) - Me.Label6.Name = "Label6" - Me.Label6.Size = New System.Drawing.Size(57, 13) - Me.Label6.TabIndex = 1 - Me.Label6.Text = "Statusinfo:" + Me.lblKdNr.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lblKdNr.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.lblKdNr.Cursor = System.Windows.Forms.Cursors.Default + Me.lblKdNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblKdNr.ForeColor = System.Drawing.Color.White + Me.lblKdNr.Location = New System.Drawing.Point(79, 65) + Me.lblKdNr.Name = "lblKdNr" + Me.lblKdNr.Size = New System.Drawing.Size(432, 18) + Me.lblKdNr.TabIndex = 21 + Me.lblKdNr.Text = "0000000" + ' + 'Panel9 + ' + Me.Panel9.Controls.Add(Me.lblLand) + Me.Panel9.Dock = System.Windows.Forms.DockStyle.Left + Me.Panel9.Location = New System.Drawing.Point(0, 0) + Me.Panel9.Name = "Panel9" + Me.Panel9.Size = New System.Drawing.Size(65, 90) + Me.Panel9.TabIndex = 20 + ' + 'lblLand + ' + Me.lblLand.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) + Me.lblLand.Cursor = System.Windows.Forms.Cursors.Hand + Me.lblLand.Dock = System.Windows.Forms.DockStyle.Fill + Me.lblLand.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!, System.Drawing.FontStyle.Bold) + Me.lblLand.ForeColor = System.Drawing.Color.Black + Me.lblLand.Location = New System.Drawing.Point(0, 0) + Me.lblLand.Name = "lblLand" + Me.lblLand.Size = New System.Drawing.Size(65, 90) + Me.lblLand.TabIndex = 11 + Me.lblLand.Text = "AT" + Me.lblLand.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'Panel8 + ' + Me.Panel8.BackColor = System.Drawing.Color.WhiteSmoke + Me.Panel8.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.Panel8.Controls.Add(Me.Label3) + Me.Panel8.Controls.Add(Me.lblZeitraum) + Me.Panel8.Controls.Add(Me.txtVon) + Me.Panel8.Controls.Add(Me.txtBis) + Me.Panel8.Dock = System.Windows.Forms.DockStyle.Bottom + Me.Panel8.Location = New System.Drawing.Point(0, 90) + Me.Panel8.Name = "Panel8" + Me.Panel8.Size = New System.Drawing.Size(973, 87) + Me.Panel8.TabIndex = 19 + ' + 'Label3 + ' + Me.Label3.AutoSize = True + Me.Label3.BackColor = System.Drawing.Color.Transparent + Me.Label3.Cursor = System.Windows.Forms.Cursors.Hand + Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label3.ForeColor = System.Drawing.Color.Black + Me.Label3.Location = New System.Drawing.Point(10, 13) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(68, 17) + Me.Label3.TabIndex = 5 + Me.Label3.Text = "Zeitraum:" + ' + 'lblZeitraum + ' + Me.lblZeitraum.AutoSize = True + Me.lblZeitraum.BackColor = System.Drawing.Color.Transparent + Me.lblZeitraum.Cursor = System.Windows.Forms.Cursors.Hand + Me.lblZeitraum.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblZeitraum.ForeColor = System.Drawing.Color.Black + Me.lblZeitraum.Location = New System.Drawing.Point(207, 12) + Me.lblZeitraum.Name = "lblZeitraum" + Me.lblZeitraum.Size = New System.Drawing.Size(14, 17) + Me.lblZeitraum.TabIndex = 7 + Me.lblZeitraum.Text = "-" + ' + 'Panel6 + ' + Me.Panel6.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.Panel6.BackColor = System.Drawing.Color.White + Me.Panel6.ForeColor = System.Drawing.Color.White + Me.Panel6.Location = New System.Drawing.Point(676, 56) + Me.Panel6.Name = "Panel6" + Me.Panel6.Size = New System.Drawing.Size(290, 1) + Me.Panel6.TabIndex = 18 + ' + 'lblGesamtUSteuer + ' + Me.lblGesamtUSteuer.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lblGesamtUSteuer.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.lblGesamtUSteuer.Cursor = System.Windows.Forms.Cursors.Default + Me.lblGesamtUSteuer.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold) + Me.lblGesamtUSteuer.ForeColor = System.Drawing.Color.White + Me.lblGesamtUSteuer.Location = New System.Drawing.Point(826, 16) + Me.lblGesamtUSteuer.Name = "lblGesamtUSteuer" + Me.lblGesamtUSteuer.Size = New System.Drawing.Size(133, 17) + Me.lblGesamtUSteuer.TabIndex = 17 + Me.lblGesamtUSteuer.Text = "000.000,00 €" + Me.lblGesamtUSteuer.TextAlign = System.Drawing.ContentAlignment.TopRight + ' + 'Label12 + ' + Me.Label12.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.Label12.AutoSize = True + Me.Label12.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.Label12.Cursor = System.Windows.Forms.Cursors.Default + Me.Label12.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!) + Me.Label12.ForeColor = System.Drawing.Color.White + Me.Label12.Location = New System.Drawing.Point(684, 16) + Me.Label12.Name = "Label12" + Me.Label12.Size = New System.Drawing.Size(136, 15) + Me.Label12.TabIndex = 16 + Me.Label12.Text = "Gesamtbetrag USteuer:" + ' + 'lblDiffernezbetrag + ' + Me.lblDiffernezbetrag.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lblDiffernezbetrag.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.lblDiffernezbetrag.Cursor = System.Windows.Forms.Cursors.Default + Me.lblDiffernezbetrag.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold) + Me.lblDiffernezbetrag.ForeColor = System.Drawing.Color.White + Me.lblDiffernezbetrag.Location = New System.Drawing.Point(826, 59) + Me.lblDiffernezbetrag.Name = "lblDiffernezbetrag" + Me.lblDiffernezbetrag.Size = New System.Drawing.Size(133, 17) + Me.lblDiffernezbetrag.TabIndex = 15 + Me.lblDiffernezbetrag.Text = "000.000,00 €" + Me.lblDiffernezbetrag.TextAlign = System.Drawing.ContentAlignment.TopRight + ' + 'Label10 + ' + Me.Label10.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.Label10.AutoSize = True + Me.Label10.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.Label10.Cursor = System.Windows.Forms.Cursors.Default + Me.Label10.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!) + Me.Label10.ForeColor = System.Drawing.Color.White + Me.Label10.Location = New System.Drawing.Point(684, 59) + Me.Label10.Name = "Label10" + Me.Label10.Size = New System.Drawing.Size(94, 15) + Me.Label10.TabIndex = 14 + Me.Label10.Text = "Differenzbetrag:" + ' + 'lblGesamtErstattung + ' + Me.lblGesamtErstattung.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lblGesamtErstattung.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.lblGesamtErstattung.Cursor = System.Windows.Forms.Cursors.Default + Me.lblGesamtErstattung.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold) + Me.lblGesamtErstattung.ForeColor = System.Drawing.Color.White + Me.lblGesamtErstattung.Location = New System.Drawing.Point(826, 36) + Me.lblGesamtErstattung.Name = "lblGesamtErstattung" + Me.lblGesamtErstattung.Size = New System.Drawing.Size(133, 17) + Me.lblGesamtErstattung.TabIndex = 13 + Me.lblGesamtErstattung.Text = "000.000,00 €" + Me.lblGesamtErstattung.TextAlign = System.Drawing.ContentAlignment.TopRight + ' + 'Label7 + ' + 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.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.Label7.Cursor = System.Windows.Forms.Cursors.Default + Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!) + Me.Label7.ForeColor = System.Drawing.Color.White + Me.Label7.Location = New System.Drawing.Point(684, 36) + Me.Label7.Name = "Label7" + Me.Label7.Size = New System.Drawing.Size(146, 15) + Me.Label7.TabIndex = 12 + Me.Label7.Text = "Gesamtbetrag Erstattung:" ' 'Panel5 ' @@ -198,6 +357,37 @@ Partial Class frmMDM_USTVAntrag Me.Panel5.Size = New System.Drawing.Size(481, 177) Me.Panel5.TabIndex = 9 ' + 'Panel7 + ' + Me.Panel7.Controls.Add(Me.Label6) + Me.Panel7.Controls.Add(Me.rtbStatusText) + Me.Panel7.Dock = System.Windows.Forms.DockStyle.Bottom + Me.Panel7.Location = New System.Drawing.Point(0, 50) + Me.Panel7.Name = "Panel7" + Me.Panel7.Size = New System.Drawing.Size(481, 69) + Me.Panel7.TabIndex = 20 + ' + 'Label6 + ' + Me.Label6.AutoSize = True + Me.Label6.BackColor = System.Drawing.Color.Transparent + Me.Label6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) + Me.Label6.ForeColor = System.Drawing.Color.Black + Me.Label6.Location = New System.Drawing.Point(4, 10) + Me.Label6.Name = "Label6" + Me.Label6.Size = New System.Drawing.Size(57, 13) + Me.Label6.TabIndex = 1 + Me.Label6.Text = "Statusinfo:" + ' + 'rtbStatusText + ' + Me.rtbStatusText.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.rtbStatusText.Location = New System.Drawing.Point(76, 7) + Me.rtbStatusText.Name = "rtbStatusText" + Me.rtbStatusText.Size = New System.Drawing.Size(394, 44) + Me.rtbStatusText.TabIndex = 4 + Me.rtbStatusText.Text = "" + ' 'FlowLayoutPanel ' Me.FlowLayoutPanel.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) @@ -354,104 +544,6 @@ 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 - ' - 'txtBis - ' - Me.txtBis._DateTimeOnly = False - Me.txtBis._numbersOnly = False - Me.txtBis._numbersOnlyKommastellen = "" - Me.txtBis._numbersOnlyTrennzeichen = True - 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 = True - 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, 10) - 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 - ' - 'txtVon - ' - Me.txtVon._DateTimeOnly = False - Me.txtVon._numbersOnly = False - Me.txtVon._numbersOnlyKommastellen = "" - Me.txtVon._numbersOnlyTrennzeichen = True - 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 = True - 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, 10) - 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 - ' - 'rtbStatusText - ' - Me.rtbStatusText.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.rtbStatusText.Location = New System.Drawing.Point(76, 7) - Me.rtbStatusText.Name = "rtbStatusText" - Me.rtbStatusText.Size = New System.Drawing.Size(394, 44) - Me.rtbStatusText.TabIndex = 4 - Me.rtbStatusText.Text = "" - ' - 'Label3 - ' - Me.Label3.AutoSize = True - Me.Label3.BackColor = System.Drawing.Color.Transparent - Me.Label3.Cursor = System.Windows.Forms.Cursors.Hand - Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label3.ForeColor = System.Drawing.Color.Black - Me.Label3.Location = New System.Drawing.Point(10, 13) - Me.Label3.Name = "Label3" - Me.Label3.Size = New System.Drawing.Size(68, 17) - Me.Label3.TabIndex = 5 - Me.Label3.Text = "Zeitraum:" - ' - 'lblZeitraum - ' - Me.lblZeitraum.AutoSize = True - Me.lblZeitraum.BackColor = System.Drawing.Color.Transparent - Me.lblZeitraum.Cursor = System.Windows.Forms.Cursors.Hand - Me.lblZeitraum.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.lblZeitraum.ForeColor = System.Drawing.Color.Black - Me.lblZeitraum.Location = New System.Drawing.Point(207, 12) - Me.lblZeitraum.Name = "lblZeitraum" - Me.lblZeitraum.Size = New System.Drawing.Size(14, 17) - Me.lblZeitraum.TabIndex = 7 - Me.lblZeitraum.Text = "-" - ' 'lblFirma ' Me.lblFirma.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ @@ -489,26 +581,6 @@ Partial Class frmMDM_USTVAntrag Me.pnlFilter.Size = New System.Drawing.Size(1454, 267) Me.pnlFilter.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.BackgroundColor = System.Drawing.Color.White - Me.dgvUSTVPositionen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - Me.dgvUSTVPositionen.Dock = System.Windows.Forms.DockStyle.Fill - Me.dgvUSTVPositionen.Location = New System.Drawing.Point(0, 0) - Me.dgvUSTVPositionen.MultiSelect = False - 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(1452, 265) - Me.dgvUSTVPositionen.TabIndex = 0 - ' 'pnl ' Me.pnl.Controls.Add(Me.Panel2) @@ -525,7 +597,6 @@ Partial Class frmMDM_USTVAntrag Me.Panel2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle Me.Panel2.Controls.Add(Me.UstCntlUSTV_AntragPosition1) Me.Panel2.Dock = System.Windows.Forms.DockStyle.Fill - Me.Panel2.Enabled = False Me.Panel2.Location = New System.Drawing.Point(154, 0) Me.Panel2.Name = "Panel2" Me.Panel2.Size = New System.Drawing.Size(1300, 269) @@ -573,89 +644,88 @@ Partial Class frmMDM_USTVAntrag Me.Button2.TextAlign = System.Drawing.ContentAlignment.MiddleRight Me.Button2.UseVisualStyleBackColor = True ' - 'Label7 + 'dgvUSTVPositionen ' - 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.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.Label7.Cursor = System.Windows.Forms.Cursors.Default - Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!) - Me.Label7.ForeColor = System.Drawing.Color.White - Me.Label7.Location = New System.Drawing.Point(684, 36) - Me.Label7.Name = "Label7" - Me.Label7.Size = New System.Drawing.Size(146, 15) - Me.Label7.TabIndex = 12 - Me.Label7.Text = "Gesamtbetrag Erstattung:" + 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.BackgroundColor = System.Drawing.Color.White + Me.dgvUSTVPositionen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.dgvUSTVPositionen.Dock = System.Windows.Forms.DockStyle.Fill + Me.dgvUSTVPositionen.Location = New System.Drawing.Point(0, 0) + Me.dgvUSTVPositionen.MultiSelect = False + 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(1452, 265) + Me.dgvUSTVPositionen.TabIndex = 0 ' - 'lblGesamtErstattung + 'txtVon ' - Me.lblGesamtErstattung.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.lblGesamtErstattung.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.lblGesamtErstattung.Cursor = System.Windows.Forms.Cursors.Default - Me.lblGesamtErstattung.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold) - Me.lblGesamtErstattung.ForeColor = System.Drawing.Color.White - Me.lblGesamtErstattung.Location = New System.Drawing.Point(826, 36) - Me.lblGesamtErstattung.Name = "lblGesamtErstattung" - Me.lblGesamtErstattung.Size = New System.Drawing.Size(133, 17) - Me.lblGesamtErstattung.TabIndex = 13 - Me.lblGesamtErstattung.Text = "000.000,00 €" - Me.lblGesamtErstattung.TextAlign = System.Drawing.ContentAlignment.TopRight + Me.txtVon._DateTimeOnly = False + Me.txtVon._numbersOnly = False + Me.txtVon._numbersOnlyKommastellen = "" + Me.txtVon._numbersOnlyTrennzeichen = True + 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 = True + 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, 10) + 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 ' - 'lblDiffernezbetrag + 'txtBis ' - Me.lblDiffernezbetrag.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.lblDiffernezbetrag.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.lblDiffernezbetrag.Cursor = System.Windows.Forms.Cursors.Default - Me.lblDiffernezbetrag.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold) - Me.lblDiffernezbetrag.ForeColor = System.Drawing.Color.White - Me.lblDiffernezbetrag.Location = New System.Drawing.Point(826, 59) - Me.lblDiffernezbetrag.Name = "lblDiffernezbetrag" - Me.lblDiffernezbetrag.Size = New System.Drawing.Size(133, 17) - Me.lblDiffernezbetrag.TabIndex = 15 - Me.lblDiffernezbetrag.Text = "000.000,00 €" - Me.lblDiffernezbetrag.TextAlign = System.Drawing.ContentAlignment.TopRight + Me.txtBis._DateTimeOnly = False + Me.txtBis._numbersOnly = False + Me.txtBis._numbersOnlyKommastellen = "" + Me.txtBis._numbersOnlyTrennzeichen = True + 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 = True + 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, 10) + 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 ' - 'Label10 + 'cboStatus ' - Me.Label10.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.Label10.AutoSize = True - Me.Label10.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.Label10.Cursor = System.Windows.Forms.Cursors.Default - Me.Label10.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!) - Me.Label10.ForeColor = System.Drawing.Color.White - Me.Label10.Location = New System.Drawing.Point(684, 59) - Me.Label10.Name = "Label10" - Me.Label10.Size = New System.Drawing.Size(94, 15) - Me.Label10.TabIndex = 14 - Me.Label10.Text = "Differenzbetrag:" - ' - 'lblGesamtUSteuer - ' - Me.lblGesamtUSteuer.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.lblGesamtUSteuer.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.lblGesamtUSteuer.Cursor = System.Windows.Forms.Cursors.Default - Me.lblGesamtUSteuer.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold) - Me.lblGesamtUSteuer.ForeColor = System.Drawing.Color.White - Me.lblGesamtUSteuer.Location = New System.Drawing.Point(826, 16) - Me.lblGesamtUSteuer.Name = "lblGesamtUSteuer" - Me.lblGesamtUSteuer.Size = New System.Drawing.Size(133, 17) - Me.lblGesamtUSteuer.TabIndex = 17 - Me.lblGesamtUSteuer.Text = "000.000,00 €" - Me.lblGesamtUSteuer.TextAlign = System.Drawing.ContentAlignment.TopRight - ' - 'Label12 - ' - Me.Label12.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.Label12.AutoSize = True - Me.Label12.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.Label12.Cursor = System.Windows.Forms.Cursors.Default - Me.Label12.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!) - Me.Label12.ForeColor = System.Drawing.Color.White - Me.Label12.Location = New System.Drawing.Point(684, 16) - Me.Label12.Name = "Label12" - Me.Label12.Size = New System.Drawing.Size(136, 15) - Me.Label12.TabIndex = 16 - Me.Label12.Text = "Gesamtbetrag USteuer:" + 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 ' 'UstCntlUSTV_AntragPosition1 ' @@ -665,77 +735,6 @@ Partial Class frmMDM_USTVAntrag Me.UstCntlUSTV_AntragPosition1.Size = New System.Drawing.Size(1298, 267) Me.UstCntlUSTV_AntragPosition1.TabIndex = 0 ' - 'Panel6 - ' - Me.Panel6.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.Panel6.BackColor = System.Drawing.Color.White - Me.Panel6.ForeColor = System.Drawing.Color.White - Me.Panel6.Location = New System.Drawing.Point(676, 56) - Me.Panel6.Name = "Panel6" - Me.Panel6.Size = New System.Drawing.Size(290, 1) - Me.Panel6.TabIndex = 18 - ' - 'lblLand - ' - Me.lblLand.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) - Me.lblLand.Cursor = System.Windows.Forms.Cursors.Hand - Me.lblLand.Dock = System.Windows.Forms.DockStyle.Fill - Me.lblLand.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!, System.Drawing.FontStyle.Bold) - Me.lblLand.ForeColor = System.Drawing.Color.Black - Me.lblLand.Location = New System.Drawing.Point(0, 0) - Me.lblLand.Name = "lblLand" - Me.lblLand.Size = New System.Drawing.Size(65, 90) - Me.lblLand.TabIndex = 11 - Me.lblLand.Text = "AT" - Me.lblLand.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'Panel7 - ' - Me.Panel7.Controls.Add(Me.Label6) - Me.Panel7.Controls.Add(Me.rtbStatusText) - Me.Panel7.Dock = System.Windows.Forms.DockStyle.Bottom - Me.Panel7.Location = New System.Drawing.Point(0, 50) - Me.Panel7.Name = "Panel7" - Me.Panel7.Size = New System.Drawing.Size(481, 69) - Me.Panel7.TabIndex = 20 - ' - 'Panel8 - ' - Me.Panel8.BackColor = System.Drawing.Color.WhiteSmoke - Me.Panel8.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.Panel8.Controls.Add(Me.Label3) - Me.Panel8.Controls.Add(Me.lblZeitraum) - Me.Panel8.Controls.Add(Me.txtVon) - Me.Panel8.Controls.Add(Me.txtBis) - Me.Panel8.Dock = System.Windows.Forms.DockStyle.Bottom - Me.Panel8.Location = New System.Drawing.Point(0, 90) - Me.Panel8.Name = "Panel8" - Me.Panel8.Size = New System.Drawing.Size(973, 87) - Me.Panel8.TabIndex = 19 - ' - 'Panel9 - ' - Me.Panel9.Controls.Add(Me.lblLand) - Me.Panel9.Dock = System.Windows.Forms.DockStyle.Left - Me.Panel9.Location = New System.Drawing.Point(0, 0) - Me.Panel9.Name = "Panel9" - Me.Panel9.Size = New System.Drawing.Size(65, 90) - Me.Panel9.TabIndex = 20 - ' - 'lblKdNr - ' - Me.lblKdNr.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ - Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.lblKdNr.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.lblKdNr.Cursor = System.Windows.Forms.Cursors.Default - Me.lblKdNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.lblKdNr.ForeColor = System.Drawing.Color.White - Me.lblKdNr.Location = New System.Drawing.Point(79, 65) - Me.lblKdNr.Name = "lblKdNr" - Me.lblKdNr.Size = New System.Drawing.Size(432, 18) - Me.lblKdNr.TabIndex = 21 - Me.lblKdNr.Text = "0000000" - ' 'frmMDM_USTVAntrag ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) @@ -754,20 +753,20 @@ Partial Class frmMDM_USTVAntrag Me.Panel3.PerformLayout() Me.Panel1.ResumeLayout(False) Me.Panel1.PerformLayout() + Me.Panel9.ResumeLayout(False) + Me.Panel8.ResumeLayout(False) + Me.Panel8.PerformLayout() Me.Panel5.ResumeLayout(False) Me.Panel5.PerformLayout() + Me.Panel7.ResumeLayout(False) + Me.Panel7.PerformLayout() Me.FlowLayoutPanel.ResumeLayout(False) Me.FlowLayoutPanel.PerformLayout() Me.pnlFilter.ResumeLayout(False) - CType(Me.dgvUSTVPositionen, System.ComponentModel.ISupportInitialize).EndInit() Me.pnl.ResumeLayout(False) Me.Panel2.ResumeLayout(False) Me.Panel4.ResumeLayout(False) - Me.Panel7.ResumeLayout(False) - Me.Panel7.PerformLayout() - Me.Panel8.ResumeLayout(False) - Me.Panel8.PerformLayout() - Me.Panel9.ResumeLayout(False) + CType(Me.dgvUSTVPositionen, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) End Sub diff --git a/SDL/USTV/frmMDM_USTVAntrag.vb b/SDL/USTV/frmMDM_USTVAntrag.vb index c2ce1205..af0a00e8 100644 --- a/SDL/USTV/frmMDM_USTVAntrag.vb +++ b/SDL/USTV/frmMDM_USTVAntrag.vb @@ -262,7 +262,7 @@ Public Class frmMDM_USTVAntrag If UStVPo_ID > 0 Then Dim ANTR_POS As New VERAG_PROG_ALLGEMEIN.cUStVPositionen(USTV_ANTRAG.UStVAn_ID, UStVPo_ID) UstCntlUSTV_AntragPosition1.Enabled = True - UstCntlUSTV_AntragPosition1.setValues(ANTR_POS) + UstCntlUSTV_AntragPosition1.setValues(ANTR_POS, Antrag_LandKz) Else UstCntlUSTV_AntragPosition1.reset() UstCntlUSTV_AntragPosition1.Enabled = False diff --git a/SDL/USTV/ustCntlUSTV_AntragPosition.vb b/SDL/USTV/ustCntlUSTV_AntragPosition.vb index d2ff4e11..687e82d7 100644 --- a/SDL/USTV/ustCntlUSTV_AntragPosition.vb +++ b/SDL/USTV/ustCntlUSTV_AntragPosition.vb @@ -1,5 +1,7 @@ Public Class ustCntlUSTV_AntragPosition Public UStV_POS As VERAG_PROG_ALLGEMEIN.cUStVPositionen = Nothing + Dim sql As New VERAG_PROG_ALLGEMEIN.SQL + Dim Antrag_LandKz = "" Public Event EV_PREV() Public Event EV_NEXT() @@ -18,8 +20,9 @@ txtRgNr._value = "" End Sub - Sub setValues(UStV_POS As VERAG_PROG_ALLGEMEIN.cUStVPositionen) + Sub setValues(UStV_POS As VERAG_PROG_ALLGEMEIN.cUStVPositionen, Antrag_LandKz As String) gridAktiv = False + Me.Antrag_LandKz = Antrag_LandKz Me.UStV_POS = UStV_POS cbxAPI.Checked = If(UStV_POS.UStVPo_Schnittstelle, False) cboSchnittstellennr.changeItem(If(UStV_POS.UStVPo_SchnittstellenNr, "")) @@ -32,6 +35,14 @@ txtUSTBetrag.Text = If(UStV_POS.UStVPo_USteuerbetrag, "") txtUmrechnungskurs.Text = If(UStV_POS.UStVPo_Umrechnungskurs, "") txtUSTBetragEUR.Text = If(UStV_POS.UStVPo_USteuerbetragEUR, "") + + Dim da_id = -1 + Select Case If(UStV_POS.UStVPo_SchnittstellenNr, -1) + Case 6, 0 : da_id = sql.getValueTxtBySql("SELECT TOP(1) [plInv_daId] FROM [tblPLOSE_Inv_Data] where plInv_SupplierRechnungsDatum='" & UStV_POS.UStVPo_ReDat & "' and plInv_SupplierRechnungsNr='" & UStV_POS.UStVPo_ReNr & "' and plInv_SupplierCountry='" & Antrag_LandKz & "' AND [plInv_daId] is not null", "FMZOLL",,, -1) + + End Select + scanSonstiges.INIT_daId(da_id) + gridAktiv = True End Sub @@ -85,4 +96,10 @@ ' If e.Column.ColumnName = "Sachbearbeiter" Or e.Column.ColumnName = "Änderungsdatum" Then Exit Sub If save() Then RaiseEvent CHANGED(UStV_POS.UStVPo_ID) End Sub + + + + Private Sub ustCntlUSTV_AntragPosition_Load(sender As Object, e As EventArgs) Handles Me.Load + + End Sub End Class diff --git a/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/usrcntlPDFScanList.vb b/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/usrcntlPDFScanList.vb index e4059aeb..1ee3277e 100644 --- a/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/usrcntlPDFScanList.vb +++ b/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/usrcntlPDFScanList.vb @@ -31,6 +31,11 @@ Public Class usrcntlPDFScanList Me.MyListBox1.Dock = DockStyle.Fill End Sub + Public Sub INIT_daId(da_id) + DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER(da_id) + initPdf() + End Sub + Public Sub INIT(KdNr) Me.KdNr = KdNr DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", _DATENSERVER_ORDNER, _DATENSERVER_UOrdner1, _DATENSERVER_UOrdner2, _DATENSERVER_UOrdner3, _TEXT_PDF, KdNr, _MULTI_FILES)