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

MDM_USTV

Browse Source
This commit is contained in:
Andreas Luxbauer
2022-10-19 09:18:25 +02:00
parent e21dabf3c9
commit ce9aa1e321
4 changed files with 456 additions and 220 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
SDL/My Project/AssemblyInfo.vb
View File

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.2.2.3")>
<Assembly: AssemblyFileVersion("1.2.2.3")>
<Assembly: AssemblyVersion("1.2.2.5")>
<Assembly: AssemblyFileVersion("1.2.2.5")>

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

@@ -33,14 +33,21 @@ Partial Class frmMDM_USTVAntrag
Me.Panel1 = New System.Windows.Forms.Panel()
Me.Label6 = New System.Windows.Forms.Label()
Me.Panel5 = New System.Windows.Forms.Panel()
Me.FlowLayoutPanel = New System.Windows.Forms.FlowLayoutPanel()
Me.btnBearb = New System.Windows.Forms.Button()
Me.btnUnvollst = New System.Windows.Forms.Button()
Me.btnEingereicht = New System.Windows.Forms.Button()
Me.btnAbgelehnt = New System.Windows.Forms.Button()
Me.btnNachforderung = New System.Windows.Forms.Button()
Me.btnErstettel = New System.Windows.Forms.Button()
Me.btnTeilerstattung = New System.Windows.Forms.Button()
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.lblLand = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.Label4 = New System.Windows.Forms.Label()
Me.Label3 = New System.Windows.Forms.Label()
Me.lblZeitraum = New System.Windows.Forms.Label()
Me.lblFirma = New System.Windows.Forms.Label()
@@ -52,25 +59,31 @@ Partial Class frmMDM_USTVAntrag
Me.Panel4 = New System.Windows.Forms.Panel()
Me.Button3 = New System.Windows.Forms.Button()
Me.Button2 = New System.Windows.Forms.Button()
Me.btnBearb = New System.Windows.Forms.Button()
Me.FlowLayoutPanel = New System.Windows.Forms.FlowLayoutPanel()
Me.btnEingereicht = New System.Windows.Forms.Button()
Me.btnUnvollst = New System.Windows.Forms.Button()
Me.btnNachforderung = New System.Windows.Forms.Button()
Me.btnErstettel = New System.Windows.Forms.Button()
Me.btnAbgelehnt = New System.Windows.Forms.Button()
Me.btnStorno = New System.Windows.Forms.Button()
Me.btnTeilerstattung = 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.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.Panel5.SuspendLayout()
Me.FlowLayoutPanel.SuspendLayout()
Me.pnlFilter.SuspendLayout()
CType(Me.dgvUSTVPositionen, System.ComponentModel.ISupportInitialize).BeginInit()
Me.pnl.SuspendLayout()
Me.Panel2.SuspendLayout()
Me.Panel4.SuspendLayout()
Me.FlowLayoutPanel.SuspendLayout()
Me.Panel7.SuspendLayout()
Me.Panel8.SuspendLayout()
Me.Panel9.SuspendLayout()
Me.SuspendLayout()
'
'Panel3
@@ -135,52 +148,200 @@ Partial Class frmMDM_USTVAntrag
Me.lblPLOSE_EintrageVerarbetiet.TabIndex = 3
Me.lblPLOSE_EintrageVerarbetiet.Text = "alle Einträge verarbeitet"
Me.lblPLOSE_EintrageVerarbetiet.TextAlign = System.Drawing.ContentAlignment.TopRight
Me.lblPLOSE_EintrageVerarbetiet.Visible = False
'
'Panel1
'
Me.Panel1.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Panel1.Controls.Add(Me.Label6)
Me.Panel1.Controls.Add(Me.lblKdNr)
Me.Panel1.Controls.Add(Me.Panel9)
Me.Panel1.Controls.Add(Me.Panel8)
Me.Panel1.Controls.Add(Me.Panel6)
Me.Panel1.Controls.Add(Me.lblGesamtUSteuer)
Me.Panel1.Controls.Add(Me.Label12)
Me.Panel1.Controls.Add(Me.lblDiffernezbetrag)
Me.Panel1.Controls.Add(Me.Label10)
Me.Panel1.Controls.Add(Me.lblGesamtErstattung)
Me.Panel1.Controls.Add(Me.Label7)
Me.Panel1.Controls.Add(Me.Panel5)
Me.Panel1.Controls.Add(Me.txtBis)
Me.Panel1.Controls.Add(Me.txtVon)
Me.Panel1.Controls.Add(Me.rtbStatusText)
Me.Panel1.Controls.Add(Me.lblLand)
Me.Panel1.Controls.Add(Me.Label2)
Me.Panel1.Controls.Add(Me.Label4)
Me.Panel1.Controls.Add(Me.Label3)
Me.Panel1.Controls.Add(Me.lblZeitraum)
Me.Panel1.Controls.Add(Me.lblFirma)
Me.Panel1.Controls.Add(Me.Label1)
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top
Me.Panel1.Location = New System.Drawing.Point(0, 0)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(1454, 155)
Me.Panel1.Size = New System.Drawing.Size(1454, 177)
Me.Panel1.TabIndex = 0
'
'Label6
'
Me.Label6.AutoSize = True
Me.Label6.BackColor = System.Drawing.Color.Transparent
Me.Label6.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold)
Me.Label6.ForeColor = System.Drawing.Color.White
Me.Label6.Location = New System.Drawing.Point(519, 25)
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(86, 17)
Me.Label6.Size = New System.Drawing.Size(57, 13)
Me.Label6.TabIndex = 1
Me.Label6.Text = "Statusinfo:"
'
'Panel5
'
Me.Panel5.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Panel5.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
Me.Panel5.Controls.Add(Me.Panel7)
Me.Panel5.Controls.Add(Me.FlowLayoutPanel)
Me.Panel5.Controls.Add(Me.Label5)
Me.Panel5.Controls.Add(Me.cboStatus)
Me.Panel5.Location = New System.Drawing.Point(972, 0)
Me.Panel5.Dock = System.Windows.Forms.DockStyle.Right
Me.Panel5.Location = New System.Drawing.Point(973, 0)
Me.Panel5.Margin = New System.Windows.Forms.Padding(0)
Me.Panel5.Name = "Panel5"
Me.Panel5.Size = New System.Drawing.Size(481, 105)
Me.Panel5.Size = New System.Drawing.Size(481, 177)
Me.Panel5.TabIndex = 9
'
'FlowLayoutPanel
'
Me.FlowLayoutPanel.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
Me.FlowLayoutPanel.Controls.Add(Me.btnBearb)
Me.FlowLayoutPanel.Controls.Add(Me.btnUnvollst)
Me.FlowLayoutPanel.Controls.Add(Me.btnEingereicht)
Me.FlowLayoutPanel.Controls.Add(Me.btnAbgelehnt)
Me.FlowLayoutPanel.Controls.Add(Me.btnNachforderung)
Me.FlowLayoutPanel.Controls.Add(Me.btnErstettel)
Me.FlowLayoutPanel.Controls.Add(Me.btnTeilerstattung)
Me.FlowLayoutPanel.Controls.Add(Me.btnStorno)
Me.FlowLayoutPanel.Controls.Add(Me.lblAntragAbgeschlossen)
Me.FlowLayoutPanel.Dock = System.Windows.Forms.DockStyle.Bottom
Me.FlowLayoutPanel.Location = New System.Drawing.Point(0, 119)
Me.FlowLayoutPanel.Margin = New System.Windows.Forms.Padding(0)
Me.FlowLayoutPanel.Name = "FlowLayoutPanel"
Me.FlowLayoutPanel.Size = New System.Drawing.Size(481, 58)
Me.FlowLayoutPanel.TabIndex = 2
'
'btnBearb
'
Me.btnBearb.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnBearb.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
Me.btnBearb.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnBearb.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.btnBearb.ForeColor = System.Drawing.Color.Black
Me.btnBearb.Location = New System.Drawing.Point(3, 3)
Me.btnBearb.Name = "btnBearb"
Me.btnBearb.Size = New System.Drawing.Size(86, 36)
Me.btnBearb.TabIndex = 0
Me.btnBearb.Text = "In Bearbeitung"
Me.btnBearb.UseVisualStyleBackColor = False
'
'btnUnvollst
'
Me.btnUnvollst.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnUnvollst.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(128, Byte), Integer))
Me.btnUnvollst.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnUnvollst.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.btnUnvollst.ForeColor = System.Drawing.Color.Black
Me.btnUnvollst.Location = New System.Drawing.Point(95, 3)
Me.btnUnvollst.Name = "btnUnvollst"
Me.btnUnvollst.Size = New System.Drawing.Size(90, 36)
Me.btnUnvollst.TabIndex = 1
Me.btnUnvollst.Text = "Unvollständig"
Me.btnUnvollst.UseVisualStyleBackColor = False
'
'btnEingereicht
'
Me.btnEingereicht.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnEingereicht.BackColor = System.Drawing.Color.SteelBlue
Me.btnEingereicht.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnEingereicht.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.btnEingereicht.ForeColor = System.Drawing.Color.White
Me.btnEingereicht.Location = New System.Drawing.Point(191, 3)
Me.btnEingereicht.Name = "btnEingereicht"
Me.btnEingereicht.Size = New System.Drawing.Size(87, 36)
Me.btnEingereicht.TabIndex = 2
Me.btnEingereicht.Text = " Eingereicht"
Me.btnEingereicht.UseVisualStyleBackColor = False
'
'btnAbgelehnt
'
Me.btnAbgelehnt.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnAbgelehnt.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer))
Me.btnAbgelehnt.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnAbgelehnt.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.btnAbgelehnt.ForeColor = System.Drawing.Color.White
Me.btnAbgelehnt.Location = New System.Drawing.Point(284, 3)
Me.btnAbgelehnt.Name = "btnAbgelehnt"
Me.btnAbgelehnt.Size = New System.Drawing.Size(80, 36)
Me.btnAbgelehnt.TabIndex = 3
Me.btnAbgelehnt.Text = "Abgelehnt"
Me.btnAbgelehnt.UseVisualStyleBackColor = False
'
'btnNachforderung
'
Me.btnNachforderung.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnNachforderung.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(128, Byte), Integer))
Me.btnNachforderung.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnNachforderung.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.btnNachforderung.ForeColor = System.Drawing.Color.Black
Me.btnNachforderung.Location = New System.Drawing.Point(370, 3)
Me.btnNachforderung.Name = "btnNachforderung"
Me.btnNachforderung.Size = New System.Drawing.Size(98, 36)
Me.btnNachforderung.TabIndex = 4
Me.btnNachforderung.Text = "Nachforderung/" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Berichtigung"
Me.btnNachforderung.UseVisualStyleBackColor = False
'
'btnErstettel
'
Me.btnErstettel.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnErstettel.BackColor = System.Drawing.Color.Green
Me.btnErstettel.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnErstettel.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.btnErstettel.ForeColor = System.Drawing.Color.White
Me.btnErstettel.Location = New System.Drawing.Point(3, 45)
Me.btnErstettel.Name = "btnErstettel"
Me.btnErstettel.Size = New System.Drawing.Size(86, 36)
Me.btnErstettel.TabIndex = 5
Me.btnErstettel.Text = "Erstattet"
Me.btnErstettel.UseVisualStyleBackColor = False
'
'btnTeilerstattung
'
Me.btnTeilerstattung.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnTeilerstattung.BackColor = System.Drawing.Color.Green
Me.btnTeilerstattung.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnTeilerstattung.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.btnTeilerstattung.ForeColor = System.Drawing.Color.White
Me.btnTeilerstattung.Location = New System.Drawing.Point(95, 45)
Me.btnTeilerstattung.Name = "btnTeilerstattung"
Me.btnTeilerstattung.Size = New System.Drawing.Size(87, 36)
Me.btnTeilerstattung.TabIndex = 6
Me.btnTeilerstattung.Text = "Teilerstattung"
Me.btnTeilerstattung.UseVisualStyleBackColor = False
'
'btnStorno
'
Me.btnStorno.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnStorno.BackColor = System.Drawing.Color.Red
Me.btnStorno.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnStorno.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.btnStorno.ForeColor = System.Drawing.Color.White
Me.btnStorno.Location = New System.Drawing.Point(188, 45)
Me.btnStorno.Name = "btnStorno"
Me.btnStorno.Size = New System.Drawing.Size(52, 36)
Me.btnStorno.TabIndex = 7
Me.btnStorno.Text = "Storno"
Me.btnStorno.UseVisualStyleBackColor = False
'
'lblAntragAbgeschlossen
'
Me.lblAntragAbgeschlossen.AutoSize = True
Me.lblAntragAbgeschlossen.BackColor = System.Drawing.Color.Transparent
Me.lblAntragAbgeschlossen.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblAntragAbgeschlossen.ForeColor = System.Drawing.Color.Green
Me.lblAntragAbgeschlossen.Location = New System.Drawing.Point(246, 42)
Me.lblAntragAbgeschlossen.Name = "lblAntragAbgeschlossen"
Me.lblAntragAbgeschlossen.Size = New System.Drawing.Size(193, 20)
Me.lblAntragAbgeschlossen.TabIndex = 8
Me.lblAntragAbgeschlossen.Text = "Antrag abgeschlossen!"
Me.lblAntragAbgeschlossen.Visible = False
'
'Label5
'
Me.Label5.AutoSize = True
@@ -222,7 +383,7 @@ Partial Class frmMDM_USTVAntrag
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(220, 67)
Me.txtBis.Location = New System.Drawing.Point(227, 10)
Me.txtBis.MaxLength = 10
Me.txtBis.MaxLineLength = -1
Me.txtBis.MaxLines_Warning = ""
@@ -247,7 +408,7 @@ Partial Class frmMDM_USTVAntrag
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(94, 67)
Me.txtVon.Location = New System.Drawing.Point(101, 10)
Me.txtVon.MaxLength = 10
Me.txtVon.MaxLineLength = -1
Me.txtVon.MaxLines_Warning = ""
@@ -259,59 +420,20 @@ Partial Class frmMDM_USTVAntrag
'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(626, 24)
Me.rtbStatusText.Location = New System.Drawing.Point(76, 7)
Me.rtbStatusText.Name = "rtbStatusText"
Me.rtbStatusText.Size = New System.Drawing.Size(340, 61)
Me.rtbStatusText.Size = New System.Drawing.Size(394, 44)
Me.rtbStatusText.TabIndex = 4
Me.rtbStatusText.Text = ""
'
'lblLand
'
Me.lblLand.AutoSize = True
Me.lblLand.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.lblLand.Cursor = System.Windows.Forms.Cursors.Hand
Me.lblLand.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblLand.ForeColor = System.Drawing.Color.White
Me.lblLand.Location = New System.Drawing.Point(91, 108)
Me.lblLand.Name = "lblLand"
Me.lblLand.Size = New System.Drawing.Size(28, 17)
Me.lblLand.TabIndex = 11
Me.lblLand.Text = "AT"
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Label2.Cursor = System.Windows.Forms.Cursors.Hand
Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label2.ForeColor = System.Drawing.Color.White
Me.Label2.Location = New System.Drawing.Point(4, 108)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(44, 17)
Me.Label2.TabIndex = 10
Me.Label2.Text = "Land:"
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Label4.Cursor = System.Windows.Forms.Cursors.Hand
Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label4.ForeColor = System.Drawing.Color.White
Me.Label4.Location = New System.Drawing.Point(3, 47)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(47, 17)
Me.Label4.TabIndex = 2
Me.Label4.Text = "Firma:"
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
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.White
Me.Label3.Location = New System.Drawing.Point(3, 70)
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
@@ -320,11 +442,11 @@ Partial Class frmMDM_USTVAntrag
'lblZeitraum
'
Me.lblZeitraum.AutoSize = True
Me.lblZeitraum.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
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.White
Me.lblZeitraum.Location = New System.Drawing.Point(200, 69)
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
@@ -332,13 +454,15 @@ Partial Class frmMDM_USTVAntrag
'
'lblFirma
'
Me.lblFirma.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblFirma.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.lblFirma.Cursor = System.Windows.Forms.Cursors.Hand
Me.lblFirma.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblFirma.Cursor = System.Windows.Forms.Cursors.Default
Me.lblFirma.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold)
Me.lblFirma.ForeColor = System.Drawing.Color.White
Me.lblFirma.Location = New System.Drawing.Point(91, 47)
Me.lblFirma.Location = New System.Drawing.Point(79, 42)
Me.lblFirma.Name = "lblFirma"
Me.lblFirma.Size = New System.Drawing.Size(388, 17)
Me.lblFirma.Size = New System.Drawing.Size(432, 18)
Me.lblFirma.TabIndex = 3
Me.lblFirma.Text = "VERAG Spedition AG"
'
@@ -348,7 +472,7 @@ Partial Class frmMDM_USTVAntrag
Me.Label1.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label1.ForeColor = System.Drawing.Color.White
Me.Label1.Location = New System.Drawing.Point(3, 6)
Me.Label1.Location = New System.Drawing.Point(78, 14)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(116, 20)
Me.Label1.TabIndex = 0
@@ -360,14 +484,14 @@ Partial Class frmMDM_USTVAntrag
Me.pnlFilter.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.pnlFilter.Controls.Add(Me.dgvUSTVPositionen)
Me.pnlFilter.Dock = System.Windows.Forms.DockStyle.Fill
Me.pnlFilter.Location = New System.Drawing.Point(0, 155)
Me.pnlFilter.Location = New System.Drawing.Point(0, 177)
Me.pnlFilter.Name = "pnlFilter"
Me.pnlFilter.Size = New System.Drawing.Size(1454, 289)
Me.pnlFilter.Size = New System.Drawing.Size(1454, 267)
Me.pnlFilter.TabIndex = 1
'
'dgvUSTVPositionen
'
Me.dgvUSTVPositionen.AKTUALISIERUNGS_INTERVALL = -1
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))
@@ -382,7 +506,7 @@ Partial Class frmMDM_USTVAntrag
Me.dgvUSTVPositionen.RowHeadersVisible = False
Me.dgvUSTVPositionen.RowHeadersWidth = 62
Me.dgvUSTVPositionen.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.dgvUSTVPositionen.Size = New System.Drawing.Size(1452, 287)
Me.dgvUSTVPositionen.Size = New System.Drawing.Size(1452, 265)
Me.dgvUSTVPositionen.TabIndex = 0
'
'pnl
@@ -401,6 +525,7 @@ 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)
@@ -420,6 +545,7 @@ Partial Class frmMDM_USTVAntrag
'
'Button3
'
Me.Button3.Enabled = False
Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button3.ForeColor = System.Drawing.Color.Black
Me.Button3.Image = Global.SDL.My.Resources.Resources.del
@@ -434,6 +560,7 @@ Partial Class frmMDM_USTVAntrag
'
'Button2
'
Me.Button2.Enabled = False
Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button2.ForeColor = System.Drawing.Color.Black
Me.Button2.Image = Global.SDL.My.Resources.Resources.plus
@@ -446,132 +573,89 @@ Partial Class frmMDM_USTVAntrag
Me.Button2.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button2.UseVisualStyleBackColor = True
'
'btnBearb
'Label7
'
Me.btnBearb.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnBearb.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
Me.btnBearb.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnBearb.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.btnBearb.ForeColor = System.Drawing.Color.Black
Me.btnBearb.Location = New System.Drawing.Point(3, 3)
Me.btnBearb.Name = "btnBearb"
Me.btnBearb.Size = New System.Drawing.Size(86, 36)
Me.btnBearb.TabIndex = 0
Me.btnBearb.Text = "In Bearbeitung"
Me.btnBearb.UseVisualStyleBackColor = False
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:"
'
'FlowLayoutPanel
'lblGesamtErstattung
'
Me.FlowLayoutPanel.Controls.Add(Me.btnBearb)
Me.FlowLayoutPanel.Controls.Add(Me.btnUnvollst)
Me.FlowLayoutPanel.Controls.Add(Me.btnEingereicht)
Me.FlowLayoutPanel.Controls.Add(Me.btnAbgelehnt)
Me.FlowLayoutPanel.Controls.Add(Me.btnNachforderung)
Me.FlowLayoutPanel.Controls.Add(Me.btnErstettel)
Me.FlowLayoutPanel.Controls.Add(Me.btnTeilerstattung)
Me.FlowLayoutPanel.Controls.Add(Me.btnStorno)
Me.FlowLayoutPanel.Location = New System.Drawing.Point(3, 50)
Me.FlowLayoutPanel.Name = "FlowLayoutPanel"
Me.FlowLayoutPanel.Size = New System.Drawing.Size(479, 52)
Me.FlowLayoutPanel.TabIndex = 2
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
'
'btnEingereicht
'lblDiffernezbetrag
'
Me.btnEingereicht.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnEingereicht.BackColor = System.Drawing.Color.SteelBlue
Me.btnEingereicht.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnEingereicht.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.btnEingereicht.ForeColor = System.Drawing.Color.White
Me.btnEingereicht.Location = New System.Drawing.Point(191, 3)
Me.btnEingereicht.Name = "btnEingereicht"
Me.btnEingereicht.Size = New System.Drawing.Size(87, 36)
Me.btnEingereicht.TabIndex = 2
Me.btnEingereicht.Text = "Eingereicht"
Me.btnEingereicht.UseVisualStyleBackColor = False
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
'
'btnUnvollst
'Label10
'
Me.btnUnvollst.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnUnvollst.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(128, Byte), Integer))
Me.btnUnvollst.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnUnvollst.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.btnUnvollst.ForeColor = System.Drawing.Color.Black
Me.btnUnvollst.Location = New System.Drawing.Point(95, 3)
Me.btnUnvollst.Name = "btnUnvollst"
Me.btnUnvollst.Size = New System.Drawing.Size(90, 36)
Me.btnUnvollst.TabIndex = 1
Me.btnUnvollst.Text = "Unvollständig"
Me.btnUnvollst.UseVisualStyleBackColor = False
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:"
'
'btnNachforderung
'lblGesamtUSteuer
'
Me.btnNachforderung.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnNachforderung.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(128, Byte), Integer))
Me.btnNachforderung.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnNachforderung.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.btnNachforderung.ForeColor = System.Drawing.Color.Black
Me.btnNachforderung.Location = New System.Drawing.Point(370, 3)
Me.btnNachforderung.Name = "btnNachforderung"
Me.btnNachforderung.Size = New System.Drawing.Size(98, 36)
Me.btnNachforderung.TabIndex = 4
Me.btnNachforderung.Text = "Nachforderung/" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Berichtigung"
Me.btnNachforderung.UseVisualStyleBackColor = False
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
'
'btnErstettel
'Label12
'
Me.btnErstettel.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnErstettel.BackColor = System.Drawing.Color.Green
Me.btnErstettel.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnErstettel.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.btnErstettel.ForeColor = System.Drawing.Color.White
Me.btnErstettel.Location = New System.Drawing.Point(3, 45)
Me.btnErstettel.Name = "btnErstettel"
Me.btnErstettel.Size = New System.Drawing.Size(86, 36)
Me.btnErstettel.TabIndex = 5
Me.btnErstettel.Text = "Erstattet"
Me.btnErstettel.UseVisualStyleBackColor = False
'
'btnAbgelehnt
'
Me.btnAbgelehnt.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnAbgelehnt.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer))
Me.btnAbgelehnt.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnAbgelehnt.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.btnAbgelehnt.ForeColor = System.Drawing.Color.White
Me.btnAbgelehnt.Location = New System.Drawing.Point(284, 3)
Me.btnAbgelehnt.Name = "btnAbgelehnt"
Me.btnAbgelehnt.Size = New System.Drawing.Size(80, 36)
Me.btnAbgelehnt.TabIndex = 3
Me.btnAbgelehnt.Text = "Abgelehnt"
Me.btnAbgelehnt.UseVisualStyleBackColor = False
'
'btnStorno
'
Me.btnStorno.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnStorno.BackColor = System.Drawing.Color.Red
Me.btnStorno.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnStorno.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.btnStorno.ForeColor = System.Drawing.Color.White
Me.btnStorno.Location = New System.Drawing.Point(188, 45)
Me.btnStorno.Name = "btnStorno"
Me.btnStorno.Size = New System.Drawing.Size(52, 36)
Me.btnStorno.TabIndex = 7
Me.btnStorno.Text = "Storno"
Me.btnStorno.UseVisualStyleBackColor = False
'
'btnTeilerstattung
'
Me.btnTeilerstattung.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnTeilerstattung.BackColor = System.Drawing.Color.Green
Me.btnTeilerstattung.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnTeilerstattung.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.btnTeilerstattung.ForeColor = System.Drawing.Color.White
Me.btnTeilerstattung.Location = New System.Drawing.Point(95, 45)
Me.btnTeilerstattung.Name = "btnTeilerstattung"
Me.btnTeilerstattung.Size = New System.Drawing.Size(87, 36)
Me.btnTeilerstattung.TabIndex = 6
Me.btnTeilerstattung.Text = "Teilerstattung"
Me.btnTeilerstattung.UseVisualStyleBackColor = False
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:"
'
'UstCntlUSTV_AntragPosition1
'
@@ -581,6 +665,77 @@ 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!)
@@ -601,12 +756,18 @@ Partial Class frmMDM_USTVAntrag
Me.Panel1.PerformLayout()
Me.Panel5.ResumeLayout(False)
Me.Panel5.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.FlowLayoutPanel.ResumeLayout(False)
Me.Panel7.ResumeLayout(False)
Me.Panel7.PerformLayout()
Me.Panel8.ResumeLayout(False)
Me.Panel8.PerformLayout()
Me.Panel9.ResumeLayout(False)
Me.ResumeLayout(False)
End Sub
@@ -620,11 +781,8 @@ Partial Class frmMDM_USTVAntrag
Friend WithEvents dgvUSTVPositionen As VERAG_PROG_ALLGEMEIN.MyDatagridview
Friend WithEvents lblPLOSE_EintrageVerarbetiet As Label
Friend WithEvents cbxArchivierteEintracheNochmalsEinarbetien As CheckBox
Friend WithEvents Label4 As Label
Friend WithEvents Label3 As Label
Friend WithEvents lblZeitraum As Label
Friend WithEvents lblLand As Label
Friend WithEvents Label2 As Label
Friend WithEvents cboStatus As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents Label5 As Label
Friend WithEvents rtbStatusText As RichTextBox
@@ -648,4 +806,17 @@ Partial Class frmMDM_USTVAntrag
Friend WithEvents btnAbgelehnt As Button
Friend WithEvents btnStorno As Button
Friend WithEvents btnTeilerstattung As Button
Friend WithEvents lblAntragAbgeschlossen As Label
Friend WithEvents lblGesamtUSteuer As Label
Friend WithEvents Label12 As Label
Friend WithEvents lblDiffernezbetrag As Label
Friend WithEvents Label10 As Label
Friend WithEvents lblGesamtErstattung As Label
Friend WithEvents Label7 As Label
Friend WithEvents Panel6 As Panel
Friend WithEvents Panel7 As Panel
Friend WithEvents lblLand As Label
Friend WithEvents Panel8 As Panel
Friend WithEvents lblKdNr As Label
Friend WithEvents Panel9 As Panel
End Class

84
SDL/USTV/frmMDM_USTVAntrag.vb
View File

@@ -1,4 +1,6 @@
Public Class frmMDM_USTVAntrag
Imports System.Reflection
Public Class frmMDM_USTVAntrag
Dim UStVAn_ID As Integer
Dim USTV_ANTRAG As VERAG_PROG_ALLGEMEIN.cUSTVAntrag = Nothing
@@ -17,6 +19,10 @@
Sub init()
pnlFilter.AutoScroll = False
lblGesamtUSteuer.Text = "-"
lblGesamtErstattung.Text = "-"
lblDiffernezbetrag.Text = "-"
With dgvUSTVPositionen
.ClearSelection()
@@ -82,7 +88,15 @@
End With
Antrag_LandKz = SQL.DLookup("LandKz", "[Länderverzeichnis für die Außenhandelsstatistik]", "Landnr='" & USTV_ANTRAG.UStVAn_LandNr & "'", "FMZOLL")
Dim GesamtUSteuer As Double = SQL.DLookup("isnull(sum(UStVPo_USteuerbetragEUR),0)", "tblUStVPositionen", "UStVAn_ID='" & UStVAn_ID & "'", "FMZOLL", "0")
Dim GesamtErstattung As Double = SQL.DLookup("isnull(sum(UStVEr_USteuerbetragEUR),0)", "tblUStVErstattung", "UStVAn_ID='" & UStVAn_ID & "'", "FMZOLL", "0")
Dim Differnezbetrag As Double = GesamtUSteuer - GesamtErstattung
lblGesamtUSteuer.Text = GesamtUSteuer.ToString("C2")
lblGesamtErstattung.Text = GesamtErstattung.ToString("C2")
lblDiffernezbetrag.Text = Differnezbetrag.ToString("C2")
Dim GET_Antraege = MDM_Worker.cPLOSE.GET_Antraege(USTV_ANTRAG.UStVAn_ReDatVon, USTV_ANTRAG.UStVAn_ReDatBis, USTV_ANTRAG.UStVAn_KuNr, Antrag_LandKz, False)
@@ -99,11 +113,11 @@
Sub setValue(USTV_ANTRAG As VERAG_PROG_ALLGEMEIN.cUSTVAntrag)
lblFirma.Text = USTV_ANTRAG.UStVAn_Name
lblKdNr.Text = USTV_ANTRAG.UStVAn_KuNr
lblLand.Text = Antrag_LandKz
txtVon._value = CDate(USTV_ANTRAG.UStVAn_ReDatVon)
txtBis._value = CDate(USTV_ANTRAG.UStVAn_ReDatBis)
'lblZeitraum.Text = CDate(USTV_ANTRAG.UStVAn_ReDatVon).ToString("dd.MM.yyyy") & " - " & CDate(USTV_ANTRAG.UStVAn_ReDatBis).ToString("dd.MM.yyyy")
cboStatus.changeItem(If(USTV_ANTRAG.UStVAn_Status, ""))
rtbStatusText.Text = If(USTV_ANTRAG.UStVAn_StatusText, "")
@@ -119,19 +133,31 @@
'lblZeitraum.Text = CDate(USTV_ANTRAG.UStVAn_ReDatVon).ToString("dd.MM.yyyy") & " - " & CDate(USTV_ANTRAG.UStVAn_ReDatBis).ToString("dd.MM.yyyy")
cboStatus.changeItem(If(USTV_ANTRAG.UStVAn_Status, ""))
rtbStatusText.Text = If(USTV_ANTRAG.UStVAn_StatusText, "")
USTV_ANTRAG.UStVAn_Status = cboStatus._value
USTV_ANTRAG.UStVAn_StatusText = rtbStatusText.Text
End If
End Sub
Function Me_Validate() As Boolean
If IsDate(txtVon._value) Then MsgBox("Datumsformat: Von") : Return False
If IsDate(txtBis._value) Then MsgBox("Datumsformat: Bis") : Return False
If Not IsDate(txtVon._value) Then MsgBox("Datumsformat: Von") : Return False
If Not IsDate(txtBis._value) Then MsgBox("Datumsformat: Bis") : Return False
Return True
End Function
Public Shared Sub EnableDoubleBuffered(ByRef dgv As DataGridView)
Dim dgvType As Type = dgv.[GetType]()
Dim pi As PropertyInfo = dgvType.GetProperty("DoubleBuffered", BindingFlags.Instance Or BindingFlags.NonPublic)
pi.SetValue(dgv, True, Nothing)
End Sub
Private Sub UsrCntlDatenDetails1_Changed(POSId) Handles UstCntlUSTV_AntragPosition1.CHANGED
'refreshDgv(kdNr, SDLNr, Kfz, History)'?????????????? ausgebelndet,was das ein VErsuch? 31.07.2017
dgvUSTVPositionen.VALUE_CHANGED = True
End Sub
Private Sub usrCntlVERAGCard_Load(sender As Object, e As EventArgs) Handles MyBase.Load
EnableDoubleBuffered(dgvUSTVPositionen)
cboStatus.Items.Clear()
cboStatus.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("-", ""))
cboStatus.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("In Bearbeitung", cUSTVStatus.STAT_INBEARBEITUNG))
@@ -139,17 +165,20 @@
cboStatus.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Eingereicht", cUSTVStatus.STAT_EINGEREICHT))
cboStatus.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Nachforderung/Berichtigung", cUSTVStatus.STAT_NACHFORDERUNG))
cboStatus.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Abgeschlossen/Erstattet", cUSTVStatus.STAT_ERSTATTET))
cboStatus.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Teil-Erstattet", cUSTVStatus.STAT_TEILERSTATTET))
cboStatus.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Abgelehnt", cUSTVStatus.STAT_ABGELEHNT))
cboStatus.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Storno", cUSTVStatus.STAT_STORNO))
cboStatus.changeItem(cUSTVStatus.STAT_INBEARBEITUNG)
lblPLOSE_EintrageVerarbetiet.Text = ""
If UStVAn_ID > 0 Then
USTV_ANTRAG = New VERAG_PROG_ALLGEMEIN.cUSTVAntrag(UStVAn_ID)
Antrag_LandKz = SQL.DLookup("LandKz", "[Länderverzeichnis für die Außenhandelsstatistik]", "Landnr='" & USTV_ANTRAG.UStVAn_LandNr & "'", "FMZOLL")
setValue(USTV_ANTRAG)
End If
init()
@@ -224,7 +253,6 @@
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
getValue(USTV_ANTRAG)
If USTV_ANTRAG.SAVE Then
Me.Close()
End If
@@ -295,15 +323,21 @@
For Each b In FlowLayoutPanel.Controls
b.visible = False
Next
Panel5.BackColor = Color.FromArgb(255, 255, 192)
Panel5.ForeColor = Color.Black
Select Case cboStatus._value
Case cUSTVStatus.STAT_INBEARBEITUNG
btnEingereicht.Visible = True
btnStorno.Visible = True
btnUnvollst.Visible = True
Panel5.BackColor = Color.LightGray
Case cUSTVStatus.STAT_UNVOLLSTAENDIG
btnBearb.Visible = True
btnEingereicht.Visible = True
btnStorno.Visible = True
Panel5.BackColor = Color.FromArgb(255, 192, 128)
Case cUSTVStatus.STAT_EINGEREICHT
'btnBearb.Visible = True
btnStorno.Visible = True
@@ -311,23 +345,49 @@
btnErstettel.Visible = True
btnAbgelehnt.Visible = True
btnNachforderung.Visible = True
Panel5.BackColor = Color.SteelBlue
Panel5.ForeColor = Color.White
Case cUSTVStatus.STAT_ABGELEHNT
btnBearb.Visible = True
btnEingereicht.Visible = True
btnUnvollst.Visible = True
btnStorno.Visible = True
Panel5.BackColor = Color.Red
Panel5.ForeColor = Color.White
Case cUSTVStatus.STAT_NACHFORDERUNG
btnBearb.Visible = True
btnEingereicht.Visible = True
'btnUnvollst.Visible = True
btnStorno.Visible = True
Panel5.BackColor = Color.FromArgb(255, 192, 128)
Case cUSTVStatus.STAT_ERSTATTET
' btnStorno.Visible = True
Panel5.BackColor = Color.Green
Panel5.ForeColor = Color.White
lblAntragAbgeschlossen.Visible = True
lblAntragAbgeschlossen.ForeColor = Color.DarkGreen
Case cUSTVStatus.STAT_TEILERSTATTET
btnErstettel.Visible = True
' btnErstettel.Visible = True
' btnStorno.Visible = True
Panel5.BackColor = Color.Green
Panel5.ForeColor = Color.White
lblAntragAbgeschlossen.Visible = True
lblAntragAbgeschlossen.ForeColor = Color.DarkGreen
Case cUSTVStatus.STAT_STORNO
' btnStorno.Visible = True
Panel5.BackColor = Color.IndianRed
Panel5.ForeColor = Color.White
lblAntragAbgeschlossen.Visible = True
lblAntragAbgeschlossen.ForeColor = Color.IndianRed
End Select
cboStatus.BackColor = Panel5.BackColor
cboStatus.ForeColor = Panel5.ForeColor
Label5.BackColor = Panel5.BackColor
Label5.ForeColor = Panel5.ForeColor
Label6.ForeColor = Panel5.ForeColor
Label6.ForeColor = Panel5.ForeColor
End Sub
Private Sub btnBearb_Click(sender As Object, e As EventArgs) Handles btnBearb.Click
@@ -376,6 +436,10 @@
End If
End Sub
Private Sub Panel1_Paint(sender As Object, e As PaintEventArgs) Handles Panel1.Paint
End Sub
' Private Sub cmdITMautÜbernehmen_Click()
' Dim wrk As DAO.Workspace

1
VERAG_PROG_ALLGEMEIN/Classes/USTV/cUSTVAntrag.vb
View File

@@ -199,6 +199,7 @@ Public Class cUSTVAntrag
Return SQL.doSQLVarList(sqlstr, "FMZOLL", , list)
End Function
Public Function getInsertCmd() As String
Try
'Me.Eingegeben_am = Now