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

vermerke

Browse Source
This commit is contained in:
m.ilhan
2026-03-24 13:41:36 +01:00
parent 2bce928b98
commit eaf8945687
7 changed files with 2232 additions and 385 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
Aviso/Aviso.vbproj
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')" />
@@ -755,6 +755,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>
@@ -1419,6 +1425,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>

4
Aviso/My Project/AssemblyInfo.vb
View File

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

375
Aviso/frmAddSendungsvermerkShort.Designer.vb generated
View File

@@ -27,16 +27,30 @@ 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.PictureBox1 = New System.Windows.Forms.PictureBox()
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.flpDokumenteFehlenMain = New System.Windows.Forms.FlowLayoutPanel()
Me.lblSonstigeVermerke = New System.Windows.Forms.Label()
Me.flpAngefordert = New System.Windows.Forms.FlowLayoutPanel()
Me.Label5 = New System.Windows.Forms.Label()
Me.txtSonstigesDokumentFehlt = New System.Windows.Forms.TextBox()
Me.Label4 = New System.Windows.Forms.Label()
Me.optFremd_ATB = New System.Windows.Forms.CheckBox()
Me.optFremd_SendungAvisiert = 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()
@@ -56,24 +70,25 @@ Partial Class frmAddSendungsvermerkShort
Me.lblCustomerUploadLanguage = New System.Windows.Forms.Label()
Me.txtCustomerUploadEmailText = New System.Windows.Forms.TextBox()
Me.lblCustomerUploadEmailText = New System.Windows.Forms.Label()
Me.pnlCustomerUploadSeparator = New System.Windows.Forms.Panel()
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.btnDokumtanforderung = New System.Windows.Forms.Button()
Me.cbxSonstDok = New System.Windows.Forms.CheckBox()
Me.Label9 = New System.Windows.Forms.Label()
Me.Label17 = New System.Windows.Forms.Label()
Me.Label13 = New System.Windows.Forms.Label()
Me.txtFreierText = New System.Windows.Forms.TextBox()
Me.Label20 = New System.Windows.Forms.Label()
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
Me.PictureBox4 = New System.Windows.Forms.PictureBox()
Me.lblErrDokument = New System.Windows.Forms.Label()
Me.Panel4 = New System.Windows.Forms.Panel()
Me.pnlMain.SuspendLayout()
Me.pnlSendungsVermker.SuspendLayout()
CType(Me.nudCustomerUploadValidityHours, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.pnlDocumentEditor.SuspendLayout()
CType(Me.nudCustomerUploadValidityHours, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
@@ -89,23 +104,28 @@ 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(474, 868)
Me.pnlMain.Size = New System.Drawing.Size(474, 790)
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.PictureBox1)
Me.pnlSendungsVermker.Controls.Add(Me.pnlDocumentEditor)
Me.pnlSendungsVermker.Controls.Add(Me.flpDokumenteFehlenMain)
Me.pnlSendungsVermker.Controls.Add(Me.lblSonstigeVermerke)
Me.pnlSendungsVermker.Controls.Add(Me.flpAngefordert)
Me.pnlSendungsVermker.Controls.Add(Me.Label5)
Me.pnlSendungsVermker.Controls.Add(Me.txtSonstigesDokumentFehlt)
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.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)
@@ -125,31 +145,177 @@ Partial Class frmAddSendungsvermerkShort
Me.pnlSendungsVermker.Controls.Add(Me.lblCustomerUploadLanguage)
Me.pnlSendungsVermker.Controls.Add(Me.txtCustomerUploadEmailText)
Me.pnlSendungsVermker.Controls.Add(Me.lblCustomerUploadEmailText)
Me.pnlSendungsVermker.Controls.Add(Me.pnlCustomerUploadSeparator)
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.btnDokumtanforderung)
Me.pnlSendungsVermker.Controls.Add(Me.cbxSonstDok)
Me.pnlSendungsVermker.Controls.Add(Me.Label9)
Me.pnlSendungsVermker.Controls.Add(Me.Label17)
Me.pnlSendungsVermker.Controls.Add(Me.Label13)
Me.pnlSendungsVermker.Controls.Add(Me.txtFreierText)
Me.pnlSendungsVermker.Controls.Add(Me.Label20)
Me.pnlSendungsVermker.Controls.Add(Me.PictureBox1)
Me.pnlSendungsVermker.Controls.Add(Me.PictureBox4)
Me.pnlSendungsVermker.Controls.Add(Me.lblErrDokument)
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(474, 868)
Me.pnlSendungsVermker.Size = New System.Drawing.Size(474, 750)
Me.pnlSendungsVermker.TabIndex = 0
'
'PictureBox1
'
Me.PictureBox1.BackColor = System.Drawing.Color.WhiteSmoke
Me.PictureBox1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.PictureBox1.Location = New System.Drawing.Point(0, 391)
Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(474, 1)
Me.PictureBox1.TabIndex = 124
Me.PictureBox1.TabStop = 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.Location = New System.Drawing.Point(6, 135)
Me.pnlDocumentEditor.Name = "pnlDocumentEditor"
Me.pnlDocumentEditor.Size = New System.Drawing.Size(458, 134)
Me.pnlDocumentEditor.TabIndex = 123
'
'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(454, 39)
Me.flpDocumentTabs.TabIndex = 124
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(7, 42)
Me.lblDocumentEditorTitle.Name = "lblDocumentEditorTitle"
Me.lblDocumentEditorTitle.Size = New System.Drawing.Size(101, 13)
Me.lblDocumentEditorTitle.TabIndex = 125
Me.lblDocumentEditorTitle.Text = "Dokumentdetails"
'
'lblDocumentEditorName
'
Me.lblDocumentEditorName.AutoSize = True
Me.lblDocumentEditorName.Location = New System.Drawing.Point(7, 64)
Me.lblDocumentEditorName.Name = "lblDocumentEditorName"
Me.lblDocumentEditorName.Size = New System.Drawing.Size(85, 13)
Me.lblDocumentEditorName.TabIndex = 126
Me.lblDocumentEditorName.Text = "Dokumentname:"
'
'txtDocumentEditorName
'
Me.txtDocumentEditorName.BackColor = System.Drawing.Color.White
Me.txtDocumentEditorName.Location = New System.Drawing.Point(109, 61)
Me.txtDocumentEditorName.MaxLength = 120
Me.txtDocumentEditorName.Name = "txtDocumentEditorName"
Me.txtDocumentEditorName.Size = New System.Drawing.Size(128, 20)
Me.txtDocumentEditorName.TabIndex = 127
'
'lblDocumentEditorAnhangsart
'
Me.lblDocumentEditorAnhangsart.AutoSize = True
Me.lblDocumentEditorAnhangsart.Location = New System.Drawing.Point(247, 64)
Me.lblDocumentEditorAnhangsart.Name = "lblDocumentEditorAnhangsart"
Me.lblDocumentEditorAnhangsart.Size = New System.Drawing.Size(64, 13)
Me.lblDocumentEditorAnhangsart.TabIndex = 128
Me.lblDocumentEditorAnhangsart.Text = "Anhangsart:"
'
'cmbDocumentEditorAnhangsart
'
Me.cmbDocumentEditorAnhangsart.BackColor = System.Drawing.Color.White
Me.cmbDocumentEditorAnhangsart.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cmbDocumentEditorAnhangsart.Location = New System.Drawing.Point(319, 61)
Me.cmbDocumentEditorAnhangsart.Name = "cmbDocumentEditorAnhangsart"
Me.cmbDocumentEditorAnhangsart.Size = New System.Drawing.Size(124, 21)
Me.cmbDocumentEditorAnhangsart.TabIndex = 129
'
'lblDocumentEditorInfo
'
Me.lblDocumentEditorInfo.AutoSize = True
Me.lblDocumentEditorInfo.Location = New System.Drawing.Point(7, 88)
Me.lblDocumentEditorInfo.Name = "lblDocumentEditorInfo"
Me.lblDocumentEditorInfo.Size = New System.Drawing.Size(80, 13)
Me.lblDocumentEditorInfo.TabIndex = 130
Me.lblDocumentEditorInfo.Text = "Dokument Info:"
'
'txtDocumentEditorInfo
'
Me.txtDocumentEditorInfo.BackColor = System.Drawing.Color.White
Me.txtDocumentEditorInfo.Location = New System.Drawing.Point(109, 85)
Me.txtDocumentEditorInfo.MaxLength = 500
Me.txtDocumentEditorInfo.Name = "txtDocumentEditorInfo"
Me.txtDocumentEditorInfo.Size = New System.Drawing.Size(334, 20)
Me.txtDocumentEditorInfo.TabIndex = 131
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(7, 112)
Me.lblDocumentEditorStatus.Name = "lblDocumentEditorStatus"
Me.lblDocumentEditorStatus.Size = New System.Drawing.Size(339, 13)
Me.lblDocumentEditorStatus.TabIndex = 119
Me.lblDocumentEditorStatus.Text = "Wählen Sie ein Dokument, um Name und Dokument Info anzupassen."
'
'flpDokumenteFehlenMain
'
Me.flpDokumenteFehlenMain.BackColor = System.Drawing.Color.Transparent
Me.flpDokumenteFehlenMain.FlowDirection = System.Windows.Forms.FlowDirection.TopDown
Me.flpDokumenteFehlenMain.Location = New System.Drawing.Point(12, 23)
Me.flpDokumenteFehlenMain.Margin = New System.Windows.Forms.Padding(0)
Me.flpDokumenteFehlenMain.Name = "flpDokumenteFehlenMain"
Me.flpDokumenteFehlenMain.Size = New System.Drawing.Size(450, 90)
Me.flpDokumenteFehlenMain.TabIndex = 120
'
'lblSonstigeVermerke
'
Me.lblSonstigeVermerke.AutoSize = True
Me.lblSonstigeVermerke.BackColor = System.Drawing.Color.White
Me.lblSonstigeVermerke.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold)
Me.lblSonstigeVermerke.Location = New System.Drawing.Point(5, 393)
Me.lblSonstigeVermerke.Name = "lblSonstigeVermerke"
Me.lblSonstigeVermerke.Size = New System.Drawing.Size(150, 17)
Me.lblSonstigeVermerke.TabIndex = 121
Me.lblSonstigeVermerke.Text = "Sonstige Vermerke:"
'
'flpAngefordert
'
Me.flpAngefordert.BackColor = System.Drawing.Color.White
Me.flpAngefordert.FlowDirection = System.Windows.Forms.FlowDirection.TopDown
Me.flpAngefordert.Location = New System.Drawing.Point(12, 414)
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
'
'Label5
'
Me.Label5.AutoSize = True
Me.Label5.BackColor = System.Drawing.Color.WhiteSmoke
Me.Label5.BackColor = System.Drawing.Color.Transparent
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(2, 642)
Me.Label5.Location = New System.Drawing.Point(6, 274)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(202, 17)
Me.Label5.TabIndex = 118
@@ -159,7 +325,7 @@ Partial Class frmAddSendungsvermerkShort
'
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(96, 214)
Me.txtSonstigesDokumentFehlt.Location = New System.Drawing.Point(94, 114)
Me.txtSonstigesDokumentFehlt.MaxLength = 80
Me.txtSonstigesDokumentFehlt.Name = "txtSonstigesDokumentFehlt"
Me.txtSonstigesDokumentFehlt.Size = New System.Drawing.Size(198, 20)
@@ -170,7 +336,7 @@ Partial Class frmAddSendungsvermerkShort
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, 563)
Me.Label4.Location = New System.Drawing.Point(12, 625)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(125, 17)
Me.Label4.TabIndex = 96
@@ -180,7 +346,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, 610)
Me.optFremd_ATB.Location = New System.Drawing.Point(13, 660)
Me.optFremd_ATB.Name = "optFremd_ATB"
Me.optFremd_ATB.Size = New System.Drawing.Size(130, 17)
Me.optFremd_ATB.TabIndex = 94
@@ -191,7 +357,7 @@ 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, 587)
Me.optFremd_SendungAvisiert.Location = New System.Drawing.Point(13, 643)
Me.optFremd_SendungAvisiert.Name = "optFremd_SendungAvisiert"
Me.optFremd_SendungAvisiert.Size = New System.Drawing.Size(193, 17)
Me.optFremd_SendungAvisiert.TabIndex = 93
@@ -203,19 +369,32 @@ Partial Class frmAddSendungsvermerkShort
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, 468)
Me.lblErrSpedition.Location = New System.Drawing.Point(177, 551)
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, 468)
Me.Label2.Location = New System.Drawing.Point(176, 562)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(57, 13)
Me.Label2.TabIndex = 84
@@ -226,7 +405,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, 537)
Me.lblErrGrund.Location = New System.Drawing.Point(148, 614)
Me.lblErrGrund.Name = "lblErrGrund"
Me.lblErrGrund.Size = New System.Drawing.Size(149, 13)
Me.lblErrGrund.TabIndex = 26
@@ -250,24 +429,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(93, 233)
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
@@ -277,16 +444,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, 484)
Me.txtSpedition.Location = New System.Drawing.Point(178, 572)
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
@@ -298,7 +465,7 @@ Partial Class frmAddSendungsvermerkShort
'
Me.optSpeditionWeitergeleitet.AutoSize = True
Me.optSpeditionWeitergeleitet.BackColor = System.Drawing.Color.WhiteSmoke
Me.optSpeditionWeitergeleitet.Location = New System.Drawing.Point(12, 486)
Me.optSpeditionWeitergeleitet.Location = New System.Drawing.Point(13, 572)
Me.optSpeditionWeitergeleitet.Name = "optSpeditionWeitergeleitet"
Me.optSpeditionWeitergeleitet.Size = New System.Drawing.Size(163, 17)
Me.optSpeditionWeitergeleitet.TabIndex = 19
@@ -309,7 +476,7 @@ Partial Class frmAddSendungsvermerkShort
'
Me.optFreierText.AutoSize = True
Me.optFreierText.BackColor = System.Drawing.Color.WhiteSmoke
Me.optFreierText.Location = New System.Drawing.Point(12, 513)
Me.optFreierText.Location = New System.Drawing.Point(13, 589)
Me.optFreierText.Name = "optFreierText"
Me.optFreierText.Size = New System.Drawing.Size(105, 17)
Me.optFreierText.TabIndex = 27
@@ -320,7 +487,7 @@ Partial Class frmAddSendungsvermerkShort
'
Me.optATAangefordert.AutoSize = True
Me.optATAangefordert.BackColor = System.Drawing.Color.WhiteSmoke
Me.optATAangefordert.Location = New System.Drawing.Point(164, 610)
Me.optATAangefordert.Location = New System.Drawing.Point(165, 660)
Me.optATAangefordert.Name = "optATAangefordert"
Me.optATAangefordert.Size = New System.Drawing.Size(208, 17)
Me.optATAangefordert.TabIndex = 15
@@ -331,7 +498,7 @@ Partial Class frmAddSendungsvermerkShort
'
Me.Label3.AutoSize = True
Me.Label3.BackColor = System.Drawing.Color.WhiteSmoke
Me.Label3.Location = New System.Drawing.Point(308, 487)
Me.Label3.Location = New System.Drawing.Point(309, 573)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(57, 13)
Me.Label3.TabIndex = 22
@@ -341,7 +508,7 @@ Partial Class frmAddSendungsvermerkShort
'
Me.lblErr240Zeichen.AutoSize = True
Me.lblErr240Zeichen.ForeColor = System.Drawing.Color.Red
Me.lblErr240Zeichen.Location = New System.Drawing.Point(212, 785)
Me.lblErr240Zeichen.Location = New System.Drawing.Point(224, 689)
Me.lblErr240Zeichen.Name = "lblErr240Zeichen"
Me.lblErr240Zeichen.Size = New System.Drawing.Size(95, 13)
Me.lblErr240Zeichen.TabIndex = 32
@@ -353,12 +520,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(5, 801)
Me.txtDetail.Location = New System.Drawing.Point(17, 705)
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
@@ -366,7 +533,7 @@ Partial Class frmAddSendungsvermerkShort
'btnCustomerUploadLink
'
Me.btnCustomerUploadLink.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnCustomerUploadLink.Location = New System.Drawing.Point(340, 668)
Me.btnCustomerUploadLink.Location = New System.Drawing.Point(342, 297)
Me.btnCustomerUploadLink.Name = "btnCustomerUploadLink"
Me.btnCustomerUploadLink.Size = New System.Drawing.Size(124, 23)
Me.btnCustomerUploadLink.TabIndex = 108
@@ -376,7 +543,7 @@ Partial Class frmAddSendungsvermerkShort
'btnCustomerUploadEmail
'
Me.btnCustomerUploadEmail.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnCustomerUploadEmail.Location = New System.Drawing.Point(340, 694)
Me.btnCustomerUploadEmail.Location = New System.Drawing.Point(342, 322)
Me.btnCustomerUploadEmail.Name = "btnCustomerUploadEmail"
Me.btnCustomerUploadEmail.Size = New System.Drawing.Size(124, 23)
Me.btnCustomerUploadEmail.TabIndex = 109
@@ -387,7 +554,7 @@ Partial Class frmAddSendungsvermerkShort
'
Me.txtCustomerUploadEmail.BackColor = System.Drawing.Color.White
Me.txtCustomerUploadEmail.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtCustomerUploadEmail.Location = New System.Drawing.Point(80, 696)
Me.txtCustomerUploadEmail.Location = New System.Drawing.Point(82, 324)
Me.txtCustomerUploadEmail.MaxLength = 255
Me.txtCustomerUploadEmail.Name = "txtCustomerUploadEmail"
Me.txtCustomerUploadEmail.Size = New System.Drawing.Size(254, 20)
@@ -396,7 +563,7 @@ Partial Class frmAddSendungsvermerkShort
'lblCustomerUploadEmail
'
Me.lblCustomerUploadEmail.AutoSize = True
Me.lblCustomerUploadEmail.Location = New System.Drawing.Point(2, 699)
Me.lblCustomerUploadEmail.Location = New System.Drawing.Point(6, 327)
Me.lblCustomerUploadEmail.Name = "lblCustomerUploadEmail"
Me.lblCustomerUploadEmail.Size = New System.Drawing.Size(54, 13)
Me.lblCustomerUploadEmail.TabIndex = 110
@@ -405,7 +572,7 @@ Partial Class frmAddSendungsvermerkShort
'lblCustomerUploadValidityHours
'
Me.lblCustomerUploadValidityHours.AutoSize = True
Me.lblCustomerUploadValidityHours.Location = New System.Drawing.Point(176, 672)
Me.lblCustomerUploadValidityHours.Location = New System.Drawing.Point(178, 301)
Me.lblCustomerUploadValidityHours.Name = "lblCustomerUploadValidityHours"
Me.lblCustomerUploadValidityHours.Size = New System.Drawing.Size(66, 13)
Me.lblCustomerUploadValidityHours.TabIndex = 111
@@ -413,7 +580,7 @@ Partial Class frmAddSendungsvermerkShort
'
'nudCustomerUploadValidityHours
'
Me.nudCustomerUploadValidityHours.Location = New System.Drawing.Point(260, 670)
Me.nudCustomerUploadValidityHours.Location = New System.Drawing.Point(262, 299)
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"
@@ -426,7 +593,7 @@ Partial Class frmAddSendungsvermerkShort
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(80, 670)
Me.cmbCustomerUploadLanguage.Location = New System.Drawing.Point(82, 298)
Me.cmbCustomerUploadLanguage.Name = "cmbCustomerUploadLanguage"
Me.cmbCustomerUploadLanguage.Size = New System.Drawing.Size(80, 21)
Me.cmbCustomerUploadLanguage.TabIndex = 116
@@ -434,7 +601,7 @@ Partial Class frmAddSendungsvermerkShort
'lblCustomerUploadLanguage
'
Me.lblCustomerUploadLanguage.AutoSize = True
Me.lblCustomerUploadLanguage.Location = New System.Drawing.Point(2, 673)
Me.lblCustomerUploadLanguage.Location = New System.Drawing.Point(6, 301)
Me.lblCustomerUploadLanguage.Name = "lblCustomerUploadLanguage"
Me.lblCustomerUploadLanguage.Size = New System.Drawing.Size(72, 13)
Me.lblCustomerUploadLanguage.TabIndex = 117
@@ -444,36 +611,28 @@ Partial Class frmAddSendungsvermerkShort
'
Me.txtCustomerUploadEmailText.BackColor = System.Drawing.Color.White
Me.txtCustomerUploadEmailText.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtCustomerUploadEmailText.Location = New System.Drawing.Point(80, 718)
Me.txtCustomerUploadEmailText.Location = New System.Drawing.Point(82, 350)
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(254, 54)
Me.txtCustomerUploadEmailText.Size = New System.Drawing.Size(254, 34)
Me.txtCustomerUploadEmailText.TabIndex = 113
Me.txtCustomerUploadEmailText.Text = "Bitte laden Sie die angeforderten Dokumente über den Link hoch."
'
'lblCustomerUploadEmailText
'
Me.lblCustomerUploadEmailText.AutoSize = True
Me.lblCustomerUploadEmailText.Location = New System.Drawing.Point(2, 721)
Me.lblCustomerUploadEmailText.Location = New System.Drawing.Point(6, 349)
Me.lblCustomerUploadEmailText.Name = "lblCustomerUploadEmailText"
Me.lblCustomerUploadEmailText.Size = New System.Drawing.Size(63, 13)
Me.lblCustomerUploadEmailText.TabIndex = 114
Me.lblCustomerUploadEmailText.Text = "E-Mail Text:"
'
'pnlCustomerUploadSeparator
'
Me.pnlCustomerUploadSeparator.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.pnlCustomerUploadSeparator.Location = New System.Drawing.Point(-8, 779)
Me.pnlCustomerUploadSeparator.Name = "pnlCustomerUploadSeparator"
Me.pnlCustomerUploadSeparator.Size = New System.Drawing.Size(474, 1)
Me.pnlCustomerUploadSeparator.TabIndex = 115
'
'lblZustzlFreitext
'
Me.lblZustzlFreitext.AutoSize = True
Me.lblZustzlFreitext.Location = New System.Drawing.Point(2, 785)
Me.lblZustzlFreitext.Location = New System.Drawing.Point(14, 688)
Me.lblZustzlFreitext.Name = "lblZustzlFreitext"
Me.lblZustzlFreitext.Size = New System.Drawing.Size(142, 13)
Me.lblZustzlFreitext.TabIndex = 31
@@ -483,18 +642,18 @@ 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, 484)
Me.txtSendungSpedition.Location = New System.Drawing.Point(126, 591)
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(310, 216)
Me.cbxNichtLeserlich.BackColor = System.Drawing.Color.Transparent
Me.cbxNichtLeserlich.Location = New System.Drawing.Point(308, 116)
Me.cbxNichtLeserlich.Name = "cbxNichtLeserlich"
Me.cbxNichtLeserlich.Size = New System.Drawing.Size(90, 17)
Me.cbxNichtLeserlich.TabIndex = 8
@@ -504,18 +663,28 @@ Partial Class frmAddSendungsvermerkShort
'btnOK
'
Me.btnOK.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnOK.Location = New System.Drawing.Point(313, 801)
Me.btnOK.Location = New System.Drawing.Point(325, 705)
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
'
'btnDokumtanforderung
'
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
'
'cbxSonstDok
'
Me.cbxSonstDok.AutoSize = True
Me.cbxSonstDok.BackColor = System.Drawing.Color.WhiteSmoke
Me.cbxSonstDok.Location = New System.Drawing.Point(14, 216)
Me.cbxSonstDok.BackColor = System.Drawing.Color.Transparent
Me.cbxSonstDok.Location = New System.Drawing.Point(12, 116)
Me.cbxSonstDok.Name = "cbxSonstDok"
Me.cbxSonstDok.Size = New System.Drawing.Size(83, 17)
Me.cbxSonstDok.TabIndex = 9
@@ -527,7 +696,7 @@ Partial Class frmAddSendungsvermerkShort
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, 537)
Me.Label9.Location = New System.Drawing.Point(355, 614)
Me.Label9.Name = "Label9"
Me.Label9.Size = New System.Drawing.Size(90, 13)
Me.Label9.TabIndex = 30
@@ -538,7 +707,7 @@ Partial Class frmAddSendungsvermerkShort
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, 537)
Me.Label17.Location = New System.Drawing.Point(145, 614)
Me.Label17.Name = "Label17"
Me.Label17.Size = New System.Drawing.Size(182, 13)
Me.Label17.TabIndex = 29
@@ -549,7 +718,7 @@ 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, 459)
Me.Label13.Location = New System.Drawing.Point(10, 553)
Me.Label13.Name = "Label13"
Me.Label13.Size = New System.Drawing.Size(84, 17)
Me.Label13.TabIndex = 16
@@ -559,41 +728,45 @@ Partial Class frmAddSendungsvermerkShort
'
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, 511)
Me.txtFreierText.Location = New System.Drawing.Point(123, 587)
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
'
'Label20
'
Me.Label20.AutoSize = True
Me.Label20.BackColor = System.Drawing.Color.WhiteSmoke
Me.Label20.Location = New System.Drawing.Point(267, 487)
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(216, 276)
Me.Label20.Name = "Label20"
Me.Label20.Size = New System.Drawing.Size(0, 13)
Me.Label20.Size = New System.Drawing.Size(207, 13)
Me.Label20.TabIndex = 21
'
'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(474, 250)
Me.PictureBox1.TabIndex = 83
Me.PictureBox1.TabStop = False
Me.Label20.Text = "Bitte zuerst Dokument(e) oben auswählen."
'
'PictureBox4
'
Me.PictureBox4.BackColor = System.Drawing.Color.WhiteSmoke
Me.PictureBox4.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.PictureBox4.Location = New System.Drawing.Point(-1, 450)
Me.PictureBox4.Location = New System.Drawing.Point(-1, 547)
Me.PictureBox4.Name = "PictureBox4"
Me.PictureBox4.Size = New System.Drawing.Size(481, 189)
Me.PictureBox4.Size = New System.Drawing.Size(474, 139)
Me.PictureBox4.TabIndex = 78
Me.PictureBox4.TabStop = 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(96, 136)
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
'
'Panel4
'
Me.Panel4.BackColor = System.Drawing.Color.White
@@ -608,7 +781,7 @@ Partial Class frmAddSendungsvermerkShort
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(474, 868)
Me.ClientSize = New System.Drawing.Size(474, 750)
Me.Controls.Add(Me.pnlMain)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
@@ -620,8 +793,10 @@ Partial Class frmAddSendungsvermerkShort
Me.pnlMain.ResumeLayout(False)
Me.pnlSendungsVermker.ResumeLayout(False)
Me.pnlSendungsVermker.PerformLayout()
CType(Me.nudCustomerUploadValidityHours, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
Me.pnlDocumentEditor.ResumeLayout(False)
Me.pnlDocumentEditor.PerformLayout()
CType(Me.nudCustomerUploadValidityHours, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
@@ -640,6 +815,7 @@ Partial Class frmAddSendungsvermerkShort
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 btnDokumtanforderung As System.Windows.Forms.Button
Friend WithEvents cbxSonstDok As System.Windows.Forms.CheckBox
Friend WithEvents Label9 As System.Windows.Forms.Label
Friend WithEvents lblErrSpedition As System.Windows.Forms.Label
@@ -649,11 +825,12 @@ Partial Class frmAddSendungsvermerkShort
Friend WithEvents txtFreierText As System.Windows.Forms.TextBox
Friend WithEvents txtSpedition As System.Windows.Forms.TextBox
Friend WithEvents Label20 As System.Windows.Forms.Label
Friend WithEvents lblDocumentEditorStatus As System.Windows.Forms.Label
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 Label4 As Label
@@ -670,6 +847,18 @@ Partial Class frmAddSendungsvermerkShort
Friend WithEvents lblCustomerUploadLanguage As Label
Friend WithEvents txtCustomerUploadEmailText As TextBox
Friend WithEvents lblCustomerUploadEmailText As Label
Friend WithEvents pnlCustomerUploadSeparator As Panel
Friend WithEvents Label5 As Label
Friend WithEvents flpDokumenteFehlenMain As FlowLayoutPanel
Friend WithEvents lblSonstigeVermerke As Label
Friend WithEvents flpAngefordert As FlowLayoutPanel
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 PictureBox1 As PictureBox
End Class

526
Aviso/frmAddSendungsvermerkShort.vb
View File

@@ -25,18 +25,10 @@ Public Class frmAddSendungsvermerkShort
Private ReadOnly _bereichByCodeId As New Dictionary(Of Integer, Integer)
Private _selectedDocumentCodeId As Integer = 0
Private _isLoadingDocumentEditor As Boolean = False
Private pnlDocumentEditor As Panel
Private lblDocumentEditorTitle As Label
Private lblDocumentEditorName As Label
Private txtDocumentEditorName As TextBox
Private lblDocumentEditorAnhangsart As Label
Private cmbDocumentEditorAnhangsart As ComboBox
Private lblDocumentEditorInfo As Label
Private txtDocumentEditorInfo As TextBox
Private lblDocumentEditorStatus As Label
Private Const DefaultDocumentBaseText As String = "Bitte das Dokument hochladen."
Private Const BereichDokumentMain As Integer = 1
Private Const BereichAngefordert As Integer = 2
Private _dokumentanforderungState As New frmSendungsDokumentanforderung.DokumentanforderungState()
Dim Neuanlage As Boolean = False
Dim hStatus As Integer
@@ -87,16 +79,17 @@ 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)
If cmbCustomerUploadLanguage IsNot Nothing Then
If cmbCustomerUploadLanguage.SelectedIndex < 0 Then
@@ -109,6 +102,8 @@ Public Class frmAddSendungsvermerkShort
End If
End If
InitializeDocumentEditor()
For Each c In Me.Controls
If c.GetType.Name.ToString = "RadioButton" Then
AddHandler DirectCast(c, RadioButton).CheckedChanged, AddressOf selectionChanged
@@ -123,6 +118,8 @@ Public Class frmAddSendungsvermerkShort
End If
SetupDynamicAnforderungCheckboxes()
_dokumentanforderungState = BuildDokumentanforderungState()
SetDokumentbereichVisible(False)
hStatus = myAviso.Status
If hStatus = cGlobal.Status_Vorbereitet Or hStatus = cGlobal.Status_Vorgeschrieben Or hStatus = cGlobal.Status_Erfasst Then
@@ -156,6 +153,33 @@ Public Class frmAddSendungsvermerkShort
End Sub
Private Sub InitializeDocumentEditor()
If txtDocumentEditorName IsNot Nothing Then
RemoveHandler txtDocumentEditorName.TextChanged, AddressOf DocumentEditorInputChanged
AddHandler txtDocumentEditorName.TextChanged, AddressOf DocumentEditorInputChanged
End If
If txtDocumentEditorInfo IsNot Nothing Then
RemoveHandler txtDocumentEditorInfo.TextChanged, AddressOf DocumentEditorInputChanged
AddHandler txtDocumentEditorInfo.TextChanged, AddressOf DocumentEditorInputChanged
End If
EnsureAnhangsartenOptionsLoaded()
If cmbDocumentEditorAnhangsart IsNot Nothing Then
RemoveHandler cmbDocumentEditorAnhangsart.SelectedIndexChanged, AddressOf DocumentEditorAnhangsartChanged
cmbDocumentEditorAnhangsart.BeginUpdate()
cmbDocumentEditorAnhangsart.Items.Clear()
For Each optionItem In _anhangsartenOptions
cmbDocumentEditorAnhangsart.Items.Add(optionItem)
Next
cmbDocumentEditorAnhangsart.EndUpdate()
AddHandler cmbDocumentEditorAnhangsart.SelectedIndexChanged, AddressOf DocumentEditorAnhangsartChanged
End If
ClearDocumentEditor()
End Sub
Private Sub SetupDynamicAnforderungCheckboxes()
_anforderungCheckboxes.Clear()
_anhangsartIdByCheckbox.Clear()
@@ -185,44 +209,8 @@ Public Class frmAddSendungsvermerkShort
End If
EnsureAnhangsartenOptionsLoaded()
Dim docsLeft = Label1.Left + 3
Dim docsTop = Label1.Bottom + 6
Dim docsWidth = PictureBox1.Width - (docsLeft * 2)
Dim docsMainHeight = Math.Max(10, cbxSonstDok.Top - docsTop - 6)
Dim docsMainPanel = CreateAnforderungFlowPanel("flpDokumenteFehlenMain", docsLeft, docsTop, docsWidth, docsMainHeight, Color.WhiteSmoke)
docsMainPanel.FlowDirection = FlowDirection.LeftToRight
docsMainPanel.WrapContents = True
Dim docsExtraFound = pnlSendungsVermker.Controls.Find("flpDokumenteFehlenExtra", True)
If docsExtraFound IsNot Nothing AndAlso docsExtraFound.Length > 0 Then
Dim docsExtraPanel = TryCast(docsExtraFound(0), FlowLayoutPanel)
If docsExtraPanel IsNot Nothing Then
docsExtraPanel.Visible = False
docsExtraPanel.Controls.Clear()
End If
End If
PositionDocumentEditorAndUpload()
Dim lblSonstigeVermerke As Label = TryCast(pnlSendungsVermker.Controls.Find("lblSonstigeVermerke", True).FirstOrDefault(), Label)
If lblSonstigeVermerke Is Nothing Then
lblSonstigeVermerke = New Label()
lblSonstigeVermerke.Name = "lblSonstigeVermerke"
lblSonstigeVermerke.Text = "Sonstige Vermerke:"
lblSonstigeVermerke.Font = New Font("Microsoft Sans Serif", 10.0!, FontStyle.Bold)
lblSonstigeVermerke.AutoSize = True
lblSonstigeVermerke.BackColor = Color.White
pnlSendungsVermker.Controls.Add(lblSonstigeVermerke)
End If
lblSonstigeVermerke.Left = docsLeft
lblSonstigeVermerke.Top = PictureBox1.Bottom + 8
lblSonstigeVermerke.BringToFront()
Dim anforderungLeft = docsLeft
Dim anforderungTop = lblSonstigeVermerke.Bottom + 6
Dim anforderungWidth = pnlSendungsVermker.Width - (anforderungLeft * 2)
Dim anforderungHeight = 198
Dim anforderungPanel = CreateAnforderungFlowPanel("flpAngefordert", anforderungLeft, anforderungTop, anforderungWidth, anforderungHeight, Color.White)
flpDokumenteFehlenMain.Controls.Clear()
flpAngefordert.Controls.Clear()
For Each row As DataRow In dt.Rows
Dim id As Integer
@@ -245,7 +233,7 @@ Public Class frmAddSendungsvermerkShort
Dim cb As New CheckBox()
cb.Text = frontendBezeichnung
cb.Tag = id
cb.Margin = New Padding(0, 0, 8, 2)
cb.Margin = New Padding(0, 0, 4, 0)
AddHandler cb.CheckedChanged, AddressOf DynamicAnforderungCheckboxChanged
If bezeichnung.ToLowerInvariant().Contains("nicht leserlich") Then
@@ -274,256 +262,46 @@ Public Class frmAddSendungsvermerkShort
_bereichByCodeId(id) = bereich
If bereich = BereichDokumentMain Then
cb.BackColor = Color.WhiteSmoke
cb.BackColor = Color.Transparent
cb.UseVisualStyleBackColor = False
ConfigureAnforderungCheckbox(cb, docsMainPanel)
docsMainPanel.Controls.Add(cb)
ConfigureAnforderungCheckbox(cb, flpDokumenteFehlenMain)
flpDokumenteFehlenMain.Controls.Add(cb)
Else
ConfigureAnforderungCheckbox(cb, anforderungPanel)
anforderungPanel.Controls.Add(cb)
ConfigureAnforderungCheckbox(cb, flpAngefordert)
flpAngefordert.Controls.Add(cb)
End If
_anforderungCheckboxes.Add(cb)
Next
ArrangeSections(docsMainPanel, anforderungPanel)
cbxSonstDok.BringToFront()
txtSonstigesDokumentFehlt.BringToFront()
cbxNichtLeserlich.BringToFront()
lblErrDokument.BringToFront()
End Sub
Private Function CreateAnforderungFlowPanel(name As String, left As Integer, top As Integer, width As Integer, height As Integer, backColor As Color) As FlowLayoutPanel
Dim found = pnlSendungsVermker.Controls.Find(name, True)
If found IsNot Nothing AndAlso found.Length > 0 Then
Dim existing = TryCast(found(0), FlowLayoutPanel)
If existing IsNot Nothing Then
existing.Left = left
existing.Top = top
existing.Width = width
existing.Height = height
existing.BackColor = backColor
existing.FlowDirection = FlowDirection.TopDown
existing.WrapContents = True
existing.AutoScroll = True
existing.Controls.Clear()
existing.BringToFront()
Return existing
End If
End If
Dim flp As New FlowLayoutPanel()
flp.Name = name
flp.Left = left
flp.Top = top
flp.Width = width
flp.Height = height
flp.FlowDirection = FlowDirection.TopDown
flp.WrapContents = True
flp.AutoScroll = True
flp.BackColor = backColor
flp.Padding = New Padding(0)
flp.Margin = New Padding(0)
pnlSendungsVermker.Controls.Add(flp)
flp.BringToFront()
Return flp
End Function
Private Sub ConfigureAnforderungCheckbox(cb As CheckBox, container As Control)
If cb Is Nothing OrElse container Is Nothing Then Return
cb.AutoSize = False
cb.Height = 20
cb.Height = 18
Dim cols As Integer = 2
Dim colGap As Integer = 14
Dim minCbWidth As Integer = 120
If String.Equals(container.Name, "flpDokumenteFehlenMain", StringComparison.OrdinalIgnoreCase) Then
cols = 3
colGap = 8
minCbWidth = 150
colGap = 2
minCbWidth = 80
ElseIf String.Equals(container.Name, "flpAngefordert", StringComparison.OrdinalIgnoreCase) Then
cols = 2
colGap = 14
minCbWidth = 180
End If
Dim usableWidth = Math.Max(120, container.Width - 12)
Dim usableWidth = Math.Max(120, container.Width - 20)
Dim cbWidth = CInt(Math.Floor((usableWidth - ((cols - 1) * colGap)) / cols))
cb.Width = Math.Max(minCbWidth, cbWidth)
End Sub
Private Sub PositionDocumentEditorAndUpload()
EnsureDocumentEditorControls()
Dim topSectionBottom = Math.Max(cbxSonstDok.Bottom, lblErrDokument.Bottom)
pnlDocumentEditor.Left = 8
pnlDocumentEditor.Top = topSectionBottom + 12
pnlDocumentEditor.Width = pnlSendungsVermker.Width - 16
pnlDocumentEditor.Height = 152
pnlDocumentEditor.BackColor = Color.WhiteSmoke
pnlDocumentEditor.BringToFront()
Label5.Top = pnlDocumentEditor.Bottom + 8
Label5.BackColor = Color.WhiteSmoke
Label5.BringToFront()
Label20.Left = Label5.Right + 10
Label20.Top = Label5.Top + 2
Label20.BackColor = Color.WhiteSmoke
Label20.AutoSize = True
Label20.ForeColor = Color.FromArgb(0, 102, 153)
Label20.Text = "Bitte zuerst Dokument(e) oben auswählen."
Label20.BringToFront()
lblCustomerUploadLanguage.Top = Label5.Bottom + 10
lblCustomerUploadLanguage.BackColor = Color.WhiteSmoke
lblCustomerUploadLanguage.BringToFront()
cmbCustomerUploadLanguage.Top = lblCustomerUploadLanguage.Top - 3
cmbCustomerUploadLanguage.BringToFront()
lblCustomerUploadValidityHours.Top = lblCustomerUploadLanguage.Top
lblCustomerUploadValidityHours.BackColor = Color.WhiteSmoke
lblCustomerUploadValidityHours.BringToFront()
nudCustomerUploadValidityHours.Top = lblCustomerUploadLanguage.Top - 2
nudCustomerUploadValidityHours.BringToFront()
btnCustomerUploadLink.Top = lblCustomerUploadLanguage.Top - 4
btnCustomerUploadLink.BringToFront()
lblCustomerUploadEmail.Top = lblCustomerUploadLanguage.Top + 26
lblCustomerUploadEmail.BackColor = Color.WhiteSmoke
lblCustomerUploadEmail.BringToFront()
txtCustomerUploadEmail.Top = lblCustomerUploadEmail.Top - 3
txtCustomerUploadEmail.BringToFront()
btnCustomerUploadEmail.Top = txtCustomerUploadEmail.Top - 2
btnCustomerUploadEmail.BringToFront()
lblCustomerUploadEmailText.Top = lblCustomerUploadEmail.Top + 22
lblCustomerUploadEmailText.BackColor = Color.WhiteSmoke
lblCustomerUploadEmailText.BringToFront()
txtCustomerUploadEmailText.Top = lblCustomerUploadEmailText.Top - 3
txtCustomerUploadEmailText.BringToFront()
pnlCustomerUploadSeparator.Visible = False
PictureBox1.Height = txtCustomerUploadEmailText.Bottom + 12
End Sub
Private Sub ArrangeSections(docsMainPanel As FlowLayoutPanel, anforderungPanel As FlowLayoutPanel)
If docsMainPanel Is Nothing OrElse anforderungPanel Is Nothing Then Return
Label13.Top = anforderungPanel.Bottom + 14
PictureBox4.Top = Label13.Top - 10
optSpeditionWeitergeleitet.Top = Label13.Bottom + 10
txtSpedition.Top = optSpeditionWeitergeleitet.Top - 2
Label2.Top = optSpeditionWeitergeleitet.Top - 18
Label3.Top = optSpeditionWeitergeleitet.Top + 1
lblErrSpedition.Top = Label2.Top
optFreierText.Top = optSpeditionWeitergeleitet.Bottom + 9
txtFreierText.Top = optFreierText.Top - 2
Label17.Top = txtFreierText.Bottom + 4
Label9.Top = Label17.Top
lblErrGrund.Top = Label17.Top
Label4.Top = Label17.Bottom + 14
optFremd_SendungAvisiert.Top = Label4.Bottom + 7
optFremd_ATB.Top = optFremd_SendungAvisiert.Bottom + 6
optATAangefordert.Top = optFremd_ATB.Top
PictureBox4.Height = (optFremd_ATB.Bottom + 12) - PictureBox4.Top
lblZustzlFreitext.Top = PictureBox4.Bottom + 8
txtDetail.Top = lblZustzlFreitext.Bottom + 4
btnOK.Top = txtDetail.Top
lblErr240Zeichen.Top = txtDetail.Top - 16
Dim contentBottom = Math.Max(btnOK.Bottom, txtDetail.Bottom) + 12
pnlSendungsVermker.Height = contentBottom
pnlMain.Height = contentBottom
Me.ClientSize = New Size(Me.ClientSize.Width, contentBottom)
End Sub
Private flpDocumentTabs As FlowLayoutPanel
Private Sub EnsureDocumentEditorControls()
If pnlDocumentEditor IsNot Nothing Then Return
pnlDocumentEditor = New Panel()
pnlDocumentEditor.BackColor = Color.WhiteSmoke
pnlDocumentEditor.BorderStyle = BorderStyle.FixedSingle
pnlSendungsVermker.Controls.Add(pnlDocumentEditor)
flpDocumentTabs = New FlowLayoutPanel()
flpDocumentTabs.Location = New Point(0, 0)
flpDocumentTabs.Width = pnlDocumentEditor.Width
flpDocumentTabs.Height = 50
flpDocumentTabs.BackColor = Color.FromArgb(220, 220, 220)
flpDocumentTabs.WrapContents = False
flpDocumentTabs.AutoScroll = True
flpDocumentTabs.Anchor = AnchorStyles.Top Or AnchorStyles.Left Or AnchorStyles.Right
pnlDocumentEditor.Controls.Add(flpDocumentTabs)
lblDocumentEditorTitle = New Label()
lblDocumentEditorTitle.AutoSize = True
lblDocumentEditorTitle.Font = New Font("Microsoft Sans Serif", 8.25!, FontStyle.Bold, GraphicsUnit.Point, CType(0, Byte))
lblDocumentEditorTitle.Location = New Point(8, 58)
lblDocumentEditorTitle.Text = "Dokumentdetails"
pnlDocumentEditor.Controls.Add(lblDocumentEditorTitle)
lblDocumentEditorName = New Label()
lblDocumentEditorName.AutoSize = True
lblDocumentEditorName.Location = New Point(8, 80)
lblDocumentEditorName.Text = "Dokumentname:"
pnlDocumentEditor.Controls.Add(lblDocumentEditorName)
txtDocumentEditorName = New TextBox()
txtDocumentEditorName.BackColor = Color.White
txtDocumentEditorName.Location = New Point(110, 77)
txtDocumentEditorName.MaxLength = 120
txtDocumentEditorName.Size = New Size(128, 20)
AddHandler txtDocumentEditorName.TextChanged, AddressOf DocumentEditorInputChanged
pnlDocumentEditor.Controls.Add(txtDocumentEditorName)
lblDocumentEditorAnhangsart = New Label()
lblDocumentEditorAnhangsart.AutoSize = True
lblDocumentEditorAnhangsart.Location = New Point(248, 80)
lblDocumentEditorAnhangsart.Text = "Anhangsart:"
pnlDocumentEditor.Controls.Add(lblDocumentEditorAnhangsart)
cmbDocumentEditorAnhangsart = New ComboBox()
cmbDocumentEditorAnhangsart.BackColor = Color.White
cmbDocumentEditorAnhangsart.DropDownStyle = ComboBoxStyle.DropDownList
cmbDocumentEditorAnhangsart.Location = New Point(320, 77)
cmbDocumentEditorAnhangsart.Size = New Size(124, 21)
EnsureAnhangsartenOptionsLoaded()
For Each o In _anhangsartenOptions
cmbDocumentEditorAnhangsart.Items.Add(o)
Next
AddHandler cmbDocumentEditorAnhangsart.SelectedIndexChanged, AddressOf DocumentEditorAnhangsartChanged
pnlDocumentEditor.Controls.Add(cmbDocumentEditorAnhangsart)
lblDocumentEditorInfo = New Label()
lblDocumentEditorInfo.AutoSize = True
lblDocumentEditorInfo.Location = New Point(8, 104)
lblDocumentEditorInfo.Text = "Dokument Info:"
pnlDocumentEditor.Controls.Add(lblDocumentEditorInfo)
txtDocumentEditorInfo = New TextBox()
txtDocumentEditorInfo.BackColor = Color.White
txtDocumentEditorInfo.Location = New Point(110, 101)
txtDocumentEditorInfo.MaxLength = 500
txtDocumentEditorInfo.Size = New Size(334, 20)
txtDocumentEditorInfo.Text = DefaultDocumentBaseText
AddHandler txtDocumentEditorInfo.TextChanged, AddressOf DocumentEditorInputChanged
pnlDocumentEditor.Controls.Add(txtDocumentEditorInfo)
lblDocumentEditorStatus = New Label()
lblDocumentEditorStatus.AutoSize = True
lblDocumentEditorStatus.ForeColor = Color.FromArgb(0, 102, 153)
lblDocumentEditorStatus.Location = New Point(8, 128)
lblDocumentEditorStatus.Text = "Wählen Sie ein Dokument, um Name und Dokument Info anzupassen."
pnlDocumentEditor.Controls.Add(lblDocumentEditorStatus)
cb.Width = Math.Max(minCbWidth, Math.Min(cbWidth, 220))
End Sub
Private Sub DocumentEditorInputChanged(sender As Object, e As EventArgs)
@@ -845,8 +623,6 @@ Public Class frmAddSendungsvermerkShort
End Sub
Private Sub LoadDocumentEditorForCheckbox(cb As CheckBox)
EnsureDocumentEditorControls()
Dim codeId As Integer = 0
If Not TryGetCheckboxCodeId(cb, codeId) Then
_selectedDocumentCodeId = 0
@@ -986,6 +762,145 @@ Public Class frmAddSendungsvermerkShort
End If
End Sub
Private Sub SetDokumentbereichVisible(visible As Boolean)
flpDokumenteFehlenMain.Visible = visible
pnlDocumentEditor.Visible = visible
Label5.Visible = visible
txtSonstigesDokumentFehlt.Visible = visible
btnCustomerUploadLink.Visible = visible
btnCustomerUploadEmail.Visible = visible
txtCustomerUploadEmail.Visible = visible
lblCustomerUploadEmail.Visible = visible
lblCustomerUploadValidityHours.Visible = visible
nudCustomerUploadValidityHours.Visible = visible
cmbCustomerUploadLanguage.Visible = visible
lblCustomerUploadLanguage.Visible = visible
txtCustomerUploadEmailText.Visible = visible
lblCustomerUploadEmailText.Visible = visible
Label20.Visible = visible
cbxNichtLeserlich.Visible = visible
cbxSonstDok.Visible = visible
lblErrDokument.Visible = False
If PictureBox1 IsNot Nothing Then
PictureBox1.Visible = visible
End If
End Sub
Private Function BuildDokumentanforderungState() As frmSendungsDokumentanforderung.DokumentanforderungState
Dim result As New frmSendungsDokumentanforderung.DokumentanforderungState()
result.SelectedCodeIds = New List(Of Integer)
For Each cb In _anforderungCheckboxes
Dim codeId As Integer = 0
If cb IsNot Nothing AndAlso cb.Checked AndAlso Integer.TryParse(If(cb.Tag, "").ToString(), codeId) Then
If _bereichByCodeId.ContainsKey(codeId) AndAlso _bereichByCodeId(codeId) = BereichDokumentMain Then
result.SelectedCodeIds.Add(codeId)
End If
End If
Next
result.SelectedAnhangsartIdByCodeId = New Dictionary(Of Integer, Integer)(_selectedAnhangsartIdByCodeId)
result.DocumentCustomNameByCodeId = New Dictionary(Of Integer, String)(_documentCustomNameByCodeId)
result.DocumentBaseTextByCodeId = New Dictionary(Of Integer, String)(_documentBaseTextByCodeId)
result.SonstDokChecked = cbxSonstDok.Checked
result.SonstigesDokumentName = If(txtSonstigesDokumentFehlt.Text, "").Trim()
result.NichtLeserlichChecked = cbxNichtLeserlich.Checked
result.CustomerUploadEmail = If(txtCustomerUploadEmail.Text, "").Trim()
result.CustomerUploadLanguage = If(TryCast(cmbCustomerUploadLanguage.SelectedItem, String), If(cmbCustomerUploadLanguage.Text, "").Trim())
result.CustomerUploadEmailText = If(txtCustomerUploadEmailText.Text, "").Trim()
result.CustomerUploadValidityHours = CInt(nudCustomerUploadValidityHours.Value)
Return result
End Function
Private Function InsertNurDokumentVermerk() As Boolean
Dim dokumentVermerkGesetzt As Boolean = False
For Each cb In _anforderungCheckboxes
If cb Is Nothing OrElse Not cb.Checked Then Continue For
Dim codeId As Integer = 0
If Not Integer.TryParse(If(cb.Tag, "").ToString(), codeId) Then Continue For
If Not _bereichByCodeId.ContainsKey(codeId) OrElse _bereichByCodeId(codeId) <> BereichDokumentMain Then Continue For
Dim text = ""
If _backendBezeichnungByCodeId.ContainsKey(codeId) Then
text = If(_backendBezeichnungByCodeId(codeId), "").Trim()
End If
If text = "" Then text = cb.Text.Trim()
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)
dokumentVermerkGesetzt = True
End If
Next
If cbxSonstDok.Checked Then
If txtSonstigesDokumentFehlt.Text.Trim = "" Then
lblErrDokument.Visible = True
txtSonstigesDokumentFehlt.Focus()
Return False
End If
insertSendungsVermerk(SendungID, myAviso.AvisoID, "Dokument '" & txtSonstigesDokumentFehlt.Text.Trim & "' fehlt - angefordert.", 25)
dokumentVermerkGesetzt = True
End If
If cbxNichtLeserlich.Checked Then
insertSendungsVermerk(SendungID, myAviso.AvisoID, "Dokument(e) nachgefordert, da nicht leserlich.", 42)
dokumentVermerkGesetzt = True
End If
If Not dokumentVermerkGesetzt Then
lblErrDokument.Visible = True
Return False
End If
Return True
End Function
Private Sub ApplyDokumentanforderungState(state As frmSendungsDokumentanforderung.DokumentanforderungState)
If state Is Nothing Then Return
_selectedAnhangsartIdByCodeId.Clear()
_documentCustomNameByCodeId.Clear()
_documentBaseTextByCodeId.Clear()
For Each kvp In state.SelectedAnhangsartIdByCodeId
_selectedAnhangsartIdByCodeId(kvp.Key) = kvp.Value
Next
For Each kvp In state.DocumentCustomNameByCodeId
_documentCustomNameByCodeId(kvp.Key) = kvp.Value
Next
For Each kvp In state.DocumentBaseTextByCodeId
_documentBaseTextByCodeId(kvp.Key) = kvp.Value
Next
For Each cb In _anforderungCheckboxes
Dim codeId As Integer = 0
If cb Is Nothing Then Continue For
If Not Integer.TryParse(If(cb.Tag, "").ToString(), codeId) Then Continue For
If _bereichByCodeId.ContainsKey(codeId) AndAlso _bereichByCodeId(codeId) = BereichDokumentMain Then
cb.Checked = state.SelectedCodeIds.Contains(codeId)
End If
Next
cbxSonstDok.Checked = state.SonstDokChecked
txtSonstigesDokumentFehlt.Text = If(state.SonstigesDokumentName, "")
cbxNichtLeserlich.Checked = state.NichtLeserlichChecked
txtCustomerUploadEmail.Text = If(state.CustomerUploadEmail, "")
txtCustomerUploadEmailText.Text = If(state.CustomerUploadEmailText, "")
Dim targetValidity = Math.Max(CInt(nudCustomerUploadValidityHours.Minimum), Math.Min(CInt(nudCustomerUploadValidityHours.Maximum), state.CustomerUploadValidityHours))
nudCustomerUploadValidityHours.Value = targetValidity
Dim language = If(state.CustomerUploadLanguage, "").Trim()
Dim languageIdx = cmbCustomerUploadLanguage.Items.IndexOf(language)
If languageIdx >= 0 Then
cmbCustomerUploadLanguage.SelectedIndex = languageIdx
End If
SyncTabs()
End Sub
' Private Sub btnAbbruch_Click(sender As System.Object, e As System.EventArgs) Handles btnAbbruch.Click
' Me.Close()
' End Sub
@@ -1193,18 +1108,53 @@ 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
txtFreierText.Focus()
End Sub
' --- Dragging Logic ---
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
_dokumentanforderungState = BuildDokumentanforderungState()
Using frm As New frmSendungsDokumentanforderung(AvisoID, SendungID, _dokumentanforderungState)
If frm.ShowDialog(Me) = DialogResult.OK Then
_dokumentanforderungState = frm.BuildState()
ApplyDokumentanforderungState(_dokumentanforderungState)
If InsertNurDokumentVermerk() Then
frmHauptfenster.avisoAktualisierenAktiveIdBehalten(myAviso.AvisoID)
Me.Close()
End If
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)

440
Aviso/frmSendungsDokumentanforderung.Designer.vb generated Normal file
View File

@@ -0,0 +1,440 @@
<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.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.Location = New System.Drawing.Point(12, 34)
Me.flpDokumenteFehlenMain.Margin = New System.Windows.Forms.Padding(0)
Me.flpDokumenteFehlenMain.Name = "flpDokumenteFehlenMain"
Me.flpDokumenteFehlenMain.Size = New System.Drawing.Size(450, 90)
Me.flpDokumenteFehlenMain.TabIndex = 0
'
'cbxSonstDok
'
Me.cbxSonstDok.AutoSize = True
Me.cbxSonstDok.Location = New System.Drawing.Point(12, 126)
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.Location = New System.Drawing.Point(95, 124)
Me.txtSonstigesDokumentFehlt.MaxLength = 80
Me.txtSonstigesDokumentFehlt.Name = "txtSonstigesDokumentFehlt"
Me.txtSonstigesDokumentFehlt.Size = New System.Drawing.Size(198, 20)
Me.txtSonstigesDokumentFehlt.TabIndex = 2
'
'cbxNichtLeserlich
'
Me.cbxNichtLeserlich.AutoSize = True
Me.cbxNichtLeserlich.Location = New System.Drawing.Point(308, 126)
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(96, 146)
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.Location = New System.Drawing.Point(6, 159)
Me.pnlDocumentEditor.Name = "pnlDocumentEditor"
Me.pnlDocumentEditor.Size = New System.Drawing.Size(458, 134)
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(454, 39)
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(7, 42)
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(7, 64)
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(109, 61)
Me.txtDocumentEditorName.MaxLength = 120
Me.txtDocumentEditorName.Name = "txtDocumentEditorName"
Me.txtDocumentEditorName.Size = New System.Drawing.Size(128, 20)
Me.txtDocumentEditorName.TabIndex = 3
'
'lblDocumentEditorAnhangsart
'
Me.lblDocumentEditorAnhangsart.AutoSize = True
Me.lblDocumentEditorAnhangsart.Location = New System.Drawing.Point(247, 64)
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(319, 61)
Me.cmbDocumentEditorAnhangsart.Name = "cmbDocumentEditorAnhangsart"
Me.cmbDocumentEditorAnhangsart.Size = New System.Drawing.Size(124, 21)
Me.cmbDocumentEditorAnhangsart.TabIndex = 5
'
'lblDocumentEditorInfo
'
Me.lblDocumentEditorInfo.AutoSize = True
Me.lblDocumentEditorInfo.Location = New System.Drawing.Point(7, 88)
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(109, 85)
Me.txtDocumentEditorInfo.MaxLength = 500
Me.txtDocumentEditorInfo.Name = "txtDocumentEditorInfo"
Me.txtDocumentEditorInfo.Size = New System.Drawing.Size(334, 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(7, 112)
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(6, 298)
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(216, 300)
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.Location = New System.Drawing.Point(340, 321)
Me.btnCustomerUploadLink.Name = "btnCustomerUploadLink"
Me.btnCustomerUploadLink.Size = New System.Drawing.Size(124, 23)
Me.btnCustomerUploadLink.TabIndex = 11
Me.btnCustomerUploadLink.Text = "Link kopieren"
Me.btnCustomerUploadLink.UseVisualStyleBackColor = True
'
'btnCustomerUploadEmail
'
Me.btnCustomerUploadEmail.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnCustomerUploadEmail.Location = New System.Drawing.Point(340, 346)
Me.btnCustomerUploadEmail.Name = "btnCustomerUploadEmail"
Me.btnCustomerUploadEmail.Size = New System.Drawing.Size(124, 23)
Me.btnCustomerUploadEmail.TabIndex = 13
Me.btnCustomerUploadEmail.Text = "E-Mail senden"
Me.btnCustomerUploadEmail.UseVisualStyleBackColor = True
'
'txtCustomerUploadEmail
'
Me.txtCustomerUploadEmail.Location = New System.Drawing.Point(82, 348)
Me.txtCustomerUploadEmail.MaxLength = 255
Me.txtCustomerUploadEmail.Name = "txtCustomerUploadEmail"
Me.txtCustomerUploadEmail.Size = New System.Drawing.Size(254, 20)
Me.txtCustomerUploadEmail.TabIndex = 12
'
'lblCustomerUploadEmail
'
Me.lblCustomerUploadEmail.AutoSize = True
Me.lblCustomerUploadEmail.Location = New System.Drawing.Point(6, 351)
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(178, 325)
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(262, 323)
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(74, 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(82, 322)
Me.cmbCustomerUploadLanguage.Name = "cmbCustomerUploadLanguage"
Me.cmbCustomerUploadLanguage.Size = New System.Drawing.Size(80, 21)
Me.cmbCustomerUploadLanguage.TabIndex = 9
'
'lblCustomerUploadLanguage
'
Me.lblCustomerUploadLanguage.AutoSize = True
Me.lblCustomerUploadLanguage.Location = New System.Drawing.Point(6, 325)
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.Location = New System.Drawing.Point(82, 374)
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(254, 44)
Me.txtCustomerUploadEmailText.TabIndex = 14
Me.txtCustomerUploadEmailText.Text = "Bitte laden Sie die angeforderten Dokumente über den Link hoch."
'
'lblCustomerUploadEmailText
'
Me.lblCustomerUploadEmailText.AutoSize = True
Me.lblCustomerUploadEmailText.Location = New System.Drawing.Point(6, 377)
Me.lblCustomerUploadEmailText.Name = "lblCustomerUploadEmailText"
Me.lblCustomerUploadEmailText.Size = New System.Drawing.Size(63, 13)
Me.lblCustomerUploadEmailText.TabIndex = 15
Me.lblCustomerUploadEmailText.Text = "E-Mail Text:"
'
'lblKontaktEmails
'
Me.lblKontaktEmails.AutoSize = True
Me.lblKontaktEmails.Location = New System.Drawing.Point(6, 427)
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.Location = New System.Drawing.Point(9, 445)
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(455, 84)
Me.dgvKontaktEmails.TabIndex = 18
'
'btnVermerkSetzen
'
Me.btnVermerkSetzen.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnVermerkSetzen.Location = New System.Drawing.Point(340, 535)
Me.btnVermerkSetzen.Name = "btnVermerkSetzen"
Me.btnVermerkSetzen.Size = New System.Drawing.Size(124, 30)
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(9, 9)
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(474, 576)
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.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 dgvKontaktEmails As DataGridView
End Class

61
Aviso/frmSendungsDokumentanforderung.resx Normal file
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>

1198
Aviso/frmSendungsDokumentanforderung.vb Normal file
View File

File diff suppressed because it is too large Load Diff