edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Merge branch 'master' of https://verag.visualstudio.com/SDL/_git/SDL

Browse Source
This commit is contained in:
d.breimaier
2022-11-21 16:42:35 +01:00
parent 4b07117bf3 f01ca8b53a
commit 5ce7c54cfa
4 changed files with 329 additions and 308 deletions
Download Patch File Download Diff File Expand all files Collapse all files

611
SDL/USTV/frmMDM_USTVAntrag.Designer.vb generated
View File

@@ -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

2
SDL/USTV/frmMDM_USTVAntrag.vb
View File

@@ -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

19
SDL/USTV/ustCntlUSTV_AntragPosition.vb
View File

@@ -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

5
VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/usrcntlPDFScanList.vb
View File

@@ -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)