ustcntlErstattungspos, etc.
This commit is contained in:
@@ -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>
|
||||
|
||||
375
SDL/USTV/frmMDM_USTVAntrag.Designer.vb
generated
375
SDL/USTV/frmMDM_USTVAntrag.Designer.vb
generated
@@ -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()
|
||||
@@ -86,49 +89,55 @@ 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.dgvErstattungspositionen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
|
||||
Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
|
||||
Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip(Me.components)
|
||||
Me.lblGesamtUSteuer = New System.Windows.Forms.Label()
|
||||
Me.lblDiffernezbetrag = New System.Windows.Forms.Label()
|
||||
Me.lblGesamtErstattung = New System.Windows.Forms.Label()
|
||||
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()
|
||||
CType(Me.dgvErstattungspositionen, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
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
|
||||
'
|
||||
@@ -202,45 +211,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.lblGesamtUSteuer)
|
||||
Me.Panel1.Controls.Add(Me.lblDiffernezbetrag)
|
||||
Me.Panel1.Controls.Add(Me.lblGesamtErstattung)
|
||||
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.lblGesamtUSteuerFW)
|
||||
Me.Panel1.Controls.Add(Me.Label12)
|
||||
Me.Panel1.Controls.Add(Me.lblDiffernezbetragFW)
|
||||
Me.Panel1.Controls.Add(Me.Label10)
|
||||
Me.Panel1.Controls.Add(Me.lblGesamtErstattungFW)
|
||||
Me.Panel1.Controls.Add(Me.Label7)
|
||||
Me.Panel1.Controls.Add(Me.Panel5)
|
||||
Me.Panel1.Controls.Add(Me.lblFirma)
|
||||
Me.Panel1.Controls.Add(Me.lblWarnung)
|
||||
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
|
||||
'
|
||||
@@ -1057,16 +1095,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
|
||||
'
|
||||
@@ -1075,39 +1151,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
|
||||
@@ -1117,7 +1203,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
|
||||
@@ -1148,6 +1234,38 @@ Partial Class frmMDM_USTVAntrag
|
||||
Me.btnNeuerEintrag.TextAlign = System.Drawing.ContentAlignment.MiddleRight
|
||||
Me.btnNeuerEintrag.UseVisualStyleBackColor = True
|
||||
'
|
||||
'TabPage2
|
||||
'
|
||||
Me.TabPage2.Controls.Add(Me.dgvErstattungspositionen)
|
||||
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
|
||||
'
|
||||
'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, 225)
|
||||
Me.dgvErstattungspositionen.TabIndex = 1
|
||||
'
|
||||
'ContextMenuStrip1
|
||||
'
|
||||
Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
|
||||
@@ -1158,75 +1276,24 @@ Partial Class frmMDM_USTVAntrag
|
||||
Me.ContextMenuStrip2.Name = "ContextMenuStrip1"
|
||||
Me.ContextMenuStrip2.Size = New System.Drawing.Size(61, 4)
|
||||
'
|
||||
'lblGesamtUSteuer
|
||||
'
|
||||
Me.lblGesamtUSteuer.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.lblGesamtUSteuer.BackColor = System.Drawing.Color.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
|
||||
'
|
||||
'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()
|
||||
@@ -1236,20 +1303,24 @@ 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)
|
||||
CType(Me.dgvErstattungspositionen, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
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
|
||||
@@ -1259,7 +1330,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
|
||||
@@ -1319,4 +1390,8 @@ Partial Class frmMDM_USTVAntrag
|
||||
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
|
||||
End Class
|
||||
|
||||
@@ -43,7 +43,7 @@ Public Class frmMDM_USTVAntrag
|
||||
End Sub
|
||||
|
||||
Sub init(Optional Lieferant As String = "")
|
||||
pnlFilter.AutoScroll = False
|
||||
pnlBody.AutoScroll = False
|
||||
|
||||
lblGesamtUSteuerFW.Text = "-"
|
||||
lblGesamtErstattungFW.Text = "-"
|
||||
@@ -235,10 +235,10 @@ 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
|
||||
|
||||
|
||||
@@ -1142,8 +1142,12 @@ 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)
|
||||
If TabControl1.SelectedTab Is TabPage1 Then
|
||||
If dgvUSTVPositionen.SelectedRows.Count > 0 Then
|
||||
initPosition(dgvUSTVPositionen.SelectedRows(0).Cells("UStVPo_ID").Value)
|
||||
End If
|
||||
ElseIf TabControl1.SelectedTab Is TabPage2 Then
|
||||
'TODO-Logik für Erstattung
|
||||
|
||||
End If
|
||||
|
||||
@@ -1898,6 +1902,20 @@ Public Class frmMDM_USTVAntrag
|
||||
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Private Sub TabControl1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles TabControl1.SelectedIndexChanged
|
||||
|
||||
If TabControl1.SelectedTab Is TabPage1 Then
|
||||
init()
|
||||
|
||||
ElseIf TabControl1.SelectedTab Is TabPage2 Then
|
||||
initdgvErstattungen()
|
||||
End If
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub setinfofields()
|
||||
@@ -1957,4 +1975,71 @@ Public Class frmMDM_USTVAntrag
|
||||
|
||||
|
||||
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 = 180
|
||||
|
||||
.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 = 180
|
||||
|
||||
.Columns("Berufungsdatum").Width = 80
|
||||
.Columns("Berufungshöhe").Width = 100
|
||||
.Columns("Berufungsgrund").Width = 200
|
||||
.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
|
||||
|
||||
End With
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
End Class
|
||||
@@ -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")
|
||||
|
||||
722
SDL/USTV/ustCntlUSTV_ErstattungPosition .Designer.vb
generated
Normal file
722
SDL/USTV/ustCntlUSTV_ErstattungPosition .Designer.vb
generated
Normal file
@@ -0,0 +1,722 @@
|
||||
<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.lblWarning = New System.Windows.Forms.Label()
|
||||
Me.sbLeistender = New VERAG_PROG_ALLGEMEIN.MySearchBox()
|
||||
Me.txtStrasse = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.txtUIDNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.Label14 = New System.Windows.Forms.Label()
|
||||
Me.Label17 = New System.Windows.Forms.Label()
|
||||
Me.Label15 = New System.Windows.Forms.Label()
|
||||
Me.txtLand = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.txtPLZ = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.txtStrassenNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.Label16 = New System.Windows.Forms.Label()
|
||||
Me.txtOrt = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.txtBelegNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.txtBelegDatum = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.txtLeistungsbezeichnung = 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(442, 14)
|
||||
Me.Label1.Name = "Label1"
|
||||
Me.Label1.Size = New System.Drawing.Size(55, 13)
|
||||
Me.Label1.TabIndex = 1
|
||||
Me.Label1.Text = "Leistung"
|
||||
'
|
||||
'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 = 0
|
||||
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 = 1
|
||||
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(442, 31)
|
||||
Me.Label2.Name = "Label2"
|
||||
Me.Label2.Size = New System.Drawing.Size(139, 15)
|
||||
Me.Label2.TabIndex = 4
|
||||
Me.Label2.Text = "Leistungs-Bezeichnung:"
|
||||
'
|
||||
'Label3
|
||||
'
|
||||
Me.Label3.AutoSize = True
|
||||
Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.5!)
|
||||
Me.Label3.Location = New System.Drawing.Point(630, 31)
|
||||
Me.Label3.Name = "Label3"
|
||||
Me.Label3.Size = New System.Drawing.Size(101, 15)
|
||||
Me.Label3.TabIndex = 5
|
||||
Me.Label3.Text = "Leistungs-Geber:"
|
||||
'
|
||||
'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.txtStrasse)
|
||||
Me.pnl.Controls.Add(Me.lblWarning)
|
||||
Me.pnl.Controls.Add(Me.txtUIDNr)
|
||||
Me.pnl.Controls.Add(Me.Label14)
|
||||
Me.pnl.Controls.Add(Me.sbLeistender)
|
||||
Me.pnl.Controls.Add(Me.Label17)
|
||||
Me.pnl.Controls.Add(Me.Label15)
|
||||
Me.pnl.Controls.Add(Me.Label6)
|
||||
Me.pnl.Controls.Add(Me.txtLand)
|
||||
Me.pnl.Controls.Add(Me.Label9)
|
||||
Me.pnl.Controls.Add(Me.txtPLZ)
|
||||
Me.pnl.Controls.Add(Me.lblAenderungsdatum)
|
||||
Me.pnl.Controls.Add(Me.txtStrassenNr)
|
||||
Me.pnl.Controls.Add(Me.txtBelegNr)
|
||||
Me.pnl.Controls.Add(Me.Label16)
|
||||
Me.pnl.Controls.Add(Me.lblSachbearbeiter)
|
||||
Me.pnl.Controls.Add(Me.txtOrt)
|
||||
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.txtLeistungsbezeichnung)
|
||||
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, 239)
|
||||
Me.pnl.TabIndex = 1
|
||||
'
|
||||
'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
|
||||
'
|
||||
'sbLeistender
|
||||
'
|
||||
Me.sbLeistender._allowFreitext = True
|
||||
Me.sbLeistender._AllowSetValue = False
|
||||
Me.sbLeistender._allowSpaceAsSplitter = False
|
||||
Me.sbLeistender._autoSizeGross = False
|
||||
Me.sbLeistender._hideIfListEmpty = True
|
||||
Me.sbLeistender._value = Nothing
|
||||
Me.sbLeistender.conn_art = "FMZOLL"
|
||||
Me.sbLeistender.dgvpos = "LEFT"
|
||||
Me.sbLeistender.DISPLAY_PARAM = Nothing
|
||||
Me.sbLeistender.INVISIBLE_COLUMNS = Nothing
|
||||
Me.sbLeistender.key_visible = False
|
||||
Me.sbLeistender.KEYPARAM = Nothing
|
||||
Me.sbLeistender.Location = New System.Drawing.Point(630, 49)
|
||||
Me.sbLeistender.Name = "sbLeistender"
|
||||
Me.sbLeistender.searchActive = True
|
||||
Me.sbLeistender.Size = New System.Drawing.Size(283, 20)
|
||||
Me.sbLeistender.SQL_ORDER_BY = Nothing
|
||||
Me.sbLeistender.SQL_SELECT = Nothing
|
||||
Me.sbLeistender.SQL_WHERE = Nothing
|
||||
Me.sbLeistender.SQL_WhereParamList = Nothing
|
||||
Me.sbLeistender.TabIndex = 13
|
||||
Me.sbLeistender.usrcntl = Nothing
|
||||
'
|
||||
'txtStrasse
|
||||
'
|
||||
Me.txtStrasse._DateTimeOnly = False
|
||||
Me.txtStrasse._numbersOnly = False
|
||||
Me.txtStrasse._numbersOnlyKommastellen = ""
|
||||
Me.txtStrasse._numbersOnlyTrennzeichen = True
|
||||
Me.txtStrasse._Prozent = False
|
||||
Me.txtStrasse._ShortDateNew = False
|
||||
Me.txtStrasse._ShortDateOnly = False
|
||||
Me.txtStrasse._TimeOnly = False
|
||||
Me.txtStrasse._TimeOnly_Seconds = False
|
||||
Me.txtStrasse._value = ""
|
||||
Me.txtStrasse._Waehrung = False
|
||||
Me.txtStrasse._WaehrungZeichen = True
|
||||
Me.txtStrasse.ForeColor = System.Drawing.Color.Red
|
||||
Me.txtStrasse.Location = New System.Drawing.Point(729, 93)
|
||||
Me.txtStrasse.MaxLength = 50
|
||||
Me.txtStrasse.MaxLineLength = -1
|
||||
Me.txtStrasse.MaxLines_Warning = ""
|
||||
Me.txtStrasse.MaxLines_Warning_Label = Nothing
|
||||
Me.txtStrasse.Name = "txtStrasse"
|
||||
Me.txtStrasse.Size = New System.Drawing.Size(169, 20)
|
||||
Me.txtStrasse.TabIndex = 15
|
||||
'
|
||||
'txtUIDNr
|
||||
'
|
||||
Me.txtUIDNr._DateTimeOnly = False
|
||||
Me.txtUIDNr._numbersOnly = False
|
||||
Me.txtUIDNr._numbersOnlyKommastellen = ""
|
||||
Me.txtUIDNr._numbersOnlyTrennzeichen = True
|
||||
Me.txtUIDNr._Prozent = False
|
||||
Me.txtUIDNr._ShortDateNew = False
|
||||
Me.txtUIDNr._ShortDateOnly = False
|
||||
Me.txtUIDNr._TimeOnly = False
|
||||
Me.txtUIDNr._TimeOnly_Seconds = False
|
||||
Me.txtUIDNr._value = ""
|
||||
Me.txtUIDNr._Waehrung = False
|
||||
Me.txtUIDNr._WaehrungZeichen = True
|
||||
Me.txtUIDNr.ForeColor = System.Drawing.Color.Red
|
||||
Me.txtUIDNr.Location = New System.Drawing.Point(843, 150)
|
||||
Me.txtUIDNr.MaxLength = 50
|
||||
Me.txtUIDNr.MaxLineLength = -1
|
||||
Me.txtUIDNr.MaxLines_Warning = ""
|
||||
Me.txtUIDNr.MaxLines_Warning_Label = Nothing
|
||||
Me.txtUIDNr.Name = "txtUIDNr"
|
||||
Me.txtUIDNr.Size = New System.Drawing.Size(106, 20)
|
||||
Me.txtUIDNr.TabIndex = 20
|
||||
'
|
||||
'Label14
|
||||
'
|
||||
Me.Label14.AutoSize = True
|
||||
Me.Label14.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.5!)
|
||||
Me.Label14.Location = New System.Drawing.Point(667, 95)
|
||||
Me.Label14.Name = "Label14"
|
||||
Me.Label14.Size = New System.Drawing.Size(64, 15)
|
||||
Me.Label14.TabIndex = 23
|
||||
Me.Label14.Text = "Strasse/Nr"
|
||||
'
|
||||
'Label17
|
||||
'
|
||||
Me.Label17.AutoSize = True
|
||||
Me.Label17.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.5!)
|
||||
Me.Label17.Location = New System.Drawing.Point(792, 153)
|
||||
Me.Label17.Name = "Label17"
|
||||
Me.Label17.Size = New System.Drawing.Size(45, 15)
|
||||
Me.Label17.TabIndex = 31
|
||||
Me.Label17.Text = "UID-Nr"
|
||||
'
|
||||
'Label15
|
||||
'
|
||||
Me.Label15.AutoSize = True
|
||||
Me.Label15.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.5!)
|
||||
Me.Label15.Location = New System.Drawing.Point(671, 122)
|
||||
Me.Label15.Name = "Label15"
|
||||
Me.Label15.Size = New System.Drawing.Size(48, 15)
|
||||
Me.Label15.TabIndex = 25
|
||||
Me.Label15.Text = "PLZ/Ort"
|
||||
'
|
||||
'txtLand
|
||||
'
|
||||
Me.txtLand._DateTimeOnly = False
|
||||
Me.txtLand._numbersOnly = False
|
||||
Me.txtLand._numbersOnlyKommastellen = ""
|
||||
Me.txtLand._numbersOnlyTrennzeichen = True
|
||||
Me.txtLand._Prozent = False
|
||||
Me.txtLand._ShortDateNew = False
|
||||
Me.txtLand._ShortDateOnly = False
|
||||
Me.txtLand._TimeOnly = False
|
||||
Me.txtLand._TimeOnly_Seconds = False
|
||||
Me.txtLand._value = ""
|
||||
Me.txtLand._Waehrung = False
|
||||
Me.txtLand._WaehrungZeichen = True
|
||||
Me.txtLand.ForeColor = System.Drawing.Color.Red
|
||||
Me.txtLand.Location = New System.Drawing.Point(729, 148)
|
||||
Me.txtLand.MaxLength = 2
|
||||
Me.txtLand.MaxLineLength = -1
|
||||
Me.txtLand.MaxLines_Warning = ""
|
||||
Me.txtLand.MaxLines_Warning_Label = Nothing
|
||||
Me.txtLand.Name = "txtLand"
|
||||
Me.txtLand.Size = New System.Drawing.Size(38, 20)
|
||||
Me.txtLand.TabIndex = 19
|
||||
'
|
||||
'txtPLZ
|
||||
'
|
||||
Me.txtPLZ._DateTimeOnly = False
|
||||
Me.txtPLZ._numbersOnly = False
|
||||
Me.txtPLZ._numbersOnlyKommastellen = ""
|
||||
Me.txtPLZ._numbersOnlyTrennzeichen = True
|
||||
Me.txtPLZ._Prozent = False
|
||||
Me.txtPLZ._ShortDateNew = False
|
||||
Me.txtPLZ._ShortDateOnly = False
|
||||
Me.txtPLZ._TimeOnly = False
|
||||
Me.txtPLZ._TimeOnly_Seconds = False
|
||||
Me.txtPLZ._value = ""
|
||||
Me.txtPLZ._Waehrung = False
|
||||
Me.txtPLZ._WaehrungZeichen = True
|
||||
Me.txtPLZ.ForeColor = System.Drawing.Color.Red
|
||||
Me.txtPLZ.Location = New System.Drawing.Point(729, 119)
|
||||
Me.txtPLZ.MaxLength = 10
|
||||
Me.txtPLZ.MaxLineLength = -1
|
||||
Me.txtPLZ.MaxLines_Warning = ""
|
||||
Me.txtPLZ.MaxLines_Warning_Label = Nothing
|
||||
Me.txtPLZ.Name = "txtPLZ"
|
||||
Me.txtPLZ.Size = New System.Drawing.Size(59, 20)
|
||||
Me.txtPLZ.TabIndex = 17
|
||||
'
|
||||
'txtStrassenNr
|
||||
'
|
||||
Me.txtStrassenNr._DateTimeOnly = False
|
||||
Me.txtStrassenNr._numbersOnly = False
|
||||
Me.txtStrassenNr._numbersOnlyKommastellen = ""
|
||||
Me.txtStrassenNr._numbersOnlyTrennzeichen = True
|
||||
Me.txtStrassenNr._Prozent = False
|
||||
Me.txtStrassenNr._ShortDateNew = False
|
||||
Me.txtStrassenNr._ShortDateOnly = False
|
||||
Me.txtStrassenNr._TimeOnly = False
|
||||
Me.txtStrassenNr._TimeOnly_Seconds = False
|
||||
Me.txtStrassenNr._value = ""
|
||||
Me.txtStrassenNr._Waehrung = False
|
||||
Me.txtStrassenNr._WaehrungZeichen = True
|
||||
Me.txtStrassenNr.ForeColor = System.Drawing.Color.Red
|
||||
Me.txtStrassenNr.Location = New System.Drawing.Point(904, 92)
|
||||
Me.txtStrassenNr.MaxLength = 10
|
||||
Me.txtStrassenNr.MaxLineLength = -1
|
||||
Me.txtStrassenNr.MaxLines_Warning = ""
|
||||
Me.txtStrassenNr.MaxLines_Warning_Label = Nothing
|
||||
Me.txtStrassenNr.Name = "txtStrassenNr"
|
||||
Me.txtStrassenNr.Size = New System.Drawing.Size(45, 20)
|
||||
Me.txtStrassenNr.TabIndex = 16
|
||||
'
|
||||
'Label16
|
||||
'
|
||||
Me.Label16.AutoSize = True
|
||||
Me.Label16.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.5!)
|
||||
Me.Label16.Location = New System.Drawing.Point(671, 148)
|
||||
Me.Label16.Name = "Label16"
|
||||
Me.Label16.Size = New System.Drawing.Size(35, 15)
|
||||
Me.Label16.TabIndex = 27
|
||||
Me.Label16.Text = "Land"
|
||||
'
|
||||
'txtOrt
|
||||
'
|
||||
Me.txtOrt._DateTimeOnly = False
|
||||
Me.txtOrt._numbersOnly = False
|
||||
Me.txtOrt._numbersOnlyKommastellen = ""
|
||||
Me.txtOrt._numbersOnlyTrennzeichen = True
|
||||
Me.txtOrt._Prozent = False
|
||||
Me.txtOrt._ShortDateNew = False
|
||||
Me.txtOrt._ShortDateOnly = False
|
||||
Me.txtOrt._TimeOnly = False
|
||||
Me.txtOrt._TimeOnly_Seconds = False
|
||||
Me.txtOrt._value = ""
|
||||
Me.txtOrt._Waehrung = False
|
||||
Me.txtOrt._WaehrungZeichen = True
|
||||
Me.txtOrt.ForeColor = System.Drawing.Color.Red
|
||||
Me.txtOrt.Location = New System.Drawing.Point(795, 119)
|
||||
Me.txtOrt.MaxLength = 50
|
||||
Me.txtOrt.MaxLineLength = -1
|
||||
Me.txtOrt.MaxLines_Warning = ""
|
||||
Me.txtOrt.MaxLines_Warning_Label = Nothing
|
||||
Me.txtOrt.Name = "txtOrt"
|
||||
Me.txtOrt.Size = New System.Drawing.Size(154, 20)
|
||||
Me.txtOrt.TabIndex = 18
|
||||
'
|
||||
'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 = True
|
||||
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 = 7
|
||||
'
|
||||
'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 = 6
|
||||
'
|
||||
'txtLeistungsbezeichnung
|
||||
'
|
||||
Me.txtLeistungsbezeichnung._DateTimeOnly = False
|
||||
Me.txtLeistungsbezeichnung._numbersOnly = False
|
||||
Me.txtLeistungsbezeichnung._numbersOnlyKommastellen = ""
|
||||
Me.txtLeistungsbezeichnung._numbersOnlyTrennzeichen = True
|
||||
Me.txtLeistungsbezeichnung._Prozent = False
|
||||
Me.txtLeistungsbezeichnung._ShortDateNew = False
|
||||
Me.txtLeistungsbezeichnung._ShortDateOnly = False
|
||||
Me.txtLeistungsbezeichnung._TimeOnly = False
|
||||
Me.txtLeistungsbezeichnung._TimeOnly_Seconds = False
|
||||
Me.txtLeistungsbezeichnung._value = Nothing
|
||||
Me.txtLeistungsbezeichnung._Waehrung = False
|
||||
Me.txtLeistungsbezeichnung._WaehrungZeichen = True
|
||||
Me.txtLeistungsbezeichnung.Location = New System.Drawing.Point(445, 49)
|
||||
Me.txtLeistungsbezeichnung.MaxLength = 22
|
||||
Me.txtLeistungsbezeichnung.MaxLineLength = -1
|
||||
Me.txtLeistungsbezeichnung.MaxLines_Warning = ""
|
||||
Me.txtLeistungsbezeichnung.MaxLines_Warning_Label = Nothing
|
||||
Me.txtLeistungsbezeichnung.Name = "txtLeistungsbezeichnung"
|
||||
Me.txtLeistungsbezeichnung.Size = New System.Drawing.Size(182, 20)
|
||||
Me.txtLeistungsbezeichnung.TabIndex = 8
|
||||
'
|
||||
'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 = 11
|
||||
'
|
||||
'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 = 10
|
||||
'
|
||||
'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 = 9
|
||||
'
|
||||
'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, 239)
|
||||
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, 269)
|
||||
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 txtLeistungsbezeichnung 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 txtStrassenNr As VERAG_PROG_ALLGEMEIN.MyTextBox
|
||||
Friend WithEvents txtOrt As VERAG_PROG_ALLGEMEIN.MyTextBox
|
||||
Friend WithEvents Label16 As Label
|
||||
Friend WithEvents txtPLZ As VERAG_PROG_ALLGEMEIN.MyTextBox
|
||||
Friend WithEvents Label15 As Label
|
||||
Friend WithEvents txtStrasse As VERAG_PROG_ALLGEMEIN.MyTextBox
|
||||
Friend WithEvents Label14 As Label
|
||||
Friend WithEvents txtUIDNr As VERAG_PROG_ALLGEMEIN.MyTextBox
|
||||
Friend WithEvents Label17 As Label
|
||||
Friend WithEvents txtLand As VERAG_PROG_ALLGEMEIN.MyTextBox
|
||||
Friend WithEvents sbLeistender As VERAG_PROG_ALLGEMEIN.MySearchBox
|
||||
Friend WithEvents lblWarning As Label
|
||||
End Class
|
||||
120
SDL/USTV/ustCntlUSTV_ErstattungPosition .resx
Normal file
120
SDL/USTV/ustCntlUSTV_ErstattungPosition .resx
Normal 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>
|
||||
208
SDL/USTV/ustCntlUSTV_ErstattungPosition .vb
Normal file
208
SDL/USTV/ustCntlUSTV_ErstattungPosition .vb
Normal file
@@ -0,0 +1,208 @@
|
||||
Imports GrapeCity.ActiveReports.ReportsCore.Tools
|
||||
Imports VERAG_PROG_ALLGEMEIN
|
||||
|
||||
Public Class ustCntlUSTV_ErstattungPosition
|
||||
Public UStV_ERS As VERAG_PROG_ALLGEMEIN.cUStVErstattungPositionen = Nothing
|
||||
|
||||
Dim sql As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
Public Antrag_LandKz = ""
|
||||
Dim kdnr = ""
|
||||
|
||||
Public Event EV_PREV()
|
||||
Public Event EV_NEXT()
|
||||
Public Event CHANGED(UStVPo_ID)
|
||||
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 = ""
|
||||
|
||||
txtUmrechnungskurs._value = 1
|
||||
txtLeistungsbezeichnung._value = ""
|
||||
txtUmrechnungskurs._value = 1
|
||||
txtUSTBetrag._value = 0
|
||||
txtUSTBetragEUR._value = 0
|
||||
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Sub setValues(kdnr As Integer, UStV_ERS As VERAG_PROG_ALLGEMEIN.cUStVErstattungPositionen, Antrag_LandKz As String)
|
||||
|
||||
|
||||
|
||||
gridAktiv = False
|
||||
|
||||
Me.Antrag_LandKz = Antrag_LandKz
|
||||
Me.UStV_ERS = UStV_ERS
|
||||
Me.kdnr = kdnr
|
||||
|
||||
txtBelegDatum._value = If(UStV_ERS.Belegdatum, "")
|
||||
txtBelegNr._value = If(UStV_ERS.Belegnummer, "")
|
||||
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")
|
||||
|
||||
txtLeistungsbezeichnung.Text = If(UStV_ERS.Bemerkung, "")
|
||||
txtUSTBetrag.Text = If(UStV_ERS.UStVEr_USteuerbetrag, "")
|
||||
txtUmrechnungskurs.Text = If(UStV_ERS.UStVEr_Umrechnungskurs, "")
|
||||
txtUSTBetragEUR.Text = If(UStV_ERS.UStVEr_USteuerbetragEUR, "")
|
||||
|
||||
gridAktiv = True
|
||||
End Sub
|
||||
|
||||
Sub getValues(ByRef UStV_ERS, ByRef save)
|
||||
|
||||
If UStV_ERS Is Nothing Then UStV_ERS = New VERAG_PROG_ALLGEMEIN.cUStVErstattungPositionen()
|
||||
|
||||
UStV_ERS.UStVPo_Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
|
||||
UStV_ERS.UStVPo_Zeitstempel = Now
|
||||
|
||||
If txtBelegNr.Text <> "" Then
|
||||
UStV_ERS.UStVPo_ReNr = txtBelegNr.Text
|
||||
Else
|
||||
save = False
|
||||
End If
|
||||
|
||||
If txtBelegDatum.Text <> "" AndAlso IsDate(txtBelegDatum.Text) Then
|
||||
UStV_ERS.UStVPo_ReDat = txtBelegDatum._value
|
||||
Else
|
||||
save = False
|
||||
End If
|
||||
If txtUSTBetrag.Text <> "" Then
|
||||
UStV_ERS.UStVPo_USteuerbetrag = txtUSTBetrag.Text.Replace(",", ".")
|
||||
Else
|
||||
save = False
|
||||
End If
|
||||
|
||||
If txtUSTBetragEUR.Text <> "" Then
|
||||
UStV_ERS.UStVPo_USteuerbetragEUR = txtUSTBetragEUR.Text.Replace(",", ".")
|
||||
Else
|
||||
save = False
|
||||
End If
|
||||
If txtLeistungsbezeichnung.Text <> "" Then
|
||||
UStV_ERS.UStVPo_Leistungsbezeichnung = txtLeistungsbezeichnung.Text
|
||||
Else
|
||||
save = False
|
||||
End If
|
||||
If Not txtUmrechnungskurs.Text = "" Then
|
||||
If txtUmrechnungskurs.Text <> "" Then
|
||||
UStV_ERS.UStVPo_Umrechnungskurs = txtUmrechnungskurs.Text.Replace(",", ".")
|
||||
End If
|
||||
Else
|
||||
save = False
|
||||
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 txtLeistungsbezeichnung.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 gridAktiv And 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
|
||||
Reference in New Issue
Block a user