Projektdateien hinzufügen.
This commit is contained in:
242
UID/frmMain/frmMainV2.Designer.vb
generated
Normal file
242
UID/frmMain/frmMainV2.Designer.vb
generated
Normal file
@@ -0,0 +1,242 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class frmMainV2
|
||||
Inherits System.Windows.Forms.Form
|
||||
|
||||
'Das Formular ü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()
|
||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMainV2))
|
||||
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
|
||||
Me.PanOben = New System.Windows.Forms.Panel()
|
||||
Me.btnFrachtkosten = New System.Windows.Forms.Button()
|
||||
Me.btnAuftraege = New System.Windows.Forms.Button()
|
||||
Me.btnFirmen = New System.Windows.Forms.Button()
|
||||
Me.PanUnten = New System.Windows.Forms.Panel()
|
||||
Me.btnSchliessen = New System.Windows.Forms.Button()
|
||||
Me.lblVersion = New System.Windows.Forms.Label()
|
||||
Me.btnUpdate = New System.Windows.Forms.Button()
|
||||
Me.btnVollmacht = New System.Windows.Forms.Button()
|
||||
Me.btnCMR = New System.Windows.Forms.Button()
|
||||
Me.btnKasse = New System.Windows.Forms.Button()
|
||||
Me.PanMain = New System.Windows.Forms.Panel()
|
||||
Me.UidDataSet1 = New DISPO.UIDDataSet()
|
||||
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.PanOben.SuspendLayout()
|
||||
Me.PanUnten.SuspendLayout()
|
||||
CType(Me.UidDataSet1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'PictureBox1
|
||||
'
|
||||
Me.PictureBox1.BackgroundImage = Global.DISPO.My.Resources.Resources.dispo
|
||||
Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
|
||||
Me.PictureBox1.Location = New System.Drawing.Point(3, 3)
|
||||
Me.PictureBox1.Name = "PictureBox1"
|
||||
Me.PictureBox1.Size = New System.Drawing.Size(209, 41)
|
||||
Me.PictureBox1.TabIndex = 14
|
||||
Me.PictureBox1.TabStop = False
|
||||
'
|
||||
'PanOben
|
||||
'
|
||||
Me.PanOben.Controls.Add(Me.btnFrachtkosten)
|
||||
Me.PanOben.Controls.Add(Me.btnAuftraege)
|
||||
Me.PanOben.Controls.Add(Me.btnFirmen)
|
||||
Me.PanOben.Controls.Add(Me.PictureBox1)
|
||||
Me.PanOben.Dock = System.Windows.Forms.DockStyle.Top
|
||||
Me.PanOben.Location = New System.Drawing.Point(0, 0)
|
||||
Me.PanOben.Name = "PanOben"
|
||||
Me.PanOben.Size = New System.Drawing.Size(1420, 48)
|
||||
Me.PanOben.TabIndex = 15
|
||||
'
|
||||
'btnFrachtkosten
|
||||
'
|
||||
Me.btnFrachtkosten.FlatAppearance.CheckedBackColor = System.Drawing.Color.Silver
|
||||
Me.btnFrachtkosten.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnFrachtkosten.Font = New System.Drawing.Font("Arial", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.btnFrachtkosten.Image = CType(resources.GetObject("btnFrachtkosten.Image"), System.Drawing.Image)
|
||||
Me.btnFrachtkosten.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
|
||||
Me.btnFrachtkosten.Location = New System.Drawing.Point(506, 4)
|
||||
Me.btnFrachtkosten.Name = "btnFrachtkosten"
|
||||
Me.btnFrachtkosten.Size = New System.Drawing.Size(120, 40)
|
||||
Me.btnFrachtkosten.TabIndex = 19
|
||||
Me.btnFrachtkosten.Text = "Frachtkosten"
|
||||
Me.btnFrachtkosten.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.btnFrachtkosten.UseVisualStyleBackColor = True
|
||||
'
|
||||
'btnAuftraege
|
||||
'
|
||||
Me.btnAuftraege.FlatAppearance.CheckedBackColor = System.Drawing.Color.Silver
|
||||
Me.btnAuftraege.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnAuftraege.Font = New System.Drawing.Font("Arial", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.btnAuftraege.Image = CType(resources.GetObject("btnAuftraege.Image"), System.Drawing.Image)
|
||||
Me.btnAuftraege.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
|
||||
Me.btnAuftraege.Location = New System.Drawing.Point(380, 4)
|
||||
Me.btnAuftraege.Name = "btnAuftraege"
|
||||
Me.btnAuftraege.Size = New System.Drawing.Size(120, 40)
|
||||
Me.btnAuftraege.TabIndex = 18
|
||||
Me.btnAuftraege.Text = "Aufträge"
|
||||
Me.btnAuftraege.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.btnAuftraege.UseVisualStyleBackColor = True
|
||||
'
|
||||
'btnFirmen
|
||||
'
|
||||
Me.btnFirmen.FlatAppearance.CheckedBackColor = System.Drawing.Color.Silver
|
||||
Me.btnFirmen.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnFirmen.Font = New System.Drawing.Font("Arial", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.btnFirmen.Image = CType(resources.GetObject("btnFirmen.Image"), System.Drawing.Image)
|
||||
Me.btnFirmen.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
|
||||
Me.btnFirmen.Location = New System.Drawing.Point(254, 4)
|
||||
Me.btnFirmen.Name = "btnFirmen"
|
||||
Me.btnFirmen.Size = New System.Drawing.Size(120, 40)
|
||||
Me.btnFirmen.TabIndex = 17
|
||||
Me.btnFirmen.Text = "Kunden"
|
||||
Me.btnFirmen.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.btnFirmen.UseVisualStyleBackColor = True
|
||||
'
|
||||
'PanUnten
|
||||
'
|
||||
Me.PanUnten.Controls.Add(Me.btnSchliessen)
|
||||
Me.PanUnten.Controls.Add(Me.lblVersion)
|
||||
Me.PanUnten.Controls.Add(Me.btnUpdate)
|
||||
Me.PanUnten.Controls.Add(Me.btnVollmacht)
|
||||
Me.PanUnten.Controls.Add(Me.btnCMR)
|
||||
Me.PanUnten.Controls.Add(Me.btnKasse)
|
||||
Me.PanUnten.Dock = System.Windows.Forms.DockStyle.Bottom
|
||||
Me.PanUnten.Location = New System.Drawing.Point(0, 879)
|
||||
Me.PanUnten.Name = "PanUnten"
|
||||
Me.PanUnten.Size = New System.Drawing.Size(1420, 62)
|
||||
Me.PanUnten.TabIndex = 16
|
||||
'
|
||||
'btnSchliessen
|
||||
'
|
||||
Me.btnSchliessen.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.btnSchliessen.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnSchliessen.Location = New System.Drawing.Point(1328, 27)
|
||||
Me.btnSchliessen.Name = "btnSchliessen"
|
||||
Me.btnSchliessen.Size = New System.Drawing.Size(80, 23)
|
||||
Me.btnSchliessen.TabIndex = 34
|
||||
Me.btnSchliessen.Text = "Schließen"
|
||||
Me.btnSchliessen.UseVisualStyleBackColor = True
|
||||
'
|
||||
'lblVersion
|
||||
'
|
||||
Me.lblVersion.AutoSize = True
|
||||
Me.lblVersion.Cursor = System.Windows.Forms.Cursors.Hand
|
||||
Me.lblVersion.Location = New System.Drawing.Point(454, 32)
|
||||
Me.lblVersion.Name = "lblVersion"
|
||||
Me.lblVersion.Size = New System.Drawing.Size(72, 13)
|
||||
Me.lblVersion.TabIndex = 33
|
||||
Me.lblVersion.Text = "Version: 0.0.0"
|
||||
'
|
||||
'btnUpdate
|
||||
'
|
||||
Me.btnUpdate.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnUpdate.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.btnUpdate.Location = New System.Drawing.Point(546, 27)
|
||||
Me.btnUpdate.Name = "btnUpdate"
|
||||
Me.btnUpdate.Size = New System.Drawing.Size(80, 23)
|
||||
Me.btnUpdate.TabIndex = 28
|
||||
Me.btnUpdate.Text = "Update"
|
||||
Me.btnUpdate.UseVisualStyleBackColor = True
|
||||
'
|
||||
'btnVollmacht
|
||||
'
|
||||
Me.btnVollmacht.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnVollmacht.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.btnVollmacht.Location = New System.Drawing.Point(184, 27)
|
||||
Me.btnVollmacht.Name = "btnVollmacht"
|
||||
Me.btnVollmacht.Size = New System.Drawing.Size(80, 23)
|
||||
Me.btnVollmacht.TabIndex = 32
|
||||
Me.btnVollmacht.Text = "Vollmacht"
|
||||
Me.btnVollmacht.UseVisualStyleBackColor = True
|
||||
'
|
||||
'btnCMR
|
||||
'
|
||||
Me.btnCMR.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnCMR.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.btnCMR.Location = New System.Drawing.Point(98, 27)
|
||||
Me.btnCMR.Name = "btnCMR"
|
||||
Me.btnCMR.Size = New System.Drawing.Size(80, 23)
|
||||
Me.btnCMR.TabIndex = 29
|
||||
Me.btnCMR.Text = "CMR"
|
||||
Me.btnCMR.UseVisualStyleBackColor = True
|
||||
'
|
||||
'btnKasse
|
||||
'
|
||||
Me.btnKasse.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnKasse.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.btnKasse.Location = New System.Drawing.Point(12, 27)
|
||||
Me.btnKasse.Name = "btnKasse"
|
||||
Me.btnKasse.Size = New System.Drawing.Size(80, 23)
|
||||
Me.btnKasse.TabIndex = 30
|
||||
Me.btnKasse.Text = "Kasse"
|
||||
Me.btnKasse.UseVisualStyleBackColor = True
|
||||
'
|
||||
'PanMain
|
||||
'
|
||||
Me.PanMain.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.PanMain.Location = New System.Drawing.Point(0, 48)
|
||||
Me.PanMain.Margin = New System.Windows.Forms.Padding(0)
|
||||
Me.PanMain.Name = "PanMain"
|
||||
Me.PanMain.Size = New System.Drawing.Size(1420, 831)
|
||||
Me.PanMain.TabIndex = 17
|
||||
'
|
||||
'UidDataSet1
|
||||
'
|
||||
Me.UidDataSet1.DataSetName = "UIDDataSet"
|
||||
Me.UidDataSet1.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
|
||||
'
|
||||
'frmMainV2
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.BackColor = System.Drawing.Color.White
|
||||
Me.ClientSize = New System.Drawing.Size(1420, 941)
|
||||
Me.Controls.Add(Me.PanMain)
|
||||
Me.Controls.Add(Me.PanUnten)
|
||||
Me.Controls.Add(Me.PanOben)
|
||||
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
||||
Me.MinimumSize = New System.Drawing.Size(750, 300)
|
||||
Me.Name = "frmMainV2"
|
||||
Me.Text = "DISPO"
|
||||
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.PanOben.ResumeLayout(False)
|
||||
Me.PanUnten.ResumeLayout(False)
|
||||
Me.PanUnten.PerformLayout()
|
||||
CType(Me.UidDataSet1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
|
||||
Friend WithEvents PictureBox1 As PictureBox
|
||||
Friend WithEvents PanOben As Panel
|
||||
Friend WithEvents btnFirmen As Button
|
||||
Friend WithEvents btnAuftraege As Button
|
||||
Friend WithEvents btnFrachtkosten As Button
|
||||
Friend WithEvents PanUnten As Panel
|
||||
Friend WithEvents btnUpdate As Button
|
||||
Friend WithEvents btnVollmacht As Button
|
||||
Friend WithEvents btnCMR As Button
|
||||
Friend WithEvents btnKasse As Button
|
||||
Friend WithEvents PanMain As Panel
|
||||
Friend WithEvents lblVersion As Label
|
||||
Friend WithEvents btnSchliessen As Button
|
||||
Friend WithEvents UidDataSet1 As UIDDataSet
|
||||
End Class
|
||||
1048
UID/frmMain/frmMainV2.resx
Normal file
1048
UID/frmMain/frmMainV2.resx
Normal file
File diff suppressed because it is too large
Load Diff
61
UID/frmMain/frmMainV2.vb
Normal file
61
UID/frmMain/frmMainV2.vb
Normal file
@@ -0,0 +1,61 @@
|
||||
Public Class frmMainV2
|
||||
|
||||
|
||||
Private Sub UserPanelSwitcher_Click(sender As Button, e As EventArgs) Handles btnFirmen.Click, btnAuftraege.Click, btnFrachtkosten.Click
|
||||
|
||||
btnFirmen.BackColor = Color.White
|
||||
btnAuftraege.BackColor = Color.White
|
||||
btnFrachtkosten.BackColor = Color.White
|
||||
'btnTrips.BackColor = Color.White
|
||||
|
||||
sender.BackColor = Color.RoyalBlue
|
||||
|
||||
PanMain.Controls.Clear()
|
||||
If sender Is btnAuftraege Then Dim usrcntrl As New usrcntlAuftraege : usrcntrl.Dock = DockStyle.Fill : PanMain.Controls.Add(usrcntrl)
|
||||
If sender Is btnFirmen Then Dim usrcntrl As New usrcntlFirmen : usrcntrl.Dock = DockStyle.Fill : PanMain.Controls.Add(usrcntrl)
|
||||
If sender Is btnFrachtkosten Then Dim usrcntrl As New usrcntlFrachtkosten : usrcntrl.Dock = DockStyle.Fill : PanMain.Controls.Add(usrcntrl)
|
||||
' If sender Is btnTrips Then Dim usrcntrl As New usrcntlTrips : usrcntrl.Dock = DockStyle.Fill : PanMain.Controls.Add(usrcntrl)
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub frmMain_Disposed(sender As Object, e As EventArgs) Handles Me.Disposed
|
||||
frmLogin.Close()
|
||||
End Sub
|
||||
|
||||
Private Sub btnCMR_Click(sender As Object, e As EventArgs) Handles btnCMR.Click
|
||||
Me.Cursor = Cursors.WaitCursor
|
||||
Dim eh As New SDL.frmCMR()
|
||||
eh.Show()
|
||||
Me.Cursor = Cursors.Default
|
||||
' End If
|
||||
|
||||
Exit Sub
|
||||
frmCMR.Show()
|
||||
End Sub
|
||||
|
||||
Private Sub btnKasse_Click(sender As Object, e As EventArgs) Handles btnKasse.Click
|
||||
Dim s As New SDL.frmSecureLoginKassenbuch
|
||||
s.openKB = True
|
||||
s.disableCBO = False
|
||||
s.ShowDialog(Me)
|
||||
End Sub
|
||||
|
||||
Private Sub btnVollmacht_Click(sender As Object, e As EventArgs) Handles btnVollmacht.Click
|
||||
SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.VERAG_EXPORT, -1, , True)
|
||||
End Sub
|
||||
|
||||
Private Sub frmMainV2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
||||
lblVersion.Text = "Version: " & My.Resources.Version
|
||||
btnAuftraege.PerformClick()
|
||||
End Sub
|
||||
|
||||
Private Sub btnSchliessen_Click(sender As Object, e As EventArgs) Handles btnSchliessen.Click
|
||||
Application.Exit()
|
||||
End Sub
|
||||
|
||||
Private Sub btnUpdate_Click(sender As Object, e As EventArgs) Handles btnUpdate.Click
|
||||
frmLogin.UpdateDISPO()
|
||||
End Sub
|
||||
|
||||
|
||||
End Class
|
||||
799
UID/frmMain/usrcntlAuftraege.Designer.vb
generated
Normal file
799
UID/frmMain/usrcntlAuftraege.Designer.vb
generated
Normal file
@@ -0,0 +1,799 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
|
||||
Partial Class usrcntlAuftraege
|
||||
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()
|
||||
Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Me.PanTop = New System.Windows.Forms.Panel()
|
||||
Me.PanOben = New System.Windows.Forms.Panel()
|
||||
Me.btnReset = New System.Windows.Forms.Button()
|
||||
Me.btnDetailSuche = New System.Windows.Forms.Button()
|
||||
Me.Label4 = New System.Windows.Forms.Label()
|
||||
Me.pnlFilterAuftrag = New System.Windows.Forms.Panel()
|
||||
Me.cboFiliale = New VERAG_PROG_ALLGEMEIN.MyComboBox()
|
||||
Me.Label2 = New System.Windows.Forms.Label()
|
||||
Me.cboAuftragsart = New VERAG_PROG_ALLGEMEIN.MyComboBox()
|
||||
Me.Label1 = New System.Windows.Forms.Label()
|
||||
Me.txtSuche = New System.Windows.Forms.TextBox()
|
||||
Me.Panel1 = New System.Windows.Forms.Panel()
|
||||
Me.PanButtons = New System.Windows.Forms.Panel()
|
||||
Me.btnTrip = New System.Windows.Forms.Button()
|
||||
Me.btnSuchStat = New System.Windows.Forms.Button()
|
||||
Me.btnSuchAuswertung = New System.Windows.Forms.Button()
|
||||
Me.btnAuswertung = New System.Windows.Forms.Button()
|
||||
Me.btnDuplicate = New System.Windows.Forms.Button()
|
||||
Me.btnDel = New System.Windows.Forms.Button()
|
||||
Me.btnChange = New System.Windows.Forms.Button()
|
||||
Me.btnNew = New System.Windows.Forms.Button()
|
||||
Me.lblMs = New System.Windows.Forms.Label()
|
||||
Me.lblAnzahl = New System.Windows.Forms.Label()
|
||||
Me.dgvAuftraege = New System.Windows.Forms.DataGridView()
|
||||
Me.txtAuftraggeber = New System.Windows.Forms.TextBox()
|
||||
Me.txtFrachtfuehrerBis = New System.Windows.Forms.TextBox()
|
||||
Me.txtFrachtfuehrerAb = New System.Windows.Forms.TextBox()
|
||||
Me.txtTransportunternehmen = New System.Windows.Forms.TextBox()
|
||||
Me.txtLadestelle = New System.Windows.Forms.TextBox()
|
||||
Me.txtEntladeStelle = New System.Windows.Forms.TextBox()
|
||||
Me.Label5 = New System.Windows.Forms.Label()
|
||||
Me.Label6 = New System.Windows.Forms.Label()
|
||||
Me.Label7 = New System.Windows.Forms.Label()
|
||||
Me.Label8 = New System.Windows.Forms.Label()
|
||||
Me.PnlDatum = New System.Windows.Forms.Panel()
|
||||
Me.CmdAlle = New System.Windows.Forms.Button()
|
||||
Me.CmdJahrPlus = New System.Windows.Forms.Button()
|
||||
Me.DateBIS = New System.Windows.Forms.DateTimePicker()
|
||||
Me.CmdJahrMinus = New System.Windows.Forms.Button()
|
||||
Me.DateVON = New System.Windows.Forms.DateTimePicker()
|
||||
Me.CmdMonatPlus = New System.Windows.Forms.Button()
|
||||
Me.LblVon = New System.Windows.Forms.Label()
|
||||
Me.CmdMonatMinus = New System.Windows.Forms.Button()
|
||||
Me.LblBis = New System.Windows.Forms.Label()
|
||||
Me.CmdTagPlus = New System.Windows.Forms.Button()
|
||||
Me.CmdHeute = New System.Windows.Forms.Button()
|
||||
Me.CmdTagMinus = New System.Windows.Forms.Button()
|
||||
Me.CmdMonat = New System.Windows.Forms.Button()
|
||||
Me.CmdJahr = New System.Windows.Forms.Button()
|
||||
Me.Label9 = New System.Windows.Forms.Label()
|
||||
Me.Label10 = New System.Windows.Forms.Label()
|
||||
Me.cbxAbliefer = New System.Windows.Forms.CheckBox()
|
||||
Me.SplitContainer1 = New System.Windows.Forms.SplitContainer()
|
||||
Me.btnAddTo = New System.Windows.Forms.Button()
|
||||
Me.PanTop.SuspendLayout()
|
||||
Me.PanOben.SuspendLayout()
|
||||
Me.pnlFilterAuftrag.SuspendLayout()
|
||||
Me.PanButtons.SuspendLayout()
|
||||
CType(Me.dgvAuftraege, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.PnlDatum.SuspendLayout()
|
||||
CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SplitContainer1.Panel1.SuspendLayout()
|
||||
Me.SplitContainer1.Panel2.SuspendLayout()
|
||||
Me.SplitContainer1.SuspendLayout()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'PanTop
|
||||
'
|
||||
Me.PanTop.BackColor = System.Drawing.Color.White
|
||||
Me.PanTop.Controls.Add(Me.PanOben)
|
||||
Me.PanTop.Controls.Add(Me.Panel1)
|
||||
Me.PanTop.Dock = System.Windows.Forms.DockStyle.Top
|
||||
Me.PanTop.Location = New System.Drawing.Point(0, 0)
|
||||
Me.PanTop.Margin = New System.Windows.Forms.Padding(0)
|
||||
Me.PanTop.Name = "PanTop"
|
||||
Me.PanTop.Size = New System.Drawing.Size(1093, 84)
|
||||
Me.PanTop.TabIndex = 3
|
||||
'
|
||||
'PanOben
|
||||
'
|
||||
Me.PanOben.Controls.Add(Me.btnReset)
|
||||
Me.PanOben.Controls.Add(Me.btnDetailSuche)
|
||||
Me.PanOben.Controls.Add(Me.Label4)
|
||||
Me.PanOben.Controls.Add(Me.pnlFilterAuftrag)
|
||||
Me.PanOben.Controls.Add(Me.txtSuche)
|
||||
Me.PanOben.Location = New System.Drawing.Point(0, 0)
|
||||
Me.PanOben.Margin = New System.Windows.Forms.Padding(0)
|
||||
Me.PanOben.Name = "PanOben"
|
||||
Me.PanOben.Size = New System.Drawing.Size(854, 104)
|
||||
Me.PanOben.TabIndex = 1
|
||||
'
|
||||
'btnReset
|
||||
'
|
||||
Me.btnReset.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnReset.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.btnReset.Location = New System.Drawing.Point(458, 15)
|
||||
Me.btnReset.Name = "btnReset"
|
||||
Me.btnReset.Size = New System.Drawing.Size(162, 23)
|
||||
Me.btnReset.TabIndex = 33
|
||||
Me.btnReset.Text = "Reset"
|
||||
Me.btnReset.UseVisualStyleBackColor = True
|
||||
'
|
||||
'btnDetailSuche
|
||||
'
|
||||
Me.btnDetailSuche.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnDetailSuche.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.btnDetailSuche.Location = New System.Drawing.Point(458, 45)
|
||||
Me.btnDetailSuche.Name = "btnDetailSuche"
|
||||
Me.btnDetailSuche.Size = New System.Drawing.Size(162, 23)
|
||||
Me.btnDetailSuche.TabIndex = 32
|
||||
Me.btnDetailSuche.Text = "Detailsuche"
|
||||
Me.btnDetailSuche.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Label4
|
||||
'
|
||||
Me.Label4.AutoSize = True
|
||||
Me.Label4.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label4.Location = New System.Drawing.Point(33, 19)
|
||||
Me.Label4.Name = "Label4"
|
||||
Me.Label4.Size = New System.Drawing.Size(42, 14)
|
||||
Me.Label4.TabIndex = 44
|
||||
Me.Label4.Text = "PosNr."
|
||||
'
|
||||
'pnlFilterAuftrag
|
||||
'
|
||||
Me.pnlFilterAuftrag.Controls.Add(Me.cboFiliale)
|
||||
Me.pnlFilterAuftrag.Controls.Add(Me.Label2)
|
||||
Me.pnlFilterAuftrag.Controls.Add(Me.cboAuftragsart)
|
||||
Me.pnlFilterAuftrag.Controls.Add(Me.Label1)
|
||||
Me.pnlFilterAuftrag.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.pnlFilterAuftrag.Location = New System.Drawing.Point(45, 42)
|
||||
Me.pnlFilterAuftrag.Name = "pnlFilterAuftrag"
|
||||
Me.pnlFilterAuftrag.Size = New System.Drawing.Size(375, 29)
|
||||
Me.pnlFilterAuftrag.TabIndex = 43
|
||||
'
|
||||
'cboFiliale
|
||||
'
|
||||
Me.cboFiliale._allowedValuesFreiText = Nothing
|
||||
Me.cboFiliale._allowFreiText = False
|
||||
Me.cboFiliale._value = ""
|
||||
Me.cboFiliale.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
|
||||
Me.cboFiliale.FormattingEnabled = True
|
||||
Me.cboFiliale.Location = New System.Drawing.Point(223, 2)
|
||||
Me.cboFiliale.Margin = New System.Windows.Forms.Padding(2)
|
||||
Me.cboFiliale.Name = "cboFiliale"
|
||||
Me.cboFiliale.Size = New System.Drawing.Size(104, 24)
|
||||
Me.cboFiliale.TabIndex = 27
|
||||
'
|
||||
'Label2
|
||||
'
|
||||
Me.Label2.AutoSize = True
|
||||
Me.Label2.Cursor = System.Windows.Forms.Cursors.Hand
|
||||
Me.Label2.Location = New System.Drawing.Point(182, 7)
|
||||
Me.Label2.Name = "Label2"
|
||||
Me.Label2.Size = New System.Drawing.Size(41, 14)
|
||||
Me.Label2.TabIndex = 26
|
||||
Me.Label2.Text = "Filiale:"
|
||||
'
|
||||
'cboAuftragsart
|
||||
'
|
||||
Me.cboAuftragsart._allowedValuesFreiText = Nothing
|
||||
Me.cboAuftragsart._allowFreiText = False
|
||||
Me.cboAuftragsart._value = ""
|
||||
Me.cboAuftragsart.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
|
||||
Me.cboAuftragsart.FormattingEnabled = True
|
||||
Me.cboAuftragsart.Location = New System.Drawing.Point(32, 2)
|
||||
Me.cboAuftragsart.Margin = New System.Windows.Forms.Padding(2)
|
||||
Me.cboAuftragsart.Name = "cboAuftragsart"
|
||||
Me.cboAuftragsart.Size = New System.Drawing.Size(130, 24)
|
||||
Me.cboAuftragsart.TabIndex = 25
|
||||
'
|
||||
'Label1
|
||||
'
|
||||
Me.Label1.AutoSize = True
|
||||
Me.Label1.Cursor = System.Windows.Forms.Cursors.Hand
|
||||
Me.Label1.Location = New System.Drawing.Point(3, 7)
|
||||
Me.Label1.Name = "Label1"
|
||||
Me.Label1.Size = New System.Drawing.Size(27, 14)
|
||||
Me.Label1.TabIndex = 24
|
||||
Me.Label1.Text = "Art:"
|
||||
'
|
||||
'txtSuche
|
||||
'
|
||||
Me.txtSuche.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.txtSuche.Location = New System.Drawing.Point(77, 16)
|
||||
Me.txtSuche.Name = "txtSuche"
|
||||
Me.txtSuche.Size = New System.Drawing.Size(309, 20)
|
||||
Me.txtSuche.TabIndex = 42
|
||||
'
|
||||
'Panel1
|
||||
'
|
||||
Me.Panel1.BackColor = System.Drawing.Color.Transparent
|
||||
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Right
|
||||
Me.Panel1.Location = New System.Drawing.Point(859, 0)
|
||||
Me.Panel1.Name = "Panel1"
|
||||
Me.Panel1.Size = New System.Drawing.Size(234, 84)
|
||||
Me.Panel1.TabIndex = 0
|
||||
'
|
||||
'PanButtons
|
||||
'
|
||||
Me.PanButtons.Controls.Add(Me.btnAddTo)
|
||||
Me.PanButtons.Controls.Add(Me.btnTrip)
|
||||
Me.PanButtons.Controls.Add(Me.btnSuchStat)
|
||||
Me.PanButtons.Controls.Add(Me.btnSuchAuswertung)
|
||||
Me.PanButtons.Controls.Add(Me.btnAuswertung)
|
||||
Me.PanButtons.Controls.Add(Me.btnDuplicate)
|
||||
Me.PanButtons.Controls.Add(Me.btnDel)
|
||||
Me.PanButtons.Controls.Add(Me.btnChange)
|
||||
Me.PanButtons.Controls.Add(Me.btnNew)
|
||||
Me.PanButtons.Controls.Add(Me.lblMs)
|
||||
Me.PanButtons.Controls.Add(Me.lblAnzahl)
|
||||
Me.PanButtons.Dock = System.Windows.Forms.DockStyle.Right
|
||||
Me.PanButtons.Location = New System.Drawing.Point(994, 84)
|
||||
Me.PanButtons.Name = "PanButtons"
|
||||
Me.PanButtons.Size = New System.Drawing.Size(99, 711)
|
||||
Me.PanButtons.TabIndex = 1
|
||||
'
|
||||
'btnTrip
|
||||
'
|
||||
Me.btnTrip.Anchor = System.Windows.Forms.AnchorStyles.Right
|
||||
Me.btnTrip.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnTrip.Image = Global.DISPO.My.Resources.Resources.stift
|
||||
Me.btnTrip.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
|
||||
Me.btnTrip.Location = New System.Drawing.Point(5, 312)
|
||||
Me.btnTrip.Name = "btnTrip"
|
||||
Me.btnTrip.Size = New System.Drawing.Size(91, 33)
|
||||
Me.btnTrip.TabIndex = 35
|
||||
Me.btnTrip.Text = "Trips"
|
||||
Me.btnTrip.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.btnTrip.UseVisualStyleBackColor = True
|
||||
'
|
||||
'btnSuchStat
|
||||
'
|
||||
Me.btnSuchStat.Anchor = System.Windows.Forms.AnchorStyles.Right
|
||||
Me.btnSuchStat.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnSuchStat.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.btnSuchStat.Location = New System.Drawing.Point(5, 490)
|
||||
Me.btnSuchStat.Name = "btnSuchStat"
|
||||
Me.btnSuchStat.Size = New System.Drawing.Size(91, 46)
|
||||
Me.btnSuchStat.TabIndex = 34
|
||||
Me.btnSuchStat.Text = "Auftragsstat. aus Ansicht"
|
||||
Me.btnSuchStat.UseVisualStyleBackColor = True
|
||||
'
|
||||
'btnSuchAuswertung
|
||||
'
|
||||
Me.btnSuchAuswertung.Anchor = System.Windows.Forms.AnchorStyles.Right
|
||||
Me.btnSuchAuswertung.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnSuchAuswertung.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.btnSuchAuswertung.Location = New System.Drawing.Point(5, 438)
|
||||
Me.btnSuchAuswertung.Name = "btnSuchAuswertung"
|
||||
Me.btnSuchAuswertung.Size = New System.Drawing.Size(91, 46)
|
||||
Me.btnSuchAuswertung.TabIndex = 33
|
||||
Me.btnSuchAuswertung.Text = "Auswertung aus Ansicht"
|
||||
Me.btnSuchAuswertung.UseVisualStyleBackColor = True
|
||||
'
|
||||
'btnAuswertung
|
||||
'
|
||||
Me.btnAuswertung.Anchor = System.Windows.Forms.AnchorStyles.Right
|
||||
Me.btnAuswertung.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnAuswertung.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.btnAuswertung.Location = New System.Drawing.Point(5, 409)
|
||||
Me.btnAuswertung.Name = "btnAuswertung"
|
||||
Me.btnAuswertung.Size = New System.Drawing.Size(91, 23)
|
||||
Me.btnAuswertung.TabIndex = 32
|
||||
Me.btnAuswertung.Text = "Auswertung"
|
||||
Me.btnAuswertung.UseVisualStyleBackColor = True
|
||||
'
|
||||
'btnDuplicate
|
||||
'
|
||||
Me.btnDuplicate.Anchor = System.Windows.Forms.AnchorStyles.Right
|
||||
Me.btnDuplicate.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnDuplicate.Location = New System.Drawing.Point(5, 260)
|
||||
Me.btnDuplicate.Name = "btnDuplicate"
|
||||
Me.btnDuplicate.Size = New System.Drawing.Size(91, 33)
|
||||
Me.btnDuplicate.TabIndex = 26
|
||||
Me.btnDuplicate.Text = "Duplizieren"
|
||||
Me.btnDuplicate.UseVisualStyleBackColor = True
|
||||
'
|
||||
'btnDel
|
||||
'
|
||||
Me.btnDel.Anchor = System.Windows.Forms.AnchorStyles.Right
|
||||
Me.btnDel.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnDel.Image = Global.DISPO.My.Resources.Resources.del
|
||||
Me.btnDel.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
|
||||
Me.btnDel.Location = New System.Drawing.Point(5, 221)
|
||||
Me.btnDel.Name = "btnDel"
|
||||
Me.btnDel.Size = New System.Drawing.Size(91, 33)
|
||||
Me.btnDel.TabIndex = 25
|
||||
Me.btnDel.Text = "Löschen"
|
||||
Me.btnDel.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.btnDel.UseVisualStyleBackColor = True
|
||||
'
|
||||
'btnChange
|
||||
'
|
||||
Me.btnChange.Anchor = System.Windows.Forms.AnchorStyles.Right
|
||||
Me.btnChange.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnChange.Image = Global.DISPO.My.Resources.Resources.stift
|
||||
Me.btnChange.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
|
||||
Me.btnChange.Location = New System.Drawing.Point(5, 169)
|
||||
Me.btnChange.Name = "btnChange"
|
||||
Me.btnChange.Size = New System.Drawing.Size(91, 33)
|
||||
Me.btnChange.TabIndex = 24
|
||||
Me.btnChange.Text = "Ändern"
|
||||
Me.btnChange.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.btnChange.UseVisualStyleBackColor = True
|
||||
'
|
||||
'btnNew
|
||||
'
|
||||
Me.btnNew.Anchor = System.Windows.Forms.AnchorStyles.Right
|
||||
Me.btnNew.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnNew.Image = Global.DISPO.My.Resources.Resources.plus
|
||||
Me.btnNew.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
|
||||
Me.btnNew.Location = New System.Drawing.Point(5, 130)
|
||||
Me.btnNew.Name = "btnNew"
|
||||
Me.btnNew.Size = New System.Drawing.Size(91, 33)
|
||||
Me.btnNew.TabIndex = 23
|
||||
Me.btnNew.Text = "Neu"
|
||||
Me.btnNew.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.btnNew.UseVisualStyleBackColor = True
|
||||
'
|
||||
'lblMs
|
||||
'
|
||||
Me.lblMs.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.lblMs.AutoSize = True
|
||||
Me.lblMs.Location = New System.Drawing.Point(3, 698)
|
||||
Me.lblMs.Name = "lblMs"
|
||||
Me.lblMs.Size = New System.Drawing.Size(47, 13)
|
||||
Me.lblMs.TabIndex = 2
|
||||
Me.lblMs.Text = "Ladezeit"
|
||||
'
|
||||
'lblAnzahl
|
||||
'
|
||||
Me.lblAnzahl.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.lblAnzahl.AutoSize = True
|
||||
Me.lblAnzahl.Location = New System.Drawing.Point(3, 685)
|
||||
Me.lblAnzahl.Name = "lblAnzahl"
|
||||
Me.lblAnzahl.Size = New System.Drawing.Size(39, 13)
|
||||
Me.lblAnzahl.TabIndex = 1
|
||||
Me.lblAnzahl.Text = "Anzahl"
|
||||
'
|
||||
'dgvAuftraege
|
||||
'
|
||||
Me.dgvAuftraege.AllowUserToAddRows = False
|
||||
Me.dgvAuftraege.AllowUserToDeleteRows = False
|
||||
DataGridViewCellStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Me.dgvAuftraege.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
|
||||
Me.dgvAuftraege.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
|
||||
Me.dgvAuftraege.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.dgvAuftraege.Location = New System.Drawing.Point(0, 0)
|
||||
Me.dgvAuftraege.Margin = New System.Windows.Forms.Padding(0)
|
||||
Me.dgvAuftraege.Name = "dgvAuftraege"
|
||||
Me.dgvAuftraege.ReadOnly = True
|
||||
Me.dgvAuftraege.Size = New System.Drawing.Size(994, 535)
|
||||
Me.dgvAuftraege.TabIndex = 0
|
||||
'
|
||||
'txtAuftraggeber
|
||||
'
|
||||
Me.txtAuftraggeber.Location = New System.Drawing.Point(127, 16)
|
||||
Me.txtAuftraggeber.Name = "txtAuftraggeber"
|
||||
Me.txtAuftraggeber.Size = New System.Drawing.Size(309, 20)
|
||||
Me.txtAuftraggeber.TabIndex = 44
|
||||
'
|
||||
'txtFrachtfuehrerBis
|
||||
'
|
||||
Me.txtFrachtfuehrerBis.Location = New System.Drawing.Point(127, 42)
|
||||
Me.txtFrachtfuehrerBis.Name = "txtFrachtfuehrerBis"
|
||||
Me.txtFrachtfuehrerBis.Size = New System.Drawing.Size(309, 20)
|
||||
Me.txtFrachtfuehrerBis.TabIndex = 45
|
||||
'
|
||||
'txtFrachtfuehrerAb
|
||||
'
|
||||
Me.txtFrachtfuehrerAb.Location = New System.Drawing.Point(127, 68)
|
||||
Me.txtFrachtfuehrerAb.Name = "txtFrachtfuehrerAb"
|
||||
Me.txtFrachtfuehrerAb.Size = New System.Drawing.Size(309, 20)
|
||||
Me.txtFrachtfuehrerAb.TabIndex = 46
|
||||
'
|
||||
'txtTransportunternehmen
|
||||
'
|
||||
Me.txtTransportunternehmen.Location = New System.Drawing.Point(127, 94)
|
||||
Me.txtTransportunternehmen.Name = "txtTransportunternehmen"
|
||||
Me.txtTransportunternehmen.Size = New System.Drawing.Size(309, 20)
|
||||
Me.txtTransportunternehmen.TabIndex = 47
|
||||
'
|
||||
'txtLadestelle
|
||||
'
|
||||
Me.txtLadestelle.Location = New System.Drawing.Point(127, 120)
|
||||
Me.txtLadestelle.Name = "txtLadestelle"
|
||||
Me.txtLadestelle.Size = New System.Drawing.Size(309, 20)
|
||||
Me.txtLadestelle.TabIndex = 48
|
||||
'
|
||||
'txtEntladeStelle
|
||||
'
|
||||
Me.txtEntladeStelle.Location = New System.Drawing.Point(127, 146)
|
||||
Me.txtEntladeStelle.Name = "txtEntladeStelle"
|
||||
Me.txtEntladeStelle.Size = New System.Drawing.Size(309, 20)
|
||||
Me.txtEntladeStelle.TabIndex = 49
|
||||
'
|
||||
'Label5
|
||||
'
|
||||
Me.Label5.AutoSize = True
|
||||
Me.Label5.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label5.Location = New System.Drawing.Point(36, 19)
|
||||
Me.Label5.Name = "Label5"
|
||||
Me.Label5.Size = New System.Drawing.Size(81, 14)
|
||||
Me.Label5.TabIndex = 45
|
||||
Me.Label5.Text = "Auftraggeber"
|
||||
'
|
||||
'Label6
|
||||
'
|
||||
Me.Label6.AutoSize = True
|
||||
Me.Label6.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label6.Location = New System.Drawing.Point(36, 123)
|
||||
Me.Label6.Name = "Label6"
|
||||
Me.Label6.Size = New System.Drawing.Size(65, 14)
|
||||
Me.Label6.TabIndex = 50
|
||||
Me.Label6.Text = "Ladestelle"
|
||||
'
|
||||
'Label7
|
||||
'
|
||||
Me.Label7.AutoSize = True
|
||||
Me.Label7.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label7.Location = New System.Drawing.Point(36, 97)
|
||||
Me.Label7.Name = "Label7"
|
||||
Me.Label7.Size = New System.Drawing.Size(82, 14)
|
||||
Me.Label7.TabIndex = 51
|
||||
Me.Label7.Text = "Transportunt."
|
||||
'
|
||||
'Label8
|
||||
'
|
||||
Me.Label8.AutoSize = True
|
||||
Me.Label8.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label8.Location = New System.Drawing.Point(36, 71)
|
||||
Me.Label8.Name = "Label8"
|
||||
Me.Label8.Size = New System.Drawing.Size(66, 14)
|
||||
Me.Label8.TabIndex = 52
|
||||
Me.Label8.Text = "Frachtf. Ab"
|
||||
'
|
||||
'PnlDatum
|
||||
'
|
||||
Me.PnlDatum.Controls.Add(Me.CmdAlle)
|
||||
Me.PnlDatum.Controls.Add(Me.CmdJahrPlus)
|
||||
Me.PnlDatum.Controls.Add(Me.DateBIS)
|
||||
Me.PnlDatum.Controls.Add(Me.CmdJahrMinus)
|
||||
Me.PnlDatum.Controls.Add(Me.DateVON)
|
||||
Me.PnlDatum.Controls.Add(Me.CmdMonatPlus)
|
||||
Me.PnlDatum.Controls.Add(Me.LblVon)
|
||||
Me.PnlDatum.Controls.Add(Me.CmdMonatMinus)
|
||||
Me.PnlDatum.Controls.Add(Me.LblBis)
|
||||
Me.PnlDatum.Controls.Add(Me.CmdTagPlus)
|
||||
Me.PnlDatum.Controls.Add(Me.CmdHeute)
|
||||
Me.PnlDatum.Controls.Add(Me.CmdTagMinus)
|
||||
Me.PnlDatum.Controls.Add(Me.CmdMonat)
|
||||
Me.PnlDatum.Controls.Add(Me.CmdJahr)
|
||||
Me.PnlDatum.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.PnlDatum.Location = New System.Drawing.Point(665, 38)
|
||||
Me.PnlDatum.Name = "PnlDatum"
|
||||
Me.PnlDatum.Size = New System.Drawing.Size(308, 114)
|
||||
Me.PnlDatum.TabIndex = 41
|
||||
'
|
||||
'CmdAlle
|
||||
'
|
||||
Me.CmdAlle.BackColor = System.Drawing.Color.White
|
||||
Me.CmdAlle.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.CmdAlle.Location = New System.Drawing.Point(174, 77)
|
||||
Me.CmdAlle.Name = "CmdAlle"
|
||||
Me.CmdAlle.Size = New System.Drawing.Size(75, 23)
|
||||
Me.CmdAlle.TabIndex = 40
|
||||
Me.CmdAlle.Text = "Alle anz."
|
||||
Me.CmdAlle.UseVisualStyleBackColor = False
|
||||
'
|
||||
'CmdJahrPlus
|
||||
'
|
||||
Me.CmdJahrPlus.BackColor = System.Drawing.Color.White
|
||||
Me.CmdJahrPlus.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.CmdJahrPlus.Location = New System.Drawing.Point(255, 58)
|
||||
Me.CmdJahrPlus.Name = "CmdJahrPlus"
|
||||
Me.CmdJahrPlus.Size = New System.Drawing.Size(33, 23)
|
||||
Me.CmdJahrPlus.TabIndex = 39
|
||||
Me.CmdJahrPlus.Text = ">>"
|
||||
Me.CmdJahrPlus.UseVisualStyleBackColor = False
|
||||
'
|
||||
'DateBIS
|
||||
'
|
||||
Me.DateBIS.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
|
||||
Me.DateBIS.Location = New System.Drawing.Point(39, 40)
|
||||
Me.DateBIS.Name = "DateBIS"
|
||||
Me.DateBIS.Size = New System.Drawing.Size(90, 20)
|
||||
Me.DateBIS.TabIndex = 28
|
||||
'
|
||||
'CmdJahrMinus
|
||||
'
|
||||
Me.CmdJahrMinus.BackColor = System.Drawing.Color.White
|
||||
Me.CmdJahrMinus.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.CmdJahrMinus.Location = New System.Drawing.Point(135, 58)
|
||||
Me.CmdJahrMinus.Name = "CmdJahrMinus"
|
||||
Me.CmdJahrMinus.Size = New System.Drawing.Size(33, 23)
|
||||
Me.CmdJahrMinus.TabIndex = 38
|
||||
Me.CmdJahrMinus.Text = "<<"
|
||||
Me.CmdJahrMinus.UseVisualStyleBackColor = False
|
||||
'
|
||||
'DateVON
|
||||
'
|
||||
Me.DateVON.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
|
||||
Me.DateVON.Location = New System.Drawing.Point(39, 20)
|
||||
Me.DateVON.Name = "DateVON"
|
||||
Me.DateVON.Size = New System.Drawing.Size(90, 20)
|
||||
Me.DateVON.TabIndex = 27
|
||||
Me.DateVON.Value = New Date(1970, 1, 1, 0, 0, 0, 0)
|
||||
'
|
||||
'CmdMonatPlus
|
||||
'
|
||||
Me.CmdMonatPlus.BackColor = System.Drawing.Color.White
|
||||
Me.CmdMonatPlus.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.CmdMonatPlus.Location = New System.Drawing.Point(255, 36)
|
||||
Me.CmdMonatPlus.Name = "CmdMonatPlus"
|
||||
Me.CmdMonatPlus.Size = New System.Drawing.Size(33, 23)
|
||||
Me.CmdMonatPlus.TabIndex = 37
|
||||
Me.CmdMonatPlus.Text = ">>"
|
||||
Me.CmdMonatPlus.UseVisualStyleBackColor = False
|
||||
'
|
||||
'LblVon
|
||||
'
|
||||
Me.LblVon.AutoSize = True
|
||||
Me.LblVon.Location = New System.Drawing.Point(4, 26)
|
||||
Me.LblVon.Name = "LblVon"
|
||||
Me.LblVon.Size = New System.Drawing.Size(31, 14)
|
||||
Me.LblVon.TabIndex = 29
|
||||
Me.LblVon.Text = "Von:"
|
||||
'
|
||||
'CmdMonatMinus
|
||||
'
|
||||
Me.CmdMonatMinus.BackColor = System.Drawing.Color.White
|
||||
Me.CmdMonatMinus.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.CmdMonatMinus.Location = New System.Drawing.Point(135, 37)
|
||||
Me.CmdMonatMinus.Name = "CmdMonatMinus"
|
||||
Me.CmdMonatMinus.Size = New System.Drawing.Size(33, 23)
|
||||
Me.CmdMonatMinus.TabIndex = 36
|
||||
Me.CmdMonatMinus.Text = "<<"
|
||||
Me.CmdMonatMinus.UseVisualStyleBackColor = False
|
||||
'
|
||||
'LblBis
|
||||
'
|
||||
Me.LblBis.AutoSize = True
|
||||
Me.LblBis.Location = New System.Drawing.Point(9, 46)
|
||||
Me.LblBis.Name = "LblBis"
|
||||
Me.LblBis.Size = New System.Drawing.Size(27, 14)
|
||||
Me.LblBis.TabIndex = 30
|
||||
Me.LblBis.Text = "Bis:"
|
||||
'
|
||||
'CmdTagPlus
|
||||
'
|
||||
Me.CmdTagPlus.BackColor = System.Drawing.Color.White
|
||||
Me.CmdTagPlus.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.CmdTagPlus.Location = New System.Drawing.Point(255, 15)
|
||||
Me.CmdTagPlus.Name = "CmdTagPlus"
|
||||
Me.CmdTagPlus.Size = New System.Drawing.Size(33, 23)
|
||||
Me.CmdTagPlus.TabIndex = 35
|
||||
Me.CmdTagPlus.Text = ">>"
|
||||
Me.CmdTagPlus.UseVisualStyleBackColor = False
|
||||
'
|
||||
'CmdHeute
|
||||
'
|
||||
Me.CmdHeute.BackColor = System.Drawing.Color.White
|
||||
Me.CmdHeute.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.CmdHeute.Location = New System.Drawing.Point(174, 15)
|
||||
Me.CmdHeute.Name = "CmdHeute"
|
||||
Me.CmdHeute.Size = New System.Drawing.Size(75, 23)
|
||||
Me.CmdHeute.TabIndex = 31
|
||||
Me.CmdHeute.Text = "Heute"
|
||||
Me.CmdHeute.UseVisualStyleBackColor = False
|
||||
'
|
||||
'CmdTagMinus
|
||||
'
|
||||
Me.CmdTagMinus.BackColor = System.Drawing.Color.White
|
||||
Me.CmdTagMinus.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.CmdTagMinus.Location = New System.Drawing.Point(135, 15)
|
||||
Me.CmdTagMinus.Name = "CmdTagMinus"
|
||||
Me.CmdTagMinus.Size = New System.Drawing.Size(33, 23)
|
||||
Me.CmdTagMinus.TabIndex = 34
|
||||
Me.CmdTagMinus.Text = "<<"
|
||||
Me.CmdTagMinus.UseVisualStyleBackColor = False
|
||||
'
|
||||
'CmdMonat
|
||||
'
|
||||
Me.CmdMonat.BackColor = System.Drawing.Color.White
|
||||
Me.CmdMonat.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.CmdMonat.Location = New System.Drawing.Point(174, 37)
|
||||
Me.CmdMonat.Name = "CmdMonat"
|
||||
Me.CmdMonat.Size = New System.Drawing.Size(75, 23)
|
||||
Me.CmdMonat.TabIndex = 32
|
||||
Me.CmdMonat.Text = "akt. Monat"
|
||||
Me.CmdMonat.UseVisualStyleBackColor = False
|
||||
'
|
||||
'CmdJahr
|
||||
'
|
||||
Me.CmdJahr.BackColor = System.Drawing.Color.White
|
||||
Me.CmdJahr.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.CmdJahr.Location = New System.Drawing.Point(174, 58)
|
||||
Me.CmdJahr.Name = "CmdJahr"
|
||||
Me.CmdJahr.Size = New System.Drawing.Size(75, 23)
|
||||
Me.CmdJahr.TabIndex = 33
|
||||
Me.CmdJahr.Text = "akt. Jahr"
|
||||
Me.CmdJahr.UseVisualStyleBackColor = False
|
||||
'
|
||||
'Label9
|
||||
'
|
||||
Me.Label9.AutoSize = True
|
||||
Me.Label9.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label9.Location = New System.Drawing.Point(36, 45)
|
||||
Me.Label9.Name = "Label9"
|
||||
Me.Label9.Size = New System.Drawing.Size(68, 14)
|
||||
Me.Label9.TabIndex = 53
|
||||
Me.Label9.Text = "Frachtf. Bis"
|
||||
'
|
||||
'Label10
|
||||
'
|
||||
Me.Label10.AutoSize = True
|
||||
Me.Label10.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label10.Location = New System.Drawing.Point(36, 149)
|
||||
Me.Label10.Name = "Label10"
|
||||
Me.Label10.Size = New System.Drawing.Size(78, 14)
|
||||
Me.Label10.TabIndex = 54
|
||||
Me.Label10.Text = "Entladestelle"
|
||||
'
|
||||
'cbxAbliefer
|
||||
'
|
||||
Me.cbxAbliefer.AutoSize = True
|
||||
Me.cbxAbliefer.Checked = True
|
||||
Me.cbxAbliefer.CheckState = System.Windows.Forms.CheckState.Indeterminate
|
||||
Me.cbxAbliefer.Location = New System.Drawing.Point(473, 19)
|
||||
Me.cbxAbliefer.Name = "cbxAbliefer"
|
||||
Me.cbxAbliefer.Size = New System.Drawing.Size(147, 17)
|
||||
Me.cbxAbliefer.TabIndex = 55
|
||||
Me.cbxAbliefer.Text = "Abliefernachweis erhalten"
|
||||
Me.cbxAbliefer.ThreeState = True
|
||||
Me.cbxAbliefer.UseVisualStyleBackColor = True
|
||||
'
|
||||
'SplitContainer1
|
||||
'
|
||||
Me.SplitContainer1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.SplitContainer1.FixedPanel = System.Windows.Forms.FixedPanel.Panel1
|
||||
Me.SplitContainer1.Location = New System.Drawing.Point(0, 84)
|
||||
Me.SplitContainer1.Margin = New System.Windows.Forms.Padding(0)
|
||||
Me.SplitContainer1.Name = "SplitContainer1"
|
||||
Me.SplitContainer1.Orientation = System.Windows.Forms.Orientation.Horizontal
|
||||
'
|
||||
'SplitContainer1.Panel1
|
||||
'
|
||||
Me.SplitContainer1.Panel1.BackColor = System.Drawing.SystemColors.GradientInactiveCaption
|
||||
Me.SplitContainer1.Panel1.Controls.Add(Me.cbxAbliefer)
|
||||
Me.SplitContainer1.Panel1.Controls.Add(Me.Label10)
|
||||
Me.SplitContainer1.Panel1.Controls.Add(Me.Label9)
|
||||
Me.SplitContainer1.Panel1.Controls.Add(Me.PnlDatum)
|
||||
Me.SplitContainer1.Panel1.Controls.Add(Me.Label8)
|
||||
Me.SplitContainer1.Panel1.Controls.Add(Me.Label7)
|
||||
Me.SplitContainer1.Panel1.Controls.Add(Me.Label6)
|
||||
Me.SplitContainer1.Panel1.Controls.Add(Me.Label5)
|
||||
Me.SplitContainer1.Panel1.Controls.Add(Me.txtEntladeStelle)
|
||||
Me.SplitContainer1.Panel1.Controls.Add(Me.txtLadestelle)
|
||||
Me.SplitContainer1.Panel1.Controls.Add(Me.txtTransportunternehmen)
|
||||
Me.SplitContainer1.Panel1.Controls.Add(Me.txtFrachtfuehrerAb)
|
||||
Me.SplitContainer1.Panel1.Controls.Add(Me.txtFrachtfuehrerBis)
|
||||
Me.SplitContainer1.Panel1.Controls.Add(Me.txtAuftraggeber)
|
||||
'
|
||||
'SplitContainer1.Panel2
|
||||
'
|
||||
Me.SplitContainer1.Panel2.BackColor = System.Drawing.Color.Transparent
|
||||
Me.SplitContainer1.Panel2.Controls.Add(Me.dgvAuftraege)
|
||||
Me.SplitContainer1.Size = New System.Drawing.Size(994, 711)
|
||||
Me.SplitContainer1.SplitterDistance = 175
|
||||
Me.SplitContainer1.SplitterWidth = 1
|
||||
Me.SplitContainer1.TabIndex = 2
|
||||
'
|
||||
'btnAddTo
|
||||
'
|
||||
Me.btnAddTo.Anchor = System.Windows.Forms.AnchorStyles.Right
|
||||
Me.btnAddTo.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnAddTo.Image = Global.DISPO.My.Resources.Resources.links20
|
||||
Me.btnAddTo.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
|
||||
Me.btnAddTo.Location = New System.Drawing.Point(5, 351)
|
||||
Me.btnAddTo.Name = "btnAddTo"
|
||||
Me.btnAddTo.Size = New System.Drawing.Size(91, 33)
|
||||
Me.btnAddTo.TabIndex = 36
|
||||
Me.btnAddTo.Text = "Hinzufügen"
|
||||
Me.btnAddTo.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.btnAddTo.UseVisualStyleBackColor = True
|
||||
Me.btnAddTo.Visible = False
|
||||
'
|
||||
'usrcntlAuftraege
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
|
||||
Me.BackColor = System.Drawing.SystemColors.ControlLightLight
|
||||
Me.Controls.Add(Me.SplitContainer1)
|
||||
Me.Controls.Add(Me.PanButtons)
|
||||
Me.Controls.Add(Me.PanTop)
|
||||
Me.DoubleBuffered = True
|
||||
Me.MinimumSize = New System.Drawing.Size(1000, 750)
|
||||
Me.Name = "usrcntlAuftraege"
|
||||
Me.Size = New System.Drawing.Size(1093, 795)
|
||||
Me.PanTop.ResumeLayout(False)
|
||||
Me.PanOben.ResumeLayout(False)
|
||||
Me.PanOben.PerformLayout()
|
||||
Me.pnlFilterAuftrag.ResumeLayout(False)
|
||||
Me.pnlFilterAuftrag.PerformLayout()
|
||||
Me.PanButtons.ResumeLayout(False)
|
||||
Me.PanButtons.PerformLayout()
|
||||
CType(Me.dgvAuftraege, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.PnlDatum.ResumeLayout(False)
|
||||
Me.PnlDatum.PerformLayout()
|
||||
Me.SplitContainer1.Panel1.ResumeLayout(False)
|
||||
Me.SplitContainer1.Panel1.PerformLayout()
|
||||
Me.SplitContainer1.Panel2.ResumeLayout(False)
|
||||
CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.SplitContainer1.ResumeLayout(False)
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
Friend WithEvents PanTop As Panel
|
||||
Friend WithEvents txtSuche As TextBox
|
||||
Friend WithEvents pnlFilterAuftrag As Panel
|
||||
Friend WithEvents cboFiliale As VERAG_PROG_ALLGEMEIN.MyComboBox
|
||||
Friend WithEvents Label2 As Label
|
||||
Friend WithEvents cboAuftragsart As VERAG_PROG_ALLGEMEIN.MyComboBox
|
||||
Friend WithEvents Label1 As Label
|
||||
Friend WithEvents PanOben As Panel
|
||||
Friend WithEvents Label4 As Label
|
||||
Friend WithEvents Panel1 As Panel
|
||||
Friend WithEvents PanButtons As Panel
|
||||
Friend WithEvents btnDuplicate As Button
|
||||
Friend WithEvents btnDel As Button
|
||||
Friend WithEvents btnChange As Button
|
||||
Friend WithEvents btnNew As Button
|
||||
Friend WithEvents lblMs As Label
|
||||
Friend WithEvents lblAnzahl As Label
|
||||
Friend WithEvents dgvAuftraege As DataGridView
|
||||
Friend WithEvents txtAuftraggeber As TextBox
|
||||
Friend WithEvents txtFrachtfuehrerBis As TextBox
|
||||
Friend WithEvents txtFrachtfuehrerAb As TextBox
|
||||
Friend WithEvents txtTransportunternehmen As TextBox
|
||||
Friend WithEvents txtLadestelle As TextBox
|
||||
Friend WithEvents txtEntladeStelle As TextBox
|
||||
Friend WithEvents Label5 As Label
|
||||
Friend WithEvents Label6 As Label
|
||||
Friend WithEvents Label7 As Label
|
||||
Friend WithEvents Label8 As Label
|
||||
Friend WithEvents PnlDatum As Panel
|
||||
Friend WithEvents CmdAlle As Button
|
||||
Friend WithEvents CmdJahrPlus As Button
|
||||
Friend WithEvents CmdJahrMinus As Button
|
||||
Friend WithEvents CmdMonatPlus As Button
|
||||
Friend WithEvents LblVon As Label
|
||||
Friend WithEvents CmdMonatMinus As Button
|
||||
Friend WithEvents LblBis As Label
|
||||
Friend WithEvents CmdTagPlus As Button
|
||||
Friend WithEvents CmdHeute As Button
|
||||
Friend WithEvents CmdTagMinus As Button
|
||||
Friend WithEvents CmdMonat As Button
|
||||
Friend WithEvents CmdJahr As Button
|
||||
Friend WithEvents Label9 As Label
|
||||
Friend WithEvents Label10 As Label
|
||||
Friend WithEvents cbxAbliefer As CheckBox
|
||||
Friend WithEvents btnAuswertung As Button
|
||||
Friend WithEvents btnReset As Button
|
||||
Friend WithEvents btnDetailSuche As Button
|
||||
Friend WithEvents btnSuchAuswertung As Button
|
||||
Public WithEvents SplitContainer1 As SplitContainer
|
||||
Public WithEvents DateBIS As DateTimePicker
|
||||
Public WithEvents DateVON As DateTimePicker
|
||||
Friend WithEvents btnSuchStat As Button
|
||||
Friend WithEvents btnTrip As Button
|
||||
Friend WithEvents btnAddTo As Button
|
||||
End Class
|
||||
120
UID/frmMain/usrcntlAuftraege.resx
Normal file
120
UID/frmMain/usrcntlAuftraege.resx
Normal file
@@ -0,0 +1,120 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 2.0
|
||||
|
||||
The primary goals of this format is to allow a simple XML format
|
||||
that is mostly human readable. The generation and parsing of the
|
||||
various data types are done through the TypeConverter classes
|
||||
associated with the data types.
|
||||
|
||||
Example:
|
||||
|
||||
... ado.net/XML headers & schema ...
|
||||
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||
<resheader name="version">2.0</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||
<comment>This is a comment</comment>
|
||||
</data>
|
||||
|
||||
There are any number of "resheader" rows that contain simple
|
||||
name/value pairs.
|
||||
|
||||
Each data row contains a name, and value. The row also contains a
|
||||
type or mimetype. Type corresponds to a .NET class that support
|
||||
text/value conversion through the TypeConverter architecture.
|
||||
Classes that don't support this are serialized and stored with the
|
||||
mimetype set.
|
||||
|
||||
The mimetype is used for serialized objects, and tells the
|
||||
ResXResourceReader how to depersist the object. This is currently not
|
||||
extensible. For a given mimetype the value must be set accordingly:
|
||||
|
||||
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||
that the ResXResourceWriter will generate, however the reader can
|
||||
read any of the formats listed below.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.binary.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.soap.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||
value : The object must be serialized into a byte array
|
||||
: using a System.ComponentModel.TypeConverter
|
||||
: and then encoded with base64 encoding.
|
||||
-->
|
||||
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
|
||||
<xsd:element name="root" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<xsd:element name="metadata">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" use="required" type="xsd:string" />
|
||||
<xsd:attribute name="type" type="xsd:string" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="assembly">
|
||||
<xsd:complexType>
|
||||
<xsd:attribute name="alias" type="xsd:string" />
|
||||
<xsd:attribute name="name" type="xsd:string" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="data">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="resheader">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:choice>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:schema>
|
||||
<resheader name="resmimetype">
|
||||
<value>text/microsoft-resx</value>
|
||||
</resheader>
|
||||
<resheader name="version">
|
||||
<value>2.0</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
</root>
|
||||
679
UID/frmMain/usrcntlAuftraege.vb
Normal file
679
UID/frmMain/usrcntlAuftraege.vb
Normal file
@@ -0,0 +1,679 @@
|
||||
Imports System.ComponentModel
|
||||
Imports System.IO
|
||||
Imports System.Globalization
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Reflection
|
||||
|
||||
|
||||
Public Class usrcntlAuftraege
|
||||
|
||||
|
||||
|
||||
Dim Core_SQLAuswertungAusAnsicht As String = "select
|
||||
atr_frachtpos,
|
||||
atr_auftr_firma,
|
||||
atr_ladest_firma,
|
||||
atr_frachtfab_firma,
|
||||
atr_frachtf_firma,
|
||||
atr_Auftragsart,
|
||||
atr_TransportauftragArt,
|
||||
count(*) As Anzahl,
|
||||
case
|
||||
when atr_TransportauftragArt = 'NACH' then atr_frachtfab_firma
|
||||
when atr_TransportauftragArt = 'VOR' then atr_frachtf_firma
|
||||
when atr_TransportauftragArt = '' and atr_AuftragsArt = 'Transport' then '--na--'
|
||||
when atr_AuftragsArt = 'Handling' then '-'
|
||||
end as Frächter,
|
||||
case
|
||||
when atr_Auftragsart = 'TRANSPORT' then 'TRANSP.'
|
||||
when atr_Auftragsart = 'HANDLING' then 'HANDLING'
|
||||
end as ShortAuftragsart,
|
||||
sum (Rechnungsausgang.SteuerfreierGesamtbetrag + Rechnungsausgang.SteuerpflichtigerGesamtbetrag) as Rechnungen, --atr_frachtpos, Vorkosten
|
||||
sum (vorkosten) as Vorkosten,
|
||||
sum (Rechnungsausgang.SteuerfreierGesamtbetrag + Rechnungsausgang.SteuerpflichtigerGesamtbetrag - Vorkosten) as Marge
|
||||
|
||||
from (([BUCHHALTUNG\SQLExpress].DISPO.dbo.tblAuftraege as dispoauftraege
|
||||
inner join VERAG.dbo.Speditionsbuch on atr_speditionsbuchNr = Speditionsbuch.FilialenNr AND atr_frachtpos = Speditionsbuch.AbfertigungsNr)
|
||||
inner join VERAG.dbo.Rechnungsausgang on atr_speditionsbuchNr = Rechnungsausgang.FilialenNr AND atr_frachtpos = Rechnungsausgang.AbfertigungsNr)
|
||||
|
||||
where "
|
||||
|
||||
|
||||
|
||||
Dim dataAdapterAuftraege As New SqlDataAdapter
|
||||
Dim dataBindingAuftraege As New BindingSource
|
||||
|
||||
Dim SelectedDGVIndex As Integer = 0
|
||||
|
||||
Private DISPO As New cOptionenDAL
|
||||
|
||||
Public Shared Niederlassung As String
|
||||
Public Shared dt As DataTable
|
||||
Public Shared SQLAuswerungAusAnsicht, SQLStatAusAnsicht As String
|
||||
|
||||
Public Shared von, bis As Date
|
||||
Property CustomButtons As String = ""
|
||||
Property Trip As cTrips = Nothing
|
||||
|
||||
|
||||
Private Sub usrcntlAuftraege_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||||
SplitContainer1.Panel1Collapsed = True
|
||||
cboAuftragsart.Items.Clear()
|
||||
cboAuftragsart.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ALLE", ""))
|
||||
cboAuftragsart.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("HANDLING", "HANDLING"))
|
||||
cboAuftragsart.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("TRANSPORT", "TRANSPORT"))
|
||||
cboAuftragsart.changeItem("ALLE")
|
||||
|
||||
|
||||
cboFiliale.Items.Clear()
|
||||
cboFiliale.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ALLE", ""))
|
||||
cboFiliale.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SUBEN", "4807"))
|
||||
cboFiliale.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("NEUHAUS", "4819"))
|
||||
|
||||
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_niederlassung
|
||||
Case "NEU" : cboFiliale.changeItem("4819") : Niederlassung = "4819"
|
||||
Case Else : cboFiliale.changeItem("4807") : Niederlassung = "4807"
|
||||
End Select
|
||||
|
||||
DateBIS.Value = Now()
|
||||
DateVON.Value = Now.AddYears(-1).AddDays(1)
|
||||
|
||||
EnableDoubleBuffered(dgvAuftraege)
|
||||
btnDetailSuche.Text = ChrW(9660) & ChrW(9660) & ChrW(9660) & "Detailsuche" & ChrW(9660) & ChrW(9660) & ChrW(9660)
|
||||
|
||||
If Not Me.CustomButtons = "" Then DoCustomButtons()
|
||||
|
||||
showDGVAuftraege()
|
||||
End Sub
|
||||
|
||||
Function DoCustomButtons()
|
||||
|
||||
Select Case CustomButtons
|
||||
Case ""
|
||||
Case "AddToTrip"
|
||||
For Each b As System.Windows.Forms.Control In PanButtons.Controls
|
||||
b.Visible = False
|
||||
Next
|
||||
btnAddTo.Visible = True
|
||||
End Select
|
||||
|
||||
End Function
|
||||
|
||||
Private Sub initDGVAuftraege(bindingString As String)
|
||||
Dim sqlstr As String = bindingString
|
||||
SQLStatAusAnsicht = bindingString
|
||||
' dgvLKW.DataSource = bindingSDL
|
||||
Dim vpasql As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
|
||||
dt = vpasql.loadDgvBySql(sqlstr, "VERAG")
|
||||
dgvAuftraege.DataSource = dt
|
||||
End Sub
|
||||
|
||||
|
||||
Public Sub showDGVAuftraege()
|
||||
Dim start As Long = (DateTime.Now - New DateTime(1970, 1, 1)).TotalMilliseconds
|
||||
Dim where As String = WhereInator3000()
|
||||
Dim DispoDBO As String
|
||||
If frmLogin.TESTSYSTEM = True Then
|
||||
DispoDBO = "DISPO.dbo.tblAuftraege"
|
||||
Else
|
||||
DispoDBO = "[BUCHHALTUNG\SQLExpress].DISPO.dbo.tblAuftraege"
|
||||
End If
|
||||
|
||||
With dgvAuftraege
|
||||
|
||||
Dim selectionstring As String = "SELECT
|
||||
atr_id
|
||||
,case
|
||||
when atr_frachtpos is null then '0'
|
||||
when atr_frachtpos = '' then '0'
|
||||
else atr_frachtpos end as atr_frachtpos
|
||||
,atr_datum
|
||||
,atr_auftr_firma
|
||||
,atr_frachtf_firma
|
||||
,atr_frachtfAb_firma
|
||||
--,atr_trans_firma
|
||||
,case
|
||||
when atr_TransportauftragArt = 'NACH' then (case when atr_frachtfab_firma is null then '-' else atr_frachtfab_firma end)
|
||||
when atr_TransportauftragArt = 'VOR' then (case when atr_frachtf_firma is null then '-' else atr_frachtf_firma end)
|
||||
when atr_TransportauftragArt = '' and atr_AuftragsArt = 'Transport' then ''
|
||||
when atr_TransportAuftragArt is null then '-'
|
||||
when atr_AuftragsArt = 'Handling' then '-'
|
||||
end as Transportunternehmen
|
||||
,case when atr_AuftragsArt='TRANSPORT' THEN atr_ladest_firma ELSE atr_absender_firma END as atr_ladest_firma
|
||||
,case when atr_AuftragsArt='TRANSPORT' THEN atr_entladest_firma ELSE atr_empfaenger_firma END as atr_entladest_firma
|
||||
,atr_abliefernachweis,atr_AuftragsArt,atr_FilialenNr
|
||||
,atr_tripNr
|
||||
FROM (" & DispoDBO & " as dispoauftraege
|
||||
left join VERAG.dbo.Speditionsbuch on atr_speditionsbuchNr = Speditionsbuch.FilialenNr AND atr_frachtpos = Speditionsbuch.AbfertigungsNr)
|
||||
--left join VERAG.dbo.Rechnungsausgang on atr_speditionsbuchNr = Rechnungsausgang.FilialenNr AND atr_frachtpos = Rechnungsausgang.AbfertigungsNr)
|
||||
--left join VERAG.dbo.Vorkosten on atr_speditionsbuchNr = Vorkosten.FilialenNr AND atr_frachtpos = Vorkosten.AbfertigungsNr)
|
||||
WHERE " & where & ""
|
||||
initDGVAuftraege(selectionstring)
|
||||
|
||||
|
||||
Dim top As String = ""
|
||||
|
||||
'Tabelle Kommt/Geht bereinigen
|
||||
For i As Integer = 0 To dgvAuftraege.Columns.Count - 1
|
||||
.Columns(i).ReadOnly = True
|
||||
Next
|
||||
|
||||
If .RowCount = 0 Then Exit Sub
|
||||
|
||||
.Sort(dgvAuftraege.Columns(1), ListSortDirection.Descending)
|
||||
.RowTemplate.Height = 20
|
||||
'.RowTemplate.DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopLeft
|
||||
.AllowUserToAddRows = False
|
||||
.AllowUserToDeleteRows = False
|
||||
.AllowUserToOrderColumns = False
|
||||
.AllowUserToResizeColumns = True
|
||||
.AllowUserToResizeRows = False
|
||||
'.RowTemplate.ReadOnly = True
|
||||
.RowHeadersVisible = False
|
||||
.SelectionMode = DataGridViewSelectionMode.FullRowSelect
|
||||
.MultiSelect = False
|
||||
.Columns(0).Visible = False
|
||||
.Columns("atr_AuftragsArt").Visible = False
|
||||
|
||||
.Columns(1).Width = 70
|
||||
.Columns(1).HeaderText = "FrachtposNr."
|
||||
|
||||
.Columns(2).Width = 70
|
||||
.Columns(2).HeaderText = "Datum"
|
||||
|
||||
.Columns(3).MinimumWidth = 165
|
||||
.Columns(3).AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
|
||||
.Columns(3).FillWeight = 150
|
||||
.Columns(3).HeaderText = "Auftraggeber"
|
||||
|
||||
.Columns(4).MinimumWidth = 165
|
||||
.Columns(4).AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
|
||||
.Columns(4).FillWeight = 150
|
||||
.Columns(4).HeaderText = "Frachtführer Bis"
|
||||
|
||||
.Columns("atr_frachtfAb_firma").MinimumWidth = 165
|
||||
.Columns("atr_frachtfAb_firma").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
|
||||
.Columns("atr_frachtfAb_firma").HeaderText = "Frachtführer Ab"
|
||||
|
||||
|
||||
.Columns(6).MinimumWidth = 165
|
||||
.Columns(6).AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
|
||||
.Columns(6).HeaderText = "Transportunternehmen"
|
||||
|
||||
.Columns(7).MinimumWidth = 165
|
||||
.Columns(7).AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
|
||||
.Columns(7).HeaderText = "Ladestelle/Absender"
|
||||
|
||||
.Columns(8).MinimumWidth = 165
|
||||
.Columns(8).AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
|
||||
.Columns(8).HeaderText = "Entladest./Empfänger"
|
||||
|
||||
.Columns(9).Width = 60
|
||||
.Columns(9).HeaderText = "Abl.Nachw."
|
||||
.Columns(9).ReadOnly = False
|
||||
.Columns(9).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
|
||||
|
||||
.Columns("atr_FilialenNr").Width = 60
|
||||
.Columns("atr_FilialenNr").HeaderText = "Filiale"
|
||||
.Columns("atr_FilialenNr").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
|
||||
|
||||
.Columns("atr_Auftragsart").Width = 80
|
||||
.Columns("atr_Auftragsart").HeaderText = "Auftragsart"
|
||||
.Columns("atr_Auftragsart").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
|
||||
.Columns("atr_Auftragsart").DisplayIndex = 11
|
||||
|
||||
.Columns("atr_tripNr").Visible = False
|
||||
|
||||
|
||||
'Anzeige der Anzahl gewählter/aller Datensätze
|
||||
lblAnzahl.Text = Format(dgvAuftraege.RowCount, "#,##0") & " Einträge"
|
||||
If (dgvAuftraege.RowCount = 100) Then lblAnzahl.Text &= " ausgewählt (Die Suche wurde auf 100 Ergebnisse beschränkt.)"
|
||||
|
||||
' initDGVAuftraegeFilter()
|
||||
End With
|
||||
lblAnzahl.Refresh()
|
||||
Dim ende As Long = (DateTime.Now - New DateTime(1970, 1, 1)).TotalMilliseconds
|
||||
lblMs.Text = "Ladezeit: " & (ende - start) & " ms"
|
||||
Try
|
||||
If dgvAuftraege.Rows.Count - 1 >= SelectedDGVIndex Then dgvAuftraege.Rows(SelectedDGVIndex).Selected = True
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
End Try
|
||||
'lblMs.Image = Nothing
|
||||
End Sub
|
||||
|
||||
Public Function WhereInator3000()
|
||||
Dim where As String = ""
|
||||
where &= "atr_datum <= '" & DateBIS.Value.ToShortDateString & "' AND atr_datum >= '" & DateVON.Value.ToShortDateString & "'"
|
||||
|
||||
If cboAuftragsart._value <> "" Then
|
||||
where &= " AND " & " atr_AuftragsArt='" & cboAuftragsart._value & "' "
|
||||
End If
|
||||
|
||||
If cboFiliale._value <> "" Then
|
||||
where &= " AND " & " atr_FilialenNr='" & cboFiliale._value & "' "
|
||||
End If
|
||||
|
||||
If cbxAbliefer.CheckState = CheckState.Checked Then
|
||||
where &= " AND " & " atr_abliefernachweis = 1"
|
||||
ElseIf cbxAbliefer.CheckState = CheckState.Unchecked Then
|
||||
where &= " AND " & " atr_abliefernachweis = 0"
|
||||
End If
|
||||
|
||||
If txtSuche.Text <> "" Then
|
||||
where &= " AND atr_frachtpos Like '%" & txtSuche.Text.Replace("'", "") & "%'"
|
||||
End If
|
||||
|
||||
If txtAuftraggeber.Text <> "" Then
|
||||
where &= " AND atr_auftr_firma Like '%" & txtAuftraggeber.Text.Replace("'", "") & "%'"
|
||||
End If
|
||||
|
||||
If txtFrachtfuehrerBis.Text <> "" Then
|
||||
where &= " AND atr_frachtf_firma Like '%" & txtFrachtfuehrerBis.Text.Replace("'", "") & "%'"
|
||||
End If
|
||||
|
||||
If txtFrachtfuehrerAb.Text <> "" Then
|
||||
where &= " AND atr_frachtfAb_firma Like '%" & txtFrachtfuehrerAb.Text.Replace("'", "") & "%'"
|
||||
End If
|
||||
|
||||
If txtTransportunternehmen.Text <> "" Then
|
||||
'where &= " AND atr_trans_firma Like '%" & txtTransportunternehmen.Text.Replace("'", "") & "%'"
|
||||
where &= " AND
|
||||
((atr_TransportauftragArt = 'NACH' and atr_frachtfab_firma LIKE '%" & txtTransportunternehmen.Text.Replace("'", "") & "%')
|
||||
OR
|
||||
(atr_TransportauftragArt = 'VOR' AND atr_frachtf_firma LIKE '%" & txtTransportunternehmen.Text.Replace("'", "") & "%'))"
|
||||
End If
|
||||
|
||||
If txtLadestelle.Text <> "" Then
|
||||
where &= " AND
|
||||
((atr_ladest_firma Like '%" & txtLadestelle.Text.Replace("'", "") & "%')
|
||||
OR
|
||||
(atr_absender_firma Like '%" & txtLadestelle.Text.Replace("'", "") & "%')
|
||||
OR
|
||||
(VERAG.dbo.Speditionsbuch.Absender Like '%" & txtLadestelle.Text.Replace("'", "") & "%'))"
|
||||
End If
|
||||
|
||||
If txtEntladeStelle.Text <> "" Then
|
||||
where &= " AND
|
||||
((atr_entladest_firma Like '%" & txtEntladeStelle.Text.Replace("'", "") & "%')
|
||||
OR
|
||||
(atr_empfaenger_firma Like '%" & txtEntladeStelle.Text.Replace("'", "") & "%')
|
||||
OR
|
||||
(VERAG.dbo.Speditionsbuch.Empfänger Like '%" & txtEntladeStelle.Text.Replace("'", "") & "%'))"
|
||||
End If
|
||||
|
||||
If Not CustomButtons = "" Then
|
||||
Select Case CustomButtons
|
||||
Case "AddToTrip"
|
||||
where &= " AND atr_tripNr IS NULL"
|
||||
End Select
|
||||
End If
|
||||
|
||||
'' 2019/05/10 -> atr_empfaenger_firma und atr_sender_firma als Suchoption eingegeben, damit die Detailsuche auch in Handlings funktionert, die keinen Ablieferungsnachweis enthalten.
|
||||
'' Bug Report von Mestan
|
||||
|
||||
Return where
|
||||
End Function
|
||||
|
||||
Public Sub initDGVAuftraegeFilter()
|
||||
Dim start As Long = (DateTime.Now - New DateTime(1970, 1, 1)).TotalMilliseconds
|
||||
Dim andtxt As String = ""
|
||||
Dim where As String = ""
|
||||
'If txtSuche.Text <> "" Then
|
||||
' Dim oItem As MyListItem = CType(cboSearchAuftraege.SelectedItem, MyListItem)
|
||||
' where = " " & oItem.Value & " LIKE '%" & txtSuche.Text & "%'"
|
||||
' andtxt = " AND "
|
||||
'End If
|
||||
|
||||
If cboAuftragsart._value <> "" Then
|
||||
where &= andtxt & " atr_AuftragsArt='" & cboAuftragsart._value & "' "
|
||||
andtxt = " AND "
|
||||
|
||||
End If
|
||||
|
||||
If cboFiliale._value <> "" Then
|
||||
where &= andtxt & " atr_FilialenNr='" & cboFiliale._value & "' "
|
||||
andtxt = " AND "
|
||||
|
||||
End If
|
||||
|
||||
If cbxAbliefer.CheckState = CheckState.Checked Then
|
||||
where &= andtxt & " atr_abliefernachweis = 1"
|
||||
ElseIf cbxAbliefer.CheckState = CheckState.Unchecked Then
|
||||
where &= andtxt & " atr_abliefernachweis = 0"
|
||||
End If
|
||||
|
||||
|
||||
'where &= andtxt & "atr_datum <= '" & enddatestring & "' AND atr_datum >= '" & startdatestring & "' "
|
||||
|
||||
dataBindingAuftraege.Filter = where
|
||||
lblAnzahl.Refresh()
|
||||
Dim ende As Long = (DateTime.Now - New DateTime(1970, 1, 1)).TotalMilliseconds
|
||||
lblMs.Text = "Ladezeit: " & (ende - start) & " ms"
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub DateVONorBIS_ValueChanged(sender As Object, e As EventArgs) Handles DateVON.ValueChanged, DateBIS.ValueChanged
|
||||
showDGVAuftraege()
|
||||
End Sub
|
||||
|
||||
Private Sub btnDetailSuche_Click(sender As Object, e As EventArgs) Handles btnDetailSuche.Click
|
||||
SplitContainer1.Panel1Collapsed = Not SplitContainer1.Panel1Collapsed
|
||||
|
||||
If SplitContainer1.Panel1Collapsed Then
|
||||
btnDetailSuche.BackColor = Color.White
|
||||
btnDetailSuche.Text = ChrW(9660) & ChrW(9660) & ChrW(9660) & "Detailsuche" & ChrW(9660) & ChrW(9660) & ChrW(9660)
|
||||
Else
|
||||
btnDetailSuche.BackColor = Color.RoyalBlue
|
||||
btnDetailSuche.Text = ChrW(9650) & ChrW(9650) & ChrW(9650) & "Detailsuche" & ChrW(9650) & ChrW(9650) & ChrW(9650)
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub CmdHeute_Click(sender As Object, e As EventArgs) Handles CmdHeute.Click
|
||||
DateVON.Value = Now()
|
||||
DateBIS.Value = Now()
|
||||
End Sub
|
||||
|
||||
Private Sub CmdTagMinus_Click(sender As Object, e As EventArgs) Handles CmdTagMinus.Click, CmdTagPlus.Click
|
||||
If sender Is CmdTagPlus Then
|
||||
DateVON.Value = DateVON.Value.AddDays(1)
|
||||
DateBIS.Value = DateVON.Value
|
||||
Else
|
||||
DateVON.Value = DateVON.Value.AddDays(-1)
|
||||
DateBIS.Value = DateVON.Value
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub CmdMonat_Click(sender As Object, e As EventArgs) Handles CmdMonat.Click
|
||||
DateVON.Value = Now.AddDays(-Now.Day + 1)
|
||||
DateBIS.Value = Now()
|
||||
End Sub
|
||||
|
||||
Private Sub CmdMonatMinus_Click(sender As Object, e As EventArgs) Handles CmdMonatMinus.Click, CmdMonatPlus.Click
|
||||
If sender Is CmdMonatPlus Then
|
||||
DateVON.Value = DateVON.Value.AddDays(-DateVON.Value.Day + 1).AddMonths(1)
|
||||
DateBIS.Value = DateVON.Value.AddMonths(1).AddDays(-1)
|
||||
Else
|
||||
DateVON.Value = DateVON.Value.AddDays(-DateVON.Value.Day + 1).AddMonths(-1)
|
||||
DateBIS.Value = DateVON.Value.AddMonths(1).AddDays(-1)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub CmdJahr_Click(sender As Object, e As EventArgs) Handles CmdJahr.Click
|
||||
DateVON.Value = Now.AddDays(-Now.Day + 1).AddMonths(-Now.Month + 1)
|
||||
DateBIS.Value = Now()
|
||||
End Sub
|
||||
|
||||
Private Sub CmdJahrMinus_Click(sender As Object, e As EventArgs) Handles CmdJahrMinus.Click, CmdJahrPlus.Click
|
||||
If sender Is CmdJahrPlus Then
|
||||
DateVON.Value = DateVON.Value.AddDays(-DateVON.Value.Day + 1).AddMonths(-DateVON.Value.Month + 1).AddYears(1)
|
||||
DateBIS.Value = DateVON.Value.AddYears(1).AddDays(-1)
|
||||
Else
|
||||
DateVON.Value = DateVON.Value.AddDays(-DateVON.Value.Day + 1).AddMonths(-DateVON.Value.Month + 1).AddYears(-1)
|
||||
DateBIS.Value = DateVON.Value.AddYears(1).AddDays(-1)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub CmdAlle_Click(sender As Object, e As EventArgs) Handles CmdAlle.Click
|
||||
Try
|
||||
DateVON.Value = "01.01.1970"
|
||||
DateBIS.Value = Now.AddDays(-DateVON.Value.Day + 1).AddMonths(-DateVON.Value.Month + 1).AddYears(1)
|
||||
'cboAuftragsart.changeItem("Alle")
|
||||
'cboFiliale.changeItem("Alle")
|
||||
Catch
|
||||
MsgBox("Oh oh")
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
|
||||
Public Sub EnableDoubleBuffered(ByVal dgv As DataGridView)
|
||||
|
||||
Dim dgvType As Type = dgv.[GetType]()
|
||||
|
||||
Dim pi As PropertyInfo = dgvType.GetProperty("DoubleBuffered",
|
||||
BindingFlags.Instance Or BindingFlags.NonPublic)
|
||||
|
||||
pi.SetValue(dgv, True, Nothing)
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub cboAuftragsart_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboAuftragsart.SelectedIndexChanged, cboFiliale.SelectedIndexChanged, cbxAbliefer.CheckedChanged, txtSuche.TextChanged, txtAuftraggeber.TextChanged, txtFrachtfuehrerBis.TextChanged, txtFrachtfuehrerAb.TextChanged, txtTransportunternehmen.TextChanged, txtLadestelle.TextChanged, txtEntladeStelle.TextChanged
|
||||
showDGVAuftraege()
|
||||
End Sub
|
||||
|
||||
Private Sub btnReset_Click(sender As Object, e As EventArgs) Handles btnReset.Click
|
||||
DateBIS.Value = Now()
|
||||
DateVON.Value = Now.AddYears(-1).AddDays(1)
|
||||
txtSuche.Text = ""
|
||||
txtAuftraggeber.Text = ""
|
||||
txtFrachtfuehrerBis.Text = ""
|
||||
txtFrachtfuehrerAb.Text = ""
|
||||
txtTransportunternehmen.Text = ""
|
||||
txtLadestelle.Text = ""
|
||||
txtEntladeStelle.Text = ""
|
||||
cbxAbliefer.CheckState = CheckState.Indeterminate
|
||||
cbxAbliefer.Checked = True
|
||||
cboAuftragsart.changeItem("ALLE")
|
||||
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_niederlassung
|
||||
Case "NEU" : cboFiliale.changeItem("4819") : Niederlassung = "4819"
|
||||
Case Else : cboFiliale.changeItem("4807") : Niederlassung = "4807"
|
||||
End Select
|
||||
End Sub
|
||||
|
||||
Private Sub btnNew_Click(sender As Object, e As EventArgs) Handles btnNew.Click
|
||||
frmAuftragNEU.auftragID = -1 : frmAuftragNEU.Show() : AddHandler frmAuftragNEU.Disposed, AddressOf meEnabledTrue
|
||||
End Sub
|
||||
|
||||
Private Sub meEnabledTrue()
|
||||
Me.Enabled = True
|
||||
showDGVAuftraege()
|
||||
Me.BringToFront()
|
||||
End Sub
|
||||
|
||||
Private Sub btnAuswertung_Click(sender As Object, e As EventArgs) Handles btnAuswertung.Click
|
||||
'If cboFiliale.SelectedItem.text = "NEUHAUS" Then
|
||||
' frmAuswertung.Niederlassung = "4819"
|
||||
'ElseIf cboFiliale.SelectedItem.text = "SUBEN" Then
|
||||
' frmAuswertung.Niederlassung = "4807"
|
||||
'Else
|
||||
' Niederlassung = ""
|
||||
'End If
|
||||
Dim auswertung As New frmAuswertung
|
||||
auswertung.Niederlassung = returnfil()
|
||||
auswertung.Show()
|
||||
End Sub
|
||||
|
||||
Private Sub btnChange_Click(sender As Object, e As EventArgs) Handles btnChange.Click
|
||||
SelectedDGVIndex = dgvAuftraege.CurrentRow.Index
|
||||
Dim frmAuftragNEU = New frmAuftragNEU
|
||||
Try
|
||||
If frmAuftragNEU.Visible Then
|
||||
MsgBox("Ein Auftrag ist bereits geöffnet!", vbCritical, "Fenster geöffnet")
|
||||
frmAuftragNEU.BringToFront()
|
||||
Else
|
||||
frmAuftragNEU.auftragID = dgvAuftraege.CurrentRow.Cells(0).Value
|
||||
frmAuftragNEU.Show()
|
||||
AddHandler frmAuftragNEU.Disposed, AddressOf meEnabledTrue
|
||||
Me.Enabled = False
|
||||
End If
|
||||
' Me.Enabled = False
|
||||
Catch ex As Exception
|
||||
Me.Enabled = True
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub btnDel_Click(sender As Object, e As EventArgs) Handles btnDel.Click
|
||||
If dgvAuftraege.SelectedRows.Count > 0 Then
|
||||
|
||||
Select Case MsgBox("Soll der Eintrag wirklich gelöscht werden?", vbQuestion Or vbYesNo Or vbDefaultButton2, "Löschen?")
|
||||
Case vbYes
|
||||
DISPO.delAuftrag(Convert.ToInt32(dgvAuftraege.CurrentRow.Cells(0).Value))
|
||||
'Tabelle_anzeigen()
|
||||
showDGVAuftraege()
|
||||
Case vbNo
|
||||
End Select
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub btnDuplicate_Click(sender As Object, e As EventArgs) Handles btnDuplicate.Click
|
||||
Try
|
||||
Dim AUFTRAG As New cDispoAuftraege(dgvAuftraege.CurrentRow.Cells(0).Value)
|
||||
AUFTRAG.atr_id = -1
|
||||
AUFTRAG.atr_datum = Now
|
||||
AUFTRAG.atr_frachtpos = Nothing
|
||||
AUFTRAG.LADUNGEN.Clear()
|
||||
AUFTRAG.BH_rechnungen.Clear()
|
||||
AUFTRAG.SAVE()
|
||||
|
||||
Dim frmAuftragNEU As New frmAuftragNEU
|
||||
frmAuftragNEU.auftragID = AUFTRAG.atr_id
|
||||
AddHandler frmAuftragNEU.Disposed, AddressOf meEnabledTrue
|
||||
frmAuftragNEU.Show()
|
||||
|
||||
Exit Sub
|
||||
Dim a As cAuftraege = DISPO.getAuftragById(dgvAuftraege.CurrentRow.Cells(0).Value)
|
||||
a.atr_frachtpos = DISPO.getFrachtpos
|
||||
a.atr_datum = Now
|
||||
a.atr_abliefernachweis = False
|
||||
a.atr_ladungen = New List(Of cLadungen)
|
||||
a.bh_rechnungen = New List(Of cBuchhaltungRechnung)
|
||||
|
||||
a.cmr_ausl_land = ""
|
||||
a.cmr_ausl_ort = ""
|
||||
a.cmr_beigefDok = ""
|
||||
a.cmr_anwAbs = ""
|
||||
a.cmr_rueckerst = ""
|
||||
a.cmr_frZahlanwFrei = ""
|
||||
a.cmr_frZahlanwUnfrei = ""
|
||||
a.cmr_besVereinb = ""
|
||||
a.cmr_ausgefIn = ""
|
||||
a.cmr_uebergabe_land = ""
|
||||
a.cmr_uebergabe_ort = ""
|
||||
a.cmr_uebergabe_datum = ""
|
||||
a.cmr_vorbehFrachtf = ""
|
||||
|
||||
a.bh_mon = ""
|
||||
|
||||
a.bh_vermerke = ""
|
||||
a.atr_notes = ""
|
||||
a.atr_gefahrengut = ""
|
||||
a.atr_frachtkosten = ""
|
||||
a.atr_entladest_terminBis = ""
|
||||
a.atr_entladest_terminVon = ""
|
||||
a.atr_entladest_terminDat = ""
|
||||
a.atr_ladest_terminBis = ""
|
||||
a.atr_ladest_terminVon = ""
|
||||
a.atr_ladest_terminDat = ""
|
||||
a.atr_bemerkung = ""
|
||||
a.atr_speditionsbuchNr = -1
|
||||
a.atr_lkwArt = ""
|
||||
a.atr_lkwKz = ""
|
||||
a.atr_lkwNutzlast = ""
|
||||
a.atr_anhKz = ""
|
||||
a.atr_anhNutzlast = ""
|
||||
|
||||
DISPO.insertAuftragUndLadung(a)
|
||||
DISPO.setFrachtpos(a.atr_frachtpos)
|
||||
frmAuftragNEU.auftragID = DISPO.atr_id_insert
|
||||
AddHandler frmAuftragNEU.Disposed, AddressOf meEnabledTrue
|
||||
frmAuftragNEU.Show()
|
||||
|
||||
'frmAuftragNEU.Show()
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler beim Duplizieren: " & ex.Message)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub dgvAuftraege_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvAuftraege.CellDoubleClick
|
||||
Dim frmauftragneu = New frmAuftragNEU
|
||||
frmauftragneu.auftragID = dgvAuftraege.CurrentRow.Cells(0).Value
|
||||
If frmauftragneu.Visible Then
|
||||
MsgBox("Ein Antrag ist bereits geöffnet!", vbCritical, "Fenster geöffnet")
|
||||
frmauftragneu.BringToFront()
|
||||
End If
|
||||
frmauftragneu.Show()
|
||||
AddHandler frmauftragneu.Disposed, AddressOf meEnabledTrue
|
||||
frmauftragneu.BringToFront()
|
||||
End Sub
|
||||
Private Sub dataGridView1_CellClick(ByVal sender As Object, ByVal e As DataGridViewCellEventArgs) Handles dgvAuftraege.CellClick
|
||||
SelectedDGVIndex = dgvAuftraege.CurrentRow.Index
|
||||
Try
|
||||
If e.ColumnIndex = dgvAuftraege.Rows(e.RowIndex).Cells("atr_abliefernachweis").ColumnIndex Then
|
||||
Dim val As Boolean = Not dgvAuftraege.Rows(e.RowIndex).Cells("atr_abliefernachweis").Value
|
||||
DISPO.setAbliefernachweis(dgvAuftraege.Rows(e.RowIndex).Cells(0).Value, val)
|
||||
'Tabelle_anzeigen()
|
||||
showDGVAuftraege()
|
||||
End If
|
||||
Catch ex As Exception
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Private Sub btnSuchStat_Click(sender As Object, e As EventArgs) Handles btnSuchStat.Click
|
||||
Dim frmAus As New frmAuswertung
|
||||
frmAus.chkStandard.Checked = False
|
||||
frmAus.chkStatSuchererg.Checked = True
|
||||
frmAus.Niederlassung = returnfil()
|
||||
frmAus.von = DateVON.Value
|
||||
frmAus.bis = DateBIS.Value
|
||||
frmAus.Show()
|
||||
'MsgBox(SQLAuswerungAusAnsicht)
|
||||
End Sub
|
||||
|
||||
Private Sub btnTrip_Click(sender As Object, e As EventArgs) Handles btnTrip.Click
|
||||
Dim frmTrips As New frmLeer
|
||||
frmTrips.Text = "Trips"
|
||||
Dim usrcntrl As New usrcntlTrips
|
||||
usrcntrl.Dock = DockStyle.Fill : frmTrips.PanMain.Controls.Add(usrcntrl)
|
||||
|
||||
AddHandler frmTrips.Disposed, AddressOf meEnabledTrue
|
||||
Me.Enabled = False
|
||||
frmTrips.Show()
|
||||
End Sub
|
||||
|
||||
Private Sub btnAddTo_Click(sender As Object, e As EventArgs) Handles btnAddTo.Click
|
||||
Dim tripauftrag As New cDispoAuftraege
|
||||
tripauftrag.atr_id = dgvAuftraege.CurrentRow.Cells(0).Value
|
||||
tripauftrag.LOAD()
|
||||
tripauftrag.atr_tripNr = Trip.tripNr
|
||||
tripauftrag.atr_tripStopNr = Trip.CreateNextStop
|
||||
If Not Trip.trip_Transporter = tripauftrag.Return_TransportauftragArt() Then
|
||||
If MsgBox("Trip-Frächter und Auftrag-Frächter stimmen nicht überein: " & vbCrLf &
|
||||
"Trip: " & Trip.trip_Transporter & vbCrLf &
|
||||
"Auftrag: " & tripauftrag.Return_TransportauftragArt() & vbCrLf &
|
||||
"Trotzdem fortfahren?", MsgBoxStyle.OkCancel, "Unterschiedliche Frächter") = MsgBoxResult.Cancel Then ParentForm.Close() : Exit Sub
|
||||
End If
|
||||
tripauftrag.SAVE()
|
||||
ParentForm.Close()
|
||||
End Sub
|
||||
|
||||
Private Sub btnSuchAuswertung_Click(sender As Object, e As EventArgs) Handles btnSuchAuswertung.Click
|
||||
Dim frmAus As New frmAuswertung
|
||||
SQLAuswerungAusAnsicht = Core_SQLAuswertungAusAnsicht & WhereInator3000() & " group by atr_frachtpos, atr_auftr_firma, atr_frachtfAb_firma, atr_frachtf_firma, atr_ladest_firma, atr_Auftragsart, atr_TransportauftragArt--, Anzahl
|
||||
ORDER BY atr_frachtpos"
|
||||
frmAus.Niederlassung = returnfil()
|
||||
frmAus.chkStandard.Checked = False
|
||||
frmAus.chkAusSuchererg.Checked = True
|
||||
frmAus.von = DateVON.Value.ToShortDateString
|
||||
frmAus.bis = DateBIS.Value.ToShortDateString
|
||||
frmAus.Suchauswertung = True
|
||||
frmAus.Show()
|
||||
'MsgBox(SQLAuswerungAusAnsicht)
|
||||
End Sub
|
||||
|
||||
Public Function returnfil()
|
||||
If cboFiliale.SelectedItem.text = "NEUHAUS" Then
|
||||
Return "4819"
|
||||
ElseIf cboFiliale.SelectedItem.text = "SUBEN" Then
|
||||
Return "4807"
|
||||
Else
|
||||
Return ""
|
||||
End If
|
||||
End Function
|
||||
|
||||
|
||||
End Class
|
||||
227
UID/frmMain/usrcntlFirmen.Designer.vb
generated
Normal file
227
UID/frmMain/usrcntlFirmen.Designer.vb
generated
Normal file
@@ -0,0 +1,227 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class usrcntlFirmen
|
||||
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()
|
||||
Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Me.PanTop = New System.Windows.Forms.Panel()
|
||||
Me.PanOben = New System.Windows.Forms.Panel()
|
||||
Me.btnReset = New System.Windows.Forms.Button()
|
||||
Me.Label4 = New System.Windows.Forms.Label()
|
||||
Me.txtSuche = New System.Windows.Forms.TextBox()
|
||||
Me.Panel1 = New System.Windows.Forms.Panel()
|
||||
Me.Panel2 = New System.Windows.Forms.Panel()
|
||||
Me.btnDel = New System.Windows.Forms.Button()
|
||||
Me.btnChange = New System.Windows.Forms.Button()
|
||||
Me.btnNew = New System.Windows.Forms.Button()
|
||||
Me.lblMs = New System.Windows.Forms.Label()
|
||||
Me.lblAnzahl = New System.Windows.Forms.Label()
|
||||
Me.dgvKunden = New System.Windows.Forms.DataGridView()
|
||||
Me.PanTop.SuspendLayout()
|
||||
Me.PanOben.SuspendLayout()
|
||||
Me.Panel2.SuspendLayout()
|
||||
CType(Me.dgvKunden, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'PanTop
|
||||
'
|
||||
Me.PanTop.BackColor = System.Drawing.Color.White
|
||||
Me.PanTop.Controls.Add(Me.PanOben)
|
||||
Me.PanTop.Controls.Add(Me.Panel1)
|
||||
Me.PanTop.Dock = System.Windows.Forms.DockStyle.Top
|
||||
Me.PanTop.Location = New System.Drawing.Point(0, 0)
|
||||
Me.PanTop.Margin = New System.Windows.Forms.Padding(0)
|
||||
Me.PanTop.Name = "PanTop"
|
||||
Me.PanTop.Size = New System.Drawing.Size(1013, 84)
|
||||
Me.PanTop.TabIndex = 4
|
||||
'
|
||||
'PanOben
|
||||
'
|
||||
Me.PanOben.Controls.Add(Me.btnReset)
|
||||
Me.PanOben.Controls.Add(Me.Label4)
|
||||
Me.PanOben.Controls.Add(Me.txtSuche)
|
||||
Me.PanOben.Location = New System.Drawing.Point(0, 0)
|
||||
Me.PanOben.Margin = New System.Windows.Forms.Padding(0)
|
||||
Me.PanOben.Name = "PanOben"
|
||||
Me.PanOben.Size = New System.Drawing.Size(666, 84)
|
||||
Me.PanOben.TabIndex = 1
|
||||
'
|
||||
'btnReset
|
||||
'
|
||||
Me.btnReset.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnReset.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.btnReset.Location = New System.Drawing.Point(456, 32)
|
||||
Me.btnReset.Name = "btnReset"
|
||||
Me.btnReset.Size = New System.Drawing.Size(162, 23)
|
||||
Me.btnReset.TabIndex = 33
|
||||
Me.btnReset.Text = "Reset"
|
||||
Me.btnReset.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Label4
|
||||
'
|
||||
Me.Label4.AutoSize = True
|
||||
Me.Label4.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label4.Location = New System.Drawing.Point(39, 36)
|
||||
Me.Label4.Name = "Label4"
|
||||
Me.Label4.Size = New System.Drawing.Size(44, 14)
|
||||
Me.Label4.TabIndex = 44
|
||||
Me.Label4.Text = "Suche:"
|
||||
'
|
||||
'txtSuche
|
||||
'
|
||||
Me.txtSuche.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.txtSuche.Location = New System.Drawing.Point(83, 33)
|
||||
Me.txtSuche.Name = "txtSuche"
|
||||
Me.txtSuche.Size = New System.Drawing.Size(309, 20)
|
||||
Me.txtSuche.TabIndex = 42
|
||||
'
|
||||
'Panel1
|
||||
'
|
||||
Me.Panel1.BackColor = System.Drawing.Color.Transparent
|
||||
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Right
|
||||
Me.Panel1.Location = New System.Drawing.Point(779, 0)
|
||||
Me.Panel1.Name = "Panel1"
|
||||
Me.Panel1.Size = New System.Drawing.Size(234, 84)
|
||||
Me.Panel1.TabIndex = 0
|
||||
'
|
||||
'Panel2
|
||||
'
|
||||
Me.Panel2.BackColor = System.Drawing.Color.White
|
||||
Me.Panel2.Controls.Add(Me.btnDel)
|
||||
Me.Panel2.Controls.Add(Me.btnChange)
|
||||
Me.Panel2.Controls.Add(Me.btnNew)
|
||||
Me.Panel2.Controls.Add(Me.lblMs)
|
||||
Me.Panel2.Controls.Add(Me.lblAnzahl)
|
||||
Me.Panel2.Dock = System.Windows.Forms.DockStyle.Right
|
||||
Me.Panel2.Location = New System.Drawing.Point(914, 84)
|
||||
Me.Panel2.Name = "Panel2"
|
||||
Me.Panel2.Size = New System.Drawing.Size(99, 694)
|
||||
Me.Panel2.TabIndex = 5
|
||||
'
|
||||
'btnDel
|
||||
'
|
||||
Me.btnDel.Anchor = System.Windows.Forms.AnchorStyles.Right
|
||||
Me.btnDel.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnDel.Image = Global.DISPO.My.Resources.Resources.del
|
||||
Me.btnDel.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
|
||||
Me.btnDel.Location = New System.Drawing.Point(5, 213)
|
||||
Me.btnDel.Name = "btnDel"
|
||||
Me.btnDel.Size = New System.Drawing.Size(91, 33)
|
||||
Me.btnDel.TabIndex = 25
|
||||
Me.btnDel.Text = "Löschen"
|
||||
Me.btnDel.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.btnDel.UseVisualStyleBackColor = True
|
||||
'
|
||||
'btnChange
|
||||
'
|
||||
Me.btnChange.Anchor = System.Windows.Forms.AnchorStyles.Right
|
||||
Me.btnChange.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnChange.Image = Global.DISPO.My.Resources.Resources.stift
|
||||
Me.btnChange.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
|
||||
Me.btnChange.Location = New System.Drawing.Point(5, 161)
|
||||
Me.btnChange.Name = "btnChange"
|
||||
Me.btnChange.Size = New System.Drawing.Size(91, 33)
|
||||
Me.btnChange.TabIndex = 24
|
||||
Me.btnChange.Text = "Ändern"
|
||||
Me.btnChange.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.btnChange.UseVisualStyleBackColor = True
|
||||
'
|
||||
'btnNew
|
||||
'
|
||||
Me.btnNew.Anchor = System.Windows.Forms.AnchorStyles.Right
|
||||
Me.btnNew.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnNew.Image = Global.DISPO.My.Resources.Resources.plus
|
||||
Me.btnNew.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
|
||||
Me.btnNew.Location = New System.Drawing.Point(5, 122)
|
||||
Me.btnNew.Name = "btnNew"
|
||||
Me.btnNew.Size = New System.Drawing.Size(91, 33)
|
||||
Me.btnNew.TabIndex = 23
|
||||
Me.btnNew.Text = "Neu"
|
||||
Me.btnNew.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.btnNew.UseVisualStyleBackColor = True
|
||||
'
|
||||
'lblMs
|
||||
'
|
||||
Me.lblMs.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.lblMs.AutoSize = True
|
||||
Me.lblMs.Location = New System.Drawing.Point(2, 681)
|
||||
Me.lblMs.Name = "lblMs"
|
||||
Me.lblMs.Size = New System.Drawing.Size(47, 13)
|
||||
Me.lblMs.TabIndex = 2
|
||||
Me.lblMs.Text = "Ladezeit"
|
||||
'
|
||||
'lblAnzahl
|
||||
'
|
||||
Me.lblAnzahl.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.lblAnzahl.AutoSize = True
|
||||
Me.lblAnzahl.Location = New System.Drawing.Point(3, 668)
|
||||
Me.lblAnzahl.Name = "lblAnzahl"
|
||||
Me.lblAnzahl.Size = New System.Drawing.Size(39, 13)
|
||||
Me.lblAnzahl.TabIndex = 1
|
||||
Me.lblAnzahl.Text = "Anzahl"
|
||||
'
|
||||
'dgvKunden
|
||||
'
|
||||
DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Me.dgvKunden.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
|
||||
Me.dgvKunden.BackgroundColor = System.Drawing.Color.White
|
||||
Me.dgvKunden.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
|
||||
Me.dgvKunden.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.dgvKunden.Location = New System.Drawing.Point(0, 84)
|
||||
Me.dgvKunden.Name = "dgvKunden"
|
||||
Me.dgvKunden.RowHeadersVisible = False
|
||||
Me.dgvKunden.Size = New System.Drawing.Size(914, 694)
|
||||
Me.dgvKunden.TabIndex = 6
|
||||
'
|
||||
'usrcntlFirmen
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.Controls.Add(Me.dgvKunden)
|
||||
Me.Controls.Add(Me.Panel2)
|
||||
Me.Controls.Add(Me.PanTop)
|
||||
Me.Name = "usrcntlFirmen"
|
||||
Me.Size = New System.Drawing.Size(1013, 778)
|
||||
Me.PanTop.ResumeLayout(False)
|
||||
Me.PanOben.ResumeLayout(False)
|
||||
Me.PanOben.PerformLayout()
|
||||
Me.Panel2.ResumeLayout(False)
|
||||
Me.Panel2.PerformLayout()
|
||||
CType(Me.dgvKunden, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
|
||||
Friend WithEvents PanTop As Panel
|
||||
Friend WithEvents PanOben As Panel
|
||||
Friend WithEvents Label4 As Label
|
||||
Friend WithEvents txtSuche As TextBox
|
||||
Friend WithEvents Panel1 As Panel
|
||||
Friend WithEvents Panel2 As Panel
|
||||
Friend WithEvents btnDel As Button
|
||||
Friend WithEvents btnChange As Button
|
||||
Friend WithEvents btnNew As Button
|
||||
Friend WithEvents lblMs As Label
|
||||
Friend WithEvents lblAnzahl As Label
|
||||
Friend WithEvents dgvKunden As DataGridView
|
||||
Friend WithEvents btnReset As Button
|
||||
End Class
|
||||
120
UID/frmMain/usrcntlFirmen.resx
Normal file
120
UID/frmMain/usrcntlFirmen.resx
Normal file
@@ -0,0 +1,120 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 2.0
|
||||
|
||||
The primary goals of this format is to allow a simple XML format
|
||||
that is mostly human readable. The generation and parsing of the
|
||||
various data types are done through the TypeConverter classes
|
||||
associated with the data types.
|
||||
|
||||
Example:
|
||||
|
||||
... ado.net/XML headers & schema ...
|
||||
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||
<resheader name="version">2.0</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||
<comment>This is a comment</comment>
|
||||
</data>
|
||||
|
||||
There are any number of "resheader" rows that contain simple
|
||||
name/value pairs.
|
||||
|
||||
Each data row contains a name, and value. The row also contains a
|
||||
type or mimetype. Type corresponds to a .NET class that support
|
||||
text/value conversion through the TypeConverter architecture.
|
||||
Classes that don't support this are serialized and stored with the
|
||||
mimetype set.
|
||||
|
||||
The mimetype is used for serialized objects, and tells the
|
||||
ResXResourceReader how to depersist the object. This is currently not
|
||||
extensible. For a given mimetype the value must be set accordingly:
|
||||
|
||||
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||
that the ResXResourceWriter will generate, however the reader can
|
||||
read any of the formats listed below.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.binary.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.soap.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||
value : The object must be serialized into a byte array
|
||||
: using a System.ComponentModel.TypeConverter
|
||||
: and then encoded with base64 encoding.
|
||||
-->
|
||||
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
|
||||
<xsd:element name="root" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<xsd:element name="metadata">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" use="required" type="xsd:string" />
|
||||
<xsd:attribute name="type" type="xsd:string" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="assembly">
|
||||
<xsd:complexType>
|
||||
<xsd:attribute name="alias" type="xsd:string" />
|
||||
<xsd:attribute name="name" type="xsd:string" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="data">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="resheader">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:choice>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:schema>
|
||||
<resheader name="resmimetype">
|
||||
<value>text/microsoft-resx</value>
|
||||
</resheader>
|
||||
<resheader name="version">
|
||||
<value>2.0</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
</root>
|
||||
173
UID/frmMain/usrcntlFirmen.vb
Normal file
173
UID/frmMain/usrcntlFirmen.vb
Normal file
@@ -0,0 +1,173 @@
|
||||
Imports System.ComponentModel
|
||||
Imports System.IO
|
||||
Imports System.Globalization
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Reflection
|
||||
|
||||
Public Class usrcntlFirmen
|
||||
|
||||
Private DISPO As New cOptionenDAL
|
||||
|
||||
Public Shared dt As DataTable
|
||||
Public Shared SelectedDGVIndex As Integer
|
||||
|
||||
Private Sub usrcntlFirmen_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||||
EnableDoubleBuffered(dgvKunden)
|
||||
|
||||
showDGVKunden()
|
||||
End Sub
|
||||
|
||||
Private Sub initDGVKunden(bindingString As String)
|
||||
Dim sqlstr As String = bindingString
|
||||
' dgvLKW.DataSource = bindingSDL
|
||||
Dim vpasql As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
|
||||
dt = vpasql.loadDgvBySql(sqlstr, "DISPO")
|
||||
dgvKunden.DataSource = dt
|
||||
End Sub
|
||||
|
||||
Public Sub showDGVKunden()
|
||||
Dim where As String = ""
|
||||
Dim search As String = ""
|
||||
Dim start As Long = (DateTime.Now - New DateTime(1970, 1, 1)).TotalMilliseconds
|
||||
|
||||
If txtSuche.Text <> "" Then
|
||||
search = txtSuche.Text.Replace("'", "")
|
||||
where &= " WHERE kd_firma LIKE '%" & search & "%' OR (kd_str + ' ' + kd_strnr) LIKE '%" & search & "%' OR (kd_plz + ' - ' + kd_ort) LIKE '%" & search & "%' OR kd_land LIKE '%" & search & "%'"
|
||||
End If
|
||||
|
||||
With dgvKunden
|
||||
Dim top As String = ""
|
||||
initDGVKunden("SELECT " & top & " kd_id, kd_firma, (kd_str + ' ' + kd_strnr) as strasse, (kd_plz + ' - ' + kd_ort) as ort, kd_land,kd_oez_id FROM tblKunden " & where & " ")
|
||||
|
||||
'locZeilen = -1
|
||||
' If Not Grid_aktiv Then Exit Sub
|
||||
|
||||
'Tabelle Kommt/Geht bereinigen
|
||||
If .RowCount = 0 Then Exit Sub
|
||||
|
||||
.Sort(.Columns(1), ListSortDirection.Ascending)
|
||||
|
||||
.RowTemplate.Height = 20
|
||||
.RowTemplate.DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopLeft
|
||||
.AllowUserToAddRows = False
|
||||
.AllowUserToDeleteRows = False
|
||||
.AllowUserToOrderColumns = False
|
||||
.AllowUserToResizeColumns = True
|
||||
.AllowUserToResizeRows = False
|
||||
.RowTemplate.ReadOnly = True
|
||||
.RowHeadersVisible = False
|
||||
.MultiSelect = False
|
||||
.SelectionMode = DataGridViewSelectionMode.FullRowSelect
|
||||
.ReadOnly = True
|
||||
|
||||
.Columns(0).Visible = False
|
||||
|
||||
.Columns(1).MinimumWidth = 300
|
||||
.Columns(1).HeaderText = "Firma"
|
||||
.Columns(1).AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
|
||||
' .Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
|
||||
|
||||
.Columns(2).Width = 250
|
||||
.Columns(2).HeaderText = "Straße"
|
||||
|
||||
.Columns(3).Width = 250
|
||||
.Columns(3).HeaderText = "Ort"
|
||||
|
||||
.Columns(4).Width = 150
|
||||
.Columns(4).HeaderText = "Land"
|
||||
|
||||
.Columns(5).Visible = False
|
||||
|
||||
|
||||
'initDGVKundenFilter()
|
||||
'Anzeige der Anzahl gewählter/aller Datensätze
|
||||
lblAnzahl.Text = Format(.RowCount, "#,##0") & " Einträge"
|
||||
If (.RowCount = 100) Then lblAnzahl.Text &= " (Die Suche wurde auf 100 Ergebnisse beschränkt.)"
|
||||
End With
|
||||
|
||||
lblAnzahl.Refresh()
|
||||
Dim ende As Long = (DateTime.Now - New DateTime(1970, 1, 1)).TotalMilliseconds
|
||||
lblMs.Text = "Ladezeit: " & (ende - start) & " ms"
|
||||
Try
|
||||
If dgvKunden.Rows.Count - 1 >= SelectedDGVIndex Then dgvKunden.Rows(SelectedDGVIndex).Selected = True
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
End Try
|
||||
'lblMs.Image = Nothing
|
||||
End Sub
|
||||
|
||||
|
||||
Public Sub EnableDoubleBuffered(ByVal dgv As DataGridView)
|
||||
Dim dgvType As Type = dgv.[GetType]()
|
||||
Dim pi As PropertyInfo = dgvType.GetProperty("DoubleBuffered",
|
||||
BindingFlags.Instance Or BindingFlags.NonPublic)
|
||||
pi.SetValue(dgv, True, Nothing)
|
||||
End Sub
|
||||
|
||||
Private Sub txtSuche_TextChanged(sender As Object, e As EventArgs) Handles txtSuche.TextChanged
|
||||
showDGVKunden()
|
||||
End Sub
|
||||
|
||||
Private Sub btnReset_Click(sender As Object, e As EventArgs) Handles btnReset.Click
|
||||
txtSuche.Text = ""
|
||||
showDGVKunden()
|
||||
End Sub
|
||||
|
||||
Private Sub btnNew_Click(sender As Object, e As EventArgs) Handles btnNew.Click
|
||||
frmDetails.rowId = -1 : frmDetails.mainForm = "frmMain" : frmDetails.Show() : AddHandler frmDetails.Disposed, AddressOf meEnabledTrue
|
||||
End Sub
|
||||
|
||||
Private Sub meEnabledTrue()
|
||||
Me.Enabled = True
|
||||
showDGVKunden()
|
||||
Me.BringToFront()
|
||||
End Sub
|
||||
|
||||
Private Sub btnChange_Click(sender As Object, e As EventArgs) Handles btnChange.Click
|
||||
SelectedDGVIndex = dgvKunden.CurrentRow.Index
|
||||
Try
|
||||
If frmDetails.Visible Then
|
||||
MsgBox("Ein Kunden-Formular ist bereits geöffnet!", vbCritical, "Fenster geöffnet")
|
||||
frmDetails.BringToFront()
|
||||
Else
|
||||
frmDetails.rowId = dgvKunden.CurrentRow.Cells(0).Value
|
||||
frmDetails.mainForm = "frmMain"
|
||||
frmDetails.Show()
|
||||
AddHandler frmDetails.Disposed, AddressOf meEnabledTrue
|
||||
Me.Enabled = False
|
||||
End If
|
||||
Catch ex As Exception
|
||||
Me.Enabled = True
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub btnDel_Click(sender As Object, e As EventArgs) Handles btnDel.Click
|
||||
Select Case MsgBox("Soll der Eintrag wirklich gelöscht werden?", vbQuestion Or vbYesNo Or vbDefaultButton2, "Löschen?")
|
||||
Case vbYes
|
||||
DISPO.delData(Convert.ToInt32(dgvKunden.CurrentRow.Cells(0).Value))
|
||||
DISPO.delOeffnungszeiten(Convert.ToInt32(dgvKunden.CurrentRow.Cells(5).Value))
|
||||
showDGVKunden()
|
||||
Case vbNo
|
||||
End Select
|
||||
End Sub
|
||||
|
||||
Private Sub dgvKunden_CellDouble(sender As Object, e As DataGridViewCellEventArgs) Handles dgvKunden.CellDoubleClick
|
||||
SelectedDGVIndex = dgvKunden.CurrentRow.Index
|
||||
Try
|
||||
If frmDetails.Visible Then
|
||||
MsgBox("Ein Kunden-Formular ist bereits geöffnet!", vbCritical, "Fenster geöffnet")
|
||||
frmDetails.BringToFront()
|
||||
Else
|
||||
frmDetails.rowId = dgvKunden.CurrentRow.Cells(0).Value
|
||||
frmDetails.mainForm = "frmMain"
|
||||
frmDetails.Show()
|
||||
AddHandler frmDetails.Disposed, AddressOf meEnabledTrue
|
||||
Me.Enabled = False
|
||||
End If
|
||||
Catch ex As Exception
|
||||
Me.Enabled = True
|
||||
End Try
|
||||
End Sub
|
||||
End Class
|
||||
227
UID/frmMain/usrcntlFrachtkosten.Designer.vb
generated
Normal file
227
UID/frmMain/usrcntlFrachtkosten.Designer.vb
generated
Normal file
@@ -0,0 +1,227 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class usrcntlFrachtkosten
|
||||
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()
|
||||
Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Me.PanTop = New System.Windows.Forms.Panel()
|
||||
Me.PanOben = New System.Windows.Forms.Panel()
|
||||
Me.btnReset = New System.Windows.Forms.Button()
|
||||
Me.Label4 = New System.Windows.Forms.Label()
|
||||
Me.txtSuche = New System.Windows.Forms.TextBox()
|
||||
Me.Panel1 = New System.Windows.Forms.Panel()
|
||||
Me.Panel2 = New System.Windows.Forms.Panel()
|
||||
Me.btnDel = New System.Windows.Forms.Button()
|
||||
Me.btnChange = New System.Windows.Forms.Button()
|
||||
Me.btnNew = New System.Windows.Forms.Button()
|
||||
Me.lblMs = New System.Windows.Forms.Label()
|
||||
Me.lblAnzahl = New System.Windows.Forms.Label()
|
||||
Me.dgvFrachtkosten = New System.Windows.Forms.DataGridView()
|
||||
Me.PanTop.SuspendLayout()
|
||||
Me.PanOben.SuspendLayout()
|
||||
Me.Panel2.SuspendLayout()
|
||||
CType(Me.dgvFrachtkosten, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'PanTop
|
||||
'
|
||||
Me.PanTop.BackColor = System.Drawing.Color.White
|
||||
Me.PanTop.Controls.Add(Me.PanOben)
|
||||
Me.PanTop.Controls.Add(Me.Panel1)
|
||||
Me.PanTop.Dock = System.Windows.Forms.DockStyle.Top
|
||||
Me.PanTop.Location = New System.Drawing.Point(0, 0)
|
||||
Me.PanTop.Margin = New System.Windows.Forms.Padding(0)
|
||||
Me.PanTop.Name = "PanTop"
|
||||
Me.PanTop.Size = New System.Drawing.Size(1181, 84)
|
||||
Me.PanTop.TabIndex = 5
|
||||
'
|
||||
'PanOben
|
||||
'
|
||||
Me.PanOben.Controls.Add(Me.btnReset)
|
||||
Me.PanOben.Controls.Add(Me.Label4)
|
||||
Me.PanOben.Controls.Add(Me.txtSuche)
|
||||
Me.PanOben.Location = New System.Drawing.Point(0, 0)
|
||||
Me.PanOben.Margin = New System.Windows.Forms.Padding(0)
|
||||
Me.PanOben.Name = "PanOben"
|
||||
Me.PanOben.Size = New System.Drawing.Size(666, 84)
|
||||
Me.PanOben.TabIndex = 1
|
||||
'
|
||||
'btnReset
|
||||
'
|
||||
Me.btnReset.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnReset.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.btnReset.Location = New System.Drawing.Point(456, 32)
|
||||
Me.btnReset.Name = "btnReset"
|
||||
Me.btnReset.Size = New System.Drawing.Size(162, 23)
|
||||
Me.btnReset.TabIndex = 33
|
||||
Me.btnReset.Text = "Reset"
|
||||
Me.btnReset.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Label4
|
||||
'
|
||||
Me.Label4.AutoSize = True
|
||||
Me.Label4.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label4.Location = New System.Drawing.Point(39, 36)
|
||||
Me.Label4.Name = "Label4"
|
||||
Me.Label4.Size = New System.Drawing.Size(44, 14)
|
||||
Me.Label4.TabIndex = 44
|
||||
Me.Label4.Text = "Suche:"
|
||||
'
|
||||
'txtSuche
|
||||
'
|
||||
Me.txtSuche.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.txtSuche.Location = New System.Drawing.Point(83, 33)
|
||||
Me.txtSuche.Name = "txtSuche"
|
||||
Me.txtSuche.Size = New System.Drawing.Size(309, 20)
|
||||
Me.txtSuche.TabIndex = 42
|
||||
'
|
||||
'Panel1
|
||||
'
|
||||
Me.Panel1.BackColor = System.Drawing.Color.Transparent
|
||||
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Right
|
||||
Me.Panel1.Location = New System.Drawing.Point(947, 0)
|
||||
Me.Panel1.Name = "Panel1"
|
||||
Me.Panel1.Size = New System.Drawing.Size(234, 84)
|
||||
Me.Panel1.TabIndex = 0
|
||||
'
|
||||
'Panel2
|
||||
'
|
||||
Me.Panel2.BackColor = System.Drawing.Color.White
|
||||
Me.Panel2.Controls.Add(Me.btnDel)
|
||||
Me.Panel2.Controls.Add(Me.btnChange)
|
||||
Me.Panel2.Controls.Add(Me.btnNew)
|
||||
Me.Panel2.Controls.Add(Me.lblMs)
|
||||
Me.Panel2.Controls.Add(Me.lblAnzahl)
|
||||
Me.Panel2.Dock = System.Windows.Forms.DockStyle.Right
|
||||
Me.Panel2.Location = New System.Drawing.Point(1082, 84)
|
||||
Me.Panel2.Name = "Panel2"
|
||||
Me.Panel2.Size = New System.Drawing.Size(99, 706)
|
||||
Me.Panel2.TabIndex = 6
|
||||
'
|
||||
'btnDel
|
||||
'
|
||||
Me.btnDel.Anchor = System.Windows.Forms.AnchorStyles.Right
|
||||
Me.btnDel.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnDel.Image = Global.DISPO.My.Resources.Resources.del
|
||||
Me.btnDel.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
|
||||
Me.btnDel.Location = New System.Drawing.Point(5, 219)
|
||||
Me.btnDel.Name = "btnDel"
|
||||
Me.btnDel.Size = New System.Drawing.Size(91, 33)
|
||||
Me.btnDel.TabIndex = 25
|
||||
Me.btnDel.Text = "Löschen"
|
||||
Me.btnDel.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.btnDel.UseVisualStyleBackColor = True
|
||||
'
|
||||
'btnChange
|
||||
'
|
||||
Me.btnChange.Anchor = System.Windows.Forms.AnchorStyles.Right
|
||||
Me.btnChange.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnChange.Image = Global.DISPO.My.Resources.Resources.stift
|
||||
Me.btnChange.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
|
||||
Me.btnChange.Location = New System.Drawing.Point(5, 167)
|
||||
Me.btnChange.Name = "btnChange"
|
||||
Me.btnChange.Size = New System.Drawing.Size(91, 33)
|
||||
Me.btnChange.TabIndex = 24
|
||||
Me.btnChange.Text = "Ändern"
|
||||
Me.btnChange.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.btnChange.UseVisualStyleBackColor = True
|
||||
'
|
||||
'btnNew
|
||||
'
|
||||
Me.btnNew.Anchor = System.Windows.Forms.AnchorStyles.Right
|
||||
Me.btnNew.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnNew.Image = Global.DISPO.My.Resources.Resources.plus
|
||||
Me.btnNew.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
|
||||
Me.btnNew.Location = New System.Drawing.Point(5, 128)
|
||||
Me.btnNew.Name = "btnNew"
|
||||
Me.btnNew.Size = New System.Drawing.Size(91, 33)
|
||||
Me.btnNew.TabIndex = 23
|
||||
Me.btnNew.Text = "Neu"
|
||||
Me.btnNew.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.btnNew.UseVisualStyleBackColor = True
|
||||
'
|
||||
'lblMs
|
||||
'
|
||||
Me.lblMs.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.lblMs.AutoSize = True
|
||||
Me.lblMs.Location = New System.Drawing.Point(2, 693)
|
||||
Me.lblMs.Name = "lblMs"
|
||||
Me.lblMs.Size = New System.Drawing.Size(47, 13)
|
||||
Me.lblMs.TabIndex = 2
|
||||
Me.lblMs.Text = "Ladezeit"
|
||||
'
|
||||
'lblAnzahl
|
||||
'
|
||||
Me.lblAnzahl.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.lblAnzahl.AutoSize = True
|
||||
Me.lblAnzahl.Location = New System.Drawing.Point(3, 680)
|
||||
Me.lblAnzahl.Name = "lblAnzahl"
|
||||
Me.lblAnzahl.Size = New System.Drawing.Size(39, 13)
|
||||
Me.lblAnzahl.TabIndex = 1
|
||||
Me.lblAnzahl.Text = "Anzahl"
|
||||
'
|
||||
'dgvFrachtkosten
|
||||
'
|
||||
DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Me.dgvFrachtkosten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
|
||||
Me.dgvFrachtkosten.BackgroundColor = System.Drawing.Color.White
|
||||
Me.dgvFrachtkosten.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
|
||||
Me.dgvFrachtkosten.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.dgvFrachtkosten.Location = New System.Drawing.Point(0, 84)
|
||||
Me.dgvFrachtkosten.Name = "dgvFrachtkosten"
|
||||
Me.dgvFrachtkosten.RowHeadersVisible = False
|
||||
Me.dgvFrachtkosten.Size = New System.Drawing.Size(1082, 706)
|
||||
Me.dgvFrachtkosten.TabIndex = 7
|
||||
'
|
||||
'usrcntlFrachtkosten
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.Controls.Add(Me.dgvFrachtkosten)
|
||||
Me.Controls.Add(Me.Panel2)
|
||||
Me.Controls.Add(Me.PanTop)
|
||||
Me.Name = "usrcntlFrachtkosten"
|
||||
Me.Size = New System.Drawing.Size(1181, 790)
|
||||
Me.PanTop.ResumeLayout(False)
|
||||
Me.PanOben.ResumeLayout(False)
|
||||
Me.PanOben.PerformLayout()
|
||||
Me.Panel2.ResumeLayout(False)
|
||||
Me.Panel2.PerformLayout()
|
||||
CType(Me.dgvFrachtkosten, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
|
||||
Friend WithEvents PanTop As Panel
|
||||
Friend WithEvents PanOben As Panel
|
||||
Friend WithEvents btnReset As Button
|
||||
Friend WithEvents Label4 As Label
|
||||
Friend WithEvents txtSuche As TextBox
|
||||
Friend WithEvents Panel1 As Panel
|
||||
Friend WithEvents Panel2 As Panel
|
||||
Friend WithEvents btnDel As Button
|
||||
Friend WithEvents btnChange As Button
|
||||
Friend WithEvents btnNew As Button
|
||||
Friend WithEvents lblMs As Label
|
||||
Friend WithEvents lblAnzahl As Label
|
||||
Friend WithEvents dgvFrachtkosten As DataGridView
|
||||
End Class
|
||||
120
UID/frmMain/usrcntlFrachtkosten.resx
Normal file
120
UID/frmMain/usrcntlFrachtkosten.resx
Normal file
@@ -0,0 +1,120 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 2.0
|
||||
|
||||
The primary goals of this format is to allow a simple XML format
|
||||
that is mostly human readable. The generation and parsing of the
|
||||
various data types are done through the TypeConverter classes
|
||||
associated with the data types.
|
||||
|
||||
Example:
|
||||
|
||||
... ado.net/XML headers & schema ...
|
||||
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||
<resheader name="version">2.0</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||
<comment>This is a comment</comment>
|
||||
</data>
|
||||
|
||||
There are any number of "resheader" rows that contain simple
|
||||
name/value pairs.
|
||||
|
||||
Each data row contains a name, and value. The row also contains a
|
||||
type or mimetype. Type corresponds to a .NET class that support
|
||||
text/value conversion through the TypeConverter architecture.
|
||||
Classes that don't support this are serialized and stored with the
|
||||
mimetype set.
|
||||
|
||||
The mimetype is used for serialized objects, and tells the
|
||||
ResXResourceReader how to depersist the object. This is currently not
|
||||
extensible. For a given mimetype the value must be set accordingly:
|
||||
|
||||
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||
that the ResXResourceWriter will generate, however the reader can
|
||||
read any of the formats listed below.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.binary.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.soap.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||
value : The object must be serialized into a byte array
|
||||
: using a System.ComponentModel.TypeConverter
|
||||
: and then encoded with base64 encoding.
|
||||
-->
|
||||
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
|
||||
<xsd:element name="root" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<xsd:element name="metadata">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" use="required" type="xsd:string" />
|
||||
<xsd:attribute name="type" type="xsd:string" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="assembly">
|
||||
<xsd:complexType>
|
||||
<xsd:attribute name="alias" type="xsd:string" />
|
||||
<xsd:attribute name="name" type="xsd:string" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="data">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="resheader">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:choice>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:schema>
|
||||
<resheader name="resmimetype">
|
||||
<value>text/microsoft-resx</value>
|
||||
</resheader>
|
||||
<resheader name="version">
|
||||
<value>2.0</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
</root>
|
||||
151
UID/frmMain/usrcntlFrachtkosten.vb
Normal file
151
UID/frmMain/usrcntlFrachtkosten.vb
Normal file
@@ -0,0 +1,151 @@
|
||||
Imports System.ComponentModel
|
||||
Imports System.IO
|
||||
Imports System.Globalization
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Reflection
|
||||
|
||||
Public Class usrcntlFrachtkosten
|
||||
|
||||
Dim SelectedDGVIndex As Integer = 0
|
||||
|
||||
Private DISPO As New cOptionenDAL
|
||||
|
||||
Dim dt As DataTable
|
||||
|
||||
Private Sub initDGVFrachtkosten(bindingString As String)
|
||||
Dim sqlstr As String = bindingString
|
||||
' dgvLKW.DataSource = bindingSDL
|
||||
Dim vpasql As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
|
||||
dt = vpasql.loadDgvBySql(sqlstr, "DISPO")
|
||||
dgvFrachtkosten.DataSource = dt
|
||||
End Sub
|
||||
|
||||
Public Sub showDGVFrachtkosten()
|
||||
Dim where As String = ""
|
||||
Dim search As String = ""
|
||||
Dim start As Long = (DateTime.Now - New DateTime(1970, 1, 1)).TotalMilliseconds
|
||||
|
||||
If txtSuche.Text <> "" Then
|
||||
search = txtSuche.Text.Replace("'", "")
|
||||
where &= " AND (frtkst_id LIKE '%" & search & "%' OR kd_firma LIKE '%" & search & "%')"
|
||||
End If
|
||||
|
||||
With dgvFrachtkosten
|
||||
initDGVFrachtkosten("SELECT frtkst_id,frtkst_firmaId,kd_firma,frtkst_preisM3,frtkst_preisLDM,frtkst_provision FROM tblFrachtkosten,tblKunden WHERE kd_id=frtkst_firmaId " & where & "")
|
||||
'locZeilen = -1
|
||||
Dim top As String = "" ' "top 100"
|
||||
|
||||
'Tabelle Kommt/Geht bereinigen
|
||||
If .RowCount = 0 Then Exit Sub
|
||||
dgvFrachtkosten.Sort(.Columns(1), ListSortDirection.Descending)
|
||||
|
||||
.RowTemplate.Height = 20
|
||||
.RowTemplate.DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopLeft
|
||||
.AllowUserToAddRows = False
|
||||
.AllowUserToDeleteRows = False
|
||||
.AllowUserToOrderColumns = False
|
||||
.AllowUserToResizeColumns = True
|
||||
.AllowUserToResizeRows = False
|
||||
.RowTemplate.ReadOnly = True
|
||||
.RowHeadersVisible = False
|
||||
.SelectionMode = DataGridViewSelectionMode.FullRowSelect
|
||||
.MultiSelect = False
|
||||
|
||||
.Columns(0).Visible = False
|
||||
.Columns(1).Visible = False
|
||||
|
||||
.Columns(2).MinimumWidth = 300
|
||||
.Columns(2).AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
|
||||
.Columns(2).HeaderText = "Firma"
|
||||
|
||||
.Columns(3).Width = 100
|
||||
.Columns(3).HeaderText = "Preis pro m³"
|
||||
.Columns(3).DefaultCellStyle.FormatProvider = CultureInfo.GetCultureInfo("de-DE")
|
||||
.Columns(3).DefaultCellStyle.Format = "n"
|
||||
|
||||
.Columns(4).Width = 100
|
||||
.Columns(4).HeaderText = "Preis pro LDM"
|
||||
.Columns(4).DefaultCellStyle.FormatProvider = CultureInfo.GetCultureInfo("de-DE")
|
||||
.Columns(4).DefaultCellStyle.Format = "n"
|
||||
|
||||
.Columns(5).Width = 100
|
||||
.Columns(5).HeaderText = "Provision"
|
||||
.Columns(5).DefaultCellStyle.FormatProvider = CultureInfo.GetCultureInfo("de-DE")
|
||||
.Columns(5).DefaultCellStyle.Format = "n"
|
||||
|
||||
'Anzeige der Anzahl gewählter/aller Datensätze
|
||||
lblAnzahl.Text = Format(.RowCount, "#,##0") & " Einträge"
|
||||
If (.RowCount = 100) Then lblAnzahl.Text &= " ausgewählt (Die Suche wurde auf 100 Ergebnisse beschränkt.)"
|
||||
|
||||
End With
|
||||
lblAnzahl.Refresh()
|
||||
Dim ende As Long = (DateTime.Now - New DateTime(1970, 1, 1)).TotalMilliseconds
|
||||
lblMs.Text = "Ladezeit: " & (ende - start) & " ms"
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub btnNew_Click(sender As Object, e As EventArgs) Handles btnNew.Click
|
||||
frmFrachtkostenNew.Show() : AddHandler frmFrachtkosten.Disposed, AddressOf meEnabledTrue
|
||||
End Sub
|
||||
|
||||
Private Sub meEnabledTrue()
|
||||
Me.Enabled = True
|
||||
showDGVFrachtkosten()
|
||||
Me.BringToFront()
|
||||
End Sub
|
||||
|
||||
Private Sub usrcntlFrachtkosten_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||||
EnableDoubleBuffered(dgvFrachtkosten)
|
||||
showDGVFrachtkosten()
|
||||
End Sub
|
||||
|
||||
Private Sub btnChange_Click(sender As Object, e As EventArgs) Handles btnChange.Click
|
||||
If frmFrachtkosten.Visible Then
|
||||
MsgBox("Ein Frachtkosten-Formular ist bereits geöffnet!", vbCritical, "Fenster geöffnet")
|
||||
frmFrachtkosten.BringToFront()
|
||||
Else
|
||||
frmFrachtkosten.frachtfirma_id = dgvFrachtkosten.CurrentRow.Cells(1).Value
|
||||
End If
|
||||
frmFrachtkosten.Show()
|
||||
Me.Enabled = False
|
||||
AddHandler frmFrachtkosten.Disposed, AddressOf meEnabledTrue
|
||||
End Sub
|
||||
|
||||
Private Sub btnDel_Click(sender As Object, e As EventArgs) Handles btnDel.Click
|
||||
Select Case MsgBox("Soll der Eintrag wirklich gelöscht werden?", vbQuestion Or vbYesNo Or vbDefaultButton2, "Löschen?")
|
||||
Case vbYes
|
||||
DISPO.delFrachtkosten(Convert.ToInt32(dgvFrachtkosten.CurrentRow.Cells(0).Value))
|
||||
showDGVFrachtkosten()
|
||||
Case vbNo
|
||||
End Select
|
||||
End Sub
|
||||
|
||||
Private Sub DataGridView1_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvFrachtkosten.CellDoubleClick
|
||||
|
||||
If frmFrachtkosten.Visible Then
|
||||
MsgBox("Ein Frachtkosten-Formular ist bereits geöffnet!", vbCritical, "Fenster geöffnet")
|
||||
frmFrachtkosten.BringToFront()
|
||||
Else
|
||||
frmFrachtkosten.frachtfirma_id = dgvFrachtkosten.CurrentRow.Cells(1).Value
|
||||
End If
|
||||
frmFrachtkosten.Show()
|
||||
Me.Enabled = False
|
||||
AddHandler frmFrachtkosten.Disposed, AddressOf meEnabledTrue
|
||||
End Sub
|
||||
|
||||
Private Sub txtSuche_TextChanged(sender As Object, e As EventArgs) Handles txtSuche.TextChanged
|
||||
showDGVFrachtkosten()
|
||||
End Sub
|
||||
|
||||
Private Sub btnReset_Click(sender As Object, e As EventArgs) Handles btnReset.Click
|
||||
txtSuche.Text = ""
|
||||
showDGVFrachtkosten()
|
||||
End Sub
|
||||
Public Sub EnableDoubleBuffered(ByVal dgv As DataGridView)
|
||||
Dim dgvType As Type = dgv.[GetType]()
|
||||
Dim pi As PropertyInfo = dgvType.GetProperty("DoubleBuffered",
|
||||
BindingFlags.Instance Or BindingFlags.NonPublic)
|
||||
pi.SetValue(dgv, True, Nothing)
|
||||
End Sub
|
||||
End Class
|
||||
Reference in New Issue
Block a user