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

Compare commits

base: edv:master
Branches Tags
edv:master edv:Aviso_Murad edv:essensbestellungen edv:change_VM_logic edv:SDL
..
compare: edv:222153f19eb78a274e084ed9cb56474a2a17d445
Branches Tags
edv:master edv:Aviso_Murad edv:essensbestellungen edv:change_VM_logic edv:SDL

10 Commits
master ... 222153f19e

Author SHA1 Message Date
m.ilhan
222153f19e update vermerke 2026-04-30 09:26:04 +02:00
m.ilhan
e6df74906b vermerke 2026-04-30 09:18:46 +02:00
murad
542f1fb144 vermerke update 2026-04-30 09:18:46 +02:00
m.ilhan
df3c94aa95 vermerke 2026-04-30 09:18:45 +02:00
m.ilhan
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
m.ilhan
220eee8641 vermerke 2026-04-30 09:18:45 +02:00
m.ilhan
8cc3bd9906 vermerke 2026-04-30 09:18:45 +02:00
m.ilhan
9460d070d1 update 2026-04-30 09:18:02 +02:00
15 changed files with 2503 additions and 761 deletions
Expand all files Collapse all files

12
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"> <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\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')" /> <Import Project="..\packages\CefSharp.WinForms.75.1.143\build\CefSharp.WinForms.props" Condition="Exists('..\packages\CefSharp.WinForms.75.1.143\build\CefSharp.WinForms.props')" />
@@ -803,6 +803,12 @@
<Compile Include="frmAddSendungsvermerkShort.vb"> <Compile Include="frmAddSendungsvermerkShort.vb">
<SubType>Form</SubType> <SubType>Form</SubType>
</Compile> </Compile>
<Compile Include="frmSendungsDokumentanforderung.Designer.vb">
<DependentUpon>frmSendungsDokumentanforderung.vb</DependentUpon>
</Compile>
<Compile Include="frmSendungsDokumentanforderung.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmAnkunftAendern.Designer.vb"> <Compile Include="frmAnkunftAendern.Designer.vb">
<DependentUpon>frmAnkunftAendern.vb</DependentUpon> <DependentUpon>frmAnkunftAendern.vb</DependentUpon>
</Compile> </Compile>
@@ -1473,6 +1479,9 @@
<EmbeddedResource Include="frmAddSendungsvermerkShort.resx"> <EmbeddedResource Include="frmAddSendungsvermerkShort.resx">
<DependentUpon>frmAddSendungsvermerkShort.vb</DependentUpon> <DependentUpon>frmAddSendungsvermerkShort.vb</DependentUpon>
</EmbeddedResource> </EmbeddedResource>
<EmbeddedResource Include="frmSendungsDokumentanforderung.resx">
<DependentUpon>frmSendungsDokumentanforderung.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmAnkunftAendern.resx"> <EmbeddedResource Include="frmAnkunftAendern.resx">
<DependentUpon>frmAnkunftAendern.vb</DependentUpon> <DependentUpon>frmAnkunftAendern.vb</DependentUpon>
</EmbeddedResource> </EmbeddedResource>
@@ -1581,6 +1590,7 @@
</EmbeddedResource> </EmbeddedResource>
<EmbeddedResource Include="frmLogin.resx"> <EmbeddedResource Include="frmLogin.resx">
<DependentUpon>frmLogin.vb</DependentUpon> <DependentUpon>frmLogin.vb</DependentUpon>
<SubType>Designer</SubType>
</EmbeddedResource> </EmbeddedResource>
<EmbeddedResource Include="frmAuswahl_Aviso.resx"> <EmbeddedResource Include="frmAuswahl_Aviso.resx">
<DependentUpon>frmAuswahl_Aviso.vb</DependentUpon> <DependentUpon>frmAuswahl_Aviso.vb</DependentUpon>

2
Aviso/AvisoStatusFunctions.vb
View File

@@ -2375,7 +2375,7 @@ ELSE_ATILLA:
If AbfertigungsNr <= 0 Then Return False If AbfertigungsNr <= 0 Then Return False
If FilialenNr <> 4805 And FilialenNr <> 4811 Then ' Kein Ü-T 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 If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
AtcMrn = dt.Rows(0)("MRN") AtcMrn = dt.Rows(0)("MRN")
dsId = dt.Rows(0)("DsId") dsId = dt.Rows(0)("DsId")

4
Aviso/My Project/AssemblyInfo.vb
View File

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

443
Aviso/frmAddSendungsvermerkShort.Designer.vb generated
View File

@@ -27,59 +27,36 @@ Partial Class frmAddSendungsvermerkShort
Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.pnlMain = New System.Windows.Forms.Panel() Me.pnlMain = New System.Windows.Forms.Panel()
Me.pnlSendungsVermker = New System.Windows.Forms.Panel() Me.pnlSendungsVermker = New System.Windows.Forms.Panel()
Me.optDraft = New System.Windows.Forms.CheckBox() Me.flpAngefordert = New System.Windows.Forms.FlowLayoutPanel()
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.Label4 = New System.Windows.Forms.Label() Me.Label4 = New System.Windows.Forms.Label()
Me.optFremd_ATB = New System.Windows.Forms.CheckBox() Me.optFremd_ATB = New System.Windows.Forms.CheckBox()
Me.optFremd_SendungAvisiert = 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.lblErrSpedition = New System.Windows.Forms.Label()
Me.lblDragIndicator = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label() Me.Label2 = New System.Windows.Forms.Label()
Me.lblErrGrund = New System.Windows.Forms.Label() Me.lblErrGrund = New System.Windows.Forms.Label()
Me.btnCLose = New System.Windows.Forms.Button() Me.btnCLose = New System.Windows.Forms.Button()
Me.lblErrDokument = New System.Windows.Forms.Label()
Me.Label1 = New System.Windows.Forms.Label() Me.Label1 = New System.Windows.Forms.Label()
Me.txtSpedition = New System.Windows.Forms.TextBox() Me.txtSpedition = New System.Windows.Forms.TextBox()
Me.optSendungInVorbereitung = New System.Windows.Forms.CheckBox() Me.optSendungInVorbereitung = New System.Windows.Forms.CheckBox()
Me.optSpeditionWeitergeleitet = New System.Windows.Forms.CheckBox() Me.optSpeditionWeitergeleitet = New System.Windows.Forms.CheckBox()
Me.optFreierText = New System.Windows.Forms.CheckBox() Me.optFreierText = New System.Windows.Forms.CheckBox()
Me.optATAangefordert = 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.Label3 = New System.Windows.Forms.Label()
Me.lblErr240Zeichen = New System.Windows.Forms.Label() Me.lblErr240Zeichen = New System.Windows.Forms.Label()
Me.txtDetail = New System.Windows.Forms.TextBox() Me.txtDetail = New System.Windows.Forms.TextBox()
Me.lblZustzlFreitext = New System.Windows.Forms.Label() Me.lblZustzlFreitext = New System.Windows.Forms.Label()
Me.txtSendungSpedition = New System.Windows.Forms.TextBox() Me.txtSendungSpedition = New System.Windows.Forms.TextBox()
Me.cbxNichtLeserlich = New System.Windows.Forms.CheckBox()
Me.btnOK = New System.Windows.Forms.Button() 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.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.Label17 = New System.Windows.Forms.Label()
Me.Label13 = 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.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.PictureBox4 = New System.Windows.Forms.PictureBox()
Me.Panel4 = New System.Windows.Forms.Panel() Me.Panel4 = New System.Windows.Forms.Panel()
Me.pnlMain.SuspendLayout() Me.pnlMain.SuspendLayout()
Me.pnlSendungsVermker.SuspendLayout() Me.pnlSendungsVermker.SuspendLayout()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout() Me.SuspendLayout()
' '
@@ -95,135 +72,62 @@ Partial Class frmAddSendungsvermerkShort
Me.pnlMain.Dock = System.Windows.Forms.DockStyle.Fill Me.pnlMain.Dock = System.Windows.Forms.DockStyle.Fill
Me.pnlMain.Location = New System.Drawing.Point(0, 0) Me.pnlMain.Location = New System.Drawing.Point(0, 0)
Me.pnlMain.Name = "pnlMain" 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 Me.pnlMain.TabIndex = 0
' '
'pnlSendungsVermker 'pnlSendungsVermker
' '
Me.pnlSendungsVermker.BackColor = System.Drawing.Color.White Me.pnlSendungsVermker.BackColor = System.Drawing.Color.White
Me.pnlSendungsVermker.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle Me.pnlSendungsVermker.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.pnlSendungsVermker.Controls.Add(Me.optDraft) Me.pnlSendungsVermker.Controls.Add(Me.flpAngefordert)
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.Label4) Me.pnlSendungsVermker.Controls.Add(Me.Label4)
Me.pnlSendungsVermker.Controls.Add(Me.optFremd_ATB) Me.pnlSendungsVermker.Controls.Add(Me.optFremd_ATB)
Me.pnlSendungsVermker.Controls.Add(Me.optFremd_SendungAvisiert) 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.lblErrSpedition)
Me.pnlSendungsVermker.Controls.Add(Me.lblDragIndicator)
Me.pnlSendungsVermker.Controls.Add(Me.Label2) Me.pnlSendungsVermker.Controls.Add(Me.Label2)
Me.pnlSendungsVermker.Controls.Add(Me.lblErrGrund) Me.pnlSendungsVermker.Controls.Add(Me.lblErrGrund)
Me.pnlSendungsVermker.Controls.Add(Me.btnCLose) Me.pnlSendungsVermker.Controls.Add(Me.btnCLose)
Me.pnlSendungsVermker.Controls.Add(Me.lblErrDokument)
Me.pnlSendungsVermker.Controls.Add(Me.Label1) Me.pnlSendungsVermker.Controls.Add(Me.Label1)
Me.pnlSendungsVermker.Controls.Add(Me.txtSpedition) Me.pnlSendungsVermker.Controls.Add(Me.txtSpedition)
Me.pnlSendungsVermker.Controls.Add(Me.optSendungInVorbereitung) Me.pnlSendungsVermker.Controls.Add(Me.optSendungInVorbereitung)
Me.pnlSendungsVermker.Controls.Add(Me.optSpeditionWeitergeleitet) Me.pnlSendungsVermker.Controls.Add(Me.optSpeditionWeitergeleitet)
Me.pnlSendungsVermker.Controls.Add(Me.optFreierText) Me.pnlSendungsVermker.Controls.Add(Me.optFreierText)
Me.pnlSendungsVermker.Controls.Add(Me.optATAangefordert) 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.Label3)
Me.pnlSendungsVermker.Controls.Add(Me.lblErr240Zeichen) Me.pnlSendungsVermker.Controls.Add(Me.lblErr240Zeichen)
Me.pnlSendungsVermker.Controls.Add(Me.txtDetail) Me.pnlSendungsVermker.Controls.Add(Me.txtDetail)
Me.pnlSendungsVermker.Controls.Add(Me.lblZustzlFreitext) Me.pnlSendungsVermker.Controls.Add(Me.lblZustzlFreitext)
Me.pnlSendungsVermker.Controls.Add(Me.txtSendungSpedition) Me.pnlSendungsVermker.Controls.Add(Me.txtSendungSpedition)
Me.pnlSendungsVermker.Controls.Add(Me.cbxNichtLeserlich)
Me.pnlSendungsVermker.Controls.Add(Me.btnOK) 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.Label9)
Me.pnlSendungsVermker.Controls.Add(Me.cbxVollmacht)
Me.pnlSendungsVermker.Controls.Add(Me.cbxCMR)
Me.pnlSendungsVermker.Controls.Add(Me.Label17) Me.pnlSendungsVermker.Controls.Add(Me.Label17)
Me.pnlSendungsVermker.Controls.Add(Me.Label13) 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.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.Controls.Add(Me.PictureBox4)
Me.pnlSendungsVermker.Dock = System.Windows.Forms.DockStyle.Fill Me.pnlSendungsVermker.Dock = System.Windows.Forms.DockStyle.Fill
Me.pnlSendungsVermker.Location = New System.Drawing.Point(0, 0) Me.pnlSendungsVermker.Location = New System.Drawing.Point(0, 0)
Me.pnlSendungsVermker.Name = "pnlSendungsVermker" 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 Me.pnlSendungsVermker.TabIndex = 0
' '
'optDraft 'flpAngefordert
' '
Me.optDraft.AutoSize = True Me.flpAngefordert.BackColor = System.Drawing.Color.White
Me.optDraft.Location = New System.Drawing.Point(12, 262) Me.flpAngefordert.FlowDirection = System.Windows.Forms.FlowDirection.TopDown
Me.optDraft.Name = "optDraft" Me.flpAngefordert.Location = New System.Drawing.Point(12, 50)
Me.optDraft.Size = New System.Drawing.Size(174, 17) Me.flpAngefordert.Margin = New System.Windows.Forms.Padding(0)
Me.optDraft.TabIndex = 102 Me.flpAngefordert.Name = "flpAngefordert"
Me.optDraft.Text = "T1/T2 ""Draft"" OK - angefordert" Me.flpAngefordert.Size = New System.Drawing.Size(450, 131)
Me.optDraft.UseVisualStyleBackColor = True Me.flpAngefordert.TabIndex = 122
'
'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
' '
'Label4 'Label4
' '
Me.Label4.AutoSize = True Me.Label4.AutoSize = True
Me.Label4.BackColor = System.Drawing.Color.WhiteSmoke 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.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.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(125, 17) Me.Label4.Size = New System.Drawing.Size(125, 17)
Me.Label4.TabIndex = 96 Me.Label4.TabIndex = 96
@@ -233,7 +137,7 @@ Partial Class frmAddSendungsvermerkShort
' '
Me.optFremd_ATB.AutoSize = True Me.optFremd_ATB.AutoSize = True
Me.optFremd_ATB.BackColor = System.Drawing.Color.WhiteSmoke 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.Name = "optFremd_ATB"
Me.optFremd_ATB.Size = New System.Drawing.Size(130, 17) Me.optFremd_ATB.Size = New System.Drawing.Size(130, 17)
Me.optFremd_ATB.TabIndex = 94 Me.optFremd_ATB.TabIndex = 94
@@ -244,93 +148,44 @@ Partial Class frmAddSendungsvermerkShort
' '
Me.optFremd_SendungAvisiert.AutoSize = True Me.optFremd_SendungAvisiert.AutoSize = True
Me.optFremd_SendungAvisiert.BackColor = System.Drawing.Color.WhiteSmoke 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.Name = "optFremd_SendungAvisiert"
Me.optFremd_SendungAvisiert.Size = New System.Drawing.Size(193, 17) Me.optFremd_SendungAvisiert.Size = New System.Drawing.Size(193, 17)
Me.optFremd_SendungAvisiert.TabIndex = 93 Me.optFremd_SendungAvisiert.TabIndex = 93
Me.optFremd_SendungAvisiert.Text = "Sendung an Fremdeinsteller avisiert" Me.optFremd_SendungAvisiert.Text = "Sendung an Fremdeinsteller avisiert"
Me.optFremd_SendungAvisiert.UseVisualStyleBackColor = False 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 'lblErrSpedition
' '
Me.lblErrSpedition.AutoSize = True Me.lblErrSpedition.AutoSize = True
Me.lblErrSpedition.BackColor = System.Drawing.Color.WhiteSmoke Me.lblErrSpedition.BackColor = System.Drawing.Color.WhiteSmoke
Me.lblErrSpedition.ForeColor = System.Drawing.Color.Red 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.Name = "lblErrSpedition"
Me.lblErrSpedition.Size = New System.Drawing.Size(158, 13) Me.lblErrSpedition.Size = New System.Drawing.Size(158, 13)
Me.lblErrSpedition.TabIndex = 17 Me.lblErrSpedition.TabIndex = 17
Me.lblErrSpedition.Text = "Bitte eine Spedition angegeben:" Me.lblErrSpedition.Text = "Bitte eine Spedition angegeben:"
Me.lblErrSpedition.Visible = False 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 'Label2
' '
Me.Label2.AutoSize = True Me.Label2.AutoSize = True
Me.Label2.BackColor = System.Drawing.Color.WhiteSmoke Me.Label2.BackColor = System.Drawing.Color.WhiteSmoke
Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!) 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.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(57, 13) Me.Label2.Size = New System.Drawing.Size(57, 13)
Me.Label2.TabIndex = 84 Me.Label2.TabIndex = 84
@@ -341,7 +196,7 @@ Partial Class frmAddSendungsvermerkShort
Me.lblErrGrund.AutoSize = True Me.lblErrGrund.AutoSize = True
Me.lblErrGrund.BackColor = System.Drawing.Color.WhiteSmoke Me.lblErrGrund.BackColor = System.Drawing.Color.WhiteSmoke
Me.lblErrGrund.ForeColor = System.Drawing.Color.Red 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.Name = "lblErrGrund"
Me.lblErrGrund.Size = New System.Drawing.Size(149, 13) Me.lblErrGrund.Size = New System.Drawing.Size(149, 13)
Me.lblErrGrund.TabIndex = 26 Me.lblErrGrund.TabIndex = 26
@@ -357,7 +212,7 @@ Partial Class frmAddSendungsvermerkShort
Me.btnCLose.FlatStyle = System.Windows.Forms.FlatStyle.Flat 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.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.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.Name = "btnCLose"
Me.btnCLose.RightToLeft = System.Windows.Forms.RightToLeft.Yes Me.btnCLose.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.btnCLose.Size = New System.Drawing.Size(54, 20) Me.btnCLose.Size = New System.Drawing.Size(54, 20)
@@ -365,24 +220,12 @@ Partial Class frmAddSendungsvermerkShort
Me.btnCLose.Text = "X" Me.btnCLose.Text = "X"
Me.btnCLose.UseVisualStyleBackColor = False 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 'Label1
' '
Me.Label1.AutoSize = True 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.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.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(156, 17) Me.Label1.Size = New System.Drawing.Size(156, 17)
Me.Label1.TabIndex = 1 Me.Label1.TabIndex = 1
@@ -392,16 +235,16 @@ Partial Class frmAddSendungsvermerkShort
' '
Me.txtSpedition.BackColor = System.Drawing.Color.WhiteSmoke 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.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.MaxLength = 50
Me.txtSpedition.Name = "txtSpedition" 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 Me.txtSpedition.TabIndex = 20
' '
'optSendungInVorbereitung 'optSendungInVorbereitung
' '
Me.optSendungInVorbereitung.AutoSize = True 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.Name = "optSendungInVorbereitung"
Me.optSendungInVorbereitung.Size = New System.Drawing.Size(143, 17) Me.optSendungInVorbereitung.Size = New System.Drawing.Size(143, 17)
Me.optSendungInVorbereitung.TabIndex = 13 Me.optSendungInVorbereitung.TabIndex = 13
@@ -413,7 +256,7 @@ Partial Class frmAddSendungsvermerkShort
' '
Me.optSpeditionWeitergeleitet.AutoSize = True Me.optSpeditionWeitergeleitet.AutoSize = True
Me.optSpeditionWeitergeleitet.BackColor = System.Drawing.Color.WhiteSmoke 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.Name = "optSpeditionWeitergeleitet"
Me.optSpeditionWeitergeleitet.Size = New System.Drawing.Size(163, 17) Me.optSpeditionWeitergeleitet.Size = New System.Drawing.Size(163, 17)
Me.optSpeditionWeitergeleitet.TabIndex = 19 Me.optSpeditionWeitergeleitet.TabIndex = 19
@@ -424,7 +267,7 @@ Partial Class frmAddSendungsvermerkShort
' '
Me.optFreierText.AutoSize = True Me.optFreierText.AutoSize = True
Me.optFreierText.BackColor = System.Drawing.Color.WhiteSmoke 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.Name = "optFreierText"
Me.optFreierText.Size = New System.Drawing.Size(105, 17) Me.optFreierText.Size = New System.Drawing.Size(105, 17)
Me.optFreierText.TabIndex = 27 Me.optFreierText.TabIndex = 27
@@ -435,38 +278,18 @@ Partial Class frmAddSendungsvermerkShort
' '
Me.optATAangefordert.AutoSize = True Me.optATAangefordert.AutoSize = True
Me.optATAangefordert.BackColor = System.Drawing.Color.WhiteSmoke 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.Name = "optATAangefordert"
Me.optATAangefordert.Size = New System.Drawing.Size(208, 17) Me.optATAangefordert.Size = New System.Drawing.Size(208, 17)
Me.optATAangefordert.TabIndex = 15 Me.optATAangefordert.TabIndex = 15
Me.optATAangefordert.Text = "ATA/ATC-Nr. angefordert (Fremdanm.)" Me.optATAangefordert.Text = "ATA/ATC-Nr. angefordert (Fremdanm.)"
Me.optATAangefordert.UseVisualStyleBackColor = False 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 'Label3
' '
Me.Label3.AutoSize = True Me.Label3.AutoSize = True
Me.Label3.BackColor = System.Drawing.Color.WhiteSmoke 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.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(57, 13) Me.Label3.Size = New System.Drawing.Size(57, 13)
Me.Label3.TabIndex = 22 Me.Label3.TabIndex = 22
@@ -476,7 +299,7 @@ Partial Class frmAddSendungsvermerkShort
' '
Me.lblErr240Zeichen.AutoSize = True Me.lblErr240Zeichen.AutoSize = True
Me.lblErr240Zeichen.ForeColor = System.Drawing.Color.Red 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.Name = "lblErr240Zeichen"
Me.lblErr240Zeichen.Size = New System.Drawing.Size(95, 13) Me.lblErr240Zeichen.Size = New System.Drawing.Size(95, 13)
Me.lblErr240Zeichen.TabIndex = 32 Me.lblErr240Zeichen.TabIndex = 32
@@ -488,12 +311,12 @@ Partial Class frmAddSendungsvermerkShort
Me.txtDetail.AcceptsReturn = True Me.txtDetail.AcceptsReturn = True
Me.txtDetail.BackColor = System.Drawing.Color.White Me.txtDetail.BackColor = System.Drawing.Color.White
Me.txtDetail.ForeColor = System.Drawing.SystemColors.InfoText 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.MaxLength = 240
Me.txtDetail.Multiline = True Me.txtDetail.Multiline = True
Me.txtDetail.Name = "txtDetail" Me.txtDetail.Name = "txtDetail"
Me.txtDetail.ScrollBars = System.Windows.Forms.ScrollBars.Vertical 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.TabIndex = 33
Me.txtDetail.TabStop = False Me.txtDetail.TabStop = False
Me.txtDetail.WordWrap = False Me.txtDetail.WordWrap = False
@@ -501,7 +324,7 @@ Partial Class frmAddSendungsvermerkShort
'lblZustzlFreitext 'lblZustzlFreitext
' '
Me.lblZustzlFreitext.AutoSize = True 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.Name = "lblZustzlFreitext"
Me.lblZustzlFreitext.Size = New System.Drawing.Size(142, 13) Me.lblZustzlFreitext.Size = New System.Drawing.Size(142, 13)
Me.lblZustzlFreitext.TabIndex = 31 Me.lblZustzlFreitext.TabIndex = 31
@@ -511,84 +334,50 @@ Partial Class frmAddSendungsvermerkShort
' '
Me.txtSendungSpedition.BackColor = System.Drawing.Color.WhiteSmoke 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.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.MaxLength = 50
Me.txtSendungSpedition.Name = "txtSendungSpedition" 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.TabIndex = 18
Me.txtSendungSpedition.Visible = False 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 'btnOK
' '
Me.btnOK.FlatStyle = System.Windows.Forms.FlatStyle.Flat 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.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.TabIndex = 34
Me.btnOK.Text = "Hinzufügen" Me.btnOK.Text = "Hinzufügen"
Me.btnOK.UseVisualStyleBackColor = True Me.btnOK.UseVisualStyleBackColor = True
' '
'cbxSonstDok 'btnDokumtanforderung
' '
Me.cbxSonstDok.AutoSize = True Me.btnDokumtanforderung.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.cbxSonstDok.BackColor = System.Drawing.Color.WhiteSmoke Me.btnDokumtanforderung.Location = New System.Drawing.Point(323, 22)
Me.cbxSonstDok.Location = New System.Drawing.Point(12, 98) Me.btnDokumtanforderung.Name = "btnDokumtanforderung"
Me.cbxSonstDok.Name = "cbxSonstDok" Me.btnDokumtanforderung.Size = New System.Drawing.Size(140, 23)
Me.cbxSonstDok.Size = New System.Drawing.Size(83, 17) Me.btnDokumtanforderung.TabIndex = 133
Me.cbxSonstDok.TabIndex = 9 Me.btnDokumtanforderung.Text = "Dokumtanforderung"
Me.cbxSonstDok.Text = "Dok. Name:" Me.btnDokumtanforderung.UseVisualStyleBackColor = True
Me.cbxSonstDok.UseVisualStyleBackColor = False
' '
'Label9 'Label9
' '
Me.Label9.AutoSize = True Me.Label9.AutoSize = True
Me.Label9.BackColor = System.Drawing.Color.WhiteSmoke Me.Label9.BackColor = System.Drawing.Color.WhiteSmoke
Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!) 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.Name = "Label9"
Me.Label9.Size = New System.Drawing.Size(90, 13) Me.Label9.Size = New System.Drawing.Size(90, 13)
Me.Label9.TabIndex = 30 Me.Label9.TabIndex = 30
Me.Label9.Text = "(max. 80 Zeichen)" 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 'Label17
' '
Me.Label17.AutoSize = True Me.Label17.AutoSize = True
Me.Label17.BackColor = System.Drawing.Color.WhiteSmoke 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.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.Name = "Label17"
Me.Label17.Size = New System.Drawing.Size(182, 13) Me.Label17.Size = New System.Drawing.Size(182, 13)
Me.Label17.TabIndex = 29 Me.Label17.TabIndex = 29
@@ -599,92 +388,29 @@ Partial Class frmAddSendungsvermerkShort
Me.Label13.AutoSize = True Me.Label13.AutoSize = True
Me.Label13.BackColor = System.Drawing.Color.WhiteSmoke 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.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.Name = "Label13"
Me.Label13.Size = New System.Drawing.Size(84, 17) Me.Label13.Size = New System.Drawing.Size(84, 17)
Me.Label13.TabIndex = 16 Me.Label13.TabIndex = 16
Me.Label13.Text = "Sonstiges:" 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 'txtFreierText
' '
Me.txtFreierText.BackColor = System.Drawing.Color.WhiteSmoke Me.txtFreierText.BackColor = System.Drawing.Color.WhiteSmoke
Me.txtFreierText.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!) 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.MaxLength = 80
Me.txtFreierText.Name = "txtFreierText" 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 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 'PictureBox4
' '
Me.PictureBox4.BackColor = System.Drawing.Color.WhiteSmoke Me.PictureBox4.BackColor = System.Drawing.Color.WhiteSmoke
Me.PictureBox4.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle 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.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.TabIndex = 78
Me.PictureBox4.TabStop = False Me.PictureBox4.TabStop = False
' '
@@ -695,14 +421,14 @@ Partial Class frmAddSendungsvermerkShort
Me.Panel4.Dock = System.Windows.Forms.DockStyle.Top Me.Panel4.Dock = System.Windows.Forms.DockStyle.Top
Me.Panel4.Location = New System.Drawing.Point(0, 0) Me.Panel4.Location = New System.Drawing.Point(0, 0)
Me.Panel4.Name = "Panel4" 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 Me.Panel4.TabIndex = 1
' '
'frmAddSendungsvermerkShort 'frmAddSendungsvermerkShort
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font 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.Controls.Add(Me.pnlMain)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
@@ -714,7 +440,6 @@ Partial Class frmAddSendungsvermerkShort
Me.pnlMain.ResumeLayout(False) Me.pnlMain.ResumeLayout(False)
Me.pnlSendungsVermker.ResumeLayout(False) Me.pnlSendungsVermker.ResumeLayout(False)
Me.pnlSendungsVermker.PerformLayout() Me.pnlSendungsVermker.PerformLayout()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False) Me.ResumeLayout(False)
@@ -723,53 +448,31 @@ Partial Class frmAddSendungsvermerkShort
Friend WithEvents pnlMain As System.Windows.Forms.Panel Friend WithEvents pnlMain As System.Windows.Forms.Panel
Friend WithEvents Panel4 As System.Windows.Forms.Panel Friend WithEvents Panel4 As System.Windows.Forms.Panel
Friend WithEvents pnlSendungsVermker 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 optSpeditionWeitergeleitet As System.Windows.Forms.CheckBox
Friend WithEvents optFreierText As System.Windows.Forms.CheckBox Friend WithEvents optFreierText As System.Windows.Forms.CheckBox
Friend WithEvents optATAangefordert 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 Label3 As System.Windows.Forms.Label
Friend WithEvents lblErr240Zeichen As System.Windows.Forms.Label Friend WithEvents lblErr240Zeichen As System.Windows.Forms.Label
Friend WithEvents lblZustzlFreitext As System.Windows.Forms.Label Friend WithEvents lblZustzlFreitext As System.Windows.Forms.Label
Friend WithEvents txtSendungSpedition As System.Windows.Forms.TextBox 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 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 Label9 As System.Windows.Forms.Label
Friend WithEvents cbxVollmacht As System.Windows.Forms.CheckBox
Friend WithEvents lblErrSpedition As System.Windows.Forms.Label 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 lblErrGrund As System.Windows.Forms.Label
Friend WithEvents Label17 As System.Windows.Forms.Label Friend WithEvents Label17 As System.Windows.Forms.Label
Friend WithEvents Label13 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 txtFreierText As System.Windows.Forms.TextBox
Friend WithEvents txtSpedition 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 PictureBox4 As System.Windows.Forms.PictureBox
Friend WithEvents Label1 As System.Windows.Forms.Label Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents optSendungInVorbereitung As System.Windows.Forms.CheckBox Friend WithEvents optSendungInVorbereitung As System.Windows.Forms.CheckBox
Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox Friend WithEvents lblDragIndicator As System.Windows.Forms.Label
Friend WithEvents lblErrDokument As System.Windows.Forms.Label
Friend WithEvents btnCLose As System.Windows.Forms.Button Friend WithEvents btnCLose As System.Windows.Forms.Button
Friend WithEvents Label2 As System.Windows.Forms.Label 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 Label4 As Label
Friend WithEvents optFremd_ATB As CheckBox Friend WithEvents optFremd_ATB As CheckBox
Friend WithEvents optFremd_SendungAvisiert 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 Public WithEvents txtDetail As TextBox
Friend WithEvents flpAngefordert As FlowLayoutPanel
End Class End Class

223
Aviso/frmAddSendungsvermerkShort.vb
View File

@@ -1,7 +1,13 @@

Imports AVISO.AvisoStatusFunctions Imports System.Configuration
Imports SDL 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 VERAG_PROG_ALLGEMEIN
Imports AVISO.AvisoStatusFunctions
Public Class frmAddSendungsvermerkShort Public Class frmAddSendungsvermerkShort
Dim AvisoDAL As New cAvisoDAL Dim AvisoDAL As New cAvisoDAL
@@ -15,6 +21,9 @@ Public Class frmAddSendungsvermerkShort
Public SendungID As Integer = -1 Public SendungID As Integer = -1
Public AvisoID 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 Dim txtSendung As New TextBox
@@ -31,7 +40,7 @@ Public Class frmAddSendungsvermerkShort
End Sub End Sub
Private Sub frmEintragVermerk_KeyDown(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown 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 If e.KeyCode = Keys.Escape Then
' btnAbbruch.PerformClick() ' btnAbbruch.PerformClick()
Me.Close() Me.Close()
@@ -59,16 +68,18 @@ Public Class frmAddSendungsvermerkShort
End Sub End Sub
Private Sub frmEintragVermerk_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load Private Sub frmEintragVermerk_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
VERAG_PROG_ALLGEMEIN.cAllgemein._TRANSLATE(Me) Dim pt As Point = Cursor.Position
'cboDokumente.Items.Clear() Dim screenBounds As Rectangle = Screen.FromPoint(pt).WorkingArea
' cboDokumente.Items.Add(New MyListItem("nachgefordert", CStr(0))) If pt.X + Me.Width > screenBounds.Right Then
'cboDokumente.Items.Add(New MyListItem("erhalten", CStr(1))) pt.X = screenBounds.Right - Me.Width
'cboDokumente.SelectedIndex = 0
Me.CenterToParent()
If My.Computer.Screen.WorkingArea.Height < Me.Height Then
Me.Height = My.Computer.Screen.WorkingArea.Height
End If 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 For Each c In Me.Controls
If c.GetType.Name.ToString = "RadioButton" Then If c.GetType.Name.ToString = "RadioButton" Then
AddHandler DirectCast(c, RadioButton).CheckedChanged, AddressOf selectionChanged AddHandler DirectCast(c, RadioButton).CheckedChanged, AddressOf selectionChanged
@@ -92,6 +103,9 @@ Public Class frmAddSendungsvermerkShort
Else Else
optSendungInVorbereitung.Visible = False optSendungInVorbereitung.Visible = False
End If End If
SetupDynamicAnforderungCheckboxes()
'bereits vorhandene Vermerke laden 'bereits vorhandene Vermerke laden
'txtInfo.Text = VermerkeDAL.Vermerke_einlesen(myAviso.AvisoID) 'txtInfo.Text = VermerkeDAL.Vermerke_einlesen(myAviso.AvisoID)
Me.Text = "AKT " & myAviso.LKW_Nr & "" Me.Text = "AKT " & myAviso.LKW_Nr & ""
@@ -119,6 +133,81 @@ Public Class frmAddSendungsvermerkShort
' Me.Close() ' Me.Close()
' End Sub ' 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 Private Sub txtFeld_GotFocus(sender As Object, e As System.EventArgs) Handles txtFreierText.GotFocus, txtSpedition.GotFocus
CType(sender, TextBox).SelectAll() CType(sender, TextBox).SelectAll()
End Sub End Sub
@@ -145,8 +234,7 @@ Public Class frmAddSendungsvermerkShort
End If End If
End If End If
'Plausibilität prüfen
'Plausibilität prüfen
If optFreierText.Checked Then If optFreierText.Checked Then
If txtFreierText.Text.Trim = "" Then If txtFreierText.Text.Trim = "" Then
showErr(lblErrGrund) showErr(lblErrGrund)
@@ -156,44 +244,32 @@ Public Class frmAddSendungsvermerkShort
insertSendungsVermerk(SendungID, myAviso.AvisoID, txtFreierText.Text.Trim & " - offen", 101) insertSendungsVermerk(SendungID, myAviso.AvisoID, txtFreierText.Text.Trim & " - offen", 101)
End If End If
If cbxAuftrag.Checked Then insertSendungsVermerk(SendungID, myAviso.AvisoID, "Auftrag für Sendung '" & txtSendung.Text.Trim & "' fehlt - angefordert", 1) For Each cb In _anforderungCheckboxes
If cbxRechnung.Checked Then insertSendungsVermerk(SendungID, myAviso.AvisoID, "Rechnung für Sendung '" & txtSendung.Text.Trim & "' fehlt / mangelhaft - angefordert", 3) If cb IsNot Nothing AndAlso cb.Checked Then
If cbxLS.Checked Then insertSendungsVermerk(SendungID, myAviso.AvisoID, "Lieferschein für Sendung '" & txtSendung.Text.Trim & "' fehlt - angefordert", 5) Dim codeId As Integer = 0
If cbxATR.Checked Then insertSendungsVermerk(SendungID, myAviso.AvisoID, "ATR für Sendung '" & txtSendung.Text.Trim & "' fehlt - angefordert", 7) If Integer.TryParse(If(cb.Tag, "").ToString(), codeId) Then
If cbxVollmacht.Checked Then insertSendungsVermerk(SendungID, myAviso.AvisoID, "Vollmacht für Sendung '" & txtSendung.Text.Trim & "' fehlt - angefordert", 9) Dim text = ""
If cbxCMR.Checked Then insertSendungsVermerk(SendungID, myAviso.AvisoID, "CMR bei Sendung '" & txtSendung.Text.Trim & "' - angefordert", 11) If _backendBezeichnungByCodeId.ContainsKey(codeId) Then
If cbxPackliste.Checked Then insertSendungsVermerk(SendungID, myAviso.AvisoID, "Packliste bei Sendung '" & txtSendung.Text.Trim & "' - angefordert", 90) text = If(_backendBezeichnungByCodeId(codeId), "").Trim()
If cbxRgBest.Checked Then insertSendungsVermerk(SendungID, myAviso.AvisoID, "Rechnungsbestätigung bei Sendung '" & txtSendung.Text.Trim & "' - angefordert", 55) End If
If optGewPackAngefordert.Checked Then insertSendungsVermerk(SendungID, myAviso.AvisoID, "Gewicht/Packstücke bei Sendung '" & txtSendung.Text.Trim & "' mangelhaft - angefordert", 103) If text = "" Then text = cb.Text.Trim()
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)
If optFrachtkostenAngefordert.Checked Then insertSendungsVermerk(SendungID, myAviso.AvisoID, "Frachtkosten bei Sendung '" & txtSendung.Text.Trim & "' - angefordert", 74) Dim sendText = txtSendung.Text.Trim()
If optAbsenderbestätigung.Checked Then insertSendungsVermerk(SendungID, myAviso.AvisoID, "Absenderbestätigung bei Sendung '" & txtSendung.Text.Trim & "' - angefordert", 76) 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_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 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 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 optSpeditionWeitergeleitet.Checked = True Then
If txtSpedition.Text.Trim = "" Then If txtSpedition.Text.Trim = "" Then
showErr(lblErrSpedition) showErr(lblErrSpedition)
@@ -206,9 +282,6 @@ Public Class frmAddSendungsvermerkShort
insertSendungsVermerk(SendungID, myAviso.AvisoID, "Sendung '" & txtSendung.Text.Trim & "' in Vorbereitung.", 31) insertSendungsVermerk(SendungID, myAviso.AvisoID, "Sendung '" & txtSendung.Text.Trim & "' in Vorbereitung.", 31)
VermerkeDAL.UpdateSendungVorbereitet(AvisoID, SendungID, VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.MitarbeiterID, True) VermerkeDAL.UpdateSendungVorbereitet(AvisoID, SendungID, VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.MitarbeiterID, True)
End If 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 ' If optSendungVorbereitet.Checked = True Then
'insertSendungsVermerk(SendungID,myAviso.AvisoID, "Sendung '" & txtSendung.Text.Trim & "' Vorbereitung abgeschlossen.", 32) 'insertSendungsVermerk(SendungID,myAviso.AvisoID, "Sendung '" & txtSendung.Text.Trim & "' Vorbereitung abgeschlossen.", 32)
' VermerkeDAL.UpdateSendungVorbereitet(AvisoID, SendungID, VERAG_PROG_ALLGEMEIN.cglobal.AktiverMitarbeiter.MitarbeiterID, False) ' VermerkeDAL.UpdateSendungVorbereitet(AvisoID, SendungID, VERAG_PROG_ALLGEMEIN.cglobal.AktiverMitarbeiter.MitarbeiterID, False)
@@ -275,7 +348,6 @@ Public Class frmAddSendungsvermerkShort
End Sub End Sub
Sub showErr(l As Label) Sub showErr(l As Label)
lblErrDokument.Visible = False
' lblErrFach.Visible = False ' lblErrFach.Visible = False
lblErrGrund.Visible = False lblErrGrund.Visible = False
' lblErrSendungProbleme.Visible = False ' lblErrSendungProbleme.Visible = False
@@ -299,13 +371,11 @@ Public Class frmAddSendungsvermerkShort
' optDokumente.Checked = True ' optDokumente.Checked = True
'End Sub 'End Sub
Private Sub cbxAuftrag_CheckedChanged(sender As Object, e As EventArgs) Handles cbxAuftrag.CheckedChanged, cbxRechnung.CheckedChanged, cbxLS.CheckedChanged, Private Sub cbxAuftrag_CheckedChanged(sender As Object, e As EventArgs)
cbxCMR.CheckedChanged, cbxATR.CheckedChanged, cbxVollmacht.CheckedChanged, cbxSonstDok.CheckedChanged, cbxNichtLeserlich.CheckedChanged, cbxPackliste.CheckedChanged
' optDokumente.Checked = True ' optDokumente.Checked = True
End Sub 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 ' optDokumente.Checked = True
cbxSonstDok.Checked = (sender.text <> "")
End Sub End Sub
Private Sub txtSendungSpedition_TextChanged(sender As Object, e As EventArgs) Handles txtSendungSpedition.TextChanged, txtSpedition.TextChanged Private Sub txtSendungSpedition_TextChanged(sender As Object, e As EventArgs) Handles txtSendungSpedition.TextChanged, txtSpedition.TextChanged
optSpeditionWeitergeleitet.Checked = True optSpeditionWeitergeleitet.Checked = True
@@ -327,18 +397,51 @@ Public Class frmAddSendungsvermerkShort
Private Sub frmAddSendungsvermerk_Shown(sender As Object, e As EventArgs) Handles Me.Shown 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 txtSendung.SelectionLength = 0
cbxAuftrag.Focus() txtFreierText.Focus()
End Sub 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 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnCLose.Click
Me.Close() Me.Close()
End Sub 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) Private Sub Button2_Click(sender As Object, e As EventArgs)
If insertVermerke() Then If insertVermerke() Then
VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen.INSERT_BENACHRICHTIGUNG(myAviso.AvisoID, SendungID, 1, "T", 13, , 1) VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen.INSERT_BENACHRICHTIGUNG(myAviso.AvisoID, SendungID, 1, "T", 13, , 1)

19
Aviso/frmGesamtsicherheitenMenuNEU.vb
View File

@@ -24,14 +24,13 @@ Public Class frmGesamtsicherheitenMenuNEU
Select Case Standort Select Case Standort
Case Sicherheiten_Standort.VERAG_GMBH : firmaId = 2 : chkOffen.Checked = True Case "Verag GmbH" : firmaId = 2 : chkOffen.Checked = True
Case Sicherheiten_Standort.VERAG_AG : firmaId = 1 : chkOffen.Checked = False Case "VERAG AG" : firmaId = 1 : chkOffen.Checked = False
Case Sicherheiten_Standort.IMEX : firmaId = 20 : chkOffen.Checked = False Case "IMEX" : firmaId = 20 : chkOffen.Checked = False
Case Sicherheiten_Standort.VERAG_CS : firmaId = 11 : chkOffen.Checked = False Case "Verag CS" : firmaId = 11 : chkOffen.Checked = False
Case Sicherheiten_Standort.UNISPED : firmaId = 21 : chkOffen.Checked = False Case "Unisped GmbH" : firmaId = 21 : chkOffen.Checked = False
Case Sicherheiten_Standort.AMBAR : firmaId = 24 : chkOffen.Checked = False Case "AMBAR GmbH" : firmaId = 24 : chkOffen.Checked = False
Case Sicherheiten_Standort.ATILLA : firmaId = 7 : chkOffen.Checked = False Case "Atilla GmbH" : firmaId = 7 : chkOffen.Checked = False
Case Sicherheiten_Standort.ZOLLERN : firmaId = 90 : chkOffen.Checked = False
End Select End Select
@@ -42,9 +41,9 @@ Public Class frmGesamtsicherheitenMenuNEU
Me.Text = "Gesamtsicherheiten " & Standort Me.Text = "Gesamtsicherheiten " & Standort
frmHauptfenster.EnableDoubleBuffered(dgvListe) frmHauptfenster.EnableDoubleBuffered(dgvListe)
GesSichRef = New VERAG_PROG_ALLGEMEIN.cAufschubKonten(Standort, firmaId) GesSichRef = New VERAG_PROG_ALLGEMEIN.cAufschubKonten(Standort)
If GesSichRef.hasEntry = False Then 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 Exit Sub
End If End If

73
Aviso/frmGesamtsicherheitenNEU.vb
View File

@@ -66,20 +66,7 @@ Public Class frmGesamtsicherheitenNEU
End If End If
Select Case Standort currentGesSichRef = New VERAG_PROG_ALLGEMEIN.cAufschubKonten(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)
SaldoNew = Decimal.Parse(currentGesSichRef.CalcSaldo()) SaldoNew = Decimal.Parse(currentGesSichRef.CalcSaldo())
lblSaldo.Text = "Saldo: €" & SaldoNew.ToString("N") lblSaldo.Text = "Saldo: €" & SaldoNew.ToString("N")
@@ -113,7 +100,17 @@ Public Class frmGesamtsicherheitenNEU
initPrevNextButtons() initPrevNextButtons()
changeLabel() 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 Me.Text = "Gesamtsicherheit " & Standort
frmHauptfenster.EnableDoubleBuffered(dgvSicherheitsPos) frmHauptfenster.EnableDoubleBuffered(dgvSicherheitsPos)
@@ -175,7 +172,7 @@ Public Class frmGesamtsicherheitenNEU
.Columns("gs_ust").DefaultCellStyle.Format = "c2" .Columns("gs_ust").DefaultCellStyle.Format = "c2"
Case Else Case Else
If Standort = Sicherheiten_Standort.VERAG_GMBH Then If Standort = "Verag GmbH" Then
.Columns("gs_ATBNr").HeaderText = "Reg-Nr." .Columns("gs_ATBNr").HeaderText = "Reg-Nr."
Else Else
.Columns("gs_ATBNr").HeaderText = "T1 MRN" .Columns("gs_ATBNr").HeaderText = "T1 MRN"
@@ -244,21 +241,7 @@ Public Class frmGesamtsicherheitenNEU
Me.Cursor = Cursors.WaitCursor Me.Cursor = Cursors.WaitCursor
Dim currentGesSichRef = New VERAG_PROG_ALLGEMEIN.cAufschubKonten(standort)
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 gsnr As String 'Dim gsnr As String
@@ -439,21 +422,7 @@ Public Class frmGesamtsicherheitenNEU
Me.Cursor = Cursors.WaitCursor Me.Cursor = Cursors.WaitCursor
Dim currentGesSichRef = New VERAG_PROG_ALLGEMEIN.cAufschubKonten(standort)
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 gsnr As String Dim gsnr As String
Dim counter = 0 Dim counter = 0
@@ -495,7 +464,7 @@ Public Class frmGesamtsicherheitenNEU
dtSicherheiten.Columns.Add("SSaldo") dtSicherheiten.Columns.Add("SSaldo")
If currentGesSichRef Is Nothing Then If currentGesSichRef Is Nothing Then
currentGesSichRef = New VERAG_PROG_ALLGEMEIN.cAufschubKonten(standort, firmaId) currentGesSichRef = New VERAG_PROG_ALLGEMEIN.cAufschubKonten(standort)
End If End If
Dim drFirst = dtSicherheiten.NewRow Dim drFirst = dtSicherheiten.NewRow
@@ -592,9 +561,9 @@ Public Class frmGesamtsicherheitenNEU
.Columns("gsp_sicherheitsbetrag").DefaultCellStyle.Format = "c" .Columns("gsp_sicherheitsbetrag").DefaultCellStyle.Format = "c"
Select Case currentGesSichRef.brgakto_gs_ATR Select Case currentGesSichRef.brgakto_gs_ATR
Case True Case True
If Standort = Sicherheiten_Standort.VERAG_GMBH Then If Standort = "Verag GmbH" Then
.Columns("gsp_MRNNr").HeaderText = "ATC. / MRN" .Columns("gsp_MRNNr").HeaderText = "ATC. / MRN"
ElseIf Standort = Sicherheiten_Standort.VERAG_AG Then ElseIf Standort = "VERAG AG" Then
.Columns("gsp_MRNNr").HeaderText = "T1 CRN" .Columns("gsp_MRNNr").HeaderText = "T1 CRN"
Else Else
.Columns("gsp_MRNNr").HeaderText = "EZA / T1 CRN" .Columns("gsp_MRNNr").HeaderText = "EZA / T1 CRN"
@@ -2112,7 +2081,7 @@ Public Class frmGesamtsicherheitenNEU
Private Sub changeLabel(Optional isATR As Boolean = True) Private Sub changeLabel(Optional isATR As Boolean = True)
If Standort = Sicherheiten_Standort.VERAG_GMBH Then If Standort = "Verag GmbH" Then
'Label1.Text = "Reg-Nr." 'Label1.Text = "Reg-Nr."
If isATR Then If isATR Then
@@ -2123,7 +2092,7 @@ Public Class frmGesamtsicherheitenNEU
End If End If
ElseIf Standort = Sicherheiten_Standort.VERAG_AG Then ElseIf Standort = "VERAG AG" Then
Label12.Text = "T1 CRN" Label12.Text = "T1 CRN"
'Label1.Text = "T1 MRN" 'Label1.Text = "T1 MRN"
Else Else
@@ -2356,7 +2325,7 @@ Public Class frmGesamtsicherheitenNEU
Dim whereWarenort As String = " WHERE [wo_aktiv] = 1 AND wo_ze = 1" 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 '----'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 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 For i As Integer = 0 To cboFiliale.Items.Count - 1
If cboFiliale.Items(i).ToString().Contains("5701") Then If cboFiliale.Items(i).ToString().Contains("5701") Then
cboFiliale.SelectedIndex = i cboFiliale.SelectedIndex = i

304
Aviso/frmHauptfenster.Designer.vb generated
View File

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

3
Aviso/frmHauptfenster.resx
View File

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

19
Aviso/frmHauptfenster.vb
View File

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

486
Aviso/frmSendungsDokumentanforderung.Designer.vb generated Normal file
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

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>

1436
Aviso/frmSendungsDokumentanforderung.vb Normal file
View File

File diff suppressed because it is too large Load Diff

130
Aviso/usrCntlSND_ATBGestellung.Designer.vb generated
View File

@@ -24,26 +24,24 @@ Partial Class usrCntlSND_ATBGestellung
Private Sub InitializeComponent() Private Sub InitializeComponent()
Me.pnlT1 = New System.Windows.Forms.Panel() Me.pnlT1 = New System.Windows.Forms.Panel()
Me.PictureBox5 = New System.Windows.Forms.PictureBox() Me.PictureBox5 = New System.Windows.Forms.PictureBox()
Me.txtT1Datum = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.DateTimePicker1 = New System.Windows.Forms.DateTimePicker() Me.DateTimePicker1 = New System.Windows.Forms.DateTimePicker()
Me.Label1 = New System.Windows.Forms.Label() Me.Label1 = New System.Windows.Forms.Label()
Me.btnGesSicherheit = New System.Windows.Forms.Button() Me.btnGesSicherheit = New System.Windows.Forms.Button()
Me.Button1 = New System.Windows.Forms.Button() Me.Button1 = New System.Windows.Forms.Button()
Me.cbxATBFakturieren = New System.Windows.Forms.CheckBox() 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.Label4 = New System.Windows.Forms.Label()
Me.Label3 = 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.Label33 = New System.Windows.Forms.Label()
Me.Button2 = New System.Windows.Forms.Button() 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() Me.pnlT1.SuspendLayout()
CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout() Me.SuspendLayout()
' '
'pnlT1 'pnlT1
' '
Me.pnlT1.Controls.Add(Me.Button2)
Me.pnlT1.Controls.Add(Me.PictureBox5) Me.pnlT1.Controls.Add(Me.PictureBox5)
Me.pnlT1.Controls.Add(Me.txtT1Datum) Me.pnlT1.Controls.Add(Me.txtT1Datum)
Me.pnlT1.Controls.Add(Me.DateTimePicker1) Me.pnlT1.Controls.Add(Me.DateTimePicker1)
@@ -72,31 +70,6 @@ Partial Class usrCntlSND_ATBGestellung
Me.PictureBox5.TabIndex = 132 Me.PictureBox5.TabIndex = 132
Me.PictureBox5.TabStop = False 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 'DateTimePicker1
' '
Me.DateTimePicker1.CustomFormat = "''" Me.DateTimePicker1.CustomFormat = "''"
@@ -152,6 +125,60 @@ Partial Class usrCntlSND_ATBGestellung
Me.cbxATBFakturieren.ThreeState = True Me.cbxATBFakturieren.ThreeState = True
Me.cbxATBFakturieren.UseVisualStyleBackColor = 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 'txtATBNr
' '
Me.txtATBNr._DateTimeOnly = False Me.txtATBNr._DateTimeOnly = False
@@ -198,25 +225,6 @@ Partial Class usrCntlSND_ATBGestellung
Me.txtATBT1.Size = New System.Drawing.Size(269, 20) Me.txtATBT1.Size = New System.Drawing.Size(269, 20)
Me.txtATBT1.TabIndex = 22 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 'txtT1VerzollungsadresseBestimmungszollstelle
' '
Me.txtT1VerzollungsadresseBestimmungszollstelle._allowFreitext = False Me.txtT1VerzollungsadresseBestimmungszollstelle._allowFreitext = False
@@ -243,27 +251,6 @@ Partial Class usrCntlSND_ATBGestellung
Me.txtT1VerzollungsadresseBestimmungszollstelle.TabIndex = 16 Me.txtT1VerzollungsadresseBestimmungszollstelle.TabIndex = 16
Me.txtT1VerzollungsadresseBestimmungszollstelle.usrcntl = Nothing 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:"
'
'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
'
'usrCntlSND_ATBGestellung 'usrCntlSND_ATBGestellung
' '
Me.Controls.Add(Me.pnlT1) Me.Controls.Add(Me.pnlT1)
@@ -289,5 +276,4 @@ Partial Class usrCntlSND_ATBGestellung
Friend WithEvents txtT1Datum As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents txtT1Datum As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents DateTimePicker1 As DateTimePicker Friend WithEvents DateTimePicker1 As DateTimePicker
Friend WithEvents PictureBox5 As PictureBox Friend WithEvents PictureBox5 As PictureBox
Friend WithEvents Button2 As Button
End Class End Class

49
Aviso/usrCntlSND_ATBGestellung.vb
View File

@@ -1,5 +1,6 @@
Imports DAKOSY_Worker Imports DAKOSY_Worker
Imports SDL Imports SDL
Imports VERAG_PROG_ALLGEMEIN Imports VERAG_PROG_ALLGEMEIN
@@ -81,53 +82,52 @@ Public Class usrCntlSND_ATBGestellung
End If End If
Dim Standort As String = "" Dim Standort As String = ""
Dim firmaID As Integer = -1
Select Case SND.FilialenNr Select Case SND.FilialenNr
Case 4803, 4809 Case 4803, 4809
Standort = Sicherheiten_Standort.VERAG_AG : firmaID = 1 Standort = "VERAG AG"
Case 5601 Case 5601
Standort = Sicherheiten_Standort.UNISPED : firmaID = 21 Standort = "Unisped GmbH"
Case 5701 Case 5701
Standort = Sicherheiten_Standort.AMBAR : firmaID = 24 Standort = "AMBAR GmbH"
Case 4810, 5103, 5901 Case 4810, 5103, 5901
Standort = Sicherheiten_Standort.VERAG_GMBH : firmaID = 2 Standort = "VERAG GmbH"
Case 5501 Case 5501
Standort = Sicherheiten_Standort.IMEX : firmaID = 20 Standort = "IMEX"
End Select End Select
'sonderfälle lt. Mestan 'sonderfälle lt. Mestan
If SND.tblSnd_Zollsystem_Land = "DE" Then If SND.tblSnd_Zollsystem_Land = "DE" Then
Select Case SND.FilialenNr Select Case SND.FilialenNr
Case 5501, 4803, 4809, 5103 Case 5501, 4803, 4809, 5103
Standort = Sicherheiten_Standort.VERAG_GMBH : firmaID = 2 Standort = "VERAG GmbH"
End Select End Select
ElseIf SND.tblSnd_Zollsystem_Land = "AT" Then ElseIf SND.tblSnd_Zollsystem_Land = "AT" Then
If SND.tblSnd_Abfertigungsart_ID = 1 Then 'ZA 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 ElseIf SND.tblSnd_Abfertigungsart_ID = 38 Then 'EV-Verz
Select Case SND.FilialenNr Select Case SND.FilialenNr
Case 4803, 5303, 4809, 5103 Case 4803, 5303, 4809, 5103
Standort = Sicherheiten_Standort.VERAG_CS : firmaID = 11 Standort = "VERAG CS"
End Select End Select
End If End If
End If 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 If GesSichRef Is Nothing Then MsgBox("Verwahrungsreferenz kann nicht ermittelt werden!") : Exit Sub
Dim saldo = CDbl(GesSichRef.CalcSaldo()) 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 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 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 End If
@@ -362,7 +362,4 @@ Public Class usrCntlSND_ATBGestellung
Process.Start(webAddress) Process.Start(webAddress)
End Sub End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
End Sub
End Class End Class