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: ' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")> ' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.2.2.3")> <Assembly: AssemblyVersion("1.2.2.5")>
<Assembly: AssemblyFileVersion("1.2.2.3")> <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.Panel1 = New System.Windows.Forms.Panel()
Me.Label6 = New System.Windows.Forms.Label() Me.Label6 = New System.Windows.Forms.Label()
Me.Panel5 = New System.Windows.Forms.Panel() 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.Label5 = New System.Windows.Forms.Label()
Me.cboStatus = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.cboStatus = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.txtBis = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtBis = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtVon = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtVon = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.rtbStatusText = New System.Windows.Forms.RichTextBox() 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.Label3 = New System.Windows.Forms.Label()
Me.lblZeitraum = New System.Windows.Forms.Label() Me.lblZeitraum = New System.Windows.Forms.Label()
Me.lblFirma = 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.Panel4 = New System.Windows.Forms.Panel()
Me.Button3 = New System.Windows.Forms.Button() Me.Button3 = New System.Windows.Forms.Button()
Me.Button2 = New System.Windows.Forms.Button() Me.Button2 = New System.Windows.Forms.Button()
Me.btnBearb = New System.Windows.Forms.Button() Me.Label7 = New System.Windows.Forms.Label()
Me.FlowLayoutPanel = New System.Windows.Forms.FlowLayoutPanel() Me.lblGesamtErstattung = New System.Windows.Forms.Label()
Me.btnEingereicht = New System.Windows.Forms.Button() Me.lblDiffernezbetrag = New System.Windows.Forms.Label()
Me.btnUnvollst = New System.Windows.Forms.Button() Me.Label10 = New System.Windows.Forms.Label()
Me.btnNachforderung = New System.Windows.Forms.Button() Me.lblGesamtUSteuer = New System.Windows.Forms.Label()
Me.btnErstettel = New System.Windows.Forms.Button() Me.Label12 = New System.Windows.Forms.Label()
Me.btnAbgelehnt = New System.Windows.Forms.Button()
Me.btnStorno = New System.Windows.Forms.Button()
Me.btnTeilerstattung = New System.Windows.Forms.Button()
Me.UstCntlUSTV_AntragPosition1 = New SDL.ustCntlUSTV_AntragPosition() 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.Panel3.SuspendLayout()
Me.Panel1.SuspendLayout() Me.Panel1.SuspendLayout()
Me.Panel5.SuspendLayout() Me.Panel5.SuspendLayout()
Me.FlowLayoutPanel.SuspendLayout()
Me.pnlFilter.SuspendLayout() Me.pnlFilter.SuspendLayout()
CType(Me.dgvUSTVPositionen, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.dgvUSTVPositionen, System.ComponentModel.ISupportInitialize).BeginInit()
Me.pnl.SuspendLayout() Me.pnl.SuspendLayout()
Me.Panel2.SuspendLayout() Me.Panel2.SuspendLayout()
Me.Panel4.SuspendLayout() Me.Panel4.SuspendLayout()
Me.FlowLayoutPanel.SuspendLayout() Me.Panel7.SuspendLayout()
Me.Panel8.SuspendLayout()
Me.Panel9.SuspendLayout()
Me.SuspendLayout() Me.SuspendLayout()
' '
'Panel3 'Panel3
@@ -135,52 +148,200 @@ Partial Class frmMDM_USTVAntrag
Me.lblPLOSE_EintrageVerarbetiet.TabIndex = 3 Me.lblPLOSE_EintrageVerarbetiet.TabIndex = 3
Me.lblPLOSE_EintrageVerarbetiet.Text = "alle Einträge verarbeitet" Me.lblPLOSE_EintrageVerarbetiet.Text = "alle Einträge verarbeitet"
Me.lblPLOSE_EintrageVerarbetiet.TextAlign = System.Drawing.ContentAlignment.TopRight Me.lblPLOSE_EintrageVerarbetiet.TextAlign = System.Drawing.ContentAlignment.TopRight
Me.lblPLOSE_EintrageVerarbetiet.Visible = False
' '
'Panel1 '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.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.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.lblFirma)
Me.Panel1.Controls.Add(Me.Label1) Me.Panel1.Controls.Add(Me.Label1)
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top
Me.Panel1.Location = New System.Drawing.Point(0, 0) Me.Panel1.Location = New System.Drawing.Point(0, 0)
Me.Panel1.Name = "Panel1" 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 Me.Panel1.TabIndex = 0
' '
'Label6 'Label6
' '
Me.Label6.AutoSize = True Me.Label6.AutoSize = True
Me.Label6.BackColor = System.Drawing.Color.Transparent 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.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.Label6.ForeColor = System.Drawing.Color.White Me.Label6.ForeColor = System.Drawing.Color.Black
Me.Label6.Location = New System.Drawing.Point(519, 25) Me.Label6.Location = New System.Drawing.Point(4, 10)
Me.Label6.Name = "Label6" 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.TabIndex = 1
Me.Label6.Text = "Statusinfo:" Me.Label6.Text = "Statusinfo:"
' '
'Panel5 '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.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.FlowLayoutPanel)
Me.Panel5.Controls.Add(Me.Label5) Me.Panel5.Controls.Add(Me.Label5)
Me.Panel5.Controls.Add(Me.cboStatus) 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.Name = "Panel5"
Me.Panel5.Size = New System.Drawing.Size(481, 105) Me.Panel5.Size = New System.Drawing.Size(481, 177)
Me.Panel5.TabIndex = 9 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 'Label5
' '
Me.Label5.AutoSize = True Me.Label5.AutoSize = True
@@ -222,7 +383,7 @@ Partial Class frmMDM_USTVAntrag
Me.txtBis._WaehrungZeichen = True Me.txtBis._WaehrungZeichen = True
Me.txtBis.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!) Me.txtBis.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
Me.txtBis.ForeColor = System.Drawing.Color.Black 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.MaxLength = 10
Me.txtBis.MaxLineLength = -1 Me.txtBis.MaxLineLength = -1
Me.txtBis.MaxLines_Warning = "" Me.txtBis.MaxLines_Warning = ""
@@ -247,7 +408,7 @@ Partial Class frmMDM_USTVAntrag
Me.txtVon._WaehrungZeichen = True Me.txtVon._WaehrungZeichen = True
Me.txtVon.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!) Me.txtVon.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
Me.txtVon.ForeColor = System.Drawing.Color.Black 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.MaxLength = 10
Me.txtVon.MaxLineLength = -1 Me.txtVon.MaxLineLength = -1
Me.txtVon.MaxLines_Warning = "" Me.txtVon.MaxLines_Warning = ""
@@ -259,59 +420,20 @@ Partial Class frmMDM_USTVAntrag
'rtbStatusText 'rtbStatusText
' '
Me.rtbStatusText.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) 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.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.TabIndex = 4
Me.rtbStatusText.Text = "" 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 'Label3
' '
Me.Label3.AutoSize = True 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.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.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.ForeColor = System.Drawing.Color.Black
Me.Label3.Location = New System.Drawing.Point(3, 70) Me.Label3.Location = New System.Drawing.Point(10, 13)
Me.Label3.Name = "Label3" Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(68, 17) Me.Label3.Size = New System.Drawing.Size(68, 17)
Me.Label3.TabIndex = 5 Me.Label3.TabIndex = 5
@@ -320,11 +442,11 @@ Partial Class frmMDM_USTVAntrag
'lblZeitraum 'lblZeitraum
' '
Me.lblZeitraum.AutoSize = True 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.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.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.ForeColor = System.Drawing.Color.Black
Me.lblZeitraum.Location = New System.Drawing.Point(200, 69) Me.lblZeitraum.Location = New System.Drawing.Point(207, 12)
Me.lblZeitraum.Name = "lblZeitraum" Me.lblZeitraum.Name = "lblZeitraum"
Me.lblZeitraum.Size = New System.Drawing.Size(14, 17) Me.lblZeitraum.Size = New System.Drawing.Size(14, 17)
Me.lblZeitraum.TabIndex = 7 Me.lblZeitraum.TabIndex = 7
@@ -332,13 +454,15 @@ Partial Class frmMDM_USTVAntrag
' '
'lblFirma '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.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.Cursor = System.Windows.Forms.Cursors.Default
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.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold)
Me.lblFirma.ForeColor = System.Drawing.Color.White 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.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.TabIndex = 3
Me.lblFirma.Text = "VERAG Spedition AG" 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.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.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.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.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(116, 20) Me.Label1.Size = New System.Drawing.Size(116, 20)
Me.Label1.TabIndex = 0 Me.Label1.TabIndex = 0
@@ -360,14 +484,14 @@ Partial Class frmMDM_USTVAntrag
Me.pnlFilter.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle Me.pnlFilter.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.pnlFilter.Controls.Add(Me.dgvUSTVPositionen) Me.pnlFilter.Controls.Add(Me.dgvUSTVPositionen)
Me.pnlFilter.Dock = System.Windows.Forms.DockStyle.Fill 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.Name = "pnlFilter"
Me.pnlFilter.Size = New System.Drawing.Size(1454, 289) Me.pnlFilter.Size = New System.Drawing.Size(1454, 267)
Me.pnlFilter.TabIndex = 1 Me.pnlFilter.TabIndex = 1
' '
'dgvUSTVPositionen 'dgvUSTVPositionen
' '
Me.dgvUSTVPositionen.AKTUALISIERUNGS_INTERVALL = -1 Me.dgvUSTVPositionen.AKTUALISIERUNGS_INTERVALL = 500
Me.dgvUSTVPositionen.AllowUserToAddRows = False Me.dgvUSTVPositionen.AllowUserToAddRows = False
Me.dgvUSTVPositionen.AllowUserToDeleteRows = 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)) 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.RowHeadersVisible = False
Me.dgvUSTVPositionen.RowHeadersWidth = 62 Me.dgvUSTVPositionen.RowHeadersWidth = 62
Me.dgvUSTVPositionen.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect 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 Me.dgvUSTVPositionen.TabIndex = 0
' '
'pnl 'pnl
@@ -401,6 +525,7 @@ Partial Class frmMDM_USTVAntrag
Me.Panel2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle Me.Panel2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Panel2.Controls.Add(Me.UstCntlUSTV_AntragPosition1) Me.Panel2.Controls.Add(Me.UstCntlUSTV_AntragPosition1)
Me.Panel2.Dock = System.Windows.Forms.DockStyle.Fill Me.Panel2.Dock = System.Windows.Forms.DockStyle.Fill
Me.Panel2.Enabled = False
Me.Panel2.Location = New System.Drawing.Point(154, 0) Me.Panel2.Location = New System.Drawing.Point(154, 0)
Me.Panel2.Name = "Panel2" Me.Panel2.Name = "Panel2"
Me.Panel2.Size = New System.Drawing.Size(1300, 269) Me.Panel2.Size = New System.Drawing.Size(1300, 269)
@@ -420,6 +545,7 @@ Partial Class frmMDM_USTVAntrag
' '
'Button3 'Button3
' '
Me.Button3.Enabled = False
Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button3.ForeColor = System.Drawing.Color.Black Me.Button3.ForeColor = System.Drawing.Color.Black
Me.Button3.Image = Global.SDL.My.Resources.Resources.del Me.Button3.Image = Global.SDL.My.Resources.Resources.del
@@ -434,6 +560,7 @@ Partial Class frmMDM_USTVAntrag
' '
'Button2 'Button2
' '
Me.Button2.Enabled = False
Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button2.ForeColor = System.Drawing.Color.Black Me.Button2.ForeColor = System.Drawing.Color.Black
Me.Button2.Image = Global.SDL.My.Resources.Resources.plus 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.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button2.UseVisualStyleBackColor = True 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.Label7.Anchor = CType((System.Windows.Forms.AnchorStyles.Top 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.Label7.AutoSize = True
Me.btnBearb.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.Label7.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.btnBearb.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) Me.Label7.Cursor = System.Windows.Forms.Cursors.Default
Me.btnBearb.ForeColor = System.Drawing.Color.Black Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!)
Me.btnBearb.Location = New System.Drawing.Point(3, 3) Me.Label7.ForeColor = System.Drawing.Color.White
Me.btnBearb.Name = "btnBearb" Me.Label7.Location = New System.Drawing.Point(684, 36)
Me.btnBearb.Size = New System.Drawing.Size(86, 36) Me.Label7.Name = "Label7"
Me.btnBearb.TabIndex = 0 Me.Label7.Size = New System.Drawing.Size(146, 15)
Me.btnBearb.Text = "In Bearbeitung" Me.Label7.TabIndex = 12
Me.btnBearb.UseVisualStyleBackColor = False Me.Label7.Text = "Gesamtbetrag Erstattung:"
' '
'FlowLayoutPanel 'lblGesamtErstattung
' '
Me.FlowLayoutPanel.Controls.Add(Me.btnBearb) Me.lblGesamtErstattung.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.FlowLayoutPanel.Controls.Add(Me.btnUnvollst) Me.lblGesamtErstattung.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.FlowLayoutPanel.Controls.Add(Me.btnEingereicht) Me.lblGesamtErstattung.Cursor = System.Windows.Forms.Cursors.Default
Me.FlowLayoutPanel.Controls.Add(Me.btnAbgelehnt) Me.lblGesamtErstattung.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold)
Me.FlowLayoutPanel.Controls.Add(Me.btnNachforderung) Me.lblGesamtErstattung.ForeColor = System.Drawing.Color.White
Me.FlowLayoutPanel.Controls.Add(Me.btnErstettel) Me.lblGesamtErstattung.Location = New System.Drawing.Point(826, 36)
Me.FlowLayoutPanel.Controls.Add(Me.btnTeilerstattung) Me.lblGesamtErstattung.Name = "lblGesamtErstattung"
Me.FlowLayoutPanel.Controls.Add(Me.btnStorno) Me.lblGesamtErstattung.Size = New System.Drawing.Size(133, 17)
Me.FlowLayoutPanel.Location = New System.Drawing.Point(3, 50) Me.lblGesamtErstattung.TabIndex = 13
Me.FlowLayoutPanel.Name = "FlowLayoutPanel" Me.lblGesamtErstattung.Text = "000.000,00 €"
Me.FlowLayoutPanel.Size = New System.Drawing.Size(479, 52) Me.lblGesamtErstattung.TextAlign = System.Drawing.ContentAlignment.TopRight
Me.FlowLayoutPanel.TabIndex = 2
' '
'btnEingereicht 'lblDiffernezbetrag
' '
Me.btnEingereicht.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.lblDiffernezbetrag.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnEingereicht.BackColor = System.Drawing.Color.SteelBlue Me.lblDiffernezbetrag.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.btnEingereicht.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.lblDiffernezbetrag.Cursor = System.Windows.Forms.Cursors.Default
Me.btnEingereicht.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) Me.lblDiffernezbetrag.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold)
Me.btnEingereicht.ForeColor = System.Drawing.Color.White Me.lblDiffernezbetrag.ForeColor = System.Drawing.Color.White
Me.btnEingereicht.Location = New System.Drawing.Point(191, 3) Me.lblDiffernezbetrag.Location = New System.Drawing.Point(826, 59)
Me.btnEingereicht.Name = "btnEingereicht" Me.lblDiffernezbetrag.Name = "lblDiffernezbetrag"
Me.btnEingereicht.Size = New System.Drawing.Size(87, 36) Me.lblDiffernezbetrag.Size = New System.Drawing.Size(133, 17)
Me.btnEingereicht.TabIndex = 2 Me.lblDiffernezbetrag.TabIndex = 15
Me.btnEingereicht.Text = "Eingereicht" Me.lblDiffernezbetrag.Text = "000.000,00 €"
Me.btnEingereicht.UseVisualStyleBackColor = False 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.Label10.Anchor = CType((System.Windows.Forms.AnchorStyles.Top 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.Label10.AutoSize = True
Me.btnUnvollst.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.Label10.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.btnUnvollst.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) Me.Label10.Cursor = System.Windows.Forms.Cursors.Default
Me.btnUnvollst.ForeColor = System.Drawing.Color.Black Me.Label10.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!)
Me.btnUnvollst.Location = New System.Drawing.Point(95, 3) Me.Label10.ForeColor = System.Drawing.Color.White
Me.btnUnvollst.Name = "btnUnvollst" Me.Label10.Location = New System.Drawing.Point(684, 59)
Me.btnUnvollst.Size = New System.Drawing.Size(90, 36) Me.Label10.Name = "Label10"
Me.btnUnvollst.TabIndex = 1 Me.Label10.Size = New System.Drawing.Size(94, 15)
Me.btnUnvollst.Text = "Unvollständig" Me.Label10.TabIndex = 14
Me.btnUnvollst.UseVisualStyleBackColor = False 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.lblGesamtUSteuer.Anchor = CType((System.Windows.Forms.AnchorStyles.Top 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.lblGesamtUSteuer.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.btnNachforderung.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.lblGesamtUSteuer.Cursor = System.Windows.Forms.Cursors.Default
Me.btnNachforderung.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) Me.lblGesamtUSteuer.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold)
Me.btnNachforderung.ForeColor = System.Drawing.Color.Black Me.lblGesamtUSteuer.ForeColor = System.Drawing.Color.White
Me.btnNachforderung.Location = New System.Drawing.Point(370, 3) Me.lblGesamtUSteuer.Location = New System.Drawing.Point(826, 16)
Me.btnNachforderung.Name = "btnNachforderung" Me.lblGesamtUSteuer.Name = "lblGesamtUSteuer"
Me.btnNachforderung.Size = New System.Drawing.Size(98, 36) Me.lblGesamtUSteuer.Size = New System.Drawing.Size(133, 17)
Me.btnNachforderung.TabIndex = 4 Me.lblGesamtUSteuer.TabIndex = 17
Me.btnNachforderung.Text = "Nachforderung/" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Berichtigung" Me.lblGesamtUSteuer.Text = "000.000,00 €"
Me.btnNachforderung.UseVisualStyleBackColor = False 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.Label12.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnErstettel.BackColor = System.Drawing.Color.Green Me.Label12.AutoSize = True
Me.btnErstettel.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.Label12.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.btnErstettel.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) Me.Label12.Cursor = System.Windows.Forms.Cursors.Default
Me.btnErstettel.ForeColor = System.Drawing.Color.White Me.Label12.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!)
Me.btnErstettel.Location = New System.Drawing.Point(3, 45) Me.Label12.ForeColor = System.Drawing.Color.White
Me.btnErstettel.Name = "btnErstettel" Me.Label12.Location = New System.Drawing.Point(684, 16)
Me.btnErstettel.Size = New System.Drawing.Size(86, 36) Me.Label12.Name = "Label12"
Me.btnErstettel.TabIndex = 5 Me.Label12.Size = New System.Drawing.Size(136, 15)
Me.btnErstettel.Text = "Erstattet" Me.Label12.TabIndex = 16
Me.btnErstettel.UseVisualStyleBackColor = False Me.Label12.Text = "Gesamtbetrag USteuer:"
'
'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
' '
'UstCntlUSTV_AntragPosition1 'UstCntlUSTV_AntragPosition1
' '
@@ -581,6 +665,77 @@ Partial Class frmMDM_USTVAntrag
Me.UstCntlUSTV_AntragPosition1.Size = New System.Drawing.Size(1298, 267) Me.UstCntlUSTV_AntragPosition1.Size = New System.Drawing.Size(1298, 267)
Me.UstCntlUSTV_AntragPosition1.TabIndex = 0 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 'frmMDM_USTVAntrag
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -601,12 +756,18 @@ Partial Class frmMDM_USTVAntrag
Me.Panel1.PerformLayout() Me.Panel1.PerformLayout()
Me.Panel5.ResumeLayout(False) Me.Panel5.ResumeLayout(False)
Me.Panel5.PerformLayout() Me.Panel5.PerformLayout()
Me.FlowLayoutPanel.ResumeLayout(False)
Me.FlowLayoutPanel.PerformLayout()
Me.pnlFilter.ResumeLayout(False) Me.pnlFilter.ResumeLayout(False)
CType(Me.dgvUSTVPositionen, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.dgvUSTVPositionen, System.ComponentModel.ISupportInitialize).EndInit()
Me.pnl.ResumeLayout(False) Me.pnl.ResumeLayout(False)
Me.Panel2.ResumeLayout(False) Me.Panel2.ResumeLayout(False)
Me.Panel4.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) Me.ResumeLayout(False)
End Sub End Sub
@@ -620,11 +781,8 @@ Partial Class frmMDM_USTVAntrag
Friend WithEvents dgvUSTVPositionen As VERAG_PROG_ALLGEMEIN.MyDatagridview Friend WithEvents dgvUSTVPositionen As VERAG_PROG_ALLGEMEIN.MyDatagridview
Friend WithEvents lblPLOSE_EintrageVerarbetiet As Label Friend WithEvents lblPLOSE_EintrageVerarbetiet As Label
Friend WithEvents cbxArchivierteEintracheNochmalsEinarbetien As CheckBox Friend WithEvents cbxArchivierteEintracheNochmalsEinarbetien As CheckBox
Friend WithEvents Label4 As Label
Friend WithEvents Label3 As Label Friend WithEvents Label3 As Label
Friend WithEvents lblZeitraum 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 cboStatus As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents Label5 As Label Friend WithEvents Label5 As Label
Friend WithEvents rtbStatusText As RichTextBox Friend WithEvents rtbStatusText As RichTextBox
@@ -648,4 +806,17 @@ Partial Class frmMDM_USTVAntrag
Friend WithEvents btnAbgelehnt As Button Friend WithEvents btnAbgelehnt As Button
Friend WithEvents btnStorno As Button Friend WithEvents btnStorno As Button
Friend WithEvents btnTeilerstattung 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 End Class

86
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 UStVAn_ID As Integer
Dim USTV_ANTRAG As VERAG_PROG_ALLGEMEIN.cUSTVAntrag = Nothing Dim USTV_ANTRAG As VERAG_PROG_ALLGEMEIN.cUSTVAntrag = Nothing
@@ -17,6 +19,10 @@
Sub init() Sub init()
pnlFilter.AutoScroll = False pnlFilter.AutoScroll = False
lblGesamtUSteuer.Text = "-"
lblGesamtErstattung.Text = "-"
lblDiffernezbetrag.Text = "-"
With dgvUSTVPositionen With dgvUSTVPositionen
.ClearSelection() .ClearSelection()
@@ -82,7 +88,15 @@
End With 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) 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) Sub setValue(USTV_ANTRAG As VERAG_PROG_ALLGEMEIN.cUSTVAntrag)
lblFirma.Text = USTV_ANTRAG.UStVAn_Name lblFirma.Text = USTV_ANTRAG.UStVAn_Name
lblKdNr.Text = USTV_ANTRAG.UStVAn_KuNr
lblLand.Text = Antrag_LandKz lblLand.Text = Antrag_LandKz
txtVon._value = CDate(USTV_ANTRAG.UStVAn_ReDatVon) txtVon._value = CDate(USTV_ANTRAG.UStVAn_ReDatVon)
txtBis._value = CDate(USTV_ANTRAG.UStVAn_ReDatBis) 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") '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, "")) cboStatus.changeItem(If(USTV_ANTRAG.UStVAn_Status, ""))
rtbStatusText.Text = If(USTV_ANTRAG.UStVAn_StatusText, "") 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") '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, "")) USTV_ANTRAG.UStVAn_Status = cboStatus._value
rtbStatusText.Text = If(USTV_ANTRAG.UStVAn_StatusText, "") USTV_ANTRAG.UStVAn_StatusText = rtbStatusText.Text
End If End If
End Sub End Sub
Function Me_Validate() As Boolean Function Me_Validate() As Boolean
If IsDate(txtVon._value) Then MsgBox("Datumsformat: Von") : Return False If Not IsDate(txtVon._value) Then MsgBox("Datumsformat: Von") : Return False
If IsDate(txtBis._value) Then MsgBox("Datumsformat: Bis") : Return False If Not IsDate(txtBis._value) Then MsgBox("Datumsformat: Bis") : Return False
Return True Return True
End Function 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 Private Sub usrCntlVERAGCard_Load(sender As Object, e As EventArgs) Handles MyBase.Load
EnableDoubleBuffered(dgvUSTVPositionen)
cboStatus.Items.Clear() cboStatus.Items.Clear()
cboStatus.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("-", "")) cboStatus.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("-", ""))
cboStatus.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("In Bearbeitung", cUSTVStatus.STAT_INBEARBEITUNG)) 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("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("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("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("Abgelehnt", cUSTVStatus.STAT_ABGELEHNT))
cboStatus.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Storno", cUSTVStatus.STAT_STORNO)) cboStatus.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Storno", cUSTVStatus.STAT_STORNO))
cboStatus.changeItem(cUSTVStatus.STAT_INBEARBEITUNG) cboStatus.changeItem(cUSTVStatus.STAT_INBEARBEITUNG)
lblPLOSE_EintrageVerarbetiet.Text = "" lblPLOSE_EintrageVerarbetiet.Text = ""
If UStVAn_ID > 0 Then If UStVAn_ID > 0 Then
USTV_ANTRAG = New VERAG_PROG_ALLGEMEIN.cUSTVAntrag(UStVAn_ID) 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) setValue(USTV_ANTRAG)
End If End If
init() init()
@@ -224,7 +253,6 @@
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
getValue(USTV_ANTRAG) getValue(USTV_ANTRAG)
If USTV_ANTRAG.SAVE Then If USTV_ANTRAG.SAVE Then
Me.Close() Me.Close()
End If End If
@@ -295,15 +323,21 @@
For Each b In FlowLayoutPanel.Controls For Each b In FlowLayoutPanel.Controls
b.visible = False b.visible = False
Next Next
Panel5.BackColor = Color.FromArgb(255, 255, 192)
Panel5.ForeColor = Color.Black
Select Case cboStatus._value Select Case cboStatus._value
Case cUSTVStatus.STAT_INBEARBEITUNG Case cUSTVStatus.STAT_INBEARBEITUNG
btnEingereicht.Visible = True btnEingereicht.Visible = True
btnStorno.Visible = True btnStorno.Visible = True
btnUnvollst.Visible = True btnUnvollst.Visible = True
Panel5.BackColor = Color.LightGray
Case cUSTVStatus.STAT_UNVOLLSTAENDIG Case cUSTVStatus.STAT_UNVOLLSTAENDIG
btnBearb.Visible = True btnBearb.Visible = True
btnEingereicht.Visible = True btnEingereicht.Visible = True
btnStorno.Visible = True btnStorno.Visible = True
Panel5.BackColor = Color.FromArgb(255, 192, 128)
Case cUSTVStatus.STAT_EINGEREICHT Case cUSTVStatus.STAT_EINGEREICHT
'btnBearb.Visible = True 'btnBearb.Visible = True
btnStorno.Visible = True btnStorno.Visible = True
@@ -311,23 +345,49 @@
btnErstettel.Visible = True btnErstettel.Visible = True
btnAbgelehnt.Visible = True btnAbgelehnt.Visible = True
btnNachforderung.Visible = True btnNachforderung.Visible = True
Panel5.BackColor = Color.SteelBlue
Panel5.ForeColor = Color.White
Case cUSTVStatus.STAT_ABGELEHNT Case cUSTVStatus.STAT_ABGELEHNT
btnBearb.Visible = True btnBearb.Visible = True
btnEingereicht.Visible = True btnEingereicht.Visible = True
btnUnvollst.Visible = True btnUnvollst.Visible = True
btnStorno.Visible = True btnStorno.Visible = True
Panel5.BackColor = Color.Red
Panel5.ForeColor = Color.White
Case cUSTVStatus.STAT_NACHFORDERUNG Case cUSTVStatus.STAT_NACHFORDERUNG
btnBearb.Visible = True btnBearb.Visible = True
btnEingereicht.Visible = True btnEingereicht.Visible = True
'btnUnvollst.Visible = True 'btnUnvollst.Visible = True
btnStorno.Visible = True btnStorno.Visible = True
Panel5.BackColor = Color.FromArgb(255, 192, 128)
Case cUSTVStatus.STAT_ERSTATTET Case cUSTVStatus.STAT_ERSTATTET
' btnStorno.Visible = True ' btnStorno.Visible = True
Panel5.BackColor = Color.Green
Panel5.ForeColor = Color.White
lblAntragAbgeschlossen.Visible = True
lblAntragAbgeschlossen.ForeColor = Color.DarkGreen
Case cUSTVStatus.STAT_TEILERSTATTET Case cUSTVStatus.STAT_TEILERSTATTET
btnErstettel.Visible = True ' btnErstettel.Visible = True
' btnStorno.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 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 End Sub
Private Sub btnBearb_Click(sender As Object, e As EventArgs) Handles btnBearb.Click Private Sub btnBearb_Click(sender As Object, e As EventArgs) Handles btnBearb.Click
@@ -376,6 +436,10 @@
End If End If
End Sub End Sub
Private Sub Panel1_Paint(sender As Object, e As PaintEventArgs) Handles Panel1.Paint
End Sub
' Private Sub cmdITMautÜbernehmen_Click() ' Private Sub cmdITMautÜbernehmen_Click()
' Dim wrk As DAO.Workspace ' 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) Return SQL.doSQLVarList(sqlstr, "FMZOLL", , list)
End Function End Function
Public Function getInsertCmd() As String Public Function getInsertCmd() As String
Try Try
'Me.Eingegeben_am = Now 'Me.Eingegeben_am = Now