19 Commits

Author SHA1 Message Date
55e5302f31 merge 2026-04-30 09:36:52 +02:00
222153f19e update vermerke 2026-04-30 09:26:04 +02:00
e6df74906b vermerke 2026-04-30 09:18:46 +02:00
murad
542f1fb144 vermerke update 2026-04-30 09:18:46 +02:00
df3c94aa95 vermerke 2026-04-30 09:18:45 +02:00
750ed3fbee vermerke 2026-04-30 09:18:45 +02:00
murad
cb1a47f5f2 update 2026-04-30 09:18:45 +02:00
murad
0bce92847c vermerke update 2026-04-30 09:18:45 +02:00
220eee8641 vermerke 2026-04-30 09:18:45 +02:00
8cc3bd9906 vermerke 2026-04-30 09:18:45 +02:00
9460d070d1 update 2026-04-30 09:18:02 +02:00
murad
2e8734f475 vermerke update 2026-04-27 15:31:27 +02:00
e09ff21729 vermerke 2026-04-27 15:31:27 +02:00
67c4546094 vermerke 2026-04-27 15:31:22 +02:00
murad
0748dabc3f update 2026-04-27 15:30:33 +02:00
murad
4aeebee057 vermerke update 2026-04-27 15:25:43 +02:00
fb288cf67c vermerke 2026-04-27 15:25:43 +02:00
e4398c5a34 vermerke 2026-04-27 15:25:36 +02:00
0349685cfd update 2026-04-27 15:24:29 +02:00
55 changed files with 3250 additions and 4632 deletions

View File

@@ -168,17 +168,15 @@ 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",
.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(),
.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(),
.contactPersonPosition = "Zolldeklarant/in",
.contactPersonEmail = If(String.IsNullOrEmpty(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_email), getDefaultMail_FIRMA(), VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_email)
},

View File

@@ -6,8 +6,7 @@
</sectionGroup>
</configSections>
<connectionStrings>
<add name="AVISO.My.MySettings.AVISO_ConnectionString_TEST" connectionString="Data Source=192.168.0.90\DEVSQL;Initial Catalog=AVISO;Integrated Security=false;User ID=sa;Password=BmWr501956;"
providerName="System.Data.SqlClient" />
<add name="AVISO.My.MySettings.AVISO_ConnectionString_TEST" connectionString="Data Source=192.168.0.90\DEVSQL;Initial Catalog=AVISO_new;Integrated Security=false;User ID=sa;Password=BmWr501956;" providerName="System.Data.SqlClient" />
</connectionStrings>
<appSettings>
<add key="CustomerPortalApiBaseUrl" value="https://login.server.verag.ag" />

View File

@@ -1,4 +1,4 @@
<?xml version="1.0" encoding="utf-8"?>
<?xml version="1.0" encoding="utf-8"?>
<Project ToolsVersion="12.0" DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<Import Project="..\packages\librdkafka.redist.2.11.1\build\librdkafka.redist.props" Condition="Exists('..\packages\librdkafka.redist.2.11.1\build\librdkafka.redist.props')" />
<Import Project="..\packages\CefSharp.WinForms.75.1.143\build\CefSharp.WinForms.props" Condition="Exists('..\packages\CefSharp.WinForms.75.1.143\build\CefSharp.WinForms.props')" />
@@ -715,12 +715,6 @@
<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>
@@ -809,6 +803,12 @@
<Compile Include="frmAddSendungsvermerkShort.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmSendungsDokumentanforderung.Designer.vb">
<DependentUpon>frmSendungsDokumentanforderung.vb</DependentUpon>
</Compile>
<Compile Include="frmSendungsDokumentanforderung.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmAnkunftAendern.Designer.vb">
<DependentUpon>frmAnkunftAendern.vb</DependentUpon>
</Compile>
@@ -899,12 +899,6 @@
<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>
@@ -1454,9 +1448,6 @@
<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>
@@ -1488,6 +1479,9 @@
<EmbeddedResource Include="frmAddSendungsvermerkShort.resx">
<DependentUpon>frmAddSendungsvermerkShort.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmSendungsDokumentanforderung.resx">
<DependentUpon>frmSendungsDokumentanforderung.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmAnkunftAendern.resx">
<DependentUpon>frmAnkunftAendern.vb</DependentUpon>
</EmbeddedResource>
@@ -1533,9 +1527,6 @@
<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>
@@ -1599,6 +1590,7 @@
</EmbeddedResource>
<EmbeddedResource Include="frmLogin.resx">
<DependentUpon>frmLogin.vb</DependentUpon>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="frmAuswahl_Aviso.resx">
<DependentUpon>frmAuswahl_Aviso.vb</DependentUpon>
@@ -2028,12 +2020,6 @@
<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>

View File

@@ -2174,7 +2174,7 @@ ELSE_ATILLA:
Dim DsId = ""
Dim DsId2 = ""
Dim frist = ""
Dim gestellungsadresse = "<td></td>"
Dim gestellungsadresse = "<td><td/>"
Dim found = False
Select Case s.tblSnd_Abfertigungsart_ID
Case 5, 6, 18, 24, 32, 33, 34, 37, 40 'Versand
@@ -2265,7 +2265,7 @@ ELSE_ATILLA:
Dim PathTmp = (New VERAG_PROG_ALLGEMEIN.cDATENSERVER(DsId)).GET_TOP1_PATH(False)
If PathTmp <> "" Then anhaenge.Add(PathTmp) : found = True
End If
If IsNumeric(DsId2) Then
If IsNumeric(DsId) Then
Dim PathTmp2 = (New VERAG_PROG_ALLGEMEIN.cDATENSERVER(DsId2)).GET_TOP1_PATH(False)
If PathTmp2 <> "" Then anhaenge.Add(PathTmp2) : found = True
End If
@@ -2294,7 +2294,7 @@ ELSE_ATILLA:
If cnt = 1 Then ' wurde nicht erhöht -> keine Einträge
SendungslistTXT = ""
End If
If KUNDE_ERW IsNot Nothing AndAlso KUNDE_ERW.EmailFreigabeSendungsListe Then hText = hText.Replace("%Platzhalter%", SendungslistTXT)
If KUNDE_ERW.EmailFreigabeSendungsListe Then hText = hText.Replace("%Platzhalter%", SendungslistTXT)
End If
End If
End Select
@@ -2375,7 +2375,7 @@ ELSE_ATILLA:
If AbfertigungsNr <= 0 Then Return False
If FilialenNr <> 4805 And FilialenNr <> 4811 Then ' Kein Ü-T
Dim dt = VERAGSQL.loadDgvBySql("SELECT isnull(dy_vbd_dsid,'') as DsId ,isnull(isnull(ncts_MRN,ncts_ANR),'') as MRN, isnull(ncts_LimitDate ,'') as WG FROM tblDakosy_Zollanmeldungen inner join tblDakosy_NCTSOut004 on dy_id=ncts_dyaAnmID where dy_SendungsId='" & SendungsId & "' and dy_status <= 70 order by dy_status desc, dy_Erstellung desc", "FMZOLL")
Dim dt = VERAGSQL.loadDgvBySql("SELECT isnull(dy_vbd_dsid,'') as DsId ,isnull(isnull(ncts_MRN,ncts_ANR),'') as MRN, isnull(ncts_Wiedergestellungsdatum ,'') as WG FROM tblDakosy_Zollanmeldungen inner join tblDakosy_nctsout on dy_id=ncts_dyaAnmID where dy_SendungsId='" & SendungsId & "' and dy_status <= 70 order by dy_status desc, dy_Erstellung desc", "FMZOLL")
If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
AtcMrn = dt.Rows(0)("MRN")
dsId = dt.Rows(0)("DsId")

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()

View File

@@ -1,376 +0,0 @@
<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

View File

@@ -1,123 +0,0 @@
<?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>

View File

@@ -1,530 +0,0 @@
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

View File

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

View File

@@ -868,46 +868,6 @@ 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>
@@ -1498,16 +1458,6 @@ 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>
@@ -1968,16 +1918,6 @@ 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>

View File

@@ -118,23 +118,14 @@
<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="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 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="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="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 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="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>
@@ -145,27 +136,15 @@
<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>
@@ -184,18 +163,12 @@
<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>
@@ -211,38 +184,23 @@
<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="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="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="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="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 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="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>
@@ -259,12 +217,6 @@
<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>
@@ -286,21 +238,12 @@
<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="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 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="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>
@@ -322,12 +265,6 @@
<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>
@@ -352,27 +289,12 @@
<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>
@@ -391,24 +313,18 @@
<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="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="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="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>
@@ -418,17 +334,14 @@
<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="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="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="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>
@@ -439,12 +352,6 @@
<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>
@@ -457,45 +364,27 @@
<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="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="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_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 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="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="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 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="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>
@@ -505,9 +394,6 @@
<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>
@@ -532,39 +418,24 @@
<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="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 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="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="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 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="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 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="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>
@@ -574,8 +445,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="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="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="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>
@@ -598,9 +469,6 @@
<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>
@@ -613,17 +481,14 @@
<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="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="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="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="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 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="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>
@@ -640,8 +505,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="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="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="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>
@@ -649,27 +514,18 @@
<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="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="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="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>
@@ -688,9 +544,6 @@
<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>
@@ -709,8 +562,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="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 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="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>
@@ -730,9 +583,6 @@
<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>
@@ -745,11 +595,14 @@
<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="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 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="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>
@@ -763,11 +616,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="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 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="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 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="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>
@@ -778,11 +631,8 @@
<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="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 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="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>
@@ -793,26 +643,14 @@
<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="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 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="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="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 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="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>
@@ -838,18 +676,12 @@
<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="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 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="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>
@@ -862,34 +694,184 @@
<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="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="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="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="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 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="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 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="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 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="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 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="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 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>
</root>

View File

@@ -15,7 +15,7 @@ Option Explicit On
Namespace My
<Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "17.14.0.0"), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "17.8.0.0"), _
Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Partial Friend NotInheritable Class MySettings
Inherits Global.System.Configuration.ApplicationSettingsBase
@@ -93,8 +93,8 @@ Namespace My
<Global.System.Configuration.ApplicationScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString), _
Global.System.Configuration.DefaultSettingValueAttribute("Data Source=192.168.0.90\DEVSQL;Initial Catalog=AVISO;Integrated Security=false;U"& _
"ser ID=sa;Password=BmWr501956;")> _
Global.System.Configuration.DefaultSettingValueAttribute("Data Source=192.168.0.90\DEVSQL;Initial Catalog=AVISO_new;Integrated Security=fal"& _
"se;User ID=sa;Password=BmWr501956;")> _
Public ReadOnly Property AVISO_ConnectionString_TEST() As String
Get
Return CType(Me("AVISO_ConnectionString_TEST"),String)

View File

@@ -14,10 +14,10 @@
<Setting Name="AVISO_ConnectionString_TEST" Type="(Connection string)" Scope="Application">
<DesignTimeValue Profile="(Default)">&lt;?xml version="1.0" encoding="utf-16"?&gt;
&lt;SerializableConnectionString xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"&gt;
&lt;ConnectionString&gt;Data Source=192.168.0.90\DEVSQL;Initial Catalog=AVISO;Integrated Security=false;User ID=sa;Password=BmWr501956;&lt;/ConnectionString&gt;
&lt;ConnectionString&gt;Data Source=192.168.0.90\DEVSQL;Initial Catalog=AVISO_new;Integrated Security=false;User ID=sa;Password=BmWr501956;&lt;/ConnectionString&gt;
&lt;ProviderName&gt;System.Data.SqlClient&lt;/ProviderName&gt;
&lt;/SerializableConnectionString&gt;</DesignTimeValue>
<Value Profile="(Default)">Data Source=192.168.0.90\DEVSQL;Initial Catalog=AVISO;Integrated Security=false;User ID=sa;Password=BmWr501956;</Value>
<Value Profile="(Default)">Data Source=192.168.0.90\DEVSQL;Initial Catalog=AVISO_new;Integrated Security=false;User ID=sa;Password=BmWr501956;</Value>
</Setting>
</Settings>
</SettingsFile>

Binary file not shown.

Before

Width:  |  Height:  |  Size: 22 KiB

Binary file not shown.

Before

Width:  |  Height:  |  Size: 69 KiB

Binary file not shown.

Before

Width:  |  Height:  |  Size: 132 KiB

Binary file not shown.

Before

Width:  |  Height:  |  Size: 113 KiB

Binary file not shown.

Before

Width:  |  Height:  |  Size: 116 KiB

Binary file not shown.

Before

Width:  |  Height:  |  Size: 7.5 KiB

View File

@@ -27,59 +27,36 @@ Partial Class frmAddSendungsvermerkShort
Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.pnlMain = New System.Windows.Forms.Panel()
Me.pnlSendungsVermker = New System.Windows.Forms.Panel()
Me.optDraft = New System.Windows.Forms.CheckBox()
Me.optGewPackAngefordert = New System.Windows.Forms.CheckBox()
Me.optKostenbestaetigungAngefordert = New System.Windows.Forms.CheckBox()
Me.optZolltarifnummerAngefordert = New System.Windows.Forms.CheckBox()
Me.txtSonstigesDokumentFehlt = New System.Windows.Forms.TextBox()
Me.cbxPackliste = New System.Windows.Forms.CheckBox()
Me.flpAngefordert = New System.Windows.Forms.FlowLayoutPanel()
Me.Label4 = New System.Windows.Forms.Label()
Me.optFremd_ATB = New System.Windows.Forms.CheckBox()
Me.optFremd_SendungAvisiert = New System.Windows.Forms.CheckBox()
Me.optFahrerKeinATR = New System.Windows.Forms.CheckBox()
Me.optFrachtkostenAngefordert = New System.Windows.Forms.CheckBox()
Me.optKundeNichtErreichbar = New System.Windows.Forms.CheckBox()
Me.optAbsenderbestätigung = New System.Windows.Forms.CheckBox()
Me.cbxRgBest = New System.Windows.Forms.CheckBox()
Me.optUeberwachungsdok = New System.Windows.Forms.CheckBox()
Me.lblErrSpedition = New System.Windows.Forms.Label()
Me.lblDragIndicator = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.lblErrGrund = New System.Windows.Forms.Label()
Me.btnCLose = New System.Windows.Forms.Button()
Me.lblErrDokument = New System.Windows.Forms.Label()
Me.Label1 = New System.Windows.Forms.Label()
Me.txtSpedition = New System.Windows.Forms.TextBox()
Me.optSendungInVorbereitung = New System.Windows.Forms.CheckBox()
Me.optSpeditionWeitergeleitet = New System.Windows.Forms.CheckBox()
Me.optFreierText = New System.Windows.Forms.CheckBox()
Me.optATAangefordert = New System.Windows.Forms.CheckBox()
Me.optVorkasseAngefordert = New System.Windows.Forms.CheckBox()
Me.optKontaktdatenAngefordert = New System.Windows.Forms.CheckBox()
Me.Label3 = New System.Windows.Forms.Label()
Me.lblErr240Zeichen = New System.Windows.Forms.Label()
Me.txtDetail = New System.Windows.Forms.TextBox()
Me.lblZustzlFreitext = New System.Windows.Forms.Label()
Me.txtSendungSpedition = New System.Windows.Forms.TextBox()
Me.cbxNichtLeserlich = New System.Windows.Forms.CheckBox()
Me.btnOK = New System.Windows.Forms.Button()
Me.cbxSonstDok = New System.Windows.Forms.CheckBox()
Me.btnDokumtanforderung = New System.Windows.Forms.Button()
Me.Label9 = New System.Windows.Forms.Label()
Me.cbxVollmacht = New System.Windows.Forms.CheckBox()
Me.cbxCMR = New System.Windows.Forms.CheckBox()
Me.Label17 = New System.Windows.Forms.Label()
Me.Label13 = New System.Windows.Forms.Label()
Me.cbxATR = New System.Windows.Forms.CheckBox()
Me.cbxLS = New System.Windows.Forms.CheckBox()
Me.txtFreierText = New System.Windows.Forms.TextBox()
Me.cbxRechnung = New System.Windows.Forms.CheckBox()
Me.Label20 = New System.Windows.Forms.Label()
Me.cbxAuftrag = New System.Windows.Forms.CheckBox()
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
Me.PictureBox4 = New System.Windows.Forms.PictureBox()
Me.Panel4 = New System.Windows.Forms.Panel()
Me.pnlMain.SuspendLayout()
Me.pnlSendungsVermker.SuspendLayout()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
@@ -95,135 +72,62 @@ Partial Class frmAddSendungsvermerkShort
Me.pnlMain.Dock = System.Windows.Forms.DockStyle.Fill
Me.pnlMain.Location = New System.Drawing.Point(0, 0)
Me.pnlMain.Name = "pnlMain"
Me.pnlMain.Size = New System.Drawing.Size(454, 605)
Me.pnlMain.Size = New System.Drawing.Size(474, 400)
Me.pnlMain.TabIndex = 0
'
'pnlSendungsVermker
'
Me.pnlSendungsVermker.BackColor = System.Drawing.Color.White
Me.pnlSendungsVermker.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.pnlSendungsVermker.Controls.Add(Me.optDraft)
Me.pnlSendungsVermker.Controls.Add(Me.optGewPackAngefordert)
Me.pnlSendungsVermker.Controls.Add(Me.optKostenbestaetigungAngefordert)
Me.pnlSendungsVermker.Controls.Add(Me.optZolltarifnummerAngefordert)
Me.pnlSendungsVermker.Controls.Add(Me.txtSonstigesDokumentFehlt)
Me.pnlSendungsVermker.Controls.Add(Me.cbxPackliste)
Me.pnlSendungsVermker.Controls.Add(Me.flpAngefordert)
Me.pnlSendungsVermker.Controls.Add(Me.Label4)
Me.pnlSendungsVermker.Controls.Add(Me.optFremd_ATB)
Me.pnlSendungsVermker.Controls.Add(Me.optFremd_SendungAvisiert)
Me.pnlSendungsVermker.Controls.Add(Me.optFahrerKeinATR)
Me.pnlSendungsVermker.Controls.Add(Me.optFrachtkostenAngefordert)
Me.pnlSendungsVermker.Controls.Add(Me.optKundeNichtErreichbar)
Me.pnlSendungsVermker.Controls.Add(Me.optAbsenderbestätigung)
Me.pnlSendungsVermker.Controls.Add(Me.cbxRgBest)
Me.pnlSendungsVermker.Controls.Add(Me.optUeberwachungsdok)
Me.pnlSendungsVermker.Controls.Add(Me.lblErrSpedition)
Me.pnlSendungsVermker.Controls.Add(Me.lblDragIndicator)
Me.pnlSendungsVermker.Controls.Add(Me.Label2)
Me.pnlSendungsVermker.Controls.Add(Me.lblErrGrund)
Me.pnlSendungsVermker.Controls.Add(Me.btnCLose)
Me.pnlSendungsVermker.Controls.Add(Me.lblErrDokument)
Me.pnlSendungsVermker.Controls.Add(Me.Label1)
Me.pnlSendungsVermker.Controls.Add(Me.txtSpedition)
Me.pnlSendungsVermker.Controls.Add(Me.optSendungInVorbereitung)
Me.pnlSendungsVermker.Controls.Add(Me.optSpeditionWeitergeleitet)
Me.pnlSendungsVermker.Controls.Add(Me.optFreierText)
Me.pnlSendungsVermker.Controls.Add(Me.optATAangefordert)
Me.pnlSendungsVermker.Controls.Add(Me.optVorkasseAngefordert)
Me.pnlSendungsVermker.Controls.Add(Me.optKontaktdatenAngefordert)
Me.pnlSendungsVermker.Controls.Add(Me.Label3)
Me.pnlSendungsVermker.Controls.Add(Me.lblErr240Zeichen)
Me.pnlSendungsVermker.Controls.Add(Me.txtDetail)
Me.pnlSendungsVermker.Controls.Add(Me.lblZustzlFreitext)
Me.pnlSendungsVermker.Controls.Add(Me.txtSendungSpedition)
Me.pnlSendungsVermker.Controls.Add(Me.cbxNichtLeserlich)
Me.pnlSendungsVermker.Controls.Add(Me.btnOK)
Me.pnlSendungsVermker.Controls.Add(Me.cbxSonstDok)
Me.pnlSendungsVermker.Controls.Add(Me.btnDokumtanforderung)
Me.pnlSendungsVermker.Controls.Add(Me.Label9)
Me.pnlSendungsVermker.Controls.Add(Me.cbxVollmacht)
Me.pnlSendungsVermker.Controls.Add(Me.cbxCMR)
Me.pnlSendungsVermker.Controls.Add(Me.Label17)
Me.pnlSendungsVermker.Controls.Add(Me.Label13)
Me.pnlSendungsVermker.Controls.Add(Me.cbxATR)
Me.pnlSendungsVermker.Controls.Add(Me.cbxLS)
Me.pnlSendungsVermker.Controls.Add(Me.txtFreierText)
Me.pnlSendungsVermker.Controls.Add(Me.cbxRechnung)
Me.pnlSendungsVermker.Controls.Add(Me.Label20)
Me.pnlSendungsVermker.Controls.Add(Me.cbxAuftrag)
Me.pnlSendungsVermker.Controls.Add(Me.PictureBox1)
Me.pnlSendungsVermker.Controls.Add(Me.PictureBox4)
Me.pnlSendungsVermker.Dock = System.Windows.Forms.DockStyle.Fill
Me.pnlSendungsVermker.Location = New System.Drawing.Point(0, 0)
Me.pnlSendungsVermker.Name = "pnlSendungsVermker"
Me.pnlSendungsVermker.Size = New System.Drawing.Size(454, 605)
Me.pnlSendungsVermker.Size = New System.Drawing.Size(474, 400)
Me.pnlSendungsVermker.TabIndex = 0
'
'optDraft
'flpAngefordert
'
Me.optDraft.AutoSize = True
Me.optDraft.Location = New System.Drawing.Point(12, 262)
Me.optDraft.Name = "optDraft"
Me.optDraft.Size = New System.Drawing.Size(174, 17)
Me.optDraft.TabIndex = 102
Me.optDraft.Text = "T1/T2 ""Draft"" OK - angefordert"
Me.optDraft.UseVisualStyleBackColor = True
'
'optGewPackAngefordert
'
Me.optGewPackAngefordert.AutoSize = True
Me.optGewPackAngefordert.Location = New System.Drawing.Point(12, 236)
Me.optGewPackAngefordert.Name = "optGewPackAngefordert"
Me.optGewPackAngefordert.Size = New System.Drawing.Size(245, 17)
Me.optGewPackAngefordert.TabIndex = 101
Me.optGewPackAngefordert.Text = "Gewicht/Packstücke mangelhaft - angefordert"
Me.optGewPackAngefordert.UseVisualStyleBackColor = True
'
'optKostenbestaetigungAngefordert
'
Me.optKostenbestaetigungAngefordert.AutoSize = True
Me.optKostenbestaetigungAngefordert.Location = New System.Drawing.Point(270, 214)
Me.optKostenbestaetigungAngefordert.Name = "optKostenbestaetigungAngefordert"
Me.optKostenbestaetigungAngefordert.Size = New System.Drawing.Size(177, 17)
Me.optKostenbestaetigungAngefordert.TabIndex = 99
Me.optKostenbestaetigungAngefordert.Text = "Kostenbestätigung - angefordert"
Me.optKostenbestaetigungAngefordert.UseVisualStyleBackColor = True
'
'optZolltarifnummerAngefordert
'
Me.optZolltarifnummerAngefordert.AutoSize = True
Me.optZolltarifnummerAngefordert.Location = New System.Drawing.Point(12, 214)
Me.optZolltarifnummerAngefordert.Name = "optZolltarifnummerAngefordert"
Me.optZolltarifnummerAngefordert.Size = New System.Drawing.Size(154, 17)
Me.optZolltarifnummerAngefordert.TabIndex = 98
Me.optZolltarifnummerAngefordert.Text = "Zolltarifnummer angefordert"
Me.optZolltarifnummerAngefordert.UseVisualStyleBackColor = True
'
'txtSonstigesDokumentFehlt
'
Me.txtSonstigesDokumentFehlt.BackColor = System.Drawing.Color.White
Me.txtSonstigesDokumentFehlt.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtSonstigesDokumentFehlt.Location = New System.Drawing.Point(94, 96)
Me.txtSonstigesDokumentFehlt.MaxLength = 80
Me.txtSonstigesDokumentFehlt.Name = "txtSonstigesDokumentFehlt"
Me.txtSonstigesDokumentFehlt.Size = New System.Drawing.Size(198, 20)
Me.txtSonstigesDokumentFehlt.TabIndex = 10
'
'cbxPackliste
'
Me.cbxPackliste.AutoSize = True
Me.cbxPackliste.BackColor = System.Drawing.Color.WhiteSmoke
Me.cbxPackliste.Location = New System.Drawing.Point(308, 75)
Me.cbxPackliste.Name = "cbxPackliste"
Me.cbxPackliste.Size = New System.Drawing.Size(69, 17)
Me.cbxPackliste.TabIndex = 97
Me.cbxPackliste.Text = "Packliste"
Me.cbxPackliste.UseVisualStyleBackColor = False
Me.flpAngefordert.BackColor = System.Drawing.Color.White
Me.flpAngefordert.FlowDirection = System.Windows.Forms.FlowDirection.TopDown
Me.flpAngefordert.Location = New System.Drawing.Point(12, 50)
Me.flpAngefordert.Margin = New System.Windows.Forms.Padding(0)
Me.flpAngefordert.Name = "flpAngefordert"
Me.flpAngefordert.Size = New System.Drawing.Size(450, 131)
Me.flpAngefordert.TabIndex = 122
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.BackColor = System.Drawing.Color.WhiteSmoke
Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label4.Location = New System.Drawing.Point(11, 411)
Me.Label4.Location = New System.Drawing.Point(12, 268)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(125, 17)
Me.Label4.TabIndex = 96
@@ -233,7 +137,7 @@ Partial Class frmAddSendungsvermerkShort
'
Me.optFremd_ATB.AutoSize = True
Me.optFremd_ATB.BackColor = System.Drawing.Color.WhiteSmoke
Me.optFremd_ATB.Location = New System.Drawing.Point(12, 458)
Me.optFremd_ATB.Location = New System.Drawing.Point(13, 303)
Me.optFremd_ATB.Name = "optFremd_ATB"
Me.optFremd_ATB.Size = New System.Drawing.Size(130, 17)
Me.optFremd_ATB.TabIndex = 94
@@ -244,93 +148,44 @@ Partial Class frmAddSendungsvermerkShort
'
Me.optFremd_SendungAvisiert.AutoSize = True
Me.optFremd_SendungAvisiert.BackColor = System.Drawing.Color.WhiteSmoke
Me.optFremd_SendungAvisiert.Location = New System.Drawing.Point(12, 435)
Me.optFremd_SendungAvisiert.Location = New System.Drawing.Point(13, 286)
Me.optFremd_SendungAvisiert.Name = "optFremd_SendungAvisiert"
Me.optFremd_SendungAvisiert.Size = New System.Drawing.Size(193, 17)
Me.optFremd_SendungAvisiert.TabIndex = 93
Me.optFremd_SendungAvisiert.Text = "Sendung an Fremdeinsteller avisiert"
Me.optFremd_SendungAvisiert.UseVisualStyleBackColor = False
'
'optFahrerKeinATR
'
Me.optFahrerKeinATR.AutoSize = True
Me.optFahrerKeinATR.BackColor = System.Drawing.Color.WhiteSmoke
Me.optFahrerKeinATR.Location = New System.Drawing.Point(308, 52)
Me.optFahrerKeinATR.Name = "optFahrerKeinATR"
Me.optFahrerKeinATR.Size = New System.Drawing.Size(125, 17)
Me.optFahrerKeinATR.TabIndex = 92
Me.optFahrerKeinATR.Text = "Fahrer hat kein A.TR"
Me.optFahrerKeinATR.UseVisualStyleBackColor = False
'
'optFrachtkostenAngefordert
'
Me.optFrachtkostenAngefordert.AutoSize = True
Me.optFrachtkostenAngefordert.Location = New System.Drawing.Point(12, 162)
Me.optFrachtkostenAngefordert.Name = "optFrachtkostenAngefordert"
Me.optFrachtkostenAngefordert.Size = New System.Drawing.Size(145, 17)
Me.optFrachtkostenAngefordert.TabIndex = 91
Me.optFrachtkostenAngefordert.Text = "Frachtkosten angefordert"
Me.optFrachtkostenAngefordert.UseVisualStyleBackColor = True
'
'optKundeNichtErreichbar
'
Me.optKundeNichtErreichbar.AutoSize = True
Me.optKundeNichtErreichbar.Location = New System.Drawing.Point(270, 141)
Me.optKundeNichtErreichbar.Name = "optKundeNichtErreichbar"
Me.optKundeNichtErreichbar.Size = New System.Drawing.Size(133, 17)
Me.optKundeNichtErreichbar.TabIndex = 90
Me.optKundeNichtErreichbar.Text = "Kunde nicht erreichbar"
Me.optKundeNichtErreichbar.UseVisualStyleBackColor = True
'
'optAbsenderbestätigung
'
Me.optAbsenderbestätigung.AutoSize = True
Me.optAbsenderbestätigung.BackColor = System.Drawing.Color.WhiteSmoke
Me.optAbsenderbestätigung.Location = New System.Drawing.Point(308, 32)
Me.optAbsenderbestätigung.Name = "optAbsenderbestätigung"
Me.optAbsenderbestätigung.Size = New System.Drawing.Size(136, 17)
Me.optAbsenderbestätigung.TabIndex = 89
Me.optAbsenderbestätigung.Text = "Absenderbestät. angef."
Me.optAbsenderbestätigung.UseVisualStyleBackColor = False
'
'cbxRgBest
'
Me.cbxRgBest.AutoSize = True
Me.cbxRgBest.Location = New System.Drawing.Point(270, 185)
Me.cbxRgBest.Name = "cbxRgBest"
Me.cbxRgBest.Size = New System.Drawing.Size(146, 17)
Me.cbxRgBest.TabIndex = 86
Me.cbxRgBest.Text = "Rechnungsbestät. angef."
Me.cbxRgBest.UseVisualStyleBackColor = True
'
'optUeberwachungsdok
'
Me.optUeberwachungsdok.AutoSize = True
Me.optUeberwachungsdok.Location = New System.Drawing.Point(270, 163)
Me.optUeberwachungsdok.Name = "optUeberwachungsdok"
Me.optUeberwachungsdok.Size = New System.Drawing.Size(114, 17)
Me.optUeberwachungsdok.TabIndex = 85
Me.optUeberwachungsdok.Text = "Ü-Dok. angefodert"
Me.optUeberwachungsdok.UseVisualStyleBackColor = True
'
'lblErrSpedition
'
Me.lblErrSpedition.AutoSize = True
Me.lblErrSpedition.BackColor = System.Drawing.Color.WhiteSmoke
Me.lblErrSpedition.ForeColor = System.Drawing.Color.Red
Me.lblErrSpedition.Location = New System.Drawing.Point(175, 316)
Me.lblErrSpedition.Location = New System.Drawing.Point(177, 194)
Me.lblErrSpedition.Name = "lblErrSpedition"
Me.lblErrSpedition.Size = New System.Drawing.Size(158, 13)
Me.lblErrSpedition.TabIndex = 17
Me.lblErrSpedition.Text = "Bitte eine Spedition angegeben:"
Me.lblErrSpedition.Visible = False
'
'lblDragIndicator
'
Me.lblDragIndicator.AutoSize = True
Me.lblDragIndicator.BackColor = System.Drawing.Color.Transparent
Me.lblDragIndicator.Cursor = System.Windows.Forms.Cursors.SizeAll
Me.lblDragIndicator.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblDragIndicator.ForeColor = System.Drawing.Color.Gray
Me.lblDragIndicator.Location = New System.Drawing.Point(323, 3)
Me.lblDragIndicator.Name = "lblDragIndicator"
Me.lblDragIndicator.Size = New System.Drawing.Size(84, 15)
Me.lblDragIndicator.TabIndex = 132
Me.lblDragIndicator.Text = "✥ Verschieben"
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.BackColor = System.Drawing.Color.WhiteSmoke
Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!)
Me.Label2.Location = New System.Drawing.Point(175, 316)
Me.Label2.Location = New System.Drawing.Point(176, 205)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(57, 13)
Me.Label2.TabIndex = 84
@@ -341,7 +196,7 @@ Partial Class frmAddSendungsvermerkShort
Me.lblErrGrund.AutoSize = True
Me.lblErrGrund.BackColor = System.Drawing.Color.WhiteSmoke
Me.lblErrGrund.ForeColor = System.Drawing.Color.Red
Me.lblErrGrund.Location = New System.Drawing.Point(147, 385)
Me.lblErrGrund.Location = New System.Drawing.Point(148, 257)
Me.lblErrGrund.Name = "lblErrGrund"
Me.lblErrGrund.Size = New System.Drawing.Size(149, 13)
Me.lblErrGrund.TabIndex = 26
@@ -357,7 +212,7 @@ Partial Class frmAddSendungsvermerkShort
Me.btnCLose.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnCLose.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnCLose.ForeColor = System.Drawing.Color.White
Me.btnCLose.Location = New System.Drawing.Point(399, -1)
Me.btnCLose.Location = New System.Drawing.Point(419, -1)
Me.btnCLose.Name = "btnCLose"
Me.btnCLose.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.btnCLose.Size = New System.Drawing.Size(54, 20)
@@ -365,24 +220,12 @@ Partial Class frmAddSendungsvermerkShort
Me.btnCLose.Text = "X"
Me.btnCLose.UseVisualStyleBackColor = False
'
'lblErrDokument
'
Me.lblErrDokument.AutoSize = True
Me.lblErrDokument.BackColor = System.Drawing.Color.WhiteSmoke
Me.lblErrDokument.ForeColor = System.Drawing.Color.Red
Me.lblErrDokument.Location = New System.Drawing.Point(91, 115)
Me.lblErrDokument.Name = "lblErrDokument"
Me.lblErrDokument.Size = New System.Drawing.Size(157, 13)
Me.lblErrDokument.TabIndex = 11
Me.lblErrDokument.Text = "Bitte ein Dokument angegeben!"
Me.lblErrDokument.Visible = False
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.BackColor = System.Drawing.Color.WhiteSmoke
Me.Label1.BackColor = System.Drawing.Color.Transparent
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label1.Location = New System.Drawing.Point(9, 9)
Me.Label1.Location = New System.Drawing.Point(9, 0)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(156, 17)
Me.Label1.TabIndex = 1
@@ -392,16 +235,16 @@ Partial Class frmAddSendungsvermerkShort
'
Me.txtSpedition.BackColor = System.Drawing.Color.WhiteSmoke
Me.txtSpedition.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtSpedition.Location = New System.Drawing.Point(177, 332)
Me.txtSpedition.Location = New System.Drawing.Point(178, 215)
Me.txtSpedition.MaxLength = 50
Me.txtSpedition.Name = "txtSpedition"
Me.txtSpedition.Size = New System.Drawing.Size(125, 20)
Me.txtSpedition.Size = New System.Drawing.Size(126, 20)
Me.txtSpedition.TabIndex = 20
'
'optSendungInVorbereitung
'
Me.optSendungInVorbereitung.AutoSize = True
Me.optSendungInVorbereitung.Location = New System.Drawing.Point(203, 3)
Me.optSendungInVorbereitung.Location = New System.Drawing.Point(174, 3)
Me.optSendungInVorbereitung.Name = "optSendungInVorbereitung"
Me.optSendungInVorbereitung.Size = New System.Drawing.Size(143, 17)
Me.optSendungInVorbereitung.TabIndex = 13
@@ -413,7 +256,7 @@ Partial Class frmAddSendungsvermerkShort
'
Me.optSpeditionWeitergeleitet.AutoSize = True
Me.optSpeditionWeitergeleitet.BackColor = System.Drawing.Color.WhiteSmoke
Me.optSpeditionWeitergeleitet.Location = New System.Drawing.Point(12, 334)
Me.optSpeditionWeitergeleitet.Location = New System.Drawing.Point(13, 215)
Me.optSpeditionWeitergeleitet.Name = "optSpeditionWeitergeleitet"
Me.optSpeditionWeitergeleitet.Size = New System.Drawing.Size(163, 17)
Me.optSpeditionWeitergeleitet.TabIndex = 19
@@ -424,7 +267,7 @@ Partial Class frmAddSendungsvermerkShort
'
Me.optFreierText.AutoSize = True
Me.optFreierText.BackColor = System.Drawing.Color.WhiteSmoke
Me.optFreierText.Location = New System.Drawing.Point(12, 361)
Me.optFreierText.Location = New System.Drawing.Point(13, 232)
Me.optFreierText.Name = "optFreierText"
Me.optFreierText.Size = New System.Drawing.Size(105, 17)
Me.optFreierText.TabIndex = 27
@@ -435,38 +278,18 @@ Partial Class frmAddSendungsvermerkShort
'
Me.optATAangefordert.AutoSize = True
Me.optATAangefordert.BackColor = System.Drawing.Color.WhiteSmoke
Me.optATAangefordert.Location = New System.Drawing.Point(164, 458)
Me.optATAangefordert.Location = New System.Drawing.Point(165, 303)
Me.optATAangefordert.Name = "optATAangefordert"
Me.optATAangefordert.Size = New System.Drawing.Size(208, 17)
Me.optATAangefordert.TabIndex = 15
Me.optATAangefordert.Text = "ATA/ATC-Nr. angefordert (Fremdanm.)"
Me.optATAangefordert.UseVisualStyleBackColor = False
'
'optVorkasseAngefordert
'
Me.optVorkasseAngefordert.AutoSize = True
Me.optVorkasseAngefordert.Location = New System.Drawing.Point(12, 184)
Me.optVorkasseAngefordert.Name = "optVorkasseAngefordert"
Me.optVorkasseAngefordert.Size = New System.Drawing.Size(144, 17)
Me.optVorkasseAngefordert.TabIndex = 14
Me.optVorkasseAngefordert.Text = "Vorauskasse angefordert"
Me.optVorkasseAngefordert.UseVisualStyleBackColor = True
'
'optKontaktdatenAngefordert
'
Me.optKontaktdatenAngefordert.AutoSize = True
Me.optKontaktdatenAngefordert.Location = New System.Drawing.Point(12, 141)
Me.optKontaktdatenAngefordert.Name = "optKontaktdatenAngefordert"
Me.optKontaktdatenAngefordert.Size = New System.Drawing.Size(212, 17)
Me.optKontaktdatenAngefordert.TabIndex = 12
Me.optKontaktdatenAngefordert.Text = "Kontaktdaten (z.B.Tel-Nr.) - angefordert"
Me.optKontaktdatenAngefordert.UseVisualStyleBackColor = True
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.BackColor = System.Drawing.Color.WhiteSmoke
Me.Label3.Location = New System.Drawing.Point(308, 335)
Me.Label3.Location = New System.Drawing.Point(309, 216)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(57, 13)
Me.Label3.TabIndex = 22
@@ -476,7 +299,7 @@ Partial Class frmAddSendungsvermerkShort
'
Me.lblErr240Zeichen.AutoSize = True
Me.lblErr240Zeichen.ForeColor = System.Drawing.Color.Red
Me.lblErr240Zeichen.Location = New System.Drawing.Point(219, 496)
Me.lblErr240Zeichen.Location = New System.Drawing.Point(224, 332)
Me.lblErr240Zeichen.Name = "lblErr240Zeichen"
Me.lblErr240Zeichen.Size = New System.Drawing.Size(95, 13)
Me.lblErr240Zeichen.TabIndex = 32
@@ -488,12 +311,12 @@ Partial Class frmAddSendungsvermerkShort
Me.txtDetail.AcceptsReturn = True
Me.txtDetail.BackColor = System.Drawing.Color.White
Me.txtDetail.ForeColor = System.Drawing.SystemColors.InfoText
Me.txtDetail.Location = New System.Drawing.Point(12, 512)
Me.txtDetail.Location = New System.Drawing.Point(17, 348)
Me.txtDetail.MaxLength = 240
Me.txtDetail.Multiline = True
Me.txtDetail.Name = "txtDetail"
Me.txtDetail.ScrollBars = System.Windows.Forms.ScrollBars.Vertical
Me.txtDetail.Size = New System.Drawing.Size(302, 54)
Me.txtDetail.Size = New System.Drawing.Size(303, 41)
Me.txtDetail.TabIndex = 33
Me.txtDetail.TabStop = False
Me.txtDetail.WordWrap = False
@@ -501,7 +324,7 @@ Partial Class frmAddSendungsvermerkShort
'lblZustzlFreitext
'
Me.lblZustzlFreitext.AutoSize = True
Me.lblZustzlFreitext.Location = New System.Drawing.Point(9, 496)
Me.lblZustzlFreitext.Location = New System.Drawing.Point(14, 331)
Me.lblZustzlFreitext.Name = "lblZustzlFreitext"
Me.lblZustzlFreitext.Size = New System.Drawing.Size(142, 13)
Me.lblZustzlFreitext.TabIndex = 31
@@ -511,84 +334,50 @@ Partial Class frmAddSendungsvermerkShort
'
Me.txtSendungSpedition.BackColor = System.Drawing.Color.WhiteSmoke
Me.txtSendungSpedition.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtSendungSpedition.Location = New System.Drawing.Point(144, 332)
Me.txtSendungSpedition.Location = New System.Drawing.Point(126, 234)
Me.txtSendungSpedition.MaxLength = 50
Me.txtSendungSpedition.Name = "txtSendungSpedition"
Me.txtSendungSpedition.Size = New System.Drawing.Size(25, 20)
Me.txtSendungSpedition.Size = New System.Drawing.Size(26, 20)
Me.txtSendungSpedition.TabIndex = 18
Me.txtSendungSpedition.Visible = False
'
'cbxNichtLeserlich
'
Me.cbxNichtLeserlich.AutoSize = True
Me.cbxNichtLeserlich.BackColor = System.Drawing.Color.WhiteSmoke
Me.cbxNichtLeserlich.Location = New System.Drawing.Point(308, 98)
Me.cbxNichtLeserlich.Name = "cbxNichtLeserlich"
Me.cbxNichtLeserlich.Size = New System.Drawing.Size(90, 17)
Me.cbxNichtLeserlich.TabIndex = 8
Me.cbxNichtLeserlich.Text = "nicht leserlich"
Me.cbxNichtLeserlich.UseVisualStyleBackColor = False
'
'btnOK
'
Me.btnOK.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnOK.Location = New System.Drawing.Point(320, 512)
Me.btnOK.Location = New System.Drawing.Point(325, 348)
Me.btnOK.Name = "btnOK"
Me.btnOK.Size = New System.Drawing.Size(124, 54)
Me.btnOK.Size = New System.Drawing.Size(125, 41)
Me.btnOK.TabIndex = 34
Me.btnOK.Text = "Hinzufügen"
Me.btnOK.UseVisualStyleBackColor = True
'
'cbxSonstDok
'btnDokumtanforderung
'
Me.cbxSonstDok.AutoSize = True
Me.cbxSonstDok.BackColor = System.Drawing.Color.WhiteSmoke
Me.cbxSonstDok.Location = New System.Drawing.Point(12, 98)
Me.cbxSonstDok.Name = "cbxSonstDok"
Me.cbxSonstDok.Size = New System.Drawing.Size(83, 17)
Me.cbxSonstDok.TabIndex = 9
Me.cbxSonstDok.Text = "Dok. Name:"
Me.cbxSonstDok.UseVisualStyleBackColor = False
Me.btnDokumtanforderung.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnDokumtanforderung.Location = New System.Drawing.Point(323, 22)
Me.btnDokumtanforderung.Name = "btnDokumtanforderung"
Me.btnDokumtanforderung.Size = New System.Drawing.Size(140, 23)
Me.btnDokumtanforderung.TabIndex = 133
Me.btnDokumtanforderung.Text = "Dokumtanforderung"
Me.btnDokumtanforderung.UseVisualStyleBackColor = True
'
'Label9
'
Me.Label9.AutoSize = True
Me.Label9.BackColor = System.Drawing.Color.WhiteSmoke
Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!)
Me.Label9.Location = New System.Drawing.Point(354, 385)
Me.Label9.Location = New System.Drawing.Point(355, 257)
Me.Label9.Name = "Label9"
Me.Label9.Size = New System.Drawing.Size(90, 13)
Me.Label9.TabIndex = 30
Me.Label9.Text = "(max. 80 Zeichen)"
'
'cbxVollmacht
'
Me.cbxVollmacht.AutoSize = True
Me.cbxVollmacht.BackColor = System.Drawing.Color.WhiteSmoke
Me.cbxVollmacht.Location = New System.Drawing.Point(164, 75)
Me.cbxVollmacht.Name = "cbxVollmacht"
Me.cbxVollmacht.Size = New System.Drawing.Size(72, 17)
Me.cbxVollmacht.TabIndex = 7
Me.cbxVollmacht.Text = "Vollmacht"
Me.cbxVollmacht.UseVisualStyleBackColor = False
'
'cbxCMR
'
Me.cbxCMR.AutoSize = True
Me.cbxCMR.BackColor = System.Drawing.Color.WhiteSmoke
Me.cbxCMR.Location = New System.Drawing.Point(164, 32)
Me.cbxCMR.Name = "cbxCMR"
Me.cbxCMR.Size = New System.Drawing.Size(50, 17)
Me.cbxCMR.TabIndex = 3
Me.cbxCMR.Text = "CMR"
Me.cbxCMR.UseVisualStyleBackColor = False
'
'Label17
'
Me.Label17.AutoSize = True
Me.Label17.BackColor = System.Drawing.Color.WhiteSmoke
Me.Label17.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!, System.Drawing.FontStyle.Italic)
Me.Label17.Location = New System.Drawing.Point(144, 385)
Me.Label17.Location = New System.Drawing.Point(145, 257)
Me.Label17.Name = "Label17"
Me.Label17.Size = New System.Drawing.Size(182, 13)
Me.Label17.TabIndex = 29
@@ -599,92 +388,29 @@ Partial Class frmAddSendungsvermerkShort
Me.Label13.AutoSize = True
Me.Label13.BackColor = System.Drawing.Color.WhiteSmoke
Me.Label13.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label13.Location = New System.Drawing.Point(9, 307)
Me.Label13.Location = New System.Drawing.Point(10, 196)
Me.Label13.Name = "Label13"
Me.Label13.Size = New System.Drawing.Size(84, 17)
Me.Label13.TabIndex = 16
Me.Label13.Text = "Sonstiges:"
'
'cbxATR
'
Me.cbxATR.AutoSize = True
Me.cbxATR.BackColor = System.Drawing.Color.WhiteSmoke
Me.cbxATR.Location = New System.Drawing.Point(164, 52)
Me.cbxATR.Name = "cbxATR"
Me.cbxATR.Size = New System.Drawing.Size(127, 17)
Me.cbxATR.TabIndex = 5
Me.cbxATR.Text = "A.TR (Original/Kopie)"
Me.cbxATR.UseVisualStyleBackColor = False
'
'cbxLS
'
Me.cbxLS.AutoSize = True
Me.cbxLS.BackColor = System.Drawing.Color.WhiteSmoke
Me.cbxLS.Location = New System.Drawing.Point(12, 75)
Me.cbxLS.Name = "cbxLS"
Me.cbxLS.Size = New System.Drawing.Size(83, 17)
Me.cbxLS.TabIndex = 6
Me.cbxLS.Text = "Lieferschein"
Me.cbxLS.UseVisualStyleBackColor = False
'
'txtFreierText
'
Me.txtFreierText.BackColor = System.Drawing.Color.WhiteSmoke
Me.txtFreierText.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
Me.txtFreierText.Location = New System.Drawing.Point(122, 359)
Me.txtFreierText.Location = New System.Drawing.Point(123, 230)
Me.txtFreierText.MaxLength = 80
Me.txtFreierText.Name = "txtFreierText"
Me.txtFreierText.Size = New System.Drawing.Size(322, 23)
Me.txtFreierText.Size = New System.Drawing.Size(323, 23)
Me.txtFreierText.TabIndex = 28
'
'cbxRechnung
'
Me.cbxRechnung.AutoSize = True
Me.cbxRechnung.BackColor = System.Drawing.Color.WhiteSmoke
Me.cbxRechnung.Location = New System.Drawing.Point(12, 53)
Me.cbxRechnung.Name = "cbxRechnung"
Me.cbxRechnung.Size = New System.Drawing.Size(137, 17)
Me.cbxRechnung.TabIndex = 4
Me.cbxRechnung.Text = "Rechnung (mangelhaft)"
Me.cbxRechnung.UseVisualStyleBackColor = False
'
'Label20
'
Me.Label20.AutoSize = True
Me.Label20.BackColor = System.Drawing.Color.WhiteSmoke
Me.Label20.Location = New System.Drawing.Point(267, 335)
Me.Label20.Name = "Label20"
Me.Label20.Size = New System.Drawing.Size(0, 13)
Me.Label20.TabIndex = 21
'
'cbxAuftrag
'
Me.cbxAuftrag.AutoSize = True
Me.cbxAuftrag.BackColor = System.Drawing.Color.WhiteSmoke
Me.cbxAuftrag.Location = New System.Drawing.Point(12, 32)
Me.cbxAuftrag.Name = "cbxAuftrag"
Me.cbxAuftrag.Size = New System.Drawing.Size(60, 17)
Me.cbxAuftrag.TabIndex = 2
Me.cbxAuftrag.Text = "Auftrag"
Me.cbxAuftrag.UseVisualStyleBackColor = False
'
'PictureBox1
'
Me.PictureBox1.BackColor = System.Drawing.Color.WhiteSmoke
Me.PictureBox1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.PictureBox1.Location = New System.Drawing.Point(-1, -1)
Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(453, 130)
Me.PictureBox1.TabIndex = 83
Me.PictureBox1.TabStop = False
'
'PictureBox4
'
Me.PictureBox4.BackColor = System.Drawing.Color.WhiteSmoke
Me.PictureBox4.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.PictureBox4.Location = New System.Drawing.Point(-1, 297)
Me.PictureBox4.Location = New System.Drawing.Point(-1, 190)
Me.PictureBox4.Name = "PictureBox4"
Me.PictureBox4.Size = New System.Drawing.Size(453, 189)
Me.PictureBox4.Size = New System.Drawing.Size(474, 139)
Me.PictureBox4.TabIndex = 78
Me.PictureBox4.TabStop = False
'
@@ -695,14 +421,14 @@ Partial Class frmAddSendungsvermerkShort
Me.Panel4.Dock = System.Windows.Forms.DockStyle.Top
Me.Panel4.Location = New System.Drawing.Point(0, 0)
Me.Panel4.Name = "Panel4"
Me.Panel4.Size = New System.Drawing.Size(454, 0)
Me.Panel4.Size = New System.Drawing.Size(474, 0)
Me.Panel4.TabIndex = 1
'
'frmAddSendungsvermerkShort
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(454, 605)
Me.ClientSize = New System.Drawing.Size(474, 400)
Me.Controls.Add(Me.pnlMain)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
@@ -714,7 +440,6 @@ Partial Class frmAddSendungsvermerkShort
Me.pnlMain.ResumeLayout(False)
Me.pnlSendungsVermker.ResumeLayout(False)
Me.pnlSendungsVermker.PerformLayout()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
@@ -723,53 +448,31 @@ Partial Class frmAddSendungsvermerkShort
Friend WithEvents pnlMain As System.Windows.Forms.Panel
Friend WithEvents Panel4 As System.Windows.Forms.Panel
Friend WithEvents pnlSendungsVermker As System.Windows.Forms.Panel
Friend WithEvents txtSonstigesDokumentFehlt As System.Windows.Forms.TextBox
Friend WithEvents optSpeditionWeitergeleitet As System.Windows.Forms.CheckBox
Friend WithEvents optFreierText As System.Windows.Forms.CheckBox
Friend WithEvents optATAangefordert As System.Windows.Forms.CheckBox
Friend WithEvents optVorkasseAngefordert As System.Windows.Forms.CheckBox
Friend WithEvents optKontaktdatenAngefordert As System.Windows.Forms.CheckBox
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents lblErr240Zeichen As System.Windows.Forms.Label
Friend WithEvents lblZustzlFreitext As System.Windows.Forms.Label
Friend WithEvents txtSendungSpedition As System.Windows.Forms.TextBox
Friend WithEvents cbxNichtLeserlich As System.Windows.Forms.CheckBox
Friend WithEvents btnOK As System.Windows.Forms.Button
Friend WithEvents cbxSonstDok As System.Windows.Forms.CheckBox
Friend WithEvents btnDokumtanforderung As System.Windows.Forms.Button
Friend WithEvents Label9 As System.Windows.Forms.Label
Friend WithEvents cbxVollmacht As System.Windows.Forms.CheckBox
Friend WithEvents lblErrSpedition As System.Windows.Forms.Label
Friend WithEvents cbxCMR As System.Windows.Forms.CheckBox
Friend WithEvents lblErrGrund As System.Windows.Forms.Label
Friend WithEvents Label17 As System.Windows.Forms.Label
Friend WithEvents Label13 As System.Windows.Forms.Label
Friend WithEvents cbxATR As System.Windows.Forms.CheckBox
Friend WithEvents cbxLS As System.Windows.Forms.CheckBox
Friend WithEvents txtFreierText As System.Windows.Forms.TextBox
Friend WithEvents txtSpedition As System.Windows.Forms.TextBox
Friend WithEvents cbxRechnung As System.Windows.Forms.CheckBox
Friend WithEvents Label20 As System.Windows.Forms.Label
Friend WithEvents cbxAuftrag As System.Windows.Forms.CheckBox
Friend WithEvents PictureBox4 As System.Windows.Forms.PictureBox
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents optSendungInVorbereitung As System.Windows.Forms.CheckBox
Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
Friend WithEvents lblErrDokument As System.Windows.Forms.Label
Friend WithEvents lblDragIndicator As System.Windows.Forms.Label
Friend WithEvents btnCLose As System.Windows.Forms.Button
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents optUeberwachungsdok As System.Windows.Forms.CheckBox
Friend WithEvents cbxRgBest As CheckBox
Friend WithEvents Label4 As Label
Friend WithEvents optFremd_ATB As CheckBox
Friend WithEvents optFremd_SendungAvisiert As CheckBox
Friend WithEvents optFahrerKeinATR As CheckBox
Friend WithEvents optFrachtkostenAngefordert As CheckBox
Friend WithEvents optKundeNichtErreichbar As CheckBox
Friend WithEvents optAbsenderbestätigung As CheckBox
Friend WithEvents cbxPackliste As CheckBox
Friend WithEvents optGewPackAngefordert As CheckBox
Friend WithEvents optKostenbestaetigungAngefordert As CheckBox
Friend WithEvents optZolltarifnummerAngefordert As CheckBox
Friend WithEvents optDraft As CheckBox
Public WithEvents txtDetail As TextBox
Friend WithEvents flpAngefordert As FlowLayoutPanel
End Class

View File

@@ -1,7 +1,13 @@
Imports AVISO.AvisoStatusFunctions
Imports SDL

Imports System.Configuration
Imports System.IO
Imports System.Net
Imports System.Net.Mail
Imports System.Text
Imports Newtonsoft.Json
Imports Newtonsoft.Json.Linq
Imports VERAG_PROG_ALLGEMEIN
Imports AVISO.AvisoStatusFunctions
Public Class frmAddSendungsvermerkShort
Dim AvisoDAL As New cAvisoDAL
@@ -15,6 +21,9 @@ Public Class frmAddSendungsvermerkShort
Public SendungID As Integer = -1
Public AvisoID As Integer = -1
Private _anforderungCheckboxes As New List(Of CheckBox)
Private _backendBezeichnungByCodeId As New Dictionary(Of Integer, String)
Private Const BereichAngefordert As Integer = 2
Dim txtSendung As New TextBox
@@ -31,7 +40,7 @@ Public Class frmAddSendungsvermerkShort
End Sub
Private Sub frmEintragVermerk_KeyDown(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
'Escape händisch abfangen und auf Abbruch-Taste legen
'Escape händisch abfangen und auf Abbruch-Taste legen
If e.KeyCode = Keys.Escape Then
' btnAbbruch.PerformClick()
Me.Close()
@@ -59,16 +68,18 @@ Public Class frmAddSendungsvermerkShort
End Sub
Private Sub frmEintragVermerk_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
VERAG_PROG_ALLGEMEIN.cAllgemein._TRANSLATE(Me)
'cboDokumente.Items.Clear()
' cboDokumente.Items.Add(New MyListItem("nachgefordert", CStr(0)))
'cboDokumente.Items.Add(New MyListItem("erhalten", CStr(1)))
'cboDokumente.SelectedIndex = 0
Me.CenterToParent()
If My.Computer.Screen.WorkingArea.Height < Me.Height Then
Me.Height = My.Computer.Screen.WorkingArea.Height
Dim pt As Point = Cursor.Position
Dim screenBounds As Rectangle = Screen.FromPoint(pt).WorkingArea
If pt.X + Me.Width > screenBounds.Right Then
pt.X = screenBounds.Right - Me.Width
End If
If pt.Y + Me.Height > screenBounds.Bottom Then
pt.Y = screenBounds.Bottom - Me.Height
End If
Me.Location = pt
VERAG_PROG_ALLGEMEIN.cAllgemein._TRANSLATE(Me)
For Each c In Me.Controls
If c.GetType.Name.ToString = "RadioButton" Then
AddHandler DirectCast(c, RadioButton).CheckedChanged, AddressOf selectionChanged
@@ -92,6 +103,9 @@ Public Class frmAddSendungsvermerkShort
Else
optSendungInVorbereitung.Visible = False
End If
SetupDynamicAnforderungCheckboxes()
'bereits vorhandene Vermerke laden
'txtInfo.Text = VermerkeDAL.Vermerke_einlesen(myAviso.AvisoID)
Me.Text = "AKT " & myAviso.LKW_Nr & ""
@@ -119,6 +133,81 @@ Public Class frmAddSendungsvermerkShort
' Me.Close()
' End Sub
Private Sub SetupDynamicAnforderungCheckboxes()
_anforderungCheckboxes.Clear()
_backendBezeichnungByCodeId.Clear()
Dim dt As DataTable = Nothing
Try
dt = AvisoDAL.loadDataTableBySQL("SELECT [VermerkCodeId],[Bezeichnung],[FrontendBezeichnung],[AnforderungBereich] FROM [VermerkeCodes] WHERE [Anforderung]=1 ORDER BY [Bezeichnung]")
Catch
Try
dt = AvisoDAL.loadDataTableBySQL("SELECT [VermerkCodeId],[Bezeichnung],[AnforderungBereich] FROM [VermerkeCodes] WHERE [Anforderung]=1 ORDER BY [Bezeichnung]")
Catch
Return
End Try
End Try
If dt Is Nothing OrElse dt.Rows.Count = 0 Then
Return
End If
flpAngefordert.Controls.Clear()
For Each row As DataRow In dt.Rows
Dim id As Integer
Try
id = CInt(row("VermerkCodeId"))
Catch
Continue For
End Try
Dim bezeichnung = If(IsDBNull(row("Bezeichnung")), "", CStr(row("Bezeichnung"))).Trim()
If bezeichnung = "" Then Continue For
_backendBezeichnungByCodeId(id) = bezeichnung
Dim frontendBezeichnung = bezeichnung
If dt.Columns.Contains("FrontendBezeichnung") Then
frontendBezeichnung = If(IsDBNull(row("FrontendBezeichnung")), "", CStr(row("FrontendBezeichnung"))).Trim()
If frontendBezeichnung = "" Then frontendBezeichnung = bezeichnung
End If
Dim bereich As Integer = BereichAngefordert
Try
If Not IsDBNull(row("AnforderungBereich")) Then
bereich = CInt(row("AnforderungBereich"))
End If
Catch
End Try
If bereich = BereichAngefordert Then
Dim cb As New CheckBox()
cb.Text = frontendBezeichnung
cb.Tag = id
cb.Margin = New Padding(0, 0, 4, 0)
ConfigureAnforderungCheckbox(cb, flpAngefordert)
flpAngefordert.Controls.Add(cb)
_anforderungCheckboxes.Add(cb)
End If
Next
End Sub
Private Sub ConfigureAnforderungCheckbox(cb As CheckBox, container As Control)
If cb Is Nothing OrElse container Is Nothing Then Return
cb.AutoSize = False
cb.Height = 18
Dim cols As Integer = 2
Dim colGap As Integer = 14
Dim minCbWidth As Integer = 180
Dim usableWidth = Math.Max(120, container.Width - 20)
Dim cbWidth = CInt(Math.Floor((usableWidth - ((cols - 1) * colGap)) / cols))
cb.Width = Math.Max(minCbWidth, Math.Min(cbWidth, 220))
End Sub
Private Sub txtFeld_GotFocus(sender As Object, e As System.EventArgs) Handles txtFreierText.GotFocus, txtSpedition.GotFocus
CType(sender, TextBox).SelectAll()
End Sub
@@ -145,8 +234,7 @@ Public Class frmAddSendungsvermerkShort
End If
End If
'Plausibilität prüfen
'Plausibilität prüfen
If optFreierText.Checked Then
If txtFreierText.Text.Trim = "" Then
showErr(lblErrGrund)
@@ -156,44 +244,32 @@ Public Class frmAddSendungsvermerkShort
insertSendungsVermerk(SendungID, myAviso.AvisoID, txtFreierText.Text.Trim & " - offen", 101)
End If
If cbxAuftrag.Checked Then insertSendungsVermerk(SendungID, myAviso.AvisoID, "Auftrag für Sendung '" & txtSendung.Text.Trim & "' fehlt - angefordert", 1)
If cbxRechnung.Checked Then insertSendungsVermerk(SendungID, myAviso.AvisoID, "Rechnung für Sendung '" & txtSendung.Text.Trim & "' fehlt / mangelhaft - angefordert", 3)
If cbxLS.Checked Then insertSendungsVermerk(SendungID, myAviso.AvisoID, "Lieferschein für Sendung '" & txtSendung.Text.Trim & "' fehlt - angefordert", 5)
If cbxATR.Checked Then insertSendungsVermerk(SendungID, myAviso.AvisoID, "ATR für Sendung '" & txtSendung.Text.Trim & "' fehlt - angefordert", 7)
If cbxVollmacht.Checked Then insertSendungsVermerk(SendungID, myAviso.AvisoID, "Vollmacht für Sendung '" & txtSendung.Text.Trim & "' fehlt - angefordert", 9)
If cbxCMR.Checked Then insertSendungsVermerk(SendungID, myAviso.AvisoID, "CMR bei Sendung '" & txtSendung.Text.Trim & "' - angefordert", 11)
If cbxPackliste.Checked Then insertSendungsVermerk(SendungID, myAviso.AvisoID, "Packliste bei Sendung '" & txtSendung.Text.Trim & "' - angefordert", 90)
If cbxRgBest.Checked Then insertSendungsVermerk(SendungID, myAviso.AvisoID, "Rechnungsbestätigung bei Sendung '" & txtSendung.Text.Trim & "' - angefordert", 55)
If optGewPackAngefordert.Checked Then insertSendungsVermerk(SendungID, myAviso.AvisoID, "Gewicht/Packstücke bei Sendung '" & txtSendung.Text.Trim & "' mangelhaft - angefordert", 103)
If optZolltarifnummerAngefordert.Checked Then insertSendungsVermerk(SendungID, myAviso.AvisoID, "Zolltarifnummer bei Sendung '" & txtSendung.Text.Trim & "' - angefordert", 105)
If optKostenbestaetigungAngefordert.Checked Then insertSendungsVermerk(SendungID, myAviso.AvisoID, "Kostenbestaetigung bei Sendung '" & txtSendung.Text.Trim & "' - angefordert", 107)
For Each cb In _anforderungCheckboxes
If cb IsNot Nothing AndAlso cb.Checked Then
Dim codeId As Integer = 0
If Integer.TryParse(If(cb.Tag, "").ToString(), codeId) Then
Dim text = ""
If _backendBezeichnungByCodeId.ContainsKey(codeId) Then
text = If(_backendBezeichnungByCodeId(codeId), "").Trim()
End If
If text = "" Then text = cb.Text.Trim()
If optFrachtkostenAngefordert.Checked Then insertSendungsVermerk(SendungID, myAviso.AvisoID, "Frachtkosten bei Sendung '" & txtSendung.Text.Trim & "' - angefordert", 74)
If optAbsenderbestätigung.Checked Then insertSendungsVermerk(SendungID, myAviso.AvisoID, "Absenderbestätigung bei Sendung '" & txtSendung.Text.Trim & "' - angefordert", 76)
Dim sendText = txtSendung.Text.Trim()
If text <> "" AndAlso sendText <> "" AndAlso InStr(text, "sendung", CompareMethod.Text) = 0 Then
text &= " bei Sendung '" & sendText & "'"
End If
If text <> "" Then
insertSendungsVermerk(SendungID, myAviso.AvisoID, text, codeId)
End If
End If
End If
Next
If optKundeNichtErreichbar.Checked Then insertSendungsVermerk(SendungID, myAviso.AvisoID, "Kunde bei Sendung '" & txtSendung.Text.Trim & "' nicht erreichbar", 70)
If optFahrerKeinATR.Checked Then insertSendungsVermerk(SendungID, myAviso.AvisoID, "Fahrer ohne A.TR bei Sendung '" & txtSendung.Text.Trim & "'", 71)
If optFremd_ATB.Checked Then insertSendungsVermerk(SendungID, myAviso.AvisoID, "ATB von Fremdeinsteller erhalten bei Sendung '" & txtSendung.Text.Trim & "' ", 72)
If optFremd_SendungAvisiert.Checked Then insertSendungsVermerk(SendungID, myAviso.AvisoID, "Sendung '" & txtSendung.Text.Trim & "' an Fremdeinsteller avisiert", 73)
' If optSndUmmelden.Checked Then insertSendungsVermerk(SendungID, myAviso.AvisoID, "Sendung '" & txtSendung.Text.Trim & "' umgemeldet", 94)
If optDraft.Checked Then insertSendungsVermerk(SendungID, myAviso.AvisoID, "T2 Draft OK bei Sendung '" & txtSendung.Text.Trim & "' - angefordert", 118)
If optUeberwachungsdok.Checked Then insertSendungsVermerk(SendungID, myAviso.AvisoID, "Ü-Dok bei Sendung '" & txtSendung.Text.Trim & "' - angefordert", 53)
If cbxSonstDok.Checked Then
If txtSonstigesDokumentFehlt.Text.Trim = "" Then
showErr(lblErrDokument) : txtSonstigesDokumentFehlt.Focus() : Return False
End If
insertSendungsVermerk(SendungID, myAviso.AvisoID, "Dokument '" & txtSonstigesDokumentFehlt.Text.Trim & "' fehlt - angefordert.", 25)
End If
If cbxNichtLeserlich.Checked Then insertSendungsVermerk(SendungID, myAviso.AvisoID, "Dokument(e) nachgefordert, da nicht leserlich.", 42)
If optVorkasseAngefordert.Checked = True Then
insertSendungsVermerk(SendungID, myAviso.AvisoID, "Vorauskasse bei Sendung '" & txtSendung.Text.Trim & "' angefordert", 13)
End If
If optSpeditionWeitergeleitet.Checked = True Then
If txtSpedition.Text.Trim = "" Then
showErr(lblErrSpedition)
@@ -206,9 +282,6 @@ Public Class frmAddSendungsvermerkShort
insertSendungsVermerk(SendungID, myAviso.AvisoID, "Sendung '" & txtSendung.Text.Trim & "' in Vorbereitung.", 31)
VermerkeDAL.UpdateSendungVorbereitet(AvisoID, SendungID, VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.MitarbeiterID, True)
End If
If optKontaktdatenAngefordert.Checked = True Then
insertSendungsVermerk(SendungID, myAviso.AvisoID, "Kontaktdaten bei Sendung '" & txtSendung.Text.Trim & "' - angefordert", 36)
End If
' If optSendungVorbereitet.Checked = True Then
'insertSendungsVermerk(SendungID,myAviso.AvisoID, "Sendung '" & txtSendung.Text.Trim & "' Vorbereitung abgeschlossen.", 32)
' VermerkeDAL.UpdateSendungVorbereitet(AvisoID, SendungID, VERAG_PROG_ALLGEMEIN.cglobal.AktiverMitarbeiter.MitarbeiterID, False)
@@ -275,7 +348,6 @@ Public Class frmAddSendungsvermerkShort
End Sub
Sub showErr(l As Label)
lblErrDokument.Visible = False
' lblErrFach.Visible = False
lblErrGrund.Visible = False
' lblErrSendungProbleme.Visible = False
@@ -299,13 +371,11 @@ Public Class frmAddSendungsvermerkShort
' optDokumente.Checked = True
'End Sub
Private Sub cbxAuftrag_CheckedChanged(sender As Object, e As EventArgs) Handles cbxAuftrag.CheckedChanged, cbxRechnung.CheckedChanged, cbxLS.CheckedChanged,
cbxCMR.CheckedChanged, cbxATR.CheckedChanged, cbxVollmacht.CheckedChanged, cbxSonstDok.CheckedChanged, cbxNichtLeserlich.CheckedChanged, cbxPackliste.CheckedChanged
Private Sub cbxAuftrag_CheckedChanged(sender As Object, e As EventArgs)
' optDokumente.Checked = True
End Sub
Private Sub SonstChanged(sender As Object, e As EventArgs) Handles txtSonstigesDokumentFehlt.TextChanged
Private Sub SonstChanged(sender As Object, e As EventArgs)
' optDokumente.Checked = True
cbxSonstDok.Checked = (sender.text <> "")
End Sub
Private Sub txtSendungSpedition_TextChanged(sender As Object, e As EventArgs) Handles txtSendungSpedition.TextChanged, txtSpedition.TextChanged
optSpeditionWeitergeleitet.Checked = True
@@ -327,18 +397,51 @@ Public Class frmAddSendungsvermerkShort
Private Sub frmAddSendungsvermerk_Shown(sender As Object, e As EventArgs) Handles Me.Shown
Dim p = Cursor.Position
If (p.X + Me.Width) > My.Computer.Screen.WorkingArea.Width Then p.X = My.Computer.Screen.WorkingArea.Width - Me.Width
If (p.Y + Me.Height) > My.Computer.Screen.WorkingArea.Height Then p.Y = My.Computer.Screen.WorkingArea.Height - Me.Height
Me.Location = p '.Me.PointToClient(System.Cursor.Position)
txtSendung.SelectionLength = 0
cbxAuftrag.Focus()
txtFreierText.Focus()
End Sub
Private drag As Boolean
Private mouseX As Integer
Private mouseY As Integer
Private Sub Form_MouseDown(sender As Object, e As MouseEventArgs) Handles lblDragIndicator.MouseDown
If e.Button = MouseButtons.Left Then
drag = True
mouseX = Cursor.Position.X - Me.Left
mouseY = Cursor.Position.Y - Me.Top
End If
End Sub
Private Sub Form_MouseMove(sender As Object, e As MouseEventArgs) Handles lblDragIndicator.MouseMove
If drag Then
Me.Top = Cursor.Position.Y - mouseY
Me.Left = Cursor.Position.X - mouseX
End If
End Sub
Private Sub Form_MouseUp(sender As Object, e As MouseEventArgs) Handles lblDragIndicator.MouseUp
drag = False
End Sub
' ----------------------
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnCLose.Click
Me.Close()
End Sub
Private Sub btnDokumtanforderung_Click(sender As Object, e As EventArgs) Handles btnDokumtanforderung.Click
Dim resolvedAvisoId As Integer = AvisoID
If resolvedAvisoId <= 0 AndAlso myAviso IsNot Nothing AndAlso IsNumeric(myAviso.AvisoID) Then
resolvedAvisoId = CInt(myAviso.AvisoID)
End If
Dim resolvedSendungId As Integer = SendungID
Using frm As New frmSendungsDokumentanforderung(resolvedAvisoId, resolvedSendungId, Nothing)
If frm.ShowDialog(Me) = DialogResult.OK Then
frmHauptfenster.avisoAktualisierenAktiveIdBehalten(myAviso.AvisoID)
Me.Close()
End If
End Using
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs)
If insertVermerke() Then
VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen.INSERT_BENACHRICHTIGUNG(myAviso.AvisoID, SendungID, 1, "T", 13, , 1)

View File

@@ -10,11 +10,9 @@
InitializeComponent()
Select Case Link
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"
Case "EU"
url = "https://ec.europa.eu/taxation_customs/dds2/taric/taric_consultation.jsp?Lang=de"
End Select
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
@@ -26,7 +24,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

View File

@@ -24,14 +24,13 @@ Public Class frmGesamtsicherheitenMenuNEU
Select Case Standort
Case Sicherheiten_Standort.VERAG_GMBH : firmaId = 2 : chkOffen.Checked = True
Case Sicherheiten_Standort.VERAG_AG : firmaId = 1 : chkOffen.Checked = False
Case Sicherheiten_Standort.IMEX : firmaId = 20 : chkOffen.Checked = False
Case Sicherheiten_Standort.VERAG_CS : firmaId = 11 : chkOffen.Checked = False
Case Sicherheiten_Standort.UNISPED : firmaId = 21 : chkOffen.Checked = False
Case Sicherheiten_Standort.AMBAR : firmaId = 24 : chkOffen.Checked = False
Case Sicherheiten_Standort.ATILLA : firmaId = 7 : chkOffen.Checked = False
Case Sicherheiten_Standort.ZOLLERN : firmaId = 90 : chkOffen.Checked = False
Case "Verag GmbH" : firmaId = 2 : chkOffen.Checked = True
Case "VERAG AG" : firmaId = 1 : chkOffen.Checked = False
Case "IMEX" : firmaId = 20 : chkOffen.Checked = False
Case "Verag CS" : firmaId = 11 : chkOffen.Checked = False
Case "Unisped GmbH" : firmaId = 21 : chkOffen.Checked = False
Case "AMBAR GmbH" : firmaId = 24 : chkOffen.Checked = False
Case "Atilla GmbH" : firmaId = 7 : chkOffen.Checked = False
End Select
@@ -42,9 +41,9 @@ Public Class frmGesamtsicherheitenMenuNEU
Me.Text = "Gesamtsicherheiten " & Standort
frmHauptfenster.EnableDoubleBuffered(dgvListe)
GesSichRef = New VERAG_PROG_ALLGEMEIN.cAufschubKonten(Standort, firmaId)
GesSichRef = New VERAG_PROG_ALLGEMEIN.cAufschubKonten(Standort)
If GesSichRef.hasEntry = False Then
MsgBox("Für den Standort " & Standort & " wurde keine Referenz hinterlegt!")
MsgBox("Für den Standort " & Standort & " wurde keine Referenz hingerlegt!")
Exit Sub
End If

View File

@@ -66,20 +66,7 @@ Public Class frmGesamtsicherheitenNEU
End If
Select Case Standort
Case Sicherheiten_Standort.VERAG_GMBH : btnDAKOSY_AUTO.Enabled = Not DAKOSY_AUTO : firmaId = 2
Case Sicherheiten_Standort.AMBAR : btnDAKOSY_AUTO.Enabled = Not DAKOSY_AUTO :: firmaId = 24
Case Sicherheiten_Standort.ATILLA : btnDAKOSY_AUTO.Enabled = False : firmaId = 7
Case Sicherheiten_Standort.VERAG_AG : btnDAKOSY_AUTO.Enabled = False : firmaId = 1
Case Sicherheiten_Standort.IMEX : btnDAKOSY_AUTO.Enabled = False : firmaId = 20
Case Sicherheiten_Standort.VERAG_CS : btnDAKOSY_AUTO.Enabled = False : firmaId = 11
Case Sicherheiten_Standort.UNISPED : btnDAKOSY_AUTO.Enabled = False : firmaId = 21
Case Sicherheiten_Standort.ZOLLERN : btnDAKOSY_AUTO.Enabled = False : firmaId = 90
Case Else : btnDAKOSY_AUTO.Enabled = False
End Select
currentGesSichRef = New VERAG_PROG_ALLGEMEIN.cAufschubKonten(Standort, firmaId)
currentGesSichRef = New VERAG_PROG_ALLGEMEIN.cAufschubKonten(Standort)
SaldoNew = Decimal.Parse(currentGesSichRef.CalcSaldo())
lblSaldo.Text = "Saldo: €" & SaldoNew.ToString("N")
@@ -113,7 +100,17 @@ Public Class frmGesamtsicherheitenNEU
initPrevNextButtons()
changeLabel()
Select Case Standort
Case "Verag GmbH" : btnDAKOSY_AUTO.Enabled = Not DAKOSY_AUTO
Case "AMBAR GmbH" : btnDAKOSY_AUTO.Enabled = Not DAKOSY_AUTO
Case "Atilla GmbH" : btnDAKOSY_AUTO.Enabled = False
Case "VERAG AG" : btnDAKOSY_AUTO.Enabled = False
Case "IMEX" : btnDAKOSY_AUTO.Enabled = False
Case "Verag CS" : btnDAKOSY_AUTO.Enabled = False
Case "Unisped GmbH" : btnDAKOSY_AUTO.Enabled = False
Case Else : btnDAKOSY_AUTO.Enabled = False
End Select
Me.Text = "Gesamtsicherheit " & Standort
frmHauptfenster.EnableDoubleBuffered(dgvSicherheitsPos)
@@ -175,7 +172,7 @@ Public Class frmGesamtsicherheitenNEU
.Columns("gs_ust").DefaultCellStyle.Format = "c2"
Case Else
If Standort = Sicherheiten_Standort.VERAG_GMBH Then
If Standort = "Verag GmbH" Then
.Columns("gs_ATBNr").HeaderText = "Reg-Nr."
Else
.Columns("gs_ATBNr").HeaderText = "T1 MRN"
@@ -244,21 +241,7 @@ Public Class frmGesamtsicherheitenNEU
Me.Cursor = Cursors.WaitCursor
Select Case standort
Case Sicherheiten_Standort.VERAG_GMBH : firmaId = 2
Case Sicherheiten_Standort.AMBAR : firmaId = 24
Case Sicherheiten_Standort.ATILLA : firmaId = 7
Case Sicherheiten_Standort.VERAG_AG : firmaId = 1
Case Sicherheiten_Standort.IMEX : firmaId = 20
Case Sicherheiten_Standort.VERAG_CS : firmaId = 11
Case Sicherheiten_Standort.UNISPED : firmaId = 21
Case Else
End Select
Dim currentGesSichRef = New VERAG_PROG_ALLGEMEIN.cAufschubKonten(standort, firmaId)
Dim currentGesSichRef = New VERAG_PROG_ALLGEMEIN.cAufschubKonten(standort)
'Dim gsnr As String
@@ -439,21 +422,7 @@ Public Class frmGesamtsicherheitenNEU
Me.Cursor = Cursors.WaitCursor
Select Case standort
Case Sicherheiten_Standort.VERAG_GMBH : firmaId = 2
Case Sicherheiten_Standort.AMBAR : firmaId = 24
Case Sicherheiten_Standort.ATILLA : firmaId = 7
Case Sicherheiten_Standort.VERAG_AG : firmaId = 1
Case Sicherheiten_Standort.IMEX : firmaId = 20
Case Sicherheiten_Standort.VERAG_CS : firmaId = 11
Case Sicherheiten_Standort.UNISPED : firmaId = 21
Case Else
End Select
Dim currentGesSichRef = New VERAG_PROG_ALLGEMEIN.cAufschubKonten(standort, firmaId)
Dim currentGesSichRef = New VERAG_PROG_ALLGEMEIN.cAufschubKonten(standort)
Dim gsnr As String
Dim counter = 0
@@ -495,7 +464,7 @@ Public Class frmGesamtsicherheitenNEU
dtSicherheiten.Columns.Add("SSaldo")
If currentGesSichRef Is Nothing Then
currentGesSichRef = New VERAG_PROG_ALLGEMEIN.cAufschubKonten(standort, firmaId)
currentGesSichRef = New VERAG_PROG_ALLGEMEIN.cAufschubKonten(standort)
End If
Dim drFirst = dtSicherheiten.NewRow
@@ -592,9 +561,9 @@ Public Class frmGesamtsicherheitenNEU
.Columns("gsp_sicherheitsbetrag").DefaultCellStyle.Format = "c"
Select Case currentGesSichRef.brgakto_gs_ATR
Case True
If Standort = Sicherheiten_Standort.VERAG_GMBH Then
If Standort = "Verag GmbH" Then
.Columns("gsp_MRNNr").HeaderText = "ATC. / MRN"
ElseIf Standort = Sicherheiten_Standort.VERAG_AG Then
ElseIf Standort = "VERAG AG" Then
.Columns("gsp_MRNNr").HeaderText = "T1 CRN"
Else
.Columns("gsp_MRNNr").HeaderText = "EZA / T1 CRN"
@@ -2112,7 +2081,7 @@ Public Class frmGesamtsicherheitenNEU
Private Sub changeLabel(Optional isATR As Boolean = True)
If Standort = Sicherheiten_Standort.VERAG_GMBH Then
If Standort = "Verag GmbH" Then
'Label1.Text = "Reg-Nr."
If isATR Then
@@ -2123,7 +2092,7 @@ Public Class frmGesamtsicherheitenNEU
End If
ElseIf Standort = Sicherheiten_Standort.VERAG_AG Then
ElseIf Standort = "VERAG AG" Then
Label12.Text = "T1 CRN"
'Label1.Text = "T1 MRN"
Else
@@ -2356,7 +2325,7 @@ Public Class frmGesamtsicherheitenNEU
Dim whereWarenort As String = " WHERE [wo_aktiv] = 1 AND wo_ze = 1"
If Standort = Sicherheiten_Standort.ATILLA Then
If Standort = "Atilla GmbH" Then
'----'nicht unisped und cs und ambar aber alle anderen - laut j.Siener am 23.03.2026
@@ -2376,7 +2345,7 @@ Public Class frmGesamtsicherheitenNEU
If setDefaultValue AndAlso cboWarenort.Items.Count > 0 Then
If Standort = Sicherheiten_Standort.AMBAR Then
If Standort = "AMBAR GmbH" Then
For i As Integer = 0 To cboFiliale.Items.Count - 1
If cboFiliale.Items(i).ToString().Contains("5701") Then
cboFiliale.SelectedIndex = i

View File

@@ -24,15 +24,15 @@ Partial Class frmHauptfenster
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmHauptfenster))
Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
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 DataGridViewCellStyle28 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle29 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle30 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle31 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle32 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle33 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle34 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle35 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle36 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Me.mnuInfo = New System.Windows.Forms.ToolStripMenuItem()
Me.conÜbernehmen = New System.Windows.Forms.ToolStripMenuItem()
Me.conMenuAviso = New System.Windows.Forms.ContextMenuStrip(Me.components)
@@ -194,9 +194,6 @@ Partial Class frmHauptfenster
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()
@@ -428,7 +425,9 @@ Partial Class frmHauptfenster
Me.UsrCntlBenachrichtigungen2 = New AVISO.usrCntlBenachrichtigungen()
Me.Panel5 = New System.Windows.Forms.Panel()
Me.Panel7 = New System.Windows.Forms.Panel()
Me.DEZollernToolStripMenuItem = 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.conMenuAviso.SuspendLayout()
Me.MenuStrip1.SuspendLayout()
Me.pnlDetailsRechts.SuspendLayout()
@@ -960,26 +959,26 @@ Partial Class frmHauptfenster
'GenerelleGestellungenDurchsuchenToolStripMenuItem
'
Me.GenerelleGestellungenDurchsuchenToolStripMenuItem.Name = "GenerelleGestellungenDurchsuchenToolStripMenuItem"
Me.GenerelleGestellungenDurchsuchenToolStripMenuItem.Size = New System.Drawing.Size(391, 30)
Me.GenerelleGestellungenDurchsuchenToolStripMenuItem.Size = New System.Drawing.Size(383, 22)
Me.GenerelleGestellungenDurchsuchenToolStripMenuItem.Text = "Generelle Gestellungen durchsuchen"
Me.GenerelleGestellungenDurchsuchenToolStripMenuItem.Visible = False
'
'KundenVonFremdenSpeditionenToolStripMenuItem
'
Me.KundenVonFremdenSpeditionenToolStripMenuItem.Name = "KundenVonFremdenSpeditionenToolStripMenuItem"
Me.KundenVonFremdenSpeditionenToolStripMenuItem.Size = New System.Drawing.Size(391, 30)
Me.KundenVonFremdenSpeditionenToolStripMenuItem.Size = New System.Drawing.Size(383, 22)
Me.KundenVonFremdenSpeditionenToolStripMenuItem.Text = "Kunden von fremden Speditionen"
'
'KundenverwaltungToolStripMenuItem
'
Me.KundenverwaltungToolStripMenuItem.Name = "KundenverwaltungToolStripMenuItem"
Me.KundenverwaltungToolStripMenuItem.Size = New System.Drawing.Size(391, 30)
Me.KundenverwaltungToolStripMenuItem.Size = New System.Drawing.Size(383, 22)
Me.KundenverwaltungToolStripMenuItem.Text = "Kundenverwaltung"
'
'MDMParkplatzkartenToolStripMenuItem
'
Me.MDMParkplatzkartenToolStripMenuItem.Name = "MDMParkplatzkartenToolStripMenuItem"
Me.MDMParkplatzkartenToolStripMenuItem.Size = New System.Drawing.Size(391, 30)
Me.MDMParkplatzkartenToolStripMenuItem.Size = New System.Drawing.Size(383, 22)
Me.MDMParkplatzkartenToolStripMenuItem.Text = "MDM - Parkplatzkarten"
'
'SMSSendenToolStripMenuItem
@@ -987,7 +986,7 @@ Partial Class frmHauptfenster
Me.SMSSendenToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.NeueSMSSendenToolStripMenuItem, Me.GesendeteSMSToolStripMenuItem})
Me.SMSSendenToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.handy2
Me.SMSSendenToolStripMenuItem.Name = "SMSSendenToolStripMenuItem"
Me.SMSSendenToolStripMenuItem.Size = New System.Drawing.Size(391, 30)
Me.SMSSendenToolStripMenuItem.Size = New System.Drawing.Size(383, 22)
Me.SMSSendenToolStripMenuItem.Text = "SMS"
'
'NeueSMSSendenToolStripMenuItem
@@ -1005,139 +1004,139 @@ Partial Class frmHauptfenster
'ZollprogrammeNachEORIDurchsuchenToolStripMenuItem
'
Me.ZollprogrammeNachEORIDurchsuchenToolStripMenuItem.Name = "ZollprogrammeNachEORIDurchsuchenToolStripMenuItem"
Me.ZollprogrammeNachEORIDurchsuchenToolStripMenuItem.Size = New System.Drawing.Size(391, 30)
Me.ZollprogrammeNachEORIDurchsuchenToolStripMenuItem.Size = New System.Drawing.Size(383, 22)
Me.ZollprogrammeNachEORIDurchsuchenToolStripMenuItem.Text = "Zollprogramme nach EORI durchsuchen"
'
'MRNBarcodedruckToolStripMenuItem
'
Me.MRNBarcodedruckToolStripMenuItem.Name = "MRNBarcodedruckToolStripMenuItem"
Me.MRNBarcodedruckToolStripMenuItem.Size = New System.Drawing.Size(391, 30)
Me.MRNBarcodedruckToolStripMenuItem.Size = New System.Drawing.Size(383, 22)
Me.MRNBarcodedruckToolStripMenuItem.Text = "MRN Barcodedruck"
'
'NewsletterToolStripMenuItem
'
Me.NewsletterToolStripMenuItem.Name = "NewsletterToolStripMenuItem"
Me.NewsletterToolStripMenuItem.Size = New System.Drawing.Size(391, 30)
Me.NewsletterToolStripMenuItem.Size = New System.Drawing.Size(383, 22)
Me.NewsletterToolStripMenuItem.Text = "Newsletter"
'
'ToolStripSeparator12
'
Me.ToolStripSeparator12.Name = "ToolStripSeparator12"
Me.ToolStripSeparator12.Size = New System.Drawing.Size(388, 6)
Me.ToolStripSeparator12.Size = New System.Drawing.Size(380, 6)
'
'tool_BRGXLS
'
Me.tool_BRGXLS.Name = "tool_BRGXLS"
Me.tool_BRGXLS.Size = New System.Drawing.Size(391, 30)
Me.tool_BRGXLS.Size = New System.Drawing.Size(383, 22)
Me.tool_BRGXLS.Text = "Bürgschaften Excel"
'
'ToolStripMenuItem4
'
Me.ToolStripMenuItem4.Name = "ToolStripMenuItem4"
Me.ToolStripMenuItem4.Size = New System.Drawing.Size(391, 30)
Me.ToolStripMenuItem4.Size = New System.Drawing.Size(383, 22)
Me.ToolStripMenuItem4.Text = "DE | Gesamtsicherheit VERAG GmbH - Excel"
Me.ToolStripMenuItem4.Visible = False
'
'ToolStripMenuItem5
'
Me.ToolStripMenuItem5.Name = "ToolStripMenuItem5"
Me.ToolStripMenuItem5.Size = New System.Drawing.Size(391, 30)
Me.ToolStripMenuItem5.Size = New System.Drawing.Size(383, 22)
Me.ToolStripMenuItem5.Text = "AT | Gesamtsicherheit VERAG AG - Excel"
Me.ToolStripMenuItem5.Visible = False
'
'BürgschaftenExcelToolStripMenuItem
'
Me.BürgschaftenExcelToolStripMenuItem.Name = "BürgschaftenExcelToolStripMenuItem"
Me.BürgschaftenExcelToolStripMenuItem.Size = New System.Drawing.Size(391, 30)
Me.BürgschaftenExcelToolStripMenuItem.Size = New System.Drawing.Size(383, 22)
Me.BürgschaftenExcelToolStripMenuItem.Text = "AT | Gesamtsicherheit VERAG Customs Service - Excel"
Me.BürgschaftenExcelToolStripMenuItem.Visible = False
'
'ToolStripMenuItem6
'
Me.ToolStripMenuItem6.Name = "ToolStripMenuItem6"
Me.ToolStripMenuItem6.Size = New System.Drawing.Size(391, 30)
Me.ToolStripMenuItem6.Size = New System.Drawing.Size(383, 22)
Me.ToolStripMenuItem6.Text = "AT | Gesamtsicherheit IMEX Customs Service GmbH - Excel"
Me.ToolStripMenuItem6.Visible = False
'
'GesamtsicherheitenToolStripMenuItem
'
Me.GesamtsicherheitenToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ATVeragAGToolStripMenuItem, Me.ATImexCSToolStripMenuItem, Me.ATVeragCSToolStripMenuItem, Me.DEVeragGmbHToolStripMenuItem, Me.ATUnispedGmbHToolStripMenuItem, Me.DEAmbarToolStripMenuItem, Me.ATAtillaToolStripMenuItem, Me.DEZollernToolStripMenuItem, Me.ReferenzwerteToolStripMenuItem})
Me.GesamtsicherheitenToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ATVeragAGToolStripMenuItem, Me.ATImexCSToolStripMenuItem, Me.ATVeragCSToolStripMenuItem, Me.DEVeragGmbHToolStripMenuItem, Me.ATUnispedGmbHToolStripMenuItem, Me.DEAmbarToolStripMenuItem, Me.ATAtillaToolStripMenuItem, Me.ReferenzwerteToolStripMenuItem})
Me.GesamtsicherheitenToolStripMenuItem.Name = "GesamtsicherheitenToolStripMenuItem"
Me.GesamtsicherheitenToolStripMenuItem.Size = New System.Drawing.Size(391, 30)
Me.GesamtsicherheitenToolStripMenuItem.Size = New System.Drawing.Size(383, 22)
Me.GesamtsicherheitenToolStripMenuItem.Text = "Gesamtsicherheiten"
Me.GesamtsicherheitenToolStripMenuItem.Visible = False
'
'ATVeragAGToolStripMenuItem
'
Me.ATVeragAGToolStripMenuItem.Name = "ATVeragAGToolStripMenuItem"
Me.ATVeragAGToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
Me.ATVeragAGToolStripMenuItem.Size = New System.Drawing.Size(179, 22)
Me.ATVeragAGToolStripMenuItem.Text = "AT | Verag AG"
'
'ATImexCSToolStripMenuItem
'
Me.ATImexCSToolStripMenuItem.Name = "ATImexCSToolStripMenuItem"
Me.ATImexCSToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
Me.ATImexCSToolStripMenuItem.Size = New System.Drawing.Size(179, 22)
Me.ATImexCSToolStripMenuItem.Text = "AT | IMEX CS GmbH"
'
'ATVeragCSToolStripMenuItem
'
Me.ATVeragCSToolStripMenuItem.Name = "ATVeragCSToolStripMenuItem"
Me.ATVeragCSToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
Me.ATVeragCSToolStripMenuItem.Size = New System.Drawing.Size(179, 22)
Me.ATVeragCSToolStripMenuItem.Text = "AT | Verag CS"
'
'DEVeragGmbHToolStripMenuItem
'
Me.DEVeragGmbHToolStripMenuItem.Name = "DEVeragGmbHToolStripMenuItem"
Me.DEVeragGmbHToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
Me.DEVeragGmbHToolStripMenuItem.Size = New System.Drawing.Size(179, 22)
Me.DEVeragGmbHToolStripMenuItem.Text = "DE | Verag GmbH"
'
'ATUnispedGmbHToolStripMenuItem
'
Me.ATUnispedGmbHToolStripMenuItem.Name = "ATUnispedGmbHToolStripMenuItem"
Me.ATUnispedGmbHToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
Me.ATUnispedGmbHToolStripMenuItem.Size = New System.Drawing.Size(179, 22)
Me.ATUnispedGmbHToolStripMenuItem.Text = "AT | Unisped GmbH"
'
'DEAmbarToolStripMenuItem
'
Me.DEAmbarToolStripMenuItem.Name = "DEAmbarToolStripMenuItem"
Me.DEAmbarToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
Me.DEAmbarToolStripMenuItem.Size = New System.Drawing.Size(179, 22)
Me.DEAmbarToolStripMenuItem.Text = "DE | Ambar GmbH"
Me.DEAmbarToolStripMenuItem.Visible = False
'
'ATAtillaToolStripMenuItem
'
Me.ATAtillaToolStripMenuItem.Name = "ATAtillaToolStripMenuItem"
Me.ATAtillaToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
Me.ATAtillaToolStripMenuItem.Size = New System.Drawing.Size(179, 22)
Me.ATAtillaToolStripMenuItem.Text = "AT | Atilla GmbH"
'
'ReferenzwerteToolStripMenuItem
'
Me.ReferenzwerteToolStripMenuItem.Name = "ReferenzwerteToolStripMenuItem"
Me.ReferenzwerteToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
Me.ReferenzwerteToolStripMenuItem.Size = New System.Drawing.Size(179, 22)
Me.ReferenzwerteToolStripMenuItem.Text = "Referenzwerte"
'
'ToolStripMenuItem10
'
Me.ToolStripMenuItem10.Name = "ToolStripMenuItem10"
Me.ToolStripMenuItem10.Size = New System.Drawing.Size(391, 30)
Me.ToolStripMenuItem10.Size = New System.Drawing.Size(383, 22)
Me.ToolStripMenuItem10.Text = "TICKET Parkplatz"
'
'TICKETWaidhausToolStripMenuItem
'
Me.TICKETWaidhausToolStripMenuItem.Name = "TICKETWaidhausToolStripMenuItem"
Me.TICKETWaidhausToolStripMenuItem.Size = New System.Drawing.Size(391, 30)
Me.TICKETWaidhausToolStripMenuItem.Size = New System.Drawing.Size(383, 22)
Me.TICKETWaidhausToolStripMenuItem.Text = "Infoschreiben Parkplatz"
'
'ToolStripSeparator10
'
Me.ToolStripSeparator10.Name = "ToolStripSeparator10"
Me.ToolStripSeparator10.Size = New System.Drawing.Size(388, 6)
Me.ToolStripSeparator10.Size = New System.Drawing.Size(380, 6)
'
'DAKOSYToolStripMenuItem
'
Me.DAKOSYToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.StammreferenzenVerwaltenToolStripMenuItem})
Me.DAKOSYToolStripMenuItem.Name = "DAKOSYToolStripMenuItem"
Me.DAKOSYToolStripMenuItem.Size = New System.Drawing.Size(391, 30)
Me.DAKOSYToolStripMenuItem.Size = New System.Drawing.Size(383, 22)
Me.DAKOSYToolStripMenuItem.Text = "DAKOSY"
'
'StammreferenzenVerwaltenToolStripMenuItem
@@ -1149,76 +1148,76 @@ Partial Class frmHauptfenster
'ToolStripSeparator23
'
Me.ToolStripSeparator23.Name = "ToolStripSeparator23"
Me.ToolStripSeparator23.Size = New System.Drawing.Size(388, 6)
Me.ToolStripSeparator23.Size = New System.Drawing.Size(380, 6)
'
'toolOriginalATR
'
Me.toolOriginalATR.Image = Global.AVISO.My.Resources.Resources.atr
Me.toolOriginalATR.Name = "toolOriginalATR"
Me.toolOriginalATR.Size = New System.Drawing.Size(391, 30)
Me.toolOriginalATR.Size = New System.Drawing.Size(383, 22)
Me.toolOriginalATR.Text = "Original-ATR"
'
'SDLAbholaufträgeToolStripMenuItem
'
Me.SDLAbholaufträgeToolStripMenuItem.Name = "SDLAbholaufträgeToolStripMenuItem"
Me.SDLAbholaufträgeToolStripMenuItem.Size = New System.Drawing.Size(391, 30)
Me.SDLAbholaufträgeToolStripMenuItem.Size = New System.Drawing.Size(383, 22)
Me.SDLAbholaufträgeToolStripMenuItem.Text = "SDL Abholaufträge"
'
'ToolStripMenuItem13
'
Me.ToolStripMenuItem13.Name = "ToolStripMenuItem13"
Me.ToolStripMenuItem13.Size = New System.Drawing.Size(391, 30)
Me.ToolStripMenuItem13.Size = New System.Drawing.Size(383, 22)
Me.ToolStripMenuItem13.Text = "Postversand (Einschreiben)"
'
'VerträgeToolStripMenuItem
'
Me.VerträgeToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.spedbuch_small
Me.VerträgeToolStripMenuItem.Name = "VerträgeToolStripMenuItem"
Me.VerträgeToolStripMenuItem.Size = New System.Drawing.Size(391, 30)
Me.VerträgeToolStripMenuItem.Size = New System.Drawing.Size(383, 22)
Me.VerträgeToolStripMenuItem.Text = "Verträge"
'
'VorauskassenToolStripMenuItem
'
Me.VorauskassenToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.vorauszahlung
Me.VorauskassenToolStripMenuItem.Name = "VorauskassenToolStripMenuItem"
Me.VorauskassenToolStripMenuItem.Size = New System.Drawing.Size(391, 30)
Me.VorauskassenToolStripMenuItem.Size = New System.Drawing.Size(383, 22)
Me.VorauskassenToolStripMenuItem.Text = "Vorauskassen"
'
'ToolStripSeparator11
'
Me.ToolStripSeparator11.Name = "ToolStripSeparator11"
Me.ToolStripSeparator11.Size = New System.Drawing.Size(388, 6)
Me.ToolStripSeparator11.Size = New System.Drawing.Size(380, 6)
'
'EssensbestellungenToolStripMenuItem
'
Me.EssensbestellungenToolStripMenuItem.Name = "EssensbestellungenToolStripMenuItem"
Me.EssensbestellungenToolStripMenuItem.Size = New System.Drawing.Size(391, 30)
Me.EssensbestellungenToolStripMenuItem.Size = New System.Drawing.Size(383, 22)
Me.EssensbestellungenToolStripMenuItem.Text = "Essensbestellungen"
Me.EssensbestellungenToolStripMenuItem.Visible = False
'
'AdministrationEssensbestellungenToolStripMenuItem
'
Me.AdministrationEssensbestellungenToolStripMenuItem.Name = "AdministrationEssensbestellungenToolStripMenuItem"
Me.AdministrationEssensbestellungenToolStripMenuItem.Size = New System.Drawing.Size(391, 30)
Me.AdministrationEssensbestellungenToolStripMenuItem.Size = New System.Drawing.Size(383, 22)
Me.AdministrationEssensbestellungenToolStripMenuItem.Text = "Administration Essensbestellungen"
Me.AdministrationEssensbestellungenToolStripMenuItem.Visible = False
'
'ToolStripSeparator24
'
Me.ToolStripSeparator24.Name = "ToolStripSeparator24"
Me.ToolStripSeparator24.Size = New System.Drawing.Size(388, 6)
Me.ToolStripSeparator24.Size = New System.Drawing.Size(380, 6)
'
'WarenorteToolStripMenuItem
'
Me.WarenorteToolStripMenuItem.Name = "WarenorteToolStripMenuItem"
Me.WarenorteToolStripMenuItem.Size = New System.Drawing.Size(391, 30)
Me.WarenorteToolStripMenuItem.Size = New System.Drawing.Size(383, 22)
Me.WarenorteToolStripMenuItem.Text = "Warenorte"
'
'DatevBuchungsexportToolStripMenuItem
'
Me.DatevBuchungsexportToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.EMAILToolStripMenuItem, Me.FTPToolStripMenuItem})
Me.DatevBuchungsexportToolStripMenuItem.Name = "DatevBuchungsexportToolStripMenuItem"
Me.DatevBuchungsexportToolStripMenuItem.Size = New System.Drawing.Size(391, 30)
Me.DatevBuchungsexportToolStripMenuItem.Size = New System.Drawing.Size(383, 22)
Me.DatevBuchungsexportToolStripMenuItem.Text = "Datev Buchungsexport"
Me.DatevBuchungsexportToolStripMenuItem.Visible = False
'
@@ -1237,13 +1236,13 @@ Partial Class frmHauptfenster
'APIToolStripMenuItem
'
Me.APIToolStripMenuItem.Name = "APIToolStripMenuItem"
Me.APIToolStripMenuItem.Size = New System.Drawing.Size(391, 30)
Me.APIToolStripMenuItem.Size = New System.Drawing.Size(383, 22)
Me.APIToolStripMenuItem.Text = "API"
'
'FIBUSachkontenToolStripMenuItem
'
Me.FIBUSachkontenToolStripMenuItem.Name = "FIBUSachkontenToolStripMenuItem"
Me.FIBUSachkontenToolStripMenuItem.Size = New System.Drawing.Size(391, 30)
Me.FIBUSachkontenToolStripMenuItem.Size = New System.Drawing.Size(383, 22)
Me.FIBUSachkontenToolStripMenuItem.Text = "FIBU Sachkonten"
Me.FIBUSachkontenToolStripMenuItem.Visible = False
'
@@ -1318,20 +1317,20 @@ Partial Class frmHauptfenster
Me.MANAGERToolStripMenuItem.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Bold)
Me.MANAGERToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.android_note
Me.MANAGERToolStripMenuItem.Name = "MANAGERToolStripMenuItem"
Me.MANAGERToolStripMenuItem.Size = New System.Drawing.Size(277, 22)
Me.MANAGERToolStripMenuItem.Size = New System.Drawing.Size(285, 30)
Me.MANAGERToolStripMenuItem.Text = "Formular - Manager"
'
'ToolStripSeparator3
'
Me.ToolStripSeparator3.Name = "ToolStripSeparator3"
Me.ToolStripSeparator3.Size = New System.Drawing.Size(274, 6)
Me.ToolStripSeparator3.Size = New System.Drawing.Size(282, 6)
'
'MailvorlagenToolStripMenuItem
'
Me.MailvorlagenToolStripMenuItem.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Bold)
Me.MailvorlagenToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.stift
Me.MailvorlagenToolStripMenuItem.Name = "MailvorlagenToolStripMenuItem"
Me.MailvorlagenToolStripMenuItem.Size = New System.Drawing.Size(277, 22)
Me.MailvorlagenToolStripMenuItem.Size = New System.Drawing.Size(285, 30)
Me.MailvorlagenToolStripMenuItem.Text = "Mailvorlagen"
Me.MailvorlagenToolStripMenuItem.Visible = False
'
@@ -1339,7 +1338,7 @@ Partial Class frmHauptfenster
'
Me.ToolStripMenuItem2.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.toolStrVM_de, Me.ZollvollmachtDEFiskalToolStripMenuItem, Me.toolStrVM_at, Me.toolStrVM_at4200, Me.ZollvollmachtATEVToolStripMenuItem})
Me.ToolStripMenuItem2.Name = "ToolStripMenuItem2"
Me.ToolStripMenuItem2.Size = New System.Drawing.Size(277, 22)
Me.ToolStripMenuItem2.Size = New System.Drawing.Size(285, 30)
Me.ToolStripMenuItem2.Text = "Vollmachten"
'
'toolStrVM_de
@@ -1375,38 +1374,38 @@ Partial Class frmHauptfenster
'ToolStripMenuItem7
'
Me.ToolStripMenuItem7.Name = "ToolStripMenuItem7"
Me.ToolStripMenuItem7.Size = New System.Drawing.Size(277, 22)
Me.ToolStripMenuItem7.Size = New System.Drawing.Size(285, 30)
Me.ToolStripMenuItem7.Text = "Gestellungsgarantien"
'
'ToolStripMenuItem12
'
Me.ToolStripMenuItem12.Name = "ToolStripMenuItem12"
Me.ToolStripMenuItem12.Size = New System.Drawing.Size(277, 22)
Me.ToolStripMenuItem12.Size = New System.Drawing.Size(285, 30)
Me.ToolStripMenuItem12.Text = "Importaviso"
'
'ToolStripMenuItem15
'
Me.ToolStripMenuItem15.Name = "ToolStripMenuItem15"
Me.ToolStripMenuItem15.Size = New System.Drawing.Size(277, 22)
Me.ToolStripMenuItem15.Size = New System.Drawing.Size(285, 30)
Me.ToolStripMenuItem15.Text = "Dispoliste"
'
'ToolStripMenuItem18
'
Me.ToolStripMenuItem18.Name = "ToolStripMenuItem18"
Me.ToolStripMenuItem18.Size = New System.Drawing.Size(277, 22)
Me.ToolStripMenuItem18.Size = New System.Drawing.Size(285, 30)
Me.ToolStripMenuItem18.Text = "Verzollungspreise"
'
'AuftragÜberwachungsdokumentToolStripMenuItem
'
Me.AuftragÜberwachungsdokumentToolStripMenuItem.Name = "AuftragÜberwachungsdokumentToolStripMenuItem"
Me.AuftragÜberwachungsdokumentToolStripMenuItem.Size = New System.Drawing.Size(277, 22)
Me.AuftragÜberwachungsdokumentToolStripMenuItem.Size = New System.Drawing.Size(285, 30)
Me.AuftragÜberwachungsdokumentToolStripMenuItem.Text = "Auftrag Überwachungsdokument"
'
'toolVUB
'
Me.toolVUB.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.VUBVERAGSpeditionAGToolStripMenuItem, Me.VeragCustomsServiceToolStripMenuItem})
Me.toolVUB.Name = "toolVUB"
Me.toolVUB.Size = New System.Drawing.Size(277, 22)
Me.toolVUB.Size = New System.Drawing.Size(285, 30)
Me.toolVUB.Text = "VUB"
'
'VUBVERAGSpeditionAGToolStripMenuItem
@@ -1424,37 +1423,37 @@ Partial Class frmHauptfenster
'toolVPCreditreform
'
Me.toolVPCreditreform.Name = "toolVPCreditreform"
Me.toolVPCreditreform.Size = New System.Drawing.Size(277, 22)
Me.toolVPCreditreform.Size = New System.Drawing.Size(285, 30)
Me.toolVPCreditreform.Text = "Bonitätsauskunft (Creditreform)"
Me.toolVPCreditreform.Visible = False
'
'ToolStripSeparator9
'
Me.ToolStripSeparator9.Name = "ToolStripSeparator9"
Me.ToolStripSeparator9.Size = New System.Drawing.Size(274, 6)
Me.ToolStripSeparator9.Size = New System.Drawing.Size(282, 6)
'
'VerzollungsunterlagenToolStripMenuItem
'
Me.VerzollungsunterlagenToolStripMenuItem.Name = "VerzollungsunterlagenToolStripMenuItem"
Me.VerzollungsunterlagenToolStripMenuItem.Size = New System.Drawing.Size(277, 22)
Me.VerzollungsunterlagenToolStripMenuItem.Size = New System.Drawing.Size(285, 30)
Me.VerzollungsunterlagenToolStripMenuItem.Text = "Verzollungsunterlagen"
'
'ToolStripMenuItem11
'
Me.ToolStripMenuItem11.Name = "ToolStripMenuItem11"
Me.ToolStripMenuItem11.Size = New System.Drawing.Size(277, 22)
Me.ToolStripMenuItem11.Size = New System.Drawing.Size(285, 30)
Me.ToolStripMenuItem11.Text = "Verzollungsunterlagen BAR"
'
'ToolStripSeparator6
'
Me.ToolStripSeparator6.Name = "ToolStripSeparator6"
Me.ToolStripSeparator6.Size = New System.Drawing.Size(274, 6)
Me.ToolStripSeparator6.Size = New System.Drawing.Size(282, 6)
'
'WAIDHAUSToolStripMenuItem
'
Me.WAIDHAUSToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem8, Me.ToolStripMenuItem9, Me.AnnahmeblattIMPORTToolStripMenuItem, Me.AnnahmeblattEXPORTToolStripMenuItem, Me.ChecklisteVerwahrlagerToolStripMenuItem})
Me.WAIDHAUSToolStripMenuItem.Name = "WAIDHAUSToolStripMenuItem"
Me.WAIDHAUSToolStripMenuItem.Size = New System.Drawing.Size(277, 22)
Me.WAIDHAUSToolStripMenuItem.Size = New System.Drawing.Size(285, 30)
Me.WAIDHAUSToolStripMenuItem.Text = "WAIDHAUS"
'
'ToolStripMenuItem8
@@ -1487,58 +1486,39 @@ Partial Class frmHauptfenster
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(274, 6)
Me.ToolStripSeparator13.Size = New System.Drawing.Size(282, 6)
'
'EinheitspapierToolStripMenuItem
'
Me.EinheitspapierToolStripMenuItem.Name = "EinheitspapierToolStripMenuItem"
Me.EinheitspapierToolStripMenuItem.Size = New System.Drawing.Size(277, 22)
Me.EinheitspapierToolStripMenuItem.Size = New System.Drawing.Size(285, 30)
Me.EinheitspapierToolStripMenuItem.Text = "Einheitspapier 0777 (Vereinfachte ZA)"
'
'CMRToolStripMenuItem
'
Me.CMRToolStripMenuItem.Name = "CMRToolStripMenuItem"
Me.CMRToolStripMenuItem.Size = New System.Drawing.Size(277, 22)
Me.CMRToolStripMenuItem.Size = New System.Drawing.Size(285, 30)
Me.CMRToolStripMenuItem.Text = "CMR"
'
'Einheitspapier0735VersandverfahrenToolStripMenuItem
'
Me.Einheitspapier0735VersandverfahrenToolStripMenuItem.Name = "Einheitspapier0735VersandverfahrenToolStripMenuItem"
Me.Einheitspapier0735VersandverfahrenToolStripMenuItem.Size = New System.Drawing.Size(277, 22)
Me.Einheitspapier0735VersandverfahrenToolStripMenuItem.Size = New System.Drawing.Size(285, 30)
Me.Einheitspapier0735VersandverfahrenToolStripMenuItem.Text = "Einheitspapier 0735 (Versandverfahren)"
'
'CarnetTIRToolStripMenuItem
'
Me.CarnetTIRToolStripMenuItem.Name = "CarnetTIRToolStripMenuItem"
Me.CarnetTIRToolStripMenuItem.Size = New System.Drawing.Size(277, 22)
Me.CarnetTIRToolStripMenuItem.Size = New System.Drawing.Size(285, 30)
Me.CarnetTIRToolStripMenuItem.Text = "Carnet TIR"
'
'CarnetTIRALTToolStripMenuItem
'
Me.CarnetTIRALTToolStripMenuItem.Name = "CarnetTIRALTToolStripMenuItem"
Me.CarnetTIRALTToolStripMenuItem.Size = New System.Drawing.Size(277, 22)
Me.CarnetTIRALTToolStripMenuItem.Size = New System.Drawing.Size(285, 30)
Me.CarnetTIRALTToolStripMenuItem.Text = "Carnet TIR (ALT)"
'
'mnuFragezeichen
@@ -2743,38 +2723,38 @@ Partial Class frmHauptfenster
Me.gridMyAviso.AllowUserToDeleteRows = False
Me.gridMyAviso.AllowUserToOrderColumns = True
Me.gridMyAviso.AllowUserToResizeRows = False
DataGridViewCellStyle1.BackColor = System.Drawing.Color.Azure
Me.gridMyAviso.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
DataGridViewCellStyle28.BackColor = System.Drawing.Color.Azure
Me.gridMyAviso.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle28
Me.gridMyAviso.BackgroundColor = System.Drawing.Color.White
DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle2.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!)
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.gridMyAviso.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle2
DataGridViewCellStyle29.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle29.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle29.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!)
DataGridViewCellStyle29.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle29.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle29.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle29.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.gridMyAviso.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle29
Me.gridMyAviso.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle3.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle3.Font = New System.Drawing.Font("Microsoft Sans Serif", 5.5!, 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.gridMyAviso.DefaultCellStyle = DataGridViewCellStyle3
DataGridViewCellStyle30.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle30.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle30.Font = New System.Drawing.Font("Microsoft Sans Serif", 5.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle30.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle30.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle30.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle30.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.gridMyAviso.DefaultCellStyle = DataGridViewCellStyle30
Me.gridMyAviso.Dock = System.Windows.Forms.DockStyle.Fill
Me.gridMyAviso.Location = New System.Drawing.Point(0, 21)
Me.gridMyAviso.Name = "gridMyAviso"
Me.gridMyAviso.ReadOnly = True
DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle4.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle4.Font = New System.Drawing.Font("Microsoft Sans Serif", 5.5!, 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.[True]
Me.gridMyAviso.RowHeadersDefaultCellStyle = DataGridViewCellStyle4
DataGridViewCellStyle31.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle31.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle31.Font = New System.Drawing.Font("Microsoft Sans Serif", 5.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle31.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle31.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle31.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle31.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.gridMyAviso.RowHeadersDefaultCellStyle = DataGridViewCellStyle31
Me.gridMyAviso.RowHeadersVisible = False
Me.gridMyAviso.RowHeadersWidth = 62
Me.gridMyAviso.Size = New System.Drawing.Size(328, 279)
@@ -3201,47 +3181,47 @@ Partial Class frmHauptfenster
Me.gridAviso.AllowUserToAddRows = False
Me.gridAviso.AllowUserToDeleteRows = False
Me.gridAviso.AllowUserToResizeRows = False
DataGridViewCellStyle5.BackColor = System.Drawing.Color.Azure
DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.gridAviso.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle5
DataGridViewCellStyle32.BackColor = System.Drawing.Color.Azure
DataGridViewCellStyle32.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.gridAviso.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle32
Me.gridAviso.BackgroundColor = System.Drawing.Color.DarkGray
Me.gridAviso.ClipboardCopyMode = System.Windows.Forms.DataGridViewClipboardCopyMode.Disable
DataGridViewCellStyle6.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle6.BackColor = System.Drawing.Color.LightBlue
DataGridViewCellStyle6.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle6.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle6.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle6.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.gridAviso.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle6
DataGridViewCellStyle33.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle33.BackColor = System.Drawing.Color.LightBlue
DataGridViewCellStyle33.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle33.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle33.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle33.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle33.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.gridAviso.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle33
Me.gridAviso.ColumnHeadersHeight = 25
Me.gridAviso.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing
DataGridViewCellStyle7.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle7.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle7.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle7.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle7.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle7.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.gridAviso.DefaultCellStyle = DataGridViewCellStyle7
DataGridViewCellStyle34.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle34.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle34.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle34.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle34.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle34.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle34.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.gridAviso.DefaultCellStyle = DataGridViewCellStyle34
Me.gridAviso.Dock = System.Windows.Forms.DockStyle.Fill
Me.gridAviso.Location = New System.Drawing.Point(0, 248)
Me.gridAviso.MultiSelect = False
Me.gridAviso.Name = "gridAviso"
Me.gridAviso.ReadOnly = True
DataGridViewCellStyle8.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle8.BackColor = System.Drawing.SystemColors.Control
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.WindowText
DataGridViewCellStyle8.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle8.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle8.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.gridAviso.RowHeadersDefaultCellStyle = DataGridViewCellStyle8
DataGridViewCellStyle35.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle35.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle35.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle35.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle35.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle35.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle35.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.gridAviso.RowHeadersDefaultCellStyle = DataGridViewCellStyle35
Me.gridAviso.RowHeadersVisible = False
Me.gridAviso.RowHeadersWidth = 62
Me.gridAviso.RowHeadersWidthSizeMode = System.Windows.Forms.DataGridViewRowHeadersWidthSizeMode.DisableResizing
DataGridViewCellStyle9.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.gridAviso.RowsDefaultCellStyle = DataGridViewCellStyle9
DataGridViewCellStyle36.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.gridAviso.RowsDefaultCellStyle = DataGridViewCellStyle36
Me.gridAviso.RowTemplate.ReadOnly = True
Me.gridAviso.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[False]
Me.gridAviso.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
@@ -4092,11 +4072,24 @@ Partial Class frmHauptfenster
Me.Panel7.Size = New System.Drawing.Size(252, 51)
Me.Panel7.TabIndex = 4
'
'DEZollernToolStripMenuItem
'ToolStripMenuItem3
'
Me.DEZollernToolStripMenuItem.Name = "DEZollernToolStripMenuItem"
Me.DEZollernToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
Me.DEZollernToolStripMenuItem.Text = "DE | Zollern"
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"
'
'frmHauptfenster
'
@@ -4566,5 +4559,4 @@ Partial Class frmHauptfenster
Friend WithEvents ToolStripMenuItem3 As ToolStripMenuItem
Friend WithEvents ToolStripMenuItem23 As ToolStripMenuItem
Friend WithEvents ToolStripMenuItem25 As ToolStripMenuItem
Friend WithEvents DEZollernToolStripMenuItem As ToolStripMenuItem
End Class

View File

@@ -257,6 +257,9 @@
sDvNfNUAAAAASUVORK5CYII=
</value>
</data>
<metadata name="ToolTip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>560, 17</value>
</metadata>
<metadata name="BackgroundWorker1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>659, 17</value>
</metadata>

View File

@@ -4781,20 +4781,17 @@ ELSE_ATILLA:
Process.Start("https://www.ros.ie/customs-roro-control-web/ros/pbn/create")
End Sub
Private Sub ATGesamtsicherheitVeragAGToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ATVeragAGToolStripMenuItem.Click, DEVeragGmbHToolStripMenuItem.Click, ATImexCSToolStripMenuItem.Click, ATVeragCSToolStripMenuItem.Click, ATUnispedGmbHToolStripMenuItem.Click, DEAmbarToolStripMenuItem.Click, ATAtillaToolStripMenuItem.Click, DEZollernToolStripMenuItem.Click
Private Sub ATGesamtsicherheitVeragAGToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ATVeragAGToolStripMenuItem.Click, DEVeragGmbHToolStripMenuItem.Click, ATImexCSToolStripMenuItem.Click, ATVeragCSToolStripMenuItem.Click, ATUnispedGmbHToolStripMenuItem.Click, DEAmbarToolStripMenuItem.Click, ATAtillaToolStripMenuItem.Click
Dim frm As New frmGesamtsicherheitenMenuNEU()
Select Case sender.name
Case "ATVeragAGToolStripMenuItem" : frm.Standort = Sicherheiten_Standort.VERAG_AG
Case "DEVeragGmbHToolStripMenuItem" : frm.Standort = Sicherheiten_Standort.VERAG_GMBH
Case "ATImexCSToolStripMenuItem" : frm.Standort = Sicherheiten_Standort.IMEX
Case "ATVeragCSToolStripMenuItem" : frm.Standort = Sicherheiten_Standort.VERAG_CS
Case "ATUnispedGmbHToolStripMenuItem" : frm.Standort = Sicherheiten_Standort.UNISPED
Case "DEAmbarToolStripMenuItem" : frm.Standort = Sicherheiten_Standort.AMBAR
Case "ATAtillaToolStripMenuItem" : frm.Standort = Sicherheiten_Standort.ATILLA
Case "DEZollernToolStripMenuItem" : frm.Standort = Sicherheiten_Standort.ZOLLERN
Case "ATVeragAGToolStripMenuItem" : frm.Standort = "VERAG AG"
Case "DEVeragGmbHToolStripMenuItem" : frm.Standort = "Verag GmbH"
Case "ATImexCSToolStripMenuItem" : frm.Standort = "IMEX"
Case "ATVeragCSToolStripMenuItem" : frm.Standort = "Verag CS"
Case "ATUnispedGmbHToolStripMenuItem" : frm.Standort = "Unisped GmbH"
Case "DEAmbarToolStripMenuItem" : frm.Standort = "AMBAR GmbH"
Case "ATAtillaToolStripMenuItem" : frm.Standort = "Atilla GmbH"
End Select
frm.Show()

View File

@@ -177,9 +177,6 @@ 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()
@@ -280,12 +277,17 @@ 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)
@@ -311,23 +313,20 @@ 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()
@@ -353,6 +352,7 @@ 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,7 +363,6 @@ Partial Class frmHauptfensterNew
Me.Panel5.SuspendLayout()
Me.TabControl1.SuspendLayout()
Me.TabPage1.SuspendLayout()
Me.MyFlowLayoutPanel1.SuspendLayout()
Me.SuspendLayout()
'
'mnuInfo
@@ -1161,20 +1160,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(277, 22)
Me.MANAGERToolStripMenuItem.Size = New System.Drawing.Size(285, 30)
Me.MANAGERToolStripMenuItem.Text = "Formular - Manager"
'
'ToolStripSeparator3
'
Me.ToolStripSeparator3.Name = "ToolStripSeparator3"
Me.ToolStripSeparator3.Size = New System.Drawing.Size(274, 6)
Me.ToolStripSeparator3.Size = New System.Drawing.Size(282, 6)
'
'MailvorlagenToolStripMenuItem
'
Me.MailvorlagenToolStripMenuItem.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Bold)
Me.MailvorlagenToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.stift
Me.MailvorlagenToolStripMenuItem.Name = "MailvorlagenToolStripMenuItem"
Me.MailvorlagenToolStripMenuItem.Size = New System.Drawing.Size(277, 22)
Me.MailvorlagenToolStripMenuItem.Size = New System.Drawing.Size(285, 30)
Me.MailvorlagenToolStripMenuItem.Text = "Mailvorlagen"
Me.MailvorlagenToolStripMenuItem.Visible = False
'
@@ -1182,7 +1181,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(277, 22)
Me.ToolStripMenuItem2.Size = New System.Drawing.Size(285, 30)
Me.ToolStripMenuItem2.Text = "Vollmachten"
'
'toolStrVM_de
@@ -1218,38 +1217,38 @@ Partial Class frmHauptfensterNew
'ToolStripMenuItem7
'
Me.ToolStripMenuItem7.Name = "ToolStripMenuItem7"
Me.ToolStripMenuItem7.Size = New System.Drawing.Size(277, 22)
Me.ToolStripMenuItem7.Size = New System.Drawing.Size(285, 30)
Me.ToolStripMenuItem7.Text = "Gestellungsgarantien"
'
'ToolStripMenuItem12
'
Me.ToolStripMenuItem12.Name = "ToolStripMenuItem12"
Me.ToolStripMenuItem12.Size = New System.Drawing.Size(277, 22)
Me.ToolStripMenuItem12.Size = New System.Drawing.Size(285, 30)
Me.ToolStripMenuItem12.Text = "Importaviso"
'
'ToolStripMenuItem15
'
Me.ToolStripMenuItem15.Name = "ToolStripMenuItem15"
Me.ToolStripMenuItem15.Size = New System.Drawing.Size(277, 22)
Me.ToolStripMenuItem15.Size = New System.Drawing.Size(285, 30)
Me.ToolStripMenuItem15.Text = "Dispoliste"
'
'ToolStripMenuItem18
'
Me.ToolStripMenuItem18.Name = "ToolStripMenuItem18"
Me.ToolStripMenuItem18.Size = New System.Drawing.Size(277, 22)
Me.ToolStripMenuItem18.Size = New System.Drawing.Size(285, 30)
Me.ToolStripMenuItem18.Text = "Verzollungspreise"
'
'AuftragÜberwachungsdokumentToolStripMenuItem
'
Me.AuftragÜberwachungsdokumentToolStripMenuItem.Name = "AuftragÜberwachungsdokumentToolStripMenuItem"
Me.AuftragÜberwachungsdokumentToolStripMenuItem.Size = New System.Drawing.Size(277, 22)
Me.AuftragÜberwachungsdokumentToolStripMenuItem.Size = New System.Drawing.Size(285, 30)
Me.AuftragÜberwachungsdokumentToolStripMenuItem.Text = "Auftrag Überwachungsdokument"
'
'toolVUB
'
Me.toolVUB.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.VUBVERAGSpeditionAGToolStripMenuItem, Me.VeragCustomsServiceToolStripMenuItem})
Me.toolVUB.Name = "toolVUB"
Me.toolVUB.Size = New System.Drawing.Size(277, 22)
Me.toolVUB.Size = New System.Drawing.Size(285, 30)
Me.toolVUB.Text = "VUB"
'
'VUBVERAGSpeditionAGToolStripMenuItem
@@ -1267,37 +1266,37 @@ Partial Class frmHauptfensterNew
'toolVPCreditreform
'
Me.toolVPCreditreform.Name = "toolVPCreditreform"
Me.toolVPCreditreform.Size = New System.Drawing.Size(277, 22)
Me.toolVPCreditreform.Size = New System.Drawing.Size(285, 30)
Me.toolVPCreditreform.Text = "Bonitätsauskunft (Creditreform)"
Me.toolVPCreditreform.Visible = False
'
'ToolStripSeparator9
'
Me.ToolStripSeparator9.Name = "ToolStripSeparator9"
Me.ToolStripSeparator9.Size = New System.Drawing.Size(274, 6)
Me.ToolStripSeparator9.Size = New System.Drawing.Size(282, 6)
'
'VerzollungsunterlagenToolStripMenuItem
'
Me.VerzollungsunterlagenToolStripMenuItem.Name = "VerzollungsunterlagenToolStripMenuItem"
Me.VerzollungsunterlagenToolStripMenuItem.Size = New System.Drawing.Size(277, 22)
Me.VerzollungsunterlagenToolStripMenuItem.Size = New System.Drawing.Size(285, 30)
Me.VerzollungsunterlagenToolStripMenuItem.Text = "Verzollungsunterlagen"
'
'ToolStripMenuItem11
'
Me.ToolStripMenuItem11.Name = "ToolStripMenuItem11"
Me.ToolStripMenuItem11.Size = New System.Drawing.Size(277, 22)
Me.ToolStripMenuItem11.Size = New System.Drawing.Size(285, 30)
Me.ToolStripMenuItem11.Text = "Verzollungsunterlagen BAR"
'
'ToolStripSeparator6
'
Me.ToolStripSeparator6.Name = "ToolStripSeparator6"
Me.ToolStripSeparator6.Size = New System.Drawing.Size(274, 6)
Me.ToolStripSeparator6.Size = New System.Drawing.Size(282, 6)
'
'WAIDHAUSToolStripMenuItem
'
Me.WAIDHAUSToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem8, Me.ToolStripMenuItem9, Me.AnnahmeblattIMPORTToolStripMenuItem, Me.AnnahmeblattEXPORTToolStripMenuItem, Me.ChecklisteVerwahrlagerToolStripMenuItem})
Me.WAIDHAUSToolStripMenuItem.Name = "WAIDHAUSToolStripMenuItem"
Me.WAIDHAUSToolStripMenuItem.Size = New System.Drawing.Size(277, 22)
Me.WAIDHAUSToolStripMenuItem.Size = New System.Drawing.Size(285, 30)
Me.WAIDHAUSToolStripMenuItem.Text = "WAIDHAUS"
'
'ToolStripMenuItem8
@@ -1330,58 +1329,39 @@ 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(274, 6)
Me.ToolStripSeparator13.Size = New System.Drawing.Size(282, 6)
'
'EinheitspapierToolStripMenuItem
'
Me.EinheitspapierToolStripMenuItem.Name = "EinheitspapierToolStripMenuItem"
Me.EinheitspapierToolStripMenuItem.Size = New System.Drawing.Size(277, 22)
Me.EinheitspapierToolStripMenuItem.Size = New System.Drawing.Size(285, 30)
Me.EinheitspapierToolStripMenuItem.Text = "Einheitspapier 0777 (Vereinfachte ZA)"
'
'CMRToolStripMenuItem
'
Me.CMRToolStripMenuItem.Name = "CMRToolStripMenuItem"
Me.CMRToolStripMenuItem.Size = New System.Drawing.Size(277, 22)
Me.CMRToolStripMenuItem.Size = New System.Drawing.Size(285, 30)
Me.CMRToolStripMenuItem.Text = "CMR"
'
'Einheitspapier0735VersandverfahrenToolStripMenuItem
'
Me.Einheitspapier0735VersandverfahrenToolStripMenuItem.Name = "Einheitspapier0735VersandverfahrenToolStripMenuItem"
Me.Einheitspapier0735VersandverfahrenToolStripMenuItem.Size = New System.Drawing.Size(277, 22)
Me.Einheitspapier0735VersandverfahrenToolStripMenuItem.Size = New System.Drawing.Size(285, 30)
Me.Einheitspapier0735VersandverfahrenToolStripMenuItem.Text = "Einheitspapier 0735 (Versandverfahren)"
'
'CarnetTIRToolStripMenuItem
'
Me.CarnetTIRToolStripMenuItem.Name = "CarnetTIRToolStripMenuItem"
Me.CarnetTIRToolStripMenuItem.Size = New System.Drawing.Size(277, 22)
Me.CarnetTIRToolStripMenuItem.Size = New System.Drawing.Size(285, 30)
Me.CarnetTIRToolStripMenuItem.Text = "Carnet TIR"
'
'CarnetTIRALTToolStripMenuItem
'
Me.CarnetTIRALTToolStripMenuItem.Name = "CarnetTIRALTToolStripMenuItem"
Me.CarnetTIRALTToolStripMenuItem.Size = New System.Drawing.Size(277, 22)
Me.CarnetTIRALTToolStripMenuItem.Size = New System.Drawing.Size(285, 30)
Me.CarnetTIRALTToolStripMenuItem.Text = "Carnet TIR (ALT)"
'
'mnuFragezeichen
@@ -1840,10 +1820,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(8, 8)
Me.btnRefresh.Location = New System.Drawing.Point(11, 8)
Me.btnRefresh.Margin = New System.Windows.Forms.Padding(0)
Me.btnRefresh.Name = "btnRefresh"
Me.btnRefresh.Size = New System.Drawing.Size(156, 76)
Me.btnRefresh.Size = New System.Drawing.Size(135, 72)
Me.btnRefresh.TabIndex = 1
Me.btnRefresh.Text = "Aktualisieren"
Me.btnRefresh.TextAlign = System.Drawing.ContentAlignment.BottomCenter
@@ -2071,7 +2051,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(774, 5)
Me.pnlAktOption.Size = New System.Drawing.Size(789, 5)
Me.pnlAktOption.TabIndex = 1
'
'Button8
@@ -2401,9 +2381,117 @@ 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(593, 65)
Me.FlowLayoutPanel2.Size = New System.Drawing.Size(608, 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
@@ -2463,35 +2551,16 @@ 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(774, 0)
Me.Panel9.Location = New System.Drawing.Point(789, 0)
Me.Panel9.Name = "Panel9"
Me.Panel9.Size = New System.Drawing.Size(171, 157)
Me.Panel9.Size = New System.Drawing.Size(156, 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))
@@ -2500,15 +2569,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.TopCenter
Me.Button4.Location = New System.Drawing.Point(8, 84)
Me.Button4.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button4.Location = New System.Drawing.Point(11, 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(79, 73)
Me.Button4.Size = New System.Drawing.Size(135, 52)
Me.Button4.TabIndex = 8
Me.Button4.Text = "TariffAI"
Me.Button4.TextAlign = System.Drawing.ContentAlignment.BottomCenter
Me.Button4.Text = "Tariff AI"
Me.Button4.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button4.UseVisualStyleBackColor = False
'
'btnSmall
@@ -2680,10 +2749,17 @@ 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)
@@ -2701,16 +2777,6 @@ 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
@@ -2726,6 +2792,7 @@ 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)
@@ -2745,6 +2812,43 @@ 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))
@@ -2765,155 +2869,31 @@ 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!)
@@ -2961,6 +2941,7 @@ 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)
@@ -2973,7 +2954,6 @@ Partial Class frmHauptfensterNew
Me.Panel5.PerformLayout()
Me.TabControl1.ResumeLayout(False)
Me.TabPage1.ResumeLayout(False)
Me.MyFlowLayoutPanel1.ResumeLayout(False)
Me.ResumeLayout(False)
Me.PerformLayout()
@@ -3252,9 +3232,10 @@ 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 usrCntlBenachrichtigungenNEW
Friend WithEvents UsrCntlBenachrichtigungen2 As usrCntlBenachrichtigungen
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
@@ -3280,6 +3261,4 @@ 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

View File

@@ -119,20 +119,19 @@ Public Class frmHauptfensterNew
Dim SelectedBtn As Button = Nothing
' Dim init = False
Select Case SEARCH_AVISO_AKTIV
Case "SND"
splitMainWorkingView.Panel2Collapsed = True
SetBtnSelectedolor(btnVIEW_SND) ' SelectedBtn = btnVIEW_SND
If SEARCH_SND Is Nothing Then SEARCH_SND = New usrCntlHauptfenster_Suche_SND ': init = True
SelectedBtn = btnVIEW_SND
If SEARCH_SND Is Nothing Then SEARCH_SND = New usrCntlHauptfenster_Suche_SND
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)
@@ -210,74 +209,19 @@ 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
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
If SEARCH_SND IsNot Nothing Then SEARCH_SND.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID, True)
Case "AVISO"
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_AVISO IsNot Nothing Then SEARCH_AVISO.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID, True)
Case "AVISO_SND_KOMBI"
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
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)
End Select
refreshPnlRight(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
UsrCntlBenachrichtigungen2.initDgvAvisoBenachrichtigungen(Grid_aktiv, gridFont)
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
@@ -296,7 +240,7 @@ Public Class frmHauptfensterNew
If e.KeyCode = Keys.F11 Then
FUNC.AktUebernehmen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
RELOAD_AVISO_MAIN(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
SEARCH_AVISO.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
End If
If e.KeyCode = Keys.Escape Then
@@ -783,8 +727,6 @@ 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)
@@ -809,10 +751,7 @@ 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
@@ -820,54 +759,13 @@ 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")
@@ -882,7 +780,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))
@@ -1593,8 +1491,8 @@ ELSE_ATILLA:
Try
If DateDiff(DateInterval.Second, hMerkZeit, Now) > 60 Then
RELOAD_AVISO_MAIN(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID) 'hMerkZeit wird in aviso_anzeigen aktualisiert
'UsrCntlBenachrichtigungen2.initDgvAvisoBenachrichtigungen(Grid_aktiv, gridFont)
SEARCH_AVISO.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID) 'hMerkZeit wird in aviso_anzeigen aktualisiert
UsrCntlBenachrichtigungen2.initDgvAvisoBenachrichtigungen(Grid_aktiv, gridFont)
End If
Catch ex As Exception
@@ -1732,21 +1630,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)
@@ -1758,8 +1656,7 @@ 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
Refresh_Reload_AVISO(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
SEARCH_AVISO.avisoAktualisierenAktiveIdBehalten(tmpId, False)
End If
@@ -1769,94 +1666,31 @@ ELSE_ATILLA:
End Sub
Private Sub UsrCntlBenachrichtigungen2_SelectionChanged() Handles UsrCntlBenachrichtigungen2.SelectionChanged
Private Sub dgvSendungen_CellContentClick() 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
' ausgewählte Zeile
Dim row = grid.SelectedRows(0)
If UsrCntlBenachrichtigungen2.gridAvisoBenachrichtigungen.SelectedRows.Count = 1 Then
' 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)
SEARCH_AVISO.gridAviso.ClearSelection()
' MsgBox(Grid_aktiv)
' 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)
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)
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
@@ -1864,56 +1698,6 @@ 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
@@ -1980,9 +1764,7 @@ 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)
RELOAD_AVISO_MAIN(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
SEARCH_AVISO.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID, True)
Timer1.Enabled = True
End Sub
@@ -2051,12 +1833,14 @@ ELSE_ATILLA:
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
'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
@@ -3320,7 +3104,6 @@ ELSE_ATILLA:
Exit Sub
End If
Try
If frmLogin.AnmeldungOK Then
' newNotify(frmNotify.cNotify_ART.NEUER_CHAT, 0, "XXX Chat-Nachricht!", -1) 'TEST
@@ -3367,10 +3150,7 @@ 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)
@@ -4124,7 +3904,7 @@ ELSE_ATILLA:
Grid_aktiv = False
SWITCH_SEARCH("AVISO")
'SEARCH_AVISO.RESET()
SEARCH_AVISO.RESET()
Grid_aktiv = True
End Sub
@@ -4158,35 +3938,28 @@ 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()
@@ -4197,27 +3970,4 @@ 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

View File

@@ -1,96 +0,0 @@
<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

File diff suppressed because it is too large Load Diff

View File

@@ -1,35 +0,0 @@
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

View File

@@ -643,4 +643,7 @@ Public Class frmLaufzettel
Me.Cursor = Cursors.Default
End Sub
Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles cbxAktenzettelDruck.CheckedChanged
End Sub
End Class

View File

@@ -218,13 +218,13 @@ Public Class frmLogin
Dim SQLSTR = "
SELECT AVISOID,KDNR FROM
(
SELECT AvisoId,Auftraggeber_KdNr as KDNR FROM [Aviso] where datum >=DATEADD(DAY,-4,GETDATE()) and Firma IN ('VERAG','IMEX','AMBAR','UNISPED') and cast(datum as date)> '29.01.2024' and status NOT IN (1,2)
SELECT AvisoId,Auftraggeber_KdNr as KDNR FROM [Aviso] where datum >=DATEADD(DAY,-4,GETDATE()) and Firma IN ('VERAG','IMEX') and cast(datum as date)> '29.01.2024' and status NOT IN (1,2)
UNION
SELECT AvisoId,Frächter_KdNr as KDNR FROM [Aviso] where datum >=DATEADD(DAY,-4,GETDATE()) and Firma IN ('VERAG','IMEX','AMBAR','UNISPED') and cast(datum as date)> '29.01.2024' and status NOT IN (1,2)
SELECT AvisoId,Frächter_KdNr as KDNR FROM [Aviso] where datum >=DATEADD(DAY,-4,GETDATE()) and Firma IN ('VERAG','IMEX') and cast(datum as date)> '29.01.2024' and status NOT IN (1,2)
UNION
SELECT AvisoId,tblSnd_AvisiererKdNr as KDNR FROM [Aviso] inner join tblSendungen on tblSnd_AvisoID=AvisoID where datum >=DATEADD(DAY,-4,GETDATE()) and Firma IN ('VERAG','IMEX','AMBAR','UNISPED') and cast(datum as date)> '29.01.2024' and status NOT IN (1,2)
SELECT AvisoId,tblSnd_AvisiererKdNr as KDNR FROM [Aviso] inner join tblSendungen on tblSnd_AvisoID=AvisoID where datum >=DATEADD(DAY,-4,GETDATE()) and Firma IN ('VERAG','IMEX') and cast(datum as date)> '29.01.2024' and status NOT IN (1,2)
UNION
SELECT AvisoId,tblSnd_FrachtfuehrerKdNr as KDNR FROM [Aviso] inner join tblSendungen on tblSnd_AvisoID=AvisoID where datum >=DATEADD(DAY,-4,GETDATE()) and Firma IN ('VERAG','IMEX','AMBAR','UNISPED') and cast(datum as date)> '29.01.2024' and status NOT IN (1,2)
SELECT AvisoId,tblSnd_FrachtfuehrerKdNr as KDNR FROM [Aviso] inner join tblSendungen on tblSnd_AvisoID=AvisoID where datum >=DATEADD(DAY,-4,GETDATE()) and Firma IN ('VERAG','IMEX') and cast(datum as date)> '29.01.2024' and status NOT IN (1,2)
) as T1
where KDNR is not null and kdnr >0
/*and(SELECT COUNT(*) FROM tblAvisoStatusMails where asm_AvisoId=AvisoID AND asm_KdNr=KdNr and asm_StatuscodeSent=5) =0 */
@@ -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

View File

@@ -0,0 +1,486 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class frmSendungsDokumentanforderung
Inherits System.Windows.Forms.Form
<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
Private components As System.ComponentModel.IContainer
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Me.flpDokumenteFehlenMain = New System.Windows.Forms.FlowLayoutPanel()
Me.cbxSonstDok = New System.Windows.Forms.CheckBox()
Me.txtSonstigesDokumentFehlt = New System.Windows.Forms.TextBox()
Me.cbxNichtLeserlich = New System.Windows.Forms.CheckBox()
Me.lblErrDokument = New System.Windows.Forms.Label()
Me.pnlDocumentEditor = New System.Windows.Forms.Panel()
Me.flpDocumentTabs = New System.Windows.Forms.FlowLayoutPanel()
Me.lblDocumentEditorTitle = New System.Windows.Forms.Label()
Me.lblDocumentEditorName = New System.Windows.Forms.Label()
Me.txtDocumentEditorName = New System.Windows.Forms.TextBox()
Me.lblDocumentEditorAnhangsart = New System.Windows.Forms.Label()
Me.cmbDocumentEditorAnhangsart = New System.Windows.Forms.ComboBox()
Me.lblDocumentEditorInfo = New System.Windows.Forms.Label()
Me.txtDocumentEditorInfo = New System.Windows.Forms.TextBox()
Me.lblDocumentEditorStatus = New System.Windows.Forms.Label()
Me.Label5 = New System.Windows.Forms.Label()
Me.Label20 = New System.Windows.Forms.Label()
Me.btnCustomerUploadLink = New System.Windows.Forms.Button()
Me.btnCustomerUploadEmail = New System.Windows.Forms.Button()
Me.txtCustomerUploadEmail = New System.Windows.Forms.TextBox()
Me.lblCustomerUploadEmail = New System.Windows.Forms.Label()
Me.lblCustomerUploadValidityHours = New System.Windows.Forms.Label()
Me.nudCustomerUploadValidityHours = New System.Windows.Forms.NumericUpDown()
Me.cmbCustomerUploadLanguage = New System.Windows.Forms.ComboBox()
Me.lblCustomerUploadLanguage = New System.Windows.Forms.Label()
Me.cmbCustomerUploadEmailTemplate = New System.Windows.Forms.ComboBox()
Me.lblCustomerUploadEmailTemplate = New System.Windows.Forms.Label()
Me.txtCustomerUploadEmailText = New System.Windows.Forms.TextBox()
Me.lblCustomerUploadEmailText = New System.Windows.Forms.Label()
Me.btnVermerkSetzen = New System.Windows.Forms.Button()
Me.lblTitel = New System.Windows.Forms.Label()
Me.lblKontaktEmails = New System.Windows.Forms.Label()
Me.dgvKontaktEmails = New System.Windows.Forms.DataGridView()
Me.pnlDocumentEditor.SuspendLayout()
CType(Me.nudCustomerUploadValidityHours, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.dgvKontaktEmails, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'flpDokumenteFehlenMain
'
Me.flpDokumenteFehlenMain.BackColor = System.Drawing.Color.Transparent
Me.flpDokumenteFehlenMain.FlowDirection = System.Windows.Forms.FlowDirection.TopDown
Me.flpDokumenteFehlenMain.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.flpDokumenteFehlenMain.Location = New System.Drawing.Point(18, 42)
Me.flpDokumenteFehlenMain.Margin = New System.Windows.Forms.Padding(0)
Me.flpDokumenteFehlenMain.Name = "flpDokumenteFehlenMain"
Me.flpDokumenteFehlenMain.Size = New System.Drawing.Size(675, 138)
Me.flpDokumenteFehlenMain.TabIndex = 0
'
'cbxSonstDok
'
Me.cbxSonstDok.AutoSize = True
Me.cbxSonstDok.Location = New System.Drawing.Point(18, 191)
Me.cbxSonstDok.Name = "cbxSonstDok"
Me.cbxSonstDok.Size = New System.Drawing.Size(83, 17)
Me.cbxSonstDok.TabIndex = 1
Me.cbxSonstDok.Text = "Dok. Name:"
Me.cbxSonstDok.UseVisualStyleBackColor = True
'
'txtSonstigesDokumentFehlt
'
Me.txtSonstigesDokumentFehlt.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.txtSonstigesDokumentFehlt.Location = New System.Drawing.Point(132, 189)
Me.txtSonstigesDokumentFehlt.MaxLength = 80
Me.txtSonstigesDokumentFehlt.Name = "txtSonstigesDokumentFehlt"
Me.txtSonstigesDokumentFehlt.Size = New System.Drawing.Size(336, 20)
Me.txtSonstigesDokumentFehlt.TabIndex = 2
'
'cbxNichtLeserlich
'
Me.cbxNichtLeserlich.AutoSize = True
Me.cbxNichtLeserlich.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.cbxNichtLeserlich.Location = New System.Drawing.Point(596, 191)
Me.cbxNichtLeserlich.Name = "cbxNichtLeserlich"
Me.cbxNichtLeserlich.Size = New System.Drawing.Size(90, 17)
Me.cbxNichtLeserlich.TabIndex = 3
Me.cbxNichtLeserlich.Text = "nicht leserlich"
Me.cbxNichtLeserlich.UseVisualStyleBackColor = True
'
'lblErrDokument
'
Me.lblErrDokument.AutoSize = True
Me.lblErrDokument.ForeColor = System.Drawing.Color.Red
Me.lblErrDokument.Location = New System.Drawing.Point(133, 212)
Me.lblErrDokument.Name = "lblErrDokument"
Me.lblErrDokument.Size = New System.Drawing.Size(157, 13)
Me.lblErrDokument.TabIndex = 4
Me.lblErrDokument.Text = "Bitte ein Dokument angegeben!"
Me.lblErrDokument.Visible = False
'
'pnlDocumentEditor
'
Me.pnlDocumentEditor.BackColor = System.Drawing.Color.WhiteSmoke
Me.pnlDocumentEditor.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.pnlDocumentEditor.Controls.Add(Me.flpDocumentTabs)
Me.pnlDocumentEditor.Controls.Add(Me.lblDocumentEditorTitle)
Me.pnlDocumentEditor.Controls.Add(Me.lblDocumentEditorName)
Me.pnlDocumentEditor.Controls.Add(Me.txtDocumentEditorName)
Me.pnlDocumentEditor.Controls.Add(Me.lblDocumentEditorAnhangsart)
Me.pnlDocumentEditor.Controls.Add(Me.cmbDocumentEditorAnhangsart)
Me.pnlDocumentEditor.Controls.Add(Me.lblDocumentEditorInfo)
Me.pnlDocumentEditor.Controls.Add(Me.txtDocumentEditorInfo)
Me.pnlDocumentEditor.Controls.Add(Me.lblDocumentEditorStatus)
Me.pnlDocumentEditor.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.pnlDocumentEditor.Location = New System.Drawing.Point(9, 226)
Me.pnlDocumentEditor.Name = "pnlDocumentEditor"
Me.pnlDocumentEditor.Size = New System.Drawing.Size(687, 201)
Me.pnlDocumentEditor.TabIndex = 5
'
'flpDocumentTabs
'
Me.flpDocumentTabs.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.flpDocumentTabs.AutoScroll = True
Me.flpDocumentTabs.BackColor = System.Drawing.Color.FromArgb(CType(CType(220, Byte), Integer), CType(CType(220, Byte), Integer), CType(CType(220, Byte), Integer))
Me.flpDocumentTabs.Location = New System.Drawing.Point(1, 0)
Me.flpDocumentTabs.Name = "flpDocumentTabs"
Me.flpDocumentTabs.Size = New System.Drawing.Size(683, 48)
Me.flpDocumentTabs.TabIndex = 0
Me.flpDocumentTabs.WrapContents = False
'
'lblDocumentEditorTitle
'
Me.lblDocumentEditorTitle.AutoSize = True
Me.lblDocumentEditorTitle.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblDocumentEditorTitle.Location = New System.Drawing.Point(10, 56)
Me.lblDocumentEditorTitle.Name = "lblDocumentEditorTitle"
Me.lblDocumentEditorTitle.Size = New System.Drawing.Size(101, 13)
Me.lblDocumentEditorTitle.TabIndex = 1
Me.lblDocumentEditorTitle.Text = "Dokumentdetails"
'
'lblDocumentEditorName
'
Me.lblDocumentEditorName.AutoSize = True
Me.lblDocumentEditorName.Location = New System.Drawing.Point(10, 87)
Me.lblDocumentEditorName.Name = "lblDocumentEditorName"
Me.lblDocumentEditorName.Size = New System.Drawing.Size(85, 13)
Me.lblDocumentEditorName.TabIndex = 2
Me.lblDocumentEditorName.Text = "Dokumentname:"
'
'txtDocumentEditorName
'
Me.txtDocumentEditorName.Location = New System.Drawing.Point(155, 84)
Me.txtDocumentEditorName.MaxLength = 120
Me.txtDocumentEditorName.Name = "txtDocumentEditorName"
Me.txtDocumentEditorName.Size = New System.Drawing.Size(206, 20)
Me.txtDocumentEditorName.TabIndex = 3
'
'lblDocumentEditorAnhangsart
'
Me.lblDocumentEditorAnhangsart.AutoSize = True
Me.lblDocumentEditorAnhangsart.Location = New System.Drawing.Point(377, 87)
Me.lblDocumentEditorAnhangsart.Name = "lblDocumentEditorAnhangsart"
Me.lblDocumentEditorAnhangsart.Size = New System.Drawing.Size(64, 13)
Me.lblDocumentEditorAnhangsart.TabIndex = 4
Me.lblDocumentEditorAnhangsart.Text = "Anhangsart:"
'
'cmbDocumentEditorAnhangsart
'
Me.cmbDocumentEditorAnhangsart.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cmbDocumentEditorAnhangsart.Location = New System.Drawing.Point(468, 84)
Me.cmbDocumentEditorAnhangsart.Name = "cmbDocumentEditorAnhangsart"
Me.cmbDocumentEditorAnhangsart.Size = New System.Drawing.Size(205, 21)
Me.cmbDocumentEditorAnhangsart.TabIndex = 5
'
'lblDocumentEditorInfo
'
Me.lblDocumentEditorInfo.AutoSize = True
Me.lblDocumentEditorInfo.Location = New System.Drawing.Point(10, 115)
Me.lblDocumentEditorInfo.Name = "lblDocumentEditorInfo"
Me.lblDocumentEditorInfo.Size = New System.Drawing.Size(80, 13)
Me.lblDocumentEditorInfo.TabIndex = 6
Me.lblDocumentEditorInfo.Text = "Dokument Info:"
'
'txtDocumentEditorInfo
'
Me.txtDocumentEditorInfo.Location = New System.Drawing.Point(155, 112)
Me.txtDocumentEditorInfo.MaxLength = 500
Me.txtDocumentEditorInfo.Name = "txtDocumentEditorInfo"
Me.txtDocumentEditorInfo.Size = New System.Drawing.Size(518, 20)
Me.txtDocumentEditorInfo.TabIndex = 7
Me.txtDocumentEditorInfo.Text = "Bitte das Dokument hochladen."
'
'lblDocumentEditorStatus
'
Me.lblDocumentEditorStatus.AutoSize = True
Me.lblDocumentEditorStatus.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(102, Byte), Integer), CType(CType(153, Byte), Integer))
Me.lblDocumentEditorStatus.Location = New System.Drawing.Point(10, 151)
Me.lblDocumentEditorStatus.Name = "lblDocumentEditorStatus"
Me.lblDocumentEditorStatus.Size = New System.Drawing.Size(339, 13)
Me.lblDocumentEditorStatus.TabIndex = 8
Me.lblDocumentEditorStatus.Text = "Wählen Sie ein Dokument, um Name und Dokument Info anzupassen."
'
'Label5
'
Me.Label5.AutoSize = True
Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label5.Location = New System.Drawing.Point(9, 438)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(202, 17)
Me.Label5.TabIndex = 6
Me.Label5.Text = "Kundenportal Upload-Link:"
'
'Label20
'
Me.Label20.AutoSize = True
Me.Label20.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(102, Byte), Integer), CType(CType(153, Byte), Integer))
Me.Label20.Location = New System.Drawing.Point(314, 442)
Me.Label20.Name = "Label20"
Me.Label20.Size = New System.Drawing.Size(207, 13)
Me.Label20.TabIndex = 7
Me.Label20.Text = "Bitte zuerst Dokument(e) oben auswählen."
'
'btnCustomerUploadLink
'
Me.btnCustomerUploadLink.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnCustomerUploadLink.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnCustomerUploadLink.Location = New System.Drawing.Point(553, 466)
Me.btnCustomerUploadLink.Name = "btnCustomerUploadLink"
Me.btnCustomerUploadLink.Size = New System.Drawing.Size(143, 30)
Me.btnCustomerUploadLink.TabIndex = 11
Me.btnCustomerUploadLink.Text = "Link kopieren"
Me.btnCustomerUploadLink.UseVisualStyleBackColor = True
'
'btnCustomerUploadEmail
'
Me.btnCustomerUploadEmail.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnCustomerUploadEmail.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnCustomerUploadEmail.Location = New System.Drawing.Point(553, 502)
Me.btnCustomerUploadEmail.Name = "btnCustomerUploadEmail"
Me.btnCustomerUploadEmail.Size = New System.Drawing.Size(143, 30)
Me.btnCustomerUploadEmail.TabIndex = 13
Me.btnCustomerUploadEmail.Text = "E-Mail senden"
Me.btnCustomerUploadEmail.UseVisualStyleBackColor = True
'
'txtCustomerUploadEmail
'
Me.txtCustomerUploadEmail.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.txtCustomerUploadEmail.Location = New System.Drawing.Point(132, 507)
Me.txtCustomerUploadEmail.MaxLength = 255
Me.txtCustomerUploadEmail.Name = "txtCustomerUploadEmail"
Me.txtCustomerUploadEmail.Size = New System.Drawing.Size(409, 20)
Me.txtCustomerUploadEmail.TabIndex = 12
'
'lblCustomerUploadEmail
'
Me.lblCustomerUploadEmail.AutoSize = True
Me.lblCustomerUploadEmail.Location = New System.Drawing.Point(9, 510)
Me.lblCustomerUploadEmail.Name = "lblCustomerUploadEmail"
Me.lblCustomerUploadEmail.Size = New System.Drawing.Size(54, 13)
Me.lblCustomerUploadEmail.TabIndex = 10
Me.lblCustomerUploadEmail.Text = "E-Mail an:"
'
'lblCustomerUploadValidityHours
'
Me.lblCustomerUploadValidityHours.AutoSize = True
Me.lblCustomerUploadValidityHours.Location = New System.Drawing.Point(262, 471)
Me.lblCustomerUploadValidityHours.Name = "lblCustomerUploadValidityHours"
Me.lblCustomerUploadValidityHours.Size = New System.Drawing.Size(66, 13)
Me.lblCustomerUploadValidityHours.TabIndex = 9
Me.lblCustomerUploadValidityHours.Text = "Gültigkeit(h):"
'
'nudCustomerUploadValidityHours
'
Me.nudCustomerUploadValidityHours.Location = New System.Drawing.Point(352, 469)
Me.nudCustomerUploadValidityHours.Maximum = New Decimal(New Integer() {168, 0, 0, 0})
Me.nudCustomerUploadValidityHours.Minimum = New Decimal(New Integer() {1, 0, 0, 0})
Me.nudCustomerUploadValidityHours.Name = "nudCustomerUploadValidityHours"
Me.nudCustomerUploadValidityHours.Size = New System.Drawing.Size(110, 20)
Me.nudCustomerUploadValidityHours.TabIndex = 10
Me.nudCustomerUploadValidityHours.Value = New Decimal(New Integer() {168, 0, 0, 0})
'
'cmbCustomerUploadLanguage
'
Me.cmbCustomerUploadLanguage.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cmbCustomerUploadLanguage.FormattingEnabled = True
Me.cmbCustomerUploadLanguage.Items.AddRange(New Object() {"de", "en", "tr", "sr", "bg"})
Me.cmbCustomerUploadLanguage.Location = New System.Drawing.Point(132, 469)
Me.cmbCustomerUploadLanguage.Name = "cmbCustomerUploadLanguage"
Me.cmbCustomerUploadLanguage.Size = New System.Drawing.Size(108, 21)
Me.cmbCustomerUploadLanguage.TabIndex = 9
'
'lblCustomerUploadLanguage
'
Me.lblCustomerUploadLanguage.AutoSize = True
Me.lblCustomerUploadLanguage.Location = New System.Drawing.Point(9, 472)
Me.lblCustomerUploadLanguage.Name = "lblCustomerUploadLanguage"
Me.lblCustomerUploadLanguage.Size = New System.Drawing.Size(72, 13)
Me.lblCustomerUploadLanguage.TabIndex = 8
Me.lblCustomerUploadLanguage.Text = "Mail Sprache:"
'
'txtCustomerUploadEmailText
'
Me.txtCustomerUploadEmailText.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.txtCustomerUploadEmailText.Location = New System.Drawing.Point(132, 570)
Me.txtCustomerUploadEmailText.MaxLength = 500
Me.txtCustomerUploadEmailText.Multiline = True
Me.txtCustomerUploadEmailText.Name = "txtCustomerUploadEmailText"
Me.txtCustomerUploadEmailText.ScrollBars = System.Windows.Forms.ScrollBars.Vertical
Me.txtCustomerUploadEmailText.Size = New System.Drawing.Size(564, 50)
Me.txtCustomerUploadEmailText.TabIndex = 14
Me.txtCustomerUploadEmailText.Text = ""
'
'lblCustomerUploadEmailText
'
Me.lblCustomerUploadEmailText.AutoSize = True
Me.lblCustomerUploadEmailText.Location = New System.Drawing.Point(9, 573)
Me.lblCustomerUploadEmailText.Name = "lblCustomerUploadEmailText"
Me.lblCustomerUploadEmailText.Size = New System.Drawing.Size(63, 13)
Me.lblCustomerUploadEmailText.TabIndex = 15
Me.lblCustomerUploadEmailText.Text = "E-Mail Text:"
'
'cmbCustomerUploadEmailTemplate
'
Me.cmbCustomerUploadEmailTemplate.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cmbCustomerUploadEmailTemplate.FormattingEnabled = True
Me.cmbCustomerUploadEmailTemplate.Location = New System.Drawing.Point(132, 543)
Me.cmbCustomerUploadEmailTemplate.Name = "cmbCustomerUploadEmailTemplate"
Me.cmbCustomerUploadEmailTemplate.Size = New System.Drawing.Size(564, 21)
Me.cmbCustomerUploadEmailTemplate.TabIndex = 19
Me.cmbCustomerUploadEmailTemplate.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
'
'lblCustomerUploadEmailTemplate
'
Me.lblCustomerUploadEmailTemplate.AutoSize = True
Me.lblCustomerUploadEmailTemplate.Location = New System.Drawing.Point(9, 546)
Me.lblCustomerUploadEmailTemplate.Name = "lblCustomerUploadEmailTemplate"
Me.lblCustomerUploadEmailTemplate.Size = New System.Drawing.Size(63, 13)
Me.lblCustomerUploadEmailTemplate.TabIndex = 20
Me.lblCustomerUploadEmailTemplate.Text = "Vorlage:"
'
'lblKontaktEmails
'
Me.lblKontaktEmails.AutoSize = True
Me.lblKontaktEmails.Location = New System.Drawing.Point(9, 628)
Me.lblKontaktEmails.Name = "lblKontaktEmails"
Me.lblKontaktEmails.Size = New System.Drawing.Size(245, 13)
Me.lblKontaktEmails.TabIndex = 17
Me.lblKontaktEmails.Text = "Hinterlegte E-Mail-Adressen (Doppelklick = Übernehmen):"
'
'dgvKontaktEmails
'
Me.dgvKontaktEmails.AllowUserToAddRows = False
Me.dgvKontaktEmails.AllowUserToDeleteRows = False
Me.dgvKontaktEmails.AllowUserToResizeRows = False
Me.dgvKontaktEmails.BackgroundColor = System.Drawing.Color.White
Me.dgvKontaktEmails.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvKontaktEmails.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.dgvKontaktEmails.Location = New System.Drawing.Point(9, 647)
Me.dgvKontaktEmails.MultiSelect = False
Me.dgvKontaktEmails.Name = "dgvKontaktEmails"
Me.dgvKontaktEmails.ReadOnly = True
Me.dgvKontaktEmails.RowHeadersVisible = False
Me.dgvKontaktEmails.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.dgvKontaktEmails.Size = New System.Drawing.Size(687, 170)
Me.dgvKontaktEmails.TabIndex = 18
'
'btnVermerkSetzen
'
Me.btnVermerkSetzen.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnVermerkSetzen.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnVermerkSetzen.Location = New System.Drawing.Point(553, 823)
Me.btnVermerkSetzen.Name = "btnVermerkSetzen"
Me.btnVermerkSetzen.Size = New System.Drawing.Size(143, 36)
Me.btnVermerkSetzen.TabIndex = 16
Me.btnVermerkSetzen.Text = "Vermerk setzen"
Me.btnVermerkSetzen.UseVisualStyleBackColor = True
'
'lblTitel
'
Me.lblTitel.AutoSize = True
Me.lblTitel.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblTitel.Location = New System.Drawing.Point(12, 14)
Me.lblTitel.Name = "lblTitel"
Me.lblTitel.Size = New System.Drawing.Size(156, 17)
Me.lblTitel.TabIndex = 18
Me.lblTitel.Text = "Dokument(e) fehlen:"
'
'frmSendungsDokumentanforderung
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(711, 864)
Me.Controls.Add(Me.lblCustomerUploadEmailTemplate)
Me.Controls.Add(Me.cmbCustomerUploadEmailTemplate)
Me.Controls.Add(Me.dgvKontaktEmails)
Me.Controls.Add(Me.lblKontaktEmails)
Me.Controls.Add(Me.lblTitel)
Me.Controls.Add(Me.btnVermerkSetzen)
Me.Controls.Add(Me.lblCustomerUploadEmailText)
Me.Controls.Add(Me.cmbCustomerUploadEmailTemplate)
Me.Controls.Add(Me.txtCustomerUploadEmailText)
Me.Controls.Add(Me.lblCustomerUploadLanguage)
Me.Controls.Add(Me.cmbCustomerUploadLanguage)
Me.Controls.Add(Me.nudCustomerUploadValidityHours)
Me.Controls.Add(Me.lblCustomerUploadValidityHours)
Me.Controls.Add(Me.lblCustomerUploadEmail)
Me.Controls.Add(Me.txtCustomerUploadEmail)
Me.Controls.Add(Me.btnCustomerUploadEmail)
Me.Controls.Add(Me.btnCustomerUploadLink)
Me.Controls.Add(Me.Label20)
Me.Controls.Add(Me.Label5)
Me.Controls.Add(Me.pnlDocumentEditor)
Me.Controls.Add(Me.lblErrDokument)
Me.Controls.Add(Me.cbxNichtLeserlich)
Me.Controls.Add(Me.txtSonstigesDokumentFehlt)
Me.Controls.Add(Me.cbxSonstDok)
Me.Controls.Add(Me.flpDokumenteFehlenMain)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "frmSendungsDokumentanforderung"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
Me.Text = "Dokumentanforderung"
Me.pnlDocumentEditor.ResumeLayout(False)
Me.pnlDocumentEditor.PerformLayout()
CType(Me.nudCustomerUploadValidityHours, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.dgvKontaktEmails, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents flpDokumenteFehlenMain As FlowLayoutPanel
Friend WithEvents cbxSonstDok As CheckBox
Friend WithEvents txtSonstigesDokumentFehlt As TextBox
Friend WithEvents cbxNichtLeserlich As CheckBox
Friend WithEvents lblErrDokument As Label
Friend WithEvents pnlDocumentEditor As Panel
Friend WithEvents flpDocumentTabs As FlowLayoutPanel
Friend WithEvents lblDocumentEditorTitle As Label
Friend WithEvents lblDocumentEditorName As Label
Friend WithEvents txtDocumentEditorName As TextBox
Friend WithEvents lblDocumentEditorAnhangsart As Label
Friend WithEvents cmbDocumentEditorAnhangsart As ComboBox
Friend WithEvents lblDocumentEditorInfo As Label
Friend WithEvents txtDocumentEditorInfo As TextBox
Friend WithEvents lblDocumentEditorStatus As Label
Friend WithEvents Label5 As Label
Friend WithEvents Label20 As Label
Friend WithEvents btnCustomerUploadLink As Button
Friend WithEvents btnCustomerUploadEmail As Button
Friend WithEvents txtCustomerUploadEmail As TextBox
Friend WithEvents lblCustomerUploadEmail As Label
Friend WithEvents lblCustomerUploadValidityHours As Label
Friend WithEvents nudCustomerUploadValidityHours As NumericUpDown
Friend WithEvents cmbCustomerUploadLanguage As ComboBox
Friend WithEvents lblCustomerUploadLanguage As Label
Friend WithEvents txtCustomerUploadEmailText As TextBox
Friend WithEvents lblCustomerUploadEmailText As Label
Friend WithEvents btnVermerkSetzen As Button
Friend WithEvents lblTitel As Label
Friend WithEvents lblKontaktEmails As Label
Friend WithEvents cmbCustomerUploadEmailTemplate As ComboBox
Friend WithEvents lblCustomerUploadEmailTemplate As Label
Friend WithEvents dgvKontaktEmails As DataGridView
End Class

View File

@@ -0,0 +1,61 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<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>
</root>

File diff suppressed because it is too large Load Diff

View File

@@ -37,11 +37,7 @@ Partial Class frmSendungsdetailsNEU
Dim DataGridViewCellStyle11 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle12 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle13 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle15 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle14 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle16 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle18 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle17 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Me.pnl = New System.Windows.Forms.Panel()
Me.Panel4 = New System.Windows.Forms.Panel()
Me.TabControl1 = New System.Windows.Forms.TabControl()
@@ -1042,7 +1038,7 @@ Partial Class frmSendungsdetailsNEU
Me.ToolStripMenuItem8.Font = New System.Drawing.Font("Segoe UI", 9.0!)
Me.ToolStripMenuItem8.Image = Global.AVISO.My.Resources.Resources.plus
Me.ToolStripMenuItem8.Name = "ToolStripMenuItem8"
Me.ToolStripMenuItem8.Size = New System.Drawing.Size(188, 30)
Me.ToolStripMenuItem8.Size = New System.Drawing.Size(102, 30)
Me.ToolStripMenuItem8.Text = "T1"
'
'ToolStripMenuItem9
@@ -1050,7 +1046,7 @@ Partial Class frmSendungsdetailsNEU
Me.ToolStripMenuItem9.Font = New System.Drawing.Font("Segoe UI", 9.0!)
Me.ToolStripMenuItem9.Image = Global.AVISO.My.Resources.Resources.plus
Me.ToolStripMenuItem9.Name = "ToolStripMenuItem9"
Me.ToolStripMenuItem9.Size = New System.Drawing.Size(188, 30)
Me.ToolStripMenuItem9.Size = New System.Drawing.Size(102, 30)
Me.ToolStripMenuItem9.Text = "T2"
'
'ToolStripMenuItem10
@@ -1058,7 +1054,7 @@ Partial Class frmSendungsdetailsNEU
Me.ToolStripMenuItem10.Enabled = False
Me.ToolStripMenuItem10.Image = Global.AVISO.My.Resources.Resources.plus
Me.ToolStripMenuItem10.Name = "ToolStripMenuItem10"
Me.ToolStripMenuItem10.Size = New System.Drawing.Size(188, 30)
Me.ToolStripMenuItem10.Size = New System.Drawing.Size(102, 30)
Me.ToolStripMenuItem10.Text = "Ü-T"
Me.ToolStripMenuItem10.Visible = False
'
@@ -2733,24 +2729,8 @@ Partial Class frmSendungsdetailsNEU
Me.dgvAbrechnung.AllowUserToResizeColumns = False
Me.dgvAbrechnung.AllowUserToResizeRows = False
Me.dgvAbrechnung.BackgroundColor = System.Drawing.Color.White
DataGridViewCellStyle13.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle13.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle13.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle13.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle13.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle13.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle13.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvAbrechnung.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle13
Me.dgvAbrechnung.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvAbrechnung.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.clmnAbrId, Me.clmnAbrFirma, Me.clmnAbrLeistungsNr, Me.clmnAbrLeistung, Me.clmnAbrPreis})
DataGridViewCellStyle15.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle15.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle15.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle15.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle15.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle15.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle15.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.dgvAbrechnung.DefaultCellStyle = DataGridViewCellStyle15
Me.dgvAbrechnung.Location = New System.Drawing.Point(6, 35)
Me.dgvAbrechnung.MultiSelect = False
Me.dgvAbrechnung.Name = "dgvAbrechnung"
@@ -2796,8 +2776,8 @@ Partial Class frmSendungsdetailsNEU
'
'clmnAbrPreis
'
DataGridViewCellStyle14.Format = "C2"
Me.clmnAbrPreis.DefaultCellStyle = DataGridViewCellStyle14
DataGridViewCellStyle13.Format = "C2"
Me.clmnAbrPreis.DefaultCellStyle = DataGridViewCellStyle13
Me.clmnAbrPreis.HeaderText = "Preis"
Me.clmnAbrPreis.MaxInputLength = 15
Me.clmnAbrPreis.MinimumWidth = 6
@@ -3005,24 +2985,8 @@ Partial Class frmSendungsdetailsNEU
Me.dgvVorkosten.AllowUserToResizeColumns = False
Me.dgvVorkosten.AllowUserToResizeRows = False
Me.dgvVorkosten.BackgroundColor = System.Drawing.Color.White
DataGridViewCellStyle16.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle16.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle16.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle16.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle16.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle16.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle16.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvVorkosten.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle16
Me.dgvVorkosten.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvVorkosten.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.clmnVK_id, Me.clmnFirma, Me.clmnLeistung, Me.clmnPreis})
DataGridViewCellStyle18.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle18.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle18.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle18.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle18.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle18.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle18.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.dgvVorkosten.DefaultCellStyle = DataGridViewCellStyle18
Me.dgvVorkosten.Location = New System.Drawing.Point(3, 4)
Me.dgvVorkosten.MultiSelect = False
Me.dgvVorkosten.Name = "dgvVorkosten"
@@ -3064,8 +3028,8 @@ Partial Class frmSendungsdetailsNEU
'clmnPreis
'
Me.clmnPreis.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
DataGridViewCellStyle17.Format = "C2"
Me.clmnPreis.DefaultCellStyle = DataGridViewCellStyle17
DataGridViewCellStyle14.Format = "C2"
Me.clmnPreis.DefaultCellStyle = DataGridViewCellStyle14
Me.clmnPreis.HeaderText = "Preis"
Me.clmnPreis.MaxInputLength = 15
Me.clmnPreis.MinimumWidth = 6

View File

@@ -148,7 +148,6 @@ Public Class frmSendungsdetailsNEU
loadDataInLIST()
doVeranlagungsValidation()
If VALIDATE_ME() Then
SAVE_ME = True
@@ -297,63 +296,29 @@ Public Class frmSendungsdetailsNEU
'End If
If SENDUNG_LIST(CURRENT_INDEX).tblSnd_Abfertigungsart_ID = 44 Then ' ATB GEstellung
If Not IsValid18AlphaNumericCode(SENDUNG_LIST(CURRENT_INDEX).tblSnd_ATB_T1) Then
Dim err = "T1/Vorpapier nicht korrekt (18-stellig)!"
If SENDUNG_LIST(CURRENT_INDEX).tblSnd_ATBFakturieren Is Nothing Then
Dim err = "- ATB-Gestellung: Bitte geben Sie an, ob die ATB Gestellung fakturiert (abgerechnet) werden sollte."
rtbValidierung.Text &= err & vbNewLine : pnlValidation.Visible = True
Else
If SENDUNG_LIST(CURRENT_INDEX).tblSnd_ATBFakturieren Is Nothing Then
Dim err = "- ATB-Gestellung: Bitte geben Sie an, ob die ATB Gestellung fakturiert (abgerechnet) werden sollte."
rtbValidierung.Text &= err & vbNewLine : pnlValidation.Visible = True
'If showErr Then MsgBox(err) : Return False
End If
'If showErr Then MsgBox(err) : Return False
End If
End If
End If
Dim isVerimex As Boolean = (VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERIMEX")
Dim invalidPrepaper As Boolean =
(cboVorpapier.Text.Trim <> "" AndAlso Not IsValid18AlphaNumericCode(cboVorpapier.Text) AndAlso txtVorpapierPos.Text.Trim = "") OrElse
(cboVorpapier2.Text.Trim <> "" AndAlso Not IsValid18AlphaNumericCode(cboVorpapier2.Text) AndAlso txtVorpapier2Pos.Text.Trim = "") OrElse
(cboVorpapier3.Text.Trim <> "" AndAlso Not IsValid18AlphaNumericCode(cboVorpapier3.Text) AndAlso txtVorpapier3Pos.Text.Trim = "")
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERIMEX" Then
Dim missingPosition As Boolean =
(cboVorpapier.Text.Trim <> "" AndAlso txtVorpapierPos.Text.Trim = "" Or cboVorpapier.Text.Trim = "" AndAlso txtVorpapierPos.Text.Trim <> "") OrElse
(cboVorpapier2.Text.Trim <> "" AndAlso txtVorpapier2Pos.Text.Trim = "" Or cboVorpapier2.Text.Trim = "" AndAlso txtVorpapier2Pos.Text.Trim <> "") OrElse
(cboVorpapier3.Text.Trim <> "" AndAlso txtVorpapier3Pos.Text.Trim = "" Or cboVorpapier3.Text.Trim = "" AndAlso txtVorpapier3Pos.Text.Trim <> "")
Dim hasIssue As Boolean
If isVerimex Then
hasIssue = (invalidPrepaper OrElse missingPosition)
Else
hasIssue = (invalidPrepaper OrElse missingPosition)
End If
Dim InfoMsg As String
If isVerimex Then
InfoMsg = "Pre-Paper/PosNr data is invalid or incomplete. Continue?"
Else
InfoMsg = "Vorpapier-Nr/PosNr ist ungültig oder nicht vollständig, fortfahren?"
End If
If hasIssue Then
If showErr Then
If MsgBox(InfoMsg, vbYesNoCancel) <> vbYes Then
If (cboVorpapier.Text.Trim <> String.Empty And txtVorpapierPos.Text.Trim = String.Empty) Or
(cboVorpapier2.Text.Trim <> String.Empty And txtVorpapier2Pos.Text.Trim = String.Empty) Or
(cboVorpapier3.Text.Trim <> String.Empty And txtVorpapier3Pos.Text.Trim = String.Empty) Then
If showErr AndAlso MsgBox("Pre-Paper Position is not filled. Really continue?", vbYesNoCancel) <> vbYes Then
Return False
End If
End If
End If
If cntlAvisierer_Abf.Visible = False And
cntlAuftr_Abf.Visible = False And
cntlEmpf_Abf.Visible = False And
@@ -2016,6 +1981,7 @@ Public Class frmSendungsdetailsNEU
End If
If SENDUNG_LIST(CURRENT_INDEX).tblSnd_SpeditionsbuchEingetragen Then
btnSpeditionsbuchEintragen.BackgroundImage = My.Resources.speditionsbuchAktiv
setTooltioBtn(btnSpeditionsbuchEintragen, "Speditionsbuch Eingetrag öffnen")
@@ -2055,14 +2021,7 @@ Public Class frmSendungsdetailsNEU
End Select
Dim vorhanden As Integer = 0
If SENDUNG_LIST(CURRENT_INDEX).FilialenNr > 0 AndAlso SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr > 0 Then
Dim result As String = ADMIN.getValueTxtBySql("SELECT COUNT(*) FROM [Speditionsbuch] WHERE [FilialenNr]='" & SENDUNG_LIST(CURRENT_INDEX).FilialenNr & "' AND AbfertigungsNr='" & SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr & "'", "FMZOLL")
If result <> "" Then
vorhanden = CInt(result)
End If
' AND UnterNr='" & txtUnterNr.Text & "'
End If
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 & "'
'cbxSpedBuch.Checked = (vorhanden > 0)
SENDUNG_LIST(CURRENT_INDEX).tblSnd_SpeditionsbuchEingetragen = (vorhanden > 0)
@@ -2658,12 +2617,8 @@ Public Class frmSendungsdetailsNEU
txtAbfertigungsnummer.Text = posnr.Abfertigungsnummer
txtUnterNr.Text = posnr.UnterNr
'cbxSpedBuch.Checked = (posnr.Filiale > 0 And posnr.Abfertigungsnummer > 0 And posnr.UnterNr >= 0) ' Wenn Sped Eintrag gelöscht-> - 1, dann ist der Eintrag nicht mehr vorhanden
Dim vorhanden As Integer = 0 ' AND UnterNr='" & txtUnterNr.Text & "'
Dim result As String = ADMIN.getValueTxtBySql("SELECT COUNT(*) FROM [Speditionsbuch] WHERE [FilialenNr]='" & cboFiliale._value & "' AND AbfertigungsNr='" & txtAbfertigungsnummer.Text & "'", "FMZOLL")
Dim vorhanden = ADMIN.getValueTxtBySql("SELECT COUNT(*) FROM [Speditionsbuch] WHERE [FilialenNr]='" & cboFiliale._value & "' AND AbfertigungsNr='" & txtAbfertigungsnummer.Text & "'", "FMZOLL") ' AND UnterNr='" & txtUnterNr.Text & "'
'cbxSpedBuch.Checked = (vorhanden > 0)
If result <> "" Then
vorhanden = CInt(result)
End If
SENDUNG_LIST(CURRENT_INDEX).tblSnd_SpeditionsbuchEingetragen = (vorhanden > 0)
End If
@@ -2892,22 +2847,18 @@ Public Class frmSendungsdetailsNEU
Case "44"
pnlT1.Controls.Add(usrcntl_ATB)
cboVorpapier.changeItem("")
cboVorpapier2.changeItem("")
cboVorpapier3.changeItem("")
cboVorpapier._value = ""
cboVorpapier2._value = ""
cboVorpapier3._value = ""
txtVorpapierPos.Text = ""
txtVorpapier2Pos.Text = ""
txtVorpapier3Pos.Text = ""
cboVorpapier.Enabled = False
cboVorpapier2.Enabled = False
cboVorpapier3.Enabled = False
txtVorpapierPos.Enabled = False
txtVorpapier2Pos.Enabled = False
txtVorpapier3Pos.Enabled = False
End Select
@@ -5004,22 +4955,15 @@ Public Class frmSendungsdetailsNEU
Try
Dim files As New List(Of String) '
Dim outputFile As String = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath("Merge.pdf", ".pdf", True,, "Merge") ' "result.pdf"
Dim counter As Integer = 0
For Each r As DataGridViewRow In dgvAnhang.SelectedRows
If r.Cells("anh_Typ").Value.ToString.ToLower = "pdf" Then
files.Add(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(r.Cells("anh_docId").Value))
counter += 1
End If
If r.Cells("anh_Typ").Value.ToString.ToLower = "pdf" Then files.Add(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(r.Cells("anh_docId").Value))
Next
VERAG_PROG_ALLGEMEIN.cFormularManager.mergePDFs(files, outputFile)
If outputFile <> "" AndAlso counter > 0 Then
Process.Start(outputFile)
End If
Process.Start(outputFile)
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
@@ -8018,9 +7962,6 @@ Public Class frmSendungsdetailsNEU
Exit Sub
End If
If Not IsValid18AlphaNumericCode(vorpT1) Then MsgBox("T1/Vorpapier nicht korrekt (18-stellig)!") : Exit Sub
If SENDUNG_LIST(CURRENT_INDEX).tblSnd_WarenwertWaehrung <> "EUR" Then
MsgBox("Warenwert der Gestellung darf nur in EUR angegeben werden")
Exit Sub
@@ -8289,13 +8230,4 @@ Public Class frmSendungsdetailsNEU
e.SuppressKeyPress = True
End If
End Sub
Private Function IsValid18AlphaNumericCode(value As String) As Boolean
value = value.Trim()
If value.Length <> 18 Then Return False
Return value.All(Function(c) Char.IsLetterOrDigit(c))
End Function
End Class

View File

@@ -160,8 +160,7 @@ Public Class usrCntlHauptfenster_Suche_AVISO
pnlSearch.Visible = False
'initPnlSearch()
Grid_aktiv = True
Aviso_anzeigen("")
' Grid_aktiv = True
End Sub
@@ -902,8 +901,6 @@ 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
@@ -1249,23 +1246,6 @@ 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)
@@ -1440,7 +1420,7 @@ Public Class usrCntlHauptfenster_Suche_AVISO
Public Sub avisoAktualisierenAktiveIdBehalten(tmpid As Integer, Optional aktWithoutCheckTime As Boolean = False, Optional Aviso_anzeigenBool As Boolean = True, Optional refreshPnlRight As Boolean = True)
Public Sub avisoAktualisierenAktiveIdBehalten(tmpid As Integer, Optional aktWithoutCheckTime As Boolean = False, Optional Aviso_anzeigenBool As Boolean = True)
PARENT_FRMHAUPTFENSTER.pic.Visible = False
Try
@@ -1454,47 +1434,54 @@ Public Class usrCntlHauptfenster_Suche_AVISO
' If Aviso_anzeigenBool Then PARENT_FRMHAUPTFENSTER.initsearch("", False)
gridAviso.ClearSelection()
For Each r As DataGridViewRow In gridAviso.Rows
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()
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
'If refreshPnlRight 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 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
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
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name, "LOG")
End Try
@@ -1502,7 +1489,6 @@ 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
@@ -1533,8 +1519,7 @@ Public Class usrCntlHauptfenster_Suche_AVISO
' End If
'Else
setAkive_AuswahlID()
' avisoAktualisierenAktiveIdBehalten(tmpId, , False)
frmHauptfensterNew.REFRESH_AVISO_MAIN(tmpId,, Me.GetType().Name)
avisoAktualisierenAktiveIdBehalten(tmpId, , False)
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)
@@ -1553,9 +1538,8 @@ Public Class usrCntlHauptfenster_Suche_AVISO
End If
ElseIf e.Button = MouseButtons.Left Then
frmHauptfensterNew.REFRESH_AVISO_MAIN(tmpId,, Me.GetType().Name)
'VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = tmpId
'avisoAktualisierenAktiveIdBehalten(tmpId, , False)
VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = tmpId
avisoAktualisierenAktiveIdBehalten(tmpId, , False)
End If
End Sub

View File

@@ -24,14 +24,12 @@ 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 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()
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()
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()
@@ -47,7 +45,6 @@ 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()
@@ -75,6 +72,7 @@ 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()
@@ -84,8 +82,6 @@ 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)
@@ -125,30 +121,6 @@ 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
@@ -321,15 +293,6 @@ 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)
@@ -573,48 +536,48 @@ Partial Class usrCntlHauptfenster_Suche_SND
Me.gridAviso.AllowUserToAddRows = False
Me.gridAviso.AllowUserToDeleteRows = False
Me.gridAviso.AllowUserToResizeRows = False
DataGridViewCellStyle6.BackColor = System.Drawing.Color.Azure
DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.gridAviso.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle6
DataGridViewCellStyle1.BackColor = System.Drawing.Color.Azure
DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.gridAviso.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
Me.gridAviso.BackgroundColor = System.Drawing.Color.DarkGray
Me.gridAviso.CausesValidation = False
Me.gridAviso.ClipboardCopyMode = System.Windows.Forms.DataGridViewClipboardCopyMode.Disable
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
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
Me.gridAviso.ColumnHeadersHeight = 25
Me.gridAviso.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing
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
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
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
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
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
Me.gridAviso.RowHeadersVisible = False
Me.gridAviso.RowHeadersWidth = 62
Me.gridAviso.RowHeadersWidthSizeMode = System.Windows.Forms.DataGridViewRowHeadersWidthSizeMode.DisableResizing
DataGridViewCellStyle10.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.gridAviso.RowsDefaultCellStyle = DataGridViewCellStyle10
DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.gridAviso.RowsDefaultCellStyle = DataGridViewCellStyle5
Me.gridAviso.RowTemplate.ReadOnly = True
Me.gridAviso.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[False]
Me.gridAviso.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
@@ -660,6 +623,15 @@ 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!)
@@ -721,6 +693,4 @@ 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

View File

@@ -87,20 +87,11 @@ Public Class usrCntlHauptfenster_Suche_SND
cboMyAvisoAnzeige.Items.Clear()
cboMyAvisoAnzeige.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ALLE (" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & ")", "ALLE"))
cboMyAvisoAnzeige.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ALLE", "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"))
@@ -175,26 +166,6 @@ 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
@@ -616,17 +587,10 @@ 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 " &
@@ -651,10 +615,6 @@ 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("*", "%") & "%' "
@@ -777,27 +737,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
@@ -1004,10 +964,8 @@ 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
@@ -1022,7 +980,7 @@ Public Class usrCntlHauptfenster_Suche_SND
' VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID = -1
'End If
Return VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID
Return VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID
End Function
Public Sub GridZeichnenAviso()
@@ -1073,17 +1031,31 @@ Public Class usrCntlHauptfenster_Suche_SND
Public Sub avisoAktualisierenAktiveIdBehalten(tmpid As Integer, Optional aktWithoutCheckTime As Boolean = False, Optional Aviso_anzeigenBool As Boolean = True, Optional refreshPnlRight As Boolean = True)
Public Sub avisoAktualisierenAktiveIdBehalten(tmpid As Integer, Optional aktWithoutCheckTime As Boolean = False, Optional Aviso_anzeigenBool 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
gridAviso.ClearSelection()
' 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()
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
@@ -1092,36 +1064,35 @@ Public Class usrCntlHauptfenster_Suche_SND
End If
Next
End If
End If
VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID = tmpid
VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = tmpid
Details_aktiv = True
'If refreshPnlRight Then
' If PARENT_FRMHAUPTFENSTER.pnlDetailsRechts.Controls.Count > 0 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
' 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
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name, "LOG")
End Try
@@ -1179,8 +1150,7 @@ Public Class usrCntlHauptfenster_Suche_SND
End If
ElseIf e.Button = MouseButtons.Left Then
VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = tmpId
frmHauptfensterNew.REFRESH_AVISO_MAIN(tmpId,, Me.GetType().Name)
avisoAktualisierenAktiveIdBehalten(tmpId, , False)
End If
End Sub
@@ -1200,14 +1170,13 @@ Public Class usrCntlHauptfenster_Suche_SND
Case "StatusVorgeschrieben"
Me.Cursor = Cursors.WaitCursor
If FUNC.setSendungVorgeschrieben(SendungsId, AvisoID) Then
frmHauptfensterNew.REFRESH_AVISO_MAIN(tmpId, SendungsId, Me.GetType().Name)
avisoAktualisierenAktiveIdBehalten(AvisoID, True, True) 'Aviso_anzeigen("")
End If
Me.Cursor = Cursors.Default
Case "StatusVorbereitetQS"
Me.Cursor = Cursors.WaitCursor
If FUNC.setSendungVorbereitetQS(SendungsId, AvisoID) Then
frmHauptfensterNew.REFRESH_AVISO_MAIN(tmpId, SendungsId, Me.GetType().Name)
avisoAktualisierenAktiveIdBehalten(AvisoID, True, True) 'Aviso_anzeigen("")
End If
Me.Cursor = Cursors.Default
@@ -1390,29 +1359,26 @@ Public Class usrCntlHauptfenster_Suche_SND
Grid_aktiv = False
cboMy_QS.CheckState = CheckState.Unchecked
cboMy_VB.CheckState = CheckState.Indeterminate
Grid_aktiv = True
Aviso_anzeigen("")
Grid_aktiv = True
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
Grid_aktiv = True
Aviso_anzeigen("")
Grid_aktiv = True
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,
cbx_My_Brexit.CheckedChanged, cbx_My_CBAM.CheckedChanged
txtAuftraggeber.Leave, txtAbsender.Leave, txtEmpfänger.Leave, txtAvisierer.Leave, cboFiliale.SelectedIndexChanged
Aviso_anzeigen("")
End Sub

View File

@@ -23,27 +23,25 @@ Partial Class usrCntlSND_ATBGestellung
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Me.pnlT1 = New System.Windows.Forms.Panel()
Me.Button2 = New System.Windows.Forms.Button()
Me.PictureBox5 = New System.Windows.Forms.PictureBox()
Me.txtT1Datum = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.DateTimePicker1 = New System.Windows.Forms.DateTimePicker()
Me.Label1 = New System.Windows.Forms.Label()
Me.btnGesSicherheit = New System.Windows.Forms.Button()
Me.Button1 = New System.Windows.Forms.Button()
Me.cbxATBFakturieren = New System.Windows.Forms.CheckBox()
Me.txtATBNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtATBT1 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label4 = New System.Windows.Forms.Label()
Me.Label3 = New System.Windows.Forms.Label()
Me.txtT1VerzollungsadresseBestimmungszollstelle = New VERAG_PROG_ALLGEMEIN.MySearchBox()
Me.Label33 = New System.Windows.Forms.Label()
Me.txtT1Datum = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtATBNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtATBT1 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtT1VerzollungsadresseBestimmungszollstelle = New VERAG_PROG_ALLGEMEIN.MySearchBox()
Me.pnlT1.SuspendLayout()
CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'pnlT1
'
Me.pnlT1.Controls.Add(Me.Button2)
Me.pnlT1.Controls.Add(Me.PictureBox5)
Me.pnlT1.Controls.Add(Me.txtT1Datum)
Me.pnlT1.Controls.Add(Me.DateTimePicker1)
@@ -62,18 +60,6 @@ Partial Class usrCntlSND_ATBGestellung
Me.pnlT1.Size = New System.Drawing.Size(549, 125)
Me.pnlT1.TabIndex = 0
'
'Button2
'
Me.Button2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button2.Location = New System.Drawing.Point(424, 94)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(94, 28)
Me.Button2.TabIndex = 133
Me.Button2.Text = "Saldocheck"
Me.Button2.UseVisualStyleBackColor = True
Me.Button2.Visible = False
'
'PictureBox5
'
Me.PictureBox5.BackgroundImage = Global.AVISO.My.Resources.Resources.fragezeichen1
@@ -84,31 +70,6 @@ Partial Class usrCntlSND_ATBGestellung
Me.PictureBox5.TabIndex = 132
Me.PictureBox5.TabStop = False
'
'txtT1Datum
'
Me.txtT1Datum._DateTimeOnly = False
Me.txtT1Datum._numbersOnly = False
Me.txtT1Datum._numbersOnlyKommastellen = ""
Me.txtT1Datum._numbersOnlyTrennzeichen = True
Me.txtT1Datum._Prozent = False
Me.txtT1Datum._ShortDateNew = True
Me.txtT1Datum._ShortDateOnly = False
Me.txtT1Datum._TimeOnly = False
Me.txtT1Datum._TimeOnly_Seconds = False
Me.txtT1Datum._value = ""
Me.txtT1Datum._Waehrung = False
Me.txtT1Datum._WaehrungZeichen = True
Me.txtT1Datum.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtT1Datum.ForeColor = System.Drawing.Color.Black
Me.txtT1Datum.Location = New System.Drawing.Point(272, 33)
Me.txtT1Datum.MaxLength = 10
Me.txtT1Datum.MaxLineLength = -1
Me.txtT1Datum.MaxLines_Warning = ""
Me.txtT1Datum.MaxLines_Warning_Label = Nothing
Me.txtT1Datum.Name = "txtT1Datum"
Me.txtT1Datum.Size = New System.Drawing.Size(83, 20)
Me.txtT1Datum.TabIndex = 38
'
'DateTimePicker1
'
Me.DateTimePicker1.CustomFormat = "''"
@@ -164,6 +125,60 @@ Partial Class usrCntlSND_ATBGestellung
Me.cbxATBFakturieren.ThreeState = True
Me.cbxATBFakturieren.UseVisualStyleBackColor = True
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label4.Location = New System.Drawing.Point(23, 59)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(92, 13)
Me.Label4.TabIndex = 20
Me.Label4.Text = "ATB / Gestellung:"
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Location = New System.Drawing.Point(23, 81)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(51, 13)
Me.Label3.TabIndex = 15
Me.Label3.Text = "Zollstelle:"
'
'Label33
'
Me.Label33.AutoSize = True
Me.Label33.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label33.Location = New System.Drawing.Point(23, 14)
Me.Label33.Name = "Label33"
Me.Label33.Size = New System.Drawing.Size(79, 13)
Me.Label33.TabIndex = 3
Me.Label33.Text = "Vorpapier / T1:"
'
'txtT1Datum
'
Me.txtT1Datum._DateTimeOnly = False
Me.txtT1Datum._numbersOnly = False
Me.txtT1Datum._numbersOnlyKommastellen = ""
Me.txtT1Datum._numbersOnlyTrennzeichen = True
Me.txtT1Datum._Prozent = False
Me.txtT1Datum._ShortDateNew = True
Me.txtT1Datum._ShortDateOnly = False
Me.txtT1Datum._TimeOnly = False
Me.txtT1Datum._TimeOnly_Seconds = False
Me.txtT1Datum._value = ""
Me.txtT1Datum._Waehrung = False
Me.txtT1Datum._WaehrungZeichen = True
Me.txtT1Datum.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtT1Datum.ForeColor = System.Drawing.Color.Black
Me.txtT1Datum.Location = New System.Drawing.Point(272, 33)
Me.txtT1Datum.MaxLength = 10
Me.txtT1Datum.MaxLineLength = -1
Me.txtT1Datum.MaxLines_Warning = ""
Me.txtT1Datum.MaxLines_Warning_Label = Nothing
Me.txtT1Datum.Name = "txtT1Datum"
Me.txtT1Datum.Size = New System.Drawing.Size(83, 20)
Me.txtT1Datum.TabIndex = 38
'
'txtATBNr
'
Me.txtATBNr._DateTimeOnly = False
@@ -210,25 +225,6 @@ Partial Class usrCntlSND_ATBGestellung
Me.txtATBT1.Size = New System.Drawing.Size(269, 20)
Me.txtATBT1.TabIndex = 22
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label4.Location = New System.Drawing.Point(23, 59)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(92, 13)
Me.Label4.TabIndex = 20
Me.Label4.Text = "ATB / Gestellung:"
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Location = New System.Drawing.Point(23, 81)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(51, 13)
Me.Label3.TabIndex = 15
Me.Label3.Text = "Zollstelle:"
'
'txtT1VerzollungsadresseBestimmungszollstelle
'
Me.txtT1VerzollungsadresseBestimmungszollstelle._allowFreitext = False
@@ -255,16 +251,6 @@ Partial Class usrCntlSND_ATBGestellung
Me.txtT1VerzollungsadresseBestimmungszollstelle.TabIndex = 16
Me.txtT1VerzollungsadresseBestimmungszollstelle.usrcntl = Nothing
'
'Label33
'
Me.Label33.AutoSize = True
Me.Label33.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label33.Location = New System.Drawing.Point(23, 14)
Me.Label33.Name = "Label33"
Me.Label33.Size = New System.Drawing.Size(79, 13)
Me.Label33.TabIndex = 3
Me.Label33.Text = "Vorpapier / T1:"
'
'usrCntlSND_ATBGestellung
'
Me.Controls.Add(Me.pnlT1)
@@ -290,5 +276,4 @@ Partial Class usrCntlSND_ATBGestellung
Friend WithEvents txtT1Datum As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents DateTimePicker1 As DateTimePicker
Friend WithEvents PictureBox5 As PictureBox
Friend WithEvents Button2 As Button
End Class

View File

@@ -1,5 +1,6 @@
Imports DAKOSY_Worker
Imports SDL
Imports VERAG_PROG_ALLGEMEIN
@@ -37,38 +38,32 @@ Public Class usrCntlSND_ATBGestellung
Dim f As frmSendungsdetailsNEU = Me.FindForm
If f.SAVE_ME() Then
Dim INfoVorpapier As String = ""
If Not checkSendungenVorpapierte(f.SENDUNG_LIST, INfoVorpapier) Then MsgBox(INfoVorpapier) : Exit Sub
SND = f.SENDUNG_LIST(f.CURRENT_INDEX)
If Not IsNumeric(SND.AbfertigungsNr) OrElse CInt(SND.AbfertigungsNr) < 100000 Then MsgBox("Abfertigungsnummer angeben!") : Exit Sub
If Not IsNumeric(SND.AbfertigungsNr) OrElse CInt(SND.AbfertigungsNr) < 100000 Then MsgBox("Abfertigungsnummer angeben!") : Exit Sub
If Not IsNumeric(SND.tblSnd_Warenwert) OrElse CInt(SND.tblSnd_Warenwert) < 0 Then MsgBox("Warenwert angeben!") : Exit Sub
If Not IsNumeric(SND.tblSnd_Warenwert) OrElse CInt(SND.tblSnd_Warenwert) < 0 Then MsgBox("Warenwert angeben!") : Exit Sub
If (SND.tblSnd_WarenwertWaehrung) Is Nothing Then MsgBox("Währungseinheit angeben!") : Exit Sub
If SND.tblSnd_WarenwertWaehrung <> "EUR" Then
Dim kurs As New cFremdwaehrungskurse(SND.tblSnd_WarenwertWaehrung)
If kurs.hasEntry Then
WarenwertEUR = Math.Round(kurs.EXCHANGE_CURTOEUR(SND.tblSnd_Warenwert, SND.tblSnd_WarenwertWaehrung, CDate(Today)), 2)
Else
MsgBox("Umrechnungskurs kann nicht ermittelt werden, bitte EUR-Betrag eingeben!")
Exit Sub
End If
If (SND.tblSnd_WarenwertWaehrung) Is Nothing Then MsgBox("Währungseinheit angeben!") : Exit Sub
If SND.tblSnd_WarenwertWaehrung <> "EUR" Then
Dim kurs As New cFremdwaehrungskurse(SND.tblSnd_WarenwertWaehrung)
If kurs.hasEntry Then
WarenwertEUR = Math.Round(kurs.EXCHANGE_CURTOEUR(SND.tblSnd_Warenwert, SND.tblSnd_WarenwertWaehrung, CDate(Today)), 2)
Else
WarenwertEUR = SND.tblSnd_Warenwert
MsgBox("Umrechnungskurs kann nicht ermittelt werden, bitte EUR-Betrag eingeben!")
Exit Sub
End If
If If(SND.tblSnd_ATB_T1, "") = "" Then MsgBox("T1/Vorpapier angeben!") : Exit Sub
Else
WarenwertEUR = SND.tblSnd_Warenwert
End If
If Not IsValid18AlphaNumericCode(If(SND.tblSnd_ATB_T1, "")) Then MsgBox("T1/Vorpapier nicht korrekt (18-stellig)!") : Exit Sub
If If(SND.tblSnd_ATB_T1, "") = "" Then MsgBox("MRN (Gestellung) angeben!") : Exit Sub
If If(SND.tblSnd_Zollsystem_Land, "") = "" Then MsgBox("Abf-Land muss angegeben werden!") : Exit Sub
If SND.tblSnd_T1_Frist IsNot Nothing AndAlso IsDate(SND.tblSnd_T1_Frist) Then
If SND.tblSnd_T1_Frist IsNot Nothing AndAlso IsDate(SND.tblSnd_T1_Frist) Then
If CDate(SND.tblSnd_T1_Frist) >= Today() Then
'-> OK
Else
@@ -88,19 +83,18 @@ Public Class usrCntlSND_ATBGestellung
End If
Dim Standort As String = ""
Dim firmaID As Integer = -1
Select Case SND.FilialenNr
Case 4803, 4809
Standort = Sicherheiten_Standort.VERAG_AG : firmaID = 1
Standort = "VERAG AG"
Case 5601
Standort = Sicherheiten_Standort.UNISPED : firmaID = 21
Standort = "Unisped GmbH"
Case 5701
Standort = Sicherheiten_Standort.AMBAR : firmaID = 24
Standort = "AMBAR GmbH"
Case 4810, 5103, 5901
Standort = Sicherheiten_Standort.VERAG_GMBH : firmaID = 2
Standort = "VERAG GmbH"
Case 5501
Standort = Sicherheiten_Standort.IMEX : firmaID = 20
Standort = "IMEX"
End Select
'sonderfälle lt. Mestan
@@ -108,41 +102,34 @@ Public Class usrCntlSND_ATBGestellung
Select Case SND.FilialenNr
Case 5501, 4803, 4809, 5103
Standort = Sicherheiten_Standort.VERAG_GMBH : firmaID = 2
Standort = "VERAG GmbH"
End Select
ElseIf SND.tblSnd_Zollsystem_Land = "AT" Then
If SND.tblSnd_Abfertigungsart_ID = 1 Then 'ZA
Standort = Sicherheiten_Standort.VERAG_CS : firmaID = 11
Standort = "VERAG CS"
ElseIf SND.tblSnd_Abfertigungsart_ID = 38 Then 'EV-Verz
Select Case SND.FilialenNr
Case 4803, 5303, 4809, 5103
Standort = Sicherheiten_Standort.VERAG_CS : firmaID = 11
Standort = "VERAG CS"
End Select
End If
End If
If isZollern(SND) Then
Standort = Sicherheiten_Standort.ZOLLERN : firmaID = 90
End If
Dim GesSichRef = New VERAG_PROG_ALLGEMEIN.cAufschubKonten(Standort, firmaID)
Dim GesSichRef = New VERAG_PROG_ALLGEMEIN.cGesamtsicherheitsReferenz(Standort)
If GesSichRef Is Nothing Then MsgBox("Verwahrungsreferenz kann nicht ermittelt werden!") : Exit Sub
Dim saldo = CDbl(GesSichRef.CalcSaldo())
Dim sicherheitsbertrag As Double = WarenwertEUR * (GesSichRef.brgakto_gs_zollsatz / 100)
Dim sicherheitsbertrag As Double = WarenwertEUR * (GesSichRef.gsr_zollsatz / 100)
If sicherheitsbertrag > saldo Then
If MsgBox(Standort & vbNewLine & "Gestellung kann NICHT durchgeführt werden!" & vbNewLine & "Eingetragener Warenwert in EUR: " & WarenwertEUR & " (Sicherheitsbetrag: " & sicherheitsbertrag & ") übersteigt den vorhandenen Sicherheitssaldo von: " & saldo & vbNewLine & "Trotzdem fortfahren", vbYesNoCancel) <> vbYes Then Exit Sub
End If
If MsgBox(Standort & vbNewLine & "Gestellung kann NICHT durchgeführt werden!" & vbNewLine & "Eingetragener Warenwert in EUR: " & WarenwertEUR & " (Sicherheitsbetrag: " & sicherheitsbertrag & ") übersteigt den vorhandenen Sicherheitssaldo von: " & saldo & vbNewLine & "Trotzdem fortfahren", vbYesNoCancel) <> vbYes Then Exit Sub
End If
Dim frMZA As New SDL.frmZollanmeldung("AA", Nothing, AVISO, SND, Now.ToString("yy"), GesSichRef, Standort, WarenwertEUR, gsnr_proLKW_global)
@@ -196,20 +183,19 @@ Public Class usrCntlSND_ATBGestellung
Dim frm As New frmGesamtsicherheitenNEU()
Select Case gessicherheit.gs_standort
Case Sicherheiten_Standort.VERAG_GMBH
Case "Verag GmbH"
firmaId = 2
Case Sicherheiten_Standort.VERAG_AG
Case "Verag AG"
firmaId = 1
Case Sicherheiten_Standort.UNISPED
Case "Unisped GmbH"
firmaId = 21
Case Sicherheiten_Standort.AMBAR
Case "AMBAR GmbH"
firmaId = 24
Case Sicherheiten_Standort.VERAG_CS
Case "Verag CS"
firmaId = 11
Case Sicherheiten_Standort.IMEX
Case "IMEX"
firmaId = 20
Case Sicherheiten_Standort.ZOLLERN
firmaId = 90
End Select
With frm
@@ -240,15 +226,15 @@ Public Class usrCntlSND_ATBGestellung
Select Case SND.FilialenNr
Case 4803, 4809
Standort = Sicherheiten_Standort.VERAG_AG : firmaId = 1
Standort = "VERAG AG" : firmaId = 1
Case 5601
Standort = Sicherheiten_Standort.UNISPED : firmaId = 21
Standort = "Unisped GmbH" : firmaId = 21
Case 5701
Standort = Sicherheiten_Standort.AMBAR : firmaId = 24
Standort = "AMBAR GmbH" : firmaId = 24
Case 4810, 5103, 5901
Standort = Sicherheiten_Standort.VERAG_GMBH : firmaId = 2
Standort = "VERAG GmbH" : firmaId = 2
Case 5501
Standort = Sicherheiten_Standort.IMEX : firmaId = 20
Standort = "IMEX" : firmaId = 20
End Select
'sonderfälle lt. Mestan
@@ -256,33 +242,24 @@ Public Class usrCntlSND_ATBGestellung
Select Case SND.FilialenNr
Case 5501, 4803, 4809, 5103
Standort = Sicherheiten_Standort.VERAG_GMBH : firmaId = 2
Standort = "VERAG GmbH" : firmaId = 2
End Select
ElseIf SND.tblSnd_Zollsystem_Land = "AT" Then
If SND.tblSnd_Abfertigungsart_ID = 1 Then 'ZA
Standort = Sicherheiten_Standort.VERAG_CS : firmaId = 11
Standort = "VERAG CS" : firmaId = 11
ElseIf SND.tblSnd_Abfertigungsart_ID = 38 Then 'EV-Verz
Select Case SND.FilialenNr
Case 4803, 5303, 4809, 5103
Standort = Sicherheiten_Standort.VERAG_CS : firmaId = 11
Standort = "VERAG CS" : firmaId = 11
End Select
End If
End If
If isZollern(SND) Then
Standort = Sicherheiten_Standort.ZOLLERN : firmaId = 90
End If
Dim GesSichRef = New VERAG_PROG_ALLGEMEIN.cAufschubKonten(Standort, firmaId)
Dim GesSichRef = New VERAG_PROG_ALLGEMEIN.cAufschubKonten(Standort)
Dim frm As New frmGesamtsicherheitenNEU
@@ -385,66 +362,4 @@ Public Class usrCntlSND_ATBGestellung
Process.Start(webAddress)
End Sub
Private Function isZollern(SND As cSendungen)
Dim zollernKdnr = {772383, 712203}
If zollernKdnr.Contains(SND.tblSnd_AbsenderKdNr) OrElse
zollernKdnr.Contains(SND.tblSnd_AuftraggeberKdNr) OrElse
(SND.tblSnd_AvisiererKdNr IsNot Nothing AndAlso zollernKdnr.Contains(SND.tblSnd_AvisiererKdNr)) OrElse
zollernKdnr.Contains(SND.tblSnd_EmpfaengerKdNr) OrElse
(SND.tblSnd_FrachtfuehrerKdNr IsNot Nothing AndAlso zollernKdnr.Contains(SND.tblSnd_FrachtfuehrerKdNr)) Then
Return True
Else
Return False
End If
End Function
Private Function IsValid18AlphaNumericCode(value As String) As Boolean
value = value.Trim()
If value.Length <> 18 Then Return False
Return value.All(Function(c) Char.IsLetterOrDigit(c))
End Function
Private Function checkSendungenVorpapierte(list As List(Of cSendungen), ByRef MsgInfo As String) As Boolean
Dim index As Integer = 1
Dim existingVorpapier As Boolean = False
For Each SND As cSendungen In list
Dim existing As Boolean =
(SND.tblSnd_Vorpapier.ToString.Trim <> "") OrElse
(SND.tblSnd_Vorpapier2.ToString.Trim <> "") OrElse
(SND.tblSnd_Vorpapier3.ToString.Trim <> "")
If existing Then existingVorpapier = existing
Dim invalidPrepaper As Boolean =
(SND.tblSnd_Vorpapier.ToString.Trim <> "" AndAlso Not IsValid18AlphaNumericCode(SND.tblSnd_Vorpapier.ToString.Trim)) OrElse
(SND.tblSnd_Vorpapier2.ToString.Trim <> "" AndAlso Not IsValid18AlphaNumericCode(SND.tblSnd_Vorpapier2.ToString.Trim)) OrElse
(SND.tblSnd_Vorpapier3.ToString.Trim <> "" AndAlso Not IsValid18AlphaNumericCode(SND.tblSnd_Vorpapier3.ToString.Trim))
If invalidPrepaper Then
MsgInfo = "Vorpapier-Nr bei Sendung " & index & " ist ungültig!"
Return False
End If
index += 1
Next
If Not existingVorpapier Then
MsgInfo = "keine Vorpapier-Nr bei den Sendung(en) hinterlegt!"
End If
Return existingVorpapier
End Function
End Class

View File

@@ -764,7 +764,7 @@ Public Class usrcntlAktDetails
c.Name = "SenungUebernehmen"
c.Image = My.Resources.personCheck_gray_small : c.ImageLayout = DataGridViewImageCellLayout.Zoom
c.Width = 25 : c.DefaultCellStyle.Padding = New Padding(2) : c.DefaultCellStyle.BackColor = Color.White
c.ToolTipText = "Sendung übernehmen"
c.ToolTipText = "Senung übernehmen"
.Columns.Add(c)
' End If
@@ -772,7 +772,7 @@ Public Class usrcntlAktDetails
c.Name = "SenungWeiterleiten"
c.Image = My.Resources.tranparent30Perc : c.ImageLayout = DataGridViewImageCellLayout.Zoom
c.Width = 25 : c.DefaultCellStyle.Padding = New Padding(2) : c.DefaultCellStyle.BackColor = Color.White
c.ToolTipText = "Sendung weiterleiten"
c.ToolTipText = "Senung weiterleiten"
.Columns.Add(c)
' End If
@@ -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,14 +1253,8 @@ Public Class usrcntlAktDetails
Case 80
If vbYes = MsgBox("Soll der LKW auf Status 'ANKUNFT' gesetzt werden?", vbYesNoCancel) Then
If AvisoStatusFunctions.setAnkunft(AVISO.AvisoID) Then
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
frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
frmHauptfenster.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
End If
End If
Case 82
@@ -1870,67 +1864,43 @@ Public Class usrcntlAktDetails
Private Sub btnAnkunft_Click(sender As Object, e As EventArgs) Handles btnAnkunft.Click
If FUNC.setAnkunft(AvisoID) Then
' MsgBox("H1")
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
frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
frmHauptfenster.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
End If
End Sub
Private Sub btnErfasst_Click(sender As Object, e As EventArgs) Handles btnErfasst.Click
If FUNC.setErfasst(AvisoID) Then
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
frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
frmHauptfenster.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
End If
End Sub
Private Sub btnVorbereitet_Click(sender As Object, e As EventArgs) Handles btnVorbereitet.Click
If FUNC.setVorbereitet(AvisoID) Then
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
frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
frmHauptfenster.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
End If
End Sub
Private Sub btnVorgeschrieben_Click(sender As Object, e As EventArgs) Handles btnVorgeschrieben.Click
If FUNC.setVorgeschreiben(AvisoID) Then
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
frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
frmHauptfenster.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
End If
End Sub
Private Sub btnFreigabe_Click(sender As Object, e As EventArgs) Handles btnFreigabe.Click
If FUNC.setFreigabe(AvisoID, Me) Then
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
frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
frmHauptfenster.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
End If
End Sub
Private Sub btnNichtEingetroffen_Click(sender As Object, e As EventArgs)
If FUNC.setNichtEingeftroffen(AvisoID) Then
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
frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
frmHauptfenster.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID, -1)
End If
End Sub
@@ -2387,12 +2357,7 @@ Public Class usrcntlAktDetails
End If
If FUNC.setAbgeschlossen(AvisoID, True) Then
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.avisoAktualisierenAktiveIdBehalten(AvisoID)
reload(AvisoID)
End If
End Sub
@@ -2500,24 +2465,14 @@ 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
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
frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
frmHauptfenster.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
Vermerke_anzeigen()
End If
Else
If FUNC.AktUebernehmen(AvisoID, False) Then
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
frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
frmHauptfenster.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
End If
End If
End Sub
@@ -2549,11 +2504,7 @@ 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
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.avisoAktualisierenAktiveIdBehalten(AvisoID)
VERAG_PROG_ALLGEMEIN.cMessenger.SET_LKWCHAT_AKTIV(AvisoID)
reload(AvisoID)
End If
@@ -2698,12 +2649,7 @@ Public Class usrcntlAktDetails
If FUNC.setNichtEingeftroffen(AvisoID, True) Then
VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = -1
frmHauptfenster.pnlDetailsRechts.Visible = False
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.avisoAktualisierenAktiveIdBehalten(-1)
End If
End If
End Sub
@@ -2712,12 +2658,7 @@ Public Class usrcntlAktDetails
Dim frmTV As New frmTv
frmTV.avisoID = VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID
frmTV.ShowDialog()
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.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
frmHauptfenster.lblHinweiseVisible()
End Sub
@@ -3819,25 +3760,15 @@ Public Class usrcntlAktDetails
Private Sub btnAnVerimex_Click(sender As Object, e As EventArgs) Handles btnAnVerimex.Click
If FUNC.setAnVERIMEX(AvisoID) Then
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
frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
frmHauptfenster.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
End If
End Sub
Private Sub btnAnIndonesien_Click(sender As Object, e As EventArgs) Handles btnAnIndonesien.Click
If FUNC.setAnINDONESIEN(AvisoID) Then
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
frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
frmHauptfenster.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
End If
End Sub

Binary file not shown.

Before

Width:  |  Height:  |  Size: 22 KiB

Binary file not shown.

Before

Width:  |  Height:  |  Size: 69 KiB

Binary file not shown.

Before

Width:  |  Height:  |  Size: 323 KiB

Binary file not shown.

Before

Width:  |  Height:  |  Size: 132 KiB

Binary file not shown.

Before

Width:  |  Height:  |  Size: 2.7 MiB

Binary file not shown.

Before

Width:  |  Height:  |  Size: 113 KiB

Binary file not shown.

Before

Width:  |  Height:  |  Size: 2.6 MiB

Binary file not shown.

Before

Width:  |  Height:  |  Size: 116 KiB

Binary file not shown.

Before

Width:  |  Height:  |  Size: 2.7 MiB

Binary file not shown.

Before

Width:  |  Height:  |  Size: 7.5 KiB