Gesamtsicherheit 1.0
This commit is contained in:
1435
Aviso/Aviso - Kopie.vbproj
Normal file
1435
Aviso/Aviso - Kopie.vbproj
Normal file
File diff suppressed because it is too large
Load Diff
@@ -21,6 +21,8 @@
|
||||
<TargetFrameworkProfile>
|
||||
</TargetFrameworkProfile>
|
||||
<IsWebBootstrapper>false</IsWebBootstrapper>
|
||||
<NuGetPackageImportStamp>
|
||||
</NuGetPackageImportStamp>
|
||||
<PublishUrl>D:\Andreas\Programmierung\VB\OutlookAddIN\BEREITSTELLUNG\</PublishUrl>
|
||||
<Install>true</Install>
|
||||
<InstallFrom>Disk</InstallFrom>
|
||||
@@ -36,8 +38,6 @@
|
||||
<UseApplicationTrust>false</UseApplicationTrust>
|
||||
<PublishWizardCompleted>true</PublishWizardCompleted>
|
||||
<BootstrapperEnabled>true</BootstrapperEnabled>
|
||||
<NuGetPackageImportStamp>
|
||||
</NuGetPackageImportStamp>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|x86' ">
|
||||
<PlatformTarget>x86</PlatformTarget>
|
||||
@@ -493,6 +493,18 @@
|
||||
<Compile Include="frmGelangensbestaetigung.vb">
|
||||
<SubType>Form</SubType>
|
||||
</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">
|
||||
<DependentUpon>frmHauptfenster.vb</DependentUpon>
|
||||
</Compile>
|
||||
@@ -920,6 +932,12 @@
|
||||
<EmbeddedResource Include="frmGelangensbestaetigung.resx">
|
||||
<DependentUpon>frmGelangensbestaetigung.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="frmGesSich.resx">
|
||||
<DependentUpon>frmGesSich.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="frmGesSichMenu.resx">
|
||||
<DependentUpon>frmGesSichMenu.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="frmHauptfenster.resx">
|
||||
<DependentUpon>frmHauptfenster.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
|
||||
2
Aviso/My Project/Resources.Designer.vb
generated
2
Aviso/My Project/Resources.Designer.vb
generated
@@ -1489,7 +1489,7 @@ Namespace My.Resources
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Sucht eine lokalisierte Zeichenfolge, die 3.6.0.8 ähnelt.
|
||||
''' Sucht eine lokalisierte Zeichenfolge, die 4.6.0.8 ähnelt.
|
||||
'''</summary>
|
||||
Friend ReadOnly Property Version() As String
|
||||
Get
|
||||
|
||||
@@ -536,7 +536,7 @@
|
||||
<value>..\Resources\plus.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="Version" xml:space="preserve">
|
||||
<value>3.6.0.8</value>
|
||||
<value>4.6.0.8</value>
|
||||
</data>
|
||||
<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>
|
||||
|
||||
BIN
Aviso/Resources/plus2.png
Normal file
BIN
Aviso/Resources/plus2.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 1.0 KiB |
830
Aviso/frmGesSich.Designer.vb
generated
Normal file
830
Aviso/frmGesSich.Designer.vb
generated
Normal 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
197
Aviso/frmGesSich.resx
Normal 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
633
Aviso/frmGesSich.vb
Normal 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
326
Aviso/frmGesSichMenu.Designer.vb
generated
Normal 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
200
Aviso/frmGesSichMenu.resx
Normal 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
282
Aviso/frmGesSichMenu.vb
Normal 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
154
Aviso/frmHauptfenster.Designer.vb
generated
@@ -113,6 +113,9 @@ Partial Class frmHauptfenster
|
||||
Me.SDLAbholaufträgeToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.ToolStripMenuItem13 = 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.LKWBerichtToolStripMenuItem = 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.FREnveloppeSmartBorderToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
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.ATFormularZa282ToolStripMenuItem = 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.Timer_REFRESH = New System.Windows.Forms.Timer(Me.components)
|
||||
Me.UsrCntlTestsystem1 = New VERAG_PROG_ALLGEMEIN.usrCntlTestsystem()
|
||||
Me.PBNIrelandFähreToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.ToolStripSeparator20 = New System.Windows.Forms.ToolStripSeparator()
|
||||
Me.ATGesamtsicherheitVeragCSToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.conMenuAviso.SuspendLayout()
|
||||
Me.MenuStrip1.SuspendLayout()
|
||||
Me.Top.SuspendLayout()
|
||||
@@ -365,7 +369,7 @@ Partial Class frmHauptfenster
|
||||
'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"
|
||||
'
|
||||
'conMenuAviso
|
||||
@@ -373,64 +377,64 @@ Partial Class frmHauptfenster
|
||||
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.Name = "conMenuTage"
|
||||
Me.conMenuAviso.Size = New System.Drawing.Size(287, 198)
|
||||
Me.conMenuAviso.Size = New System.Drawing.Size(285, 198)
|
||||
'
|
||||
'ToolStripSeparator5
|
||||
'
|
||||
Me.ToolStripSeparator5.Name = "ToolStripSeparator5"
|
||||
Me.ToolStripSeparator5.Size = New System.Drawing.Size(283, 6)
|
||||
Me.ToolStripSeparator5.Size = New System.Drawing.Size(281, 6)
|
||||
'
|
||||
'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"
|
||||
'
|
||||
'ToolStripSeparator1
|
||||
'
|
||||
Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
|
||||
Me.ToolStripSeparator1.Size = New System.Drawing.Size(283, 6)
|
||||
Me.ToolStripSeparator1.Size = New System.Drawing.Size(281, 6)
|
||||
'
|
||||
'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"
|
||||
'
|
||||
'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.Visible = False
|
||||
'
|
||||
'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"
|
||||
'
|
||||
'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"
|
||||
'
|
||||
'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"
|
||||
'
|
||||
'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
|
||||
'
|
||||
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"
|
||||
'
|
||||
'MenuStrip1
|
||||
@@ -593,43 +597,43 @@ Partial Class frmHauptfenster
|
||||
'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"
|
||||
'
|
||||
'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"
|
||||
'
|
||||
'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"
|
||||
'
|
||||
'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"
|
||||
'
|
||||
'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"
|
||||
'
|
||||
'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"
|
||||
'
|
||||
'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"
|
||||
'
|
||||
'StandortWechselnToolStripMenuItem
|
||||
@@ -687,13 +691,13 @@ Partial Class frmHauptfenster
|
||||
'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"
|
||||
'
|
||||
'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"
|
||||
'
|
||||
'NacherfassungToolStripMenuItem
|
||||
@@ -724,7 +728,7 @@ Partial Class frmHauptfenster
|
||||
'
|
||||
'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.Size = New System.Drawing.Size(79, 20)
|
||||
Me.FunktionenToolStripMenuItem.Text = "Funktionen"
|
||||
@@ -877,6 +881,24 @@ Partial Class frmHauptfenster
|
||||
Me.VorauskassenToolStripMenuItem.Size = New System.Drawing.Size(383, 22)
|
||||
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
|
||||
'
|
||||
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
|
||||
'
|
||||
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"
|
||||
'
|
||||
'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"
|
||||
'
|
||||
'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"
|
||||
'
|
||||
'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"
|
||||
'
|
||||
'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"
|
||||
'
|
||||
'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.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.Visible = False
|
||||
'
|
||||
@@ -1142,128 +1164,140 @@ Partial Class frmHauptfenster
|
||||
'
|
||||
Me.GVMSUKIMportToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.weiterleiten_small1
|
||||
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)"
|
||||
'
|
||||
'GVMSBeschreibungToolStripMenuItem
|
||||
'
|
||||
Me.GVMSBeschreibungToolStripMenuItem.Enabled = False
|
||||
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"
|
||||
'
|
||||
'ToolStripSeparator14
|
||||
'
|
||||
Me.ToolStripSeparator14.Name = "ToolStripSeparator14"
|
||||
Me.ToolStripSeparator14.Size = New System.Drawing.Size(254, 6)
|
||||
Me.ToolStripSeparator14.Size = New System.Drawing.Size(245, 6)
|
||||
'
|
||||
'TicketIBFInlandBorderFacilitiesToolStripMenuItem
|
||||
'
|
||||
Me.TicketIBFInlandBorderFacilitiesToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.weiterleiten_small1
|
||||
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)"
|
||||
'
|
||||
'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"
|
||||
'
|
||||
'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"
|
||||
'
|
||||
'ToolStripSeparator15
|
||||
'
|
||||
Me.ToolStripSeparator15.Name = "ToolStripSeparator15"
|
||||
Me.ToolStripSeparator15.Size = New System.Drawing.Size(254, 6)
|
||||
Me.ToolStripSeparator15.Size = New System.Drawing.Size(245, 6)
|
||||
'
|
||||
'FREnveloppeSmartBorderToolStripMenuItem
|
||||
'
|
||||
Me.FREnveloppeSmartBorderToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.weiterleiten_small1
|
||||
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)"
|
||||
'
|
||||
'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
|
||||
'
|
||||
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.Size = New System.Drawing.Size(257, 30)
|
||||
Me.WARENORTToolStripMenuItem.Size = New System.Drawing.Size(248, 22)
|
||||
Me.WARENORTToolStripMenuItem.Text = "REX"
|
||||
'
|
||||
'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"
|
||||
'
|
||||
'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"
|
||||
'
|
||||
'ToolStripSeparator17
|
||||
'
|
||||
Me.ToolStripSeparator17.Name = "ToolStripSeparator17"
|
||||
Me.ToolStripSeparator17.Size = New System.Drawing.Size(170, 6)
|
||||
Me.ToolStripSeparator17.Size = New System.Drawing.Size(169, 6)
|
||||
'
|
||||
'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"
|
||||
'
|
||||
'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"
|
||||
'
|
||||
'ToolStripMenuItem14
|
||||
'
|
||||
Me.ToolStripMenuItem14.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem16, Me.ToolStripSeparator19})
|
||||
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"
|
||||
'
|
||||
'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"
|
||||
'
|
||||
'ToolStripSeparator19
|
||||
'
|
||||
Me.ToolStripSeparator19.Name = "ToolStripSeparator19"
|
||||
Me.ToolStripSeparator19.Size = New System.Drawing.Size(170, 6)
|
||||
Me.ToolStripSeparator19.Size = New System.Drawing.Size(169, 6)
|
||||
'
|
||||
'ToolStripSeparator18
|
||||
'
|
||||
Me.ToolStripSeparator18.Name = "ToolStripSeparator18"
|
||||
Me.ToolStripSeparator18.Size = New System.Drawing.Size(254, 6)
|
||||
Me.ToolStripSeparator18.Size = New System.Drawing.Size(245, 6)
|
||||
'
|
||||
'EORIUKGeneriertenToolStripMenuItem
|
||||
'
|
||||
Me.EORIUKGeneriertenToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.fragezeichen1
|
||||
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"
|
||||
'
|
||||
'KAPKentAccessPermitToolStripMenuItem
|
||||
'
|
||||
Me.KAPKentAccessPermitToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.fragezeichen
|
||||
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)"
|
||||
'
|
||||
'mnuFragezeichen
|
||||
@@ -3071,17 +3105,11 @@ Partial Class frmHauptfenster
|
||||
Me.UsrCntlTestsystem1.Size = New System.Drawing.Size(152, 28)
|
||||
Me.UsrCntlTestsystem1.TabIndex = 8
|
||||
'
|
||||
'PBNIrelandFähreToolStripMenuItem
|
||||
'ATGesamtsicherheitVeragCSToolStripMenuItem
|
||||
'
|
||||
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(257, 30)
|
||||
Me.PBNIrelandFähreToolStripMenuItem.Text = "PBN (Ireland Fähre)"
|
||||
'
|
||||
'ToolStripSeparator20
|
||||
'
|
||||
Me.ToolStripSeparator20.Name = "ToolStripSeparator20"
|
||||
Me.ToolStripSeparator20.Size = New System.Drawing.Size(254, 6)
|
||||
Me.ATGesamtsicherheitVeragCSToolStripMenuItem.Name = "ATGesamtsicherheitVeragCSToolStripMenuItem"
|
||||
Me.ATGesamtsicherheitVeragCSToolStripMenuItem.Size = New System.Drawing.Size(383, 22)
|
||||
Me.ATGesamtsicherheitVeragCSToolStripMenuItem.Text = "AT | Gesamtsicherheit Verag CS"
|
||||
'
|
||||
'frmHauptfenster
|
||||
'
|
||||
@@ -3444,4 +3472,8 @@ Partial Class frmHauptfenster
|
||||
Friend WithEvents ToolStripSeparator19 As ToolStripSeparator
|
||||
Friend WithEvents PBNIrelandFähreToolStripMenuItem As ToolStripMenuItem
|
||||
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
|
||||
|
||||
@@ -3665,6 +3665,30 @@ Public Class frmHauptfenster
|
||||
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")
|
||||
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
|
||||
|
||||
Public Class AvisoStatusFunctions
|
||||
|
||||
Reference in New Issue
Block a user