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

MDM VOllmachten, USTVA

Browse Source
This commit is contained in:
d.breimaier
2024-10-11 08:07:44 +02:00
parent f9003db09d
commit 03eb51ef9e
7 changed files with 314 additions and 176 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_MDM_EU.vb
View File

@@ -147,7 +147,7 @@ Public Class usrcntlVollmacht_MDM_EU
cbxLandKz.fillWithSQL("select distinct landkz, Währungstabelle.Land from Währungstabelle where landkz is not null order by LandKz", , "FMZOLL", True)
cbxKapitalWahrung.fillWithSQL("SELECT [Währungscode],[Land] FROM Währungstabelle ORDER BY Währungscode", , "FMZOLL", False)
cbxKapitalWahrung.fillWithSQL("SELECT fw_iso3, fw_land FROM [VERAG].[dbo].[tblWahrungtabelleNEU] order by fw_land ", , "FMZOLL", False)
cbx_GF_Land.Items.Clear()
cbx_GF_Land.Items.AddRange(cbxLandKz.Items.Cast(Of VERAG_PROG_ALLGEMEIN.MyListItem).ToArray())

2
SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_MDM_NICHT_EU.vb
View File

@@ -141,7 +141,7 @@ Public Class usrcntlVollmacht_MDM_NICHT_EU
cbxLandKz.fillWithSQL("select distinct landkz, Währungstabelle.Land from Währungstabelle where landkz is not null order by LandKz", , "FMZOLL", True)
cbxKapitalWahrung.fillWithSQL("SELECT [Währungscode],[Land] FROM Währungstabelle ORDER BY Währungscode", , "FMZOLL", False)
cbxKapitalWahrung.fillWithSQL("SELECT fw_iso3, fw_land FROM [VERAG].[dbo].[tblWahrungtabelleNEU] order by fw_land ", , "FMZOLL", False)
cbx_GF_Land.Items.Clear()
cbx_GF_Land.Items.AddRange(cbxLandKz.Items.Cast(Of VERAG_PROG_ALLGEMEIN.MyListItem).ToArray())

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

@@ -39,6 +39,8 @@ Partial Class frmMDM_USTVAntrag
Me.Panel9 = New System.Windows.Forms.Panel()
Me.lblLand = New System.Windows.Forms.Label()
Me.Panel8 = New System.Windows.Forms.Panel()
Me.Label1 = New System.Windows.Forms.Label()
Me.txt3470 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label3 = New System.Windows.Forms.Label()
Me.lblZeitraum = New System.Windows.Forms.Label()
Me.txtVon = New VERAG_PROG_ALLGEMEIN.MyTextBox()
@@ -71,13 +73,11 @@ Partial Class frmMDM_USTVAntrag
Me.dgvUSTVPositionen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.pnl = 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.Button3 = New System.Windows.Forms.Button()
Me.Button2 = New System.Windows.Forms.Button()
Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.txt3470 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label1 = New System.Windows.Forms.Label()
Me.UstCntlUSTV_AntragPosition1 = New SDL.ustCntlUSTV_AntragPosition()
Me.Panel3.SuspendLayout()
Me.Panel1.SuspendLayout()
Me.Panel9.SuspendLayout()
@@ -286,6 +286,44 @@ Partial Class frmMDM_USTVAntrag
Me.Panel8.Size = New System.Drawing.Size(973, 87)
Me.Panel8.TabIndex = 19
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.BackColor = System.Drawing.Color.Transparent
Me.Label1.Cursor = System.Windows.Forms.Cursors.Hand
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label1.ForeColor = System.Drawing.Color.Black
Me.Label1.Location = New System.Drawing.Point(785, 6)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(44, 17)
Me.Label1.TabIndex = 10
Me.Label1.Text = "3470:"
'
'txt3470
'
Me.txt3470._DateTimeOnly = False
Me.txt3470._numbersOnly = True
Me.txt3470._numbersOnlyKommastellen = ""
Me.txt3470._numbersOnlyTrennzeichen = True
Me.txt3470._Prozent = False
Me.txt3470._ShortDateNew = False
Me.txt3470._ShortDateOnly = False
Me.txt3470._TimeOnly = False
Me.txt3470._TimeOnly_Seconds = False
Me.txt3470._value = ""
Me.txt3470._Waehrung = True
Me.txt3470._WaehrungZeichen = True
Me.txt3470.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
Me.txt3470.ForeColor = System.Drawing.Color.Black
Me.txt3470.Location = New System.Drawing.Point(858, 3)
Me.txt3470.MaxLength = 10
Me.txt3470.MaxLineLength = -1
Me.txt3470.MaxLines_Warning = ""
Me.txt3470.MaxLines_Warning_Label = Nothing
Me.txt3470.Name = "txt3470"
Me.txt3470.Size = New System.Drawing.Size(100, 23)
Me.txt3470.TabIndex = 9
'
'Label3
'
Me.Label3.AutoSize = True
@@ -736,6 +774,14 @@ Partial Class frmMDM_USTVAntrag
Me.Panel2.Size = New System.Drawing.Size(1300, 269)
Me.Panel2.TabIndex = 1
'
'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
'
'Panel4
'
Me.Panel4.BackColor = System.Drawing.Color.WhiteSmoke
@@ -783,52 +829,6 @@ Partial Class frmMDM_USTVAntrag
Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
Me.ContextMenuStrip1.Size = New System.Drawing.Size(61, 4)
'
'txt3470
'
Me.txt3470._DateTimeOnly = False
Me.txt3470._numbersOnly = True
Me.txt3470._numbersOnlyKommastellen = ""
Me.txt3470._numbersOnlyTrennzeichen = True
Me.txt3470._Prozent = False
Me.txt3470._ShortDateNew = False
Me.txt3470._ShortDateOnly = False
Me.txt3470._TimeOnly = False
Me.txt3470._TimeOnly_Seconds = False
Me.txt3470._value = ""
Me.txt3470._Waehrung = True
Me.txt3470._WaehrungZeichen = True
Me.txt3470.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
Me.txt3470.ForeColor = System.Drawing.Color.Black
Me.txt3470.Location = New System.Drawing.Point(858, 3)
Me.txt3470.MaxLength = 10
Me.txt3470.MaxLineLength = -1
Me.txt3470.MaxLines_Warning = ""
Me.txt3470.MaxLines_Warning_Label = Nothing
Me.txt3470.Name = "txt3470"
Me.txt3470.Size = New System.Drawing.Size(100, 23)
Me.txt3470.TabIndex = 9
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.BackColor = System.Drawing.Color.Transparent
Me.Label1.Cursor = System.Windows.Forms.Cursors.Hand
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label1.ForeColor = System.Drawing.Color.Black
Me.Label1.Location = New System.Drawing.Point(785, 6)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(44, 17)
Me.Label1.TabIndex = 10
Me.Label1.Text = "3470:"
'
'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!)

4
SDL/USTV/frmMDM_USTVAntrag.vb
View File

@@ -684,6 +684,10 @@ Public Class frmMDM_USTVAntrag
End Sub
Private Sub txt3470_ValueChanged() Handles txt3470.ValueChanged
End Sub
' Private Sub cmdITMautÜbernehmen_Click()

321
SDL/USTV/usrCntlUSTV.Designer.vb generated
View File

@@ -42,18 +42,24 @@ Partial Class usrCntlUSTV
Me.FlatButton2 = New System.Windows.Forms.Button()
Me.Panel2 = New System.Windows.Forms.Panel()
Me.Panel3 = New System.Windows.Forms.Panel()
Me.txtSumDiff = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtSumErst = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtSumUst = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label5 = New System.Windows.Forms.Label()
Me.Label4 = New System.Windows.Forms.Label()
Me.Label3 = New System.Windows.Forms.Label()
Me.btnRMCalle = New System.Windows.Forms.Button()
Me.btnMail = New System.Windows.Forms.Button()
Me.btnPLOSEAlle = New System.Windows.Forms.Button()
Me.Button5 = New System.Windows.Forms.Button()
Me.Button8 = New System.Windows.Forms.Button()
Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.Label3 = New System.Windows.Forms.Label()
Me.Label4 = New System.Windows.Forms.Label()
Me.Label5 = New System.Windows.Forms.Label()
Me.txtSumUst = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtSumErst = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtSumDiff = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtVorschaubetrGes = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label6 = New System.Windows.Forms.Label()
Me.txt3470Betrag = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label7 = New System.Windows.Forms.Label()
Me.txtVZBetrag = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label8 = New System.Windows.Forms.Label()
CType(Me.dgvUSTV, System.ComponentModel.ISupportInitialize).BeginInit()
Me.Panel1.SuspendLayout()
Me.Panel2.SuspendLayout()
@@ -101,6 +107,12 @@ Partial Class usrCntlUSTV
'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.Controls.Add(Me.txtVZBetrag)
Me.Panel1.Controls.Add(Me.Label8)
Me.Panel1.Controls.Add(Me.txt3470Betrag)
Me.Panel1.Controls.Add(Me.Label7)
Me.Panel1.Controls.Add(Me.txtVorschaubetrGes)
Me.Panel1.Controls.Add(Me.Label6)
Me.Panel1.Controls.Add(Me.cbxDifferenzbetrag)
Me.Panel1.Controls.Add(Me.cbxEingereicht)
Me.Panel1.Controls.Add(Me.cbxTopMax)
@@ -329,6 +341,111 @@ Partial Class usrCntlUSTV
Me.Panel3.Size = New System.Drawing.Size(1627, 77)
Me.Panel3.TabIndex = 0
'
'txtSumDiff
'
Me.txtSumDiff._DateTimeOnly = False
Me.txtSumDiff._numbersOnly = False
Me.txtSumDiff._numbersOnlyKommastellen = ""
Me.txtSumDiff._numbersOnlyTrennzeichen = True
Me.txtSumDiff._Prozent = False
Me.txtSumDiff._ShortDateNew = False
Me.txtSumDiff._ShortDateOnly = False
Me.txtSumDiff._TimeOnly = False
Me.txtSumDiff._TimeOnly_Seconds = False
Me.txtSumDiff._value = ""
Me.txtSumDiff._Waehrung = True
Me.txtSumDiff._WaehrungZeichen = True
Me.txtSumDiff.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.txtSumDiff.ForeColor = System.Drawing.Color.Black
Me.txtSumDiff.Location = New System.Drawing.Point(1179, 46)
Me.txtSumDiff.MaxLineLength = -1
Me.txtSumDiff.MaxLines_Warning = ""
Me.txtSumDiff.MaxLines_Warning_Label = Nothing
Me.txtSumDiff.Name = "txtSumDiff"
Me.txtSumDiff.ReadOnly = True
Me.txtSumDiff.Size = New System.Drawing.Size(107, 20)
Me.txtSumDiff.TabIndex = 32
'
'txtSumErst
'
Me.txtSumErst._DateTimeOnly = False
Me.txtSumErst._numbersOnly = False
Me.txtSumErst._numbersOnlyKommastellen = ""
Me.txtSumErst._numbersOnlyTrennzeichen = True
Me.txtSumErst._Prozent = False
Me.txtSumErst._ShortDateNew = False
Me.txtSumErst._ShortDateOnly = False
Me.txtSumErst._TimeOnly = False
Me.txtSumErst._TimeOnly_Seconds = False
Me.txtSumErst._value = ""
Me.txtSumErst._Waehrung = True
Me.txtSumErst._WaehrungZeichen = True
Me.txtSumErst.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.txtSumErst.ForeColor = System.Drawing.Color.Black
Me.txtSumErst.Location = New System.Drawing.Point(1179, 26)
Me.txtSumErst.MaxLineLength = -1
Me.txtSumErst.MaxLines_Warning = ""
Me.txtSumErst.MaxLines_Warning_Label = Nothing
Me.txtSumErst.Name = "txtSumErst"
Me.txtSumErst.ReadOnly = True
Me.txtSumErst.Size = New System.Drawing.Size(107, 20)
Me.txtSumErst.TabIndex = 31
'
'txtSumUst
'
Me.txtSumUst._DateTimeOnly = False
Me.txtSumUst._numbersOnly = False
Me.txtSumUst._numbersOnlyKommastellen = ""
Me.txtSumUst._numbersOnlyTrennzeichen = True
Me.txtSumUst._Prozent = False
Me.txtSumUst._ShortDateNew = False
Me.txtSumUst._ShortDateOnly = False
Me.txtSumUst._TimeOnly = False
Me.txtSumUst._TimeOnly_Seconds = False
Me.txtSumUst._value = ""
Me.txtSumUst._Waehrung = True
Me.txtSumUst._WaehrungZeichen = True
Me.txtSumUst.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.txtSumUst.ForeColor = System.Drawing.Color.Black
Me.txtSumUst.Location = New System.Drawing.Point(1179, 6)
Me.txtSumUst.MaxLineLength = -1
Me.txtSumUst.MaxLines_Warning = ""
Me.txtSumUst.MaxLines_Warning_Label = Nothing
Me.txtSumUst.Name = "txtSumUst"
Me.txtSumUst.ReadOnly = True
Me.txtSumUst.Size = New System.Drawing.Size(107, 20)
Me.txtSumUst.TabIndex = 30
'
'Label5
'
Me.Label5.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label5.AutoSize = True
Me.Label5.Location = New System.Drawing.Point(1074, 49)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(79, 13)
Me.Label5.TabIndex = 29
Me.Label5.Text = "Differenzbetrag"
'
'Label4
'
Me.Label4.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label4.AutoSize = True
Me.Label4.Location = New System.Drawing.Point(1074, 29)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(90, 13)
Me.Label4.TabIndex = 28
Me.Label4.Text = "Erstattungsbetrag"
'
'Label3
'
Me.Label3.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label3.AutoSize = True
Me.Label3.Location = New System.Drawing.Point(1074, 8)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(59, 13)
Me.Label3.TabIndex = 27
Me.Label3.Text = "USt-Betrag"
'
'btnRMCalle
'
Me.btnRMCalle.FlatStyle = System.Windows.Forms.FlatStyle.Flat
@@ -404,110 +521,110 @@ Partial Class usrCntlUSTV
Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
Me.ContextMenuStrip1.Size = New System.Drawing.Size(61, 4)
'
'Label3
'txtVorschaubetrGes
'
Me.Label3.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label3.AutoSize = True
Me.Label3.Location = New System.Drawing.Point(1074, 8)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(59, 13)
Me.Label3.TabIndex = 27
Me.Label3.Text = "USt-Betrag"
Me.txtVorschaubetrGes._DateTimeOnly = False
Me.txtVorschaubetrGes._numbersOnly = False
Me.txtVorschaubetrGes._numbersOnlyKommastellen = ""
Me.txtVorschaubetrGes._numbersOnlyTrennzeichen = True
Me.txtVorschaubetrGes._Prozent = False
Me.txtVorschaubetrGes._ShortDateNew = False
Me.txtVorschaubetrGes._ShortDateOnly = False
Me.txtVorschaubetrGes._TimeOnly = False
Me.txtVorschaubetrGes._TimeOnly_Seconds = False
Me.txtVorschaubetrGes._value = ""
Me.txtVorschaubetrGes._Waehrung = True
Me.txtVorschaubetrGes._WaehrungZeichen = True
Me.txtVorschaubetrGes.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.txtVorschaubetrGes.ForeColor = System.Drawing.Color.Black
Me.txtVorschaubetrGes.Location = New System.Drawing.Point(940, 5)
Me.txtVorschaubetrGes.MaxLineLength = -1
Me.txtVorschaubetrGes.MaxLines_Warning = ""
Me.txtVorschaubetrGes.MaxLines_Warning_Label = Nothing
Me.txtVorschaubetrGes.Name = "txtVorschaubetrGes"
Me.txtVorschaubetrGes.ReadOnly = True
Me.txtVorschaubetrGes.Size = New System.Drawing.Size(107, 20)
Me.txtVorschaubetrGes.TabIndex = 34
'
'Label4
'Label6
'
Me.Label4.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label4.AutoSize = True
Me.Label4.Location = New System.Drawing.Point(1074, 29)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(90, 13)
Me.Label4.TabIndex = 28
Me.Label4.Text = "Erstattungsbetrag"
Me.Label6.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label6.AutoSize = True
Me.Label6.Location = New System.Drawing.Point(813, 9)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(121, 13)
Me.Label6.TabIndex = 33
Me.Label6.Text = "Vorschaubetrag-Gesamt"
'
'Label5
'txt3470Betrag
'
Me.Label5.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label5.AutoSize = True
Me.Label5.Location = New System.Drawing.Point(1074, 49)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(79, 13)
Me.Label5.TabIndex = 29
Me.Label5.Text = "Differenzbetrag"
Me.txt3470Betrag._DateTimeOnly = False
Me.txt3470Betrag._numbersOnly = False
Me.txt3470Betrag._numbersOnlyKommastellen = ""
Me.txt3470Betrag._numbersOnlyTrennzeichen = True
Me.txt3470Betrag._Prozent = False
Me.txt3470Betrag._ShortDateNew = False
Me.txt3470Betrag._ShortDateOnly = False
Me.txt3470Betrag._TimeOnly = False
Me.txt3470Betrag._TimeOnly_Seconds = False
Me.txt3470Betrag._value = ""
Me.txt3470Betrag._Waehrung = True
Me.txt3470Betrag._WaehrungZeichen = True
Me.txt3470Betrag.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.txt3470Betrag.ForeColor = System.Drawing.Color.Black
Me.txt3470Betrag.Location = New System.Drawing.Point(1102, 5)
Me.txt3470Betrag.MaxLineLength = -1
Me.txt3470Betrag.MaxLines_Warning = ""
Me.txt3470Betrag.MaxLines_Warning_Label = Nothing
Me.txt3470Betrag.Name = "txt3470Betrag"
Me.txt3470Betrag.ReadOnly = True
Me.txt3470Betrag.Size = New System.Drawing.Size(107, 20)
Me.txt3470Betrag.TabIndex = 49
'
'txtSumUst
'Label7
'
Me.txtSumUst._DateTimeOnly = False
Me.txtSumUst._numbersOnly = False
Me.txtSumUst._numbersOnlyKommastellen = ""
Me.txtSumUst._numbersOnlyTrennzeichen = True
Me.txtSumUst._Prozent = False
Me.txtSumUst._ShortDateNew = False
Me.txtSumUst._ShortDateOnly = False
Me.txtSumUst._TimeOnly = False
Me.txtSumUst._TimeOnly_Seconds = False
Me.txtSumUst._value = ""
Me.txtSumUst._Waehrung = True
Me.txtSumUst._WaehrungZeichen = True
Me.txtSumUst.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.txtSumUst.ForeColor = System.Drawing.Color.Black
Me.txtSumUst.Location = New System.Drawing.Point(1179, 6)
Me.txtSumUst.MaxLineLength = -1
Me.txtSumUst.MaxLines_Warning = ""
Me.txtSumUst.MaxLines_Warning_Label = Nothing
Me.txtSumUst.Name = "txtSumUst"
Me.txtSumUst.ReadOnly = True
Me.txtSumUst.Size = New System.Drawing.Size(107, 20)
Me.txtSumUst.TabIndex = 30
Me.Label7.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label7.AutoSize = True
Me.Label7.Location = New System.Drawing.Point(1065, 10)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(31, 13)
Me.Label7.TabIndex = 48
Me.Label7.Text = "3470"
'
'txtSumErst
'txtVZBetrag
'
Me.txtSumErst._DateTimeOnly = False
Me.txtSumErst._numbersOnly = False
Me.txtSumErst._numbersOnlyKommastellen = ""
Me.txtSumErst._numbersOnlyTrennzeichen = True
Me.txtSumErst._Prozent = False
Me.txtSumErst._ShortDateNew = False
Me.txtSumErst._ShortDateOnly = False
Me.txtSumErst._TimeOnly = False
Me.txtSumErst._TimeOnly_Seconds = False
Me.txtSumErst._value = ""
Me.txtSumErst._Waehrung = True
Me.txtSumErst._WaehrungZeichen = True
Me.txtSumErst.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.txtSumErst.ForeColor = System.Drawing.Color.Black
Me.txtSumErst.Location = New System.Drawing.Point(1179, 26)
Me.txtSumErst.MaxLineLength = -1
Me.txtSumErst.MaxLines_Warning = ""
Me.txtSumErst.MaxLines_Warning_Label = Nothing
Me.txtSumErst.Name = "txtSumErst"
Me.txtSumErst.ReadOnly = True
Me.txtSumErst.Size = New System.Drawing.Size(107, 20)
Me.txtSumErst.TabIndex = 31
Me.txtVZBetrag._DateTimeOnly = False
Me.txtVZBetrag._numbersOnly = False
Me.txtVZBetrag._numbersOnlyKommastellen = ""
Me.txtVZBetrag._numbersOnlyTrennzeichen = True
Me.txtVZBetrag._Prozent = False
Me.txtVZBetrag._ShortDateNew = False
Me.txtVZBetrag._ShortDateOnly = False
Me.txtVZBetrag._TimeOnly = False
Me.txtVZBetrag._TimeOnly_Seconds = False
Me.txtVZBetrag._value = ""
Me.txtVZBetrag._Waehrung = True
Me.txtVZBetrag._WaehrungZeichen = True
Me.txtVZBetrag.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.txtVZBetrag.ForeColor = System.Drawing.Color.Black
Me.txtVZBetrag.Location = New System.Drawing.Point(1290, 6)
Me.txtVZBetrag.MaxLineLength = -1
Me.txtVZBetrag.MaxLines_Warning = ""
Me.txtVZBetrag.MaxLines_Warning_Label = Nothing
Me.txtVZBetrag.Name = "txtVZBetrag"
Me.txtVZBetrag.ReadOnly = True
Me.txtVZBetrag.Size = New System.Drawing.Size(107, 20)
Me.txtVZBetrag.TabIndex = 51
'
'txtSumDiff
'Label8
'
Me.txtSumDiff._DateTimeOnly = False
Me.txtSumDiff._numbersOnly = False
Me.txtSumDiff._numbersOnlyKommastellen = ""
Me.txtSumDiff._numbersOnlyTrennzeichen = True
Me.txtSumDiff._Prozent = False
Me.txtSumDiff._ShortDateNew = False
Me.txtSumDiff._ShortDateOnly = False
Me.txtSumDiff._TimeOnly = False
Me.txtSumDiff._TimeOnly_Seconds = False
Me.txtSumDiff._value = ""
Me.txtSumDiff._Waehrung = True
Me.txtSumDiff._WaehrungZeichen = True
Me.txtSumDiff.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.txtSumDiff.ForeColor = System.Drawing.Color.Black
Me.txtSumDiff.Location = New System.Drawing.Point(1179, 46)
Me.txtSumDiff.MaxLineLength = -1
Me.txtSumDiff.MaxLines_Warning = ""
Me.txtSumDiff.MaxLines_Warning_Label = Nothing
Me.txtSumDiff.Name = "txtSumDiff"
Me.txtSumDiff.ReadOnly = True
Me.txtSumDiff.Size = New System.Drawing.Size(107, 20)
Me.txtSumDiff.TabIndex = 32
Me.Label8.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label8.AutoSize = True
Me.Label8.Location = New System.Drawing.Point(1229, 11)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(55, 13)
Me.Label8.TabIndex = 50
Me.Label8.Text = "VZ-Betrag"
'
'usrCntlUSTV
'
@@ -558,4 +675,10 @@ Partial Class usrCntlUSTV
Friend WithEvents txtSumDiff As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents txtSumErst As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents txtSumUst As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents txtVorschaubetrGes As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label6 As Label
Friend WithEvents txtVZBetrag As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label8 As Label
Friend WithEvents txt3470Betrag As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label7 As Label
End Class

17
SDL/USTV/usrCntlUSTV.vb
View File

@@ -138,17 +138,26 @@ Public Class usrCntlUSTV
.Columns("UStVAn_Sachbearbeiter").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
End If
Dim GesamtUSteuer As Double
Dim GesamtErstattung As Double
Dim Differnezbetrag As Double
Dim GesamtUSteuer As Double = 0
Dim GesamtErstattung As Double = 0
Dim Differnezbetrag As Double = 0
Dim Gesamt3470 As Double = 0
Dim GesamtVZBetrag As Double = 0
If KdSearchBox1.KdNr > 0 Then
GesamtUSteuer = SQL.DLookup("isnull(sum(UStVAn_USteuerbetragEUR),0)", "tblUStVAntrag", "UStVAn_KuNr='" & KdSearchBox1.KdNr & "'", "FMZOLL", "0")
GesamtErstattung = SQL.DLookup("isnull(sum(UStVAn_ErstattungsbetragEUR),0)", "tblUStVAntrag", "UStVAn_KuNr='" & KdSearchBox1.KdNr & "'", "FMZOLL", "0")
Gesamt3470 = SQL.DLookup("isnull(sum(UStVAn_3470),0)", "tblUStVAntrag", "UStVAn_KuNr='" & KdSearchBox1.KdNr & "'", "FMZOLL", "0")
GesamtVZBetrag = SQL.DLookup("isnull(sum(UStVAn_VZBetrag),0)", "tblUStVAntrag", "UStVAn_KuNr='" & KdSearchBox1.KdNr & "'", "FMZOLL", "0")
Else
For Each rows As DataGridViewRow In .Rows
If IsNumeric(rows.Cells("UStVAn_USteuerbetragEUR").Value) Then GesamtUSteuer += rows.Cells("UStVAn_USteuerbetragEUR").Value
If IsNumeric(rows.Cells("UStVAn_ErstattungsbetragEUR").Value) Then GesamtErstattung += rows.Cells("UStVAn_ErstattungsbetragEUR").Value
If IsNumeric(rows.Cells("UStVAn_3470").Value) Then Gesamt3470 += rows.Cells("UStVAn_3470").Value
If IsNumeric(rows.Cells("UStVAn_VZBetrag").Value) Then GesamtVZBetrag += rows.Cells("UStVAn_VZBetrag").Value
Next
End If
@@ -158,6 +167,8 @@ Public Class usrCntlUSTV
txtSumUst.Text = GesamtUSteuer.ToString("C2")
txtSumErst.Text = GesamtErstattung.ToString("C2")
txtSumDiff.Text = Differnezbetrag.ToString("C2")
txt3470Betrag.Text = Gesamt3470.ToString("C2")
txtVZBetrag.Text = GesamtVZBetrag.ToString("C2")
End With

46
SDL/kunden/frmKundenblatt.Designer.vb generated
View File

@@ -276,7 +276,7 @@ Partial Class frmKundenblatt
Me.tbFirmendaten.Location = New System.Drawing.Point(4, 25)
Me.tbFirmendaten.Name = "tbFirmendaten"
Me.tbFirmendaten.Padding = New System.Windows.Forms.Padding(3)
Me.tbFirmendaten.Size = New System.Drawing.Size(1630, 999)
Me.tbFirmendaten.Size = New System.Drawing.Size(1630, 1016)
Me.tbFirmendaten.TabIndex = 3
Me.tbFirmendaten.Text = "Firmendaten"
'
@@ -286,7 +286,7 @@ Partial Class frmKundenblatt
Me.Panel4.Dock = System.Windows.Forms.DockStyle.Fill
Me.Panel4.Location = New System.Drawing.Point(3, 3)
Me.Panel4.Name = "Panel4"
Me.Panel4.Size = New System.Drawing.Size(1624, 993)
Me.Panel4.Size = New System.Drawing.Size(1624, 1010)
Me.Panel4.TabIndex = 0
'
'UsrcntlKundeBearbeitenFull1
@@ -296,7 +296,7 @@ Partial Class frmKundenblatt
Me.UsrcntlKundeBearbeitenFull1.Location = New System.Drawing.Point(0, 0)
Me.UsrcntlKundeBearbeitenFull1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.UsrcntlKundeBearbeitenFull1.Name = "UsrcntlKundeBearbeitenFull1"
Me.UsrcntlKundeBearbeitenFull1.Size = New System.Drawing.Size(1624, 993)
Me.UsrcntlKundeBearbeitenFull1.Size = New System.Drawing.Size(1624, 1010)
Me.UsrcntlKundeBearbeitenFull1.TabIndex = 0
'
'tbcntrMain
@@ -314,7 +314,7 @@ Partial Class frmKundenblatt
Me.tbcntrMain.Margin = New System.Windows.Forms.Padding(0)
Me.tbcntrMain.Name = "tbcntrMain"
Me.tbcntrMain.SelectedIndex = 0
Me.tbcntrMain.Size = New System.Drawing.Size(1638, 1028)
Me.tbcntrMain.Size = New System.Drawing.Size(1638, 1045)
Me.tbcntrMain.TabIndex = 3
'
'tbAllgemein
@@ -355,7 +355,7 @@ Partial Class frmKundenblatt
Me.tbAllgemein.Margin = New System.Windows.Forms.Padding(0)
Me.tbAllgemein.Name = "tbAllgemein"
Me.tbAllgemein.Padding = New System.Windows.Forms.Padding(3)
Me.tbAllgemein.Size = New System.Drawing.Size(1630, 999)
Me.tbAllgemein.Size = New System.Drawing.Size(1630, 1016)
Me.tbAllgemein.TabIndex = 0
Me.tbAllgemein.Text = "Allgemein"
'
@@ -465,7 +465,7 @@ Partial Class frmKundenblatt
Me.dgvOffenePosten.RowHeadersDefaultCellStyle = DataGridViewCellStyle4
Me.dgvOffenePosten.RowHeadersVisible = False
Me.dgvOffenePosten.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.dgvOffenePosten.Size = New System.Drawing.Size(714, 400)
Me.dgvOffenePosten.Size = New System.Drawing.Size(714, 417)
Me.dgvOffenePosten.TabIndex = 175
'
'btnOP
@@ -805,7 +805,7 @@ Partial Class frmKundenblatt
Me.dgvSperrliste.Name = "dgvSperrliste"
Me.dgvSperrliste.ReadOnly = True
Me.dgvSperrliste.RowHeadersDefaultCellStyle = DataGridViewCellStyle7
Me.dgvSperrliste.Size = New System.Drawing.Size(432, 955)
Me.dgvSperrliste.Size = New System.Drawing.Size(432, 972)
Me.dgvSperrliste.TabIndex = 23
'
'PictureBox2
@@ -859,7 +859,7 @@ Partial Class frmKundenblatt
Me.tbZoll.Location = New System.Drawing.Point(4, 25)
Me.tbZoll.Name = "tbZoll"
Me.tbZoll.Padding = New System.Windows.Forms.Padding(3)
Me.tbZoll.Size = New System.Drawing.Size(1630, 999)
Me.tbZoll.Size = New System.Drawing.Size(1630, 1016)
Me.tbZoll.TabIndex = 9
Me.tbZoll.Text = "ZOLL"
Me.tbZoll.UseVisualStyleBackColor = True
@@ -871,7 +871,7 @@ Partial Class frmKundenblatt
Me.tbcntrZOLL.Location = New System.Drawing.Point(3, 3)
Me.tbcntrZOLL.Name = "tbcntrZOLL"
Me.tbcntrZOLL.SelectedIndex = 0
Me.tbcntrZOLL.Size = New System.Drawing.Size(1624, 993)
Me.tbcntrZOLL.Size = New System.Drawing.Size(1624, 1010)
Me.tbcntrZOLL.TabIndex = 0
'
'tabZoll_Artikel
@@ -879,7 +879,7 @@ Partial Class frmKundenblatt
Me.tabZoll_Artikel.Location = New System.Drawing.Point(4, 22)
Me.tabZoll_Artikel.Name = "tabZoll_Artikel"
Me.tabZoll_Artikel.Padding = New System.Windows.Forms.Padding(3)
Me.tabZoll_Artikel.Size = New System.Drawing.Size(1616, 967)
Me.tabZoll_Artikel.Size = New System.Drawing.Size(1616, 984)
Me.tabZoll_Artikel.TabIndex = 1
Me.tabZoll_Artikel.Text = "Artikel"
Me.tabZoll_Artikel.UseVisualStyleBackColor = True
@@ -890,7 +890,7 @@ Partial Class frmKundenblatt
Me.tbMdm.Location = New System.Drawing.Point(4, 25)
Me.tbMdm.Name = "tbMdm"
Me.tbMdm.Padding = New System.Windows.Forms.Padding(3)
Me.tbMdm.Size = New System.Drawing.Size(1630, 999)
Me.tbMdm.Size = New System.Drawing.Size(1630, 1016)
Me.tbMdm.TabIndex = 10
Me.tbMdm.Text = "MDM"
Me.tbMdm.UseVisualStyleBackColor = True
@@ -908,7 +908,7 @@ Partial Class frmKundenblatt
Me.tbcntrMDM.Margin = New System.Windows.Forms.Padding(0)
Me.tbcntrMDM.Name = "tbcntrMDM"
Me.tbcntrMDM.SelectedIndex = 0
Me.tbcntrMDM.Size = New System.Drawing.Size(1624, 993)
Me.tbcntrMDM.Size = New System.Drawing.Size(1624, 1010)
Me.tbcntrMDM.TabIndex = 0
'
'tbSDL
@@ -920,7 +920,7 @@ Partial Class frmKundenblatt
Me.tbSDL.Margin = New System.Windows.Forms.Padding(0)
Me.tbSDL.Name = "tbSDL"
Me.tbSDL.Padding = New System.Windows.Forms.Padding(3)
Me.tbSDL.Size = New System.Drawing.Size(1616, 967)
Me.tbSDL.Size = New System.Drawing.Size(1616, 984)
Me.tbSDL.TabIndex = 5
Me.tbSDL.Text = "SDL-Leistungen"
Me.tbSDL.UseVisualStyleBackColor = True
@@ -962,7 +962,7 @@ Partial Class frmKundenblatt
DataGridViewCellStyle13.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvSDLLeistungenFull.RowHeadersDefaultCellStyle = DataGridViewCellStyle13
Me.dgvSDLLeistungenFull.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.dgvSDLLeistungenFull.Size = New System.Drawing.Size(1610, 771)
Me.dgvSDLLeistungenFull.Size = New System.Drawing.Size(1610, 788)
Me.dgvSDLLeistungenFull.TabIndex = 5
'
'Panel6
@@ -1067,7 +1067,7 @@ Partial Class frmKundenblatt
Me.Panel5.Controls.Add(Me.lblLetzterSA_SDL)
Me.Panel5.Controls.Add(Me.rtbVermerke)
Me.Panel5.Dock = System.Windows.Forms.DockStyle.Bottom
Me.Panel5.Location = New System.Drawing.Point(3, 821)
Me.Panel5.Location = New System.Drawing.Point(3, 838)
Me.Panel5.Name = "Panel5"
Me.Panel5.Size = New System.Drawing.Size(1610, 143)
Me.Panel5.TabIndex = 177
@@ -1941,7 +1941,7 @@ Partial Class frmKundenblatt
Me.tbOfferte.Location = New System.Drawing.Point(4, 25)
Me.tbOfferte.Margin = New System.Windows.Forms.Padding(2)
Me.tbOfferte.Name = "tbOfferte"
Me.tbOfferte.Size = New System.Drawing.Size(1630, 999)
Me.tbOfferte.Size = New System.Drawing.Size(1630, 1016)
Me.tbOfferte.TabIndex = 11
Me.tbOfferte.Text = "Offerte"
Me.tbOfferte.UseVisualStyleBackColor = True
@@ -1953,7 +1953,7 @@ Partial Class frmKundenblatt
Me.UsrCntlOfferte1.Location = New System.Drawing.Point(0, 0)
Me.UsrCntlOfferte1.Margin = New System.Windows.Forms.Padding(1)
Me.UsrCntlOfferte1.Name = "UsrCntlOfferte1"
Me.UsrCntlOfferte1.Size = New System.Drawing.Size(1630, 999)
Me.UsrCntlOfferte1.Size = New System.Drawing.Size(1630, 1016)
Me.UsrCntlOfferte1.TabIndex = 0
'
'tbUSTV
@@ -1961,7 +1961,7 @@ Partial Class frmKundenblatt
Me.tbUSTV.Controls.Add(Me.tbcntrUSTV)
Me.tbUSTV.Location = New System.Drawing.Point(4, 25)
Me.tbUSTV.Name = "tbUSTV"
Me.tbUSTV.Size = New System.Drawing.Size(1630, 999)
Me.tbUSTV.Size = New System.Drawing.Size(1630, 1016)
Me.tbUSTV.TabIndex = 12
Me.tbUSTV.Text = "USTV"
Me.tbUSTV.UseVisualStyleBackColor = True
@@ -1975,7 +1975,7 @@ Partial Class frmKundenblatt
Me.tbcntrUSTV.Margin = New System.Windows.Forms.Padding(0)
Me.tbcntrUSTV.Name = "tbcntrUSTV"
Me.tbcntrUSTV.SelectedIndex = 0
Me.tbcntrUSTV.Size = New System.Drawing.Size(1630, 999)
Me.tbcntrUSTV.Size = New System.Drawing.Size(1630, 1016)
Me.tbcntrUSTV.TabIndex = 1
'
'tbUSTVDokumente
@@ -1988,7 +1988,7 @@ Partial Class frmKundenblatt
Me.tbUSTVDokumente.Controls.Add(Me.scanUSTVVollmachten)
Me.tbUSTVDokumente.Location = New System.Drawing.Point(4, 22)
Me.tbUSTVDokumente.Name = "tbUSTVDokumente"
Me.tbUSTVDokumente.Size = New System.Drawing.Size(1622, 973)
Me.tbUSTVDokumente.Size = New System.Drawing.Size(1622, 990)
Me.tbUSTVDokumente.TabIndex = 8
Me.tbUSTVDokumente.Text = "Dokumente"
Me.tbUSTVDokumente.UseVisualStyleBackColor = True
@@ -2086,7 +2086,7 @@ Partial Class frmKundenblatt
Me.tbUSTVAntrage.Location = New System.Drawing.Point(4, 22)
Me.tbUSTVAntrage.Name = "tbUSTVAntrage"
Me.tbUSTVAntrage.Padding = New System.Windows.Forms.Padding(3)
Me.tbUSTVAntrage.Size = New System.Drawing.Size(184, 45)
Me.tbUSTVAntrage.Size = New System.Drawing.Size(1622, 990)
Me.tbUSTVAntrage.TabIndex = 9
Me.tbUSTVAntrage.Text = "USTV-Anträge"
Me.tbUSTVAntrage.UseVisualStyleBackColor = True
@@ -2096,7 +2096,7 @@ Partial Class frmKundenblatt
Me.UsrCntlUSTV.Dock = System.Windows.Forms.DockStyle.Fill
Me.UsrCntlUSTV.Location = New System.Drawing.Point(3, 3)
Me.UsrCntlUSTV.Name = "UsrCntlUSTV"
Me.UsrCntlUSTV.Size = New System.Drawing.Size(178, 39)
Me.UsrCntlUSTV.Size = New System.Drawing.Size(1616, 984)
Me.UsrCntlUSTV.TabIndex = 0
'
'cntxtExcel
@@ -2380,7 +2380,7 @@ Partial Class frmKundenblatt
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.AutoScroll = True
Me.BackColor = System.Drawing.Color.White
Me.ClientSize = New System.Drawing.Size(1595, 1157)
Me.ClientSize = New System.Drawing.Size(1595, 1174)
Me.Controls.Add(Me.lblAbfVerb)
Me.Controls.Add(Me.btnAbfVerb)
Me.Controls.Add(Me.tbcntrMain)