neu
This commit is contained in:
765
Aviso/GVMS/frmGVMS.Designer.vb
generated
Normal file
765
Aviso/GVMS/frmGVMS.Designer.vb
generated
Normal file
@@ -0,0 +1,765 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class frmGVMS
|
||||
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()
|
||||
Me.components = New System.ComponentModel.Container()
|
||||
Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmGVMS))
|
||||
Me.AbgeholtToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.Label8 = New System.Windows.Forms.Label()
|
||||
Me.btnVonJahr = New System.Windows.Forms.Button()
|
||||
Me.Panel1 = New System.Windows.Forms.Panel()
|
||||
Me.btnBisJahr = New System.Windows.Forms.Button()
|
||||
Me.btnMonat = New System.Windows.Forms.Button()
|
||||
Me.btnBisMonat = New System.Windows.Forms.Button()
|
||||
Me.btnVonMonat = New System.Windows.Forms.Button()
|
||||
Me.DateTimePicker2 = New System.Windows.Forms.DateTimePicker()
|
||||
Me.Label13 = New System.Windows.Forms.Label()
|
||||
Me.Label12 = New System.Windows.Forms.Label()
|
||||
Me.DateTimePicker1 = New System.Windows.Forms.DateTimePicker()
|
||||
Me.pnl = New System.Windows.Forms.Panel()
|
||||
Me.Label1 = New System.Windows.Forms.Label()
|
||||
Me.Button7 = New System.Windows.Forms.Button()
|
||||
Me.Button6 = New System.Windows.Forms.Button()
|
||||
Me.Button5 = New System.Windows.Forms.Button()
|
||||
Me.btnSuche = New System.Windows.Forms.Button()
|
||||
Me.Label23 = New System.Windows.Forms.Label()
|
||||
Me.btnJahr = New System.Windows.Forms.Button()
|
||||
Me.pnlTop = New System.Windows.Forms.Panel()
|
||||
Me.Label4 = New System.Windows.Forms.Label()
|
||||
Me.Label2 = New System.Windows.Forms.Label()
|
||||
Me.cntxtOptionen = New System.Windows.Forms.ContextMenuStrip(Me.components)
|
||||
Me.StornoToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.btnExcel = New System.Windows.Forms.Button()
|
||||
Me.pnloptions = New System.Windows.Forms.Panel()
|
||||
Me.Button1 = New System.Windows.Forms.Button()
|
||||
Me.Button2 = New System.Windows.Forms.Button()
|
||||
Me.FlatButton7 = New System.Windows.Forms.Button()
|
||||
Me.Label37 = New System.Windows.Forms.Label()
|
||||
Me.Button3 = New System.Windows.Forms.Button()
|
||||
Me.Button4 = New System.Windows.Forms.Button()
|
||||
Me.Button8 = New System.Windows.Forms.Button()
|
||||
Me.Button9 = New System.Windows.Forms.Button()
|
||||
Me.MyDatagridview1 = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
|
||||
Me.cboSachbearbeiter = New VERAG_PROG_ALLGEMEIN.MyComboBox()
|
||||
Me.txtKennzeichen = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.txtAbfertDat = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.txtAbfertDatBis = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.txtGMR = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.txtMaxSrch = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.Button10 = New System.Windows.Forms.Button()
|
||||
Me.Panel1.SuspendLayout()
|
||||
Me.pnl.SuspendLayout()
|
||||
Me.pnlTop.SuspendLayout()
|
||||
Me.cntxtOptionen.SuspendLayout()
|
||||
Me.pnloptions.SuspendLayout()
|
||||
CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'AbgeholtToolStripMenuItem
|
||||
'
|
||||
Me.AbgeholtToolStripMenuItem.Name = "AbgeholtToolStripMenuItem"
|
||||
Me.AbgeholtToolStripMenuItem.Size = New System.Drawing.Size(123, 22)
|
||||
Me.AbgeholtToolStripMenuItem.Text = "Abgeholt"
|
||||
'
|
||||
'Label8
|
||||
'
|
||||
Me.Label8.AutoSize = True
|
||||
Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label8.Location = New System.Drawing.Point(12, 56)
|
||||
Me.Label8.Name = "Label8"
|
||||
Me.Label8.Size = New System.Drawing.Size(47, 13)
|
||||
Me.Label8.TabIndex = 34
|
||||
Me.Label8.Text = "Datum:"
|
||||
'
|
||||
'btnVonJahr
|
||||
'
|
||||
Me.btnVonJahr.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnVonJahr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
|
||||
Me.btnVonJahr.ForeColor = System.Drawing.Color.Black
|
||||
Me.btnVonJahr.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.btnVonJahr.Location = New System.Drawing.Point(162, 103)
|
||||
Me.btnVonJahr.Margin = New System.Windows.Forms.Padding(0)
|
||||
Me.btnVonJahr.Name = "btnVonJahr"
|
||||
Me.btnVonJahr.Size = New System.Drawing.Size(34, 23)
|
||||
Me.btnVonJahr.TabIndex = 25
|
||||
Me.btnVonJahr.Text = "<<"
|
||||
Me.btnVonJahr.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.btnVonJahr.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Panel1
|
||||
'
|
||||
Me.Panel1.Controls.Add(Me.MyDatagridview1)
|
||||
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.Panel1.Location = New System.Drawing.Point(0, 140)
|
||||
Me.Panel1.Name = "Panel1"
|
||||
Me.Panel1.Size = New System.Drawing.Size(1151, 455)
|
||||
Me.Panel1.TabIndex = 4
|
||||
'
|
||||
'btnBisJahr
|
||||
'
|
||||
Me.btnBisJahr.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnBisJahr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
|
||||
Me.btnBisJahr.ForeColor = System.Drawing.Color.Black
|
||||
Me.btnBisJahr.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.btnBisJahr.Location = New System.Drawing.Point(281, 103)
|
||||
Me.btnBisJahr.Margin = New System.Windows.Forms.Padding(0)
|
||||
Me.btnBisJahr.Name = "btnBisJahr"
|
||||
Me.btnBisJahr.Size = New System.Drawing.Size(34, 23)
|
||||
Me.btnBisJahr.TabIndex = 27
|
||||
Me.btnBisJahr.Text = ">>"
|
||||
Me.btnBisJahr.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.btnBisJahr.UseVisualStyleBackColor = True
|
||||
'
|
||||
'btnMonat
|
||||
'
|
||||
Me.btnMonat.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnMonat.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
|
||||
Me.btnMonat.ForeColor = System.Drawing.Color.Black
|
||||
Me.btnMonat.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.btnMonat.Location = New System.Drawing.Point(195, 77)
|
||||
Me.btnMonat.Margin = New System.Windows.Forms.Padding(0)
|
||||
Me.btnMonat.Name = "btnMonat"
|
||||
Me.btnMonat.Size = New System.Drawing.Size(87, 23)
|
||||
Me.btnMonat.TabIndex = 12
|
||||
Me.btnMonat.Text = "September"
|
||||
Me.btnMonat.UseVisualStyleBackColor = True
|
||||
'
|
||||
'btnBisMonat
|
||||
'
|
||||
Me.btnBisMonat.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnBisMonat.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
|
||||
Me.btnBisMonat.ForeColor = System.Drawing.Color.Black
|
||||
Me.btnBisMonat.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.btnBisMonat.Location = New System.Drawing.Point(281, 77)
|
||||
Me.btnBisMonat.Margin = New System.Windows.Forms.Padding(0)
|
||||
Me.btnBisMonat.Name = "btnBisMonat"
|
||||
Me.btnBisMonat.Size = New System.Drawing.Size(34, 23)
|
||||
Me.btnBisMonat.TabIndex = 13
|
||||
Me.btnBisMonat.Text = ">>"
|
||||
Me.btnBisMonat.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.btnBisMonat.UseVisualStyleBackColor = True
|
||||
'
|
||||
'btnVonMonat
|
||||
'
|
||||
Me.btnVonMonat.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnVonMonat.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
|
||||
Me.btnVonMonat.ForeColor = System.Drawing.Color.Black
|
||||
Me.btnVonMonat.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.btnVonMonat.Location = New System.Drawing.Point(162, 77)
|
||||
Me.btnVonMonat.Margin = New System.Windows.Forms.Padding(0)
|
||||
Me.btnVonMonat.Name = "btnVonMonat"
|
||||
Me.btnVonMonat.Size = New System.Drawing.Size(34, 23)
|
||||
Me.btnVonMonat.TabIndex = 11
|
||||
Me.btnVonMonat.Text = "<<"
|
||||
Me.btnVonMonat.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.btnVonMonat.UseVisualStyleBackColor = True
|
||||
'
|
||||
'DateTimePicker2
|
||||
'
|
||||
Me.DateTimePicker2.CustomFormat = "''"
|
||||
Me.DateTimePicker2.Format = System.Windows.Forms.DateTimePickerFormat.Custom
|
||||
Me.DateTimePicker2.Location = New System.Drawing.Point(41, 106)
|
||||
Me.DateTimePicker2.Margin = New System.Windows.Forms.Padding(0)
|
||||
Me.DateTimePicker2.Name = "DateTimePicker2"
|
||||
Me.DateTimePicker2.RightToLeft = System.Windows.Forms.RightToLeft.No
|
||||
Me.DateTimePicker2.Size = New System.Drawing.Size(115, 20)
|
||||
Me.DateTimePicker2.TabIndex = 24
|
||||
'
|
||||
'Label13
|
||||
'
|
||||
Me.Label13.AutoSize = True
|
||||
Me.Label13.Location = New System.Drawing.Point(12, 81)
|
||||
Me.Label13.Name = "Label13"
|
||||
Me.Label13.Size = New System.Drawing.Size(28, 13)
|
||||
Me.Label13.TabIndex = 8
|
||||
Me.Label13.Text = "von:"
|
||||
'
|
||||
'Label12
|
||||
'
|
||||
Me.Label12.AutoSize = True
|
||||
Me.Label12.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label12.Location = New System.Drawing.Point(336, 83)
|
||||
Me.Label12.Name = "Label12"
|
||||
Me.Label12.Size = New System.Drawing.Size(72, 13)
|
||||
Me.Label12.TabIndex = 7
|
||||
Me.Label12.Text = "Kennzeichen:"
|
||||
'
|
||||
'DateTimePicker1
|
||||
'
|
||||
Me.DateTimePicker1.CustomFormat = "''"
|
||||
Me.DateTimePicker1.Format = System.Windows.Forms.DateTimePickerFormat.Custom
|
||||
Me.DateTimePicker1.Location = New System.Drawing.Point(41, 77)
|
||||
Me.DateTimePicker1.Margin = New System.Windows.Forms.Padding(0)
|
||||
Me.DateTimePicker1.Name = "DateTimePicker1"
|
||||
Me.DateTimePicker1.RightToLeft = System.Windows.Forms.RightToLeft.No
|
||||
Me.DateTimePicker1.Size = New System.Drawing.Size(115, 20)
|
||||
Me.DateTimePicker1.TabIndex = 10
|
||||
'
|
||||
'pnl
|
||||
'
|
||||
Me.pnl.BackColor = System.Drawing.Color.WhiteSmoke
|
||||
Me.pnl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||||
Me.pnl.Controls.Add(Me.cboSachbearbeiter)
|
||||
Me.pnl.Controls.Add(Me.Label1)
|
||||
Me.pnl.Controls.Add(Me.txtKennzeichen)
|
||||
Me.pnl.Controls.Add(Me.Label8)
|
||||
Me.pnl.Controls.Add(Me.txtAbfertDat)
|
||||
Me.pnl.Controls.Add(Me.txtAbfertDatBis)
|
||||
Me.pnl.Controls.Add(Me.txtGMR)
|
||||
Me.pnl.Controls.Add(Me.Button7)
|
||||
Me.pnl.Controls.Add(Me.Button6)
|
||||
Me.pnl.Controls.Add(Me.Button5)
|
||||
Me.pnl.Controls.Add(Me.btnSuche)
|
||||
Me.pnl.Controls.Add(Me.Label23)
|
||||
Me.pnl.Controls.Add(Me.btnJahr)
|
||||
Me.pnl.Controls.Add(Me.pnlTop)
|
||||
Me.pnl.Controls.Add(Me.btnBisJahr)
|
||||
Me.pnl.Controls.Add(Me.btnVonJahr)
|
||||
Me.pnl.Controls.Add(Me.btnMonat)
|
||||
Me.pnl.Controls.Add(Me.btnBisMonat)
|
||||
Me.pnl.Controls.Add(Me.btnVonMonat)
|
||||
Me.pnl.Controls.Add(Me.DateTimePicker2)
|
||||
Me.pnl.Controls.Add(Me.Label13)
|
||||
Me.pnl.Controls.Add(Me.Label2)
|
||||
Me.pnl.Controls.Add(Me.Label12)
|
||||
Me.pnl.Controls.Add(Me.DateTimePicker1)
|
||||
Me.pnl.Dock = System.Windows.Forms.DockStyle.Top
|
||||
Me.pnl.Location = New System.Drawing.Point(0, 0)
|
||||
Me.pnl.Name = "pnl"
|
||||
Me.pnl.Size = New System.Drawing.Size(1151, 140)
|
||||
Me.pnl.TabIndex = 3
|
||||
'
|
||||
'Label1
|
||||
'
|
||||
Me.Label1.AutoSize = True
|
||||
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label1.Location = New System.Drawing.Point(632, 62)
|
||||
Me.Label1.Name = "Label1"
|
||||
Me.Label1.Size = New System.Drawing.Size(82, 13)
|
||||
Me.Label1.TabIndex = 22
|
||||
Me.Label1.Text = "Sachbearbeiter:"
|
||||
'
|
||||
'Button7
|
||||
'
|
||||
Me.Button7.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
|
||||
Me.Button7.ForeColor = System.Drawing.Color.Black
|
||||
Me.Button7.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.Button7.Location = New System.Drawing.Point(281, 51)
|
||||
Me.Button7.Margin = New System.Windows.Forms.Padding(0)
|
||||
Me.Button7.Name = "Button7"
|
||||
Me.Button7.Size = New System.Drawing.Size(34, 23)
|
||||
Me.Button7.TabIndex = 4
|
||||
Me.Button7.Text = ">>"
|
||||
Me.Button7.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.Button7.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Button6
|
||||
'
|
||||
Me.Button6.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
|
||||
Me.Button6.ForeColor = System.Drawing.Color.Black
|
||||
Me.Button6.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.Button6.Location = New System.Drawing.Point(162, 51)
|
||||
Me.Button6.Margin = New System.Windows.Forms.Padding(0)
|
||||
Me.Button6.Name = "Button6"
|
||||
Me.Button6.Size = New System.Drawing.Size(34, 23)
|
||||
Me.Button6.TabIndex = 2
|
||||
Me.Button6.Text = "<<"
|
||||
Me.Button6.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.Button6.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Button5
|
||||
'
|
||||
Me.Button5.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
|
||||
Me.Button5.ForeColor = System.Drawing.Color.Black
|
||||
Me.Button5.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.Button5.Location = New System.Drawing.Point(195, 51)
|
||||
Me.Button5.Margin = New System.Windows.Forms.Padding(0)
|
||||
Me.Button5.Name = "Button5"
|
||||
Me.Button5.Size = New System.Drawing.Size(87, 23)
|
||||
Me.Button5.TabIndex = 3
|
||||
Me.Button5.Text = "Heute"
|
||||
Me.Button5.UseVisualStyleBackColor = True
|
||||
'
|
||||
'btnSuche
|
||||
'
|
||||
Me.btnSuche.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.btnSuche.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnSuche.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.btnSuche.Image = Global.AVISO.My.Resources.Resources.search1
|
||||
Me.btnSuche.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.btnSuche.Location = New System.Drawing.Point(963, 57)
|
||||
Me.btnSuche.Name = "btnSuche"
|
||||
Me.btnSuche.Size = New System.Drawing.Size(162, 52)
|
||||
Me.btnSuche.TabIndex = 22
|
||||
Me.btnSuche.Text = "Suche starten"
|
||||
Me.btnSuche.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Label23
|
||||
'
|
||||
Me.Label23.AutoSize = True
|
||||
Me.Label23.Location = New System.Drawing.Point(12, 109)
|
||||
Me.Label23.Name = "Label23"
|
||||
Me.Label23.Size = New System.Drawing.Size(23, 13)
|
||||
Me.Label23.TabIndex = 20
|
||||
Me.Label23.Text = "bis:"
|
||||
'
|
||||
'btnJahr
|
||||
'
|
||||
Me.btnJahr.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnJahr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
|
||||
Me.btnJahr.ForeColor = System.Drawing.Color.Black
|
||||
Me.btnJahr.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.btnJahr.Location = New System.Drawing.Point(195, 103)
|
||||
Me.btnJahr.Margin = New System.Windows.Forms.Padding(0)
|
||||
Me.btnJahr.Name = "btnJahr"
|
||||
Me.btnJahr.Size = New System.Drawing.Size(87, 23)
|
||||
Me.btnJahr.TabIndex = 26
|
||||
Me.btnJahr.Text = "2016"
|
||||
Me.btnJahr.UseVisualStyleBackColor = True
|
||||
'
|
||||
'pnlTop
|
||||
'
|
||||
Me.pnlTop.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
|
||||
Me.pnlTop.Controls.Add(Me.Label4)
|
||||
Me.pnlTop.Dock = System.Windows.Forms.DockStyle.Top
|
||||
Me.pnlTop.Location = New System.Drawing.Point(0, 0)
|
||||
Me.pnlTop.Name = "pnlTop"
|
||||
Me.pnlTop.Size = New System.Drawing.Size(1149, 48)
|
||||
Me.pnlTop.TabIndex = 0
|
||||
'
|
||||
'Label4
|
||||
'
|
||||
Me.Label4.AutoSize = True
|
||||
Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 16.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label4.ForeColor = System.Drawing.Color.White
|
||||
Me.Label4.Location = New System.Drawing.Point(10, 13)
|
||||
Me.Label4.Name = "Label4"
|
||||
Me.Label4.Size = New System.Drawing.Size(81, 26)
|
||||
Me.Label4.TabIndex = 0
|
||||
Me.Label4.Text = "GVMS"
|
||||
'
|
||||
'Label2
|
||||
'
|
||||
Me.Label2.AutoSize = True
|
||||
Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label2.Location = New System.Drawing.Point(336, 62)
|
||||
Me.Label2.Name = "Label2"
|
||||
Me.Label2.Size = New System.Drawing.Size(39, 13)
|
||||
Me.Label2.TabIndex = 5
|
||||
Me.Label2.Text = "GMR:"
|
||||
'
|
||||
'cntxtOptionen
|
||||
'
|
||||
Me.cntxtOptionen.ImageScalingSize = New System.Drawing.Size(24, 24)
|
||||
Me.cntxtOptionen.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.AbgeholtToolStripMenuItem, Me.StornoToolStripMenuItem})
|
||||
Me.cntxtOptionen.Name = "cntxtOptionen"
|
||||
Me.cntxtOptionen.Size = New System.Drawing.Size(124, 48)
|
||||
Me.cntxtOptionen.Text = "Optionen"
|
||||
'
|
||||
'StornoToolStripMenuItem
|
||||
'
|
||||
Me.StornoToolStripMenuItem.Name = "StornoToolStripMenuItem"
|
||||
Me.StornoToolStripMenuItem.Size = New System.Drawing.Size(123, 22)
|
||||
Me.StornoToolStripMenuItem.Text = "Storno"
|
||||
'
|
||||
'btnExcel
|
||||
'
|
||||
Me.btnExcel.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.btnExcel.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
|
||||
Me.btnExcel.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnExcel.Location = New System.Drawing.Point(1060, 22)
|
||||
Me.btnExcel.Name = "btnExcel"
|
||||
Me.btnExcel.Size = New System.Drawing.Size(41, 34)
|
||||
Me.btnExcel.TabIndex = 7
|
||||
Me.btnExcel.UseVisualStyleBackColor = True
|
||||
'
|
||||
'pnloptions
|
||||
'
|
||||
Me.pnloptions.BackColor = System.Drawing.Color.WhiteSmoke
|
||||
Me.pnloptions.Controls.Add(Me.Button10)
|
||||
Me.pnloptions.Controls.Add(Me.Button9)
|
||||
Me.pnloptions.Controls.Add(Me.Button8)
|
||||
Me.pnloptions.Controls.Add(Me.Button4)
|
||||
Me.pnloptions.Controls.Add(Me.Button3)
|
||||
Me.pnloptions.Controls.Add(Me.Button1)
|
||||
Me.pnloptions.Controls.Add(Me.Button2)
|
||||
Me.pnloptions.Controls.Add(Me.btnExcel)
|
||||
Me.pnloptions.Controls.Add(Me.FlatButton7)
|
||||
Me.pnloptions.Controls.Add(Me.Label37)
|
||||
Me.pnloptions.Controls.Add(Me.txtMaxSrch)
|
||||
Me.pnloptions.Dock = System.Windows.Forms.DockStyle.Bottom
|
||||
Me.pnloptions.Location = New System.Drawing.Point(0, 595)
|
||||
Me.pnloptions.Name = "pnloptions"
|
||||
Me.pnloptions.Size = New System.Drawing.Size(1151, 59)
|
||||
Me.pnloptions.TabIndex = 5
|
||||
'
|
||||
'Button1
|
||||
'
|
||||
Me.Button1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
|
||||
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.Button1.Location = New System.Drawing.Point(113, 5)
|
||||
Me.Button1.Margin = New System.Windows.Forms.Padding(0)
|
||||
Me.Button1.Name = "Button1"
|
||||
Me.Button1.Size = New System.Drawing.Size(170, 45)
|
||||
Me.Button1.TabIndex = 9
|
||||
Me.Button1.Text = "Nachrichten einarbeiten"
|
||||
Me.Button1.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Button2
|
||||
'
|
||||
Me.Button2.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
|
||||
Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button2.Image = Global.AVISO.My.Resources.Resources.plus
|
||||
Me.Button2.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.Button2.Location = New System.Drawing.Point(12, 5)
|
||||
Me.Button2.Margin = New System.Windows.Forms.Padding(0)
|
||||
Me.Button2.Name = "Button2"
|
||||
Me.Button2.Padding = New System.Windows.Forms.Padding(0, 0, 10, 0)
|
||||
Me.Button2.Size = New System.Drawing.Size(84, 45)
|
||||
Me.Button2.TabIndex = 1
|
||||
Me.Button2.Text = "Neu"
|
||||
Me.Button2.TextAlign = System.Drawing.ContentAlignment.MiddleRight
|
||||
Me.Button2.UseVisualStyleBackColor = True
|
||||
'
|
||||
'FlatButton7
|
||||
'
|
||||
Me.FlatButton7.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.FlatButton7.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
|
||||
Me.FlatButton7.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.FlatButton7.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.FlatButton7.ForeColor = System.Drawing.Color.Black
|
||||
Me.FlatButton7.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.FlatButton7.Location = New System.Drawing.Point(1107, 22)
|
||||
Me.FlatButton7.Name = "FlatButton7"
|
||||
Me.FlatButton7.Size = New System.Drawing.Size(41, 34)
|
||||
Me.FlatButton7.TabIndex = 8
|
||||
Me.FlatButton7.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Label37
|
||||
'
|
||||
Me.Label37.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.Label37.AutoSize = True
|
||||
Me.Label37.Location = New System.Drawing.Point(974, 33)
|
||||
Me.Label37.Name = "Label37"
|
||||
Me.Label37.Size = New System.Drawing.Size(30, 13)
|
||||
Me.Label37.TabIndex = 5
|
||||
Me.Label37.Text = "Max:"
|
||||
'
|
||||
'Button3
|
||||
'
|
||||
Me.Button3.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
|
||||
Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button3.Image = Global.AVISO.My.Resources.Resources.del
|
||||
Me.Button3.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.Button3.Location = New System.Drawing.Point(340, 5)
|
||||
Me.Button3.Margin = New System.Windows.Forms.Padding(0)
|
||||
Me.Button3.Name = "Button3"
|
||||
Me.Button3.Size = New System.Drawing.Size(170, 45)
|
||||
Me.Button3.TabIndex = 10
|
||||
Me.Button3.Text = "GMR löschen (HMRC)"
|
||||
Me.Button3.TextAlign = System.Drawing.ContentAlignment.MiddleRight
|
||||
Me.Button3.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Button4
|
||||
'
|
||||
Me.Button4.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
|
||||
Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button4.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.Button4.Location = New System.Drawing.Point(520, 5)
|
||||
Me.Button4.Margin = New System.Windows.Forms.Padding(0)
|
||||
Me.Button4.Name = "Button4"
|
||||
Me.Button4.Size = New System.Drawing.Size(109, 45)
|
||||
Me.Button4.TabIndex = 11
|
||||
Me.Button4.Text = "GVMS LIST"
|
||||
Me.Button4.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Button8
|
||||
'
|
||||
Me.Button8.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
|
||||
Me.Button8.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button8.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.Button8.Location = New System.Drawing.Point(636, 5)
|
||||
Me.Button8.Margin = New System.Windows.Forms.Padding(0)
|
||||
Me.Button8.Name = "Button8"
|
||||
Me.Button8.Size = New System.Drawing.Size(122, 45)
|
||||
Me.Button8.TabIndex = 12
|
||||
Me.Button8.Text = "GMR UPDATE"
|
||||
Me.Button8.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Button9
|
||||
'
|
||||
Me.Button9.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
|
||||
Me.Button9.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button9.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.Button9.Location = New System.Drawing.Point(826, 5)
|
||||
Me.Button9.Margin = New System.Windows.Forms.Padding(0)
|
||||
Me.Button9.Name = "Button9"
|
||||
Me.Button9.Size = New System.Drawing.Size(122, 45)
|
||||
Me.Button9.TabIndex = 13
|
||||
Me.Button9.Text = "UPDATE REF DATA"
|
||||
Me.Button9.UseVisualStyleBackColor = True
|
||||
'
|
||||
'MyDatagridview1
|
||||
'
|
||||
Me.MyDatagridview1.AKTUALISIERUNGS_INTERVALL = -1
|
||||
Me.MyDatagridview1.AllowUserToAddRows = False
|
||||
Me.MyDatagridview1.AllowUserToDeleteRows = False
|
||||
Me.MyDatagridview1.AllowUserToOrderColumns = True
|
||||
Me.MyDatagridview1.AllowUserToResizeRows = False
|
||||
Me.MyDatagridview1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
|
||||
DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle1.BackColor = System.Drawing.SystemColors.Window
|
||||
DataGridViewCellStyle1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle1.ForeColor = System.Drawing.SystemColors.ControlText
|
||||
DataGridViewCellStyle1.SelectionBackColor = System.Drawing.SystemColors.GradientInactiveCaption
|
||||
DataGridViewCellStyle1.SelectionForeColor = System.Drawing.SystemColors.ControlText
|
||||
DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
|
||||
Me.MyDatagridview1.DefaultCellStyle = DataGridViewCellStyle1
|
||||
Me.MyDatagridview1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.MyDatagridview1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.MyDatagridview1.Name = "MyDatagridview1"
|
||||
Me.MyDatagridview1.RowHeadersVisible = False
|
||||
Me.MyDatagridview1.Size = New System.Drawing.Size(1151, 455)
|
||||
Me.MyDatagridview1.TabIndex = 0
|
||||
'
|
||||
'cboSachbearbeiter
|
||||
'
|
||||
Me.cboSachbearbeiter._allowedValuesFreiText = Nothing
|
||||
Me.cboSachbearbeiter._allowFreiText = False
|
||||
Me.cboSachbearbeiter._value = ""
|
||||
Me.cboSachbearbeiter.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend
|
||||
Me.cboSachbearbeiter.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems
|
||||
Me.cboSachbearbeiter.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.cboSachbearbeiter.FormattingEnabled = True
|
||||
Me.cboSachbearbeiter.Location = New System.Drawing.Point(731, 57)
|
||||
Me.cboSachbearbeiter.Name = "cboSachbearbeiter"
|
||||
Me.cboSachbearbeiter.Size = New System.Drawing.Size(168, 24)
|
||||
Me.cboSachbearbeiter.TabIndex = 23
|
||||
'
|
||||
'txtKennzeichen
|
||||
'
|
||||
Me.txtKennzeichen._DateTimeOnly = False
|
||||
Me.txtKennzeichen._numbersOnly = False
|
||||
Me.txtKennzeichen._numbersOnlyKommastellen = ""
|
||||
Me.txtKennzeichen._Prozent = False
|
||||
Me.txtKennzeichen._ShortDateNew = False
|
||||
Me.txtKennzeichen._ShortDateOnly = False
|
||||
Me.txtKennzeichen._TimeOnly = False
|
||||
Me.txtKennzeichen._TimeOnly_Seconds = False
|
||||
Me.txtKennzeichen._value = ""
|
||||
Me.txtKennzeichen._Waehrung = False
|
||||
Me.txtKennzeichen._WaehrungZeichen = True
|
||||
Me.txtKennzeichen.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.txtKennzeichen.ForeColor = System.Drawing.Color.Black
|
||||
Me.txtKennzeichen.Location = New System.Drawing.Point(435, 78)
|
||||
Me.txtKennzeichen.MaxLineLength = -1
|
||||
Me.txtKennzeichen.MaxLines_Warning = ""
|
||||
Me.txtKennzeichen.MaxLines_Warning_Label = Nothing
|
||||
Me.txtKennzeichen.Name = "txtKennzeichen"
|
||||
Me.txtKennzeichen.Size = New System.Drawing.Size(168, 23)
|
||||
Me.txtKennzeichen.TabIndex = 35
|
||||
'
|
||||
'txtAbfertDat
|
||||
'
|
||||
Me.txtAbfertDat._DateTimeOnly = False
|
||||
Me.txtAbfertDat._numbersOnly = False
|
||||
Me.txtAbfertDat._numbersOnlyKommastellen = ""
|
||||
Me.txtAbfertDat._Prozent = False
|
||||
Me.txtAbfertDat._ShortDateNew = True
|
||||
Me.txtAbfertDat._ShortDateOnly = False
|
||||
Me.txtAbfertDat._TimeOnly = False
|
||||
Me.txtAbfertDat._TimeOnly_Seconds = False
|
||||
Me.txtAbfertDat._value = ""
|
||||
Me.txtAbfertDat._Waehrung = False
|
||||
Me.txtAbfertDat._WaehrungZeichen = True
|
||||
Me.txtAbfertDat.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.txtAbfertDat.ForeColor = System.Drawing.Color.Black
|
||||
Me.txtAbfertDat.Location = New System.Drawing.Point(41, 77)
|
||||
Me.txtAbfertDat.MaxLength = 10
|
||||
Me.txtAbfertDat.MaxLineLength = -1
|
||||
Me.txtAbfertDat.MaxLines_Warning = ""
|
||||
Me.txtAbfertDat.MaxLines_Warning_Label = Nothing
|
||||
Me.txtAbfertDat.Name = "txtAbfertDat"
|
||||
Me.txtAbfertDat.Size = New System.Drawing.Size(83, 20)
|
||||
Me.txtAbfertDat.TabIndex = 9
|
||||
'
|
||||
'txtAbfertDatBis
|
||||
'
|
||||
Me.txtAbfertDatBis._DateTimeOnly = False
|
||||
Me.txtAbfertDatBis._numbersOnly = False
|
||||
Me.txtAbfertDatBis._numbersOnlyKommastellen = ""
|
||||
Me.txtAbfertDatBis._Prozent = False
|
||||
Me.txtAbfertDatBis._ShortDateNew = True
|
||||
Me.txtAbfertDatBis._ShortDateOnly = False
|
||||
Me.txtAbfertDatBis._TimeOnly = False
|
||||
Me.txtAbfertDatBis._TimeOnly_Seconds = False
|
||||
Me.txtAbfertDatBis._value = ""
|
||||
Me.txtAbfertDatBis._Waehrung = False
|
||||
Me.txtAbfertDatBis._WaehrungZeichen = True
|
||||
Me.txtAbfertDatBis.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.txtAbfertDatBis.ForeColor = System.Drawing.Color.Black
|
||||
Me.txtAbfertDatBis.Location = New System.Drawing.Point(41, 106)
|
||||
Me.txtAbfertDatBis.MaxLength = 10
|
||||
Me.txtAbfertDatBis.MaxLineLength = -1
|
||||
Me.txtAbfertDatBis.MaxLines_Warning = ""
|
||||
Me.txtAbfertDatBis.MaxLines_Warning_Label = Nothing
|
||||
Me.txtAbfertDatBis.Name = "txtAbfertDatBis"
|
||||
Me.txtAbfertDatBis.Size = New System.Drawing.Size(83, 20)
|
||||
Me.txtAbfertDatBis.TabIndex = 23
|
||||
'
|
||||
'txtGMR
|
||||
'
|
||||
Me.txtGMR._DateTimeOnly = False
|
||||
Me.txtGMR._numbersOnly = False
|
||||
Me.txtGMR._numbersOnlyKommastellen = ""
|
||||
Me.txtGMR._Prozent = False
|
||||
Me.txtGMR._ShortDateNew = False
|
||||
Me.txtGMR._ShortDateOnly = False
|
||||
Me.txtGMR._TimeOnly = False
|
||||
Me.txtGMR._TimeOnly_Seconds = False
|
||||
Me.txtGMR._value = ""
|
||||
Me.txtGMR._Waehrung = False
|
||||
Me.txtGMR._WaehrungZeichen = True
|
||||
Me.txtGMR.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.txtGMR.ForeColor = System.Drawing.Color.Black
|
||||
Me.txtGMR.Location = New System.Drawing.Point(435, 57)
|
||||
Me.txtGMR.MaxLineLength = -1
|
||||
Me.txtGMR.MaxLines_Warning = ""
|
||||
Me.txtGMR.MaxLines_Warning_Label = Nothing
|
||||
Me.txtGMR.Name = "txtGMR"
|
||||
Me.txtGMR.Size = New System.Drawing.Size(168, 23)
|
||||
Me.txtGMR.TabIndex = 6
|
||||
'
|
||||
'txtMaxSrch
|
||||
'
|
||||
Me.txtMaxSrch._DateTimeOnly = False
|
||||
Me.txtMaxSrch._numbersOnly = True
|
||||
Me.txtMaxSrch._numbersOnlyKommastellen = ""
|
||||
Me.txtMaxSrch._Prozent = False
|
||||
Me.txtMaxSrch._ShortDateNew = False
|
||||
Me.txtMaxSrch._ShortDateOnly = False
|
||||
Me.txtMaxSrch._TimeOnly = False
|
||||
Me.txtMaxSrch._TimeOnly_Seconds = False
|
||||
Me.txtMaxSrch._value = ""
|
||||
Me.txtMaxSrch._Waehrung = False
|
||||
Me.txtMaxSrch._WaehrungZeichen = True
|
||||
Me.txtMaxSrch.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.txtMaxSrch.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.txtMaxSrch.ForeColor = System.Drawing.Color.Black
|
||||
Me.txtMaxSrch.Location = New System.Drawing.Point(1006, 30)
|
||||
Me.txtMaxSrch.MaxLineLength = -1
|
||||
Me.txtMaxSrch.MaxLines_Warning = ""
|
||||
Me.txtMaxSrch.MaxLines_Warning_Label = Nothing
|
||||
Me.txtMaxSrch.Name = "txtMaxSrch"
|
||||
Me.txtMaxSrch.Size = New System.Drawing.Size(48, 20)
|
||||
Me.txtMaxSrch.TabIndex = 6
|
||||
Me.txtMaxSrch.Text = "1000"
|
||||
Me.txtMaxSrch.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
|
||||
'
|
||||
'Button10
|
||||
'
|
||||
Me.Button10.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
|
||||
Me.Button10.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button10.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.Button10.Location = New System.Drawing.Point(282, 5)
|
||||
Me.Button10.Margin = New System.Windows.Forms.Padding(0)
|
||||
Me.Button10.Name = "Button10"
|
||||
Me.Button10.Size = New System.Drawing.Size(51, 45)
|
||||
Me.Button10.TabIndex = 14
|
||||
Me.Button10.Text = "Ackn."
|
||||
Me.Button10.UseVisualStyleBackColor = True
|
||||
'
|
||||
'frmGVMS
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.ClientSize = New System.Drawing.Size(1151, 654)
|
||||
Me.Controls.Add(Me.Panel1)
|
||||
Me.Controls.Add(Me.pnl)
|
||||
Me.Controls.Add(Me.pnloptions)
|
||||
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
||||
Me.Name = "frmGVMS"
|
||||
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
|
||||
Me.Text = "GVMS"
|
||||
Me.Panel1.ResumeLayout(False)
|
||||
Me.pnl.ResumeLayout(False)
|
||||
Me.pnl.PerformLayout()
|
||||
Me.pnlTop.ResumeLayout(False)
|
||||
Me.pnlTop.PerformLayout()
|
||||
Me.cntxtOptionen.ResumeLayout(False)
|
||||
Me.pnloptions.ResumeLayout(False)
|
||||
Me.pnloptions.PerformLayout()
|
||||
CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
|
||||
Friend WithEvents AbgeholtToolStripMenuItem As ToolStripMenuItem
|
||||
Friend WithEvents Label8 As Label
|
||||
Friend WithEvents btnVonJahr As Button
|
||||
Friend WithEvents Panel1 As Panel
|
||||
Friend WithEvents MyDatagridview1 As VERAG_PROG_ALLGEMEIN.MyDatagridview
|
||||
Friend WithEvents btnBisJahr As Button
|
||||
Friend WithEvents btnMonat As Button
|
||||
Friend WithEvents btnBisMonat As Button
|
||||
Friend WithEvents btnVonMonat As Button
|
||||
Friend WithEvents DateTimePicker2 As DateTimePicker
|
||||
Friend WithEvents Label13 As Label
|
||||
Friend WithEvents Label12 As Label
|
||||
Friend WithEvents DateTimePicker1 As DateTimePicker
|
||||
Friend WithEvents pnl As Panel
|
||||
Friend WithEvents txtAbfertDat As VERAG_PROG_ALLGEMEIN.MyTextBox
|
||||
Friend WithEvents txtAbfertDatBis As VERAG_PROG_ALLGEMEIN.MyTextBox
|
||||
Friend WithEvents txtGMR As VERAG_PROG_ALLGEMEIN.MyTextBox
|
||||
Friend WithEvents Button7 As Button
|
||||
Friend WithEvents Button6 As Button
|
||||
Friend WithEvents Button5 As Button
|
||||
Friend WithEvents btnSuche As Button
|
||||
Friend WithEvents Label23 As Label
|
||||
Friend WithEvents btnJahr As Button
|
||||
Friend WithEvents pnlTop As Panel
|
||||
Friend WithEvents Label4 As Label
|
||||
Friend WithEvents Label2 As Label
|
||||
Friend WithEvents cntxtOptionen As ContextMenuStrip
|
||||
Friend WithEvents StornoToolStripMenuItem As ToolStripMenuItem
|
||||
Friend WithEvents btnExcel As Button
|
||||
Friend WithEvents pnloptions As Panel
|
||||
Friend WithEvents Button1 As Button
|
||||
Friend WithEvents Button2 As Button
|
||||
Friend WithEvents FlatButton7 As Button
|
||||
Friend WithEvents Label37 As Label
|
||||
Friend WithEvents txtMaxSrch As VERAG_PROG_ALLGEMEIN.MyTextBox
|
||||
Friend WithEvents txtKennzeichen As VERAG_PROG_ALLGEMEIN.MyTextBox
|
||||
Friend WithEvents cboSachbearbeiter As VERAG_PROG_ALLGEMEIN.MyComboBox
|
||||
Friend WithEvents Label1 As Label
|
||||
Friend WithEvents Button3 As Button
|
||||
Friend WithEvents Button4 As Button
|
||||
Friend WithEvents Button8 As Button
|
||||
Friend WithEvents Button9 As Button
|
||||
Friend WithEvents Button10 As Button
|
||||
End Class
|
||||
1256
Aviso/GVMS/frmGVMS.resx
Normal file
1256
Aviso/GVMS/frmGVMS.resx
Normal file
File diff suppressed because it is too large
Load Diff
422
Aviso/GVMS/frmGVMS.vb
Normal file
422
Aviso/GVMS/frmGVMS.vb
Normal file
@@ -0,0 +1,422 @@
|
||||
Public Class frmGVMS
|
||||
|
||||
Dim FahrerAbholAuftrag = False
|
||||
Dim MONAT As Date = CDate("01." & Now.Month & "." & Now.Year) '.AddMonths(-1)
|
||||
Dim srcTAG As Date = CDate(Now.ToShortDateString)
|
||||
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
Dim JAHR As Date = CDate("01.01." & Now.Year)
|
||||
|
||||
|
||||
Sub New()
|
||||
|
||||
' Dieser Aufruf ist für den Designer erforderlich.
|
||||
InitializeComponent()
|
||||
|
||||
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Dim fullyPainted = False
|
||||
|
||||
|
||||
|
||||
Protected Overrides Sub WndProc(ByRef m As Message)
|
||||
MyBase.WndProc(m)
|
||||
If m.Msg = 15 AndAlso Not fullyPainted Then
|
||||
fullyPainted = True
|
||||
|
||||
setDGVOptions()
|
||||
|
||||
' initAllg()
|
||||
' initFilter()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Private Sub usrCntlSDLAbholung_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||||
|
||||
|
||||
txtAbfertDat.Text = Now.AddMonths(-6).ToShortDateString 'CDate("01." & Now.ToString("MM.yyyy")).AddMonths(-1).ToShortDateString
|
||||
txtAbfertDatBis.Text = Now.ToShortDateString
|
||||
|
||||
btnMonat.Text = MONAT.ToString("MMMM")
|
||||
btnJahr.Text = JAHR.Year
|
||||
|
||||
|
||||
cboSachbearbeiter.fillWithSQL("SELECT [mit_id],[mit_vname] + ' '+ [mit_nname] as Name " &
|
||||
" FROM [ADMIN].[dbo].[tblMitarbeiter] WHERE mit_niederlassung IN ('SUB','Suben') AND mit_abteilung='ZOLL' AND [mit_gekuendigt]=0 order by name", False, "ADMIN", True)
|
||||
|
||||
|
||||
btnSuche.PerformClick()
|
||||
|
||||
' If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("BH_Vorauskasse_buchen", "SDL") Then
|
||||
'pnlBH.Visible = True
|
||||
' End If
|
||||
|
||||
txtGMR.Focus()
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub DateTimePicker1_ValueChanged(sender As Object, e As EventArgs) Handles DateTimePicker1.ValueChanged
|
||||
txtAbfertDat._value = CDate(sender.value).ToShortDateString
|
||||
End Sub
|
||||
|
||||
Private Sub DateTimePicker2_ValueChanged(sender As Object, e As EventArgs) Handles DateTimePicker2.ValueChanged
|
||||
txtAbfertDatBis._value = CDate(sender.value).ToShortDateString
|
||||
End Sub
|
||||
|
||||
Sub initBtns(MonatJahr)
|
||||
btnMonat.Text = MONAT.ToString("MMMM")
|
||||
btnJahr.Text = JAHR.Year
|
||||
Select Case MonatJahr
|
||||
Case "Monat"
|
||||
DateTimePicker1.Value = MONAT
|
||||
DateTimePicker2.Value = MONAT.AddMonths(1).AddDays(-1)
|
||||
Case "Jahr"
|
||||
' If cbxGeschaftsjahr.Checked Then
|
||||
'DateTimePicker1.Value = JAHR.AddMonths(1)
|
||||
' DateTimePicker2.Value = JAHR.AddYears(1).AddMonths(1).AddDays(-1)
|
||||
' Else
|
||||
DateTimePicker1.Value = JAHR
|
||||
DateTimePicker2.Value = JAHR.AddYears(1).AddDays(-1)
|
||||
'End If
|
||||
Case "Tag"
|
||||
' If cbxGeschaftsjahr.Checked Then
|
||||
'DateTimePicker1.Value = JAHR.AddMonths(1)
|
||||
' DateTimePicker2.Value = JAHR.AddYears(1).AddMonths(1).AddDays(-1)
|
||||
' Else
|
||||
DateTimePicker1.Value = srcTAG
|
||||
DateTimePicker2.Value = srcTAG
|
||||
If srcTAG = Now.ToShortDateString Then
|
||||
Button5.Text = "Heute"
|
||||
ElseIf srcTAG = Now.AddDays(-1).ToShortDateString Then
|
||||
Button5.Text = "Gestern"
|
||||
ElseIf srcTAG = Now.AddDays(-2).ToShortDateString Then
|
||||
Button5.Text = "Vorgestern"
|
||||
Else
|
||||
Button5.Text = srcTAG.ToString("dd.MM")
|
||||
End If
|
||||
|
||||
'End If
|
||||
Case ""
|
||||
DateTimePicker1.Value = ("01." & Now.Month & "." & Now.Year)
|
||||
DateTimePicker2.Value = Now
|
||||
End Select
|
||||
btnSuche.PerformClick()
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub btnSuche_Click(sender As Object, e As EventArgs) Handles btnSuche.Click
|
||||
Me.Cursor = Cursors.WaitCursor
|
||||
|
||||
Dim TopMax = If(IsNumeric(txtMaxSrch.Text), " TOP " & txtMaxSrch.Text, "")
|
||||
Dim sqlstr As String = ""
|
||||
|
||||
|
||||
sqlstr &= " SELECT " & TopMax & " * FROM [tblGVMS] WHERE 1=1 "
|
||||
|
||||
With MyDatagridview1
|
||||
' .DataSource = myTable
|
||||
.SET_SQL(sqlstr & getWhere() & " order by gvms_datetime desc, gvms_id", "FMZOLL", getList)
|
||||
.LOAD()
|
||||
setDGVOptions()
|
||||
End With
|
||||
showDGV()
|
||||
|
||||
Me.Cursor = Cursors.Default
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Function getWhere() As String
|
||||
Dim sqlstr = ""
|
||||
|
||||
If txtAbfertDat.Text <> "" Then
|
||||
If txtAbfertDatBis.Text <> "" Then
|
||||
sqlstr &= " AND ([gvms_datetime] BETWEEN @DatVon AND @DatBis ) "
|
||||
Else
|
||||
sqlstr &= " AND ([gvms_datetime] BETWEEN @DatVon AND @DatVon ) "
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
If txtGMR.Text <> "" Then sqlstr &= " AND gvms_GMR LIKE @GMR "
|
||||
If cboSachbearbeiter._value <> "" Then sqlstr &= " AND sms_SachbearbeiterId LIKE @Personalnummer "
|
||||
If txtKennzeichen.Text <> "" Then sqlstr &= " AND [gvms_vehicleRegNum] LIKE @Kennzeichen "
|
||||
|
||||
|
||||
|
||||
Return sqlstr
|
||||
End Function
|
||||
|
||||
Function getList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
|
||||
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DatVon", txtAbfertDat.Text & " 00:00:00"))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DatBis", txtAbfertDatBis.Text & " 23:59:59"))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("GMR", ("%" & txtGMR.Text & "%").Replace("*", "%").Replace("/", "").Replace(" ", "")))
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Personalnummer", cboSachbearbeiter._value))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Kennzeichen", ("%" & txtKennzeichen.Text & "%").Replace("*", "%").Replace("/", "").Replace(" ", "")))
|
||||
|
||||
Return list
|
||||
|
||||
End Function
|
||||
|
||||
Sub showDGV()
|
||||
|
||||
With MyDatagridview1
|
||||
|
||||
If .ColumnCount = 0 Then Me.Cursor = Cursors.Default : Exit Sub
|
||||
.RowHeadersVisible = False
|
||||
.ReadOnly = True
|
||||
.SelectionMode = DataGridViewSelectionMode.FullRowSelect
|
||||
.MultiSelect = False
|
||||
.Columns("gvms_id").Visible = False
|
||||
'.Columns("sms_id").Visible = False
|
||||
'.Columns("sms_BatchId").Visible = False
|
||||
'.Columns("sms_MessageIds").Visible = False
|
||||
|
||||
'.Columns("sms_Datum").Width = 100
|
||||
'.Columns("sms_Datum").HeaderText = "Datum"
|
||||
'.Columns("sms_Datum").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
|
||||
|
||||
|
||||
'.Columns("sms_Sachbearbeiter").Width = 100
|
||||
'.Columns("sms_Sachbearbeiter").HeaderText = "Erfassung SB"
|
||||
|
||||
'.Columns("sms_Account").Visible = False
|
||||
|
||||
'.Columns("Nummer").Width = 150
|
||||
'.Columns("Nummer").HeaderText = "Handy Nummer"
|
||||
|
||||
|
||||
'.Columns("sms_Nachricht").MinimumWidth = 100
|
||||
'.Columns("sms_Nachricht").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
|
||||
'.Columns("sms_Nachricht").HeaderText = "Nachricht"
|
||||
|
||||
|
||||
|
||||
|
||||
' lblErgebnis.Text = "Ergebnise: " & .RowCount
|
||||
End With
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub FlatButton7_Click(sender As Object, e As EventArgs) Handles FlatButton7.Click
|
||||
MyDatagridview1.RELOAD()
|
||||
setDGVOptions()
|
||||
End Sub
|
||||
|
||||
Sub setDGVOptions()
|
||||
Try
|
||||
Exit Sub
|
||||
With MyDatagridview1
|
||||
For Each r As DataGridViewRow In .Rows
|
||||
If r.Cells("sdlAb_Storniert").Value IsNot DBNull.Value AndAlso r.Cells("sdlAb_Storniert").Value Then
|
||||
r.DefaultCellStyle.ForeColor = Color.Red
|
||||
r.DefaultCellStyle.SelectionForeColor = Color.Red
|
||||
' r.DefaultCellStyle.SelectionBackColor = Color.White
|
||||
ElseIf r.Cells("sdlAb_Abgeholt").Value IsNot DBNull.Value AndAlso r.Cells("sdlAb_Abgeholt").Value Then
|
||||
r.DefaultCellStyle.ForeColor = Color.DarkGreen
|
||||
r.DefaultCellStyle.SelectionForeColor = Color.DarkGreen
|
||||
' r.DefaultCellStyle.SelectionBackColor = Color.White
|
||||
End If
|
||||
Next
|
||||
End With
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
End Try
|
||||
End Sub
|
||||
Private Sub btnExcel_Click(sender As Object, e As EventArgs) Handles btnExcel.Click
|
||||
Me.Cursor = Cursors.WaitCursor
|
||||
SDL.cProgramFunctions.genExcelFromDGV_NEW(MyDatagridview1, False)
|
||||
Me.Cursor = Cursors.Default
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Private Sub MyDatagridview1_CellMouseClick(sender As Object, e As DataGridViewCellMouseEventArgs) Handles MyDatagridview1.CellMouseClick
|
||||
Exit Sub
|
||||
If e.Button = Windows.Forms.MouseButtons.Right Then
|
||||
MyDatagridview1.ClearSelection()
|
||||
MyDatagridview1.Rows(e.RowIndex).Selected = True
|
||||
' MyDatagridview1.CurrentCell = MyDatagridview1.Rows(e.RowIndex).Cells("sms_Handynummer")
|
||||
MyDatagridview1.Rows(e.RowIndex).Selected = True
|
||||
cntxtOptionen.Show(System.Windows.Forms.Cursor.Position)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub MyDatagridview1_SelectionChanged(sender As Object, e As EventArgs) Handles MyDatagridview1.SelectionChanged
|
||||
|
||||
If MyDatagridview1.SelectedRows.Count > 0 Then
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
|
||||
srcTAG = srcTAG.AddDays(-1)
|
||||
initBtns("Tag")
|
||||
End Sub
|
||||
|
||||
Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
|
||||
srcTAG = srcTAG.AddDays(1)
|
||||
initBtns("Tag")
|
||||
End Sub
|
||||
|
||||
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
|
||||
initBtns("Tag")
|
||||
End Sub
|
||||
|
||||
Private Sub btnMonat_Click(sender As Object, e As EventArgs) Handles btnMonat.Click
|
||||
initBtns("Monat")
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub btnJahr_Click(sender As Object, e As EventArgs) Handles btnJahr.Click
|
||||
initBtns("Jahr")
|
||||
End Sub
|
||||
|
||||
Private Sub btnBisMonat_Click(sender As Object, e As EventArgs) Handles btnBisMonat.Click
|
||||
MONAT = MONAT.AddMonths(1)
|
||||
initBtns("Monat")
|
||||
End Sub
|
||||
|
||||
Private Sub btnVonMonat_Click(sender As Object, e As EventArgs) Handles btnVonMonat.Click
|
||||
MONAT = MONAT.AddMonths(-1)
|
||||
initBtns("Monat")
|
||||
End Sub
|
||||
|
||||
Private Sub btnBisJahr_Click(sender As Object, e As EventArgs) Handles btnBisJahr.Click
|
||||
JAHR = JAHR.AddYears(1)
|
||||
initBtns("Jahr")
|
||||
End Sub
|
||||
|
||||
Private Sub btnVonJahr_Click(sender As Object, e As EventArgs) Handles btnVonJahr.Click
|
||||
JAHR = JAHR.AddYears(-1)
|
||||
initBtns("Jahr")
|
||||
End Sub '
|
||||
|
||||
|
||||
|
||||
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
|
||||
Dim f As New frmGVMSNew
|
||||
If f.ShowDialog(Me) = DialogResult.OK Then
|
||||
Threading.Thread.Sleep(500) ' Bissi warten, ob GMR schon gneriert wurde..
|
||||
GET_NOTIFICATIONS() ' ... GMR laden
|
||||
If f.GVMS IsNot Nothing Then
|
||||
f.GVMS.LOAD()
|
||||
If If(f.GVMS.gvms_GMR, "") <> "" Then
|
||||
MsgBox("GMR in Zwischenablage kopiert: " & f.GVMS.gvms_GMR)
|
||||
Clipboard.SetText(f.GVMS.gvms_GMR)
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
MyDatagridview1.RELOAD()
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub txtAuftragsnr_KeyDown(sender As Object, e As KeyEventArgs) Handles txtGMR.KeyDown
|
||||
If e.KeyCode = Keys.Return Then
|
||||
btnSuche.PerformClick()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
||||
GET_NOTIFICATIONS()
|
||||
MyDatagridview1.RELOAD()
|
||||
End Sub
|
||||
Sub GET_NOTIFICATIONS()
|
||||
Try
|
||||
Me.Cursor = Cursors.WaitCursor
|
||||
Dim dt = SQL.loadDgvBySql("SELECT distinct([gvms_notification_boxid]) FROM [tblGVMS] where gvms_GMR is null and gvms_notification_boxid is not null", "FMZOLL")
|
||||
If dt IsNot Nothing Then
|
||||
For Each row In dt.Rows
|
||||
cHMRC.GET_NOTIFICATIONS(row("gvms_notification_boxid"))
|
||||
Next
|
||||
End If
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
End Try
|
||||
Me.Cursor = Cursors.Default
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Private Sub MyDatagridview1_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles MyDatagridview1.CellDoubleClick
|
||||
If e.RowIndex > 0 Then
|
||||
Dim GVMS = New VERAG_PROG_ALLGEMEIN.cGVMS(MyDatagridview1.Rows(e.RowIndex).Cells("gvms_id").Value)
|
||||
If GVMS.hasEntry Then
|
||||
Dim hasGMR = (If(GVMS.gvms_GMR, "") <> "")
|
||||
Dim f As New frmGVMSNew(GVMS)
|
||||
If f.ShowDialog(Me) = DialogResult.OK Then
|
||||
Threading.Thread.Sleep(500) ' Bissi warten, ob GMR schon gneriert wurde..
|
||||
GET_NOTIFICATIONS() ' ... GMR laden
|
||||
If f.GVMS IsNot Nothing Then
|
||||
f.GVMS.LOAD()
|
||||
If Not hasGMR Then
|
||||
If If(f.GVMS.gvms_GMR, "") <> "" Then
|
||||
MsgBox("GMR in Zwischenablage kopiert: " & f.GVMS.gvms_GMR)
|
||||
Clipboard.SetText(f.GVMS.gvms_GMR)
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
MyDatagridview1.RELOAD()
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
|
||||
If MyDatagridview1.SelectedRows.Count() = 1 Then
|
||||
Dim GVMS = New VERAG_PROG_ALLGEMEIN.cGVMS(MyDatagridview1.SelectedRows(0).Cells("gvms_id").Value)
|
||||
If GVMS.hasEntry AndAlso If(GVMS.gvms_GMR, "") <> "" Then
|
||||
cHMRC.DELETE_GMR(GVMS)
|
||||
End If
|
||||
ElseIf MyDatagridview1.SelectedRows.Count() = 0 Then
|
||||
Else
|
||||
MsgBox("Bitte nur einen Eintrag auswählen.")
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
|
||||
cHMRC.GET_GVMS_LIST()
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
|
||||
If MyDatagridview1.SelectedRows.Count() = 1 Then
|
||||
Dim GVMS = New VERAG_PROG_ALLGEMEIN.cGVMS(MyDatagridview1.SelectedRows(0).Cells("gvms_id").Value)
|
||||
If GVMS.hasEntry AndAlso If(GVMS.gvms_GMR, "") <> "" Then
|
||||
cHMRC.GET_GVMS_GMR(GVMS.gvms_GMR)
|
||||
End If
|
||||
ElseIf MyDatagridview1.SelectedRows.Count() = 0 Then
|
||||
Else
|
||||
MsgBox("Bitte nur einen Eintrag auswählen.")
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click
|
||||
cHMRC.getGVMS_RefData()
|
||||
End Sub
|
||||
|
||||
Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click
|
||||
If MyDatagridview1.SelectedRows.Count() = 1 Then
|
||||
Dim GVMS = New VERAG_PROG_ALLGEMEIN.cGVMS(MyDatagridview1.SelectedRows(0).Cells("gvms_id").Value)
|
||||
If GVMS.hasEntry AndAlso If(GVMS.gvms_notification_boxid, "") <> "" AndAlso If(GVMS.gvms_notification_id, "") <> "" Then
|
||||
cHMRC.Acknowledge_NOTIFICATIONS(GVMS.gvms_notification_boxid, GVMS.gvms_notification_id)
|
||||
End If
|
||||
ElseIf MyDatagridview1.SelectedRows.Count() = 0 Then
|
||||
Else
|
||||
MsgBox("Bitte nur einen Eintrag auswählen.")
|
||||
End If
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
570
Aviso/GVMS/frmGVMSNew.Designer.vb
generated
Normal file
570
Aviso/GVMS/frmGVMSNew.Designer.vb
generated
Normal file
@@ -0,0 +1,570 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class frmGVMSNew
|
||||
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()
|
||||
Me.components = New System.ComponentModel.Container()
|
||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmGVMSNew))
|
||||
Me.Label3 = New System.Windows.Forms.Label()
|
||||
Me.cboDirection = New VERAG_PROG_ALLGEMEIN.MyComboBox()
|
||||
Me.pic = New System.Windows.Forms.PictureBox()
|
||||
Me.btnOK = New System.Windows.Forms.Button()
|
||||
Me.txtKennzeichen = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.Label2 = New System.Windows.Forms.Label()
|
||||
Me.Label1 = New System.Windows.Forms.Label()
|
||||
Me.lbl = New System.Windows.Forms.Label()
|
||||
Me.Button26 = New System.Windows.Forms.Button()
|
||||
Me.cboCarrier = New VERAG_PROG_ALLGEMEIN.MyComboBox()
|
||||
Me.cboPortVon = New VERAG_PROG_ALLGEMEIN.MyComboBox()
|
||||
Me.Label4 = New System.Windows.Forms.Label()
|
||||
Me.cboPortNach = New VERAG_PROG_ALLGEMEIN.MyComboBox()
|
||||
Me.Label5 = New System.Windows.Forms.Label()
|
||||
Me.lblRoute = New System.Windows.Forms.Label()
|
||||
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
|
||||
Me.Label6 = New System.Windows.Forms.Label()
|
||||
Me.cbxUngebleitet = New System.Windows.Forms.CheckBox()
|
||||
Me.cbxLeer = New System.Windows.Forms.CheckBox()
|
||||
Me.dgvDeclarations = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
|
||||
Me.clmnArt = New System.Windows.Forms.DataGridViewComboBoxColumn()
|
||||
Me.clmnRef = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.clmnSS = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.Label7 = New System.Windows.Forms.Label()
|
||||
Me.txtTrailor = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.Label8 = New System.Windows.Forms.Label()
|
||||
Me.datAbfahrt = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.cboLeerVertrag = New System.Windows.Forms.CheckBox()
|
||||
Me.Label9 = New System.Windows.Forms.Label()
|
||||
Me.txtSS = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.Button1 = New System.Windows.Forms.Button()
|
||||
Me.Label10 = New System.Windows.Forms.Label()
|
||||
Me.Button2 = New System.Windows.Forms.Button()
|
||||
Me.datAbfahrtTime = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.dgvDeclarations, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'Label3
|
||||
'
|
||||
Me.Label3.AutoSize = True
|
||||
Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
|
||||
Me.Label3.Location = New System.Drawing.Point(204, 91)
|
||||
Me.Label3.Name = "Label3"
|
||||
Me.Label3.Size = New System.Drawing.Size(68, 17)
|
||||
Me.Label3.TabIndex = 42
|
||||
Me.Label3.Text = "Direction:"
|
||||
'
|
||||
'cboDirection
|
||||
'
|
||||
Me.cboDirection._allowedValuesFreiText = Nothing
|
||||
Me.cboDirection._allowFreiText = True
|
||||
Me.cboDirection._value = ""
|
||||
Me.cboDirection.DropDownWidth = 250
|
||||
Me.cboDirection.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
|
||||
Me.cboDirection.FormattingEnabled = True
|
||||
Me.cboDirection.Location = New System.Drawing.Point(278, 88)
|
||||
Me.cboDirection.Name = "cboDirection"
|
||||
Me.cboDirection.Size = New System.Drawing.Size(125, 24)
|
||||
Me.cboDirection.TabIndex = 3
|
||||
'
|
||||
'pic
|
||||
'
|
||||
Me.pic.BackgroundImage = Global.AVISO.My.Resources.Resources.GVMS_image
|
||||
Me.pic.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
|
||||
Me.pic.Location = New System.Drawing.Point(422, 217)
|
||||
Me.pic.Name = "pic"
|
||||
Me.pic.Size = New System.Drawing.Size(139, 171)
|
||||
Me.pic.TabIndex = 58
|
||||
Me.pic.TabStop = False
|
||||
'
|
||||
'btnOK
|
||||
'
|
||||
Me.btnOK.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnOK.Image = Global.AVISO.My.Resources.Resources.ok
|
||||
Me.btnOK.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.btnOK.Location = New System.Drawing.Point(420, 403)
|
||||
Me.btnOK.Name = "btnOK"
|
||||
Me.btnOK.Size = New System.Drawing.Size(139, 57)
|
||||
Me.btnOK.TabIndex = 13
|
||||
Me.btnOK.Text = "GMR erzeugen"
|
||||
Me.btnOK.TextAlign = System.Drawing.ContentAlignment.MiddleRight
|
||||
Me.btnOK.UseVisualStyleBackColor = True
|
||||
'
|
||||
'txtKennzeichen
|
||||
'
|
||||
Me.txtKennzeichen._DateTimeOnly = False
|
||||
Me.txtKennzeichen._numbersOnly = False
|
||||
Me.txtKennzeichen._numbersOnlyKommastellen = ""
|
||||
Me.txtKennzeichen._Prozent = False
|
||||
Me.txtKennzeichen._ShortDateNew = False
|
||||
Me.txtKennzeichen._ShortDateOnly = False
|
||||
Me.txtKennzeichen._TimeOnly = False
|
||||
Me.txtKennzeichen._value = ""
|
||||
Me.txtKennzeichen._Waehrung = False
|
||||
Me.txtKennzeichen._WaehrungZeichen = True
|
||||
Me.txtKennzeichen.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!)
|
||||
Me.txtKennzeichen.ForeColor = System.Drawing.Color.Black
|
||||
Me.txtKennzeichen.Location = New System.Drawing.Point(15, 54)
|
||||
Me.txtKennzeichen.MaxLength = 30
|
||||
Me.txtKennzeichen.MaxLineLength = -1
|
||||
Me.txtKennzeichen.MaxLines_Warning = ""
|
||||
Me.txtKennzeichen.MaxLines_Warning_Label = Nothing
|
||||
Me.txtKennzeichen.Multiline = True
|
||||
Me.txtKennzeichen.Name = "txtKennzeichen"
|
||||
Me.txtKennzeichen.Size = New System.Drawing.Size(183, 28)
|
||||
Me.txtKennzeichen.TabIndex = 0
|
||||
'
|
||||
'Label2
|
||||
'
|
||||
Me.Label2.AutoSize = True
|
||||
Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
|
||||
Me.Label2.Location = New System.Drawing.Point(12, 91)
|
||||
Me.Label2.Name = "Label2"
|
||||
Me.Label2.Size = New System.Drawing.Size(55, 17)
|
||||
Me.Label2.TabIndex = 41
|
||||
Me.Label2.Text = "Carrier:"
|
||||
'
|
||||
'Label1
|
||||
'
|
||||
Me.Label1.AutoSize = True
|
||||
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
|
||||
Me.Label1.Location = New System.Drawing.Point(12, 37)
|
||||
Me.Label1.Name = "Label1"
|
||||
Me.Label1.Size = New System.Drawing.Size(72, 17)
|
||||
Me.Label1.TabIndex = 39
|
||||
Me.Label1.Text = "Fahrzeug:"
|
||||
'
|
||||
'lbl
|
||||
'
|
||||
Me.lbl.AutoSize = True
|
||||
Me.lbl.Location = New System.Drawing.Point(12, 9)
|
||||
Me.lbl.Name = "lbl"
|
||||
Me.lbl.Size = New System.Drawing.Size(284, 13)
|
||||
Me.lbl.TabIndex = 38
|
||||
Me.lbl.Text = "Bitten geben Sie eine Handynummer und die Nachricht an:"
|
||||
'
|
||||
'Button26
|
||||
'
|
||||
Me.Button26.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button26.Image = Global.AVISO.My.Resources.Resources.del
|
||||
Me.Button26.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.Button26.Location = New System.Drawing.Point(420, 459)
|
||||
Me.Button26.Name = "Button26"
|
||||
Me.Button26.Size = New System.Drawing.Size(139, 41)
|
||||
Me.Button26.TabIndex = 14
|
||||
Me.Button26.Text = "Abbrechen"
|
||||
Me.Button26.TextAlign = System.Drawing.ContentAlignment.MiddleRight
|
||||
Me.Button26.UseVisualStyleBackColor = True
|
||||
'
|
||||
'cboCarrier
|
||||
'
|
||||
Me.cboCarrier._allowedValuesFreiText = Nothing
|
||||
Me.cboCarrier._allowFreiText = True
|
||||
Me.cboCarrier._value = ""
|
||||
Me.cboCarrier.DropDownWidth = 250
|
||||
Me.cboCarrier.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
|
||||
Me.cboCarrier.FormattingEnabled = True
|
||||
Me.cboCarrier.Location = New System.Drawing.Point(73, 88)
|
||||
Me.cboCarrier.Name = "cboCarrier"
|
||||
Me.cboCarrier.Size = New System.Drawing.Size(125, 24)
|
||||
Me.cboCarrier.TabIndex = 2
|
||||
'
|
||||
'cboPortVon
|
||||
'
|
||||
Me.cboPortVon._allowedValuesFreiText = Nothing
|
||||
Me.cboPortVon._allowFreiText = True
|
||||
Me.cboPortVon._value = ""
|
||||
Me.cboPortVon.DropDownWidth = 250
|
||||
Me.cboPortVon.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
|
||||
Me.cboPortVon.FormattingEnabled = True
|
||||
Me.cboPortVon.Location = New System.Drawing.Point(73, 118)
|
||||
Me.cboPortVon.Name = "cboPortVon"
|
||||
Me.cboPortVon.Size = New System.Drawing.Size(125, 24)
|
||||
Me.cboPortVon.TabIndex = 4
|
||||
'
|
||||
'Label4
|
||||
'
|
||||
Me.Label4.AutoSize = True
|
||||
Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
|
||||
Me.Label4.Location = New System.Drawing.Point(204, 121)
|
||||
Me.Label4.Name = "Label4"
|
||||
Me.Label4.Size = New System.Drawing.Size(43, 17)
|
||||
Me.Label4.TabIndex = 79
|
||||
Me.Label4.Text = "nach:"
|
||||
'
|
||||
'cboPortNach
|
||||
'
|
||||
Me.cboPortNach._allowedValuesFreiText = Nothing
|
||||
Me.cboPortNach._allowFreiText = True
|
||||
Me.cboPortNach._value = ""
|
||||
Me.cboPortNach.DropDownWidth = 250
|
||||
Me.cboPortNach.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
|
||||
Me.cboPortNach.FormattingEnabled = True
|
||||
Me.cboPortNach.Location = New System.Drawing.Point(278, 118)
|
||||
Me.cboPortNach.Name = "cboPortNach"
|
||||
Me.cboPortNach.Size = New System.Drawing.Size(125, 24)
|
||||
Me.cboPortNach.TabIndex = 5
|
||||
'
|
||||
'Label5
|
||||
'
|
||||
Me.Label5.AutoSize = True
|
||||
Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
|
||||
Me.Label5.Location = New System.Drawing.Point(12, 121)
|
||||
Me.Label5.Name = "Label5"
|
||||
Me.Label5.Size = New System.Drawing.Size(35, 17)
|
||||
Me.Label5.TabIndex = 78
|
||||
Me.Label5.Text = "von:"
|
||||
'
|
||||
'lblRoute
|
||||
'
|
||||
Me.lblRoute.AutoSize = True
|
||||
Me.lblRoute.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold)
|
||||
Me.lblRoute.Location = New System.Drawing.Point(70, 186)
|
||||
Me.lblRoute.Name = "lblRoute"
|
||||
Me.lblRoute.Size = New System.Drawing.Size(14, 17)
|
||||
Me.lblRoute.TabIndex = 91
|
||||
Me.lblRoute.Text = "-"
|
||||
'
|
||||
'PictureBox1
|
||||
'
|
||||
Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
|
||||
Me.PictureBox1.Location = New System.Drawing.Point(129, 183)
|
||||
Me.PictureBox1.Name = "PictureBox1"
|
||||
Me.PictureBox1.Size = New System.Drawing.Size(47, 28)
|
||||
Me.PictureBox1.TabIndex = 92
|
||||
Me.PictureBox1.TabStop = False
|
||||
'
|
||||
'Label6
|
||||
'
|
||||
Me.Label6.AutoSize = True
|
||||
Me.Label6.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
|
||||
Me.Label6.Location = New System.Drawing.Point(12, 186)
|
||||
Me.Label6.Name = "Label6"
|
||||
Me.Label6.Size = New System.Drawing.Size(50, 17)
|
||||
Me.Label6.TabIndex = 93
|
||||
Me.Label6.Text = "Route:"
|
||||
'
|
||||
'cbxUngebleitet
|
||||
'
|
||||
Me.cbxUngebleitet.AutoSize = True
|
||||
Me.cbxUngebleitet.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
|
||||
Me.cbxUngebleitet.Location = New System.Drawing.Point(306, 151)
|
||||
Me.cbxUngebleitet.Name = "cbxUngebleitet"
|
||||
Me.cbxUngebleitet.Size = New System.Drawing.Size(97, 21)
|
||||
Me.cbxUngebleitet.TabIndex = 8
|
||||
Me.cbxUngebleitet.Text = "unbegleitet"
|
||||
Me.cbxUngebleitet.UseVisualStyleBackColor = True
|
||||
'
|
||||
'cbxLeer
|
||||
'
|
||||
Me.cbxLeer.AutoSize = True
|
||||
Me.cbxLeer.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
|
||||
Me.cbxLeer.Location = New System.Drawing.Point(15, 151)
|
||||
Me.cbxLeer.Name = "cbxLeer"
|
||||
Me.cbxLeer.Size = New System.Drawing.Size(109, 21)
|
||||
Me.cbxLeer.TabIndex = 6
|
||||
Me.cbxLeer.Text = "LEERFAHRT"
|
||||
Me.cbxLeer.UseVisualStyleBackColor = True
|
||||
'
|
||||
'dgvDeclarations
|
||||
'
|
||||
Me.dgvDeclarations.AKTUALISIERUNGS_INTERVALL = -1
|
||||
Me.dgvDeclarations.AllowUserToResizeColumns = False
|
||||
Me.dgvDeclarations.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
|
||||
Me.dgvDeclarations.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.clmnArt, Me.clmnRef, Me.clmnSS})
|
||||
Me.dgvDeclarations.Location = New System.Drawing.Point(15, 217)
|
||||
Me.dgvDeclarations.Name = "dgvDeclarations"
|
||||
Me.dgvDeclarations.RowHeadersVisible = False
|
||||
Me.dgvDeclarations.Size = New System.Drawing.Size(388, 256)
|
||||
Me.dgvDeclarations.TabIndex = 11
|
||||
'
|
||||
'clmnArt
|
||||
'
|
||||
Me.clmnArt.HeaderText = "Art"
|
||||
Me.clmnArt.Items.AddRange(New Object() {"EIDR ", "EXPORT (CDS/CHIEF)", "IMPORT (CDS/CHIEF)", "TRANSIT (TAD)", "TRANSIT (TSAD)", "ATA CARNET", "TIR CARNET"})
|
||||
Me.clmnArt.Name = "clmnArt"
|
||||
'
|
||||
'clmnRef
|
||||
'
|
||||
Me.clmnRef.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
|
||||
Me.clmnRef.HeaderText = "RefNr"
|
||||
Me.clmnRef.Name = "clmnRef"
|
||||
'
|
||||
'clmnSS
|
||||
'
|
||||
Me.clmnSS.HeaderText = "S&S "
|
||||
Me.clmnSS.Name = "clmnSS"
|
||||
Me.clmnSS.Width = 125
|
||||
'
|
||||
'Label7
|
||||
'
|
||||
Me.Label7.AutoSize = True
|
||||
Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
|
||||
Me.Label7.Location = New System.Drawing.Point(204, 37)
|
||||
Me.Label7.Name = "Label7"
|
||||
Me.Label7.Size = New System.Drawing.Size(74, 17)
|
||||
Me.Label7.TabIndex = 100
|
||||
Me.Label7.Text = "Anhänger:"
|
||||
'
|
||||
'txtTrailor
|
||||
'
|
||||
Me.txtTrailor._DateTimeOnly = False
|
||||
Me.txtTrailor._numbersOnly = False
|
||||
Me.txtTrailor._numbersOnlyKommastellen = ""
|
||||
Me.txtTrailor._Prozent = False
|
||||
Me.txtTrailor._ShortDateNew = False
|
||||
Me.txtTrailor._ShortDateOnly = False
|
||||
Me.txtTrailor._TimeOnly = False
|
||||
Me.txtTrailor._value = ""
|
||||
Me.txtTrailor._Waehrung = False
|
||||
Me.txtTrailor._WaehrungZeichen = True
|
||||
Me.txtTrailor.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!)
|
||||
Me.txtTrailor.ForeColor = System.Drawing.Color.Black
|
||||
Me.txtTrailor.Location = New System.Drawing.Point(207, 54)
|
||||
Me.txtTrailor.MaxLength = 30
|
||||
Me.txtTrailor.MaxLineLength = -1
|
||||
Me.txtTrailor.MaxLines_Warning = ""
|
||||
Me.txtTrailor.MaxLines_Warning_Label = Nothing
|
||||
Me.txtTrailor.Multiline = True
|
||||
Me.txtTrailor.Name = "txtTrailor"
|
||||
Me.txtTrailor.Size = New System.Drawing.Size(196, 28)
|
||||
Me.txtTrailor.TabIndex = 1
|
||||
'
|
||||
'Label8
|
||||
'
|
||||
Me.Label8.AutoSize = True
|
||||
Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
|
||||
Me.Label8.Location = New System.Drawing.Point(204, 186)
|
||||
Me.Label8.Name = "Label8"
|
||||
Me.Label8.Size = New System.Drawing.Size(69, 17)
|
||||
Me.Label8.TabIndex = 102
|
||||
Me.Label8.Text = "Dat./Uhr.:"
|
||||
'
|
||||
'datAbfahrt
|
||||
'
|
||||
Me.datAbfahrt._DateTimeOnly = False
|
||||
Me.datAbfahrt._numbersOnly = False
|
||||
Me.datAbfahrt._numbersOnlyKommastellen = ""
|
||||
Me.datAbfahrt._Prozent = False
|
||||
Me.datAbfahrt._ShortDateNew = True
|
||||
Me.datAbfahrt._ShortDateOnly = False
|
||||
Me.datAbfahrt._TimeOnly = False
|
||||
Me.datAbfahrt._value = ""
|
||||
Me.datAbfahrt._Waehrung = False
|
||||
Me.datAbfahrt._WaehrungZeichen = True
|
||||
Me.datAbfahrt.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
|
||||
Me.datAbfahrt.ForeColor = System.Drawing.Color.Black
|
||||
Me.datAbfahrt.Location = New System.Drawing.Point(278, 183)
|
||||
Me.datAbfahrt.MaxLength = 10
|
||||
Me.datAbfahrt.MaxLineLength = -1
|
||||
Me.datAbfahrt.MaxLines_Warning = ""
|
||||
Me.datAbfahrt.MaxLines_Warning_Label = Nothing
|
||||
Me.datAbfahrt.Multiline = True
|
||||
Me.datAbfahrt.Name = "datAbfahrt"
|
||||
Me.datAbfahrt.Size = New System.Drawing.Size(79, 28)
|
||||
Me.datAbfahrt.TabIndex = 9
|
||||
'
|
||||
'cboLeerVertrag
|
||||
'
|
||||
Me.cboLeerVertrag.AutoSize = True
|
||||
Me.cboLeerVertrag.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
|
||||
Me.cboLeerVertrag.Location = New System.Drawing.Point(129, 151)
|
||||
Me.cboLeerVertrag.Name = "cboLeerVertrag"
|
||||
Me.cboLeerVertrag.Size = New System.Drawing.Size(158, 21)
|
||||
Me.cboLeerVertrag.TabIndex = 7
|
||||
Me.cboLeerVertrag.Text = "Beförderungsvertrag"
|
||||
Me.cboLeerVertrag.UseVisualStyleBackColor = True
|
||||
Me.cboLeerVertrag.Visible = False
|
||||
'
|
||||
'Label9
|
||||
'
|
||||
Me.Label9.AutoSize = True
|
||||
Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
|
||||
Me.Label9.Location = New System.Drawing.Point(12, 482)
|
||||
Me.Label9.Name = "Label9"
|
||||
Me.Label9.Size = New System.Drawing.Size(114, 13)
|
||||
Me.Label9.TabIndex = 108
|
||||
Me.Label9.Text = "S&S (ganzes Fahrzeug):"
|
||||
'
|
||||
'txtSS
|
||||
'
|
||||
Me.txtSS._DateTimeOnly = False
|
||||
Me.txtSS._numbersOnly = False
|
||||
Me.txtSS._numbersOnlyKommastellen = ""
|
||||
Me.txtSS._Prozent = False
|
||||
Me.txtSS._ShortDateNew = False
|
||||
Me.txtSS._ShortDateOnly = False
|
||||
Me.txtSS._TimeOnly = False
|
||||
Me.txtSS._value = ""
|
||||
Me.txtSS._Waehrung = False
|
||||
Me.txtSS._WaehrungZeichen = True
|
||||
Me.txtSS.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
|
||||
Me.txtSS.ForeColor = System.Drawing.Color.Black
|
||||
Me.txtSS.Location = New System.Drawing.Point(132, 479)
|
||||
Me.txtSS.MaxLength = 30
|
||||
Me.txtSS.MaxLineLength = -1
|
||||
Me.txtSS.MaxLines_Warning = ""
|
||||
Me.txtSS.MaxLines_Warning_Label = Nothing
|
||||
Me.txtSS.Multiline = True
|
||||
Me.txtSS.Name = "txtSS"
|
||||
Me.txtSS.Size = New System.Drawing.Size(271, 21)
|
||||
Me.txtSS.TabIndex = 12
|
||||
'
|
||||
'Button1
|
||||
'
|
||||
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.Button1.Location = New System.Drawing.Point(422, 55)
|
||||
Me.Button1.Name = "Button1"
|
||||
Me.Button1.Size = New System.Drawing.Size(139, 27)
|
||||
Me.Button1.TabIndex = 110
|
||||
Me.Button1.Text = "UK/Dover --> FR/Calais"
|
||||
Me.Button1.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Label10
|
||||
'
|
||||
Me.Label10.AutoSize = True
|
||||
Me.Label10.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
|
||||
Me.Label10.Location = New System.Drawing.Point(419, 37)
|
||||
Me.Label10.Name = "Label10"
|
||||
Me.Label10.Size = New System.Drawing.Size(121, 17)
|
||||
Me.Label10.TabIndex = 111
|
||||
Me.Label10.Text = "Standard-Routen:"
|
||||
'
|
||||
'Button2
|
||||
'
|
||||
Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button2.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.Button2.Location = New System.Drawing.Point(422, 81)
|
||||
Me.Button2.Name = "Button2"
|
||||
Me.Button2.Size = New System.Drawing.Size(139, 27)
|
||||
Me.Button2.TabIndex = 112
|
||||
Me.Button2.Text = "FR/Calais --> UK/Dover"
|
||||
Me.Button2.UseVisualStyleBackColor = True
|
||||
'
|
||||
'datAbfahrtTime
|
||||
'
|
||||
Me.datAbfahrtTime._DateTimeOnly = False
|
||||
Me.datAbfahrtTime._numbersOnly = False
|
||||
Me.datAbfahrtTime._numbersOnlyKommastellen = ""
|
||||
Me.datAbfahrtTime._Prozent = False
|
||||
Me.datAbfahrtTime._ShortDateNew = False
|
||||
Me.datAbfahrtTime._ShortDateOnly = False
|
||||
Me.datAbfahrtTime._TimeOnly = True
|
||||
Me.datAbfahrtTime._value = ""
|
||||
Me.datAbfahrtTime._Waehrung = False
|
||||
Me.datAbfahrtTime._WaehrungZeichen = True
|
||||
Me.datAbfahrtTime.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
|
||||
Me.datAbfahrtTime.ForeColor = System.Drawing.Color.Red
|
||||
Me.datAbfahrtTime.Location = New System.Drawing.Point(356, 183)
|
||||
Me.datAbfahrtTime.MaxLength = 8
|
||||
Me.datAbfahrtTime.MaxLineLength = -1
|
||||
Me.datAbfahrtTime.MaxLines_Warning = ""
|
||||
Me.datAbfahrtTime.MaxLines_Warning_Label = Nothing
|
||||
Me.datAbfahrtTime.Multiline = True
|
||||
Me.datAbfahrtTime.Name = "datAbfahrtTime"
|
||||
Me.datAbfahrtTime.Size = New System.Drawing.Size(47, 28)
|
||||
Me.datAbfahrtTime.TabIndex = 10
|
||||
'
|
||||
'frmGVMSNew
|
||||
'
|
||||
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(569, 512)
|
||||
Me.Controls.Add(Me.datAbfahrtTime)
|
||||
Me.Controls.Add(Me.Button2)
|
||||
Me.Controls.Add(Me.Label10)
|
||||
Me.Controls.Add(Me.Button1)
|
||||
Me.Controls.Add(Me.txtSS)
|
||||
Me.Controls.Add(Me.Label9)
|
||||
Me.Controls.Add(Me.cboLeerVertrag)
|
||||
Me.Controls.Add(Me.datAbfahrt)
|
||||
Me.Controls.Add(Me.Label8)
|
||||
Me.Controls.Add(Me.txtTrailor)
|
||||
Me.Controls.Add(Me.Label7)
|
||||
Me.Controls.Add(Me.dgvDeclarations)
|
||||
Me.Controls.Add(Me.cbxLeer)
|
||||
Me.Controls.Add(Me.cbxUngebleitet)
|
||||
Me.Controls.Add(Me.Label6)
|
||||
Me.Controls.Add(Me.PictureBox1)
|
||||
Me.Controls.Add(Me.lblRoute)
|
||||
Me.Controls.Add(Me.cboPortVon)
|
||||
Me.Controls.Add(Me.Label4)
|
||||
Me.Controls.Add(Me.cboPortNach)
|
||||
Me.Controls.Add(Me.Label5)
|
||||
Me.Controls.Add(Me.cboCarrier)
|
||||
Me.Controls.Add(Me.Label3)
|
||||
Me.Controls.Add(Me.cboDirection)
|
||||
Me.Controls.Add(Me.pic)
|
||||
Me.Controls.Add(Me.btnOK)
|
||||
Me.Controls.Add(Me.txtKennzeichen)
|
||||
Me.Controls.Add(Me.Label2)
|
||||
Me.Controls.Add(Me.Label1)
|
||||
Me.Controls.Add(Me.lbl)
|
||||
Me.Controls.Add(Me.Button26)
|
||||
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
||||
Me.Name = "frmGVMSNew"
|
||||
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
|
||||
Me.Text = "GVMS Eintrag"
|
||||
CType(Me.pic, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.dgvDeclarations, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
Me.PerformLayout()
|
||||
|
||||
End Sub
|
||||
Friend WithEvents Label3 As Label
|
||||
Friend WithEvents cboDirection As VERAG_PROG_ALLGEMEIN.MyComboBox
|
||||
Friend WithEvents pic As PictureBox
|
||||
Friend WithEvents btnOK As Button
|
||||
Friend WithEvents txtKennzeichen As VERAG_PROG_ALLGEMEIN.MyTextBox
|
||||
Friend WithEvents Label2 As Label
|
||||
Friend WithEvents Label1 As Label
|
||||
Friend WithEvents lbl As Label
|
||||
Friend WithEvents Button26 As Button
|
||||
Friend WithEvents cboCarrier As VERAG_PROG_ALLGEMEIN.MyComboBox
|
||||
Friend WithEvents cboPortVon As VERAG_PROG_ALLGEMEIN.MyComboBox
|
||||
Friend WithEvents Label4 As Label
|
||||
Friend WithEvents cboPortNach As VERAG_PROG_ALLGEMEIN.MyComboBox
|
||||
Friend WithEvents Label5 As Label
|
||||
Friend WithEvents lblRoute As Label
|
||||
Friend WithEvents PictureBox1 As PictureBox
|
||||
Friend WithEvents Label6 As Label
|
||||
Friend WithEvents cbxUngebleitet As CheckBox
|
||||
Friend WithEvents cbxLeer As CheckBox
|
||||
Friend WithEvents dgvDeclarations As VERAG_PROG_ALLGEMEIN.MyDatagridview
|
||||
Friend WithEvents Label7 As Label
|
||||
Friend WithEvents txtTrailor As VERAG_PROG_ALLGEMEIN.MyTextBox
|
||||
Friend WithEvents Label8 As Label
|
||||
Friend WithEvents datAbfahrt As VERAG_PROG_ALLGEMEIN.MyTextBox
|
||||
Friend WithEvents cboLeerVertrag As CheckBox
|
||||
Friend WithEvents clmnArt As DataGridViewComboBoxColumn
|
||||
Friend WithEvents clmnRef As DataGridViewTextBoxColumn
|
||||
Friend WithEvents clmnSS As DataGridViewTextBoxColumn
|
||||
Friend WithEvents Label9 As Label
|
||||
Friend WithEvents txtSS As VERAG_PROG_ALLGEMEIN.MyTextBox
|
||||
Friend WithEvents Button1 As Button
|
||||
Friend WithEvents Label10 As Label
|
||||
Friend WithEvents Button2 As Button
|
||||
Friend WithEvents datAbfahrtTime As VERAG_PROG_ALLGEMEIN.MyTextBox
|
||||
End Class
|
||||
1262
Aviso/GVMS/frmGVMSNew.resx
Normal file
1262
Aviso/GVMS/frmGVMSNew.resx
Normal file
File diff suppressed because it is too large
Load Diff
283
Aviso/GVMS/frmGVMSNew.vb
Normal file
283
Aviso/GVMS/frmGVMSNew.vb
Normal file
@@ -0,0 +1,283 @@
|
||||
Imports System.Text.RegularExpressions
|
||||
|
||||
Public Class frmGVMSNew
|
||||
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
Dim RouteId As Integer = -1
|
||||
|
||||
Public GVMS As VERAG_PROG_ALLGEMEIN.cGVMS = Nothing
|
||||
|
||||
Sub New()
|
||||
|
||||
' Dieser Aufruf ist für den Designer erforderlich.
|
||||
InitializeComponent()
|
||||
|
||||
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
|
||||
|
||||
End Sub
|
||||
|
||||
Sub New(GVMS As VERAG_PROG_ALLGEMEIN.cGVMS)
|
||||
|
||||
' Dieser Aufruf ist für den Designer erforderlich.
|
||||
InitializeComponent()
|
||||
|
||||
Me.GVMS = GVMS
|
||||
End Sub
|
||||
Private Sub frmGVMSNew_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||||
|
||||
cboCarrier.fillWithSQL("SELECT [carrierId],[carrierName] + '(' + [countryCode] + ')' carrierName FROM [tblGVMS_Carriers]", False, "FMZOLL", True)
|
||||
cboDirection.fillWithSQL("SELECT distinct([routeDirection]) FROM [VERAG].[dbo].[tblGVMS_Routes] where [routeEffectiveFrom] <= GETDATE() and ([routeEffectiveTo]<= GETDATE() OR [routeEffectiveTo] is null) ORDER BY [routeDirection] DESC", False, "FMZOLL", True)
|
||||
cboPortVon.fillWithSQL("SELECT [portId],[portDescription]+ '(' + [portcountryCode] + ')' portDescription FROM [tblGVMS_Ports] WHERE [portEffectiveFrom] <= GETDATE() and ([portEffectiveTo]<= GETDATE() OR [portEffectiveTo] is null) ORDER BY [portDescription] ", False, "FMZOLL", True)
|
||||
cboPortNach.fillWithSQL("SELECT [portId],[portDescription]+ '(' + [portcountryCode] + ')' portDescription FROM [tblGVMS_Ports] WHERE [portEffectiveFrom] <= GETDATE() and ([portEffectiveTo]<= GETDATE() OR [portEffectiveTo] is null) ORDER BY [portDescription] ", False, "FMZOLL", True)
|
||||
|
||||
If GVMS IsNot Nothing Then
|
||||
setGVMS()
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub cboCarrier_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboCarrier.SelectedIndexChanged, cboDirection.SelectedIndexChanged, cboPortVon.SelectedIndexChanged, cboPortNach.SelectedIndexChanged
|
||||
findRoute()
|
||||
End Sub
|
||||
|
||||
Function findRoute() As Boolean
|
||||
RouteId = -1
|
||||
lblRoute.Text = "-"
|
||||
PictureBox1.Image = Nothing
|
||||
If cboCarrier._value = "" Then Return False
|
||||
If cboDirection._value = "" Then Return False
|
||||
If cboPortVon._value = "" Then Return False
|
||||
If cboPortNach._value = "" Then Return False
|
||||
|
||||
|
||||
Dim dt As DataTable = SQL.loadDgvBySql("SELECT [routeId] FROM [tblGVMS_Routes] where [routeEffectiveFrom] <= GETDATE() and ([routeEffectiveTo]<= GETDATE() OR [routeEffectiveTo] is null)
|
||||
AND [routeDirection]='" & cboDirection._value & "'
|
||||
AND [departurePortId]='" & cboPortVon._value & "'
|
||||
AND [arrivalPortId]='" & cboPortNach._value & "'
|
||||
AND CarrierId='" & cboCarrier._value & "'
|
||||
", "FMZOLL")
|
||||
|
||||
If dt Is Nothing Then Return False
|
||||
If dt.Rows.Count = 1 Then
|
||||
RouteId = dt(0)("routeId")
|
||||
lblRoute.Text = RouteId
|
||||
PictureBox1.Image = My.Resources.ok
|
||||
Return True
|
||||
ElseIf dt.Rows.Count > 1 Then
|
||||
PictureBox1.Image = My.Resources.del
|
||||
End If
|
||||
Return False
|
||||
End Function
|
||||
|
||||
Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles btnOK.Click
|
||||
If createGMR() Then
|
||||
Me.DialogResult = DialogResult.OK
|
||||
Else
|
||||
Me.DialogResult = DialogResult.None
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
Function loadDGVPOS(ByRef GVMS As VERAG_PROG_ALLGEMEIN.cGVMS) As Boolean
|
||||
Dim formtErr As Boolean = False
|
||||
|
||||
For Each r As DataGridViewRow In dgvDeclarations.Rows
|
||||
For Each C As DataGridViewCell In r.Cells
|
||||
C.Style.BackColor = Color.White
|
||||
Next
|
||||
Next
|
||||
|
||||
For Each r As DataGridViewRow In dgvDeclarations.Rows
|
||||
If r.Cells("clmnArt").Value <> "" Then
|
||||
Dim POS As New VERAG_PROG_ALLGEMEIN.cGVMS_POS
|
||||
POS.gvms_art = getArt(r.Cells("clmnArt").Value)
|
||||
POS.gvms_RefNum = r.Cells("clmnRef").Value
|
||||
POS.gvms_SS = If(r.Cells("clmnss").Value <> "", r.Cells("clmnss").Value, Nothing)
|
||||
Dim RegExRef = ""
|
||||
Dim RegExSS = "^[A-Z0-9-)(/]{1,200}$"
|
||||
Select Case POS.gvms_art
|
||||
Case "EIDR" : RegExRef = "^[A-Z]{2}[0-9]{12,15}$"
|
||||
Case "EXPORT", "IMPORT" : RegExRef = "^[A-Z0-9-)(/]{1,200}$"
|
||||
'Case "IMPORT": RegExRef = "^[A-Z0-9-)(/]{1,200}$"
|
||||
Case "TAD" : RegExRef = "^\d{2}[A-Z]{2}[A-Z0-9]{14}$"
|
||||
Case "TSAD" : RegExRef = "^\d{2}[A-Z]{2}[A-Z0-9]{14}$"
|
||||
Case "ATA" : RegExRef = "^.{1,200}$"
|
||||
Case "TIR" : RegExRef = "^.{1,200}$"
|
||||
' Case "ORAL" : RegExRef = ""
|
||||
' Case "INDIRECT" : RegExRef = ""
|
||||
|
||||
End Select
|
||||
|
||||
If RegExRef <> "" AndAlso Not Regex.IsMatch(POS.gvms_RefNum, RegExRef) Then
|
||||
r.Cells("clmnRef").Style.BackColor = Color.PapayaWhip
|
||||
formtErr = True
|
||||
End If
|
||||
|
||||
If RegExSS <> "" AndAlso Not Regex.IsMatch(POS.gvms_RefNum, RegExSS) Then
|
||||
r.Cells("clmnRef").Style.BackColor = Color.PapayaWhip
|
||||
formtErr = True
|
||||
End If
|
||||
GVMS.GVMS_POSITIONEN.Add(POS)
|
||||
End If
|
||||
Next
|
||||
If formtErr Then Return False
|
||||
Return True
|
||||
End Function
|
||||
|
||||
Function getArt(art As String) As String
|
||||
Select Case True
|
||||
Case art Like "EIDR" : Return VERAG_PROG_ALLGEMEIN.cGVMS_POS_DecArt.EIDR
|
||||
Case art Like "EXPORT*" : Return VERAG_PROG_ALLGEMEIN.cGVMS_POS_DecArt.EXPORT
|
||||
Case art Like "IMPORT*" : Return VERAG_PROG_ALLGEMEIN.cGVMS_POS_DecArt.IMPORT
|
||||
Case art Like "*TAD*" : Return VERAG_PROG_ALLGEMEIN.cGVMS_POS_DecArt.TAD
|
||||
Case art Like "*TSAD*" : Return VERAG_PROG_ALLGEMEIN.cGVMS_POS_DecArt.TSAD
|
||||
Case art Like "ATA*" : Return VERAG_PROG_ALLGEMEIN.cGVMS_POS_DecArt.ATA
|
||||
Case art Like "TIR*" : Return VERAG_PROG_ALLGEMEIN.cGVMS_POS_DecArt.TIR
|
||||
Case art Like "ORAL*" : Return VERAG_PROG_ALLGEMEIN.cGVMS_POS_DecArt.ORAL
|
||||
Case art Like "INDIRECT*" : Return VERAG_PROG_ALLGEMEIN.cGVMS_POS_DecArt.INDIRECT
|
||||
End Select
|
||||
'Select Case art
|
||||
' Case "EIDR" : Return VERAG_PROG_ALLGEMEIN.cGVMS_POS_DecArt.EIDR
|
||||
' Case "EXPORT (CDS / CHIEF)" : Return VERAG_PROG_ALLGEMEIN.cGVMS_POS_DecArt.EXPORT
|
||||
' Case "IMPORT (CDS / CHIEF)" : Return VERAG_PROG_ALLGEMEIN.cGVMS_POS_DecArt.IMPORT
|
||||
' Case "TRANSIT (TAD)" : Return VERAG_PROG_ALLGEMEIN.cGVMS_POS_DecArt.TAD
|
||||
' Case "TRANSIT (TSAD)" : Return VERAG_PROG_ALLGEMEIN.cGVMS_POS_DecArt.TSAD
|
||||
' Case "ATA CARNET" : Return VERAG_PROG_ALLGEMEIN.cGVMS_POS_DecArt.ATA
|
||||
' Case "TIR CARNET" : Return VERAG_PROG_ALLGEMEIN.cGVMS_POS_DecArt.TIR
|
||||
' Case "ORAL Or BY CONDUCT" : Return VERAG_PROG_ALLGEMEIN.cGVMS_POS_DecArt.ORAL
|
||||
' Case "INDIRECT EXPORT DECLARATION" : Return VERAG_PROG_ALLGEMEIN.cGVMS_POS_DecArt.INDIRECT
|
||||
'End Select
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
Function setArt(art As String) As String
|
||||
'For Each i In DirectCast(dgvDeclarations.Columns(""), DataGridViewComboBoxColumn).Items
|
||||
' 'Dim ii = DirectCast(dgvDeclarations.Columns(""), DataGridViewComboBoxColumn).Items(0)
|
||||
' Dim item = i
|
||||
' If art Like "" Then
|
||||
' Select Case True
|
||||
' Case art Like "EIDR" : Return item
|
||||
' Case art Like "EXPORT*" : Return item
|
||||
' Case art Like "IMPORT*" : Return item
|
||||
' Case art Like "*TAD*" : Return item
|
||||
' Case art Like "*TSAD*" : Return item
|
||||
' Case art Like "ATA*" : Return item
|
||||
' Case art Like "TIR*" : Return item
|
||||
' Case art Like "ORAL*" : Return item
|
||||
' Case art Like "INDIRECT*" : Return item
|
||||
' End Select
|
||||
'Next
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
Function createGMR() As Boolean
|
||||
|
||||
If cbxUngebleitet.Checked Then
|
||||
If txtTrailor.Text.Trim = "" Then MsgBox("Anhänger angeben!") : Return False
|
||||
|
||||
End If
|
||||
If RouteId <= 0 Then MsgBox("Route fehlt!") : Return False
|
||||
If txtKennzeichen.Text = "" Then MsgBox("Kennzeichen angeben!") : Return False
|
||||
If Not Regex.IsMatch(txtKennzeichen.Text, "^[A-Z0-9-](?:[A-Z0-9 -]{1,30})?$") Then
|
||||
MsgBox("Formatfehler: Kennzeichen Fahrzeug.") : Return False
|
||||
End If
|
||||
If txtTrailor.Text <> "" AndAlso Not Regex.IsMatch(txtTrailor.Text, "^[A-Z0-9-](?:[A-Z0-9 -]{1,199})?$") Then
|
||||
MsgBox("Formatfehler: Kennzeichen Anhänger.") : Return False
|
||||
End If
|
||||
If txtSS.Text <> "" AndAlso Not Regex.IsMatch(txtSS.Text, "^[A-Z0-9-)(/]{1,200}$") Then
|
||||
MsgBox("Formatfehler: S&S MRN") : Return False
|
||||
End If
|
||||
|
||||
If datAbfahrt._value = "" Or datAbfahrtTime._value = "" Then MsgBox("Datum/Uhrzeit angeben!") : Return False
|
||||
|
||||
If Not cbxLeer.Checked Then
|
||||
If dgvDeclarations.Rows.Count <= 1 Then MsgBox("Keine Positionen!") : Return False
|
||||
|
||||
End If
|
||||
|
||||
If GVMS Is Nothing Then GVMS = New VERAG_PROG_ALLGEMEIN.cGVMS
|
||||
|
||||
If Not loadDGVPOS(GVMS) Then Return False
|
||||
|
||||
|
||||
GVMS.gvms_firma = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
||||
' GVMS.gvms_notification_id As Object = Nothing
|
||||
' GVMS.gvms_notification_boxid As Object = Nothing
|
||||
' GVMS.gvms_status As Object = Nothing
|
||||
' GVMS.gvms_GMR As Object = Nothing
|
||||
' GVMS.gvms_gmr_creationDate As Object = Nothing
|
||||
' GVMS.gvms_gmr_statusVersion As Object = Nothing
|
||||
|
||||
GVMS.gvms_routeId = RouteId
|
||||
GVMS.gvms_direction = cboDirection._value
|
||||
GVMS.gvms_vehicleRegNum = txtKennzeichen.Text
|
||||
If txtTrailor.Text <> "" Then GVMS.gvms_trailorRegNum = txtTrailor.Text
|
||||
|
||||
GVMS.gvms_isUnaccompanied = cbxUngebleitet.Checked
|
||||
GVMS.gvms_empty = cbxLeer.Checked
|
||||
If GVMS.gvms_empty Then GVMS.gvms_emptyisOwn = Not cboLeerVertrag.Checked
|
||||
GVMS.gvms_locateDateTimeOfDeparture = CDate(datAbfahrt._value).ToShortDateString & " " & datAbfahrtTime.Text
|
||||
|
||||
If txtSS.Text <> "" Then GVMS.gvms_SS = txtSS.Text
|
||||
|
||||
If GVMS.SAVE() Then
|
||||
If If(GVMS.gvms_GMR, "") <> "" Then
|
||||
cHMRC.SEND_GVMS(GVMS, GVMS.gvms_GMR) 'UPDATE
|
||||
Else
|
||||
cHMRC.SEND_GVMS(GVMS)
|
||||
End If
|
||||
|
||||
Return True
|
||||
End If
|
||||
|
||||
Return False
|
||||
|
||||
End Function
|
||||
|
||||
Sub setGVMS()
|
||||
If GVMS Is Nothing OrElse Not GVMS.hasEntry Then Exit Sub
|
||||
|
||||
|
||||
cboDirection.changeItem(GVMS.gvms_direction)
|
||||
txtKennzeichen.Text = If(GVMS.gvms_vehicleRegNum, "")
|
||||
txtTrailor.Text = If(GVMS.gvms_trailorRegNum, "")
|
||||
|
||||
cbxUngebleitet.Checked = If(GVMS.gvms_isUnaccompanied, False)
|
||||
cbxLeer.Checked = If(GVMS.gvms_empty, False)
|
||||
|
||||
If GVMS.gvms_empty Then
|
||||
cboLeerVertrag.Checked = If(GVMS.gvms_emptyisOwn, False)
|
||||
End If
|
||||
If IsDate(If(GVMS.gvms_locateDateTimeOfDeparture, "")) Then
|
||||
datAbfahrt._value = CDate(GVMS.gvms_locateDateTimeOfDeparture).ToShortDateString
|
||||
datAbfahrtTime._value = CDate(GVMS.gvms_locateDateTimeOfDeparture).ToString("HH:mm")
|
||||
End If
|
||||
|
||||
For Each POS In GVMS.GVMS_POSITIONEN
|
||||
dgvDeclarations.Rows.Add({POS.gvms_art, POS.gvms_RefNum, POS.gvms_SS})
|
||||
Next
|
||||
|
||||
txtSS.Text = If(GVMS.gvms_SS, "")
|
||||
|
||||
|
||||
End Sub
|
||||
Private Sub CheckBox2_CheckedChanged(sender As Object, e As EventArgs) Handles cbxLeer.CheckedChanged
|
||||
'dgvSfd.Visible = Not cbxLeer.Checked
|
||||
'dgvTAD.Visible = Not cbxLeer.Checked
|
||||
'dgvEIDR.Visible = Not cbxLeer.Checked
|
||||
'dgvATA.Visible = Not cbxLeer.Checked
|
||||
dgvDeclarations.Visible = Not cbxLeer.Checked
|
||||
cboLeerVertrag.Visible = cbxLeer.Checked
|
||||
End Sub
|
||||
|
||||
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
||||
cboPortVon._value = "7054"
|
||||
cboPortNach._value = "1401"
|
||||
cboDirection._value = "UK_OUTBOUND"
|
||||
End Sub
|
||||
|
||||
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
|
||||
cboPortVon._value = "1401"
|
||||
cboPortNach._value = "7054"
|
||||
cboDirection._value = "UK_INBOUND"
|
||||
End Sub
|
||||
End Class
|
||||
Reference in New Issue
Block a user