LKWNr Prfung, ustva, etc.
This commit is contained in:
62
SDL/USTV/usrCntlUSTV.Designer.vb
generated
62
SDL/USTV/usrCntlUSTV.Designer.vb
generated
@@ -23,7 +23,7 @@ Partial Class usrCntlUSTV
|
||||
<System.Diagnostics.DebuggerStepThrough()>
|
||||
Private Sub InitializeComponent()
|
||||
Me.components = New System.ComponentModel.Container()
|
||||
Dim DataGridViewCellStyle2 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(usrCntlUSTV))
|
||||
Me.pnlFilter = New System.Windows.Forms.Panel()
|
||||
Me.dgvUSTV = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
|
||||
@@ -73,8 +73,8 @@ Partial Class usrCntlUSTV
|
||||
Me.Panel3 = New System.Windows.Forms.Panel()
|
||||
Me.btn3470 = New System.Windows.Forms.Button()
|
||||
Me.Button4 = New System.Windows.Forms.Button()
|
||||
Me.Button3 = New System.Windows.Forms.Button()
|
||||
Me.Button2 = New System.Windows.Forms.Button()
|
||||
Me.btnVZ = New System.Windows.Forms.Button()
|
||||
Me.btnFAPruefung = New System.Windows.Forms.Button()
|
||||
Me.btnVorschau = New System.Windows.Forms.Button()
|
||||
Me.btnMail = New System.Windows.Forms.Button()
|
||||
Me.btnPLOSEAlle = New System.Windows.Forms.Button()
|
||||
@@ -105,8 +105,8 @@ Partial Class usrCntlUSTV
|
||||
Me.dgvUSTV.AKTUALISIERUNGS_INTERVALL = -1
|
||||
Me.dgvUSTV.AllowUserToAddRows = False
|
||||
Me.dgvUSTV.AllowUserToDeleteRows = False
|
||||
DataGridViewCellStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Me.dgvUSTV.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
|
||||
DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Me.dgvUSTV.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
|
||||
Me.dgvUSTV.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
|
||||
Me.dgvUSTV.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.dgvUSTV.Location = New System.Drawing.Point(0, 108)
|
||||
@@ -780,8 +780,8 @@ Partial Class usrCntlUSTV
|
||||
Me.Panel3.AutoSize = True
|
||||
Me.Panel3.Controls.Add(Me.btn3470)
|
||||
Me.Panel3.Controls.Add(Me.Button4)
|
||||
Me.Panel3.Controls.Add(Me.Button3)
|
||||
Me.Panel3.Controls.Add(Me.Button2)
|
||||
Me.Panel3.Controls.Add(Me.btnVZ)
|
||||
Me.Panel3.Controls.Add(Me.btnFAPruefung)
|
||||
Me.Panel3.Controls.Add(Me.btnVorschau)
|
||||
Me.Panel3.Controls.Add(Me.btnMail)
|
||||
Me.Panel3.Controls.Add(Me.btnPLOSEAlle)
|
||||
@@ -823,31 +823,31 @@ Partial Class usrCntlUSTV
|
||||
Me.Button4.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageBeforeText
|
||||
Me.Button4.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Button3
|
||||
'btnVZ
|
||||
'
|
||||
Me.Button3.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button3.ForeColor = System.Drawing.Color.Black
|
||||
Me.Button3.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.Button3.Location = New System.Drawing.Point(982, 5)
|
||||
Me.Button3.Name = "Button3"
|
||||
Me.Button3.Size = New System.Drawing.Size(104, 39)
|
||||
Me.Button3.TabIndex = 28
|
||||
Me.Button3.Text = "Vorauszahlungen"
|
||||
Me.Button3.UseVisualStyleBackColor = True
|
||||
Me.btnVZ.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.btnVZ.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnVZ.ForeColor = System.Drawing.Color.Black
|
||||
Me.btnVZ.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.btnVZ.Location = New System.Drawing.Point(982, 5)
|
||||
Me.btnVZ.Name = "btnVZ"
|
||||
Me.btnVZ.Size = New System.Drawing.Size(104, 39)
|
||||
Me.btnVZ.TabIndex = 28
|
||||
Me.btnVZ.Text = "Vorauszahlungen"
|
||||
Me.btnVZ.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Button2
|
||||
'btnFAPruefung
|
||||
'
|
||||
Me.Button2.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button2.ForeColor = System.Drawing.Color.Black
|
||||
Me.Button2.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.Button2.Location = New System.Drawing.Point(1092, 6)
|
||||
Me.Button2.Name = "Button2"
|
||||
Me.Button2.Size = New System.Drawing.Size(92, 39)
|
||||
Me.Button2.TabIndex = 27
|
||||
Me.Button2.Text = "FA-Bestätig. prüfen"
|
||||
Me.Button2.UseVisualStyleBackColor = True
|
||||
Me.btnFAPruefung.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.btnFAPruefung.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnFAPruefung.ForeColor = System.Drawing.Color.Black
|
||||
Me.btnFAPruefung.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.btnFAPruefung.Location = New System.Drawing.Point(1092, 6)
|
||||
Me.btnFAPruefung.Name = "btnFAPruefung"
|
||||
Me.btnFAPruefung.Size = New System.Drawing.Size(92, 39)
|
||||
Me.btnFAPruefung.TabIndex = 27
|
||||
Me.btnFAPruefung.Text = "FA-Bestätig. prüfen"
|
||||
Me.btnFAPruefung.UseVisualStyleBackColor = True
|
||||
'
|
||||
'btnVorschau
|
||||
'
|
||||
@@ -999,7 +999,7 @@ Partial Class usrCntlUSTV
|
||||
Friend WithEvents txtOPSaldo As VERAG_PROG_ALLGEMEIN.MyTextBox
|
||||
Friend WithEvents Label11 As Label
|
||||
Friend WithEvents btnVorschau As Button
|
||||
Friend WithEvents Button2 As Button
|
||||
Friend WithEvents btnFAPruefung As Button
|
||||
Friend WithEvents lblVZhint As Label
|
||||
Friend WithEvents lblVZKunde As Label
|
||||
Friend WithEvents ContextMenuStrip3 As ContextMenuStrip
|
||||
@@ -1011,7 +1011,7 @@ Partial Class usrCntlUSTV
|
||||
Friend WithEvents MyComboBox1 As VERAG_PROG_ALLGEMEIN.MyComboBox
|
||||
Friend WithEvents Label12 As Label
|
||||
Friend WithEvents lblID As Label
|
||||
Friend WithEvents Button3 As Button
|
||||
Friend WithEvents btnVZ As Button
|
||||
Friend WithEvents Button4 As Button
|
||||
Friend WithEvents btn3470 As Button
|
||||
Friend WithEvents ContextMenuStrip4 As ContextMenuStrip
|
||||
|
||||
@@ -597,25 +597,25 @@ Public Class usrCntlUSTV
|
||||
|
||||
|
||||
|
||||
Private Sub btn2_Click(sender As Object, e As EventArgs) Handles Button2.Click
|
||||
Private Sub btnFAPruefung_Click(sender As Object, e As EventArgs) Handles btnFAPruefung.Click
|
||||
|
||||
|
||||
If Not ContextMenuStrip3.Items.ContainsKey("dgv") Then
|
||||
Dim dgv = New ToolStripMenuItem() With {.Text = "Übersicht anzeigen", .Name = "dgv", .Font = New Font(Me.Font.FontFamily, Me.Font.Size)}
|
||||
AddHandler dgv.Click, AddressOf mnuItem3_Clicked
|
||||
AddHandler dgv.Click, AddressOf mnuFAPruefungenClicked
|
||||
ContextMenuStrip3.Items.Add(dgv)
|
||||
End If
|
||||
|
||||
If Not ContextMenuStrip3.Items.ContainsKey("excel") Then
|
||||
Dim excel = New ToolStripMenuItem() With {.Text = "Excelauswertung starten", .Name = "excel", .Font = New Font(Me.Font.FontFamily, Me.Font.Size)}
|
||||
ContextMenuStrip3.Items.Add(excel)
|
||||
AddHandler excel.Click, AddressOf mnuItem3_Clicked
|
||||
AddHandler excel.Click, AddressOf mnuFAPruefungenClicked
|
||||
End If
|
||||
|
||||
|
||||
If Not ContextMenuStrip3.Items.ContainsKey("mail") Then
|
||||
Dim mail = New ToolStripMenuItem() With {.Text = "Email generieren", .Name = "mail", .Font = New Font(Me.Font.FontFamily, Me.Font.Size)}
|
||||
AddHandler mail.Click, AddressOf mnuItem3_Clicked
|
||||
AddHandler mail.Click, AddressOf mnuFAPruefungenClicked
|
||||
ContextMenuStrip3.Items.Add(mail)
|
||||
End If
|
||||
|
||||
@@ -632,7 +632,7 @@ Public Class usrCntlUSTV
|
||||
If Not ContextMenuStrip4.Items.ContainsKey("excel") Then
|
||||
Dim excel = New ToolStripMenuItem() With {.Text = "Excelauswertung starten", .Name = "excel", .Font = New Font(Me.Font.FontFamily, Me.Font.Size)}
|
||||
ContextMenuStrip4.Items.Add(excel)
|
||||
AddHandler excel.Click, AddressOf mnuItem4_Clicked
|
||||
AddHandler excel.Click, AddressOf mnu3470_Clicked
|
||||
End If
|
||||
|
||||
|
||||
@@ -640,12 +640,12 @@ Public Class usrCntlUSTV
|
||||
If Not ContextMenuStrip4.Items.ContainsKey("pdf") Then
|
||||
Dim pdf = New ToolStripMenuItem() With {.Text = "PDF", .Name = "pdf", .Font = New Font(Me.Font.FontFamily, Me.Font.Size)}
|
||||
ContextMenuStrip4.Items.Add(pdf)
|
||||
AddHandler pdf.Click, AddressOf mnuItem4_Clicked
|
||||
AddHandler pdf.Click, AddressOf mnu3470_Clicked
|
||||
End If
|
||||
|
||||
If Not ContextMenuStrip4.Items.ContainsKey("mail") Then
|
||||
Dim mail = New ToolStripMenuItem() With {.Text = "Email generieren", .Name = "mail", .Font = New Font(Me.Font.FontFamily, Me.Font.Size)}
|
||||
AddHandler mail.Click, AddressOf mnuItem4_Clicked
|
||||
AddHandler mail.Click, AddressOf mnu3470_Clicked
|
||||
ContextMenuStrip4.Items.Add(mail)
|
||||
End If
|
||||
|
||||
@@ -1185,7 +1185,7 @@ Public Class usrCntlUSTV
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub mnuItem3_Clicked(sender As Object, e As EventArgs)
|
||||
Private Sub mnuFAPruefungenClicked(sender As Object, e As EventArgs)
|
||||
|
||||
Dim item As ToolStripMenuItem = TryCast(sender, ToolStripMenuItem)
|
||||
|
||||
@@ -1226,6 +1226,7 @@ Public Class usrCntlUSTV
|
||||
Catch ex As System.Exception
|
||||
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
|
||||
End Try
|
||||
|
||||
|
||||
@@ -1386,7 +1387,7 @@ Public Class usrCntlUSTV
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub mnuItem4_Clicked(sender As Object, e As EventArgs)
|
||||
Private Sub mnu3470_Clicked(sender As Object, e As EventArgs)
|
||||
|
||||
Dim item As ToolStripMenuItem = TryCast(sender, ToolStripMenuItem)
|
||||
|
||||
@@ -1629,7 +1630,7 @@ Public Class usrCntlUSTV
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
|
||||
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles btnVZ.Click
|
||||
|
||||
Dim sqlKunde = ""
|
||||
Dim whereStr = ""
|
||||
|
||||
Reference in New Issue
Block a user