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

merge

Browse Source
This commit is contained in:
Andreas Luxbauer
2025-02-17 10:51:43 +01:00
parent 4b4dc86861 56aa1bdc37
commit e25b494beb
11 changed files with 1899 additions and 190 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
SDL/SDL.vbproj
View File

@@ -1066,6 +1066,12 @@
<Compile Include="Speditionsbuch\Nacherfassung\frmNacherfassungEndEmpfaenger.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="USTV\ustCntlUSTV_ErstattungPosition .Designer.vb">
<DependentUpon>ustCntlUSTV_ErstattungPosition .vb</DependentUpon>
</Compile>
<Compile Include="USTV\ustCntlUSTV_ErstattungPosition .vb">
<SubType>UserControl</SubType>
</Compile>
<Compile Include="USTV\ustCntlUSTV_AntragPosition.Designer.vb">
<DependentUpon>ustCntlUSTV_AntragPosition.vb</DependentUpon>
</Compile>
@@ -3470,6 +3476,9 @@
<EmbeddedResource Include="Speditionsbuch\Nacherfassung\frmNacherfassungEndEmpfaenger.resx">
<DependentUpon>frmNacherfassungEndEmpfaenger.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="USTV\ustCntlUSTV_ErstattungPosition .resx">
<DependentUpon>ustCntlUSTV_ErstattungPosition .vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="USTV\ustCntlUSTV_AntragPosition.resx">
<DependentUpon>ustCntlUSTV_AntragPosition.vb</DependentUpon>
</EmbeddedResource>

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

@@ -24,16 +24,19 @@ Partial Class frmMDM_USTVAntrag
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMDM_USTVAntrag))
Me.Panel3 = New System.Windows.Forms.Panel()
Me.pnlBottom = New System.Windows.Forms.Panel()
Me.picPDF = New System.Windows.Forms.PictureBox()
Me.btnMail = New System.Windows.Forms.Button()
Me.btnAntrageeinarbeiten = New System.Windows.Forms.Button()
Me.cbxArchivierteEintracheNochmalsEinarbetien = New System.Windows.Forms.CheckBox()
Me.Button1 = New System.Windows.Forms.Button()
Me.lbl_EintrageVerarbetiet = New System.Windows.Forms.Label()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.lblWarnung = New System.Windows.Forms.Label()
Me.pnlHeader = New System.Windows.Forms.Panel()
Me.lblGesamtUSteuer = New System.Windows.Forms.Label()
Me.lblDiffernezbetrag = New System.Windows.Forms.Label()
Me.lblGesamtErstattung = New System.Windows.Forms.Label()
Me.KdSearchBox1 = New VERAG_PROG_ALLGEMEIN.KdSearchBox()
Me.cboAntragArt = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.lblKdNr = New System.Windows.Forms.Label()
@@ -41,7 +44,7 @@ Partial Class frmMDM_USTVAntrag
Me.cbxLand = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.lblLand = New System.Windows.Forms.Label()
Me.Panel8 = New System.Windows.Forms.Panel()
Me.lblMWSTAbrechnung = New System.Windows.Forms.Label()
Me.lblMWSTAntrag = New System.Windows.Forms.Label()
Me.Label13 = New System.Windows.Forms.Label()
Me.txtGueltig = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label11 = New System.Windows.Forms.Label()
@@ -63,11 +66,11 @@ Partial Class frmMDM_USTVAntrag
Me.txtVon = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtBis = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Panel6 = New System.Windows.Forms.Panel()
Me.lblGesamtUSteuer = New System.Windows.Forms.Label()
Me.lblGesamtUSteuerFW = New System.Windows.Forms.Label()
Me.Label12 = New System.Windows.Forms.Label()
Me.lblDiffernezbetrag = New System.Windows.Forms.Label()
Me.lblDiffernezbetragFW = New System.Windows.Forms.Label()
Me.Label10 = New System.Windows.Forms.Label()
Me.lblGesamtErstattung = New System.Windows.Forms.Label()
Me.lblGesamtErstattungFW = New System.Windows.Forms.Label()
Me.Label7 = New System.Windows.Forms.Label()
Me.Panel5 = New System.Windows.Forms.Panel()
Me.Panel7 = New System.Windows.Forms.Panel()
@@ -86,46 +89,64 @@ Partial Class frmMDM_USTVAntrag
Me.Label5 = New System.Windows.Forms.Label()
Me.cboStatus = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.lblFirma = New System.Windows.Forms.Label()
Me.pnlFilter = New System.Windows.Forms.Panel()
Me.lblWarnung = New System.Windows.Forms.Label()
Me.pnlBody = New System.Windows.Forms.Panel()
Me.TabControl1 = New System.Windows.Forms.TabControl()
Me.TabPage1 = New System.Windows.Forms.TabPage()
Me.dgvUSTVPositionen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.pnl = New System.Windows.Forms.Panel()
Me.pnlAntragsPosDetails = New System.Windows.Forms.Panel()
Me.Panel2 = New System.Windows.Forms.Panel()
Me.UstCntlUSTV_AntragPosition1 = New SDL.ustCntlUSTV_AntragPosition()
Me.Panel4 = New System.Windows.Forms.Panel()
Me.btnEintragloeschen = New System.Windows.Forms.Button()
Me.btnNeuerEintrag = New System.Windows.Forms.Button()
Me.TabPage2 = New System.Windows.Forms.TabPage()
Me.Panel3 = New System.Windows.Forms.Panel()
Me.dgvErstattungspositionen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.pnlErstattungsdetails = New System.Windows.Forms.Panel()
Me.UstCntlUSTV_AntragErstattungen1 = New SDL.ustCntlUSTV_ErstattungPosition()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.Button2 = New System.Windows.Forms.Button()
Me.Button3 = New System.Windows.Forms.Button()
Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.UstCntlUSTV_AntragPosition1 = New SDL.ustCntlUSTV_AntragPosition()
Me.Panel3.SuspendLayout()
Me.pnlBottom.SuspendLayout()
CType(Me.picPDF, System.ComponentModel.ISupportInitialize).BeginInit()
Me.Panel1.SuspendLayout()
Me.pnlHeader.SuspendLayout()
Me.Panel9.SuspendLayout()
Me.Panel8.SuspendLayout()
Me.Panel5.SuspendLayout()
Me.Panel7.SuspendLayout()
Me.FlowLayoutPanel.SuspendLayout()
Me.pnlFilter.SuspendLayout()
Me.pnlBody.SuspendLayout()
Me.TabControl1.SuspendLayout()
Me.TabPage1.SuspendLayout()
CType(Me.dgvUSTVPositionen, System.ComponentModel.ISupportInitialize).BeginInit()
Me.pnl.SuspendLayout()
Me.pnlAntragsPosDetails.SuspendLayout()
Me.Panel2.SuspendLayout()
Me.Panel4.SuspendLayout()
Me.TabPage2.SuspendLayout()
Me.Panel3.SuspendLayout()
CType(Me.dgvErstattungspositionen, System.ComponentModel.ISupportInitialize).BeginInit()
Me.pnlErstattungsdetails.SuspendLayout()
Me.Panel1.SuspendLayout()
Me.SuspendLayout()
'
'Panel3
'pnlBottom
'
Me.Panel3.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
Me.Panel3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Panel3.Controls.Add(Me.picPDF)
Me.Panel3.Controls.Add(Me.btnMail)
Me.Panel3.Controls.Add(Me.btnAntrageeinarbeiten)
Me.Panel3.Controls.Add(Me.cbxArchivierteEintracheNochmalsEinarbetien)
Me.Panel3.Controls.Add(Me.Button1)
Me.Panel3.Controls.Add(Me.lbl_EintrageVerarbetiet)
Me.Panel3.Dock = System.Windows.Forms.DockStyle.Bottom
Me.Panel3.Location = New System.Drawing.Point(0, 649)
Me.Panel3.Name = "Panel3"
Me.Panel3.Size = New System.Drawing.Size(1454, 100)
Me.Panel3.TabIndex = 3
Me.pnlBottom.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
Me.pnlBottom.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.pnlBottom.Controls.Add(Me.picPDF)
Me.pnlBottom.Controls.Add(Me.btnMail)
Me.pnlBottom.Controls.Add(Me.btnAntrageeinarbeiten)
Me.pnlBottom.Controls.Add(Me.cbxArchivierteEintracheNochmalsEinarbetien)
Me.pnlBottom.Controls.Add(Me.Button1)
Me.pnlBottom.Controls.Add(Me.lbl_EintrageVerarbetiet)
Me.pnlBottom.Dock = System.Windows.Forms.DockStyle.Bottom
Me.pnlBottom.Location = New System.Drawing.Point(0, 649)
Me.pnlBottom.Name = "pnlBottom"
Me.pnlBottom.Size = New System.Drawing.Size(1454, 100)
Me.pnlBottom.TabIndex = 3
'
'picPDF
'
@@ -199,42 +220,74 @@ Partial Class frmMDM_USTVAntrag
Me.lbl_EintrageVerarbetiet.TextAlign = System.Drawing.ContentAlignment.TopRight
Me.lbl_EintrageVerarbetiet.Visible = False
'
'Panel1
'pnlHeader
'
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.lblWarnung)
Me.Panel1.Controls.Add(Me.KdSearchBox1)
Me.Panel1.Controls.Add(Me.cboAntragArt)
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.lblFirma)
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, 177)
Me.Panel1.TabIndex = 0
Me.pnlHeader.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.pnlHeader.Controls.Add(Me.lblGesamtUSteuer)
Me.pnlHeader.Controls.Add(Me.lblDiffernezbetrag)
Me.pnlHeader.Controls.Add(Me.lblGesamtErstattung)
Me.pnlHeader.Controls.Add(Me.KdSearchBox1)
Me.pnlHeader.Controls.Add(Me.cboAntragArt)
Me.pnlHeader.Controls.Add(Me.lblKdNr)
Me.pnlHeader.Controls.Add(Me.Panel9)
Me.pnlHeader.Controls.Add(Me.Panel8)
Me.pnlHeader.Controls.Add(Me.Panel6)
Me.pnlHeader.Controls.Add(Me.lblGesamtUSteuerFW)
Me.pnlHeader.Controls.Add(Me.Label12)
Me.pnlHeader.Controls.Add(Me.lblDiffernezbetragFW)
Me.pnlHeader.Controls.Add(Me.Label10)
Me.pnlHeader.Controls.Add(Me.lblGesamtErstattungFW)
Me.pnlHeader.Controls.Add(Me.Label7)
Me.pnlHeader.Controls.Add(Me.Panel5)
Me.pnlHeader.Controls.Add(Me.lblFirma)
Me.pnlHeader.Controls.Add(Me.lblWarnung)
Me.pnlHeader.Dock = System.Windows.Forms.DockStyle.Top
Me.pnlHeader.Location = New System.Drawing.Point(0, 0)
Me.pnlHeader.Name = "pnlHeader"
Me.pnlHeader.Size = New System.Drawing.Size(1454, 177)
Me.pnlHeader.TabIndex = 0
'
'lblWarnung
'lblGesamtUSteuer
'
Me.lblWarnung.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblWarnung.BackColor = System.Drawing.Color.Transparent
Me.lblWarnung.Cursor = System.Windows.Forms.Cursors.Default
Me.lblWarnung.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold)
Me.lblWarnung.ForeColor = System.Drawing.Color.Red
Me.lblWarnung.Location = New System.Drawing.Point(475, 10)
Me.lblWarnung.Name = "lblWarnung"
Me.lblWarnung.Size = New System.Drawing.Size(183, 18)
Me.lblWarnung.TabIndex = 23
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.Transparent
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(840, 16)
Me.lblGesamtUSteuer.Name = "lblGesamtUSteuer"
Me.lblGesamtUSteuer.Size = New System.Drawing.Size(133, 17)
Me.lblGesamtUSteuer.TabIndex = 26
Me.lblGesamtUSteuer.Text = "000.000,00"
Me.lblGesamtUSteuer.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'lblDiffernezbetrag
'
Me.lblDiffernezbetrag.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblDiffernezbetrag.BackColor = System.Drawing.Color.Transparent
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(840, 59)
Me.lblDiffernezbetrag.Name = "lblDiffernezbetrag"
Me.lblDiffernezbetrag.Size = New System.Drawing.Size(133, 17)
Me.lblDiffernezbetrag.TabIndex = 25
Me.lblDiffernezbetrag.Text = "000.000,00"
Me.lblDiffernezbetrag.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'lblGesamtErstattung
'
Me.lblGesamtErstattung.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblGesamtErstattung.BackColor = System.Drawing.Color.Transparent
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(840, 36)
Me.lblGesamtErstattung.Name = "lblGesamtErstattung"
Me.lblGesamtErstattung.Size = New System.Drawing.Size(133, 17)
Me.lblGesamtErstattung.TabIndex = 24
Me.lblGesamtErstattung.Text = "000.000,00"
Me.lblGesamtErstattung.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'KdSearchBox1
'
@@ -335,7 +388,7 @@ Partial Class frmMDM_USTVAntrag
'
Me.Panel8.BackColor = System.Drawing.Color.WhiteSmoke
Me.Panel8.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Panel8.Controls.Add(Me.lblMWSTAbrechnung)
Me.Panel8.Controls.Add(Me.lblMWSTAntrag)
Me.Panel8.Controls.Add(Me.Label13)
Me.Panel8.Controls.Add(Me.txtGueltig)
Me.Panel8.Controls.Add(Me.Label11)
@@ -362,17 +415,17 @@ Partial Class frmMDM_USTVAntrag
Me.Panel8.Size = New System.Drawing.Size(973, 87)
Me.Panel8.TabIndex = 19
'
'lblMWSTAbrechnung
'lblMWSTAntrag
'
Me.lblMWSTAbrechnung.AutoSize = True
Me.lblMWSTAbrechnung.BackColor = System.Drawing.Color.Transparent
Me.lblMWSTAbrechnung.Cursor = System.Windows.Forms.Cursors.Hand
Me.lblMWSTAbrechnung.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblMWSTAbrechnung.ForeColor = System.Drawing.Color.Black
Me.lblMWSTAbrechnung.Location = New System.Drawing.Point(224, 41)
Me.lblMWSTAbrechnung.Name = "lblMWSTAbrechnung"
Me.lblMWSTAbrechnung.Size = New System.Drawing.Size(0, 17)
Me.lblMWSTAbrechnung.TabIndex = 25
Me.lblMWSTAntrag.AutoSize = True
Me.lblMWSTAntrag.BackColor = System.Drawing.Color.Transparent
Me.lblMWSTAntrag.Cursor = System.Windows.Forms.Cursors.Hand
Me.lblMWSTAntrag.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblMWSTAntrag.ForeColor = System.Drawing.Color.Black
Me.lblMWSTAntrag.Location = New System.Drawing.Point(224, 41)
Me.lblMWSTAntrag.Name = "lblMWSTAntrag"
Me.lblMWSTAntrag.Size = New System.Drawing.Size(0, 17)
Me.lblMWSTAntrag.TabIndex = 25
'
'Label13
'
@@ -734,24 +787,24 @@ Partial Class frmMDM_USTVAntrag
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.Location = New System.Drawing.Point(571, 56)
Me.Panel6.Name = "Panel6"
Me.Panel6.Size = New System.Drawing.Size(290, 1)
Me.Panel6.Size = New System.Drawing.Size(390, 1)
Me.Panel6.TabIndex = 18
'
'lblGesamtUSteuer
'lblGesamtUSteuerFW
'
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.Transparent
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
Me.lblGesamtUSteuerFW.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblGesamtUSteuerFW.BackColor = System.Drawing.Color.Transparent
Me.lblGesamtUSteuerFW.Cursor = System.Windows.Forms.Cursors.Default
Me.lblGesamtUSteuerFW.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold)
Me.lblGesamtUSteuerFW.ForeColor = System.Drawing.Color.White
Me.lblGesamtUSteuerFW.Location = New System.Drawing.Point(721, 16)
Me.lblGesamtUSteuerFW.Name = "lblGesamtUSteuerFW"
Me.lblGesamtUSteuerFW.Size = New System.Drawing.Size(133, 17)
Me.lblGesamtUSteuerFW.TabIndex = 17
Me.lblGesamtUSteuerFW.Text = "000.000,00 €"
Me.lblGesamtUSteuerFW.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'Label12
'
@@ -761,25 +814,25 @@ Partial Class frmMDM_USTVAntrag
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.Location = New System.Drawing.Point(579, 16)
Me.Label12.Name = "Label12"
Me.Label12.Size = New System.Drawing.Size(136, 15)
Me.Label12.TabIndex = 16
Me.Label12.Text = "Gesamtbetrag USteuer:"
'
'lblDiffernezbetrag
'lblDiffernezbetragFW
'
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.Transparent
Me.lblDiffernezbetrag.Cursor = System.Windows.Forms.Cursors.Default
Me.lblDiffernezbetrag.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold)
Me.lblDiffernezbetrag.ForeColor = System.Drawing.Color.White
Me.lblDiffernezbetrag.Location = New System.Drawing.Point(826, 59)
Me.lblDiffernezbetrag.Name = "lblDiffernezbetrag"
Me.lblDiffernezbetrag.Size = New System.Drawing.Size(133, 17)
Me.lblDiffernezbetrag.TabIndex = 15
Me.lblDiffernezbetrag.Text = "000.000,00 €"
Me.lblDiffernezbetrag.TextAlign = System.Drawing.ContentAlignment.TopRight
Me.lblDiffernezbetragFW.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblDiffernezbetragFW.BackColor = System.Drawing.Color.Transparent
Me.lblDiffernezbetragFW.Cursor = System.Windows.Forms.Cursors.Default
Me.lblDiffernezbetragFW.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold)
Me.lblDiffernezbetragFW.ForeColor = System.Drawing.Color.White
Me.lblDiffernezbetragFW.Location = New System.Drawing.Point(721, 59)
Me.lblDiffernezbetragFW.Name = "lblDiffernezbetragFW"
Me.lblDiffernezbetragFW.Size = New System.Drawing.Size(133, 17)
Me.lblDiffernezbetragFW.TabIndex = 15
Me.lblDiffernezbetragFW.Text = "000.000,00 €"
Me.lblDiffernezbetragFW.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'Label10
'
@@ -789,25 +842,25 @@ Partial Class frmMDM_USTVAntrag
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.Location = New System.Drawing.Point(579, 59)
Me.Label10.Name = "Label10"
Me.Label10.Size = New System.Drawing.Size(94, 15)
Me.Label10.TabIndex = 14
Me.Label10.Text = "Differenzbetrag:"
'
'lblGesamtErstattung
'lblGesamtErstattungFW
'
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.Transparent
Me.lblGesamtErstattung.Cursor = System.Windows.Forms.Cursors.Default
Me.lblGesamtErstattung.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold)
Me.lblGesamtErstattung.ForeColor = System.Drawing.Color.White
Me.lblGesamtErstattung.Location = New System.Drawing.Point(826, 36)
Me.lblGesamtErstattung.Name = "lblGesamtErstattung"
Me.lblGesamtErstattung.Size = New System.Drawing.Size(133, 17)
Me.lblGesamtErstattung.TabIndex = 13
Me.lblGesamtErstattung.Text = "000.000,00 €"
Me.lblGesamtErstattung.TextAlign = System.Drawing.ContentAlignment.TopRight
Me.lblGesamtErstattungFW.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblGesamtErstattungFW.BackColor = System.Drawing.Color.Transparent
Me.lblGesamtErstattungFW.Cursor = System.Windows.Forms.Cursors.Default
Me.lblGesamtErstattungFW.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold)
Me.lblGesamtErstattungFW.ForeColor = System.Drawing.Color.White
Me.lblGesamtErstattungFW.Location = New System.Drawing.Point(721, 36)
Me.lblGesamtErstattungFW.Name = "lblGesamtErstattungFW"
Me.lblGesamtErstattungFW.Size = New System.Drawing.Size(133, 17)
Me.lblGesamtErstattungFW.TabIndex = 13
Me.lblGesamtErstattungFW.Text = "000.000,00 €"
Me.lblGesamtErstattungFW.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'Label7
'
@@ -817,7 +870,7 @@ Partial Class frmMDM_USTVAntrag
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.Location = New System.Drawing.Point(579, 36)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(146, 15)
Me.Label7.TabIndex = 12
@@ -1051,16 +1104,54 @@ Partial Class frmMDM_USTVAntrag
Me.lblFirma.TabIndex = 3
Me.lblFirma.Text = "VERAG Spedition AG"
'
'pnlFilter
'lblWarnung
'
Me.pnlFilter.BackColor = System.Drawing.Color.White
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, 177)
Me.pnlFilter.Name = "pnlFilter"
Me.pnlFilter.Size = New System.Drawing.Size(1454, 203)
Me.pnlFilter.TabIndex = 1
Me.lblWarnung.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblWarnung.BackColor = System.Drawing.Color.Transparent
Me.lblWarnung.Cursor = System.Windows.Forms.Cursors.Default
Me.lblWarnung.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold)
Me.lblWarnung.ForeColor = System.Drawing.Color.Red
Me.lblWarnung.Location = New System.Drawing.Point(475, 10)
Me.lblWarnung.Name = "lblWarnung"
Me.lblWarnung.Size = New System.Drawing.Size(183, 18)
Me.lblWarnung.TabIndex = 23
'
'pnlBody
'
Me.pnlBody.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.pnlBody.BackColor = System.Drawing.Color.White
Me.pnlBody.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.pnlBody.Controls.Add(Me.TabControl1)
Me.pnlBody.Location = New System.Drawing.Point(0, 177)
Me.pnlBody.Name = "pnlBody"
Me.pnlBody.Size = New System.Drawing.Size(1454, 472)
Me.pnlBody.TabIndex = 1
'
'TabControl1
'
Me.TabControl1.Controls.Add(Me.TabPage1)
Me.TabControl1.Controls.Add(Me.TabPage2)
Me.TabControl1.Dock = System.Windows.Forms.DockStyle.Fill
Me.TabControl1.Location = New System.Drawing.Point(0, 0)
Me.TabControl1.Name = "TabControl1"
Me.TabControl1.SelectedIndex = 0
Me.TabControl1.Size = New System.Drawing.Size(1452, 470)
Me.TabControl1.TabIndex = 1
'
'TabPage1
'
Me.TabPage1.Controls.Add(Me.dgvUSTVPositionen)
Me.TabPage1.Controls.Add(Me.pnlAntragsPosDetails)
Me.TabPage1.Location = New System.Drawing.Point(4, 22)
Me.TabPage1.Name = "TabPage1"
Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage1.Size = New System.Drawing.Size(1444, 444)
Me.TabPage1.TabIndex = 0
Me.TabPage1.Text = "Antragspositionen"
Me.TabPage1.UseVisualStyleBackColor = True
'
'dgvUSTVPositionen
'
@@ -1069,39 +1160,49 @@ Partial Class frmMDM_USTVAntrag
Me.dgvUSTVPositionen.AllowUserToDeleteRows = False
DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.dgvUSTVPositionen.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
Me.dgvUSTVPositionen.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.dgvUSTVPositionen.BackgroundColor = System.Drawing.Color.White
Me.dgvUSTVPositionen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvUSTVPositionen.Dock = System.Windows.Forms.DockStyle.Fill
Me.dgvUSTVPositionen.Location = New System.Drawing.Point(0, 0)
Me.dgvUSTVPositionen.Location = New System.Drawing.Point(3, 3)
Me.dgvUSTVPositionen.Name = "dgvUSTVPositionen"
Me.dgvUSTVPositionen.ReadOnly = True
Me.dgvUSTVPositionen.RowHeadersVisible = False
Me.dgvUSTVPositionen.RowHeadersWidth = 62
Me.dgvUSTVPositionen.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.dgvUSTVPositionen.Size = New System.Drawing.Size(1452, 201)
Me.dgvUSTVPositionen.Size = New System.Drawing.Size(1438, 169)
Me.dgvUSTVPositionen.TabIndex = 0
'
'pnl
'pnlAntragsPosDetails
'
Me.pnl.Controls.Add(Me.Panel2)
Me.pnl.Controls.Add(Me.Panel4)
Me.pnl.Dock = System.Windows.Forms.DockStyle.Bottom
Me.pnl.Location = New System.Drawing.Point(0, 380)
Me.pnl.Name = "pnl"
Me.pnl.Size = New System.Drawing.Size(1454, 269)
Me.pnl.TabIndex = 2
Me.pnlAntragsPosDetails.Controls.Add(Me.Panel2)
Me.pnlAntragsPosDetails.Dock = System.Windows.Forms.DockStyle.Bottom
Me.pnlAntragsPosDetails.Location = New System.Drawing.Point(3, 178)
Me.pnlAntragsPosDetails.Name = "pnlAntragsPosDetails"
Me.pnlAntragsPosDetails.Size = New System.Drawing.Size(1438, 263)
Me.pnlAntragsPosDetails.TabIndex = 2
'
'Panel2
'
Me.Panel2.BackColor = System.Drawing.Color.White
Me.Panel2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Panel2.Controls.Add(Me.UstCntlUSTV_AntragPosition1)
Me.Panel2.Controls.Add(Me.Panel4)
Me.Panel2.Dock = System.Windows.Forms.DockStyle.Fill
Me.Panel2.Location = New System.Drawing.Point(154, 0)
Me.Panel2.Location = New System.Drawing.Point(0, 0)
Me.Panel2.Name = "Panel2"
Me.Panel2.Size = New System.Drawing.Size(1300, 269)
Me.Panel2.Size = New System.Drawing.Size(1438, 263)
Me.Panel2.TabIndex = 1
'
'UstCntlUSTV_AntragPosition1
'
Me.UstCntlUSTV_AntragPosition1.Dock = System.Windows.Forms.DockStyle.Fill
Me.UstCntlUSTV_AntragPosition1.Location = New System.Drawing.Point(154, 0)
Me.UstCntlUSTV_AntragPosition1.Name = "UstCntlUSTV_AntragPosition1"
Me.UstCntlUSTV_AntragPosition1.Size = New System.Drawing.Size(1282, 261)
Me.UstCntlUSTV_AntragPosition1.TabIndex = 0
'
'Panel4
'
Me.Panel4.BackColor = System.Drawing.Color.WhiteSmoke
@@ -1111,7 +1212,7 @@ Partial Class frmMDM_USTVAntrag
Me.Panel4.Dock = System.Windows.Forms.DockStyle.Left
Me.Panel4.Location = New System.Drawing.Point(0, 0)
Me.Panel4.Name = "Panel4"
Me.Panel4.Size = New System.Drawing.Size(154, 269)
Me.Panel4.Size = New System.Drawing.Size(154, 261)
Me.Panel4.TabIndex = 0
'
'btnEintragloeschen
@@ -1142,6 +1243,110 @@ Partial Class frmMDM_USTVAntrag
Me.btnNeuerEintrag.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnNeuerEintrag.UseVisualStyleBackColor = True
'
'TabPage2
'
Me.TabPage2.Controls.Add(Me.Panel3)
Me.TabPage2.Location = New System.Drawing.Point(4, 22)
Me.TabPage2.Name = "TabPage2"
Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage2.Size = New System.Drawing.Size(1444, 444)
Me.TabPage2.TabIndex = 1
Me.TabPage2.Text = "Erstattungspositionen"
Me.TabPage2.UseVisualStyleBackColor = True
'
'Panel3
'
Me.Panel3.BackColor = System.Drawing.Color.White
Me.Panel3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Panel3.Controls.Add(Me.dgvErstattungspositionen)
Me.Panel3.Controls.Add(Me.pnlErstattungsdetails)
Me.Panel3.Dock = System.Windows.Forms.DockStyle.Fill
Me.Panel3.Location = New System.Drawing.Point(3, 3)
Me.Panel3.Name = "Panel3"
Me.Panel3.Size = New System.Drawing.Size(1438, 438)
Me.Panel3.TabIndex = 3
'
'dgvErstattungspositionen
'
Me.dgvErstattungspositionen.AKTUALISIERUNGS_INTERVALL = 500
Me.dgvErstattungspositionen.AllowUserToAddRows = False
Me.dgvErstattungspositionen.AllowUserToDeleteRows = False
DataGridViewCellStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.dgvErstattungspositionen.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
Me.dgvErstattungspositionen.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.dgvErstattungspositionen.BackgroundColor = System.Drawing.Color.White
Me.dgvErstattungspositionen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvErstattungspositionen.Location = New System.Drawing.Point(3, 3)
Me.dgvErstattungspositionen.Name = "dgvErstattungspositionen"
Me.dgvErstattungspositionen.ReadOnly = True
Me.dgvErstattungspositionen.RowHeadersVisible = False
Me.dgvErstattungspositionen.RowHeadersWidth = 62
Me.dgvErstattungspositionen.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.dgvErstattungspositionen.Size = New System.Drawing.Size(1438, 172)
Me.dgvErstattungspositionen.TabIndex = 1
'
'pnlErstattungsdetails
'
Me.pnlErstattungsdetails.BackColor = System.Drawing.Color.WhiteSmoke
Me.pnlErstattungsdetails.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.pnlErstattungsdetails.Controls.Add(Me.UstCntlUSTV_AntragErstattungen1)
Me.pnlErstattungsdetails.Controls.Add(Me.Panel1)
Me.pnlErstattungsdetails.Dock = System.Windows.Forms.DockStyle.Bottom
Me.pnlErstattungsdetails.Location = New System.Drawing.Point(0, 175)
Me.pnlErstattungsdetails.Name = "pnlErstattungsdetails"
Me.pnlErstattungsdetails.Size = New System.Drawing.Size(1436, 261)
Me.pnlErstattungsdetails.TabIndex = 0
'
'UstCntlUSTV_AntragErstattungen1
'
Me.UstCntlUSTV_AntragErstattungen1.Dock = System.Windows.Forms.DockStyle.Fill
Me.UstCntlUSTV_AntragErstattungen1.Location = New System.Drawing.Point(154, 0)
Me.UstCntlUSTV_AntragErstattungen1.Name = "UstCntlUSTV_AntragErstattungen1"
Me.UstCntlUSTV_AntragErstattungen1.Size = New System.Drawing.Size(1280, 259)
Me.UstCntlUSTV_AntragErstattungen1.TabIndex = 2
'
'Panel1
'
Me.Panel1.BackColor = System.Drawing.Color.WhiteSmoke
Me.Panel1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Panel1.Controls.Add(Me.Button2)
Me.Panel1.Controls.Add(Me.Button3)
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Left
Me.Panel1.Location = New System.Drawing.Point(0, 0)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(154, 259)
Me.Panel1.TabIndex = 3
'
'Button2
'
Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button2.ForeColor = System.Drawing.Color.Black
Me.Button2.Image = Global.SDL.My.Resources.Resources.del
Me.Button2.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button2.Location = New System.Drawing.Point(6, 50)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(135, 39)
Me.Button2.TabIndex = 1
Me.Button2.Text = "Eintrag löschen"
Me.Button2.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button2.UseVisualStyleBackColor = True
'
'Button3
'
Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button3.ForeColor = System.Drawing.Color.Black
Me.Button3.Image = Global.SDL.My.Resources.Resources.plus
Me.Button3.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button3.Location = New System.Drawing.Point(6, 5)
Me.Button3.Name = "Button3"
Me.Button3.Size = New System.Drawing.Size(135, 39)
Me.Button3.TabIndex = 0
Me.Button3.Text = "Neuer Eintrag"
Me.Button3.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button3.UseVisualStyleBackColor = True
'
'ContextMenuStrip1
'
Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
@@ -1152,33 +1357,24 @@ Partial Class frmMDM_USTVAntrag
Me.ContextMenuStrip2.Name = "ContextMenuStrip1"
Me.ContextMenuStrip2.Size = New System.Drawing.Size(61, 4)
'
'UstCntlUSTV_AntragPosition1
'
Me.UstCntlUSTV_AntragPosition1.Dock = System.Windows.Forms.DockStyle.Fill
Me.UstCntlUSTV_AntragPosition1.Location = New System.Drawing.Point(0, 0)
Me.UstCntlUSTV_AntragPosition1.Name = "UstCntlUSTV_AntragPosition1"
Me.UstCntlUSTV_AntragPosition1.Size = New System.Drawing.Size(1298, 267)
Me.UstCntlUSTV_AntragPosition1.TabIndex = 0
'
'frmMDM_USTVAntrag
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(1454, 749)
Me.Controls.Add(Me.pnlFilter)
Me.Controls.Add(Me.pnl)
Me.Controls.Add(Me.Panel3)
Me.Controls.Add(Me.Panel1)
Me.Controls.Add(Me.pnlHeader)
Me.Controls.Add(Me.pnlBody)
Me.Controls.Add(Me.pnlBottom)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.KeyPreview = True
Me.Name = "frmMDM_USTVAntrag"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "USTV Antrag"
Me.Panel3.ResumeLayout(False)
Me.Panel3.PerformLayout()
Me.pnlBottom.ResumeLayout(False)
Me.pnlBottom.PerformLayout()
CType(Me.picPDF, System.ComponentModel.ISupportInitialize).EndInit()
Me.Panel1.ResumeLayout(False)
Me.Panel1.PerformLayout()
Me.pnlHeader.ResumeLayout(False)
Me.pnlHeader.PerformLayout()
Me.Panel9.ResumeLayout(False)
Me.Panel8.ResumeLayout(False)
Me.Panel8.PerformLayout()
@@ -1188,20 +1384,27 @@ Partial Class frmMDM_USTVAntrag
Me.Panel7.PerformLayout()
Me.FlowLayoutPanel.ResumeLayout(False)
Me.FlowLayoutPanel.PerformLayout()
Me.pnlFilter.ResumeLayout(False)
Me.pnlBody.ResumeLayout(False)
Me.TabControl1.ResumeLayout(False)
Me.TabPage1.ResumeLayout(False)
CType(Me.dgvUSTVPositionen, System.ComponentModel.ISupportInitialize).EndInit()
Me.pnl.ResumeLayout(False)
Me.pnlAntragsPosDetails.ResumeLayout(False)
Me.Panel2.ResumeLayout(False)
Me.Panel4.ResumeLayout(False)
Me.TabPage2.ResumeLayout(False)
Me.Panel3.ResumeLayout(False)
CType(Me.dgvErstattungspositionen, System.ComponentModel.ISupportInitialize).EndInit()
Me.pnlErstattungsdetails.ResumeLayout(False)
Me.Panel1.ResumeLayout(False)
Me.ResumeLayout(False)
End Sub
Friend WithEvents Panel3 As Panel
Friend WithEvents pnlBottom As Panel
Friend WithEvents btnAntrageeinarbeiten As Button
Friend WithEvents Panel1 As Panel
Friend WithEvents pnlHeader As Panel
Friend WithEvents lblFirma As Label
Friend WithEvents pnlFilter As Panel
Friend WithEvents pnlBody As Panel
Friend WithEvents dgvUSTVPositionen As VERAG_PROG_ALLGEMEIN.MyDatagridview
Friend WithEvents lbl_EintrageVerarbetiet As Label
Friend WithEvents cbxArchivierteEintracheNochmalsEinarbetien As CheckBox
@@ -1211,7 +1414,7 @@ Partial Class frmMDM_USTVAntrag
Friend WithEvents Label5 As Label
Friend WithEvents rtbStatusText As RichTextBox
Friend WithEvents Button1 As Button
Friend WithEvents pnl As Panel
Friend WithEvents pnlAntragsPosDetails As Panel
Friend WithEvents Panel2 As Panel
Friend WithEvents btnNeuerEintrag As Button
Friend WithEvents Panel4 As Panel
@@ -1231,11 +1434,11 @@ Partial Class frmMDM_USTVAntrag
Friend WithEvents btnStorno As Button
Friend WithEvents btnTeilerstattung As Button
Friend WithEvents lblAntragAbgeschlossen As Label
Friend WithEvents lblGesamtUSteuer As Label
Friend WithEvents lblGesamtUSteuerFW As Label
Friend WithEvents Label12 As Label
Friend WithEvents lblDiffernezbetrag As Label
Friend WithEvents lblDiffernezbetragFW As Label
Friend WithEvents Label10 As Label
Friend WithEvents lblGesamtErstattung As Label
Friend WithEvents lblGesamtErstattungFW As Label
Friend WithEvents Label7 As Label
Friend WithEvents Panel6 As Panel
Friend WithEvents Panel7 As Panel
@@ -1267,5 +1470,18 @@ Partial Class frmMDM_USTVAntrag
Friend WithEvents picPDF As PictureBox
Friend WithEvents txtGueltig As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label13 As Label
Friend WithEvents lblMWSTAbrechnung As Label
Friend WithEvents lblMWSTAntrag As Label
Friend WithEvents lblGesamtUSteuer As Label
Friend WithEvents lblDiffernezbetrag As Label
Friend WithEvents lblGesamtErstattung As Label
Friend WithEvents TabControl1 As TabControl
Friend WithEvents TabPage1 As TabPage
Friend WithEvents TabPage2 As TabPage
Friend WithEvents dgvErstattungspositionen As VERAG_PROG_ALLGEMEIN.MyDatagridview
Friend WithEvents Panel3 As Panel
Friend WithEvents pnlErstattungsdetails As Panel
Friend WithEvents UstCntlUSTV_AntragErstattungen1 As ustCntlUSTV_ErstattungPosition
Friend WithEvents Panel1 As Panel
Friend WithEvents Button2 As Button
Friend WithEvents Button3 As Button
End Class

272
SDL/USTV/frmMDM_USTVAntrag.vb
View File

@@ -14,6 +14,7 @@ Public Class frmMDM_USTVAntrag
Dim USTV_ANTRAG As VERAG_PROG_ALLGEMEIN.cUSTVAntrag = Nothing
Dim Antrag_LandKz As String = ""
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Dim posTabisSelected As Boolean = True
Dim von, bis As Date
@@ -43,7 +44,12 @@ Public Class frmMDM_USTVAntrag
End Sub
Sub init(Optional Lieferant As String = "")
pnlFilter.AutoScroll = False
pnlBody.AutoScroll = False
lblGesamtUSteuerFW.Text = "-"
lblGesamtErstattungFW.Text = "-"
lblDiffernezbetragFW.Text = "-"
lblGesamtUSteuer.Text = "-"
lblGesamtErstattung.Text = "-"
@@ -171,13 +177,21 @@ Public Class frmMDM_USTVAntrag
End With
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 GesamtUSteuerEUR As Double = SQL.DLookup("isnull(sum(UStVPo_USteuerbetragEUR),0)", "tblUStVPositionen", "UStVAn_ID='" & UStVAn_ID & "'", "FMZOLL", "0")
Dim GesamtErstattungEUR As Double = SQL.DLookup("isnull(sum(UStVEr_USteuerbetragEUR),0)", "tblUStVErstattung", "UStVAn_ID='" & UStVAn_ID & "'", "FMZOLL", "0")
Dim DiffernezbetragEUR As Double = GesamtUSteuerEUR - GesamtErstattungEUR
Dim GesamtUSteuer As Double = SQL.DLookup("isnull(sum(UStVPo_USteuerbetrag),0)", "tblUStVPositionen", "UStVAn_ID='" & UStVAn_ID & "'", "FMZOLL", "0")
Dim GesamtErstattung As Double = SQL.DLookup("isnull(sum(UStVEr_USteuerbetrag),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")
lblGesamtUSteuerFW.Text = GesamtUSteuer.ToString("C2")
lblGesamtErstattungFW.Text = GesamtErstattung.ToString("C2")
lblDiffernezbetragFW.Text = Differnezbetrag.ToString("C2")
lblGesamtUSteuer.Text = GesamtUSteuerEUR.ToString("C2")
lblGesamtErstattung.Text = GesamtErstattungEUR.ToString("C2")
lblDiffernezbetrag.Text = DiffernezbetragEUR.ToString("C2")
Dim GET_Antraege
Dim antraegeVearbeitet = False
@@ -222,20 +236,21 @@ Public Class frmMDM_USTVAntrag
Dim KUNDE As New cKunde(USTV_ANTRAG.UStVAn_KuNr)
Dim KUNDE_ERW As New cKundenErweitert(USTV_ANTRAG.UStVAn_KuNr)
If KUNDE IsNot Nothing Then
Panel1.BackColor = Color.FromArgb(0, 54, 128)
If KUNDE.Abfertigungsverbot Then Panel1.BackColor = Color.IndianRed
pnlHeader.BackColor = Color.FromArgb(0, 54, 128)
If KUNDE.Abfertigungsverbot Then pnlHeader.BackColor = Color.IndianRed
Else
Panel1.BackColor = Color.FromArgb(0, 54, 128)
pnlHeader.BackColor = Color.FromArgb(0, 54, 128)
End If
If KUNDE_ERW IsNot Nothing Then
If KUNDE_ERW.kde_MWStAbrechnung IsNot Nothing Then
lblMWSTAbrechnung.Text = KUNDE_ERW.kde_MWStAbrechnung
lblMWSTAntrag.Text = KUNDE_ERW.kde_MWStAbrechnung
Else
lblMWSTAbrechnung.Text = ""
lblMWSTAntrag.Text = ""
End If
If KUNDE_ERW.kde_AnmerkungAntrag IsNot Nothing AndAlso KUNDE_ERW.kde_AnmerkungAntrag <> "" Then lblMWSTAntrag.Text &= " - " & KUNDE_ERW.kde_AnmerkungAntrag
End If
End If
@@ -1127,14 +1142,34 @@ Public Class frmMDM_USTVAntrag
End Sub
Private Sub dgvUSTVPositionen_SelectionChanged(sender As Object, e As EventArgs) Handles dgvUSTVPositionen.SelectionChanged
If dgvUSTVPositionen.SelectedRows.Count > 0 Then
initPosition(dgvUSTVPositionen.SelectedRows(0).Cells("UStVPo_ID").Value)
Sub initErstsattungsPosition(UStVEr_ID)
If UStVEr_ID > 0 Then
Dim ANTR_ERSTATTUNG As New VERAG_PROG_ALLGEMEIN.cUStVErstattungPositionen(USTV_ANTRAG.UStVAn_ID, UStVEr_ID)
UstCntlUSTV_AntragErstattungen1.Enabled = True
UstCntlUSTV_AntragErstattungen1.setValues(USTV_ANTRAG, ANTR_ERSTATTUNG, USTV_ANTRAG.UStVAn_KuNr)
Else
UstCntlUSTV_AntragErstattungen1.reset()
UstCntlUSTV_AntragErstattungen1.Enabled = False
UstCntlUSTV_AntragErstattungen1.setValues(USTV_ANTRAG)
End If
End Sub
Private Sub dgvUSTVPositionen_SelectionChanged(sender As Object, e As EventArgs) Handles dgvUSTVPositionen.SelectionChanged
If dgvUSTVPositionen.SelectedRows.Count > 0 Then
initPosition(dgvUSTVPositionen.SelectedRows(0).Cells("UStVPo_ID").Value)
End If
End Sub
Private Sub dgvErstattungspositionen_SelectionChanged(sender As Object, e As EventArgs) Handles dgvErstattungspositionen.SelectionChanged
If dgvErstattungspositionen.SelectedRows.Count > 0 Then
initErstsattungsPosition(dgvErstattungspositionen.SelectedRows(0).Cells("UStVEr_ID").Value)
End If
End Sub
Private Sub UstCntlUSTV_AntragPosition1_EV_NEXT() Handles UstCntlUSTV_AntragPosition1.EV_NEXT
If dgvUSTVPositionen.SelectedRows.Count > 0 Then
@@ -1147,6 +1182,21 @@ Public Class frmMDM_USTVAntrag
End If
End If
End Sub
Private Sub UstCntlUSTV_AntragErstattungen1_EV_NEXT() Handles UstCntlUSTV_AntragErstattungen1.EV_NEXT
If dgvErstattungspositionen.SelectedRows.Count > 0 Then
If dgvErstattungspositionen.RowCount > dgvErstattungspositionen.SelectedRows(0).Index + 1 Then
UstCntlUSTV_AntragErstattungen1.Enabled = True
Dim selIndex = dgvErstattungspositionen.SelectedRows(0).Index + 1
dgvErstattungspositionen.ClearSelection()
dgvErstattungspositionen.Rows(selIndex).Selected = True
dgvErstattungspositionen.CurrentCell = dgvErstattungspositionen.SelectedRows(0).Cells("UStVEr_ID")
End If
End If
End Sub
Private Sub UstCntlUSTV_AntragPosition1_EV_PREV() Handles UstCntlUSTV_AntragPosition1.EV_PREV
If dgvUSTVPositionen.SelectedRows.Count > 0 Then
@@ -1161,14 +1211,38 @@ Public Class frmMDM_USTVAntrag
End Sub
Private Sub UstCntlUSTV_AntragErstattungen1_EV_PREV() Handles UstCntlUSTV_AntragErstattungen1.EV_PREV
If dgvErstattungspositionen.SelectedRows.Count > 0 Then
If dgvErstattungspositionen.SelectedRows(0).Index > 0 Then
UstCntlUSTV_AntragErstattungen1.Enabled = True
Dim selIndex = dgvErstattungspositionen.SelectedRows(0).Index - 1
dgvErstattungspositionen.ClearSelection()
dgvErstattungspositionen.Rows(selIndex).Selected = True
dgvErstattungspositionen.CurrentCell = dgvErstattungspositionen.SelectedRows(0).Cells("UStVEr_ID")
End If
End If
End Sub
Private Sub ustCntlUSTV_AntragPosition_KeyDown(sender As Object, e As PreviewKeyDownEventArgs) Handles Me.PreviewKeyDown
If e.KeyValue = Keys.PageDown Then
UstCntlUSTV_AntragPosition1_EV_NEXT()
End If
If e.KeyValue = Keys.PageUp Then
UstCntlUSTV_AntragPosition1_EV_PREV()
If posTabisSelected = True Then
If e.KeyValue = Keys.PageDown Then
UstCntlUSTV_AntragPosition1_EV_NEXT()
End If
If e.KeyValue = Keys.PageUp Then
UstCntlUSTV_AntragPosition1_EV_PREV()
End If
Else
If e.KeyValue = Keys.PageDown Then
UstCntlUSTV_AntragErstattungen1_EV_NEXT()
End If
If e.KeyValue = Keys.PageUp Then
UstCntlUSTV_AntragErstattungen1_EV_PREV()
End If
End If
End Sub
Private Sub frmMDM_USTVAntrag_Shown(sender As Object, e As EventArgs) Handles Me.Shown
@@ -1394,7 +1468,7 @@ Public Class frmMDM_USTVAntrag
End If
If UstCntlUSTV_AntragPosition1.UStV_POS.DELETE(UstCntlUSTV_AntragPosition1.UStV_POS.UStVAn_ID, UstCntlUSTV_AntragPosition1.UStV_POS.UStVPo_ID) Then
reorderPositions(UstCntlUSTV_AntragPosition1.UStV_POS.UStVAn_ID)
reorderUSTVAPositions(UstCntlUSTV_AntragPosition1.UStV_POS.UStVAn_ID)
End If
init()
@@ -1674,7 +1748,8 @@ Public Class frmMDM_USTVAntrag
Dim list As New List(Of String)
If dgvUSTVPositionen.SelectedRows.Count > 0 Then
For Each row As DataGridViewRow In dgvUSTVPositionen.SelectedRows
For Each row As DataGridViewRow In dgvUSTVPositionen.SelectedRows.Cast(Of DataGridViewRow)().OrderBy(Function(dgvr) dgvr.Index)
Dim pdf As String = ""
pdf = getPDF(row.Cells("UStVPo_SchnittstellenNr").Value, row.Cells("UStVPo_ReNr").Value, row.Cells("UStVPo_ReDat").Value, row.Cells("UStVPo_daId").Value)
@@ -1823,7 +1898,7 @@ Public Class frmMDM_USTVAntrag
End Function
Private Sub reorderPositions(UStVAn_ID As Integer)
Private Sub reorderUSTVAPositions(UStVAn_ID As Integer)
If UStVAn_ID < 0 Then Exit Sub
@@ -1847,6 +1922,64 @@ Public Class frmMDM_USTVAntrag
End Sub
Private Sub dgvUSTVPositionen_PreviewKeyDown(sender As Object, e As PreviewKeyDownEventArgs) Handles dgvUSTVPositionen.PreviewKeyDown
If dgvUSTVPositionen.SelectedRows.Count <> 1 Then Exit Sub
If (e.KeyCode) = Keys.Add AndAlso e.Control Then
Dim id As Integer = dgvUSTVPositionen.SelectedRows(0).Cells("UStVPo_ID").Value
initPosition(id)
dgvUSTVPositionen.GetOrder()
Dim USTV_POS_temp As New cUStVPositionen(UStVAn_ID, id)
Dim USTV_POS As New VERAG_PROG_ALLGEMEIN.cUStVPositionen
USTV_POS.UStVAn_ID = USTV_POS_temp.UStVAn_ID
USTV_POS.UStVPo_ID = USTV_ANTRAG.getMaxPosNr
USTV_POS.UStVPo_ReDat = USTV_POS_temp.UStVPo_ReDat
USTV_POS.UStVPo_ReNr = USTV_POS_temp.UStVPo_ReNr
USTV_POS.UStVPo_SchnittstellenNr = -1
USTV_POS.UStVPo_Schnittstelle = False
USTV_POS.UStVPo_Leistungsbezeichnung = USTV_POS_temp.UStVPo_Leistungsbezeichnung
USTV_POS.UStVPo_Leistender = USTV_POS_temp.UStVPo_Leistender
USTV_POS.UStVPo_Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
USTV_POS.UStVPo_USteuerbetragEUR = 0
USTV_POS.UStVPo_USteuerbetrag = 0
USTV_POS.UStVPo_Umrechnungskurs = 1
USTV_POS.UStVPo_Zeitstempel = Now()
If USTV_POS.SAVE() Then init()
dgvUSTVPositionen.SetOrder()
End If
End Sub
Private Sub TabControl1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles TabControl1.SelectedIndexChanged
If TabControl1.SelectedTab Is TabPage1 Then
init()
posTabisSelected = True
ElseIf TabControl1.SelectedTab Is TabPage2 Then
initdgvErstattungen()
posTabisSelected = False
End If
picPDF.Visible = posTabisSelected
btnAntrageeinarbeiten.Enabled = posTabisSelected
cbxArchivierteEintracheNochmalsEinarbetien.Enabled = posTabisSelected
End Sub
Private Sub setinfofields()
@@ -1904,4 +2037,97 @@ Public Class frmMDM_USTVAntrag
End Sub
Private Sub Button3_Click_1(sender As Object, e As EventArgs) Handles Button3.Click
UstCntlUSTV_AntragErstattungen1.reset()
UstCntlUSTV_AntragErstattungen1.UStV_ERS = Nothing
UstCntlUSTV_AntragErstattungen1.Enabled = True
End Sub
Private Sub Button2_Click_1(sender As Object, e As EventArgs) Handles Button2.Click
If dgvErstattungspositionen.Rows.Count = 0 Then Exit Sub
If vbYes = MsgBox("Möchten Sie den Erstattungseintrag wirklich löschen?", vbYesNoCancel) Then
If UstCntlUSTV_AntragErstattungen1.UStV_ERS.DELETE(UstCntlUSTV_AntragPosition1.UStV_POS.UStVAn_ID, UstCntlUSTV_AntragErstattungen1.UStV_ERS) Then
initdgvErstattungen()
End If
End If
End Sub
Private Sub initdgvErstattungen()
With dgvErstattungspositionen
.ClearSelection()
If UStVAn_ID <= 0 Then Exit Sub
.SET_SQL("SELECT [UStVAn_ID] ,[UStVEr_ID],[UStVEr_USteuerbetrag],[Belegdatum],[Belegnummer],[GutschriftsDatum],[GutschriftsNr],[Berufungsdatum],[Berufungshöhe],[Berufungsgrund],[Bemerkung],[UStVEr_Umrechnungskurs],[UStVEr_USteuerbetragEUR],[UStVEr_Sachbearbeiter],[UStVEr_Zeitstempel]
FROM [tblUStVErstattung]
where UStVAn_ID=" & UStVAn_ID & " ORDER BY UStVEr_ID", "FMZOLL")
.LOAD()
.RowTemplate.Height = 20
.AllowUserToOrderColumns = False
.AllowUserToResizeRows = False
If .Columns.Count > 0 Then
.Columns("UStVAn_ID").Visible = False
.Columns("UStVEr_ID").HeaderText = "Pos"
.Columns("UStVEr_ID").Width = 40
.Columns("Belegdatum").Width = 80
.Columns("Belegnummer").Width = 130
.Columns("UStVEr_USteuerbetrag").HeaderText = "USt-Betrag"
.Columns("UStVEr_USteuerbetrag").Width = 110
.Columns("UStVEr_USteuerbetrag").DefaultCellStyle.Format = "N2"
.Columns("UStVEr_USteuerbetrag").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
.Columns("GutschriftsDatum").HeaderText = "GS-Datum"
.Columns("GutschriftsNr").HeaderText = "GS-Nr"
.Columns("GutschriftsDatum").Width = 80
.Columns("GutschriftsNr").Width = 130
.Columns("Berufungsdatum").HeaderText = "BE-Datum"
.Columns("Berufungshöhe").HeaderText = "BE-Höhe"
.Columns("Berufungsgrund").HeaderText = "BE-Grund"
.Columns("Berufungsdatum").Width = 80
.Columns("Berufungshöhe").Width = 100
.Columns("Berufungsgrund").Width = 150
.Columns("Bemerkung").Width = 200
.Columns("UStVEr_Umrechnungskurs").HeaderText = "Umrechnungskurs"
.Columns("UStVEr_Umrechnungskurs").Width = 60
.Columns("UStVEr_Umrechnungskurs").DefaultCellStyle.Format = "N2"
.Columns("UStVEr_Umrechnungskurs").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
.Columns("UStVEr_USteuerbetragEUR").HeaderText = "USt-Betrag EUR"
.Columns("UStVEr_USteuerbetragEUR").Width = 110
.Columns("UStVEr_USteuerbetragEUR").DefaultCellStyle.Format = "N2"
.Columns("UStVEr_USteuerbetragEUR").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
.Columns("UStVEr_Sachbearbeiter").HeaderText = "Sachbearbeiter"
.Columns("UStVEr_Sachbearbeiter").MinimumWidth = 100
.Columns("UStVEr_Sachbearbeiter").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
.Columns("UStVEr_Zeitstempel").Visible = False
End If
If .RowCount < 1 Then initErstsattungsPosition(-1)
End With
End Sub
End Class

4
SDL/USTV/usrCntlUSTV.vb
View File

@@ -1006,6 +1006,7 @@ Public Class usrCntlUSTV
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Dim frm As New Form
frm.Text = "Finanzamt-Bestätigung E-Mails"
Dim dgv As New DataGridView()
Dim dt As DataTable = SQL.loadDgvBySql(" select [api_datetime] as erstelltAm,[api_EMail] as An ,[api_EMailCC] as CC,[api_EMailBCC] as BCC,[api_EMailSubject] as Betreff,[api_EMailAttCnt] as Anzahl_Anhänge, [api_KundenNr] as KundenNr, [api_Username] as erstelltVon from [tblAPI] where [api_apiUArt] = 'FA-Bestaetigung' AND api_progName = 'SDL'" & sqlKundeadmin & " Order by api_datetime desc", "ADMIN")
@@ -1020,6 +1021,7 @@ Public Class usrCntlUSTV
frm.Controls.Add(dgv)
frm.StartPosition = FormStartPosition.CenterScreen
frm.ShowDialog()
If dgv.ColumnCount > 0 AndAlso dgv.Columns.Contains("An") Then dgv.Columns("An").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
End If
@@ -1134,7 +1136,7 @@ Public Class usrCntlUSTV
Mail.HTMLBody = "<div style=""font-family:Calibri, Arial;font-size:15px;"">" & TextHTML & SDL.cFakturierung.getSignature("DE") & "</div>"
If Not IsDBNull(dt_Data_selected.Rows(0).Item("E-Mail")) Then Mail.To &= dt_Data_selected.Rows(0).Item("E-Mail") & ";"
If Not IsDBNull(dt_Data_selected.Rows(0).Item("E-Mail2")) Then Mail.To &= dt_Data_selected.Rows(0).Item("E-Mail2") & ";"
'If Not IsDBNull(dt_Data_selected.Rows(0).Item("E-Mail2")) Then Mail.To &= dt_Data_selected.Rows(0).Item("E-Mail2") & ";"
If attachmentSRB Then
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", "MDM", "", "SRB_FA_BESTAETIGUNG")

679
SDL/USTV/ustCntlUSTV_ErstattungPosition .Designer.vb generated Normal file
View File

@@ -0,0 +1,679 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class ustCntlUSTV_ErstattungPosition
Inherits System.Windows.Forms.UserControl
'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()>
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Me.Label8 = New System.Windows.Forms.Label()
Me.Label7 = New System.Windows.Forms.Label()
Me.Panel2 = New System.Windows.Forms.Panel()
Me.Label9 = New System.Windows.Forms.Label()
Me.Label1 = New System.Windows.Forms.Label()
Me.btnBildAuf = New System.Windows.Forms.Button()
Me.Button1 = New System.Windows.Forms.Button()
Me.Label2 = New System.Windows.Forms.Label()
Me.Label3 = New System.Windows.Forms.Label()
Me.Label6 = New System.Windows.Forms.Label()
Me.Label10 = New System.Windows.Forms.Label()
Me.Label11 = New System.Windows.Forms.Label()
Me.Label12 = New System.Windows.Forms.Label()
Me.Label13 = New System.Windows.Forms.Label()
Me.Label4 = New System.Windows.Forms.Label()
Me.Label5 = New System.Windows.Forms.Label()
Me.lblAenderungsdatum = New System.Windows.Forms.Label()
Me.lblSachbearbeiter = New System.Windows.Forms.Label()
Me.pnl = New System.Windows.Forms.Panel()
Me.Label19 = New System.Windows.Forms.Label()
Me.Label18 = New System.Windows.Forms.Label()
Me.txtGuNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtBerufungsdatum = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.lblWarning = New System.Windows.Forms.Label()
Me.txtBemerkung = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label14 = New System.Windows.Forms.Label()
Me.Label15 = New System.Windows.Forms.Label()
Me.txtBerufungshoehe = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtBelegNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label16 = New System.Windows.Forms.Label()
Me.txtBerurunfgrund = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtBelegDatum = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtGuDatum = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtUSTBetragEUR = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtUmrechnungskurs = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtUSTBetrag = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.Panel2.SuspendLayout()
Me.pnl.SuspendLayout()
Me.Panel1.SuspendLayout()
Me.SuspendLayout()
'
'Label8
'
Me.Label8.AutoSize = True
Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label8.ForeColor = System.Drawing.Color.White
Me.Label8.Location = New System.Drawing.Point(6, 9)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(46, 13)
Me.Label8.TabIndex = 0
Me.Label8.Text = "Details"
'
'Label7
'
Me.Label7.AutoSize = True
Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.5!)
Me.Label7.Location = New System.Drawing.Point(14, 31)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(83, 15)
Me.Label7.TabIndex = 2
Me.Label7.Text = "Beleg-Datum:"
'
'Panel2
'
Me.Panel2.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Panel2.Controls.Add(Me.Label8)
Me.Panel2.Dock = System.Windows.Forms.DockStyle.Top
Me.Panel2.Location = New System.Drawing.Point(0, 0)
Me.Panel2.Name = "Panel2"
Me.Panel2.Size = New System.Drawing.Size(1300, 30)
Me.Panel2.TabIndex = 0
'
'Label9
'
Me.Label9.AutoSize = True
Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label9.Location = New System.Drawing.Point(174, 33)
Me.Label9.Name = "Label9"
Me.Label9.Size = New System.Drawing.Size(54, 13)
Me.Label9.TabIndex = 3
Me.Label9.Text = "Beleg-Nr.:"
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label1.Location = New System.Drawing.Point(504, 14)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(62, 13)
Me.Label1.TabIndex = 1
Me.Label1.Text = "Gutschrift"
'
'btnBildAuf
'
Me.btnBildAuf.BackgroundImage = Global.SDL.My.Resources.Resources.pfeil_oben
Me.btnBildAuf.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
Me.btnBildAuf.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnBildAuf.Location = New System.Drawing.Point(16, 7)
Me.btnBildAuf.Name = "btnBildAuf"
Me.btnBildAuf.Size = New System.Drawing.Size(71, 77)
Me.btnBildAuf.TabIndex = 12
Me.btnBildAuf.Text = "Bild auf"
Me.btnBildAuf.TextAlign = System.Drawing.ContentAlignment.BottomCenter
Me.btnBildAuf.UseVisualStyleBackColor = True
'
'Button1
'
Me.Button1.BackgroundImage = Global.SDL.My.Resources.Resources.pfeil_unten
Me.Button1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button1.Location = New System.Drawing.Point(16, 90)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(71, 77)
Me.Button1.TabIndex = 13
Me.Button1.Text = "Bild ab"
Me.Button1.TextAlign = System.Drawing.ContentAlignment.TopCenter
Me.Button1.UseVisualStyleBackColor = True
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.5!)
Me.Label2.Location = New System.Drawing.Point(504, 31)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(108, 15)
Me.Label2.TabIndex = 4
Me.Label2.Text = "Gutschrifts-Datum:"
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.5!)
Me.Label3.Location = New System.Drawing.Point(692, 31)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(87, 15)
Me.Label3.TabIndex = 5
Me.Label3.Text = "Gutschrifts-Nr.:"
'
'Label6
'
Me.Label6.AutoSize = True
Me.Label6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label6.Location = New System.Drawing.Point(14, 14)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(65, 13)
Me.Label6.TabIndex = 0
Me.Label6.Text = "Rechnung"
'
'Label10
'
Me.Label10.AutoSize = True
Me.Label10.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label10.Location = New System.Drawing.Point(14, 92)
Me.Label10.Name = "Label10"
Me.Label10.Size = New System.Drawing.Size(65, 13)
Me.Label10.TabIndex = 10
Me.Label10.Text = "Rechnung"
'
'Label11
'
Me.Label11.AutoSize = True
Me.Label11.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.5!)
Me.Label11.Location = New System.Drawing.Point(14, 112)
Me.Label11.Name = "Label11"
Me.Label11.Size = New System.Drawing.Size(70, 15)
Me.Label11.TabIndex = 11
Me.Label11.Text = "USt-Betrag:"
'
'Label12
'
Me.Label12.AutoSize = True
Me.Label12.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.5!)
Me.Label12.Location = New System.Drawing.Point(174, 112)
Me.Label12.Name = "Label12"
Me.Label12.Size = New System.Drawing.Size(111, 15)
Me.Label12.TabIndex = 12
Me.Label12.Text = "Umrechnungskurs:"
'
'Label13
'
Me.Label13.AutoSize = True
Me.Label13.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.5!)
Me.Label13.Location = New System.Drawing.Point(291, 112)
Me.Label13.Name = "Label13"
Me.Label13.Size = New System.Drawing.Size(96, 15)
Me.Label13.TabIndex = 13
Me.Label13.Text = "USt-Betrag EUR"
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.5!)
Me.Label4.Location = New System.Drawing.Point(14, 191)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(94, 15)
Me.Label4.TabIndex = 19
Me.Label4.Text = "Sachbearbeiter:"
'
'Label5
'
Me.Label5.AutoSize = True
Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.5!)
Me.Label5.Location = New System.Drawing.Point(14, 207)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(104, 15)
Me.Label5.TabIndex = 21
Me.Label5.Text = "Änderungsdatum:"
'
'lblAenderungsdatum
'
Me.lblAenderungsdatum.AutoSize = True
Me.lblAenderungsdatum.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.5!)
Me.lblAenderungsdatum.Location = New System.Drawing.Point(127, 207)
Me.lblAenderungsdatum.Name = "lblAenderungsdatum"
Me.lblAenderungsdatum.Size = New System.Drawing.Size(11, 15)
Me.lblAenderungsdatum.TabIndex = 22
Me.lblAenderungsdatum.Text = "-"
'
'lblSachbearbeiter
'
Me.lblSachbearbeiter.AutoSize = True
Me.lblSachbearbeiter.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.5!)
Me.lblSachbearbeiter.Location = New System.Drawing.Point(127, 191)
Me.lblSachbearbeiter.Name = "lblSachbearbeiter"
Me.lblSachbearbeiter.Size = New System.Drawing.Size(11, 15)
Me.lblSachbearbeiter.TabIndex = 20
Me.lblSachbearbeiter.Text = "-"
'
'pnl
'
Me.pnl.BackColor = System.Drawing.Color.White
Me.pnl.Controls.Add(Me.Label19)
Me.pnl.Controls.Add(Me.Label18)
Me.pnl.Controls.Add(Me.txtGuNr)
Me.pnl.Controls.Add(Me.txtBerufungsdatum)
Me.pnl.Controls.Add(Me.lblWarning)
Me.pnl.Controls.Add(Me.txtBemerkung)
Me.pnl.Controls.Add(Me.Label14)
Me.pnl.Controls.Add(Me.Label15)
Me.pnl.Controls.Add(Me.Label6)
Me.pnl.Controls.Add(Me.Label9)
Me.pnl.Controls.Add(Me.lblAenderungsdatum)
Me.pnl.Controls.Add(Me.txtBerufungshoehe)
Me.pnl.Controls.Add(Me.txtBelegNr)
Me.pnl.Controls.Add(Me.Label16)
Me.pnl.Controls.Add(Me.lblSachbearbeiter)
Me.pnl.Controls.Add(Me.txtBerurunfgrund)
Me.pnl.Controls.Add(Me.Label7)
Me.pnl.Controls.Add(Me.Label5)
Me.pnl.Controls.Add(Me.txtBelegDatum)
Me.pnl.Controls.Add(Me.Label4)
Me.pnl.Controls.Add(Me.Label1)
Me.pnl.Controls.Add(Me.txtGuDatum)
Me.pnl.Controls.Add(Me.txtUSTBetragEUR)
Me.pnl.Controls.Add(Me.Label2)
Me.pnl.Controls.Add(Me.Label13)
Me.pnl.Controls.Add(Me.Label3)
Me.pnl.Controls.Add(Me.txtUmrechnungskurs)
Me.pnl.Controls.Add(Me.Label11)
Me.pnl.Controls.Add(Me.Label12)
Me.pnl.Controls.Add(Me.txtUSTBetrag)
Me.pnl.Controls.Add(Me.Label10)
Me.pnl.Dock = System.Windows.Forms.DockStyle.Fill
Me.pnl.Location = New System.Drawing.Point(0, 30)
Me.pnl.Name = "pnl"
Me.pnl.Size = New System.Drawing.Size(1300, 235)
Me.pnl.TabIndex = 1
'
'Label19
'
Me.Label19.AutoSize = True
Me.Label19.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.5!)
Me.Label19.Location = New System.Drawing.Point(504, 112)
Me.Label19.Name = "Label19"
Me.Label19.Size = New System.Drawing.Size(107, 15)
Me.Label19.TabIndex = 34
Me.Label19.Text = "Berufungs-Datum:"
'
'Label18
'
Me.Label18.AutoSize = True
Me.Label18.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label18.Location = New System.Drawing.Point(504, 92)
Me.Label18.Name = "Label18"
Me.Label18.Size = New System.Drawing.Size(58, 13)
Me.Label18.TabIndex = 33
Me.Label18.Text = "Berufung"
'
'txtGuNr
'
Me.txtGuNr._DateTimeOnly = False
Me.txtGuNr._numbersOnly = False
Me.txtGuNr._numbersOnlyKommastellen = ""
Me.txtGuNr._numbersOnlyTrennzeichen = True
Me.txtGuNr._Prozent = False
Me.txtGuNr._ShortDateNew = False
Me.txtGuNr._ShortDateOnly = False
Me.txtGuNr._TimeOnly = False
Me.txtGuNr._TimeOnly_Seconds = False
Me.txtGuNr._value = Nothing
Me.txtGuNr._Waehrung = False
Me.txtGuNr._WaehrungZeichen = False
Me.txtGuNr.Location = New System.Drawing.Point(695, 49)
Me.txtGuNr.MaxLength = 22
Me.txtGuNr.MaxLineLength = -1
Me.txtGuNr.MaxLines_Warning = ""
Me.txtGuNr.MaxLines_Warning_Label = Nothing
Me.txtGuNr.Name = "txtGuNr"
Me.txtGuNr.Size = New System.Drawing.Size(182, 20)
Me.txtGuNr.TabIndex = 4
'
'txtBerufungsdatum
'
Me.txtBerufungsdatum._DateTimeOnly = False
Me.txtBerufungsdatum._numbersOnly = False
Me.txtBerufungsdatum._numbersOnlyKommastellen = ""
Me.txtBerufungsdatum._numbersOnlyTrennzeichen = True
Me.txtBerufungsdatum._Prozent = False
Me.txtBerufungsdatum._ShortDateNew = False
Me.txtBerufungsdatum._ShortDateOnly = False
Me.txtBerufungsdatum._TimeOnly = False
Me.txtBerufungsdatum._TimeOnly_Seconds = False
Me.txtBerufungsdatum._value = ""
Me.txtBerufungsdatum._Waehrung = False
Me.txtBerufungsdatum._WaehrungZeichen = True
Me.txtBerufungsdatum.ForeColor = System.Drawing.Color.Red
Me.txtBerufungsdatum.Location = New System.Drawing.Point(507, 130)
Me.txtBerufungsdatum.MaxLength = 50
Me.txtBerufungsdatum.MaxLineLength = -1
Me.txtBerufungsdatum.MaxLines_Warning = ""
Me.txtBerufungsdatum.MaxLines_Warning_Label = Nothing
Me.txtBerufungsdatum.Name = "txtBerufungsdatum"
Me.txtBerufungsdatum.Size = New System.Drawing.Size(169, 20)
Me.txtBerufungsdatum.TabIndex = 8
'
'lblWarning
'
Me.lblWarning.AutoSize = True
Me.lblWarning.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblWarning.ForeColor = System.Drawing.Color.Red
Me.lblWarning.Location = New System.Drawing.Point(14, 167)
Me.lblWarning.Name = "lblWarning"
Me.lblWarning.Size = New System.Drawing.Size(0, 16)
Me.lblWarning.TabIndex = 23
'
'txtBemerkung
'
Me.txtBemerkung._DateTimeOnly = False
Me.txtBemerkung._numbersOnly = False
Me.txtBemerkung._numbersOnlyKommastellen = ""
Me.txtBemerkung._numbersOnlyTrennzeichen = True
Me.txtBemerkung._Prozent = False
Me.txtBemerkung._ShortDateNew = False
Me.txtBemerkung._ShortDateOnly = False
Me.txtBemerkung._TimeOnly = False
Me.txtBemerkung._TimeOnly_Seconds = False
Me.txtBemerkung._value = ""
Me.txtBemerkung._Waehrung = False
Me.txtBemerkung._WaehrungZeichen = True
Me.txtBemerkung.ForeColor = System.Drawing.Color.Red
Me.txtBemerkung.Location = New System.Drawing.Point(507, 179)
Me.txtBemerkung.MaxLength = 50
Me.txtBemerkung.MaxLineLength = -1
Me.txtBemerkung.MaxLines_Warning = ""
Me.txtBemerkung.MaxLines_Warning_Label = Nothing
Me.txtBemerkung.Name = "txtBemerkung"
Me.txtBemerkung.Size = New System.Drawing.Size(458, 20)
Me.txtBemerkung.TabIndex = 11
'
'Label14
'
Me.Label14.AutoSize = True
Me.Label14.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.5!)
Me.Label14.Location = New System.Drawing.Point(692, 112)
Me.Label14.Name = "Label14"
Me.Label14.Size = New System.Drawing.Size(95, 15)
Me.Label14.TabIndex = 23
Me.Label14.Text = "Berufungsgrund"
'
'Label15
'
Me.Label15.AutoSize = True
Me.Label15.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.5!)
Me.Label15.Location = New System.Drawing.Point(863, 112)
Me.Label15.Name = "Label15"
Me.Label15.Size = New System.Drawing.Size(91, 15)
Me.Label15.TabIndex = 25
Me.Label15.Text = "Berufungshöhe"
'
'txtBerufungshoehe
'
Me.txtBerufungshoehe._DateTimeOnly = False
Me.txtBerufungshoehe._numbersOnly = False
Me.txtBerufungshoehe._numbersOnlyKommastellen = ""
Me.txtBerufungshoehe._numbersOnlyTrennzeichen = True
Me.txtBerufungshoehe._Prozent = False
Me.txtBerufungshoehe._ShortDateNew = False
Me.txtBerufungshoehe._ShortDateOnly = False
Me.txtBerufungshoehe._TimeOnly = False
Me.txtBerufungshoehe._TimeOnly_Seconds = False
Me.txtBerufungshoehe._value = ""
Me.txtBerufungshoehe._Waehrung = False
Me.txtBerufungshoehe._WaehrungZeichen = True
Me.txtBerufungshoehe.ForeColor = System.Drawing.Color.Red
Me.txtBerufungshoehe.Location = New System.Drawing.Point(866, 130)
Me.txtBerufungshoehe.MaxLength = 10
Me.txtBerufungshoehe.MaxLineLength = -1
Me.txtBerufungshoehe.MaxLines_Warning = ""
Me.txtBerufungshoehe.MaxLines_Warning_Label = Nothing
Me.txtBerufungshoehe.Name = "txtBerufungshoehe"
Me.txtBerufungshoehe.Size = New System.Drawing.Size(99, 20)
Me.txtBerufungshoehe.TabIndex = 10
'
'txtBelegNr
'
Me.txtBelegNr._DateTimeOnly = False
Me.txtBelegNr._numbersOnly = False
Me.txtBelegNr._numbersOnlyKommastellen = ""
Me.txtBelegNr._numbersOnlyTrennzeichen = True
Me.txtBelegNr._Prozent = False
Me.txtBelegNr._ShortDateNew = False
Me.txtBelegNr._ShortDateOnly = False
Me.txtBelegNr._TimeOnly = False
Me.txtBelegNr._TimeOnly_Seconds = False
Me.txtBelegNr._value = Nothing
Me.txtBelegNr._Waehrung = False
Me.txtBelegNr._WaehrungZeichen = False
Me.txtBelegNr.Location = New System.Drawing.Point(177, 49)
Me.txtBelegNr.MaxLength = 250
Me.txtBelegNr.MaxLineLength = -1
Me.txtBelegNr.MaxLines_Warning = ""
Me.txtBelegNr.MaxLines_Warning_Label = Nothing
Me.txtBelegNr.Name = "txtBelegNr"
Me.txtBelegNr.Size = New System.Drawing.Size(183, 20)
Me.txtBelegNr.TabIndex = 2
'
'Label16
'
Me.Label16.AutoSize = True
Me.Label16.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.5!)
Me.Label16.Location = New System.Drawing.Point(504, 161)
Me.Label16.Name = "Label16"
Me.Label16.Size = New System.Drawing.Size(71, 15)
Me.Label16.TabIndex = 27
Me.Label16.Text = "Bemerkung"
'
'txtBerurunfgrund
'
Me.txtBerurunfgrund._DateTimeOnly = False
Me.txtBerurunfgrund._numbersOnly = False
Me.txtBerurunfgrund._numbersOnlyKommastellen = ""
Me.txtBerurunfgrund._numbersOnlyTrennzeichen = True
Me.txtBerurunfgrund._Prozent = False
Me.txtBerurunfgrund._ShortDateNew = False
Me.txtBerurunfgrund._ShortDateOnly = False
Me.txtBerurunfgrund._TimeOnly = False
Me.txtBerurunfgrund._TimeOnly_Seconds = False
Me.txtBerurunfgrund._value = ""
Me.txtBerurunfgrund._Waehrung = False
Me.txtBerurunfgrund._WaehrungZeichen = True
Me.txtBerurunfgrund.ForeColor = System.Drawing.Color.Red
Me.txtBerurunfgrund.Location = New System.Drawing.Point(695, 130)
Me.txtBerurunfgrund.MaxLength = 50
Me.txtBerurunfgrund.MaxLineLength = -1
Me.txtBerurunfgrund.MaxLines_Warning = ""
Me.txtBerurunfgrund.MaxLines_Warning_Label = Nothing
Me.txtBerurunfgrund.Name = "txtBerurunfgrund"
Me.txtBerurunfgrund.Size = New System.Drawing.Size(154, 20)
Me.txtBerurunfgrund.TabIndex = 9
'
'txtBelegDatum
'
Me.txtBelegDatum._DateTimeOnly = False
Me.txtBelegDatum._numbersOnly = False
Me.txtBelegDatum._numbersOnlyKommastellen = ""
Me.txtBelegDatum._numbersOnlyTrennzeichen = False
Me.txtBelegDatum._Prozent = False
Me.txtBelegDatum._ShortDateNew = False
Me.txtBelegDatum._ShortDateOnly = False
Me.txtBelegDatum._TimeOnly = False
Me.txtBelegDatum._TimeOnly_Seconds = False
Me.txtBelegDatum._value = ""
Me.txtBelegDatum._Waehrung = False
Me.txtBelegDatum._WaehrungZeichen = False
Me.txtBelegDatum.ForeColor = System.Drawing.Color.Red
Me.txtBelegDatum.Location = New System.Drawing.Point(17, 49)
Me.txtBelegDatum.MaxLength = 10
Me.txtBelegDatum.MaxLineLength = -1
Me.txtBelegDatum.MaxLines_Warning = ""
Me.txtBelegDatum.MaxLines_Warning_Label = Nothing
Me.txtBelegDatum.Name = "txtBelegDatum"
Me.txtBelegDatum.Size = New System.Drawing.Size(154, 20)
Me.txtBelegDatum.TabIndex = 1
'
'txtGuDatum
'
Me.txtGuDatum._DateTimeOnly = False
Me.txtGuDatum._numbersOnly = False
Me.txtGuDatum._numbersOnlyKommastellen = ""
Me.txtGuDatum._numbersOnlyTrennzeichen = True
Me.txtGuDatum._Prozent = False
Me.txtGuDatum._ShortDateNew = False
Me.txtGuDatum._ShortDateOnly = False
Me.txtGuDatum._TimeOnly = False
Me.txtGuDatum._TimeOnly_Seconds = False
Me.txtGuDatum._value = Nothing
Me.txtGuDatum._Waehrung = False
Me.txtGuDatum._WaehrungZeichen = False
Me.txtGuDatum.Location = New System.Drawing.Point(507, 49)
Me.txtGuDatum.MaxLength = 22
Me.txtGuDatum.MaxLineLength = -1
Me.txtGuDatum.MaxLines_Warning = ""
Me.txtGuDatum.MaxLines_Warning_Label = Nothing
Me.txtGuDatum.Name = "txtGuDatum"
Me.txtGuDatum.Size = New System.Drawing.Size(182, 20)
Me.txtGuDatum.TabIndex = 3
'
'txtUSTBetragEUR
'
Me.txtUSTBetragEUR._DateTimeOnly = False
Me.txtUSTBetragEUR._numbersOnly = False
Me.txtUSTBetragEUR._numbersOnlyKommastellen = ""
Me.txtUSTBetragEUR._numbersOnlyTrennzeichen = False
Me.txtUSTBetragEUR._Prozent = False
Me.txtUSTBetragEUR._ShortDateNew = False
Me.txtUSTBetragEUR._ShortDateOnly = False
Me.txtUSTBetragEUR._TimeOnly = False
Me.txtUSTBetragEUR._TimeOnly_Seconds = False
Me.txtUSTBetragEUR._value = ""
Me.txtUSTBetragEUR._Waehrung = True
Me.txtUSTBetragEUR._WaehrungZeichen = False
Me.txtUSTBetragEUR.ForeColor = System.Drawing.Color.Red
Me.txtUSTBetragEUR.Location = New System.Drawing.Point(294, 130)
Me.txtUSTBetragEUR.MaxLength = 10
Me.txtUSTBetragEUR.MaxLineLength = -1
Me.txtUSTBetragEUR.MaxLines_Warning = ""
Me.txtUSTBetragEUR.MaxLines_Warning_Label = Nothing
Me.txtUSTBetragEUR.Name = "txtUSTBetragEUR"
Me.txtUSTBetragEUR.Size = New System.Drawing.Size(154, 20)
Me.txtUSTBetragEUR.TabIndex = 7
'
'txtUmrechnungskurs
'
Me.txtUmrechnungskurs._DateTimeOnly = False
Me.txtUmrechnungskurs._numbersOnly = False
Me.txtUmrechnungskurs._numbersOnlyKommastellen = ""
Me.txtUmrechnungskurs._numbersOnlyTrennzeichen = True
Me.txtUmrechnungskurs._Prozent = False
Me.txtUmrechnungskurs._ShortDateNew = False
Me.txtUmrechnungskurs._ShortDateOnly = False
Me.txtUmrechnungskurs._TimeOnly = False
Me.txtUmrechnungskurs._TimeOnly_Seconds = False
Me.txtUmrechnungskurs._value = ""
Me.txtUmrechnungskurs._Waehrung = False
Me.txtUmrechnungskurs._WaehrungZeichen = False
Me.txtUmrechnungskurs.ForeColor = System.Drawing.Color.Red
Me.txtUmrechnungskurs.Location = New System.Drawing.Point(177, 130)
Me.txtUmrechnungskurs.MaxLength = 10
Me.txtUmrechnungskurs.MaxLineLength = -1
Me.txtUmrechnungskurs.MaxLines_Warning = ""
Me.txtUmrechnungskurs.MaxLines_Warning_Label = Nothing
Me.txtUmrechnungskurs.Name = "txtUmrechnungskurs"
Me.txtUmrechnungskurs.Size = New System.Drawing.Size(108, 20)
Me.txtUmrechnungskurs.TabIndex = 6
'
'txtUSTBetrag
'
Me.txtUSTBetrag._DateTimeOnly = False
Me.txtUSTBetrag._numbersOnly = False
Me.txtUSTBetrag._numbersOnlyKommastellen = ""
Me.txtUSTBetrag._numbersOnlyTrennzeichen = False
Me.txtUSTBetrag._Prozent = False
Me.txtUSTBetrag._ShortDateNew = False
Me.txtUSTBetrag._ShortDateOnly = False
Me.txtUSTBetrag._TimeOnly = False
Me.txtUSTBetrag._TimeOnly_Seconds = False
Me.txtUSTBetrag._value = ""
Me.txtUSTBetrag._Waehrung = False
Me.txtUSTBetrag._WaehrungZeichen = False
Me.txtUSTBetrag.ForeColor = System.Drawing.Color.Red
Me.txtUSTBetrag.Location = New System.Drawing.Point(17, 130)
Me.txtUSTBetrag.MaxLength = 10
Me.txtUSTBetrag.MaxLineLength = -1
Me.txtUSTBetrag.MaxLines_Warning = ""
Me.txtUSTBetrag.MaxLines_Warning_Label = Nothing
Me.txtUSTBetrag.Name = "txtUSTBetrag"
Me.txtUSTBetrag.Size = New System.Drawing.Size(154, 20)
Me.txtUSTBetrag.TabIndex = 5
'
'Panel1
'
Me.Panel1.Controls.Add(Me.btnBildAuf)
Me.Panel1.Controls.Add(Me.Button1)
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Right
Me.Panel1.Location = New System.Drawing.Point(1201, 30)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(99, 235)
Me.Panel1.TabIndex = 2
'
'ustCntlUSTV_ErstattungPosition
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.Controls.Add(Me.Panel1)
Me.Controls.Add(Me.pnl)
Me.Controls.Add(Me.Panel2)
Me.Name = "ustCntlUSTV_ErstattungPosition"
Me.Size = New System.Drawing.Size(1300, 265)
Me.Panel2.ResumeLayout(False)
Me.Panel2.PerformLayout()
Me.pnl.ResumeLayout(False)
Me.pnl.PerformLayout()
Me.Panel1.ResumeLayout(False)
Me.ResumeLayout(False)
End Sub
Friend WithEvents Label8 As Label
Friend WithEvents txtBelegDatum As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label7 As Label
Friend WithEvents Panel2 As Panel
Friend WithEvents txtBelegNr As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label9 As Label
Friend WithEvents Label1 As Label
Friend WithEvents btnBildAuf As Button
Friend WithEvents Button1 As Button
Friend WithEvents txtGuDatum As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label2 As Label
Friend WithEvents Label3 As Label
Friend WithEvents Label6 As Label
Friend WithEvents Label10 As Label
Friend WithEvents txtUSTBetrag As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label11 As Label
Friend WithEvents txtUmrechnungskurs As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label12 As Label
Friend WithEvents txtUSTBetragEUR As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label13 As Label
Friend WithEvents Label4 As Label
Friend WithEvents Label5 As Label
Friend WithEvents lblAenderungsdatum As Label
Friend WithEvents lblSachbearbeiter As Label
Friend WithEvents pnl As Panel
Friend WithEvents Panel1 As Panel
Friend WithEvents txtBerufungshoehe As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents txtBerurunfgrund As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label16 As Label
Friend WithEvents Label15 As Label
Friend WithEvents txtBerufungsdatum As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label14 As Label
Friend WithEvents txtBemerkung As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents lblWarning As Label
Friend WithEvents Label18 As Label
Friend WithEvents txtGuNr As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label19 As Label
End Class

120
SDL/USTV/ustCntlUSTV_ErstattungPosition .resx Normal file
View File

@@ -0,0 +1,120 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
</root>

257
SDL/USTV/ustCntlUSTV_ErstattungPosition .vb Normal file
View File

@@ -0,0 +1,257 @@
Imports VERAG_PROG_ALLGEMEIN
Public Class ustCntlUSTV_ErstattungPosition
Public UStV_ERS As VERAG_PROG_ALLGEMEIN.cUStVErstattungPositionen = Nothing
Public UstV_AN As cUSTVAntrag
Dim sql As New VERAG_PROG_ALLGEMEIN.SQL
Dim kdnr = ""
Public Event EV_PREV()
Public Event EV_NEXT()
Public Event CHANGED(UStV_ERS)
Dim gridAktiv = False
Dim txtChanged As Boolean = False
Private Sub btnBildAuf_Click(sender As Object, e As EventArgs) Handles btnBildAuf.Click
RaiseEvent EV_PREV()
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
RaiseEvent EV_NEXT()
End Sub
Sub reset()
txtBelegDatum._value = ""
txtBelegNr._value = ""
txtGuDatum._value = ""
txtGuNr._value = ""
txtBerufungsdatum._value = ""
txtBerufungshoehe._value = ""
txtBerurunfgrund._value = ""
txtUmrechnungskurs._value = 1
txtUSTBetrag._value = 0
txtUSTBetragEUR._value = 0
txtBemerkung.Text = ""
End Sub
Sub setValues(UstV_AN_ As cUSTVAntrag, Optional UStV_ERS As VERAG_PROG_ALLGEMEIN.cUStVErstattungPositionen = Nothing, Optional kdNr As Integer = -1)
UstV_AN = UstV_AN_
If UStV_ERS Is Nothing Then Exit Sub
Me.UStV_ERS = UStV_ERS
Me.kdnr = kdNr
txtBelegDatum._value = If(UStV_ERS.Belegdatum, "")
txtBelegNr._value = If(UStV_ERS.Belegnummer, "")
txtGuDatum._value = If(UStV_ERS.GutschriftsDatum, "")
txtGuNr._value = If(UStV_ERS.GutschriftsNr, "")
txtBerufungsdatum._value = If(UStV_ERS.Berufungsdatum, "")
txtBerurunfgrund._value = If(UStV_ERS.Berufungsgrund, "")
txtBerufungshoehe._value = If(UStV_ERS.Berufungshöhe, "")
lblSachbearbeiter.Text = If(UStV_ERS.UStVEr_Sachbearbeiter, "")
If UStV_ERS.UStVEr_Zeitstempel IsNot Nothing Then lblAenderungsdatum.Text = CDate(UStV_ERS.UStVEr_Zeitstempel).ToString("dd.MM.yyyy HH:mm")
txtUSTBetrag.Text = If(UStV_ERS.UStVEr_USteuerbetrag, "")
txtUmrechnungskurs.Text = If(UStV_ERS.UStVEr_Umrechnungskurs, "")
txtUSTBetragEUR.Text = If(UStV_ERS.UStVEr_USteuerbetragEUR, "")
txtBemerkung.Text = If(UStV_ERS.Bemerkung, "")
End Sub
Sub getValues(ByRef UStV_ERS As cUStVErstattungPositionen, ByRef save As Boolean)
If UStV_ERS Is Nothing Then
UStV_ERS = New VERAG_PROG_ALLGEMEIN.cUStVErstattungPositionen()
UStV_ERS.UStVEr_ID = UStV_ERS.getMaxPosNr()
End If
UStV_ERS.UStVEr_Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
UStV_ERS.UStVEr_Zeitstempel = Now
UStV_ERS.UStVAn_ID = UstV_AN.UStVAn_ID
If txtBelegNr.Text <> "" Then
UStV_ERS.Belegnummer = txtBelegNr.Text
Else
save = False
End If
If txtBelegDatum.Text <> "" AndAlso IsDate(txtBelegDatum.Text) Then
UStV_ERS.Belegdatum = txtBelegDatum._value
Else
save = False
End If
If txtUSTBetrag.Text <> "" Then
UStV_ERS.UStVEr_USteuerbetrag = txtUSTBetrag.Text.Replace(",", ".")
Else
save = False
End If
If txtUSTBetragEUR.Text <> "" Then
UStV_ERS.UStVEr_USteuerbetragEUR = txtUSTBetragEUR.Text.Replace(",", ".")
Else
save = False
End If
If txtGuDatum.Text <> "" Then
UStV_ERS.GutschriftsDatum = txtGuDatum.Text
End If
If Not txtUmrechnungskurs.Text = "" Then
If txtUmrechnungskurs.Text <> "" Then
UStV_ERS.UStVEr_Umrechnungskurs = txtUmrechnungskurs.Text.Replace(",", ".")
End If
Else
save = False
End If
If txtGuDatum.Text <> "" Then
UStV_ERS.GutschriftsDatum = txtGuDatum.Text
End If
If txtGuNr.Text <> "" Then
UStV_ERS.GutschriftsNr = txtGuNr.Text
End If
If txtBemerkung.Text <> "" Then
UStV_ERS.Bemerkung = txtBemerkung.Text
End If
If txtBerufungsdatum.Text <> "" Then
UStV_ERS.Berufungsdatum = txtBerufungsdatum.Text
End If
If txtBerufungshoehe.Text <> "" Then
UStV_ERS.Berufungshöhe = txtBerufungshoehe.Text
End If
If txtBerurunfgrund.Text <> "" Then
UStV_ERS.Berufungsgrund = txtBerurunfgrund.Text
End If
End Sub
Private Sub ustCntlUSTV_AntragPosition_KeyDown(sender As Object, e As PreviewKeyDownEventArgs) Handles Me.PreviewKeyDown
If e.KeyValue = Keys.PageDown Then
RaiseEvent EV_NEXT()
End If
If e.KeyValue = Keys.PageUp Then
RaiseEvent EV_PREV()
End If
End Sub
Function save()
Dim setSave As Boolean = True
getValues(UStV_ERS, setSave)
'MsgBox("TEST")
If setSave Then Return UStV_ERS.SAVE
Return False
End Function
Private Sub txtBestellung_TextChanged(sender As Object, e As EventArgs) Handles txtGuDatum.TextChanged, txtBelegDatum.TextChanged, txtBelegNr.TextChanged, txtUSTBetrag.TextChanged, txtUmrechnungskurs.TextChanged, txtUSTBetragEUR.TextChanged
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_USTVA_bearbeiten", Me.FindForm) Then Exit Sub
End Sub
Sub values_changed()
lblSachbearbeiter.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
lblAenderungsdatum.Text = Now.ToString("dd.MM.yyyy HH:mm")
' If e.Column.ColumnName = "Sachbearbeiter" Or e.Column.ColumnName = "Änderungsdatum" Then Exit Sub
If save() Then RaiseEvent CHANGED(UStV_ERS.UStVEr_ID)
End Sub
Private Sub txtUSTBetrag_PreviewKeyDown(sender As Object, e As PreviewKeyDownEventArgs) Handles txtUSTBetrag.PreviewKeyDown, txtUSTBetragEUR.PreviewKeyDown, txtBelegDatum.PreviewKeyDown, txtBelegNr.PreviewKeyDown, txtUmrechnungskurs.PreviewKeyDown
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_USTVA_bearbeiten", Me.FindForm) Then Exit Sub
If Me.FindForm IsNot Nothing Then
' Eingabeprüfung
If e.KeyValue = 9 Then
lblWarning.Text = ""
If sender Is txtUSTBetrag Or sender Is txtUSTBetragEUR Or sender Is txtUmrechnungskurs Then
If txtUSTBetrag.Text = "" Then
lblWarning.Text = "Bitte Umsatzsteuerbetrag eingeben."
Exit Sub
End If
End If
If sender Is txtUSTBetrag Then
If IsNumeric(txtUSTBetrag.Text) AndAlso IsNumeric(txtUmrechnungskurs.Text) Then
txtUSTBetragEUR.Text = Math.Floor((txtUSTBetrag.Text / txtUmrechnungskurs.Text) * 100 + 0.5) / 100
txtChanged = True
End If
ElseIf sender Is txtUSTBetragEUR Then
'so herum nicht umrechnen!!!!
'If IsNumeric(txtUSTBetragEUR._value) AndAlso IsNumeric(txtUmrechnungskurs._value) Then
' txtUSTBetrag.Text = Math.Floor((txtUSTBetragEUR._value * txtUmrechnungskurs._value) * 100 + 0.5) / 100
' 'values_changed()
'End If
If IsNumeric(txtUSTBetragEUR.Text) AndAlso IsNumeric(txtUSTBetrag.Text) Then
Dim zahl1 = txtUSTBetragEUR.Text / txtUSTBetrag.Text
txtUmrechnungskurs.Text = zahl1
txtChanged = True
End If
ElseIf sender Is txtUmrechnungskurs Then
If IsNumeric(txtUSTBetrag.Text) AndAlso IsNumeric(txtUmrechnungskurs._value) Then
txtUSTBetragEUR.Text = Math.Floor((txtUSTBetrag.Text / txtUmrechnungskurs.Text) * 100 + 0.5) / 100
txtChanged = True
End If
End If
End If
If txtChanged Then
values_changed()
txtChanged = False
End If
End If
End Sub
End Class

34
SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb generated
View File

@@ -98,6 +98,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.UsrCntlKundeFiskaldaten1 = New SDL.usrCntlKundeFiskaldaten()
Me.tbVerrechnung = New System.Windows.Forms.TabPage()
Me.pnlverag360 = New System.Windows.Forms.Panel()
Me.txtAnmerkungAntraege = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.gbMWSTAntraege = New System.Windows.Forms.GroupBox()
Me.rbJ = New System.Windows.Forms.RadioButton()
Me.rbHJ = New System.Windows.Forms.RadioButton()
@@ -1174,14 +1175,39 @@ Partial Class usrcntlKundeBearbeitenFull
'
'pnlverag360
'
Me.pnlverag360.Controls.Add(Me.txtAnmerkungAntraege)
Me.pnlverag360.Controls.Add(Me.gbMWSTAntraege)
Me.pnlverag360.Controls.Add(Me.txtVorauszahlung)
Me.pnlverag360.Controls.Add(Me.cbxVorauszahlung)
Me.pnlverag360.Location = New System.Drawing.Point(417, 247)
Me.pnlverag360.Name = "pnlverag360"
Me.pnlverag360.Size = New System.Drawing.Size(252, 117)
Me.pnlverag360.Size = New System.Drawing.Size(252, 143)
Me.pnlverag360.TabIndex = 49
'
'txtAnmerkungAntraege
'
Me.txtAnmerkungAntraege._DateTimeOnly = False
Me.txtAnmerkungAntraege._numbersOnly = False
Me.txtAnmerkungAntraege._numbersOnlyKommastellen = ""
Me.txtAnmerkungAntraege._numbersOnlyTrennzeichen = False
Me.txtAnmerkungAntraege._Prozent = False
Me.txtAnmerkungAntraege._ShortDateNew = False
Me.txtAnmerkungAntraege._ShortDateOnly = False
Me.txtAnmerkungAntraege._TimeOnly = False
Me.txtAnmerkungAntraege._TimeOnly_Seconds = False
Me.txtAnmerkungAntraege._value = ""
Me.txtAnmerkungAntraege._Waehrung = False
Me.txtAnmerkungAntraege._WaehrungZeichen = False
Me.txtAnmerkungAntraege.ForeColor = System.Drawing.Color.Red
Me.txtAnmerkungAntraege.Location = New System.Drawing.Point(8, 89)
Me.txtAnmerkungAntraege.MaxLength = 10
Me.txtAnmerkungAntraege.MaxLineLength = -1
Me.txtAnmerkungAntraege.MaxLines_Warning = ""
Me.txtAnmerkungAntraege.MaxLines_Warning_Label = Nothing
Me.txtAnmerkungAntraege.Name = "txtAnmerkungAntraege"
Me.txtAnmerkungAntraege.Size = New System.Drawing.Size(195, 20)
Me.txtAnmerkungAntraege.TabIndex = 49
'
'gbMWSTAntraege
'
Me.gbMWSTAntraege.Controls.Add(Me.rbJ)
@@ -1245,7 +1271,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.txtVorauszahlung._Waehrung = False
Me.txtVorauszahlung._WaehrungZeichen = False
Me.txtVorauszahlung.ForeColor = System.Drawing.Color.Red
Me.txtVorauszahlung.Location = New System.Drawing.Point(106, 92)
Me.txtVorauszahlung.Location = New System.Drawing.Point(110, 120)
Me.txtVorauszahlung.MaxLength = 10
Me.txtVorauszahlung.MaxLineLength = -1
Me.txtVorauszahlung.MaxLines_Warning = ""
@@ -1253,13 +1279,12 @@ Partial Class usrcntlKundeBearbeitenFull
Me.txtVorauszahlung.Name = "txtVorauszahlung"
Me.txtVorauszahlung.Size = New System.Drawing.Size(123, 20)
Me.txtVorauszahlung.TabIndex = 48
Me.txtVorauszahlung.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
'
'cbxVorauszahlung
'
Me.cbxVorauszahlung.AutoSize = True
Me.cbxVorauszahlung.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cbxVorauszahlung.Location = New System.Drawing.Point(4, 92)
Me.cbxVorauszahlung.Location = New System.Drawing.Point(8, 120)
Me.cbxVorauszahlung.Name = "cbxVorauszahlung"
Me.cbxVorauszahlung.Size = New System.Drawing.Size(96, 17)
Me.cbxVorauszahlung.TabIndex = 47
@@ -5732,4 +5757,5 @@ Partial Class usrcntlKundeBearbeitenFull
Friend WithEvents pnlverag360 As Panel
Friend WithEvents txtVorauszahlung As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents cbxVorauszahlung As CheckBox
Friend WithEvents txtAnmerkungAntraege As VERAG_PROG_ALLGEMEIN.MyTextBox
End Class

7
SDL/kunden/usrcntlKundeBearbeitenFull.vb
View File

@@ -203,6 +203,7 @@
txtHandelsregisterNr.Text = loadValue(KUNDE_ERW.kde_HRNr, "")
cbxVorauszahlung.Checked = loadValue(KUNDE_ERW.kde_VZ, False)
txtVorauszahlung.Text = loadValue(KUNDE_ERW.kde_AnmerkungVZ, "")
txtAnmerkungAntraege.Text = loadValue(KUNDE_ERW.kde_AnmerkungAntrag, "")
txtEORI.Text = If(KUNDE.EORITIN, "")
txtEORINL.Text = If(KUNDE.EORITIN_NL, "")
@@ -619,6 +620,7 @@
KUNDE_ERW.kde_HRNr = isLeerNothing(txtHandelsregisterNr.Text)
KUNDE_ERW.kde_VZ = cbxVorauszahlung.Checked
KUNDE_ERW.kde_AnmerkungVZ = txtVorauszahlung.Text
KUNDE_ERW.kde_AnmerkungAntrag = txtAnmerkungAntraege.Text
If isLeerNothing(txtGruendungsDatum.Text) IsNot Nothing AndAlso IsDate(txtGruendungsDatum.Text) Then
KUNDE_ERW.kde_GruendungsDatum = CDate(txtGruendungsDatum.Text)
@@ -2234,4 +2236,9 @@
End If
End Sub
Private Sub cbxVorauszahlung_CheckedChanged(sender As Object, e As EventArgs) Handles cbxVorauszahlung.CheckedChanged
txtVorauszahlung.Enabled = cbxVorauszahlung.Checked
If Not cbxVorauszahlung.Checked Then txtVorauszahlung.Text = ""
End Sub
End Class