From ec89c98b9ddac432d45d764023359cac68b4ae04 Mon Sep 17 00:00:00 2001 From: Andreas Luxbauer Date: Wed, 26 Nov 2025 09:01:02 +0100 Subject: [PATCH] =?UTF-8?q?Vertr=C3=A4ge=20Suche?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Aviso/ATEZ/frmATEZ_EZA.Designer.vb | 277 ++++++++++++++++++----------- Aviso/ATEZ/frmATEZ_EZA.vb | 49 ++--- Aviso/My Project/AssemblyInfo.vb | 4 +- Aviso/frmHauptfenster.Designer.vb | 146 ++++++++------- Aviso/frmHauptfenster.vb | 5 +- 5 files changed, 283 insertions(+), 198 deletions(-) diff --git a/Aviso/ATEZ/frmATEZ_EZA.Designer.vb b/Aviso/ATEZ/frmATEZ_EZA.Designer.vb index 56cadcc..e66573f 100644 --- a/Aviso/ATEZ/frmATEZ_EZA.Designer.vb +++ b/Aviso/ATEZ/frmATEZ_EZA.Designer.vb @@ -28,21 +28,26 @@ Partial Class frmATEZ_EZA Me.pnlHead = New System.Windows.Forms.Panel() Me.lblInfo = New System.Windows.Forms.Label() Me.Label8 = New System.Windows.Forms.Label() - Me.cboStammreferenz = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.txtLKWId = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label3 = New System.Windows.Forms.Label() Me.Label9 = New System.Windows.Forms.Label() - Me.sbAdressierteZollstelle = New VERAG_PROG_ALLGEMEIN.MySearchBox() Me.txtDyMandant = New System.Windows.Forms.Label() Me.Label1 = New System.Windows.Forms.Label() Me.txtDyNiederlassung = New System.Windows.Forms.Label() Me.lblBezugsnummer = New System.Windows.Forms.Label() Me.Button3 = New System.Windows.Forms.Button() Me.Label6 = New System.Windows.Forms.Label() - Me.dgvAnhaenge = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) - Me.columnName = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.lblAnh = New System.Windows.Forms.Label() Me.Button1 = New System.Windows.Forms.Button() + Me.btnAgg_Tnr = New System.Windows.Forms.Button() + Me.Label2 = New System.Windows.Forms.Label() + Me.btnAgg_Origin = New System.Windows.Forms.Button() + Me.btnAgg_Unit = New System.Windows.Forms.Button() + Me.btnAgg_desc = New System.Windows.Forms.Button() + Me.cboStammreferenz = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.txtLKWId = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.sbAdressierteZollstelle = New VERAG_PROG_ALLGEMEIN.MySearchBox() + Me.dgvAnhaenge = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) + Me.columnName = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.pnlHead.SuspendLayout() CType(Me.dgvAnhaenge, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() @@ -56,7 +61,7 @@ Partial Class frmATEZ_EZA Me.btnSend.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.btnSend.Image = Global.AVISO.My.Resources.Resources.Declarant Me.btnSend.ImageAlign = System.Drawing.ContentAlignment.TopCenter - Me.btnSend.Location = New System.Drawing.Point(395, 348) + Me.btnSend.Location = New System.Drawing.Point(486, 348) Me.btnSend.Margin = New System.Windows.Forms.Padding(2) Me.btnSend.Name = "btnSend" Me.btnSend.Size = New System.Drawing.Size(192, 58) @@ -82,7 +87,7 @@ Partial Class frmATEZ_EZA Me.pnlHead.Controls.Add(Me.lblBezugsnummer) Me.pnlHead.Location = New System.Drawing.Point(3, 2) Me.pnlHead.Name = "pnlHead" - Me.pnlHead.Size = New System.Drawing.Size(584, 151) + Me.pnlHead.Size = New System.Drawing.Size(675, 151) Me.pnlHead.TabIndex = 112 ' 'lblInfo @@ -98,13 +103,161 @@ Partial Class frmATEZ_EZA ' Me.Label8.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.Label8.AutoSize = True - Me.Label8.Location = New System.Drawing.Point(9, 61) + Me.Label8.Location = New System.Drawing.Point(10, 61) Me.Label8.Name = "Label8" Me.Label8.Size = New System.Drawing.Size(80, 13) Me.Label8.TabIndex = 146 Me.Label8.Text = "Stammreferenz:" Me.Label8.TextAlign = System.Drawing.ContentAlignment.TopRight ' + 'Label3 + ' + Me.Label3.Location = New System.Drawing.Point(10, 91) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(103, 17) + Me.Label3.TabIndex = 113 + Me.Label3.Text = "LKW-KZ:" + ' + 'Label9 + ' + Me.Label9.Location = New System.Drawing.Point(10, 117) + Me.Label9.Name = "Label9" + Me.Label9.Size = New System.Drawing.Size(103, 17) + Me.Label9.TabIndex = 110 + Me.Label9.Text = "Adressierte-Zollstelle:" + ' + 'txtDyMandant + ' + Me.txtDyMandant.BackColor = System.Drawing.Color.White + Me.txtDyMandant.Location = New System.Drawing.Point(2, 7) + Me.txtDyMandant.Name = "txtDyMandant" + Me.txtDyMandant.Size = New System.Drawing.Size(44, 13) + Me.txtDyMandant.TabIndex = 109 + Me.txtDyMandant.Text = "VERG" + Me.txtDyMandant.TextAlign = System.Drawing.ContentAlignment.TopRight + ' + 'Label1 + ' + Me.Label1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.Label1.AutoSize = True + Me.Label1.BackColor = System.Drawing.Color.White + Me.Label1.Location = New System.Drawing.Point(387, 20) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(82, 13) + Me.Label1.TabIndex = 106 + Me.Label1.Text = "Bezugsnummer:" + ' + 'txtDyNiederlassung + ' + Me.txtDyNiederlassung.BackColor = System.Drawing.Color.White + Me.txtDyNiederlassung.Location = New System.Drawing.Point(52, 7) + Me.txtDyNiederlassung.Name = "txtDyNiederlassung" + Me.txtDyNiederlassung.Size = New System.Drawing.Size(45, 12) + Me.txtDyNiederlassung.TabIndex = 108 + Me.txtDyNiederlassung.Text = "SUB" + ' + 'lblBezugsnummer + ' + Me.lblBezugsnummer.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lblBezugsnummer.BackColor = System.Drawing.Color.White + Me.lblBezugsnummer.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblBezugsnummer.Location = New System.Drawing.Point(475, 14) + Me.lblBezugsnummer.Name = "lblBezugsnummer" + Me.lblBezugsnummer.Size = New System.Drawing.Size(193, 23) + Me.lblBezugsnummer.TabIndex = 107 + Me.lblBezugsnummer.Text = "4800/000000/17 AAA" + Me.lblBezugsnummer.TextAlign = System.Drawing.ContentAlignment.MiddleRight + ' + 'Button3 + ' + Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button3.Location = New System.Drawing.Point(473, 159) + Me.Button3.Name = "Button3" + Me.Button3.Size = New System.Drawing.Size(205, 23) + Me.Button3.TabIndex = 152 + Me.Button3.Text = "alle Anhänge auswählen" + Me.Button3.UseVisualStyleBackColor = True + ' + 'Label6 + ' + Me.Label6.Location = New System.Drawing.Point(9, 168) + Me.Label6.Name = "Label6" + Me.Label6.Size = New System.Drawing.Size(135, 13) + Me.Label6.TabIndex = 147 + Me.Label6.Text = "Dokumente:" + ' + 'lblAnh + ' + Me.lblAnh.Location = New System.Drawing.Point(332, 168) + Me.lblAnh.Name = "lblAnh" + Me.lblAnh.Size = New System.Drawing.Size(135, 13) + Me.lblAnh.TabIndex = 151 + Me.lblAnh.Visible = False + ' + 'Button1 + ' + Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button1.Location = New System.Drawing.Point(3, 383) + Me.Button1.Name = "Button1" + Me.Button1.Size = New System.Drawing.Size(178, 23) + Me.Button1.TabIndex = 153 + Me.Button1.Text = "Clear Token Cache" + Me.Button1.UseVisualStyleBackColor = True + ' + 'btnAgg_Tnr + ' + Me.btnAgg_Tnr.BackColor = System.Drawing.Color.DeepSkyBlue + Me.btnAgg_Tnr.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnAgg_Tnr.Location = New System.Drawing.Point(71, 344) + Me.btnAgg_Tnr.Name = "btnAgg_Tnr" + Me.btnAgg_Tnr.Size = New System.Drawing.Size(83, 23) + Me.btnAgg_Tnr.TabIndex = 154 + Me.btnAgg_Tnr.Tag = "1" + Me.btnAgg_Tnr.Text = "Tarifnummer" + Me.btnAgg_Tnr.UseVisualStyleBackColor = False + ' + 'Label2 + ' + Me.Label2.Location = New System.Drawing.Point(6, 350) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(103, 17) + Me.Label2.TabIndex = 149 + Me.Label2.Text = "Aggregieren:" + ' + 'btnAgg_Origin + ' + Me.btnAgg_Origin.BackColor = System.Drawing.Color.DeepSkyBlue + Me.btnAgg_Origin.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnAgg_Origin.Location = New System.Drawing.Point(160, 344) + Me.btnAgg_Origin.Name = "btnAgg_Origin" + Me.btnAgg_Origin.Size = New System.Drawing.Size(90, 23) + Me.btnAgg_Origin.TabIndex = 155 + Me.btnAgg_Origin.Tag = "1" + Me.btnAgg_Origin.Text = "Ursprungsland" + Me.btnAgg_Origin.UseVisualStyleBackColor = False + ' + 'btnAgg_Unit + ' + Me.btnAgg_Unit.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnAgg_Unit.Location = New System.Drawing.Point(255, 344) + Me.btnAgg_Unit.Name = "btnAgg_Unit" + Me.btnAgg_Unit.Size = New System.Drawing.Size(79, 23) + Me.btnAgg_Unit.TabIndex = 156 + Me.btnAgg_Unit.Tag = "0" + Me.btnAgg_Unit.Text = "Maßeinheit" + Me.btnAgg_Unit.UseVisualStyleBackColor = True + ' + 'btnAgg_desc + ' + Me.btnAgg_desc.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnAgg_desc.Location = New System.Drawing.Point(340, 344) + Me.btnAgg_desc.Name = "btnAgg_desc" + Me.btnAgg_desc.Size = New System.Drawing.Size(126, 23) + Me.btnAgg_desc.TabIndex = 157 + Me.btnAgg_desc.Tag = "0" + Me.btnAgg_desc.Text = "Warenbeschreibung" + Me.btnAgg_desc.UseVisualStyleBackColor = True + ' 'cboStammreferenz ' Me.cboStammreferenz._allowedValuesFreiText = Nothing @@ -144,22 +297,6 @@ Partial Class frmATEZ_EZA Me.txtLKWId.Size = New System.Drawing.Size(255, 23) Me.txtLKWId.TabIndex = 144 ' - 'Label3 - ' - Me.Label3.Location = New System.Drawing.Point(10, 91) - Me.Label3.Name = "Label3" - Me.Label3.Size = New System.Drawing.Size(103, 17) - Me.Label3.TabIndex = 113 - Me.Label3.Text = "LKW-KZ:" - ' - 'Label9 - ' - Me.Label9.Location = New System.Drawing.Point(10, 117) - Me.Label9.Name = "Label9" - Me.Label9.Size = New System.Drawing.Size(103, 17) - Me.Label9.TabIndex = 110 - Me.Label9.Text = "Adressierte-Zollstelle:" - ' 'sbAdressierteZollstelle ' Me.sbAdressierteZollstelle._allowFreitext = False @@ -186,66 +323,6 @@ Partial Class frmATEZ_EZA Me.sbAdressierteZollstelle.TabIndex = 111 Me.sbAdressierteZollstelle.usrcntl = Nothing ' - 'txtDyMandant - ' - Me.txtDyMandant.BackColor = System.Drawing.Color.White - Me.txtDyMandant.Location = New System.Drawing.Point(2, 7) - Me.txtDyMandant.Name = "txtDyMandant" - Me.txtDyMandant.Size = New System.Drawing.Size(44, 13) - Me.txtDyMandant.TabIndex = 109 - Me.txtDyMandant.Text = "VERG" - Me.txtDyMandant.TextAlign = System.Drawing.ContentAlignment.TopRight - ' - 'Label1 - ' - Me.Label1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.Label1.AutoSize = True - Me.Label1.BackColor = System.Drawing.Color.White - Me.Label1.Location = New System.Drawing.Point(296, 20) - Me.Label1.Name = "Label1" - Me.Label1.Size = New System.Drawing.Size(82, 13) - Me.Label1.TabIndex = 106 - Me.Label1.Text = "Bezugsnummer:" - ' - 'txtDyNiederlassung - ' - Me.txtDyNiederlassung.BackColor = System.Drawing.Color.White - Me.txtDyNiederlassung.Location = New System.Drawing.Point(52, 7) - Me.txtDyNiederlassung.Name = "txtDyNiederlassung" - Me.txtDyNiederlassung.Size = New System.Drawing.Size(45, 12) - Me.txtDyNiederlassung.TabIndex = 108 - Me.txtDyNiederlassung.Text = "SUB" - ' - 'lblBezugsnummer - ' - Me.lblBezugsnummer.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.lblBezugsnummer.BackColor = System.Drawing.Color.White - Me.lblBezugsnummer.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.lblBezugsnummer.Location = New System.Drawing.Point(384, 14) - Me.lblBezugsnummer.Name = "lblBezugsnummer" - Me.lblBezugsnummer.Size = New System.Drawing.Size(193, 23) - Me.lblBezugsnummer.TabIndex = 107 - Me.lblBezugsnummer.Text = "4800/000000/17 AAA" - Me.lblBezugsnummer.TextAlign = System.Drawing.ContentAlignment.MiddleRight - ' - 'Button3 - ' - Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button3.Location = New System.Drawing.Point(409, 159) - Me.Button3.Name = "Button3" - Me.Button3.Size = New System.Drawing.Size(178, 23) - Me.Button3.TabIndex = 152 - Me.Button3.Text = "alle Anhänge auswählen" - Me.Button3.UseVisualStyleBackColor = True - ' - 'Label6 - ' - Me.Label6.Location = New System.Drawing.Point(9, 168) - Me.Label6.Name = "Label6" - Me.Label6.Size = New System.Drawing.Size(135, 13) - Me.Label6.TabIndex = 147 - Me.Label6.Text = "Dokumente:" - ' 'dgvAnhaenge ' Me.dgvAnhaenge.AKTUALISIERUNGS_INTERVALL = -1 @@ -261,7 +338,7 @@ Partial Class frmATEZ_EZA Me.dgvAnhaenge.ReadOnly = True Me.dgvAnhaenge.RowHeadersVisible = False Me.dgvAnhaenge.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect - Me.dgvAnhaenge.Size = New System.Drawing.Size(584, 158) + Me.dgvAnhaenge.Size = New System.Drawing.Size(675, 158) Me.dgvAnhaenge.TabIndex = 112 ' 'columnName @@ -271,30 +348,17 @@ Partial Class frmATEZ_EZA Me.columnName.Name = "columnName" Me.columnName.ReadOnly = True ' - 'lblAnh - ' - Me.lblAnh.Location = New System.Drawing.Point(0, 345) - Me.lblAnh.Name = "lblAnh" - Me.lblAnh.Size = New System.Drawing.Size(135, 13) - Me.lblAnh.TabIndex = 151 - Me.lblAnh.Visible = False - ' - 'Button1 - ' - Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button1.Location = New System.Drawing.Point(3, 383) - Me.Button1.Name = "Button1" - Me.Button1.Size = New System.Drawing.Size(178, 23) - Me.Button1.TabIndex = 153 - Me.Button1.Text = "Clear Token Cache" - Me.Button1.UseVisualStyleBackColor = True - ' 'frmATEZ_EZA ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink - Me.ClientSize = New System.Drawing.Size(589, 409) + Me.ClientSize = New System.Drawing.Size(680, 413) + Me.Controls.Add(Me.btnAgg_desc) + Me.Controls.Add(Me.btnAgg_Tnr) + Me.Controls.Add(Me.btnAgg_Unit) + Me.Controls.Add(Me.btnAgg_Origin) + Me.Controls.Add(Me.Label2) Me.Controls.Add(Me.Button1) Me.Controls.Add(Me.Button3) Me.Controls.Add(Me.lblAnh) @@ -331,4 +395,9 @@ Partial Class frmATEZ_EZA Friend WithEvents lblAnh As Label Friend WithEvents Button3 As Button Friend WithEvents Button1 As Button + Friend WithEvents btnAgg_Tnr As Button + Friend WithEvents Label2 As Label + Friend WithEvents btnAgg_Origin As Button + Friend WithEvents btnAgg_Unit As Button + Friend WithEvents btnAgg_desc As Button End Class diff --git a/Aviso/ATEZ/frmATEZ_EZA.vb b/Aviso/ATEZ/frmATEZ_EZA.vb index 98bf99c..775515d 100644 --- a/Aviso/ATEZ/frmATEZ_EZA.vb +++ b/Aviso/ATEZ/frmATEZ_EZA.vb @@ -3,6 +3,7 @@ Imports com.esendex.sdk.optouts.models Imports DAKOSY_Worker.eZollTypes Imports SDL Imports VERAG_PROG_ALLGEMEIN +Imports VERAG_PROG_ALLGEMEIN.cRelayHub Public Class frmATEZ_EZA @@ -137,11 +138,18 @@ Public Class frmATEZ_EZA ' New VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubDocument With {.type = "base64", .base64String = "SGVsbG8sIHRoaXMgaXMgYSBzYW1wbGUgYmFzZTY0IHN0cmluZy4=", .filename = "test3.txt", .fileType = "cmr"} '}, + Dim AdditionalSettings As New List(Of String) + If btnAgg_desc.Tag = 1 Then AdditionalSettings.Add("description") + If btnAgg_Tnr.Tag = 1 Then AdditionalSettings.Add("commodity_code") + If btnAgg_Origin.Tag = 1 Then AdditionalSettings.Add("country_of_origin") + If btnAgg_Unit.Tag = 1 Then AdditionalSettings.Add("unit_type") + + Dim ATEZ_RH_EZA As New VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubJobOrderRequest With { .referenceNo = ioReference, .outputApplication = "dakosy/sftp/verg",'.outputApplication = "dakosy/sftp/vera", .regimeType = "IMPORT",' .customer = "AVISO", - .dispatchCountry = "TR", + .dispatchCountry = "TR",'"TR", .destinationCountry = "DE", 'Default, wird später überschrieben!! (Pflichtfeld) .additionalData = New VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubAdditionalData With { .transaction = New VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubTransaction With { @@ -171,8 +179,13 @@ Public Class frmATEZ_EZA } } } + }, + .additionalSettings = New cRelayHubAdditionalSettings With { + .combineOptions = AdditionalSettings } - } + } + + If If(AVISO.Zollstelle, "").length >= 4 Then ATEZ_RH_EZA.additionalData.declaration(0).headerData.addressedCustomsOffice = AVISO.Zollstelle.ToString.Substring(AVISO.Zollstelle.ToString.Length - 4) 'MsgBox(ATEZ_RH_EZA.additionalData.declaration(0).headerData.addressedCustomsOffice) @@ -214,27 +227,7 @@ Public Class frmATEZ_EZA Dim bd As New Chilkat.BinData Dim DOC As New VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubDocument - If r.Cells("anh_Art").Value IsNot DBNull.Value Then - Select Case r.Cells("anh_Art").Value - Case "Rechnung", "Konsi-Rechnung", "eFatura", "INVOICE" : DOC.fileType = "invoice" - Case "CMR" : DOC.fileType = "cmr" - Case "Ausfuhr", "EXPORT" : DOC.fileType = "tr_export_declaration" - Case "ATR", "A.TR", "ATR-EUR1" : DOC.fileType = "atr" - Case "Vorpapier", "T1" : DOC.fileType = "transit_declaration" - Case Else : DOC.fileType = "other" - - - ''invoice', - 'atr', - 'cmr', - 'transit_declaration', - 'tr_export_declaration', - - - ' Case Else : DOC.fileType = "additional_data" --> DARF NCIHT -_> additional_data ist das verwednete Datenformat - End Select - End If - 'invoice' | 'atr' | 'cmr' | 'transit_declaration' | 'tr_export_declaration' | 'additional_data', received 'PDF' + DOC.fileType = VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHub_sendToRelayHub_JobOrderRequest.getRelayHub_AnhDesc(r.Cells("anh_Art").Value) DOC.type = "base64" DOC.filename = r.Cells("anh_Name").Value @@ -771,4 +764,14 @@ Public Class frmATEZ_EZA Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click cRelayHubToken.DeleteStore() End Sub + + Private Sub Button2_Click(sender As Object, e As EventArgs) Handles btnAgg_Tnr.Click, btnAgg_desc.Click, btnAgg_Origin.Click, btnAgg_Unit.Click + If sender.Tag = 0 Then + sender.Tag = 1 + sender.BackColor = Color.DeepSkyBlue + Else + sender.Tag = 0 + sender.BackColor = SystemColors.Control + End If + End Sub End Class \ No newline at end of file diff --git a/Aviso/My Project/AssemblyInfo.vb b/Aviso/My Project/AssemblyInfo.vb index 3e9b617..5f9ee35 100644 --- a/Aviso/My Project/AssemblyInfo.vb +++ b/Aviso/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + + diff --git a/Aviso/frmHauptfenster.Designer.vb b/Aviso/frmHauptfenster.Designer.vb index 8ee273a..36ce620 100644 --- a/Aviso/frmHauptfenster.Designer.vb +++ b/Aviso/frmHauptfenster.Designer.vb @@ -22,6 +22,7 @@ Partial Class frmHauptfenster '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(frmHauptfenster)) Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() @@ -34,7 +35,7 @@ Partial Class frmHauptfenster Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Me.mnuInfo = New System.Windows.Forms.ToolStripMenuItem() Me.conÜbernehmen = New System.Windows.Forms.ToolStripMenuItem() - Me.conMenuAviso = New System.Windows.Forms.ContextMenuStrip() + Me.conMenuAviso = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.ToolStripSeparator5 = New System.Windows.Forms.ToolStripSeparator() Me.conFertig = New System.Windows.Forms.ToolStripMenuItem() Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator() @@ -272,7 +273,7 @@ Partial Class frmHauptfenster Me.Label2 = New System.Windows.Forms.Label() Me.Label1 = New System.Windows.Forms.Label() Me.Label3 = New System.Windows.Forms.Label() - Me.Timer1 = New System.Windows.Forms.Timer() + Me.Timer1 = New System.Windows.Forms.Timer(Me.components) Me.btnWichtige = New System.Windows.Forms.Button() Me.btnWichtigeStandort = New System.Windows.Forms.Button() Me.btnMinimieren = New System.Windows.Forms.Button() @@ -289,7 +290,7 @@ Partial Class frmHauptfenster Me.Label22 = New System.Windows.Forms.Label() Me.btnE_Aviso = New System.Windows.Forms.Button() Me.btnNeu = New System.Windows.Forms.Button() - Me.cntxtAtilla = New System.Windows.Forms.ContextMenuStrip() + Me.cntxtAtilla = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.ToolStripMenuItem17 = New System.Windows.Forms.ToolStripMenuItem() Me.Button7 = New System.Windows.Forms.Button() Me.picAVISOMessenger = New System.Windows.Forms.PictureBox() @@ -298,7 +299,7 @@ Partial Class frmHauptfenster Me.UsrCntlBenachrichtigungen1 = New AVISO.usrCntlBenachrichtigungen() Me.pnl = New System.Windows.Forms.Panel() Me.Button10 = New System.Windows.Forms.Button() - Me.gridMyAviso = New VERAG_PROG_ALLGEMEIN.MyDatagridview() + Me.gridMyAviso = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) Me.Panel6 = New System.Windows.Forms.Panel() Me.cbx_My_Brexit = New System.Windows.Forms.CheckBox() Me.btnColor = New System.Windows.Forms.Button() @@ -312,7 +313,7 @@ Partial Class frmHauptfenster Me.lblMySND_Anzeige = New System.Windows.Forms.Label() Me.lblAkte = New System.Windows.Forms.Label() Me.btnClose = New System.Windows.Forms.Button() - Me.TimerAkte = New System.Windows.Forms.Timer() + Me.TimerAkte = New System.Windows.Forms.Timer(Me.components) Me.tabVorgeschrieben = New System.Windows.Forms.TabPage() Me.tabFreigegeben = New System.Windows.Forms.TabPage() Me.tabNichtEingetroffen = New System.Windows.Forms.TabPage() @@ -329,7 +330,7 @@ Partial Class frmHauptfenster Me.SplitContainer1 = New System.Windows.Forms.SplitContainer() Me.pnlDetailsLinks = New System.Windows.Forms.Panel() Me.splitMain = New System.Windows.Forms.SplitContainer() - Me.gridAviso = New VERAG_PROG_ALLGEMEIN.MyDatagridview() + Me.gridAviso = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) Me.Panel1 = New System.Windows.Forms.Panel() Me.CheckBox1 = New System.Windows.Forms.CheckBox() Me.tbcntrAvisoSND = New System.Windows.Forms.TabControl() @@ -376,17 +377,17 @@ Partial Class frmHauptfenster Me.lblErwAuftraggeber = New System.Windows.Forms.Label() Me.cbxAlle = New System.Windows.Forms.CheckBox() Me.btnSmall = New System.Windows.Forms.Button() - Me.ToolTip1 = New System.Windows.Forms.ToolTip() + Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components) Me.BackgroundWorker1 = New System.ComponentModel.BackgroundWorker() - Me.timerStandzeit = New System.Windows.Forms.Timer() + Me.timerStandzeit = New System.Windows.Forms.Timer(Me.components) Me.Label9 = New System.Windows.Forms.Label() - Me.TimerUPDATE = New System.Windows.Forms.Timer() + Me.TimerUPDATE = New System.Windows.Forms.Timer(Me.components) Me.ToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem() Me.pnlOptionen = New System.Windows.Forms.Panel() Me.btnKasse_User = New System.Windows.Forms.Button() Me.btnKasse_LG = New System.Windows.Forms.Button() Me.btnTV = New System.Windows.Forms.Button() - Me.cntxt = New System.Windows.Forms.ContextMenuStrip() + Me.cntxt = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.BundesanzeigerToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.EUTaricToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.ZugelassenerAusführerToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() @@ -395,16 +396,16 @@ Partial Class frmHauptfenster Me.BrexitToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem() Me.EmbargosLänderToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.GüterlisteToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() - Me.Timer_REFRESH = New System.Windows.Forms.Timer() + Me.Timer_REFRESH = New System.Windows.Forms.Timer(Me.components) Me.ColorDialog = New System.Windows.Forms.ColorDialog() - Me.ctxtFarben = New System.Windows.Forms.ContextMenuStrip() + Me.ctxtFarben = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.ALLEToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.ToolStripMenuItem19 = New System.Windows.Forms.ToolStripMenuItem() Me.ToolStripMenuItem20 = New System.Windows.Forms.ToolStripMenuItem() Me.ToolStripMenuItem21 = New System.Windows.Forms.ToolStripMenuItem() Me.Panel3 = New System.Windows.Forms.Panel() Me.Panel4 = New System.Windows.Forms.Panel() - Me.cntVerag = New System.Windows.Forms.ContextMenuStrip() + Me.cntVerag = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.ZertifikateToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.HomepageToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.pnlLeft = New System.Windows.Forms.Panel() @@ -412,6 +413,7 @@ Partial Class frmHauptfenster Me.Panel5 = New System.Windows.Forms.Panel() Me.Panel7 = New System.Windows.Forms.Panel() Me.UsrCntlTestsystem1 = New VERAG_PROG_ALLGEMEIN.usrCntlTestsystem() + Me.VerträgeToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.conMenuAviso.SuspendLayout() Me.MenuStrip1.SuspendLayout() Me.pnlDetailsRechts.SuspendLayout() @@ -911,7 +913,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.tool_BRGXLS, Me.ToolStripMenuItem4, Me.ToolStripMenuItem5, Me.BürgschaftenExcelToolStripMenuItem, Me.ToolStripMenuItem6, Me.GesamtsicherheitenToolStripMenuItem, Me.ToolStripMenuItem10, Me.TICKETWaidhausToolStripMenuItem, Me.ToolStripSeparator10, Me.DAKOSYToolStripMenuItem, Me.ToolStripSeparator23, Me.toolOriginalATR, Me.SDLAbholaufträgeToolStripMenuItem, Me.ToolStripMenuItem13, Me.VorauskassenToolStripMenuItem, Me.ToolStripSeparator11, Me.EssensbestellungenToolStripMenuItem, Me.AdministrationEssensbestellungenToolStripMenuItem, Me.ToolStripSeparator24, Me.WarenorteToolStripMenuItem, Me.DatevBuchungsexportToolStripMenuItem, Me.APIToolStripMenuItem, Me.FIBUSachkontenToolStripMenuItem}) + 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.tool_BRGXLS, Me.ToolStripMenuItem4, Me.ToolStripMenuItem5, Me.BürgschaftenExcelToolStripMenuItem, Me.ToolStripMenuItem6, Me.GesamtsicherheitenToolStripMenuItem, Me.ToolStripMenuItem10, Me.TICKETWaidhausToolStripMenuItem, Me.ToolStripSeparator10, Me.DAKOSYToolStripMenuItem, Me.ToolStripSeparator23, Me.toolOriginalATR, Me.SDLAbholaufträgeToolStripMenuItem, Me.ToolStripMenuItem13, Me.VerträgeToolStripMenuItem, Me.VorauskassenToolStripMenuItem, Me.ToolStripSeparator11, Me.EssensbestellungenToolStripMenuItem, Me.AdministrationEssensbestellungenToolStripMenuItem, Me.ToolStripSeparator24, Me.WarenorteToolStripMenuItem, Me.DatevBuchungsexportToolStripMenuItem, Me.APIToolStripMenuItem, Me.FIBUSachkontenToolStripMenuItem}) Me.FunktionenToolStripMenuItem.Name = "FunktionenToolStripMenuItem" Me.FunktionenToolStripMenuItem.Size = New System.Drawing.Size(79, 16) Me.FunktionenToolStripMenuItem.Text = "Funktionen" @@ -919,26 +921,26 @@ Partial Class frmHauptfenster 'GenerelleGestellungenDurchsuchenToolStripMenuItem ' Me.GenerelleGestellungenDurchsuchenToolStripMenuItem.Name = "GenerelleGestellungenDurchsuchenToolStripMenuItem" - Me.GenerelleGestellungenDurchsuchenToolStripMenuItem.Size = New System.Drawing.Size(383, 22) + Me.GenerelleGestellungenDurchsuchenToolStripMenuItem.Size = New System.Drawing.Size(391, 30) Me.GenerelleGestellungenDurchsuchenToolStripMenuItem.Text = "Generelle Gestellungen durchsuchen" Me.GenerelleGestellungenDurchsuchenToolStripMenuItem.Visible = False ' 'KundenVonFremdenSpeditionenToolStripMenuItem ' Me.KundenVonFremdenSpeditionenToolStripMenuItem.Name = "KundenVonFremdenSpeditionenToolStripMenuItem" - Me.KundenVonFremdenSpeditionenToolStripMenuItem.Size = New System.Drawing.Size(383, 22) + Me.KundenVonFremdenSpeditionenToolStripMenuItem.Size = New System.Drawing.Size(391, 30) Me.KundenVonFremdenSpeditionenToolStripMenuItem.Text = "Kunden von fremden Speditionen" ' 'KundenverwaltungToolStripMenuItem ' Me.KundenverwaltungToolStripMenuItem.Name = "KundenverwaltungToolStripMenuItem" - Me.KundenverwaltungToolStripMenuItem.Size = New System.Drawing.Size(383, 22) + Me.KundenverwaltungToolStripMenuItem.Size = New System.Drawing.Size(391, 30) Me.KundenverwaltungToolStripMenuItem.Text = "Kundenverwaltung" ' 'MDMParkplatzkartenToolStripMenuItem ' Me.MDMParkplatzkartenToolStripMenuItem.Name = "MDMParkplatzkartenToolStripMenuItem" - Me.MDMParkplatzkartenToolStripMenuItem.Size = New System.Drawing.Size(383, 22) + Me.MDMParkplatzkartenToolStripMenuItem.Size = New System.Drawing.Size(391, 30) Me.MDMParkplatzkartenToolStripMenuItem.Text = "MDM - Parkplatzkarten" ' 'SMSSendenToolStripMenuItem @@ -946,7 +948,7 @@ Partial Class frmHauptfenster Me.SMSSendenToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.NeueSMSSendenToolStripMenuItem, Me.GesendeteSMSToolStripMenuItem}) Me.SMSSendenToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.handy2 Me.SMSSendenToolStripMenuItem.Name = "SMSSendenToolStripMenuItem" - Me.SMSSendenToolStripMenuItem.Size = New System.Drawing.Size(383, 22) + Me.SMSSendenToolStripMenuItem.Size = New System.Drawing.Size(391, 30) Me.SMSSendenToolStripMenuItem.Text = "SMS" ' 'NeueSMSSendenToolStripMenuItem @@ -964,51 +966,51 @@ Partial Class frmHauptfenster 'ZollprogrammeNachEORIDurchsuchenToolStripMenuItem ' Me.ZollprogrammeNachEORIDurchsuchenToolStripMenuItem.Name = "ZollprogrammeNachEORIDurchsuchenToolStripMenuItem" - Me.ZollprogrammeNachEORIDurchsuchenToolStripMenuItem.Size = New System.Drawing.Size(383, 22) + Me.ZollprogrammeNachEORIDurchsuchenToolStripMenuItem.Size = New System.Drawing.Size(391, 30) Me.ZollprogrammeNachEORIDurchsuchenToolStripMenuItem.Text = "Zollprogramme nach EORI durchsuchen" ' 'MRNBarcodedruckToolStripMenuItem ' Me.MRNBarcodedruckToolStripMenuItem.Name = "MRNBarcodedruckToolStripMenuItem" - Me.MRNBarcodedruckToolStripMenuItem.Size = New System.Drawing.Size(383, 22) + Me.MRNBarcodedruckToolStripMenuItem.Size = New System.Drawing.Size(391, 30) Me.MRNBarcodedruckToolStripMenuItem.Text = "MRN Barcodedruck" ' 'ToolStripSeparator12 ' Me.ToolStripSeparator12.Name = "ToolStripSeparator12" - Me.ToolStripSeparator12.Size = New System.Drawing.Size(380, 6) + Me.ToolStripSeparator12.Size = New System.Drawing.Size(388, 6) ' 'tool_BRGXLS ' Me.tool_BRGXLS.Name = "tool_BRGXLS" - Me.tool_BRGXLS.Size = New System.Drawing.Size(383, 22) + Me.tool_BRGXLS.Size = New System.Drawing.Size(391, 30) Me.tool_BRGXLS.Text = "Bürgschaften Excel" ' 'ToolStripMenuItem4 ' Me.ToolStripMenuItem4.Name = "ToolStripMenuItem4" - Me.ToolStripMenuItem4.Size = New System.Drawing.Size(383, 22) + Me.ToolStripMenuItem4.Size = New System.Drawing.Size(391, 30) Me.ToolStripMenuItem4.Text = "DE | Gesamtsicherheit VERAG GmbH - Excel" Me.ToolStripMenuItem4.Visible = False ' 'ToolStripMenuItem5 ' Me.ToolStripMenuItem5.Name = "ToolStripMenuItem5" - Me.ToolStripMenuItem5.Size = New System.Drawing.Size(383, 22) + Me.ToolStripMenuItem5.Size = New System.Drawing.Size(391, 30) Me.ToolStripMenuItem5.Text = "AT | Gesamtsicherheit VERAG AG - Excel" Me.ToolStripMenuItem5.Visible = False ' 'BürgschaftenExcelToolStripMenuItem ' Me.BürgschaftenExcelToolStripMenuItem.Name = "BürgschaftenExcelToolStripMenuItem" - Me.BürgschaftenExcelToolStripMenuItem.Size = New System.Drawing.Size(383, 22) + Me.BürgschaftenExcelToolStripMenuItem.Size = New System.Drawing.Size(391, 30) Me.BürgschaftenExcelToolStripMenuItem.Text = "AT | Gesamtsicherheit VERAG Customs Service - Excel" Me.BürgschaftenExcelToolStripMenuItem.Visible = False ' 'ToolStripMenuItem6 ' Me.ToolStripMenuItem6.Name = "ToolStripMenuItem6" - Me.ToolStripMenuItem6.Size = New System.Drawing.Size(383, 22) + Me.ToolStripMenuItem6.Size = New System.Drawing.Size(391, 30) Me.ToolStripMenuItem6.Text = "AT | Gesamtsicherheit IMEX Customs Service GmbH - Excel" Me.ToolStripMenuItem6.Visible = False ' @@ -1016,7 +1018,7 @@ Partial Class frmHauptfenster ' Me.GesamtsicherheitenToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ATVeragAGToolStripMenuItem, Me.ATImexCSToolStripMenuItem, Me.ATVeragCSToolStripMenuItem, Me.DEVeragGmbHToolStripMenuItem, Me.ATUnispedGmbHToolStripMenuItem, Me.DEAmbarToolStripMenuItem, Me.ATAtillaToolStripMenuItem}) Me.GesamtsicherheitenToolStripMenuItem.Name = "GesamtsicherheitenToolStripMenuItem" - Me.GesamtsicherheitenToolStripMenuItem.Size = New System.Drawing.Size(383, 22) + Me.GesamtsicherheitenToolStripMenuItem.Size = New System.Drawing.Size(391, 30) Me.GesamtsicherheitenToolStripMenuItem.Text = "Gesamtsicherheiten" Me.GesamtsicherheitenToolStripMenuItem.Visible = False ' @@ -1060,31 +1062,31 @@ Partial Class frmHauptfenster 'ATAtillaToolStripMenuItem ' Me.ATAtillaToolStripMenuItem.Name = "ATAtillaToolStripMenuItem" - Me.ATAtillaToolStripMenuItem.Size = New System.Drawing.Size(180, 22) + Me.ATAtillaToolStripMenuItem.Size = New System.Drawing.Size(179, 22) Me.ATAtillaToolStripMenuItem.Text = "AT | Atilla GmbH" ' 'ToolStripMenuItem10 ' Me.ToolStripMenuItem10.Name = "ToolStripMenuItem10" - Me.ToolStripMenuItem10.Size = New System.Drawing.Size(383, 22) + Me.ToolStripMenuItem10.Size = New System.Drawing.Size(391, 30) Me.ToolStripMenuItem10.Text = "TICKET Parkplatz" ' 'TICKETWaidhausToolStripMenuItem ' Me.TICKETWaidhausToolStripMenuItem.Name = "TICKETWaidhausToolStripMenuItem" - Me.TICKETWaidhausToolStripMenuItem.Size = New System.Drawing.Size(383, 22) + Me.TICKETWaidhausToolStripMenuItem.Size = New System.Drawing.Size(391, 30) Me.TICKETWaidhausToolStripMenuItem.Text = "Infoschreiben Parkplatz" ' 'ToolStripSeparator10 ' Me.ToolStripSeparator10.Name = "ToolStripSeparator10" - Me.ToolStripSeparator10.Size = New System.Drawing.Size(380, 6) + Me.ToolStripSeparator10.Size = New System.Drawing.Size(388, 6) ' 'DAKOSYToolStripMenuItem ' Me.DAKOSYToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.StammreferenzenVerwaltenToolStripMenuItem}) Me.DAKOSYToolStripMenuItem.Name = "DAKOSYToolStripMenuItem" - Me.DAKOSYToolStripMenuItem.Size = New System.Drawing.Size(383, 22) + Me.DAKOSYToolStripMenuItem.Size = New System.Drawing.Size(391, 30) Me.DAKOSYToolStripMenuItem.Text = "DAKOSY" ' 'StammreferenzenVerwaltenToolStripMenuItem @@ -1096,69 +1098,69 @@ Partial Class frmHauptfenster 'ToolStripSeparator23 ' Me.ToolStripSeparator23.Name = "ToolStripSeparator23" - Me.ToolStripSeparator23.Size = New System.Drawing.Size(380, 6) + Me.ToolStripSeparator23.Size = New System.Drawing.Size(388, 6) ' 'toolOriginalATR ' Me.toolOriginalATR.Image = Global.AVISO.My.Resources.Resources.atr Me.toolOriginalATR.Name = "toolOriginalATR" - Me.toolOriginalATR.Size = New System.Drawing.Size(383, 22) + Me.toolOriginalATR.Size = New System.Drawing.Size(391, 30) Me.toolOriginalATR.Text = "Original-ATR" ' 'SDLAbholaufträgeToolStripMenuItem ' Me.SDLAbholaufträgeToolStripMenuItem.Name = "SDLAbholaufträgeToolStripMenuItem" - Me.SDLAbholaufträgeToolStripMenuItem.Size = New System.Drawing.Size(383, 22) + Me.SDLAbholaufträgeToolStripMenuItem.Size = New System.Drawing.Size(391, 30) Me.SDLAbholaufträgeToolStripMenuItem.Text = "SDL Abholaufträge" ' 'ToolStripMenuItem13 ' Me.ToolStripMenuItem13.Name = "ToolStripMenuItem13" - Me.ToolStripMenuItem13.Size = New System.Drawing.Size(383, 22) + Me.ToolStripMenuItem13.Size = New System.Drawing.Size(391, 30) Me.ToolStripMenuItem13.Text = "Postversand (Einschreiben)" ' 'VorauskassenToolStripMenuItem ' Me.VorauskassenToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.vorauszahlung Me.VorauskassenToolStripMenuItem.Name = "VorauskassenToolStripMenuItem" - Me.VorauskassenToolStripMenuItem.Size = New System.Drawing.Size(383, 22) + Me.VorauskassenToolStripMenuItem.Size = New System.Drawing.Size(391, 30) Me.VorauskassenToolStripMenuItem.Text = "Vorauskassen" ' 'ToolStripSeparator11 ' Me.ToolStripSeparator11.Name = "ToolStripSeparator11" - Me.ToolStripSeparator11.Size = New System.Drawing.Size(380, 6) + Me.ToolStripSeparator11.Size = New System.Drawing.Size(388, 6) ' 'EssensbestellungenToolStripMenuItem ' Me.EssensbestellungenToolStripMenuItem.Name = "EssensbestellungenToolStripMenuItem" - Me.EssensbestellungenToolStripMenuItem.Size = New System.Drawing.Size(383, 22) + Me.EssensbestellungenToolStripMenuItem.Size = New System.Drawing.Size(391, 30) Me.EssensbestellungenToolStripMenuItem.Text = "Essensbestellungen" Me.EssensbestellungenToolStripMenuItem.Visible = False ' 'AdministrationEssensbestellungenToolStripMenuItem ' Me.AdministrationEssensbestellungenToolStripMenuItem.Name = "AdministrationEssensbestellungenToolStripMenuItem" - Me.AdministrationEssensbestellungenToolStripMenuItem.Size = New System.Drawing.Size(383, 22) + Me.AdministrationEssensbestellungenToolStripMenuItem.Size = New System.Drawing.Size(391, 30) Me.AdministrationEssensbestellungenToolStripMenuItem.Text = "Administration Essensbestellungen" Me.AdministrationEssensbestellungenToolStripMenuItem.Visible = False ' 'ToolStripSeparator24 ' Me.ToolStripSeparator24.Name = "ToolStripSeparator24" - Me.ToolStripSeparator24.Size = New System.Drawing.Size(380, 6) + Me.ToolStripSeparator24.Size = New System.Drawing.Size(388, 6) ' 'WarenorteToolStripMenuItem ' Me.WarenorteToolStripMenuItem.Name = "WarenorteToolStripMenuItem" - Me.WarenorteToolStripMenuItem.Size = New System.Drawing.Size(383, 22) + Me.WarenorteToolStripMenuItem.Size = New System.Drawing.Size(391, 30) Me.WarenorteToolStripMenuItem.Text = "Warenorte" ' 'DatevBuchungsexportToolStripMenuItem ' Me.DatevBuchungsexportToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.EMAILToolStripMenuItem, Me.FTPToolStripMenuItem}) Me.DatevBuchungsexportToolStripMenuItem.Name = "DatevBuchungsexportToolStripMenuItem" - Me.DatevBuchungsexportToolStripMenuItem.Size = New System.Drawing.Size(383, 22) + Me.DatevBuchungsexportToolStripMenuItem.Size = New System.Drawing.Size(391, 30) Me.DatevBuchungsexportToolStripMenuItem.Text = "Datev Buchungsexport" Me.DatevBuchungsexportToolStripMenuItem.Visible = False ' @@ -1177,13 +1179,13 @@ Partial Class frmHauptfenster 'APIToolStripMenuItem ' Me.APIToolStripMenuItem.Name = "APIToolStripMenuItem" - Me.APIToolStripMenuItem.Size = New System.Drawing.Size(383, 22) + Me.APIToolStripMenuItem.Size = New System.Drawing.Size(391, 30) Me.APIToolStripMenuItem.Text = "API" ' 'FIBUSachkontenToolStripMenuItem ' Me.FIBUSachkontenToolStripMenuItem.Name = "FIBUSachkontenToolStripMenuItem" - Me.FIBUSachkontenToolStripMenuItem.Size = New System.Drawing.Size(383, 22) + Me.FIBUSachkontenToolStripMenuItem.Size = New System.Drawing.Size(391, 30) Me.FIBUSachkontenToolStripMenuItem.Text = "FIBU Sachkonten" Me.FIBUSachkontenToolStripMenuItem.Visible = False ' @@ -1258,20 +1260,20 @@ Partial Class frmHauptfenster Me.MANAGERToolStripMenuItem.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Bold) Me.MANAGERToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.android_note Me.MANAGERToolStripMenuItem.Name = "MANAGERToolStripMenuItem" - Me.MANAGERToolStripMenuItem.Size = New System.Drawing.Size(277, 22) + Me.MANAGERToolStripMenuItem.Size = New System.Drawing.Size(285, 30) Me.MANAGERToolStripMenuItem.Text = "Formular - Manager" ' 'ToolStripSeparator3 ' Me.ToolStripSeparator3.Name = "ToolStripSeparator3" - Me.ToolStripSeparator3.Size = New System.Drawing.Size(274, 6) + Me.ToolStripSeparator3.Size = New System.Drawing.Size(282, 6) ' 'MailvorlagenToolStripMenuItem ' Me.MailvorlagenToolStripMenuItem.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Bold) Me.MailvorlagenToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.stift Me.MailvorlagenToolStripMenuItem.Name = "MailvorlagenToolStripMenuItem" - Me.MailvorlagenToolStripMenuItem.Size = New System.Drawing.Size(277, 22) + Me.MailvorlagenToolStripMenuItem.Size = New System.Drawing.Size(285, 30) Me.MailvorlagenToolStripMenuItem.Text = "Mailvorlagen" Me.MailvorlagenToolStripMenuItem.Visible = False ' @@ -1279,7 +1281,7 @@ Partial Class frmHauptfenster ' Me.ToolStripMenuItem2.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.toolStrVM_de, Me.ZollvollmachtDEFiskalToolStripMenuItem, Me.toolStrVM_at, Me.toolStrVM_at4200, Me.ZollvollmachtATEVToolStripMenuItem}) Me.ToolStripMenuItem2.Name = "ToolStripMenuItem2" - Me.ToolStripMenuItem2.Size = New System.Drawing.Size(277, 22) + Me.ToolStripMenuItem2.Size = New System.Drawing.Size(285, 30) Me.ToolStripMenuItem2.Text = "Vollmachten" ' 'toolStrVM_de @@ -1315,38 +1317,38 @@ Partial Class frmHauptfenster 'ToolStripMenuItem7 ' Me.ToolStripMenuItem7.Name = "ToolStripMenuItem7" - Me.ToolStripMenuItem7.Size = New System.Drawing.Size(277, 22) + Me.ToolStripMenuItem7.Size = New System.Drawing.Size(285, 30) Me.ToolStripMenuItem7.Text = "Gestellungsgarantien" ' 'ToolStripMenuItem12 ' Me.ToolStripMenuItem12.Name = "ToolStripMenuItem12" - Me.ToolStripMenuItem12.Size = New System.Drawing.Size(277, 22) + Me.ToolStripMenuItem12.Size = New System.Drawing.Size(285, 30) Me.ToolStripMenuItem12.Text = "Importaviso" ' 'ToolStripMenuItem15 ' Me.ToolStripMenuItem15.Name = "ToolStripMenuItem15" - Me.ToolStripMenuItem15.Size = New System.Drawing.Size(277, 22) + Me.ToolStripMenuItem15.Size = New System.Drawing.Size(285, 30) Me.ToolStripMenuItem15.Text = "Dispoliste" ' 'ToolStripMenuItem18 ' Me.ToolStripMenuItem18.Name = "ToolStripMenuItem18" - Me.ToolStripMenuItem18.Size = New System.Drawing.Size(277, 22) + Me.ToolStripMenuItem18.Size = New System.Drawing.Size(285, 30) Me.ToolStripMenuItem18.Text = "Verzollungspreise" ' 'AuftragÜberwachungsdokumentToolStripMenuItem ' Me.AuftragÜberwachungsdokumentToolStripMenuItem.Name = "AuftragÜberwachungsdokumentToolStripMenuItem" - Me.AuftragÜberwachungsdokumentToolStripMenuItem.Size = New System.Drawing.Size(277, 22) + Me.AuftragÜberwachungsdokumentToolStripMenuItem.Size = New System.Drawing.Size(285, 30) Me.AuftragÜberwachungsdokumentToolStripMenuItem.Text = "Auftrag Überwachungsdokument" ' 'toolVUB ' Me.toolVUB.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.VUBVERAGSpeditionAGToolStripMenuItem, Me.VeragCustomsServiceToolStripMenuItem}) Me.toolVUB.Name = "toolVUB" - Me.toolVUB.Size = New System.Drawing.Size(277, 22) + Me.toolVUB.Size = New System.Drawing.Size(285, 30) Me.toolVUB.Text = "VUB" ' 'VUBVERAGSpeditionAGToolStripMenuItem @@ -1364,37 +1366,37 @@ Partial Class frmHauptfenster 'toolVPCreditreform ' Me.toolVPCreditreform.Name = "toolVPCreditreform" - Me.toolVPCreditreform.Size = New System.Drawing.Size(277, 22) + Me.toolVPCreditreform.Size = New System.Drawing.Size(285, 30) Me.toolVPCreditreform.Text = "Bonitätsauskunft (Creditreform)" Me.toolVPCreditreform.Visible = False ' 'ToolStripSeparator9 ' Me.ToolStripSeparator9.Name = "ToolStripSeparator9" - Me.ToolStripSeparator9.Size = New System.Drawing.Size(274, 6) + Me.ToolStripSeparator9.Size = New System.Drawing.Size(282, 6) ' 'VerzollungsunterlagenToolStripMenuItem ' Me.VerzollungsunterlagenToolStripMenuItem.Name = "VerzollungsunterlagenToolStripMenuItem" - Me.VerzollungsunterlagenToolStripMenuItem.Size = New System.Drawing.Size(277, 22) + Me.VerzollungsunterlagenToolStripMenuItem.Size = New System.Drawing.Size(285, 30) Me.VerzollungsunterlagenToolStripMenuItem.Text = "Verzollungsunterlagen" ' 'ToolStripMenuItem11 ' Me.ToolStripMenuItem11.Name = "ToolStripMenuItem11" - Me.ToolStripMenuItem11.Size = New System.Drawing.Size(277, 22) + Me.ToolStripMenuItem11.Size = New System.Drawing.Size(285, 30) Me.ToolStripMenuItem11.Text = "Verzollungsunterlagen BAR" ' 'ToolStripSeparator6 ' Me.ToolStripSeparator6.Name = "ToolStripSeparator6" - Me.ToolStripSeparator6.Size = New System.Drawing.Size(274, 6) + Me.ToolStripSeparator6.Size = New System.Drawing.Size(282, 6) ' 'WAIDHAUSToolStripMenuItem ' Me.WAIDHAUSToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem8, Me.ToolStripMenuItem9, Me.AnnahmeblattIMPORTToolStripMenuItem, Me.AnnahmeblattEXPORTToolStripMenuItem, Me.ChecklisteVerwahrlagerToolStripMenuItem}) Me.WAIDHAUSToolStripMenuItem.Name = "WAIDHAUSToolStripMenuItem" - Me.WAIDHAUSToolStripMenuItem.Size = New System.Drawing.Size(277, 22) + Me.WAIDHAUSToolStripMenuItem.Size = New System.Drawing.Size(285, 30) Me.WAIDHAUSToolStripMenuItem.Text = "WAIDHAUS" ' 'ToolStripMenuItem8 @@ -1430,36 +1432,36 @@ Partial Class frmHauptfenster 'ToolStripSeparator13 ' Me.ToolStripSeparator13.Name = "ToolStripSeparator13" - Me.ToolStripSeparator13.Size = New System.Drawing.Size(274, 6) + Me.ToolStripSeparator13.Size = New System.Drawing.Size(282, 6) ' 'EinheitspapierToolStripMenuItem ' Me.EinheitspapierToolStripMenuItem.Name = "EinheitspapierToolStripMenuItem" - Me.EinheitspapierToolStripMenuItem.Size = New System.Drawing.Size(277, 22) + Me.EinheitspapierToolStripMenuItem.Size = New System.Drawing.Size(285, 30) Me.EinheitspapierToolStripMenuItem.Text = "Einheitspapier 0777 (Vereinfachte ZA)" ' 'CMRToolStripMenuItem ' Me.CMRToolStripMenuItem.Name = "CMRToolStripMenuItem" - Me.CMRToolStripMenuItem.Size = New System.Drawing.Size(277, 22) + Me.CMRToolStripMenuItem.Size = New System.Drawing.Size(285, 30) Me.CMRToolStripMenuItem.Text = "CMR" ' 'Einheitspapier0735VersandverfahrenToolStripMenuItem ' Me.Einheitspapier0735VersandverfahrenToolStripMenuItem.Name = "Einheitspapier0735VersandverfahrenToolStripMenuItem" - Me.Einheitspapier0735VersandverfahrenToolStripMenuItem.Size = New System.Drawing.Size(277, 22) + Me.Einheitspapier0735VersandverfahrenToolStripMenuItem.Size = New System.Drawing.Size(285, 30) Me.Einheitspapier0735VersandverfahrenToolStripMenuItem.Text = "Einheitspapier 0735 (Versandverfahren)" ' 'CarnetTIRToolStripMenuItem ' Me.CarnetTIRToolStripMenuItem.Name = "CarnetTIRToolStripMenuItem" - Me.CarnetTIRToolStripMenuItem.Size = New System.Drawing.Size(277, 22) + Me.CarnetTIRToolStripMenuItem.Size = New System.Drawing.Size(285, 30) Me.CarnetTIRToolStripMenuItem.Text = "Carnet TIR" ' 'CarnetTIRALTToolStripMenuItem ' Me.CarnetTIRALTToolStripMenuItem.Name = "CarnetTIRALTToolStripMenuItem" - Me.CarnetTIRALTToolStripMenuItem.Size = New System.Drawing.Size(277, 22) + Me.CarnetTIRALTToolStripMenuItem.Size = New System.Drawing.Size(285, 30) Me.CarnetTIRALTToolStripMenuItem.Text = "Carnet TIR (ALT)" ' 'mnuFragezeichen @@ -3960,6 +3962,13 @@ Partial Class frmHauptfenster Me.UsrCntlTestsystem1.Size = New System.Drawing.Size(152, 28) Me.UsrCntlTestsystem1.TabIndex = 8 ' + 'VerträgeToolStripMenuItem + ' + Me.VerträgeToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.spedbuch_small + Me.VerträgeToolStripMenuItem.Name = "VerträgeToolStripMenuItem" + Me.VerträgeToolStripMenuItem.Size = New System.Drawing.Size(391, 30) + Me.VerträgeToolStripMenuItem.Text = "Verträge" + ' 'frmHauptfenster ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) @@ -4416,4 +4425,5 @@ Partial Class frmHauptfenster Friend WithEvents TVEditorNewToolStripMenuItem As ToolStripMenuItem Friend WithEvents ATILLASENDUNGToolStripMenuItem As ToolStripMenuItem Friend WithEvents ATAtillaToolStripMenuItem As ToolStripMenuItem + Friend WithEvents VerträgeToolStripMenuItem As ToolStripMenuItem End Class diff --git a/Aviso/frmHauptfenster.vb b/Aviso/frmHauptfenster.vb index ca4d47e..8464f37 100644 --- a/Aviso/frmHauptfenster.vb +++ b/Aviso/frmHauptfenster.vb @@ -5242,5 +5242,8 @@ ELSE_ATILLA: detailForm.Show() End Sub - + Private Sub VerträgeToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VerträgeToolStripMenuItem.Click + Dim f As New SDL.cKundenSearchVertrag + f.Show(Me) + End Sub End Class