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

Gesamtsicherheit 1.0

Browse Source
This commit is contained in:
ms
2021-03-04 15:59:08 +01:00
parent 326c3fcb11
commit 9f615774ea
13 changed files with 4042 additions and 65 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1435
Aviso/Aviso - Kopie.vbproj Normal file
View File

File diff suppressed because it is too large Load Diff

22
Aviso/Aviso.vbproj
View File

@@ -21,6 +21,8 @@
<TargetFrameworkProfile> <TargetFrameworkProfile>
</TargetFrameworkProfile> </TargetFrameworkProfile>
<IsWebBootstrapper>false</IsWebBootstrapper> <IsWebBootstrapper>false</IsWebBootstrapper>
<NuGetPackageImportStamp>
</NuGetPackageImportStamp>
<PublishUrl>D:\Andreas\Programmierung\VB\OutlookAddIN\BEREITSTELLUNG\</PublishUrl> <PublishUrl>D:\Andreas\Programmierung\VB\OutlookAddIN\BEREITSTELLUNG\</PublishUrl>
<Install>true</Install> <Install>true</Install>
<InstallFrom>Disk</InstallFrom> <InstallFrom>Disk</InstallFrom>
@@ -36,8 +38,6 @@
<UseApplicationTrust>false</UseApplicationTrust> <UseApplicationTrust>false</UseApplicationTrust>
<PublishWizardCompleted>true</PublishWizardCompleted> <PublishWizardCompleted>true</PublishWizardCompleted>
<BootstrapperEnabled>true</BootstrapperEnabled> <BootstrapperEnabled>true</BootstrapperEnabled>
<NuGetPackageImportStamp>
</NuGetPackageImportStamp>
</PropertyGroup> </PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|x86' "> <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|x86' ">
<PlatformTarget>x86</PlatformTarget> <PlatformTarget>x86</PlatformTarget>
@@ -493,6 +493,18 @@
<Compile Include="frmGelangensbestaetigung.vb"> <Compile Include="frmGelangensbestaetigung.vb">
<SubType>Form</SubType> <SubType>Form</SubType>
</Compile> </Compile>
<Compile Include="frmGesSich.Designer.vb">
<DependentUpon>frmGesSich.vb</DependentUpon>
</Compile>
<Compile Include="frmGesSich.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmGesSichMenu.Designer.vb">
<DependentUpon>frmGesSichMenu.vb</DependentUpon>
</Compile>
<Compile Include="frmGesSichMenu.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmHauptfenster.Designer.vb"> <Compile Include="frmHauptfenster.Designer.vb">
<DependentUpon>frmHauptfenster.vb</DependentUpon> <DependentUpon>frmHauptfenster.vb</DependentUpon>
</Compile> </Compile>
@@ -920,6 +932,12 @@
<EmbeddedResource Include="frmGelangensbestaetigung.resx"> <EmbeddedResource Include="frmGelangensbestaetigung.resx">
<DependentUpon>frmGelangensbestaetigung.vb</DependentUpon> <DependentUpon>frmGelangensbestaetigung.vb</DependentUpon>
</EmbeddedResource> </EmbeddedResource>
<EmbeddedResource Include="frmGesSich.resx">
<DependentUpon>frmGesSich.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmGesSichMenu.resx">
<DependentUpon>frmGesSichMenu.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmHauptfenster.resx"> <EmbeddedResource Include="frmHauptfenster.resx">
<DependentUpon>frmHauptfenster.vb</DependentUpon> <DependentUpon>frmHauptfenster.vb</DependentUpon>
</EmbeddedResource> </EmbeddedResource>

2
Aviso/My Project/Resources.Designer.vb generated
View File

@@ -1489,7 +1489,7 @@ Namespace My.Resources
End Property End Property
'''<summary> '''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die 3.6.0.8 ähnelt. ''' Sucht eine lokalisierte Zeichenfolge, die 4.6.0.8 ähnelt.
'''</summary> '''</summary>
Friend ReadOnly Property Version() As String Friend ReadOnly Property Version() As String
Get Get

2
Aviso/My Project/Resources.resx
View File

@@ -536,7 +536,7 @@
<value>..\Resources\plus.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\plus.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="Version" xml:space="preserve"> <data name="Version" xml:space="preserve">
<value>3.6.0.8</value> <value>4.6.0.8</value>
</data> </data>
<data name="statusBtn_vorgeschrieben_Aktiv" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="statusBtn_vorgeschrieben_Aktiv" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\statusBtn_vorgeschrieben_Aktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\statusBtn_vorgeschrieben_Aktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>

BIN
Aviso/Resources/plus2.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 1.0 KiB

830
Aviso/frmGesSich.Designer.vb generated Normal file
View File

@@ -0,0 +1,830 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class frmGesSich
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(frmGesSich))
Me.dgvGesamtsicherheitMRN = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.Panel2 = New System.Windows.Forms.Panel()
Me.panOverlay = New System.Windows.Forms.Panel()
Me.cboFiliale = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.FlatButton2 = New VERAG_PROG_ALLGEMEIN.FlatButton()
Me.txtLKWID = New System.Windows.Forms.TextBox()
Me.txtAbfertNum = New System.Windows.Forms.TextBox()
Me.Label18 = New System.Windows.Forms.Label()
Me.Label17 = New System.Windows.Forms.Label()
Me.Label16 = New System.Windows.Forms.Label()
Me.btnClosePanOverlay = New VERAG_PROG_ALLGEMEIN.FlatButton()
Me.dgvGesamtsicherheitCRN = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.btnAddClose = New VERAG_PROG_ALLGEMEIN.FlatButton()
Me.btnAddOpen = New VERAG_PROG_ALLGEMEIN.FlatButton()
Me.lblGestellungNr = New System.Windows.Forms.Label()
Me.txtCRNTime = New System.Windows.Forms.TextBox()
Me.txtCRNDate = New System.Windows.Forms.TextBox()
Me.txtMRNTime = New System.Windows.Forms.TextBox()
Me.txtMRNDate = New System.Windows.Forms.TextBox()
Me.btnSave = New VERAG_PROG_ALLGEMEIN.FlatButton()
Me.txtCRNSicherheitsbetrag = New System.Windows.Forms.TextBox()
Me.txtCRNWarenwert = New System.Windows.Forms.TextBox()
Me.txtCRN = New System.Windows.Forms.TextBox()
Me.txtMRNSicherheitsbetrag = New System.Windows.Forms.TextBox()
Me.txtMRNWarenwert = New System.Windows.Forms.TextBox()
Me.txtMRN = New System.Windows.Forms.TextBox()
Me.FlatButton1 = New VERAG_PROG_ALLGEMEIN.FlatButton()
Me.lblZollsatz = New System.Windows.Forms.Label()
Me.lblReferenzwert = New System.Windows.Forms.Label()
Me.lblSaldo = New System.Windows.Forms.Label()
Me.panOben = New System.Windows.Forms.Panel()
Me.btnDeleteClose = New VERAG_PROG_ALLGEMEIN.FlatButton()
Me.btnDeleteOpen = New VERAG_PROG_ALLGEMEIN.FlatButton()
Me.btnUpdateClose = New VERAG_PROG_ALLGEMEIN.FlatButton()
Me.btnUpdateOpen = New VERAG_PROG_ALLGEMEIN.FlatButton()
Me.Label15 = New System.Windows.Forms.Label()
Me.txtPos = New System.Windows.Forms.TextBox()
Me.Label14 = New System.Windows.Forms.Label()
Me.txtEust = New System.Windows.Forms.TextBox()
Me.Label13 = New System.Windows.Forms.Label()
Me.cboATR = New System.Windows.Forms.ComboBox()
Me.Label7 = New System.Windows.Forms.Label()
Me.Label8 = New System.Windows.Forms.Label()
Me.Label9 = New System.Windows.Forms.Label()
Me.Label10 = New System.Windows.Forms.Label()
Me.Label11 = New System.Windows.Forms.Label()
Me.Label12 = New System.Windows.Forms.Label()
Me.Label6 = New System.Windows.Forms.Label()
Me.Label5 = New System.Windows.Forms.Label()
Me.Label4 = New System.Windows.Forms.Label()
Me.Label3 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.Label1 = New System.Windows.Forms.Label()
Me.txtFreitextClose = New System.Windows.Forms.TextBox()
Me.txtFreitextOpen = New System.Windows.Forms.TextBox()
CType(Me.dgvGesamtsicherheitMRN, System.ComponentModel.ISupportInitialize).BeginInit()
Me.Panel2.SuspendLayout()
Me.panOverlay.SuspendLayout()
CType(Me.dgvGesamtsicherheitCRN, System.ComponentModel.ISupportInitialize).BeginInit()
Me.panOben.SuspendLayout()
Me.SuspendLayout()
'
'dgvGesamtsicherheitMRN
'
Me.dgvGesamtsicherheitMRN.AKTUALISIERUNGS_INTERVALL = -1
Me.dgvGesamtsicherheitMRN.AllowUserToAddRows = False
Me.dgvGesamtsicherheitMRN.AllowUserToDeleteRows = False
Me.dgvGesamtsicherheitMRN.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvGesamtsicherheitMRN.Dock = System.Windows.Forms.DockStyle.Left
Me.dgvGesamtsicherheitMRN.Location = New System.Drawing.Point(0, 0)
Me.dgvGesamtsicherheitMRN.Name = "dgvGesamtsicherheitMRN"
Me.dgvGesamtsicherheitMRN.ReadOnly = True
Me.dgvGesamtsicherheitMRN.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.dgvGesamtsicherheitMRN.Size = New System.Drawing.Size(692, 589)
Me.dgvGesamtsicherheitMRN.TabIndex = 1
'
'Panel2
'
Me.Panel2.Controls.Add(Me.panOverlay)
Me.Panel2.Controls.Add(Me.dgvGesamtsicherheitCRN)
Me.Panel2.Controls.Add(Me.dgvGesamtsicherheitMRN)
Me.Panel2.Dock = System.Windows.Forms.DockStyle.Fill
Me.Panel2.Location = New System.Drawing.Point(0, 187)
Me.Panel2.Name = "Panel2"
Me.Panel2.Size = New System.Drawing.Size(1384, 589)
Me.Panel2.TabIndex = 3
'
'panOverlay
'
Me.panOverlay.BackColor = System.Drawing.SystemColors.ButtonHighlight
Me.panOverlay.Controls.Add(Me.cboFiliale)
Me.panOverlay.Controls.Add(Me.FlatButton2)
Me.panOverlay.Controls.Add(Me.txtLKWID)
Me.panOverlay.Controls.Add(Me.txtAbfertNum)
Me.panOverlay.Controls.Add(Me.Label18)
Me.panOverlay.Controls.Add(Me.Label17)
Me.panOverlay.Controls.Add(Me.Label16)
Me.panOverlay.Controls.Add(Me.btnClosePanOverlay)
Me.panOverlay.Location = New System.Drawing.Point(429, 82)
Me.panOverlay.Name = "panOverlay"
Me.panOverlay.Size = New System.Drawing.Size(527, 275)
Me.panOverlay.TabIndex = 2
Me.panOverlay.Visible = False
'
'cboFiliale
'
Me.cboFiliale._allowedValuesFreiText = Nothing
Me.cboFiliale._allowFreiText = False
Me.cboFiliale._value = ""
Me.cboFiliale.DropDownWidth = 300
Me.cboFiliale.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cboFiliale.FormattingEnabled = True
Me.cboFiliale.Location = New System.Drawing.Point(279, 76)
Me.cboFiliale.MaxLength = 4
Me.cboFiliale.Name = "cboFiliale"
Me.cboFiliale.Size = New System.Drawing.Size(186, 24)
Me.cboFiliale.TabIndex = 39
'
'FlatButton2
'
Me.FlatButton2.allowBorder = False
Me.FlatButton2.BackColor = System.Drawing.Color.Gainsboro
Me.FlatButton2.FlatAppearance.BorderSize = 0
Me.FlatButton2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.FlatButton2.ForeColor = System.Drawing.Color.Black
Me.FlatButton2.Location = New System.Drawing.Point(424, 232)
Me.FlatButton2.Name = "FlatButton2"
Me.FlatButton2.Size = New System.Drawing.Size(75, 23)
Me.FlatButton2.TabIndex = 38
Me.FlatButton2.Text = "Speichern"
Me.FlatButton2.UseVisualStyleBackColor = False
'
'txtLKWID
'
Me.txtLKWID.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtLKWID.Location = New System.Drawing.Point(279, 178)
Me.txtLKWID.Margin = New System.Windows.Forms.Padding(0)
Me.txtLKWID.Name = "txtLKWID"
Me.txtLKWID.Size = New System.Drawing.Size(186, 24)
Me.txtLKWID.TabIndex = 37
'
'txtAbfertNum
'
Me.txtAbfertNum.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtAbfertNum.Location = New System.Drawing.Point(279, 128)
Me.txtAbfertNum.Margin = New System.Windows.Forms.Padding(0)
Me.txtAbfertNum.Name = "txtAbfertNum"
Me.txtAbfertNum.Size = New System.Drawing.Size(186, 24)
Me.txtAbfertNum.TabIndex = 36
'
'Label18
'
Me.Label18.AutoSize = True
Me.Label18.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label18.Location = New System.Drawing.Point(173, 180)
Me.Label18.Name = "Label18"
Me.Label18.Size = New System.Drawing.Size(76, 20)
Me.Label18.TabIndex = 22
Me.Label18.Text = "LKW-ID:"
'
'Label17
'
Me.Label17.AutoSize = True
Me.Label17.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label17.Location = New System.Drawing.Point(68, 130)
Me.Label17.Name = "Label17"
Me.Label17.Size = New System.Drawing.Size(181, 20)
Me.Label17.TabIndex = 21
Me.Label17.Text = "Abfertigungsnummer:"
'
'Label16
'
Me.Label16.AutoSize = True
Me.Label16.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label16.Location = New System.Drawing.Point(126, 80)
Me.Label16.Name = "Label16"
Me.Label16.Size = New System.Drawing.Size(123, 20)
Me.Label16.TabIndex = 20
Me.Label16.Text = "Filial-Nummer:"
'
'btnClosePanOverlay
'
Me.btnClosePanOverlay.allowBorder = False
Me.btnClosePanOverlay.BackColor = System.Drawing.Color.White
Me.btnClosePanOverlay.BackgroundImage = Global.AVISO.My.Resources.Resources.del2
Me.btnClosePanOverlay.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
Me.btnClosePanOverlay.FlatAppearance.BorderSize = 0
Me.btnClosePanOverlay.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnClosePanOverlay.ForeColor = System.Drawing.Color.Black
Me.btnClosePanOverlay.Location = New System.Drawing.Point(475, 24)
Me.btnClosePanOverlay.Name = "btnClosePanOverlay"
Me.btnClosePanOverlay.Size = New System.Drawing.Size(24, 24)
Me.btnClosePanOverlay.TabIndex = 19
Me.btnClosePanOverlay.UseVisualStyleBackColor = False
'
'dgvGesamtsicherheitCRN
'
Me.dgvGesamtsicherheitCRN.AKTUALISIERUNGS_INTERVALL = -1
Me.dgvGesamtsicherheitCRN.AllowUserToAddRows = False
Me.dgvGesamtsicherheitCRN.AllowUserToDeleteRows = False
Me.dgvGesamtsicherheitCRN.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvGesamtsicherheitCRN.Dock = System.Windows.Forms.DockStyle.Right
Me.dgvGesamtsicherheitCRN.Location = New System.Drawing.Point(692, 0)
Me.dgvGesamtsicherheitCRN.Name = "dgvGesamtsicherheitCRN"
Me.dgvGesamtsicherheitCRN.ReadOnly = True
Me.dgvGesamtsicherheitCRN.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.dgvGesamtsicherheitCRN.Size = New System.Drawing.Size(692, 589)
Me.dgvGesamtsicherheitCRN.TabIndex = 0
'
'btnAddClose
'
Me.btnAddClose.allowBorder = False
Me.btnAddClose.BackColor = System.Drawing.Color.White
Me.btnAddClose.BackgroundImage = Global.AVISO.My.Resources.Resources.plus
Me.btnAddClose.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
Me.btnAddClose.FlatAppearance.BorderSize = 0
Me.btnAddClose.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnAddClose.ForeColor = System.Drawing.Color.Black
Me.btnAddClose.Location = New System.Drawing.Point(1348, 104)
Me.btnAddClose.Name = "btnAddClose"
Me.btnAddClose.Size = New System.Drawing.Size(24, 24)
Me.btnAddClose.TabIndex = 19
Me.btnAddClose.UseVisualStyleBackColor = False
'
'btnAddOpen
'
Me.btnAddOpen.allowBorder = False
Me.btnAddOpen.BackColor = System.Drawing.Color.White
Me.btnAddOpen.BackgroundImage = Global.AVISO.My.Resources.Resources.plus
Me.btnAddOpen.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
Me.btnAddOpen.FlatAppearance.BorderSize = 0
Me.btnAddOpen.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnAddOpen.ForeColor = System.Drawing.Color.Black
Me.btnAddOpen.Location = New System.Drawing.Point(654, 104)
Me.btnAddOpen.Name = "btnAddOpen"
Me.btnAddOpen.Size = New System.Drawing.Size(24, 24)
Me.btnAddOpen.TabIndex = 18
Me.btnAddOpen.UseVisualStyleBackColor = False
'
'lblGestellungNr
'
Me.lblGestellungNr.Anchor = System.Windows.Forms.AnchorStyles.Right
Me.lblGestellungNr.AutoSize = True
Me.lblGestellungNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblGestellungNr.ForeColor = System.Drawing.Color.Honeydew
Me.lblGestellungNr.Location = New System.Drawing.Point(126, 22)
Me.lblGestellungNr.Name = "lblGestellungNr"
Me.lblGestellungNr.Size = New System.Drawing.Size(171, 24)
Me.lblGestellungNr.TabIndex = 16
Me.lblGestellungNr.Text = "Gesamtsicherheit"
'
'txtCRNTime
'
Me.txtCRNTime.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtCRNTime.Location = New System.Drawing.Point(1006, 103)
Me.txtCRNTime.Margin = New System.Windows.Forms.Padding(0)
Me.txtCRNTime.Name = "txtCRNTime"
Me.txtCRNTime.Size = New System.Drawing.Size(55, 24)
Me.txtCRNTime.TabIndex = 15
'
'txtCRNDate
'
Me.txtCRNDate.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtCRNDate.Location = New System.Drawing.Point(921, 103)
Me.txtCRNDate.Margin = New System.Windows.Forms.Padding(0)
Me.txtCRNDate.Name = "txtCRNDate"
Me.txtCRNDate.Size = New System.Drawing.Size(85, 24)
Me.txtCRNDate.TabIndex = 14
'
'txtMRNTime
'
Me.txtMRNTime.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtMRNTime.Location = New System.Drawing.Point(368, 103)
Me.txtMRNTime.Margin = New System.Windows.Forms.Padding(0)
Me.txtMRNTime.Name = "txtMRNTime"
Me.txtMRNTime.Size = New System.Drawing.Size(55, 24)
Me.txtMRNTime.TabIndex = 13
'
'txtMRNDate
'
Me.txtMRNDate.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.Append
Me.txtMRNDate.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.CustomSource
Me.txtMRNDate.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtMRNDate.Location = New System.Drawing.Point(283, 103)
Me.txtMRNDate.Margin = New System.Windows.Forms.Padding(0)
Me.txtMRNDate.Name = "txtMRNDate"
Me.txtMRNDate.Size = New System.Drawing.Size(85, 24)
Me.txtMRNDate.TabIndex = 12
'
'btnSave
'
Me.btnSave.allowBorder = False
Me.btnSave.BackColor = System.Drawing.Color.White
Me.btnSave.FlatAppearance.BorderSize = 0
Me.btnSave.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnSave.ForeColor = System.Drawing.Color.Black
Me.btnSave.Location = New System.Drawing.Point(12, 12)
Me.btnSave.Name = "btnSave"
Me.btnSave.Size = New System.Drawing.Size(75, 23)
Me.btnSave.TabIndex = 11
Me.btnSave.Text = "Speichern"
Me.btnSave.UseVisualStyleBackColor = False
'
'txtCRNSicherheitsbetrag
'
Me.txtCRNSicherheitsbetrag.Enabled = False
Me.txtCRNSicherheitsbetrag.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtCRNSicherheitsbetrag.Location = New System.Drawing.Point(1172, 103)
Me.txtCRNSicherheitsbetrag.Margin = New System.Windows.Forms.Padding(0)
Me.txtCRNSicherheitsbetrag.Name = "txtCRNSicherheitsbetrag"
Me.txtCRNSicherheitsbetrag.Size = New System.Drawing.Size(100, 24)
Me.txtCRNSicherheitsbetrag.TabIndex = 10
'
'txtCRNWarenwert
'
Me.txtCRNWarenwert.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtCRNWarenwert.Location = New System.Drawing.Point(1072, 103)
Me.txtCRNWarenwert.Margin = New System.Windows.Forms.Padding(0)
Me.txtCRNWarenwert.Name = "txtCRNWarenwert"
Me.txtCRNWarenwert.Size = New System.Drawing.Size(100, 24)
Me.txtCRNWarenwert.TabIndex = 9
'
'txtCRN
'
Me.txtCRN.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtCRN.Location = New System.Drawing.Point(708, 103)
Me.txtCRN.Margin = New System.Windows.Forms.Padding(0)
Me.txtCRN.Name = "txtCRN"
Me.txtCRN.Size = New System.Drawing.Size(205, 24)
Me.txtCRN.TabIndex = 7
'
'txtMRNSicherheitsbetrag
'
Me.txtMRNSicherheitsbetrag.Enabled = False
Me.txtMRNSicherheitsbetrag.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtMRNSicherheitsbetrag.Location = New System.Drawing.Point(523, 103)
Me.txtMRNSicherheitsbetrag.Margin = New System.Windows.Forms.Padding(0)
Me.txtMRNSicherheitsbetrag.Name = "txtMRNSicherheitsbetrag"
Me.txtMRNSicherheitsbetrag.Size = New System.Drawing.Size(100, 24)
Me.txtMRNSicherheitsbetrag.TabIndex = 6
'
'txtMRNWarenwert
'
Me.txtMRNWarenwert.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtMRNWarenwert.Location = New System.Drawing.Point(423, 103)
Me.txtMRNWarenwert.Margin = New System.Windows.Forms.Padding(0)
Me.txtMRNWarenwert.Name = "txtMRNWarenwert"
Me.txtMRNWarenwert.Size = New System.Drawing.Size(100, 24)
Me.txtMRNWarenwert.TabIndex = 5
'
'txtMRN
'
Me.txtMRN.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtMRN.Location = New System.Drawing.Point(34, 103)
Me.txtMRN.Margin = New System.Windows.Forms.Padding(0)
Me.txtMRN.Name = "txtMRN"
Me.txtMRN.Size = New System.Drawing.Size(205, 24)
Me.txtMRN.TabIndex = 3
'
'FlatButton1
'
Me.FlatButton1.allowBorder = False
Me.FlatButton1.BackColor = System.Drawing.Color.White
Me.FlatButton1.FlatAppearance.BorderSize = 0
Me.FlatButton1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.FlatButton1.ForeColor = System.Drawing.Color.Black
Me.FlatButton1.Image = Global.AVISO.My.Resources.Resources.refresh
Me.FlatButton1.Location = New System.Drawing.Point(1340, 15)
Me.FlatButton1.Name = "FlatButton1"
Me.FlatButton1.Size = New System.Drawing.Size(32, 33)
Me.FlatButton1.TabIndex = 0
Me.FlatButton1.UseVisualStyleBackColor = False
'
'lblZollsatz
'
Me.lblZollsatz.Anchor = System.Windows.Forms.AnchorStyles.Right
Me.lblZollsatz.AutoSize = True
Me.lblZollsatz.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblZollsatz.ForeColor = System.Drawing.Color.Honeydew
Me.lblZollsatz.Location = New System.Drawing.Point(1010, 37)
Me.lblZollsatz.Name = "lblZollsatz"
Me.lblZollsatz.Size = New System.Drawing.Size(86, 16)
Me.lblZollsatz.TabIndex = 2
Me.lblZollsatz.Text = "Zollsatz: 12%"
'
'lblReferenzwert
'
Me.lblReferenzwert.Anchor = System.Windows.Forms.AnchorStyles.Right
Me.lblReferenzwert.AutoSize = True
Me.lblReferenzwert.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblReferenzwert.ForeColor = System.Drawing.Color.Honeydew
Me.lblReferenzwert.Location = New System.Drawing.Point(1010, 15)
Me.lblReferenzwert.Name = "lblReferenzwert"
Me.lblReferenzwert.Size = New System.Drawing.Size(137, 16)
Me.lblReferenzwert.TabIndex = 1
Me.lblReferenzwert.Text = "Referenzwert: €80.000"
'
'lblSaldo
'
Me.lblSaldo.Anchor = System.Windows.Forms.AnchorStyles.Right
Me.lblSaldo.AutoSize = True
Me.lblSaldo.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblSaldo.ForeColor = System.Drawing.Color.Honeydew
Me.lblSaldo.Location = New System.Drawing.Point(1111, 37)
Me.lblSaldo.Name = "lblSaldo"
Me.lblSaldo.Size = New System.Drawing.Size(147, 24)
Me.lblSaldo.TabIndex = 0
Me.lblSaldo.Text = "Saldo: €80.000"
'
'panOben
'
Me.panOben.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.panOben.Controls.Add(Me.btnDeleteClose)
Me.panOben.Controls.Add(Me.btnDeleteOpen)
Me.panOben.Controls.Add(Me.btnUpdateClose)
Me.panOben.Controls.Add(Me.btnUpdateOpen)
Me.panOben.Controls.Add(Me.Label15)
Me.panOben.Controls.Add(Me.txtPos)
Me.panOben.Controls.Add(Me.Label14)
Me.panOben.Controls.Add(Me.txtEust)
Me.panOben.Controls.Add(Me.Label13)
Me.panOben.Controls.Add(Me.cboATR)
Me.panOben.Controls.Add(Me.Label7)
Me.panOben.Controls.Add(Me.Label8)
Me.panOben.Controls.Add(Me.Label9)
Me.panOben.Controls.Add(Me.Label10)
Me.panOben.Controls.Add(Me.Label11)
Me.panOben.Controls.Add(Me.Label12)
Me.panOben.Controls.Add(Me.Label6)
Me.panOben.Controls.Add(Me.Label5)
Me.panOben.Controls.Add(Me.Label4)
Me.panOben.Controls.Add(Me.Label3)
Me.panOben.Controls.Add(Me.Label2)
Me.panOben.Controls.Add(Me.Label1)
Me.panOben.Controls.Add(Me.txtFreitextClose)
Me.panOben.Controls.Add(Me.txtFreitextOpen)
Me.panOben.Controls.Add(Me.btnAddClose)
Me.panOben.Controls.Add(Me.btnAddOpen)
Me.panOben.Controls.Add(Me.lblGestellungNr)
Me.panOben.Controls.Add(Me.txtCRNTime)
Me.panOben.Controls.Add(Me.txtCRNDate)
Me.panOben.Controls.Add(Me.txtMRNTime)
Me.panOben.Controls.Add(Me.txtMRNDate)
Me.panOben.Controls.Add(Me.btnSave)
Me.panOben.Controls.Add(Me.txtCRNSicherheitsbetrag)
Me.panOben.Controls.Add(Me.txtCRNWarenwert)
Me.panOben.Controls.Add(Me.txtCRN)
Me.panOben.Controls.Add(Me.txtMRNSicherheitsbetrag)
Me.panOben.Controls.Add(Me.txtMRNWarenwert)
Me.panOben.Controls.Add(Me.txtMRN)
Me.panOben.Controls.Add(Me.FlatButton1)
Me.panOben.Controls.Add(Me.lblZollsatz)
Me.panOben.Controls.Add(Me.lblReferenzwert)
Me.panOben.Controls.Add(Me.lblSaldo)
Me.panOben.Dock = System.Windows.Forms.DockStyle.Top
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(1384, 187)
Me.panOben.TabIndex = 2
'
'btnDeleteClose
'
Me.btnDeleteClose.allowBorder = False
Me.btnDeleteClose.BackColor = System.Drawing.Color.White
Me.btnDeleteClose.BackgroundImage = Global.AVISO.My.Resources.Resources.del2
Me.btnDeleteClose.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
Me.btnDeleteClose.FlatAppearance.BorderSize = 0
Me.btnDeleteClose.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnDeleteClose.ForeColor = System.Drawing.Color.Black
Me.btnDeleteClose.Location = New System.Drawing.Point(1348, 74)
Me.btnDeleteClose.Name = "btnDeleteClose"
Me.btnDeleteClose.Size = New System.Drawing.Size(24, 24)
Me.btnDeleteClose.TabIndex = 42
Me.btnDeleteClose.UseVisualStyleBackColor = False
Me.btnDeleteClose.Visible = False
'
'btnDeleteOpen
'
Me.btnDeleteOpen.allowBorder = False
Me.btnDeleteOpen.BackColor = System.Drawing.Color.White
Me.btnDeleteOpen.BackgroundImage = Global.AVISO.My.Resources.Resources.del2
Me.btnDeleteOpen.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
Me.btnDeleteOpen.FlatAppearance.BorderSize = 0
Me.btnDeleteOpen.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnDeleteOpen.ForeColor = System.Drawing.Color.Black
Me.btnDeleteOpen.Location = New System.Drawing.Point(654, 74)
Me.btnDeleteOpen.Name = "btnDeleteOpen"
Me.btnDeleteOpen.Size = New System.Drawing.Size(24, 24)
Me.btnDeleteOpen.TabIndex = 40
Me.btnDeleteOpen.UseVisualStyleBackColor = False
Me.btnDeleteOpen.Visible = False
'
'btnUpdateClose
'
Me.btnUpdateClose.allowBorder = False
Me.btnUpdateClose.BackColor = System.Drawing.Color.White
Me.btnUpdateClose.BackgroundImage = Global.AVISO.My.Resources.Resources.ok
Me.btnUpdateClose.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
Me.btnUpdateClose.FlatAppearance.BorderSize = 0
Me.btnUpdateClose.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnUpdateClose.ForeColor = System.Drawing.Color.Black
Me.btnUpdateClose.Location = New System.Drawing.Point(1348, 136)
Me.btnUpdateClose.Name = "btnUpdateClose"
Me.btnUpdateClose.Size = New System.Drawing.Size(24, 24)
Me.btnUpdateClose.TabIndex = 41
Me.btnUpdateClose.UseVisualStyleBackColor = False
Me.btnUpdateClose.Visible = False
'
'btnUpdateOpen
'
Me.btnUpdateOpen.allowBorder = False
Me.btnUpdateOpen.BackColor = System.Drawing.Color.White
Me.btnUpdateOpen.BackgroundImage = Global.AVISO.My.Resources.Resources.ok
Me.btnUpdateOpen.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
Me.btnUpdateOpen.FlatAppearance.BorderSize = 0
Me.btnUpdateOpen.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnUpdateOpen.ForeColor = System.Drawing.Color.Black
Me.btnUpdateOpen.Location = New System.Drawing.Point(654, 136)
Me.btnUpdateOpen.Name = "btnUpdateOpen"
Me.btnUpdateOpen.Size = New System.Drawing.Size(24, 24)
Me.btnUpdateOpen.TabIndex = 40
Me.btnUpdateOpen.UseVisualStyleBackColor = False
Me.btnUpdateOpen.Visible = False
'
'Label15
'
Me.Label15.AutoSize = True
Me.Label15.ForeColor = System.Drawing.SystemColors.ButtonHighlight
Me.Label15.Location = New System.Drawing.Point(242, 90)
Me.Label15.Name = "Label15"
Me.Label15.Size = New System.Drawing.Size(25, 13)
Me.Label15.TabIndex = 39
Me.Label15.Text = "Pos"
'
'txtPos
'
Me.txtPos.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtPos.Location = New System.Drawing.Point(242, 103)
Me.txtPos.Margin = New System.Windows.Forms.Padding(0)
Me.txtPos.Name = "txtPos"
Me.txtPos.Size = New System.Drawing.Size(35, 24)
Me.txtPos.TabIndex = 38
'
'Label14
'
Me.Label14.AutoSize = True
Me.Label14.Enabled = False
Me.Label14.ForeColor = System.Drawing.SystemColors.ButtonHighlight
Me.Label14.Location = New System.Drawing.Point(194, 136)
Me.Label14.Name = "Label14"
Me.Label14.Size = New System.Drawing.Size(59, 13)
Me.Label14.TabIndex = 37
Me.Label14.Text = "19% EUST"
'
'txtEust
'
Me.txtEust.Enabled = False
Me.txtEust.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtEust.Location = New System.Drawing.Point(197, 149)
Me.txtEust.Margin = New System.Windows.Forms.Padding(0)
Me.txtEust.Name = "txtEust"
Me.txtEust.Size = New System.Drawing.Size(100, 24)
Me.txtEust.TabIndex = 36
'
'Label13
'
Me.Label13.AutoSize = True
Me.Label13.Enabled = False
Me.Label13.ForeColor = System.Drawing.SystemColors.ButtonHighlight
Me.Label13.Location = New System.Drawing.Point(76, 133)
Me.Label13.Name = "Label13"
Me.Label13.Size = New System.Drawing.Size(73, 13)
Me.Label13.TabIndex = 35
Me.Label13.Text = "A.TR Ja/Nein"
'
'cboATR
'
Me.cboATR.Enabled = False
Me.cboATR.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!)
Me.cboATR.FormattingEnabled = True
Me.cboATR.Items.AddRange(New Object() {"JA", "NEIN"})
Me.cboATR.Location = New System.Drawing.Point(74, 149)
Me.cboATR.Name = "cboATR"
Me.cboATR.Size = New System.Drawing.Size(120, 26)
Me.cboATR.TabIndex = 34
'
'Label7
'
Me.Label7.AutoSize = True
Me.Label7.ForeColor = System.Drawing.SystemColors.ButtonHighlight
Me.Label7.Location = New System.Drawing.Point(1014, 136)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(41, 13)
Me.Label7.TabIndex = 33
Me.Label7.Text = "Freitext"
'
'Label8
'
Me.Label8.AutoSize = True
Me.Label8.ForeColor = System.Drawing.SystemColors.ButtonHighlight
Me.Label8.Location = New System.Drawing.Point(1075, 90)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(59, 13)
Me.Label8.TabIndex = 32
Me.Label8.Text = "Warenwert"
'
'Label9
'
Me.Label9.AutoSize = True
Me.Label9.ForeColor = System.Drawing.SystemColors.ButtonHighlight
Me.Label9.Location = New System.Drawing.Point(1169, 90)
Me.Label9.Name = "Label9"
Me.Label9.Size = New System.Drawing.Size(89, 13)
Me.Label9.TabIndex = 31
Me.Label9.Text = "Sicherheitsbetrag"
'
'Label10
'
Me.Label10.AutoSize = True
Me.Label10.ForeColor = System.Drawing.SystemColors.ButtonHighlight
Me.Label10.Location = New System.Drawing.Point(1003, 90)
Me.Label10.Name = "Label10"
Me.Label10.Size = New System.Drawing.Size(40, 13)
Me.Label10.TabIndex = 30
Me.Label10.Text = "Uhrzeit"
'
'Label11
'
Me.Label11.AutoSize = True
Me.Label11.ForeColor = System.Drawing.SystemColors.ButtonHighlight
Me.Label11.Location = New System.Drawing.Point(918, 90)
Me.Label11.Name = "Label11"
Me.Label11.Size = New System.Drawing.Size(38, 13)
Me.Label11.TabIndex = 29
Me.Label11.Text = "Datum"
'
'Label12
'
Me.Label12.AutoSize = True
Me.Label12.ForeColor = System.Drawing.SystemColors.ButtonHighlight
Me.Label12.Location = New System.Drawing.Point(765, 90)
Me.Label12.Name = "Label12"
Me.Label12.Size = New System.Drawing.Size(64, 13)
Me.Label12.TabIndex = 28
Me.Label12.Text = "ATC / MRN"
'
'Label6
'
Me.Label6.AutoSize = True
Me.Label6.ForeColor = System.Drawing.SystemColors.ButtonHighlight
Me.Label6.Location = New System.Drawing.Point(364, 136)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(41, 13)
Me.Label6.TabIndex = 27
Me.Label6.Text = "Freitext"
'
'Label5
'
Me.Label5.AutoSize = True
Me.Label5.ForeColor = System.Drawing.SystemColors.ButtonHighlight
Me.Label5.Location = New System.Drawing.Point(426, 90)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(59, 13)
Me.Label5.TabIndex = 26
Me.Label5.Text = "Warenwert"
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.ForeColor = System.Drawing.SystemColors.ButtonHighlight
Me.Label4.Location = New System.Drawing.Point(520, 90)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(89, 13)
Me.Label4.TabIndex = 25
Me.Label4.Text = "Sicherheitsbetrag"
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.ForeColor = System.Drawing.SystemColors.ButtonHighlight
Me.Label3.Location = New System.Drawing.Point(365, 90)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(40, 13)
Me.Label3.TabIndex = 24
Me.Label3.Text = "Uhrzeit"
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.ForeColor = System.Drawing.SystemColors.ButtonHighlight
Me.Label2.Location = New System.Drawing.Point(274, 90)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(38, 13)
Me.Label2.TabIndex = 23
Me.Label2.Text = "Datum"
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.ForeColor = System.Drawing.SystemColors.ButtonHighlight
Me.Label1.Location = New System.Drawing.Point(76, 90)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(70, 13)
Me.Label1.TabIndex = 22
Me.Label1.Text = "ATB Nummer"
'
'txtFreitextClose
'
Me.txtFreitextClose.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtFreitextClose.Location = New System.Drawing.Point(1017, 149)
Me.txtFreitextClose.Margin = New System.Windows.Forms.Padding(0)
Me.txtFreitextClose.Name = "txtFreitextClose"
Me.txtFreitextClose.Size = New System.Drawing.Size(255, 24)
Me.txtFreitextClose.TabIndex = 21
'
'txtFreitextOpen
'
Me.txtFreitextOpen.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtFreitextOpen.Location = New System.Drawing.Point(367, 149)
Me.txtFreitextOpen.Margin = New System.Windows.Forms.Padding(0)
Me.txtFreitextOpen.Name = "txtFreitextOpen"
Me.txtFreitextOpen.Size = New System.Drawing.Size(256, 24)
Me.txtFreitextOpen.TabIndex = 20
'
'frmGesSich
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(1384, 776)
Me.Controls.Add(Me.Panel2)
Me.Controls.Add(Me.panOben)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.MaximumSize = New System.Drawing.Size(1400, 815)
Me.MinimumSize = New System.Drawing.Size(1400, 815)
Me.Name = "frmGesSich"
Me.Text = "frmGesSich"
CType(Me.dgvGesamtsicherheitMRN, System.ComponentModel.ISupportInitialize).EndInit()
Me.Panel2.ResumeLayout(False)
Me.panOverlay.ResumeLayout(False)
Me.panOverlay.PerformLayout()
CType(Me.dgvGesamtsicherheitCRN, System.ComponentModel.ISupportInitialize).EndInit()
Me.panOben.ResumeLayout(False)
Me.panOben.PerformLayout()
Me.ResumeLayout(False)
End Sub
Friend WithEvents dgvGesamtsicherheitMRN As VERAG_PROG_ALLGEMEIN.MyDatagridview
Friend WithEvents Panel2 As Panel
Friend WithEvents dgvGesamtsicherheitCRN As VERAG_PROG_ALLGEMEIN.MyDatagridview
Friend WithEvents btnAddClose As VERAG_PROG_ALLGEMEIN.FlatButton
Friend WithEvents btnAddOpen As VERAG_PROG_ALLGEMEIN.FlatButton
Friend WithEvents lblGestellungNr As Label
Friend WithEvents txtCRNTime As TextBox
Friend WithEvents txtCRNDate As TextBox
Friend WithEvents txtMRNTime As TextBox
Friend WithEvents txtMRNDate As TextBox
Friend WithEvents btnSave As VERAG_PROG_ALLGEMEIN.FlatButton
Friend WithEvents txtCRNSicherheitsbetrag As TextBox
Friend WithEvents txtCRNWarenwert As TextBox
Friend WithEvents txtCRN As TextBox
Friend WithEvents txtMRNSicherheitsbetrag As TextBox
Friend WithEvents txtMRNWarenwert As TextBox
Friend WithEvents txtMRN As TextBox
Friend WithEvents FlatButton1 As VERAG_PROG_ALLGEMEIN.FlatButton
Friend WithEvents lblZollsatz As Label
Friend WithEvents lblReferenzwert As Label
Friend WithEvents lblSaldo As Label
Friend WithEvents panOben As Panel
Friend WithEvents txtFreitextClose As TextBox
Friend WithEvents txtFreitextOpen As TextBox
Friend WithEvents Label14 As Label
Friend WithEvents txtEust As TextBox
Friend WithEvents Label13 As Label
Friend WithEvents cboATR As ComboBox
Friend WithEvents Label7 As Label
Friend WithEvents Label8 As Label
Friend WithEvents Label9 As Label
Friend WithEvents Label10 As Label
Friend WithEvents Label11 As Label
Friend WithEvents Label12 As Label
Friend WithEvents Label6 As Label
Friend WithEvents Label5 As Label
Friend WithEvents Label4 As Label
Friend WithEvents Label3 As Label
Friend WithEvents Label2 As Label
Friend WithEvents Label1 As Label
Friend WithEvents Label15 As Label
Friend WithEvents txtPos As TextBox
Friend WithEvents panOverlay As Panel
Friend WithEvents FlatButton2 As VERAG_PROG_ALLGEMEIN.FlatButton
Friend WithEvents txtLKWID As TextBox
Friend WithEvents txtAbfertNum As TextBox
Friend WithEvents Label18 As Label
Friend WithEvents Label17 As Label
Friend WithEvents Label16 As Label
Friend WithEvents btnClosePanOverlay As VERAG_PROG_ALLGEMEIN.FlatButton
Friend WithEvents cboFiliale As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents btnUpdateClose As VERAG_PROG_ALLGEMEIN.FlatButton
Friend WithEvents btnUpdateOpen As VERAG_PROG_ALLGEMEIN.FlatButton
Friend WithEvents btnDeleteClose As VERAG_PROG_ALLGEMEIN.FlatButton
Friend WithEvents btnDeleteOpen As VERAG_PROG_ALLGEMEIN.FlatButton
End Class

197
Aviso/frmGesSich.resx Normal file
View File

@@ -0,0 +1,197 @@
<?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>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAABAAEAICAAAAEAIACoEAAAFgAAACgAAAAgAAAAQAAAAAEAIAAAAAAAABAAABILAAASCwAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAACAAAAAgAAAAMAAAAEAAAAChEAEQ8NAA0TAAAAFgAA
ABkAAAAbAAAAGgAAABgAAAAUAAAADgAAAAwAAAAIAAAABAAAAAMAAAACAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAAAAwAAAAUgICAIEhISDg0NDRQAAAAbAAAAJAAA
ACsAAAAvAAAAMgAAADQAAAAzAAAAMAAAACsAAAAmAAAAHgAAABYAAAAQAAAACwAAAAYAAAAEAAAAAQAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAAFAAAACg8PDxEJCQkbBwcHJQUF
BTEEBAQ9AAAARwAAAE0AAABSAAAAUwAAAFIAAABOAAAESAAABD8AAAAzAAAAKAAAAB0AAAAUAAAADQAA
AAcAAAADAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAAAAwAAAAgAAAAQCgAKGg0G
DSgJDgk4BwcHSAYGBlsCAgVqAAAAcgAAAHUAAAB0AAAAcwAAAnAAAAVoAwMGWwMDA0wEAAA8AAAALQAA
AB4AAAAUAAAADAAAAAUAAAACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAAEAAAACgwM
DBUICAgiCgoKMwMHB0oFBQViCggCfmhWALWZfwDXpIYA37mXAOyxkQDmqIcA25d8AMlbSgCYAAMAZAMD
AE0ABAA6AAAAKAAAABoAAAAQAAAABwAAAAMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAA
AAYAAAAMFhYWFw0NDScFBQU3RjgAX7SUAM/XsQD/37YA/9+0AP/ftQD/37UA/9+1AP/etgD/3rUA/9+2
AP/UrQD5qosArSMjAEEABgYqAAAAHAAAABEAAAAJAAAAAwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAACAAAABgAAAAsMDAwWGhoJHcCdAJ7ctwD/3rYA/9+2AP/htgD/4rcA/+K3AP/itwD/4rcA/+K3
AP/itwD/4bYA/9+2AP/etgD/2bMA9LKTAG0NDQ0UAAAAEAAAAAgAAAADAAAAAQAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAEAAAADAAAAB3ZiAA3YtADF3rYA/+C2AP/iuAD/5LgA/+W5AP/mugD/57oA/+e6
AP/nugD/57oA/+a5AP/luQD/47gA/+K3AP/ftgD/3bYA/9eyAJEAAAAAAAAABAAAAAIAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAAA3bcA1963AP/iuAD/5LoA/+e7AP/nvAD/6LwA/+m8
AP/rvQD/7L4A/+2+AP/svwD/7L4A/+q8AP/ovAD/5rsA/+O6AP/huAD/3bYA/+C6AJsAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAOC6ALXfuAD/4roA/+a8AP/nvAD/6b0A/+u+
AP/svwD/7MAA/76cAP+NdwD/e2sb/3JkIv+HcwD/p4kA/+K5AP/qvQD/57wA/+W8AP/hugD/3rgA/965
AG0AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADfugBn3rkA/+K7AP/mvgD/6b4A/+u/
AP/rwAD/78QA/8CeAP9WTzL/QEBB/0JERf9ERUX/QUFB/zs8PP81NTX/Qzwn//DDAP/rvwD/6L4A/+a9
AP/huwD/3bgA/9WxACQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAd25AO/hvAD/5r4A/+nA
AP/rwQD/7MIA//DEAP+ykwD/Ozw+/0VGRv9JSUn/SEtK/0dHSP9BQkT/Ozs8/zQ0NP9vYBP/8MUA/+zC
AP/rwQD/6L8A/+W+AP/huwD/27gAugAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADduQB44bwA/+a+
AP/pwQD/7MMA/+7EAP/wxQD/1a8A/zw+Pv9HR0f/TU5O/05PUP+QgC7/uJsA/9WwAP/DowD/m4MA/6yQ
AP/xxQD/78QA/+7EAP/rwgD/6MAA/+W9AP/guwD/3LkALAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAN26
ANrkvgD/6MEA/+vEAP/uxAD/8MUA//TJAP9wYiv/Q0ZG/05PT/9RVFX/up0Q//TJAP/xxwD/8ccA//HH
AP/yxwD/8scA//DGAP/wxgD/8MUA/+3FAP/rwwD/58AA/+K+AP/euwCZAAAAAAAAAAAAAAAAAAAAAAAA
AADcuQAW4L4A/+XBAP/qxQD/7cYA/+/IAP/1ywD/7cQA/z9BQP9MTU3/VVZW/351TP/4zwD/9MsA//XL
AP/1ywD/9csA//TLAP/xyQD/8ckA//HJAP/wyQD/78cA/+3GAP/pxAD/5cAA/969AOoAAAAAAAAAAAAA
AAAAAAAAAAAAAN27AEvjwAD/6MQA/+zGAP/vyAD/9swA/0xEHv8yMjT/QkRE/09QUP9XWFj/Wltb/1dZ
XP9SVFb/Sk1P/0JERv86Ojv/ZFgr//bNAP/zygD/88oA//PKAP/xygD/78gA/+vFAP/nwwD/4b8A/8aq
AAkAAAAAAAAAAAAAAAAAAAAA378Jb+TCAP/qxgD/7skA//DMAP/1zwD/dmUf/0xHNP9CRET/T1BQ/1dY
WP9zblX/e3NR/3dvTP9yaUb/bGI+/2NcNf+Ccyf/9tAA//PNAP/zzQD/880A//LMAP/wywD/7cgA/+jG
AP/jwQD/274GKwAAAAAAAAAAAAAAAAAAAADfvx545MQT/+rHAv/uywD/8s0A//TPAP/evAD/kn4q/0BB
Qf9OTk7/VVZX/7ykOv/fwBH/3b4V/9y9Ev/buxb/2roK/9++AP/10AD/9M8A//TPAP/0zwD/884A//HM
AP/uygD/6cYF/+TDFf/fvxs4AAAAAAAAAAAAAAAAAAAAAODCJXXlxiL/68oX//DND//zzwH/+NMA/0pD
If8tLi7/PDw8/0hKSf9SUlL/VVdY/1VXWf9RVFb/S05R/0VGSf87PD//Zlwz//nUAP/20QD/9tEA//bR
AP/10QD/888B/+7MEv/qyRn/5MQk/968IS4AAAAAAAAAAAAAAAAAAAAA4cMwVeXGLv/ryyn/8M4l//PR
Iv/31CH/lIEg/31tLf80NTX/QUFB/0pMTP9lYVD/m41J/5mISf+XiEb/lINB/5B/Of+ljzD/+NUf//fT
Hv/30x7/9tMe//XRIf/y0CP/7s0m/+rKKv/kxTD/2b8mFAAAAAAAAAAAAAAAAAAAAADixTMj5cY4/+vM
M//w0DL/9NIw//bUMf/51zD//9sw/0pELf83Nzf/QUJC/05OSv/y0TH/+9ct//rXLf/61y3/+tcw//rX
MP/41i//+NYv//jWL//31TD/9tQx//PRMf/vzzP/6ss0/+LFNvcAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AADkxj/06sw//+/QPv/z0z7/9tY8//jXPf/62D//tJw1/ywtLf83Nzf/QEBA/2pjSP/lyEL//No9//rZ
Pv/72T7//Ns8//TTPv/51z3/+Nc9//jXPf/21Tz/8tI+/+7PPf/oyj7/4sU+qAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAOHFRJLoy0T/7s9F//LTRv/21kf/+NdF//nYR//+3Ej/a2Aw/ywsLP81NTX/Ozs7/0VG
QP9vZ0X/k4VH/3dtQf9DQDT/s50+//vbR//52Ef/+NdF//bWR//x0kX/7c5G/+fJRf/hw0JNAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAA379AEObKSv/sz0v/8dNM//XXTv/32U7/+dtN//rcTv/52k3/cGQy/ygo
KP8uLi7/MjQ0/zU2Nv81NTX/MTIy/ywsLP97bjf//NxQ//naTf/32E//9NZM//DSTf/rzkv/5MhI2AAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA5clNiOnNUf/v0VP/89ZV//fZVf/521j/+txX//vc
Wf//4Vr/wqpJ/1xTL/8lJSX/KCkp/ygpKf8mJib/Ly0n/4Z3Of/93Vj/+dpX//bYVv/y1VT/7dFT/+fM
Uf/hyE5FAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAC/v0AE5spS3ezQVf/w1Fj/9dda//fa
XP/53Fz/+t1d//veXf/932D//+Fg/+zQWP/ZwFP/2cFU/93DVf/+4l7//d9e//ncXP/22Vz/89da/+/S
V//qzlT/5MpTowAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADbwlUV5stY9+zR
W//w1V7/9dhg//fbYv/53GL/+t1k//veY//73mX//OBk//zgZf/832b//N9k//ndY//53GP/9tpg//PX
Xv/w1F3/69Ba/+XKV9AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AADizFcj5stb7ezRXv/w1GL/89dj//XZZf/322b/+Nxn//ncZ//53Gf/+dxn//ncZ//43Gf/99tm//XZ
ZP/y12P/79Ng/+vQXf/my1rJ1apVBgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAADVv1UM5stcxevQYP/u02L/8NZk//PXZv/02Wf/9dpo//XaaP/12mj/9dpo//TZ
Z//y12X/8NVk/+3SYv/pz1//5stdjwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA5ctfWebNYOLq0WP/7NJk/+7UZv/w1Wf/8NZn//DW
Z//v1Wb/7tRl/+vSZP/q0GL/58xfvuLMXyMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAOLLYyzlzGOB5s1izefP
ZNTp0GP/6dBj/ejOY9HmzWLA5sthcefCYRUAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAA+AAAf/AAAB/wAAAP4AAAD+AAAA/gAAAP4AAAB+AAAE/0AAA/+AAAH/AA
AA/gAAAP4AAAB+AAAAfAAAAHwAAAA8AAAAPAAAADwAAAA8AAAAPAAAAH4AAAB+AAAAfgAAAP8AAAD/AA
AB/4AAA//AAAP/4AAP//gAH//+AH//////8=
</value>
</data>
</root>

633
Aviso/frmGesSich.vb Normal file
View File

@@ -0,0 +1,633 @@
Imports System.Reflection
Public Class frmGesSich
Public Property GesamtsichNr As String = ""
Public Property MakeDate As DateTime = Nothing
Property GesSichRef As cGesamtSicherheitsReferenz
Property Standort As String = ""
Public ZollsatzMulti As Double = 0
Public Saldo As Integer = 0
Public Neu As Boolean = False
Public FilialNummer As Integer
Public Abfertigungsnummer As String
Public LKWID As String
Dim openopened As cSicherheit
dim closedopened as cSicherheit
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Private Sub FlatButton1_Click(sender As Object, e As EventArgs) Handles FlatButton1.Click
Dim dgv As String = ""
For Each c As DataGridViewColumn In dgvGesamtsicherheitMRN.Columns
dgv &= c.Width & c.HeaderText & vbCrLf
Next
' MsgBox(dgv)
LoadDGV()
GesSichRef.LoadStandort(Standort)
LoadStandort()
End Sub
Private Sub frmGesamtsicherheit_Load(sender As Object, e As EventArgs) Handles MyBase.Load
If GesamtsichNr = "" Or Neu = True Then
panOben.Enabled = False : panOben.Enabled = False
panOverlay.Visible = True
cboFiliale.fillWithSQL("SELECT FilialenNr, cast(FilialenNr as varchar(4)) + ' ' + Grenzstelle FROM Filialen WHERE Fil_Status='A' ORDER BY FilialenNr ", True, "FMZOLL", True)
If MakeDate = Nothing Then MakeDate = Date.Now
Else
LoadDGV()
End If
LoadStandort()
cboATR.Enabled = GesSichRef.ATR
Me.Text = "Gesamtsicherheit " & Standort
frmHauptfenster.EnableDoubleBuffered(dgvGesamtsicherheitCRN)
End Sub
Public Sub LoadDGV()
lblSaldo.Text = "Saldo: € " & GesSichRef.Saldo.ToString("N")
lblGestellungNr.Text = "Gesamtsicherheitsnummer: " & GesamtsichNr
Dim sqladd1 As String = ""
If GesSichRef.UstEnabled Then sqladd1 &= ", FORMAT(((Warenwert + Sicherheitsbetrag) * " & GesSichRef.Ust & "/100), 'C', 'de-DE') as Ust"
If GesSichRef.ATR Then sqladd1 &= ", ATRJN"
Dim addtosqlstring As String = ""
Dim SQLStringMRN As String = "select GesamtSichID, Kennnummer, PosNr, DateTime, Warenwert, Sicherheitsbetrag, Saldo " & sqladd1 & " , Freitext from [tblGesamtsicherheit] where GesamtsichNr = '" & GesamtsichNr & "' and Art = 'Open' order by DateTime"
dgvGesamtsicherheitMRN.SET_SQL(SQLStringMRN, "AVISO", ,)
dgvGesamtsicherheitMRN.LOAD()
Dim SQLStringCRN As String = "select GesamtSichID, Kennnummer, DateTime, Warenwert, Sicherheitsbetrag, Saldo, Freitext from [tblGesamtsicherheit] where GesamtsichNr = '" & GesamtsichNr & "' and Art = 'Close' order by DateTime"
dgvGesamtsicherheitCRN.SET_SQL(SQLStringCRN, "AVISO", ,)
dgvGesamtsicherheitCRN.LOAD()
Dim StandortSqlString As String = "select * from [tblGesamtsicherheit] where GesamtsichNr = '" & GesamtsichNr & "'"
Dim dt As New DataTable
dt = SQL.loadDgvBySql(StandortSqlString, "AVISO", 100, True)
If dt.Rows.Count > 0 Then
'Me.GesamtsichNr = dt.Rows(0).Item("GesamtsichNr")
Me.FilialNummer = dt.Rows(0).Item("FilialNummer")
Me.Abfertigungsnummer = dt.Rows(0).Item("Abfertigungsnummer")
If Me.FilialNummer.ToString.Length > 0 Then lblGestellungNr.Text &= ", FilialNr: " & Me.FilialNummer
If Me.Abfertigungsnummer.Length > 0 Then lblGestellungNr.Text &= ", Abfertigungsnummer: " & Me.Abfertigungsnummer
End If
If dgvGesamtsicherheitMRN.Columns.Count > 0 Then
With dgvGesamtsicherheitMRN
.RowHeadersWidth = 10
.Columns("GesamtSichID").Visible = False
.Columns("Warenwert").DefaultCellStyle.Format = "c"
.Columns("Sicherheitsbetrag").DefaultCellStyle.Format = "c"
.Columns("Saldo").DefaultCellStyle.Format = "c"
.Columns("Saldo").Visible = False
Select Case GesSichRef.ATR
Case True
.Columns("Kennnummer").HeaderText = "ATB"
.Columns("AtrJN").HeaderText = "ATR"
.Columns("AtrJN").Width = 33
.Columns("Ust").Width = 69
Case Else
.Columns("Kennnummer").HeaderText = "CRN"
End Select
.Columns("Kennnummer").Width = 146
.Columns("PosNr").Width = 20
.Columns("DateTime").Width = 95
.Columns("Warenwert").Width = 100
.Columns("Saldo").Width = 100
.Columns("Sicherheitsbetrag").Width = 100
.Columns("Freitext").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
End With
' For Each col As DataGridViewColumn In dgvGesamtsicherheitMRN.Columns
'col.Width = 120
'Next
End If
If dgvGesamtsicherheitCRN.Columns.Count > 0 Then
With dgvGesamtsicherheitCRN
.RowHeadersWidth = 10
.Columns("GesamtSichID").Visible = False
.Columns("Warenwert").DefaultCellStyle.Format = "c"
.Columns("Sicherheitsbetrag").DefaultCellStyle.Format = "c"
.Columns("Saldo").DefaultCellStyle.Format = "c"
.Columns("Saldo").Visible = False
Select Case GesSichRef.ATR
Case True
.Columns("Kennnummer").HeaderText = "CRN"
Case Else
.Columns("Kennnummer").HeaderText = "ATC / MRN"
End Select
.Columns("Kennnummer").Width = 120
.Columns("DateTime").Width = 140
.Columns("Warenwert").Width = 100
.Columns("Sicherheitsbetrag").Width = 100
.Columns("Freitext").Width = 220
End With
'For Each col As DataGridViewColumn In dgvGesamtsicherheitCRN.Columns
' col.Width = 120
'Next
End If
End Sub
Public Sub LoadStandort()
'Dim StandortSqlString As String = "select * from [tblGesamtsicherheitReferenz] where Standort = " & "'" & Standort & "'"
'Dim dt As New DataTable
'dt = SQL.loadDgvBySql(StandortSqlString, "AVISO", 100, True)
'Zollsatz = dt.Rows(0).Item("Zollsatz")
'Referenzwert = dt.Rows(0).Item("Referenzwert")
lblReferenzwert.Text = "Referenzwert: €" & GesSichRef.Referenzwert.ToString("N")
lblZollsatz.Text = "Zollsatz: " & GesSichRef.Zollsatz & "%"
ZollsatzMulti = GesSichRef.Zollsatz / 100
End Sub
'Private Sub CalcSaldo()
' Dim SaldoString As String = "select SUM([MRN_Sicherheitsbetrag]) as sumone, SUM([CRN_Sicherheitsbetrag]) As sumtwo from [tblGesamtsicherheit]"
' Dim dt As New DataTable
' dt = SQL.loadDgvBySql(SaldoString, "AVISO", 100, True)
' Dim mrn As Integer = dt.Rows(0).Item(0)
' Dim crn As Integer = dt.Rows(0).Item(1)
' Saldo = Referenzwert - mrn + crn
' lblSaldo.Text = "Saldo: €" & Saldo.ToString("N")
'End Sub
Private Sub Warenwert_TextChanged(sender As Object, e As EventArgs) Handles txtMRNWarenwert.TextChanged, txtCRNWarenwert.TextChanged
Try
Select Case sender.name
Case "txtMRNWarenwert"
txtMRNSicherheitsbetrag.Text = (txtMRNWarenwert.Text * ZollsatzMulti).ToString("N")
If GesSichRef.UstEnabled Then txtEust.Text = (Double.Parse(txtMRNWarenwert.Text) + Double.Parse(txtMRNSicherheitsbetrag.Text)) * (GesSichRef.Ust / 100)
Case "txtCRNWarenwert"
txtCRNSicherheitsbetrag.Text = (txtCRNWarenwert.Text * ZollsatzMulti).ToString("N")
End Select
Catch
End Try
End Sub
Private Sub Warenwert_Keypresses(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles txtMRNWarenwert.KeyPress, txtCRNWarenwert.KeyPress, txtPos.KeyPress
Select Case Asc(e.KeyChar)
Case 48 To 57, 8, 44
' Zahlen, Backspace und , zulassen
Case Else
' alle anderen Eingaben unterdrücken
e.Handled = True
End Select
End Sub
Private Sub DateTime_Keypresses(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles txtCRNDate.KeyPress, txtCRNTime.KeyPress, txtMRNDate.KeyPress, txtMRNTime.KeyPress
Select Case Asc(e.KeyChar)
Case 48 To 57, 8, 46, 58
' Zahlen, Backspace, . und : zulassen
Case Else
' alle anderen Eingaben unterdrücken
e.Handled = True
End Select
End Sub
Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click
Try
Dim a As Date = Date.ParseExact(txtMRNDate.Text, "dd.MM.yyyy", System.Globalization.DateTimeFormatInfo.InvariantInfo)
Dim b As Date = Date.ParseExact(txtMRNTime.Text, "HH:mm", System.Globalization.DateTimeFormatInfo.InvariantInfo)
Dim ab As Date = a.AddHours(b.Hour).AddMinutes(b.Minute)
MsgBox(ab.ToString)
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Private Sub txtMRNDate_GotFocus(sender As Object, e As EventArgs) Handles txtMRNDate.GotFocus, txtCRNDate.GotFocus, txtMRNTime.GotFocus, txtCRNTime.GotFocus
Select Case sender.name
Case "txtMRNDate"
If txtMRNDate.Text.Length < 1 Then txtMRNDate.Text = Date.Today.ToString("dd.MM.yyyy")
Case "txtCRNDate"
If txtCRNDate.Text.Length < 1 Then txtCRNDate.Text = Date.Today.ToString("dd.MM.yyyy")
Case "txtMRNTime"
If txtMRNTime.Text.Length < 1 Then txtMRNTime.Text = Date.Now.ToString("HH:mm")
Case "txtCRNTime"
If txtCRNTime.Text.Length < 1 Then txtCRNTime.Text = Date.Now.ToString("HH:mm")
End Select
End Sub
Private Sub btnAddMRN_Click(sender As Object, e As EventArgs) Handles btnAddOpen.Click
Try
Dim OPEN As New cSicherheit(Me)
With OPEN
.Kennnummer = txtMRN.Text
.PosNr = Double.Parse(nixzunull(txtPos.Text))
.DateTime = DateTimeString2DateTimeKonvertinator(txtMRNDate.Text, txtMRNTime.Text)
.Warenwert = Double.Parse(txtMRNWarenwert.Text) '.Replace(".", "").Replace(",", ".")
.Sicherheitsbetrag = Double.Parse(txtMRNSicherheitsbetrag.Text) '.Replace(".", "").Replace(",", ".")
.standort = Me.Standort
.Art = "OPEN"
.GesamtsichNr = Me.GesamtsichNr
.MakeDate = Me.MakeDate
.Freitext = Me.txtFreitextOpen.Text
.saldo = GesSichRef.Saldo
.ATRJN = nixzunull(cboATR.SelectedItem)
End With
If Neu = True Then OPEN.GesamtsichNr = AddNewGesamtSichNr()
Select Case TestIfExist(OPEN.Kennnummer, GesamtsichNr)
Case "Neu"
OPEN.Save()
Case Else
MsgBox("INFO: Dieser Eintrag wurde bereits bei GesamtsichNr " & TestIfExist(OPEN.Kennnummer, GesamtsichNr) & "eingetragen") : OPEN.Save()
End Select
AfterButton()
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Private Sub btnAddCRN_Click(sender As Object, e As EventArgs) Handles btnAddClose.Click
Try
Dim Close As New cSicherheit(Me)
With Close
.Kennnummer = txtCRN.Text
.DateTime = DateTimeString2DateTimeKonvertinator(txtCRNDate.Text, txtCRNTime.Text)
.Warenwert = Double.Parse(txtCRNWarenwert.Text) '.Replace(".", "").Replace(",", ".")
.Sicherheitsbetrag = Double.Parse(txtCRNSicherheitsbetrag.Text) '.Replace(".", "").Replace(",", ".")
.standort = Me.Standort
.Art = "Close"
.GesamtsichNr = Me.GesamtsichNr
.MakeDate = Me.MakeDate
.Freitext = Me.txtFreitextClose.Text
.saldo = GesSichRef.Saldo
End With
If Neu = True Then Close.GesamtsichNr = AddNewGesamtSichNr()
Select Case TestIfExist(Close.Kennnummer, GesamtsichNr)
Case "Neu"
Close.Save()
Case Else
MsgBox("Dieser Eintrag wurde bereits bei GesamtsichNr " & TestIfExist(Close.Kennnummer, GesamtsichNr) & "eingetragen") : Exit Sub
End Select
AfterButton()
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Function nixzunull(s As String, Optional type As String = "")
If s = "" Then
Dim O As Double = 0
Return O
Else
Return s
End If
End Function
Function AfterButton()
GesSichRef.CalcSaldo()
LoadDGV()
EmptyTXT()
End Function
Public Function AddNewGesamtSichNr() As Integer
Dim sqlq As String = "select MAX([GesamtsichNr]) as MaxGesSich from tblGesamtsicherheit"
Dim dt As New DataTable
dt = SQL.loadDgvBySql(sqlq, "AVISO", 100, True)
Dim LetzteGesSichNum As Integer = dt.Rows(0).Item(0)
Me.GesamtsichNr = LetzteGesSichNum + 1
Me.Neu = False
Return Me.GesamtsichNr
End Function
Public Sub EmptyTXT()
Dim a As New List(Of Control)
For Each contr As Control In panOben.Controls
If contr.GetType.FullName = "System.Windows.Forms.TextBox" Then contr.Text = ""
Next
cboATR.SelectedItem = Nothing
End Sub
Public Function TestIfExist(KennnummerStr As String, Optional ByVal lkw As String = "")
If lkw = "" And Me.GesamtsichNr.Length > 0 Then lkw = GesamtsichNr
Dim SQLString As String = "Select * from [tblGesamtsicherheit] where Kennnummer = '" & KennnummerStr & "'"
Dim dt As New DataTable
dt = SQL.loadDgvBySql(SQLString, "AVISO", 100, True)
If dt.Rows.Count > 0 Then
Return dt.Rows(0).Item("GesamtsichNr").ToString
Else
Return "Neu"
End If
End Function
Public Function DateTimeString2DateTimeKonvertinator(datum As String, uhrzeit As String) As DateTime
Try
Dim a As Date = Date.ParseExact(datum, "dd.MM.yyyy", System.Globalization.DateTimeFormatInfo.InvariantInfo)
Dim b As Date = Date.ParseExact(uhrzeit, "HH:mm", System.Globalization.DateTimeFormatInfo.InvariantInfo)
Dim ab As Date = a.AddHours(b.Hour).AddMinutes(b.Minute)
Return ab
Catch ex As Exception
MsgBox(ex.Message)
Return Date.Now
End Try
End Function
Private Sub FlatButton2_Click(sender As Object, e As EventArgs) Handles FlatButton2.Click
Try
Me.FilialNummer = returnnothingehschonwissen(cboFiliale.SelectedItem, "Integer")
Catch
Me.FilialNummer = "0"
End Try
Me.Abfertigungsnummer = txtAbfertNum.Text
Me.LKWID = txtLKWID.Text
If Me.GesamtsichNr > 0 Then
Dim sqlstring = "Update [tblGesamtsicherheit] set FilialNummer = '" & Me.FilialNummer & "', Abfertigungsnummer = '" & Me.Abfertigungsnummer & "', LKWID = '" & Me.LKWID & "' WHERE GesamtSichNr = '" & Me.GesamtsichNr & "' "
SQL.doSQL(sqlstring, "AVISO")
LoadDGV()
End If
panOben.Enabled = True : panOben.Enabled = True
panOverlay.Visible = False
End Sub
Private Function returnnothingehschonwissen(obj As Object, Optional type As String = "String")
Select Case type
Case "String"
If obj Is Nothing Then
Return ""
Else
Return obj.value.ToString
End If
Case "Integer"
If obj Is Nothing Then
Return Nothing
Else
Return Integer.Parse(obj.value)
End If
End Select
End Function
Private Sub dgvGesamtsicherheitMRN_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvGesamtsicherheitMRN.CellDoubleClick
Dim Sicherh As New cSicherheit
Sicherh.Load(dgvGesamtsicherheitMRN.CurrentRow.Cells("GesamtSichID").Value)
txtMRN.Text = Sicherh.Kennnummer
txtPos.Text = Sicherh.PosNr
txtMRNWarenwert.Text = Sicherh.Warenwert
txtFreitextOpen.Text = Sicherh.Freitext
cboATR.SelectedItem = Sicherh.ATRJN
txtMRNDate.Text = Sicherh.DateTime.ToString("dd.MM.yyyy")
txtMRNTime.Text = Sicherh.DateTime.ToString("HH:mm")
openopened = Sicherh
btnAddOpen.Visible = False
btnUpdateOpen.Visible = True
btnDeleteOpen.Visible = True
End Sub
Private Sub btnUpdateOpen_Click(sender As Object, e As EventArgs) Handles btnUpdateOpen.Click
With openopened
.Kennnummer = txtMRN.Text
.PosNr = Double.Parse(nixzunull(txtPos.Text))
.DateTime = DateTimeString2DateTimeKonvertinator(txtMRNDate.Text, txtMRNTime.Text)
.Warenwert = Double.Parse(txtMRNWarenwert.Text) '.Replace(".", "").Replace(",", ".")
.Sicherheitsbetrag = Double.Parse(txtMRNSicherheitsbetrag.Text) '.Replace(".", "").Replace(",", ".")
.standort = Me.Standort
.Art = "OPEN"
.GesamtsichNr = Me.GesamtsichNr
'.MakeDate = Me.MakeDate
.Freitext = Me.txtFreitextOpen.Text
'.saldo = GesSichRef.Saldo
.ATRJN = nixzunull(cboATR.SelectedItem)
End With
openopened.Save()
btnUpdateOpen.Visible = False
btnAddOpen.Visible = True
btnDeleteOpen.Visible = False
AfterButton()
End Sub
Private Sub FlatButton4_Click(sender As Object, e As EventArgs) Handles btnUpdateClose.Click
With closedopened
.Kennnummer = txtCRN.Text
.DateTime = DateTimeString2DateTimeKonvertinator(txtCRNDate.Text, txtCRNTime.Text)
.Warenwert = Double.Parse(txtCRNWarenwert.Text) '.Replace(".", "").Replace(",", ".")
.Sicherheitsbetrag = Double.Parse(txtCRNSicherheitsbetrag.Text) '.Replace(".", "").Replace(",", ".")
.standort = Me.Standort
.Art = "Close"
.Freitext = Me.txtFreitextClose.Text
End With
closedopened.Save()
btnAddClose.Visible = True
btnUpdateClose.Visible = False
btnDeleteClose.Visible = False
AfterButton()
End Sub
Private Sub dgvGesamtsicherheitCRN_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvGesamtsicherheitCRN.CellDoubleClick
Dim Sicherh As New cSicherheit
Sicherh.Load(dgvGesamtsicherheitCRN.CurrentRow.Cells("GesamtSichID").Value)
txtCRN.Text = Sicherh.Kennnummer
txtCRNWarenwert.Text = Sicherh.Warenwert
txtFreitextClose.Text = Sicherh.Freitext
txtCRNDate.Text = Sicherh.DateTime.ToString("dd.MM.yyyy")
txtCRNTime.Text = Sicherh.DateTime.ToString("HH:mm")
closedopened = Sicherh
btnDeleteClose.Visible = True
btnAddClose.Visible = False
btnUpdateClose.Visible = True
End Sub
Private Sub btnDeleteOpen_Click(sender As Object, e As EventArgs) Handles btnDeleteOpen.Click
Try
openopened.Delete()
btnUpdateOpen.Visible = False
btnAddOpen.Visible = True
btnDeleteOpen.Visible = False
AfterButton()
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Private Sub FlatButton4_Click_1(sender As Object, e As EventArgs) Handles btnDeleteClose.Click
Try
closedopened.Delete()
btnUpdateClose.Visible = False
btnAddClose.Visible = True
btnDeleteClose.Visible = False
AfterButton()
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Private Sub lblGestellungNr_Click(sender As Object, e As EventArgs) Handles lblGestellungNr.DoubleClick
panOverlay.Visible = True
cboFiliale.fillWithSQL("SELECT FilialenNr, cast(FilialenNr as varchar(4)) + ' ' + Grenzstelle FROM Filialen WHERE Fil_Status='A' ORDER BY FilialenNr ", True, "FMZOLL", True)
cboFiliale.SelectedIndex = cboFiliale.FindString(Me.FilialNummer)
txtAbfertNum.Text = Me.Abfertigungsnummer
txtLKWID.Text = Me.LKWID
panOben.Enabled = False
End Sub
End Class
Public Class cSicherheit
Property GesamtSichID
Property Kennnummer As String
Property PosNr As Integer
Property DateTime As DateTime
Property MakeDate As DateTime
Property Warenwert As Double
Property Sicherheitsbetrag As Double
Property saldo As Double
Property standort As String
Property Art As String
Property GesamtsichNr As String
Property Ust As Integer
Property Freitext As String
Property FilialNummer As Integer
Property Abfertigungsnummer As String
Property LKWID As String
Property ATRJN As String = ""
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Public Sub New(Optional ByVal gessich As frmGesSich = Nothing)
If gessich IsNot Nothing Then
Me.FilialNummer = gessich.FilialNummer
Me.Abfertigungsnummer = gessich.Abfertigungsnummer
Me.LKWID = gessich.LKWID
Me.GesamtSichID = GenerateID()
End If
End Sub
Public Function Load(GsID As String)
Me.GesamtSichID = GsID
Load()
End Function
Public Function Load()
Dim dt As New DataTable
Dim sqlstring As String = "SELECT * FROM [AVISO].[dbo].[tblGesamtsicherheit] where GesamtsichID = '" & Me.GesamtSichID & "'"
dt = SQL.loadDgvBySql(sqlstring, "AVISO", 100, True)
Dim test As cSicherheit = SQLEintraege.Loadinator(Me, dt)
' MsgBox("")
End Function
Public Function GenerateID() As String
Return Date.Now.ToString.Replace(".", "").Replace("-", "").Replace(",", "").Replace(" ", "").Replace(":", "")
End Function
Public Function Save()
'MakeDate = frmGesSich.MakeDate
Dim ding As New List(Of SQLEintraege)
For Each prop As PropertyInfo In Me.GetType().GetProperties()
If prop.GetValue(Me, Nothing).GetType = GetType(Double) Then
' MsgBox(prop.Name)
ding.Add(New SQLEintraege(prop.Name, prop.GetValue(Me, Nothing).ToString.Replace(",", ".")))
Else
ding.Add(New SQLEintraege(prop.Name, prop.GetValue(Me, Nothing)))
End If
' ding.Add(New SQLEintraege(prop.Name, prop.GetValue(Me, Nothing)))
Next
'''
Dim dt As DataTable = SQL.loadDgvBySql("Select * from [tblGesamtsicherheit] where GesamtSichID = '" & Me.GesamtSichID & "'", "AVISO")
If dt.Rows.Count > 0 Then
Dim UpdateString As String = ""
For Each i In ding
If Not i.Spalte = "GesamtSichID" Then
UpdateString &= "[" & i.Spalte & "]='" & i.Wert & "',"
End If
Next
UpdateString = UpdateString.Substring(0, UpdateString.Length - 1)
Dim sqlquery As String
sqlquery = "update [tblGesamtsicherheit] set " & UpdateString & " where GesamtSichID = '" & Me.GesamtSichID & "'"
SQL.doSQL(sqlquery, "AVISO")
Else
Dim text, value, insert As String
For Each i In ding
text &= i.Spalte & ", "
value &= "'" & i.Wert & "', "
Next
text = text.Substring(0, text.Length - 2)
value = value.Substring(0, value.Length - 2)
insert = "(" & text & ") VALUES (" & value & ")"
Dim sqlquery As String
sqlquery = "insert into [tblGesamtsicherheit] (" & text & ") VALUES (" & value & ")"
SQL.doSQL(sqlquery, "AVISO")
End If
End Function
Public Function Delete()
SQL.doSQL("delete from [tblGesamtsicherheit] where GesamtSichID = '" & Me.GesamtSichID & "'", "AVISO")
End Function
End Class
Public Class SQLEintraege
Property Spalte As String
Property Wert As String
Public Sub New(_Spalte As String, _Wert As String)
Spalte = _Spalte
Wert = _Wert
End Sub
Public Shared Function Loadinator(Obj As Object, dt As DataTable) As Object
Try
For Each prop As PropertyInfo In Obj.GetType().GetProperties()
If dt.Rows(0).Item(prop.Name) IsNot Nothing And dt.Rows(0).Item(prop.Name) IsNot DBNull.Value Then
If dt.Rows(0).Item(prop.Name).GetType Is GetType(Decimal) Then
prop.SetValue(Obj, Double.Parse(dt.Rows(0).Item(prop.Name)))
Else
prop.SetValue(Obj, dt.Rows(0).Item(prop.Name))
End If
End If
Next
Return Obj
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Function
End Class

326
Aviso/frmGesSichMenu.Designer.vb generated Normal file
View File

@@ -0,0 +1,326 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmGesSichMenu
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(frmGesSichMenu))
Me.dgvListe = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.Panel1 = New System.Windows.Forms.Panel()
Me.FlatButton2 = New VERAG_PROG_ALLGEMEIN.FlatButton()
Me.btnSucheStarten = New VERAG_PROG_ALLGEMEIN.FlatButton()
Me.txtbis = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtVon = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label3 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.Label1 = New System.Windows.Forms.Label()
Me.FlatButton1 = New VERAG_PROG_ALLGEMEIN.FlatButton()
Me.txtSuchbegriff = New System.Windows.Forms.TextBox()
Me.chkOffen = New System.Windows.Forms.CheckBox()
Me.btnNeu = New VERAG_PROG_ALLGEMEIN.FlatButton()
Me.lblSaldo = New System.Windows.Forms.Label()
Me.lblZollsatz = New System.Windows.Forms.Label()
Me.lblReferenzwert = New System.Windows.Forms.Label()
Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.ExportCSVToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
CType(Me.dgvListe, System.ComponentModel.ISupportInitialize).BeginInit()
Me.Panel1.SuspendLayout()
Me.ContextMenuStrip1.SuspendLayout()
Me.SuspendLayout()
'
'dgvListe
'
Me.dgvListe.AKTUALISIERUNGS_INTERVALL = -1
Me.dgvListe.AllowUserToAddRows = False
Me.dgvListe.AllowUserToDeleteRows = False
Me.dgvListe.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvListe.Dock = System.Windows.Forms.DockStyle.Fill
Me.dgvListe.Location = New System.Drawing.Point(0, 156)
Me.dgvListe.Name = "dgvListe"
Me.dgvListe.ReadOnly = True
Me.dgvListe.Size = New System.Drawing.Size(502, 565)
Me.dgvListe.TabIndex = 3
'
'Panel1
'
Me.Panel1.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Panel1.Controls.Add(Me.FlatButton2)
Me.Panel1.Controls.Add(Me.btnSucheStarten)
Me.Panel1.Controls.Add(Me.txtbis)
Me.Panel1.Controls.Add(Me.txtVon)
Me.Panel1.Controls.Add(Me.Label3)
Me.Panel1.Controls.Add(Me.Label2)
Me.Panel1.Controls.Add(Me.Label1)
Me.Panel1.Controls.Add(Me.FlatButton1)
Me.Panel1.Controls.Add(Me.txtSuchbegriff)
Me.Panel1.Controls.Add(Me.chkOffen)
Me.Panel1.Controls.Add(Me.btnNeu)
Me.Panel1.Controls.Add(Me.lblSaldo)
Me.Panel1.Controls.Add(Me.lblZollsatz)
Me.Panel1.Controls.Add(Me.lblReferenzwert)
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top
Me.Panel1.Location = New System.Drawing.Point(0, 0)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(502, 156)
Me.Panel1.TabIndex = 2
'
'FlatButton2
'
Me.FlatButton2.allowBorder = False
Me.FlatButton2.BackColor = System.Drawing.Color.White
Me.FlatButton2.FlatAppearance.BorderSize = 0
Me.FlatButton2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.FlatButton2.ForeColor = System.Drawing.Color.Black
Me.FlatButton2.Location = New System.Drawing.Point(112, 101)
Me.FlatButton2.Name = "FlatButton2"
Me.FlatButton2.Size = New System.Drawing.Size(81, 20)
Me.FlatButton2.TabIndex = 25
Me.FlatButton2.Text = "jedes Datum"
Me.FlatButton2.UseVisualStyleBackColor = False
'
'btnSucheStarten
'
Me.btnSucheStarten.allowBorder = False
Me.btnSucheStarten.BackColor = System.Drawing.Color.White
Me.btnSucheStarten.FlatAppearance.BorderSize = 0
Me.btnSucheStarten.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnSucheStarten.ForeColor = System.Drawing.Color.Black
Me.btnSucheStarten.Location = New System.Drawing.Point(201, 127)
Me.btnSucheStarten.Name = "btnSucheStarten"
Me.btnSucheStarten.Size = New System.Drawing.Size(81, 20)
Me.btnSucheStarten.TabIndex = 24
Me.btnSucheStarten.Text = "Suche starten"
Me.btnSucheStarten.UseVisualStyleBackColor = False
'
'txtbis
'
Me.txtbis._DateTimeOnly = False
Me.txtbis._numbersOnly = False
Me.txtbis._numbersOnlyKommastellen = ""
Me.txtbis._Prozent = False
Me.txtbis._ShortDateNew = False
Me.txtbis._ShortDateOnly = False
Me.txtbis._TimeOnly = False
Me.txtbis._value = ""
Me.txtbis._Waehrung = False
Me.txtbis._WaehrungZeichen = True
Me.txtbis.ForeColor = System.Drawing.Color.Black
Me.txtbis.Location = New System.Drawing.Point(112, 77)
Me.txtbis.MaxLineLength = -1
Me.txtbis.MaxLines_Warning = ""
Me.txtbis.MaxLines_Warning_Label = Nothing
Me.txtbis.Name = "txtbis"
Me.txtbis.Size = New System.Drawing.Size(81, 20)
Me.txtbis.TabIndex = 23
'
'txtVon
'
Me.txtVon._DateTimeOnly = False
Me.txtVon._numbersOnly = False
Me.txtVon._numbersOnlyKommastellen = ""
Me.txtVon._Prozent = False
Me.txtVon._ShortDateNew = False
Me.txtVon._ShortDateOnly = False
Me.txtVon._TimeOnly = False
Me.txtVon._value = ""
Me.txtVon._Waehrung = False
Me.txtVon._WaehrungZeichen = True
Me.txtVon.ForeColor = System.Drawing.Color.Black
Me.txtVon.Location = New System.Drawing.Point(12, 77)
Me.txtVon.MaxLineLength = -1
Me.txtVon.MaxLines_Warning = ""
Me.txtVon.MaxLines_Warning_Label = Nothing
Me.txtVon.Name = "txtVon"
Me.txtVon.Size = New System.Drawing.Size(81, 20)
Me.txtVon.TabIndex = 22
'
'Label3
'
Me.Label3.Anchor = System.Windows.Forms.AnchorStyles.Right
Me.Label3.AutoSize = True
Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!)
Me.Label3.ForeColor = System.Drawing.Color.Honeydew
Me.Label3.Location = New System.Drawing.Point(109, 59)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(24, 15)
Me.Label3.TabIndex = 19
Me.Label3.Text = "Bis"
'
'Label2
'
Me.Label2.Anchor = System.Windows.Forms.AnchorStyles.Right
Me.Label2.AutoSize = True
Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!)
Me.Label2.ForeColor = System.Drawing.Color.Honeydew
Me.Label2.Location = New System.Drawing.Point(12, 59)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(28, 15)
Me.Label2.TabIndex = 18
Me.Label2.Text = "Von"
'
'Label1
'
Me.Label1.Anchor = System.Windows.Forms.AnchorStyles.Right
Me.Label1.AutoSize = True
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!)
Me.Label1.ForeColor = System.Drawing.Color.Honeydew
Me.Label1.Location = New System.Drawing.Point(12, 11)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(45, 15)
Me.Label1.TabIndex = 17
Me.Label1.Text = "Suche:"
'
'FlatButton1
'
Me.FlatButton1.allowBorder = False
Me.FlatButton1.BackColor = System.Drawing.Color.White
Me.FlatButton1.FlatAppearance.BorderSize = 0
Me.FlatButton1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.FlatButton1.ForeColor = System.Drawing.Color.Black
Me.FlatButton1.Image = Global.AVISO.My.Resources.Resources.refresh
Me.FlatButton1.Location = New System.Drawing.Point(233, 22)
Me.FlatButton1.Name = "FlatButton1"
Me.FlatButton1.Size = New System.Drawing.Size(32, 33)
Me.FlatButton1.TabIndex = 15
Me.FlatButton1.UseVisualStyleBackColor = False
'
'txtSuchbegriff
'
Me.txtSuchbegriff.Location = New System.Drawing.Point(12, 29)
Me.txtSuchbegriff.Name = "txtSuchbegriff"
Me.txtSuchbegriff.Size = New System.Drawing.Size(181, 20)
Me.txtSuchbegriff.TabIndex = 14
'
'chkOffen
'
Me.chkOffen.AutoSize = True
Me.chkOffen.Checked = True
Me.chkOffen.CheckState = System.Windows.Forms.CheckState.Checked
Me.chkOffen.ForeColor = System.Drawing.SystemColors.ButtonHighlight
Me.chkOffen.Location = New System.Drawing.Point(28, 131)
Me.chkOffen.Name = "chkOffen"
Me.chkOffen.Size = New System.Drawing.Size(120, 17)
Me.chkOffen.TabIndex = 13
Me.chkOffen.Text = "nur offene anzeigen"
Me.chkOffen.UseVisualStyleBackColor = True
'
'btnNeu
'
Me.btnNeu.allowBorder = False
Me.btnNeu.BackColor = System.Drawing.Color.White
Me.btnNeu.FlatAppearance.BorderSize = 0
Me.btnNeu.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnNeu.ForeColor = System.Drawing.Color.Black
Me.btnNeu.Location = New System.Drawing.Point(415, 127)
Me.btnNeu.Name = "btnNeu"
Me.btnNeu.Size = New System.Drawing.Size(75, 23)
Me.btnNeu.TabIndex = 12
Me.btnNeu.Text = "Neu"
Me.btnNeu.UseVisualStyleBackColor = False
'
'lblSaldo
'
Me.lblSaldo.Anchor = System.Windows.Forms.AnchorStyles.Right
Me.lblSaldo.AutoSize = True
Me.lblSaldo.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblSaldo.ForeColor = System.Drawing.Color.Honeydew
Me.lblSaldo.Location = New System.Drawing.Point(294, 24)
Me.lblSaldo.Name = "lblSaldo"
Me.lblSaldo.Size = New System.Drawing.Size(147, 24)
Me.lblSaldo.TabIndex = 2
Me.lblSaldo.Text = "Saldo: €80.000"
'
'lblZollsatz
'
Me.lblZollsatz.Anchor = System.Windows.Forms.AnchorStyles.Right
Me.lblZollsatz.AutoSize = True
Me.lblZollsatz.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblZollsatz.ForeColor = System.Drawing.Color.Honeydew
Me.lblZollsatz.Location = New System.Drawing.Point(295, 86)
Me.lblZollsatz.Name = "lblZollsatz"
Me.lblZollsatz.Size = New System.Drawing.Size(86, 16)
Me.lblZollsatz.TabIndex = 4
Me.lblZollsatz.Text = "Zollsatz: 12%"
'
'lblReferenzwert
'
Me.lblReferenzwert.Anchor = System.Windows.Forms.AnchorStyles.Right
Me.lblReferenzwert.AutoSize = True
Me.lblReferenzwert.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblReferenzwert.ForeColor = System.Drawing.Color.Honeydew
Me.lblReferenzwert.Location = New System.Drawing.Point(295, 59)
Me.lblReferenzwert.Name = "lblReferenzwert"
Me.lblReferenzwert.Size = New System.Drawing.Size(137, 16)
Me.lblReferenzwert.TabIndex = 3
Me.lblReferenzwert.Text = "Referenzwert: €80.000"
'
'ContextMenuStrip1
'
Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ExportCSVToolStripMenuItem})
Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
Me.ContextMenuStrip1.Size = New System.Drawing.Size(181, 48)
'
'ExportCSVToolStripMenuItem
'
Me.ExportCSVToolStripMenuItem.Name = "ExportCSVToolStripMenuItem"
Me.ExportCSVToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
Me.ExportCSVToolStripMenuItem.Text = "Export CSV"
'
'frmGesSichMenu
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(502, 721)
Me.Controls.Add(Me.dgvListe)
Me.Controls.Add(Me.Panel1)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.MaximumSize = New System.Drawing.Size(800, 760)
Me.MinimumSize = New System.Drawing.Size(499, 760)
Me.Name = "frmGesSichMenu"
Me.Text = "frmGesSichMenu"
CType(Me.dgvListe, System.ComponentModel.ISupportInitialize).EndInit()
Me.Panel1.ResumeLayout(False)
Me.Panel1.PerformLayout()
Me.ContextMenuStrip1.ResumeLayout(False)
Me.ResumeLayout(False)
End Sub
Friend WithEvents dgvListe As VERAG_PROG_ALLGEMEIN.MyDatagridview
Friend WithEvents Panel1 As Panel
Friend WithEvents lblSaldo As Label
Friend WithEvents lblZollsatz As Label
Friend WithEvents lblReferenzwert As Label
Friend WithEvents btnNeu As VERAG_PROG_ALLGEMEIN.FlatButton
Friend WithEvents chkOffen As CheckBox
Friend WithEvents txtSuchbegriff As TextBox
Friend WithEvents FlatButton1 As VERAG_PROG_ALLGEMEIN.FlatButton
Friend WithEvents Label3 As Label
Friend WithEvents Label2 As Label
Friend WithEvents Label1 As Label
Friend WithEvents txtbis As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents txtVon As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents btnSucheStarten As VERAG_PROG_ALLGEMEIN.FlatButton
Friend WithEvents FlatButton2 As VERAG_PROG_ALLGEMEIN.FlatButton
Friend WithEvents ContextMenuStrip1 As ContextMenuStrip
Friend WithEvents ExportCSVToolStripMenuItem As ToolStripMenuItem
End Class

200
Aviso/frmGesSichMenu.resx Normal file
View File

@@ -0,0 +1,200 @@
<?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>
<metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAABAAEAICAAAAEAIACoEAAAFgAAACgAAAAgAAAAQAAAAAEAIAAAAAAAABAAABILAAASCwAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAACAAAAAgAAAAMAAAAEAAAAChEAEQ8NAA0TAAAAFgAA
ABkAAAAbAAAAGgAAABgAAAAUAAAADgAAAAwAAAAIAAAABAAAAAMAAAACAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAAAAwAAAAUgICAIEhISDg0NDRQAAAAbAAAAJAAA
ACsAAAAvAAAAMgAAADQAAAAzAAAAMAAAACsAAAAmAAAAHgAAABYAAAAQAAAACwAAAAYAAAAEAAAAAQAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAAFAAAACg8PDxEJCQkbBwcHJQUF
BTEEBAQ9AAAARwAAAE0AAABSAAAAUwAAAFIAAABOAAAESAAABD8AAAAzAAAAKAAAAB0AAAAUAAAADQAA
AAcAAAADAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAAAAwAAAAgAAAAQCgAKGg0G
DSgJDgk4BwcHSAYGBlsCAgVqAAAAcgAAAHUAAAB0AAAAcwAAAnAAAAVoAwMGWwMDA0wEAAA8AAAALQAA
AB4AAAAUAAAADAAAAAUAAAACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAAEAAAACgwM
DBUICAgiCgoKMwMHB0oFBQViCggCfmhWALWZfwDXpIYA37mXAOyxkQDmqIcA25d8AMlbSgCYAAMAZAMD
AE0ABAA6AAAAKAAAABoAAAAQAAAABwAAAAMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAA
AAYAAAAMFhYWFw0NDScFBQU3RjgAX7SUAM/XsQD/37YA/9+0AP/ftQD/37UA/9+1AP/etgD/3rUA/9+2
AP/UrQD5qosArSMjAEEABgYqAAAAHAAAABEAAAAJAAAAAwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAACAAAABgAAAAsMDAwWGhoJHcCdAJ7ctwD/3rYA/9+2AP/htgD/4rcA/+K3AP/itwD/4rcA/+K3
AP/itwD/4bYA/9+2AP/etgD/2bMA9LKTAG0NDQ0UAAAAEAAAAAgAAAADAAAAAQAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAEAAAADAAAAB3ZiAA3YtADF3rYA/+C2AP/iuAD/5LgA/+W5AP/mugD/57oA/+e6
AP/nugD/57oA/+a5AP/luQD/47gA/+K3AP/ftgD/3bYA/9eyAJEAAAAAAAAABAAAAAIAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAAA3bcA1963AP/iuAD/5LoA/+e7AP/nvAD/6LwA/+m8
AP/rvQD/7L4A/+2+AP/svwD/7L4A/+q8AP/ovAD/5rsA/+O6AP/huAD/3bYA/+C6AJsAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAOC6ALXfuAD/4roA/+a8AP/nvAD/6b0A/+u+
AP/svwD/7MAA/76cAP+NdwD/e2sb/3JkIv+HcwD/p4kA/+K5AP/qvQD/57wA/+W8AP/hugD/3rgA/965
AG0AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADfugBn3rkA/+K7AP/mvgD/6b4A/+u/
AP/rwAD/78QA/8CeAP9WTzL/QEBB/0JERf9ERUX/QUFB/zs8PP81NTX/Qzwn//DDAP/rvwD/6L4A/+a9
AP/huwD/3bgA/9WxACQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAd25AO/hvAD/5r4A/+nA
AP/rwQD/7MIA//DEAP+ykwD/Ozw+/0VGRv9JSUn/SEtK/0dHSP9BQkT/Ozs8/zQ0NP9vYBP/8MUA/+zC
AP/rwQD/6L8A/+W+AP/huwD/27gAugAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADduQB44bwA/+a+
AP/pwQD/7MMA/+7EAP/wxQD/1a8A/zw+Pv9HR0f/TU5O/05PUP+QgC7/uJsA/9WwAP/DowD/m4MA/6yQ
AP/xxQD/78QA/+7EAP/rwgD/6MAA/+W9AP/guwD/3LkALAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAN26
ANrkvgD/6MEA/+vEAP/uxAD/8MUA//TJAP9wYiv/Q0ZG/05PT/9RVFX/up0Q//TJAP/xxwD/8ccA//HH
AP/yxwD/8scA//DGAP/wxgD/8MUA/+3FAP/rwwD/58AA/+K+AP/euwCZAAAAAAAAAAAAAAAAAAAAAAAA
AADcuQAW4L4A/+XBAP/qxQD/7cYA/+/IAP/1ywD/7cQA/z9BQP9MTU3/VVZW/351TP/4zwD/9MsA//XL
AP/1ywD/9csA//TLAP/xyQD/8ckA//HJAP/wyQD/78cA/+3GAP/pxAD/5cAA/969AOoAAAAAAAAAAAAA
AAAAAAAAAAAAAN27AEvjwAD/6MQA/+zGAP/vyAD/9swA/0xEHv8yMjT/QkRE/09QUP9XWFj/Wltb/1dZ
XP9SVFb/Sk1P/0JERv86Ojv/ZFgr//bNAP/zygD/88oA//PKAP/xygD/78gA/+vFAP/nwwD/4b8A/8aq
AAkAAAAAAAAAAAAAAAAAAAAA378Jb+TCAP/qxgD/7skA//DMAP/1zwD/dmUf/0xHNP9CRET/T1BQ/1dY
WP9zblX/e3NR/3dvTP9yaUb/bGI+/2NcNf+Ccyf/9tAA//PNAP/zzQD/880A//LMAP/wywD/7cgA/+jG
AP/jwQD/274GKwAAAAAAAAAAAAAAAAAAAADfvx545MQT/+rHAv/uywD/8s0A//TPAP/evAD/kn4q/0BB
Qf9OTk7/VVZX/7ykOv/fwBH/3b4V/9y9Ev/buxb/2roK/9++AP/10AD/9M8A//TPAP/0zwD/884A//HM
AP/uygD/6cYF/+TDFf/fvxs4AAAAAAAAAAAAAAAAAAAAAODCJXXlxiL/68oX//DND//zzwH/+NMA/0pD
If8tLi7/PDw8/0hKSf9SUlL/VVdY/1VXWf9RVFb/S05R/0VGSf87PD//Zlwz//nUAP/20QD/9tEA//bR
AP/10QD/888B/+7MEv/qyRn/5MQk/968IS4AAAAAAAAAAAAAAAAAAAAA4cMwVeXGLv/ryyn/8M4l//PR
Iv/31CH/lIEg/31tLf80NTX/QUFB/0pMTP9lYVD/m41J/5mISf+XiEb/lINB/5B/Of+ljzD/+NUf//fT
Hv/30x7/9tMe//XRIf/y0CP/7s0m/+rKKv/kxTD/2b8mFAAAAAAAAAAAAAAAAAAAAADixTMj5cY4/+vM
M//w0DL/9NIw//bUMf/51zD//9sw/0pELf83Nzf/QUJC/05OSv/y0TH/+9ct//rXLf/61y3/+tcw//rX
MP/41i//+NYv//jWL//31TD/9tQx//PRMf/vzzP/6ss0/+LFNvcAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AADkxj/06sw//+/QPv/z0z7/9tY8//jXPf/62D//tJw1/ywtLf83Nzf/QEBA/2pjSP/lyEL//No9//rZ
Pv/72T7//Ns8//TTPv/51z3/+Nc9//jXPf/21Tz/8tI+/+7PPf/oyj7/4sU+qAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAOHFRJLoy0T/7s9F//LTRv/21kf/+NdF//nYR//+3Ej/a2Aw/ywsLP81NTX/Ozs7/0VG
QP9vZ0X/k4VH/3dtQf9DQDT/s50+//vbR//52Ef/+NdF//bWR//x0kX/7c5G/+fJRf/hw0JNAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAA379AEObKSv/sz0v/8dNM//XXTv/32U7/+dtN//rcTv/52k3/cGQy/ygo
KP8uLi7/MjQ0/zU2Nv81NTX/MTIy/ywsLP97bjf//NxQ//naTf/32E//9NZM//DSTf/rzkv/5MhI2AAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA5clNiOnNUf/v0VP/89ZV//fZVf/521j/+txX//vc
Wf//4Vr/wqpJ/1xTL/8lJSX/KCkp/ygpKf8mJib/Ly0n/4Z3Of/93Vj/+dpX//bYVv/y1VT/7dFT/+fM
Uf/hyE5FAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAC/v0AE5spS3ezQVf/w1Fj/9dda//fa
XP/53Fz/+t1d//veXf/932D//+Fg/+zQWP/ZwFP/2cFU/93DVf/+4l7//d9e//ncXP/22Vz/89da/+/S
V//qzlT/5MpTowAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADbwlUV5stY9+zR
W//w1V7/9dhg//fbYv/53GL/+t1k//veY//73mX//OBk//zgZf/832b//N9k//ndY//53GP/9tpg//PX
Xv/w1F3/69Ba/+XKV9AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AADizFcj5stb7ezRXv/w1GL/89dj//XZZf/322b/+Nxn//ncZ//53Gf/+dxn//ncZ//43Gf/99tm//XZ
ZP/y12P/79Ng/+vQXf/my1rJ1apVBgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAADVv1UM5stcxevQYP/u02L/8NZk//PXZv/02Wf/9dpo//XaaP/12mj/9dpo//TZ
Z//y12X/8NVk/+3SYv/pz1//5stdjwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA5ctfWebNYOLq0WP/7NJk/+7UZv/w1Wf/8NZn//DW
Z//v1Wb/7tRl/+vSZP/q0GL/58xfvuLMXyMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAOLLYyzlzGOB5s1izefP
ZNTp0GP/6dBj/ejOY9HmzWLA5sthcefCYRUAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAA+AAAf/AAAB/wAAAP4AAAD+AAAA/gAAAP4AAAB+AAAE/0AAA/+AAAH/AA
AA/gAAAP4AAAB+AAAAfAAAAHwAAAA8AAAAPAAAADwAAAA8AAAAPAAAAH4AAAB+AAAAfgAAAP8AAAD/AA
AB/4AAA//AAAP/4AAP//gAH//+AH//////8=
</value>
</data>
</root>

282
Aviso/frmGesSichMenu.vb Normal file
View File

@@ -0,0 +1,282 @@
Imports System.Reflection
Public Class frmGesSichMenu
' Public Zollsatz As Integer = 0
' Public ZollsatzMulti As Double = 0
' Public Referenzwert As Integer = 0
' Public UstEnabled As Boolean = False
'Public Ust As Integer
' Public Saldo As Integer = 0
Public SQL As New VERAG_PROG_ALLGEMEIN.SQL
Dim GesSichRef As New cGesamtSicherheitsReferenz
'Public ATR As Boolean = False
Public Property Standort As String = ""
Private Sub frmGesamtsicherheiten_Menu_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Me.Text = "Gesamtsicherheiten " & Standort
frmHauptfenster.EnableDoubleBuffered(dgvListe)
GesSichRef.LoadStandort(Standort)
lblSaldo.Text = "Saldo: €" & Decimal.Parse(GesSichRef.CalcSaldo()).ToString("N")
txtVon._ShortDateOnly = True
txtbis._ShortDateOnly = True
txtVon.Text = Date.Today.AddDays(-30).ToString("dd.MM.yyyy")
txtbis.Text = Date.Today.ToString("dd.MM.yyyy")
ShowStandort()
LoadDGV()
End Sub
Public Function LoadDGV()
Dim sqladdon As String = ""
If chkOffen.Checked Then sqladdon &= " AND Sicherheitssaldo != '0,00 €'"
' Dim sqlstring As String = "select * from (Select GesamtsichNr, MIN(Standort) as Standort, MIN(FilialNummer) as FilialNummer, min(Abfertigungsnummer) as Abfertigungsnummer,
'max(LKWID) as LKWID, min (MakeDate) as Datum, FORMAT(SUM(
'Case
' when Art = 'Open' then (Sicherheitsbetrag * -1)
' when Art = 'Close' then Sicherheitsbetrag
'End) , 'C', 'de-DE') As SicherheitsSaldo
'From [tblGesamtsicherheit]
'Group by GesamtsichNr) as Temp
' Where Standort = '" & Standort & "'
'" & sqladdon & "
'order by GesamtsichNr"
Dim sqlstring As String = " select * from (Select gesamtsichnr, MIN(Standort) as Standort, MIN(FilialNummer) as FilialNummer, min(Abfertigungsnummer) as Abfertigungsnummer,
max(LKWID) as LKWID, min (MakeDate) as Datum, FORMAT(SUM(
Case
when Art = 'Open' then (Sicherheitsbetrag * -1)
when Art = 'Close' then Sicherheitsbetrag
End) , 'C', 'de-DE')As SicherheitsSaldo
From (select * from (select GesamtsichNr as ding from [tblGesamtsicherheit] where
Freitext like '%" & txtSuchbegriff.Text & "%' OR
Abfertigungsnummer like '%" & txtSuchbegriff.Text & "%' OR
Kennnummer like '%" & txtSuchbegriff.Text & "%' OR
LKWID like '%" & txtSuchbegriff.Text & "%'
)as tb1 left join [tblGesamtsicherheit] as tb2 on tb1.ding = tb2.GesamtsichNr) as meh group by GesamtsichNr) as meh2
Where Standort = '" & Standort & "' " & sqladdon & "
AND Datum > '" & Date.Parse(txtVon.Text) & "'
AND Datum < '" & Date.Parse(txtbis.Text).AddDays(1).AddSeconds(-1) & "'"
dgvListe.SET_SQL(sqlstring, "AVISO")
dgvListe.LOAD()
With dgvListe
.SelectionMode = DataGridViewSelectionMode.FullRowSelect
.RowHeadersWidth = 6
.Columns("Standort").Visible = False
.Columns("GesamtsichNr").HeaderText = "#"
.Columns("GesamtsichNr").Width = 36
.Columns("Filialnummer").HeaderText = "Filiale"
.Columns("Filialnummer").Width = 43
.Columns("Abfertigungsnummer").HeaderText = "Abfert.Nr."
.Columns("Abfertigungsnummer").Width = 107
.Columns("Datum").Width = 112
.Columns("SicherheitsSaldo").Width = 96
End With
For Each row As DataGridViewRow In dgvListe.Rows
If row.Cells("SicherheitsSaldo").Value <> 0 Then
row.DefaultCellStyle.BackColor = Color.Red
Else
row.DefaultCellStyle.BackColor = Color.Green
End If
Next
End Function
Public Sub ShowStandort()
lblReferenzwert.Text = "Referenzwert: €" & GesSichRef.Referenzwert.ToString("N")
lblZollsatz.Text = "Zollsatz: " & GesSichRef.Zollsatz & "%"
lblSaldo.Text = "Saldo: €" & Decimal.Parse(GesSichRef.CalcSaldo()).ToString("N")
End Sub
Private Sub OpenFRM(sender As Object, e As DataGridViewCellEventArgs) Handles dgvListe.CellDoubleClick
Dim frm As New frmGesSich
With frm
.GesSichRef = GesSichRef
.GesamtsichNr = dgvListe.CurrentRow.Cells("GesamtsichNr").Value
.Standort = Me.Standort
.MakeDate = dgvListe.CurrentRow.Cells("Datum").Value
.LKWID = dgvListe.CurrentRow.Cells("LKWID").Value
.FilialNummer = dgvListe.CurrentRow.Cells("FilialNummer").Value
.Abfertigungsnummer = dgvListe.CurrentRow.Cells("Abfertigungsnummer").Value
End With
AddHandler frm.FormClosing, Function()
GesSichRef.CalcSaldo()
ShowStandort()
LoadDGV()
Me.BringToFront()
End Function
frm.Show()
End Sub
Private Sub btnNeu_Click(sender As Object, e As EventArgs) Handles btnNeu.Click
Dim frm As New frmGesSich
With frm
.GesSichRef = GesSichRef
.Standort = Me.Standort
.MakeDate = Date.Now
'.ATR = GesSichRef.ATR
'.Ust = GesSichRef.Ust
'.UstEnabled = GesSichRef.UstEnabled
.Neu = True
End With
AddHandler frm.FormClosing, Function()
GesSichRef.CalcSaldo()
ShowStandort()
LoadDGV()
Me.BringToFront()
End Function
frm.Show()
End Sub
Private Sub lblSaldo_Click(sender As Object, e As EventArgs) Handles lblSaldo.Click
lblSaldo.Text = "Saldo: €" & Decimal.Parse(GesSichRef.CalcSaldo()).ToString("N")
LoadDGV()
End Sub
Private Sub chkOffen_CheckedChanged(sender As Object, e As EventArgs) Handles chkOffen.CheckedChanged, txtSuchbegriff.TextChanged
If Me.Visible Then LoadDGV()
End Sub
Private Sub Keypresses(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles txtSuchbegriff.KeyPress
Select Case Asc(e.KeyChar)
Case 48 To 57, 8, 46, 58, 32, 44, 65 To 90, 97 To 122
' Zahlen, Backspace, . und : zulassen
Case Else
' alle anderen Eingaben unterdrücken
e.Handled = True
End Select
End Sub
Private Sub FlatButton1_Click(sender As Object, e As EventArgs) Handles FlatButton1.Click
txtSuchbegriff.Text = "" : chkOffen.Checked = True
txtVon.Text = Date.Today.AddDays(-30).ToString("dd.MM.yyyy")
txtbis.Text = Date.Today.ToString("dd.MM.yyyy")
End Sub
Private Sub MyTextBox1_TextChanged(sender As Object, e As EventArgs)
End Sub
Private Sub btnSucheStarten_Click(sender As Object, e As EventArgs) Handles btnSucheStarten.Click
Try
Date.Parse(txtVon.Text)
Date.Parse(txtbis.Text)
If Me.Visible Then LoadDGV()
Catch ex As Exception
MsgBox("Datum VON und/oder BIS konnte nicht konvertiert werden.")
End Try
End Sub
Private Sub FlatButton2_Click(sender As Object, e As EventArgs) Handles FlatButton2.Click
txtVon.Text = Date.Parse("01.01.1970")
txtbis.Text = Date.Today.ToString("dd.MM.yyyy")
End Sub
Private Sub ExportCSVToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ExportCSVToolStripMenuItem.Click
csvexport(dgvListe)
End Sub
Public Shared Function csvexport(quelldgv As DataGridView)
Dim savefiledialog As New SaveFileDialog
Dim firstin As String
Dim out As String
Dim in2 As String
Dim header As String
savefiledialog.Filter = "CSV files (*.csv)|*.CSV"
savefiledialog.InitialDirectory = "C:\Verag"
savefiledialog.ShowDialog()
Try
For r As Integer = 0 To quelldgv.Rows.Count - 1
For c As Integer = 0 To quelldgv.Columns.Count
'test &= r & c & vbCrLf
Try
'test &= Replace(quelldgv.Rows(r).Cells(c).Value.ToString, vbCrLf, "vbCrlLf")
firstin = quelldgv.Rows(r).Cells(c).Value.ToString
'in2 = """" & firstin & """" & ";"
in2 = firstin & ";"
out &= Replace(in2, vbCrLf, "##vbCrLf##")
Catch ex As Exception
out &= ""
End Try
Next
out &= "nZ"
Next
For c As Integer = 0 To quelldgv.Columns.Count - 1
header &= quelldgv.Columns(c).Name & ";"
Next
out = Replace(out, "nZ", vbCrLf)
'MsgBox(out)
Using sw As New IO.StreamWriter(savefiledialog.FileName)
sw.WriteLine(header)
sw.WriteLine(out)
End Using
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Function
End Class
Public Class cGesamtSicherheitsReferenz
Public SQL As New VERAG_PROG_ALLGEMEIN.SQL
Property Zollsatz As Integer = 0
Property ZollsatzMulti As Double = 0
Property Referenzwert As Double = 0
Property UstEnabled As Boolean = False
Property Ust As Integer
Property Saldo As Double = 0
Property ATR As Boolean = False
Property Standort As String = ""
Public Sub LoadStandort(_Standort As String)
Dim StandortSqlString As String = "select * from [tblGesamtsicherheitReferenz] where Standort = " & "'" & _Standort & "'"
Dim dt As New DataTable
dt = SQL.loadDgvBySql(StandortSqlString, "AVISO", 100, True)
Zollsatz = dt.Rows(0).Item("Zollsatz")
Referenzwert = dt.Rows(0).Item("Referenzwert")
UstEnabled = dt.Rows(0).Item("UstEnabled")
Ust = dt.Rows(0).Item("Ust")
ATR = dt.Rows(0).Item("ATR")
ZollsatzMulti = Zollsatz / 100
Saldo = dt.Rows(0).Item("aktSaldo")
Standort = _Standort
End Sub
Public Function CalcSaldo() As String
Dim SaldoString As String = "select SUM(
case
when Art = 'Open' then (Sicherheitsbetrag * -1)
when Art = 'Close' then Sicherheitsbetrag
end) as SicherheitsSaldo
from [tblGesamtsicherheit] Where Standort = '" & Standort & "'"
Dim dt As New DataTable
Dim mrn As Double = 0
dt = SQL.loadDgvBySql(SaldoString, "AVISO", 100, True)
If dt.Rows(0).Item(0).ToString.Length > 0 Then
mrn = dt.Rows(0).Item(0)
End If
Saldo = Referenzwert + mrn
UpdateSaldo()
Return Saldo
End Function
Public Function UpdateSaldo()
SQL.doSQL("Update [tblGesamtsicherheitReferenz] Set aktSaldo = '" & Saldo & "' WHERE Standort = '" & Standort & "'", "AVISO")
End Function
End Class

154
Aviso/frmHauptfenster.Designer.vb generated
View File

@@ -113,6 +113,9 @@ Partial Class frmHauptfenster
Me.SDLAbholaufträgeToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.SDLAbholaufträgeToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem13 = New System.Windows.Forms.ToolStripMenuItem() Me.ToolStripMenuItem13 = New System.Windows.Forms.ToolStripMenuItem()
Me.VorauskassenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.VorauskassenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ATGesamtsicherheitVeragAGToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.DEGesamtsicherheitVeragGmbHToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ATGesamtsicherheitIMEXCSGmbHToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.StatistikToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.StatistikToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.LKWBerichtToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.LKWBerichtToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.StatistikADMINToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.StatistikADMINToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
@@ -164,6 +167,8 @@ Partial Class frmHauptfenster
Me.ToolStripSeparator15 = New System.Windows.Forms.ToolStripSeparator() Me.ToolStripSeparator15 = New System.Windows.Forms.ToolStripSeparator()
Me.FREnveloppeSmartBorderToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.FREnveloppeSmartBorderToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripSeparator16 = New System.Windows.Forms.ToolStripSeparator() Me.ToolStripSeparator16 = New System.Windows.Forms.ToolStripSeparator()
Me.PBNIrelandFähreToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripSeparator20 = New System.Windows.Forms.ToolStripSeparator()
Me.WARENORTToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.WARENORTToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ATFormularZa282ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.ATFormularZa282ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ATInfoToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.ATInfoToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
@@ -317,8 +322,7 @@ Partial Class frmHauptfenster
Me.EUTaricToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.EUTaricToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.Timer_REFRESH = New System.Windows.Forms.Timer(Me.components) Me.Timer_REFRESH = New System.Windows.Forms.Timer(Me.components)
Me.UsrCntlTestsystem1 = New VERAG_PROG_ALLGEMEIN.usrCntlTestsystem() Me.UsrCntlTestsystem1 = New VERAG_PROG_ALLGEMEIN.usrCntlTestsystem()
Me.PBNIrelandFähreToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.ATGesamtsicherheitVeragCSToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripSeparator20 = New System.Windows.Forms.ToolStripSeparator()
Me.conMenuAviso.SuspendLayout() Me.conMenuAviso.SuspendLayout()
Me.MenuStrip1.SuspendLayout() Me.MenuStrip1.SuspendLayout()
Me.Top.SuspendLayout() Me.Top.SuspendLayout()
@@ -365,7 +369,7 @@ Partial Class frmHauptfenster
'conÜbernehmen 'conÜbernehmen
' '
Me.conÜbernehmen.Name = "conÜbernehmen" Me.conÜbernehmen.Name = "conÜbernehmen"
Me.conÜbernehmen.Size = New System.Drawing.Size(286, 22) Me.conÜbernehmen.Size = New System.Drawing.Size(284, 22)
Me.conÜbernehmen.Text = "Akt übernehmen" Me.conÜbernehmen.Text = "Akt übernehmen"
' '
'conMenuAviso 'conMenuAviso
@@ -373,64 +377,64 @@ Partial Class frmHauptfenster
Me.conMenuAviso.ImageScalingSize = New System.Drawing.Size(24, 24) Me.conMenuAviso.ImageScalingSize = New System.Drawing.Size(24, 24)
Me.conMenuAviso.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.conÜbernehmen, Me.ToolStripSeparator5, Me.conFertig, Me.ToolStripSeparator1, Me.conVorgeschrieben, Me.conVorbereitet, Me.conAnkunft, Me.conFreigabe, Me.conNichtEingetroffen, Me.ToolStripSeparator2, Me.conÄndern}) Me.conMenuAviso.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.conÜbernehmen, Me.ToolStripSeparator5, Me.conFertig, Me.ToolStripSeparator1, Me.conVorgeschrieben, Me.conVorbereitet, Me.conAnkunft, Me.conFreigabe, Me.conNichtEingetroffen, Me.ToolStripSeparator2, Me.conÄndern})
Me.conMenuAviso.Name = "conMenuTage" Me.conMenuAviso.Name = "conMenuTage"
Me.conMenuAviso.Size = New System.Drawing.Size(287, 198) Me.conMenuAviso.Size = New System.Drawing.Size(285, 198)
' '
'ToolStripSeparator5 'ToolStripSeparator5
' '
Me.ToolStripSeparator5.Name = "ToolStripSeparator5" Me.ToolStripSeparator5.Name = "ToolStripSeparator5"
Me.ToolStripSeparator5.Size = New System.Drawing.Size(283, 6) Me.ToolStripSeparator5.Size = New System.Drawing.Size(281, 6)
' '
'conFertig 'conFertig
' '
Me.conFertig.Name = "conFertig" Me.conFertig.Name = "conFertig"
Me.conFertig.Size = New System.Drawing.Size(286, 22) Me.conFertig.Size = New System.Drawing.Size(284, 22)
Me.conFertig.Text = "LKW ist FERTIG / nicht FERTIG" Me.conFertig.Text = "LKW ist FERTIG / nicht FERTIG"
' '
'ToolStripSeparator1 'ToolStripSeparator1
' '
Me.ToolStripSeparator1.Name = "ToolStripSeparator1" Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
Me.ToolStripSeparator1.Size = New System.Drawing.Size(283, 6) Me.ToolStripSeparator1.Size = New System.Drawing.Size(281, 6)
' '
'conVorgeschrieben 'conVorgeschrieben
' '
Me.conVorgeschrieben.Name = "conVorgeschrieben" Me.conVorgeschrieben.Name = "conVorgeschrieben"
Me.conVorgeschrieben.Size = New System.Drawing.Size(286, 22) Me.conVorgeschrieben.Size = New System.Drawing.Size(284, 22)
Me.conVorgeschrieben.Text = "auf Status VORGESCHRIEBEN setzen" Me.conVorgeschrieben.Text = "auf Status VORGESCHRIEBEN setzen"
' '
'conVorbereitet 'conVorbereitet
' '
Me.conVorbereitet.Name = "conVorbereitet" Me.conVorbereitet.Name = "conVorbereitet"
Me.conVorbereitet.Size = New System.Drawing.Size(286, 22) Me.conVorbereitet.Size = New System.Drawing.Size(284, 22)
Me.conVorbereitet.Text = "auf Status VORBEREITET setzen" Me.conVorbereitet.Text = "auf Status VORBEREITET setzen"
Me.conVorbereitet.Visible = False Me.conVorbereitet.Visible = False
' '
'conAnkunft 'conAnkunft
' '
Me.conAnkunft.Name = "conAnkunft" Me.conAnkunft.Name = "conAnkunft"
Me.conAnkunft.Size = New System.Drawing.Size(286, 22) Me.conAnkunft.Size = New System.Drawing.Size(284, 22)
Me.conAnkunft.Text = "auf Status ANKUNFT setzen" Me.conAnkunft.Text = "auf Status ANKUNFT setzen"
' '
'conFreigabe 'conFreigabe
' '
Me.conFreigabe.Name = "conFreigabe" Me.conFreigabe.Name = "conFreigabe"
Me.conFreigabe.Size = New System.Drawing.Size(286, 22) Me.conFreigabe.Size = New System.Drawing.Size(284, 22)
Me.conFreigabe.Text = "auf Status FREIGABE setzen" Me.conFreigabe.Text = "auf Status FREIGABE setzen"
' '
'conNichtEingetroffen 'conNichtEingetroffen
' '
Me.conNichtEingetroffen.Name = "conNichtEingetroffen" Me.conNichtEingetroffen.Name = "conNichtEingetroffen"
Me.conNichtEingetroffen.Size = New System.Drawing.Size(286, 22) Me.conNichtEingetroffen.Size = New System.Drawing.Size(284, 22)
Me.conNichtEingetroffen.Text = "auf Status NICHT EINGETROFFEN setzen" Me.conNichtEingetroffen.Text = "auf Status NICHT EINGETROFFEN setzen"
' '
'ToolStripSeparator2 'ToolStripSeparator2
' '
Me.ToolStripSeparator2.Name = "ToolStripSeparator2" Me.ToolStripSeparator2.Name = "ToolStripSeparator2"
Me.ToolStripSeparator2.Size = New System.Drawing.Size(283, 6) Me.ToolStripSeparator2.Size = New System.Drawing.Size(281, 6)
' '
'conÄndern 'conÄndern
' '
Me.conÄndern.Name = "conÄndern" Me.conÄndern.Name = "conÄndern"
Me.conÄndern.Size = New System.Drawing.Size(286, 22) Me.conÄndern.Size = New System.Drawing.Size(284, 22)
Me.conÄndern.Text = "Eintrag ändern" Me.conÄndern.Text = "Eintrag ändern"
' '
'MenuStrip1 'MenuStrip1
@@ -593,43 +597,43 @@ Partial Class frmHauptfenster
'VERAGToolStripMenuItem 'VERAGToolStripMenuItem
' '
Me.VERAGToolStripMenuItem.Name = "VERAGToolStripMenuItem" Me.VERAGToolStripMenuItem.Name = "VERAGToolStripMenuItem"
Me.VERAGToolStripMenuItem.Size = New System.Drawing.Size(149, 22) Me.VERAGToolStripMenuItem.Size = New System.Drawing.Size(148, 22)
Me.VERAGToolStripMenuItem.Text = "VERAG" Me.VERAGToolStripMenuItem.Text = "VERAG"
' '
'ATILLAToolStripMenuItem 'ATILLAToolStripMenuItem
' '
Me.ATILLAToolStripMenuItem.Name = "ATILLAToolStripMenuItem" Me.ATILLAToolStripMenuItem.Name = "ATILLAToolStripMenuItem"
Me.ATILLAToolStripMenuItem.Size = New System.Drawing.Size(149, 22) Me.ATILLAToolStripMenuItem.Size = New System.Drawing.Size(148, 22)
Me.ATILLAToolStripMenuItem.Text = "ATILLA" Me.ATILLAToolStripMenuItem.Text = "ATILLA"
' '
'IMEXToolStripMenuItem 'IMEXToolStripMenuItem
' '
Me.IMEXToolStripMenuItem.Name = "IMEXToolStripMenuItem" Me.IMEXToolStripMenuItem.Name = "IMEXToolStripMenuItem"
Me.IMEXToolStripMenuItem.Size = New System.Drawing.Size(149, 22) Me.IMEXToolStripMenuItem.Size = New System.Drawing.Size(148, 22)
Me.IMEXToolStripMenuItem.Text = "IMEX" Me.IMEXToolStripMenuItem.Text = "IMEX"
' '
'UNISPEDToolStripMenuItem 'UNISPEDToolStripMenuItem
' '
Me.UNISPEDToolStripMenuItem.Name = "UNISPEDToolStripMenuItem" Me.UNISPEDToolStripMenuItem.Name = "UNISPEDToolStripMenuItem"
Me.UNISPEDToolStripMenuItem.Size = New System.Drawing.Size(149, 22) Me.UNISPEDToolStripMenuItem.Size = New System.Drawing.Size(148, 22)
Me.UNISPEDToolStripMenuItem.Text = "UNISPED" Me.UNISPEDToolStripMenuItem.Text = "UNISPED"
' '
'AMBARToolStripMenuItem 'AMBARToolStripMenuItem
' '
Me.AMBARToolStripMenuItem.Name = "AMBARToolStripMenuItem" Me.AMBARToolStripMenuItem.Name = "AMBARToolStripMenuItem"
Me.AMBARToolStripMenuItem.Size = New System.Drawing.Size(149, 22) Me.AMBARToolStripMenuItem.Size = New System.Drawing.Size(148, 22)
Me.AMBARToolStripMenuItem.Text = "AMBAR" Me.AMBARToolStripMenuItem.Text = "AMBAR"
' '
'FRONTOFFICEToolStripMenuItem 'FRONTOFFICEToolStripMenuItem
' '
Me.FRONTOFFICEToolStripMenuItem.Name = "FRONTOFFICEToolStripMenuItem" Me.FRONTOFFICEToolStripMenuItem.Name = "FRONTOFFICEToolStripMenuItem"
Me.FRONTOFFICEToolStripMenuItem.Size = New System.Drawing.Size(149, 22) Me.FRONTOFFICEToolStripMenuItem.Size = New System.Drawing.Size(148, 22)
Me.FRONTOFFICEToolStripMenuItem.Text = "FRONTOFFICE" Me.FRONTOFFICEToolStripMenuItem.Text = "FRONTOFFICE"
' '
'VERIMEXToolStripMenuItem 'VERIMEXToolStripMenuItem
' '
Me.VERIMEXToolStripMenuItem.Name = "VERIMEXToolStripMenuItem" Me.VERIMEXToolStripMenuItem.Name = "VERIMEXToolStripMenuItem"
Me.VERIMEXToolStripMenuItem.Size = New System.Drawing.Size(149, 22) Me.VERIMEXToolStripMenuItem.Size = New System.Drawing.Size(148, 22)
Me.VERIMEXToolStripMenuItem.Text = "VERIMEX" Me.VERIMEXToolStripMenuItem.Text = "VERIMEX"
' '
'StandortWechselnToolStripMenuItem 'StandortWechselnToolStripMenuItem
@@ -687,13 +691,13 @@ Partial Class frmHauptfenster
'DeutschToolStripMenuItem 'DeutschToolStripMenuItem
' '
Me.DeutschToolStripMenuItem.Name = "DeutschToolStripMenuItem" Me.DeutschToolStripMenuItem.Name = "DeutschToolStripMenuItem"
Me.DeutschToolStripMenuItem.Size = New System.Drawing.Size(119, 22) Me.DeutschToolStripMenuItem.Size = New System.Drawing.Size(118, 22)
Me.DeutschToolStripMenuItem.Text = "Deutsch" Me.DeutschToolStripMenuItem.Text = "Deutsch"
' '
'TürkischToolStripMenuItem 'TürkischToolStripMenuItem
' '
Me.TürkischToolStripMenuItem.Name = "TürkischToolStripMenuItem" Me.TürkischToolStripMenuItem.Name = "TürkischToolStripMenuItem"
Me.TürkischToolStripMenuItem.Size = New System.Drawing.Size(119, 22) Me.TürkischToolStripMenuItem.Size = New System.Drawing.Size(118, 22)
Me.TürkischToolStripMenuItem.Text = "Türkisch" Me.TürkischToolStripMenuItem.Text = "Türkisch"
' '
'NacherfassungToolStripMenuItem 'NacherfassungToolStripMenuItem
@@ -724,7 +728,7 @@ Partial Class frmHauptfenster
' '
'FunktionenToolStripMenuItem 'FunktionenToolStripMenuItem
' '
Me.FunktionenToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.GenerelleGestellungenDurchsuchenToolStripMenuItem, Me.KundenVonFremdenSpeditionenToolStripMenuItem, Me.KundenverwaltungToolStripMenuItem, Me.MDMParkplatzkartenToolStripMenuItem, Me.SMSSendenToolStripMenuItem, Me.ZollprogrammeNachEORIDurchsuchenToolStripMenuItem, Me.MRNBarcodedruckToolStripMenuItem, Me.ToolStripSeparator12, Me.ToolStripMenuItem3, Me.ToolStripMenuItem4, Me.ToolStripMenuItem5, Me.BürgschaftenExcelToolStripMenuItem, Me.ToolStripMenuItem6, Me.ToolStripMenuItem10, Me.TICKETWaidhausToolStripMenuItem, Me.ToolStripSeparator10, Me.DAKOSYToolStripMenuItem, Me.ToolStripSeparator11, Me.SDLAbholaufträgeToolStripMenuItem, Me.ToolStripMenuItem13, Me.VorauskassenToolStripMenuItem}) Me.FunktionenToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.GenerelleGestellungenDurchsuchenToolStripMenuItem, Me.KundenVonFremdenSpeditionenToolStripMenuItem, Me.KundenverwaltungToolStripMenuItem, Me.MDMParkplatzkartenToolStripMenuItem, Me.SMSSendenToolStripMenuItem, Me.ZollprogrammeNachEORIDurchsuchenToolStripMenuItem, Me.MRNBarcodedruckToolStripMenuItem, Me.ToolStripSeparator12, Me.ToolStripMenuItem3, Me.ToolStripMenuItem4, Me.ToolStripMenuItem5, Me.BürgschaftenExcelToolStripMenuItem, Me.ToolStripMenuItem6, Me.ToolStripMenuItem10, Me.TICKETWaidhausToolStripMenuItem, Me.ToolStripSeparator10, Me.DAKOSYToolStripMenuItem, Me.ToolStripSeparator11, Me.SDLAbholaufträgeToolStripMenuItem, Me.ToolStripMenuItem13, Me.VorauskassenToolStripMenuItem, Me.DEGesamtsicherheitVeragGmbHToolStripMenuItem, Me.ATGesamtsicherheitVeragAGToolStripMenuItem, Me.ATGesamtsicherheitIMEXCSGmbHToolStripMenuItem, Me.ATGesamtsicherheitVeragCSToolStripMenuItem})
Me.FunktionenToolStripMenuItem.Name = "FunktionenToolStripMenuItem" Me.FunktionenToolStripMenuItem.Name = "FunktionenToolStripMenuItem"
Me.FunktionenToolStripMenuItem.Size = New System.Drawing.Size(79, 20) Me.FunktionenToolStripMenuItem.Size = New System.Drawing.Size(79, 20)
Me.FunktionenToolStripMenuItem.Text = "Funktionen" Me.FunktionenToolStripMenuItem.Text = "Funktionen"
@@ -877,6 +881,24 @@ Partial Class frmHauptfenster
Me.VorauskassenToolStripMenuItem.Size = New System.Drawing.Size(383, 22) Me.VorauskassenToolStripMenuItem.Size = New System.Drawing.Size(383, 22)
Me.VorauskassenToolStripMenuItem.Text = "Vorauskassen" Me.VorauskassenToolStripMenuItem.Text = "Vorauskassen"
' '
'ATGesamtsicherheitVeragAGToolStripMenuItem
'
Me.ATGesamtsicherheitVeragAGToolStripMenuItem.Name = "ATGesamtsicherheitVeragAGToolStripMenuItem"
Me.ATGesamtsicherheitVeragAGToolStripMenuItem.Size = New System.Drawing.Size(383, 22)
Me.ATGesamtsicherheitVeragAGToolStripMenuItem.Text = "AT | Gesamtsicherheit Verag AG"
'
'DEGesamtsicherheitVeragGmbHToolStripMenuItem
'
Me.DEGesamtsicherheitVeragGmbHToolStripMenuItem.Name = "DEGesamtsicherheitVeragGmbHToolStripMenuItem"
Me.DEGesamtsicherheitVeragGmbHToolStripMenuItem.Size = New System.Drawing.Size(383, 22)
Me.DEGesamtsicherheitVeragGmbHToolStripMenuItem.Text = "DE | Gesamtsicherheit Verag GmbH"
'
'ATGesamtsicherheitIMEXCSGmbHToolStripMenuItem
'
Me.ATGesamtsicherheitIMEXCSGmbHToolStripMenuItem.Name = "ATGesamtsicherheitIMEXCSGmbHToolStripMenuItem"
Me.ATGesamtsicherheitIMEXCSGmbHToolStripMenuItem.Size = New System.Drawing.Size(383, 22)
Me.ATGesamtsicherheitIMEXCSGmbHToolStripMenuItem.Text = "AT | Gesamtsicherheit IMEX CS GmbH"
'
'StatistikToolStripMenuItem 'StatistikToolStripMenuItem
' '
Me.StatistikToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.LKWBerichtToolStripMenuItem, Me.StatistikADMINToolStripMenuItem, Me.ToolStripSeparator8, Me.BürgschafrtsbuchungenFremdToolStripMenuItem, Me.LKWEingetroffenNachToolStripMenuItem, Me.ToolStripSeparator7, Me.SDLAuswertungenToolStripMenuItem, Me.SDLAuswertungenToolStripMenuItem1}) Me.StatistikToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.LKWBerichtToolStripMenuItem, Me.StatistikADMINToolStripMenuItem, Me.ToolStripSeparator8, Me.BürgschafrtsbuchungenFremdToolStripMenuItem, Me.LKWEingetroffenNachToolStripMenuItem, Me.ToolStripSeparator7, Me.SDLAuswertungenToolStripMenuItem, Me.SDLAuswertungenToolStripMenuItem1})
@@ -1080,31 +1102,31 @@ Partial Class frmHauptfenster
'ToolStripMenuItem8 'ToolStripMenuItem8
' '
Me.ToolStripMenuItem8.Name = "ToolStripMenuItem8" Me.ToolStripMenuItem8.Name = "ToolStripMenuItem8"
Me.ToolStripMenuItem8.Size = New System.Drawing.Size(244, 22) Me.ToolStripMenuItem8.Size = New System.Drawing.Size(243, 22)
Me.ToolStripMenuItem8.Text = "Annahmeblatt IMPORT DE / TR" Me.ToolStripMenuItem8.Text = "Annahmeblatt IMPORT DE / TR"
' '
'ToolStripMenuItem9 'ToolStripMenuItem9
' '
Me.ToolStripMenuItem9.Name = "ToolStripMenuItem9" Me.ToolStripMenuItem9.Name = "ToolStripMenuItem9"
Me.ToolStripMenuItem9.Size = New System.Drawing.Size(244, 22) Me.ToolStripMenuItem9.Size = New System.Drawing.Size(243, 22)
Me.ToolStripMenuItem9.Text = "Annahmeblatt EXPORT DE / TR" Me.ToolStripMenuItem9.Text = "Annahmeblatt EXPORT DE / TR"
' '
'AnnahmeblattIMPORTToolStripMenuItem 'AnnahmeblattIMPORTToolStripMenuItem
' '
Me.AnnahmeblattIMPORTToolStripMenuItem.Name = "AnnahmeblattIMPORTToolStripMenuItem" Me.AnnahmeblattIMPORTToolStripMenuItem.Name = "AnnahmeblattIMPORTToolStripMenuItem"
Me.AnnahmeblattIMPORTToolStripMenuItem.Size = New System.Drawing.Size(244, 22) Me.AnnahmeblattIMPORTToolStripMenuItem.Size = New System.Drawing.Size(243, 22)
Me.AnnahmeblattIMPORTToolStripMenuItem.Text = "Annahmeblatt IMPORT DE / SRB" Me.AnnahmeblattIMPORTToolStripMenuItem.Text = "Annahmeblatt IMPORT DE / SRB"
' '
'AnnahmeblattEXPORTToolStripMenuItem 'AnnahmeblattEXPORTToolStripMenuItem
' '
Me.AnnahmeblattEXPORTToolStripMenuItem.Name = "AnnahmeblattEXPORTToolStripMenuItem" Me.AnnahmeblattEXPORTToolStripMenuItem.Name = "AnnahmeblattEXPORTToolStripMenuItem"
Me.AnnahmeblattEXPORTToolStripMenuItem.Size = New System.Drawing.Size(244, 22) Me.AnnahmeblattEXPORTToolStripMenuItem.Size = New System.Drawing.Size(243, 22)
Me.AnnahmeblattEXPORTToolStripMenuItem.Text = "Annahmeblatt EXPORT DE / SRB" Me.AnnahmeblattEXPORTToolStripMenuItem.Text = "Annahmeblatt EXPORT DE / SRB"
' '
'ChecklisteVerwahrlagerToolStripMenuItem 'ChecklisteVerwahrlagerToolStripMenuItem
' '
Me.ChecklisteVerwahrlagerToolStripMenuItem.Name = "ChecklisteVerwahrlagerToolStripMenuItem" Me.ChecklisteVerwahrlagerToolStripMenuItem.Name = "ChecklisteVerwahrlagerToolStripMenuItem"
Me.ChecklisteVerwahrlagerToolStripMenuItem.Size = New System.Drawing.Size(244, 22) Me.ChecklisteVerwahrlagerToolStripMenuItem.Size = New System.Drawing.Size(243, 22)
Me.ChecklisteVerwahrlagerToolStripMenuItem.Text = "Checkliste Verwahrlager" Me.ChecklisteVerwahrlagerToolStripMenuItem.Text = "Checkliste Verwahrlager"
' '
'ToolStripSeparator13 'ToolStripSeparator13
@@ -1134,7 +1156,7 @@ Partial Class frmHauptfenster
' '
Me.BREXITToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.GVMSUKIMportToolStripMenuItem, Me.GVMSBeschreibungToolStripMenuItem, Me.ToolStripSeparator14, Me.TicketIBFInlandBorderFacilitiesToolStripMenuItem, Me.TicketIBFBeschreibungToolStripMenuItem, Me.IBFStatusToolStripMenuItem, Me.ToolStripSeparator15, Me.FREnveloppeSmartBorderToolStripMenuItem, Me.ToolStripSeparator16, Me.PBNIrelandFähreToolStripMenuItem, Me.ToolStripSeparator20, Me.WARENORTToolStripMenuItem, Me.ToolStripMenuItem14, Me.ToolStripSeparator18, Me.EORIUKGeneriertenToolStripMenuItem, Me.KAPKentAccessPermitToolStripMenuItem}) Me.BREXITToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.GVMSUKIMportToolStripMenuItem, Me.GVMSBeschreibungToolStripMenuItem, Me.ToolStripSeparator14, Me.TicketIBFInlandBorderFacilitiesToolStripMenuItem, Me.TicketIBFBeschreibungToolStripMenuItem, Me.IBFStatusToolStripMenuItem, Me.ToolStripSeparator15, Me.FREnveloppeSmartBorderToolStripMenuItem, Me.ToolStripSeparator16, Me.PBNIrelandFähreToolStripMenuItem, Me.ToolStripSeparator20, Me.WARENORTToolStripMenuItem, Me.ToolStripMenuItem14, Me.ToolStripSeparator18, Me.EORIUKGeneriertenToolStripMenuItem, Me.KAPKentAccessPermitToolStripMenuItem})
Me.BREXITToolStripMenuItem.Name = "BREXITToolStripMenuItem" Me.BREXITToolStripMenuItem.Name = "BREXITToolStripMenuItem"
Me.BREXITToolStripMenuItem.Size = New System.Drawing.Size(56, 20) Me.BREXITToolStripMenuItem.Size = New System.Drawing.Size(55, 20)
Me.BREXITToolStripMenuItem.Text = "BREXIT" Me.BREXITToolStripMenuItem.Text = "BREXIT"
Me.BREXITToolStripMenuItem.Visible = False Me.BREXITToolStripMenuItem.Visible = False
' '
@@ -1142,128 +1164,140 @@ Partial Class frmHauptfenster
' '
Me.GVMSUKIMportToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.weiterleiten_small1 Me.GVMSUKIMportToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.weiterleiten_small1
Me.GVMSUKIMportToolStripMenuItem.Name = "GVMSUKIMportToolStripMenuItem" Me.GVMSUKIMportToolStripMenuItem.Name = "GVMSUKIMportToolStripMenuItem"
Me.GVMSUKIMportToolStripMenuItem.Size = New System.Drawing.Size(257, 30) Me.GVMSUKIMportToolStripMenuItem.Size = New System.Drawing.Size(248, 22)
Me.GVMSUKIMportToolStripMenuItem.Text = "GVMS (UK Import)" Me.GVMSUKIMportToolStripMenuItem.Text = "GVMS (UK Import)"
' '
'GVMSBeschreibungToolStripMenuItem 'GVMSBeschreibungToolStripMenuItem
' '
Me.GVMSBeschreibungToolStripMenuItem.Enabled = False Me.GVMSBeschreibungToolStripMenuItem.Enabled = False
Me.GVMSBeschreibungToolStripMenuItem.Name = "GVMSBeschreibungToolStripMenuItem" Me.GVMSBeschreibungToolStripMenuItem.Name = "GVMSBeschreibungToolStripMenuItem"
Me.GVMSBeschreibungToolStripMenuItem.Size = New System.Drawing.Size(257, 30) Me.GVMSBeschreibungToolStripMenuItem.Size = New System.Drawing.Size(248, 22)
Me.GVMSBeschreibungToolStripMenuItem.Text = "GVMS Beschreibung" Me.GVMSBeschreibungToolStripMenuItem.Text = "GVMS Beschreibung"
' '
'ToolStripSeparator14 'ToolStripSeparator14
' '
Me.ToolStripSeparator14.Name = "ToolStripSeparator14" Me.ToolStripSeparator14.Name = "ToolStripSeparator14"
Me.ToolStripSeparator14.Size = New System.Drawing.Size(254, 6) Me.ToolStripSeparator14.Size = New System.Drawing.Size(245, 6)
' '
'TicketIBFInlandBorderFacilitiesToolStripMenuItem 'TicketIBFInlandBorderFacilitiesToolStripMenuItem
' '
Me.TicketIBFInlandBorderFacilitiesToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.weiterleiten_small1 Me.TicketIBFInlandBorderFacilitiesToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.weiterleiten_small1
Me.TicketIBFInlandBorderFacilitiesToolStripMenuItem.Name = "TicketIBFInlandBorderFacilitiesToolStripMenuItem" Me.TicketIBFInlandBorderFacilitiesToolStripMenuItem.Name = "TicketIBFInlandBorderFacilitiesToolStripMenuItem"
Me.TicketIBFInlandBorderFacilitiesToolStripMenuItem.Size = New System.Drawing.Size(257, 30) Me.TicketIBFInlandBorderFacilitiesToolStripMenuItem.Size = New System.Drawing.Size(248, 22)
Me.TicketIBFInlandBorderFacilitiesToolStripMenuItem.Text = "Ticket IBF (InlandBorderFacilities)" Me.TicketIBFInlandBorderFacilitiesToolStripMenuItem.Text = "Ticket IBF (InlandBorderFacilities)"
' '
'TicketIBFBeschreibungToolStripMenuItem 'TicketIBFBeschreibungToolStripMenuItem
' '
Me.TicketIBFBeschreibungToolStripMenuItem.Name = "TicketIBFBeschreibungToolStripMenuItem" Me.TicketIBFBeschreibungToolStripMenuItem.Name = "TicketIBFBeschreibungToolStripMenuItem"
Me.TicketIBFBeschreibungToolStripMenuItem.Size = New System.Drawing.Size(257, 30) Me.TicketIBFBeschreibungToolStripMenuItem.Size = New System.Drawing.Size(248, 22)
Me.TicketIBFBeschreibungToolStripMenuItem.Text = "Ticket IBF Beschreibung" Me.TicketIBFBeschreibungToolStripMenuItem.Text = "Ticket IBF Beschreibung"
' '
'IBFStatusToolStripMenuItem 'IBFStatusToolStripMenuItem
' '
Me.IBFStatusToolStripMenuItem.Name = "IBFStatusToolStripMenuItem" Me.IBFStatusToolStripMenuItem.Name = "IBFStatusToolStripMenuItem"
Me.IBFStatusToolStripMenuItem.Size = New System.Drawing.Size(257, 30) Me.IBFStatusToolStripMenuItem.Size = New System.Drawing.Size(248, 22)
Me.IBFStatusToolStripMenuItem.Text = "IBF Status" Me.IBFStatusToolStripMenuItem.Text = "IBF Status"
' '
'ToolStripSeparator15 'ToolStripSeparator15
' '
Me.ToolStripSeparator15.Name = "ToolStripSeparator15" Me.ToolStripSeparator15.Name = "ToolStripSeparator15"
Me.ToolStripSeparator15.Size = New System.Drawing.Size(254, 6) Me.ToolStripSeparator15.Size = New System.Drawing.Size(245, 6)
' '
'FREnveloppeSmartBorderToolStripMenuItem 'FREnveloppeSmartBorderToolStripMenuItem
' '
Me.FREnveloppeSmartBorderToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.weiterleiten_small1 Me.FREnveloppeSmartBorderToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.weiterleiten_small1
Me.FREnveloppeSmartBorderToolStripMenuItem.Name = "FREnveloppeSmartBorderToolStripMenuItem" Me.FREnveloppeSmartBorderToolStripMenuItem.Name = "FREnveloppeSmartBorderToolStripMenuItem"
Me.FREnveloppeSmartBorderToolStripMenuItem.Size = New System.Drawing.Size(257, 30) Me.FREnveloppeSmartBorderToolStripMenuItem.Size = New System.Drawing.Size(248, 22)
Me.FREnveloppeSmartBorderToolStripMenuItem.Text = "FR: Enveloppe (SmartBorder)" Me.FREnveloppeSmartBorderToolStripMenuItem.Text = "FR: Enveloppe (SmartBorder)"
' '
'ToolStripSeparator16 'ToolStripSeparator16
' '
Me.ToolStripSeparator16.Name = "ToolStripSeparator16" Me.ToolStripSeparator16.Name = "ToolStripSeparator16"
Me.ToolStripSeparator16.Size = New System.Drawing.Size(254, 6) Me.ToolStripSeparator16.Size = New System.Drawing.Size(245, 6)
'
'PBNIrelandFähreToolStripMenuItem
'
Me.PBNIrelandFähreToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.weiterleiten_small1
Me.PBNIrelandFähreToolStripMenuItem.Name = "PBNIrelandFähreToolStripMenuItem"
Me.PBNIrelandFähreToolStripMenuItem.Size = New System.Drawing.Size(248, 22)
Me.PBNIrelandFähreToolStripMenuItem.Text = "PBN (Ireland Fähre)"
'
'ToolStripSeparator20
'
Me.ToolStripSeparator20.Name = "ToolStripSeparator20"
Me.ToolStripSeparator20.Size = New System.Drawing.Size(245, 6)
' '
'WARENORTToolStripMenuItem 'WARENORTToolStripMenuItem
' '
Me.WARENORTToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ATFormularZa282ToolStripMenuItem, Me.ATInfoToolStripMenuItem, Me.ToolStripSeparator17, Me.DEFormular0442ToolStripMenuItem, Me.DEInfoToolStripMenuItem}) Me.WARENORTToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ATFormularZa282ToolStripMenuItem, Me.ATInfoToolStripMenuItem, Me.ToolStripSeparator17, Me.DEFormular0442ToolStripMenuItem, Me.DEInfoToolStripMenuItem})
Me.WARENORTToolStripMenuItem.Name = "WARENORTToolStripMenuItem" Me.WARENORTToolStripMenuItem.Name = "WARENORTToolStripMenuItem"
Me.WARENORTToolStripMenuItem.Size = New System.Drawing.Size(257, 30) Me.WARENORTToolStripMenuItem.Size = New System.Drawing.Size(248, 22)
Me.WARENORTToolStripMenuItem.Text = "REX" Me.WARENORTToolStripMenuItem.Text = "REX"
' '
'ATFormularZa282ToolStripMenuItem 'ATFormularZa282ToolStripMenuItem
' '
Me.ATFormularZa282ToolStripMenuItem.Name = "ATFormularZa282ToolStripMenuItem" Me.ATFormularZa282ToolStripMenuItem.Name = "ATFormularZa282ToolStripMenuItem"
Me.ATFormularZa282ToolStripMenuItem.Size = New System.Drawing.Size(173, 22) Me.ATFormularZa282ToolStripMenuItem.Size = New System.Drawing.Size(172, 22)
Me.ATFormularZa282ToolStripMenuItem.Text = "AT Formular Za278" Me.ATFormularZa282ToolStripMenuItem.Text = "AT Formular Za278"
' '
'ATInfoToolStripMenuItem 'ATInfoToolStripMenuItem
' '
Me.ATInfoToolStripMenuItem.Name = "ATInfoToolStripMenuItem" Me.ATInfoToolStripMenuItem.Name = "ATInfoToolStripMenuItem"
Me.ATInfoToolStripMenuItem.Size = New System.Drawing.Size(173, 22) Me.ATInfoToolStripMenuItem.Size = New System.Drawing.Size(172, 22)
Me.ATInfoToolStripMenuItem.Text = "AT Info" Me.ATInfoToolStripMenuItem.Text = "AT Info"
' '
'ToolStripSeparator17 'ToolStripSeparator17
' '
Me.ToolStripSeparator17.Name = "ToolStripSeparator17" Me.ToolStripSeparator17.Name = "ToolStripSeparator17"
Me.ToolStripSeparator17.Size = New System.Drawing.Size(170, 6) Me.ToolStripSeparator17.Size = New System.Drawing.Size(169, 6)
' '
'DEFormular0442ToolStripMenuItem 'DEFormular0442ToolStripMenuItem
' '
Me.DEFormular0442ToolStripMenuItem.Name = "DEFormular0442ToolStripMenuItem" Me.DEFormular0442ToolStripMenuItem.Name = "DEFormular0442ToolStripMenuItem"
Me.DEFormular0442ToolStripMenuItem.Size = New System.Drawing.Size(173, 22) Me.DEFormular0442ToolStripMenuItem.Size = New System.Drawing.Size(172, 22)
Me.DEFormular0442ToolStripMenuItem.Text = "DE Formular 0442" Me.DEFormular0442ToolStripMenuItem.Text = "DE Formular 0442"
' '
'DEInfoToolStripMenuItem 'DEInfoToolStripMenuItem
' '
Me.DEInfoToolStripMenuItem.Name = "DEInfoToolStripMenuItem" Me.DEInfoToolStripMenuItem.Name = "DEInfoToolStripMenuItem"
Me.DEInfoToolStripMenuItem.Size = New System.Drawing.Size(173, 22) Me.DEInfoToolStripMenuItem.Size = New System.Drawing.Size(172, 22)
Me.DEInfoToolStripMenuItem.Text = "DE Info" Me.DEInfoToolStripMenuItem.Text = "DE Info"
' '
'ToolStripMenuItem14 'ToolStripMenuItem14
' '
Me.ToolStripMenuItem14.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem16, Me.ToolStripSeparator19}) Me.ToolStripMenuItem14.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem16, Me.ToolStripSeparator19})
Me.ToolStripMenuItem14.Name = "ToolStripMenuItem14" Me.ToolStripMenuItem14.Name = "ToolStripMenuItem14"
Me.ToolStripMenuItem14.Size = New System.Drawing.Size(257, 30) Me.ToolStripMenuItem14.Size = New System.Drawing.Size(248, 22)
Me.ToolStripMenuItem14.Text = "WARENORT" Me.ToolStripMenuItem14.Text = "WARENORT"
' '
'ToolStripMenuItem16 'ToolStripMenuItem16
' '
Me.ToolStripMenuItem16.Name = "ToolStripMenuItem16" Me.ToolStripMenuItem16.Name = "ToolStripMenuItem16"
Me.ToolStripMenuItem16.Size = New System.Drawing.Size(173, 22) Me.ToolStripMenuItem16.Size = New System.Drawing.Size(172, 22)
Me.ToolStripMenuItem16.Text = "AT Formular Za283" Me.ToolStripMenuItem16.Text = "AT Formular Za283"
' '
'ToolStripSeparator19 'ToolStripSeparator19
' '
Me.ToolStripSeparator19.Name = "ToolStripSeparator19" Me.ToolStripSeparator19.Name = "ToolStripSeparator19"
Me.ToolStripSeparator19.Size = New System.Drawing.Size(170, 6) Me.ToolStripSeparator19.Size = New System.Drawing.Size(169, 6)
' '
'ToolStripSeparator18 'ToolStripSeparator18
' '
Me.ToolStripSeparator18.Name = "ToolStripSeparator18" Me.ToolStripSeparator18.Name = "ToolStripSeparator18"
Me.ToolStripSeparator18.Size = New System.Drawing.Size(254, 6) Me.ToolStripSeparator18.Size = New System.Drawing.Size(245, 6)
' '
'EORIUKGeneriertenToolStripMenuItem 'EORIUKGeneriertenToolStripMenuItem
' '
Me.EORIUKGeneriertenToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.fragezeichen1 Me.EORIUKGeneriertenToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.fragezeichen1
Me.EORIUKGeneriertenToolStripMenuItem.Name = "EORIUKGeneriertenToolStripMenuItem" Me.EORIUKGeneriertenToolStripMenuItem.Name = "EORIUKGeneriertenToolStripMenuItem"
Me.EORIUKGeneriertenToolStripMenuItem.Size = New System.Drawing.Size(257, 30) Me.EORIUKGeneriertenToolStripMenuItem.Size = New System.Drawing.Size(248, 22)
Me.EORIUKGeneriertenToolStripMenuItem.Text = "EORI UK generierten" Me.EORIUKGeneriertenToolStripMenuItem.Text = "EORI UK generierten"
' '
'KAPKentAccessPermitToolStripMenuItem 'KAPKentAccessPermitToolStripMenuItem
' '
Me.KAPKentAccessPermitToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.fragezeichen Me.KAPKentAccessPermitToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.fragezeichen
Me.KAPKentAccessPermitToolStripMenuItem.Name = "KAPKentAccessPermitToolStripMenuItem" Me.KAPKentAccessPermitToolStripMenuItem.Name = "KAPKentAccessPermitToolStripMenuItem"
Me.KAPKentAccessPermitToolStripMenuItem.Size = New System.Drawing.Size(257, 30) Me.KAPKentAccessPermitToolStripMenuItem.Size = New System.Drawing.Size(248, 22)
Me.KAPKentAccessPermitToolStripMenuItem.Text = "KAP (KentAccessPermit)" Me.KAPKentAccessPermitToolStripMenuItem.Text = "KAP (KentAccessPermit)"
' '
'mnuFragezeichen 'mnuFragezeichen
@@ -3071,17 +3105,11 @@ Partial Class frmHauptfenster
Me.UsrCntlTestsystem1.Size = New System.Drawing.Size(152, 28) Me.UsrCntlTestsystem1.Size = New System.Drawing.Size(152, 28)
Me.UsrCntlTestsystem1.TabIndex = 8 Me.UsrCntlTestsystem1.TabIndex = 8
' '
'PBNIrelandFähreToolStripMenuItem 'ATGesamtsicherheitVeragCSToolStripMenuItem
' '
Me.PBNIrelandFähreToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.weiterleiten_small1 Me.ATGesamtsicherheitVeragCSToolStripMenuItem.Name = "ATGesamtsicherheitVeragCSToolStripMenuItem"
Me.PBNIrelandFähreToolStripMenuItem.Name = "PBNIrelandFähreToolStripMenuItem" Me.ATGesamtsicherheitVeragCSToolStripMenuItem.Size = New System.Drawing.Size(383, 22)
Me.PBNIrelandFähreToolStripMenuItem.Size = New System.Drawing.Size(257, 30) Me.ATGesamtsicherheitVeragCSToolStripMenuItem.Text = "AT | Gesamtsicherheit Verag CS"
Me.PBNIrelandFähreToolStripMenuItem.Text = "PBN (Ireland Fähre)"
'
'ToolStripSeparator20
'
Me.ToolStripSeparator20.Name = "ToolStripSeparator20"
Me.ToolStripSeparator20.Size = New System.Drawing.Size(254, 6)
' '
'frmHauptfenster 'frmHauptfenster
' '
@@ -3444,4 +3472,8 @@ Partial Class frmHauptfenster
Friend WithEvents ToolStripSeparator19 As ToolStripSeparator Friend WithEvents ToolStripSeparator19 As ToolStripSeparator
Friend WithEvents PBNIrelandFähreToolStripMenuItem As ToolStripMenuItem Friend WithEvents PBNIrelandFähreToolStripMenuItem As ToolStripMenuItem
Friend WithEvents ToolStripSeparator20 As ToolStripSeparator Friend WithEvents ToolStripSeparator20 As ToolStripSeparator
Friend WithEvents ATGesamtsicherheitVeragAGToolStripMenuItem As ToolStripMenuItem
Friend WithEvents DEGesamtsicherheitVeragGmbHToolStripMenuItem As ToolStripMenuItem
Friend WithEvents ATGesamtsicherheitIMEXCSGmbHToolStripMenuItem As ToolStripMenuItem
Friend WithEvents ATGesamtsicherheitVeragCSToolStripMenuItem As ToolStripMenuItem
End Class End Class

24
Aviso/frmHauptfenster.vb
View File

@@ -3665,6 +3665,30 @@ Public Class frmHauptfenster
Private Sub PBNIrelandFähreToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PBNIrelandFähreToolStripMenuItem.Click Private Sub PBNIrelandFähreToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PBNIrelandFähreToolStripMenuItem.Click
Process.Start("https://www.ros.ie/customs-roro-control-web/ros/pbn/create") Process.Start("https://www.ros.ie/customs-roro-control-web/ros/pbn/create")
End Sub End Sub
Private Sub ATGesamtsicherheitVeragAGToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ATGesamtsicherheitVeragAGToolStripMenuItem.Click
Dim frm As New frmGesSichMenu
frm.Standort = "VERAG AG"
frm.Show()
End Sub
Private Sub DEGesamtsicherheitVeragGmbHToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DEGesamtsicherheitVeragGmbHToolStripMenuItem.Click
Dim frm As New frmGesSichMenu
frm.Standort = "Verag GmbH"
frm.Show()
End Sub
Private Sub ATGesamtsicherheitIMEXCSGmbHToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ATGesamtsicherheitIMEXCSGmbHToolStripMenuItem.Click
Dim frm As New frmGesSichMenu
frm.Standort = "IMEX"
frm.Show()
End Sub
Private Sub ATGesamtsicherheitVeragCSToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ATGesamtsicherheitVeragCSToolStripMenuItem.Click
Dim frm As New frmGesSichMenu
frm.Standort = "Verag CS"
frm.Show()
End Sub
End Class End Class
Public Class AvisoStatusFunctions Public Class AvisoStatusFunctions