diff --git a/SDL/My Project/AssemblyInfo.vb b/SDL/My Project/AssemblyInfo.vb index 0c9f977a..8904d736 100644 --- a/SDL/My Project/AssemblyInfo.vb +++ b/SDL/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + + diff --git a/SDL/USTV/frmMDM_USTVAntrag.Designer.vb b/SDL/USTV/frmMDM_USTVAntrag.Designer.vb index 934f8ce7..519a823b 100644 --- a/SDL/USTV/frmMDM_USTVAntrag.Designer.vb +++ b/SDL/USTV/frmMDM_USTVAntrag.Designer.vb @@ -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 diff --git a/SDL/USTV/frmMDM_USTVAntrag.vb b/SDL/USTV/frmMDM_USTVAntrag.vb index c221f0cc..c2ce1205 100644 --- a/SDL/USTV/frmMDM_USTVAntrag.vb +++ b/SDL/USTV/frmMDM_USTVAntrag.vb @@ -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 + ' 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 diff --git a/VERAG_PROG_ALLGEMEIN/Classes/USTV/cUSTVAntrag.vb b/VERAG_PROG_ALLGEMEIN/Classes/USTV/cUSTVAntrag.vb index ea4c30fa..714cd8a9 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/USTV/cUSTVAntrag.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/USTV/cUSTVAntrag.vb @@ -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