diff --git a/Aviso/Aviso - Kopie.vbproj b/Aviso/Aviso - Kopie.vbproj
new file mode 100644
index 0000000..194b0a1
--- /dev/null
+++ b/Aviso/Aviso - Kopie.vbproj
@@ -0,0 +1,1435 @@
+
+
+
+
+
+
+
+ Debug
+ x86
+
+
+ 2.0
+ {7BDD8C2F-2C9E-49F1-A365-3B1DA1C84991}
+ WinExe
+ AVISO.My.MyApplication
+ AVISO
+ AVISO
+ 512
+ WindowsForms
+ v4.7
+
+
+ false
+ D:\Andreas\Programmierung\VB\OutlookAddIN\BEREITSTELLUNG\
+ true
+ Disk
+ false
+ Foreground
+ 7
+ Days
+ false
+ false
+ true
+ 1
+ 1.0.0.%2a
+ false
+ true
+ true
+
+
+
+
+ x86
+ true
+ full
+ true
+ true
+ bin\Debug\
+ AVISO.xml
+ 41999,42016,42017,42018,42019,42020,42021,42022,42032,42036
+ false
+
+
+ x86
+ pdbonly
+ false
+ true
+ true
+ bin\Release\
+ AVISO.xml
+ 41999,42016,42017,42018,42019,42020,42021,42022,42032,42036
+ false
+
+
+ On
+
+
+ Binary
+
+
+ Off
+
+
+ On
+
+
+ aviso.ico
+
+
+ My Project\app.manifest
+
+
+ 2508FAE878AAAD6136689CC8171DC8A749727DD4
+
+
+
+
+
+
+ true
+
+
+ LocalIntranet
+
+
+ true
+
+
+ false
+
+
+ false
+
+
+
+
+ ..\packages\Portable.BouncyCastle.1.8.5\lib\net40\BouncyCastle.Crypto.dll
+
+
+ ..\..\..\dll\HMRC\ChilkatDotNet47.dll
+
+
+ ..\packages\esendex-dotnet-sdk.3.8.0\lib\net35\com.esendex.sdk.dll
+
+
+ ..\packages\Common.Logging.3.4.1\lib\net40\Common.Logging.dll
+
+
+ ..\packages\Common.Logging.Core.3.4.1\lib\net40\Common.Logging.Core.dll
+
+
+ False
+ C:\Program Files (x86)\Open XML SDK\V2.5\lib\DocumentFormat.OpenXml.dll
+ True
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ ..\packages\GrapeCity.Documents.Common.2.2.0.315\lib\net461\GrapeCity.Documents.Common.dll
+
+
+ ..\packages\GrapeCity.Documents.Imaging.2.2.0.315\lib\net461\GrapeCity.Documents.Imaging.dll
+
+
+ ..\packages\GrapeCity.Documents.Pdf.2.2.0.315\lib\net461\GrapeCity.Documents.Pdf.dll
+
+
+ ..\packages\itext7.7.1.11\lib\net40\itext.barcodes.dll
+
+
+ ..\packages\itext7.7.1.11\lib\net40\itext.forms.dll
+
+
+ ..\packages\itext7.7.1.11\lib\net40\itext.io.dll
+
+
+ ..\packages\itext7.7.1.11\lib\net40\itext.kernel.dll
+
+
+ ..\packages\itext7.7.1.11\lib\net40\itext.layout.dll
+
+
+ ..\packages\itext7.7.1.11\lib\net40\itext.pdfa.dll
+
+
+ ..\packages\itext7.7.1.11\lib\net40\itext.sign.dll
+
+
+ ..\packages\itext7.7.1.11\lib\net40\itext.styledxmlparser.dll
+
+
+ ..\packages\itext7.7.1.11\lib\net40\itext.svg.dll
+
+
+ False
+ ..\..\..\dll\itextsharp.dll
+
+
+ False
+ ..\..\..\dll\itextsharp.pdfa.dll
+
+
+
+ True
+
+
+ True
+
+
+ False
+ ..\..\..\dll\Microsoft.ReportViewer.Common.dll
+
+
+ False
+ ..\..\..\dll\Microsoft.ReportViewer.ProcessingObjectModel.dll
+
+
+ False
+ ..\..\..\dll\Microsoft.ReportViewer.WinForms.dll
+
+
+ ..\packages\Newtonsoft.Json.10.0.3\lib\net45\Newtonsoft.Json.dll
+
+
+ ..\..\..\dll\NumericBox.dll
+
+
+ False
+ ..\..\..\dll\PDF Spire\6.10\Spire.License.dll
+
+
+ False
+ ..\..\..\dll\PDF Spire\6.10\Spire.Pdf.dll
+
+
+ False
+ ..\..\..\dll\PDF Spire\6.10\Spire.PdfViewer.Forms.dll
+
+
+
+ ..\packages\System.Buffers.4.4.0\lib\netstandard2.0\System.Buffers.dll
+
+
+
+
+
+
+
+
+
+
+ ..\packages\System.Memory.4.5.0\lib\netstandard2.0\System.Memory.dll
+
+
+
+ ..\packages\System.Numerics.Vectors.4.4.0\lib\net46\System.Numerics.Vectors.dll
+
+
+ ..\packages\System.Runtime.CompilerServices.Unsafe.4.5.0\lib\netstandard2.0\System.Runtime.CompilerServices.Unsafe.dll
+
+
+
+
+ ..\packages\System.ValueTuple.4.5.0\lib\net461\System.ValueTuple.dll
+
+
+
+
+
+
+
+
+
+
+
+
+
+ ..\..\..\dll\ThoughtWorks.QRCode.dll
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ frmZuordnungKd.vb
+
+
+ Form
+
+
+ frmAddSendnung.vb
+
+
+ Form
+
+
+ frmSendungAnhangImport.vb
+
+
+ Form
+
+
+ frmSendungAnhangUmbenennenUmkateg.vb
+
+
+ Form
+
+
+ frmSendungAnhang_SendenAnSnd.vb
+
+
+ Form
+
+
+ usrCntlSendungAnhangElement.vb
+
+
+ UserControl
+
+
+
+ frmStatFrima.vb
+
+
+ Form
+
+
+ rptStat_VERIMEX_AbklTR.vb
+
+
+ Component
+
+
+ usrctlStatVERIMEX.vb
+
+
+ UserControl
+
+
+ usrctlMAUebersicht.vb
+
+
+ UserControl
+
+
+ usrctStatistik.vb
+
+
+ UserControl
+
+
+ usrctlAuswertung.vb
+
+
+ UserControl
+
+
+ rptQRAviso.vb
+
+
+ Component
+
+
+
+
+
+
+ frmPopUp.vb
+
+
+ Form
+
+
+ MyTextCheckBox.vb
+
+
+ Component
+
+
+ TransparentControl.vb
+
+
+ Component
+
+
+ SendTAB.vb
+
+
+ UserControl
+
+
+ usrcntlCheckBox.vb
+
+
+ UserControl
+
+
+ Component
+
+
+
+
+
+
+
+
+
+ frmPrintLayout.vb
+
+
+ Form
+
+
+ frmSUBWESTIIAkt.vb
+
+
+ Form
+
+
+ rptSUBWESTIIAktNEU.vb
+
+
+ Component
+
+
+ rptSUBWESTIIAkt.vb
+
+
+ Component
+
+
+ frm_eAVISO.vb
+
+
+ Form
+
+
+ frmAddAktenvermerkShort.vb
+
+
+ Form
+
+
+ frmAddSendungsvermerkShort.vb
+
+
+ Form
+
+
+ frmAnkunftAendern.vb
+
+
+ Form
+
+
+ frmAnkunftSetzen.vb
+
+
+ Form
+
+
+ frmAvisoSettings.vb
+
+
+ Form
+
+
+ frmAvisoWeiterleitenBestaetigen.vb
+
+
+ Form
+
+
+ frmAvisoWeiterleitenOLD.vb
+
+
+ Form
+
+
+ frmAvisoWeiterleiten.vb
+
+
+ Form
+
+
+ frmAviso_Vorpapiere.vb
+
+
+ Form
+
+
+ frmDokumenteSchicken.vb
+
+
+ Form
+
+
+ frmGelangensbestaetigung.vb
+
+
+ Form
+
+
+ frmHauptfenster.vb
+
+
+ Form
+
+
+ frmChangePWD.vb
+
+
+ Form
+
+
+ frmInsertVermerkFachIMEX.vb
+
+
+ Form
+
+
+ frmLKWTicketInfo.vb
+
+
+ Form
+
+
+ frmLKWTicket.vb
+
+
+ Form
+
+
+ frmLogin.vb
+
+
+ Form
+
+
+ frmAuswahl_Aviso.vb
+
+
+ Form
+
+
+ frmAuswertung.vb
+
+
+ Form
+
+
+ frmBarcodeGenerator.vb
+
+
+ Form
+
+
+ frmBundesanzeigerZollTarif.vb
+
+
+ Form
+
+
+ frmDruck.vb
+
+
+ Form
+
+
+ frmEintragAviso.vb
+
+
+ Form
+
+
+ frmEintragAvisoInfo.vb
+
+
+ Form
+
+
+ frmEintragKW.vb
+
+
+ Form
+
+
+ frmEintragOptionen.vb
+
+
+ Form
+
+
+ frmEintragStandort.vb
+
+
+ Form
+
+
+ frmEintragTV.vb
+
+
+ Form
+
+
+ frmEintragVermerk.vb
+
+
+ Form
+
+
+ frmGenerelleGestellungen.vb
+
+
+ Form
+
+
+ frmInfo.vb
+
+
+ Form
+
+
+ frmInsertVermerkFach.vb
+
+
+ Form
+
+
+ frmKundenFremdeSpedAdd.vb
+
+
+ Form
+
+
+ frmKundenFremdeSpeditionen.vb
+
+
+ Form
+
+
+ frmLKWBericht.vb
+
+
+ Form
+
+
+ frmNotify.vb
+
+
+ Form
+
+
+ frmSecretAviso.vb
+
+
+ Form
+
+
+ frmSendungsdetailsAbrechnung.vb
+
+
+ Form
+
+
+ frmSendungsDetailsAbrechnungLeistungen.vb
+
+
+ Form
+
+
+ frmSendungsdetailsNEU.vb
+
+
+ Form
+
+
+ frmTabelleStandorte.vb
+
+
+ Form
+
+
+ frmTv.vb
+
+
+ Form
+
+
+ frmWarenbezeichnungBegriffe.vb
+
+
+ Form
+
+
+ frmWarenbezeichnungBegriffeEdit.vb
+
+
+ Form
+
+
+ frmZoll.vb
+
+
+ Form
+
+
+ frmZollstopp.vb
+
+
+ Form
+
+
+
+ True
+ Application.myapp
+
+
+ True
+ True
+ Resources.resx
+
+
+ True
+ Settings.settings
+ True
+
+
+ rptAuswertung.vb
+
+
+ Component
+
+
+ rptTicketLKWInfo.vb
+
+
+ Component
+
+
+ rptTicketLKW.vb
+
+
+ Component
+
+
+ rptLKWBericht.vb
+
+
+ Component
+
+
+
+ usrcntlAktDetailsATILLANeu.vb
+
+
+ UserControl
+
+
+ usrcntlAktDetailsATILLA.vb
+
+
+ UserControl
+
+
+ usrcntlAktDetails.vb
+
+
+ UserControl
+
+
+ usrCntlAvisoAnhang.vb
+
+
+ UserControl
+
+
+ usrCntlAviso_Vorpapiere.vb
+
+
+ UserControl
+
+
+ usrCntlBenachrichtigungen.vb
+
+
+ UserControl
+
+
+ usrCntlEintragAvisoAtilla.vb
+
+
+ UserControl
+
+
+ usrcntlSendungDetailsAbrechnung.vb
+
+
+ UserControl
+
+
+ usrCntlSND_Handling.vb
+
+
+ UserControl
+
+
+ usrCntlSND_NCTSFiskalEndempf.vb
+
+
+ UserControl
+
+
+ usrCntlSND_ATBGestellung.vb
+
+
+ UserControl
+
+
+ usrCntlSND_NCTSGestellungsadresse.vb
+
+
+ UserControl
+
+
+ usrCntlVermerkeATilla.vb
+
+
+ UserControl
+
+
+
+
+ frmZuordnungKd.vb
+
+
+ frmAddSendnung.vb
+
+
+ frmSendungAnhangImport.vb
+
+
+ frmSendungAnhangUmbenennenUmkateg.vb
+
+
+ frmSendungAnhang_SendenAnSnd.vb
+
+
+ usrCntlSendungAnhangElement.vb
+
+
+ frmStatFrima.vb
+
+
+ rptStat_VERIMEX_AbklTR.vb
+
+
+ usrctlStatVERIMEX.vb
+
+
+ usrctlMAUebersicht.vb
+
+
+ usrctStatistik.vb
+
+
+ usrctlAuswertung.vb
+
+
+ rptQRAviso.vb
+
+
+ frmPopUp.vb
+
+
+ SendTAB.vb
+
+
+ usrcntlCheckBox.vb
+
+
+ frmPrintLayout.vb
+
+
+ frmSUBWESTIIAkt.vb
+
+
+ rptSUBWESTIIAktNEU.vb
+ Designer
+
+
+ rptSUBWESTIIAkt.vb
+
+
+ frm_eAVISO.vb
+
+
+ frmAddAktenvermerkShort.vb
+
+
+ frmAddSendungsvermerkShort.vb
+
+
+ frmAnkunftAendern.vb
+
+
+ frmAnkunftSetzen.vb
+
+
+ frmAvisoSettings.vb
+
+
+ frmAvisoWeiterleitenBestaetigen.vb
+
+
+ frmAvisoWeiterleitenOLD.vb
+
+
+ frmAvisoWeiterleiten.vb
+
+
+ frmAviso_Vorpapiere.vb
+
+
+ frmDokumenteSchicken.vb
+
+
+ frmGelangensbestaetigung.vb
+
+
+ frmHauptfenster.vb
+
+
+ frmChangePWD.vb
+
+
+ frmInsertVermerkFachIMEX.vb
+
+
+ frmLKWTicketInfo.vb
+
+
+ frmLKWTicket.vb
+
+
+ frmLogin.vb
+
+
+ frmAuswahl_Aviso.vb
+
+
+ frmAuswertung.vb
+
+
+ frmBarcodeGenerator.vb
+
+
+ frmBundesanzeigerZollTarif.vb
+
+
+ frmDruck.vb
+
+
+ frmEintragAviso.vb
+
+
+ frmEintragAvisoInfo.vb
+
+
+ frmEintragKW.vb
+
+
+ frmEintragOptionen.vb
+
+
+ frmEintragStandort.vb
+
+
+ frmEintragTV.vb
+
+
+ frmEintragVermerk.vb
+
+
+ frmGenerelleGestellungen.vb
+
+
+ frmInfo.vb
+
+
+ frmInsertVermerkFach.vb
+
+
+ frmKundenFremdeSpedAdd.vb
+
+
+ frmKundenFremdeSpeditionen.vb
+
+
+ frmLKWBericht.vb
+
+
+ frmNotify.vb
+
+
+ frmSecretAviso.vb
+
+
+ frmSendungsdetailsAbrechnung.vb
+
+
+ frmSendungsDetailsAbrechnungLeistungen.vb
+
+
+ frmSendungsdetailsNEU.vb
+ Designer
+
+
+ frmTabelleStandorte.vb
+
+
+ frmTv.vb
+
+
+ frmWarenbezeichnungBegriffe.vb
+
+
+ frmWarenbezeichnungBegriffeEdit.vb
+
+
+ frmZoll.vb
+
+
+ frmZollstopp.vb
+
+
+
+ VbMyResourcesResXFileCodeGenerator
+ My.Resources
+ Designer
+ Resources.Designer.vb
+
+
+ rptAuswertung.vb
+
+
+ rptTicketLKWInfo.vb
+
+
+ rptTicketLKW.vb
+
+
+ rptLKWBericht.vb
+
+
+ usrcntlAktDetailsATILLANeu.vb
+
+
+ usrcntlAktDetailsATILLA.vb
+
+
+ usrcntlAktDetails.vb
+
+
+ usrCntlAvisoAnhang.vb
+
+
+ usrCntlAviso_Vorpapiere.vb
+
+
+ usrCntlBenachrichtigungen.vb
+
+
+ usrCntlEintragAvisoAtilla.vb
+
+
+ usrcntlSendungDetailsAbrechnung.vb
+
+
+ usrCntlSND_Handling.vb
+
+
+ usrCntlSND_NCTSFiskalEndempf.vb
+
+
+ usrCntlSND_ATBGestellung.vb
+
+
+ usrCntlSND_NCTSGestellungsadresse.vb
+
+
+ usrCntlVermerkeATilla.vb
+
+
+
+
+
+
+ Component
+
+
+ Always
+
+
+
+ MyApplicationCodeGenerator
+ Application.Designer.vb
+ Designer
+
+
+ SettingsSingleFileGenerator
+ My
+ Settings.Designer.vb
+
+
+
+
+
+
+
+ Always
+
+
+
+
+
+ Always
+
+
+
+
+
+ {2bbd7643-82a1-481f-a014-eb7fcdeed3b5}
+ NCTSPartnerWorker
+
+
+ {50e8e49b-4fd9-4dd4-b159-bdc2b7d0e94f}
+ DAKOSY_Worker_lib
+
+
+ {5b947a66-009a-4bb6-b925-f84a01045095}
+ TELOTEC_Worker_lib
+
+
+ {289bcd77-bc00-4ba1-95ed-a79176d99525}
+ SDL
+
+
+ {a3b497bd-842c-4a2b-b398-ed1976849df1}
+ VERAG_PROG_ALLGEMEIN
+
+
+ {110c923b-cb02-4fd0-af24-95e0f0eeeff5}
+ Gemeinsames
+
+
+
+
+ False
+ Microsoft .NET Framework 4 Client Profile %28x86 und x64%29
+ true
+
+
+ False
+ .NET Framework 3.5 SP1 Client Profile
+ false
+
+
+ False
+ .NET Framework 3.5 SP1
+ false
+
+
+ False
+ Windows Installer 4.5
+ true
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ Always
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ Always
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ Always
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ Always
+
+
+ Always
+
+
+ Always
+
+
+ Always
+
+
+
+
+ Always
+
+
+
+ Always
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ {2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}
+ 2
+ 7
+ 0
+ primary
+ False
+ True
+
+
+ {00020905-0000-0000-C000-000000000046}
+ 8
+ 6
+ 0
+ primary
+ False
+ True
+
+
+ {37687F89-8603-4E42-A5F4-4FBAB011D5F3}
+ 3
+ 0
+ 0
+ tlbimp
+ False
+ True
+
+
+ {0002E157-0000-0000-C000-000000000046}
+ 5
+ 3
+ 0
+ primary
+ False
+ True
+
+
+
+
+
+
+
+
+
+ D:\Andreas\Programmierung\VB\Zertifikate\signtool.exe sign /f D:\Andreas\Programmierung\VB\Zertifikate\Zert_20092019.pfx /p BmWr501956 "Aviso.exe"
+
+
+
+ Dieses Projekt verweist auf mindestens ein NuGet-Paket, das auf diesem Computer fehlt. Verwenden Sie die Wiederherstellung von NuGet-Paketen, um die fehlenden Dateien herunterzuladen. Weitere Informationen finden Sie unter "http://go.microsoft.com/fwlink/?LinkID=322105". Die fehlende Datei ist "{0}".
+
+
+
+
+
+
+
+
+
+
+
+
\ No newline at end of file
diff --git a/Aviso/Aviso.vbproj b/Aviso/Aviso.vbproj
index 797236e..c68e9eb 100644
--- a/Aviso/Aviso.vbproj
+++ b/Aviso/Aviso.vbproj
@@ -21,6 +21,8 @@
false
+
+
D:\Andreas\Programmierung\VB\OutlookAddIN\BEREITSTELLUNG\
true
Disk
@@ -36,8 +38,6 @@
false
true
true
-
-
x86
@@ -493,6 +493,18 @@
Form
+
+ frmGesSich.vb
+
+
+ Form
+
+
+ frmGesSichMenu.vb
+
+
+ Form
+
frmHauptfenster.vb
@@ -920,6 +932,12 @@
frmGelangensbestaetigung.vb
+
+ frmGesSich.vb
+
+
+ frmGesSichMenu.vb
+
frmHauptfenster.vb
diff --git a/Aviso/My Project/Resources.Designer.vb b/Aviso/My Project/Resources.Designer.vb
index 48153df..c6b958a 100644
--- a/Aviso/My Project/Resources.Designer.vb
+++ b/Aviso/My Project/Resources.Designer.vb
@@ -1489,7 +1489,7 @@ Namespace My.Resources
End Property
'''
- ''' Sucht eine lokalisierte Zeichenfolge, die 3.6.0.8 ähnelt.
+ ''' Sucht eine lokalisierte Zeichenfolge, die 4.6.0.8 ähnelt.
'''
Friend ReadOnly Property Version() As String
Get
diff --git a/Aviso/My Project/Resources.resx b/Aviso/My Project/Resources.resx
index a03c3bd..dbaae4b 100644
--- a/Aviso/My Project/Resources.resx
+++ b/Aviso/My Project/Resources.resx
@@ -536,7 +536,7 @@
..\Resources\plus.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a
- 3.6.0.8
+ 4.6.0.8
..\Resources\statusBtn_vorgeschrieben_Aktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a
diff --git a/Aviso/Resources/plus2.png b/Aviso/Resources/plus2.png
new file mode 100644
index 0000000..a9f8289
Binary files /dev/null and b/Aviso/Resources/plus2.png differ
diff --git a/Aviso/frmGesSich.Designer.vb b/Aviso/frmGesSich.Designer.vb
new file mode 100644
index 0000000..3d84b8c
--- /dev/null
+++ b/Aviso/frmGesSich.Designer.vb
@@ -0,0 +1,830 @@
+
+Partial Class frmGesSich
+ Inherits System.Windows.Forms.Form
+
+ 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
+
+ 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.
+
+ 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
diff --git a/Aviso/frmGesSich.resx b/Aviso/frmGesSich.resx
new file mode 100644
index 0000000..428f736
--- /dev/null
+++ b/Aviso/frmGesSich.resx
@@ -0,0 +1,197 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ text/microsoft-resx
+
+
+ 2.0
+
+
+ System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
+
+
+ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
+
+
+
+
+ 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=
+
+
+
\ No newline at end of file
diff --git a/Aviso/frmGesSich.vb b/Aviso/frmGesSich.vb
new file mode 100644
index 0000000..5821a5a
--- /dev/null
+++ b/Aviso/frmGesSich.vb
@@ -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
\ No newline at end of file
diff --git a/Aviso/frmGesSichMenu.Designer.vb b/Aviso/frmGesSichMenu.Designer.vb
new file mode 100644
index 0000000..b3dbbaa
--- /dev/null
+++ b/Aviso/frmGesSichMenu.Designer.vb
@@ -0,0 +1,326 @@
+ _
+Partial Class frmGesSichMenu
+ Inherits System.Windows.Forms.Form
+
+ 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
+ _
+ 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.
+ _
+ 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
diff --git a/Aviso/frmGesSichMenu.resx b/Aviso/frmGesSichMenu.resx
new file mode 100644
index 0000000..2cbc5c2
--- /dev/null
+++ b/Aviso/frmGesSichMenu.resx
@@ -0,0 +1,200 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ text/microsoft-resx
+
+
+ 2.0
+
+
+ System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
+
+
+ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
+
+
+ 17, 17
+
+
+
+
+ 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=
+
+
+
\ No newline at end of file
diff --git a/Aviso/frmGesSichMenu.vb b/Aviso/frmGesSichMenu.vb
new file mode 100644
index 0000000..7ffe33d
--- /dev/null
+++ b/Aviso/frmGesSichMenu.vb
@@ -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
\ No newline at end of file
diff --git a/Aviso/frmHauptfenster.Designer.vb b/Aviso/frmHauptfenster.Designer.vb
index 66bcf71..ed8ad47 100644
--- a/Aviso/frmHauptfenster.Designer.vb
+++ b/Aviso/frmHauptfenster.Designer.vb
@@ -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
diff --git a/Aviso/frmHauptfenster.vb b/Aviso/frmHauptfenster.vb
index 125ed8c..c25832a 100644
--- a/Aviso/frmHauptfenster.vb
+++ b/Aviso/frmHauptfenster.vb
@@ -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