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

divers layout, etc

Browse Source
This commit is contained in:
Andreas Luxbauer
2026-07-19 23:31:12 +02:00
parent 244564b24c
commit 844172dec5
37 changed files with 3630 additions and 688 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
Aviso/ATEZ/frmATEZ_EZA.vb
View File

@@ -168,15 +168,17 @@ Public Class frmATEZ_EZA
},
.declaration = New List(Of VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubDeclaration) From {
New VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubDeclaration With {
.objectIdentification = New VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubObjectIdentification With {
.objectName = lblBezugsnummer.Text,'& "_TEST"
.objectAlias = ioReference,
.declarationType = "EZA-D"
},
.headerData = New VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubHeaderData With {
.agentContact = New VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubAgentContact With {
.contactPersonName = If(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.Fullname, ""),
.contactPersonPhoneNumber = getTelefon(),
.objectIdentification = New VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubObjectIdentification With {
.objectName = lblBezugsnummer.Text,'& "_TEST"
.objectAlias = ioReference,
.declarationType = "EZA-D",
.shipmentId = "123",
.avisoId = "456"
},
.headerData = New VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubHeaderData With {
.agentContact = New VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubAgentContact With {
.contactPersonName = If(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.Fullname, ""),
.contactPersonPhoneNumber = getTelefon(),
.contactPersonPosition = "Zolldeklarant/in",
.contactPersonEmail = If(String.IsNullOrEmpty(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_email), getDefaultMail_FIRMA(), VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_email)
},

24
Aviso/Aviso.vbproj
View File

@@ -715,6 +715,12 @@
<Compile Include="Barcode.vb" />
<Compile Include="Barcode\Code128Content.vb" />
<Compile Include="Barcode\Code128Rendering.vb" />
<Compile Include="Benachrichtigung\usrCntlBenachrichtigungenNEW.Designer.vb">
<DependentUpon>usrCntlBenachrichtigungenNEW.vb</DependentUpon>
</Compile>
<Compile Include="Benachrichtigung\usrCntlBenachrichtigungenNEW.vb">
<SubType>UserControl</SubType>
</Compile>
<Compile Include="Benutzerdefinierte Elemente\cMyListItem.vb" />
<Compile Include="Benutzerdefinierte Elemente\frmPopUp.Designer.vb">
<DependentUpon>frmPopUp.vb</DependentUpon>
@@ -893,6 +899,12 @@
<Compile Include="frmHauptfensterNew.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmInfoMeldung.Designer.vb">
<DependentUpon>frmInfoMeldung.vb</DependentUpon>
</Compile>
<Compile Include="frmInfoMeldung.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmNCTSRouten.Designer.vb">
<DependentUpon>frmNCTSRouten.vb</DependentUpon>
</Compile>
@@ -1442,6 +1454,9 @@
<EmbeddedResource Include="AvisoReports\rptQRAviso.resx">
<DependentUpon>rptQRAviso.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Benachrichtigung\usrCntlBenachrichtigungenNEW.resx">
<DependentUpon>usrCntlBenachrichtigungenNEW.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Benutzerdefinierte Elemente\frmPopUp.resx">
<DependentUpon>frmPopUp.vb</DependentUpon>
</EmbeddedResource>
@@ -1518,6 +1533,9 @@
<EmbeddedResource Include="frmHauptfensterNew.resx">
<DependentUpon>frmHauptfensterNew.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmInfoMeldung.resx">
<DependentUpon>frmInfoMeldung.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmNCTSRouten.resx">
<DependentUpon>frmNCTSRouten.vb</DependentUpon>
</EmbeddedResource>
@@ -2010,6 +2028,12 @@
<None Include="Resources\ico_atez_declarantAI.png" />
<None Include="Resources\ico_atez_tariffAI.png" />
<None Include="Resources\ico_atez_logicust.png" />
<None Include="Resources\s_KI_Assist_Herbert.png" />
<None Include="Resources\KI_Assist_Herbert.png" />
<None Include="Resources\herbert.jpg" />
<None Include="Resources\herbert_afraid.jpg" />
<None Include="Resources\herbert_destroyed.jpg" />
<None Include="Resources\herbert_happy.jpg" />
<Content Include="Resources\WLAN\RunNHide.exe">
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
</Content>

6
Aviso/Benachrichtigung/usrCntlBenachrichtigungen.Designer.vb generated
View File

@@ -1,9 +1,9 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class usrCntlBenachrichtigungen
Inherits System.Windows.Forms.UserControl
'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
<System.Diagnostics.DebuggerNonUserCode()>
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
@@ -20,7 +20,7 @@ Partial Class usrCntlBenachrichtigungen
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()

376
Aviso/Benachrichtigung/usrCntlBenachrichtigungenNEW.Designer.vb generated Normal file
View File

@@ -0,0 +1,376 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class usrCntlBenachrichtigungenNEW
Inherits System.Windows.Forms.UserControl
'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()>
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Me.Panel2 = New System.Windows.Forms.Panel()
Me.gridAvisoBenachrichtigungen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.Panel4 = New System.Windows.Forms.Panel()
Me.MyComboBox2 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.cbxCluster = New System.Windows.Forms.CheckBox()
Me.cbxTaskForce = New System.Windows.Forms.CheckBox()
Me.cbxTeams = New System.Windows.Forms.CheckBox()
Me.cbxVerwarung = New System.Windows.Forms.CheckBox()
Me.cbxNeukunden = New System.Windows.Forms.CheckBox()
Me.Panel3 = New System.Windows.Forms.Panel()
Me.Label22 = New System.Windows.Forms.Label()
Me.Label25 = New System.Windows.Forms.Label()
Me.txtVermerk = New System.Windows.Forms.TextBox()
Me.Button10 = New System.Windows.Forms.Button()
Me.CheckBox1 = New System.Windows.Forms.CheckBox()
Me.txtDatumAb = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label1 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.txtSearch = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
Me.Panel2.SuspendLayout()
CType(Me.gridAvisoBenachrichtigungen, System.ComponentModel.ISupportInitialize).BeginInit()
Me.Panel4.SuspendLayout()
Me.Panel3.SuspendLayout()
Me.SuspendLayout()
'
'Panel2
'
Me.Panel2.Controls.Add(Me.gridAvisoBenachrichtigungen)
Me.Panel2.Controls.Add(Me.Panel4)
Me.Panel2.Controls.Add(Me.Panel3)
Me.Panel2.Dock = System.Windows.Forms.DockStyle.Fill
Me.Panel2.Location = New System.Drawing.Point(0, 0)
Me.Panel2.Name = "Panel2"
Me.Panel2.Size = New System.Drawing.Size(319, 278)
Me.Panel2.TabIndex = 2
'
'gridAvisoBenachrichtigungen
'
Me.gridAvisoBenachrichtigungen.AKTUALISIERUNGS_INTERVALL = -1
Me.gridAvisoBenachrichtigungen.AllowUserToAddRows = False
Me.gridAvisoBenachrichtigungen.AllowUserToDeleteRows = False
Me.gridAvisoBenachrichtigungen.AllowUserToOrderColumns = True
Me.gridAvisoBenachrichtigungen.AllowUserToResizeRows = False
DataGridViewCellStyle7.BackColor = System.Drawing.Color.Azure
Me.gridAvisoBenachrichtigungen.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle7
Me.gridAvisoBenachrichtigungen.BackgroundColor = System.Drawing.Color.White
Me.gridAvisoBenachrichtigungen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
DataGridViewCellStyle8.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle8.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle8.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle8.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle8.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle8.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle8.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.gridAvisoBenachrichtigungen.DefaultCellStyle = DataGridViewCellStyle8
Me.gridAvisoBenachrichtigungen.Dock = System.Windows.Forms.DockStyle.Fill
Me.gridAvisoBenachrichtigungen.Location = New System.Drawing.Point(0, 76)
Me.gridAvisoBenachrichtigungen.Name = "gridAvisoBenachrichtigungen"
Me.gridAvisoBenachrichtigungen.ReadOnly = True
Me.gridAvisoBenachrichtigungen.RowHeadersVisible = False
Me.gridAvisoBenachrichtigungen.Size = New System.Drawing.Size(319, 160)
Me.gridAvisoBenachrichtigungen.TabIndex = 2
'
'Panel4
'
Me.Panel4.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Panel4.Controls.Add(Me.MyComboBox2)
Me.Panel4.Controls.Add(Me.cbxCluster)
Me.Panel4.Controls.Add(Me.cbxTaskForce)
Me.Panel4.Controls.Add(Me.cbxTeams)
Me.Panel4.Controls.Add(Me.cbxVerwarung)
Me.Panel4.Controls.Add(Me.cbxNeukunden)
Me.Panel4.Dock = System.Windows.Forms.DockStyle.Bottom
Me.Panel4.Location = New System.Drawing.Point(0, 236)
Me.Panel4.Name = "Panel4"
Me.Panel4.Size = New System.Drawing.Size(319, 42)
Me.Panel4.TabIndex = 5
'
'MyComboBox2
'
Me.MyComboBox2._allowedValuesFreiText = Nothing
Me.MyComboBox2._allowFreiText = False
Me.MyComboBox2._value = ""
Me.MyComboBox2.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.MyComboBox2.BackColor = System.Drawing.Color.WhiteSmoke
Me.MyComboBox2.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.MyComboBox2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.MyComboBox2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.MyComboBox2.FormattingEnabled = True
Me.MyComboBox2.Location = New System.Drawing.Point(185, -2)
Me.MyComboBox2.Name = "MyComboBox2"
Me.MyComboBox2.Size = New System.Drawing.Size(71, 21)
Me.MyComboBox2.TabIndex = 27
Me.MyComboBox2.Visible = False
'
'cbxCluster
'
Me.cbxCluster.AutoSize = True
Me.cbxCluster.ForeColor = System.Drawing.Color.Black
Me.cbxCluster.Location = New System.Drawing.Point(85, 2)
Me.cbxCluster.Name = "cbxCluster"
Me.cbxCluster.Size = New System.Drawing.Size(58, 17)
Me.cbxCluster.TabIndex = 29
Me.cbxCluster.Text = "Cluster"
Me.cbxCluster.UseVisualStyleBackColor = True
Me.cbxCluster.Visible = False
'
'cbxTaskForce
'
Me.cbxTaskForce.AutoSize = True
Me.cbxTaskForce.ForeColor = System.Drawing.Color.Black
Me.cbxTaskForce.Location = New System.Drawing.Point(174, 19)
Me.cbxTaskForce.Name = "cbxTaskForce"
Me.cbxTaskForce.Size = New System.Drawing.Size(77, 17)
Me.cbxTaskForce.TabIndex = 33
Me.cbxTaskForce.Text = "TaskForce"
Me.cbxTaskForce.UseVisualStyleBackColor = True
Me.cbxTaskForce.Visible = False
'
'cbxTeams
'
Me.cbxTeams.AutoSize = True
Me.cbxTeams.ForeColor = System.Drawing.Color.Black
Me.cbxTeams.Location = New System.Drawing.Point(7, 2)
Me.cbxTeams.Name = "cbxTeams"
Me.cbxTeams.Size = New System.Drawing.Size(78, 17)
Me.cbxTeams.TabIndex = 28
Me.cbxTeams.Text = "Alle Teams"
Me.cbxTeams.UseVisualStyleBackColor = True
'
'cbxVerwarung
'
Me.cbxVerwarung.AutoSize = True
Me.cbxVerwarung.ForeColor = System.Drawing.Color.Black
Me.cbxVerwarung.Location = New System.Drawing.Point(85, 19)
Me.cbxVerwarung.Name = "cbxVerwarung"
Me.cbxVerwarung.Size = New System.Drawing.Size(83, 17)
Me.cbxVerwarung.TabIndex = 32
Me.cbxVerwarung.Text = "Verwahrung"
Me.cbxVerwarung.UseVisualStyleBackColor = True
Me.cbxVerwarung.Visible = False
'
'cbxNeukunden
'
Me.cbxNeukunden.AutoSize = True
Me.cbxNeukunden.ForeColor = System.Drawing.Color.Black
Me.cbxNeukunden.Location = New System.Drawing.Point(7, 19)
Me.cbxNeukunden.Name = "cbxNeukunden"
Me.cbxNeukunden.Size = New System.Drawing.Size(82, 17)
Me.cbxNeukunden.TabIndex = 30
Me.cbxNeukunden.Text = "Neukunden"
Me.cbxNeukunden.UseVisualStyleBackColor = True
Me.cbxNeukunden.Visible = False
'
'Panel3
'
Me.Panel3.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Panel3.Controls.Add(Me.txtSearch)
Me.Panel3.Controls.Add(Me.Label2)
Me.Panel3.Controls.Add(Me.Label1)
Me.Panel3.Controls.Add(Me.txtDatumAb)
Me.Panel3.Controls.Add(Me.CheckBox1)
Me.Panel3.Controls.Add(Me.Label22)
Me.Panel3.Controls.Add(Me.Label25)
Me.Panel3.Controls.Add(Me.txtVermerk)
Me.Panel3.Controls.Add(Me.Button10)
Me.Panel3.Dock = System.Windows.Forms.DockStyle.Top
Me.Panel3.Location = New System.Drawing.Point(0, 0)
Me.Panel3.Name = "Panel3"
Me.Panel3.Size = New System.Drawing.Size(319, 76)
Me.Panel3.TabIndex = 3
'
'Label22
'
Me.Label22.AutoSize = True
Me.Label22.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label22.ForeColor = System.Drawing.Color.White
Me.Label22.Location = New System.Drawing.Point(0, 4)
Me.Label22.Name = "Label22"
Me.Label22.Size = New System.Drawing.Size(124, 13)
Me.Label22.TabIndex = 0
Me.Label22.Text = "Benachrichtigungen:"
'
'Label25
'
Me.Label25.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label25.ForeColor = System.Drawing.Color.White
Me.Label25.Location = New System.Drawing.Point(604, 6)
Me.Label25.Name = "Label25"
Me.Label25.Size = New System.Drawing.Size(207, 19)
Me.Label25.TabIndex = 1
Me.Label25.Text = "0 Akte vom Arbeitsplatz übernommen"
Me.Label25.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'txtVermerk
'
Me.txtVermerk.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.txtVermerk.Location = New System.Drawing.Point(3, 50)
Me.txtVermerk.Name = "txtVermerk"
Me.txtVermerk.ReadOnly = True
Me.txtVermerk.Size = New System.Drawing.Size(312, 20)
Me.txtVermerk.TabIndex = 31
'
'Button10
'
Me.Button10.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Button10.Enabled = False
Me.Button10.ForeColor = System.Drawing.Color.Black
Me.Button10.Image = Global.AVISO.My.Resources.Resources.ok
Me.Button10.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button10.Location = New System.Drawing.Point(207, 7)
Me.Button10.Name = "Button10"
Me.Button10.Padding = New System.Windows.Forms.Padding(0, 0, 10, 0)
Me.Button10.Size = New System.Drawing.Size(109, 37)
Me.Button10.TabIndex = 3
Me.Button10.TabStop = False
Me.Button10.Text = "Bestätigen"
Me.Button10.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button10.UseVisualStyleBackColor = True
'
'CheckBox1
'
Me.CheckBox1.AutoSize = True
Me.CheckBox1.ForeColor = System.Drawing.Color.White
Me.CheckBox1.Location = New System.Drawing.Point(3, 25)
Me.CheckBox1.Name = "CheckBox1"
Me.CheckBox1.Size = New System.Drawing.Size(86, 17)
Me.CheckBox1.TabIndex = 32
Me.CheckBox1.Text = "Alte Einträge"
Me.CheckBox1.UseVisualStyleBackColor = True
'
'txtDatumAb
'
Me.txtDatumAb._DateTimeOnly = False
Me.txtDatumAb._numbersOnly = False
Me.txtDatumAb._numbersOnlyKommastellen = ""
Me.txtDatumAb._numbersOnlyTrennzeichen = True
Me.txtDatumAb._Prozent = False
Me.txtDatumAb._ShortDateNew = True
Me.txtDatumAb._ShortDateOnly = False
Me.txtDatumAb._TimeOnly = False
Me.txtDatumAb._TimeOnly_Seconds = False
Me.txtDatumAb._value = ""
Me.txtDatumAb._Waehrung = False
Me.txtDatumAb._WaehrungZeichen = True
Me.txtDatumAb.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.txtDatumAb.ForeColor = System.Drawing.Color.Black
Me.txtDatumAb.Location = New System.Drawing.Point(213, 50)
Me.txtDatumAb.MaxLineLength = -1
Me.txtDatumAb.MaxLines_Warning = ""
Me.txtDatumAb.MaxLines_Warning_Label = Nothing
Me.txtDatumAb.Name = "txtDatumAb"
Me.txtDatumAb.Size = New System.Drawing.Size(100, 20)
Me.txtDatumAb.TabIndex = 33
Me.txtDatumAb.Visible = False
'
'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.ForeColor = System.Drawing.Color.White
Me.Label1.Location = New System.Drawing.Point(185, 53)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(22, 13)
Me.Label1.TabIndex = 34
Me.Label1.Text = "ab:"
Me.Label1.Visible = False
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.ForeColor = System.Drawing.Color.White
Me.Label2.Location = New System.Drawing.Point(5, 53)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(41, 13)
Me.Label2.TabIndex = 36
Me.Label2.Text = "Suche:"
Me.Label2.Visible = False
'
'txtSearch
'
Me.txtSearch._DateTimeOnly = False
Me.txtSearch._numbersOnly = False
Me.txtSearch._numbersOnlyKommastellen = ""
Me.txtSearch._numbersOnlyTrennzeichen = True
Me.txtSearch._Prozent = False
Me.txtSearch._ShortDateNew = False
Me.txtSearch._ShortDateOnly = False
Me.txtSearch._TimeOnly = False
Me.txtSearch._TimeOnly_Seconds = False
Me.txtSearch._value = ""
Me.txtSearch._Waehrung = False
Me.txtSearch._WaehrungZeichen = True
Me.txtSearch.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.txtSearch.ForeColor = System.Drawing.Color.Black
Me.txtSearch.Location = New System.Drawing.Point(50, 50)
Me.txtSearch.MaxLineLength = -1
Me.txtSearch.MaxLines_Warning = ""
Me.txtSearch.MaxLines_Warning_Label = Nothing
Me.txtSearch.Name = "txtSearch"
Me.txtSearch.Size = New System.Drawing.Size(128, 20)
Me.txtSearch.TabIndex = 35
Me.txtSearch.Visible = False
'
'Timer1
'
Me.Timer1.Interval = 5000
'
'usrCntlBenachrichtigungenNEW
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.Controls.Add(Me.Panel2)
Me.Name = "usrCntlBenachrichtigungenNEW"
Me.Size = New System.Drawing.Size(319, 278)
Me.Panel2.ResumeLayout(False)
CType(Me.gridAvisoBenachrichtigungen, System.ComponentModel.ISupportInitialize).EndInit()
Me.Panel4.ResumeLayout(False)
Me.Panel4.PerformLayout()
Me.Panel3.ResumeLayout(False)
Me.Panel3.PerformLayout()
Me.ResumeLayout(False)
End Sub
Friend WithEvents Panel2 As Panel
Friend WithEvents Panel4 As Panel
Friend WithEvents Button10 As Button
Friend WithEvents Panel3 As Panel
Friend WithEvents MyComboBox2 As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents Label22 As Label
Friend WithEvents Label25 As Label
Public WithEvents gridAvisoBenachrichtigungen As VERAG_PROG_ALLGEMEIN.MyDatagridview
Friend WithEvents cbxTeams As CheckBox
Friend WithEvents cbxCluster As CheckBox
Friend WithEvents cbxNeukunden As CheckBox
Friend WithEvents txtVermerk As TextBox
Friend WithEvents cbxVerwarung As CheckBox
Friend WithEvents cbxTaskForce As CheckBox
Friend WithEvents txtDatumAb As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents CheckBox1 As CheckBox
Friend WithEvents txtSearch As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label2 As Label
Friend WithEvents Label1 As Label
Friend WithEvents Timer1 As Timer
End Class

123
Aviso/Benachrichtigung/usrCntlBenachrichtigungenNEW.resx Normal file
View File

@@ -0,0 +1,123 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="Timer1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
</root>

530
Aviso/Benachrichtigung/usrCntlBenachrichtigungenNEW.vb Normal file
View File

@@ -0,0 +1,530 @@
Imports System.Web.UI.WebControls
Imports DAKOSY_Worker.SumAErledigungsinformationVorpapier
Imports VERAG_PROG_ALLGEMEIN
Public Class usrCntlBenachrichtigungenNEW
Dim VERAGSQL As New VERAG_PROG_ALLGEMEIN.SQL
Dim ASF As New AvisoStatusFunctions
Dim See_Cbam As Boolean = False
Public Event SelectionChanged()
Public Sub initDgvAvisoBenachrichtigungen(Grid_aktiv, gridFont)
Try
' Wenn Grid nicht aktiv, nichts tun
If Not Grid_aktiv Then Exit Sub
' Merke zuvor ausgewählte ab_id (wenn genau eine Zeile selektiert)
Dim prevSelectedAbId As Integer = -1
Try
If gridAvisoBenachrichtigungen.SelectedRows.Count = 1 Then
Dim v = gridAvisoBenachrichtigungen.SelectedRows(0).Cells("ab_id").Value
If v IsNot Nothing AndAlso v IsNot DBNull.Value AndAlso IsNumeric(v) Then
prevSelectedAbId = CInt(v)
End If
End If
Catch
prevSelectedAbId = -1
End Try
With gridAvisoBenachrichtigungen
.DefaultCellStyle.Font = gridFont
If .Columns IsNot Nothing AndAlso .Columns.Count > 0 Then .Columns.Clear()
Dim whereMA = " AND ( 1<>1 "
'WARENORT
If VERAG_PROG_ALLGEMEIN.cAllgemein.WARENORT_ZUGANG Then
whereMA &= " OR (ab_TO_Art='W' AND ab_TO_Code='" & VERAG_PROG_ALLGEMEIN.cAllgemein.WARENORT & "') "
'NEUKUNDEN
ElseIf cbxNeukunden.Checked Then
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "VERAG"
whereMA &= " OR (ab_TO_Art='T' AND ab_TO_Code='13') " 'TEAM_NEUKUNDEN --> VERAG
End Select
'SONST
Else
If cbxCluster.Checked Then
whereMA &= " OR (ab_TO_Art='F' AND ab_TO_Code='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "') "
Else
whereMA &= " OR (ab_TO_Art='B' AND ab_TO_Code='" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRID & "') "
whereMA &= " OR (ab_TO_Art='N' AND ab_TO_Code='" & VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG & "') "
whereMA &= " OR (ab_TO_Art='A' AND ab_TO_Code='" & VERAG_PROG_ALLGEMEIN.cAllgemein.ABTEILUNG & "') "
whereMA &= " OR (ab_TO_Art='F' AND ab_TO_Code='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "') "
End If
If cbxVerwarung.Checked Then
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "VERAG"
whereMA &= " OR (ab_TO_Art='T' AND ab_TO_Code='26') " 'TEAM_VERWARUNG --> VERAG
End Select
End If
If cbxTaskForce.Checked Then
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "VERAG"
whereMA &= " OR (ab_TO_Art='T' AND ab_TO_Code='7') " 'TEAM_TASKFORCE --> VERAG
End Select
End If
If See_Cbam Then
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "VERIMEX", "AMBAR"
Case Else
whereMA &= " OR (ab_TO_Art='T' AND ab_TO_Code='33') " 'TEAM_CBAM --> VERAG
End Select
End If
If cbxTeams.Checked Then
whereMA &= " Or (ab_TO_Art='T' AND ab_TO_Code IN (SELECT [team_id] FROM ADMIN.dbo.[tblTeams] WHERE team_firma = '" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "')) "
Else
If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER IsNot Nothing AndAlso VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId IsNot Nothing Then
whereMA &= " OR (ab_TO_Art='T' AND ab_TO_Code='" & VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId & "') "
End If
End If
End If
whereMA &= " ) "
Dim whereStatus As String
Dim selectBestaetigung As String = ""
Dim joinBestaetigung As String = ""
If CheckBox1.Checked Then
Dim datumAb As Date
If Date.TryParse(txtDatumAb.Text, datumAb) Then
whereStatus = " AND ab_status <> 0 AND ab_Bestaetigt_Datum >= '" & datumAb.ToString("yyyyMMdd") & "' "
Else
whereStatus = " AND ab_status <> 0 "
End If
If txtSearch.Text.Trim <> "" Then
Dim s As String = Replace(txtSearch.Text.Trim, "'", "''")
whereStatus &= " AND (" &
"ab_Vermerk LIKE '%" & s & "%' " &
"OR LKW_Nr LIKE '%" & s & "%'" &
") "
End If
selectBestaetigung = ",ab_Bestaetigt_Datum,MA.mit_username AS BestaetigtVon "
joinBestaetigung = " LEFT JOIN ADMIN.dbo.tblMitarbeiter MA ON MA.mit_id = ab_Bestaetigt_MaId "
Else
whereStatus = " AND ab_status = 0 "
End If
Dim sqlStr As String =
"SELECT ab_id,ab_AvisoID,ab_SendungID,ab_Art,ab_Beschreibung,LKW_Nr" &
selectBestaetigung &
",ab_TO_Art,ab_TO_Code,ab_Bestaetigt_MaId,ab_Datum,ab_Status,ab_BenachrichtigungCode,ab_Prioritaet,ab_MitarbeiterId,ab_Firma,ab_Cluster,ab_collAnhId,ab_Vermerk,ab_ReminderVermerkID,ab_ReminderVermerkCode,ab_VermerkID,Status " &
"FROM tblAvisoBenachrichtigungen " &
"INNER JOIN AVISO ON AvisoId=ab_AvisoID " &
joinBestaetigung &
"WHERE 1=1 " &
whereStatus &
whereMA &
" ORDER BY CASE WHEN ANKUNFT<'20010101' THEN '29990101' ELSE ANKUNFT END ASC,ab_Datum ASC"
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
.DataSource = VERAGSQL.loadDgvBySql_Param(sqlStr, "AVISO", 1500, list,,, 3)
If .DataSource Is Nothing Then Exit Sub
Dim nfont = New Font(.Font.FontFamily, .Font.Size, FontStyle.Regular)
If .Columns.Count = 0 Then Exit Sub
.DefaultCellStyle.Font = nfont
.MultiSelect = False
.Columns("ab_id").Visible = False
.Columns("ab_AvisoID").Visible = False
.Columns("ab_SendungID").Visible = False
.Columns("ab_BenachrichtigungCode").Visible = False
.Columns("ab_Prioritaet").Visible = False
.Columns("ab_Status").Visible = False
.Columns("ab_Vermerk").Visible = False
.Columns("ab_collAnhId").Visible = False
.Columns("ab_ReminderVermerkID").Visible = False
.Columns("ab_VermerkID").Visible = False
.Columns("ab_ReminderVermerkCode").Visible = False
.Columns("ab_TO_Art").Visible = False
.Columns("ab_TO_Code").Visible = False
.Columns("ab_Bestaetigt_MaId").Visible = False
' .Columns("ab_Bestaetigt_Datum").Visible = False
.Columns("ab_Firma").Visible = False
.Columns("ab_Cluster").Visible = False
.Columns("Status").Visible = False
.Columns("ab_Art").Width = 30
.Columns("ab_Art").HeaderText = "Art"
.Columns("ab_Art").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
.Columns("LKW_Nr").MinimumWidth = 95
.Columns("LKW_Nr").HeaderText = "LKW-Kennzeichen"
.Columns("LKW_Nr").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
.Columns("ab_Datum").Visible = False
.Columns("ab_Datum").Width = 80
.Columns("ab_Datum").HeaderText = "Datum"
.Columns("ab_Datum").DefaultCellStyle.Format = "dd.MM. HH:mm"
.Columns("ab_Datum").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
.Columns("ab_Beschreibung").MinimumWidth = 140
.Columns("ab_Beschreibung").HeaderText = "Beschreibung"
.Columns("ab_Beschreibung").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
.Columns("ab_Bestaetigt_MaId").Visible = False
.Columns("ab_MitarbeiterId").Visible = False
If CheckBox1.Checked Then
.Columns("ab_Bestaetigt_Datum").Visible = True
.Columns("BestaetigtVon").Visible = True
.Columns("ab_Bestaetigt_Datum").HeaderText = "Bestätigt"
.Columns("ab_Bestaetigt_Datum").Width = 95
.Columns("ab_Bestaetigt_Datum").DefaultCellStyle.Format = "dd.MM. HH:mm"
.Columns("BestaetigtVon").HeaderText = "Bestätigt von"
.Columns("BestaetigtVon").Width = 100
End If
If .RowCount = 0 Then .Columns.Clear() : Exit Sub
Dim t = New DataGridViewTextBoxColumn
t.Name = "cmlnInfo"
t.HeaderText = ""
t.DefaultCellStyle.NullValue = "i"
t.Width = 20 : t.DefaultCellStyle.Padding = New Padding(2) : t.DefaultCellStyle.BackColor = Color.Gray
t.DefaultCellStyle.Font = New Font(.Font.FontFamily, .Font.Size, FontStyle.Bold)
t.DefaultCellStyle.ForeColor = Color.White
t.DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
t.Visible = False
.Columns.Insert(0, t)
.SelectionMode = DataGridViewSelectionMode.FullRowSelect
For Each r As DataGridViewRow In .Rows
If r.Cells("Status").Value = 3 Then
r.DefaultCellStyle.ForeColor = Color.Red
r.DefaultCellStyle.Font = New Font(Me.Font.FontFamily, Me.Font.Size, FontStyle.Bold)
End If
If r.Cells("ab_BenachrichtigungCode").Value = "6" Then
r.Cells("ab_Art").Value = "VK"
End If
Next
.ClearSelection()
' Grid_aktiv = False
' Falls zuvor eine Zeile markiert war, wieder auswählen und in Sicht bringen
If prevSelectedAbId > -1 Then
Try
For Each rr As DataGridViewRow In .Rows
Dim vid = rr.Cells("ab_id").Value
If vid IsNot Nothing AndAlso vid IsNot DBNull.Value AndAlso IsNumeric(vid) Then
If CInt(vid) = prevSelectedAbId Then
.ClearSelection()
Dim colIndex As Integer = .Columns("LKW_Nr").Index
If Not .Rows(rr.Index).Cells(colIndex).Visible Then
colIndex = .FirstDisplayedCell.ColumnIndex
End If
.CurrentCell = .Rows(rr.Index).Cells(colIndex)
.Rows(rr.Index).Selected = True
.FirstDisplayedScrollingRowIndex = Math.Max(0, rr.Index - 2)
Exit For
End If
End If
Next
Catch
' ignore
End Try
End If
End With
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
End Sub
Private Sub gridAvisoBenachrichtigungen_CellPainting(sender As Object, e As DataGridViewCellPaintingEventArgs) Handles gridAvisoBenachrichtigungen.CellPainting
If e.RowIndex <> -1 AndAlso gridAvisoBenachrichtigungen.Columns(e.ColumnIndex).Name = "ab_Art" Then
If gridAvisoBenachrichtigungen.Rows(e.RowIndex).Cells("ab_Beschreibung").Value.ToString.Contains("AAS:") Then
If (e.PaintParts And DataGridViewPaintParts.Background) <> DataGridViewPaintParts.None Then
e.Graphics.DrawImage(My.Resources.reminder, e.CellBounds)
'e.CellStyle.BackColor = Color.White
gridAvisoBenachrichtigungen.Rows(e.RowIndex).Cells("ab_Art").Value = ""
gridAvisoBenachrichtigungen.Rows(e.RowIndex).Cells("ab_Art").Style.BackColor = Color.Gray
End If
If Not e.Handled Then
e.Handled = True
e.PaintContent(e.CellBounds)
End If
End If
End If
End Sub
Private Sub usrCntlBenachrichtigungen_Load(sender As Object, e As EventArgs) Handles Me.Load
'MyComboBox2.Items.Clear()
'MyComboBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Benutzer", "Benutzer"))
'MyComboBox2.fillWithSQL("SELECT team_id, team_bezeichnung FROM tblTeams WHERE team_firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "'", False, "ADMIN", True, False)
'MyComboBox2.changeItem("Benutzer")
' MyComboBox2.chang
Timer1.Enabled = True
MyComboBox2.Items.Clear()
MyComboBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG", "VERAG"))
MyComboBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("IMEX", "IMEX"))
MyComboBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("FRONTOFFICE", "FRONTOFFICE"))
MyComboBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("UNISPED", "UNISPED"))
MyComboBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AMBAR", "AMBAR"))
MyComboBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATILLA", "ATILLA"))
MyComboBox2.changeItem(VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA)
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("BENACHRICHTIGUNGEN_SeeCluster", "AVISO") Then
cbxCluster.Visible = True
If VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER <> "" Then
cbxCluster.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER
End If
End If
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("BENACHRICHTIGUNGEN_SeeNeukunden", "AVISO") Then
cbxNeukunden.Visible = True
'cbxNeukunden.Checked = True
End If
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("BENACHRICHTIGUNGEN_SeeCBAM", "AVISO") Then
See_Cbam = True
End If
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("BENACHRICHTIGUNGEN_SeeVerwahrung", "AVISO") Then
cbxVerwarung.Visible = True
cbxVerwarung.Checked = True
End If
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("BENACHRICHTIGUNGEN_SeeTaskForce", "AVISO") Then
cbxTaskForce.Visible = True
cbxTaskForce.Checked = True
End If
'NEIN; weils zB Waidhaus dann alles sieht und übernimmt
'If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER IsNot Nothing Then
' If CInt(If(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId, "-1")) <= 0 Then cbxTeams.Checked = True
'End If
'Nur VERIMEX
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "VERIMEX"
If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER IsNot Nothing Then
If CInt(If(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId, "-1")) <= 0 Then cbxTeams.Checked = True
End If
Case "ATILLA"
cbxCluster.Visible = False
cbxTeams.Visible = False
End Select
' MyComboBox2.changeItem(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId)
End Sub
Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click
If CheckBox1.Checked Then
initDgvAvisoBenachrichtigungen(True, Me.Font)
Else
If gridAvisoBenachrichtigungen.SelectedRows.Count > 0 Then
Dim AB As New VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen(gridAvisoBenachrichtigungen.SelectedRows(0).Cells("ab_id").Value)
'BEstätigen
Select Case AB.ab_BenachrichtigungCode
Case 5 ' REMINDER VERMERK
Dim f As New frmAvisoBenachrichtigungReminderBestaetigen(AB)
Select Case f.ShowDialog(Me)
Case DialogResult.OK
AB.BESTAETIGEN_BENACHRICHTIGUNG()
'frmHauptfenster.avisoAktualisierenAktiveIdBehalten(AB.ab_AvisoID, True)#
frmHauptfensterNew.REFRESH_AVISO_MAIN(AB.ab_AvisoID)
initDgvAvisoBenachrichtigungen(True, Me.Font)
Case DialogResult.Cancel
'NIX
Case DialogResult.Yes
AB.BESTAETIGEN_BENACHRICHTIGUNG()
initDgvAvisoBenachrichtigungen(True, Me.Font)
Case Else
'NIX soll eig nicht vorkommen
End Select
Case Else 'Weiterleitung Akt/Snd
If AB.BESTAETIGEN_BENACHRICHTIGUNG Then
Select Case AB.ab_BenachrichtigungCode
Case VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungenCodes.Vorauskasse_OK
AvisoStatusFunctions.insertSendungsVermerk(AB.ab_SendungID, AB.ab_AvisoID, "Benachrichtigung 'Vorauskasse OK' bestätigt.", 46)
'Akt nicht übernehmen
Case VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungenCodes.ZOLL_Dokumentenbeschau
AvisoStatusFunctions.insertSendungsVermerk(AB.ab_SendungID, AB.ab_AvisoID, "Benachrichtigung 'ZOLL:Dokumentenbeschau' bestätigt.", 46)
'Akt nicht übernehmen
Case Else
'Weiterleitung --> Übermehmen
If AB.ab_Art = "A" Then
If Not ASF.AktUebernehmen(AB.ab_AvisoID, False, False, False) Then Exit Sub
' If Not ASF.AktUebernehmen(AB.ab_AvisoID, False, False, True) Then Exit Sub
Else
If Not ASF.SendungUebernehmen(AB.ab_SendungID, AB.ab_AvisoID) Then Exit Sub
End If
End Select
'VERMERK inserieren
'insertSendungsVermerk(SendungID, myAviso.AvisoID, "In die Neukunden-Abteilung gegeben.", 46)
Dim f As New frmAvisoWeiterleitenBestaetigen(AB)
f.ShowDialog(Me)
'frmHauptfenster.avisoAktualisierenAktiveIdBehalten(AB.ab_AvisoID, True)
frmHauptfensterNew.REFRESH_AVISO_MAIN(AB.ab_AvisoID)
initDgvAvisoBenachrichtigungen(True, Me.Font)
End If
End Select
End If
End If
End Sub
Private Sub gridAvisoBenachrichtigungen_CellClick(sender As Object, e As DataGridViewCellMouseEventArgs) Handles gridAvisoBenachrichtigungen.CellMouseClick, gridAvisoBenachrichtigungen.CellMouseClick
RaiseEvent SelectionChanged()
End Sub
Private Sub keydownMyAviso(sender As Object, e As KeyEventArgs) Handles gridAvisoBenachrichtigungen.KeyUp
Try
If e.KeyCode = Keys.Up Or e.KeyCode = Keys.Down Or e.KeyCode = Keys.PageUp Or e.KeyCode = Keys.PageDown Or e.KeyCode = Keys.Return Or e.KeyCode = Keys.Enter Then
If sender.selectedRows.count = 0 Then Exit Sub
RaiseEvent SelectionChanged()
End If
Catch ex As Exception
End Try
End Sub
Private Sub usrCntlBenachrichtigungen_SelectionChanged() Handles gridAvisoBenachrichtigungen.SelectionChanged
Button10.Enabled = ((gridAvisoBenachrichtigungen.SelectedRows.Count > 0) Or (CheckBox1.Checked = True))
txtVermerk.Text = ""
If gridAvisoBenachrichtigungen.SelectedRows.Count > 0 Then
txtVermerk.Text = If(gridAvisoBenachrichtigungen.SelectedRows(0).Cells("ab_vermerk").Value, "")
End If
End Sub
Private Sub usrCntlBenachrichtigungen_SelectionChanged(sender As Object, e As EventArgs) Handles gridAvisoBenachrichtigungen.SelectionChanged
End Sub
Private Sub cbxTeams_CheckedChanged(sender As Object, e As EventArgs) Handles cbxTeams.CheckedChanged
'frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID, True)
'initDgvAvisoBenachrichtigungen(True, Me.Font)
initDgvAvisoBenachrichtigungen(True, Me.Font)
End Sub
Private Sub cbxCluster_CheckedChanged(sender As Object, e As EventArgs) Handles cbxCluster.CheckedChanged
initDgvAvisoBenachrichtigungen(True, Me.Font)
End Sub
Private Sub cbxNeukunden_CheckedChanged(sender As Object, e As EventArgs) Handles cbxNeukunden.CheckedChanged, cbxVerwarung.CheckedChanged, cbxTaskForce.CheckedChanged
initDgvAvisoBenachrichtigungen(True, Me.Font)
End Sub
Private Sub gridAviso_CellPainting(sender As Object, e As DataGridViewCellPaintingEventArgs) Handles gridAvisoBenachrichtigungen.CellPainting
'If e.RowIndex <> -1 AndAlso gridAvisoBenachrichtigungen.Columns(e.ColumnIndex).Name = "ab_Art" Then
' If gridAvisoBenachrichtigungen.Rows(e.RowIndex).Cells("ab_BenachrichtigungCode").Value = "6" Then
' If (e.PaintParts And DataGridViewPaintParts.Background) <> DataGridViewPaintParts.None Then
' 'e.Graphics.Clear(Color.White)
' e.Graphics.DrawImage(My.Resources.vorauszahlung_bg, e.CellBounds.X + 5, e.CellBounds.Y + 1, 18, e.CellBounds.Height - 2)
' ' e.CellStyle.ForeColor = Color.White
' gridAvisoBenachrichtigungen.Rows(e.RowIndex).Cells(e.ColumnIndex).Value = ""
' ' e.PaintContent(e.CellBounds)
' End If
' If Not e.Handled Then
' e.Handled = True
' e.PaintContent(e.CellBounds)
' End If
' End If
'End If
End Sub
Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
If CheckBox1.Checked Then
txtDatumAb.Visible = True
Label1.Visible = True
Label2.Visible = True
txtSearch.Visible = True
txtVermerk.Visible = False
txtDatumAb._value = Now.AddDays(0).ToShortDateString
Button10.Image = My.Resources.search
Button10.Text = "Suchen"
Else
txtDatumAb.Visible = False
Label1.Visible = False
Label2.Visible = False
txtSearch.Visible = False
txtSearch.Text = ""
txtVermerk.Visible = True
Button10.Image = My.Resources.ok
Button10.Text = "Bestätigen"
End If
initDgvAvisoBenachrichtigungen(True, Me.Font)
End Sub
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
Try
If Not CheckBox1.Checked Then
initDgvAvisoBenachrichtigungen(True, Me.Font)
End If
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
End Sub
Private Sub txtSearch_KeyDown(sender As Object, e As KeyEventArgs) Handles txtSearch.KeyDown
If CheckBox1.Checked Then
If e.KeyCode = Keys.Enter Then
initDgvAvisoBenachrichtigungen(True, Me.Font)
End If
End If
End Sub
Private Sub txtDatumAb_ValueChanged() Handles txtDatumAb.ValueChanged
If CheckBox1.Checked Then
initDgvAvisoBenachrichtigungen(True, Me.Font)
End If
End Sub
End Class

4
Aviso/My Project/AssemblyInfo.vb
View File

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("4.2.8.9")>
<Assembly: AssemblyFileVersion("4.2.8.9")>
<Assembly: AssemblyVersion("4.2.9.6")>
<Assembly: AssemblyFileVersion("4.2.9.6")>

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

@@ -868,6 +868,46 @@ Namespace My.Resources
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Public ReadOnly Property herbert() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("herbert", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Public ReadOnly Property herbert_afraid() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("herbert_afraid", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Public ReadOnly Property herbert_destroyed() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("herbert_destroyed", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Public ReadOnly Property herbert_happy() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("herbert_happy", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
@@ -1458,6 +1498,16 @@ Namespace My.Resources
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Public ReadOnly Property KI_Assist_Herbert() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("KI_Assist_Herbert", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
@@ -1918,6 +1968,16 @@ Namespace My.Resources
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Public ReadOnly Property s_KI_Assist_Herbert() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("s_KI_Assist_Herbert", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>

458
Aviso/My Project/Resources.resx
View File

@@ -118,14 +118,23 @@
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="memories2" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\memories2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="ico_parkzeit" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ico_parkzeit.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ico_inventor" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ico_inventor.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="personInaktiv" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\personInaktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Transcode" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Transcode.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="beleg1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\beleg1.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ico_rechnungen" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ico_rechnungen.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ico_settings" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ico_settings.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="stift" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\stift.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -136,15 +145,27 @@
<data name="Telefonliste" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Telefonliste.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ico_dienstplan" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ico_dienstplan.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="zollico" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\..\Diverses\zollico.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="AVISO_DCS" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\AVISO_DCS.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="memories5" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\memories5.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="els" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\els.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="_SUB" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\SUB.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ico_add" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ico_add.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="printer" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\printer.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -163,12 +184,18 @@
<data name="IMEX" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\IMEX.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="memories3" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\memories3.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="LEX" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\LEX.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Koerfez61" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\VK1.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="memories2" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\memories2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="disconnect" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\disconnect.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -184,23 +211,38 @@
<data name="personCheck_blue_small" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\personCheck_blue_small.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="weiterleiten" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\weiterleiten.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="WAI" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\WAI.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="unisped_aeo_DE" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\unisped_aeo_DE.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="fgas_s" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\fgas_s.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ico_kassenbuch" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ico_kassenbuch.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="plus1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\plus1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ico_webWww" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ico_webWww.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="nellenquack" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\nellenquack.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="VZ_HINDERNISS___ZOLLBESCHAU___PROTOKOLL" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\resources\vz hinderniss - zollbeschau - protokoll.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="abfetigungTR_aktiv" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\..\Diverses\miniButtons\abfetigungTR_aktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="SND_verbinden" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\SND_verbinden.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ico_checklist" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ico_checklist.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ico_kunden" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ico_kunden.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Verag_AG_Logopng" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Verag-AG-Logopng.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -217,6 +259,12 @@
<data name="add_person" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\android-add-contact.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ico_security" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ico_security.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="personCheck_blue" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\personCheck_blue.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="person_add" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\person_add.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -238,12 +286,21 @@
<data name="android_clock" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\android-clock.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Atilla" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Atilla.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="digitalerAkt_small" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\digitalerAkt_small.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ico_vorkasse" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ico_vorkasse.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ico_docSearch" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ico_docSearch.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="pdf11" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\pdf11.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="cbam_s" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\cbam_s.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ADMIN_pwd" xml:space="preserve">
<value>aviso2015</value>
</data>
@@ -265,6 +322,12 @@
<data name="wiki" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\wiki.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="pdf" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\pdf.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Atilla" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Atilla.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="urgent" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\urgent.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -289,12 +352,27 @@
<data name="zoll" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\zoll.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ico_speditionsbuch" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ico_speditionsbuch.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="statistik" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\statistik.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Transcode" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Transcode.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="auftrag3" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\auftrag3.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="android-add-contact" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\android-add-contact.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ico_ImportAssistant" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ico_ImportAssistant.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ico_loupe" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ico_loupe.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="NKD" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\NKD.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -313,18 +391,24 @@
<data name="Unisped_logo" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Unisped_logo.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ico_atez_logicust" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ico_atez_logicust.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="spedbuch" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\spedbuch.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Telefonliste_small" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Telefonliste_small.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="personCheck_small" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\personCheck_small.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="eudr" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\eudr.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="tts" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\tts.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="vermerkBtn" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\vermerkBtn.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="istLog" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\istLog.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -334,14 +418,17 @@
<data name="akt_ATILLA" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\akt_ATILLA.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ico_mitarbeiter" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ico_mitarbeiter.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="uid" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\uid.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="gear2" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\gear2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="vermerkBtn" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\vermerkBtn.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="abfetigungTR_aktiv" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\..\Diverses\miniButtons\abfetigungTR_aktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="GVMS-image" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\..\Diverses\GVMS-image.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -352,6 +439,12 @@
<data name="warning" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\warning.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ico_ATR" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ico_ATR.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ico_docFin" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ico_docFin.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="avisoNewMsg" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\avisoNewMsg.ico;System.Drawing.Icon, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -364,27 +457,45 @@
<data name="spedbuch1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\spedbuch1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="beleg1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\beleg1.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="weiterleiten" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\weiterleiten.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="personCheck_gray_small" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\personCheck_gray_small.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="ico_docSave" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ico_docSave.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="compliance_s" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\compliance_s.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ico_kasse" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ico_kasse.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="email_big1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\email_big1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ge_transport" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ge_transport.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ico_organigram" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ico_organigram.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="pdfprint1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\pdfprint1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="stift2" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\stift.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="personCheck_blue" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\personCheck_blue.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="ico_zeiterfassung" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ico_zeiterfassung.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ico_fakturierung" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ico_fakturierung.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="QS" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\QS.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ico_mail" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ico_mail.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="vorauszahlung3" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\vorauszahlung3.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -394,6 +505,9 @@
<data name="arrow_right_a" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\arrow-right-a.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ico_truck" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ico_truck.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="IMEX_LOGO_simple" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\IMEX-LOGO_simple.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -418,24 +532,39 @@
<data name="belegEUR1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\belegEUR1.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="WAI" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\WAI.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="ico_verzeichnis" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ico_verzeichnis.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="DGS_Instructions_Export" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\resources\dgs_instructions_export.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="AMB" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\AMB.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="ico_statistic" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ico_statistic.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="person" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\person.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="atr_s" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\atr_s.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ambar_boarder_new" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ambar_boarder_new.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="MUSTER" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\MUSTER.nlc;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="SBG" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\SBG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ico_webSecurity" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ico_webSecurity.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="atr" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\atr.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="s_KI_Assist_Herbert" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\s_KI_Assist_Herbert.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ico_weel" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ico_weel.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="fragezeichen1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\fragezeichen1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -445,8 +574,8 @@
<data name="spedbuch_small" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\android-note1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="digitalerAkt_small" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\digitalerAkt_small.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="person" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\person.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="personCheck" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\personCheck.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -469,6 +598,9 @@
<data name="android_note" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\android-note.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ico_support" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ico_support.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="verimex" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\logo.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -481,14 +613,17 @@
<data name="Unisped_DE_logo" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Unisped_DE_logo.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="passport" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\passport.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="kasse_sw" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\1600.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="memories0" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\memories0.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="android-add-contact" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\android-add-contact.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="ico_importaviso" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ico_importaviso.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="LateAviso_s" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\LateAviso_s.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="tan" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\tan.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -505,8 +640,8 @@
<data name="search" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\search.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="kasse_sw" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\1600.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="personCheck_gray_small" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\personCheck_gray_small.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="wheel" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\wheel.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -514,18 +649,27 @@
<data name="warning2" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\warning2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="scanner" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\scanner.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="fakturiertInaktiv" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\fakturiertInaktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ambar_boarder" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ambar_boarder.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="stift1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\stift1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="personCheck_small" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\personCheck_small.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="memories1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\memories1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="zollberatung_s" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\zollberatung_s.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ico_persDocument" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ico_persDocument.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="fragezeichen" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\fragezeichen.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -544,6 +688,9 @@
<data name="abgeklaertAktiv" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\abgeklaertAktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="lorry" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\lorry.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="email" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\email.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -562,8 +709,8 @@
<data name="sprinter" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\sprinter.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="memories3" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\memories3.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="ico_atez_transitAI" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ico_atez_transitAI.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="vorauszahlung1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\vorauszahlung1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -583,6 +730,9 @@
<data name="Declarant" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Declarant.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="stift1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\stift1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="_3s" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\3s.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -595,14 +745,11 @@
<data name="igl" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\igl.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="MUSTER" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\MUSTER.nlc;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="kasse_sw_small" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\kasse_sw_small.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="LateAviso_s" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\LateAviso_s.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="ico_Options" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ico_Options.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="search1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\search.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -616,11 +763,11 @@
<data name="meris" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\meris.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="hp_versuchskaninchen" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\hp-versuchskaninchen.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="ico_atez_declarantAI" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ico_atez_declarantAI.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="memories5" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\memories5.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="SND_loesen" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\SND_loesen.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="noAviso_s1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\noAviso_s1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -631,8 +778,11 @@
<data name="NDK" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\NDK.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="email_big1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\email_big1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="AMB" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\AMB.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ico_handshake" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ico_handshake.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="vorauszahlung" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\vorauszahlung.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -643,14 +793,26 @@
<data name="del" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\del.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="lorry" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\lorry.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="ico_verknuepfung" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ico_verknuepfung.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="statusBtn_vorgeschrieben_Aktiv" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\statusBtn_vorgeschrieben_Aktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="pdf" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\pdf.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="hp_versuchskaninchen" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\hp-versuchskaninchen.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ico_CMR" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ico_CMR.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ico_atez_tariffAI" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ico_atez_tariffAI.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ico_www" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ico_www.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ico_DocEdit" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ico_DocEdit.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="word" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\word.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -676,12 +838,18 @@
<data name="truck_black" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\truck_black.ico;System.Drawing.Icon, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="scanner" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\scanner.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="passport" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\passport.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ico_webSearch" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ico_webSearch.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="word1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\word.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ico_zertifikate" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ico_zertifikate.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="evolog" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\evolog.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -694,184 +862,34 @@
<data name="speditionsbuchAktiv" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\speditionsbuchAktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="atr_s" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\atr_s.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="ico_weitereForm" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ico_weitereForm.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ATANAK_Instructions_Export_T1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\resources\atanak_instructions_export_t1.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="aktualisieren_40" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\aktualisieren-40.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="soenmez" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\soenmez.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="abfetigungTR_inaktiv" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\..\Diverses\miniButtons\abfetigungTR_inaktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="cbam_s" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\cbam_s.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="KI_Assist_Herbert" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\KI_Assist_Herbert.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="compliance_s" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\compliance_s.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="herbert" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\herbert.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="eudr" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\eudr.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="herbert_afraid" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\herbert_afraid.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="fgas_s" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\fgas_s.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="herbert_destroyed" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\herbert_destroyed.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="zollberatung_s" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\zollberatung_s.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ambar_boarder_new" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ambar_boarder_new.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="aktualisieren_40" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\aktualisieren-40.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="AVISO_DCS" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\AVISO_DCS.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="SND_loesen" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\SND_loesen.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="SND_verbinden" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\SND_verbinden.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ico_add" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ico_add.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ico_checklist" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ico_checklist.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ico_dienstplan" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ico_dienstplan.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ico_DocEdit" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ico_DocEdit.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ico_docFin" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ico_docFin.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ico_docSave" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ico_docSave.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ico_docSearch" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ico_docSearch.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ico_fakturierung" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ico_fakturierung.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ico_handshake" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ico_handshake.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ico_inventor" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ico_inventor.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ico_kassenbuch" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ico_kassenbuch.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ico_kunden" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ico_kunden.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ico_loupe" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ico_loupe.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ico_mail" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ico_mail.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ico_mitarbeiter" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ico_mitarbeiter.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ico_parkzeit" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ico_parkzeit.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ico_persDocument" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ico_persDocument.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ico_rechnungen" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ico_rechnungen.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ico_security" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ico_security.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ico_settings" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ico_settings.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ico_truck" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ico_truck.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ico_verzeichnis" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ico_verzeichnis.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ico_weel" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ico_weel.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ico_zeiterfassung" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ico_zeiterfassung.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ico_organigram" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ico_organigram.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ico_speditionsbuch" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ico_speditionsbuch.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ico_statistic" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ico_statistic.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ico_support" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ico_support.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ico_verknuepfung" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ico_verknuepfung.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ico_webSearch" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ico_webSearch.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ico_webSecurity" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ico_webSecurity.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ico_webWww" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ico_webWww.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ico_www" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ico_www.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ico_zertifikate" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ico_zertifikate.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ico_ATR" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ico_ATR.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ico_CMR" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ico_CMR.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ico_ImportAssistant" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ico_ImportAssistant.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ico_Options" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ico_Options.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ico_atez_declarantAI" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ico_atez_declarantAI.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ico_atez_logicust" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ico_atez_logicust.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ico_atez_tariffAI" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ico_atez_tariffAI.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ico_atez_transitAI" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ico_atez_transitAI.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ico_importaviso" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ico_importaviso.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ico_kasse" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ico_kasse.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ico_vorkasse" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ico_vorkasse.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ico_weitereForm" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ico_weitereForm.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="herbert_happy" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\herbert_happy.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
</root>

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

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 22 KiB

BIN
Aviso/Resources/herbert.jpg Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 69 KiB

BIN
Aviso/Resources/herbert_afraid.jpg Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 132 KiB

BIN
Aviso/Resources/herbert_destroyed.jpg Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 113 KiB

BIN
Aviso/Resources/herbert_happy.jpg Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 116 KiB

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

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 7.5 KiB

8
Aviso/frmBundesanzeigerZollTarif.vb
View File

@@ -10,9 +10,11 @@
InitializeComponent()
Select Case Link
Case "EU"
url = "https://ec.europa.eu/taxation_customs/dds2/taric/taric_consultation.jsp?Lang=de"
Case "EU" : url = "https://ec.europa.eu/taxation_customs/dds2/taric/taric_consultation.jsp?Lang=de"
Case "HerbertKI" : url = "https://herbert.it.verag.ag/"
Case "TariffAI" : url = "https://tariff.singlewindow.io/chat"
End Select
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
@@ -24,7 +26,7 @@
WebBrowser.Navigate(New Uri(url))
WebBrowser.AllowNavigation = True
WebBrowser.ScriptErrorsSuppressed = True 'Hinweismeldungen bzgl sicherer Verbindung unterbinden
MsgBox(url)
End Sub
Private Sub wb_NewWindow2(ByVal sender As Object, ByVal e As Kleinma.Controls.WebBrowserNewWindow2EventArgs) Handles WebBrowser.NewWindow2

467
Aviso/frmHauptfensterNew.Designer.vb generated
View File

@@ -177,6 +177,9 @@ Partial Class frmHauptfensterNew
Me.AnnahmeblattIMPORTToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.AnnahmeblattEXPORTToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ChecklisteVerwahrlagerToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem3 = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem23 = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem25 = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripSeparator13 = New System.Windows.Forms.ToolStripSeparator()
Me.EinheitspapierToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.CMRToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
@@ -277,17 +280,12 @@ Partial Class frmHauptfensterNew
Me.Panel6 = New System.Windows.Forms.Panel()
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
Me.FlowLayoutPanel2 = New System.Windows.Forms.FlowLayoutPanel()
Me.MyFlowLayoutPanel1 = New VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel(Me.components)
Me.btnKunden = New System.Windows.Forms.Button()
Me.btnSpedBuch = New System.Windows.Forms.Button()
Me.btnKassenbuch = New System.Windows.Forms.Button()
Me.btnFakturierung = New System.Windows.Forms.Button()
Me.btnRg = New System.Windows.Forms.Button()
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.Panel9 = New System.Windows.Forms.Panel()
Me.Button7 = New System.Windows.Forms.Button()
Me.Button4 = New System.Windows.Forms.Button()
Me.btnSmall = New System.Windows.Forms.Button()
Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components)
@@ -313,20 +311,23 @@ Partial Class frmHauptfensterNew
Me.ZertifikateToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.HomepageToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.pnlLeft = New System.Windows.Forms.Panel()
Me.UsrCntlBenachrichtigungen2 = New AVISO.usrCntlBenachrichtigungen()
Me.Panel5 = New System.Windows.Forms.Panel()
Me.cbxChartNurGelesen = New System.Windows.Forms.CheckBox()
Me.cbxInfoChat = New System.Windows.Forms.CheckBox()
Me.TabControl1 = New System.Windows.Forms.TabControl()
Me.TabPage1 = New System.Windows.Forms.TabPage()
Me.UsrCntlMessenger_ListNewChats1 = New VERAG_PROG_ALLGEMEIN.usrCntlMessenger_ListNewChats()
Me.TabPage2 = New System.Windows.Forms.TabPage()
Me.btnMitarbeiterKonto = New VERAG_PROG_ALLGEMEIN.FlatButton()
Me.Panel7 = New System.Windows.Forms.Panel()
Me.UsrCntlTestsystem1 = New VERAG_PROG_ALLGEMEIN.usrCntlTestsystem()
Me.MyFlowLayoutPanel1 = New VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel(Me.components)
Me.btnKunden = New System.Windows.Forms.Button()
Me.btnSpedBuch = New System.Windows.Forms.Button()
Me.btnKassenbuch = New System.Windows.Forms.Button()
Me.btnFakturierung = New System.Windows.Forms.Button()
Me.btnRg = New System.Windows.Forms.Button()
Me.UsrCntlBenachrichtigungen2 = New AVISO.usrCntlBenachrichtigungenNEW()
Me.UsrCntlMessenger_ListNewChats1 = New VERAG_PROG_ALLGEMEIN.usrCntlMessenger_ListNewChats()
Me.btnMitarbeiterKonto = New VERAG_PROG_ALLGEMEIN.FlatButton()
Me.UidAbfrageService1 = New VERAG_PROG_ALLGEMEIN.at.gv.bmf.finanzonline.uidAbfrageService()
Me.ToolStripMenuItem3 = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem23 = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem25 = New System.Windows.Forms.ToolStripMenuItem()
Me.conMenuAviso.SuspendLayout()
Me.MenuStrip1.SuspendLayout()
Me.pnlDetailsRechts.SuspendLayout()
@@ -352,7 +353,6 @@ Partial Class frmHauptfensterNew
Me.Panel6.SuspendLayout()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.FlowLayoutPanel2.SuspendLayout()
Me.MyFlowLayoutPanel1.SuspendLayout()
Me.pnlOptionen.SuspendLayout()
Me.Panel9.SuspendLayout()
Me.cntxt.SuspendLayout()
@@ -363,6 +363,7 @@ Partial Class frmHauptfensterNew
Me.Panel5.SuspendLayout()
Me.TabControl1.SuspendLayout()
Me.TabPage1.SuspendLayout()
Me.MyFlowLayoutPanel1.SuspendLayout()
Me.SuspendLayout()
'
'mnuInfo
@@ -1160,20 +1161,20 @@ Partial Class frmHauptfensterNew
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(285, 30)
Me.MANAGERToolStripMenuItem.Size = New System.Drawing.Size(277, 22)
Me.MANAGERToolStripMenuItem.Text = "Formular - Manager"
'
'ToolStripSeparator3
'
Me.ToolStripSeparator3.Name = "ToolStripSeparator3"
Me.ToolStripSeparator3.Size = New System.Drawing.Size(282, 6)
Me.ToolStripSeparator3.Size = New System.Drawing.Size(274, 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(285, 30)
Me.MailvorlagenToolStripMenuItem.Size = New System.Drawing.Size(277, 22)
Me.MailvorlagenToolStripMenuItem.Text = "Mailvorlagen"
Me.MailvorlagenToolStripMenuItem.Visible = False
'
@@ -1181,7 +1182,7 @@ Partial Class frmHauptfensterNew
'
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(285, 30)
Me.ToolStripMenuItem2.Size = New System.Drawing.Size(277, 22)
Me.ToolStripMenuItem2.Text = "Vollmachten"
'
'toolStrVM_de
@@ -1217,38 +1218,38 @@ Partial Class frmHauptfensterNew
'ToolStripMenuItem7
'
Me.ToolStripMenuItem7.Name = "ToolStripMenuItem7"
Me.ToolStripMenuItem7.Size = New System.Drawing.Size(285, 30)
Me.ToolStripMenuItem7.Size = New System.Drawing.Size(277, 22)
Me.ToolStripMenuItem7.Text = "Gestellungsgarantien"
'
'ToolStripMenuItem12
'
Me.ToolStripMenuItem12.Name = "ToolStripMenuItem12"
Me.ToolStripMenuItem12.Size = New System.Drawing.Size(285, 30)
Me.ToolStripMenuItem12.Size = New System.Drawing.Size(277, 22)
Me.ToolStripMenuItem12.Text = "Importaviso"
'
'ToolStripMenuItem15
'
Me.ToolStripMenuItem15.Name = "ToolStripMenuItem15"
Me.ToolStripMenuItem15.Size = New System.Drawing.Size(285, 30)
Me.ToolStripMenuItem15.Size = New System.Drawing.Size(277, 22)
Me.ToolStripMenuItem15.Text = "Dispoliste"
'
'ToolStripMenuItem18
'
Me.ToolStripMenuItem18.Name = "ToolStripMenuItem18"
Me.ToolStripMenuItem18.Size = New System.Drawing.Size(285, 30)
Me.ToolStripMenuItem18.Size = New System.Drawing.Size(277, 22)
Me.ToolStripMenuItem18.Text = "Verzollungspreise"
'
'AuftragÜberwachungsdokumentToolStripMenuItem
'
Me.AuftragÜberwachungsdokumentToolStripMenuItem.Name = "AuftragÜberwachungsdokumentToolStripMenuItem"
Me.AuftragÜberwachungsdokumentToolStripMenuItem.Size = New System.Drawing.Size(285, 30)
Me.AuftragÜberwachungsdokumentToolStripMenuItem.Size = New System.Drawing.Size(277, 22)
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(285, 30)
Me.toolVUB.Size = New System.Drawing.Size(277, 22)
Me.toolVUB.Text = "VUB"
'
'VUBVERAGSpeditionAGToolStripMenuItem
@@ -1266,37 +1267,37 @@ Partial Class frmHauptfensterNew
'toolVPCreditreform
'
Me.toolVPCreditreform.Name = "toolVPCreditreform"
Me.toolVPCreditreform.Size = New System.Drawing.Size(285, 30)
Me.toolVPCreditreform.Size = New System.Drawing.Size(277, 22)
Me.toolVPCreditreform.Text = "Bonitätsauskunft (Creditreform)"
Me.toolVPCreditreform.Visible = False
'
'ToolStripSeparator9
'
Me.ToolStripSeparator9.Name = "ToolStripSeparator9"
Me.ToolStripSeparator9.Size = New System.Drawing.Size(282, 6)
Me.ToolStripSeparator9.Size = New System.Drawing.Size(274, 6)
'
'VerzollungsunterlagenToolStripMenuItem
'
Me.VerzollungsunterlagenToolStripMenuItem.Name = "VerzollungsunterlagenToolStripMenuItem"
Me.VerzollungsunterlagenToolStripMenuItem.Size = New System.Drawing.Size(285, 30)
Me.VerzollungsunterlagenToolStripMenuItem.Size = New System.Drawing.Size(277, 22)
Me.VerzollungsunterlagenToolStripMenuItem.Text = "Verzollungsunterlagen"
'
'ToolStripMenuItem11
'
Me.ToolStripMenuItem11.Name = "ToolStripMenuItem11"
Me.ToolStripMenuItem11.Size = New System.Drawing.Size(285, 30)
Me.ToolStripMenuItem11.Size = New System.Drawing.Size(277, 22)
Me.ToolStripMenuItem11.Text = "Verzollungsunterlagen BAR"
'
'ToolStripSeparator6
'
Me.ToolStripSeparator6.Name = "ToolStripSeparator6"
Me.ToolStripSeparator6.Size = New System.Drawing.Size(282, 6)
Me.ToolStripSeparator6.Size = New System.Drawing.Size(274, 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(285, 30)
Me.WAIDHAUSToolStripMenuItem.Size = New System.Drawing.Size(277, 22)
Me.WAIDHAUSToolStripMenuItem.Text = "WAIDHAUS"
'
'ToolStripMenuItem8
@@ -1329,39 +1330,58 @@ Partial Class frmHauptfensterNew
Me.ChecklisteVerwahrlagerToolStripMenuItem.Size = New System.Drawing.Size(244, 22)
Me.ChecklisteVerwahrlagerToolStripMenuItem.Text = "Checkliste Verwahrlager"
'
'ToolStripMenuItem3
'
Me.ToolStripMenuItem3.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem23, Me.ToolStripMenuItem25})
Me.ToolStripMenuItem3.Name = "ToolStripMenuItem3"
Me.ToolStripMenuItem3.Size = New System.Drawing.Size(277, 22)
Me.ToolStripMenuItem3.Text = "KLIPPHAUSEN"
'
'ToolStripMenuItem23
'
Me.ToolStripMenuItem23.Name = "ToolStripMenuItem23"
Me.ToolStripMenuItem23.Size = New System.Drawing.Size(243, 22)
Me.ToolStripMenuItem23.Text = "Annahmeblatt EXPORT DE / TR"
'
'ToolStripMenuItem25
'
Me.ToolStripMenuItem25.Name = "ToolStripMenuItem25"
Me.ToolStripMenuItem25.Size = New System.Drawing.Size(243, 22)
Me.ToolStripMenuItem25.Text = "Annahmeblatt EXPORT DE / SRB"
'
'ToolStripSeparator13
'
Me.ToolStripSeparator13.Name = "ToolStripSeparator13"
Me.ToolStripSeparator13.Size = New System.Drawing.Size(282, 6)
Me.ToolStripSeparator13.Size = New System.Drawing.Size(274, 6)
'
'EinheitspapierToolStripMenuItem
'
Me.EinheitspapierToolStripMenuItem.Name = "EinheitspapierToolStripMenuItem"
Me.EinheitspapierToolStripMenuItem.Size = New System.Drawing.Size(285, 30)
Me.EinheitspapierToolStripMenuItem.Size = New System.Drawing.Size(277, 22)
Me.EinheitspapierToolStripMenuItem.Text = "Einheitspapier 0777 (Vereinfachte ZA)"
'
'CMRToolStripMenuItem
'
Me.CMRToolStripMenuItem.Name = "CMRToolStripMenuItem"
Me.CMRToolStripMenuItem.Size = New System.Drawing.Size(285, 30)
Me.CMRToolStripMenuItem.Size = New System.Drawing.Size(277, 22)
Me.CMRToolStripMenuItem.Text = "CMR"
'
'Einheitspapier0735VersandverfahrenToolStripMenuItem
'
Me.Einheitspapier0735VersandverfahrenToolStripMenuItem.Name = "Einheitspapier0735VersandverfahrenToolStripMenuItem"
Me.Einheitspapier0735VersandverfahrenToolStripMenuItem.Size = New System.Drawing.Size(285, 30)
Me.Einheitspapier0735VersandverfahrenToolStripMenuItem.Size = New System.Drawing.Size(277, 22)
Me.Einheitspapier0735VersandverfahrenToolStripMenuItem.Text = "Einheitspapier 0735 (Versandverfahren)"
'
'CarnetTIRToolStripMenuItem
'
Me.CarnetTIRToolStripMenuItem.Name = "CarnetTIRToolStripMenuItem"
Me.CarnetTIRToolStripMenuItem.Size = New System.Drawing.Size(285, 30)
Me.CarnetTIRToolStripMenuItem.Size = New System.Drawing.Size(277, 22)
Me.CarnetTIRToolStripMenuItem.Text = "Carnet TIR"
'
'CarnetTIRALTToolStripMenuItem
'
Me.CarnetTIRALTToolStripMenuItem.Name = "CarnetTIRALTToolStripMenuItem"
Me.CarnetTIRALTToolStripMenuItem.Size = New System.Drawing.Size(285, 30)
Me.CarnetTIRALTToolStripMenuItem.Size = New System.Drawing.Size(277, 22)
Me.CarnetTIRALTToolStripMenuItem.Text = "Carnet TIR (ALT)"
'
'mnuFragezeichen
@@ -1820,10 +1840,10 @@ Partial Class frmHauptfensterNew
Me.btnRefresh.ForeColor = System.Drawing.Color.Black
Me.btnRefresh.Image = Global.AVISO.My.Resources.Resources.aktualisieren_40
Me.btnRefresh.ImageAlign = System.Drawing.ContentAlignment.TopCenter
Me.btnRefresh.Location = New System.Drawing.Point(11, 8)
Me.btnRefresh.Location = New System.Drawing.Point(8, 8)
Me.btnRefresh.Margin = New System.Windows.Forms.Padding(0)
Me.btnRefresh.Name = "btnRefresh"
Me.btnRefresh.Size = New System.Drawing.Size(135, 72)
Me.btnRefresh.Size = New System.Drawing.Size(156, 76)
Me.btnRefresh.TabIndex = 1
Me.btnRefresh.Text = "Aktualisieren"
Me.btnRefresh.TextAlign = System.Drawing.ContentAlignment.BottomCenter
@@ -2051,7 +2071,7 @@ Partial Class frmHauptfensterNew
Me.pnlAktOption.Dock = System.Windows.Forms.DockStyle.Top
Me.pnlAktOption.Location = New System.Drawing.Point(0, 0)
Me.pnlAktOption.Name = "pnlAktOption"
Me.pnlAktOption.Size = New System.Drawing.Size(789, 5)
Me.pnlAktOption.Size = New System.Drawing.Size(774, 5)
Me.pnlAktOption.TabIndex = 1
'
'Button8
@@ -2381,117 +2401,9 @@ Partial Class frmHauptfensterNew
Me.FlowLayoutPanel2.Dock = System.Windows.Forms.DockStyle.Top
Me.FlowLayoutPanel2.Location = New System.Drawing.Point(181, 70)
Me.FlowLayoutPanel2.Name = "FlowLayoutPanel2"
Me.FlowLayoutPanel2.Size = New System.Drawing.Size(608, 65)
Me.FlowLayoutPanel2.Size = New System.Drawing.Size(593, 65)
Me.FlowLayoutPanel2.TabIndex = 86
'
'MyFlowLayoutPanel1
'
Me.MyFlowLayoutPanel1.AutoScroll = True
Me.MyFlowLayoutPanel1.Controls.Add(Me.btnKunden)
Me.MyFlowLayoutPanel1.Controls.Add(Me.btnSpedBuch)
Me.MyFlowLayoutPanel1.Controls.Add(Me.btnKassenbuch)
Me.MyFlowLayoutPanel1.Controls.Add(Me.btnFakturierung)
Me.MyFlowLayoutPanel1.Controls.Add(Me.btnRg)
Me.MyFlowLayoutPanel1.Dock = System.Windows.Forms.DockStyle.Top
Me.MyFlowLayoutPanel1.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.MyFlowLayoutPanel1.Location = New System.Drawing.Point(181, 5)
Me.MyFlowLayoutPanel1.Name = "MyFlowLayoutPanel1"
Me.MyFlowLayoutPanel1.Size = New System.Drawing.Size(608, 65)
Me.MyFlowLayoutPanel1.TabIndex = 85
'
'btnKunden
'
Me.btnKunden.BackColor = System.Drawing.Color.FromArgb(CType(CType(253, Byte), Integer), CType(CType(253, Byte), Integer), CType(CType(255, Byte), Integer))
Me.btnKunden.Cursor = System.Windows.Forms.Cursors.Default
Me.btnKunden.Font = New System.Drawing.Font("Segoe UI", 10.0!)
Me.btnKunden.ForeColor = System.Drawing.Color.Black
Me.btnKunden.Image = Global.AVISO.My.Resources.Resources.ico_kunden
Me.btnKunden.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnKunden.Location = New System.Drawing.Point(3, 3)
Me.btnKunden.Name = "btnKunden"
Me.btnKunden.Padding = New System.Windows.Forms.Padding(10, 0, 0, 0)
Me.btnKunden.Size = New System.Drawing.Size(150, 50)
Me.btnKunden.TabIndex = 2
Me.btnKunden.TabStop = False
Me.btnKunden.Text = "Kunden"
Me.btnKunden.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnKunden.UseVisualStyleBackColor = False
'
'btnSpedBuch
'
Me.btnSpedBuch.BackColor = System.Drawing.Color.FromArgb(CType(CType(253, Byte), Integer), CType(CType(253, Byte), Integer), CType(CType(255, Byte), Integer))
Me.btnSpedBuch.Cursor = System.Windows.Forms.Cursors.Default
Me.btnSpedBuch.Font = New System.Drawing.Font("Segoe UI", 10.0!)
Me.btnSpedBuch.ForeColor = System.Drawing.Color.Black
Me.btnSpedBuch.Image = Global.AVISO.My.Resources.Resources.ico_speditionsbuch
Me.btnSpedBuch.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnSpedBuch.Location = New System.Drawing.Point(159, 3)
Me.btnSpedBuch.Name = "btnSpedBuch"
Me.btnSpedBuch.Padding = New System.Windows.Forms.Padding(10, 0, 0, 0)
Me.btnSpedBuch.Size = New System.Drawing.Size(150, 50)
Me.btnSpedBuch.TabIndex = 3
Me.btnSpedBuch.TabStop = False
Me.btnSpedBuch.Text = "Sped.Buch"
Me.btnSpedBuch.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnSpedBuch.UseVisualStyleBackColor = False
'
'btnKassenbuch
'
Me.btnKassenbuch.BackColor = System.Drawing.Color.FromArgb(CType(CType(253, Byte), Integer), CType(CType(253, Byte), Integer), CType(CType(255, Byte), Integer))
Me.btnKassenbuch.Cursor = System.Windows.Forms.Cursors.Default
Me.btnKassenbuch.Font = New System.Drawing.Font("Segoe UI", 10.0!)
Me.btnKassenbuch.ForeColor = System.Drawing.Color.Black
Me.btnKassenbuch.Image = Global.AVISO.My.Resources.Resources.ico_kassenbuch
Me.btnKassenbuch.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnKassenbuch.Location = New System.Drawing.Point(315, 3)
Me.btnKassenbuch.Name = "btnKassenbuch"
Me.btnKassenbuch.Padding = New System.Windows.Forms.Padding(10, 0, 0, 0)
Me.btnKassenbuch.Size = New System.Drawing.Size(150, 50)
Me.btnKassenbuch.TabIndex = 8
Me.btnKassenbuch.TabStop = False
Me.btnKassenbuch.Text = "Kassenbuch"
Me.btnKassenbuch.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnKassenbuch.UseVisualStyleBackColor = False
Me.btnKassenbuch.Visible = False
'
'btnFakturierung
'
Me.btnFakturierung.BackColor = System.Drawing.Color.FromArgb(CType(CType(253, Byte), Integer), CType(CType(253, Byte), Integer), CType(CType(255, Byte), Integer))
Me.btnFakturierung.Cursor = System.Windows.Forms.Cursors.Default
Me.btnFakturierung.Font = New System.Drawing.Font("Segoe UI", 10.0!)
Me.btnFakturierung.ForeColor = System.Drawing.Color.Black
Me.btnFakturierung.Image = Global.AVISO.My.Resources.Resources.ico_fakturierung
Me.btnFakturierung.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnFakturierung.Location = New System.Drawing.Point(3, 59)
Me.btnFakturierung.Name = "btnFakturierung"
Me.btnFakturierung.Padding = New System.Windows.Forms.Padding(10, 0, 0, 0)
Me.btnFakturierung.Size = New System.Drawing.Size(150, 50)
Me.btnFakturierung.TabIndex = 11
Me.btnFakturierung.TabStop = False
Me.btnFakturierung.Text = "Fakturierung"
Me.btnFakturierung.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnFakturierung.UseVisualStyleBackColor = False
Me.btnFakturierung.Visible = False
'
'btnRg
'
Me.btnRg.BackColor = System.Drawing.Color.FromArgb(CType(CType(253, Byte), Integer), CType(CType(253, Byte), Integer), CType(CType(255, Byte), Integer))
Me.btnRg.Cursor = System.Windows.Forms.Cursors.Default
Me.btnRg.Font = New System.Drawing.Font("Segoe UI", 10.0!)
Me.btnRg.ForeColor = System.Drawing.Color.Black
Me.btnRg.Image = Global.AVISO.My.Resources.Resources.ico_rechnungen
Me.btnRg.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnRg.Location = New System.Drawing.Point(159, 59)
Me.btnRg.Name = "btnRg"
Me.btnRg.Padding = New System.Windows.Forms.Padding(10, 0, 0, 0)
Me.btnRg.Size = New System.Drawing.Size(150, 50)
Me.btnRg.TabIndex = 9
Me.btnRg.TabStop = False
Me.btnRg.Text = "Rechnungen"
Me.btnRg.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnRg.UseVisualStyleBackColor = False
Me.btnRg.Visible = False
'
'pnlOptionen
'
Me.pnlOptionen.BackColor = System.Drawing.Color.Black
@@ -2551,16 +2463,35 @@ Partial Class frmHauptfensterNew
'
'Panel9
'
Me.Panel9.Controls.Add(Me.Button7)
Me.Panel9.Controls.Add(Me.Button4)
Me.Panel9.Controls.Add(Me.btnRefresh)
Me.Panel9.Controls.Add(Me.Button6)
Me.Panel9.Controls.Add(Me.btnDrucken)
Me.Panel9.Dock = System.Windows.Forms.DockStyle.Right
Me.Panel9.Location = New System.Drawing.Point(789, 0)
Me.Panel9.Location = New System.Drawing.Point(774, 0)
Me.Panel9.Name = "Panel9"
Me.Panel9.Size = New System.Drawing.Size(156, 157)
Me.Panel9.Size = New System.Drawing.Size(171, 157)
Me.Panel9.TabIndex = 88
'
'Button7
'
Me.Button7.BackColor = System.Drawing.Color.FromArgb(CType(CType(253, Byte), Integer), CType(CType(253, Byte), Integer), CType(CType(255, Byte), Integer))
Me.Button7.BackgroundImage = Global.AVISO.My.Resources.Resources.KI_Assist_Herbert
Me.Button7.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.Button7.Cursor = System.Windows.Forms.Cursors.Default
Me.Button7.FlatAppearance.BorderSize = 3
Me.Button7.Font = New System.Drawing.Font("Segoe UI", 10.0!)
Me.Button7.ForeColor = System.Drawing.Color.Black
Me.Button7.Location = New System.Drawing.Point(87, 86)
Me.Button7.Margin = New System.Windows.Forms.Padding(0)
Me.Button7.Name = "Button7"
Me.Button7.Padding = New System.Windows.Forms.Padding(10, 0, 10, 0)
Me.Button7.Size = New System.Drawing.Size(77, 71)
Me.Button7.TabIndex = 9
Me.Button7.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button7.UseVisualStyleBackColor = False
'
'Button4
'
Me.Button4.BackColor = System.Drawing.Color.FromArgb(CType(CType(253, Byte), Integer), CType(CType(253, Byte), Integer), CType(CType(255, Byte), Integer))
@@ -2569,15 +2500,15 @@ Partial Class frmHauptfensterNew
Me.Button4.Font = New System.Drawing.Font("Segoe UI", 10.0!)
Me.Button4.ForeColor = System.Drawing.Color.Black
Me.Button4.Image = Global.AVISO.My.Resources.Resources.ico_atez_tariffAI
Me.Button4.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button4.Location = New System.Drawing.Point(11, 84)
Me.Button4.ImageAlign = System.Drawing.ContentAlignment.TopCenter
Me.Button4.Location = New System.Drawing.Point(8, 84)
Me.Button4.Margin = New System.Windows.Forms.Padding(0)
Me.Button4.Name = "Button4"
Me.Button4.Padding = New System.Windows.Forms.Padding(10, 0, 10, 0)
Me.Button4.Size = New System.Drawing.Size(135, 52)
Me.Button4.Size = New System.Drawing.Size(79, 73)
Me.Button4.TabIndex = 8
Me.Button4.Text = "Tariff AI"
Me.Button4.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button4.Text = "TariffAI"
Me.Button4.TextAlign = System.Drawing.ContentAlignment.BottomCenter
Me.Button4.UseVisualStyleBackColor = False
'
'btnSmall
@@ -2749,17 +2680,10 @@ Partial Class frmHauptfensterNew
Me.pnlLeft.Size = New System.Drawing.Size(408, 741)
Me.pnlLeft.TabIndex = 88
'
'UsrCntlBenachrichtigungen2
'
Me.UsrCntlBenachrichtigungen2.Dock = System.Windows.Forms.DockStyle.Fill
Me.UsrCntlBenachrichtigungen2.Location = New System.Drawing.Point(0, 10)
Me.UsrCntlBenachrichtigungen2.Name = "UsrCntlBenachrichtigungen2"
Me.UsrCntlBenachrichtigungen2.Size = New System.Drawing.Size(408, 315)
Me.UsrCntlBenachrichtigungen2.TabIndex = 5
'
'Panel5
'
Me.Panel5.BackColor = System.Drawing.Color.White
Me.Panel5.Controls.Add(Me.cbxChartNurGelesen)
Me.Panel5.Controls.Add(Me.cbxInfoChat)
Me.Panel5.Controls.Add(Me.TabControl1)
Me.Panel5.Controls.Add(Me.lblFimaAviso)
@@ -2777,6 +2701,16 @@ Partial Class frmHauptfensterNew
Me.Panel5.Size = New System.Drawing.Size(408, 416)
Me.Panel5.TabIndex = 3
'
'cbxChartNurGelesen
'
Me.cbxChartNurGelesen.AutoSize = True
Me.cbxChartNurGelesen.Location = New System.Drawing.Point(122, 6)
Me.cbxChartNurGelesen.Name = "cbxChartNurGelesen"
Me.cbxChartNurGelesen.Size = New System.Drawing.Size(93, 17)
Me.cbxChartNurGelesen.TabIndex = 88
Me.cbxChartNurGelesen.Text = "nur ungelesen"
Me.cbxChartNurGelesen.UseVisualStyleBackColor = True
'
'cbxInfoChat
'
Me.cbxInfoChat.AutoSize = True
@@ -2792,7 +2726,6 @@ Partial Class frmHauptfensterNew
'TabControl1
'
Me.TabControl1.Controls.Add(Me.TabPage1)
Me.TabControl1.Controls.Add(Me.TabPage2)
Me.TabControl1.Dock = System.Windows.Forms.DockStyle.Top
Me.TabControl1.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
Me.TabControl1.Location = New System.Drawing.Point(0, 0)
@@ -2812,43 +2745,6 @@ Partial Class frmHauptfensterNew
Me.TabPage1.Text = "Chat"
Me.TabPage1.UseVisualStyleBackColor = True
'
'UsrCntlMessenger_ListNewChats1
'
Me.UsrCntlMessenger_ListNewChats1.Dock = System.Windows.Forms.DockStyle.Fill
Me.UsrCntlMessenger_ListNewChats1.Location = New System.Drawing.Point(3, 3)
Me.UsrCntlMessenger_ListNewChats1.Margin = New System.Windows.Forms.Padding(4)
Me.UsrCntlMessenger_ListNewChats1.Name = "UsrCntlMessenger_ListNewChats1"
Me.UsrCntlMessenger_ListNewChats1.Size = New System.Drawing.Size(394, 266)
Me.UsrCntlMessenger_ListNewChats1.TabIndex = 0
'
'TabPage2
'
Me.TabPage2.Location = New System.Drawing.Point(4, 25)
Me.TabPage2.Name = "TabPage2"
Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage2.Size = New System.Drawing.Size(400, 272)
Me.TabPage2.TabIndex = 1
Me.TabPage2.Text = "TabPage2"
Me.TabPage2.UseVisualStyleBackColor = True
'
'btnMitarbeiterKonto
'
Me.btnMitarbeiterKonto.allowBorder = False
Me.btnMitarbeiterKonto.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnMitarbeiterKonto.BackColor = System.Drawing.Color.White
Me.btnMitarbeiterKonto.FlatAppearance.BorderSize = 0
Me.btnMitarbeiterKonto.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnMitarbeiterKonto.ForeColor = System.Drawing.Color.Black
Me.btnMitarbeiterKonto.Image = Global.AVISO.My.Resources.Resources.mitarbeiter_s
Me.btnMitarbeiterKonto.ImageAlign = System.Drawing.ContentAlignment.TopCenter
Me.btnMitarbeiterKonto.Location = New System.Drawing.Point(268, 307)
Me.btnMitarbeiterKonto.Name = "btnMitarbeiterKonto"
Me.btnMitarbeiterKonto.Size = New System.Drawing.Size(137, 61)
Me.btnMitarbeiterKonto.TabIndex = 86
Me.btnMitarbeiterKonto.Text = "Andreas Luxbauer"
Me.btnMitarbeiterKonto.TextAlign = System.Drawing.ContentAlignment.BottomCenter
Me.btnMitarbeiterKonto.UseVisualStyleBackColor = False
'
'Panel7
'
Me.Panel7.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
@@ -2869,31 +2765,155 @@ Partial Class frmHauptfensterNew
Me.UsrCntlTestsystem1.Size = New System.Drawing.Size(152, 28)
Me.UsrCntlTestsystem1.TabIndex = 8
'
'MyFlowLayoutPanel1
'
Me.MyFlowLayoutPanel1.AutoScroll = True
Me.MyFlowLayoutPanel1.Controls.Add(Me.btnKunden)
Me.MyFlowLayoutPanel1.Controls.Add(Me.btnSpedBuch)
Me.MyFlowLayoutPanel1.Controls.Add(Me.btnKassenbuch)
Me.MyFlowLayoutPanel1.Controls.Add(Me.btnFakturierung)
Me.MyFlowLayoutPanel1.Controls.Add(Me.btnRg)
Me.MyFlowLayoutPanel1.Dock = System.Windows.Forms.DockStyle.Top
Me.MyFlowLayoutPanel1.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.MyFlowLayoutPanel1.Location = New System.Drawing.Point(181, 5)
Me.MyFlowLayoutPanel1.Name = "MyFlowLayoutPanel1"
Me.MyFlowLayoutPanel1.Size = New System.Drawing.Size(593, 65)
Me.MyFlowLayoutPanel1.TabIndex = 85
'
'btnKunden
'
Me.btnKunden.BackColor = System.Drawing.Color.FromArgb(CType(CType(253, Byte), Integer), CType(CType(253, Byte), Integer), CType(CType(255, Byte), Integer))
Me.btnKunden.Cursor = System.Windows.Forms.Cursors.Default
Me.btnKunden.Font = New System.Drawing.Font("Segoe UI", 10.0!)
Me.btnKunden.ForeColor = System.Drawing.Color.Black
Me.btnKunden.Image = Global.AVISO.My.Resources.Resources.ico_kunden
Me.btnKunden.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnKunden.Location = New System.Drawing.Point(3, 3)
Me.btnKunden.Name = "btnKunden"
Me.btnKunden.Padding = New System.Windows.Forms.Padding(10, 0, 0, 0)
Me.btnKunden.Size = New System.Drawing.Size(150, 50)
Me.btnKunden.TabIndex = 2
Me.btnKunden.TabStop = False
Me.btnKunden.Text = "Kunden"
Me.btnKunden.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnKunden.UseVisualStyleBackColor = False
'
'btnSpedBuch
'
Me.btnSpedBuch.BackColor = System.Drawing.Color.FromArgb(CType(CType(253, Byte), Integer), CType(CType(253, Byte), Integer), CType(CType(255, Byte), Integer))
Me.btnSpedBuch.Cursor = System.Windows.Forms.Cursors.Default
Me.btnSpedBuch.Font = New System.Drawing.Font("Segoe UI", 10.0!)
Me.btnSpedBuch.ForeColor = System.Drawing.Color.Black
Me.btnSpedBuch.Image = Global.AVISO.My.Resources.Resources.ico_speditionsbuch
Me.btnSpedBuch.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnSpedBuch.Location = New System.Drawing.Point(159, 3)
Me.btnSpedBuch.Name = "btnSpedBuch"
Me.btnSpedBuch.Padding = New System.Windows.Forms.Padding(10, 0, 0, 0)
Me.btnSpedBuch.Size = New System.Drawing.Size(150, 50)
Me.btnSpedBuch.TabIndex = 3
Me.btnSpedBuch.TabStop = False
Me.btnSpedBuch.Text = "Sped.Buch"
Me.btnSpedBuch.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnSpedBuch.UseVisualStyleBackColor = False
'
'btnKassenbuch
'
Me.btnKassenbuch.BackColor = System.Drawing.Color.FromArgb(CType(CType(253, Byte), Integer), CType(CType(253, Byte), Integer), CType(CType(255, Byte), Integer))
Me.btnKassenbuch.Cursor = System.Windows.Forms.Cursors.Default
Me.btnKassenbuch.Font = New System.Drawing.Font("Segoe UI", 10.0!)
Me.btnKassenbuch.ForeColor = System.Drawing.Color.Black
Me.btnKassenbuch.Image = Global.AVISO.My.Resources.Resources.ico_kassenbuch
Me.btnKassenbuch.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnKassenbuch.Location = New System.Drawing.Point(315, 3)
Me.btnKassenbuch.Name = "btnKassenbuch"
Me.btnKassenbuch.Padding = New System.Windows.Forms.Padding(10, 0, 0, 0)
Me.btnKassenbuch.Size = New System.Drawing.Size(150, 50)
Me.btnKassenbuch.TabIndex = 8
Me.btnKassenbuch.TabStop = False
Me.btnKassenbuch.Text = "Kassenbuch"
Me.btnKassenbuch.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnKassenbuch.UseVisualStyleBackColor = False
Me.btnKassenbuch.Visible = False
'
'btnFakturierung
'
Me.btnFakturierung.BackColor = System.Drawing.Color.FromArgb(CType(CType(253, Byte), Integer), CType(CType(253, Byte), Integer), CType(CType(255, Byte), Integer))
Me.btnFakturierung.Cursor = System.Windows.Forms.Cursors.Default
Me.btnFakturierung.Font = New System.Drawing.Font("Segoe UI", 10.0!)
Me.btnFakturierung.ForeColor = System.Drawing.Color.Black
Me.btnFakturierung.Image = Global.AVISO.My.Resources.Resources.ico_fakturierung
Me.btnFakturierung.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnFakturierung.Location = New System.Drawing.Point(3, 59)
Me.btnFakturierung.Name = "btnFakturierung"
Me.btnFakturierung.Padding = New System.Windows.Forms.Padding(10, 0, 0, 0)
Me.btnFakturierung.Size = New System.Drawing.Size(150, 50)
Me.btnFakturierung.TabIndex = 11
Me.btnFakturierung.TabStop = False
Me.btnFakturierung.Text = "Fakturierung"
Me.btnFakturierung.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnFakturierung.UseVisualStyleBackColor = False
Me.btnFakturierung.Visible = False
'
'btnRg
'
Me.btnRg.BackColor = System.Drawing.Color.FromArgb(CType(CType(253, Byte), Integer), CType(CType(253, Byte), Integer), CType(CType(255, Byte), Integer))
Me.btnRg.Cursor = System.Windows.Forms.Cursors.Default
Me.btnRg.Font = New System.Drawing.Font("Segoe UI", 10.0!)
Me.btnRg.ForeColor = System.Drawing.Color.Black
Me.btnRg.Image = Global.AVISO.My.Resources.Resources.ico_rechnungen
Me.btnRg.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnRg.Location = New System.Drawing.Point(159, 59)
Me.btnRg.Name = "btnRg"
Me.btnRg.Padding = New System.Windows.Forms.Padding(10, 0, 0, 0)
Me.btnRg.Size = New System.Drawing.Size(150, 50)
Me.btnRg.TabIndex = 9
Me.btnRg.TabStop = False
Me.btnRg.Text = "Rechnungen"
Me.btnRg.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnRg.UseVisualStyleBackColor = False
Me.btnRg.Visible = False
'
'UsrCntlBenachrichtigungen2
'
Me.UsrCntlBenachrichtigungen2.Dock = System.Windows.Forms.DockStyle.Fill
Me.UsrCntlBenachrichtigungen2.Location = New System.Drawing.Point(0, 10)
Me.UsrCntlBenachrichtigungen2.Name = "UsrCntlBenachrichtigungen2"
Me.UsrCntlBenachrichtigungen2.Size = New System.Drawing.Size(408, 315)
Me.UsrCntlBenachrichtigungen2.TabIndex = 5
'
'UsrCntlMessenger_ListNewChats1
'
Me.UsrCntlMessenger_ListNewChats1.Dock = System.Windows.Forms.DockStyle.Fill
Me.UsrCntlMessenger_ListNewChats1.Location = New System.Drawing.Point(3, 3)
Me.UsrCntlMessenger_ListNewChats1.Margin = New System.Windows.Forms.Padding(4)
Me.UsrCntlMessenger_ListNewChats1.Name = "UsrCntlMessenger_ListNewChats1"
Me.UsrCntlMessenger_ListNewChats1.Size = New System.Drawing.Size(394, 266)
Me.UsrCntlMessenger_ListNewChats1.TabIndex = 0
'
'btnMitarbeiterKonto
'
Me.btnMitarbeiterKonto.allowBorder = False
Me.btnMitarbeiterKonto.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnMitarbeiterKonto.BackColor = System.Drawing.Color.White
Me.btnMitarbeiterKonto.FlatAppearance.BorderSize = 0
Me.btnMitarbeiterKonto.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnMitarbeiterKonto.ForeColor = System.Drawing.Color.Black
Me.btnMitarbeiterKonto.Image = Global.AVISO.My.Resources.Resources.mitarbeiter_s
Me.btnMitarbeiterKonto.ImageAlign = System.Drawing.ContentAlignment.TopCenter
Me.btnMitarbeiterKonto.Location = New System.Drawing.Point(268, 307)
Me.btnMitarbeiterKonto.Name = "btnMitarbeiterKonto"
Me.btnMitarbeiterKonto.Size = New System.Drawing.Size(137, 61)
Me.btnMitarbeiterKonto.TabIndex = 86
Me.btnMitarbeiterKonto.Text = "Andreas Luxbauer"
Me.btnMitarbeiterKonto.TextAlign = System.Drawing.ContentAlignment.BottomCenter
Me.btnMitarbeiterKonto.UseVisualStyleBackColor = False
'
'UidAbfrageService1
'
Me.UidAbfrageService1.Credentials = Nothing
Me.UidAbfrageService1.Url = "https://finanzonline.bmf.gv.at/fon/ws/uidAbfrage/"
Me.UidAbfrageService1.UseDefaultCredentials = False
'
'ToolStripMenuItem3
'
Me.ToolStripMenuItem3.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem23, Me.ToolStripMenuItem25})
Me.ToolStripMenuItem3.Name = "ToolStripMenuItem3"
Me.ToolStripMenuItem3.Size = New System.Drawing.Size(285, 30)
Me.ToolStripMenuItem3.Text = "KLIPPHAUSEN"
'
'ToolStripMenuItem23
'
Me.ToolStripMenuItem23.Name = "ToolStripMenuItem23"
Me.ToolStripMenuItem23.Size = New System.Drawing.Size(243, 22)
Me.ToolStripMenuItem23.Text = "Annahmeblatt EXPORT DE / TR"
'
'ToolStripMenuItem25
'
Me.ToolStripMenuItem25.Name = "ToolStripMenuItem25"
Me.ToolStripMenuItem25.Size = New System.Drawing.Size(243, 22)
Me.ToolStripMenuItem25.Text = "Annahmeblatt EXPORT DE / SRB"
'
'frmHauptfensterNew
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -2941,7 +2961,6 @@ Partial Class frmHauptfensterNew
Me.Panel6.ResumeLayout(False)
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
Me.FlowLayoutPanel2.ResumeLayout(False)
Me.MyFlowLayoutPanel1.ResumeLayout(False)
Me.pnlOptionen.ResumeLayout(False)
Me.Panel9.ResumeLayout(False)
Me.cntxt.ResumeLayout(False)
@@ -2954,6 +2973,7 @@ Partial Class frmHauptfensterNew
Me.Panel5.PerformLayout()
Me.TabControl1.ResumeLayout(False)
Me.TabPage1.ResumeLayout(False)
Me.MyFlowLayoutPanel1.ResumeLayout(False)
Me.ResumeLayout(False)
Me.PerformLayout()
@@ -3232,10 +3252,9 @@ Partial Class frmHauptfensterNew
Friend WithEvents TVEditorNewToolStripMenuItem As ToolStripMenuItem
Friend WithEvents ATILLASENDUNGToolStripMenuItem As ToolStripMenuItem
Friend WithEvents UidAbfrageService1 As VERAG_PROG_ALLGEMEIN.at.gv.bmf.finanzonline.uidAbfrageService
Friend WithEvents UsrCntlBenachrichtigungen2 As usrCntlBenachrichtigungen
Friend WithEvents UsrCntlBenachrichtigungen2 As usrCntlBenachrichtigungenNEW
Friend WithEvents TabControl1 As TabControl
Friend WithEvents TabPage1 As TabPage
Friend WithEvents TabPage2 As TabPage
Friend WithEvents FlowLayoutPanel1 As FlowLayoutPanel
Friend WithEvents btnVIEW_LKW As Button
Friend WithEvents pnlMain As System.Windows.Forms.Panel
@@ -3261,4 +3280,6 @@ Partial Class frmHauptfensterNew
Friend WithEvents ToolStripMenuItem3 As ToolStripMenuItem
Friend WithEvents ToolStripMenuItem23 As ToolStripMenuItem
Friend WithEvents ToolStripMenuItem25 As ToolStripMenuItem
Friend WithEvents Button7 As Button
Friend WithEvents cbxChartNurGelesen As CheckBox
End Class

362
Aviso/frmHauptfensterNew.vb
View File

@@ -119,19 +119,20 @@ Public Class frmHauptfensterNew
Dim SelectedBtn As Button = Nothing
' Dim init = False
Select Case SEARCH_AVISO_AKTIV
Case "SND"
splitMainWorkingView.Panel2Collapsed = True
SelectedBtn = btnVIEW_SND
If SEARCH_SND Is Nothing Then SEARCH_SND = New usrCntlHauptfenster_Suche_SND
SetBtnSelectedolor(btnVIEW_SND) ' SelectedBtn = btnVIEW_SND
If SEARCH_SND Is Nothing Then SEARCH_SND = New usrCntlHauptfenster_Suche_SND ': init = True
SEARCH_SND.PARENT_FRMHAUPTFENSTER = Me
pnlMain.Controls.Add(SEARCH_SND)
SEARCH_SND.Dock = DockStyle.Fill
pnlMain.PerformLayout()
SEARCH_SND.PerformLayout()
Application.DoEvents()
' If init Then SEARCH_SND.initPnlSearch()
Case "AVISO"
splitMainWorkingView.Panel2Collapsed = True
SetBtnSelectedolor(btnVIEW_LKW)
@@ -209,19 +210,74 @@ Public Class frmHauptfensterNew
End Sub
Private Sub btnRefresh_Click(sender As System.Object, e As System.EventArgs) Handles btnRefresh.Click
RELOAD_AVISO_MAIN()
UsrCntlBenachrichtigungen2.initDgvAvisoBenachrichtigungen(Grid_aktiv, gridFont)
End Sub
Public Sub REFRESH_AVISO_MAIN(Optional Aktive_ID = -1, Optional Aktive_SendungsID = -1, Optional TriggerControl = "", Optional reload = True)
Refresh_Reload_AVISO(Aktive_ID, Aktive_SendungsID, TriggerControl, False)
End Sub
Public Sub RELOAD_AVISO_MAIN(Optional Aktive_ID = -1, Optional Aktive_SendungsID = -1, Optional TriggerControl = "", Optional reload = True)
'MsgBox("AID ref: " & VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
Refresh_Reload_AVISO(Aktive_ID, Aktive_SendungsID, TriggerControl, True)
hMerkZeit = Now
End Sub
Private Sub Refresh_Reload_AVISO(Optional Aktive_ID = -1, Optional Aktive_SendungsID = -1, Optional TriggerControl = "", Optional reload = True)
If Aktive_ID > 0 Then VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = Aktive_ID
If Aktive_SendungsID > 0 Then VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID = Aktive_SendungsID
Console.WriteLine("SID: " & VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID)
' SEARCH_AVISO.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID, True)
Select Case SEARCH_AVISO_AKTIV
Case "SND"
If SEARCH_SND IsNot Nothing Then SEARCH_SND.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID, True)
If SEARCH_SND IsNot Nothing Then
If reload Then
SEARCH_SND.Aviso_anzeigen("")
Else
If (TriggerControl <> "usrCntlHauptfenster_Suche_SND") Then SEARCH_SND.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID, True)
End If
End If
Case "AVISO"
If SEARCH_AVISO IsNot Nothing Then SEARCH_AVISO.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID, True)
If SEARCH_AVISO IsNot Nothing Then
If reload Then
SEARCH_AVISO.Aviso_anzeigen("")
Else
If (TriggerControl <> "usrCntlHauptfenster_Suche_AVISO") Then SEARCH_AVISO.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID, True)
End If
End If
Case "AVISO_SND_KOMBI"
If SEARCH_AVISO IsNot Nothing Then SEARCH_AVISO.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID, True)
If SEARCH_SND IsNot Nothing Then SEARCH_SND.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID, True)
If SEARCH_AVISO IsNot Nothing Then
If reload Then
SEARCH_AVISO.Aviso_anzeigen("")
Else
If (TriggerControl <> "usrCntlHauptfenster_Suche_AVISO") Then SEARCH_AVISO.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID, True)
End If
End If
If SEARCH_SND IsNot Nothing Then
If reload Then
SEARCH_SND.Aviso_anzeigen("")
Else
If (TriggerControl <> "usrCntlHauptfenster_Suche_SND") Then SEARCH_SND.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID, True)
End If
End If
End Select
UsrCntlBenachrichtigungen2.initDgvAvisoBenachrichtigungen(Grid_aktiv, gridFont)
refreshPnlRight(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
End Sub
Private Sub frmMain_KeyDown(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
If e.KeyCode = Keys.F2 Or e.KeyCode = Keys.F5 Then
@@ -240,7 +296,7 @@ Public Class frmHauptfensterNew
If e.KeyCode = Keys.F11 Then
FUNC.AktUebernehmen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
SEARCH_AVISO.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
RELOAD_AVISO_MAIN(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
End If
If e.KeyCode = Keys.Escape Then
@@ -727,6 +783,8 @@ Public Class frmHauptfensterNew
Sub showPnlRight(AvisoId, reloadIfSameId)
cGlobal.Aktive_ID = AvisoId
Console.WriteLine("DAOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOA" & cGlobal.Aktive_ID)
' MsgBox(VERAG_PROG_ALLGEMEIN.cAviso.getFirmaByAvisoId(AvisoId))
Select Case VERAG_PROG_ALLGEMEIN.cAviso.getFirmaByAvisoId(AvisoId)
@@ -751,7 +809,10 @@ Public Class frmHauptfensterNew
Case Else
ELSE_ATILLA:
' MsgBox(pnlDetailsRechts.Controls(0).Name)
If pnlDetailsRechts.Controls.Count = 0 OrElse pnlDetailsRechts.Controls(0).Name <> "usrcntlAktDetails" Then
Console.WriteLine("DAAAAAAAAAAAAAAAAAAAAAAAA")
pnlDetailsRechts.Controls.Clear()
Dim usrCntl As New usrcntlAktDetails(AvisoId)
usrCntl.Dock = DockStyle.Fill
@@ -759,13 +820,54 @@ ELSE_ATILLA:
Else
If reloadIfSameId Then
DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetails).reload(AvisoId)
DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetails).Visible = True
Else
If DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetails).AvisoID <> AvisoId Then
DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetails).reload(AvisoId)
DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetails).Visible = True
End If
End If
End If
End Select
EnsureDetailsControlVisible()
End Sub
Private Sub EnsureDetailsControlVisible()
Try
If Me.InvokeRequired Then
Me.Invoke(New Action(AddressOf EnsureDetailsControlVisible))
Exit Sub
End If
If pnlDetailsRechts Is Nothing Then
Console.WriteLine("pnlDetailsRechts ist Nothing")
Exit Sub
End If
If pnlDetailsRechts.Controls.Count = 0 Then
Debug.WriteLine("pnlDetailsRechts.Controls.Count = 0")
Exit Sub
End If
Dim c = pnlDetailsRechts.Controls(0)
Console.WriteLine("Control[0] Type: " & c.GetType().ToString())
Console.WriteLine("Name: " & c.Name & ", Visible: " & c.Visible.ToString() & ", Dock: " & c.Dock.ToString())
Console.WriteLine("Bounds: " & c.Bounds.ToString() & ", Parent.Visible: " & If(c.Parent IsNot Nothing, c.Parent.Visible.ToString(), "no parent"))
Console.WriteLine("pnlDetailsRechts ClientSize: " & pnlDetailsRechts.ClientSize.ToString())
' Erzwinge Sichtbarkeit / richtige Größe / Z-Order
c.Visible = True
c.Dock = DockStyle.Fill
c.BringToFront()
If c.Width = 0 Or c.Height = 0 Then
c.Size = New Size(Math.Max(1, pnlDetailsRechts.ClientSize.Width), Math.Max(1, pnlDetailsRechts.ClientSize.Height))
End If
pnlDetailsRechts.Visible = True
pnlDetailsRechts.Refresh()
c.Refresh()
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
End Sub
' Dim AVISOBinding As New cBinding("AVISO")
@@ -780,7 +882,7 @@ ELSE_ATILLA:
'Dim originalImage = Image.FromFile("\\share01\Datenarchiv\DOKUMENTE\MITARBEITER\PERSONAL_FOTOS\20200419_000451_Hofer_375.jpg") 'My.Resources.Koerfez61
'Dim originalImage = Image.FromFile("\\share01\Datenarchiv\DOKUMENTE\MITARBEITER\PERSONAL_FOTOS\20220620_091930_Luxbauer_4.jpg") 'My.Resources.Koerfez61
Dim originalImage = Image.FromFile(cDATENSERVER.GET_PDFPath_BY_DocID(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_foto_DocId)) 'My.Resources.Koerfez61
'Dim originalImage = Image.FromFile("C:\Users\DEVELOPER1\Desktop\grund.png") 'My.Resources.Koerfez61
'Dim originalImage = Image.FromFile("C: \Users\DEVELOPER1\Desktop\grund.png") 'My.Resources.Koerfez61
' MsgBox(cDATENSERVER.GET_PDFPath_BY_DocID(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_foto_DocId))
@@ -1491,8 +1593,8 @@ ELSE_ATILLA:
Try
If DateDiff(DateInterval.Second, hMerkZeit, Now) > 60 Then
SEARCH_AVISO.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID) 'hMerkZeit wird in aviso_anzeigen aktualisiert
UsrCntlBenachrichtigungen2.initDgvAvisoBenachrichtigungen(Grid_aktiv, gridFont)
RELOAD_AVISO_MAIN(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID) 'hMerkZeit wird in aviso_anzeigen aktualisiert
'UsrCntlBenachrichtigungen2.initDgvAvisoBenachrichtigungen(Grid_aktiv, gridFont)
End If
Catch ex As Exception
@@ -1630,21 +1732,21 @@ ELSE_ATILLA:
End Try
End Sub
Private Sub kexdown(sender As Object, e As KeyEventArgs)
Try
'Private Sub kexdown(sender As Object, e As KeyEventArgs)
' Try
If e.KeyCode = Keys.Up Or e.KeyCode = Keys.Down Or e.KeyCode = Keys.PageUp Or e.KeyCode = Keys.PageDown Or e.KeyCode = Keys.Return Or e.KeyCode = Keys.Enter Then
If sender.selectedRows.count = 0 Then Exit Sub
Dim tmpId = CInt(sender.selectedRows(0).Cells("AvisoId").Value)
VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = tmpId
SEARCH_AVISO.avisoAktualisierenAktiveIdBehalten(tmpId, , False)
' If e.KeyCode = Keys.Up Or e.KeyCode = Keys.Down Or e.KeyCode = Keys.PageUp Or e.KeyCode = Keys.PageDown Or e.KeyCode = Keys.Return Or e.KeyCode = Keys.Enter Then
' If sender.selectedRows.count = 0 Then Exit Sub
' Dim tmpId = CInt(sender.selectedRows(0).Cells("AvisoId").Value)
' VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = tmpId
' SEARCH_AVISO.avisoAktualisierenAktiveIdBehalten(tmpId, , False)
End If
' End If
Catch ex As Exception
' Catch ex As Exception
End Try
End Sub
' End Try
'End Sub
Private Sub keydownMyAviso(sender As Object, e As KeyEventArgs)
@@ -1656,7 +1758,8 @@ ELSE_ATILLA:
Dim tmpSndId = CInt(sender.selectedRows(0).Cells("tblSnd_SendungID").Value)
VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = tmpId
VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID = tmpSndId
SEARCH_AVISO.avisoAktualisierenAktiveIdBehalten(tmpId, False)
Refresh_Reload_AVISO(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
End If
@@ -1666,31 +1769,94 @@ ELSE_ATILLA:
End Sub
Private Sub dgvSendungen_CellContentClick() Handles UsrCntlBenachrichtigungen2.SelectionChanged
Private Sub UsrCntlBenachrichtigungen2_SelectionChanged() Handles UsrCntlBenachrichtigungen2.SelectionChanged
Try
' Sicherheitschecks
If UsrCntlBenachrichtigungen2 Is Nothing OrElse UsrCntlBenachrichtigungen2.gridAvisoBenachrichtigungen Is Nothing Then Exit Sub
Dim grid = UsrCntlBenachrichtigungen2.gridAvisoBenachrichtigungen
If grid.SelectedRows.Count > 1 Then Exit Sub
If UsrCntlBenachrichtigungen2.gridAvisoBenachrichtigungen.SelectedRows.Count = 1 Then
' ausgewählte Zeile
Dim row = grid.SelectedRows(0)
SEARCH_AVISO.gridAviso.ClearSelection()
' MsgBox(Grid_aktiv)
' AvisoId ermitteln und validieren
Dim tmpIdObj = row.Cells("ab_AvisoID").Value
If tmpIdObj Is Nothing OrElse Not IsNumeric(tmpIdObj) Then Exit Sub
Dim tmpId As Integer = CInt(tmpIdObj)
Dim tmpId = UsrCntlBenachrichtigungen2.gridAvisoBenachrichtigungen.SelectedRows(0).Cells("ab_AvisoID").Value
If UsrCntlBenachrichtigungen2.gridAvisoBenachrichtigungen.SelectedRows(0).Cells("ab_art").Value = "A" Then
VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID = -1
Else 'Sendungsbenachrichtigung
VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID = UsrCntlBenachrichtigungen2.gridAvisoBenachrichtigungen.SelectedRows(0).Cells("ab_SendungID").Value
End If
VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = tmpId
SEARCH_AVISO.avisoAktualisierenAktiveIdBehalten(tmpId, , False)
' Sendungs-ID je nach Art setzen
Dim art = If(row.Cells("ab_art").Value, "").ToString()
If art = "A" Then
VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID = -1
Else
Dim sndObj = row.Cells("ab_SendungID").Value
VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID = If(IsNumeric(sndObj), CInt(sndObj), -1)
End If
' Aktive Aviso setzen
VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = tmpId
' MsgBox("SEL: " & VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
REFRESH_AVISO_MAIN(tmpId, VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID)
If False Then
' Je nach aktiver Ansicht das passende Such-UserControl ansprechen
Select Case SEARCH_AVISO_AKTIV
Case "AVISO" ', "COMPLIANCE", "CUSTOMS_CONTROLLING"
' sicherstellen, dass SEARCH_AVISO vorhanden ist
If SEARCH_AVISO Is Nothing Then SWITCH_SEARCH("AVISO")
If SEARCH_AVISO IsNot Nothing Then
Try
If SEARCH_AVISO.gridAviso IsNot Nothing Then SEARCH_AVISO.gridAviso.ClearSelection()
Catch : End Try
' keepSelection = True, focus/otherFlag = False
SEARCH_AVISO.avisoAktualisierenAktiveIdBehalten(tmpId, True, False, False)
End If
Case "AVISO_SND_KOMBI" ', "COMPLIANCE", "CUSTOMS_CONTROLLING"
' sicherstellen, dass SEARCH_AVISO vorhanden ist
' If SEARCH_AVISO Is Nothing Then SWITCH_SEARCH("AVISO")
If SEARCH_AVISO IsNot Nothing Then
Try
If SEARCH_AVISO.gridAviso IsNot Nothing Then SEARCH_AVISO.gridAviso.ClearSelection()
Catch : End Try
' keepSelection = True, focus/otherFlag = False
SEARCH_AVISO.avisoAktualisierenAktiveIdBehalten(tmpId, True, False, False)
End If
If VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID > 0 Then
If SEARCH_SND IsNot Nothing Then
Try
If SEARCH_SND.gridAviso IsNot Nothing Then SEARCH_SND.gridAviso.ClearSelection()
Catch : End Try
' für SND die Sendungs-ID übergeben (wie bei btnRefresh)
SEARCH_SND.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID, True,, False)
End If
End If
Case "SND"
' sicherstellen, dass SEARCH_SND vorhanden ist
If SEARCH_SND Is Nothing Then SWITCH_SEARCH("SND")
If SEARCH_SND IsNot Nothing Then
Try
If SEARCH_SND.gridAviso IsNot Nothing Then SEARCH_SND.gridAviso.ClearSelection()
Catch : End Try
' für SND die Sendungs-ID übergeben (wie bei btnRefresh)
SEARCH_SND.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID, True,, False)
End If
Case Else
' Fallback: versuche SEARCH_AVISO wie bisher
If SEARCH_AVISO Is Nothing Then SWITCH_SEARCH("AVISO")
If SEARCH_AVISO IsNot Nothing Then SEARCH_AVISO.avisoAktualisierenAktiveIdBehalten(tmpId, True, False, False)
End Select
'refreshPnlRight(tmpId)
showPnlRight(tmpId, False)
' MsgBox("AID: " & VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
End If
Catch ex As Exception
@@ -1698,6 +1864,56 @@ ELSE_ATILLA:
End Try
End Sub
Sub refreshPnlRight(tmpid As Integer)
If Me.pnlDetailsRechts.Controls.Count > 0 Then
Dim usrcntlAvisoID = -1
Dim usrcntlAktiv As DateTime
If Not Me.pnlDetailsRechts.Controls(0).GetType = GetType(System.Windows.Forms.Label) Then
usrcntlAvisoID = DirectCast(Me.pnlDetailsRechts.Controls(0), usrcntlAktDetails).AvisoID
usrcntlAktiv = DirectCast(Me.pnlDetailsRechts.Controls(0), usrcntlAktDetails).aktiv
If usrcntlAvisoID <> tmpid Then
Me.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
Else
If DateDiff(DateInterval.Second, usrcntlAktiv, Now) > 10 Then 'Wenn die Details länger als 30 Sek inaktiv sind (Prüfung durch click und keydown)
Me.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
End If
End If
End If
End If
End Sub
'Private Sub dgvSendungen_CellContentClick() Handles UsrCntlBenachrichtigungen2.SelectionChanged
' Try
' '_> neue Logik
' If UsrCntlBenachrichtigungen2.gridAvisoBenachrichtigungen.SelectedRows.Count = 1 Then
' SEARCH_AVISO.gridAviso.ClearSelection()
' ' MsgBox(Grid_aktiv)
' Dim tmpId = UsrCntlBenachrichtigungen2.gridAvisoBenachrichtigungen.SelectedRows(0).Cells("ab_AvisoID").Value
' msgb
' If UsrCntlBenachrichtigungen2.gridAvisoBenachrichtigungen.SelectedRows(0).Cells("ab_art").Value = "A" Then
' VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID = -1
' Else 'Sendungsbenachrichtigung
' VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID = UsrCntlBenachrichtigungen2.gridAvisoBenachrichtigungen.SelectedRows(0).Cells("ab_SendungID").Value
' End If
' VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = tmpId
' SEARCH_AVISO.avisoAktualisierenAktiveIdBehalten(tmpId, , False)
' End If
' Catch ex As Exception
' VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
' End Try
'End Sub
Private Sub conMenu_Click(sender As Object, e As System.EventArgs) Handles conVorgeschrieben.Click, conVorbereitet.Click, conÜbernehmen.Click, conNichtEingetroffen.Click, conFreigabe.Click, conFertig.Click, conAnkunft.Click, conAnVerimex.Click, conAnIndonesien.Click ',conVermerkLöschen.Click,
Timer1.Enabled = False
@@ -1764,7 +1980,9 @@ ELSE_ATILLA:
FUNC.AktUebernehmen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
'btnÜbernehmen.PerformClick()
End If
SEARCH_AVISO.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID, True)
' SEARCH_AVISO.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID, True)
RELOAD_AVISO_MAIN(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
Timer1.Enabled = True
End Sub
@@ -1833,14 +2051,12 @@ ELSE_ATILLA:
End If
'Wenn Teamzuweisung --> Backoffice --> Meine Senungen größer!
If If(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId, 0) > 0 Then
splitMain.SplitterDistance = CInt(splitMain.Height / 2)
Else
End If
'--> Nicht mehr nötig AVISO HFST NEU
''Wenn Teamzuweisung --> Backoffice --> Meine Senungen größer!
'If If(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId, 0) > 0 Then
' splitMain.SplitterDistance = CInt(splitMain.Height / 2)
'Else
'End If
'If SplitContainer2.Width > 800 Then
' 'SplitContainer2.Panel2MinSize = 600
@@ -3104,6 +3320,7 @@ ELSE_ATILLA:
Exit Sub
End If
Try
If frmLogin.AnmeldungOK Then
' newNotify(frmNotify.cNotify_ART.NEUER_CHAT, 0, "XXX Chat-Nachricht!", -1) 'TEST
@@ -3150,7 +3367,10 @@ ELSE_ATILLA:
End Try
End Sub
Sub refreshChat()
End Sub
Private Sub Button9_Click(sender As Object, e As EventArgs) Handles btnKontakt.Click
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", "", "", "Telefonliste")
'MsgBox(DS.da_id)
@@ -3904,7 +4124,7 @@ ELSE_ATILLA:
Grid_aktiv = False
SWITCH_SEARCH("AVISO")
SEARCH_AVISO.RESET()
'SEARCH_AVISO.RESET()
Grid_aktiv = True
End Sub
@@ -3938,28 +4158,35 @@ ELSE_ATILLA:
Private Sub Button7_Click_2(sender As Object, e As EventArgs) Handles btnVIEW_KOMBI.Click
Grid_aktiv = False
SWITCH_SEARCH("AVISO_SND_KOMBI")
SEARCH_AVISO.RESET()
' SEARCH_AVISO.RESET()
Grid_aktiv = True
End Sub
Private Sub Button9_Click_1(sender As Object, e As EventArgs) Handles btnVIEW_Compliance.Click
Grid_aktiv = False
SWITCH_SEARCH("COMPLIANCE")
SEARCH_AVISO.RESET()
'SEARCH_AVISO.RESET()
Grid_aktiv = True
End Sub
Private Sub Button10_Click(sender As Object, e As EventArgs) Handles btnVIEW_CustControling.Click
Grid_aktiv = False
SWITCH_SEARCH("CUSTOMS_CONTROLLING")
SEARCH_AVISO.RESET()
'SEARCH_AVISO.RESET()
Grid_aktiv = True
End Sub
Private Sub Button4_Click_2(sender As Object, e As EventArgs) Handles Button4.Click
Process.Start("https://tariff.singlewindow.io/chat")
'Dim frmBundesanzeigerZollTarif As New frmBundesanzeigerZollTarif("TariffAI")
'If Not frmBundesanzeigerZollTarif.Visible Then
' frmBundesanzeigerZollTarif.Show()
'End If
'frmBundesanzeigerZollTarif.BringToFront()
End Sub
Private Sub ToolStripMenuItem23_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem23.Click
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", "", "", "Annahmeblatt_KLIPP_EXPORT_TR")
DS.OPEN_SINGLE_ORIG()
@@ -3970,4 +4197,27 @@ ELSE_ATILLA:
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", "", "", "Annahmeblatt_KLIPP_EXPORT_YU")
DS.OPEN_SINGLE_ORIG()
End Sub
Private Sub Button7_Click_3(sender As Object, e As EventArgs) Handles Button7.Click
frmInfoMeldung.ShowDialog(Me)
'Process.Start("https://herbert.it.verag.ag/")
'Dim frmBundesanzeigerZollTarif As New frmBundesanzeigerZollTarif("HerbertKI")
'If Not frmBundesanzeigerZollTarif.Visible Then
' frmBundesanzeigerZollTarif.Show()
'End If
'frmBundesanzeigerZollTarif.BringToFront()
End Sub
Private Sub cbxChartNurGelesen_CheckedChanged(sender As Object, e As EventArgs) Handles cbxChartNurGelesen.CheckedChanged
VERAG_PROG_ALLGEMEIN.cGlobal.CHAT_NurGelesen = cbxChartNurGelesen.Checked
UsrCntlMessenger_ListNewChats1.intiDGVChats()
End Sub
End Class

96
Aviso/frmInfoMeldung.Designer.vb generated Normal file
View File

@@ -0,0 +1,96 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmInfoMeldung
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmInfoMeldung))
Me.Panel1 = New System.Windows.Forms.Panel()
Me.Button1 = New System.Windows.Forms.Button()
Me.Label1 = New System.Windows.Forms.Label()
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
Me.Panel1.SuspendLayout()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'Panel1
'
Me.Panel1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Panel1.Controls.Add(Me.Button1)
Me.Panel1.Controls.Add(Me.Label1)
Me.Panel1.Controls.Add(Me.PictureBox1)
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill
Me.Panel1.Location = New System.Drawing.Point(0, 0)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(1014, 450)
Me.Panel1.TabIndex = 0
'
'Button1
'
Me.Button1.Location = New System.Drawing.Point(828, 379)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(181, 58)
Me.Button1.TabIndex = 2
Me.Button1.Text = "OK"
Me.Button1.UseVisualStyleBackColor = True
'
'Label1
'
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!)
Me.Label1.Location = New System.Drawing.Point(368, 3)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(641, 373)
Me.Label1.TabIndex = 1
Me.Label1.Text = "Label1"
Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'PictureBox1
'
Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox1.Location = New System.Drawing.Point(11, 3)
Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(351, 434)
Me.PictureBox1.TabIndex = 0
Me.PictureBox1.TabStop = False
'
'frmInfoMeldung
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.White
Me.ClientSize = New System.Drawing.Size(1014, 450)
Me.Controls.Add(Me.Panel1)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "frmInfoMeldung"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Info"
Me.Panel1.ResumeLayout(False)
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
Friend WithEvents Panel1 As Panel
Friend WithEvents Button1 As Button
Friend WithEvents Label1 As Label
Friend WithEvents PictureBox1 As PictureBox
End Class

1253
Aviso/frmInfoMeldung.resx Normal file
View File

File diff suppressed because it is too large Load Diff

35
Aviso/frmInfoMeldung.vb Normal file
View File

@@ -0,0 +1,35 @@
Imports System.Threading
Public Class frmInfoMeldung
Private Sub frmInfoMeldung_Load(sender As Object, e As EventArgs) Handles Me.Load
PictureBox1.BackgroundImage = My.Resources.herbert
Label1.Text = "Hallo, ich bin Herbert – dein neuer KI-Assistent bei VERAG.
Noch bekomme ich den letzten Feinschliff, aber schon bald stehe ich dir mit Rat und Tat zur Seite.
Egal ob Zollfragen, Informationen zu Prozessen, Hilfe bei AVISO oder einfach die schnelle Suche nach einer Antwort – frag mich einfach. Ich bin rund um die Uhr für dich da und unterstütze dich, wo ich kann.
Ich verspreche zwar keine Wunder, aber ich gebe immer mein Bestes. Und wenn ich etwas einmal nicht sicher weiß, sage ich das offen, statt etwas zu erfinden.
Mein Ziel ist ganz einfach: Dir den Arbeitsalltag ein Stück leichter zu machen, Zeit zu sparen und dir lästige Sucherei abzunehmen.
Ich freue mich schon darauf, dich bald unterstützen zu dürfen.
Bis bald!"
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Me.Refresh()
PictureBox1.BackgroundImage = My.Resources.herbert_happy
Me.Refresh()
Thread.Sleep(1000)
Me.Close()
End Sub
Private Sub Button1_MouseDown(sender As Object, e As MouseEventArgs) Handles Button1.MouseDown
Me.Refresh()
PictureBox1.BackgroundImage = My.Resources.herbert_afraid
Me.Refresh()
Thread.Sleep(500)
End Sub
Private Sub Button1_Mouseup(sender As Object, e As MouseEventArgs) Handles Button1.MouseUp
PictureBox1.BackgroundImage = My.Resources.herbert
End Sub
End Class

4
Aviso/frmLogin.vb
View File

@@ -519,12 +519,12 @@ Public Class frmLogin
VERAG_PROG_ALLGEMEIN.cAllgemein.PROGVERSION = Application.ProductVersion 'My.Resources.Version2
VERAG_PROG_ALLGEMEIN.cAllgemein.SESSION.LOGIN()
If VERAG_PROG_ALLGEMEIN.cAllgemein.NEWLOGIN Then
VERAG_PROG_ALLGEMEIN.cAllgemein.AVISO_LAYOUT_NEW = True
frmHauptfensterNew.Show()
frmHauptfensterNew.Visible = True
frmHauptfensterNew.WindowState = FormWindowState.Maximized
Else
VERAG_PROG_ALLGEMEIN.cAllgemein.AVISO_LAYOUT_NEW = False
frmHauptfenster.Show()
frmHauptfenster.Visible = True
frmHauptfenster.WindowState = FormWindowState.Maximized

5
Aviso/frmSendungsdetailsNEU.vb
View File

@@ -2055,7 +2055,10 @@ Public Class frmSendungsdetailsNEU
End Select
Dim vorhanden = ADMIN.getValueTxtBySql("SELECT COUNT(*) FROM [Speditionsbuch] WHERE [FilialenNr]='" & SENDUNG_LIST(CURRENT_INDEX).FilialenNr & "' AND AbfertigungsNr='" & SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr & "'", "FMZOLL") ' AND UnterNr='" & txtUnterNr.Text & "'
Dim vorhanden = False
If SENDUNG_LIST(CURRENT_INDEX).FilialenNr > 0 AndAlso SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr > 0 Then
vorhanden = ADMIN.getValueTxtBySql("SELECT COUNT(*) FROM [Speditionsbuch] WHERE [FilialenNr]='" & SENDUNG_LIST(CURRENT_INDEX).FilialenNr & "' AND AbfertigungsNr='" & SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr & "'", "FMZOLL") ' AND UnterNr='" & txtUnterNr.Text & "'
End If
'cbxSpedBuch.Checked = (vorhanden > 0)
SENDUNG_LIST(CURRENT_INDEX).tblSnd_SpeditionsbuchEingetragen = (vorhanden > 0)

94
Aviso/usrCntlHauptfenster_Suche_AVISO.vb
View File

@@ -160,7 +160,8 @@ Public Class usrCntlHauptfenster_Suche_AVISO
pnlSearch.Visible = False
'initPnlSearch()
' Grid_aktiv = True
Grid_aktiv = True
Aviso_anzeigen("")
End Sub
@@ -901,6 +902,8 @@ Public Class usrCntlHauptfenster_Suche_AVISO
lblEintraege.Text = gridAviso.RowCount & " Einträge" & If(gridAviso.RowCount = 2000, " (begrenzt)", "")
initEAviso()
avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID, , False)
'lblDauer.Text = "Dauer Anzeige aufbauen: " & hDifferenz.ToString & " ms"
End Sub
@@ -1246,6 +1249,23 @@ Public Class usrCntlHauptfenster_Suche_AVISO
End Sub
Private Sub keydownMyAviso(sender As Object, e As KeyEventArgs) Handles gridAviso.KeyUp
Try
If e.KeyCode = Keys.Up Or e.KeyCode = Keys.Down Or e.KeyCode = Keys.PageUp Or e.KeyCode = Keys.PageDown Or e.KeyCode = Keys.Return Or e.KeyCode = Keys.Enter Then
If sender.selectedRows.count = 0 Then Exit Sub
Dim tmpId = CInt(sender.selectedRows(0).Cells("AvisoId").Value)
'Dim tmpSndId = CInt(sender.selectedRows(0).Cells("tblSnd_SendungID").Value)
VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = tmpId
'VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID = tmpSndId
frmHauptfensterNew.REFRESH_AVISO_MAIN(,, Me.GetType().Name)
End If
Catch ex As Exception
End Try
End Sub
Private Sub TimerAkte_Tick(sender As Object, e As EventArgs) Handles TimerAkte.Tick
' newNotify(frmNotify.cNotify_ART.NEUER_CHAT, 0, "Neue Chat-Nachricht!", -1)
@@ -1420,7 +1440,7 @@ Public Class usrCntlHauptfenster_Suche_AVISO
Public Sub avisoAktualisierenAktiveIdBehalten(tmpid As Integer, Optional aktWithoutCheckTime As Boolean = False, Optional Aviso_anzeigenBool As Boolean = True)
Public Sub avisoAktualisierenAktiveIdBehalten(tmpid As Integer, Optional aktWithoutCheckTime As Boolean = False, Optional Aviso_anzeigenBool As Boolean = True, Optional refreshPnlRight As Boolean = True)
PARENT_FRMHAUPTFENSTER.pic.Visible = False
Try
@@ -1434,54 +1454,47 @@ Public Class usrCntlHauptfenster_Suche_AVISO
' If Aviso_anzeigenBool Then PARENT_FRMHAUPTFENSTER.initsearch("", False)
If AVISO_TYP = "LKW" Then
gridAviso.ClearSelection()
For Each r As DataGridViewRow In gridAviso.Rows
gridAviso.ClearSelection()
For Each r As DataGridViewRow In gridAviso.Rows
If CInt(r.Cells("AvisoId").Value) = tmpid Then
' gridMyAviso.ClearSelection()
gridAviso.CurrentCell = r.Cells("Status")
r.Selected = True : Exit For
End If
Next
Else
gridAviso.ClearSelection()
If gridAviso.Rows.Count > 0 Then
For Each r As DataGridViewRow In gridAviso.Rows
If CInt(r.Cells("tblSnd_SendungID").Value) = VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID Then
gridAviso.CurrentCell = r.Cells("Status")
r.Selected = True : Exit For
End If
Next
End If
End If
VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = tmpid
Details_aktiv = True
If PARENT_FRMHAUPTFENSTER.pnlDetailsRechts.Controls.Count > 0 Then
Dim usrcntlAvisoID = -1
Dim usrcntlAktiv As DateTime
If Not PARENT_FRMHAUPTFENSTER.pnlDetailsRechts.Controls(0).GetType = GetType(System.Windows.Forms.Label) Then
If PARENT_FRMHAUPTFENSTER.pnlDetailsRechts.Controls(0).Name = "usrcntlAktDetailsATILLANeu" Then
usrcntlAvisoID = DirectCast(PARENT_FRMHAUPTFENSTER.pnlDetailsRechts.Controls(0), usrcntlAktDetailsATILLANeu).AvisoID
usrcntlAktiv = DirectCast(PARENT_FRMHAUPTFENSTER.pnlDetailsRechts.Controls(0), usrcntlAktDetailsATILLANeu).aktiv
Else
usrcntlAvisoID = DirectCast(PARENT_FRMHAUPTFENSTER.pnlDetailsRechts.Controls(0), usrcntlAktDetails).AvisoID
usrcntlAktiv = DirectCast(PARENT_FRMHAUPTFENSTER.pnlDetailsRechts.Controls(0), usrcntlAktDetails).aktiv
End If
'If refreshPnlRight Then
If aktWithoutCheckTime Or usrcntlAvisoID <> tmpid Then
PARENT_FRMHAUPTFENSTER.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
Else
If DateDiff(DateInterval.Second, usrcntlAktiv, Now) > 60 Then 'Wenn die Details länger als 60 Sek inaktiv sind (Prüfung durch click und keydown)
PARENT_FRMHAUPTFENSTER.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
End If
End If
End If
' If PARENT_FRMHAUPTFENSTER.pnlDetailsRechts.Controls.Count > 0 Then
' Dim usrcntlAvisoID = -1
' Dim usrcntlAktiv As DateTime
' If Not PARENT_FRMHAUPTFENSTER.pnlDetailsRechts.Controls(0).GetType = GetType(System.Windows.Forms.Label) Then
' If PARENT_FRMHAUPTFENSTER.pnlDetailsRechts.Controls(0).Name = "usrcntlAktDetailsATILLANeu" Then
' usrcntlAvisoID = DirectCast(PARENT_FRMHAUPTFENSTER.pnlDetailsRechts.Controls(0), usrcntlAktDetailsATILLANeu).AvisoID
' usrcntlAktiv = DirectCast(PARENT_FRMHAUPTFENSTER.pnlDetailsRechts.Controls(0), usrcntlAktDetailsATILLANeu).aktiv
' Else
' usrcntlAvisoID = DirectCast(PARENT_FRMHAUPTFENSTER.pnlDetailsRechts.Controls(0), usrcntlAktDetails).AvisoID
' usrcntlAktiv = DirectCast(PARENT_FRMHAUPTFENSTER.pnlDetailsRechts.Controls(0), usrcntlAktDetails).aktiv
' End If
' If aktWithoutCheckTime Or usrcntlAvisoID <> tmpid Then
' PARENT_FRMHAUPTFENSTER.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
' Else
' If DateDiff(DateInterval.Second, usrcntlAktiv, Now) > 60 Then 'Wenn die Details länger als 60 Sek inaktiv sind (Prüfung durch click und keydown)
' PARENT_FRMHAUPTFENSTER.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
' End If
' End If
' End If
' End If
'End If
End If
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name, "LOG")
End Try
@@ -1489,6 +1502,7 @@ Public Class usrCntlHauptfenster_Suche_AVISO
Private Sub grid_CellMouseClick(sender As Object, e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles gridAviso.CellMouseClick
If e.RowIndex < 0 Then Exit Sub 'Es wurde außerhalb einer gültigen Datenzeile geklickt
@@ -1519,7 +1533,8 @@ Public Class usrCntlHauptfenster_Suche_AVISO
' End If
'Else
setAkive_AuswahlID()
avisoAktualisierenAktiveIdBehalten(tmpId, , False)
' avisoAktualisierenAktiveIdBehalten(tmpId, , False)
frmHauptfensterNew.REFRESH_AVISO_MAIN(tmpId,, Me.GetType().Name)
Dim hStatus = AvisoDAL.LesenAviso(tmpId, "").Status
If hStatus <> VERAG_PROG_ALLGEMEIN.cGlobal.Status_Ankunft And hStatus <> VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorgeschrieben And hStatus <> VERAG_PROG_ALLGEMEIN.cGlobal.Status_Erfasst And hStatus <> VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorbereitet Then
'MsgBox("Ein Vermerk kann nur erfasst werden, wenn der Status des Aviso auf 'Erfasst', 'Vorbereitet', 'Vorgeschrieben' oder 'Ankunft' steht.", vbInformation)
@@ -1538,8 +1553,9 @@ Public Class usrCntlHauptfenster_Suche_AVISO
End If
ElseIf e.Button = MouseButtons.Left Then
VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = tmpId
avisoAktualisierenAktiveIdBehalten(tmpId, , False)
frmHauptfensterNew.REFRESH_AVISO_MAIN(tmpId,, Me.GetType().Name)
'VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = tmpId
'avisoAktualisierenAktiveIdBehalten(tmpId, , False)
End If
End Sub

118
Aviso/usrCntlHauptfenster_Suche_SND.Designer.vb generated
View File

@@ -24,12 +24,14 @@ Partial Class usrCntlHauptfenster_Suche_SND
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(usrCntlHauptfenster_Suche_SND))
Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.cbx_My_CBAM = New System.Windows.Forms.CheckBox()
Me.cbx_My_Brexit = New System.Windows.Forms.CheckBox()
Me.cbxLoseSnd = New System.Windows.Forms.CheckBox()
Me.txtAvisierer = New System.Windows.Forms.TextBox()
Me.Label2 = New System.Windows.Forms.Label()
@@ -45,6 +47,7 @@ Partial Class usrCntlHauptfenster_Suche_SND
Me.tbSndAlle = New System.Windows.Forms.TabPage()
Me.tbSndOffen = New System.Windows.Forms.TabPage()
Me.tbSndFreigegeben = New System.Windows.Forms.TabPage()
Me.tbNichtEingetroffen = New System.Windows.Forms.TabPage()
Me.btnColor = New System.Windows.Forms.Button()
Me.Button4 = New System.Windows.Forms.Button()
Me.lblDauer = New System.Windows.Forms.Label()
@@ -72,7 +75,6 @@ Partial Class usrCntlHauptfenster_Suche_SND
Me.ToolStripMenuItem19 = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem20 = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem21 = New System.Windows.Forms.ToolStripMenuItem()
Me.tbNichtEingetroffen = New System.Windows.Forms.TabPage()
Me.Panel1.SuspendLayout()
Me.tbcntrAvisoSND.SuspendLayout()
CType(Me.gridAviso, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -82,6 +84,8 @@ Partial Class usrCntlHauptfenster_Suche_SND
'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.cbx_My_CBAM)
Me.Panel1.Controls.Add(Me.cbx_My_Brexit)
Me.Panel1.Controls.Add(Me.cbxLoseSnd)
Me.Panel1.Controls.Add(Me.txtAvisierer)
Me.Panel1.Controls.Add(Me.Label2)
@@ -121,6 +125,30 @@ Partial Class usrCntlHauptfenster_Suche_SND
Me.Panel1.Size = New System.Drawing.Size(1243, 115)
Me.Panel1.TabIndex = 3
'
'cbx_My_CBAM
'
Me.cbx_My_CBAM.AutoSize = True
Me.cbx_My_CBAM.ForeColor = System.Drawing.Color.White
Me.cbx_My_CBAM.Location = New System.Drawing.Point(531, 91)
Me.cbx_My_CBAM.Name = "cbx_My_CBAM"
Me.cbx_My_CBAM.Size = New System.Drawing.Size(60, 19)
Me.cbx_My_CBAM.TabIndex = 48
Me.cbx_My_CBAM.Text = "CBAM"
Me.cbx_My_CBAM.UseVisualStyleBackColor = True
Me.cbx_My_CBAM.Visible = False
'
'cbx_My_Brexit
'
Me.cbx_My_Brexit.AutoSize = True
Me.cbx_My_Brexit.ForeColor = System.Drawing.Color.White
Me.cbx_My_Brexit.Location = New System.Drawing.Point(470, 91)
Me.cbx_My_Brexit.Name = "cbx_My_Brexit"
Me.cbx_My_Brexit.Size = New System.Drawing.Size(55, 19)
Me.cbx_My_Brexit.TabIndex = 47
Me.cbx_My_Brexit.Text = "Brexit"
Me.cbx_My_Brexit.UseVisualStyleBackColor = True
Me.cbx_My_Brexit.Visible = False
'
'cbxLoseSnd
'
Me.cbxLoseSnd.AutoSize = True
@@ -293,6 +321,15 @@ Partial Class usrCntlHauptfenster_Suche_SND
Me.tbSndFreigegeben.Text = "Überlassen"
Me.tbSndFreigegeben.UseVisualStyleBackColor = True
'
'tbNichtEingetroffen
'
Me.tbNichtEingetroffen.Location = New System.Drawing.Point(4, 34)
Me.tbNichtEingetroffen.Name = "tbNichtEingetroffen"
Me.tbNichtEingetroffen.Size = New System.Drawing.Size(478, 0)
Me.tbNichtEingetroffen.TabIndex = 3
Me.tbNichtEingetroffen.Text = "Nicht Eingetroffen"
Me.tbNichtEingetroffen.UseVisualStyleBackColor = True
'
'btnColor
'
Me.btnColor.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
@@ -536,48 +573,48 @@ Partial Class usrCntlHauptfenster_Suche_SND
Me.gridAviso.AllowUserToAddRows = False
Me.gridAviso.AllowUserToDeleteRows = False
Me.gridAviso.AllowUserToResizeRows = False
DataGridViewCellStyle1.BackColor = System.Drawing.Color.Azure
DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.gridAviso.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
DataGridViewCellStyle6.BackColor = System.Drawing.Color.Azure
DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.gridAviso.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle6
Me.gridAviso.BackgroundColor = System.Drawing.Color.DarkGray
Me.gridAviso.CausesValidation = False
Me.gridAviso.ClipboardCopyMode = System.Windows.Forms.DataGridViewClipboardCopyMode.Disable
DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle2.BackColor = System.Drawing.Color.LightBlue
DataGridViewCellStyle2.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle2.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle2.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.gridAviso.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle2
DataGridViewCellStyle7.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle7.BackColor = System.Drawing.Color.LightBlue
DataGridViewCellStyle7.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle7.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle7.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle7.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle7.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.gridAviso.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle7
Me.gridAviso.ColumnHeadersHeight = 25
Me.gridAviso.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing
DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle3.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle3.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle3.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle3.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.gridAviso.DefaultCellStyle = DataGridViewCellStyle3
DataGridViewCellStyle8.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle8.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle8.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle8.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle8.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle8.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.gridAviso.DefaultCellStyle = DataGridViewCellStyle8
Me.gridAviso.Dock = System.Windows.Forms.DockStyle.Fill
Me.gridAviso.Location = New System.Drawing.Point(0, 115)
Me.gridAviso.MultiSelect = False
Me.gridAviso.Name = "gridAviso"
Me.gridAviso.ReadOnly = True
DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle4.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle4.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle4.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle4.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.gridAviso.RowHeadersDefaultCellStyle = DataGridViewCellStyle4
DataGridViewCellStyle9.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle9.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle9.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle9.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle9.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle9.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.gridAviso.RowHeadersDefaultCellStyle = DataGridViewCellStyle9
Me.gridAviso.RowHeadersVisible = False
Me.gridAviso.RowHeadersWidth = 62
Me.gridAviso.RowHeadersWidthSizeMode = System.Windows.Forms.DataGridViewRowHeadersWidthSizeMode.DisableResizing
DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.gridAviso.RowsDefaultCellStyle = DataGridViewCellStyle5
DataGridViewCellStyle10.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.gridAviso.RowsDefaultCellStyle = DataGridViewCellStyle10
Me.gridAviso.RowTemplate.ReadOnly = True
Me.gridAviso.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[False]
Me.gridAviso.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
@@ -623,15 +660,6 @@ Partial Class usrCntlHauptfenster_Suche_SND
Me.ToolStripMenuItem21.Size = New System.Drawing.Size(121, 22)
Me.ToolStripMenuItem21.Text = "GELB"
'
'tbNichtEingetroffen
'
Me.tbNichtEingetroffen.Location = New System.Drawing.Point(4, 34)
Me.tbNichtEingetroffen.Name = "tbNichtEingetroffen"
Me.tbNichtEingetroffen.Size = New System.Drawing.Size(478, 0)
Me.tbNichtEingetroffen.TabIndex = 3
Me.tbNichtEingetroffen.Text = "Nicht Eingetroffen"
Me.tbNichtEingetroffen.UseVisualStyleBackColor = True
'
'usrCntlHauptfenster_Suche_SND
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -693,4 +721,6 @@ Partial Class usrCntlHauptfenster_Suche_SND
Friend WithEvents Label2 As Label
Friend WithEvents cbxLoseSnd As CheckBox
Friend WithEvents tbNichtEingetroffen As TabPage
Friend WithEvents cbx_My_CBAM As CheckBox
Friend WithEvents cbx_My_Brexit As CheckBox
End Class

152
Aviso/usrCntlHauptfenster_Suche_SND.vb
View File

@@ -87,11 +87,20 @@ Public Class usrCntlHauptfenster_Suche_SND
cboMyAvisoAnzeige.Items.Clear()
cboMyAvisoAnzeige.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ALLE", "ALLE"))
cboMyAvisoAnzeige.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ALLE (" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & ")", "ALLE"))
cboMyAvisoAnzeige.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Benutzer", "Benutzer"))
cboMyAvisoAnzeige.fillWithSQL("SELECT team_id, team_bezeichnung FROM tblTeams WHERE team_firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "'", False, "ADMIN", True, False)
cboMyAvisoAnzeige.changeItem("Benutzer")
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("BREXIT", "AVISO") Then
' BREXITToolStripMenuItem.Visible = True
cbx_My_Brexit.Checked = True
End If
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("CBAM", "AVISO") Then
cbx_My_CBAM.Checked = True
End If
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERIMEX" Then
cboMyAvisoAnzeige.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("T1-Sendungen", "T1"))
@@ -166,6 +175,26 @@ Public Class usrCntlHauptfenster_Suche_SND
' pnlSearch.Visible = False
initPnlSearch()
Grid_aktiv = True
Aviso_anzeigen("")
End Sub
Private Sub keydownMyAviso(sender As Object, e As KeyEventArgs) Handles gridAviso.KeyUp
Try
If e.KeyCode = Keys.Up Or e.KeyCode = Keys.Down Or e.KeyCode = Keys.PageUp Or e.KeyCode = Keys.PageDown Or e.KeyCode = Keys.Return Or e.KeyCode = Keys.Enter Then
If sender.selectedRows.count = 0 Then Exit Sub
Dim tmpId = CInt(sender.selectedRows(0).Cells("AvisoId").Value)
Dim tmpSndId = CInt(sender.selectedRows(0).Cells("tblSnd_SendungID").Value)
VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = tmpId
VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID = tmpSndId
frmHauptfensterNew.REFRESH_AVISO_MAIN(,, Me.GetType().Name)
End If
Catch ex As Exception
End Try
End Sub
@@ -587,10 +616,17 @@ Public Class usrCntlHauptfenster_Suche_SND
End If
End If
Else
inBearbeitungSQL = " 1=1 " 'ALLE ANZEIGEN
End If
Dim hSQLFirma = ""
hSQLFirma = " AND Firma ='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' OR Cluster='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "' "
hSQL = " SELECT " & top & " AvisoID, CASE WHEN [LKW_fertig] = 1 THEN 'OK' ELSE '' END AS [LKW_fertig], CASE WHEN [VerwahrungStatus] = 1 THEN 'OK' ELSE '' END AS [VerwahrungStatus],[Status],tblSendungen.LetzterMitarbeiterId,tblSendungen.LetzterMitarbeiter, LKW_Nr, VoraussichtlichesEintreffen,Dauer, Datum, AvisoEingang, Ankunft, Grenzstelle, Freigabe, Aviso.LetzterMitarbeiterId AS maId,AvisoTVHinweis " &
" ,tblSnd_Absender ,tblSnd_Empfaenger,tblSnd_Avisierer,AbfertigungsNr,tblSnd_Abfertigungsart_ID,tblSnd_Vorgeschrieben,tblSnd_Vorbereitet,tblSnd_Status,tblSnd_SendungID,tblSnd_Fremdspedition,tblSnd_FremdspeditionText ,tblSnd_Zollsystem_Land " &
" FROM Aviso INNER JOIN tblSendungen ON AvisoID=tblSnd_AvisoID " &
@@ -615,6 +651,10 @@ Public Class usrCntlHauptfenster_Suche_SND
If cboMy_Grenzstelle._value = "ALLE_BACK" Then hSQL &= " AND FilialenNr NOT IN ('7001','7002','7003') "
End If
If cbx_My_Brexit.Visible AndAlso Not cbx_My_Brexit.Checked Then hSQL &= " AND FilialenNr NOT IN ('7001','7002','7003') "
If cbx_My_CBAM.Visible AndAlso Not cbx_My_CBAM.Checked Then hSQL &= " AND tblSnd_Abfertigungsart_ID NOT IN (65) "
If txtEmpfänger.Text <> "" Then hSQL &= " AND tblSnd_Empfaenger LIKE '" & txtEmpfänger.Text.Replace("*", "%") & "%' "
If txtAbsender.Text <> "" Then hSQL &= " AND tblSnd_Absender LIKE '" & txtAbsender.Text.Replace("*", "%") & "%' "
If txtAuftraggeber.Text <> "" Then hSQL &= " AND tblSnd_Auftraggeber LIKE '" & txtAuftraggeber.Text.Replace("*", "%") & "%' "
@@ -737,27 +777,27 @@ Public Class usrCntlHauptfenster_Suche_SND
' btnÜbernehmen.Visible = True
Grid_aktiv = True
'Aviso_anzeigen("")
If VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID <= 0 Then
If gridAviso.RowCount > 0 Then gridAviso.Rows(0).Selected = True
End If
'If VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID <= 0 Then
' If gridAviso.RowCount > 0 Then gridAviso.Rows(0).Selected = True
'End If
gridAviso.SetOrder()
Details_aktiv = True
If showDetails Then
If gridAviso.SelectedRows.Count > 0 Then
VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = gridAviso.SelectedRows(0).Cells("AvisoID").Value
End If
PARENT_FRMHAUPTFENSTER.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
End If
'If showDetails Then
' If gridAviso.SelectedRows.Count > 0 Then
' VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = gridAviso.SelectedRows(0).Cells("AvisoID").Value
' End If
' PARENT_FRMHAUPTFENSTER.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
'End If
' If chkFarben Then GridZeichnenAviso()
lblDauer.Text = "" & hDifferenz.ToString & " ms"
lblEintraege.Text = gridAviso.RowCount & " Einträge" & If(gridAviso.RowCount = 2000, " (begrenzt)", "")
avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID, , False)
' MsgBox(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID)
'lblDauer.Text = "Dauer Anzeige aufbauen: " & hDifferenz.ToString & " ms"
End Sub
@@ -964,8 +1004,10 @@ Public Class usrCntlHauptfenster_Suche_SND
Function setAkive_AuswahlID() As Integer
If gridAviso.SelectedRows.Count > 0 Then
VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = CInt(gridAviso.Rows(gridAviso.SelectedRows(0).Index).Cells("AvisoID").Value)
VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID = CInt(gridAviso.Rows(gridAviso.SelectedRows(0).Index).Cells("tblSnd_SendungID").Value)
Else
VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = -1
VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID = -1
End If
'If gridMyAviso.SelectedRows.Count > 0 Then
@@ -980,7 +1022,7 @@ Public Class usrCntlHauptfenster_Suche_SND
' VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID = -1
'End If
Return VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID
Return VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID
End Function
Public Sub GridZeichnenAviso()
@@ -1031,31 +1073,17 @@ Public Class usrCntlHauptfenster_Suche_SND
Public Sub avisoAktualisierenAktiveIdBehalten(tmpid As Integer, Optional aktWithoutCheckTime As Boolean = False, Optional Aviso_anzeigenBool As Boolean = True)
Public Sub avisoAktualisierenAktiveIdBehalten(tmpid As Integer, Optional aktWithoutCheckTime As Boolean = False, Optional Aviso_anzeigenBool As Boolean = True, Optional refreshPnlRight As Boolean = True)
PARENT_FRMHAUPTFENSTER.pic.Visible = False
Try
VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID = tmpid
' MsgBox(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID)
If Not Grid_aktiv Then Exit Sub
Details_aktiv = False
' If Aviso_anzeigenBool Then PARENT_FRMHAUPTFENSTER.initsearch("", False)
If AVISO_TYP = "LKW" Then
gridAviso.ClearSelection()
For Each r As DataGridViewRow In gridAviso.Rows
If CInt(r.Cells("AvisoId").Value) = tmpid Then
' gridMyAviso.ClearSelection()
gridAviso.CurrentCell = r.Cells("Status")
r.Selected = True : Exit For
End If
Next
Else
gridAviso.ClearSelection()
gridAviso.ClearSelection()
If gridAviso.Rows.Count > 0 Then
For Each r As DataGridViewRow In gridAviso.Rows
If CInt(r.Cells("tblSnd_SendungID").Value) = VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID Then
@@ -1064,35 +1092,36 @@ Public Class usrCntlHauptfenster_Suche_SND
End If
Next
End If
End If
VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = tmpid
VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID = tmpid
Details_aktiv = True
If PARENT_FRMHAUPTFENSTER.pnlDetailsRechts.Controls.Count > 0 Then
'If refreshPnlRight Then
' If PARENT_FRMHAUPTFENSTER.pnlDetailsRechts.Controls.Count > 0 Then
Dim usrcntlAvisoID = -1
Dim usrcntlAktiv As DateTime
If Not PARENT_FRMHAUPTFENSTER.pnlDetailsRechts.Controls(0).GetType = GetType(System.Windows.Forms.Label) Then
If PARENT_FRMHAUPTFENSTER.pnlDetailsRechts.Controls(0).Name = "usrcntlAktDetailsATILLANeu" Then
usrcntlAvisoID = DirectCast(PARENT_FRMHAUPTFENSTER.pnlDetailsRechts.Controls(0), usrcntlAktDetailsATILLANeu).AvisoID
usrcntlAktiv = DirectCast(PARENT_FRMHAUPTFENSTER.pnlDetailsRechts.Controls(0), usrcntlAktDetailsATILLANeu).aktiv
Else
usrcntlAvisoID = DirectCast(PARENT_FRMHAUPTFENSTER.pnlDetailsRechts.Controls(0), usrcntlAktDetails).AvisoID
usrcntlAktiv = DirectCast(PARENT_FRMHAUPTFENSTER.pnlDetailsRechts.Controls(0), usrcntlAktDetails).aktiv
End If
' Dim usrcntlAvisoID = -1
' Dim usrcntlAktiv As DateTime
' If Not PARENT_FRMHAUPTFENSTER.pnlDetailsRechts.Controls(0).GetType = GetType(System.Windows.Forms.Label) Then
' If PARENT_FRMHAUPTFENSTER.pnlDetailsRechts.Controls(0).Name = "usrcntlAktDetailsATILLANeu" Then
' usrcntlAvisoID = DirectCast(PARENT_FRMHAUPTFENSTER.pnlDetailsRechts.Controls(0), usrcntlAktDetailsATILLANeu).AvisoID
' usrcntlAktiv = DirectCast(PARENT_FRMHAUPTFENSTER.pnlDetailsRechts.Controls(0), usrcntlAktDetailsATILLANeu).aktiv
' Else
' usrcntlAvisoID = DirectCast(PARENT_FRMHAUPTFENSTER.pnlDetailsRechts.Controls(0), usrcntlAktDetails).AvisoID
' usrcntlAktiv = DirectCast(PARENT_FRMHAUPTFENSTER.pnlDetailsRechts.Controls(0), usrcntlAktDetails).aktiv
' End If
If aktWithoutCheckTime Or usrcntlAvisoID <> tmpid Then
PARENT_FRMHAUPTFENSTER.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
Else
If DateDiff(DateInterval.Second, usrcntlAktiv, Now) > 60 Then 'Wenn die Details länger als 60 Sek inaktiv sind (Prüfung durch click und keydown)
PARENT_FRMHAUPTFENSTER.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
End If
End If
End If
' If aktWithoutCheckTime Or usrcntlAvisoID <> tmpid Then
' PARENT_FRMHAUPTFENSTER.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
' Else
' If DateDiff(DateInterval.Second, usrcntlAktiv, Now) > 60 Then 'Wenn die Details länger als 60 Sek inaktiv sind (Prüfung durch click und keydown)
' PARENT_FRMHAUPTFENSTER.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
' End If
' End If
' End If
' End If
End If
'End If
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name, "LOG")
End Try
@@ -1150,7 +1179,8 @@ Public Class usrCntlHauptfenster_Suche_SND
End If
ElseIf e.Button = MouseButtons.Left Then
VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = tmpId
avisoAktualisierenAktiveIdBehalten(tmpId, , False)
frmHauptfensterNew.REFRESH_AVISO_MAIN(tmpId,, Me.GetType().Name)
End If
End Sub
@@ -1170,13 +1200,14 @@ Public Class usrCntlHauptfenster_Suche_SND
Case "StatusVorgeschrieben"
Me.Cursor = Cursors.WaitCursor
If FUNC.setSendungVorgeschrieben(SendungsId, AvisoID) Then
avisoAktualisierenAktiveIdBehalten(AvisoID, True, True) 'Aviso_anzeigen("")
frmHauptfensterNew.REFRESH_AVISO_MAIN(tmpId, SendungsId, Me.GetType().Name)
End If
Me.Cursor = Cursors.Default
Case "StatusVorbereitetQS"
Me.Cursor = Cursors.WaitCursor
If FUNC.setSendungVorbereitetQS(SendungsId, AvisoID) Then
avisoAktualisierenAktiveIdBehalten(AvisoID, True, True) 'Aviso_anzeigen("")
frmHauptfensterNew.REFRESH_AVISO_MAIN(tmpId, SendungsId, Me.GetType().Name)
End If
Me.Cursor = Cursors.Default
@@ -1359,26 +1390,29 @@ Public Class usrCntlHauptfenster_Suche_SND
Grid_aktiv = False
cboMy_QS.CheckState = CheckState.Unchecked
cboMy_VB.CheckState = CheckState.Indeterminate
Aviso_anzeigen("")
Grid_aktiv = True
Aviso_anzeigen("")
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Grid_aktiv = False
cboMy_QS.CheckState = CheckState.Checked
cboMy_VB.CheckState = CheckState.Unchecked
Aviso_anzeigen("")
Grid_aktiv = True
Aviso_anzeigen("")
End Sub
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
Grid_aktiv = True
Aviso_anzeigen("")
End Sub
Private Sub txtAbfertigungsnummer_TextChanged(sender As Object, e As EventArgs) Handles cbxLoseSnd.CheckStateChanged, txtAbfertigungsnummer.Leave, txtKdAuftragsnr.Leave, txtlkwId.Leave,
txtAuftraggeber.Leave, txtAbsender.Leave, txtEmpfänger.Leave, txtAvisierer.Leave, cboFiliale.SelectedIndexChanged
txtAuftraggeber.Leave, txtAbsender.Leave, txtEmpfänger.Leave, txtAvisierer.Leave, cboFiliale.SelectedIndexChanged,
cbx_My_Brexit.CheckedChanged, cbx_My_CBAM.CheckedChanged
Aviso_anzeigen("")
End Sub

123
Aviso/usrcntlAktDetails.vb
View File

@@ -861,7 +861,7 @@ Public Class usrcntlAktDetails
r.Selected = True
sendAktiv = sendAktivTmp
'MsgBox("sosso" & VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID)
Vermerke_anzeigen(r.Index)
End If
End If
Next
@@ -1253,8 +1253,14 @@ Public Class usrcntlAktDetails
Case 80
If vbYes = MsgBox("Soll der LKW auf Status 'ANKUNFT' gesetzt werden?", vbYesNoCancel) Then
If AvisoStatusFunctions.setAnkunft(AVISO.AvisoID) Then
frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
frmHauptfenster.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
If VERAG_PROG_ALLGEMEIN.cAllgemein.AVISO_LAYOUT_NEW Then
frmHauptfensterNew.RELOAD_AVISO_MAIN()
frmHauptfensterNew.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
Else
frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
frmHauptfenster.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
End If
End If
End If
Case 82
@@ -1864,43 +1870,67 @@ Public Class usrcntlAktDetails
Private Sub btnAnkunft_Click(sender As Object, e As EventArgs) Handles btnAnkunft.Click
If FUNC.setAnkunft(AvisoID) Then
' MsgBox("H1")
frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
frmHauptfenster.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
If VERAG_PROG_ALLGEMEIN.cAllgemein.AVISO_LAYOUT_NEW Then
frmHauptfensterNew.RELOAD_AVISO_MAIN(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
Else
frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
frmHauptfenster.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
End If
End If
End Sub
Private Sub btnErfasst_Click(sender As Object, e As EventArgs) Handles btnErfasst.Click
If FUNC.setErfasst(AvisoID) Then
frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
frmHauptfenster.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
If VERAG_PROG_ALLGEMEIN.cAllgemein.AVISO_LAYOUT_NEW Then
frmHauptfensterNew.RELOAD_AVISO_MAIN(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
Else
frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
frmHauptfenster.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
End If
End If
End Sub
Private Sub btnVorbereitet_Click(sender As Object, e As EventArgs) Handles btnVorbereitet.Click
If FUNC.setVorbereitet(AvisoID) Then
frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
frmHauptfenster.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
If VERAG_PROG_ALLGEMEIN.cAllgemein.AVISO_LAYOUT_NEW Then
frmHauptfensterNew.RELOAD_AVISO_MAIN(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
Else
frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
frmHauptfenster.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
End If
End If
End Sub
Private Sub btnVorgeschrieben_Click(sender As Object, e As EventArgs) Handles btnVorgeschrieben.Click
If FUNC.setVorgeschreiben(AvisoID) Then
frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
frmHauptfenster.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
If VERAG_PROG_ALLGEMEIN.cAllgemein.AVISO_LAYOUT_NEW Then
frmHauptfensterNew.RELOAD_AVISO_MAIN(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
Else
frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
frmHauptfenster.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
End If
End If
End Sub
Private Sub btnFreigabe_Click(sender As Object, e As EventArgs) Handles btnFreigabe.Click
If FUNC.setFreigabe(AvisoID, Me) Then
frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
frmHauptfenster.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
If VERAG_PROG_ALLGEMEIN.cAllgemein.AVISO_LAYOUT_NEW Then
frmHauptfensterNew.RELOAD_AVISO_MAIN(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
Else
frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
frmHauptfenster.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
End If
End If
End Sub
Private Sub btnNichtEingetroffen_Click(sender As Object, e As EventArgs)
If FUNC.setNichtEingeftroffen(AvisoID) Then
frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
frmHauptfenster.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID, -1)
If VERAG_PROG_ALLGEMEIN.cAllgemein.AVISO_LAYOUT_NEW Then
frmHauptfensterNew.RELOAD_AVISO_MAIN(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
Else
frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
frmHauptfenster.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
End If
End If
End Sub
@@ -2357,7 +2387,12 @@ Public Class usrcntlAktDetails
End If
If FUNC.setAbgeschlossen(AvisoID, True) Then
frmHauptfenster.avisoAktualisierenAktiveIdBehalten(AvisoID)
If VERAG_PROG_ALLGEMEIN.cAllgemein.AVISO_LAYOUT_NEW Then
frmHauptfensterNew.RELOAD_AVISO_MAIN(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
Else
frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
End If
reload(AvisoID)
End If
End Sub
@@ -2465,14 +2500,24 @@ Public Class usrcntlAktDetails
If AVISO.LetzterMitarbeiterId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID Then
Dim f As New frmAvisoWeiterleiten("A", AvisoID) '--> Weitereliten
If f.ShowDialog(Me) = DialogResult.OK Then
frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
frmHauptfenster.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
If VERAG_PROG_ALLGEMEIN.cAllgemein.AVISO_LAYOUT_NEW Then
frmHauptfensterNew.RELOAD_AVISO_MAIN(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
Else
frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
frmHauptfenster.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
End If
Vermerke_anzeigen()
End If
Else
If FUNC.AktUebernehmen(AvisoID, False) Then
frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
frmHauptfenster.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
If VERAG_PROG_ALLGEMEIN.cAllgemein.AVISO_LAYOUT_NEW Then
frmHauptfensterNew.RELOAD_AVISO_MAIN(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
Else
frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
frmHauptfenster.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
End If
End If
End If
End Sub
@@ -2504,7 +2549,11 @@ Public Class usrcntlAktDetails
Private Sub Label2_Click(sender As Object, e As EventArgs) Handles Label2.Click
If vbYes = MsgBox("Möchten Sie den Akt wieder öffnen?", vbYesNoCancel) Then
If FUNC.setAbgeschlossen(AvisoID, False) Then
frmHauptfenster.avisoAktualisierenAktiveIdBehalten(AvisoID)
If VERAG_PROG_ALLGEMEIN.cAllgemein.AVISO_LAYOUT_NEW Then
frmHauptfensterNew.RELOAD_AVISO_MAIN(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
Else
frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
End If
VERAG_PROG_ALLGEMEIN.cMessenger.SET_LKWCHAT_AKTIV(AvisoID)
reload(AvisoID)
End If
@@ -2649,7 +2698,12 @@ Public Class usrcntlAktDetails
If FUNC.setNichtEingeftroffen(AvisoID, True) Then
VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = -1
frmHauptfenster.pnlDetailsRechts.Visible = False
frmHauptfenster.avisoAktualisierenAktiveIdBehalten(-1)
If VERAG_PROG_ALLGEMEIN.cAllgemein.AVISO_LAYOUT_NEW Then
frmHauptfensterNew.RELOAD_AVISO_MAIN(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
Else
frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
End If
End If
End If
End Sub
@@ -2658,7 +2712,12 @@ Public Class usrcntlAktDetails
Dim frmTV As New frmTv
frmTV.avisoID = VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID
frmTV.ShowDialog()
frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
If VERAG_PROG_ALLGEMEIN.cAllgemein.AVISO_LAYOUT_NEW Then
frmHauptfensterNew.RELOAD_AVISO_MAIN(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
Else
frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
End If
frmHauptfenster.lblHinweiseVisible()
End Sub
@@ -3760,15 +3819,25 @@ Public Class usrcntlAktDetails
Private Sub btnAnVerimex_Click(sender As Object, e As EventArgs) Handles btnAnVerimex.Click
If FUNC.setAnVERIMEX(AvisoID) Then
frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
frmHauptfenster.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
If VERAG_PROG_ALLGEMEIN.cAllgemein.AVISO_LAYOUT_NEW Then
frmHauptfensterNew.RELOAD_AVISO_MAIN(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
Else
frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
frmHauptfenster.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
End If
End If
End Sub
Private Sub btnAnIndonesien_Click(sender As Object, e As EventArgs) Handles btnAnIndonesien.Click
If FUNC.setAnINDONESIEN(AvisoID) Then
frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
frmHauptfenster.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
If VERAG_PROG_ALLGEMEIN.cAllgemein.AVISO_LAYOUT_NEW Then
frmHauptfensterNew.RELOAD_AVISO_MAIN(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
Else
frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
frmHauptfenster.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
End If
End If
End Sub