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

Merge branch 'master' of https://verag.visualstudio.com/SDL/_git/SDL

Browse Source
This commit is contained in:
d.breimaier
2022-10-12 08:09:23 +02:00
parent 9363b0727a 95d98b987e
commit a54feac9bd
12 changed files with 2098 additions and 727 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
SDL/Fakturierung/cFakturierung.vb
View File

@@ -1635,12 +1635,14 @@ Public Class cFakturierung
Dim RG_NR As New VERAG_PROG_ALLGEMEIN.cRechnungsnummern(RECHNUNG.Firma_ID, RECHNUNG.Buchungsjahr) Dim RG_NR As New VERAG_PROG_ALLGEMEIN.cRechnungsnummern(RECHNUNG.Firma_ID, RECHNUNG.Buchungsjahr)
' Prüfung, ob RgNr schon vergeben wurde --> dann +1, bis freie Nr. (sollte EÜGENTLICH nicht vorkommen) ' Prüfung, ob RgNr schon vergeben wurde --> dann +1, bis freie Nr. (sollte EÜGENTLICH nicht vorkommen)
RG_NR.CHECK_RGNR() RG_NR.CHECK_RGNR()
' Nächste Rechnungsnummer speichern.
RECHNUNG.[RechnungsNr] = RG_NR.LfdRechnungsNr RECHNUNG.[RechnungsNr] = RG_NR.LfdRechnungsNr
' Nächste Rechnungsnummer speichern.
RG_NR.INCREASE_RGNR() ' SOFORT Speichern, Sonst gibt es wieder eine Doppelvergabe!
'RECHNUNG.[LfdRechnungsNr] = RG_NR.LfdRechnungsNr 'RECHNUNG.[LfdRechnungsNr] = RG_NR.LfdRechnungsNr
If RECHNUNG.SAVE Then If RECHNUNG.SAVE Then
RG_NR.INCREASE_RGNR()
Else Else
RG_NR.DECREASE_RGNR() ' Bei Fehler --> LfdRgNr um eins mindern.
Return False Return False
End If End If

1103
SDL/Fakturierung/usrCntlFaktAbrechnung.Designer.vb generated
View File

File diff suppressed because it is too large Load Diff

10
SDL/SDL.vbproj
View File

@@ -651,6 +651,7 @@
<Compile Include="Speditionsbuch\rptSpeditionsberichtRg.vb"> <Compile Include="Speditionsbuch\rptSpeditionsberichtRg.vb">
<SubType>Component</SubType> <SubType>Component</SubType>
</Compile> </Compile>
<Compile Include="USTV\cUSTVStatus.vb" />
<Compile Include="USTV\frmMDM_USTVAntrag.Designer.vb"> <Compile Include="USTV\frmMDM_USTVAntrag.Designer.vb">
<DependentUpon>frmMDM_USTVAntrag.vb</DependentUpon> <DependentUpon>frmMDM_USTVAntrag.vb</DependentUpon>
</Compile> </Compile>
@@ -723,6 +724,12 @@
<Compile Include="Speditionsbuch\Nacherfassung\frmNacherfassungEndEmpfaenger.vb"> <Compile Include="Speditionsbuch\Nacherfassung\frmNacherfassungEndEmpfaenger.vb">
<SubType>Form</SubType> <SubType>Form</SubType>
</Compile> </Compile>
<Compile Include="USTV\ustCntlUSTV_AntragPosition.Designer.vb">
<DependentUpon>ustCntlUSTV_AntragPosition.vb</DependentUpon>
</Compile>
<Compile Include="USTV\ustCntlUSTV_AntragPosition.vb">
<SubType>UserControl</SubType>
</Compile>
<Compile Include="Web References\eu.europa.ec1\Reference.vb"> <Compile Include="Web References\eu.europa.ec1\Reference.vb">
<AutoGen>True</AutoGen> <AutoGen>True</AutoGen>
<DesignTime>True</DesignTime> <DesignTime>True</DesignTime>
@@ -2869,6 +2876,9 @@
<EmbeddedResource Include="Speditionsbuch\Nacherfassung\frmNacherfassungEndEmpfaenger.resx"> <EmbeddedResource Include="Speditionsbuch\Nacherfassung\frmNacherfassungEndEmpfaenger.resx">
<DependentUpon>frmNacherfassungEndEmpfaenger.vb</DependentUpon> <DependentUpon>frmNacherfassungEndEmpfaenger.vb</DependentUpon>
</EmbeddedResource> </EmbeddedResource>
<EmbeddedResource Include="USTV\ustCntlUSTV_AntragPosition.resx">
<DependentUpon>ustCntlUSTV_AntragPosition.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="ZOLLSYSTEM\DAKOSY\ATLAS\AES\usrCntlATLAS_AES.resx"> <EmbeddedResource Include="ZOLLSYSTEM\DAKOSY\ATLAS\AES\usrCntlATLAS_AES.resx">
<DependentUpon>usrCntlATLAS_AES.vb</DependentUpon> <DependentUpon>usrCntlATLAS_AES.vb</DependentUpon>
</EmbeddedResource> </EmbeddedResource>

12
SDL/USTV/cUSTVStatus.vb Normal file
View File

@@ -0,0 +1,12 @@
Public Class cUSTVStatus
Public Shared STAT_INBEARBEITUNG As Integer = 0
Public Shared STAT_UNVOLLSTAENDIG As Integer = 1
Public Shared STAT_EINGEREICHT As Integer = 2
Public Shared STAT_NACHFORDERUNG As Integer = 3
Public Shared STAT_ERSTATTET As Integer = 4
Public Shared STAT_TEILERSTATTET As Integer = 5
Public Shared STAT_ABGELEHNT As Integer = 6
Public Shared STAT_STORNO As Integer = 9
End Class

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

@@ -26,72 +26,124 @@ Partial Class frmMDM_USTVAntrag
Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMDM_USTVAntrag)) Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMDM_USTVAntrag))
Me.Panel3 = New System.Windows.Forms.Panel() Me.Panel3 = New System.Windows.Forms.Panel()
Me.cbxArchivierteEintracheNochmalsEinarbetien = New System.Windows.Forms.CheckBox()
Me.lblPLOSE_EintrageVerarbetiet = New System.Windows.Forms.Label()
Me.Button14 = New System.Windows.Forms.Button() Me.Button14 = New System.Windows.Forms.Button()
Me.cbxArchivierteEintracheNochmalsEinarbetien = New System.Windows.Forms.CheckBox()
Me.Button1 = New System.Windows.Forms.Button()
Me.lblPLOSE_EintrageVerarbetiet = New System.Windows.Forms.Label()
Me.Panel1 = New System.Windows.Forms.Panel() Me.Panel1 = New System.Windows.Forms.Panel()
Me.Label6 = New System.Windows.Forms.Label()
Me.Panel5 = New System.Windows.Forms.Panel()
Me.Label5 = New System.Windows.Forms.Label()
Me.cboStatus = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.txtBis = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtVon = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.rtbStatusText = New System.Windows.Forms.RichTextBox()
Me.lblLand = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.Label4 = New System.Windows.Forms.Label()
Me.Label3 = New System.Windows.Forms.Label()
Me.lblZeitraum = New System.Windows.Forms.Label()
Me.lblFirma = New System.Windows.Forms.Label() Me.lblFirma = New System.Windows.Forms.Label()
Me.Label1 = New System.Windows.Forms.Label() Me.Label1 = New System.Windows.Forms.Label()
Me.pnlFilter = New System.Windows.Forms.Panel() Me.pnlFilter = New System.Windows.Forms.Panel()
Me.dgvUSTVPositionen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) Me.dgvUSTVPositionen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.lblZeitraum = New System.Windows.Forms.Label() Me.pnl = New System.Windows.Forms.Panel()
Me.Label3 = New System.Windows.Forms.Label() Me.Panel2 = New System.Windows.Forms.Panel()
Me.Label4 = New System.Windows.Forms.Label() Me.Panel4 = New System.Windows.Forms.Panel()
Me.Label2 = New System.Windows.Forms.Label() Me.Button3 = New System.Windows.Forms.Button()
Me.lblLand = New System.Windows.Forms.Label() Me.Button2 = New System.Windows.Forms.Button()
Me.btnBearb = New System.Windows.Forms.Button()
Me.FlowLayoutPanel = New System.Windows.Forms.FlowLayoutPanel()
Me.btnEingereicht = New System.Windows.Forms.Button()
Me.btnUnvollst = New System.Windows.Forms.Button()
Me.btnNachforderung = New System.Windows.Forms.Button()
Me.btnErstettel = New System.Windows.Forms.Button()
Me.btnAbgelehnt = New System.Windows.Forms.Button()
Me.btnStorno = New System.Windows.Forms.Button()
Me.btnTeilerstattung = New System.Windows.Forms.Button()
Me.UstCntlUSTV_AntragPosition1 = New SDL.ustCntlUSTV_AntragPosition()
Me.Panel3.SuspendLayout() Me.Panel3.SuspendLayout()
Me.Panel1.SuspendLayout() Me.Panel1.SuspendLayout()
Me.Panel5.SuspendLayout()
Me.pnlFilter.SuspendLayout() Me.pnlFilter.SuspendLayout()
CType(Me.dgvUSTVPositionen, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.dgvUSTVPositionen, System.ComponentModel.ISupportInitialize).BeginInit()
Me.pnl.SuspendLayout()
Me.Panel2.SuspendLayout()
Me.Panel4.SuspendLayout()
Me.FlowLayoutPanel.SuspendLayout()
Me.SuspendLayout() Me.SuspendLayout()
' '
'Panel3 'Panel3
' '
Me.Panel3.Controls.Add(Me.cbxArchivierteEintracheNochmalsEinarbetien) Me.Panel3.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
Me.Panel3.Controls.Add(Me.lblPLOSE_EintrageVerarbetiet) Me.Panel3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Panel3.Controls.Add(Me.Button14) Me.Panel3.Controls.Add(Me.Button14)
Me.Panel3.Controls.Add(Me.cbxArchivierteEintracheNochmalsEinarbetien)
Me.Panel3.Controls.Add(Me.Button1)
Me.Panel3.Controls.Add(Me.lblPLOSE_EintrageVerarbetiet)
Me.Panel3.Dock = System.Windows.Forms.DockStyle.Bottom Me.Panel3.Dock = System.Windows.Forms.DockStyle.Bottom
Me.Panel3.Location = New System.Drawing.Point(0, 784) Me.Panel3.Location = New System.Drawing.Point(0, 713)
Me.Panel3.Name = "Panel3" Me.Panel3.Name = "Panel3"
Me.Panel3.Size = New System.Drawing.Size(1464, 76) Me.Panel3.Size = New System.Drawing.Size(1454, 100)
Me.Panel3.TabIndex = 2 Me.Panel3.TabIndex = 3
'
'cbxArchivierteEintracheNochmalsEinarbetien
'
Me.cbxArchivierteEintracheNochmalsEinarbetien.AutoSize = True
Me.cbxArchivierteEintracheNochmalsEinarbetien.Location = New System.Drawing.Point(186, 6)
Me.cbxArchivierteEintracheNochmalsEinarbetien.Name = "cbxArchivierteEintracheNochmalsEinarbetien"
Me.cbxArchivierteEintracheNochmalsEinarbetien.Size = New System.Drawing.Size(227, 17)
Me.cbxArchivierteEintracheNochmalsEinarbetien.TabIndex = 5
Me.cbxArchivierteEintracheNochmalsEinarbetien.Text = "Archivierte Einträche nochmals einarbeiten"
Me.cbxArchivierteEintracheNochmalsEinarbetien.UseVisualStyleBackColor = True
'
'lblPLOSE_EintrageVerarbetiet
'
Me.lblPLOSE_EintrageVerarbetiet.Location = New System.Drawing.Point(12, 48)
Me.lblPLOSE_EintrageVerarbetiet.Name = "lblPLOSE_EintrageVerarbetiet"
Me.lblPLOSE_EintrageVerarbetiet.Size = New System.Drawing.Size(168, 19)
Me.lblPLOSE_EintrageVerarbetiet.TabIndex = 4
Me.lblPLOSE_EintrageVerarbetiet.Text = "alle Einträge verarbeitet"
Me.lblPLOSE_EintrageVerarbetiet.TextAlign = System.Drawing.ContentAlignment.TopRight
' '
'Button14 'Button14
' '
Me.Button14.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.Button14.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button14.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!)
Me.Button14.ForeColor = System.Drawing.Color.Black Me.Button14.ForeColor = System.Drawing.Color.Black
Me.Button14.Image = Global.SDL.My.Resources.Resources.plus Me.Button14.Image = Global.SDL.My.Resources.Resources.plus
Me.Button14.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.Button14.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button14.Location = New System.Drawing.Point(12, 6) Me.Button14.Location = New System.Drawing.Point(12, 29)
Me.Button14.Name = "Button14" Me.Button14.Name = "Button14"
Me.Button14.Size = New System.Drawing.Size(168, 39) Me.Button14.Size = New System.Drawing.Size(234, 38)
Me.Button14.TabIndex = 3 Me.Button14.TabIndex = 1
Me.Button14.Text = "PLOSE übernehmen" Me.Button14.Text = "PLOSE übernehmen"
Me.Button14.TextAlign = System.Drawing.ContentAlignment.MiddleRight Me.Button14.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button14.UseVisualStyleBackColor = True Me.Button14.UseVisualStyleBackColor = True
' '
'cbxArchivierteEintracheNochmalsEinarbetien
'
Me.cbxArchivierteEintracheNochmalsEinarbetien.AutoSize = True
Me.cbxArchivierteEintracheNochmalsEinarbetien.ForeColor = System.Drawing.Color.Black
Me.cbxArchivierteEintracheNochmalsEinarbetien.Location = New System.Drawing.Point(12, 8)
Me.cbxArchivierteEintracheNochmalsEinarbetien.Name = "cbxArchivierteEintracheNochmalsEinarbetien"
Me.cbxArchivierteEintracheNochmalsEinarbetien.Size = New System.Drawing.Size(227, 17)
Me.cbxArchivierteEintracheNochmalsEinarbetien.TabIndex = 0
Me.cbxArchivierteEintracheNochmalsEinarbetien.Text = "Archivierte Einträche nochmals einarbeiten"
Me.cbxArchivierteEintracheNochmalsEinarbetien.UseVisualStyleBackColor = True
'
'Button1
'
Me.Button1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button1.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
Me.Button1.ForeColor = System.Drawing.Color.Black
Me.Button1.Location = New System.Drawing.Point(1252, 13)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(189, 70)
Me.Button1.TabIndex = 2
Me.Button1.Text = "OK"
Me.Button1.UseVisualStyleBackColor = True
'
'lblPLOSE_EintrageVerarbetiet
'
Me.lblPLOSE_EintrageVerarbetiet.ForeColor = System.Drawing.Color.Black
Me.lblPLOSE_EintrageVerarbetiet.Location = New System.Drawing.Point(78, 69)
Me.lblPLOSE_EintrageVerarbetiet.Name = "lblPLOSE_EintrageVerarbetiet"
Me.lblPLOSE_EintrageVerarbetiet.Size = New System.Drawing.Size(168, 19)
Me.lblPLOSE_EintrageVerarbetiet.TabIndex = 3
Me.lblPLOSE_EintrageVerarbetiet.Text = "alle Einträge verarbeitet"
Me.lblPLOSE_EintrageVerarbetiet.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'Panel1 'Panel1
' '
Me.Panel1.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) Me.Panel1.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Panel1.Controls.Add(Me.Label6)
Me.Panel1.Controls.Add(Me.Panel5)
Me.Panel1.Controls.Add(Me.txtBis)
Me.Panel1.Controls.Add(Me.txtVon)
Me.Panel1.Controls.Add(Me.rtbStatusText)
Me.Panel1.Controls.Add(Me.lblLand) Me.Panel1.Controls.Add(Me.lblLand)
Me.Panel1.Controls.Add(Me.Label2) Me.Panel1.Controls.Add(Me.Label2)
Me.Panel1.Controls.Add(Me.Label4) Me.Panel1.Controls.Add(Me.Label4)
@@ -102,30 +154,205 @@ Partial Class frmMDM_USTVAntrag
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top
Me.Panel1.Location = New System.Drawing.Point(0, 0) Me.Panel1.Location = New System.Drawing.Point(0, 0)
Me.Panel1.Name = "Panel1" Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(1464, 75) Me.Panel1.Size = New System.Drawing.Size(1454, 155)
Me.Panel1.TabIndex = 3 Me.Panel1.TabIndex = 0
'
'Label6
'
Me.Label6.AutoSize = True
Me.Label6.BackColor = System.Drawing.Color.Transparent
Me.Label6.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold)
Me.Label6.ForeColor = System.Drawing.Color.White
Me.Label6.Location = New System.Drawing.Point(519, 25)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(86, 17)
Me.Label6.TabIndex = 1
Me.Label6.Text = "Statusinfo:"
'
'Panel5
'
Me.Panel5.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Panel5.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
Me.Panel5.Controls.Add(Me.FlowLayoutPanel)
Me.Panel5.Controls.Add(Me.Label5)
Me.Panel5.Controls.Add(Me.cboStatus)
Me.Panel5.Location = New System.Drawing.Point(972, 0)
Me.Panel5.Name = "Panel5"
Me.Panel5.Size = New System.Drawing.Size(481, 105)
Me.Panel5.TabIndex = 9
'
'Label5
'
Me.Label5.AutoSize = True
Me.Label5.BackColor = System.Drawing.Color.Transparent
Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label5.ForeColor = System.Drawing.Color.Black
Me.Label5.Location = New System.Drawing.Point(3, 19)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(67, 20)
Me.Label5.TabIndex = 0
Me.Label5.Text = "Status:"
'
'cboStatus
'
Me.cboStatus._allowedValuesFreiText = Nothing
Me.cboStatus._allowFreiText = False
Me.cboStatus._value = ""
Me.cboStatus.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
Me.cboStatus.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!)
Me.cboStatus.FormattingEnabled = True
Me.cboStatus.Location = New System.Drawing.Point(76, 16)
Me.cboStatus.Name = "cboStatus"
Me.cboStatus.Size = New System.Drawing.Size(394, 28)
Me.cboStatus.TabIndex = 1
'
'txtBis
'
Me.txtBis._DateTimeOnly = False
Me.txtBis._numbersOnly = False
Me.txtBis._numbersOnlyKommastellen = ""
Me.txtBis._numbersOnlyTrennzeichen = True
Me.txtBis._Prozent = False
Me.txtBis._ShortDateNew = True
Me.txtBis._ShortDateOnly = False
Me.txtBis._TimeOnly = False
Me.txtBis._TimeOnly_Seconds = False
Me.txtBis._value = ""
Me.txtBis._Waehrung = False
Me.txtBis._WaehrungZeichen = True
Me.txtBis.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
Me.txtBis.ForeColor = System.Drawing.Color.Black
Me.txtBis.Location = New System.Drawing.Point(220, 67)
Me.txtBis.MaxLength = 10
Me.txtBis.MaxLineLength = -1
Me.txtBis.MaxLines_Warning = ""
Me.txtBis.MaxLines_Warning_Label = Nothing
Me.txtBis.Name = "txtBis"
Me.txtBis.Size = New System.Drawing.Size(100, 23)
Me.txtBis.TabIndex = 8
'
'txtVon
'
Me.txtVon._DateTimeOnly = False
Me.txtVon._numbersOnly = False
Me.txtVon._numbersOnlyKommastellen = ""
Me.txtVon._numbersOnlyTrennzeichen = True
Me.txtVon._Prozent = False
Me.txtVon._ShortDateNew = True
Me.txtVon._ShortDateOnly = False
Me.txtVon._TimeOnly = False
Me.txtVon._TimeOnly_Seconds = False
Me.txtVon._value = ""
Me.txtVon._Waehrung = False
Me.txtVon._WaehrungZeichen = True
Me.txtVon.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
Me.txtVon.ForeColor = System.Drawing.Color.Black
Me.txtVon.Location = New System.Drawing.Point(94, 67)
Me.txtVon.MaxLength = 10
Me.txtVon.MaxLineLength = -1
Me.txtVon.MaxLines_Warning = ""
Me.txtVon.MaxLines_Warning_Label = Nothing
Me.txtVon.Name = "txtVon"
Me.txtVon.Size = New System.Drawing.Size(100, 23)
Me.txtVon.TabIndex = 6
'
'rtbStatusText
'
Me.rtbStatusText.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.rtbStatusText.Location = New System.Drawing.Point(626, 24)
Me.rtbStatusText.Name = "rtbStatusText"
Me.rtbStatusText.Size = New System.Drawing.Size(340, 61)
Me.rtbStatusText.TabIndex = 4
Me.rtbStatusText.Text = ""
'
'lblLand
'
Me.lblLand.AutoSize = True
Me.lblLand.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.lblLand.Cursor = System.Windows.Forms.Cursors.Hand
Me.lblLand.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblLand.ForeColor = System.Drawing.Color.White
Me.lblLand.Location = New System.Drawing.Point(91, 108)
Me.lblLand.Name = "lblLand"
Me.lblLand.Size = New System.Drawing.Size(28, 17)
Me.lblLand.TabIndex = 11
Me.lblLand.Text = "AT"
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Label2.Cursor = System.Windows.Forms.Cursors.Hand
Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label2.ForeColor = System.Drawing.Color.White
Me.Label2.Location = New System.Drawing.Point(4, 108)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(44, 17)
Me.Label2.TabIndex = 10
Me.Label2.Text = "Land:"
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Label4.Cursor = System.Windows.Forms.Cursors.Hand
Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label4.ForeColor = System.Drawing.Color.White
Me.Label4.Location = New System.Drawing.Point(3, 47)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(47, 17)
Me.Label4.TabIndex = 2
Me.Label4.Text = "Firma:"
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Label3.Cursor = System.Windows.Forms.Cursors.Hand
Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label3.ForeColor = System.Drawing.Color.White
Me.Label3.Location = New System.Drawing.Point(3, 70)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(68, 17)
Me.Label3.TabIndex = 5
Me.Label3.Text = "Zeitraum:"
'
'lblZeitraum
'
Me.lblZeitraum.AutoSize = True
Me.lblZeitraum.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.lblZeitraum.Cursor = System.Windows.Forms.Cursors.Hand
Me.lblZeitraum.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblZeitraum.ForeColor = System.Drawing.Color.White
Me.lblZeitraum.Location = New System.Drawing.Point(200, 69)
Me.lblZeitraum.Name = "lblZeitraum"
Me.lblZeitraum.Size = New System.Drawing.Size(14, 17)
Me.lblZeitraum.TabIndex = 7
Me.lblZeitraum.Text = "-"
' '
'lblFirma 'lblFirma
' '
Me.lblFirma.AutoSize = True Me.lblFirma.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.lblFirma.Cursor = System.Windows.Forms.Cursors.Hand Me.lblFirma.Cursor = System.Windows.Forms.Cursors.Hand
Me.lblFirma.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblFirma.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblFirma.Location = New System.Drawing.Point(257, 20) Me.lblFirma.ForeColor = System.Drawing.Color.White
Me.lblFirma.Location = New System.Drawing.Point(91, 47)
Me.lblFirma.Name = "lblFirma" Me.lblFirma.Name = "lblFirma"
Me.lblFirma.Size = New System.Drawing.Size(161, 17) Me.lblFirma.Size = New System.Drawing.Size(388, 17)
Me.lblFirma.TabIndex = 5 Me.lblFirma.TabIndex = 3
Me.lblFirma.Text = "VERAG Spedition AG" Me.lblFirma.Text = "VERAG Spedition AG"
' '
'Label1 'Label1
' '
Me.Label1.AutoSize = True Me.Label1.AutoSize = True
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label1.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Label1.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label1.ForeColor = System.Drawing.Color.White
Me.Label1.Location = New System.Drawing.Point(3, 6) Me.Label1.Location = New System.Drawing.Point(3, 6)
Me.Label1.Name = "Label1" Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(56, 20) Me.Label1.Size = New System.Drawing.Size(116, 20)
Me.Label1.TabIndex = 0 Me.Label1.TabIndex = 0
Me.Label1.Text = "USTV" Me.Label1.Text = "USTV-Antrag"
' '
'pnlFilter 'pnlFilter
' '
@@ -133,10 +360,10 @@ Partial Class frmMDM_USTVAntrag
Me.pnlFilter.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle Me.pnlFilter.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.pnlFilter.Controls.Add(Me.dgvUSTVPositionen) Me.pnlFilter.Controls.Add(Me.dgvUSTVPositionen)
Me.pnlFilter.Dock = System.Windows.Forms.DockStyle.Fill Me.pnlFilter.Dock = System.Windows.Forms.DockStyle.Fill
Me.pnlFilter.Location = New System.Drawing.Point(0, 75) Me.pnlFilter.Location = New System.Drawing.Point(0, 155)
Me.pnlFilter.Name = "pnlFilter" Me.pnlFilter.Name = "pnlFilter"
Me.pnlFilter.Size = New System.Drawing.Size(1464, 709) Me.pnlFilter.Size = New System.Drawing.Size(1454, 289)
Me.pnlFilter.TabIndex = 6 Me.pnlFilter.TabIndex = 1
' '
'dgvUSTVPositionen 'dgvUSTVPositionen
' '
@@ -145,80 +372,226 @@ Partial Class frmMDM_USTVAntrag
Me.dgvUSTVPositionen.AllowUserToDeleteRows = False Me.dgvUSTVPositionen.AllowUserToDeleteRows = False
DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.dgvUSTVPositionen.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1 Me.dgvUSTVPositionen.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
Me.dgvUSTVPositionen.BackgroundColor = System.Drawing.Color.White
Me.dgvUSTVPositionen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvUSTVPositionen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvUSTVPositionen.Dock = System.Windows.Forms.DockStyle.Fill Me.dgvUSTVPositionen.Dock = System.Windows.Forms.DockStyle.Fill
Me.dgvUSTVPositionen.Location = New System.Drawing.Point(0, 0) Me.dgvUSTVPositionen.Location = New System.Drawing.Point(0, 0)
Me.dgvUSTVPositionen.MultiSelect = False Me.dgvUSTVPositionen.MultiSelect = False
Me.dgvUSTVPositionen.Name = "dgvUSTVPositionen" Me.dgvUSTVPositionen.Name = "dgvUSTVPositionen"
Me.dgvUSTVPositionen.ReadOnly = True Me.dgvUSTVPositionen.ReadOnly = True
Me.dgvUSTVPositionen.RowHeadersVisible = False
Me.dgvUSTVPositionen.RowHeadersWidth = 62
Me.dgvUSTVPositionen.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect Me.dgvUSTVPositionen.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.dgvUSTVPositionen.Size = New System.Drawing.Size(1462, 707) Me.dgvUSTVPositionen.Size = New System.Drawing.Size(1452, 287)
Me.dgvUSTVPositionen.TabIndex = 4 Me.dgvUSTVPositionen.TabIndex = 0
' '
'lblZeitraum 'pnl
' '
Me.lblZeitraum.AutoSize = True Me.pnl.Controls.Add(Me.Panel2)
Me.lblZeitraum.Cursor = System.Windows.Forms.Cursors.Hand Me.pnl.Controls.Add(Me.Panel4)
Me.lblZeitraum.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.pnl.Dock = System.Windows.Forms.DockStyle.Bottom
Me.lblZeitraum.Location = New System.Drawing.Point(257, 43) Me.pnl.Location = New System.Drawing.Point(0, 444)
Me.lblZeitraum.Name = "lblZeitraum" Me.pnl.Name = "pnl"
Me.lblZeitraum.Size = New System.Drawing.Size(188, 17) Me.pnl.Size = New System.Drawing.Size(1454, 269)
Me.lblZeitraum.TabIndex = 6 Me.pnl.TabIndex = 2
Me.lblZeitraum.Text = "01.01.2000 - 31.12.2000"
' '
'Label3 'Panel2
' '
Me.Label3.AutoSize = True Me.Panel2.BackColor = System.Drawing.Color.White
Me.Label3.Cursor = System.Windows.Forms.Cursors.Hand Me.Panel2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Panel2.Controls.Add(Me.UstCntlUSTV_AntragPosition1)
Me.Label3.Location = New System.Drawing.Point(183, 43) Me.Panel2.Dock = System.Windows.Forms.DockStyle.Fill
Me.Label3.Name = "Label3" Me.Panel2.Location = New System.Drawing.Point(154, 0)
Me.Label3.Size = New System.Drawing.Size(68, 17) Me.Panel2.Name = "Panel2"
Me.Label3.TabIndex = 7 Me.Panel2.Size = New System.Drawing.Size(1300, 269)
Me.Label3.Text = "Zeitraum:" Me.Panel2.TabIndex = 1
' '
'Label4 'Panel4
' '
Me.Label4.AutoSize = True Me.Panel4.BackColor = System.Drawing.Color.WhiteSmoke
Me.Label4.Cursor = System.Windows.Forms.Cursors.Hand Me.Panel4.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Panel4.Controls.Add(Me.Button3)
Me.Label4.Location = New System.Drawing.Point(183, 20) Me.Panel4.Controls.Add(Me.Button2)
Me.Label4.Name = "Label4" Me.Panel4.Dock = System.Windows.Forms.DockStyle.Left
Me.Label4.Size = New System.Drawing.Size(31, 11) Me.Panel4.Location = New System.Drawing.Point(0, 0)
Me.Label4.TabIndex = 8 Me.Panel4.Name = "Panel4"
Me.Label4.Text = "Firma:" Me.Panel4.Size = New System.Drawing.Size(154, 269)
Me.Panel4.TabIndex = 0
' '
'Label2 'Button3
' '
Me.Label2.AutoSize = True Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Label2.Cursor = System.Windows.Forms.Cursors.Hand Me.Button3.ForeColor = System.Drawing.Color.Black
Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Button3.Image = Global.SDL.My.Resources.Resources.del
Me.Label2.Location = New System.Drawing.Point(4, 43) Me.Button3.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Label2.Name = "Label2" Me.Button3.Location = New System.Drawing.Point(6, 50)
Me.Label2.Size = New System.Drawing.Size(29, 11) Me.Button3.Name = "Button3"
Me.Label2.TabIndex = 9 Me.Button3.Size = New System.Drawing.Size(135, 39)
Me.Label2.Text = "Land:" Me.Button3.TabIndex = 1
Me.Button3.Text = "Eintrag löschen"
Me.Button3.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button3.UseVisualStyleBackColor = True
' '
'lblLand 'Button2
' '
Me.lblLand.AutoSize = True Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.lblLand.Cursor = System.Windows.Forms.Cursors.Hand Me.Button2.ForeColor = System.Drawing.Color.Black
Me.lblLand.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Button2.Image = Global.SDL.My.Resources.Resources.plus
Me.lblLand.Location = New System.Drawing.Point(78, 43) Me.Button2.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.lblLand.Name = "lblLand" Me.Button2.Location = New System.Drawing.Point(6, 5)
Me.lblLand.Size = New System.Drawing.Size(19, 11) Me.Button2.Name = "Button2"
Me.lblLand.TabIndex = 10 Me.Button2.Size = New System.Drawing.Size(135, 39)
Me.lblLand.Text = "AT" Me.Button2.TabIndex = 0
Me.Button2.Text = "Neuer Eintrag"
Me.Button2.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button2.UseVisualStyleBackColor = True
'
'btnBearb
'
Me.btnBearb.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnBearb.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
Me.btnBearb.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnBearb.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.btnBearb.ForeColor = System.Drawing.Color.Black
Me.btnBearb.Location = New System.Drawing.Point(3, 3)
Me.btnBearb.Name = "btnBearb"
Me.btnBearb.Size = New System.Drawing.Size(86, 36)
Me.btnBearb.TabIndex = 0
Me.btnBearb.Text = "In Bearbeitung"
Me.btnBearb.UseVisualStyleBackColor = False
'
'FlowLayoutPanel
'
Me.FlowLayoutPanel.Controls.Add(Me.btnBearb)
Me.FlowLayoutPanel.Controls.Add(Me.btnUnvollst)
Me.FlowLayoutPanel.Controls.Add(Me.btnEingereicht)
Me.FlowLayoutPanel.Controls.Add(Me.btnAbgelehnt)
Me.FlowLayoutPanel.Controls.Add(Me.btnNachforderung)
Me.FlowLayoutPanel.Controls.Add(Me.btnErstettel)
Me.FlowLayoutPanel.Controls.Add(Me.btnTeilerstattung)
Me.FlowLayoutPanel.Controls.Add(Me.btnStorno)
Me.FlowLayoutPanel.Location = New System.Drawing.Point(3, 50)
Me.FlowLayoutPanel.Name = "FlowLayoutPanel"
Me.FlowLayoutPanel.Size = New System.Drawing.Size(479, 52)
Me.FlowLayoutPanel.TabIndex = 2
'
'btnEingereicht
'
Me.btnEingereicht.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnEingereicht.BackColor = System.Drawing.Color.SteelBlue
Me.btnEingereicht.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnEingereicht.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.btnEingereicht.ForeColor = System.Drawing.Color.White
Me.btnEingereicht.Location = New System.Drawing.Point(191, 3)
Me.btnEingereicht.Name = "btnEingereicht"
Me.btnEingereicht.Size = New System.Drawing.Size(87, 36)
Me.btnEingereicht.TabIndex = 2
Me.btnEingereicht.Text = "Eingereicht"
Me.btnEingereicht.UseVisualStyleBackColor = False
'
'btnUnvollst
'
Me.btnUnvollst.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnUnvollst.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(128, Byte), Integer))
Me.btnUnvollst.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnUnvollst.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.btnUnvollst.ForeColor = System.Drawing.Color.Black
Me.btnUnvollst.Location = New System.Drawing.Point(95, 3)
Me.btnUnvollst.Name = "btnUnvollst"
Me.btnUnvollst.Size = New System.Drawing.Size(90, 36)
Me.btnUnvollst.TabIndex = 1
Me.btnUnvollst.Text = "Unvollständig"
Me.btnUnvollst.UseVisualStyleBackColor = False
'
'btnNachforderung
'
Me.btnNachforderung.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnNachforderung.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(128, Byte), Integer))
Me.btnNachforderung.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnNachforderung.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.btnNachforderung.ForeColor = System.Drawing.Color.Black
Me.btnNachforderung.Location = New System.Drawing.Point(370, 3)
Me.btnNachforderung.Name = "btnNachforderung"
Me.btnNachforderung.Size = New System.Drawing.Size(98, 36)
Me.btnNachforderung.TabIndex = 4
Me.btnNachforderung.Text = "Nachforderung/" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Berichtigung"
Me.btnNachforderung.UseVisualStyleBackColor = False
'
'btnErstettel
'
Me.btnErstettel.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnErstettel.BackColor = System.Drawing.Color.Green
Me.btnErstettel.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnErstettel.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.btnErstettel.ForeColor = System.Drawing.Color.White
Me.btnErstettel.Location = New System.Drawing.Point(3, 45)
Me.btnErstettel.Name = "btnErstettel"
Me.btnErstettel.Size = New System.Drawing.Size(86, 36)
Me.btnErstettel.TabIndex = 5
Me.btnErstettel.Text = "Erstattet"
Me.btnErstettel.UseVisualStyleBackColor = False
'
'btnAbgelehnt
'
Me.btnAbgelehnt.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnAbgelehnt.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer))
Me.btnAbgelehnt.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnAbgelehnt.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.btnAbgelehnt.ForeColor = System.Drawing.Color.White
Me.btnAbgelehnt.Location = New System.Drawing.Point(284, 3)
Me.btnAbgelehnt.Name = "btnAbgelehnt"
Me.btnAbgelehnt.Size = New System.Drawing.Size(80, 36)
Me.btnAbgelehnt.TabIndex = 3
Me.btnAbgelehnt.Text = "Abgelehnt"
Me.btnAbgelehnt.UseVisualStyleBackColor = False
'
'btnStorno
'
Me.btnStorno.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnStorno.BackColor = System.Drawing.Color.Red
Me.btnStorno.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnStorno.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.btnStorno.ForeColor = System.Drawing.Color.White
Me.btnStorno.Location = New System.Drawing.Point(188, 45)
Me.btnStorno.Name = "btnStorno"
Me.btnStorno.Size = New System.Drawing.Size(52, 36)
Me.btnStorno.TabIndex = 7
Me.btnStorno.Text = "Storno"
Me.btnStorno.UseVisualStyleBackColor = False
'
'btnTeilerstattung
'
Me.btnTeilerstattung.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnTeilerstattung.BackColor = System.Drawing.Color.Green
Me.btnTeilerstattung.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnTeilerstattung.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.btnTeilerstattung.ForeColor = System.Drawing.Color.White
Me.btnTeilerstattung.Location = New System.Drawing.Point(95, 45)
Me.btnTeilerstattung.Name = "btnTeilerstattung"
Me.btnTeilerstattung.Size = New System.Drawing.Size(87, 36)
Me.btnTeilerstattung.TabIndex = 6
Me.btnTeilerstattung.Text = "Teilerstattung"
Me.btnTeilerstattung.UseVisualStyleBackColor = False
'
'UstCntlUSTV_AntragPosition1
'
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 'frmMDM_USTVAntrag
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(1464, 860) Me.ClientSize = New System.Drawing.Size(1454, 813)
Me.Controls.Add(Me.pnlFilter) Me.Controls.Add(Me.pnlFilter)
Me.Controls.Add(Me.Panel1) Me.Controls.Add(Me.pnl)
Me.Controls.Add(Me.Panel3) Me.Controls.Add(Me.Panel3)
Me.Controls.Add(Me.Panel1)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.KeyPreview = True
Me.Name = "frmMDM_USTVAntrag" Me.Name = "frmMDM_USTVAntrag"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "USTV Antrag" Me.Text = "USTV Antrag"
@@ -226,8 +599,14 @@ Partial Class frmMDM_USTVAntrag
Me.Panel3.PerformLayout() Me.Panel3.PerformLayout()
Me.Panel1.ResumeLayout(False) Me.Panel1.ResumeLayout(False)
Me.Panel1.PerformLayout() Me.Panel1.PerformLayout()
Me.Panel5.ResumeLayout(False)
Me.Panel5.PerformLayout()
Me.pnlFilter.ResumeLayout(False) Me.pnlFilter.ResumeLayout(False)
CType(Me.dgvUSTVPositionen, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.dgvUSTVPositionen, System.ComponentModel.ISupportInitialize).EndInit()
Me.pnl.ResumeLayout(False)
Me.Panel2.ResumeLayout(False)
Me.Panel4.ResumeLayout(False)
Me.FlowLayoutPanel.ResumeLayout(False)
Me.ResumeLayout(False) Me.ResumeLayout(False)
End Sub End Sub
@@ -246,4 +625,27 @@ Partial Class frmMDM_USTVAntrag
Friend WithEvents lblZeitraum As Label Friend WithEvents lblZeitraum As Label
Friend WithEvents lblLand As Label Friend WithEvents lblLand As Label
Friend WithEvents Label2 As Label Friend WithEvents Label2 As Label
Friend WithEvents cboStatus As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents Label5 As Label
Friend WithEvents rtbStatusText As RichTextBox
Friend WithEvents Button1 As Button
Friend WithEvents pnl As Panel
Friend WithEvents Panel2 As Panel
Friend WithEvents Button2 As Button
Friend WithEvents Panel4 As Panel
Friend WithEvents Button3 As Button
Friend WithEvents txtBis As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents txtVon As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents UstCntlUSTV_AntragPosition1 As ustCntlUSTV_AntragPosition
Friend WithEvents Panel5 As Panel
Friend WithEvents Label6 As Label
Friend WithEvents FlowLayoutPanel As FlowLayoutPanel
Friend WithEvents btnBearb As Button
Friend WithEvents btnEingereicht As Button
Friend WithEvents btnUnvollst As Button
Friend WithEvents btnNachforderung As Button
Friend WithEvents btnErstettel As Button
Friend WithEvents btnAbgelehnt As Button
Friend WithEvents btnStorno As Button
Friend WithEvents btnTeilerstattung As Button
End Class End Class

216
SDL/USTV/frmMDM_USTVAntrag.vb
View File

@@ -1,6 +1,7 @@
Public Class frmMDM_USTVAntrag Public Class frmMDM_USTVAntrag
Dim UStVAn_ID As Integer Dim UStVAn_ID As Integer
Dim USTV_ANTRAG As VERAG_PROG_ALLGEMEIN.cUSTVAntrag = Nothing
Dim Antrag_LandKz As String = "" Dim Antrag_LandKz As String = ""
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Sub New(UStVAn_ID) Sub New(UStVAn_ID)
@@ -81,17 +82,11 @@
End With End With
Dim USTV_ANTRAG As New VERAG_PROG_ALLGEMEIN.cUSTVAntrag(UStVAn_ID)
Antrag_LandKz = SQL.DLookup("LandKz", "[Länderverzeichnis für die Außenhandelsstatistik]", "Landnr='" & USTV_ANTRAG.UStVAn_LandNr & "'", "FMZOLL") Antrag_LandKz = SQL.DLookup("LandKz", "[Länderverzeichnis für die Außenhandelsstatistik]", "Landnr='" & USTV_ANTRAG.UStVAn_LandNr & "'", "FMZOLL")
Dim GET_Antraege = MDM_Worker.cPLOSE.GET_Antraege(USTV_ANTRAG.UStVAn_ReDatVon, USTV_ANTRAG.UStVAn_ReDatBis, USTV_ANTRAG.UStVAn_KuNr, Antrag_LandKz, False) Dim GET_Antraege = MDM_Worker.cPLOSE.GET_Antraege(USTV_ANTRAG.UStVAn_ReDatVon, USTV_ANTRAG.UStVAn_ReDatBis, USTV_ANTRAG.UStVAn_KuNr, Antrag_LandKz, False)
lblFirma.Text = USTV_ANTRAG.UStVAn_Name
lblLand.Text = Antrag_LandKz
lblZeitraum.Text = CDate(USTV_ANTRAG.UStVAn_ReDatVon).ToString("dd.MM.yyyy") & " - " & CDate(USTV_ANTRAG.UStVAn_ReDatBis).ToString("dd.MM.yyyy")
If GET_Antraege IsNot Nothing AndAlso GET_Antraege.Count > 0 Then If GET_Antraege IsNot Nothing AndAlso GET_Antraege.Count > 0 Then
lblPLOSE_EintrageVerarbetiet.Text = "aussehende Einträge: " & GET_Antraege.Count lblPLOSE_EintrageVerarbetiet.Text = "aussehende Einträge: " & GET_Antraege.Count
Else Else
@@ -101,8 +96,62 @@
End Sub End Sub
Sub setValue(USTV_ANTRAG As VERAG_PROG_ALLGEMEIN.cUSTVAntrag)
lblFirma.Text = USTV_ANTRAG.UStVAn_Name
lblLand.Text = Antrag_LandKz
txtVon._value = CDate(USTV_ANTRAG.UStVAn_ReDatVon)
txtBis._value = CDate(USTV_ANTRAG.UStVAn_ReDatBis)
'lblZeitraum.Text = CDate(USTV_ANTRAG.UStVAn_ReDatVon).ToString("dd.MM.yyyy") & " - " & CDate(USTV_ANTRAG.UStVAn_ReDatBis).ToString("dd.MM.yyyy")
cboStatus.changeItem(If(USTV_ANTRAG.UStVAn_Status, ""))
rtbStatusText.Text = If(USTV_ANTRAG.UStVAn_StatusText, "")
End Sub
Sub getValue(ByRef USTV_ANTRAG As VERAG_PROG_ALLGEMEIN.cUSTVAntrag)
If Me_Validate() Then
'lblFirma.Text = USTV_ANTRAG.UStVAn_Name
'lblLand.Text = Antrag_LandKz
If IsDate(txtVon._value) Then USTV_ANTRAG.UStVAn_ReDatVon = CDate(txtVon._value)
If IsDate(txtBis._value) Then USTV_ANTRAG.UStVAn_ReDatBis = CDate(txtBis._value)
'lblZeitraum.Text = CDate(USTV_ANTRAG.UStVAn_ReDatVon).ToString("dd.MM.yyyy") & " - " & CDate(USTV_ANTRAG.UStVAn_ReDatBis).ToString("dd.MM.yyyy")
cboStatus.changeItem(If(USTV_ANTRAG.UStVAn_Status, ""))
rtbStatusText.Text = If(USTV_ANTRAG.UStVAn_StatusText, "")
End If
End Sub
Function Me_Validate() As Boolean
If IsDate(txtVon._value) Then MsgBox("Datumsformat: Von") : Return False
If IsDate(txtBis._value) Then MsgBox("Datumsformat: Bis") : Return False
Return True
End Function
Private Sub usrCntlVERAGCard_Load(sender As Object, e As EventArgs) Handles MyBase.Load Private Sub usrCntlVERAGCard_Load(sender As Object, e As EventArgs) Handles MyBase.Load
cboStatus.Items.Clear()
cboStatus.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("-", ""))
cboStatus.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("In Bearbeitung", cUSTVStatus.STAT_INBEARBEITUNG))
cboStatus.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Unvollständig", cUSTVStatus.STAT_UNVOLLSTAENDIG))
cboStatus.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Eingereicht", cUSTVStatus.STAT_EINGEREICHT))
cboStatus.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Nachforderung/Berichtigung", cUSTVStatus.STAT_NACHFORDERUNG))
cboStatus.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Abgeschlossen/Erstattet", cUSTVStatus.STAT_ERSTATTET))
cboStatus.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Abgelehnt", cUSTVStatus.STAT_ABGELEHNT))
cboStatus.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Storno", cUSTVStatus.STAT_STORNO))
cboStatus.changeItem(cUSTVStatus.STAT_INBEARBEITUNG)
lblPLOSE_EintrageVerarbetiet.Text = "" lblPLOSE_EintrageVerarbetiet.Text = ""
If UStVAn_ID > 0 Then
USTV_ANTRAG = New VERAG_PROG_ALLGEMEIN.cUSTVAntrag(UStVAn_ID)
setValue(USTV_ANTRAG)
End If
init() init()
End Sub End Sub
@@ -172,6 +221,161 @@
End Try End Try
End Function End Function
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
getValue(USTV_ANTRAG)
If USTV_ANTRAG.SAVE Then
Me.Close()
End If
End Sub
Sub initPosition(UStVPo_ID)
If UStVPo_ID > 0 Then
Dim ANTR_POS As New VERAG_PROG_ALLGEMEIN.cUStVPositionen(USTV_ANTRAG.UStVAn_ID, UStVPo_ID)
UstCntlUSTV_AntragPosition1.Enabled = True
UstCntlUSTV_AntragPosition1.setValues(ANTR_POS)
Else
UstCntlUSTV_AntragPosition1.reset()
UstCntlUSTV_AntragPosition1.Enabled = False
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 UstCntlUSTV_AntragPosition1_EV_NEXT() Handles UstCntlUSTV_AntragPosition1.EV_NEXT
If dgvUSTVPositionen.SelectedRows.Count > 0 Then
If dgvUSTVPositionen.RowCount > dgvUSTVPositionen.SelectedRows(0).Index + 1 Then
UstCntlUSTV_AntragPosition1.Enabled = True
Dim selIndex = dgvUSTVPositionen.SelectedRows(0).Index + 1
dgvUSTVPositionen.ClearSelection()
dgvUSTVPositionen.Rows(selIndex).Selected = True
dgvUSTVPositionen.CurrentCell = dgvUSTVPositionen.SelectedRows(0).Cells("UStVPo_ID")
End If
End If
End Sub
Private Sub UstCntlUSTV_AntragPosition1_EV_PREV() Handles UstCntlUSTV_AntragPosition1.EV_PREV
If dgvUSTVPositionen.SelectedRows.Count > 0 Then
If dgvUSTVPositionen.SelectedRows(0).Index > 0 Then
UstCntlUSTV_AntragPosition1.Enabled = True
Dim selIndex = dgvUSTVPositionen.SelectedRows(0).Index - 1
dgvUSTVPositionen.ClearSelection()
dgvUSTVPositionen.Rows(selIndex).Selected = True
dgvUSTVPositionen.CurrentCell = dgvUSTVPositionen.SelectedRows(0).Cells("UStVPo_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()
End If
End Sub
Private Sub frmMDM_USTVAntrag_Shown(sender As Object, e As EventArgs) Handles Me.Shown
Me.Top = 0
Me.Height = Screen.FromRectangle(Me.Bounds).WorkingArea.Size.Height
End Sub
Private Sub cboStatus_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboStatus.SelectedIndexChanged
For Each b In FlowLayoutPanel.Controls
b.visible = False
Next
Select Case cboStatus._value
Case cUSTVStatus.STAT_INBEARBEITUNG
btnEingereicht.Visible = True
btnStorno.Visible = True
btnUnvollst.Visible = True
Case cUSTVStatus.STAT_UNVOLLSTAENDIG
btnBearb.Visible = True
btnEingereicht.Visible = True
btnStorno.Visible = True
Case cUSTVStatus.STAT_EINGEREICHT
'btnBearb.Visible = True
btnStorno.Visible = True
btnTeilerstattung.Visible = True
btnErstettel.Visible = True
btnAbgelehnt.Visible = True
btnNachforderung.Visible = True
Case cUSTVStatus.STAT_ABGELEHNT
btnBearb.Visible = True
btnEingereicht.Visible = True
btnUnvollst.Visible = True
btnStorno.Visible = True
Case cUSTVStatus.STAT_NACHFORDERUNG
btnBearb.Visible = True
btnEingereicht.Visible = True
'btnUnvollst.Visible = True
btnStorno.Visible = True
Case cUSTVStatus.STAT_ERSTATTET
' btnStorno.Visible = True
Case cUSTVStatus.STAT_TEILERSTATTET
btnErstettel.Visible = True
' btnStorno.Visible = True
End Select
End Sub
Private Sub btnBearb_Click(sender As Object, e As EventArgs) Handles btnBearb.Click
cboStatus.changeItem(cUSTVStatus.STAT_INBEARBEITUNG)
End Sub
Private Sub btnTeilerstattung_Click(sender As Object, e As EventArgs) Handles btnTeilerstattung.Click
cboStatus.changeItem(cUSTVStatus.STAT_TEILERSTATTET)
End Sub
Private Sub btnUnvollst_Click(sender As Object, e As EventArgs) Handles btnUnvollst.Click
cboStatus.changeItem(cUSTVStatus.STAT_UNVOLLSTAENDIG)
End Sub
Private Sub btnEingereicht_Click(sender As Object, e As EventArgs) Handles btnEingereicht.Click
cboStatus.changeItem(cUSTVStatus.STAT_EINGEREICHT)
End Sub
Private Sub btnAbgelehnt_Click(sender As Object, e As EventArgs) Handles btnAbgelehnt.Click
cboStatus.changeItem(cUSTVStatus.STAT_ABGELEHNT)
End Sub
Private Sub btnNachforderung_Click(sender As Object, e As EventArgs) Handles btnNachforderung.Click
cboStatus.changeItem(cUSTVStatus.STAT_NACHFORDERUNG)
End Sub
Private Sub btnErstettel_Click(sender As Object, e As EventArgs) Handles btnErstettel.Click
cboStatus.changeItem(cUSTVStatus.STAT_ERSTATTET)
End Sub
Private Sub btnStorno_Click(sender As Object, e As EventArgs) Handles btnStorno.Click
cboStatus.changeItem(cUSTVStatus.STAT_STORNO)
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
UstCntlUSTV_AntragPosition1.reset()
UstCntlUSTV_AntragPosition1.UStV_POS = Nothing
UstCntlUSTV_AntragPosition1.Enabled = True
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
If vbYes = MsgBox("Möchten Sie den Eintrag wirklich löschen?", vbYesNoCancel) Then
UstCntlUSTV_AntragPosition1.UStV_POS.delete()
UstCntlUSTV_AntragPosition1.Enabled = False
End If
End Sub
' Private Sub cmdITMautÜbernehmen_Click() ' Private Sub cmdITMautÜbernehmen_Click()
' Dim wrk As DAO.Workspace ' Dim wrk As DAO.Workspace

590
SDL/USTV/ustCntlUSTV_AntragPosition.Designer.vb generated Normal file
View File

@@ -0,0 +1,590 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class ustCntlUSTV_AntragPosition
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.components = New System.ComponentModel.Container()
Me.scanLieferschein = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan()
Me.TabPage2 = New System.Windows.Forms.TabPage()
Me.scanSonstiges = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList()
Me.tbcntr = New System.Windows.Forms.TabControl()
Me.cbxAPI = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
Me.Label8 = New System.Windows.Forms.Label()
Me.txtRgDatum = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label7 = New System.Windows.Forms.Label()
Me.Panel2 = New System.Windows.Forms.Panel()
Me.txtRgNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
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.txtLeistender = New VERAG_PROG_ALLGEMEIN.MyTextBox()
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.txtUSTBetrag = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label11 = New System.Windows.Forms.Label()
Me.txtUmrechnungskurs = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label12 = New System.Windows.Forms.Label()
Me.txtUSTBetragEUR = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label13 = New System.Windows.Forms.Label()
Me.cboLeistungsbezeichnung = New VERAG_PROG_ALLGEMEIN.MyComboBox()
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.cboSchnittstellennr = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.pnl = New System.Windows.Forms.Panel()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.TabPage2.SuspendLayout()
Me.tbcntr.SuspendLayout()
Me.Panel2.SuspendLayout()
Me.pnl.SuspendLayout()
Me.Panel1.SuspendLayout()
Me.SuspendLayout()
'
'scanLieferschein
'
Me.scanLieferschein._ARCHIV = True
Me.scanLieferschein._DATENSERVER_KATEGORIE = "DOKUMENTE"
Me.scanLieferschein._DATENSERVER_ORDNER = "MDM"
Me.scanLieferschein._DATENSERVER_UOrdner1 = Nothing
Me.scanLieferschein._DATENSERVER_UOrdner2 = Nothing
Me.scanLieferschein._DATENSERVER_UOrdner3 = Nothing
Me.scanLieferschein._MULTI_FILES = True
Me.scanLieferschein._TEXT_PDF = "Lieferschein"
Me.scanLieferschein.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
Me.scanLieferschein.BackColor = System.Drawing.Color.White
Me.scanLieferschein.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.scanLieferschein.Cursor = System.Windows.Forms.Cursors.Default
Me.scanLieferschein.Location = New System.Drawing.Point(3, 198)
Me.scanLieferschein.Name = "scanLieferschein"
Me.scanLieferschein.Size = New System.Drawing.Size(94, 24)
Me.scanLieferschein.TabIndex = 2
Me.scanLieferschein.Visible = False
'
'TabPage2
'
Me.TabPage2.Controls.Add(Me.scanSonstiges)
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(270, 213)
Me.TabPage2.TabIndex = 1
Me.TabPage2.Text = "Dokumente"
Me.TabPage2.UseVisualStyleBackColor = True
'
'scanSonstiges
'
Me.scanSonstiges._DATENSERVER_KATEGORIE = "DOKUMENTE"
Me.scanSonstiges._DATENSERVER_ORDNER = "MDM"
Me.scanSonstiges._DATENSERVER_UOrdner1 = ""
Me.scanSonstiges._DATENSERVER_UOrdner2 = ""
Me.scanSonstiges._DATENSERVER_UOrdner3 = ""
Me.scanSonstiges._OPEN_ORIGINAL = False
Me.scanSonstiges._TYPE = "PDF"
Me.scanSonstiges.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
Me.scanSonstiges.BackColor = System.Drawing.Color.White
Me.scanSonstiges.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.scanSonstiges.Cursor = System.Windows.Forms.Cursors.Hand
Me.scanSonstiges.Dock = System.Windows.Forms.DockStyle.Fill
Me.scanSonstiges.Location = New System.Drawing.Point(3, 3)
Me.scanSonstiges.Margin = New System.Windows.Forms.Padding(0)
Me.scanSonstiges.Name = "scanSonstiges"
Me.scanSonstiges.Size = New System.Drawing.Size(264, 207)
Me.scanSonstiges.TabIndex = 0
'
'tbcntr
'
Me.tbcntr.Controls.Add(Me.TabPage2)
Me.tbcntr.Dock = System.Windows.Forms.DockStyle.Right
Me.tbcntr.Location = New System.Drawing.Point(1022, 30)
Me.tbcntr.Name = "tbcntr"
Me.tbcntr.SelectedIndex = 0
Me.tbcntr.Size = New System.Drawing.Size(278, 239)
Me.tbcntr.TabIndex = 3
'
'cbxAPI
'
Me.cbxAPI._date = Nothing
Me.cbxAPI._showdate = True
Me.cbxAPI._value = ""
Me.cbxAPI.AutoSize = True
Me.cbxAPI.Enabled = False
Me.cbxAPI.Location = New System.Drawing.Point(634, 132)
Me.cbxAPI.Name = "cbxAPI"
Me.cbxAPI.Size = New System.Drawing.Size(83, 17)
Me.cbxAPI.TabIndex = 17
Me.cbxAPI.Text = "Schnittstelle"
Me.cbxAPI.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
Me.cbxAPI.UseVisualStyleBackColor = True
'
'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"
'
'txtRgDatum
'
Me.txtRgDatum._DateTimeOnly = False
Me.txtRgDatum._numbersOnly = False
Me.txtRgDatum._numbersOnlyKommastellen = ""
Me.txtRgDatum._numbersOnlyTrennzeichen = True
Me.txtRgDatum._Prozent = False
Me.txtRgDatum._ShortDateNew = False
Me.txtRgDatum._ShortDateOnly = False
Me.txtRgDatum._TimeOnly = False
Me.txtRgDatum._TimeOnly_Seconds = False
Me.txtRgDatum._value = ""
Me.txtRgDatum._Waehrung = False
Me.txtRgDatum._WaehrungZeichen = True
Me.txtRgDatum.ForeColor = System.Drawing.Color.Red
Me.txtRgDatum.Location = New System.Drawing.Point(17, 49)
Me.txtRgDatum.MaxLength = 10
Me.txtRgDatum.MaxLineLength = -1
Me.txtRgDatum.MaxLines_Warning = ""
Me.txtRgDatum.MaxLines_Warning_Label = Nothing
Me.txtRgDatum.Name = "txtRgDatum"
Me.txtRgDatum.Size = New System.Drawing.Size(154, 20)
Me.txtRgDatum.TabIndex = 6
'
'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(114, 15)
Me.Label7.TabIndex = 2
Me.Label7.Text = "Rechnungs-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
'
'txtRgNr
'
Me.txtRgNr._DateTimeOnly = False
Me.txtRgNr._numbersOnly = False
Me.txtRgNr._numbersOnlyKommastellen = ""
Me.txtRgNr._numbersOnlyTrennzeichen = True
Me.txtRgNr._Prozent = False
Me.txtRgNr._ShortDateNew = False
Me.txtRgNr._ShortDateOnly = False
Me.txtRgNr._TimeOnly = False
Me.txtRgNr._TimeOnly_Seconds = False
Me.txtRgNr._value = Nothing
Me.txtRgNr._Waehrung = False
Me.txtRgNr._WaehrungZeichen = True
Me.txtRgNr.Location = New System.Drawing.Point(177, 49)
Me.txtRgNr.MaxLength = 250
Me.txtRgNr.MaxLineLength = -1
Me.txtRgNr.MaxLines_Warning = ""
Me.txtRgNr.MaxLines_Warning_Label = Nothing
Me.txtRgNr.Name = "txtRgNr"
Me.txtRgNr.Size = New System.Drawing.Size(183, 20)
Me.txtRgNr.TabIndex = 7
'
'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(82, 13)
Me.Label9.TabIndex = 3
Me.Label9.Text = "Rechnungs-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(59, 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
'
'txtLeistender
'
Me.txtLeistender._DateTimeOnly = False
Me.txtLeistender._numbersOnly = False
Me.txtLeistender._numbersOnlyKommastellen = ""
Me.txtLeistender._numbersOnlyTrennzeichen = True
Me.txtLeistender._Prozent = False
Me.txtLeistender._ShortDateNew = False
Me.txtLeistender._ShortDateOnly = False
Me.txtLeistender._TimeOnly = False
Me.txtLeistender._TimeOnly_Seconds = False
Me.txtLeistender._value = Nothing
Me.txtLeistender._Waehrung = False
Me.txtLeistender._WaehrungZeichen = True
Me.txtLeistender.Location = New System.Drawing.Point(634, 49)
Me.txtLeistender.MaxLength = 22
Me.txtLeistender.MaxLineLength = -1
Me.txtLeistender.MaxLines_Warning = ""
Me.txtLeistender.MaxLines_Warning_Label = Nothing
Me.txtLeistender.Name = "txtLeistender"
Me.txtLeistender.Size = New System.Drawing.Size(279, 20)
Me.txtLeistender.TabIndex = 9
'
'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(134, 15)
Me.Label2.TabIndex = 4
Me.Label2.Text = "Leistungsbezeichnung:"
'
'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(82, 15)
Me.Label3.TabIndex = 5
Me.Label3.Text = "Leistungeber:"
'
'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"
'
'txtUSTBetrag
'
Me.txtUSTBetrag._DateTimeOnly = False
Me.txtUSTBetrag._numbersOnly = False
Me.txtUSTBetrag._numbersOnlyKommastellen = ""
Me.txtUSTBetrag._numbersOnlyTrennzeichen = True
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 = True
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 = 14
'
'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:"
'
'txtUmrechnungskurs
'
Me.txtUmrechnungskurs._DateTimeOnly = False
Me.txtUmrechnungskurs._numbersOnly = True
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 = True
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 = 15
'
'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:"
'
'txtUSTBetragEUR
'
Me.txtUSTBetragEUR._DateTimeOnly = False
Me.txtUSTBetragEUR._numbersOnly = False
Me.txtUSTBetragEUR._numbersOnlyKommastellen = ""
Me.txtUSTBetragEUR._numbersOnlyTrennzeichen = True
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 = False
Me.txtUSTBetragEUR._WaehrungZeichen = True
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 = 16
'
'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"
'
'cboLeistungsbezeichnung
'
Me.cboLeistungsbezeichnung._allowedValuesFreiText = Nothing
Me.cboLeistungsbezeichnung._allowFreiText = False
Me.cboLeistungsbezeichnung._value = ""
Me.cboLeistungsbezeichnung.FormattingEnabled = True
Me.cboLeistungsbezeichnung.Location = New System.Drawing.Point(445, 49)
Me.cboLeistungsbezeichnung.Name = "cboLeistungsbezeichnung"
Me.cboLeistungsbezeichnung.Size = New System.Drawing.Size(183, 21)
Me.cboLeistungsbezeichnung.TabIndex = 8
'
'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 = "-"
'
'cboSchnittstellennr
'
Me.cboSchnittstellennr._allowedValuesFreiText = Nothing
Me.cboSchnittstellennr._allowFreiText = False
Me.cboSchnittstellennr._value = ""
Me.cboSchnittstellennr.Enabled = False
Me.cboSchnittstellennr.FormattingEnabled = True
Me.cboSchnittstellennr.Location = New System.Drawing.Point(723, 130)
Me.cboSchnittstellennr.Name = "cboSchnittstellennr"
Me.cboSchnittstellennr.Size = New System.Drawing.Size(190, 21)
Me.cboSchnittstellennr.TabIndex = 18
'
'pnl
'
Me.pnl.BackColor = System.Drawing.Color.White
Me.pnl.Controls.Add(Me.Label6)
Me.pnl.Controls.Add(Me.cboSchnittstellennr)
Me.pnl.Controls.Add(Me.Label9)
Me.pnl.Controls.Add(Me.lblAenderungsdatum)
Me.pnl.Controls.Add(Me.txtRgNr)
Me.pnl.Controls.Add(Me.lblSachbearbeiter)
Me.pnl.Controls.Add(Me.Label7)
Me.pnl.Controls.Add(Me.Label5)
Me.pnl.Controls.Add(Me.txtRgDatum)
Me.pnl.Controls.Add(Me.Label4)
Me.pnl.Controls.Add(Me.cbxAPI)
Me.pnl.Controls.Add(Me.Label1)
Me.pnl.Controls.Add(Me.cboLeistungsbezeichnung)
Me.pnl.Controls.Add(Me.txtLeistender)
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(1022, 239)
Me.pnl.TabIndex = 1
'
'Panel1
'
Me.Panel1.Controls.Add(Me.btnBildAuf)
Me.Panel1.Controls.Add(Me.Button1)
Me.Panel1.Controls.Add(Me.scanLieferschein)
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Right
Me.Panel1.Location = New System.Drawing.Point(923, 30)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(99, 239)
Me.Panel1.TabIndex = 2
'
'ustCntlUSTV_AntragPosition
'
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.tbcntr)
Me.Controls.Add(Me.Panel2)
Me.Name = "ustCntlUSTV_AntragPosition"
Me.Size = New System.Drawing.Size(1300, 269)
Me.TabPage2.ResumeLayout(False)
Me.tbcntr.ResumeLayout(False)
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 scanLieferschein As VERAG_PROG_ALLGEMEIN.usrcntlPDFScan
Friend WithEvents TabPage2 As TabPage
Friend WithEvents scanSonstiges As VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList
Friend WithEvents tbcntr As TabControl
Friend WithEvents cbxAPI As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
Friend WithEvents Label8 As Label
Friend WithEvents txtRgDatum As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label7 As Label
Friend WithEvents Panel2 As Panel
Friend WithEvents txtRgNr 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 txtLeistender 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 cboLeistungsbezeichnung As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents Label4 As Label
Friend WithEvents Label5 As Label
Friend WithEvents lblAenderungsdatum As Label
Friend WithEvents lblSachbearbeiter As Label
Friend WithEvents cboSchnittstellennr As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents pnl As Panel
Friend WithEvents Panel1 As Panel
End Class

120
SDL/USTV/ustCntlUSTV_AntragPosition.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>

88
SDL/USTV/ustCntlUSTV_AntragPosition.vb Normal file
View File

@@ -0,0 +1,88 @@
Public Class ustCntlUSTV_AntragPosition
Public UStV_POS As VERAG_PROG_ALLGEMEIN.cUStVPositionen = Nothing
Public Event EV_PREV()
Public Event EV_NEXT()
Public Event CHANGED(UStVPo_ID)
Dim gridAktiv = 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()
txtRgDatum._value = ""
txtRgNr._value = ""
End Sub
Sub setValues(UStV_POS As VERAG_PROG_ALLGEMEIN.cUStVPositionen)
gridAktiv = False
Me.UStV_POS = UStV_POS
cbxAPI.Checked = If(UStV_POS.UStVPo_Schnittstelle, False)
cboSchnittstellennr.changeItem(If(UStV_POS.UStVPo_SchnittstellenNr, ""))
txtRgDatum._value = If(UStV_POS.UStVPo_ReDat, "")
txtRgNr._value = If(UStV_POS.UStVPo_ReNr, "")
lblSachbearbeiter.Text = If(UStV_POS.UStVPo_Sachbearbeiter, "")
If UStV_POS.UStVPo_Zeitstempel IsNot Nothing Then lblAenderungsdatum.Text = CDate(UStV_POS.UStVPo_Zeitstempel).ToString("dd.MM.yyyy HH:mm")
txtLeistender.Text = If(UStV_POS.UStVPo_Leistender, "")
cboLeistungsbezeichnung.Text = If(UStV_POS.UStVPo_Leistungsbezeichnung, "")
txtUSTBetrag.Text = If(UStV_POS.UStVPo_USteuerbetrag, "")
txtUmrechnungskurs.Text = If(UStV_POS.UStVPo_Umrechnungskurs, "")
txtUSTBetragEUR.Text = If(UStV_POS.UStVPo_USteuerbetragEUR, "")
gridAktiv = True
End Sub
Sub getValues(ByRef UStV_POS)
If UStV_POS Is Nothing Then UStV_POS = New VERAG_PROG_ALLGEMEIN.cUStVPositionen
'UStV_POS.
UStV_POS.UStVPo_Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
UStV_POS.UStVPo_Zeitstempel = Now
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
Private Sub txtUmrechnungskurs_TextChanged(sender As Object, e As EventArgs) Handles txtUmrechnungskurs.TextChanged
Dim gridAktivTMP = gridAktiv
gridAktiv = False
txtUSTBetragEUR._value = ""
If IsNumeric(txtUSTBetrag._value) AndAlso IsNumeric(txtUmrechnungskurs._value) Then
txtUSTBetragEUR._value = txtUSTBetrag._value * txtUmrechnungskurs._value
End If
gridAktiv = gridAktivTMP
End Sub
Function save()
getValues(UStV_POS)
MsgBox("TEST")
Return UStV_POS.save
End Function
Private Sub txtBestellung_TextChanged(sender As Object, e As EventArgs) Handles txtRgDatum.PropertyChanged, txtRgNr.TextChanged, cboLeistungsbezeichnung.SelectedIndexChanged,
txtLeistender.TextChanged, txtUSTBetrag.TextChanged, txtUSTBetrag.TextChanged, txtUSTBetragEUR.TextChanged ', cbxAPI.CheckedChanged, cboSchnittstellennr.SelectedIndexChanged
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_Leistungen_bearbeiten", Me.FindForm) Then Exit Sub
If gridAktiv And Me.FindForm IsNot Nothing Then
'If sender Is txtLieferung Then
' If Not PROG.checkSDLNrPartnerKdNr(kdNr, SDLNr) Then MsgBox("Bitte geben Sie die Partner-Kundennummer im Kundenblatt oder im FM-ZOLL ein!")
'End If
values_changed()
End If
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_POS.UStVPo_ID)
End Sub
End Class

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

@@ -54,6 +54,8 @@ Public Class cUSTVAntrag
Property UStVAn_ErstattungsbetragEUR As Object = Nothing ' MONEY Default ((0)) NULL, Property UStVAn_ErstattungsbetragEUR As Object = Nothing ' MONEY Default ((0)) NULL,
Property UStVAn_Sachbearbeiter As Object = Nothing ' NVARCHAR(15) NULL, Property UStVAn_Sachbearbeiter As Object = Nothing ' NVARCHAR(15) NULL,
Property UStVAn_Zeitstempel As Object = Nothing ' DATETIME Default (getdate()) NULL, Property UStVAn_Zeitstempel As Object = Nothing ' DATETIME Default (getdate()) NULL,
Property UStVAn_Status As Object = Nothing
Property UStVAn_StatusText As Object = Nothing
Property POSITIONEN As New List(Of cUStVPositionen) '= Nothing Property POSITIONEN As New List(Of cUStVPositionen) '= Nothing
@@ -118,6 +120,8 @@ Public Class cUSTVAntrag
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_ErstattungsbetragEUR", UStVAn_ErstattungsbetragEUR)) ' MONEY Default ((0)) NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_ErstattungsbetragEUR", UStVAn_ErstattungsbetragEUR)) ' MONEY Default ((0)) NULL,
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_Sachbearbeiter", UStVAn_Sachbearbeiter)) ' NVARCHAR(15) NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_Sachbearbeiter", UStVAn_Sachbearbeiter)) ' NVARCHAR(15) NULL,
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_Zeitstempel", UStVAn_Zeitstempel)) ' DATETIME Default (getdate()) NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_Zeitstempel", UStVAn_Zeitstempel)) ' DATETIME Default (getdate()) NULL,
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_Status", UStVAn_Status)) ' DATETIME Default (getdate()) NULL,
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_StatusText", UStVAn_StatusText)) ' DATETIME Default (getdate()) NULL,
Return list Return list
@@ -270,8 +274,76 @@ Public Class cUStVPositionen
Dim SQL As New SQL Dim SQL As New SQL
Sub New() Sub New(UStVAn_ID, UStVPo_ID)
Me.UStVAn_ID = UStVAn_ID
Me.UStVPo_ID = UStVPo_ID
LOAD(UStVAn_ID, UStVPo_ID)
End Sub End Sub
Sub New()
End Sub
Public Sub LOAD(UStVAn_ID, UStVPo_ID)
Try
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
Using cmd As New SqlCommand("SELECT * FROM [tblUStVPositionen] WHERE UStVAn_ID=@UStVAn_ID AND UStVPo_ID=@UStVPo_ID ", conn)
cmd.Parameters.AddWithValue("@UStVAn_ID", UStVAn_ID)
cmd.Parameters.AddWithValue("@UStVPo_ID", UStVPo_ID)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
'Dim l As New cOfferte
For Each i In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(i.Scalarvariable)
If dr.Item(i.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(i.Text))
End If
Next
End If
dr.Close()
End Using
End Using
Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
End Try
End Sub
Public Function SAVE() As Boolean
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblUStVPositionen WHERE UStVAn_ID=@UStVAn_ID AND UStVPo_ID=@UStVPo_ID) " &
" BEGIN " & getUpdateCmd() & " END " &
" Else " &
" BEGIN " & getInsertCmd() & " END " &
" commit tran "
Return SQL.doSQLVarList(sqlstr, "FMZOLL", , list)
End Function
Public Function getUpdateCmd() As String
Try
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
Dim str As String = ""
For Each i In list
If Not i.isPrimaryParam Then
str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
End If
Next
str = str.Substring(0, str.Length - 1) 'wg. ','
Return (" UPDATE [tblUStVPositionen] SET " & str & " WHERE UStVAn_ID=@UStVAn_ID AND UStVPo_ID=@UStVPo_ID")
Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
End Try
Return ""
End Function

8
VERAG_PROG_ALLGEMEIN/Classes/cRechnungsnummern.vb
View File

@@ -72,6 +72,14 @@ Public Class cRechnungsnummern
Return LfdRechnungsNr Return LfdRechnungsNr
End Function End Function
Public Function DECREASE_RGNR() As Integer
If LfdRechnungsNr > 0 Then
LfdRechnungsNr -= 1
End If
SAVE()
Return LfdRechnungsNr
End Function
Public Function CHECK_RGNR() As Integer ' Prüfung, ob RgNr schon vergeben wurde --> dann +1, bis freie Nr. Public Function CHECK_RGNR() As Integer ' Prüfung, ob RgNr schon vergeben wurde --> dann +1, bis freie Nr.
Dim increased = False Dim increased = False

2
VERAG_PROG_ALLGEMEIN/Classes/cSendungen.vb
View File

@@ -770,7 +770,7 @@ Public Class cSendungen
If Bestimmungszollstelle And If(Me.NCTS_Bestimmungszollstelle, "") <> "" Then If Bestimmungszollstelle And If(Me.NCTS_Bestimmungszollstelle, "") <> "" Then
'adresse &= SQL.getValueTxtBySql("SELECT basncd_dstnr +' - ' + [basncd_name] FROM basncd WHERE basncd_dstnr='" & Me.NCTS_Bestimmungszollstelle & "' ", "ATLAS") 'adresse &= SQL.getValueTxtBySql("SELECT basncd_dstnr +' - ' + [basncd_name] FROM basncd WHERE basncd_dstnr='" & Me.NCTS_Bestimmungszollstelle & "' ", "ATLAS")
adresse &= SQL.getValueTxtBySql("SELECT Code +' - ' + [Description] FROM basncd WHERE Code='" & Me.NCTS_Bestimmungszollstelle & "' AND ((StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE())) order by left(Code,2), Description ", "FMZOLL") adresse &= SQL.getValueTxtBySql("SELECT Code +' - ' + [Description] FROM tbl_DY_ZollDE_C0141_Zollstellen WHERE Code='" & Me.NCTS_Bestimmungszollstelle & "' AND ((StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE())) order by left(Code,2), Description ", "FMZOLL")
End If End If
If htmlOptimized Then adresse = adresse.Trim.Replace(vbNewLine, "<br/>") If htmlOptimized Then adresse = adresse.Trim.Replace(vbNewLine, "<br/>")