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

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2022-07-08 08:11:33 +02:00
parent a4ad6cc8c8
commit 505b2800c5
96 changed files with 4969 additions and 8465 deletions
Download Patch File Download Diff File Expand all files Collapse all files

32
AVISO_CHECKIN/My Project/Resources.Designer.vb generated
View File

@@ -22,7 +22,7 @@ Namespace My.Resources
'''<summary> '''<summary>
''' Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw. ''' Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
'''</summary> '''</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "16.0.0.0"), _ <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "17.0.0.0"), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _ Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _ Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _
@@ -60,6 +60,36 @@ Namespace My.Resources
End Set End Set
End Property End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Byte[].
'''</summary>
Friend ReadOnly Property DGS_Instructions_Export() As Byte()
Get
Dim obj As Object = ResourceManager.GetObject("DGS_Instructions_Export", resourceCulture)
Return CType(obj,Byte())
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Byte[].
'''</summary>
Friend ReadOnly Property DGS_Instructions_Export_T1() As Byte()
Get
Dim obj As Object = ResourceManager.GetObject("DGS_Instructions_Export_T1", resourceCulture)
Return CType(obj,Byte())
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Byte[].
'''</summary>
Friend ReadOnly Property DGS_Instructions_Import() As Byte()
Get
Dim obj As Object = ResourceManager.GetObject("DGS_Instructions_Import", resourceCulture)
Return CType(obj,Byte())
End Get
End Property
'''<summary> '''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary> '''</summary>

9
AVISO_CHECKIN/My Project/Resources.resx
View File

@@ -178,4 +178,13 @@
<data name="fragezeichen" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="fragezeichen" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\fragezeichen.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\fragezeichen.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="DGS_Instructions_Export" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\..\aviso\resources\dgs_instructions_export.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="DGS_Instructions_Export_T1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\..\aviso\resources\dgs_instructions_export_t1.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="DGS_Instructions_Import" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\..\aviso\resources\dgs_instructions_import.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
</root> </root>

36
Aviso.sln
View File

@@ -27,6 +27,10 @@ Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "NCTSPartnerWorker", "..\..\
EndProject EndProject
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "AVISO_CHECKIN", "AVISO_CHECKIN\AVISO_CHECKIN.vbproj", "{CB95CC0E-D73A-4D11-9FF8-197A392D831F}" Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "AVISO_CHECKIN", "AVISO_CHECKIN\AVISO_CHECKIN.vbproj", "{CB95CC0E-D73A-4D11-9FF8-197A392D831F}"
EndProject EndProject
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "VERAG_TELEINFO", "VERAG_TELEINFO\VERAG_TELEINFO.vbproj", "{5193A729-058C-4C93-B7D3-0A228CA719CC}"
EndProject
Project("{FAE04EC0-301F-11D3-BF4B-00C04F79EFBC}") = "PlathosysApiWrapper", "..\..\..\SCHNITTSTELLEN\PLATHOSYS\WRAPPER\PlathosysApiWrapper-master\PlathosysApiWrapper-master\PlathosysApiWrapper\PlathosysApiWrapper.csproj", "{A4A15E4A-9D83-4FD5-807B-63FC87CA4F0F}"
EndProject
Global Global
GlobalSection(SolutionConfigurationPlatforms) = preSolution GlobalSection(SolutionConfigurationPlatforms) = preSolution
Debug|Any CPU = Debug|Any CPU Debug|Any CPU = Debug|Any CPU
@@ -214,6 +218,38 @@ Global
{CB95CC0E-D73A-4D11-9FF8-197A392D831F}.Release|x64.Build.0 = Release|Any CPU {CB95CC0E-D73A-4D11-9FF8-197A392D831F}.Release|x64.Build.0 = Release|Any CPU
{CB95CC0E-D73A-4D11-9FF8-197A392D831F}.Release|x86.ActiveCfg = Release|Any CPU {CB95CC0E-D73A-4D11-9FF8-197A392D831F}.Release|x86.ActiveCfg = Release|Any CPU
{CB95CC0E-D73A-4D11-9FF8-197A392D831F}.Release|x86.Build.0 = Release|Any CPU {CB95CC0E-D73A-4D11-9FF8-197A392D831F}.Release|x86.Build.0 = Release|Any CPU
{5193A729-058C-4C93-B7D3-0A228CA719CC}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
{5193A729-058C-4C93-B7D3-0A228CA719CC}.Debug|Any CPU.Build.0 = Debug|Any CPU
{5193A729-058C-4C93-B7D3-0A228CA719CC}.Debug|Mixed Platforms.ActiveCfg = Debug|Any CPU
{5193A729-058C-4C93-B7D3-0A228CA719CC}.Debug|Mixed Platforms.Build.0 = Debug|Any CPU
{5193A729-058C-4C93-B7D3-0A228CA719CC}.Debug|x64.ActiveCfg = Debug|Any CPU
{5193A729-058C-4C93-B7D3-0A228CA719CC}.Debug|x64.Build.0 = Debug|Any CPU
{5193A729-058C-4C93-B7D3-0A228CA719CC}.Debug|x86.ActiveCfg = Debug|Any CPU
{5193A729-058C-4C93-B7D3-0A228CA719CC}.Debug|x86.Build.0 = Debug|Any CPU
{5193A729-058C-4C93-B7D3-0A228CA719CC}.Release|Any CPU.ActiveCfg = Release|Any CPU
{5193A729-058C-4C93-B7D3-0A228CA719CC}.Release|Any CPU.Build.0 = Release|Any CPU
{5193A729-058C-4C93-B7D3-0A228CA719CC}.Release|Mixed Platforms.ActiveCfg = Release|Any CPU
{5193A729-058C-4C93-B7D3-0A228CA719CC}.Release|Mixed Platforms.Build.0 = Release|Any CPU
{5193A729-058C-4C93-B7D3-0A228CA719CC}.Release|x64.ActiveCfg = Release|Any CPU
{5193A729-058C-4C93-B7D3-0A228CA719CC}.Release|x64.Build.0 = Release|Any CPU
{5193A729-058C-4C93-B7D3-0A228CA719CC}.Release|x86.ActiveCfg = Release|Any CPU
{5193A729-058C-4C93-B7D3-0A228CA719CC}.Release|x86.Build.0 = Release|Any CPU
{A4A15E4A-9D83-4FD5-807B-63FC87CA4F0F}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
{A4A15E4A-9D83-4FD5-807B-63FC87CA4F0F}.Debug|Any CPU.Build.0 = Debug|Any CPU
{A4A15E4A-9D83-4FD5-807B-63FC87CA4F0F}.Debug|Mixed Platforms.ActiveCfg = Debug|Any CPU
{A4A15E4A-9D83-4FD5-807B-63FC87CA4F0F}.Debug|Mixed Platforms.Build.0 = Debug|Any CPU
{A4A15E4A-9D83-4FD5-807B-63FC87CA4F0F}.Debug|x64.ActiveCfg = Debug|Any CPU
{A4A15E4A-9D83-4FD5-807B-63FC87CA4F0F}.Debug|x64.Build.0 = Debug|Any CPU
{A4A15E4A-9D83-4FD5-807B-63FC87CA4F0F}.Debug|x86.ActiveCfg = Debug|Any CPU
{A4A15E4A-9D83-4FD5-807B-63FC87CA4F0F}.Debug|x86.Build.0 = Debug|Any CPU
{A4A15E4A-9D83-4FD5-807B-63FC87CA4F0F}.Release|Any CPU.ActiveCfg = Release|Any CPU
{A4A15E4A-9D83-4FD5-807B-63FC87CA4F0F}.Release|Any CPU.Build.0 = Release|Any CPU
{A4A15E4A-9D83-4FD5-807B-63FC87CA4F0F}.Release|Mixed Platforms.ActiveCfg = Release|Any CPU
{A4A15E4A-9D83-4FD5-807B-63FC87CA4F0F}.Release|Mixed Platforms.Build.0 = Release|Any CPU
{A4A15E4A-9D83-4FD5-807B-63FC87CA4F0F}.Release|x64.ActiveCfg = Release|Any CPU
{A4A15E4A-9D83-4FD5-807B-63FC87CA4F0F}.Release|x64.Build.0 = Release|Any CPU
{A4A15E4A-9D83-4FD5-807B-63FC87CA4F0F}.Release|x86.ActiveCfg = Release|Any CPU
{A4A15E4A-9D83-4FD5-807B-63FC87CA4F0F}.Release|x86.Build.0 = Release|Any CPU
EndGlobalSection EndGlobalSection
GlobalSection(SolutionProperties) = preSolution GlobalSection(SolutionProperties) = preSolution
HideSolutionNode = FALSE HideSolutionNode = FALSE

130
Aviso/Anhänge/frmAddSendnung.Designer.vb generated
View File

@@ -44,6 +44,9 @@ Partial Class frmAddSendnung
Me.picWarnEmpfaenger = New System.Windows.Forms.PictureBox() Me.picWarnEmpfaenger = New System.Windows.Forms.PictureBox()
Me.RichTextBox1 = New System.Windows.Forms.RichTextBox() Me.RichTextBox1 = New System.Windows.Forms.RichTextBox()
Me.Label4 = New System.Windows.Forms.Label() Me.Label4 = New System.Windows.Forms.Label()
Me.txtWarenwertWaehrung = New VERAG_PROG_ALLGEMEIN.MySearchBox()
Me.lblWW = New System.Windows.Forms.Label()
Me.txtWarenwert = New VERAG_PROG_ALLGEMEIN.MyTextBox()
CType(Me.picWarnAbsender, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.picWarnAbsender, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.picWarnEmpfaenger, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.picWarnEmpfaenger, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout() Me.SuspendLayout()
@@ -58,7 +61,7 @@ Partial Class frmAddSendnung
Me.cboAbfertigungsart.FormattingEnabled = True Me.cboAbfertigungsart.FormattingEnabled = True
Me.cboAbfertigungsart.Location = New System.Drawing.Point(12, 29) Me.cboAbfertigungsart.Location = New System.Drawing.Point(12, 29)
Me.cboAbfertigungsart.Name = "cboAbfertigungsart" Me.cboAbfertigungsart.Name = "cboAbfertigungsart"
Me.cboAbfertigungsart.Size = New System.Drawing.Size(335, 24) Me.cboAbfertigungsart.Size = New System.Drawing.Size(425, 24)
Me.cboAbfertigungsart.TabIndex = 1 Me.cboAbfertigungsart.TabIndex = 1
' '
'Label1 'Label1
@@ -83,6 +86,7 @@ Partial Class frmAddSendnung
Me.txtEmpfaenger._displayWoelflKd = False Me.txtEmpfaenger._displayWoelflKd = False
Me.txtEmpfaenger._hideIfListEmpty = True Me.txtEmpfaenger._hideIfListEmpty = True
Me.txtEmpfaenger._loadKdData = True Me.txtEmpfaenger._loadKdData = True
Me.txtEmpfaenger._UseFIRMA = ""
Me.txtEmpfaenger._ValueKdAndName = True Me.txtEmpfaenger._ValueKdAndName = True
Me.txtEmpfaenger.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper Me.txtEmpfaenger.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper
Me.txtEmpfaenger.dgvpos = "LEFT" Me.txtEmpfaenger.dgvpos = "LEFT"
@@ -91,12 +95,13 @@ Partial Class frmAddSendnung
Me.txtEmpfaenger.KdNr = "-1" Me.txtEmpfaenger.KdNr = "-1"
Me.txtEmpfaenger.kdNrField = Nothing Me.txtEmpfaenger.kdNrField = Nothing
Me.txtEmpfaenger.KdNrNullInt = Nothing Me.txtEmpfaenger.KdNrNullInt = Nothing
Me.txtEmpfaenger.Location = New System.Drawing.Point(12, 131) Me.txtEmpfaenger.Location = New System.Drawing.Point(15, 131)
Me.txtEmpfaenger.Name = "txtEmpfaenger" Me.txtEmpfaenger.Name = "txtEmpfaenger"
Me.txtEmpfaenger.nurAktive = True Me.txtEmpfaenger.nurAktive = True
Me.txtEmpfaenger.searchActive = True Me.txtEmpfaenger.searchActive = True
Me.txtEmpfaenger.Size = New System.Drawing.Size(315, 23) Me.txtEmpfaenger.Size = New System.Drawing.Size(378, 23)
Me.txtEmpfaenger.TabIndex = 5 Me.txtEmpfaenger.TabIndex = 7
Me.txtEmpfaenger.TIMER_SEARCH = True
Me.txtEmpfaenger.usrcntl = Nothing Me.txtEmpfaenger.usrcntl = Nothing
' '
'txtGewicht 'txtGewicht
@@ -108,6 +113,7 @@ Partial Class frmAddSendnung
Me.txtGewicht._ShortDateNew = False Me.txtGewicht._ShortDateNew = False
Me.txtGewicht._ShortDateOnly = False Me.txtGewicht._ShortDateOnly = False
Me.txtGewicht._TimeOnly = False Me.txtGewicht._TimeOnly = False
Me.txtGewicht._TimeOnly_Seconds = False
Me.txtGewicht._value = "" Me.txtGewicht._value = ""
Me.txtGewicht._Waehrung = False Me.txtGewicht._Waehrung = False
Me.txtGewicht._WaehrungZeichen = True Me.txtGewicht._WaehrungZeichen = True
@@ -118,7 +124,7 @@ Partial Class frmAddSendnung
Me.txtGewicht.MaxLines_Warning_Label = Nothing Me.txtGewicht.MaxLines_Warning_Label = Nothing
Me.txtGewicht.Name = "txtGewicht" Me.txtGewicht.Name = "txtGewicht"
Me.txtGewicht.Size = New System.Drawing.Size(60, 20) Me.txtGewicht.Size = New System.Drawing.Size(60, 20)
Me.txtGewicht.TabIndex = 11 Me.txtGewicht.TabIndex = 13
Me.txtGewicht.TextAlign = System.Windows.Forms.HorizontalAlignment.Right Me.txtGewicht.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
' '
'Label19 'Label19
@@ -127,7 +133,7 @@ Partial Class frmAddSendnung
Me.Label19.Location = New System.Drawing.Point(9, 164) Me.Label19.Location = New System.Drawing.Point(9, 164)
Me.Label19.Name = "Label19" Me.Label19.Name = "Label19"
Me.Label19.Size = New System.Drawing.Size(100, 13) Me.Label19.Size = New System.Drawing.Size(100, 13)
Me.Label19.TabIndex = 6 Me.Label19.TabIndex = 8
Me.Label19.Text = "Warenbezeichnung" Me.Label19.Text = "Warenbezeichnung"
' '
'Label17 'Label17
@@ -136,7 +142,7 @@ Partial Class frmAddSendnung
Me.Label17.Location = New System.Drawing.Point(10, 215) Me.Label17.Location = New System.Drawing.Point(10, 215)
Me.Label17.Name = "Label17" Me.Label17.Name = "Label17"
Me.Label17.Size = New System.Drawing.Size(73, 13) Me.Label17.Size = New System.Drawing.Size(73, 13)
Me.Label17.TabIndex = 8 Me.Label17.TabIndex = 10
Me.Label17.Text = "Colli/Gewicht:" Me.Label17.Text = "Colli/Gewicht:"
' '
'txtColli 'txtColli
@@ -148,7 +154,8 @@ Partial Class frmAddSendnung
Me.txtColli._ShortDateNew = False Me.txtColli._ShortDateNew = False
Me.txtColli._ShortDateOnly = False Me.txtColli._ShortDateOnly = False
Me.txtColli._TimeOnly = False Me.txtColli._TimeOnly = False
Me.txtColli._value = Nothing Me.txtColli._TimeOnly_Seconds = False
Me.txtColli._value = ""
Me.txtColli._Waehrung = False Me.txtColli._Waehrung = False
Me.txtColli._WaehrungZeichen = True Me.txtColli._WaehrungZeichen = True
Me.txtColli.ForeColor = System.Drawing.Color.Black Me.txtColli.ForeColor = System.Drawing.Color.Black
@@ -158,7 +165,7 @@ Partial Class frmAddSendnung
Me.txtColli.MaxLines_Warning_Label = Nothing Me.txtColli.MaxLines_Warning_Label = Nothing
Me.txtColli.Name = "txtColli" Me.txtColli.Name = "txtColli"
Me.txtColli.Size = New System.Drawing.Size(46, 20) Me.txtColli.Size = New System.Drawing.Size(46, 20)
Me.txtColli.TabIndex = 9 Me.txtColli.TabIndex = 11
Me.txtColli.TextAlign = System.Windows.Forms.HorizontalAlignment.Right Me.txtColli.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
' '
'rtbWarenbezeichnung 'rtbWarenbezeichnung
@@ -168,8 +175,8 @@ Partial Class frmAddSendnung
Me.rtbWarenbezeichnung.Location = New System.Drawing.Point(12, 180) Me.rtbWarenbezeichnung.Location = New System.Drawing.Point(12, 180)
Me.rtbWarenbezeichnung.MaxLength = 500 Me.rtbWarenbezeichnung.MaxLength = 500
Me.rtbWarenbezeichnung.Name = "rtbWarenbezeichnung" Me.rtbWarenbezeichnung.Name = "rtbWarenbezeichnung"
Me.rtbWarenbezeichnung.Size = New System.Drawing.Size(359, 32) Me.rtbWarenbezeichnung.Size = New System.Drawing.Size(425, 32)
Me.rtbWarenbezeichnung.TabIndex = 7 Me.rtbWarenbezeichnung.TabIndex = 9
Me.rtbWarenbezeichnung.Text = "" Me.rtbWarenbezeichnung.Text = ""
' '
'Label23 'Label23
@@ -178,7 +185,7 @@ Partial Class frmAddSendnung
Me.Label23.Location = New System.Drawing.Point(129, 215) Me.Label23.Location = New System.Drawing.Point(129, 215)
Me.Label23.Name = "Label23" Me.Label23.Name = "Label23"
Me.Label23.Size = New System.Drawing.Size(23, 13) Me.Label23.Size = New System.Drawing.Size(23, 13)
Me.Label23.TabIndex = 10 Me.Label23.TabIndex = 12
Me.Label23.Text = "Pk." Me.Label23.Text = "Pk."
' '
'Label2 'Label2
@@ -188,17 +195,17 @@ Partial Class frmAddSendnung
Me.Label2.Location = New System.Drawing.Point(10, 111) Me.Label2.Location = New System.Drawing.Point(10, 111)
Me.Label2.Name = "Label2" Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(81, 17) Me.Label2.Size = New System.Drawing.Size(81, 17)
Me.Label2.TabIndex = 4 Me.Label2.TabIndex = 5
Me.Label2.Text = "Empfänger:" Me.Label2.Text = "Empfänger:"
' '
'btn 'btn
' '
Me.btn.DialogResult = DialogResult.OK Me.btn.DialogResult = System.Windows.Forms.DialogResult.OK
Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn.Location = New System.Drawing.Point(12, 244) Me.btn.Location = New System.Drawing.Point(12, 244)
Me.btn.Name = "btn" Me.btn.Name = "btn"
Me.btn.Size = New System.Drawing.Size(359, 52) Me.btn.Size = New System.Drawing.Size(425, 52)
Me.btn.TabIndex = 12 Me.btn.TabIndex = 17
Me.btn.Text = "OK" Me.btn.Text = "OK"
Me.btn.UseVisualStyleBackColor = True Me.btn.UseVisualStyleBackColor = True
' '
@@ -223,6 +230,7 @@ Partial Class frmAddSendnung
Me.txtAbsender._displayWoelflKd = False Me.txtAbsender._displayWoelflKd = False
Me.txtAbsender._hideIfListEmpty = True Me.txtAbsender._hideIfListEmpty = True
Me.txtAbsender._loadKdData = True Me.txtAbsender._loadKdData = True
Me.txtAbsender._UseFIRMA = ""
Me.txtAbsender._ValueKdAndName = True Me.txtAbsender._ValueKdAndName = True
Me.txtAbsender.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper Me.txtAbsender.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper
Me.txtAbsender.dgvpos = "LEFT" Me.txtAbsender.dgvpos = "LEFT"
@@ -231,12 +239,13 @@ Partial Class frmAddSendnung
Me.txtAbsender.KdNr = "-1" Me.txtAbsender.KdNr = "-1"
Me.txtAbsender.kdNrField = Nothing Me.txtAbsender.kdNrField = Nothing
Me.txtAbsender.KdNrNullInt = Nothing Me.txtAbsender.KdNrNullInt = Nothing
Me.txtAbsender.Location = New System.Drawing.Point(12, 85) Me.txtAbsender.Location = New System.Drawing.Point(15, 85)
Me.txtAbsender.Name = "txtAbsender" Me.txtAbsender.Name = "txtAbsender"
Me.txtAbsender.nurAktive = True Me.txtAbsender.nurAktive = True
Me.txtAbsender.searchActive = True Me.txtAbsender.searchActive = True
Me.txtAbsender.Size = New System.Drawing.Size(315, 23) Me.txtAbsender.Size = New System.Drawing.Size(378, 23)
Me.txtAbsender.TabIndex = 3 Me.txtAbsender.TabIndex = 4
Me.txtAbsender.TIMER_SEARCH = True
Me.txtAbsender.usrcntl = Nothing Me.txtAbsender.usrcntl = Nothing
' '
'FlatButton4 'FlatButton4
@@ -247,10 +256,10 @@ Partial Class frmAddSendnung
Me.FlatButton4.FlatAppearance.BorderSize = 0 Me.FlatButton4.FlatAppearance.BorderSize = 0
Me.FlatButton4.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.FlatButton4.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.FlatButton4.ForeColor = System.Drawing.Color.Black Me.FlatButton4.ForeColor = System.Drawing.Color.Black
Me.FlatButton4.Location = New System.Drawing.Point(325, 130) Me.FlatButton4.Location = New System.Drawing.Point(391, 130)
Me.FlatButton4.Name = "FlatButton4" Me.FlatButton4.Name = "FlatButton4"
Me.FlatButton4.Size = New System.Drawing.Size(25, 25) Me.FlatButton4.Size = New System.Drawing.Size(25, 25)
Me.FlatButton4.TabIndex = 89 Me.FlatButton4.TabIndex = 6
Me.FlatButton4.TabStop = False Me.FlatButton4.TabStop = False
Me.FlatButton4.UseVisualStyleBackColor = True Me.FlatButton4.UseVisualStyleBackColor = True
' '
@@ -262,10 +271,10 @@ Partial Class frmAddSendnung
Me.FlatButton1.FlatAppearance.BorderSize = 0 Me.FlatButton1.FlatAppearance.BorderSize = 0
Me.FlatButton1.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.FlatButton1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.FlatButton1.ForeColor = System.Drawing.Color.Black Me.FlatButton1.ForeColor = System.Drawing.Color.Black
Me.FlatButton1.Location = New System.Drawing.Point(325, 84) Me.FlatButton1.Location = New System.Drawing.Point(391, 84)
Me.FlatButton1.Name = "FlatButton1" Me.FlatButton1.Name = "FlatButton1"
Me.FlatButton1.Size = New System.Drawing.Size(25, 25) Me.FlatButton1.Size = New System.Drawing.Size(25, 25)
Me.FlatButton1.TabIndex = 88 Me.FlatButton1.TabIndex = 3
Me.FlatButton1.TabStop = False Me.FlatButton1.TabStop = False
Me.FlatButton1.UseVisualStyleBackColor = True Me.FlatButton1.UseVisualStyleBackColor = True
' '
@@ -273,7 +282,7 @@ Partial Class frmAddSendnung
' '
Me.picWarnAbsender.BackgroundImage = Global.AVISO.My.Resources.Resources.warning2 Me.picWarnAbsender.BackgroundImage = Global.AVISO.My.Resources.Resources.warning2
Me.picWarnAbsender.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom Me.picWarnAbsender.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.picWarnAbsender.Location = New System.Drawing.Point(351, 85) Me.picWarnAbsender.Location = New System.Drawing.Point(417, 85)
Me.picWarnAbsender.Name = "picWarnAbsender" Me.picWarnAbsender.Name = "picWarnAbsender"
Me.picWarnAbsender.Size = New System.Drawing.Size(20, 23) Me.picWarnAbsender.Size = New System.Drawing.Size(20, 23)
Me.picWarnAbsender.TabIndex = 86 Me.picWarnAbsender.TabIndex = 86
@@ -284,7 +293,7 @@ Partial Class frmAddSendnung
' '
Me.picWarnEmpfaenger.BackgroundImage = Global.AVISO.My.Resources.Resources.warning2 Me.picWarnEmpfaenger.BackgroundImage = Global.AVISO.My.Resources.Resources.warning2
Me.picWarnEmpfaenger.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom Me.picWarnEmpfaenger.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.picWarnEmpfaenger.Location = New System.Drawing.Point(351, 131) Me.picWarnEmpfaenger.Location = New System.Drawing.Point(417, 131)
Me.picWarnEmpfaenger.Name = "picWarnEmpfaenger" Me.picWarnEmpfaenger.Name = "picWarnEmpfaenger"
Me.picWarnEmpfaenger.Size = New System.Drawing.Size(20, 23) Me.picWarnEmpfaenger.Size = New System.Drawing.Size(20, 23)
Me.picWarnEmpfaenger.TabIndex = 87 Me.picWarnEmpfaenger.TabIndex = 87
@@ -299,8 +308,8 @@ Partial Class frmAddSendnung
Me.RichTextBox1.MaxLength = 500 Me.RichTextBox1.MaxLength = 500
Me.RichTextBox1.Name = "RichTextBox1" Me.RichTextBox1.Name = "RichTextBox1"
Me.RichTextBox1.ReadOnly = True Me.RichTextBox1.ReadOnly = True
Me.RichTextBox1.Size = New System.Drawing.Size(359, 102) Me.RichTextBox1.Size = New System.Drawing.Size(425, 102)
Me.RichTextBox1.TabIndex = 90 Me.RichTextBox1.TabIndex = 19
Me.RichTextBox1.Text = "" Me.RichTextBox1.Text = ""
' '
'Label4 'Label4
@@ -309,15 +318,75 @@ Partial Class frmAddSendnung
Me.Label4.Location = New System.Drawing.Point(12, 311) Me.Label4.Location = New System.Drawing.Point(12, 311)
Me.Label4.Name = "Label4" Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(184, 13) Me.Label4.Size = New System.Drawing.Size(184, 13)
Me.Label4.TabIndex = 91 Me.Label4.TabIndex = 18
Me.Label4.Text = "Besonderheiten (aktives Kundenfeld):" Me.Label4.Text = "Besonderheiten (aktives Kundenfeld):"
' '
'txtWarenwertWaehrung
'
Me.txtWarenwertWaehrung._allowFreitext = False
Me.txtWarenwertWaehrung._AllowSetValue = False
Me.txtWarenwertWaehrung._allowSpaceAsSplitter = False
Me.txtWarenwertWaehrung._autoSizeGross = False
Me.txtWarenwertWaehrung._hideIfListEmpty = True
Me.txtWarenwertWaehrung._value = ""
Me.txtWarenwertWaehrung.conn_art = "FMZOLL"
Me.txtWarenwertWaehrung.dgvpos = "LEFT"
Me.txtWarenwertWaehrung.DISPLAY_PARAM = Nothing
Me.txtWarenwertWaehrung.INVISIBLE_COLUMNS = Nothing
Me.txtWarenwertWaehrung.key_visible = False
Me.txtWarenwertWaehrung.KEYPARAM = Nothing
Me.txtWarenwertWaehrung.Location = New System.Drawing.Point(397, 212)
Me.txtWarenwertWaehrung.Name = "txtWarenwertWaehrung"
Me.txtWarenwertWaehrung.searchActive = True
Me.txtWarenwertWaehrung.Size = New System.Drawing.Size(40, 20)
Me.txtWarenwertWaehrung.SQL_ORDER_BY = Nothing
Me.txtWarenwertWaehrung.SQL_SELECT = Nothing
Me.txtWarenwertWaehrung.SQL_WHERE = Nothing
Me.txtWarenwertWaehrung.SQL_WhereParamList = Nothing
Me.txtWarenwertWaehrung.TabIndex = 16
Me.txtWarenwertWaehrung.usrcntl = Nothing
'
'lblWW
'
Me.lblWW.AutoSize = True
Me.lblWW.Location = New System.Drawing.Point(218, 215)
Me.lblWW.Name = "lblWW"
Me.lblWW.Size = New System.Drawing.Size(62, 13)
Me.lblWW.TabIndex = 14
Me.lblWW.Text = "Warenwert:"
'
'txtWarenwert
'
Me.txtWarenwert._DateTimeOnly = False
Me.txtWarenwert._numbersOnly = True
Me.txtWarenwert._numbersOnlyKommastellen = ""
Me.txtWarenwert._Prozent = False
Me.txtWarenwert._ShortDateNew = False
Me.txtWarenwert._ShortDateOnly = False
Me.txtWarenwert._TimeOnly = False
Me.txtWarenwert._TimeOnly_Seconds = False
Me.txtWarenwert._value = ""
Me.txtWarenwert._Waehrung = False
Me.txtWarenwert._WaehrungZeichen = True
Me.txtWarenwert.ForeColor = System.Drawing.Color.Black
Me.txtWarenwert.Location = New System.Drawing.Point(289, 212)
Me.txtWarenwert.MaxLineLength = -1
Me.txtWarenwert.MaxLines_Warning = ""
Me.txtWarenwert.MaxLines_Warning_Label = Nothing
Me.txtWarenwert.Name = "txtWarenwert"
Me.txtWarenwert.Size = New System.Drawing.Size(109, 20)
Me.txtWarenwert.TabIndex = 15
Me.txtWarenwert.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
'
'frmAddSendnung 'frmAddSendnung
' '
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.BackColor = System.Drawing.Color.White Me.BackColor = System.Drawing.Color.White
Me.ClientSize = New System.Drawing.Size(389, 441) Me.ClientSize = New System.Drawing.Size(449, 441)
Me.Controls.Add(Me.txtWarenwertWaehrung)
Me.Controls.Add(Me.lblWW)
Me.Controls.Add(Me.txtWarenwert)
Me.Controls.Add(Me.Label4) Me.Controls.Add(Me.Label4)
Me.Controls.Add(Me.RichTextBox1) Me.Controls.Add(Me.RichTextBox1)
Me.Controls.Add(Me.picWarnEmpfaenger) Me.Controls.Add(Me.picWarnEmpfaenger)
@@ -368,4 +437,7 @@ Partial Class frmAddSendnung
Friend WithEvents picWarnEmpfaenger As PictureBox Friend WithEvents picWarnEmpfaenger As PictureBox
Friend WithEvents RichTextBox1 As RichTextBox Friend WithEvents RichTextBox1 As RichTextBox
Friend WithEvents Label4 As Label Friend WithEvents Label4 As Label
Friend WithEvents txtWarenwertWaehrung As VERAG_PROG_ALLGEMEIN.MySearchBox
Friend WithEvents lblWW As Label
Friend WithEvents txtWarenwert As VERAG_PROG_ALLGEMEIN.MyTextBox
End Class End Class

9
Aviso/Anhänge/frmAddSendnung.vb
View File

@@ -32,6 +32,8 @@
txtAbsender.usrcntlWIDTH = 360 txtAbsender.usrcntlWIDTH = 360
txtAbsender.usrcntlHEIGHT = 100 txtAbsender.usrcntlHEIGHT = 100
txtWarenwertWaehrung.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land FROM tbl_DY_ZollDE_I0400_Waehrungsliste", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "Code", "FMZOLL", , 150, 200)
AddHandler txtEmpfaenger.PropertyChanged, Sub() AddHandler txtEmpfaenger.PropertyChanged, Sub()
FlatButton4.BackgroundImage = IIf(txtEmpfaenger.KdNr > 0, My.Resources.person, My.Resources.personInaktiv) FlatButton4.BackgroundImage = IIf(txtEmpfaenger.KdNr > 0, My.Resources.person, My.Resources.personInaktiv)
initWarnKd(txtEmpfaenger, picWarnEmpfaenger) initWarnKd(txtEmpfaenger, picWarnEmpfaenger)
@@ -60,6 +62,8 @@
txtColli.Text = If(Sendung.tblSnd_Colli, "").ToString.Replace(" ", "").Replace(Chr(160), "") ' 160: irgend ein Sonder-Leerzeichen txtColli.Text = If(Sendung.tblSnd_Colli, "").ToString.Replace(" ", "").Replace(Chr(160), "") ' 160: irgend ein Sonder-Leerzeichen
txtGewicht.Text = If(Sendung.tblSnd_Gewicht, "").ToString.Replace(" ", "").Replace(Chr(160), "") ' 160: irgend ein Sonder-Leerzeichen txtGewicht.Text = If(Sendung.tblSnd_Gewicht, "").ToString.Replace(" ", "").Replace(Chr(160), "") ' 160: irgend ein Sonder-Leerzeichen
txtWarenwert.Text = If(Sendung.tblSnd_Warenwert, "")
txtWarenwertWaehrung.SET_VALUE(If(Sendung.tblSnd_WarenwertWaehrung, ""))
rtbWarenbezeichnung.Text = If(Sendung.tblSnd_Warenbezeichnung, "") rtbWarenbezeichnung.Text = If(Sendung.tblSnd_Warenbezeichnung, "")
End If End If
@@ -73,7 +77,7 @@
txtColli.Text = txtColli.Text.Replace(" ", "").Replace(Chr(160), "") ' 160: irgend ein Sonder-Leerzeichen txtColli.Text = txtColli.Text.Replace(" ", "").Replace(Chr(160), "") ' 160: irgend ein Sonder-Leerzeichen
txtGewicht.Text = txtGewicht.Text.Replace(" ", "").Replace(Chr(160), "") ' 160: irgend ein Sonder-Leerzeichen txtGewicht.Text = txtGewicht.Text.Replace(" ", "").Replace(Chr(160), "") ' 160: irgend ein Sonder-Leerzeichen
If txtColli.Text <> "" And Not IsNumeric(txtColli.Text) Then MsgBox("Colli: Falsches Format") : Exit Sub If txtColli.Text <> "" And Not IsNumeric(txtColli.Text) Then MsgBox("Colli: Falsches Format") : Exit Sub
If txtGewicht.Text <> "" And Not IsNumeric(txtGewicht.Text) Then MsgBox("f Gewicht: Falsches Format") : Exit Sub If txtGewicht.Text <> "" And Not IsNumeric(txtGewicht.Text) Then MsgBox("Gewicht: Falsches Format") : Exit Sub
If Sendung Is Nothing Then If Sendung Is Nothing Then
Sendung = New VERAG_PROG_ALLGEMEIN.cSendungen(AvisoId, SQL.getValueTxtBySql("SELECT Count(*)+1 FROM tblSendungen WHERE tblSnd_AvisoID=" & AvisoId & "", "AVISO"),,,, 0) Sendung = New VERAG_PROG_ALLGEMEIN.cSendungen(AvisoId, SQL.getValueTxtBySql("SELECT Count(*)+1 FROM tblSendungen WHERE tblSnd_AvisoID=" & AvisoId & "", "AVISO"),,,, 0)
@@ -88,6 +92,9 @@
Sendung.tblSnd_Gewicht = "" Sendung.tblSnd_Gewicht = ""
If txtColli.Text <> "" Then Sendung.tblSnd_Colli = CInt(txtColli.Text) If txtColli.Text <> "" Then Sendung.tblSnd_Colli = CInt(txtColli.Text)
If txtGewicht.Text <> "" Then Sendung.tblSnd_Gewicht = CDbl(txtGewicht.Text) If txtGewicht.Text <> "" Then Sendung.tblSnd_Gewicht = CDbl(txtGewicht.Text)
If txtWarenwert._value <> "" Then Sendung.tblSnd_Warenwert = CDbl(txtWarenwert._value)
If txtWarenwertWaehrung._value <> "" Then Sendung.tblSnd_WarenwertWaehrung = txtWarenwertWaehrung._value
Sendung.tblSnd_Warenbezeichnung = rtbWarenbezeichnung.Text Sendung.tblSnd_Warenbezeichnung = rtbWarenbezeichnung.Text

86
Aviso/Anhänge/frmSendungAnhangImport.Designer.vb generated
View File

@@ -26,8 +26,6 @@ Partial Class frmSendungAnhangImport
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmSendungAnhangImport)) Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmSendungAnhangImport))
Me.lbl = New System.Windows.Forms.Label() Me.lbl = New System.Windows.Forms.Label()
Me.flpnlAviso = New System.Windows.Forms.FlowLayoutPanel() Me.flpnlAviso = New System.Windows.Forms.FlowLayoutPanel()
Me.UsrCntlSendungAnhangElement1 = New AVISO.usrCntlSendungAnhangElement()
Me.UsrCntlSendungAnhangElement2 = New AVISO.usrCntlSendungAnhangElement()
Me.flpnlSendungen = New System.Windows.Forms.FlowLayoutPanel() Me.flpnlSendungen = New System.Windows.Forms.FlowLayoutPanel()
Me.lblSendungen = New System.Windows.Forms.Label() Me.lblSendungen = New System.Windows.Forms.Label()
Me.lblImport = New System.Windows.Forms.Label() Me.lblImport = New System.Windows.Forms.Label()
@@ -70,6 +68,9 @@ Partial Class frmSendungAnhangImport
Me.lblEmpfaenger = New System.Windows.Forms.Label() Me.lblEmpfaenger = New System.Windows.Forms.Label()
Me.Panel1 = New System.Windows.Forms.Panel() Me.Panel1 = New System.Windows.Forms.Panel()
Me.Button17 = New System.Windows.Forms.Button() Me.Button17 = New System.Windows.Forms.Button()
Me.lblRgPreis = New System.Windows.Forms.Label()
Me.UsrCntlSendungAnhangElement1 = New AVISO.usrCntlSendungAnhangElement()
Me.UsrCntlSendungAnhangElement2 = New AVISO.usrCntlSendungAnhangElement()
Me.flpnlAviso.SuspendLayout() Me.flpnlAviso.SuspendLayout()
Me.pnlAnfuegen.SuspendLayout() Me.pnlAnfuegen.SuspendLayout()
Me.cntxt.SuspendLayout() Me.cntxt.SuspendLayout()
@@ -100,36 +101,6 @@ Partial Class frmSendungAnhangImport
Me.flpnlAviso.Size = New System.Drawing.Size(200, 825) Me.flpnlAviso.Size = New System.Drawing.Size(200, 825)
Me.flpnlAviso.TabIndex = 7 Me.flpnlAviso.TabIndex = 7
' '
'UsrCntlSendungAnhangElement1
'
Me.UsrCntlSendungAnhangElement1.ACTIVE = False
Me.UsrCntlSendungAnhangElement1.BackColor = System.Drawing.Color.White
Me.UsrCntlSendungAnhangElement1.FILE_ANHID = Nothing
Me.UsrCntlSendungAnhangElement1.FILE_DOCID = Nothing
Me.UsrCntlSendungAnhangElement1.FILE_NAME = "False"
Me.UsrCntlSendungAnhangElement1.FILE_PAGES = Nothing
Me.UsrCntlSendungAnhangElement1.FILE_PATH = Nothing
Me.UsrCntlSendungAnhangElement1.FILE_TYPE = Nothing
Me.UsrCntlSendungAnhangElement1.Location = New System.Drawing.Point(3, 3)
Me.UsrCntlSendungAnhangElement1.Name = "UsrCntlSendungAnhangElement1"
Me.UsrCntlSendungAnhangElement1.Size = New System.Drawing.Size(130, 64)
Me.UsrCntlSendungAnhangElement1.TabIndex = 0
'
'UsrCntlSendungAnhangElement2
'
Me.UsrCntlSendungAnhangElement2.ACTIVE = False
Me.UsrCntlSendungAnhangElement2.BackColor = System.Drawing.Color.White
Me.UsrCntlSendungAnhangElement2.FILE_ANHID = Nothing
Me.UsrCntlSendungAnhangElement2.FILE_DOCID = Nothing
Me.UsrCntlSendungAnhangElement2.FILE_NAME = "False"
Me.UsrCntlSendungAnhangElement2.FILE_PAGES = Nothing
Me.UsrCntlSendungAnhangElement2.FILE_PATH = Nothing
Me.UsrCntlSendungAnhangElement2.FILE_TYPE = Nothing
Me.UsrCntlSendungAnhangElement2.Location = New System.Drawing.Point(3, 73)
Me.UsrCntlSendungAnhangElement2.Name = "UsrCntlSendungAnhangElement2"
Me.UsrCntlSendungAnhangElement2.Size = New System.Drawing.Size(130, 64)
Me.UsrCntlSendungAnhangElement2.TabIndex = 1
'
'flpnlSendungen 'flpnlSendungen
' '
Me.flpnlSendungen.AllowDrop = True Me.flpnlSendungen.AllowDrop = True
@@ -220,6 +191,7 @@ Partial Class frmSendungAnhangImport
Me.txtBezeichnung._ShortDateNew = False Me.txtBezeichnung._ShortDateNew = False
Me.txtBezeichnung._ShortDateOnly = False Me.txtBezeichnung._ShortDateOnly = False
Me.txtBezeichnung._TimeOnly = False Me.txtBezeichnung._TimeOnly = False
Me.txtBezeichnung._TimeOnly_Seconds = False
Me.txtBezeichnung._value = "" Me.txtBezeichnung._value = ""
Me.txtBezeichnung._Waehrung = False Me.txtBezeichnung._Waehrung = False
Me.txtBezeichnung._WaehrungZeichen = True Me.txtBezeichnung._WaehrungZeichen = True
@@ -274,6 +246,7 @@ Partial Class frmSendungAnhangImport
Me.txtDateiname._ShortDateNew = False Me.txtDateiname._ShortDateNew = False
Me.txtDateiname._ShortDateOnly = False Me.txtDateiname._ShortDateOnly = False
Me.txtDateiname._TimeOnly = False Me.txtDateiname._TimeOnly = False
Me.txtDateiname._TimeOnly_Seconds = False
Me.txtDateiname._value = "" Me.txtDateiname._value = ""
Me.txtDateiname._Waehrung = False Me.txtDateiname._Waehrung = False
Me.txtDateiname._WaehrungZeichen = True Me.txtDateiname._WaehrungZeichen = True
@@ -305,6 +278,7 @@ Partial Class frmSendungAnhangImport
Me.MyTextBox2._ShortDateNew = False Me.MyTextBox2._ShortDateNew = False
Me.MyTextBox2._ShortDateOnly = False Me.MyTextBox2._ShortDateOnly = False
Me.MyTextBox2._TimeOnly = False Me.MyTextBox2._TimeOnly = False
Me.MyTextBox2._TimeOnly_Seconds = False
Me.MyTextBox2._value = "" Me.MyTextBox2._value = ""
Me.MyTextBox2._Waehrung = False Me.MyTextBox2._Waehrung = False
Me.MyTextBox2._WaehrungZeichen = True Me.MyTextBox2._WaehrungZeichen = True
@@ -370,6 +344,7 @@ Partial Class frmSendungAnhangImport
Me.txtSeiten._ShortDateNew = False Me.txtSeiten._ShortDateNew = False
Me.txtSeiten._ShortDateOnly = False Me.txtSeiten._ShortDateOnly = False
Me.txtSeiten._TimeOnly = False Me.txtSeiten._TimeOnly = False
Me.txtSeiten._TimeOnly_Seconds = False
Me.txtSeiten._value = "" Me.txtSeiten._value = ""
Me.txtSeiten._Waehrung = False Me.txtSeiten._Waehrung = False
Me.txtSeiten._WaehrungZeichen = True Me.txtSeiten._WaehrungZeichen = True
@@ -555,9 +530,9 @@ Partial Class frmSendungAnhangImport
' '
Me.lblSendungsdetails.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.lblSendungsdetails.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblSendungsdetails.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblSendungsdetails.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblSendungsdetails.Location = New System.Drawing.Point(1077, 99) Me.lblSendungsdetails.Location = New System.Drawing.Point(1077, 98)
Me.lblSendungsdetails.Name = "lblSendungsdetails" Me.lblSendungsdetails.Name = "lblSendungsdetails"
Me.lblSendungsdetails.Size = New System.Drawing.Size(223, 17) Me.lblSendungsdetails.Size = New System.Drawing.Size(157, 21)
Me.lblSendungsdetails.TabIndex = 13 Me.lblSendungsdetails.TabIndex = 13
Me.lblSendungsdetails.Text = "-" Me.lblSendungsdetails.Text = "-"
' '
@@ -627,6 +602,47 @@ Partial Class frmSendungAnhangImport
Me.Button17.TextAlign = System.Drawing.ContentAlignment.MiddleRight Me.Button17.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button17.UseVisualStyleBackColor = True Me.Button17.UseVisualStyleBackColor = True
' '
'lblRgPreis
'
Me.lblRgPreis.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblRgPreis.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblRgPreis.Location = New System.Drawing.Point(1196, 98)
Me.lblRgPreis.Name = "lblRgPreis"
Me.lblRgPreis.Size = New System.Drawing.Size(107, 21)
Me.lblRgPreis.TabIndex = 19
Me.lblRgPreis.Text = "-"
Me.lblRgPreis.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'UsrCntlSendungAnhangElement1
'
Me.UsrCntlSendungAnhangElement1.ACTIVE = False
Me.UsrCntlSendungAnhangElement1.BackColor = System.Drawing.Color.White
Me.UsrCntlSendungAnhangElement1.FILE_ANHID = Nothing
Me.UsrCntlSendungAnhangElement1.FILE_DOCID = Nothing
Me.UsrCntlSendungAnhangElement1.FILE_NAME = "False"
Me.UsrCntlSendungAnhangElement1.FILE_PAGES = Nothing
Me.UsrCntlSendungAnhangElement1.FILE_PATH = Nothing
Me.UsrCntlSendungAnhangElement1.FILE_TYPE = Nothing
Me.UsrCntlSendungAnhangElement1.Location = New System.Drawing.Point(3, 3)
Me.UsrCntlSendungAnhangElement1.Name = "UsrCntlSendungAnhangElement1"
Me.UsrCntlSendungAnhangElement1.Size = New System.Drawing.Size(130, 64)
Me.UsrCntlSendungAnhangElement1.TabIndex = 0
'
'UsrCntlSendungAnhangElement2
'
Me.UsrCntlSendungAnhangElement2.ACTIVE = False
Me.UsrCntlSendungAnhangElement2.BackColor = System.Drawing.Color.White
Me.UsrCntlSendungAnhangElement2.FILE_ANHID = Nothing
Me.UsrCntlSendungAnhangElement2.FILE_DOCID = Nothing
Me.UsrCntlSendungAnhangElement2.FILE_NAME = "False"
Me.UsrCntlSendungAnhangElement2.FILE_PAGES = Nothing
Me.UsrCntlSendungAnhangElement2.FILE_PATH = Nothing
Me.UsrCntlSendungAnhangElement2.FILE_TYPE = Nothing
Me.UsrCntlSendungAnhangElement2.Location = New System.Drawing.Point(3, 73)
Me.UsrCntlSendungAnhangElement2.Name = "UsrCntlSendungAnhangElement2"
Me.UsrCntlSendungAnhangElement2.Size = New System.Drawing.Size(130, 64)
Me.UsrCntlSendungAnhangElement2.TabIndex = 1
'
'frmSendungAnhangImport 'frmSendungAnhangImport
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -653,6 +669,7 @@ Partial Class frmSendungAnhangImport
Me.Controls.Add(Me.lbl) Me.Controls.Add(Me.lbl)
Me.Controls.Add(Me.pnl) Me.Controls.Add(Me.pnl)
Me.Controls.Add(Me.lblEmpfaenger) Me.Controls.Add(Me.lblEmpfaenger)
Me.Controls.Add(Me.lblRgPreis)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.KeyPreview = True Me.KeyPreview = True
Me.Name = "frmSendungAnhangImport" Me.Name = "frmSendungAnhangImport"
@@ -714,4 +731,5 @@ Partial Class frmSendungAnhangImport
Friend WithEvents Panel1 As Panel Friend WithEvents Panel1 As Panel
Friend WithEvents Button17 As Button Friend WithEvents Button17 As Button
Friend WithEvents cbxAlternativePDFAnsicht As CheckBox Friend WithEvents cbxAlternativePDFAnsicht As CheckBox
Friend WithEvents lblRgPreis As Label
End Class End Class

6
Aviso/Anhänge/frmSendungAnhangImport.vb
View File

@@ -1164,6 +1164,12 @@ Public Class frmSendungAnhangImport
Dim SND As New VERAG_PROG_ALLGEMEIN.cSendungen(cboSendungen._value) Dim SND As New VERAG_PROG_ALLGEMEIN.cSendungen(cboSendungen._value)
If If(SND.tblSnd_Colli, "") <> "" Then lblSendungsdetails.Text = SND.tblSnd_Colli & " Pk" If If(SND.tblSnd_Colli, "") <> "" Then lblSendungsdetails.Text = SND.tblSnd_Colli & " Pk"
If If(SND.tblSnd_Gewicht, "") <> "" Then lblSendungsdetails.Text &= If(lblSendungsdetails.Text <> "", "; ", "") & CDbl(SND.tblSnd_Gewicht.Replace(" ", "").Replace(Chr(160), "")).ToString("N1") & " kg" If If(SND.tblSnd_Gewicht, "") <> "" Then lblSendungsdetails.Text &= If(lblSendungsdetails.Text <> "", "; ", "") & CDbl(SND.tblSnd_Gewicht.Replace(" ", "").Replace(Chr(160), "")).ToString("N1") & " kg"
If If(SND.tblSnd_Gewicht, "") <> "" Then
lblRgPreis.Text = (CDbl(SND.tblSnd_Warenwert).ToString("N2") & " " & If(SND.tblSnd_WarenwertWaehrung, "")).trim
Else
lblRgPreis.Text = ""
End If
lblWarenbeichnung.Text = If(SND.tblSnd_Warenbezeichnung, "") lblWarenbeichnung.Text = If(SND.tblSnd_Warenbezeichnung, "")
lblAbsender.Text = If(SND.tblSnd_Absender, "") lblAbsender.Text = If(SND.tblSnd_Absender, "")
lblEmpfaenger.Text = If(SND.tblSnd_Empfaenger, "") lblEmpfaenger.Text = If(SND.tblSnd_Empfaenger, "")

27
Aviso/Aviso.vbproj
View File

@@ -402,6 +402,12 @@
<Compile Include="Auswertung\usrctlAuswertung.vb"> <Compile Include="Auswertung\usrctlAuswertung.vb">
<SubType>UserControl</SubType> <SubType>UserControl</SubType>
</Compile> </Compile>
<Compile Include="AvisoReports\rptTEST.Designer.vb">
<DependentUpon>rptTEST.vb</DependentUpon>
</Compile>
<Compile Include="AvisoReports\rptTEST.vb">
<SubType>Component</SubType>
</Compile>
<Compile Include="AvisoReports\rptQRAviso.Designer.vb"> <Compile Include="AvisoReports\rptQRAviso.Designer.vb">
<DependentUpon>rptQRAviso.vb</DependentUpon> <DependentUpon>rptQRAviso.vb</DependentUpon>
</Compile> </Compile>
@@ -982,6 +988,9 @@
<EmbeddedResource Include="Auswertung\usrctlAuswertung.resx"> <EmbeddedResource Include="Auswertung\usrctlAuswertung.resx">
<DependentUpon>usrctlAuswertung.vb</DependentUpon> <DependentUpon>usrctlAuswertung.vb</DependentUpon>
</EmbeddedResource> </EmbeddedResource>
<EmbeddedResource Include="AvisoReports\rptTEST.resx">
<DependentUpon>rptTEST.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="AvisoReports\rptQRAviso.resx"> <EmbeddedResource Include="AvisoReports\rptQRAviso.resx">
<DependentUpon>rptQRAviso.vb</DependentUpon> <DependentUpon>rptQRAviso.vb</DependentUpon>
</EmbeddedResource> </EmbeddedResource>
@@ -1259,16 +1268,28 @@
<CustomToolNamespace>My</CustomToolNamespace> <CustomToolNamespace>My</CustomToolNamespace>
<LastGenOutput>Settings.Designer.vb</LastGenOutput> <LastGenOutput>Settings.Designer.vb</LastGenOutput>
</None> </None>
<None Include="Resources\ATANAK_Instructions_Export.xlsx"> <None Include="Resources\old_ATANAK_Instructions_Export.xlsx">
<CopyToOutputDirectory>Always</CopyToOutputDirectory> <CopyToOutputDirectory>Always</CopyToOutputDirectory>
</None> </None>
<None Include="Resources\ATANAK_Instructions_Export_T1.xlsx"> <None Include="Resources\DGS_Instructions_Export.xlsx">
<CopyToOutputDirectory>Always</CopyToOutputDirectory> <CopyToOutputDirectory>Always</CopyToOutputDirectory>
</None> </None>
<None Include="Resources\ATANAK_Instructions_Import.xlsx"> <None Include="Resources\old_ATANAK_Instructions_Export_T1.xlsx">
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
</None>
<None Include="Resources\DGS_Instructions_Export_T1.xlsx">
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
</None>
<None Include="Resources\old_ATANAK_Instructions_Import.xlsx">
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
</None>
<None Include="Resources\DGS_Instructions_Import.xlsx">
<CopyToOutputDirectory>Always</CopyToOutputDirectory> <CopyToOutputDirectory>Always</CopyToOutputDirectory>
</None> </None>
<None Include="Resources\Instructions_Import.xlsx" /> <None Include="Resources\Instructions_Import.xlsx" />
<None Include="Resources\VZ HINDERNISS - ZOLLBESCHAU - PROTOKOLL.xlsx">
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
</None>
<None Include="Zert_20092019.pfx" /> <None Include="Zert_20092019.pfx" />
</ItemGroup> </ItemGroup>
<ItemGroup> <ItemGroup>

95
Aviso/AvisoReports/rptTEST.Designer.vb generated Normal file
View File

@@ -0,0 +1,95 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Public Class rptTEST
Inherits GrapeCity.ActiveReports.SectionReport
'Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
End If
MyBase.Dispose(disposing)
End Sub
'NOTE: The following procedure is required by the ActiveReports Designer
'It can be modified using the ActiveReports Designer.
'Do not modify it using the code editor.
Private WithEvents PageHeader As GrapeCity.ActiveReports.SectionReportModel.PageHeader
Private WithEvents Detail As GrapeCity.ActiveReports.SectionReportModel.Detail
Private WithEvents PageFooter As GrapeCity.ActiveReports.SectionReportModel.PageFooter
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Me.PageHeader = New GrapeCity.ActiveReports.SectionReportModel.PageHeader()
Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
Me.PageFooter = New GrapeCity.ActiveReports.SectionReportModel.PageFooter()
Me.ReportHeader1 = New GrapeCity.ActiveReports.SectionReportModel.ReportHeader()
Me.txtLKW = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.ReportFooter1 = New GrapeCity.ActiveReports.SectionReportModel.ReportFooter()
CType(Me.txtLKW, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
'PageHeader
'
Me.PageHeader.Height = 0!
Me.PageHeader.Name = "PageHeader"
'
'Detail
'
Me.Detail.Height = 0!
Me.Detail.Name = "Detail"
'
'PageFooter
'
Me.PageFooter.Height = 0!
Me.PageFooter.Name = "PageFooter"
'
'ReportHeader1
'
Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.txtLKW})
Me.ReportHeader1.Height = 0.9712601!
Me.ReportHeader1.Name = "ReportHeader1"
'
'txtLKW
'
Me.txtLKW.CanGrow = False
Me.txtLKW.Height = 0.6240159!
Me.txtLKW.Left = -3.72529E-9!
Me.txtLKW.Name = "txtLKW"
Me.txtLKW.Style = "font-size: 16pt; font-weight: bold; text-align: center; text-justify: auto; verti" &
"cal-align: middle; ddo-char-set: 1"
Me.txtLKW.Text = "TEST"
Me.txtLKW.Top = 0.3472441!
Me.txtLKW.Width = 2.604725!
'
'ReportFooter1
'
Me.ReportFooter1.CanShrink = True
Me.ReportFooter1.Height = 0.1775591!
Me.ReportFooter1.Name = "ReportFooter1"
'
'rptTEST
'
Me.PageSettings.Margins.Bottom = 0.1968504!
Me.PageSettings.Margins.Left = 0.07874016!
Me.PageSettings.Margins.Right = 0.07874016!
Me.PageSettings.Margins.Top = 0!
Me.PageSettings.PaperHeight = 11.0!
Me.PageSettings.PaperWidth = 8.5!
Me.PrintWidth = 2.673229!
Me.Sections.Add(Me.ReportHeader1)
Me.Sections.Add(Me.PageHeader)
Me.Sections.Add(Me.Detail)
Me.Sections.Add(Me.PageFooter)
Me.Sections.Add(Me.ReportFooter1)
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Arial; font-style: normal; text-decoration: none; font-weight: norma" &
"l; font-size: 10pt; color: Black; ddo-char-set: 204", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 16pt; font-weight: bold", "Heading1", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Times New Roman; font-size: 14pt; font-weight: bold; font-style: ita" &
"lic", "Heading2", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 13pt; font-weight: bold", "Heading3", "Normal"))
CType(Me.txtLKW, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub
Private WithEvents ReportHeader1 As GrapeCity.ActiveReports.SectionReportModel.ReportHeader
Private WithEvents ReportFooter1 As GrapeCity.ActiveReports.SectionReportModel.ReportFooter
Public WithEvents txtLKW As GrapeCity.ActiveReports.SectionReportModel.TextBox
End Class

126
Aviso/AvisoReports/rptTEST.resx Normal file
View File

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

7
Aviso/AvisoReports/rptTEST.vb Normal file
View File

@@ -0,0 +1,7 @@
Imports System.Web
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Imports ThoughtWorks.QRCode.Codec
Public Class rptTEST
End Class

77
Aviso/Benachrichtigung/frmAvisoBenachrichtigungReminderBestaetigen.Designer.vb generated
View File

@@ -23,6 +23,7 @@ Partial Class frmAvisoBenachrichtigungReminderBestaetigen
<System.Diagnostics.DebuggerStepThrough()> <System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent() Private Sub InitializeComponent()
Me.pnl = New System.Windows.Forms.Panel() Me.pnl = New System.Windows.Forms.Panel()
Me.Button2 = New System.Windows.Forms.Button()
Me.Label2 = New System.Windows.Forms.Label() Me.Label2 = New System.Windows.Forms.Label()
Me.Button1 = New System.Windows.Forms.Button() Me.Button1 = New System.Windows.Forms.Button()
Me.lblDatUhrzeit = New System.Windows.Forms.Label() Me.lblDatUhrzeit = New System.Windows.Forms.Label()
@@ -32,7 +33,6 @@ Partial Class frmAvisoBenachrichtigungReminderBestaetigen
Me.btn = New System.Windows.Forms.Button() Me.btn = New System.Windows.Forms.Button()
Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.Button2 = New System.Windows.Forms.Button()
Me.pnl.SuspendLayout() Me.pnl.SuspendLayout()
Me.SuspendLayout() Me.SuspendLayout()
' '
@@ -50,16 +50,32 @@ Partial Class frmAvisoBenachrichtigungReminderBestaetigen
Me.pnl.Controls.Add(Me.btn) Me.pnl.Controls.Add(Me.btn)
Me.pnl.Dock = System.Windows.Forms.DockStyle.Fill Me.pnl.Dock = System.Windows.Forms.DockStyle.Fill
Me.pnl.Location = New System.Drawing.Point(0, 0) Me.pnl.Location = New System.Drawing.Point(0, 0)
Me.pnl.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.pnl.Name = "pnl" Me.pnl.Name = "pnl"
Me.pnl.Size = New System.Drawing.Size(460, 159) Me.pnl.Size = New System.Drawing.Size(690, 245)
Me.pnl.TabIndex = 0 Me.pnl.TabIndex = 0
' '
'Button2
'
Me.Button2.BackColor = System.Drawing.Color.Red
Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button2.ForeColor = System.Drawing.Color.White
Me.Button2.Location = New System.Drawing.Point(630, -2)
Me.Button2.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(58, 48)
Me.Button2.TabIndex = 10
Me.Button2.Text = "X"
Me.Button2.UseVisualStyleBackColor = False
'
'Label2 'Label2
' '
Me.Label2.AutoSize = True Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(193, 10) Me.Label2.Location = New System.Drawing.Point(290, 15)
Me.Label2.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.Label2.Name = "Label2" Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(79, 13) Me.Label2.Size = New System.Drawing.Size(116, 20)
Me.Label2.TabIndex = 4 Me.Label2.TabIndex = 4
Me.Label2.Text = "Datum/Uhrzeit:" Me.Label2.Text = "Datum/Uhrzeit:"
' '
@@ -68,9 +84,10 @@ Partial Class frmAvisoBenachrichtigungReminderBestaetigen
Me.Button1.BackColor = System.Drawing.Color.SteelBlue Me.Button1.BackColor = System.Drawing.Color.SteelBlue
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button1.ForeColor = System.Drawing.Color.White Me.Button1.ForeColor = System.Drawing.Color.White
Me.Button1.Location = New System.Drawing.Point(11, 92) Me.Button1.Location = New System.Drawing.Point(16, 142)
Me.Button1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.Button1.Name = "Button1" Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(236, 56) Me.Button1.Size = New System.Drawing.Size(354, 86)
Me.Button1.TabIndex = 9 Me.Button1.TabIndex = 9
Me.Button1.Text = "OK & Vermerk bestätigen" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(Vorauskasse / Angeforderte Doks erhalten)" Me.Button1.Text = "OK & Vermerk bestätigen" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(Vorauskasse / Angeforderte Doks erhalten)"
Me.Button1.UseVisualStyleBackColor = False Me.Button1.UseVisualStyleBackColor = False
@@ -78,9 +95,10 @@ Partial Class frmAvisoBenachrichtigungReminderBestaetigen
'lblDatUhrzeit 'lblDatUhrzeit
' '
Me.lblDatUhrzeit.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblDatUhrzeit.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblDatUhrzeit.Location = New System.Drawing.Point(213, 10) Me.lblDatUhrzeit.Location = New System.Drawing.Point(320, 15)
Me.lblDatUhrzeit.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.lblDatUhrzeit.Name = "lblDatUhrzeit" Me.lblDatUhrzeit.Name = "lblDatUhrzeit"
Me.lblDatUhrzeit.Size = New System.Drawing.Size(177, 13) Me.lblDatUhrzeit.Size = New System.Drawing.Size(266, 20)
Me.lblDatUhrzeit.TabIndex = 8 Me.lblDatUhrzeit.TabIndex = 8
Me.lblDatUhrzeit.Text = "01.01.2020 10:00" Me.lblDatUhrzeit.Text = "01.01.2020 10:00"
Me.lblDatUhrzeit.TextAlign = System.Drawing.ContentAlignment.TopRight Me.lblDatUhrzeit.TextAlign = System.Drawing.ContentAlignment.TopRight
@@ -89,18 +107,20 @@ Partial Class frmAvisoBenachrichtigungReminderBestaetigen
' '
Me.lblArt.AutoSize = True Me.lblArt.AutoSize = True
Me.lblArt.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold) Me.lblArt.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold)
Me.lblArt.Location = New System.Drawing.Point(11, 8) Me.lblArt.Location = New System.Drawing.Point(16, 12)
Me.lblArt.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.lblArt.Name = "lblArt" Me.lblArt.Name = "lblArt"
Me.lblArt.Size = New System.Drawing.Size(167, 17) Me.lblArt.Size = New System.Drawing.Size(232, 25)
Me.lblArt.TabIndex = 5 Me.lblArt.TabIndex = 5
Me.lblArt.Text = "VERMERK REMINDER" Me.lblArt.Text = "VERMERK REMINDER"
' '
'lbl 'lbl
' '
Me.lbl.AutoSize = True Me.lbl.AutoSize = True
Me.lbl.Location = New System.Drawing.Point(8, 34) Me.lbl.Location = New System.Drawing.Point(12, 52)
Me.lbl.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.lbl.Name = "lbl" Me.lbl.Name = "lbl"
Me.lbl.Size = New System.Drawing.Size(49, 13) Me.lbl.Size = New System.Drawing.Size(73, 20)
Me.lbl.TabIndex = 2 Me.lbl.TabIndex = 2
Me.lbl.Text = "Vermerk:" Me.lbl.Text = "Vermerk:"
' '
@@ -108,21 +128,24 @@ Partial Class frmAvisoBenachrichtigungReminderBestaetigen
' '
Me.rtbVermerk.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ Me.rtbVermerk.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.rtbVermerk.Location = New System.Drawing.Point(11, 50) Me.rtbVermerk.Location = New System.Drawing.Point(16, 77)
Me.rtbVermerk.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.rtbVermerk.Name = "rtbVermerk" Me.rtbVermerk.Name = "rtbVermerk"
Me.rtbVermerk.ReadOnly = True Me.rtbVermerk.ReadOnly = True
Me.rtbVermerk.Size = New System.Drawing.Size(436, 36) Me.rtbVermerk.Size = New System.Drawing.Size(653, 53)
Me.rtbVermerk.TabIndex = 1 Me.rtbVermerk.TabIndex = 1
Me.rtbVermerk.Text = "" Me.rtbVermerk.Text = ""
' '
'btn 'btn
' '
Me.btn.BackColor = System.Drawing.Color.SteelBlue Me.btn.BackColor = System.Drawing.Color.SteelBlue
Me.btn.DialogResult = System.Windows.Forms.DialogResult.Yes
Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn.ForeColor = System.Drawing.Color.White Me.btn.ForeColor = System.Drawing.Color.White
Me.btn.Location = New System.Drawing.Point(253, 92) Me.btn.Location = New System.Drawing.Point(380, 142)
Me.btn.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.btn.Name = "btn" Me.btn.Name = "btn"
Me.btn.Size = New System.Drawing.Size(194, 56) Me.btn.Size = New System.Drawing.Size(291, 86)
Me.btn.TabIndex = 0 Me.btn.TabIndex = 0
Me.btn.Text = "OK" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(Benachrichtigung akzeptieren)" Me.btn.Text = "OK" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(Benachrichtigung akzeptieren)"
Me.btn.UseVisualStyleBackColor = False Me.btn.UseVisualStyleBackColor = False
@@ -130,34 +153,26 @@ Partial Class frmAvisoBenachrichtigungReminderBestaetigen
'DataGridViewTextBoxColumn1 'DataGridViewTextBoxColumn1
' '
Me.DataGridViewTextBoxColumn1.HeaderText = "Column1" Me.DataGridViewTextBoxColumn1.HeaderText = "Column1"
Me.DataGridViewTextBoxColumn1.MinimumWidth = 8
Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1" Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1"
Me.DataGridViewTextBoxColumn1.Visible = False Me.DataGridViewTextBoxColumn1.Visible = False
Me.DataGridViewTextBoxColumn1.Width = 150
' '
'DataGridViewTextBoxColumn2 'DataGridViewTextBoxColumn2
' '
Me.DataGridViewTextBoxColumn2.HeaderText = "Datei" Me.DataGridViewTextBoxColumn2.HeaderText = "Datei"
Me.DataGridViewTextBoxColumn2.MinimumWidth = 8
Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2" Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2"
' Me.DataGridViewTextBoxColumn2.Width = 150
'Button2
'
Me.Button2.BackColor = System.Drawing.Color.Red
Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button2.ForeColor = System.Drawing.Color.White
Me.Button2.Location = New System.Drawing.Point(420, -1)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(39, 31)
Me.Button2.TabIndex = 10
Me.Button2.Text = "X"
Me.Button2.UseVisualStyleBackColor = False
' '
'frmAvisoBenachrichtigungReminderBestaetigen 'frmAvisoBenachrichtigungReminderBestaetigen
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(9.0!, 20.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(460, 159) Me.ClientSize = New System.Drawing.Size(690, 245)
Me.Controls.Add(Me.pnl) Me.Controls.Add(Me.pnl)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
Me.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.Name = "frmAvisoBenachrichtigungReminderBestaetigen" Me.Name = "frmAvisoBenachrichtigungReminderBestaetigen"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Bestätigen" Me.Text = "Bestätigen"

3
Aviso/Benachrichtigung/frmAvisoBenachrichtigungReminderBestaetigen.vb
View File

@@ -39,7 +39,8 @@
Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
Me.DialogResult = DialogResult.None
Me.DialogResult = DialogResult.Yes
Me.Close() Me.Close()
End Sub End Sub

4
Aviso/Benachrichtigung/usrCntlBenachrichtigungen.vb
View File

@@ -219,9 +219,11 @@
initDgvAvisoBenachrichtigungen(True, Me.Font) initDgvAvisoBenachrichtigungen(True, Me.Font)
Case DialogResult.Cancel Case DialogResult.Cancel
'NIX 'NIX
Case Else Case DialogResult.Yes
AB.BESTAETIGEN_BENACHRICHTIGUNG() AB.BESTAETIGEN_BENACHRICHTIGUNG()
initDgvAvisoBenachrichtigungen(True, Me.Font) initDgvAvisoBenachrichtigungen(True, Me.Font)
Case Else
'NIX soll eig nicht vorkommen
End Select End Select

5
Aviso/Classes/cSendungsoptions.vb
View File

@@ -440,6 +440,7 @@ Public Class SendungOptions
Dim rpt As New Gemeinsames.rptSendungen(VALUES, imgpath, ZOLLANMELDUNG, SENDUNG.HANDLING, SENDUNG.VORKOSTEN) Dim rpt As New Gemeinsames.rptSendungen(VALUES, imgpath, ZOLLANMELDUNG, SENDUNG.HANDLING, SENDUNG.VORKOSTEN)
rpt.Document.Printer.PrinterName = ""
rpt.Document.CacheToDisk = False rpt.Document.CacheToDisk = False
'rpt.Document.CacheToDisk = True 'rpt.Document.CacheToDisk = True
@@ -454,9 +455,9 @@ Public Class SendungOptions
ElseIf art = "PRINT" Or art = "DIALOG" Then ElseIf art = "PRINT" Or art = "DIALOG" Then
rpt.Run(False) rpt.Run(False)
' If Printername = "" Then rpt.Dispose() : Exit Sub
rpt.Document.Printer.PrinterName = Printername rpt.Document.Printer.PrinterName = Printername
rpt.Document.Print((art = "DIALOG" Or Printername = ""), False) ' rpt.Document.Print((art = "DIALOG" Or Printername = ""), False, false) --> vorher usePrintingThread false...
rpt.Document.Print((art = "DIALOG" Or Printername = ""), False, True)
rpt.Dispose() rpt.Dispose()
'rpt.Document.Dispose() 'rpt.Document.Dispose()
' rpt.Dispose() ' rpt.Dispose()

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("3.7.4.5")> <Assembly: AssemblyVersion("3.7.8.4")>
<Assembly: AssemblyFileVersion("3.7.4.5")> <Assembly: AssemblyFileVersion("3.7.8.4")>

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

@@ -260,32 +260,11 @@ Namespace My.Resources
End Property End Property
'''<summary> '''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Byte[]. ''' Sucht eine lokalisierte Zeichenfolge, die ähnelt.
'''</summary> '''</summary>
Friend ReadOnly Property ATANAK_Instructions_Export() As Byte() Friend ReadOnly Property asdas2d1a() As String
Get Get
Dim obj As Object = ResourceManager.GetObject("ATANAK_Instructions_Export", resourceCulture) Return ResourceManager.GetString("asdas2d1a", resourceCulture)
Return CType(obj,Byte())
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Byte[].
'''</summary>
Friend ReadOnly Property ATANAK_Instructions_Export_T1() As Byte()
Get
Dim obj As Object = ResourceManager.GetObject("ATANAK_Instructions_Export_T1", resourceCulture)
Return CType(obj,Byte())
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Byte[].
'''</summary>
Friend ReadOnly Property ATANAK_Instructions_Import() As Byte()
Get
Dim obj As Object = ResourceManager.GetObject("ATANAK_Instructions_Import", resourceCulture)
Return CType(obj,Byte())
End Get End Get
End Property End Property
@@ -479,6 +458,36 @@ Namespace My.Resources
End Get End Get
End Property End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Byte[].
'''</summary>
Friend ReadOnly Property DGS_Instructions_Export() As Byte()
Get
Dim obj As Object = ResourceManager.GetObject("DGS_Instructions_Export", resourceCulture)
Return CType(obj,Byte())
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Byte[].
'''</summary>
Friend ReadOnly Property DGS_Instructions_Export_T1() As Byte()
Get
Dim obj As Object = ResourceManager.GetObject("DGS_Instructions_Export_T1", resourceCulture)
Return CType(obj,Byte())
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Byte[].
'''</summary>
Friend ReadOnly Property DGS_Instructions_Import() As Byte()
Get
Dim obj As Object = ResourceManager.GetObject("DGS_Instructions_Import", resourceCulture)
Return CType(obj,Byte())
End Get
End Property
'''<summary> '''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary> '''</summary>
@@ -859,6 +868,16 @@ Namespace My.Resources
End Get End Get
End Property End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property lorry_ummelden() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("lorry_ummelden", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary> '''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary> '''</summary>
@@ -1615,6 +1634,16 @@ Namespace My.Resources
End Get End Get
End Property End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Byte[].
'''</summary>
Friend ReadOnly Property VZ_HINDERNISS___ZOLLBESCHAU___PROTOKOLL() As Byte()
Get
Dim obj As Object = ResourceManager.GetObject("VZ_HINDERNISS___ZOLLBESCHAU___PROTOKOLL", resourceCulture)
Return CType(obj,Byte())
End Get
End Property
'''<summary> '''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary> '''</summary>

137
Aviso/My Project/Resources.resx
View File

@@ -124,8 +124,8 @@
<data name="stift" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="stift" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\stift.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\stift.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="Versionsinfo" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="sprinter_white" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Versionsinfo.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;Windows-1252</value> <value>..\Resources\sprinter_white.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="Telefonliste" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="Telefonliste" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Telefonliste.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\Telefonliste.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -151,6 +151,9 @@
<data name="tarife" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="tarife" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\tarife.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\tarife.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="isd" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\isd.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="personCheck_blue_small" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="personCheck_blue_small" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\personCheck_blue_small.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\personCheck_blue_small.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
@@ -172,8 +175,8 @@
<data name="weiterleiten" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="weiterleiten" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\weiterleiten.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\weiterleiten.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="isd" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="unisped_aeo_DE" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\isd.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\unisped_aeo_DE.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="plus1" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="plus1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\plus1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\plus1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -181,18 +184,21 @@
<data name="nellenquack" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="nellenquack" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\nellenquack.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\nellenquack.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="VZ_HINDERNISS___ZOLLBESCHAU___PROTOKOLL" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\resources\vz hinderniss - zollbeschau - protokoll.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="abfetigungTR_aktiv" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="abfetigungTR_aktiv" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\..\Diverses\miniButtons\abfetigungTR_aktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\..\Diverses\miniButtons\abfetigungTR_aktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="Verag_AG_Logopng" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Verag-AG-Logopng.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="plus" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="plus" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\plus.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\plus.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="digitalerAkt" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="digitalerAkt" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\digitalerAkt.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\digitalerAkt.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="Versionsinfo" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Versionsinfo.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;Windows-1252</value>
</data>
<data name="add_person" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="add_person" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\android-add-contact.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\android-add-contact.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
@@ -208,8 +214,8 @@
<data name="del2" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="del2" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\del2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\del2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="cartable_ouvert" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="FO" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\cartable_ouvert.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>F:\Grafik\VERAG\VERAG_Akten\eigAkt\FO.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="android_clock" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="android_clock" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\android-clock.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\android-clock.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -226,6 +232,9 @@
<data name="mitarbeiter" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="mitarbeiter" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\mitarbeiter.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\mitarbeiter.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="statusBtn_vorbereitet_Aktiv" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\statusBtn_vorbereitet_Aktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="parkplatz" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="parkplatz" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\parkplatz.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\parkplatz.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
@@ -235,9 +244,6 @@
<data name="statusBtn_vorbereitet_InAktiv" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="statusBtn_vorbereitet_InAktiv" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\statusBtn_vorbereitet_InAktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\statusBtn_vorbereitet_InAktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="android_clock_s" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\android-clock_s.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="arrow_left_a" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="arrow_left_a" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\arrow-left-a.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\arrow-left-a.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
@@ -274,6 +280,9 @@
<data name="searchGG" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="searchGG" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\searchGG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\searchGG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="android-add-contact" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\android-add-contact.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Unisped_logo" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="Unisped_logo" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Unisped_logo.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\Unisped_logo.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
@@ -286,6 +295,9 @@
<data name="personCheck_small" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="personCheck_small" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\personCheck_small.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\personCheck_small.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="cartable_ouvert" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\cartable_ouvert.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="tts" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="tts" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\tts.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\tts.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
@@ -295,24 +307,24 @@
<data name="akt_ATILLA" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="akt_ATILLA" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\akt_ATILLA.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\akt_ATILLA.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="DGS_Instructions_Export_T1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\resources\dgs_instructions_export_t1.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="uid" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="uid" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\uid.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\uid.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="gear2" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="gear2" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\gear2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\gear2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="vermerkBtn" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="GVMS-image" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\vermerkBtn.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\..\Diverses\GVMS-image.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="handy" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="FrontOfficeSUB_Horizontal" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\handy.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\Logo_blue_globe_Horizontal.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="warning" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="warning" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\warning.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\warning.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="stift1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\stift1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="avisoNewMsg" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="avisoNewMsg" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\avisoNewMsg.ico;System.Drawing.Icon, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\avisoNewMsg.ico;System.Drawing.Icon, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
@@ -331,9 +343,6 @@
<data name="personCheck_gray_small" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="personCheck_gray_small" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\personCheck_gray_small.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\personCheck_gray_small.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="ATANAK_Instructions_Export" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ATANAK_Instructions_Export.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="pdfprint1" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="pdfprint1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\pdfprint1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\pdfprint1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
@@ -358,12 +367,6 @@
<data name="kasse1" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="kasse1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\kasse1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\kasse1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="person" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\person.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="statusBtn_vorgeschrieben_InAktiv" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\statusBtn_vorgeschrieben_InAktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="weiterleiten_small1" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="weiterleiten_small1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\weiterleiten_small.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\weiterleiten_small.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
@@ -382,14 +385,11 @@
<data name="WAI" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="WAI" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\WAI.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\WAI.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="unisped_aeo_DE" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="DGS_Instructions_Export" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\unisped_aeo_DE.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\resources\dgs_instructions_export.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data> </data>
<data name="MUSTER" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="person" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\MUSTER.nlc;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value> <value>..\Resources\person.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="FO" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>F:\Grafik\VERAG\VERAG_Akten\eigAkt\FO.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="SBG" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="SBG" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\SBG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\SBG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -406,6 +406,9 @@
<data name="digitalerAkt_small" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="digitalerAkt_small" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\digitalerAkt_small.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\digitalerAkt_small.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="kasse" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\kasse.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="personCheck" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="personCheck" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\personCheck.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\personCheck.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
@@ -418,9 +421,6 @@
<data name="vorauszahlung2" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="vorauszahlung2" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\vorauszahlung2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\vorauszahlung2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="sprinter_white" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\sprinter_white.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="dakosy" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="dakosy" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\dakosy.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\dakosy.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
@@ -448,8 +448,8 @@
<data name="zoll_mmm" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="zoll_mmm" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\zoll_mmm.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\zoll_mmm.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="android-add-contact" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="android_clock_s" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\android-add-contact.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\android-clock_s.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="search" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="search" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\search.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\search.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -460,14 +460,17 @@
<data name="wheel" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="wheel" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\wheel.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\wheel.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="speditionsbuchAktiv" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\speditionsbuchAktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="warning2" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="warning2" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\warning2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\warning2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="fakturiertInaktiv" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="fakturiertInaktiv" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\fakturiertInaktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\fakturiertInaktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="vorauszahlung" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="stift1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\vorauszahlung.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\stift1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="fragezeichen" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="fragezeichen" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\fragezeichen.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\fragezeichen.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -481,15 +484,9 @@
<data name="zoll_s" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="zoll_s" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\zoll1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\zoll1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="word" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\word.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="abgeklaertAktiv" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="abgeklaertAktiv" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\abgeklaertAktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\abgeklaertAktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="FrontOfficeSUB_Horizontal" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Logo_blue_globe_Horizontal.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="email" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="email" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\email.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\email.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
@@ -502,6 +499,9 @@
<data name="UpdaterVersion" xml:space="preserve"> <data name="UpdaterVersion" xml:space="preserve">
<value>6.0</value> <value>6.0</value>
</data> </data>
<data name="DGS_Instructions_Import" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\resources\dgs_instructions_import.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="sprinter" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="sprinter" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\sprinter.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\sprinter.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
@@ -514,14 +514,14 @@
<data name="ImageIcon" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="ImageIcon" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ImageIcon.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\ImageIcon.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="_3s" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="handy" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\3s.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\handy.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="vermerk" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="vermerk" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\vermerk.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\vermerk.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="ATANAK_Instructions_Import" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="_3s" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ATANAK_Instructions_Import.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value> <value>..\Resources\3s.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="zeus" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="zeus" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\zeus.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\zeus.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -532,6 +532,9 @@
<data name="igl" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="igl" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\igl.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\igl.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="MUSTER" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\MUSTER.nlc;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="kasse_sw_small" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="kasse_sw_small" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\kasse_sw_small.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\kasse_sw_small.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
@@ -562,6 +565,9 @@
<data name="email_big1" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="email_big1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\email_big1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\email_big1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="vorauszahlung" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\vorauszahlung.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="del" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="del" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\del.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\del.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
@@ -571,8 +577,8 @@
<data name="statusBtn_vorgeschrieben_Aktiv" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="statusBtn_vorgeschrieben_Aktiv" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\statusBtn_vorgeschrieben_Aktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\statusBtn_vorgeschrieben_Aktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="soenmez" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="word" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\soenmez.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\word.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="arrow_down_orange" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="arrow_down_orange" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\arrow_down_orange.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\arrow_down_orange.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -580,8 +586,8 @@
<data name="beleg" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="beleg" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\beleg.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\beleg.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="statusBtn_vorbereitet_Aktiv" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="vermerkBtn" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\statusBtn_vorbereitet_Aktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\vermerkBtn.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="abgeklaertInaktiv" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="abgeklaertInaktiv" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\abgeklaertInaktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\abgeklaertInaktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -589,8 +595,8 @@
<data name="image_443x282" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="image_443x282" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\image_443x282.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\image_443x282.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="kasse" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="statusBtn_vorgeschrieben_InAktiv" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\kasse.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\statusBtn_vorgeschrieben_InAktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="truck_black" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="truck_black" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\truck_black.ico;System.Drawing.Icon, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\truck_black.ico;System.Drawing.Icon, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -604,19 +610,22 @@
<data name="abklaerungTR_Inaktiv" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="abklaerungTR_Inaktiv" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\abklaerungTR_Inaktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\abklaerungTR_Inaktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="speditionsbuchAktiv" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="Verag_AG_Logopng" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\speditionsbuchAktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\Verag-AG-Logopng.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="IMEX" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="IMEX" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\IMEX.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\IMEX.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="ATANAK_Instructions_Export_T1" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="asdas2d1a" xml:space="preserve">
<value>..\Resources\ATANAK_Instructions_Export_T1.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value> <value />
</data>
<data name="soenmez" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\soenmez.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="abfetigungTR_inaktiv" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="abfetigungTR_inaktiv" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\..\Diverses\miniButtons\abfetigungTR_inaktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\..\Diverses\miniButtons\abfetigungTR_inaktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="GVMS-image" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="lorry_ummelden" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\..\Diverses\GVMS-image.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\..\Diverses\lorry_ummelden.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
</root> </root>

2
Aviso/My Project/licenses.licx
View File

@@ -1,2 +1,2 @@
GrapeCity.ActiveReports.SectionReport, GrapeCity.ActiveReports, Version=15.2.3.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff
GrapeCity.ActiveReports.Viewer.Win.Viewer, GrapeCity.ActiveReports.Viewer.Win, Version=15.2.3.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff GrapeCity.ActiveReports.Viewer.Win.Viewer, GrapeCity.ActiveReports.Viewer.Win, Version=15.2.3.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff
Spire.PdfViewer.Forms.PdfDocumentViewer, Spire.PdfViewer.Forms, Version=4.5.1.3046, Culture=neutral, PublicKeyToken=663f351905198cb3

BIN
Aviso/Resources/DGS_Instructions_Export.xlsx Normal file
View File

Binary file not shown.

BIN
Aviso/Resources/DGS_Instructions_Export_T1.xlsx Normal file
View File

Binary file not shown.

BIN
Aviso/Resources/DGS_Instructions_Import.xlsx Normal file
View File

Binary file not shown.

BIN
Aviso/Resources/VZ HINDERNISS - ZOLLBESCHAU - PROTOKOLL.xlsx Normal file
View File

Binary file not shown.

0
Aviso/Resources/ATANAK_Instructions_Export.xlsx → Aviso/Resources/old_ATANAK_Instructions_Export.xlsx
View File

0
Aviso/Resources/ATANAK_Instructions_Export_T1.xlsx → Aviso/Resources/old_ATANAK_Instructions_Export_T1.xlsx
View File

0
Aviso/Resources/ATANAK_Instructions_Import.xlsx → Aviso/Resources/old_ATANAK_Instructions_Import.xlsx
View File

60
Aviso/frmAddAktenvermerkShort.Designer.vb generated
View File

@@ -22,8 +22,11 @@ Partial Class frmAddAktenvermerkShort
'Das Bearbeiten mit dem Code-Editor ist nicht möglich. 'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _ <System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent() Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmAddAktenvermerkShort)) Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmAddAktenvermerkShort))
Me.pnlAktenVermerk = New System.Windows.Forms.Panel() Me.pnlAktenVermerk = New System.Windows.Forms.Panel()
Me.Button2 = New System.Windows.Forms.Button()
Me.btnLKWumgemeldet = New System.Windows.Forms.Button()
Me.btnDEZollDIGITAL = New System.Windows.Forms.Button() Me.btnDEZollDIGITAL = New System.Windows.Forms.Button()
Me.Panel1 = New System.Windows.Forms.Panel() Me.Panel1 = New System.Windows.Forms.Panel()
Me.Label24 = New System.Windows.Forms.Label() Me.Label24 = New System.Windows.Forms.Label()
@@ -61,16 +64,19 @@ Partial Class frmAddAktenvermerkShort
Me.optKeineAuswahl = New System.Windows.Forms.RadioButton() Me.optKeineAuswahl = New System.Windows.Forms.RadioButton()
Me.Label15 = New System.Windows.Forms.Label() Me.Label15 = New System.Windows.Forms.Label()
Me.Label16 = New System.Windows.Forms.Label() Me.Label16 = New System.Windows.Forms.Label()
Me.btnLKWumgemeldet = New System.Windows.Forms.Button() Me.cntxt = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.XXXToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.pnlAktenVermerk.SuspendLayout() Me.pnlAktenVermerk.SuspendLayout()
Me.Panel1.SuspendLayout() Me.Panel1.SuspendLayout()
Me.pnl.SuspendLayout() Me.pnl.SuspendLayout()
Me.cntxt.SuspendLayout()
Me.SuspendLayout() Me.SuspendLayout()
' '
'pnlAktenVermerk 'pnlAktenVermerk
' '
Me.pnlAktenVermerk.BackColor = System.Drawing.Color.White Me.pnlAktenVermerk.BackColor = System.Drawing.Color.White
Me.pnlAktenVermerk.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle Me.pnlAktenVermerk.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.pnlAktenVermerk.Controls.Add(Me.Button2)
Me.pnlAktenVermerk.Controls.Add(Me.btnLKWumgemeldet) Me.pnlAktenVermerk.Controls.Add(Me.btnLKWumgemeldet)
Me.pnlAktenVermerk.Controls.Add(Me.btnDEZollDIGITAL) Me.pnlAktenVermerk.Controls.Add(Me.btnDEZollDIGITAL)
Me.pnlAktenVermerk.Controls.Add(Me.Panel1) Me.pnlAktenVermerk.Controls.Add(Me.Panel1)
@@ -101,6 +107,33 @@ Partial Class frmAddAktenvermerkShort
Me.pnlAktenVermerk.Size = New System.Drawing.Size(401, 509) Me.pnlAktenVermerk.Size = New System.Drawing.Size(401, 509)
Me.pnlAktenVermerk.TabIndex = 0 Me.pnlAktenVermerk.TabIndex = 0
' '
'Button2
'
Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button2.Image = Global.AVISO.My.Resources.Resources.lorry_ummelden
Me.Button2.ImageAlign = System.Drawing.ContentAlignment.TopCenter
Me.Button2.Location = New System.Drawing.Point(298, 145)
Me.Button2.Margin = New System.Windows.Forms.Padding(0)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(89, 83)
Me.Button2.TabIndex = 109
Me.Button2.Text = "LKW ummelden..."
Me.Button2.TextAlign = System.Drawing.ContentAlignment.BottomCenter
Me.Button2.UseVisualStyleBackColor = True
'
'btnLKWumgemeldet
'
Me.btnLKWumgemeldet.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnLKWumgemeldet.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnLKWumgemeldet.ImageAlign = System.Drawing.ContentAlignment.TopCenter
Me.btnLKWumgemeldet.Location = New System.Drawing.Point(11, 282)
Me.btnLKWumgemeldet.Name = "btnLKWumgemeldet"
Me.btnLKWumgemeldet.Size = New System.Drawing.Size(182, 27)
Me.btnLKWumgemeldet.TabIndex = 108
Me.btnLKWumgemeldet.Text = "LKW umgemeldet"
Me.btnLKWumgemeldet.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnLKWumgemeldet.UseVisualStyleBackColor = True
'
'btnDEZollDIGITAL 'btnDEZollDIGITAL
' '
Me.btnDEZollDIGITAL.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnDEZollDIGITAL.FlatStyle = System.Windows.Forms.FlatStyle.Flat
@@ -596,18 +629,17 @@ Partial Class frmAddAktenvermerkShort
Me.Label16.TabIndex = 9 Me.Label16.TabIndex = 9
Me.Label16.Text = "Standzeit" Me.Label16.Text = "Standzeit"
' '
'btnLKWumgemeldet 'cntxt
' '
Me.btnLKWumgemeldet.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.cntxt.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.XXXToolStripMenuItem})
Me.btnLKWumgemeldet.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.cntxt.Name = "cntxt"
Me.btnLKWumgemeldet.ImageAlign = System.Drawing.ContentAlignment.TopCenter Me.cntxt.Size = New System.Drawing.Size(96, 26)
Me.btnLKWumgemeldet.Location = New System.Drawing.Point(11, 282) '
Me.btnLKWumgemeldet.Name = "btnLKWumgemeldet" 'XXXToolStripMenuItem
Me.btnLKWumgemeldet.Size = New System.Drawing.Size(182, 27) '
Me.btnLKWumgemeldet.TabIndex = 108 Me.XXXToolStripMenuItem.Name = "XXXToolStripMenuItem"
Me.btnLKWumgemeldet.Text = "LKW umgemeldet" Me.XXXToolStripMenuItem.Size = New System.Drawing.Size(95, 22)
Me.btnLKWumgemeldet.TextAlign = System.Drawing.ContentAlignment.MiddleLeft Me.XXXToolStripMenuItem.Text = "XXX"
Me.btnLKWumgemeldet.UseVisualStyleBackColor = True
' '
'frmAddAktenvermerkShort 'frmAddAktenvermerkShort
' '
@@ -627,6 +659,7 @@ Partial Class frmAddAktenvermerkShort
Me.Panel1.PerformLayout() Me.Panel1.PerformLayout()
Me.pnl.ResumeLayout(False) Me.pnl.ResumeLayout(False)
Me.pnl.PerformLayout() Me.pnl.PerformLayout()
Me.cntxt.ResumeLayout(False)
Me.ResumeLayout(False) Me.ResumeLayout(False)
End Sub End Sub
@@ -669,4 +702,7 @@ Partial Class frmAddAktenvermerkShort
Friend WithEvents btnDEZollDIGITAL As Button Friend WithEvents btnDEZollDIGITAL As Button
Friend WithEvents Panel1 As Panel Friend WithEvents Panel1 As Panel
Friend WithEvents btnLKWumgemeldet As Button Friend WithEvents btnLKWumgemeldet As Button
Friend WithEvents Button2 As Button
Friend WithEvents cntxt As ContextMenuStrip
Friend WithEvents XXXToolStripMenuItem As ToolStripMenuItem
End Class End Class

3
Aviso/frmAddAktenvermerkShort.resx
View File

@@ -300,6 +300,9 @@
qcwnSVEv2t3X/79N9tcQ/7hza3o/qP4eCBK/D1D8L7CPlop4X64pAAAAAElFTkSuQmCC qcwnSVEv2t3X/79N9tcQ/7hza3o/qP4eCBK/D1D8L7CPlop4X64pAAAAAElFTkSuQmCC
</value> </value>
</data> </data>
<metadata name="cntxt.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
AAABAAEAgIAAAAEAIAAoCAEAFgAAACgAAACAAAAAAAEAAAEAIAAAAAAAAAgBABMLAAATCwAAAAAAAAAA AAABAAEAgIAAAAEAIAAoCAEAFgAAACgAAACAAAAAAAEAAAEAIAAAAAAAAAgBABMLAAATCwAAAAAAAAAA

28
Aviso/frmAddAktenvermerkShort.vb
View File

@@ -98,6 +98,31 @@ Public Class frmAddAktenvermerkShort
btnLKWFertig.Text = If(myAviso.LKW_fertig, "LKW nicht fertig", "LKW fertig") btnLKWFertig.Text = If(myAviso.LKW_fertig, "LKW nicht fertig", "LKW fertig")
txtFreigabeInfo.Text = If(myAviso.Freigabe_Info, "") txtFreigabeInfo.Text = If(myAviso.Freigabe_Info, "")
cntxt.Items.Clear()
Dim dt = SQL.loadDgvBySql("SELECT [grz_Grenzstelle],grz_BezeichnungCBO FROM [AVISO].[dbo].[tblGrenzstelle] where grz_Cluster='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "'", "AVISO")
If dt IsNot Nothing Then
dt.Rows.Add({"???", "??? - andere"})
For Each r As DataRow In dt.Rows
Dim it As New ToolStripMenuItem
it.Text = r("grz_BezeichnungCBO").ToString
it.Tag = r("grz_Grenzstelle").ToString
cntxt.Items.Add(it)
AddHandler it.Click, Sub()
AvisoStatusFunctions.ummeldenAVISO(myAviso, it.Tag.ToString)
Me.Close()
End Sub
Next
End If
End Sub End Sub
@@ -285,4 +310,7 @@ btnZollDEEingereicht.Click, btnSBG.Click, btnNKD.Click, btnWAI.Click, btnSFD.Cli
End Try End Try
End Sub End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
cntxt.Show(Cursor.Position)
End Sub
End Class End Class

3
Aviso/frmEintragAviso.designer.vb generated
View File

@@ -706,6 +706,7 @@ Partial Class frmEintragAviso
Me.cboGrenzstelle._value = "" Me.cboGrenzstelle._value = ""
Me.cboGrenzstelle.BackColor = System.Drawing.Color.White Me.cboGrenzstelle.BackColor = System.Drawing.Color.White
Me.cboGrenzstelle.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList Me.cboGrenzstelle.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cboGrenzstelle.DropDownWidth = 250
Me.cboGrenzstelle.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.cboGrenzstelle.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.cboGrenzstelle.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.cboGrenzstelle.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cboGrenzstelle.FormattingEnabled = True Me.cboGrenzstelle.FormattingEnabled = True
@@ -824,6 +825,7 @@ Partial Class frmEintragAviso
Me.cboTransportmittelart._value = "" Me.cboTransportmittelart._value = ""
Me.cboTransportmittelart.BackColor = System.Drawing.Color.White Me.cboTransportmittelart.BackColor = System.Drawing.Color.White
Me.cboTransportmittelart.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList Me.cboTransportmittelart.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cboTransportmittelart.DropDownWidth = 160
Me.cboTransportmittelart.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.cboTransportmittelart.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.cboTransportmittelart.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.cboTransportmittelart.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cboTransportmittelart.FormattingEnabled = True Me.cboTransportmittelart.FormattingEnabled = True
@@ -1173,6 +1175,7 @@ Partial Class frmEintragAviso
' '
Me.cboImEx.BackColor = System.Drawing.Color.White Me.cboImEx.BackColor = System.Drawing.Color.White
Me.cboImEx.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList Me.cboImEx.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cboImEx.DropDownWidth = 150
Me.cboImEx.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.cboImEx.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.cboImEx.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.cboImEx.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cboImEx.FormattingEnabled = True Me.cboImEx.FormattingEnabled = True

12
Aviso/frmEintragAviso.vb
View File

@@ -1034,6 +1034,8 @@ Public Class frmEintragAviso
AvisoStatusFunctions.insertVermerkAllg(tmpId, "ATB-Nr. folgt", 80) AvisoStatusFunctions.insertVermerkAllg(tmpId, "ATB-Nr. folgt", 80)
End If End If
' Dim FIRMA_CBO = If(cboFirma._value <> "", cboFirma._value, FIRMA_TMP)
Select Case FIRMA_TMP Select Case FIRMA_TMP
Case "ATILLA" Case "ATILLA"
Try Try
@@ -1067,6 +1069,7 @@ Public Class frmEintragAviso
showSendungsdetails = True ' Damit der benutzer gleich die Sendungen sieht und ggf löschen kann. showSendungsdetails = True ' Damit der benutzer gleich die Sendungen sieht und ggf löschen kann.
Else Else
Dim filiale_tmp As Integer = VERAG_PROG_ALLGEMEIN.cAllgemein.STAMMFILIALE Dim filiale_tmp As Integer = VERAG_PROG_ALLGEMEIN.cAllgemein.STAMMFILIALE
Dim gesAnzSnd = initSndAnzahl() Dim gesAnzSnd = initSndAnzahl()
For cnt As Integer = anzahlSendungen + 1 To gesAnzSnd For cnt As Integer = anzahlSendungen + 1 To gesAnzSnd
@@ -1074,8 +1077,13 @@ Public Class frmEintragAviso
Dim abfnr_tmp As Object = DBNull.Value Dim abfnr_tmp As Object = DBNull.Value
Dim abfArt As Object = DBNull.Value Dim abfArt As Object = DBNull.Value
If FIRMA_TMP = "VERIMEX" Then
filiale_tmp = 0
Else
getFilialeAndAbfertNrIMEX(cnt, filiale_tmp, abfnr_tmp, fremd, abfArt) getFilialeAndAbfertNrIMEX(cnt, filiale_tmp, abfnr_tmp, fremd, abfArt)
If FIRMA_TMP = "VERIMEX" Then filiale_tmp = 0 End If
'IIf(filiale_tmp > 0, ADMIN.getMaxPosNrIncrement(filiale_tmp, Now.Year), 0) 'IIf(filiale_tmp > 0, ADMIN.getMaxPosNrIncrement(filiale_tmp, Now.Year), 0)
'AvisoDAL.insertSendungEmpty(tmpId, scnt, filiale_tmp, abfnr_tmp, 0) ' INSERT 'AvisoDAL.insertSendungEmpty(tmpId, scnt, filiale_tmp, abfnr_tmp, 0) ' INSERT
Dim tblSnd_AuftraggeberKdNr As Object = Nothing Dim tblSnd_AuftraggeberKdNr As Object = Nothing
@@ -1098,7 +1106,7 @@ Public Class frmEintragAviso
End If End If
End If End If
Case Else Case Else 'VERAG
Dim anzahlSendungen = ADMIN.getValueTxtBySql("SELECT count(*) FROM tblSendungen WHERE tblSnd_AvisoID=" & tmpId, "AVISO") ' bei Neuanlage=0 Dim anzahlSendungen = ADMIN.getValueTxtBySql("SELECT count(*) FROM tblSendungen WHERE tblSnd_AvisoID=" & tmpId, "AVISO") ' bei Neuanlage=0
'Die Sendungen eintragen: 'Die Sendungen eintragen:

31
Aviso/frmEintragTV.vb
View File

@@ -25,23 +25,33 @@ Public Class frmEintragTV
Private Sub frmEintragTV_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load Private Sub frmEintragTV_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
Me.CenterToParent() Me.CenterToParent()
cGlobal.Aktive_ID = 1 'standardmäßig ist der Wert 1 'cGlobal.Aktive_ID = 1 'standardmäßig ist der Wert 1
If cGlobal.Aktive_ID = 0 Then 'If cGlobal.Aktive_ID = 0 Then
'es erfolgt eine Neuanlage ' 'es erfolgt eine Neuanlage
Neuanlage = True '
Me.Text = "Neuanlage TV-Text" '
Else 'Else
Me.Text = "Änderung Text für TV-Anzeige" ' Me.Text = "Änderung Text für TV-Anzeige"
'ausgewählter Datensatz wird geladen 'ausgewählter Datensatz wird geladen
myAvisoTV = AvisoTVDAL.LesenAvisoTV(cGlobal.Aktive_ID, "", "", "") myAvisoTV = AvisoTVDAL.LesenAvisoTV(0, "", VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG, "")
If myAvisoTV IsNot Nothing Then
'Werte(zuweisen) 'Werte(zuweisen)
txtZeile1.Text = myAvisoTV.FixeZeile1 txtZeile1.Text = myAvisoTV.FixeZeile1
txtZeile2.Text = myAvisoTV.FixeZeile2 txtZeile2.Text = myAvisoTV.FixeZeile2
Me.Text = "Änderung Text für TV-Anzeige"
Else
myAvisoTV = New cAvisoTV
myAvisoTV.Standort = VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG
myAvisoTV.Art = "INFO"
'Werte(zuweisen)
Neuanlage = True
txtZeile1.Text = ""
txtZeile2.Text = ""
Me.Text = "Neuanlage TV-Text"
End If End If
hÄnderung = False
End Sub End Sub
@@ -92,6 +102,7 @@ Public Class frmEintragTV
'Änderungen werden gespeichert 'Änderungen werden gespeichert
myAvisoTV.FixeZeile1 = txtZeile1.Text.Trim myAvisoTV.FixeZeile1 = txtZeile1.Text.Trim
myAvisoTV.FixeZeile2 = txtZeile2.Text.Trim myAvisoTV.FixeZeile2 = txtZeile2.Text.Trim
myAvisoTV.FixeZeile3 = ""
AvisoTVDAL.SpeichernAvisoTV(myAvisoTV) AvisoTVDAL.SpeichernAvisoTV(myAvisoTV)

316
Aviso/frmHauptfenster.Designer.vb generated
View File

File diff suppressed because it is too large Load Diff

121
Aviso/frmHauptfenster.vb
View File

@@ -195,7 +195,7 @@ Public Class frmHauptfenster
cboGrenzstelle.Items.Clear() cboGrenzstelle.Items.Clear()
cboGrenzstelle.fillWithSQL("SELECT [grz_Grenzstelle],[grz_BezeichnungCBO] FROM tblGrenzstelle where [grz_Firma]='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' OR grz_Cluster='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "' AND grz_Aktiv=1 order by grz_Reihenfolge, grz_Grenzstelle", False, "AVISO", True,, "ALLE") cboGrenzstelle.fillWithSQL("SELECT [grz_Grenzstelle],[grz_BezeichnungCBO] FROM tblGrenzstelle where [grz_Firma]='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' OR grz_Cluster='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "' AND grz_Aktiv=1 order by grz_Reihenfolge, grz_Grenzstelle", False, "AVISO", True,, "ALLE")
cboGrenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("???", "???")) cboGrenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("??? - Andere", "???"))
'cboGrenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ALLE", "")) 'cboGrenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ALLE", ""))
'cboGrenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SUB", "SUB")) 'cboGrenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SUB", "SUB"))
'cboGrenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SBG", "SBG")) 'cboGrenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SBG", "SBG"))
@@ -209,6 +209,8 @@ Public Class frmHauptfenster
'cboGrenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("???", "???")) 'cboGrenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("???", "???"))
cboGrenzstelle.changeItem("") cboGrenzstelle.changeItem("")
txtBestimmungszollstelle.initSearchBox(Me.FindForm, "[basncd_dstnr] ,[basncd_dstnr] +' - ' + [basncd_name] +' (' +[basncd_alpha]+')' as displayPARAM,[basncd_dstnr] as Nr,[basncd_name] as Dienststelle,[basncd_alpha] as Land FROM basncd", {" [basncd_dstnr]", "basncd_name"}, " [basncd_gbdat] >= getdate() ", " basncd_alpha,[basncd_name]", "basncd_dstnr", "displayPARAM", "ATLAS", , 400, 200, {"displayPARAM", "basncd_dstnr"})
cboImEx.Items.Clear() cboImEx.Items.Clear()
cboImEx.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", "")) cboImEx.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
cboImEx.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("IMPORT", "IMPORT")) cboImEx.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("IMPORT", "IMPORT"))
@@ -219,7 +221,7 @@ Public Class frmHauptfenster
cboMy_Grenzstelle.Items.Clear() cboMy_Grenzstelle.Items.Clear()
cboMy_Grenzstelle.fillWithSQL("SELECT [grz_Grenzstelle],[grz_BezeichnungCBO] FROM tblGrenzstelle where [grz_Firma]='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' OR grz_Cluster='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "' AND grz_Aktiv=1 order by grz_Reihenfolge, grz_Grenzstelle", False, "AVISO", True,, "ALLE") cboMy_Grenzstelle.fillWithSQL("SELECT [grz_Grenzstelle],[grz_BezeichnungCBO] FROM tblGrenzstelle where [grz_Firma]='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' OR grz_Cluster='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "' AND grz_Aktiv=1 order by grz_Reihenfolge, grz_Grenzstelle", False, "AVISO", True,, "ALLE")
cboMy_Grenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("???", "???")) cboMy_Grenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("??? - Andere", "???"))
'cboMy_Grenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ALLE", "")) 'cboMy_Grenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ALLE", ""))
'cboMy_Grenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SUB", "SUB")) 'cboMy_Grenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SUB", "SUB"))
'cboMy_Grenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SBG", "SBG")) 'cboMy_Grenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SBG", "SBG"))
@@ -373,7 +375,7 @@ Public Class frmHauptfenster
' MenuStrip1.Items.RemoveAt(1) ' MenuStrip1.Items.RemoveAt(1)
'End While 'End While
'btnGenerelleGestellungen.Visible = False 'btnGenerelleGestellungen.Visible = False
btnSpedBuch.Visible = False If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Speditionsbuch", "AVISO") Then btnSpedBuch.Visible = False
btnDienstplan.Visible = True btnDienstplan.Visible = True
'btnNeu.Enabled = False 'btnNeu.Enabled = False
' SplitContainer2.Visible = False ' SplitContainer2.Visible = False
@@ -418,6 +420,9 @@ Public Class frmHauptfenster
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Avisodaten_verwalten", Me) Then If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Avisodaten_verwalten", Me) Then
lblMitarbeiter.Text += " (" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME & ")" lblMitarbeiter.Text += " (" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME & ")"
End If End If
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AvisoTV_verwalten", Me) Then
AvisoTVToolStripMenuItem.Visible = True
End If
lblGrenzstelle.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG.Trim lblGrenzstelle.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG.Trim
chkFarben = True chkFarben = True
@@ -769,7 +774,6 @@ Public Class frmHauptfenster
End If End If
Dim hSQL As String = "SELECT " & top & " AvisoID, Status, LKW_Nr, Auftraggeber, Frächter,VoraussichtlichesEintreffen, AvisoEingang, Ankunft, Dauer, Grenzstelle,letzterMitarbeiter,CASE WHEN [ZOLLDigitalEingereicht] = 1 THEN 'DE' ELSE CASE WHEN [LKW_fertig] = 1 THEN 'OK' ELSE '' END END AS [LKW_fertig], Datum, Vorbereitet, Vorgeschrieben, Freigabe, " Dim hSQL As String = "SELECT " & top & " AvisoID, Status, LKW_Nr, Auftraggeber, Frächter,VoraussichtlichesEintreffen, AvisoEingang, Ankunft, Dauer, Grenzstelle,letzterMitarbeiter,CASE WHEN [ZOLLDigitalEingereicht] = 1 THEN 'DE' ELSE CASE WHEN [LKW_fertig] = 1 THEN 'OK' ELSE '' END END AS [LKW_fertig], Datum, Vorbereitet, Vorgeschrieben, Freigabe, "
hSQL &= " Telefonisch, Info,Handling,AvisoTVHinweis,DATEDIFF(DAY,getdate(),[VoraussichtlichesEintreffen]) TageBisEintreffen,isnull(Transportmittelart,'')Transportmittelart" hSQL &= " Telefonisch, Info,Handling,AvisoTVHinweis,DATEDIFF(DAY,getdate(),[VoraussichtlichesEintreffen]) TageBisEintreffen,isnull(Transportmittelart,'')Transportmittelart"
hSQL &= " FROM Aviso " hSQL &= " FROM Aviso "
@@ -813,6 +817,12 @@ Public Class frmHauptfenster
' If SucheStandort <> "" Then hSQL += " AND Grenzstelle = '" & SucheStandort & "'" ' If SucheStandort <> "" Then hSQL += " AND Grenzstelle = '" & SucheStandort & "'"
If cboGrenzstelle._value <> "" Then hSQL += " AND Grenzstelle = '" & cboGrenzstelle._value & "'" If cboGrenzstelle._value <> "" Then hSQL += " AND Grenzstelle = '" & cboGrenzstelle._value & "'"
' Bestimmungs.ZST
If cboGrenzstelle._value = "???" And txtBestimmungszollstelle._value <> "" Then
hSQL += " AND Zollstelle = '" & txtBestimmungszollstelle._value & "'"
End If
If cboImEx._value <> "" Then If cboImEx._value <> "" Then
Select Case cboImEx._value Select Case cboImEx._value
Case "IMPORT" : hSQL += " AND (ImEx = '" & cboImEx._value & "' OR ImEx = '' )" Case "IMPORT" : hSQL += " AND (ImEx = '" & cboImEx._value & "' OR ImEx = '' )"
@@ -1738,10 +1748,22 @@ Public Class frmHauptfenster
End Sub End Sub
Private Sub GrenzstelleChanged(sender As System.Object, e As System.EventArgs) Handles cboGrenzstelle.SelectedIndexChanged Private Sub GrenzstelleChanged(sender As System.Object, e As System.EventArgs) Handles cboGrenzstelle.SelectedIndexChanged
'Suche Bestimmungs.ZST
If cboGrenzstelle._value = "???" Then
Label10.Visible = True
txtBestimmungszollstelle.Visible = True
Else
Label10.Visible = False
txtBestimmungszollstelle.Visible = False
End If
If Grid_aktiv Then If Grid_aktiv Then
' SucheStandort = cboGrenzstelle._value.Replace("ALLE", "") ' SucheStandort = cboGrenzstelle._value.Replace("ALLE", "")
Aviso_anzeigen("") Aviso_anzeigen("")
End If End If
End Sub End Sub
Private Sub cbxClusterChanged(sender As System.Object, e As System.EventArgs) Handles cbxCluster.CheckedChanged Private Sub cbxClusterChanged(sender As System.Object, e As System.EventArgs) Handles cbxCluster.CheckedChanged
@@ -2349,7 +2371,13 @@ Public Class frmHauptfenster
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" Then If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" Then
'btnGenerelleGestellungen.Visible = False 'btnGenerelleGestellungen.Visible = False
Button6.Visible = False Button6.Visible = False
If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("ALLOW_STATUS2_VERIMEX") Then
tabVorbereitet.Text = "2. VERIMEX"
Else
tbcntrAviso.TabPages.RemoveAt(2) tbcntrAviso.TabPages.RemoveAt(2)
End If
btnWichtigeStandort.Visible = False btnWichtigeStandort.Visible = False
Panel2.Visible = False Panel2.Visible = False
Label4.Visible = False Label4.Visible = False
@@ -2566,8 +2594,13 @@ Public Class frmHauptfenster
End Function End Function
Private Sub Button3_Click_1(sender As Object, e As EventArgs) Handles Button3.Click Private Sub Button3_Click_1(sender As Object, e As EventArgs) Handles Button3.Click
Dim rpt As New rptTEST
SDL.cProgramFunctions.printRpt(rpt, "")
Exit Sub
'Dim sms As New VERAG_PROG_ALLGEMEIN.cSMS 'Dim sms As New VERAG_PROG_ALLGEMEIN.cSMS
'sms.sms_Handynummer = "00436644178557" 'sms.sms_Handynummer = "00436644178557"
'sms.sms_Nachricht = "Das ist ein TEST" 'sms.sms_Nachricht = "Das ist ein TEST"
@@ -3870,6 +3903,17 @@ Public Class frmHauptfenster
AvisoStatusFunctions.SendStatusEmail(AVISO) AvisoStatusFunctions.SendStatusEmail(AVISO)
Next Next
End Sub End Sub
Private Sub InfoTextÄndernToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles InfoTextÄndernToolStripMenuItem.Click
frmEintragTV.ShowDialog(Me)
End Sub
Private Sub txtBestimmungszollstelle_VALUE_CHANGED() Handles txtBestimmungszollstelle.VALUE_CHANGED
If Grid_aktiv Then
Aviso_anzeigen("")
End If
End Sub
End Class End Class
Public Class AvisoStatusFunctions Public Class AvisoStatusFunctions
@@ -3893,6 +3937,31 @@ Public Class AvisoStatusFunctions
End Function End Function
Public Shared Sub ummeldenAVISO(Aviso As VERAG_PROG_ALLGEMEIN.cAviso, Grenzstelle As String)
If Aviso IsNot Nothing Then
Select Case Aviso.Status
Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_Ankunft
'Nur wenn Ankunft --> Status auf den letzten vor Ankunft ändern
If Aviso.Vorgeschrieben <> cMeineFunktionenAVISO.LeerDatum Then
Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorgeschrieben
ElseIf Aviso.Vorbereitet <> cMeineFunktionenAVISO.LeerDatum Then
Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorbereitet
Else
Aviso.Status = Status_Erfasst
End If
End Select
End If
If Grenzstelle = "???" Then
AvisoStatusFunctions.insertVermerkAllg(Aviso.AvisoID, "LKW nach umgemeldet", 94)
Else
AvisoStatusFunctions.insertVermerkAllg(Aviso.AvisoID, "LKW nach '" & Grenzstelle & "' umgemeldet", 94)
End If
Aviso.Grenzstelle = Grenzstelle
Dim AvisoDAL As New VERAG_PROG_ALLGEMEIN.cAvisoDAL
AvisoDAL.SpeichernAviso(Aviso)
End Sub
Public Sub sendAnkunftBenachrichtigung(AvisoId) Public Sub sendAnkunftBenachrichtigung(AvisoId)
'VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen.INSERT_BENACHRICHTIGUNG(AvisoId, -1, 3, "T", TeamID, "*ANKUNFT*", 0, "", "AUTO: LKW Ankunft - nicht vorgeschrieben!") 'VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen.INSERT_BENACHRICHTIGUNG(AvisoId, -1, 3, "T", TeamID, "*ANKUNFT*", 0, "", "AUTO: LKW Ankunft - nicht vorgeschrieben!")
Dim alreadySent As New List(Of Integer) Dim alreadySent As New List(Of Integer)
@@ -4250,6 +4319,15 @@ Public Class AvisoStatusFunctions
'Prüfen ob WO oder ZA, in dem Fall keine Mail senden
Dim GRZ As New VERAG_PROG_ALLGEMEIN.cGrenzstelle(GrenzstelleMail)
If GRZ IsNot Nothing AndAlso GRZ.hasEntry Then
If GRZ.grz_Zollamt Then GrenzstelleMail = "" 'KEINE MAIL
If GRZ.grz_Warenort Then GrenzstelleMail = "" 'KEINE MAIL
End If
If GrenzstelleMail = "" And art <> 5 Then If GrenzstelleMail = "" And art <> 5 Then
'---------------------------------------- '----------------------------------------
Exit Sub ' Wenn Grenzstelle leer / ??? --> Keine MAIL! Exit Sub ' Wenn Grenzstelle leer / ??? --> Keine MAIL!
@@ -5735,8 +5813,41 @@ Public Class AvisoStatusFunctions
getDataFronDY_NCTS(s.tblSnd_SendungID, AtcMrn, frist, DsId, s.FilialenNr, s.AbfertigungsNr, s.tblSnd_Abfertigungsart_ID, s.tblSnd_DakosyRef) getDataFronDY_NCTS(s.tblSnd_SendungID, AtcMrn, frist, DsId, s.FilialenNr, s.AbfertigungsNr, s.tblSnd_Abfertigungsart_ID, s.tblSnd_DakosyRef)
If KUNDE_ERW.EmailFreigabe_VBDPDF And IsNumeric(DsId) Then 'VBD anhängen If KUNDE_ERW.EmailFreigabe_VBDPDF And IsNumeric(DsId) Then 'VBD anhängen
Try Try
Dim anhaengeVersand As New List(Of String)
Dim PathTmp = (New VERAG_PROG_ALLGEMEIN.cDATENSERVER(DsId)).GET_TOP1_PATH(False) Dim PathTmp = (New VERAG_PROG_ALLGEMEIN.cDATENSERVER(DsId)).GET_TOP1_PATH(False)
If PathTmp <> "" Then anhaenge.Add(PathTmp) : found = True If PathTmp <> "" Then anhaengeVersand.Add(PathTmp) : found = True
'---------------------------------------------------------
'AMBAR: BEI T2 auch Rechnung, CMR; Ausfuhr mitschicken!
'---------------------------------------------------------
If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("FREIGABEMAIL_T2_ANHAENGER") Then '--> nur bei AMBAR gesetzt
Select Case s.tblSnd_Abfertigungsart_ID
Case 6, 18, 24, 32, 33, 34, 37, 40 'nur T2!!
Dim ANH_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge)
VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge.LOAD_LIST_BySendung(ANH_LIST, s.tblSnd_SendungID) 'LÄDT alle Aviso-Anhänge
For Each l In ANH_LIST
Select Case l.anh_Art.ToString.ToUpper
Case "RECHNUNG", "CMR", "AUSFUHR", "COO", "PACKLISTE"
Dim PathTmpANH = (New VERAG_PROG_ALLGEMEIN.cDATENSERVER(l.anh_docId)).GET_TOP1_PATH(False)
If PathTmpANH <> "" Then anhaengeVersand.Add(PathTmpANH) : found = True
End Select
Next
End Select
End If
'---------------------------------------------------------
If anhaengeVersand.Count = 1 Then
anhaenge.Add(anhaengeVersand(0)) 'Falls nur 1 Anhang
ElseIf anhaengeVersand.Count > 1 Then
'AMBAR: Zusammenfassen des T2 und der T2 Anhänge
Dim zielPfadZusammenfassung = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath("T2_" & s.FilialenNr & "-" & s.AbfertigungsNr & ".pdf", ".pdf",, False, "Zusammenfassung_T2_AMB")
If SDL.FormularManagerNEU.MergePdfFiles(anhaengeVersand, zielPfadZusammenfassung) Then
anhaenge.Add(zielPfadZusammenfassung)
End If
End If
Catch ex As Exception : VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) : End Try Catch ex As Exception : VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) : End Try
If Not found Then If Not found Then
AvisoStatusFunctions.insertSendungsVermerk(s.tblSnd_SendungID, AVISO.AvisoID, "ERR: VBD nicht gefunden: " & s.FilialenNr & "/" & s.AbfertigungsNr, 47) AvisoStatusFunctions.insertSendungsVermerk(s.tblSnd_SendungID, AVISO.AvisoID, "ERR: VBD nicht gefunden: " & s.FilialenNr & "/" & s.AbfertigungsNr, 47)

19
Aviso/frmLaufzettel.vb
View File

@@ -247,12 +247,12 @@ Public Class frmLaufzettel
' Fahrer zum Zoll! ' Fahrer zum Zoll!
'------------------------------------------------ '------------------------------------------------
If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("PRINT_zumZOLL") Then
If CheckBox2.Checked Then
If VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG = "WAI" Then If VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG = "WAI" Then
Try Try
Dim path = SDL.FormularManagerNEU.zumZOLL_AVISO_WAI(AVISO) Dim path = SDL.FormularManagerNEU.zumZOLL_AVISO_WAI(AVISO)
If path <> "" Then VERAG_PROG_ALLGEMEIN.cFormularManager.PrintViaGS(path, cboPrinter.SelectedItem.ToString) '(New System.Drawing.Printing.PrinterSettings).PrinterName) If path <> "" Then VERAG_PROG_ALLGEMEIN.cFormularManager.PrintViaSpirePDF({path}, cboPrinter.SelectedItem.ToString) '(New System.Drawing.Printing.PrinterSettings).PrinterName)
' If path <> "" Then VERAG_PROG_ALLGEMEIN.cFormularManager.PrintViaGS(path, cboPrinter.SelectedItem.ToString) '(New System.Drawing.Printing.PrinterSettings).PrinterName)
Catch ex As Exception : MsgBox(ex.Message & ex.StackTrace) : End Try Catch ex As Exception : MsgBox(ex.Message & ex.StackTrace) : End Try
Else Else
If Not CheckBox3.Checked And Not CheckBox4.Checked Then If Not CheckBox3.Checked And Not CheckBox4.Checked Then
@@ -266,12 +266,13 @@ Public Class frmLaufzettel
If CheckBox3.Checked Then path = SDL.FormularManagerNEU.zumZOLL_AVISO_AT(AVISO) If CheckBox3.Checked Then path = SDL.FormularManagerNEU.zumZOLL_AVISO_AT(AVISO)
If CheckBox4.Checked Then path = SDL.FormularManagerNEU.zumZOLL_AVISO_DE(AVISO) If CheckBox4.Checked Then path = SDL.FormularManagerNEU.zumZOLL_AVISO_DE(AVISO)
If path <> "" Then VERAG_PROG_ALLGEMEIN.cFormularManager.PrintViaGS(path, cboPrinter.SelectedItem.ToString) '(New System.Drawing.Printing.PrinterSettings).PrinterName) If path <> "" Then VERAG_PROG_ALLGEMEIN.cFormularManager.PrintViaSpirePDF({path}, cboPrinter.SelectedItem.ToString) '(New System.Drawing.Printing.PrinterSettings).PrinterName)
'If path <> "" Then VERAG_PROG_ALLGEMEIN.cFormularManager.PrintViaGS(path, cboPrinter.SelectedItem.ToString) '(New System.Drawing.Printing.PrinterSettings).PrinterName)
Catch ex As Exception : MsgBox(ex.Message & ex.StackTrace) : End Try Catch ex As Exception : MsgBox(ex.Message & ex.StackTrace) : End Try
End If End If
End If
End If
'------------------------------------------------ '------------------------------------------------
End Sub End Sub
@@ -295,8 +296,12 @@ Public Class frmLaufzettel
If Not digitalDruck Then If Not digitalDruck Then
If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("PRINT_zumZOLL") Then
If CheckBox2.Checked Then
printzZAnlagen() printzZAnlagen()
End If End If
End If
End If
' Dim loadAttachRg = True ' (sender Is Button15) ' Dim loadAttachRg = True ' (sender Is Button15)
@@ -480,7 +485,7 @@ Public Class frmLaufzettel
Dim pruef = False Dim pruef = False
For Each s In SENDUNG_LIST For Each s In SENDUNG_LIST
Select Case s.tblSnd_Abfertigungsart_ID.ToString Select Case s.tblSnd_Abfertigungsart_ID.ToString
Case "38", "26" 'AT - Keine Prüfung Case "38", "26", "44" 'AT - Keine Prüfung
Case Else Case Else
If If(s.tblSnd_Vorpapier, "") = "" And If(s.tblSnd_Vorpapier2, "") = "" And If(s.tblSnd_Vorpapier3, "") = "" Then If If(s.tblSnd_Vorpapier, "") = "" And If(s.tblSnd_Vorpapier2, "") = "" And If(s.tblSnd_Vorpapier3, "") = "" Then
pruef = True pruef = True

20
Aviso/frmLogin.vb
View File

@@ -156,7 +156,7 @@ Public Class frmLogin
Dim AvisoDAL As New VERAG_PROG_ALLGEMEIN.cAvisoDAL Dim AvisoDAL As New VERAG_PROG_ALLGEMEIN.cAvisoDAL
Dim VERAGSQL As New VERAG_PROG_ALLGEMEIN.SQL Dim VERAGSQL As New VERAG_PROG_ALLGEMEIN.SQL
Dim dt = VERAGSQL.loadDgvBySql("SELECT [AvisoID] FROM [Aviso] where datum >= '05.03.2022' Dim dt = VERAGSQL.loadDgvBySql("SELECT [AvisoID] FROM [Aviso] where datum >= '19.04.2022'
and Firma IN ('VERAG','IMEX') and (SELECT COUNT(*) FROM Vermerke where Vermerke.AvisoID=aviso.AvisoID and Hinweis_Vermerk LIKE 'Status E-Mail gesendet an:%') =0 and status NOT IN (1,2)", "AVISO") and Firma IN ('VERAG','IMEX') and (SELECT COUNT(*) FROM Vermerke where Vermerke.AvisoID=aviso.AvisoID and Hinweis_Vermerk LIKE 'Status E-Mail gesendet an:%') =0 and status NOT IN (1,2)", "AVISO")
For Each r In dt.Rows For Each r In dt.Rows
@@ -276,7 +276,23 @@ Public Class frmLogin
End If End If
End If End If
Dim AVISO_OPTIONSDatei As String = "C:\AVISO_OPTIONS.txt" Dim AVISO_OPTIONSDatei As String = Microsoft.VisualBasic.FileIO.SpecialDirectories.MyDocuments & "\AVISO_OPTIONS.txt"
If File.Exists(AVISO_OPTIONSDatei) Then
Dim l = IO.File.ReadAllLines(AVISO_OPTIONSDatei, System.Text.Encoding.Default)
If l.Count > 0 Then
For Each li In l
If li.StartsWith("BON:") Then
VERAG_PROG_ALLGEMEIN.cAllgemein.PRINTER_BON = (li.Replace("BON:", "")).Trim
End If
If li.StartsWith("PRINTER:") Then
VERAG_PROG_ALLGEMEIN.cAllgemein.PRINTER_STANDARD = (li.Replace("PRINTER:", "")).Trim
End If
Next
End If
End If
AVISO_OPTIONSDatei = "C:\AVISO_OPTIONS.txt"
If File.Exists(AVISO_OPTIONSDatei) Then If File.Exists(AVISO_OPTIONSDatei) Then
Dim l = IO.File.ReadAllLines(AVISO_OPTIONSDatei, System.Text.Encoding.Default) Dim l = IO.File.ReadAllLines(AVISO_OPTIONSDatei, System.Text.Encoding.Default)
If l.Count > 0 Then If l.Count > 0 Then

149
Aviso/frmSendungsdetailsNEU.Designer.vb generated
View File

@@ -373,9 +373,15 @@ Partial Class frmSendungsdetailsNEU
Me.UNISPEDToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.UNISPEDToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.VERAGToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.VERAGToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.AuftragATANAKToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.AuftragATANAKToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem26 = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem27 = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem25 = New System.Windows.Forms.ToolStripMenuItem()
Me.AktuelleSendungAnhängeWählenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.AlleLEXSendungenLKWToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.ToolStripMenuItem14 = New System.Windows.Forms.ToolStripMenuItem() Me.ToolStripMenuItem14 = New System.Windows.Forms.ToolStripMenuItem()
Me.NurÖffnenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.NurÖffnenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.AMBARZollbeschauToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.pnl.SuspendLayout() Me.pnl.SuspendLayout()
Me.Panel4.SuspendLayout() Me.Panel4.SuspendLayout()
Me.TabControl1.SuspendLayout() Me.TabControl1.SuspendLayout()
@@ -773,12 +779,12 @@ Partial Class frmSendungsdetailsNEU
Me.dgvZollAnmeldungen.AllowUserToResizeRows = False Me.dgvZollAnmeldungen.AllowUserToResizeRows = False
Me.dgvZollAnmeldungen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvZollAnmeldungen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvZollAnmeldungen.Dock = System.Windows.Forms.DockStyle.Fill Me.dgvZollAnmeldungen.Dock = System.Windows.Forms.DockStyle.Fill
Me.dgvZollAnmeldungen.Location = New System.Drawing.Point(0, 24) Me.dgvZollAnmeldungen.Location = New System.Drawing.Point(0, 32)
Me.dgvZollAnmeldungen.Name = "dgvZollAnmeldungen" Me.dgvZollAnmeldungen.Name = "dgvZollAnmeldungen"
Me.dgvZollAnmeldungen.ReadOnly = True Me.dgvZollAnmeldungen.ReadOnly = True
Me.dgvZollAnmeldungen.RowTemplate.Height = 30 Me.dgvZollAnmeldungen.RowTemplate.Height = 30
Me.dgvZollAnmeldungen.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect Me.dgvZollAnmeldungen.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.dgvZollAnmeldungen.Size = New System.Drawing.Size(1206, 226) Me.dgvZollAnmeldungen.Size = New System.Drawing.Size(1206, 218)
Me.dgvZollAnmeldungen.TabIndex = 1 Me.dgvZollAnmeldungen.TabIndex = 1
' '
'Panel17 'Panel17
@@ -820,10 +826,11 @@ Partial Class frmSendungsdetailsNEU
' '
'MenuStrip 'MenuStrip
' '
Me.MenuStrip.ImageScalingSize = New System.Drawing.Size(24, 24)
Me.MenuStrip.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem13, Me.ToolStripMenuItem7, Me.ToolStripMenuItem6, Me.ToolStripMenuItem11, Me.ToolStripMenuItem17, Me.ToolStripMenuItem21, Me.ToolStripMenuItem12}) Me.MenuStrip.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem13, Me.ToolStripMenuItem7, Me.ToolStripMenuItem6, Me.ToolStripMenuItem11, Me.ToolStripMenuItem17, Me.ToolStripMenuItem21, Me.ToolStripMenuItem12})
Me.MenuStrip.Location = New System.Drawing.Point(0, 0) Me.MenuStrip.Location = New System.Drawing.Point(0, 0)
Me.MenuStrip.Name = "MenuStrip" Me.MenuStrip.Name = "MenuStrip"
Me.MenuStrip.Size = New System.Drawing.Size(1206, 24) Me.MenuStrip.Size = New System.Drawing.Size(1206, 32)
Me.MenuStrip.TabIndex = 0 Me.MenuStrip.TabIndex = 0
' '
'ToolStripMenuItem13 'ToolStripMenuItem13
@@ -831,7 +838,7 @@ Partial Class frmSendungsdetailsNEU
Me.ToolStripMenuItem13.Image = Global.AVISO.My.Resources.Resources.plus Me.ToolStripMenuItem13.Image = Global.AVISO.My.Resources.Resources.plus
Me.ToolStripMenuItem13.Name = "ToolStripMenuItem13" Me.ToolStripMenuItem13.Name = "ToolStripMenuItem13"
Me.ToolStripMenuItem13.Padding = New System.Windows.Forms.Padding(8, 0, 8, 0) Me.ToolStripMenuItem13.Padding = New System.Windows.Forms.Padding(8, 0, 8, 0)
Me.ToolStripMenuItem13.Size = New System.Drawing.Size(70, 20) Me.ToolStripMenuItem13.Size = New System.Drawing.Size(78, 28)
Me.ToolStripMenuItem13.Text = " EZA" Me.ToolStripMenuItem13.Text = " EZA"
Me.ToolStripMenuItem13.ToolTipText = "Neue Zollanmeldung" Me.ToolStripMenuItem13.ToolTipText = "Neue Zollanmeldung"
' '
@@ -841,7 +848,7 @@ Partial Class frmSendungsdetailsNEU
Me.ToolStripMenuItem7.Image = Global.AVISO.My.Resources.Resources.plus Me.ToolStripMenuItem7.Image = Global.AVISO.My.Resources.Resources.plus
Me.ToolStripMenuItem7.Name = "ToolStripMenuItem7" Me.ToolStripMenuItem7.Name = "ToolStripMenuItem7"
Me.ToolStripMenuItem7.Padding = New System.Windows.Forms.Padding(8, 0, 8, 0) Me.ToolStripMenuItem7.Padding = New System.Windows.Forms.Padding(8, 0, 8, 0)
Me.ToolStripMenuItem7.Size = New System.Drawing.Size(79, 20) Me.ToolStripMenuItem7.Size = New System.Drawing.Size(86, 28)
Me.ToolStripMenuItem7.Text = " NCTS" Me.ToolStripMenuItem7.Text = " NCTS"
Me.ToolStripMenuItem7.ToolTipText = "Neue Zollanmeldung" Me.ToolStripMenuItem7.ToolTipText = "Neue Zollanmeldung"
' '
@@ -850,7 +857,7 @@ Partial Class frmSendungsdetailsNEU
Me.ToolStripMenuItem8.Font = New System.Drawing.Font("Segoe UI", 9.0!) Me.ToolStripMenuItem8.Font = New System.Drawing.Font("Segoe UI", 9.0!)
Me.ToolStripMenuItem8.Image = Global.AVISO.My.Resources.Resources.plus Me.ToolStripMenuItem8.Image = Global.AVISO.My.Resources.Resources.plus
Me.ToolStripMenuItem8.Name = "ToolStripMenuItem8" Me.ToolStripMenuItem8.Name = "ToolStripMenuItem8"
Me.ToolStripMenuItem8.Size = New System.Drawing.Size(94, 22) Me.ToolStripMenuItem8.Size = New System.Drawing.Size(101, 30)
Me.ToolStripMenuItem8.Text = "T1" Me.ToolStripMenuItem8.Text = "T1"
' '
'ToolStripMenuItem9 'ToolStripMenuItem9
@@ -858,7 +865,7 @@ Partial Class frmSendungsdetailsNEU
Me.ToolStripMenuItem9.Font = New System.Drawing.Font("Segoe UI", 9.0!) Me.ToolStripMenuItem9.Font = New System.Drawing.Font("Segoe UI", 9.0!)
Me.ToolStripMenuItem9.Image = Global.AVISO.My.Resources.Resources.plus Me.ToolStripMenuItem9.Image = Global.AVISO.My.Resources.Resources.plus
Me.ToolStripMenuItem9.Name = "ToolStripMenuItem9" Me.ToolStripMenuItem9.Name = "ToolStripMenuItem9"
Me.ToolStripMenuItem9.Size = New System.Drawing.Size(94, 22) Me.ToolStripMenuItem9.Size = New System.Drawing.Size(101, 30)
Me.ToolStripMenuItem9.Text = "T2" Me.ToolStripMenuItem9.Text = "T2"
' '
'ToolStripMenuItem10 'ToolStripMenuItem10
@@ -866,7 +873,7 @@ Partial Class frmSendungsdetailsNEU
Me.ToolStripMenuItem10.Enabled = False Me.ToolStripMenuItem10.Enabled = False
Me.ToolStripMenuItem10.Image = Global.AVISO.My.Resources.Resources.plus Me.ToolStripMenuItem10.Image = Global.AVISO.My.Resources.Resources.plus
Me.ToolStripMenuItem10.Name = "ToolStripMenuItem10" Me.ToolStripMenuItem10.Name = "ToolStripMenuItem10"
Me.ToolStripMenuItem10.Size = New System.Drawing.Size(94, 22) Me.ToolStripMenuItem10.Size = New System.Drawing.Size(101, 30)
Me.ToolStripMenuItem10.Text = "Ü-T" Me.ToolStripMenuItem10.Text = "Ü-T"
Me.ToolStripMenuItem10.Visible = False Me.ToolStripMenuItem10.Visible = False
' '
@@ -876,7 +883,7 @@ Partial Class frmSendungsdetailsNEU
Me.ToolStripMenuItem6.Image = Global.AVISO.My.Resources.Resources.plus Me.ToolStripMenuItem6.Image = Global.AVISO.My.Resources.Resources.plus
Me.ToolStripMenuItem6.Name = "ToolStripMenuItem6" Me.ToolStripMenuItem6.Name = "ToolStripMenuItem6"
Me.ToolStripMenuItem6.Padding = New System.Windows.Forms.Padding(8, 0, 8, 0) Me.ToolStripMenuItem6.Padding = New System.Windows.Forms.Padding(8, 0, 8, 0)
Me.ToolStripMenuItem6.Size = New System.Drawing.Size(102, 20) Me.ToolStripMenuItem6.Size = New System.Drawing.Size(110, 28)
Me.ToolStripMenuItem6.Text = " DE FISKAL" Me.ToolStripMenuItem6.Text = " DE FISKAL"
Me.ToolStripMenuItem6.ToolTipText = "Neue Zollanmeldung" Me.ToolStripMenuItem6.ToolTipText = "Neue Zollanmeldung"
Me.ToolStripMenuItem6.Visible = False Me.ToolStripMenuItem6.Visible = False
@@ -886,7 +893,7 @@ Partial Class frmSendungsdetailsNEU
Me.ToolStripMenuItem11.Image = Global.AVISO.My.Resources.Resources.plus Me.ToolStripMenuItem11.Image = Global.AVISO.My.Resources.Resources.plus
Me.ToolStripMenuItem11.Name = "ToolStripMenuItem11" Me.ToolStripMenuItem11.Name = "ToolStripMenuItem11"
Me.ToolStripMenuItem11.Padding = New System.Windows.Forms.Padding(8, 0, 8, 0) Me.ToolStripMenuItem11.Padding = New System.Windows.Forms.Padding(8, 0, 8, 0)
Me.ToolStripMenuItem11.Size = New System.Drawing.Size(69, 20) Me.ToolStripMenuItem11.Size = New System.Drawing.Size(77, 28)
Me.ToolStripMenuItem11.Text = " AES" Me.ToolStripMenuItem11.Text = " AES"
Me.ToolStripMenuItem11.ToolTipText = "Neue Zollanmeldung" Me.ToolStripMenuItem11.ToolTipText = "Neue Zollanmeldung"
' '
@@ -896,7 +903,7 @@ Partial Class frmSendungsdetailsNEU
Me.ToolStripMenuItem17.Image = Global.AVISO.My.Resources.Resources.plus Me.ToolStripMenuItem17.Image = Global.AVISO.My.Resources.Resources.plus
Me.ToolStripMenuItem17.Name = "ToolStripMenuItem17" Me.ToolStripMenuItem17.Name = "ToolStripMenuItem17"
Me.ToolStripMenuItem17.Padding = New System.Windows.Forms.Padding(8, 0, 8, 0) Me.ToolStripMenuItem17.Padding = New System.Windows.Forms.Padding(8, 0, 8, 0)
Me.ToolStripMenuItem17.Size = New System.Drawing.Size(97, 20) Me.ToolStripMenuItem17.Size = New System.Drawing.Size(103, 28)
Me.ToolStripMenuItem17.Text = " TELOTEC" Me.ToolStripMenuItem17.Text = " TELOTEC"
Me.ToolStripMenuItem17.ToolTipText = "Neue Zollanmeldung" Me.ToolStripMenuItem17.ToolTipText = "Neue Zollanmeldung"
' '
@@ -904,7 +911,7 @@ Partial Class frmSendungsdetailsNEU
' '
Me.ToolStripMenuItem20.Image = Global.AVISO.My.Resources.Resources.plus Me.ToolStripMenuItem20.Image = Global.AVISO.My.Resources.Resources.plus
Me.ToolStripMenuItem20.Name = "ToolStripMenuItem20" Me.ToolStripMenuItem20.Name = "ToolStripMenuItem20"
Me.ToolStripMenuItem20.Size = New System.Drawing.Size(95, 22) Me.ToolStripMenuItem20.Size = New System.Drawing.Size(103, 30)
Me.ToolStripMenuItem20.Text = "EZA" Me.ToolStripMenuItem20.Text = "EZA"
' '
'ToolStripMenuItem18 'ToolStripMenuItem18
@@ -913,7 +920,7 @@ Partial Class frmSendungsdetailsNEU
Me.ToolStripMenuItem18.Font = New System.Drawing.Font("Segoe UI", 9.0!) Me.ToolStripMenuItem18.Font = New System.Drawing.Font("Segoe UI", 9.0!)
Me.ToolStripMenuItem18.Image = Global.AVISO.My.Resources.Resources.plus Me.ToolStripMenuItem18.Image = Global.AVISO.My.Resources.Resources.plus
Me.ToolStripMenuItem18.Name = "ToolStripMenuItem18" Me.ToolStripMenuItem18.Name = "ToolStripMenuItem18"
Me.ToolStripMenuItem18.Size = New System.Drawing.Size(95, 22) Me.ToolStripMenuItem18.Size = New System.Drawing.Size(103, 30)
Me.ToolStripMenuItem18.Text = "T1" Me.ToolStripMenuItem18.Text = "T1"
' '
'ToolStripMenuItem19 'ToolStripMenuItem19
@@ -922,7 +929,7 @@ Partial Class frmSendungsdetailsNEU
Me.ToolStripMenuItem19.Font = New System.Drawing.Font("Segoe UI", 9.0!) Me.ToolStripMenuItem19.Font = New System.Drawing.Font("Segoe UI", 9.0!)
Me.ToolStripMenuItem19.Image = Global.AVISO.My.Resources.Resources.plus Me.ToolStripMenuItem19.Image = Global.AVISO.My.Resources.Resources.plus
Me.ToolStripMenuItem19.Name = "ToolStripMenuItem19" Me.ToolStripMenuItem19.Name = "ToolStripMenuItem19"
Me.ToolStripMenuItem19.Size = New System.Drawing.Size(95, 22) Me.ToolStripMenuItem19.Size = New System.Drawing.Size(103, 30)
Me.ToolStripMenuItem19.Text = "T2" Me.ToolStripMenuItem19.Text = "T2"
' '
'ToolStripMenuItem21 'ToolStripMenuItem21
@@ -931,7 +938,7 @@ Partial Class frmSendungsdetailsNEU
Me.ToolStripMenuItem21.Image = Global.AVISO.My.Resources.Resources.plus Me.ToolStripMenuItem21.Image = Global.AVISO.My.Resources.Resources.plus
Me.ToolStripMenuItem21.Name = "ToolStripMenuItem21" Me.ToolStripMenuItem21.Name = "ToolStripMenuItem21"
Me.ToolStripMenuItem21.Padding = New System.Windows.Forms.Padding(8, 0, 8, 0) Me.ToolStripMenuItem21.Padding = New System.Windows.Forms.Padding(8, 0, 8, 0)
Me.ToolStripMenuItem21.Size = New System.Drawing.Size(71, 20) Me.ToolStripMenuItem21.Size = New System.Drawing.Size(79, 28)
Me.ToolStripMenuItem21.Text = " MIC" Me.ToolStripMenuItem21.Text = " MIC"
Me.ToolStripMenuItem21.ToolTipText = "Neue Zollanmeldung" Me.ToolStripMenuItem21.ToolTipText = "Neue Zollanmeldung"
' '
@@ -939,7 +946,7 @@ Partial Class frmSendungsdetailsNEU
' '
Me.ToolStripMenuItem22.Image = Global.AVISO.My.Resources.Resources.weiterleiten_small1 Me.ToolStripMenuItem22.Image = Global.AVISO.My.Resources.Resources.weiterleiten_small1
Me.ToolStripMenuItem22.Name = "ToolStripMenuItem22" Me.ToolStripMenuItem22.Name = "ToolStripMenuItem22"
Me.ToolStripMenuItem22.Size = New System.Drawing.Size(176, 22) Me.ToolStripMenuItem22.Size = New System.Drawing.Size(184, 30)
Me.ToolStripMenuItem22.Text = "MIC Import senden" Me.ToolStripMenuItem22.Text = "MIC Import senden"
' '
'ToolStripMenuItem23 'ToolStripMenuItem23
@@ -947,7 +954,7 @@ Partial Class frmSendungsdetailsNEU
Me.ToolStripMenuItem23.Font = New System.Drawing.Font("Segoe UI", 9.0!) Me.ToolStripMenuItem23.Font = New System.Drawing.Font("Segoe UI", 9.0!)
Me.ToolStripMenuItem23.Image = Global.AVISO.My.Resources.Resources.weiterleiten_small1 Me.ToolStripMenuItem23.Image = Global.AVISO.My.Resources.Resources.weiterleiten_small1
Me.ToolStripMenuItem23.Name = "ToolStripMenuItem23" Me.ToolStripMenuItem23.Name = "ToolStripMenuItem23"
Me.ToolStripMenuItem23.Size = New System.Drawing.Size(176, 22) Me.ToolStripMenuItem23.Size = New System.Drawing.Size(184, 30)
Me.ToolStripMenuItem23.Text = "MIC Transit senden" Me.ToolStripMenuItem23.Text = "MIC Transit senden"
' '
'ToolStripMenuItem24 'ToolStripMenuItem24
@@ -956,14 +963,14 @@ Partial Class frmSendungsdetailsNEU
Me.ToolStripMenuItem24.Font = New System.Drawing.Font("Segoe UI", 9.0!) Me.ToolStripMenuItem24.Font = New System.Drawing.Font("Segoe UI", 9.0!)
Me.ToolStripMenuItem24.Image = Global.AVISO.My.Resources.Resources.weiterleiten_small1 Me.ToolStripMenuItem24.Image = Global.AVISO.My.Resources.Resources.weiterleiten_small1
Me.ToolStripMenuItem24.Name = "ToolStripMenuItem24" Me.ToolStripMenuItem24.Name = "ToolStripMenuItem24"
Me.ToolStripMenuItem24.Size = New System.Drawing.Size(176, 22) Me.ToolStripMenuItem24.Size = New System.Drawing.Size(184, 30)
Me.ToolStripMenuItem24.Text = "MIC Export senden" Me.ToolStripMenuItem24.Text = "MIC Export senden"
' '
'ToolStripMenuItem12 'ToolStripMenuItem12
' '
Me.ToolStripMenuItem12.Image = Global.AVISO.My.Resources.Resources.android_note Me.ToolStripMenuItem12.Image = Global.AVISO.My.Resources.Resources.android_note
Me.ToolStripMenuItem12.Name = "ToolStripMenuItem12" Me.ToolStripMenuItem12.Name = "ToolStripMenuItem12"
Me.ToolStripMenuItem12.Size = New System.Drawing.Size(61, 20) Me.ToolStripMenuItem12.Size = New System.Drawing.Size(69, 28)
Me.ToolStripMenuItem12.Text = " Log" Me.ToolStripMenuItem12.Text = " Log"
Me.ToolStripMenuItem12.ToolTipText = "Logbuch" Me.ToolStripMenuItem12.ToolTipText = "Logbuch"
' '
@@ -2516,6 +2523,7 @@ Partial Class frmSendungsdetailsNEU
' '
'cntxt 'cntxt
' '
Me.cntxt.ImageScalingSize = New System.Drawing.Size(24, 24)
Me.cntxt.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.KdAuftragsNrInAlleSendungenÜbernehmenToolStripMenuItem}) Me.cntxt.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.KdAuftragsNrInAlleSendungenÜbernehmenToolStripMenuItem})
Me.cntxt.Name = "cntxt" Me.cntxt.Name = "cntxt"
Me.cntxt.Size = New System.Drawing.Size(323, 26) Me.cntxt.Size = New System.Drawing.Size(323, 26)
@@ -4488,47 +4496,48 @@ Partial Class frmSendungsdetailsNEU
' '
'cntxtAnh 'cntxtAnh
' '
Me.cntxtAnh.ImageScalingSize = New System.Drawing.Size(24, 24)
Me.cntxtAnh.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.MarkiertePDFsDruckenToolStripMenuItem, Me.EMailAnfügenToolStripMenuItem, Me.KopierenZwischenablageToolStripMenuItem, Me.LaufzetteldruckJANEINToolStripMenuItem, Me.GestellungslisteAnfügenJANEINToolStripMenuItem, Me.AbrechungFremdeGrenzeAktDruckenToolStripMenuItem}) Me.cntxtAnh.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.MarkiertePDFsDruckenToolStripMenuItem, Me.EMailAnfügenToolStripMenuItem, Me.KopierenZwischenablageToolStripMenuItem, Me.LaufzetteldruckJANEINToolStripMenuItem, Me.GestellungslisteAnfügenJANEINToolStripMenuItem, Me.AbrechungFremdeGrenzeAktDruckenToolStripMenuItem})
Me.cntxtAnh.Name = "cntxtAnh" Me.cntxtAnh.Name = "cntxtAnh"
Me.cntxtAnh.Size = New System.Drawing.Size(286, 136) Me.cntxtAnh.Size = New System.Drawing.Size(294, 184)
' '
'MarkiertePDFsDruckenToolStripMenuItem 'MarkiertePDFsDruckenToolStripMenuItem
' '
Me.MarkiertePDFsDruckenToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.pdfprint Me.MarkiertePDFsDruckenToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.pdfprint
Me.MarkiertePDFsDruckenToolStripMenuItem.Name = "MarkiertePDFsDruckenToolStripMenuItem" Me.MarkiertePDFsDruckenToolStripMenuItem.Name = "MarkiertePDFsDruckenToolStripMenuItem"
Me.MarkiertePDFsDruckenToolStripMenuItem.Size = New System.Drawing.Size(285, 22) Me.MarkiertePDFsDruckenToolStripMenuItem.Size = New System.Drawing.Size(293, 30)
Me.MarkiertePDFsDruckenToolStripMenuItem.Text = "Markierte PDFs drucken" Me.MarkiertePDFsDruckenToolStripMenuItem.Text = "Markierte PDFs drucken"
' '
'EMailAnfügenToolStripMenuItem 'EMailAnfügenToolStripMenuItem
' '
Me.EMailAnfügenToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.email_big1 Me.EMailAnfügenToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.email_big1
Me.EMailAnfügenToolStripMenuItem.Name = "EMailAnfügenToolStripMenuItem" Me.EMailAnfügenToolStripMenuItem.Name = "EMailAnfügenToolStripMenuItem"
Me.EMailAnfügenToolStripMenuItem.Size = New System.Drawing.Size(285, 22) Me.EMailAnfügenToolStripMenuItem.Size = New System.Drawing.Size(293, 30)
Me.EMailAnfügenToolStripMenuItem.Text = "E-Mail anfügen" Me.EMailAnfügenToolStripMenuItem.Text = "E-Mail anfügen"
' '
'KopierenZwischenablageToolStripMenuItem 'KopierenZwischenablageToolStripMenuItem
' '
Me.KopierenZwischenablageToolStripMenuItem.Name = "KopierenZwischenablageToolStripMenuItem" Me.KopierenZwischenablageToolStripMenuItem.Name = "KopierenZwischenablageToolStripMenuItem"
Me.KopierenZwischenablageToolStripMenuItem.Size = New System.Drawing.Size(285, 22) Me.KopierenZwischenablageToolStripMenuItem.Size = New System.Drawing.Size(293, 30)
Me.KopierenZwischenablageToolStripMenuItem.Text = "Kopieren (Zwischenablage)" Me.KopierenZwischenablageToolStripMenuItem.Text = "Kopieren (Zwischenablage)"
' '
'LaufzetteldruckJANEINToolStripMenuItem 'LaufzetteldruckJANEINToolStripMenuItem
' '
Me.LaufzetteldruckJANEINToolStripMenuItem.Name = "LaufzetteldruckJANEINToolStripMenuItem" Me.LaufzetteldruckJANEINToolStripMenuItem.Name = "LaufzetteldruckJANEINToolStripMenuItem"
Me.LaufzetteldruckJANEINToolStripMenuItem.Size = New System.Drawing.Size(285, 22) Me.LaufzetteldruckJANEINToolStripMenuItem.Size = New System.Drawing.Size(293, 30)
Me.LaufzetteldruckJANEINToolStripMenuItem.Text = "Laufzetteldruck JA/NEIN" Me.LaufzetteldruckJANEINToolStripMenuItem.Text = "Laufzetteldruck JA/NEIN"
' '
'GestellungslisteAnfügenJANEINToolStripMenuItem 'GestellungslisteAnfügenJANEINToolStripMenuItem
' '
Me.GestellungslisteAnfügenJANEINToolStripMenuItem.Name = "GestellungslisteAnfügenJANEINToolStripMenuItem" Me.GestellungslisteAnfügenJANEINToolStripMenuItem.Name = "GestellungslisteAnfügenJANEINToolStripMenuItem"
Me.GestellungslisteAnfügenJANEINToolStripMenuItem.Size = New System.Drawing.Size(285, 22) Me.GestellungslisteAnfügenJANEINToolStripMenuItem.Size = New System.Drawing.Size(293, 30)
Me.GestellungslisteAnfügenJANEINToolStripMenuItem.Text = "Gestellungsliste anfügen JA/NEIN" Me.GestellungslisteAnfügenJANEINToolStripMenuItem.Text = "Gestellungsliste anfügen JA/NEIN"
' '
'AbrechungFremdeGrenzeAktDruckenToolStripMenuItem 'AbrechungFremdeGrenzeAktDruckenToolStripMenuItem
' '
Me.AbrechungFremdeGrenzeAktDruckenToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.printer Me.AbrechungFremdeGrenzeAktDruckenToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.printer
Me.AbrechungFremdeGrenzeAktDruckenToolStripMenuItem.Name = "AbrechungFremdeGrenzeAktDruckenToolStripMenuItem" Me.AbrechungFremdeGrenzeAktDruckenToolStripMenuItem.Name = "AbrechungFremdeGrenzeAktDruckenToolStripMenuItem"
Me.AbrechungFremdeGrenzeAktDruckenToolStripMenuItem.Size = New System.Drawing.Size(285, 22) Me.AbrechungFremdeGrenzeAktDruckenToolStripMenuItem.Size = New System.Drawing.Size(293, 30)
Me.AbrechungFremdeGrenzeAktDruckenToolStripMenuItem.Text = "Abrechung: Fremde Grenze Akt drucken" Me.AbrechungFremdeGrenzeAktDruckenToolStripMenuItem.Text = "Abrechung: Fremde Grenze Akt drucken"
' '
'ToolStripMenuItem3 'ToolStripMenuItem3
@@ -4555,7 +4564,7 @@ Partial Class frmSendungsdetailsNEU
Me.ToolStripMenuItem4.Font = New System.Drawing.Font("Segoe UI", 9.0!) Me.ToolStripMenuItem4.Font = New System.Drawing.Font("Segoe UI", 9.0!)
Me.ToolStripMenuItem4.Image = Global.AVISO.My.Resources.Resources.plus Me.ToolStripMenuItem4.Image = Global.AVISO.My.Resources.Resources.plus
Me.ToolStripMenuItem4.Name = "ToolStripMenuItem4" Me.ToolStripMenuItem4.Name = "ToolStripMenuItem4"
Me.ToolStripMenuItem4.Size = New System.Drawing.Size(94, 22) Me.ToolStripMenuItem4.Size = New System.Drawing.Size(101, 30)
Me.ToolStripMenuItem4.Text = "T1" Me.ToolStripMenuItem4.Text = "T1"
' '
'ToolStripMenuItem5 'ToolStripMenuItem5
@@ -4563,7 +4572,7 @@ Partial Class frmSendungsdetailsNEU
Me.ToolStripMenuItem5.Font = New System.Drawing.Font("Segoe UI", 9.0!) Me.ToolStripMenuItem5.Font = New System.Drawing.Font("Segoe UI", 9.0!)
Me.ToolStripMenuItem5.Image = Global.AVISO.My.Resources.Resources.plus Me.ToolStripMenuItem5.Image = Global.AVISO.My.Resources.Resources.plus
Me.ToolStripMenuItem5.Name = "ToolStripMenuItem5" Me.ToolStripMenuItem5.Name = "ToolStripMenuItem5"
Me.ToolStripMenuItem5.Size = New System.Drawing.Size(94, 22) Me.ToolStripMenuItem5.Size = New System.Drawing.Size(101, 30)
Me.ToolStripMenuItem5.Text = "T2" Me.ToolStripMenuItem5.Text = "T2"
' '
'ÜTToolStripMenuItem 'ÜTToolStripMenuItem
@@ -4571,7 +4580,7 @@ Partial Class frmSendungsdetailsNEU
Me.ÜTToolStripMenuItem.Enabled = False Me.ÜTToolStripMenuItem.Enabled = False
Me.ÜTToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.plus Me.ÜTToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.plus
Me.ÜTToolStripMenuItem.Name = "ÜTToolStripMenuItem" Me.ÜTToolStripMenuItem.Name = "ÜTToolStripMenuItem"
Me.ÜTToolStripMenuItem.Size = New System.Drawing.Size(94, 22) Me.ÜTToolStripMenuItem.Size = New System.Drawing.Size(101, 30)
Me.ÜTToolStripMenuItem.Text = "Ü-T" Me.ÜTToolStripMenuItem.Text = "Ü-T"
' '
'NeueZollanmeldungToolStripMenuItem 'NeueZollanmeldungToolStripMenuItem
@@ -4648,6 +4657,7 @@ Partial Class frmSendungsdetailsNEU
' '
Me.BindingNavigatorPositionItem.AccessibleName = "Position" Me.BindingNavigatorPositionItem.AccessibleName = "Position"
Me.BindingNavigatorPositionItem.AutoSize = False Me.BindingNavigatorPositionItem.AutoSize = False
Me.BindingNavigatorPositionItem.Font = New System.Drawing.Font("Segoe UI", 9.0!)
Me.BindingNavigatorPositionItem.Name = "BindingNavigatorPositionItem" Me.BindingNavigatorPositionItem.Name = "BindingNavigatorPositionItem"
Me.BindingNavigatorPositionItem.Size = New System.Drawing.Size(50, 23) Me.BindingNavigatorPositionItem.Size = New System.Drawing.Size(50, 23)
Me.BindingNavigatorPositionItem.Text = "0" Me.BindingNavigatorPositionItem.Text = "0"
@@ -4732,9 +4742,10 @@ Partial Class frmSendungsdetailsNEU
' '
'ctxtWeitereFormulare 'ctxtWeitereFormulare
' '
Me.ctxtWeitereFormulare.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.toolGelangensbestätigung, Me.toolOriginalSendungsunterlagen, Me.LaufzettelDruckenToolStripMenuItem, Me.ZollstoppAMBARToolStripMenuItem, Me.ATANAKToolStripMenuItem}) Me.ctxtWeitereFormulare.ImageScalingSize = New System.Drawing.Size(24, 24)
Me.ctxtWeitereFormulare.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.toolGelangensbestätigung, Me.toolOriginalSendungsunterlagen, Me.LaufzettelDruckenToolStripMenuItem, Me.ZollstoppAMBARToolStripMenuItem, Me.ATANAKToolStripMenuItem, Me.AMBARZollbeschauToolStripMenuItem})
Me.ctxtWeitereFormulare.Name = "cntxt" Me.ctxtWeitereFormulare.Name = "cntxt"
Me.ctxtWeitereFormulare.Size = New System.Drawing.Size(263, 114) Me.ctxtWeitereFormulare.Size = New System.Drawing.Size(263, 136)
' '
'toolGelangensbestätigung 'toolGelangensbestätigung
' '
@@ -4783,38 +4794,39 @@ Partial Class frmSendungsdetailsNEU
'ImportToolStripMenuItem 'ImportToolStripMenuItem
' '
Me.ImportToolStripMenuItem.Name = "ImportToolStripMenuItem" Me.ImportToolStripMenuItem.Name = "ImportToolStripMenuItem"
Me.ImportToolStripMenuItem.Size = New System.Drawing.Size(123, 22) Me.ImportToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
Me.ImportToolStripMenuItem.Text = "Import" Me.ImportToolStripMenuItem.Text = "Import"
' '
'ExportToolStripMenuItem 'ExportToolStripMenuItem
' '
Me.ExportToolStripMenuItem.Name = "ExportToolStripMenuItem" Me.ExportToolStripMenuItem.Name = "ExportToolStripMenuItem"
Me.ExportToolStripMenuItem.Size = New System.Drawing.Size(123, 22) Me.ExportToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
Me.ExportToolStripMenuItem.Text = "Export" Me.ExportToolStripMenuItem.Text = "Export"
' '
'ExportT1ToolStripMenuItem 'ExportT1ToolStripMenuItem
' '
Me.ExportT1ToolStripMenuItem.Name = "ExportT1ToolStripMenuItem" Me.ExportT1ToolStripMenuItem.Name = "ExportT1ToolStripMenuItem"
Me.ExportT1ToolStripMenuItem.Size = New System.Drawing.Size(123, 22) Me.ExportT1ToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
Me.ExportT1ToolStripMenuItem.Text = "Export T1" Me.ExportT1ToolStripMenuItem.Text = "Export T1"
' '
'ContextMenuStrip1 'ContextMenuStrip1
' '
Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem15, Me.SpeditionSUBENToolStripMenuItem, Me.ToolStripMenuItem16, Me.AuftragATANAKToolStripMenuItem}) Me.ContextMenuStrip1.ImageScalingSize = New System.Drawing.Size(24, 24)
Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem15, Me.SpeditionSUBENToolStripMenuItem, Me.ToolStripMenuItem16, Me.AuftragATANAKToolStripMenuItem, Me.ToolStripMenuItem26, Me.ToolStripMenuItem27, Me.ToolStripMenuItem25})
Me.ContextMenuStrip1.Name = "cntxtAnh" Me.ContextMenuStrip1.Name = "cntxtAnh"
Me.ContextMenuStrip1.Size = New System.Drawing.Size(171, 92) Me.ContextMenuStrip1.Size = New System.Drawing.Size(223, 214)
' '
'ToolStripMenuItem15 'ToolStripMenuItem15
' '
Me.ToolStripMenuItem15.Image = Global.AVISO.My.Resources.Resources.email_big1 Me.ToolStripMenuItem15.Image = Global.AVISO.My.Resources.Resources.email_big1
Me.ToolStripMenuItem15.Name = "ToolStripMenuItem15" Me.ToolStripMenuItem15.Name = "ToolStripMenuItem15"
Me.ToolStripMenuItem15.Size = New System.Drawing.Size(170, 22) Me.ToolStripMenuItem15.Size = New System.Drawing.Size(222, 30)
Me.ToolStripMenuItem15.Text = "Fremdspeditionen" Me.ToolStripMenuItem15.Text = "Fremdspeditionen"
' '
'SpeditionSUBENToolStripMenuItem 'SpeditionSUBENToolStripMenuItem
' '
Me.SpeditionSUBENToolStripMenuItem.Name = "SpeditionSUBENToolStripMenuItem" Me.SpeditionSUBENToolStripMenuItem.Name = "SpeditionSUBENToolStripMenuItem"
Me.SpeditionSUBENToolStripMenuItem.Size = New System.Drawing.Size(170, 22) Me.SpeditionSUBENToolStripMenuItem.Size = New System.Drawing.Size(222, 30)
Me.SpeditionSUBENToolStripMenuItem.Text = "Spedition SUBEN" Me.SpeditionSUBENToolStripMenuItem.Text = "Spedition SUBEN"
' '
'ToolStripMenuItem16 'ToolStripMenuItem16
@@ -4822,7 +4834,7 @@ Partial Class frmSendungsdetailsNEU
Me.ToolStripMenuItem16.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.IMEXToolStripMenuItem1, Me.UNISPEDToolStripMenuItem, Me.VERAGToolStripMenuItem}) Me.ToolStripMenuItem16.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.IMEXToolStripMenuItem1, Me.UNISPEDToolStripMenuItem, Me.VERAGToolStripMenuItem})
Me.ToolStripMenuItem16.Image = Global.AVISO.My.Resources.Resources.email_big1 Me.ToolStripMenuItem16.Image = Global.AVISO.My.Resources.Resources.email_big1
Me.ToolStripMenuItem16.Name = "ToolStripMenuItem16" Me.ToolStripMenuItem16.Name = "ToolStripMenuItem16"
Me.ToolStripMenuItem16.Size = New System.Drawing.Size(170, 22) Me.ToolStripMenuItem16.Size = New System.Drawing.Size(222, 30)
Me.ToolStripMenuItem16.Text = "Neuer LKW" Me.ToolStripMenuItem16.Text = "Neuer LKW"
' '
'IMEXToolStripMenuItem1 'IMEXToolStripMenuItem1
@@ -4847,30 +4859,73 @@ Partial Class frmSendungsdetailsNEU
' '
Me.AuftragATANAKToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.email_big1 Me.AuftragATANAKToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.email_big1
Me.AuftragATANAKToolStripMenuItem.Name = "AuftragATANAKToolStripMenuItem" Me.AuftragATANAKToolStripMenuItem.Name = "AuftragATANAKToolStripMenuItem"
Me.AuftragATANAKToolStripMenuItem.Size = New System.Drawing.Size(170, 22) Me.AuftragATANAKToolStripMenuItem.Size = New System.Drawing.Size(222, 30)
Me.AuftragATANAKToolStripMenuItem.Text = "Auftrag ATANAK " Me.AuftragATANAKToolStripMenuItem.Text = "Auftrag DSG/ATANAK (UK)"
'
'ToolStripMenuItem26
'
Me.ToolStripMenuItem26.Image = Global.AVISO.My.Resources.Resources.email_big1
Me.ToolStripMenuItem26.Name = "ToolStripMenuItem26"
Me.ToolStripMenuItem26.Size = New System.Drawing.Size(222, 30)
Me.ToolStripMenuItem26.Text = "Auftrag BBL (FR)"
'
'ToolStripMenuItem27
'
Me.ToolStripMenuItem27.Image = Global.AVISO.My.Resources.Resources.email_big1
Me.ToolStripMenuItem27.Name = "ToolStripMenuItem27"
Me.ToolStripMenuItem27.Size = New System.Drawing.Size(222, 30)
Me.ToolStripMenuItem27.Text = "Auftrag VIBSEA (BE)"
'
'ToolStripMenuItem25
'
Me.ToolStripMenuItem25.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.AktuelleSendungAnhängeWählenToolStripMenuItem, Me.AlleLEXSendungenLKWToolStripMenuItem})
Me.ToolStripMenuItem25.Image = Global.AVISO.My.Resources.Resources.email_big1
Me.ToolStripMenuItem25.Name = "ToolStripMenuItem25"
Me.ToolStripMenuItem25.Size = New System.Drawing.Size(222, 30)
Me.ToolStripMenuItem25.Text = "LEX Aviso"
'
'AktuelleSendungAnhängeWählenToolStripMenuItem
'
Me.AktuelleSendungAnhängeWählenToolStripMenuItem.Image = CType(resources.GetObject("AktuelleSendungAnhängeWählenToolStripMenuItem.Image"), System.Drawing.Image)
Me.AktuelleSendungAnhängeWählenToolStripMenuItem.Name = "AktuelleSendungAnhängeWählenToolStripMenuItem"
Me.AktuelleSendungAnhängeWählenToolStripMenuItem.Size = New System.Drawing.Size(275, 30)
Me.AktuelleSendungAnhängeWählenToolStripMenuItem.Text = "Aktuelle Sendung (Anhänge wählen)"
'
'AlleLEXSendungenLKWToolStripMenuItem
'
Me.AlleLEXSendungenLKWToolStripMenuItem.Image = CType(resources.GetObject("AlleLEXSendungenLKWToolStripMenuItem.Image"), System.Drawing.Image)
Me.AlleLEXSendungenLKWToolStripMenuItem.Name = "AlleLEXSendungenLKWToolStripMenuItem"
Me.AlleLEXSendungenLKWToolStripMenuItem.Size = New System.Drawing.Size(275, 30)
Me.AlleLEXSendungenLKWToolStripMenuItem.Text = "Alle LEX Sendungen (LKW)"
' '
'ContextMenuStrip2 'ContextMenuStrip2
' '
Me.ContextMenuStrip2.ImageScalingSize = New System.Drawing.Size(24, 24)
Me.ContextMenuStrip2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem14, Me.NurÖffnenToolStripMenuItem}) Me.ContextMenuStrip2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem14, Me.NurÖffnenToolStripMenuItem})
Me.ContextMenuStrip2.Name = "cntxtAnh" Me.ContextMenuStrip2.Name = "cntxtAnh"
Me.ContextMenuStrip2.Size = New System.Drawing.Size(248, 48) Me.ContextMenuStrip2.Size = New System.Drawing.Size(256, 64)
Me.ContextMenuStrip2.Text = "nur öffnen" Me.ContextMenuStrip2.Text = "nur öffnen"
' '
'ToolStripMenuItem14 'ToolStripMenuItem14
' '
Me.ToolStripMenuItem14.Image = CType(resources.GetObject("ToolStripMenuItem14.Image"), System.Drawing.Image) Me.ToolStripMenuItem14.Image = CType(resources.GetObject("ToolStripMenuItem14.Image"), System.Drawing.Image)
Me.ToolStripMenuItem14.Name = "ToolStripMenuItem14" Me.ToolStripMenuItem14.Name = "ToolStripMenuItem14"
Me.ToolStripMenuItem14.Size = New System.Drawing.Size(247, 22) Me.ToolStripMenuItem14.Size = New System.Drawing.Size(255, 30)
Me.ToolStripMenuItem14.Text = "Zusammenführen und speichern" Me.ToolStripMenuItem14.Text = "Zusammenführen und speichern"
' '
'NurÖffnenToolStripMenuItem 'NurÖffnenToolStripMenuItem
' '
Me.NurÖffnenToolStripMenuItem.Image = CType(resources.GetObject("NurÖffnenToolStripMenuItem.Image"), System.Drawing.Image) Me.NurÖffnenToolStripMenuItem.Image = CType(resources.GetObject("NurÖffnenToolStripMenuItem.Image"), System.Drawing.Image)
Me.NurÖffnenToolStripMenuItem.Name = "NurÖffnenToolStripMenuItem" Me.NurÖffnenToolStripMenuItem.Name = "NurÖffnenToolStripMenuItem"
Me.NurÖffnenToolStripMenuItem.Size = New System.Drawing.Size(247, 22) Me.NurÖffnenToolStripMenuItem.Size = New System.Drawing.Size(255, 30)
Me.NurÖffnenToolStripMenuItem.Text = "nur öffnen" Me.NurÖffnenToolStripMenuItem.Text = "nur öffnen"
' '
'AMBARZollbeschauToolStripMenuItem
'
Me.AMBARZollbeschauToolStripMenuItem.Name = "AMBARZollbeschauToolStripMenuItem"
Me.AMBARZollbeschauToolStripMenuItem.Size = New System.Drawing.Size(262, 22)
Me.AMBARZollbeschauToolStripMenuItem.Text = "AMBAR - Zollbeschau"
'
'frmSendungsdetailsNEU 'frmSendungsdetailsNEU
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
@@ -5316,4 +5371,10 @@ Partial Class frmSendungsdetailsNEU
Friend WithEvents AbrechungFremdeGrenzeAktDruckenToolStripMenuItem As ToolStripMenuItem Friend WithEvents AbrechungFremdeGrenzeAktDruckenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents Panel22 As Panel Friend WithEvents Panel22 As Panel
Friend WithEvents KreditlimitRisikobewertungToolStripMenuItem As ToolStripMenuItem Friend WithEvents KreditlimitRisikobewertungToolStripMenuItem As ToolStripMenuItem
Friend WithEvents ToolStripMenuItem25 As ToolStripMenuItem
Friend WithEvents AktuelleSendungAnhängeWählenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents AlleLEXSendungenLKWToolStripMenuItem As ToolStripMenuItem
Friend WithEvents ToolStripMenuItem26 As ToolStripMenuItem
Friend WithEvents ToolStripMenuItem27 As ToolStripMenuItem
Friend WithEvents AMBARZollbeschauToolStripMenuItem As ToolStripMenuItem
End Class End Class

102
Aviso/frmSendungsdetailsNEU.resx
View File

@@ -1889,6 +1889,108 @@
<metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>843, 17</value> <value>843, 17</value>
</metadata> </metadata>
<data name="AktuelleSendungAnhängeWählenToolStripMenuItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAACgAAAAoCAYAAACM/rhtAAAABGdBTUEAALGPC/xhBQAACrNJREFUWEfN
mFlsVNcdxq/6EFVVpRZRpyWKmqVSX5JWlfpQqW+t2qpt0hZsHLfZsMEmpAVlaTAE3ASyN0BWIKRtQoiD
w2ISwHjBxjbed8++epnx2MYeM9jYsy/21++cmbFnxtdZG6kP35x7/vfOPb/7/f/n3DOjAPi/lmrw8+qp
A0dmDr9/eq3aOTWNzYQ9anE1qQY/qwbGpmB0TKLXPo5WoxP12mHUdJp4aumaYY9/yBeKYi4cgy9Fqdd8
klSDn0WOqRlYXFP46aP7cMcTB/GT4ldRdKgc/lCYAGF4M4Ay5ZwOhNTumynV4KfJMzOHVpMLYYLMRSOY
i0QRCIYIF1lUJlBmbJbfzbyvmlSDmdKPeBzBCAcJE2QFpcIldT28gJt2GeCNhLHqcbahdOjMcdS0LKBz
TvWGmKYAgQTUSpJQGZBCt+w1Y9YXBxb3ubnEgFA0gNUldoSCgS8PGIjOqwIJhXjTuSgIH78mPB9DVomZ
oHygBODqEivWPG1CIBRP+dh0DKsf74dzKoYf7uiSMQnIieOlMsfP1LJAiIChGAGoQNQPX1SAcXC2fzpo
wKrdVsQSgI0mL257sg89Q0HZF4BZJRbMzfuweruR3wsjyNjtew18iBBuprvCdW/Ij1BEgEbxXkUz9v+7
jEOncyS1LCDABKBzOoJv7bAg6x8W3Frcw8EC8M4HsXqXCav22BHmAFk7tZini7cUa+RDRKIhrHnehqxd
ZtzI67a+p5OA3/w7084HXL3LKh3WOYOLdXpH8Ws4UtGBl49VcPh0FqFlgQV+CMBwjOnaaYZvgemNxd0R
Ln2Hg5ecGcKdxU24eQ9TSZe+/bhwK4bzxmvYdNQm3faz//WtRkRjYQxcWyoBeR/WZhKwtG8UPyo+hPr2
fo6cziK0LCCUBFyz04Dbdmmx5jkbfvFiiwT/7m4TgnTy9hetuJH1J+oxay+heP0NOwaYNqaVD5KqRTAe
OyanMRuM9wWg1uZEi9GBui4jqjrNHD6dJa2TVFjUHWFWFZvgnw/I40B0gcfz+P72Tuw9O0Jno/jGnmHW
UhT2qSCiGVA+1nI4GMPgFQ8C8wtpoEkJwIo2PdoJ2NBrQXWrhsOns6R1kgrKiRLD/lo3btypQ4V+Gt9j
am8q6efMDWNkOiSh404nBudDhTnowLgH/sQkWkkSjjp1qRMGpxtdFhea+y18TRo5fDpLWkeotqljbZXG
JQf3IYg1xTq4Z8W6FV2EEhJ1KTQ4QaB5yJJQg0mVmEhiVdAMOHGiqhFDHr4ux66h3+ZCq8aGum4ztu1+
gRifAFjVbsDlfjvmmdJwCpAUnR0mUIBAEcKlnUu5JhVKuCW+4+f9kot/iLoyPYfRaz5Yx6ehG7qCNpNT
prmyVUuMFQBPN/ajqk2HH28/iIXwPKJ82qQirDVVoGXie5YA3rBY65ZAkwqHI3jizZOYnPVxEfdiaPI6
9NwRdZpHcFljx8X2FQBPVjfh6CUd7nziDdxJwBCXh1TAlUCDjIU5CSwjkzLl0SjP0y0vzynrDkLJ+xeU
7Leh/H4/mmxelNU0Y/q6F+45P8ZnAhh2z8LsuirT3KIbQH2njjgqgEaX+6ZL3Sa06IfQaRtB/v4yfFDT
JgGWQRKkx8TFmjBBTpJU4KTCfEAl7yiU9W9ByTnM9giUXAHLvgDOSYDnHsWt2+vRO+xenM0X2pcmyyKg
UF2HVtrcbXbIuhhyTWDk6jQ+aNCgqqVXDhwTgBnAmXCyDpnKZz+oJ4AAI4gAFBKA6xKQUv+GUtgAy7BL
prm624q3q/uIowJY2a5HQ58VbYZh9NtHYaL1okZGPbOYYL00GF0oq26T61oqoJBIvX5onAv2AiLzEUI9
BeXPdEk4mHRRuif6wkEB/Q6U/Gq4prgzd3lQ0zeIUy1mvFu7tB6mAW5+5i3U95hZC4PosrrkGjVwZZqz
bY6zzoepWT88vgi83DZtPXCc9dSEies+WYNROhdl6v2RBSj3CAjWXxJQuChBEy7m8Dj/ApQNlRLQ4LqG
dtsEavVOnGm3orRBix37jliWAQrVdpm4aNqk3SLNYhlwebyccX5Z2B5fCHPBCILcQQe52xFwx+t6caK6
hanbTbhDrD26lZvQPUk4KumigCuoimtDFaw0oXNwApf0IzjfY8fxJiMOVXcRRwWwmu/DRqZZFKxmYAzm
UY+cacLFiRkfrs4FMOPlzkZsaql5Aua9cpogYsYSLvdNSrRCCcgcnhOAG+lYgXBtCTDn9T6Y3V5ohyfR
ZHbiAtN8stmIdy7G6zANTvnDo6jkQi1mUitnc499DPqRq7BPJNJ8Pe7itJ+7Ef7mCcdYa/e/QTgBJSRA
2N4jwAi4nhJwuYQrJJgEJNim6kVAh8cnDRienIXN7cfFfivK28xc8uJ1uAT3uy1Q7tqKLY9sQ02PDc2i
Di0j0A9PwHZlBs6rXq5brEPWnIeQSt7TBCFczmtLgMLFnNfjx9k8l5cA21TBAidUoYATYIxtYOyBc7Dx
4e0T12HmpsLEcjKMebgB9nDl0OHlUl4n4e7aDOW31B+3Qbl7Gy6yDpu0A2jn60c7OA4L02wjoNvjhnLf
s4Q4QL1KhwiT/Uo6pHBRtPe+S8fOxeHyz8ZBi2rigBvOyzT3Wt0wjl+DnvfXcEL2843SNXAFHeJ3tmUc
BU9yHCWHTvw6n9pIBx+Wtp7vtMjlpt0wBB33a0bHBMGeIch+zkzC5BIul20O4dbzWADmJp1jf+PHBCJU
EjCppIMP8NyD59DpmEGfgCJQm20MLaZRNBpHUc/Jckn8CaB1EvCX90P51YMELICy9q8ScPebZfjwshaV
LZ109UlCvEyHCJPLJxJw69kKJV3MYzol2BkoD3ECFBJMQtKpJFwBY1tqYBhx8Dtlcva2mMfQxLW1weDC
JZ0TdVoHKvudON9rkxxCirK2mHAE/E2BDFY6Zn6u/GUP352ixvYl4AgjJKESLq4XwGyzGdtMR4o+ireb
CSXghDYRSkBurGbaJtBqHUUzXTpR1YIGTkIBVUOnKvsHUdE7gL+V7BO/OBbnhZCi3L2XA73EgZ+jWwTL
fp56gX3G1vFYAArlEjYJKVzMJuimU1R5HC4D8GuP8TVXVIlO+4h0qdE4Ek8doaq1Q6jsHcS5bhs+7h4i
RzpUquIfawm5jsWfTcgcwq1jKyAFYO4/E5AEzCNYEaEKE9p4Mh1wE13bTNcKzhKIqSNQrXBJ40CVZki6
dLbTjtMdZjxW8vxcJoyalg7uJcg6MREIJlwUDq6n7uM7s4g18xBhtnBB3kwlAYsIlwTceAq3P/aRrKM6
wggoseiKN8PHhDrTbsKZ1uU/ij5NqZ0blMJjBCjlYKI9TqgPCUWwlQALeZxfjss6O2o1A6hiLQmgc90C
yIpTbVacbjPi3TNVL6WM87mU1nHPxbKUhwlWsAKgUP5x/OCRk3IJqOXWTKRN1lKXNQ7VYsLJFiNeK2/i
LdMH+yJSDSZ1uLQcFy6340KHCY0WNy6K1BEo7pINH3XY+Fqy4ESrhcuSHu9z9efv3J+p3euLSjWYquMc
tJwAEqjLIoFOs5bKmk0SqrRRj+0vHeal6t//slINpuq9er1MmUhdEuhYnYabSvW/Kv7XUg2m6hhBSuni
UW5//sOd7sNPHfCrXfdVSTWYqWMNGvFvo+q5r1ZQ/gsddBmZKMKxgQAAAABJRU5ErkJggg==
</value>
</data>
<data name="AlleLEXSendungenLKWToolStripMenuItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAACgAAAAoCAYAAACM/rhtAAAABGdBTUEAALGPC/xhBQAACrNJREFUWEfN
mFlsVNcdxq/6EFVVpRZRpyWKmqVSX5JWlfpQqW+t2qpt0hZsHLfZsMEmpAVlaTAE3ASyN0BWIKRtQoiD
w2ISwHjBxjbed8++epnx2MYeM9jYsy/21++cmbFnxtdZG6kP35x7/vfOPb/7/f/n3DOjAPi/lmrw8+qp
A0dmDr9/eq3aOTWNzYQ9anE1qQY/qwbGpmB0TKLXPo5WoxP12mHUdJp4aumaYY9/yBeKYi4cgy9Fqdd8
klSDn0WOqRlYXFP46aP7cMcTB/GT4ldRdKgc/lCYAGF4M4Ay5ZwOhNTumynV4KfJMzOHVpMLYYLMRSOY
i0QRCIYIF1lUJlBmbJbfzbyvmlSDmdKPeBzBCAcJE2QFpcIldT28gJt2GeCNhLHqcbahdOjMcdS0LKBz
TvWGmKYAgQTUSpJQGZBCt+w1Y9YXBxb3ubnEgFA0gNUldoSCgS8PGIjOqwIJhXjTuSgIH78mPB9DVomZ
oHygBODqEivWPG1CIBRP+dh0DKsf74dzKoYf7uiSMQnIieOlMsfP1LJAiIChGAGoQNQPX1SAcXC2fzpo
wKrdVsQSgI0mL257sg89Q0HZF4BZJRbMzfuweruR3wsjyNjtew18iBBuprvCdW/Ij1BEgEbxXkUz9v+7
jEOncyS1LCDABKBzOoJv7bAg6x8W3Frcw8EC8M4HsXqXCav22BHmAFk7tZini7cUa+RDRKIhrHnehqxd
ZtzI67a+p5OA3/w7084HXL3LKh3WOYOLdXpH8Ws4UtGBl49VcPh0FqFlgQV+CMBwjOnaaYZvgemNxd0R
Ln2Hg5ecGcKdxU24eQ9TSZe+/bhwK4bzxmvYdNQm3faz//WtRkRjYQxcWyoBeR/WZhKwtG8UPyo+hPr2
fo6cziK0LCCUBFyz04Dbdmmx5jkbfvFiiwT/7m4TgnTy9hetuJH1J+oxay+heP0NOwaYNqaVD5KqRTAe
OyanMRuM9wWg1uZEi9GBui4jqjrNHD6dJa2TVFjUHWFWFZvgnw/I40B0gcfz+P72Tuw9O0Jno/jGnmHW
UhT2qSCiGVA+1nI4GMPgFQ8C8wtpoEkJwIo2PdoJ2NBrQXWrhsOns6R1kgrKiRLD/lo3btypQ4V+Gt9j
am8q6efMDWNkOiSh404nBudDhTnowLgH/sQkWkkSjjp1qRMGpxtdFhea+y18TRo5fDpLWkeotqljbZXG
JQf3IYg1xTq4Z8W6FV2EEhJ1KTQ4QaB5yJJQg0mVmEhiVdAMOHGiqhFDHr4ux66h3+ZCq8aGum4ztu1+
gRifAFjVbsDlfjvmmdJwCpAUnR0mUIBAEcKlnUu5JhVKuCW+4+f9kot/iLoyPYfRaz5Yx6ehG7qCNpNT
prmyVUuMFQBPN/ajqk2HH28/iIXwPKJ82qQirDVVoGXie5YA3rBY65ZAkwqHI3jizZOYnPVxEfdiaPI6
9NwRdZpHcFljx8X2FQBPVjfh6CUd7nziDdxJwBCXh1TAlUCDjIU5CSwjkzLl0SjP0y0vzynrDkLJ+xeU
7Leh/H4/mmxelNU0Y/q6F+45P8ZnAhh2z8LsuirT3KIbQH2njjgqgEaX+6ZL3Sa06IfQaRtB/v4yfFDT
JgGWQRKkx8TFmjBBTpJU4KTCfEAl7yiU9W9ByTnM9giUXAHLvgDOSYDnHsWt2+vRO+xenM0X2pcmyyKg
UF2HVtrcbXbIuhhyTWDk6jQ+aNCgqqVXDhwTgBnAmXCyDpnKZz+oJ4AAI4gAFBKA6xKQUv+GUtgAy7BL
prm624q3q/uIowJY2a5HQ58VbYZh9NtHYaL1okZGPbOYYL00GF0oq26T61oqoJBIvX5onAv2AiLzEUI9
BeXPdEk4mHRRuif6wkEB/Q6U/Gq4prgzd3lQ0zeIUy1mvFu7tB6mAW5+5i3U95hZC4PosrrkGjVwZZqz
bY6zzoepWT88vgi83DZtPXCc9dSEies+WYNROhdl6v2RBSj3CAjWXxJQuChBEy7m8Dj/ApQNlRLQ4LqG
dtsEavVOnGm3orRBix37jliWAQrVdpm4aNqk3SLNYhlwebyccX5Z2B5fCHPBCILcQQe52xFwx+t6caK6
hanbTbhDrD26lZvQPUk4KumigCuoimtDFaw0oXNwApf0IzjfY8fxJiMOVXcRRwWwmu/DRqZZFKxmYAzm
UY+cacLFiRkfrs4FMOPlzkZsaql5Aua9cpogYsYSLvdNSrRCCcgcnhOAG+lYgXBtCTDn9T6Y3V5ohyfR
ZHbiAtN8stmIdy7G6zANTvnDo6jkQi1mUitnc499DPqRq7BPJNJ8Pe7itJ+7Ef7mCcdYa/e/QTgBJSRA
2N4jwAi4nhJwuYQrJJgEJNim6kVAh8cnDRienIXN7cfFfivK28xc8uJ1uAT3uy1Q7tqKLY9sQ02PDc2i
Di0j0A9PwHZlBs6rXq5brEPWnIeQSt7TBCFczmtLgMLFnNfjx9k8l5cA21TBAidUoYATYIxtYOyBc7Dx
4e0T12HmpsLEcjKMebgB9nDl0OHlUl4n4e7aDOW31B+3Qbl7Gy6yDpu0A2jn60c7OA4L02wjoNvjhnLf
s4Q4QL1KhwiT/Uo6pHBRtPe+S8fOxeHyz8ZBi2rigBvOyzT3Wt0wjl+DnvfXcEL2843SNXAFHeJ3tmUc
BU9yHCWHTvw6n9pIBx+Wtp7vtMjlpt0wBB33a0bHBMGeIch+zkzC5BIul20O4dbzWADmJp1jf+PHBCJU
EjCppIMP8NyD59DpmEGfgCJQm20MLaZRNBpHUc/Jckn8CaB1EvCX90P51YMELICy9q8ScPebZfjwshaV
LZ109UlCvEyHCJPLJxJw69kKJV3MYzol2BkoD3ECFBJMQtKpJFwBY1tqYBhx8Dtlcva2mMfQxLW1weDC
JZ0TdVoHKvudON9rkxxCirK2mHAE/E2BDFY6Zn6u/GUP352ixvYl4AgjJKESLq4XwGyzGdtMR4o+ireb
CSXghDYRSkBurGbaJtBqHUUzXTpR1YIGTkIBVUOnKvsHUdE7gL+V7BO/OBbnhZCi3L2XA73EgZ+jWwTL
fp56gX3G1vFYAArlEjYJKVzMJuimU1R5HC4D8GuP8TVXVIlO+4h0qdE4Ek8doaq1Q6jsHcS5bhs+7h4i
RzpUquIfawm5jsWfTcgcwq1jKyAFYO4/E5AEzCNYEaEKE9p4Mh1wE13bTNcKzhKIqSNQrXBJ40CVZki6
dLbTjtMdZjxW8vxcJoyalg7uJcg6MREIJlwUDq6n7uM7s4g18xBhtnBB3kwlAYsIlwTceAq3P/aRrKM6
wggoseiKN8PHhDrTbsKZ1uU/ij5NqZ0blMJjBCjlYKI9TqgPCUWwlQALeZxfjss6O2o1A6hiLQmgc90C
yIpTbVacbjPi3TNVL6WM87mU1nHPxbKUhwlWsAKgUP5x/OCRk3IJqOXWTKRN1lKXNQ7VYsLJFiNeK2/i
LdMH+yJSDSZ1uLQcFy6340KHCY0WNy6K1BEo7pINH3XY+Fqy4ESrhcuSHu9z9efv3J+p3euLSjWYquMc
tJwAEqjLIoFOs5bKmk0SqrRRj+0vHeal6t//slINpuq9er1MmUhdEuhYnYabSvW/Kv7XUg2m6hhBSuni
UW5//sOd7sNPHfCrXfdVSTWYqWMNGvFvo+q5r1ZQ/gsddBmZKMKxgQAAAABJRU5ErkJggg==
</value>
</data>
<metadata name="ContextMenuStrip2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="ContextMenuStrip2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1000, 17</value> <value>1000, 17</value>
</metadata> </metadata>

421
Aviso/frmSendungsdetailsNEU.vb
View File

@@ -253,6 +253,7 @@ Public Class frmSendungsdetailsNEU
Private Sub frmSendungsdetails_Load(sender As Object, e As EventArgs) Handles Me.Load Private Sub frmSendungsdetails_Load(sender As Object, e As EventArgs) Handles Me.Load
VERAG_PROG_ALLGEMEIN.cAllgemein._TRANSLATE(Me) VERAG_PROG_ALLGEMEIN.cAllgemein._TRANSLATE(Me)
Try Try
lblGrenze.Text = ""
Panel5.BackColor = VERAG_PROG_ALLGEMEIN.cAllgemein.cSPECIFIC.FIRMA_BgColor Panel5.BackColor = VERAG_PROG_ALLGEMEIN.cAllgemein.cSPECIFIC.FIRMA_BgColor
Panel15.BackColor = VERAG_PROG_ALLGEMEIN.cAllgemein.cSPECIFIC.FIRMA_BgColor Panel15.BackColor = VERAG_PROG_ALLGEMEIN.cAllgemein.cSPECIFIC.FIRMA_BgColor
@@ -266,13 +267,15 @@ Public Class frmSendungsdetailsNEU
If AVISO.Grenzstelle.Replace("???", "") = "" Then If AVISO.Grenzstelle.Replace("???", "") = "" Then
lblGrenze.Text = SQL.getValueTxtBySql("SELECT basncd_dstnr +' - ' + [basncd_name] FROM basncd WHERE basncd_dstnr='" & If(AVISO.Zollstelle, "") & "' ", "ATLAS") lblGrenze.Text = SQL.getValueTxtBySql("SELECT basncd_dstnr +' - ' + [basncd_name] FROM basncd WHERE basncd_dstnr='" & If(AVISO.Zollstelle, "") & "' ", "ATLAS")
Else Else
Select Case AVISO.Grenzstelle
Case "SUB" : lblGrenze.Text = "DE007701 Suben"
Case "WAI" : lblGrenze.Text = "DE008904 Waidhaus" Dim GRZ As New VERAG_PROG_ALLGEMEIN.cGrenzstelle(AVISO.Grenzstelle)
Case "SBG" : lblGrenze.Text = "DE007458 Bad Reichenhall" If GRZ IsNot Nothing AndAlso GRZ.hasEntry Then
Case "NKD" : lblGrenze.Text = "AT320300 Nickelsdorf"
Case "SFD" : lblGrenze.Text = "AT700400 Spielfeld" lblGrenze.Text = If(GRZ.grz_ZollamtDST, "") & " " & If(GRZ.grz_ZollamtBezeichnung, "")
End Select
End If
End If End If
@@ -1754,11 +1757,14 @@ Public Class frmSendungsdetailsNEU
End If End If
End If End If
If sender Is Button3 Or sender Is LaufzettelDruckenToolStripMenuItem Then If sender Is Button3 Or sender Is LaufzettelDruckenToolStripMenuItem Then
Dim AVISO_Tmp = Me.AVISO
Dim SENDUNG_LIST_Tmp = Me.SENDUNG_LIST(CURRENT_INDEX)
'Dim trd = New Threading.Thread(Sub()
SendungOptions.PrintSendung("PRINT", Me.SENDUNG_LIST(CURRENT_INDEX), Me.AVISO, Printername, If(sender Is LaufzettelDruckenToolStripMenuItem, "LAUFZETTEL", "AKT"), SENDUNG_LIST.Count) Dim trd = New Threading.Thread(Sub()
' End Sub) SendungOptions.PrintSendung("PRINT", SENDUNG_LIST_Tmp, AVISO_Tmp, Printername, If(sender Is LaufzettelDruckenToolStripMenuItem, "LAUFZETTEL", "AKT"), SENDUNG_LIST.Count)
' trd.IsBackground = True : trd.Start() End Sub)
trd.IsBackground = True : trd.Start()
ElseIf sender Is Button8 Then ElseIf sender Is Button8 Then
SendungOptions.PrintSendung("PDF", SENDUNG_LIST(CURRENT_INDEX), AVISO, Printername,, SENDUNG_LIST.Count) SendungOptions.PrintSendung("PDF", SENDUNG_LIST(CURRENT_INDEX), AVISO, Printername,, SENDUNG_LIST.Count)
@@ -4408,7 +4414,7 @@ Public Class frmSendungsdetailsNEU
If True Then If True Then
Dim sPath As String = Environment.GetFolderPath(Environment.SpecialFolder.Personal) & "\VERAG\ATANAK\" Dim sPath As String = Environment.GetFolderPath(Environment.SpecialFolder.Personal) & "\VERAG\DGS\"
If Not My.Computer.FileSystem.DirectoryExists(sPath) Then If Not My.Computer.FileSystem.DirectoryExists(sPath) Then
My.Computer.FileSystem.CreateDirectory(sPath) My.Computer.FileSystem.CreateDirectory(sPath)
End If End If
@@ -4423,11 +4429,11 @@ Public Class frmSendungsdetailsNEU
.Visible = False .Visible = False
Try Try
Path = sPath & "ATANAK_Import_" & SENDUNG_LIST(CURRENT_INDEX).FilialenNr & "-" & SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr & "" & " .xlsx" Path = sPath & "DGS_Import_" & SENDUNG_LIST(CURRENT_INDEX).FilialenNr & "-" & SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr & "" & " .xlsx"
While System.IO.File.Exists(Path) While System.IO.File.Exists(Path)
Path = sPath & "ATANAK_Import_" & SENDUNG_LIST(CURRENT_INDEX).FilialenNr & "-" & SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr & "" & "_" & Now.ToString("ddMMyyyyHHmmss") & ".xlsx" Path = sPath & "DGS_Import_" & SENDUNG_LIST(CURRENT_INDEX).FilialenNr & "-" & SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr & "" & "_" & Now.ToString("ddMMyyyyHHmmss") & ".xlsx"
End While End While
My.Computer.FileSystem.WriteAllBytes(Path, My.Resources.ATANAK_Instructions_Import, False) My.Computer.FileSystem.WriteAllBytes(Path, My.Resources.DGS_Instructions_Import, False)
Catch ex As System.Exception Catch ex As System.Exception
' VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) ' VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
@@ -4491,7 +4497,7 @@ Public Class frmSendungsdetailsNEU
If True Then If True Then
Dim sPath As String = Environment.GetFolderPath(Environment.SpecialFolder.Personal) & "\VERAG\ATANAK\" Dim sPath As String = Environment.GetFolderPath(Environment.SpecialFolder.Personal) & "\VERAG\DGS\"
If Not My.Computer.FileSystem.DirectoryExists(sPath) Then If Not My.Computer.FileSystem.DirectoryExists(sPath) Then
My.Computer.FileSystem.CreateDirectory(sPath) My.Computer.FileSystem.CreateDirectory(sPath)
End If End If
@@ -4506,11 +4512,11 @@ Public Class frmSendungsdetailsNEU
.Visible = False .Visible = False
Try Try
Path = sPath & "ATANAK_Export_" & SENDUNG_LIST(CURRENT_INDEX).FilialenNr & "-" & SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr & "" & " .xlsx" Path = sPath & "DGS_Export_" & SENDUNG_LIST(CURRENT_INDEX).FilialenNr & "-" & SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr & "" & " .xlsx"
While System.IO.File.Exists(Path) While System.IO.File.Exists(Path)
Path = sPath & "ATANAK_Export_" & SENDUNG_LIST(CURRENT_INDEX).FilialenNr & "-" & SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr & "" & "_" & Now.ToString("ddMMyyyyHHmmss") & ".xlsx" Path = sPath & "DGS_Export_" & SENDUNG_LIST(CURRENT_INDEX).FilialenNr & "-" & SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr & "" & "_" & Now.ToString("ddMMyyyyHHmmss") & ".xlsx"
End While End While
My.Computer.FileSystem.WriteAllBytes(Path, My.Resources.ATANAK_Instructions_Export, False) My.Computer.FileSystem.WriteAllBytes(Path, My.Resources.DGS_Instructions_Export, False)
Catch ex As System.Exception Catch ex As System.Exception
' VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) ' VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
@@ -4573,7 +4579,7 @@ Public Class frmSendungsdetailsNEU
If True Then If True Then
Dim sPath As String = Environment.GetFolderPath(Environment.SpecialFolder.Personal) & "\VERAG\ATANAK\" Dim sPath As String = Environment.GetFolderPath(Environment.SpecialFolder.Personal) & "\VERAG\DGS\"
If Not My.Computer.FileSystem.DirectoryExists(sPath) Then If Not My.Computer.FileSystem.DirectoryExists(sPath) Then
My.Computer.FileSystem.CreateDirectory(sPath) My.Computer.FileSystem.CreateDirectory(sPath)
End If End If
@@ -4588,11 +4594,11 @@ Public Class frmSendungsdetailsNEU
.Visible = False .Visible = False
Try Try
Path = sPath & "ATANAK_ExportT1_" & AVISO.AvisoID & "" & " .xlsx" Path = sPath & "DGS_ExportT1_" & AVISO.AvisoID & "" & " .xlsx"
While System.IO.File.Exists(Path) While System.IO.File.Exists(Path)
Path = sPath & "ATANAK_ExportT1_" & AVISO.AvisoID & "" & "_" & Now.ToString("ddMMyyyyHHmmss") & ".xlsx" Path = sPath & "DGS_ExportT1_" & AVISO.AvisoID & "" & "_" & Now.ToString("ddMMyyyyHHmmss") & ".xlsx"
End While End While
My.Computer.FileSystem.WriteAllBytes(Path, My.Resources.ATANAK_Instructions_Export_T1, False) My.Computer.FileSystem.WriteAllBytes(Path, My.Resources.DGS_Instructions_Export_T1, False)
Catch ex As System.Exception Catch ex As System.Exception
' VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) ' VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
@@ -4647,7 +4653,7 @@ Public Class frmSendungsdetailsNEU
Me.Cursor = Cursors.Default Me.Cursor = Cursors.Default
End Sub End Sub
Private Sub AuftragATANAKToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AuftragATANAKToolStripMenuItem.Click Private Sub ToolStripMenuItem26_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem26.Click
Try Try
VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.clearTMPPath("ClipBoard_TMP") VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.clearTMPPath("ClipBoard_TMP")
@@ -4660,14 +4666,15 @@ Public Class frmSendungsdetailsNEU
For Each r As DataGridViewRow In dgvAnhang.SelectedRows For Each r As DataGridViewRow In dgvAnhang.SelectedRows
Mail.Attachments.Add(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(r.Cells("anh_docId").Value), Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue) Mail.Attachments.Add(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(r.Cells("anh_docId").Value), Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue)
Next Next
Mail.Subject = AVISO.ImEx & " / " & AVISO.LKW_Nr & " / " & "ETA: " & If(AVISO.VoraussichtlichesEintreffen IsNot Nothing, CDate(AVISO.VoraussichtlichesEintreffen).ToShortDateString, "") & " // VERAG" 'Mail.Subject = If(AVISO.ImEx <> "", AVISO.ImEx & " / ", "") & AVISO.LKW_Nr & " / " & "ETA: " & If(AVISO.VoraussichtlichesEintreffen IsNot Nothing, CDate(AVISO.VoraussichtlichesEintreffen).ToShortDateString, "") & " // VERAG"
'Mail.To = "european@atanak.com" Mail.Subject = "VERAG // " & If(AVISO.ImEx <> "", AVISO.ImEx & " / ", "") & " // REF " & SENDUNG_LIST(CURRENT_INDEX).FilialenNr & "/" & SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr & " // TRUCK: " & AVISO.LKW_Nr
Mail.To = "european@dailygroupage.com"
Mail.To = "bblcustoms@groupe-bbl.com"
Dim TextHTML = "" Dim TextHTML = ""
TextHTML &= "Dear Atanak Team,<br>" TextHTML &= "Dear BBL Team,<br>"
TextHTML &= "<br>" TextHTML &= "<br>"
TextHTML &= "eattached our next " & If(AVISO.ImEx = "", "customs", AVISO.ImEx) & " instruction.<br>" TextHTML &= "please do the " & If(AVISO.ImEx = "", "customs", AVISO.ImEx) & " for attached shipment on our behalf.<br>"
TextHTML &= "<br>" TextHTML &= "<br>"
TextHTML &= "<table style=""font-family:Calibri, Arial;font-size:15px;"">" TextHTML &= "<table style=""font-family:Calibri, Arial;font-size:15px;"">"
TextHTML &= "<tr><td>ETA:</td><td><b>" & If(AVISO.VoraussichtlichesEintreffen IsNot Nothing, CDate(AVISO.VoraussichtlichesEintreffen).ToShortDateString, "") & "</b></td></tr>" TextHTML &= "<tr><td>ETA:</td><td><b>" & If(AVISO.VoraussichtlichesEintreffen IsNot Nothing, CDate(AVISO.VoraussichtlichesEintreffen).ToShortDateString, "") & "</b></td></tr>"
@@ -4683,9 +4690,113 @@ Public Class frmSendungsdetailsNEU
Mail.HTMLBody = "<div style=""font-family:Calibri, Arial;font-size:15px;"">" & TextHTML & SDL.cFakturierung.getSignature("EN",,,, "BREXIT_VERAG") & "</div>" Mail.HTMLBody = "<div style=""font-family:Calibri, Arial;font-size:15px;"">" & TextHTML & SDL.cFakturierung.getSignature("EN",,,, "BREXIT_VERAG") & "</div>"
Dim answer = MsgBox("Vermerk 'An ATANAK avisiert' eintragen?", vbYesNoCancel) Dim answer = MsgBox("Vermerk 'An BBL avisiert' eintragen?", vbYesNoCancel)
If vbYes = answer Then If vbYes = answer Then
AvisoStatusFunctions.insertSendungsVermerk(SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID, AvisoId, "An ATANAK avisiert", 43) AvisoStatusFunctions.insertSendungsVermerk(SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID, AvisoId, "An BBL avisiert", 43)
End If
Mail.Display()
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Fehler beim Öffnen der Mail!")
End Try
End If
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Fehler beim Öffnen der Mail!")
End Try
End Sub
Private Sub AuftragATANAKToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AuftragATANAKToolStripMenuItem.Click
Try
VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.clearTMPPath("ClipBoard_TMP")
If True Then 'dgvAnhang.SelectedRows.Count >= 1 Then
Try
Dim outl As New Outlook.Application
Dim Mail As Microsoft.Office.Interop.Outlook.MailItem
Mail = outl.CreateItem(0)
For Each r As DataGridViewRow In dgvAnhang.SelectedRows
Mail.Attachments.Add(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(r.Cells("anh_docId").Value), Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue)
Next
Mail.Subject = If(AVISO.ImEx <> "", AVISO.ImEx & " / ", "") & AVISO.LKW_Nr & " / " & "ETA: " & If(AVISO.VoraussichtlichesEintreffen IsNot Nothing, CDate(AVISO.VoraussichtlichesEintreffen).ToShortDateString, "") & " // VERAG"
'Mail.To = "european@atanak.com"
Mail.To = "european@dailygroupage.com"
Dim TextHTML = ""
TextHTML &= "Dear DGS Team,<br>"
TextHTML &= "<br>"
TextHTML &= "attached our next " & If(AVISO.ImEx = "", "customs", AVISO.ImEx) & " instruction.<br>"
TextHTML &= "<br>"
TextHTML &= "<table style=""font-family:Calibri, Arial;font-size:15px;"">"
TextHTML &= "<tr><td>ETA:</td><td><b>" & If(AVISO.VoraussichtlichesEintreffen IsNot Nothing, CDate(AVISO.VoraussichtlichesEintreffen).ToShortDateString, "") & "</b></td></tr>"
TextHTML &= "<tr><td>Truck:</td><td><b>" & AVISO.LKW_Nr & "</b></td></tr>"
TextHTML &= "<tr><td width=""150"">Customs Office: </td><td><b>" & SQL.getValueTxtBySql("SELECT [basncd_name] FROM basncd WHERE basncd_dstnr='" & If(AVISO.Zollstelle, "") & "' ", "ATLAS") & "</b></td></tr>"
TextHTML &= "</table>"
TextHTML &= "<br>"
TextHTML &= "<br>"
TextHTML &= "Best regards<br>"
TextHTML &= "<b>" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME & "</b><br>"
TextHTML &= "<br>"
Mail.HTMLBody = "<div style=""font-family:Calibri, Arial;font-size:15px;"">" & TextHTML & SDL.cFakturierung.getSignature("EN",,,, "BREXIT_VERAG") & "</div>"
Dim answer = MsgBox("Vermerk 'An DGS avisiert' eintragen?", vbYesNoCancel)
If vbYes = answer Then
AvisoStatusFunctions.insertSendungsVermerk(SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID, AvisoId, "An DGS avisiert", 43)
End If
Mail.Display()
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Fehler beim Öffnen der Mail!")
End Try
End If
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Fehler beim Öffnen der Mail!")
End Try
End Sub
Private Sub ToolStripMenuItem27_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem27.Click
Try
VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.clearTMPPath("ClipBoard_TMP")
If True Then 'dgvAnhang.SelectedRows.Count >= 1 Then
Try
Dim outl As New Outlook.Application
Dim Mail As Microsoft.Office.Interop.Outlook.MailItem
Mail = outl.CreateItem(0)
For Each r As DataGridViewRow In dgvAnhang.SelectedRows
Mail.Attachments.Add(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(r.Cells("anh_docId").Value), Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue)
Next
'Mail.Subject = If(AVISO.ImEx <> "", AVISO.ImEx & " / ", "") & AVISO.LKW_Nr & " / " & "ETA: " & If(AVISO.VoraussichtlichesEintreffen IsNot Nothing, CDate(AVISO.VoraussichtlichesEintreffen).ToShortDateString, "") & " // VERAG"
Mail.Subject = "VERAG // " & If(AVISO.ImEx <> "", AVISO.ImEx & " / ", "") & " // REF " & SENDUNG_LIST(CURRENT_INDEX).FilialenNr & "/" & SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr & " // TRUCK: " & AVISO.LKW_Nr
Mail.To = "douane@vibsea.com"
Dim TextHTML = ""
TextHTML &= "Dear VIBSEA Team,<br>"
TextHTML &= "<br>"
TextHTML &= "please do the " & If(AVISO.ImEx = "", "customs", AVISO.ImEx) & " for attached shipment on our behalf.<br>"
TextHTML &= "<br>"
TextHTML &= "<table style=""font-family:Calibri, Arial;font-size:15px;"">"
TextHTML &= "<tr><td>ETA:</td><td><b>" & If(AVISO.VoraussichtlichesEintreffen IsNot Nothing, CDate(AVISO.VoraussichtlichesEintreffen).ToShortDateString, "") & "</b></td></tr>"
TextHTML &= "<tr><td>Truck:</td><td><b>" & AVISO.LKW_Nr & "</b></td></tr>"
TextHTML &= "<tr><td width=""150"">Customs Office: </td><td><b>" & SQL.getValueTxtBySql("SELECT [basncd_name] FROM basncd WHERE basncd_dstnr='" & If(AVISO.Zollstelle, "") & "' ", "ATLAS") & "</b></td></tr>"
TextHTML &= "</table>"
TextHTML &= "<br>"
TextHTML &= "<br>"
TextHTML &= "Best regards<br>"
TextHTML &= "<b>" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME & "</b><br>"
TextHTML &= "<br>"
Mail.HTMLBody = "<div style=""font-family:Calibri, Arial;font-size:15px;"">" & TextHTML & SDL.cFakturierung.getSignature("EN",,,, "BREXIT_VERAG") & "</div>"
Dim answer = MsgBox("Vermerk 'An VIBSEA avisiert' eintragen?", vbYesNoCancel)
If vbYes = answer Then
AvisoStatusFunctions.insertSendungsVermerk(SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID, AvisoId, "An VIBSEA avisiert", 43)
End If End If
Mail.Display() Mail.Display()
@@ -4876,4 +4987,252 @@ Public Class frmSendungsdetailsNEU
End Try End Try
FORM.Cursor = Cursors.Default FORM.Cursor = Cursors.Default
End Sub End Sub
Private Sub AktuelleSendungAnhängeWählenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AktuelleSendungAnhängeWählenToolStripMenuItem.Click, AlleLEXSendungenLKWToolStripMenuItem.Click
Me.Cursor = Cursors.WaitCursor
Try
VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.clearTMPPath("ClipBoard_TMP")
If True Then 'dgvAnhang.SelectedRows.Count >= 1 Then
Try
Dim outl As New Outlook.Application
Dim Mail As Microsoft.Office.Interop.Outlook.MailItem
Mail = outl.CreateItem(0)
Dim OnylSND = -1
If sender Is AktuelleSendungAnhängeWählenToolStripMenuItem Then
'For Each r As DataGridViewRow In dgvAnhang.SelectedRows
' Mail.Attachments.Add(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(r.Cells("anh_docId").Value), Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue)
'Next
OnylSND = CURRENT_INDEX
End If
'LEX
Mail.Subject = "AVIS: Kennzeichen: " & AVISO.LKW_Nr & " | Pos: " & SENDUNG_LIST(CURRENT_INDEX).FilialenNr & "/" & SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr & If(AVISO.VoraussichtlichesEintreffen IsNot Nothing, " | ETA: " & CDate(AVISO.VoraussichtlichesEintreffen).ToShortDateString, "")
Dim TextHTML = ""
TextHTML &= "Sehr geehrte Damen und Herren,<br>"
TextHTML &= "<br>"
TextHTML &= "anbei senden wir Ihnen unser Avis zu o.g. LKW.<br>"
TextHTML &= "<br>"
TextHTML &= "Bitte bereiten Sie angefügte(n) Sendung(en) wie folgt vor:<br>"
TextHTML &= "<br>"
TextHTML &= "<table border=1>"
TextHTML &= "<tr><td>Pos</td><td>Referenz</td><td>Abfertigungsart</td><td>Absender</td><td>Empfänger</td><td>Sendung</td><td>Abrechnung</td><td>EORI</td><td>UID</td><td>Vollmacht</td></tr>"
Dim ANH_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge)
Dim cnt = 1
For Each SND In SENDUNG_LIST
If (OnylSND >= 0 AndAlso SND Is SENDUNG_LIST(OnylSND)) Or (OnylSND < 0 And SND.FilialenNr = 4839) Then
TextHTML &= "<tr>"
TextHTML &= "<td><b>" & cnt & "</b></td>"
TextHTML &= "<td><b>" & SND.FilialenNr & "/" & SND.AbfertigungsNr & "</b></td>"
TextHTML &= "<td><b><nobr>" & SQL.DLookup("isnull(AbfertigungsbezeichnungLang,Abfertigungsbezeichnung)", "[Abfertigungsarten]", "[Abfertigungsart]='" & SND.tblSnd_Abfertigungsart_ID & "'", "FMZOLL", "") & "</nobr></b></td>"
TextHTML &= "<td><b>" & SND.tblSnd_Absender & "</b></td>"
TextHTML &= "<td><b>" & SND.tblSnd_Empfaenger & "</b></td>"
TextHTML &= "<td><b>" & SND.tblSnd_Colli & " Pk. " & SND.tblSnd_Warenbezeichnung & " - " & SND.tblSnd_Gewicht & " kg </b></td>"
TextHTML &= "<td><b>VERAG</b></td>" '??????
Select Case SND.tblSnd_Abfertigungsart_ID
Case "38", "1"
Dim KD As New VERAG_PROG_ALLGEMEIN.cKunde(SND.tblSnd_EmpfaengerKdNr)
Dim AD As New VERAG_PROG_ALLGEMEIN.cAdressen(SND.tblSnd_EmpfaengerKdNr)
Dim VMDat As Object = SQL.getValueTxtBySql("SELECT [kdvm_erhalten_Datum] FROM [tblKundenVollmachten] where kdvm_KundenNr='" & SND.tblSnd_EmpfaengerKdNr & "' and [kdvm_kdvmaId] IN (12,3) and [kdvm_erhalten]=1 ORDER BY [kdvm_erhalten_Datum] desc", "FMZOLL",,, Nothing)
If KD IsNot Nothing AndAlso KD IsNot Nothing Then
TextHTML &= "<td><b>" & If(KD.EORITIN, "") & "</b></td>"
TextHTML &= "<td><b>" & If(AD.UstIdKz, "") & If(AD.UstIdNr, "") & "</b></td>"
TextHTML &= "<td><b>" & If(VMDat, "") & "</b></td>"
Else
TextHTML &= "<td><b>-</b></td>"
TextHTML &= "<td><b>-</b></td>"
TextHTML &= "<td><b>-</b></td>"
End If
Case Else
TextHTML &= "<td><b>-</b></td>"
TextHTML &= "<td><b>-</b></td>"
TextHTML &= "<td><b>-</b></td>"
End Select
TextHTML &= "</tr>"
'....
'For Each r As DataGridViewRow In dgvAnhang.SelectedRows
' Mail.Attachments.Add(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(r.Cells("anh_docId").Value), Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue)
'Next
Dim anhaengeVersand As New List(Of String)
Dim found = False
VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge.LOAD_LIST_BySendung(ANH_LIST, SND.tblSnd_SendungID) 'LÄDT alle Aviso-Anhänge
For Each l In ANH_LIST
Select Case l.anh_Art.ToString.ToUpper
Case "UID", "EORI"
Case Else
' Case "RECHNUNG", "CMR", "AUSFUHR", "COO", "PACKLISTE"
Dim PathTmpANH = (New VERAG_PROG_ALLGEMEIN.cDATENSERVER(l.anh_docId)).GET_TOP1_PATH(False)
If PathTmpANH <> "" Then
If OnylSND < 0 Then 'NUR WENN ALLE SENDUNGEN...
anhaengeVersand.Add(PathTmpANH)
Else ' ...Sonst direkt an Mail anfügen
Mail.Attachments.Add(PathTmpANH, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue)
End If
found = True
End If
End Select
Next
If OnylSND < 0 Then 'NUR WENN ALLE SENDUNGEN
If anhaengeVersand.Count = 1 Then
'Falls nur 1 Anhang
Mail.Attachments.Add(anhaengeVersand(0), Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue)
ElseIf anhaengeVersand.Count > 1 Then
'Zusammenfassen der Anhänge
Dim zielPfadZusammenfassung = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath(cnt & "_" & SND.FilialenNr & "-" & SND.AbfertigungsNr & ".pdf", ".pdf",, False, "Zusammenfassung_LEX_" & SND.tblSnd_SendungID & "_" & Now.ToString("ddMMyyyy_HHmmss"))
If SDL.FormularManagerNEU.MergePdfFiles(anhaengeVersand, zielPfadZusammenfassung) Then
Mail.Attachments.Add(zielPfadZusammenfassung, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue)
End If
End If
End If
cnt += 1
End If
Next
'Vorpapier laden:
ANH_LIST = New List(Of VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge)
VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge.LOAD_LIST_ByAviso(ANH_LIST, AvisoId) 'LÄDT alle Aviso-Anhänge
For Each l In ANH_LIST
Select Case l.anh_Art.ToString.ToUpper
Case "VORPAPIER" ' T1,..
Dim PathTmpANH = (New VERAG_PROG_ALLGEMEIN.cDATENSERVER(l.anh_docId)).GET_TOP1_PATH(False)
If PathTmpANH <> "" Then Mail.Attachments.Add(PathTmpANH, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue)
End Select
Next
TextHTML &= "</table>"
TextHTML &= "<br>"
TextHTML &= "<br>"
TextHTML &= "Für Rückfragen stehen wir gerne zur Verfügung<br>"
TextHTML &= "<br>"
TextHTML &= "Mit freundlichen Grüßen<br>"
TextHTML &= VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME & "<br>"
TextHTML &= "<br>"
Mail.HTMLBody = "<div style=""font-family:Calibri, Arial;font-size:15px;"">" & TextHTML & SDL.cFakturierung.getSignature("DE") & "</div>"
AvisoStatusFunctions.insertSendungsVermerk(SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID, AvisoId, "Doks an Fremdspedition (SUBEN) weitergeleitet.", 46)
Mail.Display()
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Fehler beim Öffnen der Mail!")
End Try
End If
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Fehler beim Öffnen der Mail!")
End Try
Me.Cursor = Cursors.Default
End Sub
Private Sub AMBARZollbeschauToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AMBARZollbeschauToolStripMenuItem.Click
Me.Cursor = Cursors.WaitCursor
Try
Dim Path = ""
If True Then
Dim sPath As String = Environment.GetFolderPath(Environment.SpecialFolder.Personal) & "\VERAG\AMABR\"
If Not My.Computer.FileSystem.DirectoryExists(sPath) Then
My.Computer.FileSystem.CreateDirectory(sPath)
End If
Dim exclApp As Object 'as Application
Dim Datei As Object 'as WorkBook
Dim Blatt As Object 'Microsoft.Office.Interop.Excel.Worksheet 'As Object 'as Worksheet
exclApp = CreateObject("Excel.Application")
With exclApp
.Visible = False
Try
Path = sPath & "VZ HINDERNISS - ZOLLBESCHAU - PROTOKOLL " & SENDUNG_LIST(CURRENT_INDEX).FilialenNr & "-" & SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr & "" & " .xlsx"
While System.IO.File.Exists(Path)
Path = sPath & "VZ HINDERNISS - ZOLLBESCHAU - PROTOKOLL " & SENDUNG_LIST(CURRENT_INDEX).FilialenNr & "-" & SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr & "" & "_" & Now.ToString("ddMMyyyyHHmmss") & ".xlsx"
End While
My.Computer.FileSystem.WriteAllBytes(Path, My.Resources.VZ_HINDERNISS___ZOLLBESCHAU___PROTOKOLL, False)
Catch ex As System.Exception
' VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
Me.Cursor = Cursors.Default
Exit Sub
End Try
Datei = .Workbooks.Open(Path) 'Anpassen
Blatt = Datei.Worksheets(1) 'Anpassen
Blatt.Range("J7").Value = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.Fullname
Blatt.Range("C52").Value = Now.ToShortDateString
Blatt.Range("D7").Value = SENDUNG_LIST(CURRENT_INDEX).FilialenNr & "/" & SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr
Blatt.Range("I13").Value = AVISO.LKW_Nr
Dim absender = ""
If SENDUNG_LIST(CURRENT_INDEX).tblSnd_AbsenderKdNr > 0 Then
Dim KD As New VERAG_PROG_ALLGEMEIN.cKunde(SENDUNG_LIST(CURRENT_INDEX).tblSnd_AbsenderKdNr)
If KD IsNot Nothing AndAlso If(KD.EORITIN, "") <> "" Then
absender = KD.EORITIN
End If
End If
absender = (absender & " " & SENDUNG_LIST(CURRENT_INDEX).tblSnd_Absender).Trim
Blatt.Range("D14").Value = absender
Blatt.Range("I14").Value = SENDUNG_LIST(CURRENT_INDEX).tblSnd_Empfaenger
Blatt.Range("D13").Value = SENDUNG_LIST(CURRENT_INDEX).tblSnd_Frachtfuehrer
'Blatt.Range("C26").Value = SENDUNG_LIST(CURRENT_INDEX).tblSnd_Gewicht
Blatt.Range("H20").Value = SENDUNG_LIST(CURRENT_INDEX).tblSnd_Colli.Replace(",", "").Replace(".", "")
Blatt.Range("K20").Value = SENDUNG_LIST(CURRENT_INDEX).tblSnd_Gewicht '.Replace(",", "").Replace(".", "")
Blatt.Range("D23").Value = SENDUNG_LIST(CURRENT_INDEX).tblSnd_Warenbezeichnung
Blatt.Range("E19").Value = If(SENDUNG_LIST(CURRENT_INDEX).tblSnd_Warenwert, "")
Blatt.Range("D19").Value = If(SENDUNG_LIST(CURRENT_INDEX).tblSnd_WarenwertWaehrung, "")
Datei.Save
If False Then
Blatt.PrintOutEx()
Else
'Process.Start(Path)
.Visible = True
End If
End With
End If
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
Me.Cursor = Cursors.Default
End Sub
End Class End Class

6
Aviso/frmTv.vb
View File

@@ -48,6 +48,12 @@ Public Class frmTv
Private Sub frmTv_Load(sender As Object, e As EventArgs) Handles Me.Load Private Sub frmTv_Load(sender As Object, e As EventArgs) Handles Me.Load
Dim cADMIN As New cADMIN Dim cADMIN As New cADMIN
txt.Text = cADMIN.getValueTxtBySql("SELECT TOP 1 AvisoTVHinweis FROM Aviso WHERE AvisoID=" & avisoID, "AVISO") txt.Text = cADMIN.getValueTxtBySql("SELECT TOP 1 AvisoTVHinweis FROM Aviso WHERE AvisoID=" & avisoID, "AVISO")
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "AMBAR"
txt.MaxLength = 30
lblAndererText.Text = lblAndererText.Text.Replace("8", "30")
End Select
End Sub End Sub
Dim VermerkeDAL As New cVermerkeDAL Dim VermerkeDAL As New cVermerkeDAL

36
Aviso/rptTicketLKW.Designer.vb generated
View File

File diff suppressed because one or more lines are too long

3659
Aviso/rptTicketLKW.resx
View File

File diff suppressed because it is too large Load Diff

157
Aviso/usrcntlAktDetails.Designer.vb generated
View File

@@ -23,17 +23,17 @@ Partial Class usrcntlAktDetails
<System.Diagnostics.DebuggerStepThrough()> _ <System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent() Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container() Me.components = New System.ComponentModel.Container()
Dim DataGridViewCellStyle11 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle12 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle13 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle14 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle15 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(usrcntlAktDetails)) Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(usrcntlAktDetails))
Dim DataGridViewCellStyle16 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle17 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle18 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle19 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle20 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Me.pnlDetailsRechts = New System.Windows.Forms.Panel() Me.pnlDetailsRechts = New System.Windows.Forms.Panel()
Me.Panel3 = New System.Windows.Forms.Panel() Me.Panel3 = New System.Windows.Forms.Panel()
Me.SplitContainer = New System.Windows.Forms.SplitContainer() Me.SplitContainer = New System.Windows.Forms.SplitContainer()
@@ -165,6 +165,7 @@ Partial Class usrcntlAktDetails
Me.btnÄndern = New System.Windows.Forms.Button() Me.btnÄndern = New System.Windows.Forms.Button()
Me.btnTV = New System.Windows.Forms.Button() Me.btnTV = New System.Windows.Forms.Button()
Me.Button10 = New System.Windows.Forms.Button() Me.Button10 = New System.Windows.Forms.Button()
Me.Button15 = New System.Windows.Forms.Button()
Me.pnlDetailsRechts.SuspendLayout() Me.pnlDetailsRechts.SuspendLayout()
Me.Panel3.SuspendLayout() Me.Panel3.SuspendLayout()
CType(Me.SplitContainer, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.SplitContainer, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -588,46 +589,46 @@ Partial Class usrcntlAktDetails
Me.dgvSendungen.AllowUserToAddRows = False Me.dgvSendungen.AllowUserToAddRows = False
Me.dgvSendungen.AllowUserToDeleteRows = False Me.dgvSendungen.AllowUserToDeleteRows = False
Me.dgvSendungen.AllowUserToResizeRows = False Me.dgvSendungen.AllowUserToResizeRows = False
DataGridViewCellStyle11.BackColor = System.Drawing.Color.Azure DataGridViewCellStyle1.BackColor = System.Drawing.Color.Azure
DataGridViewCellStyle11.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvSendungen.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle11 Me.dgvSendungen.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
Me.dgvSendungen.BackgroundColor = System.Drawing.Color.White Me.dgvSendungen.BackgroundColor = System.Drawing.Color.White
DataGridViewCellStyle12.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle12.BackColor = System.Drawing.Color.LightBlue DataGridViewCellStyle2.BackColor = System.Drawing.Color.LightBlue
DataGridViewCellStyle12.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) DataGridViewCellStyle2.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle12.ForeColor = System.Drawing.SystemColors.WindowText DataGridViewCellStyle2.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle12.SelectionBackColor = System.Drawing.SystemColors.Highlight DataGridViewCellStyle2.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle12.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle12.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvSendungen.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle12 Me.dgvSendungen.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle2
Me.dgvSendungen.ColumnHeadersHeight = 34 Me.dgvSendungen.ColumnHeadersHeight = 34
Me.dgvSendungen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing Me.dgvSendungen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing
DataGridViewCellStyle13.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle13.BackColor = System.Drawing.SystemColors.Window DataGridViewCellStyle3.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle13.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) DataGridViewCellStyle3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle13.ForeColor = System.Drawing.SystemColors.ControlText DataGridViewCellStyle3.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle13.SelectionBackColor = System.Drawing.SystemColors.Highlight DataGridViewCellStyle3.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle13.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle3.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle13.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.dgvSendungen.DefaultCellStyle = DataGridViewCellStyle13 Me.dgvSendungen.DefaultCellStyle = DataGridViewCellStyle3
Me.dgvSendungen.Dock = System.Windows.Forms.DockStyle.Fill Me.dgvSendungen.Dock = System.Windows.Forms.DockStyle.Fill
Me.dgvSendungen.Location = New System.Drawing.Point(0, 0) Me.dgvSendungen.Location = New System.Drawing.Point(0, 0)
Me.dgvSendungen.MultiSelect = False Me.dgvSendungen.MultiSelect = False
Me.dgvSendungen.Name = "dgvSendungen" Me.dgvSendungen.Name = "dgvSendungen"
Me.dgvSendungen.ReadOnly = True Me.dgvSendungen.ReadOnly = True
DataGridViewCellStyle14.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle14.BackColor = System.Drawing.SystemColors.Control DataGridViewCellStyle4.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle14.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) DataGridViewCellStyle4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle14.ForeColor = System.Drawing.SystemColors.WindowText DataGridViewCellStyle4.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle14.SelectionBackColor = System.Drawing.SystemColors.Highlight DataGridViewCellStyle4.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle14.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle4.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle14.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvSendungen.RowHeadersDefaultCellStyle = DataGridViewCellStyle14 Me.dgvSendungen.RowHeadersDefaultCellStyle = DataGridViewCellStyle4
Me.dgvSendungen.RowHeadersVisible = False Me.dgvSendungen.RowHeadersVisible = False
Me.dgvSendungen.RowHeadersWidth = 62 Me.dgvSendungen.RowHeadersWidth = 62
Me.dgvSendungen.RowHeadersWidthSizeMode = System.Windows.Forms.DataGridViewRowHeadersWidthSizeMode.DisableResizing Me.dgvSendungen.RowHeadersWidthSizeMode = System.Windows.Forms.DataGridViewRowHeadersWidthSizeMode.DisableResizing
DataGridViewCellStyle15.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvSendungen.RowsDefaultCellStyle = DataGridViewCellStyle15 Me.dgvSendungen.RowsDefaultCellStyle = DataGridViewCellStyle5
Me.dgvSendungen.RowTemplate.Height = 20 Me.dgvSendungen.RowTemplate.Height = 20
Me.dgvSendungen.RowTemplate.ReadOnly = True Me.dgvSendungen.RowTemplate.ReadOnly = True
Me.dgvSendungen.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[False] Me.dgvSendungen.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[False]
@@ -963,46 +964,46 @@ Partial Class usrcntlAktDetails
Me.gridVermerke.AllowUserToAddRows = False Me.gridVermerke.AllowUserToAddRows = False
Me.gridVermerke.AllowUserToDeleteRows = False Me.gridVermerke.AllowUserToDeleteRows = False
Me.gridVermerke.AllowUserToResizeRows = False Me.gridVermerke.AllowUserToResizeRows = False
DataGridViewCellStyle16.BackColor = System.Drawing.Color.Azure DataGridViewCellStyle6.BackColor = System.Drawing.Color.Azure
DataGridViewCellStyle16.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.gridVermerke.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle16 Me.gridVermerke.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle6
Me.gridVermerke.BackgroundColor = System.Drawing.Color.White Me.gridVermerke.BackgroundColor = System.Drawing.Color.White
DataGridViewCellStyle17.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle7.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle17.BackColor = System.Drawing.Color.LightBlue DataGridViewCellStyle7.BackColor = System.Drawing.Color.LightBlue
DataGridViewCellStyle17.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) DataGridViewCellStyle7.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle17.ForeColor = System.Drawing.SystemColors.WindowText DataGridViewCellStyle7.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle17.SelectionBackColor = System.Drawing.SystemColors.Highlight DataGridViewCellStyle7.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle17.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle7.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle17.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] DataGridViewCellStyle7.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.gridVermerke.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle17 Me.gridVermerke.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle7
Me.gridVermerke.ColumnHeadersHeight = 34 Me.gridVermerke.ColumnHeadersHeight = 34
Me.gridVermerke.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing Me.gridVermerke.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing
DataGridViewCellStyle18.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle8.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle18.BackColor = System.Drawing.SystemColors.Window DataGridViewCellStyle8.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle18.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) DataGridViewCellStyle8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle18.ForeColor = System.Drawing.SystemColors.ControlText DataGridViewCellStyle8.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle18.SelectionBackColor = System.Drawing.SystemColors.Highlight DataGridViewCellStyle8.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle18.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle8.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle18.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] DataGridViewCellStyle8.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.gridVermerke.DefaultCellStyle = DataGridViewCellStyle18 Me.gridVermerke.DefaultCellStyle = DataGridViewCellStyle8
Me.gridVermerke.Dock = System.Windows.Forms.DockStyle.Fill Me.gridVermerke.Dock = System.Windows.Forms.DockStyle.Fill
Me.gridVermerke.Location = New System.Drawing.Point(0, 30) Me.gridVermerke.Location = New System.Drawing.Point(0, 30)
Me.gridVermerke.MultiSelect = False Me.gridVermerke.MultiSelect = False
Me.gridVermerke.Name = "gridVermerke" Me.gridVermerke.Name = "gridVermerke"
Me.gridVermerke.ReadOnly = True Me.gridVermerke.ReadOnly = True
DataGridViewCellStyle19.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle9.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle19.BackColor = System.Drawing.SystemColors.Control DataGridViewCellStyle9.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle19.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) DataGridViewCellStyle9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle19.ForeColor = System.Drawing.SystemColors.WindowText DataGridViewCellStyle9.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle19.SelectionBackColor = System.Drawing.SystemColors.Highlight DataGridViewCellStyle9.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle19.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle9.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle19.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] DataGridViewCellStyle9.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.gridVermerke.RowHeadersDefaultCellStyle = DataGridViewCellStyle19 Me.gridVermerke.RowHeadersDefaultCellStyle = DataGridViewCellStyle9
Me.gridVermerke.RowHeadersVisible = False Me.gridVermerke.RowHeadersVisible = False
Me.gridVermerke.RowHeadersWidth = 62 Me.gridVermerke.RowHeadersWidth = 62
Me.gridVermerke.RowHeadersWidthSizeMode = System.Windows.Forms.DataGridViewRowHeadersWidthSizeMode.DisableResizing Me.gridVermerke.RowHeadersWidthSizeMode = System.Windows.Forms.DataGridViewRowHeadersWidthSizeMode.DisableResizing
DataGridViewCellStyle20.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] DataGridViewCellStyle10.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.gridVermerke.RowsDefaultCellStyle = DataGridViewCellStyle20 Me.gridVermerke.RowsDefaultCellStyle = DataGridViewCellStyle10
Me.gridVermerke.RowTemplate.Height = 20 Me.gridVermerke.RowTemplate.Height = 20
Me.gridVermerke.RowTemplate.ReadOnly = True Me.gridVermerke.RowTemplate.ReadOnly = True
Me.gridVermerke.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[False] Me.gridVermerke.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[False]
@@ -1939,6 +1940,7 @@ Partial Class usrcntlAktDetails
Me.pnlOptionen.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.pnlOptionen.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.pnlOptionen.BackColor = System.Drawing.Color.Black Me.pnlOptionen.BackColor = System.Drawing.Color.Black
Me.pnlOptionen.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle Me.pnlOptionen.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.pnlOptionen.Controls.Add(Me.Button15)
Me.pnlOptionen.Controls.Add(Me.Button6) Me.pnlOptionen.Controls.Add(Me.Button6)
Me.pnlOptionen.Controls.Add(Me.Button4) Me.pnlOptionen.Controls.Add(Me.Button4)
Me.pnlOptionen.Controls.Add(Me.btnWlanTicket) Me.pnlOptionen.Controls.Add(Me.btnWlanTicket)
@@ -1963,7 +1965,7 @@ Partial Class usrcntlAktDetails
Me.Button6.ImageAlign = System.Drawing.ContentAlignment.MiddleRight Me.Button6.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button6.Location = New System.Drawing.Point(3, 214) Me.Button6.Location = New System.Drawing.Point(3, 214)
Me.Button6.Name = "Button6" Me.Button6.Name = "Button6"
Me.Button6.Size = New System.Drawing.Size(109, 28) Me.Button6.Size = New System.Drawing.Size(71, 28)
Me.Button6.TabIndex = 105 Me.Button6.TabIndex = 105
Me.Button6.TabStop = False Me.Button6.TabStop = False
Me.Button6.Text = "Status Mail" Me.Button6.Text = "Status Mail"
@@ -2096,6 +2098,22 @@ Partial Class usrcntlAktDetails
Me.Button10.TextAlign = System.Drawing.ContentAlignment.MiddleLeft Me.Button10.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button10.UseVisualStyleBackColor = False Me.Button10.UseVisualStyleBackColor = False
' '
'Button15
'
Me.Button15.BackColor = System.Drawing.Color.White
Me.Button15.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button15.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.Button15.ForeColor = System.Drawing.Color.Black
Me.Button15.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button15.Location = New System.Drawing.Point(72, 214)
Me.Button15.Name = "Button15"
Me.Button15.Size = New System.Drawing.Size(39, 28)
Me.Button15.TabIndex = 107
Me.Button15.TabStop = False
Me.Button15.Text = "To"
Me.Button15.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button15.UseVisualStyleBackColor = False
'
'usrcntlAktDetails 'usrcntlAktDetails
' '
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None
@@ -2287,4 +2305,5 @@ Partial Class usrcntlAktDetails
Friend WithEvents Button4 As Button Friend WithEvents Button4 As Button
Friend WithEvents Button6 As Button Friend WithEvents Button6 As Button
Friend WithEvents Button10 As Button Friend WithEvents Button10 As Button
Friend WithEvents Button15 As Button
End Class End Class

94
Aviso/usrcntlAktDetails.vb
View File

@@ -864,7 +864,7 @@ Public Class usrcntlAktDetails
Dim hSQL As String = " SELECT TOP 1000 [VermerkID],[AvisoID], [SendungID],[VermerkeCode], [Datum],[MitarbeiterId],tblSendungen.tblSnd_PosUnterNr,Hervorheben," & Dim hSQL As String = " SELECT TOP 1000 [VermerkID],[AvisoID], [SendungID],[VermerkeCode], [Datum],[MitarbeiterId],tblSendungen.tblSnd_PosUnterNr,Hervorheben," &
" CASE WHEN VermerkeCode IS NULL OR VermerkeCode IN (13,25,28,29,30,35,46,47) THEN Hinweis_Vermerk ELSE VermerkeCodes.Bezeichnung END as [Hinweis_Vermerk_Anzeige],[Hinweis_Vermerk], tblSendungen.tblSnd_Empfaenger ,[Mitarbeiter],VorauskasseId,SMSId" & " CASE WHEN VermerkeCode IS NULL OR VermerkeCode IN (13,25,28,29,30,35,46,47,94) THEN Hinweis_Vermerk ELSE VermerkeCodes.Bezeichnung END as [Hinweis_Vermerk_Anzeige],[Hinweis_Vermerk], tblSendungen.tblSnd_Empfaenger ,[Mitarbeiter],VorauskasseId,SMSId" &
" FROM [Vermerke] LEFT JOIN VermerkeCodes ON [VermerkeCode]=VermerkeCodes.VermerkCodeId " & " FROM [Vermerke] LEFT JOIN VermerkeCodes ON [VermerkeCode]=VermerkeCodes.VermerkCodeId " &
" LEFT JOIN tblSendungen ON [SendungID]=tblSendungen.tblSnd_SendungID " & " LEFT JOIN tblSendungen ON [SendungID]=tblSendungen.tblSnd_SendungID " &
" WHERE AvisoID = " & AvisoID & " " & sendwhere & " " & " WHERE AvisoID = " & AvisoID & " " & sendwhere & " " &
@@ -2981,8 +2981,84 @@ Public Class usrcntlAktDetails
Private Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click Private Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click
'If vbYes = MsgBox("Möchten Sie alle Aktendeckel drucken?", vbYesNoCancel) Then
' Me.Cursor = Cursors.WaitCursor
' Dim SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen)
' VERAG_PROG_ALLGEMEIN.cSendungen.LOAD_LIST(SENDUNG_LIST, -1, AvisoID) 'LÄDT alle SENDUNGSDATEN
' For Each s In SENDUNG_LIST
' If checkcbxAlleFirmen(s.FilialenNr) Then
' If Not s.tblSnd_Fremdspedition Then If CInt(s.AbfertigungsNr) < 100000 Then MsgBox("Es wurden nicht alle Abfertigungsnummern vergeben!") : Exit Sub
' End If
' Next
' Dim Printername = ""
' Dim oPS As New System.Drawing.Printing.PrinterSettings
' Try
' Printername = oPS.PrinterName
' Catch ex As System.Exception
' End Try
' 'Dim trd = New Threading.Thread(Sub()
' For Each s In SENDUNG_LIST
' If checkcbxAlleFirmen(s.FilialenNr) Then
' If Not s.tblSnd_Fremdspedition Then SendungOptions.PrintSendung("PRINT", s, AVISO, Printername,, SENDUNG_LIST.Count)
' End If
' Next
' ' End Sub)
' ' trd.IsBackground = True : trd.Start()
' Me.Cursor = Cursors.Default
'End If
Dim Printername = ""
Dim oPS As New System.Drawing.Printing.PrinterSettings
Try
Printername = oPS.PrinterName
Catch ex As System.Exception
End Try
If vbYes = MsgBox("Möchten Sie alle Aktendeckel drucken?", vbYesNoCancel) Then If vbYes = MsgBox("Möchten Sie alle Aktendeckel drucken?", vbYesNoCancel) Then
Me.Cursor = Cursors.WaitCursor
Console.WriteLine("bla1")
Debug.WriteLine("bla2")
Dim t As New Threading.Thread(Sub(AvisoIDTT)
Dim AVISO_Tmp As VERAG_PROG_ALLGEMEIN.cAviso = AvisoDAL.LesenAviso(AvisoIDTT, "")
Dim SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen)
VERAG_PROG_ALLGEMEIN.cSendungen.LOAD_LIST(SENDUNG_LIST, -1, AvisoIDTT) 'LÄDT alle SENDUNGSDATEN
Console.WriteLine("AvisoId: " & AvisoIDTT)
Debug.WriteLine("AvisoId: " & AvisoIDTT)
Console.WriteLine("LKW_Nr: " & AVISO_Tmp.LKW_Nr)
Debug.WriteLine("LKW_Nr: " & AVISO_Tmp.LKW_Nr)
For Each s In SENDUNG_LIST
If checkcbxAlleFirmen(s.FilialenNr) Then
If Not s.tblSnd_Fremdspedition Then If CInt(s.AbfertigungsNr) < 100000 Then MsgBox("Es wurden nicht alle Abfertigungsnummern vergeben!") : Exit Sub
End If
Next
'Dim trd = New Threading.Thread(Sub()
For Each s In SENDUNG_LIST
Console.WriteLine("AvisoId: " & AvisoIDTT)
Debug.WriteLine("AvisoId: " & AvisoIDTT)
Console.WriteLine("LKW_Nr: " & AVISO_Tmp.LKW_Nr)
Debug.WriteLine("LKW_Nr: " & AVISO_Tmp.LKW_Nr)
If checkcbxAlleFirmen(s.FilialenNr) Then
If Not s.tblSnd_Fremdspedition Then SendungOptions.PrintSendung("PRINT", s, AVISO_Tmp, Printername,, SENDUNG_LIST.Count)
End If
Next
End Sub)
t.Start(AvisoID)
t.IsBackground = True
Panel4.Visible = False
End If
End Sub
Sub tread_printAlleAktendeckel()
' Me.Cursor = Cursors.WaitCursor
Dim SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen) Dim SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen)
VERAG_PROG_ALLGEMEIN.cSendungen.LOAD_LIST(SENDUNG_LIST, -1, AvisoID) 'LÄDT alle SENDUNGSDATEN VERAG_PROG_ALLGEMEIN.cSendungen.LOAD_LIST(SENDUNG_LIST, -1, AvisoID) 'LÄDT alle SENDUNGSDATEN
@@ -3007,10 +3083,11 @@ Public Class usrcntlAktDetails
Next Next
' End Sub) ' End Sub)
' trd.IsBackground = True : trd.Start() ' trd.IsBackground = True : trd.Start()
Me.Cursor = Cursors.Default ' Me.Cursor = Cursors.Default
End If
End Sub End Sub
Sub addVPList(ByRef MAIL_BODY As String, VP_Enum As List(Of String)) Sub addVPList(ByRef MAIL_BODY As String, VP_Enum As List(Of String))
Dim Platzhalter = "<br><br><table style=""font-family:Calibri;"" border=""1"" bordercolor=""#000"" cellspacing=""0"">" Dim Platzhalter = "<br><br><table style=""font-family:Calibri;"" border=""1"" bordercolor=""#000"" cellspacing=""0"">"
Platzhalter &= "<tr><th width=200>Vorpapier:</th><th width=200></th><th></th></tr>" Platzhalter &= "<tr><th width=200>Vorpapier:</th><th width=200></th><th></th></tr>"
@@ -3379,5 +3456,14 @@ Public Class usrcntlAktDetails
AvisoStatusFunctions.SendAnkunftEmail(AVISO, mailTo) AvisoStatusFunctions.SendAnkunftEmail(AVISO, mailTo)
End If End If
End Sub End Sub
Private Sub Button15_Click(sender As Object, e As EventArgs) Handles Button15.Click
Dim mailTo = InputBox("Freigabe-Mail senden an:")
'If vbYes = MsgBox("Freigabe-Mail wirklich senden?", vbYesNoCancel) Then
If mailTo <> "" Then
AvisoStatusFunctions.SendStatusEmail(AVISO, mailTo)
End If
End Sub
End Class End Class

201
Aviso/usrcntlAktDetailsATILLANeu.Designer.vb generated
View File

@@ -33,12 +33,12 @@ Partial Class usrcntlAktDetailsATILLANeu
Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(usrcntlAktDetailsATILLANeu))
Dim DataGridViewCellStyle11 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle11 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle12 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle12 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle13 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle13 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle14 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle14 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle15 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle15 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(usrcntlAktDetailsATILLANeu))
Dim DataGridViewCellStyle16 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle16 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle17 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle17 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle18 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle18 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
@@ -62,12 +62,12 @@ Partial Class usrcntlAktDetailsATILLANeu
Me.btn = New System.Windows.Forms.Button() Me.btn = New System.Windows.Forms.Button()
Me.Label1 = New System.Windows.Forms.Label() Me.Label1 = New System.Windows.Forms.Label()
Me.tbAnhaenge = New System.Windows.Forms.TabPage() Me.tbAnhaenge = New System.Windows.Forms.TabPage()
Me.dgvanhaenge = New System.Windows.Forms.DataGridView()
Me.Panel5 = New System.Windows.Forms.Panel() Me.Panel5 = New System.Windows.Forms.Panel()
Me.btnQuckScan = New System.Windows.Forms.Button() Me.btnQuckScan = New System.Windows.Forms.Button()
Me.Button11 = New System.Windows.Forms.Button() Me.Button11 = New System.Windows.Forms.Button()
Me.Button4 = New System.Windows.Forms.Button() Me.Button4 = New System.Windows.Forms.Button()
Me.Button10 = New System.Windows.Forms.Button() Me.Button10 = New System.Windows.Forms.Button()
Me.dgvanhaenge = New System.Windows.Forms.DataGridView()
Me.Panel7 = New System.Windows.Forms.Panel() Me.Panel7 = New System.Windows.Forms.Panel()
Me.gridVermerke = New System.Windows.Forms.DataGridView() Me.gridVermerke = New System.Windows.Forms.DataGridView()
Me.pnlVermerkeTop = New System.Windows.Forms.Panel() Me.pnlVermerkeTop = New System.Windows.Forms.Panel()
@@ -106,6 +106,9 @@ Partial Class usrcntlAktDetailsATILLANeu
Me.btnErfasst = New System.Windows.Forms.Button() Me.btnErfasst = New System.Windows.Forms.Button()
Me.lblTimeErfasst = New System.Windows.Forms.Label() Me.lblTimeErfasst = New System.Windows.Forms.Label()
Me.Panel10 = New System.Windows.Forms.Panel() Me.Panel10 = New System.Windows.Forms.Panel()
Me.Panel6 = New System.Windows.Forms.Panel()
Me.Button12 = New System.Windows.Forms.Button()
Me.Label7 = New System.Windows.Forms.Label()
Me.Panel13 = New System.Windows.Forms.Panel() Me.Panel13 = New System.Windows.Forms.Panel()
Me.btnVorgeschrieben = New System.Windows.Forms.Button() Me.btnVorgeschrieben = New System.Windows.Forms.Button()
Me.lblTimeVorgeschreiben = New System.Windows.Forms.Label() Me.lblTimeVorgeschreiben = New System.Windows.Forms.Label()
@@ -154,8 +157,8 @@ Partial Class usrcntlAktDetailsATILLANeu
CType(Me.dgvSpeditionsbuch, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.dgvSpeditionsbuch, System.ComponentModel.ISupportInitialize).BeginInit()
Me.pnlSendungenTop.SuspendLayout() Me.pnlSendungenTop.SuspendLayout()
Me.tbAnhaenge.SuspendLayout() Me.tbAnhaenge.SuspendLayout()
Me.Panel5.SuspendLayout()
CType(Me.dgvanhaenge, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.dgvanhaenge, System.ComponentModel.ISupportInitialize).BeginInit()
Me.Panel5.SuspendLayout()
CType(Me.gridVermerke, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.gridVermerke, System.ComponentModel.ISupportInitialize).BeginInit()
Me.pnlVermerkeTop.SuspendLayout() Me.pnlVermerkeTop.SuspendLayout()
Me.Panel8.SuspendLayout() Me.Panel8.SuspendLayout()
@@ -164,6 +167,7 @@ Partial Class usrcntlAktDetailsATILLANeu
CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
Me.FlowLayoutPanel.SuspendLayout() Me.FlowLayoutPanel.SuspendLayout()
Me.Panel9.SuspendLayout() Me.Panel9.SuspendLayout()
Me.Panel6.SuspendLayout()
Me.Panel13.SuspendLayout() Me.Panel13.SuspendLayout()
Me.Panel11.SuspendLayout() Me.Panel11.SuspendLayout()
Me.Panel12.SuspendLayout() Me.Panel12.SuspendLayout()
@@ -198,9 +202,9 @@ Partial Class usrcntlAktDetailsATILLANeu
Me.Panel3.Controls.Add(Me.SplitContainer) Me.Panel3.Controls.Add(Me.SplitContainer)
Me.Panel3.Controls.Add(Me.Panel8) Me.Panel3.Controls.Add(Me.Panel8)
Me.Panel3.Dock = System.Windows.Forms.DockStyle.Fill Me.Panel3.Dock = System.Windows.Forms.DockStyle.Fill
Me.Panel3.Location = New System.Drawing.Point(0, 197) Me.Panel3.Location = New System.Drawing.Point(0, 198)
Me.Panel3.Name = "Panel3" Me.Panel3.Name = "Panel3"
Me.Panel3.Size = New System.Drawing.Size(575, 450) Me.Panel3.Size = New System.Drawing.Size(575, 449)
Me.Panel3.TabIndex = 91 Me.Panel3.TabIndex = 91
' '
'SplitContainer 'SplitContainer
@@ -222,8 +226,8 @@ Partial Class usrcntlAktDetailsATILLANeu
Me.SplitContainer.Panel2.Controls.Add(Me.gridVermerke) Me.SplitContainer.Panel2.Controls.Add(Me.gridVermerke)
Me.SplitContainer.Panel2.Controls.Add(Me.pnlVermerkeTop) Me.SplitContainer.Panel2.Controls.Add(Me.pnlVermerkeTop)
Me.SplitContainer.Panel2.Controls.Add(Me.addVermerk) Me.SplitContainer.Panel2.Controls.Add(Me.addVermerk)
Me.SplitContainer.Size = New System.Drawing.Size(575, 284) Me.SplitContainer.Size = New System.Drawing.Size(575, 283)
Me.SplitContainer.SplitterDistance = 184 Me.SplitContainer.SplitterDistance = 183
Me.SplitContainer.TabIndex = 91 Me.SplitContainer.TabIndex = 91
' '
'tbcntr 'tbcntr
@@ -236,7 +240,7 @@ Partial Class usrcntlAktDetailsATILLANeu
Me.tbcntr.Location = New System.Drawing.Point(0, 0) Me.tbcntr.Location = New System.Drawing.Point(0, 0)
Me.tbcntr.Name = "tbcntr" Me.tbcntr.Name = "tbcntr"
Me.tbcntr.SelectedIndex = 0 Me.tbcntr.SelectedIndex = 0
Me.tbcntr.Size = New System.Drawing.Size(575, 184) Me.tbcntr.Size = New System.Drawing.Size(575, 183)
Me.tbcntr.TabIndex = 100 Me.tbcntr.TabIndex = 100
' '
'tbVermerke 'tbVermerke
@@ -245,7 +249,7 @@ Partial Class usrcntlAktDetailsATILLANeu
Me.tbVermerke.Location = New System.Drawing.Point(4, 22) Me.tbVermerke.Location = New System.Drawing.Point(4, 22)
Me.tbVermerke.Name = "tbVermerke" Me.tbVermerke.Name = "tbVermerke"
Me.tbVermerke.Padding = New System.Windows.Forms.Padding(3) Me.tbVermerke.Padding = New System.Windows.Forms.Padding(3)
Me.tbVermerke.Size = New System.Drawing.Size(567, 158) Me.tbVermerke.Size = New System.Drawing.Size(567, 157)
Me.tbVermerke.TabIndex = 0 Me.tbVermerke.TabIndex = 0
Me.tbVermerke.Text = "Vermerk eintragen" Me.tbVermerke.Text = "Vermerk eintragen"
Me.tbVermerke.UseVisualStyleBackColor = True Me.tbVermerke.UseVisualStyleBackColor = True
@@ -258,7 +262,7 @@ Partial Class usrcntlAktDetailsATILLANeu
Me.UsrCntlVermerkeATilla1.Location = New System.Drawing.Point(3, 3) Me.UsrCntlVermerkeATilla1.Location = New System.Drawing.Point(3, 3)
Me.UsrCntlVermerkeATilla1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) Me.UsrCntlVermerkeATilla1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.UsrCntlVermerkeATilla1.Name = "UsrCntlVermerkeATilla1" Me.UsrCntlVermerkeATilla1.Name = "UsrCntlVermerkeATilla1"
Me.UsrCntlVermerkeATilla1.Size = New System.Drawing.Size(561, 152) Me.UsrCntlVermerkeATilla1.Size = New System.Drawing.Size(561, 151)
Me.UsrCntlVermerkeATilla1.TabIndex = 0 Me.UsrCntlVermerkeATilla1.TabIndex = 0
' '
'tbZollanmeldungen 'tbZollanmeldungen
@@ -266,7 +270,7 @@ Partial Class usrcntlAktDetailsATILLANeu
Me.tbZollanmeldungen.Controls.Add(Me.Panel1) Me.tbZollanmeldungen.Controls.Add(Me.Panel1)
Me.tbZollanmeldungen.Location = New System.Drawing.Point(4, 22) Me.tbZollanmeldungen.Location = New System.Drawing.Point(4, 22)
Me.tbZollanmeldungen.Name = "tbZollanmeldungen" Me.tbZollanmeldungen.Name = "tbZollanmeldungen"
Me.tbZollanmeldungen.Size = New System.Drawing.Size(567, 158) Me.tbZollanmeldungen.Size = New System.Drawing.Size(567, 157)
Me.tbZollanmeldungen.TabIndex = 2 Me.tbZollanmeldungen.TabIndex = 2
Me.tbZollanmeldungen.Text = "Zollanmeldungen" Me.tbZollanmeldungen.Text = "Zollanmeldungen"
Me.tbZollanmeldungen.UseVisualStyleBackColor = True Me.tbZollanmeldungen.UseVisualStyleBackColor = True
@@ -279,7 +283,7 @@ Partial Class usrcntlAktDetailsATILLANeu
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill
Me.Panel1.Location = New System.Drawing.Point(0, 0) Me.Panel1.Location = New System.Drawing.Point(0, 0)
Me.Panel1.Name = "Panel1" Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(567, 158) Me.Panel1.Size = New System.Drawing.Size(567, 157)
Me.Panel1.TabIndex = 0 Me.Panel1.TabIndex = 0
' '
'dgvZollAnmeldungen 'dgvZollAnmeldungen
@@ -331,7 +335,7 @@ Partial Class usrcntlAktDetailsATILLANeu
Me.dgvZollAnmeldungen.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect Me.dgvZollAnmeldungen.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.dgvZollAnmeldungen.ShowCellErrors = False Me.dgvZollAnmeldungen.ShowCellErrors = False
Me.dgvZollAnmeldungen.ShowRowErrors = False Me.dgvZollAnmeldungen.ShowRowErrors = False
Me.dgvZollAnmeldungen.Size = New System.Drawing.Size(565, 125) Me.dgvZollAnmeldungen.Size = New System.Drawing.Size(565, 124)
Me.dgvZollAnmeldungen.TabIndex = 102 Me.dgvZollAnmeldungen.TabIndex = 102
Me.dgvZollAnmeldungen.TabStop = False Me.dgvZollAnmeldungen.TabStop = False
' '
@@ -376,7 +380,7 @@ Partial Class usrcntlAktDetailsATILLANeu
Me.tbSpedBuch.Location = New System.Drawing.Point(4, 22) Me.tbSpedBuch.Location = New System.Drawing.Point(4, 22)
Me.tbSpedBuch.Name = "tbSpedBuch" Me.tbSpedBuch.Name = "tbSpedBuch"
Me.tbSpedBuch.Padding = New System.Windows.Forms.Padding(3) Me.tbSpedBuch.Padding = New System.Windows.Forms.Padding(3)
Me.tbSpedBuch.Size = New System.Drawing.Size(567, 158) Me.tbSpedBuch.Size = New System.Drawing.Size(567, 157)
Me.tbSpedBuch.TabIndex = 1 Me.tbSpedBuch.TabIndex = 1
Me.tbSpedBuch.Text = "Speditionsbuch" Me.tbSpedBuch.Text = "Speditionsbuch"
Me.tbSpedBuch.UseVisualStyleBackColor = True Me.tbSpedBuch.UseVisualStyleBackColor = True
@@ -430,7 +434,7 @@ Partial Class usrcntlAktDetailsATILLANeu
Me.dgvSpeditionsbuch.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect Me.dgvSpeditionsbuch.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.dgvSpeditionsbuch.ShowCellErrors = False Me.dgvSpeditionsbuch.ShowCellErrors = False
Me.dgvSpeditionsbuch.ShowRowErrors = False Me.dgvSpeditionsbuch.ShowRowErrors = False
Me.dgvSpeditionsbuch.Size = New System.Drawing.Size(561, 121) Me.dgvSpeditionsbuch.Size = New System.Drawing.Size(561, 120)
Me.dgvSpeditionsbuch.TabIndex = 101 Me.dgvSpeditionsbuch.TabIndex = 101
Me.dgvSpeditionsbuch.TabStop = False Me.dgvSpeditionsbuch.TabStop = False
' '
@@ -475,11 +479,63 @@ Partial Class usrcntlAktDetailsATILLANeu
Me.tbAnhaenge.Location = New System.Drawing.Point(4, 22) Me.tbAnhaenge.Location = New System.Drawing.Point(4, 22)
Me.tbAnhaenge.Name = "tbAnhaenge" Me.tbAnhaenge.Name = "tbAnhaenge"
Me.tbAnhaenge.Padding = New System.Windows.Forms.Padding(3) Me.tbAnhaenge.Padding = New System.Windows.Forms.Padding(3)
Me.tbAnhaenge.Size = New System.Drawing.Size(567, 158) Me.tbAnhaenge.Size = New System.Drawing.Size(567, 157)
Me.tbAnhaenge.TabIndex = 3 Me.tbAnhaenge.TabIndex = 3
Me.tbAnhaenge.Text = "Anhänge" Me.tbAnhaenge.Text = "Anhänge"
Me.tbAnhaenge.UseVisualStyleBackColor = True Me.tbAnhaenge.UseVisualStyleBackColor = True
' '
'dgvanhaenge
'
Me.dgvanhaenge.AllowUserToAddRows = False
Me.dgvanhaenge.AllowUserToDeleteRows = False
Me.dgvanhaenge.AllowUserToResizeRows = False
DataGridViewCellStyle11.BackColor = System.Drawing.Color.Azure
DataGridViewCellStyle11.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvanhaenge.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle11
Me.dgvanhaenge.BackgroundColor = System.Drawing.Color.White
DataGridViewCellStyle12.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle12.BackColor = System.Drawing.Color.LightBlue
DataGridViewCellStyle12.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle12.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle12.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle12.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle12.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvanhaenge.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle12
Me.dgvanhaenge.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing
DataGridViewCellStyle13.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle13.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle13.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle13.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle13.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle13.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle13.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.dgvanhaenge.DefaultCellStyle = DataGridViewCellStyle13
Me.dgvanhaenge.Dock = System.Windows.Forms.DockStyle.Fill
Me.dgvanhaenge.Location = New System.Drawing.Point(3, 3)
Me.dgvanhaenge.Name = "dgvanhaenge"
Me.dgvanhaenge.ReadOnly = True
DataGridViewCellStyle14.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle14.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle14.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle14.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle14.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle14.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle14.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvanhaenge.RowHeadersDefaultCellStyle = DataGridViewCellStyle14
Me.dgvanhaenge.RowHeadersVisible = False
Me.dgvanhaenge.RowHeadersWidthSizeMode = System.Windows.Forms.DataGridViewRowHeadersWidthSizeMode.DisableResizing
DataGridViewCellStyle15.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvanhaenge.RowsDefaultCellStyle = DataGridViewCellStyle15
Me.dgvanhaenge.RowTemplate.Height = 30
Me.dgvanhaenge.RowTemplate.ReadOnly = True
Me.dgvanhaenge.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[False]
Me.dgvanhaenge.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.dgvanhaenge.ShowCellErrors = False
Me.dgvanhaenge.ShowRowErrors = False
Me.dgvanhaenge.Size = New System.Drawing.Size(561, 113)
Me.dgvanhaenge.TabIndex = 102
Me.dgvanhaenge.TabStop = False
'
'Panel5 'Panel5
' '
Me.Panel5.Controls.Add(Me.btnQuckScan) Me.Panel5.Controls.Add(Me.btnQuckScan)
@@ -487,7 +543,7 @@ Partial Class usrcntlAktDetailsATILLANeu
Me.Panel5.Controls.Add(Me.Button4) Me.Panel5.Controls.Add(Me.Button4)
Me.Panel5.Controls.Add(Me.Button10) Me.Panel5.Controls.Add(Me.Button10)
Me.Panel5.Dock = System.Windows.Forms.DockStyle.Bottom Me.Panel5.Dock = System.Windows.Forms.DockStyle.Bottom
Me.Panel5.Location = New System.Drawing.Point(3, 117) Me.Panel5.Location = New System.Drawing.Point(3, 116)
Me.Panel5.Name = "Panel5" Me.Panel5.Name = "Panel5"
Me.Panel5.Size = New System.Drawing.Size(561, 38) Me.Panel5.Size = New System.Drawing.Size(561, 38)
Me.Panel5.TabIndex = 112 Me.Panel5.TabIndex = 112
@@ -548,58 +604,6 @@ Partial Class usrcntlAktDetailsATILLANeu
Me.Button10.TextAlign = System.Drawing.ContentAlignment.MiddleRight Me.Button10.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button10.UseVisualStyleBackColor = True Me.Button10.UseVisualStyleBackColor = True
' '
'dgvanhaenge
'
Me.dgvanhaenge.AllowUserToAddRows = False
Me.dgvanhaenge.AllowUserToDeleteRows = False
Me.dgvanhaenge.AllowUserToResizeRows = False
DataGridViewCellStyle11.BackColor = System.Drawing.Color.Azure
DataGridViewCellStyle11.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvanhaenge.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle11
Me.dgvanhaenge.BackgroundColor = System.Drawing.Color.White
DataGridViewCellStyle12.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle12.BackColor = System.Drawing.Color.LightBlue
DataGridViewCellStyle12.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle12.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle12.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle12.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle12.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvanhaenge.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle12
Me.dgvanhaenge.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing
DataGridViewCellStyle13.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle13.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle13.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle13.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle13.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle13.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle13.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.dgvanhaenge.DefaultCellStyle = DataGridViewCellStyle13
Me.dgvanhaenge.Dock = System.Windows.Forms.DockStyle.Fill
Me.dgvanhaenge.Location = New System.Drawing.Point(3, 3)
Me.dgvanhaenge.Name = "dgvanhaenge"
Me.dgvanhaenge.ReadOnly = True
DataGridViewCellStyle14.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle14.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle14.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle14.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle14.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle14.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle14.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvanhaenge.RowHeadersDefaultCellStyle = DataGridViewCellStyle14
Me.dgvanhaenge.RowHeadersVisible = False
Me.dgvanhaenge.RowHeadersWidthSizeMode = System.Windows.Forms.DataGridViewRowHeadersWidthSizeMode.DisableResizing
DataGridViewCellStyle15.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvanhaenge.RowsDefaultCellStyle = DataGridViewCellStyle15
Me.dgvanhaenge.RowTemplate.Height = 30
Me.dgvanhaenge.RowTemplate.ReadOnly = True
Me.dgvanhaenge.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[False]
Me.dgvanhaenge.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.dgvanhaenge.ShowCellErrors = False
Me.dgvanhaenge.ShowRowErrors = False
Me.dgvanhaenge.Size = New System.Drawing.Size(374, 76)
Me.dgvanhaenge.TabIndex = 102
Me.dgvanhaenge.TabStop = False
'
'Panel7 'Panel7
' '
Me.Panel7.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ Me.Panel7.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
@@ -608,7 +612,7 @@ Partial Class usrcntlAktDetailsATILLANeu
Me.Panel7.Location = New System.Drawing.Point(4, 19) Me.Panel7.Location = New System.Drawing.Point(4, 19)
Me.Panel7.MaximumSize = New System.Drawing.Size(2, 250) Me.Panel7.MaximumSize = New System.Drawing.Size(2, 250)
Me.Panel7.Name = "Panel7" Me.Panel7.Name = "Panel7"
Me.Panel7.Size = New System.Drawing.Size(1, 56) Me.Panel7.Size = New System.Drawing.Size(1, 55)
Me.Panel7.TabIndex = 15 Me.Panel7.TabIndex = 15
' '
'gridVermerke 'gridVermerke
@@ -1121,6 +1125,7 @@ Partial Class usrcntlAktDetailsATILLANeu
Me.FlowLayoutPanel.AutoSize = True Me.FlowLayoutPanel.AutoSize = True
Me.FlowLayoutPanel.Controls.Add(Me.Panel9) Me.FlowLayoutPanel.Controls.Add(Me.Panel9)
Me.FlowLayoutPanel.Controls.Add(Me.Panel10) Me.FlowLayoutPanel.Controls.Add(Me.Panel10)
Me.FlowLayoutPanel.Controls.Add(Me.Panel6)
Me.FlowLayoutPanel.Controls.Add(Me.Panel13) Me.FlowLayoutPanel.Controls.Add(Me.Panel13)
Me.FlowLayoutPanel.Controls.Add(Me.Panel11) Me.FlowLayoutPanel.Controls.Add(Me.Panel11)
Me.FlowLayoutPanel.Controls.Add(Me.Panel12) Me.FlowLayoutPanel.Controls.Add(Me.Panel12)
@@ -1128,7 +1133,7 @@ Partial Class usrcntlAktDetailsATILLANeu
Me.FlowLayoutPanel.Dock = System.Windows.Forms.DockStyle.Top Me.FlowLayoutPanel.Dock = System.Windows.Forms.DockStyle.Top
Me.FlowLayoutPanel.Location = New System.Drawing.Point(0, 36) Me.FlowLayoutPanel.Location = New System.Drawing.Point(0, 36)
Me.FlowLayoutPanel.Name = "FlowLayoutPanel" Me.FlowLayoutPanel.Name = "FlowLayoutPanel"
Me.FlowLayoutPanel.Size = New System.Drawing.Size(575, 161) Me.FlowLayoutPanel.Size = New System.Drawing.Size(575, 162)
Me.FlowLayoutPanel.TabIndex = 13 Me.FlowLayoutPanel.TabIndex = 13
' '
'Panel9 'Panel9
@@ -1178,12 +1183,51 @@ Partial Class usrcntlAktDetailsATILLANeu
Me.Panel10.Size = New System.Drawing.Size(0, 0) Me.Panel10.Size = New System.Drawing.Size(0, 0)
Me.Panel10.TabIndex = 16 Me.Panel10.TabIndex = 16
' '
'Panel6
'
Me.Panel6.AutoSize = True
Me.Panel6.Controls.Add(Me.Button12)
Me.Panel6.Controls.Add(Me.Label7)
Me.Panel6.Location = New System.Drawing.Point(132, 3)
Me.Panel6.Name = "Panel6"
Me.Panel6.Size = New System.Drawing.Size(117, 74)
Me.Panel6.TabIndex = 19
'
'Button12
'
Me.Button12.AutoSize = True
Me.Button12.BackColor = System.Drawing.Color.DarkOrange
Me.Button12.Cursor = System.Windows.Forms.Cursors.Hand
Me.Button12.Dock = System.Windows.Forms.DockStyle.Fill
Me.Button12.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button12.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button12.ForeColor = System.Drawing.Color.White
Me.Button12.Location = New System.Drawing.Point(0, 0)
Me.Button12.Margin = New System.Windows.Forms.Padding(0)
Me.Button12.MinimumSize = New System.Drawing.Size(100, 0)
Me.Button12.Name = "Button12"
Me.Button12.Size = New System.Drawing.Size(117, 62)
Me.Button12.TabIndex = 12
Me.Button12.Text = "2. " & Global.Microsoft.VisualBasic.ChrW(10) & "VERIMEX"
Me.Button12.UseVisualStyleBackColor = False
'
'Label7
'
Me.Label7.Dock = System.Windows.Forms.DockStyle.Bottom
Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label7.Location = New System.Drawing.Point(0, 62)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(117, 12)
Me.Label7.TabIndex = 0
Me.Label7.Text = "-"
Me.Label7.TextAlign = System.Drawing.ContentAlignment.TopCenter
'
'Panel13 'Panel13
' '
Me.Panel13.AutoSize = True Me.Panel13.AutoSize = True
Me.Panel13.Controls.Add(Me.btnVorgeschrieben) Me.Panel13.Controls.Add(Me.btnVorgeschrieben)
Me.Panel13.Controls.Add(Me.lblTimeVorgeschreiben) Me.Panel13.Controls.Add(Me.lblTimeVorgeschreiben)
Me.Panel13.Location = New System.Drawing.Point(132, 3) Me.Panel13.Location = New System.Drawing.Point(255, 3)
Me.Panel13.Name = "Panel13" Me.Panel13.Name = "Panel13"
Me.Panel13.Size = New System.Drawing.Size(209, 75) Me.Panel13.Size = New System.Drawing.Size(209, 75)
Me.Panel13.TabIndex = 17 Me.Panel13.TabIndex = 17
@@ -1222,7 +1266,7 @@ Partial Class usrcntlAktDetailsATILLANeu
Me.Panel11.AutoSize = True Me.Panel11.AutoSize = True
Me.Panel11.Controls.Add(Me.btnAnkunft) Me.Panel11.Controls.Add(Me.btnAnkunft)
Me.Panel11.Controls.Add(Me.lblTimeAnkunft) Me.Panel11.Controls.Add(Me.lblTimeAnkunft)
Me.Panel11.Location = New System.Drawing.Point(347, 3) Me.Panel11.Location = New System.Drawing.Point(3, 84)
Me.Panel11.Name = "Panel11" Me.Panel11.Name = "Panel11"
Me.Panel11.Size = New System.Drawing.Size(119, 75) Me.Panel11.Size = New System.Drawing.Size(119, 75)
Me.Panel11.TabIndex = 17 Me.Panel11.TabIndex = 17
@@ -1261,7 +1305,7 @@ Partial Class usrcntlAktDetailsATILLANeu
Me.Panel12.AutoSize = True Me.Panel12.AutoSize = True
Me.Panel12.Controls.Add(Me.btnFreigabe) Me.Panel12.Controls.Add(Me.btnFreigabe)
Me.Panel12.Controls.Add(Me.lblTimeFreigabe) Me.Panel12.Controls.Add(Me.lblTimeFreigabe)
Me.Panel12.Location = New System.Drawing.Point(3, 84) Me.Panel12.Location = New System.Drawing.Point(128, 84)
Me.Panel12.Name = "Panel12" Me.Panel12.Name = "Panel12"
Me.Panel12.Size = New System.Drawing.Size(122, 74) Me.Panel12.Size = New System.Drawing.Size(122, 74)
Me.Panel12.TabIndex = 17 Me.Panel12.TabIndex = 17
@@ -1299,7 +1343,7 @@ Partial Class usrcntlAktDetailsATILLANeu
' '
Me.Panel2.AutoSize = True Me.Panel2.AutoSize = True
Me.Panel2.Controls.Add(Me.btnNichtEingetroffen) Me.Panel2.Controls.Add(Me.btnNichtEingetroffen)
Me.Panel2.Location = New System.Drawing.Point(131, 84) Me.Panel2.Location = New System.Drawing.Point(256, 84)
Me.Panel2.Name = "Panel2" Me.Panel2.Name = "Panel2"
Me.Panel2.Size = New System.Drawing.Size(66, 37) Me.Panel2.Size = New System.Drawing.Size(66, 37)
Me.Panel2.TabIndex = 18 Me.Panel2.TabIndex = 18
@@ -1516,8 +1560,8 @@ Partial Class usrcntlAktDetailsATILLANeu
Me.pnlSendungenTop.ResumeLayout(False) Me.pnlSendungenTop.ResumeLayout(False)
Me.pnlSendungenTop.PerformLayout() Me.pnlSendungenTop.PerformLayout()
Me.tbAnhaenge.ResumeLayout(False) Me.tbAnhaenge.ResumeLayout(False)
Me.Panel5.ResumeLayout(False)
CType(Me.dgvanhaenge, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.dgvanhaenge, System.ComponentModel.ISupportInitialize).EndInit()
Me.Panel5.ResumeLayout(False)
CType(Me.gridVermerke, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.gridVermerke, System.ComponentModel.ISupportInitialize).EndInit()
Me.pnlVermerkeTop.ResumeLayout(False) Me.pnlVermerkeTop.ResumeLayout(False)
Me.pnlVermerkeTop.PerformLayout() Me.pnlVermerkeTop.PerformLayout()
@@ -1531,6 +1575,8 @@ Partial Class usrcntlAktDetailsATILLANeu
Me.FlowLayoutPanel.PerformLayout() Me.FlowLayoutPanel.PerformLayout()
Me.Panel9.ResumeLayout(False) Me.Panel9.ResumeLayout(False)
Me.Panel9.PerformLayout() Me.Panel9.PerformLayout()
Me.Panel6.ResumeLayout(False)
Me.Panel6.PerformLayout()
Me.Panel13.ResumeLayout(False) Me.Panel13.ResumeLayout(False)
Me.Panel13.PerformLayout() Me.Panel13.PerformLayout()
Me.Panel11.ResumeLayout(False) Me.Panel11.ResumeLayout(False)
@@ -1644,4 +1690,7 @@ Partial Class usrcntlAktDetailsATILLANeu
Friend WithEvents Button10 As Button Friend WithEvents Button10 As Button
Friend WithEvents Panel5 As Panel Friend WithEvents Panel5 As Panel
Friend WithEvents Button11 As Button Friend WithEvents Button11 As Button
Friend WithEvents Panel6 As Panel
Friend WithEvents Button12 As Button
Friend WithEvents Label7 As Label
End Class End Class

18
Aviso/usrcntlAktDetailsATILLANeu.vb
View File

@@ -86,6 +86,7 @@ Public Class usrcntlAktDetailsATILLANeu
setVisible(btnVorgeschrieben, v) setVisible(btnVorgeschrieben, v)
setVisible(lblTimeAnkunft, v) setVisible(lblTimeAnkunft, v)
setVisible(lblTimeErfasst, v) setVisible(lblTimeErfasst, v)
setVisible(Label7, v)
setVisible(lblTimeFreigabe, v) setVisible(lblTimeFreigabe, v)
' setVisible(lblTimeVorbereitet, v) ' setVisible(lblTimeVorbereitet, v)
setVisible(lblTimeVorgeschreiben, v) setVisible(lblTimeVorgeschreiben, v)
@@ -240,6 +241,14 @@ Public Class usrcntlAktDetailsATILLANeu
'btnVorgeschrieben.Text = "VORGESCHR." 'btnVorgeschrieben.Text = "VORGESCHR."
'btnVorgeschrieben.Text = "VORGESCHR." 'btnVorgeschrieben.Text = "VORGESCHR."
End If End If
If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("ALLOW_STATUS2_VERIMEX") Then
Panel6.Visible = True
Else
Panel6.Visible = False
End If
dgvZollAnmeldungen.ClearSelection() dgvZollAnmeldungen.ClearSelection()
End Sub End Sub
@@ -302,7 +311,7 @@ Public Class usrcntlAktDetailsATILLANeu
lblTimeErfasst.Text = formatdate(AVISO.Datum) lblTimeErfasst.Text = formatdate(AVISO.Datum)
lblTimeAnkunft.Text = formatdate(AVISO.Ankunft) lblTimeAnkunft.Text = formatdate(AVISO.Ankunft)
lblTimeFreigabe.Text = formatdate(AVISO.Freigabe) lblTimeFreigabe.Text = formatdate(AVISO.Freigabe)
' lblTimeVorbereitet.Text = formatdate(AVISO.Vorbereitet) Label7.Text = formatdate(AVISO.Vorbereitet)
lblTimeVorgeschreiben.Text = formatdate(AVISO.Vorgeschrieben) lblTimeVorgeschreiben.Text = formatdate(AVISO.Vorgeschrieben)
intiAktUebernehmenBtn() intiAktUebernehmenBtn()
@@ -1546,4 +1555,11 @@ Public Class usrcntlAktDetailsATILLANeu
End If End If
End Sub End Sub
Private Sub Button12_Click(sender As Object, e As EventArgs) Handles Button12.Click
If FUNC.setVorbereitet(AvisoID) Then
frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
frmHauptfenster.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
End If
End Sub
End Class End Class

22
AvisoTV/My Project/Resources.Designer.vb generated
View File

@@ -22,7 +22,7 @@ Namespace My.Resources
'''<summary> '''<summary>
''' Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw. ''' Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
'''</summary> '''</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "15.0.0.0"), _ <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "17.0.0.0"), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _ Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _ Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _
@@ -60,6 +60,26 @@ Namespace My.Resources
End Set End Set
End Property End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property Ambar_Logo() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("Ambar_Logo", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property ambar_simple() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("ambar_simple", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary> '''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary> '''</summary>

6
AvisoTV/My Project/Resources.resx
View File

@@ -166,4 +166,10 @@
<data name="okRound" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="okRound" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\okRound.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\okRound.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="ambar_simple" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\..\Diverses\ambar_simple.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Ambar_Logo" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>F:\Grafik\AMBAR\Logo\Ambar-Logo.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
</root> </root>

332
AvisoTV/frmAnzeige.Designer.vb generated
View File

@@ -1,9 +1,9 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _ <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class frmAnzeige Partial Class frmAnzeige
Inherits System.Windows.Forms.Form Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _ <System.Diagnostics.DebuggerNonUserCode()>
Protected Overrides Sub Dispose(ByVal disposing As Boolean) Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try Try
If disposing AndAlso components IsNot Nothing Then If disposing AndAlso components IsNot Nothing Then
@@ -20,31 +20,31 @@ Partial Class frmAnzeige
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich. 'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich. 'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _ <System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent() Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container() Me.components = New System.ComponentModel.Container()
Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle85 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle86 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle92 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle93 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle87 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle88 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle89 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle90 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle91 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle94 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle11 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle95 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle14 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle98 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle15 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle99 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle12 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle96 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmAnzeige)) Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmAnzeige))
Dim DataGridViewCellStyle13 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle97 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle16 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle100 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle17 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle101 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle18 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle102 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle19 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle103 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle20 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle104 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle21 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle105 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Me.gridAnkunft = New System.Windows.Forms.DataGridView() Me.gridAnkunft = New System.Windows.Forms.DataGridView()
Me.colFertig = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.colFertig = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.colLKWNr = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.colLKWNr = New System.Windows.Forms.DataGridViewTextBoxColumn()
@@ -85,7 +85,6 @@ Partial Class frmAnzeige
Me.txtSchrift2 = New System.Windows.Forms.TextBox() Me.txtSchrift2 = New System.Windows.Forms.TextBox()
Me.Label9 = New System.Windows.Forms.Label() Me.Label9 = New System.Windows.Forms.Label()
Me.txtSchrift1 = New System.Windows.Forms.TextBox() Me.txtSchrift1 = New System.Windows.Forms.TextBox()
Me.Label7 = New System.Windows.Forms.Label()
Me.txtBreite = New System.Windows.Forms.TextBox() Me.txtBreite = New System.Windows.Forms.TextBox()
Me.Label6 = New System.Windows.Forms.Label() Me.Label6 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label() Me.Label2 = New System.Windows.Forms.Label()
@@ -136,6 +135,7 @@ Partial Class frmAnzeige
Me.DataGridViewTextBoxColumn6 = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.DataGridViewTextBoxColumn6 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.DataGridViewTextBoxColumn9 = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.DataGridViewTextBoxColumn9 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.DataGridViewTextBoxColumn10 = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.DataGridViewTextBoxColumn10 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.cbxBearbeiter = New System.Windows.Forms.CheckBox()
CType(Me.gridAnkunft, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.gridAnkunft, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.picConnectionProblem, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.picConnectionProblem, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.picVERAG, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.picVERAG, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -149,40 +149,40 @@ Partial Class frmAnzeige
' '
Me.gridAnkunft.AllowUserToAddRows = False Me.gridAnkunft.AllowUserToAddRows = False
Me.gridAnkunft.AllowUserToDeleteRows = False Me.gridAnkunft.AllowUserToDeleteRows = False
DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) DataGridViewCellStyle85.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] DataGridViewCellStyle85.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.gridAnkunft.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1 Me.gridAnkunft.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle85
Me.gridAnkunft.AutoSizeRowsMode = System.Windows.Forms.DataGridViewAutoSizeRowsMode.DisplayedCellsExceptHeaders Me.gridAnkunft.AutoSizeRowsMode = System.Windows.Forms.DataGridViewAutoSizeRowsMode.DisplayedCellsExceptHeaders
Me.gridAnkunft.BackgroundColor = System.Drawing.Color.White Me.gridAnkunft.BackgroundColor = System.Drawing.Color.White
Me.gridAnkunft.ColumnHeadersBorderStyle = System.Windows.Forms.DataGridViewHeaderBorderStyle.[Single] Me.gridAnkunft.ColumnHeadersBorderStyle = System.Windows.Forms.DataGridViewHeaderBorderStyle.[Single]
DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle86.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle2.BackColor = System.Drawing.Color.LightBlue DataGridViewCellStyle86.BackColor = System.Drawing.Color.LightBlue
DataGridViewCellStyle2.Font = New System.Drawing.Font("Tahoma", 15.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) DataGridViewCellStyle86.Font = New System.Drawing.Font("Tahoma", 15.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle2.ForeColor = System.Drawing.SystemColors.WindowText DataGridViewCellStyle86.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle2.SelectionBackColor = System.Drawing.SystemColors.Highlight DataGridViewCellStyle86.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle86.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] DataGridViewCellStyle86.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.gridAnkunft.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle2 Me.gridAnkunft.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle86
Me.gridAnkunft.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.gridAnkunft.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.gridAnkunft.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.colFertig, Me.colLKWNr, Me.colAnkunft, Me.Dauer, Me.letzterMitarbeiter, Me.clmnBuero, Me.clmnImEx, Me.clmnArt}) Me.gridAnkunft.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.colFertig, Me.colLKWNr, Me.colAnkunft, Me.Dauer, Me.letzterMitarbeiter, Me.clmnBuero, Me.clmnImEx, Me.clmnArt})
DataGridViewCellStyle8.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle92.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle8.BackColor = System.Drawing.SystemColors.Window DataGridViewCellStyle92.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) DataGridViewCellStyle92.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle8.ForeColor = System.Drawing.SystemColors.ControlText DataGridViewCellStyle92.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle8.SelectionBackColor = System.Drawing.Color.White DataGridViewCellStyle92.SelectionBackColor = System.Drawing.Color.White
DataGridViewCellStyle8.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle92.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle8.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] DataGridViewCellStyle92.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.gridAnkunft.DefaultCellStyle = DataGridViewCellStyle8 Me.gridAnkunft.DefaultCellStyle = DataGridViewCellStyle92
Me.gridAnkunft.Dock = System.Windows.Forms.DockStyle.Fill Me.gridAnkunft.Dock = System.Windows.Forms.DockStyle.Fill
Me.gridAnkunft.Location = New System.Drawing.Point(424, 21) Me.gridAnkunft.Location = New System.Drawing.Point(424, 21)
Me.gridAnkunft.MultiSelect = False Me.gridAnkunft.MultiSelect = False
Me.gridAnkunft.Name = "gridAnkunft" Me.gridAnkunft.Name = "gridAnkunft"
Me.gridAnkunft.ReadOnly = True Me.gridAnkunft.ReadOnly = True
Me.gridAnkunft.RowHeadersVisible = False Me.gridAnkunft.RowHeadersVisible = False
DataGridViewCellStyle9.BackColor = System.Drawing.Color.White DataGridViewCellStyle93.BackColor = System.Drawing.Color.White
DataGridViewCellStyle9.SelectionBackColor = System.Drawing.Color.White DataGridViewCellStyle93.SelectionBackColor = System.Drawing.Color.White
DataGridViewCellStyle9.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] DataGridViewCellStyle93.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.gridAnkunft.RowsDefaultCellStyle = DataGridViewCellStyle9 Me.gridAnkunft.RowsDefaultCellStyle = DataGridViewCellStyle93
Me.gridAnkunft.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[True] Me.gridAnkunft.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[True]
Me.gridAnkunft.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect Me.gridAnkunft.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.gridAnkunft.Size = New System.Drawing.Size(826, 444) Me.gridAnkunft.Size = New System.Drawing.Size(826, 444)
@@ -191,11 +191,11 @@ Partial Class frmAnzeige
' '
'colFertig 'colFertig
' '
DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleCenter DataGridViewCellStyle87.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleCenter
DataGridViewCellStyle3.BackColor = System.Drawing.Color.LightGreen DataGridViewCellStyle87.BackColor = System.Drawing.Color.LightGreen
DataGridViewCellStyle3.SelectionBackColor = System.Drawing.Color.LightGreen DataGridViewCellStyle87.SelectionBackColor = System.Drawing.Color.LightGreen
DataGridViewCellStyle3.SelectionForeColor = System.Drawing.Color.Black DataGridViewCellStyle87.SelectionForeColor = System.Drawing.Color.Black
Me.colFertig.DefaultCellStyle = DataGridViewCellStyle3 Me.colFertig.DefaultCellStyle = DataGridViewCellStyle87
Me.colFertig.HeaderText = "KOMMEN/TAMAM" Me.colFertig.HeaderText = "KOMMEN/TAMAM"
Me.colFertig.Name = "colFertig" Me.colFertig.Name = "colFertig"
Me.colFertig.ReadOnly = True Me.colFertig.ReadOnly = True
@@ -203,14 +203,14 @@ Partial Class frmAnzeige
' '
'colLKWNr 'colLKWNr
' '
DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle88.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle4.BackColor = System.Drawing.Color.LightGreen DataGridViewCellStyle88.BackColor = System.Drawing.Color.LightGreen
DataGridViewCellStyle4.Font = New System.Drawing.Font("Microsoft Sans Serif", 27.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) DataGridViewCellStyle88.Font = New System.Drawing.Font("Microsoft Sans Serif", 27.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle4.Padding = New System.Windows.Forms.Padding(10, 0, 0, 0) DataGridViewCellStyle88.Padding = New System.Windows.Forms.Padding(10, 0, 0, 0)
DataGridViewCellStyle4.SelectionBackColor = System.Drawing.Color.LightGreen DataGridViewCellStyle88.SelectionBackColor = System.Drawing.Color.LightGreen
DataGridViewCellStyle4.SelectionForeColor = System.Drawing.Color.Black DataGridViewCellStyle88.SelectionForeColor = System.Drawing.Color.Black
DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] DataGridViewCellStyle88.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.colLKWNr.DefaultCellStyle = DataGridViewCellStyle4 Me.colLKWNr.DefaultCellStyle = DataGridViewCellStyle88
Me.colLKWNr.HeaderText = "LKW-KENNZ. /PLAKA" Me.colLKWNr.HeaderText = "LKW-KENNZ. /PLAKA"
Me.colLKWNr.Name = "colLKWNr" Me.colLKWNr.Name = "colLKWNr"
Me.colLKWNr.ReadOnly = True Me.colLKWNr.ReadOnly = True
@@ -218,12 +218,12 @@ Partial Class frmAnzeige
' '
'colAnkunft 'colAnkunft
' '
DataGridViewCellStyle5.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleCenter DataGridViewCellStyle89.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleCenter
DataGridViewCellStyle5.BackColor = System.Drawing.Color.LightGreen DataGridViewCellStyle89.BackColor = System.Drawing.Color.LightGreen
DataGridViewCellStyle5.Font = New System.Drawing.Font("Microsoft Sans Serif", 27.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) DataGridViewCellStyle89.Font = New System.Drawing.Font("Microsoft Sans Serif", 27.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle5.SelectionBackColor = System.Drawing.Color.LightGreen DataGridViewCellStyle89.SelectionBackColor = System.Drawing.Color.LightGreen
DataGridViewCellStyle5.SelectionForeColor = System.Drawing.Color.Black DataGridViewCellStyle89.SelectionForeColor = System.Drawing.Color.Black
Me.colAnkunft.DefaultCellStyle = DataGridViewCellStyle5 Me.colAnkunft.DefaultCellStyle = DataGridViewCellStyle89
Me.colAnkunft.HeaderText = "ANKUNFT/GELIS" Me.colAnkunft.HeaderText = "ANKUNFT/GELIS"
Me.colAnkunft.Name = "colAnkunft" Me.colAnkunft.Name = "colAnkunft"
Me.colAnkunft.ReadOnly = True Me.colAnkunft.ReadOnly = True
@@ -231,12 +231,12 @@ Partial Class frmAnzeige
' '
'Dauer 'Dauer
' '
DataGridViewCellStyle6.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleCenter DataGridViewCellStyle90.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleCenter
DataGridViewCellStyle6.BackColor = System.Drawing.Color.LightGreen DataGridViewCellStyle90.BackColor = System.Drawing.Color.LightGreen
DataGridViewCellStyle6.Font = New System.Drawing.Font("Microsoft Sans Serif", 27.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) DataGridViewCellStyle90.Font = New System.Drawing.Font("Microsoft Sans Serif", 27.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle6.SelectionBackColor = System.Drawing.Color.LightGreen DataGridViewCellStyle90.SelectionBackColor = System.Drawing.Color.LightGreen
DataGridViewCellStyle6.SelectionForeColor = System.Drawing.Color.Black DataGridViewCellStyle90.SelectionForeColor = System.Drawing.Color.Black
Me.Dauer.DefaultCellStyle = DataGridViewCellStyle6 Me.Dauer.DefaultCellStyle = DataGridViewCellStyle90
Me.Dauer.HeaderText = "DAUER/SÜRE" Me.Dauer.HeaderText = "DAUER/SÜRE"
Me.Dauer.Name = "Dauer" Me.Dauer.Name = "Dauer"
Me.Dauer.ReadOnly = True Me.Dauer.ReadOnly = True
@@ -244,12 +244,12 @@ Partial Class frmAnzeige
' '
'letzterMitarbeiter 'letzterMitarbeiter
' '
DataGridViewCellStyle7.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle91.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle7.BackColor = System.Drawing.Color.LightGreen DataGridViewCellStyle91.BackColor = System.Drawing.Color.LightGreen
DataGridViewCellStyle7.Font = New System.Drawing.Font("Microsoft Sans Serif", 20.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) DataGridViewCellStyle91.Font = New System.Drawing.Font("Microsoft Sans Serif", 20.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle7.SelectionBackColor = System.Drawing.Color.LightGreen DataGridViewCellStyle91.SelectionBackColor = System.Drawing.Color.LightGreen
DataGridViewCellStyle7.SelectionForeColor = System.Drawing.Color.Black DataGridViewCellStyle91.SelectionForeColor = System.Drawing.Color.Black
Me.letzterMitarbeiter.DefaultCellStyle = DataGridViewCellStyle7 Me.letzterMitarbeiter.DefaultCellStyle = DataGridViewCellStyle91
Me.letzterMitarbeiter.HeaderText = "BEARBEITER/GÖREVLI" Me.letzterMitarbeiter.HeaderText = "BEARBEITER/GÖREVLI"
Me.letzterMitarbeiter.Name = "letzterMitarbeiter" Me.letzterMitarbeiter.Name = "letzterMitarbeiter"
Me.letzterMitarbeiter.ReadOnly = True Me.letzterMitarbeiter.ReadOnly = True
@@ -594,16 +594,6 @@ Partial Class frmAnzeige
Me.txtSchrift1.Size = New System.Drawing.Size(62, 20) Me.txtSchrift1.Size = New System.Drawing.Size(62, 20)
Me.txtSchrift1.TabIndex = 6 Me.txtSchrift1.TabIndex = 6
' '
'Label7
'
Me.Label7.AutoSize = True
Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label7.Location = New System.Drawing.Point(237, 227)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(55, 13)
Me.Label7.TabIndex = 17
Me.Label7.Text = "Bearbeiter"
'
'txtBreite 'txtBreite
' '
Me.txtBreite.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.txtBreite.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
@@ -693,7 +683,7 @@ Partial Class frmAnzeige
' '
Me.picConnectionProblem.BackColor = System.Drawing.Color.Transparent Me.picConnectionProblem.BackColor = System.Drawing.Color.Transparent
Me.picConnectionProblem.Image = Global.AvisoTV.My.Resources.Resources.disconnect Me.picConnectionProblem.Image = Global.AvisoTV.My.Resources.Resources.disconnect
Me.picConnectionProblem.Location = New System.Drawing.Point(806, 211) Me.picConnectionProblem.Location = New System.Drawing.Point(74, 150)
Me.picConnectionProblem.Name = "picConnectionProblem" Me.picConnectionProblem.Name = "picConnectionProblem"
Me.picConnectionProblem.Size = New System.Drawing.Size(138, 98) Me.picConnectionProblem.Size = New System.Drawing.Size(138, 98)
Me.picConnectionProblem.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom Me.picConnectionProblem.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
@@ -841,6 +831,8 @@ Partial Class frmAnzeige
Me.grpTestAnzeige.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) Me.grpTestAnzeige.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.grpTestAnzeige.BackColor = System.Drawing.Color.White Me.grpTestAnzeige.BackColor = System.Drawing.Color.White
Me.grpTestAnzeige.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle Me.grpTestAnzeige.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.grpTestAnzeige.Controls.Add(Me.picConnectionProblem)
Me.grpTestAnzeige.Controls.Add(Me.cbxBearbeiter)
Me.grpTestAnzeige.Controls.Add(Me.txtBreite8) Me.grpTestAnzeige.Controls.Add(Me.txtBreite8)
Me.grpTestAnzeige.Controls.Add(Me.txtSchrift8) Me.grpTestAnzeige.Controls.Add(Me.txtSchrift8)
Me.grpTestAnzeige.Controls.Add(Me.Label25) Me.grpTestAnzeige.Controls.Add(Me.Label25)
@@ -873,7 +865,6 @@ Partial Class frmAnzeige
Me.grpTestAnzeige.Controls.Add(Me.txtSchrift6) Me.grpTestAnzeige.Controls.Add(Me.txtSchrift6)
Me.grpTestAnzeige.Controls.Add(Me.txtBreite) Me.grpTestAnzeige.Controls.Add(Me.txtBreite)
Me.grpTestAnzeige.Controls.Add(Me.Label13) Me.grpTestAnzeige.Controls.Add(Me.Label13)
Me.grpTestAnzeige.Controls.Add(Me.Label7)
Me.grpTestAnzeige.Controls.Add(Me.Label12) Me.grpTestAnzeige.Controls.Add(Me.Label12)
Me.grpTestAnzeige.Controls.Add(Me.txtSchrift1) Me.grpTestAnzeige.Controls.Add(Me.txtSchrift1)
Me.grpTestAnzeige.Controls.Add(Me.cboFirma) Me.grpTestAnzeige.Controls.Add(Me.cboFirma)
@@ -1089,29 +1080,29 @@ Partial Class frmAnzeige
' '
Me.gridFertig.AllowUserToAddRows = False Me.gridFertig.AllowUserToAddRows = False
Me.gridFertig.AllowUserToDeleteRows = False Me.gridFertig.AllowUserToDeleteRows = False
DataGridViewCellStyle10.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] DataGridViewCellStyle94.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.gridFertig.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle10 Me.gridFertig.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle94
Me.gridFertig.AutoSizeRowsMode = System.Windows.Forms.DataGridViewAutoSizeRowsMode.DisplayedCellsExceptHeaders Me.gridFertig.AutoSizeRowsMode = System.Windows.Forms.DataGridViewAutoSizeRowsMode.DisplayedCellsExceptHeaders
Me.gridFertig.BackgroundColor = System.Drawing.Color.MintCream Me.gridFertig.BackgroundColor = System.Drawing.Color.MintCream
Me.gridFertig.ColumnHeadersBorderStyle = System.Windows.Forms.DataGridViewHeaderBorderStyle.[Single] Me.gridFertig.ColumnHeadersBorderStyle = System.Windows.Forms.DataGridViewHeaderBorderStyle.[Single]
DataGridViewCellStyle11.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle95.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle11.BackColor = System.Drawing.Color.LightBlue DataGridViewCellStyle95.BackColor = System.Drawing.Color.LightBlue
DataGridViewCellStyle11.Font = New System.Drawing.Font("Tahoma", 15.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) DataGridViewCellStyle95.Font = New System.Drawing.Font("Tahoma", 15.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle11.ForeColor = System.Drawing.SystemColors.WindowText DataGridViewCellStyle95.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle11.SelectionBackColor = System.Drawing.SystemColors.Highlight DataGridViewCellStyle95.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle11.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle95.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle11.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] DataGridViewCellStyle95.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.gridFertig.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle11 Me.gridFertig.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle95
Me.gridFertig.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.gridFertig.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.gridFertig.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.DataGridViewTextBoxColumn7, Me.DataGridViewTextBoxColumn8}) Me.gridFertig.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.DataGridViewTextBoxColumn7, Me.DataGridViewTextBoxColumn8})
DataGridViewCellStyle14.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle98.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle14.BackColor = System.Drawing.SystemColors.Window DataGridViewCellStyle98.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle14.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) DataGridViewCellStyle98.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle14.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer)) DataGridViewCellStyle98.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer))
DataGridViewCellStyle14.SelectionBackColor = System.Drawing.Color.MintCream DataGridViewCellStyle98.SelectionBackColor = System.Drawing.Color.MintCream
DataGridViewCellStyle14.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle98.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle14.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] DataGridViewCellStyle98.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.gridFertig.DefaultCellStyle = DataGridViewCellStyle14 Me.gridFertig.DefaultCellStyle = DataGridViewCellStyle98
Me.gridFertig.Dock = System.Windows.Forms.DockStyle.Left Me.gridFertig.Dock = System.Windows.Forms.DockStyle.Left
Me.gridFertig.GridColor = System.Drawing.Color.MintCream Me.gridFertig.GridColor = System.Drawing.Color.MintCream
Me.gridFertig.Location = New System.Drawing.Point(0, 21) Me.gridFertig.Location = New System.Drawing.Point(0, 21)
@@ -1119,10 +1110,10 @@ Partial Class frmAnzeige
Me.gridFertig.Name = "gridFertig" Me.gridFertig.Name = "gridFertig"
Me.gridFertig.ReadOnly = True Me.gridFertig.ReadOnly = True
Me.gridFertig.RowHeadersVisible = False Me.gridFertig.RowHeadersVisible = False
DataGridViewCellStyle15.BackColor = System.Drawing.Color.MintCream DataGridViewCellStyle99.BackColor = System.Drawing.Color.MintCream
DataGridViewCellStyle15.SelectionBackColor = System.Drawing.Color.White DataGridViewCellStyle99.SelectionBackColor = System.Drawing.Color.White
DataGridViewCellStyle15.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] DataGridViewCellStyle99.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.gridFertig.RowsDefaultCellStyle = DataGridViewCellStyle15 Me.gridFertig.RowsDefaultCellStyle = DataGridViewCellStyle99
Me.gridFertig.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[True] Me.gridFertig.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[True]
Me.gridFertig.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect Me.gridFertig.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.gridFertig.Size = New System.Drawing.Size(424, 444) Me.gridFertig.Size = New System.Drawing.Size(424, 444)
@@ -1131,12 +1122,12 @@ Partial Class frmAnzeige
' '
'DataGridViewTextBoxColumn7 'DataGridViewTextBoxColumn7
' '
DataGridViewCellStyle12.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleCenter DataGridViewCellStyle96.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleCenter
DataGridViewCellStyle12.BackColor = System.Drawing.Color.MintCream DataGridViewCellStyle96.BackColor = System.Drawing.Color.MintCream
DataGridViewCellStyle12.NullValue = CType(resources.GetObject("DataGridViewCellStyle12.NullValue"), Object) DataGridViewCellStyle96.NullValue = CType(resources.GetObject("DataGridViewCellStyle96.NullValue"), Object)
DataGridViewCellStyle12.SelectionBackColor = System.Drawing.Color.MintCream DataGridViewCellStyle96.SelectionBackColor = System.Drawing.Color.MintCream
DataGridViewCellStyle12.SelectionForeColor = System.Drawing.Color.Black DataGridViewCellStyle96.SelectionForeColor = System.Drawing.Color.Black
Me.DataGridViewTextBoxColumn7.DefaultCellStyle = DataGridViewCellStyle12 Me.DataGridViewTextBoxColumn7.DefaultCellStyle = DataGridViewCellStyle96
Me.DataGridViewTextBoxColumn7.HeaderText = "" Me.DataGridViewTextBoxColumn7.HeaderText = ""
Me.DataGridViewTextBoxColumn7.Image = Global.AvisoTV.My.Resources.Resources.okRound Me.DataGridViewTextBoxColumn7.Image = Global.AvisoTV.My.Resources.Resources.okRound
Me.DataGridViewTextBoxColumn7.ImageLayout = System.Windows.Forms.DataGridViewImageCellLayout.Zoom Me.DataGridViewTextBoxColumn7.ImageLayout = System.Windows.Forms.DataGridViewImageCellLayout.Zoom
@@ -1149,14 +1140,14 @@ Partial Class frmAnzeige
'DataGridViewTextBoxColumn8 'DataGridViewTextBoxColumn8
' '
Me.DataGridViewTextBoxColumn8.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill Me.DataGridViewTextBoxColumn8.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
DataGridViewCellStyle13.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle97.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle13.BackColor = System.Drawing.Color.LightGreen DataGridViewCellStyle97.BackColor = System.Drawing.Color.LightGreen
DataGridViewCellStyle13.Font = New System.Drawing.Font("Microsoft Sans Serif", 27.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) DataGridViewCellStyle97.Font = New System.Drawing.Font("Microsoft Sans Serif", 27.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle13.Padding = New System.Windows.Forms.Padding(10, 0, 0, 0) DataGridViewCellStyle97.Padding = New System.Windows.Forms.Padding(10, 0, 0, 0)
DataGridViewCellStyle13.SelectionBackColor = System.Drawing.Color.LightGreen DataGridViewCellStyle97.SelectionBackColor = System.Drawing.Color.LightGreen
DataGridViewCellStyle13.SelectionForeColor = System.Drawing.Color.Black DataGridViewCellStyle97.SelectionForeColor = System.Drawing.Color.Black
DataGridViewCellStyle13.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] DataGridViewCellStyle97.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.DataGridViewTextBoxColumn8.DefaultCellStyle = DataGridViewCellStyle13 Me.DataGridViewTextBoxColumn8.DefaultCellStyle = DataGridViewCellStyle97
Me.DataGridViewTextBoxColumn8.HeaderText = "LKW-KENNZ. /PLAKA" Me.DataGridViewTextBoxColumn8.HeaderText = "LKW-KENNZ. /PLAKA"
Me.DataGridViewTextBoxColumn8.Name = "DataGridViewTextBoxColumn8" Me.DataGridViewTextBoxColumn8.Name = "DataGridViewTextBoxColumn8"
Me.DataGridViewTextBoxColumn8.ReadOnly = True Me.DataGridViewTextBoxColumn8.ReadOnly = True
@@ -1179,11 +1170,11 @@ Partial Class frmAnzeige
'DataGridViewTextBoxColumn1 'DataGridViewTextBoxColumn1
' '
Me.DataGridViewTextBoxColumn1.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill Me.DataGridViewTextBoxColumn1.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
DataGridViewCellStyle16.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleCenter DataGridViewCellStyle100.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleCenter
DataGridViewCellStyle16.BackColor = System.Drawing.Color.LightGreen DataGridViewCellStyle100.BackColor = System.Drawing.Color.LightGreen
DataGridViewCellStyle16.SelectionBackColor = System.Drawing.Color.LightGreen DataGridViewCellStyle100.SelectionBackColor = System.Drawing.Color.LightGreen
DataGridViewCellStyle16.SelectionForeColor = System.Drawing.Color.Black DataGridViewCellStyle100.SelectionForeColor = System.Drawing.Color.Black
Me.DataGridViewTextBoxColumn1.DefaultCellStyle = DataGridViewCellStyle16 Me.DataGridViewTextBoxColumn1.DefaultCellStyle = DataGridViewCellStyle100
Me.DataGridViewTextBoxColumn1.HeaderText = "FERTIG/TAMAM" Me.DataGridViewTextBoxColumn1.HeaderText = "FERTIG/TAMAM"
Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1" Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1"
Me.DataGridViewTextBoxColumn1.ReadOnly = True Me.DataGridViewTextBoxColumn1.ReadOnly = True
@@ -1191,13 +1182,13 @@ Partial Class frmAnzeige
' '
'DataGridViewTextBoxColumn2 'DataGridViewTextBoxColumn2
' '
DataGridViewCellStyle17.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleCenter DataGridViewCellStyle101.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleCenter
DataGridViewCellStyle17.BackColor = System.Drawing.Color.LightGreen DataGridViewCellStyle101.BackColor = System.Drawing.Color.LightGreen
DataGridViewCellStyle17.Font = New System.Drawing.Font("Microsoft Sans Serif", 27.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) DataGridViewCellStyle101.Font = New System.Drawing.Font("Microsoft Sans Serif", 27.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle17.SelectionBackColor = System.Drawing.Color.LightGreen DataGridViewCellStyle101.SelectionBackColor = System.Drawing.Color.LightGreen
DataGridViewCellStyle17.SelectionForeColor = System.Drawing.Color.Black DataGridViewCellStyle101.SelectionForeColor = System.Drawing.Color.Black
DataGridViewCellStyle17.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] DataGridViewCellStyle101.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.DataGridViewTextBoxColumn2.DefaultCellStyle = DataGridViewCellStyle17 Me.DataGridViewTextBoxColumn2.DefaultCellStyle = DataGridViewCellStyle101
Me.DataGridViewTextBoxColumn2.HeaderText = "LKW-KENNZ. /PLAKA" Me.DataGridViewTextBoxColumn2.HeaderText = "LKW-KENNZ. /PLAKA"
Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2" Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2"
Me.DataGridViewTextBoxColumn2.ReadOnly = True Me.DataGridViewTextBoxColumn2.ReadOnly = True
@@ -1205,12 +1196,12 @@ Partial Class frmAnzeige
' '
'DataGridViewTextBoxColumn3 'DataGridViewTextBoxColumn3
' '
DataGridViewCellStyle18.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleCenter DataGridViewCellStyle102.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleCenter
DataGridViewCellStyle18.BackColor = System.Drawing.Color.LightGreen DataGridViewCellStyle102.BackColor = System.Drawing.Color.LightGreen
DataGridViewCellStyle18.Font = New System.Drawing.Font("Microsoft Sans Serif", 27.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) DataGridViewCellStyle102.Font = New System.Drawing.Font("Microsoft Sans Serif", 27.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle18.SelectionBackColor = System.Drawing.Color.LightGreen DataGridViewCellStyle102.SelectionBackColor = System.Drawing.Color.LightGreen
DataGridViewCellStyle18.SelectionForeColor = System.Drawing.Color.Black DataGridViewCellStyle102.SelectionForeColor = System.Drawing.Color.Black
Me.DataGridViewTextBoxColumn3.DefaultCellStyle = DataGridViewCellStyle18 Me.DataGridViewTextBoxColumn3.DefaultCellStyle = DataGridViewCellStyle102
Me.DataGridViewTextBoxColumn3.HeaderText = "ANKUNFT/GELIS" Me.DataGridViewTextBoxColumn3.HeaderText = "ANKUNFT/GELIS"
Me.DataGridViewTextBoxColumn3.Name = "DataGridViewTextBoxColumn3" Me.DataGridViewTextBoxColumn3.Name = "DataGridViewTextBoxColumn3"
Me.DataGridViewTextBoxColumn3.ReadOnly = True Me.DataGridViewTextBoxColumn3.ReadOnly = True
@@ -1218,12 +1209,12 @@ Partial Class frmAnzeige
' '
'DataGridViewTextBoxColumn4 'DataGridViewTextBoxColumn4
' '
DataGridViewCellStyle19.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleCenter DataGridViewCellStyle103.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleCenter
DataGridViewCellStyle19.BackColor = System.Drawing.Color.LightGreen DataGridViewCellStyle103.BackColor = System.Drawing.Color.LightGreen
DataGridViewCellStyle19.Font = New System.Drawing.Font("Microsoft Sans Serif", 27.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) DataGridViewCellStyle103.Font = New System.Drawing.Font("Microsoft Sans Serif", 27.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle19.SelectionBackColor = System.Drawing.Color.LightGreen DataGridViewCellStyle103.SelectionBackColor = System.Drawing.Color.LightGreen
DataGridViewCellStyle19.SelectionForeColor = System.Drawing.Color.Black DataGridViewCellStyle103.SelectionForeColor = System.Drawing.Color.Black
Me.DataGridViewTextBoxColumn4.DefaultCellStyle = DataGridViewCellStyle19 Me.DataGridViewTextBoxColumn4.DefaultCellStyle = DataGridViewCellStyle103
Me.DataGridViewTextBoxColumn4.HeaderText = "DAUER/SÜRE" Me.DataGridViewTextBoxColumn4.HeaderText = "DAUER/SÜRE"
Me.DataGridViewTextBoxColumn4.Name = "DataGridViewTextBoxColumn4" Me.DataGridViewTextBoxColumn4.Name = "DataGridViewTextBoxColumn4"
Me.DataGridViewTextBoxColumn4.ReadOnly = True Me.DataGridViewTextBoxColumn4.ReadOnly = True
@@ -1231,12 +1222,12 @@ Partial Class frmAnzeige
' '
'DataGridViewTextBoxColumn5 'DataGridViewTextBoxColumn5
' '
DataGridViewCellStyle20.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle104.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle20.BackColor = System.Drawing.Color.LightGreen DataGridViewCellStyle104.BackColor = System.Drawing.Color.LightGreen
DataGridViewCellStyle20.Font = New System.Drawing.Font("Microsoft Sans Serif", 20.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) DataGridViewCellStyle104.Font = New System.Drawing.Font("Microsoft Sans Serif", 20.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle20.SelectionBackColor = System.Drawing.Color.LightGreen DataGridViewCellStyle104.SelectionBackColor = System.Drawing.Color.LightGreen
DataGridViewCellStyle20.SelectionForeColor = System.Drawing.Color.Black DataGridViewCellStyle104.SelectionForeColor = System.Drawing.Color.Black
Me.DataGridViewTextBoxColumn5.DefaultCellStyle = DataGridViewCellStyle20 Me.DataGridViewTextBoxColumn5.DefaultCellStyle = DataGridViewCellStyle104
Me.DataGridViewTextBoxColumn5.HeaderText = "BEARBEITER/GÖREVLI" Me.DataGridViewTextBoxColumn5.HeaderText = "BEARBEITER/GÖREVLI"
Me.DataGridViewTextBoxColumn5.Name = "DataGridViewTextBoxColumn5" Me.DataGridViewTextBoxColumn5.Name = "DataGridViewTextBoxColumn5"
Me.DataGridViewTextBoxColumn5.ReadOnly = True Me.DataGridViewTextBoxColumn5.ReadOnly = True
@@ -1244,12 +1235,12 @@ Partial Class frmAnzeige
' '
'DataGridViewTextBoxColumn6 'DataGridViewTextBoxColumn6
' '
DataGridViewCellStyle21.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle105.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle21.BackColor = System.Drawing.Color.LightGreen DataGridViewCellStyle105.BackColor = System.Drawing.Color.LightGreen
DataGridViewCellStyle21.Font = New System.Drawing.Font("Microsoft Sans Serif", 20.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) DataGridViewCellStyle105.Font = New System.Drawing.Font("Microsoft Sans Serif", 20.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle21.SelectionBackColor = System.Drawing.Color.LightGreen DataGridViewCellStyle105.SelectionBackColor = System.Drawing.Color.LightGreen
DataGridViewCellStyle21.SelectionForeColor = System.Drawing.Color.Black DataGridViewCellStyle105.SelectionForeColor = System.Drawing.Color.Black
Me.DataGridViewTextBoxColumn6.DefaultCellStyle = DataGridViewCellStyle21 Me.DataGridViewTextBoxColumn6.DefaultCellStyle = DataGridViewCellStyle105
Me.DataGridViewTextBoxColumn6.HeaderText = "BÜRO" Me.DataGridViewTextBoxColumn6.HeaderText = "BÜRO"
Me.DataGridViewTextBoxColumn6.Name = "DataGridViewTextBoxColumn6" Me.DataGridViewTextBoxColumn6.Name = "DataGridViewTextBoxColumn6"
Me.DataGridViewTextBoxColumn6.ReadOnly = True Me.DataGridViewTextBoxColumn6.ReadOnly = True
@@ -1270,12 +1261,23 @@ Partial Class frmAnzeige
Me.DataGridViewTextBoxColumn10.ReadOnly = True Me.DataGridViewTextBoxColumn10.ReadOnly = True
Me.DataGridViewTextBoxColumn10.Width = 30 Me.DataGridViewTextBoxColumn10.Width = 30
' '
'cbxBearbeiter
'
Me.cbxBearbeiter.AutoSize = True
Me.cbxBearbeiter.Checked = True
Me.cbxBearbeiter.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbxBearbeiter.Location = New System.Drawing.Point(240, 223)
Me.cbxBearbeiter.Name = "cbxBearbeiter"
Me.cbxBearbeiter.Size = New System.Drawing.Size(74, 17)
Me.cbxBearbeiter.TabIndex = 104
Me.cbxBearbeiter.Text = "Bearbeiter"
Me.cbxBearbeiter.UseVisualStyleBackColor = True
'
'frmAnzeige 'frmAnzeige
' '
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(1250, 624) Me.ClientSize = New System.Drawing.Size(1250, 624)
Me.Controls.Add(Me.picConnectionProblem)
Me.Controls.Add(Me.grpTestAnzeige) Me.Controls.Add(Me.grpTestAnzeige)
Me.Controls.Add(Me.gridAnkunft) Me.Controls.Add(Me.gridAnkunft)
Me.Controls.Add(Me.gridFertig) Me.Controls.Add(Me.gridFertig)
@@ -1322,7 +1324,6 @@ Partial Class frmAnzeige
Friend WithEvents Label8 As System.Windows.Forms.Label Friend WithEvents Label8 As System.Windows.Forms.Label
Friend WithEvents txtSchrift5 As System.Windows.Forms.TextBox Friend WithEvents txtSchrift5 As System.Windows.Forms.TextBox
Friend WithEvents txtSchrift4 As System.Windows.Forms.TextBox Friend WithEvents txtSchrift4 As System.Windows.Forms.TextBox
Friend WithEvents Label7 As System.Windows.Forms.Label
Friend WithEvents Label6 As System.Windows.Forms.Label Friend WithEvents Label6 As System.Windows.Forms.Label
Friend WithEvents txtBreite5 As System.Windows.Forms.TextBox Friend WithEvents txtBreite5 As System.Windows.Forms.TextBox
Friend WithEvents txtBreite4 As System.Windows.Forms.TextBox Friend WithEvents txtBreite4 As System.Windows.Forms.TextBox
@@ -1392,4 +1393,5 @@ Partial Class frmAnzeige
Friend WithEvents clmnArt As DataGridViewTextBoxColumn Friend WithEvents clmnArt As DataGridViewTextBoxColumn
Friend WithEvents Label26 As Label Friend WithEvents Label26 As Label
Friend WithEvents DataGridViewTextBoxColumn10 As DataGridViewTextBoxColumn Friend WithEvents DataGridViewTextBoxColumn10 As DataGridViewTextBoxColumn
Friend WithEvents cbxBearbeiter As CheckBox
End Class End Class

2
AvisoTV/frmAnzeige.resx
View File

@@ -148,7 +148,7 @@
<value>True</value> <value>True</value>
</metadata> </metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" /> <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="DataGridViewCellStyle12.NullValue" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="DataGridViewCellStyle96.NullValue" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
Qk32AgAAAAAAADYAAAAoAAAADgAAABAAAAABABgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA Qk32AgAAAAAAADYAAAAoAAAADgAAABAAAAABABgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACEgoTGw8bGw8bGw8bGw8bGw8bGw8bG AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACEgoTGw8bGw8bGw8bGw8bGw8bGw8bG

42
AvisoTV/frmAnzeige.vb
View File

@@ -150,6 +150,7 @@ Public Class frmAnzeige
GridBackgroundColor = Color.FromArgb(255, 255, 240) GridBackgroundColor = Color.FromArgb(255, 255, 240)
ElseIf Standort = "AMBAR" Then ElseIf Standort = "AMBAR" Then
VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "AMBAR" VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "AMBAR"
CLUSTER = "FRONTOFFICE"
ElseIf Standort = "FRONTOFFICE" Then ElseIf Standort = "FRONTOFFICE" Then
VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "FRONTOFFICE" VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "FRONTOFFICE"
CLUSTER = "FRONTOFFICE" CLUSTER = "FRONTOFFICE"
@@ -225,11 +226,11 @@ Public Class frmAnzeige
where &= " Status IN( " & stat_tmp & ") " where &= " Status IN( " & stat_tmp & ") "
If CLUSTER <> "" Then If CLUSTER <> "" Then
where &= " AND (Firma= '" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' OR Cluster= '" & CLUSTER & "') " where &= " AND (Firma= '" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' OR Cluster= '" & CLUSTER & "') "
ElseIf Standort <> "WAI" And Standort <> "ABG" And Standort <> "NKD" Then ElseIf Standort <> "WAI" And Standort <> "SBG" And Standort <> "NKD" Then
where &= " AND Firma= '" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' " where &= " AND Firma= '" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' "
End If End If
If Standort <> "" Then where &= " AND Grenzstelle = '" & Standort.Replace("IMEX", "SUB").Replace("UNISPED", "SUB").Replace("FRONTOFFICE", "SUB") & "'" 'nur die IMEX-LKW in SUB anzeigen If Standort <> "" Then where &= " AND Grenzstelle = '" & Standort.Replace("IMEX", "SUB").Replace("UNISPED", "SUB").Replace("FRONTOFFICE", "SUB").Replace("AMBAR", "AMB") & "'" 'nur die IMEX-LKW in SUB anzeigen
If Standort = "FRONTOFFICE" Then where &= " AND isnull(ImEx,'IMPORT') IN ('IMPORT','') " If Standort = "FRONTOFFICE" Then where &= " AND isnull(ImEx,'IMPORT') IN ('IMPORT','') "
hSQL &= where hSQL &= where
hSQL += ank_tmp & " ORDER BY CASE " & hSQL += ank_tmp & " ORDER BY CASE " &
@@ -263,7 +264,7 @@ Public Class frmAnzeige
If connok Then If connok Then
clmnBuero.Visible = StandortATILLA clmnBuero.Visible = StandortATILLA
clmnImEx.Visible = (Standort = "WAI") clmnImEx.Visible = (Standort = "WAI" Or Standort.Replace("AMBAR", "AMB") = "AMB")
If Aktive_Seite <= Max_Seiten Then Aktive_Seite += 1 'nächste Seite anzeigen If Aktive_Seite <= Max_Seiten Then Aktive_Seite += 1 'nächste Seite anzeigen
@@ -292,7 +293,7 @@ Public Class frmAnzeige
Try Try
Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnectionWithoutError() Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnectionWithoutError()
removeControls() removeControls()
' MsgBox(hSQL) 'MsgBox(hSQL)
'If IsNothing(conn) Then Exit Sub 'Fehler bei DB-Zugriff - Anzeige nicht aktualisieren 'If IsNothing(conn) Then Exit Sub 'Fehler bei DB-Zugriff - Anzeige nicht aktualisieren
Using cmd As New SqlCommand(hSQL, conn) Using cmd As New SqlCommand(hSQL, conn)
' MsgBox(conn.ConnectionString) ' MsgBox(conn.ConnectionString)
@@ -340,7 +341,13 @@ Public Class frmAnzeige
If VarToStr(dr.Item("AvisoTVHinweis")) <> "" Then If VarToStr(dr.Item("AvisoTVHinweis")) <> "" Then
hFertig = VarToStr(dr.Item("AvisoTVHinweis")) hFertig = VarToStr(dr.Item("AvisoTVHinweis"))
ElseIf VarToBool(dr.Item("LKW_fertig")) Then ElseIf VarToBool(dr.Item("LKW_fertig")) Then
Select Case Standort
Case "FRONTOFFICE"
hFertig = "OK > Front-Office"
Case Else
hFertig = "OK" hFertig = "OK"
End Select
End If End If
If anz <= Max_Zeilen Then If anz <= Max_Zeilen Then
@@ -349,7 +356,7 @@ Public Class frmAnzeige
If StandortATILLA Then If StandortATILLA Then
Dim hBuero As String = VarToStr(dr.Item("buero")) Dim hBuero As String = VarToStr(dr.Item("buero"))
gridAnkunft.Rows.Add(hFertig, LKW_Nr, hAnkunft, Dauer, hMitarbeiter, hBuero, "", ZOLLDigitalEingereicht) gridAnkunft.Rows.Add(hFertig, LKW_Nr, hAnkunft, Dauer, hMitarbeiter, hBuero, "", ZOLLDigitalEingereicht)
ElseIf Standort = "WAI" Then ElseIf Standort = "WAI" Or Standort.Replace("AMBAR", "AMB") = "AMB" Then
If ImEx = "IMPORT" Then ImEx = "IM" If ImEx = "IMPORT" Then ImEx = "IM"
If ImEx = "EXPORT" Then ImEx = "EX" If ImEx = "EXPORT" Then ImEx = "EX"
' MsgBox(ImEx) ' MsgBox(ImEx)
@@ -365,6 +372,12 @@ Public Class frmAnzeige
If ImEx = "EX" Then r.Cells("clmnImEx").Style.BackColor = Color.Blue If ImEx = "EX" Then r.Cells("clmnImEx").Style.BackColor = Color.Blue
End If End If
If hFertig.StartsWith("OK") Then
Dim r As DataGridViewRow = gridAnkunft.Rows(gridAnkunft.RowCount - 1)
r.Cells(0).Style.ForeColor = Color.Green
r.Cells(1).Style.ForeColor = Color.Green
End If
If CBool(dr.Item("ZOLLDigitalEingereicht")) Then If CBool(dr.Item("ZOLLDigitalEingereicht")) Then
Dim r As DataGridViewRow = gridAnkunft.Rows(gridAnkunft.RowCount - 1) Dim r As DataGridViewRow = gridAnkunft.Rows(gridAnkunft.RowCount - 1)
' r.Cells("clmnArt").Style.BackColor = Color.DarkGreen ' r.Cells("clmnArt").Style.BackColor = Color.DarkGreen
@@ -383,6 +396,8 @@ Public Class frmAnzeige
Case "URGENT" : doimage = My.Resources.urgent_qu : r.Cells(0).Value = "PROBLEM" Case "URGENT" : doimage = My.Resources.urgent_qu : r.Cells(0).Value = "PROBLEM"
End Select End Select
doimage = Nothing doimage = Nothing
If doimage IsNot Nothing Then If doimage IsNot Nothing Then
r.Cells(0).Style.Alignment = DataGridViewContentAlignment.MiddleRight r.Cells(0).Style.Alignment = DataGridViewContentAlignment.MiddleRight
@@ -612,12 +627,12 @@ Public Class frmAnzeige
End Sub End Sub
Sub initSettings() Sub initSettings()
initZeilen() initZeilen()
picVERAG.Height = lblZeile1.Height
Select Case Standort Select Case Standort
Case "ATILLA" : picVERAG.Image = My.Resources.Atilla 'Atilla such su Case "ATILLA" : picVERAG.Image = My.Resources.Atilla 'Atilla such su
Case "IMEX" : picVERAG.Image = My.Resources.IMEX_LOGO_simple Case "IMEX" : picVERAG.Image = My.Resources.IMEX_LOGO_simple
Case "UNISPED" : picVERAG.Image = My.Resources.Unisped_logo Case "UNISPED" : picVERAG.Image = My.Resources.Unisped_logo
Case "AMBAR" : picVERAG.Image = Nothing Case "AMBAR" : picVERAG.Image = My.Resources.Ambar_Logo : picVERAG.Height = Panel2.Height
Case "FRONTOFFICE" : picVERAG.Image = My.Resources.FrontOfficeSUB Case "FRONTOFFICE" : picVERAG.Image = My.Resources.FrontOfficeSUB
Case Else : picVERAG.Image = My.Resources.Verag_AG_Logopng Case Else : picVERAG.Image = My.Resources.Verag_AG_Logopng
End Select End Select
@@ -726,7 +741,7 @@ Public Class frmAnzeige
gridAnkunft.Columns("clmnBuero").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter gridAnkunft.Columns("clmnBuero").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
End If End If
If Standort = "WAI" And gridAnkunft.Columns("clmnImEx") IsNot Nothing Then If (Standort = "WAI" Or Standort.Replace("AMBAR", "AMB") = "AMB") And gridAnkunft.Columns("clmnImEx") IsNot Nothing Then
' MsgBox(IIf(IsNumeric(txtBreite7.Text), txtBreite7.Text, 30)) ' MsgBox(IIf(IsNumeric(txtBreite7.Text), txtBreite7.Text, 30))
gridAnkunft.Columns("clmnImEx").Width = CInt(IIf(IsNumeric(txtBreite7.Text), txtBreite7.Text, 50)) gridAnkunft.Columns("clmnImEx").Width = CInt(IIf(IsNumeric(txtBreite7.Text), txtBreite7.Text, 50))
gridAnkunft.Columns("clmnImEx").DefaultCellStyle.Font = Font7 gridAnkunft.Columns("clmnImEx").DefaultCellStyle.Font = Font7
@@ -742,11 +757,21 @@ Public Class frmAnzeige
gridAnkunft.Columns("clmnArt").Visible = True gridAnkunft.Columns("clmnArt").Visible = True
End If End If
If txtBreite2.Text <> "" Then gridAnkunft.Columns(1).MinimumWidth = 10 'Default, weil minwisth später gesetzt werden kann
If txtBreite1.Text <> "" Then gridAnkunft.Columns(0).Width = CInt(txtBreite1.Text) If txtBreite1.Text <> "" Then gridAnkunft.Columns(0).Width = CInt(txtBreite1.Text)
If txtBreite2.Text <> "" Then gridAnkunft.Columns(1).Width = CInt(txtBreite2.Text) If txtBreite2.Text <> "" Then gridAnkunft.Columns(1).Width = CInt(txtBreite2.Text)
If txtBreite3.Text <> "" Then gridAnkunft.Columns(2).Width = CInt(txtBreite3.Text) If txtBreite3.Text <> "" Then gridAnkunft.Columns(2).Width = CInt(txtBreite3.Text)
If txtBreite4.Text <> "" Then gridAnkunft.Columns(3).Width = CInt(txtBreite4.Text) If txtBreite4.Text <> "" Then gridAnkunft.Columns(3).Width = CInt(txtBreite4.Text)
If cbxBearbeiter.Checked Then
gridAnkunft.Columns(4).AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill gridAnkunft.Columns(4).AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
Else
gridAnkunft.Columns(4).Width = 0
If txtBreite2.Text <> "" Then gridAnkunft.Columns(1).MinimumWidth = CInt(txtBreite2.Text)
gridAnkunft.Columns(2).AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
End If
If txtLkwOK_BildBreite.Text <> "" Then gridFertig.Columns(0).Width = CInt(txtLkwOK_BildBreite.Text) If txtLkwOK_BildBreite.Text <> "" Then gridFertig.Columns(0).Width = CInt(txtLkwOK_BildBreite.Text)
@@ -839,6 +864,7 @@ Public Class frmAnzeige
If txtBreiteGridLKWOK.Text <> "" Then setProperty("txtBreiteGridLKWOK", txtBreiteGridLKWOK.Text) If txtBreiteGridLKWOK.Text <> "" Then setProperty("txtBreiteGridLKWOK", txtBreiteGridLKWOK.Text)
setProperty("cbxGridLKWOK", CInt(cbxGridLKWOK.Checked).ToString) setProperty("cbxGridLKWOK", CInt(cbxGridLKWOK.Checked).ToString)
setProperty("cbxBearbeiter", CInt(cbxBearbeiter.Checked).ToString)
End Sub End Sub

BIN
Diverses/PLATHOSYS.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 192 KiB

BIN
Diverses/Verag_Customs_Service_AEO.jpg Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 8.1 KiB

BIN
Diverses/WhatsApp_big.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 64 KiB

BIN
Diverses/ambar_simple.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 79 KiB

BIN
Diverses/call.gif Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 33 KiB

BIN
Diverses/lorry_ummelden.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 1.8 KiB

BIN
Diverses/wheel_s.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 900 B

3
Gemeinsames/Gemeinsames.vbproj
View File

@@ -305,6 +305,9 @@
</ItemGroup> </ItemGroup>
<ItemGroup> <ItemGroup>
<Content Include="Resources\FO.png" /> <Content Include="Resources\FO.png" />
<Content Include="Resources\VERIMEX.png">
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
</Content>
</ItemGroup> </ItemGroup>
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" /> <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
<!-- To modify your build process, add your task inside one of the targets below and uncomment it. <!-- To modify your build process, add your task inside one of the targets below and uncomment it.

BIN
Gemeinsames/Resources/VERIMEX.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 198 KiB

22
Gemeinsames/rptSendungen.Designer.vb generated
View File

File diff suppressed because one or more lines are too long

3813
Gemeinsames/rptSendungen.resx
View File

File diff suppressed because it is too large Load Diff

5
Gemeinsames/rptSendungen.vb
View File

@@ -12,13 +12,14 @@ Public Class rptSendungen
' Dieser Aufruf ist f<>r den Designer erforderlich. ' Dieser Aufruf ist f<>r den Designer erforderlich.
InitializeComponent() InitializeComponent()
Me.Document.Printer.PrinterName = ""
' F<>gen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. ' F<>gen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub End Sub
Sub New(VALUES As rptSendungenValues, imgPath As String, ZOLLANMELDUNG As DAKOSY_Worker.cZollsysteme_Aktenbeschriftung, HANDLING As List(Of VERAG_PROG_ALLGEMEIN.cSendHandling), VORKOSTEN As List(Of VERAG_PROG_ALLGEMEIN.cSendVorkosten)) Sub New(VALUES As rptSendungenValues, imgPath As String, ZOLLANMELDUNG As DAKOSY_Worker.cZollsysteme_Aktenbeschriftung, HANDLING As List(Of VERAG_PROG_ALLGEMEIN.cSendHandling), VORKOSTEN As List(Of VERAG_PROG_ALLGEMEIN.cSendVorkosten))
InitializeComponent() InitializeComponent()
Me.Document.Printer.PrinterName = ""
Me.VALUES = VALUES Me.VALUES = VALUES
Me.imgPath = imgPath Me.imgPath = imgPath
Me.ZOLLANMELDUNG = ZOLLANMELDUNG Me.ZOLLANMELDUNG = ZOLLANMELDUNG
@@ -216,7 +217,7 @@ Public Class rptSendungen
End Sub End Sub
Private Sub rptSendungen_ReportStart(sender As Object, e As EventArgs) Handles MyBase.ReportStart Private Sub rptSendungen_ReportStart(sender As Object, e As EventArgs) Handles MyBase.ReportStart
Me.Document.Printer.PrinterName = ""
End Sub End Sub
End Class End Class

29
VERAG_TELE/ApplicationEvents.vb Normal file
View File

@@ -0,0 +1,29 @@
Imports Microsoft.VisualBasic.ApplicationServices
Namespace My
' The following events are available for MyApplication:
' Startup: Raised when the application starts, before the startup form is created.
' Shutdown: Raised after all application forms are closed. This event is not raised if the application terminates abnormally.
' UnhandledException: Raised if the application encounters an unhandled exception.
' StartupNextInstance: Raised when launching a single-instance application and the application is already active.
' NetworkAvailabilityChanged: Raised when the network connection is connected or disconnected.
' **NEW** ApplyApplicationDefaults: Raised when the application queries default values to be set for the application.
' Example:
' Private Sub MyApplication_ApplyApplicationDefaults(sender As Object, e As ApplyApplicationDefaultsEventArgs) Handles Me.ApplyApplicationDefaults
'
' ' Setting the application-wide default Font:
' e.Font = New Font(FontFamily.GenericSansSerif, 12, FontStyle.Regular)
'
' ' Setting the HighDpiMode for the Application:
' e.HighDpiMode = HighDpiMode.PerMonitorV2
'
' ' If a splash dialog is used, this sets the minimum display time:
' e.MinimumSplashScreenDisplayTime = 4000
' End Sub
Partial Friend Class MyApplication
End Class
End Namespace

31
VERAG_TELE/Form1.Designer.vb generated Normal file
View File

@@ -0,0 +1,31 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class Form1
Inherits System.Windows.Forms.Form
'Form overrides dispose to clean up the component list.
<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
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
components = New System.ComponentModel.Container()
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(800, 450)
Me.Text = "Form1"
End Sub
End Class

120
VERAG_TELE/Form1.resx Normal file
View File

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

3
VERAG_TELE/Form1.vb Normal file
View File

@@ -0,0 +1,3 @@
Public Class Form1
End Class

37
VERAG_TELE/My Project/Application.Designer.vb generated Normal file
View File

@@ -0,0 +1,37 @@
'------------------------------------------------------------------------------
' <auto-generated>
' This code was generated by a tool.
' Runtime Version:4.0.30319.42000
'
' Changes to this file may cause incorrect behavior and will be lost if
' the code is regenerated.
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On
Namespace My
'NOTE: This file is auto-generated; do not modify it directly. To make changes,
' or if you encounter build errors in this file, go to the Project Designer
' (go to Project Properties or double-click the My Project node in
' Solution Explorer), and make changes on the Application tab.
'
Partial Friend Class MyApplication
<Global.System.Diagnostics.DebuggerStepThroughAttribute()>
Public Sub New()
MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows)
Me.IsSingleInstance = False
Me.EnableVisualStyles = True
Me.SaveMySettingsOnExit = True
Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses
End Sub
<Global.System.Diagnostics.DebuggerStepThroughAttribute()>
Protected Overrides Sub OnCreateMainForm()
Me.MainForm = Form1
End Sub
End Class
End Namespace

10
VERAG_TELE/My Project/Application.myapp Normal file
View File

@@ -0,0 +1,10 @@
<?xml version="1.0" encoding="utf-8"?>
<MyApplicationData xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
<MySubMain>true</MySubMain>
<MainForm>Form1</MainForm>
<SingleInstance>false</SingleInstance>
<ShutdownMode>0</ShutdownMode>
<EnableVisualStyles>true</EnableVisualStyles>
<AuthenticationMode>0</AuthenticationMode>
<SaveMySettingsOnExit>true</SaveMySettingsOnExit>
</MyApplicationData>

32
VERAG_TELE/VERAG_TELE.vbproj Normal file
View File

@@ -0,0 +1,32 @@
<Project Sdk="Microsoft.NET.Sdk">
<PropertyGroup>
<OutputType>WinExe</OutputType>
<TargetFramework>net5.0-windows</TargetFramework>
<StartupObject>Sub Main</StartupObject>
<UseWindowsForms>true</UseWindowsForms>
<MyType>WindowsForms</MyType>
</PropertyGroup>
<ItemGroup>
<Import Include="System.Data" />
<Import Include="System.Drawing" />
<Import Include="System.Windows.Forms" />
</ItemGroup>
<ItemGroup>
<Compile Update="My Project\Application.Designer.vb">
<DesignTime>True</DesignTime>
<AutoGen>True</AutoGen>
<DependentUpon>Application.myapp</DependentUpon>
</Compile>
</ItemGroup>
<ItemGroup>
<None Update="My Project\Application.myapp">
<Generator>MyApplicationCodeGenerator</Generator>
<LastGenOutput>Application.Designer.vb</LastGenOutput>
</None>
</ItemGroup>
</Project>

6
VERAG_TELEINFO/App.config Normal file
View File

@@ -0,0 +1,6 @@
<?xml version="1.0" encoding="utf-8" ?>
<configuration>
<startup>
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.7" />
</startup>
</configuration>

77
VERAG_TELEINFO/Form1.Designer.vb generated Normal file
View File

@@ -0,0 +1,77 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Form1
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.btn = New System.Windows.Forms.Button()
Me.lblStatus = New System.Windows.Forms.Label()
Me.btnTapi = New System.Windows.Forms.Button()
Me.SuspendLayout()
'
'btn
'
Me.btn.Location = New System.Drawing.Point(424, 229)
Me.btn.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.btn.Name = "btn"
Me.btn.Size = New System.Drawing.Size(112, 35)
Me.btn.TabIndex = 0
Me.btn.UseVisualStyleBackColor = True
'
'lblStatus
'
Me.lblStatus.AutoSize = True
Me.lblStatus.Location = New System.Drawing.Point(270, 346)
Me.lblStatus.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.lblStatus.Name = "lblStatus"
Me.lblStatus.Size = New System.Drawing.Size(71, 20)
Me.lblStatus.TabIndex = 1
Me.lblStatus.Text = "lblStatus"
'
'btnTapi
'
Me.btnTapi.Location = New System.Drawing.Point(424, 506)
Me.btnTapi.Name = "btnTapi"
Me.btnTapi.Size = New System.Drawing.Size(75, 23)
Me.btnTapi.TabIndex = 2
Me.btnTapi.Text = "tapi"
Me.btnTapi.UseVisualStyleBackColor = True
'
'Form1
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(9.0!, 20.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(1200, 692)
Me.Controls.Add(Me.btnTapi)
Me.Controls.Add(Me.lblStatus)
Me.Controls.Add(Me.btn)
Me.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.Name = "Form1"
Me.Text = "Form1"
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents btn As Button
Friend WithEvents lblStatus As Label
Friend WithEvents btnTapi As Button
End Class

120
VERAG_TELEINFO/Form1.resx Normal file
View File

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

198
VERAG_TELEINFO/Form1.vb Normal file
View File

@@ -0,0 +1,198 @@

Imports System
Imports System.IO
Imports System.Runtime.InteropServices
Imports System.Text
Imports JulMar.Atapi
Public Class Form1
WithEvents myTapi As JulMar.Atapi.TapiManager
Dim myLine As JulMar.Atapi.TapiLine
Dim myCall As JulMar.Atapi.TapiCall
Private Sub frmEinstellungen_Tapi_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
myTapi = New TapiManager("VERAG_TELEINFO")
AddHandler myTapi.CallStateChanged, AddressOf myCallState
Try
If Not myTapi.Initialize Then
Console.WriteLine("TAPI-Initialize failed")
Exit Sub
Else
myLine = myTapi.GetLineByName("Andreas Luxbauer EDV (135)", True)
myLine.Open(MediaModes.All)
'Dim lineArray As TapiLine() = myTapi.Lines
'Dim i As Integer = 0
'Dim x As String
'For i = 0 To lineArray.Length - 1
' Dim line As TapiLine = lineArray(i)
' If i = 0 Then
' x = "OPEN.....: "
' line.Monitor()
' myLine = line
' Else
' x = "NOT OPEN.: "
' End If
' Console.WriteLine(x & line.Name)
'Next
End If
'--- Wait here ---
Console.ReadLine()
'--- Exit TAPI ---
'myTapi.Shutdown()
'myLine = myTapi.GetLineByName("Andreas Luxbauer EDV (135)", True)
''myLine = myTapi.GetLineByName("135", True)
'myTapi.Initialize()
'myLine.Open(MediaModes.All)
'myTapi.
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
End Try
End Sub
'threadsicherer Aufruf
Delegate Sub SetLabStatusCallback(txt As String)
Private Sub SetLabStatus(txt As String)
If Me.InvokeRequired Then
Dim d As New SetLabStatusCallback(AddressOf SetLabStatus)
Try
Me.Invoke(d, New Object() {txt})
Catch ex As Exception : End Try
Else
lblStatus.Text = txt
End If
End Sub
'Private Delegate Sub DelegateLabstatus(ByVal txt As String)
'Private DLabStatus As New DelegateLabstatus(AddressOf SetLabStatus)
'Private Sub SetLabStatus(ByVal txt As String)
' If Me.InvokeRequired Then
' Me.Invoke(DLabStatus, New Object() {txt})
' Else
' Me.lblStatus.Text = txt
' End If
'End Sub
Private Sub myCallState(ByVal sender As Object, ByVal e As CallStateEventArgs) Handles myTapi.CallStateChanged
Console.WriteLine(e.CallState)
Select Case e.CallState
Case CallState.Busy
SetLabStatus("Teilnehmer besetzt.")
Case CallState.Connected
SetLabStatus("Verbunden")
Case CallState.Dialing
SetLabStatus("Nummer wird gewählt...")
Case CallState.Disconnected
SetLabStatus("Disconnected")
Case CallState.Idle
SetLabStatus("Idle")
Case CallState.Ringback, CallState.Offering, CallState.Accepted '??
SetLabStatus("Läutet...")
Case CallState.Proceeding
SetLabStatus("Anruf in Arbeit...")
Case Else
SetLabStatus(e.CallState)
End Select
End Sub
Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
' myLine.Open(MediaModes.Video)
myLine.MakeCall("06644178557")
'myLine.Capabilities.MediaModes.= MediaModes.Video
End Sub
Private Sub btnTapi_Click(sender As Object, e As EventArgs) Handles btnTapi.Click
frmTapi.Show()
End Sub
End Class
'Public Class Form1
' Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
' ' Try
' MsgBox(PlathosysApiWrapper.Plathosys.ApiVersionNumber())
' Dim VendorID = Nothing '&H299D '&H0x299D
' 'Dim VendorID = 665
' Dim ProductID = Nothing '&H1 '0
' Dim GotVendorID = Nothing '-1
' Dim GotProductID = Nothing '-1
' Dim GotProductName As StringBuilder = Nothing
' Dim gotSerialNumber As StringBuilder = Nothing
' Dim HookPttInfo = -1
' PlathosysApiWrapper.Plathosys.ReadHookAndPTT(HookPttInfo)
' MsgBox(HookPttInfo)
' 'PlathosysApiWrapper.Plathosys.Closedevice()
' Try
' PlathosysApiWrapper.Plathosys.Opendevice(VendorID, ProductID, GotVendorID, GotProductID, GotProductName, gotSerialNumber)
' Catch ex As Exception
' MsgBox(ex.Message & ex.StackTrace)
' End Try
' MsgBox(GotVendorID)
' MsgBox(GotProductID)
' ' Catch ex As Exception
' ' MsgBox(ex.Message & ex.StackTrace)
' ' End Try
' End Sub
' '<DllImport("PlathosysApi.dll", CharSet:=CharSet.Auto, SetLastError:=True)>
' 'Public Shared Function Opendevice(ByRef VendorID As Integer, ByRef ProductID As Integer, ByRef Optional GotVendorID As Integer = -1, ByRef Optional GotProductID As Integer = -1, ByRef Optional GotProductName As String = "") As IntPtr
' 'End Function
' 'Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
' ' Dim VendorID = -1
' ' Dim ProductID = -1
' ' Dim GotVendorID = -1
' ' Dim GotProductID = -1
' ' Dim GotProductName = ""
' ' Opendevice(VendorID, ProductID, GotVendorID, GotProductID, GotProductName)
' ' MsgBox(GotProductName)
' 'End Sub
' ''Public Shared Sub LoadNativeAssemblies(ByVal rootApplicationPath As String)
' '' Dim nativeBinaryPath = If(IntPtr.Size > 4, Path.Combine(rootApplicationPath, "SqlServerTypes\x64\"), Path.Combine(rootApplicationPath, "SqlServerTypes\x86\"))
' '' LoadNativeAssembly(nativeBinaryPath, "msvcr120.dll")
' '' LoadNativeAssembly(nativeBinaryPath, "SqlServerSpatial140.dll")
' ''End Sub
' ''Private Shared Sub LoadNativeAssembly(ByVal nativeBinaryPath As String, ByVal assemblyName As String)
' '' Dim path = System.IO.Path.Combine(nativeBinaryPath, assemblyName)
' '' Dim ptr = LoadLibrary(path)
' '' If ptr = IntPtr.Zero Then
' '' Throw New Exception(String.Format("Error loading {0} (ErrorCode: {1})", assemblyName, Marshal.GetLastWin32Error()))
' '' End If
' ''End Sub
' End Class

30
VERAG_TELEINFO/Form2.Designer.vb generated Normal file
View File

@@ -0,0 +1,30 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Form2
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
components = New System.ComponentModel.Container
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(800, 450)
Me.Text = "Form2"
End Sub
End Class

3
VERAG_TELEINFO/Form2.vb Normal file
View File

@@ -0,0 +1,3 @@
Public Class Form2
End Class

13
VERAG_TELEINFO/My Project/Application.Designer.vb generated Normal file
View File

@@ -0,0 +1,13 @@
'------------------------------------------------------------------------------
' <auto-generated>
' Dieser Code wurde von einem Tool generiert.
' Laufzeitversion:4.0.30319.42000
'
' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
' der Code erneut generiert wird.
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On

9
VERAG_TELEINFO/My Project/Application.myapp Normal file
View File

@@ -0,0 +1,9 @@
<?xml version="1.0" encoding="utf-8"?>
<MyApplicationData xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
<MySubMain>false</MySubMain>
<SingleInstance>false</SingleInstance>
<ShutdownMode>0</ShutdownMode>
<EnableVisualStyles>true</EnableVisualStyles>
<AuthenticationMode>0</AuthenticationMode>
<SaveMySettingsOnExit>true</SaveMySettingsOnExit>
</MyApplicationData>

35
VERAG_TELEINFO/My Project/AssemblyInfo.vb Normal file
View File

@@ -0,0 +1,35 @@
Imports System
Imports System.Reflection
Imports System.Runtime.InteropServices
' Allgemeine Informationen über eine Assembly werden über die folgenden
' Attribute gesteuert. Ändern Sie diese Attributwerte, um die Informationen zu ändern,
' die einer Assembly zugeordnet sind.
' Werte der Assemblyattribute überprüfen
<Assembly: AssemblyTitle("VERAG_TELEINFO")>
<Assembly: AssemblyDescription("")>
<Assembly: AssemblyCompany("")>
<Assembly: AssemblyProduct("VERAG_TELEINFO")>
<Assembly: AssemblyCopyright("Copyright © 2022")>
<Assembly: AssemblyTrademark("")>
<Assembly: ComVisible(False)>
'Die folgende GUID wird für die typelib-ID verwendet, wenn dieses Projekt für COM verfügbar gemacht wird.
<Assembly: Guid("48bb5b51-b9b5-481e-a581-fdb1ebdd4946")>
' Versionsinformationen für eine Assembly bestehen aus den folgenden vier Werten:
'
' Hauptversion
' Nebenversion
' Buildnummer
' Revision
'
' Sie können alle Werte angeben oder Standardwerte für die Build- und Revisionsnummern verwenden,
' indem Sie "*" wie unten gezeigt eingeben:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.0.0.0")>
<Assembly: AssemblyFileVersion("1.0.0.0")>

BIN
VERAG_TELEINFO/My Project/PlathosysApi.dll Normal file
View File

Binary file not shown.

103
VERAG_TELEINFO/My Project/Resources.Designer.vb generated Normal file
View File

@@ -0,0 +1,103 @@
'------------------------------------------------------------------------------
' <auto-generated>
' Dieser Code wurde von einem Tool generiert.
' Laufzeitversion:4.0.30319.42000
'
' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
' der Code erneut generiert wird.
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On
Imports System
Namespace My.Resources
'Diese Klasse wurde von der StronglyTypedResourceBuilder automatisch generiert
'-Klasse über ein Tool wie ResGen oder Visual Studio automatisch generiert.
'Um einen Member hinzuzufügen oder zu entfernen, bearbeiten Sie die .ResX-Datei und führen dann ResGen
'mit der /str-Option erneut aus, oder Sie erstellen Ihr VS-Projekt neu.
'''<summary>
''' Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
'''</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "17.0.0.0"), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _
Friend Module Resources
Private resourceMan As Global.System.Resources.ResourceManager
Private resourceCulture As Global.System.Globalization.CultureInfo
'''<summary>
''' Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird.
'''</summary>
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
Get
If Object.ReferenceEquals(resourceMan, Nothing) Then
Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("VERAG_TELEINFO.Resources", GetType(Resources).Assembly)
resourceMan = temp
End If
Return resourceMan
End Get
End Property
'''<summary>
''' Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle
''' Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden.
'''</summary>
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Friend Property Culture() As Global.System.Globalization.CultureInfo
Get
Return resourceCulture
End Get
Set
resourceCulture = value
End Set
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property _45944336_s() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("45944336_s", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property _call() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("_call", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property Logo_blue_globe_Horizontal_eG() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("Logo_blue_globe_Horizontal_eG", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property PLATHOSYS() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("PLATHOSYS", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
End Module
End Namespace

133
VERAG_TELEINFO/My Project/Resources.resx Normal file
View File

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

73
VERAG_TELEINFO/My Project/Settings.Designer.vb generated Normal file
View File

@@ -0,0 +1,73 @@
'------------------------------------------------------------------------------
' <auto-generated>
' Dieser Code wurde von einem Tool generiert.
' Laufzeitversion:4.0.30319.42000
'
' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
' der Code erneut generiert wird.
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On
Namespace My
<Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "17.2.0.0"), _
Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Partial Friend NotInheritable Class MySettings
Inherits Global.System.Configuration.ApplicationSettingsBase
Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings)
#Region "Automatische My.Settings-Speicherfunktion"
#If _MyType = "WindowsForms" Then
Private Shared addedHandler As Boolean
Private Shared addedHandlerLockObject As New Object
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Private Shared Sub AutoSaveSettings(sender As Global.System.Object, e As Global.System.EventArgs)
If My.Application.SaveMySettingsOnExit Then
My.Settings.Save()
End If
End Sub
#End If
#End Region
Public Shared ReadOnly Property [Default]() As MySettings
Get
#If _MyType = "WindowsForms" Then
If Not addedHandler Then
SyncLock addedHandlerLockObject
If Not addedHandler Then
AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
addedHandler = True
End If
End SyncLock
End If
#End If
Return defaultInstance
End Get
End Property
End Class
End Namespace
Namespace My
<Global.Microsoft.VisualBasic.HideModuleNameAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()> _
Friend Module MySettingsProperty
<Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")> _
Friend ReadOnly Property Settings() As Global.VERAG_TELEINFO.My.MySettings
Get
Return Global.VERAG_TELEINFO.My.MySettings.Default
End Get
End Property
End Module
End Namespace

7
VERAG_TELEINFO/My Project/Settings.settings Normal file
View File

@@ -0,0 +1,7 @@
<?xml version='1.0' encoding='utf-8'?>
<SettingsFile xmlns="http://schemas.microsoft.com/VisualStudio/2004/01/settings" CurrentProfile="(Default)" UseMySettingsClassName="true">
<Profiles>
<Profile Name="(Default)" />
</Profiles>
<Settings />
</SettingsFile>

79
VERAG_TELEINFO/My Project/app.manifest Normal file
View File

@@ -0,0 +1,79 @@
<?xml version="1.0" encoding="utf-8"?>
<assembly manifestVersion="1.0" xmlns="urn:schemas-microsoft-com:asm.v1">
<assemblyIdentity version="1.0.0.0" name="MyApplication.app"/>
<trustInfo xmlns="urn:schemas-microsoft-com:asm.v2">
<security>
<requestedPrivileges xmlns="urn:schemas-microsoft-com:asm.v3">
<!-- UAC-Manifestoptionen
Wenn Sie die Ebene der Benutzerkontensteuerung für Windows ändern möchten, ersetzen Sie den
Knoten "requestedExecutionLevel" wie folgt.
<requestedExecutionLevel level="asInvoker" uiAccess="false" />
<requestedExecutionLevel level="requireAdministrator" uiAccess="false" />
<requestedExecutionLevel level="highestAvailable" uiAccess="false" />
Durch Angabe des Elements "requestedExecutionLevel" wird die Datei- und Registrierungsvirtualisierung deaktiviert.
Entfernen Sie dieses Element, wenn diese Virtualisierung aus Gründen der Abwärtskompatibilität
für die Anwendung erforderlich ist.
-->
<requestedExecutionLevel level="asInvoker" uiAccess="false" />
</requestedPrivileges>
</security>
</trustInfo>
<compatibility xmlns="urn:schemas-microsoft-com:compatibility.v1">
<application>
<!-- Eine Liste der Windows-Versionen, unter denen diese Anwendung getestet
und für die sie entwickelt wurde. Wenn Sie die Auskommentierung der entsprechenden Elemente aufheben,
wird von Windows automatisch die kompatibelste Umgebung ausgewählt. -->
<!-- Windows Vista -->
<!--<supportedOS Id="{e2011457-1546-43c5-a5fe-008deee3d3f0}" />-->
<!-- Windows 7 -->
<!--<supportedOS Id="{35138b9a-5d96-4fbd-8e2d-a2440225f93a}" />-->
<!-- Windows 8 -->
<!--<supportedOS Id="{4a2f28e3-53b9-4441-ba9c-d69d4a4a6e38}" />-->
<!-- Windows 8.1 -->
<!--<supportedOS Id="{1f676c76-80e1-4239-95bb-83d0f6d0da78}" />-->
<!-- Windows 10 -->
<!--<supportedOS Id="{8e0f7a12-bfb3-4fe8-b9a5-48fd50a15a9a}" />-->
</application>
</compatibility>
<!-- Gibt an, dass die Anwendung mit DPI-Werten kompatibel ist und von Windows nicht automatisch auf höhere
DPI-Werte skaliert wird. WPF-Anwendungen (Windows Presentation Foundation) sind automatisch mit DPI-Werten kompatibel, eine Aktivierung
ist nicht erforderlich. Für Windows Forms-Anwendungen für .NET Framework 4.6, die diese Einstellung aktivieren, muss
auch die Einstellung "'EnableWindowsFormsHighDpiAutoResizing" in der Datei "app.config" auf TRUE festgelegt werden.
Hierdurch können für die Anwendung lange Pfade verwendet werden. Weitere Informationen finden Sie unter https://docs.microsoft.com/windows/win32/fileio/maximum-file-path-limitation.-->
<!--
<application xmlns="urn:schemas-microsoft-com:asm.v3">
<windowsSettings>
<dpiAware xmlns="http://schemas.microsoft.com/SMI/2005/WindowsSettings">true</dpiAware>
<longPathAware xmlns="http://schemas.microsoft.com/SMI/2016/WindowsSettings">true</longPathAware>
</windowsSettings>
</application>
-->
<!-- Designs für allgemeine Windows-Steuerelemente und -Dialogfelder (Windows XP und höher) aktivieren -->
<!--
<dependency>
<dependentAssembly>
<assemblyIdentity
type="win32"
name="Microsoft.Windows.Common-Controls"
version="6.0.0.0"
processorArchitecture="*"
publicKeyToken="6595b64144ccf1df"
language="*"
/>
</dependentAssembly>
</dependency>
-->
</assembly>

BIN
VERAG_TELEINFO/My Project/mfc100.dll Normal file
View File

Binary file not shown.

BIN
VERAG_TELEINFO/My Project/msvcr100.dll Normal file
View File

Binary file not shown.

BIN
VERAG_TELEINFO/PlathosysApi.dll Normal file
View File

Binary file not shown.

67
VERAG_TELEINFO/PlathosysApi.h Normal file
View File

@@ -0,0 +1,67 @@
// PlathosysApi.h
#ifdef PLATHOSYSAPIDLL_EXPORTS
#define PLATHOSYSAPIDLL_API __declspec(dllexport)
#else
#define PLATHOSYSAPIDLL_API __declspec(dllimport)
#endif
namespace PlathosysApiFuncs
{
class PlathosysFn
{
public:
static PLATHOSYSAPIDLL_API unsigned int PlathosysFn::ApiVersionNumber(); //Not with PID 0x0003,0x0004 devices
static PLATHOSYSAPIDLL_API int PlathosysFn::Opendevice(unsigned int VendorID,unsigned int ProductID,unsigned int *GotVendorID,unsigned int *GotProductID, char *GotProductName, char *SerialNumber);
static PLATHOSYSAPIDLL_API int PlathosysFn::Closedevice();
static PLATHOSYSAPIDLL_API int PlathosysFn::IsDeviceOpen();
static PLATHOSYSAPIDLL_API int PlathosysFn::SetHandsetVolume(unsigned int Volume); //Do not use in new software client. (Use SetHandsetVolume() )
static PLATHOSYSAPIDLL_API int PlathosysFn::SetHeadsetVolume(unsigned int Volume); //Do not use in new software client. (Use SetHeadsetdBVolume() )
static PLATHOSYSAPIDLL_API int PlathosysFn::SetIntSpeakerVolume(unsigned int Volume); //Do not use in new software client. (Use SetIntSpeakerdBVolume() )
static PLATHOSYSAPIDLL_API int PlathosysFn::SetIntSpeakerMute(bool State);
static PLATHOSYSAPIDLL_API int PlathosysFn::SetHandsetMicVolume(unsigned int Volume); //Do not use in new software client. (Use SetHandsetdBMicVolume() )
static PLATHOSYSAPIDLL_API int PlathosysFn::SetHeadsetMicVolume(unsigned int Volume); //Do not use in new software client. (Use SetHeadsetdBMicVolume() )
static PLATHOSYSAPIDLL_API int PlathosysFn::SetExtMicVolume(unsigned int Volume); //Do not use in new software client. (Use SetExtMicdBVolume() )
static PLATHOSYSAPIDLL_API int PlathosysFn::ReadCurrentInfo(unsigned char *Info1,unsigned char *Info2,unsigned char *Info3,unsigned char *Info4,unsigned char *Info5,unsigned char *Info6,
unsigned char *Info7,unsigned char *Info8,unsigned char *Info9,unsigned char *Info10); //Do not use in new software client. (Use ReadCurrentInfodB() )
static PLATHOSYSAPIDLL_API int PlathosysFn::ReadHookAndPTT(unsigned int *HookPttInfo);
static PLATHOSYSAPIDLL_API int PlathosysFn::SetSideTone(int OnOff);
static PLATHOSYSAPIDLL_API int PlathosysFn::SetMicMute(int OnOff);
static PLATHOSYSAPIDLL_API int PlathosysFn::SetSpeakerOutMute(int OnOff);
static PLATHOSYSAPIDLL_API int PlathosysFn::SetWideBand(int OnOff); //Only with PID 0x0001,0x0002 devices
static PLATHOSYSAPIDLL_API int PlathosysFn::SetEchoCanseller(int OnOff); //Not with PID 0x0003,0x0004 devices
static PLATHOSYSAPIDLL_API int PlathosysFn::SetExtMic(bool State); //Only with PID 0x0001,0x0002 devices
static PLATHOSYSAPIDLL_API int PlathosysFn::SetConference(bool State); //Only with PID 0x0001,0x0002 devices
static PLATHOSYSAPIDLL_API int PlathosysFn::SetHeadsetActive(bool State); //Not with PID 0x0003,0x0004 devices
static PLATHOSYSAPIDLL_API int PlathosysFn::SetWirelessHeadsetRinging(bool State); //Not with PID 0x0003,0x0004 devices
static PLATHOSYSAPIDLL_API int PlathosysFn::SetWirelessCall(bool State); //Not with PID 0x0003,0x0004 devices
static PLATHOSYSAPIDLL_API int PlathosysFn::SetPttFunctions(unsigned int InVal); //Not with PID 0x0003,0x0004 devices
static PLATHOSYSAPIDLL_API int PlathosysFn::SetHeadsetEar(int OnOffRelease); //Not with PID 0x0003,0x0004 devices
static PLATHOSYSAPIDLL_API int PlathosysFn::SetExtmicLed(bool State); //Only with PID 0x0001,0x0002 devices
static PLATHOSYSAPIDLL_API int PlathosysFn::SetByListening(bool State);
static PLATHOSYSAPIDLL_API int PlathosysFn::SetCodecType(int CodecType); //Only with PID 0x0001,0x0002 devices
static PLATHOSYSAPIDLL_API int PlathosysFn::SetSerialNumber(unsigned long Serno); //Not with PID 0x0003,0x0004 devices
static PLATHOSYSAPIDLL_API int PlathosysFn::InitHookAndPTTState();
static PLATHOSYSAPIDLL_API int PlathosysFn::MuteSpkCt140(bool State); //Only PID 0x0003,0x0004 devices
static PLATHOSYSAPIDLL_API int PlathosysFn::MuteMicCt140(bool State); //Only PID 0x0003,0x0004 devices
static PLATHOSYSAPIDLL_API int PlathosysFn::SetHeadsetdBVolume(int dBVolume); //Not with PID 0x0003,0x0004 devices
static PLATHOSYSAPIDLL_API int PlathosysFn::SetHeadsetMicdBVolume(int dBVolume); //Not with PID 0x0003,0x0004 devices
static PLATHOSYSAPIDLL_API int PlathosysFn::SetExtMicdBVolume(int dBVolume); //Only with PID 0x0001,0x0002 devices
static PLATHOSYSAPIDLL_API int PlathosysFn::SetIntSpeakerdBVolume(int dBVolume); //Not with PID 0x0003,0x0004 devices
static PLATHOSYSAPIDLL_API int PlathosysFn::SetIntAlarmSpeakerdBVolume(int dBVolume); //Not with PID 0x0003,0x0004 devices
static PLATHOSYSAPIDLL_API int PlathosysFn::SetIntAlarmSpeakerVolume(unsigned int Volume); //Not with PID 0x0003,0x0004 devices
static PLATHOSYSAPIDLL_API int PlathosysFn::SetLyncFeature(unsigned int Feature ); //Only with PID 0x0005,0x0006 devices
static PLATHOSYSAPIDLL_API int PlathosysFn::ReadCurrentInfodB(unsigned char *Info1,unsigned char *Info2,unsigned char *Info3,unsigned char *Info4,unsigned char *Info5,unsigned char *Info6,
unsigned char *Info7,unsigned char *Info8,unsigned char *Info9,unsigned char *Info10,
char *Info11,char *Info12,char *Info13, char *Info14, char *Info15,unsigned char *Info16); //Not with PID 0x0003,0x0004 devices
};
}

BIN
VERAG_TELEINFO/PlathosysApi.lib Normal file
View File

Binary file not shown.

234
VERAG_TELEINFO/VERAG_TELEINFO.vbproj Normal file
View File

@@ -0,0 +1,234 @@
<?xml version="1.0" encoding="utf-8"?>
<Project ToolsVersion="15.0" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<Import Project="$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props" Condition="Exists('$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props')" />
<PropertyGroup>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<ProjectGuid>{5193A729-058C-4C93-B7D3-0A228CA719CC}</ProjectGuid>
<OutputType>WinExe</OutputType>
<StartupObject>VERAG_TELEINFO.frmTapi</StartupObject>
<RootNamespace>VERAG_TELEINFO</RootNamespace>
<AssemblyName>VERAG_TELEINFO</AssemblyName>
<FileAlignment>512</FileAlignment>
<MyType>WindowsFormsWithCustomSubMain</MyType>
<TargetFrameworkVersion>v4.7</TargetFrameworkVersion>
<AutoGenerateBindingRedirects>true</AutoGenerateBindingRedirects>
<Deterministic>true</Deterministic>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<PlatformTarget>AnyCPU</PlatformTarget>
<DebugSymbols>true</DebugSymbols>
<DebugType>full</DebugType>
<DefineDebug>true</DefineDebug>
<DefineTrace>true</DefineTrace>
<OutputPath>bin\Debug\</OutputPath>
<DocumentationFile>VERAG_TELEINFO.xml</DocumentationFile>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<PlatformTarget>AnyCPU</PlatformTarget>
<DebugType>pdbonly</DebugType>
<DefineDebug>false</DefineDebug>
<DefineTrace>true</DefineTrace>
<Optimize>true</Optimize>
<OutputPath>bin\Release\</OutputPath>
<DocumentationFile>VERAG_TELEINFO.xml</DocumentationFile>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
</PropertyGroup>
<PropertyGroup>
<OptionExplicit>On</OptionExplicit>
</PropertyGroup>
<PropertyGroup>
<OptionCompare>Binary</OptionCompare>
</PropertyGroup>
<PropertyGroup>
<OptionStrict>Off</OptionStrict>
</PropertyGroup>
<PropertyGroup>
<OptionInfer>On</OptionInfer>
</PropertyGroup>
<PropertyGroup>
<ApplicationManifest>My Project\app.manifest</ApplicationManifest>
</PropertyGroup>
<ItemGroup>
<Reference Include="ChilkatDotNet47">
<HintPath>..\..\..\dll\ChillKat64\ChilkatDotNet47.dll</HintPath>
</Reference>
<Reference Include="ClosedXML">
<HintPath>..\packages\ClosedXML.0.95.4\lib\net46\ClosedXML.dll</HintPath>
</Reference>
<Reference Include="com.esendex.sdk">
<HintPath>C:\Users\DEVELOPER1\.nuget\packages\esendex-dotnet-sdk\3.8.0\lib\net35\com.esendex.sdk.dll</HintPath>
</Reference>
<Reference Include="Dynamsoft.Forms.Viewer">
<HintPath>..\..\..\dll\Dynamsoft\8.3.3\Dynamsoft.Forms.Viewer.dll</HintPath>
</Reference>
<Reference Include="Dynamsoft.ImageCore">
<HintPath>..\..\..\dll\Dynamsoft\8.3.3\Dynamsoft.ImageCore.dll</HintPath>
</Reference>
<Reference Include="Dynamsoft.PDF">
<HintPath>..\..\..\dll\Dynamsoft\8.3.3\Dynamsoft.PDF.dll</HintPath>
</Reference>
<Reference Include="Dynamsoft.Twain">
<HintPath>..\..\..\dll\Dynamsoft\8.3.3\Dynamsoft.Twain.dll</HintPath>
</Reference>
<Reference Include="Ghostscript.NET">
<HintPath>..\..\..\dll\Ghostscript.NET.dll</HintPath>
</Reference>
<Reference Include="Interop.TAPI3Lib">
<HintPath>..\..\..\dll\Tapi3\Interop.TAPI3Lib.dll</HintPath>
<EmbedInteropTypes>False</EmbedInteropTypes>
</Reference>
<Reference Include="itextsharp">
<HintPath>..\..\..\dll\itextsharp.dll</HintPath>
</Reference>
<Reference Include="NetSpell.SpellChecker">
<HintPath>..\..\..\dll\NetSpell.SpellChecker.DLL</HintPath>
</Reference>
<Reference Include="Newtonsoft.Json, Version=10.0.0.0, Culture=neutral, PublicKeyToken=30ad4fe6b2a6aeed, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>C:\Users\DEVELOPER1\.nuget\packages\newtonsoft.json\10.0.3\lib\net45\Newtonsoft.Json.dll</HintPath>
</Reference>
<Reference Include="Spire.Pdf">
<HintPath>..\..\..\dll\Spire.PDF\2021\Spire.Pdf.dll</HintPath>
</Reference>
<Reference Include="System" />
<Reference Include="System.Data" />
<Reference Include="System.Deployment" />
<Reference Include="System.DirectoryServices" />
<Reference Include="System.Drawing" />
<Reference Include="System.Runtime.Serialization" />
<Reference Include="System.ServiceModel" />
<Reference Include="System.Web" />
<Reference Include="System.Web.Services" />
<Reference Include="System.Windows.Forms" />
<Reference Include="System.Xml" />
<Reference Include="System.Core" />
<Reference Include="System.Xml.Linq" />
<Reference Include="System.Data.DataSetExtensions" />
<Reference Include="System.Net.Http" />
<Reference Include="VBTAPI">
<HintPath>..\..\..\dll\Tapi3\VBTAPI.dll</HintPath>
<EmbedInteropTypes>False</EmbedInteropTypes>
</Reference>
</ItemGroup>
<ItemGroup>
<Import Include="Microsoft.VisualBasic" />
<Import Include="System" />
<Import Include="System.Collections" />
<Import Include="System.Collections.Generic" />
<Import Include="System.Data" />
<Import Include="System.Drawing" />
<Import Include="System.Diagnostics" />
<Import Include="System.Windows.Forms" />
<Import Include="System.Linq" />
<Import Include="System.Xml.Linq" />
<Import Include="System.Threading.Tasks" />
</ItemGroup>
<ItemGroup>
<Compile Include="Form1.vb">
<SubType>Form</SubType>
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
</Compile>
<Compile Include="Form1.Designer.vb">
<DependentUpon>Form1.vb</DependentUpon>
<SubType>Form</SubType>
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
</Compile>
<Compile Include="Form2.Designer.vb">
<DependentUpon>Form2.vb</DependentUpon>
</Compile>
<Compile Include="Form2.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmTapi.Designer.vb">
<DependentUpon>frmTapi.vb</DependentUpon>
</Compile>
<Compile Include="frmTapi.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="My Project\AssemblyInfo.vb" />
<Compile Include="My Project\Application.Designer.vb">
<AutoGen>True</AutoGen>
<DependentUpon>Application.myapp</DependentUpon>
<DesignTime>True</DesignTime>
</Compile>
<Compile Include="My Project\Resources.Designer.vb">
<AutoGen>True</AutoGen>
<DesignTime>True</DesignTime>
<DependentUpon>Resources.resx</DependentUpon>
</Compile>
<Compile Include="My Project\Settings.Designer.vb">
<AutoGen>True</AutoGen>
<DependentUpon>Settings.settings</DependentUpon>
<DesignTimeSharedInput>True</DesignTimeSharedInput>
</Compile>
</ItemGroup>
<ItemGroup>
<EmbeddedResource Include="Form1.resx">
<DependentUpon>Form1.vb</DependentUpon>
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
</EmbeddedResource>
<EmbeddedResource Include="frmTapi.resx">
<DependentUpon>frmTapi.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="My Project\Resources.resx">
<Generator>VbMyResourcesResXFileCodeGenerator</Generator>
<LastGenOutput>Resources.Designer.vb</LastGenOutput>
<CustomToolNamespace>My.Resources</CustomToolNamespace>
<SubType>Designer</SubType>
</EmbeddedResource>
</ItemGroup>
<ItemGroup>
<Content Include="PlathosysApiWrapper.pdb">
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
</Content>
<None Include="My Project\app.manifest" />
<None Include="My Project\Application.myapp">
<Generator>MyApplicationCodeGenerator</Generator>
<LastGenOutput>Application.Designer.vb</LastGenOutput>
</None>
<None Include="My Project\Settings.settings">
<Generator>SettingsSingleFileGenerator</Generator>
<CustomToolNamespace>My</CustomToolNamespace>
<LastGenOutput>Settings.Designer.vb</LastGenOutput>
</None>
<None Include="App.config" />
<Content Include="PlathosysApi.lib">
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
</Content>
</ItemGroup>
<ItemGroup>
<Content Include="mfc100.dll">
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
</Content>
<Content Include="msvcr100.dll">
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
</Content>
<Content Include="My Project\mfc100.dll" />
<Content Include="My Project\msvcr100.dll" />
<Content Include="My Project\PlathosysApi.dll" />
<Content Include="PlathosysApi.dll">
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
</Content>
<Content Include="PlathosysApi.h">
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
</Content>
</ItemGroup>
<ItemGroup>
<ProjectReference Include="..\..\..\..\SCHNITTSTELLEN\PLATHOSYS\WRAPPER\PlathosysApiWrapper-master\PlathosysApiWrapper-master\PlathosysApiWrapper\PlathosysApiWrapper.csproj">
<Project>{a4a15e4a-9d83-4fd5-807b-63fc87ca4f0f}</Project>
<Name>PlathosysApiWrapper</Name>
</ProjectReference>
<ProjectReference Include="..\..\..\SDL\SDL\VERAG_PROG_ALLGEMEIN\VERAG_PROG_ALLGEMEIN.vbproj">
<Project>{A3B497BD-842C-4A2B-B398-ED1976849DF1}</Project>
<Name>VERAG_PROG_ALLGEMEIN</Name>
</ProjectReference>
</ItemGroup>
<ItemGroup>
<PackageReference Include="ATAPI">
<Version>2018.3.9</Version>
</PackageReference>
</ItemGroup>
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
</Project>

267
VERAG_TELEINFO/frmTapi.Designer.vb generated Normal file
View File

@@ -0,0 +1,267 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmTapi
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Me.btn = New System.Windows.Forms.Button()
Me.lblStatusTAPI = New System.Windows.Forms.Label()
Me.Label1 = New System.Windows.Forms.Label()
Me.Button1 = New System.Windows.Forms.Button()
Me.Timer = New System.Windows.Forms.Timer(Me.components)
Me.pnl = New System.Windows.Forms.Panel()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.picCallState = New System.Windows.Forms.PictureBox()
Me.lblCallState = New System.Windows.Forms.Label()
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
Me.Panel2 = New System.Windows.Forms.Panel()
Me.lblClose = New System.Windows.Forms.Label()
Me.pic = New System.Windows.Forms.PictureBox()
Me.lblClock = New System.Windows.Forms.Label()
Me.lbl = New System.Windows.Forms.Label()
Me.Panel = New System.Windows.Forms.Panel()
Me.pnl.SuspendLayout()
Me.Panel1.SuspendLayout()
CType(Me.picCallState, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.Panel2.SuspendLayout()
CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'btn
'
Me.btn.Location = New System.Drawing.Point(273, 45)
Me.btn.Margin = New System.Windows.Forms.Padding(2)
Me.btn.Name = "btn"
Me.btn.Size = New System.Drawing.Size(50, 15)
Me.btn.TabIndex = 0
Me.btn.UseVisualStyleBackColor = True
'
'lblStatusTAPI
'
Me.lblStatusTAPI.AutoSize = True
Me.lblStatusTAPI.Location = New System.Drawing.Point(18, 112)
Me.lblStatusTAPI.Name = "lblStatusTAPI"
Me.lblStatusTAPI.Size = New System.Drawing.Size(75, 13)
Me.lblStatusTAPI.TabIndex = 1
Me.lblStatusTAPI.Text = "asdasdasdasd"
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(18, 125)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(75, 13)
Me.Label1.TabIndex = 2
Me.Label1.Text = "asdasdasdasd"
'
'Button1
'
Me.Button1.Location = New System.Drawing.Point(257, 89)
Me.Button1.Margin = New System.Windows.Forms.Padding(2)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(167, 85)
Me.Button1.TabIndex = 3
Me.Button1.UseVisualStyleBackColor = True
'
'Timer
'
Me.Timer.Interval = 500
'
'pnl
'
Me.pnl.Controls.Add(Me.btn)
Me.pnl.Controls.Add(Me.Button1)
Me.pnl.Controls.Add(Me.lblStatusTAPI)
Me.pnl.Controls.Add(Me.Label1)
Me.pnl.Location = New System.Drawing.Point(67, 44)
Me.pnl.Name = "pnl"
Me.pnl.Size = New System.Drawing.Size(444, 186)
Me.pnl.TabIndex = 4
Me.pnl.Visible = False
'
'Panel1
'
Me.Panel1.BackColor = System.Drawing.Color.White
Me.Panel1.Controls.Add(Me.picCallState)
Me.Panel1.Controls.Add(Me.pic)
Me.Panel1.Controls.Add(Me.lblCallState)
Me.Panel1.Controls.Add(Me.PictureBox1)
Me.Panel1.Controls.Add(Me.Panel2)
Me.Panel1.Controls.Add(Me.Panel)
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill
Me.Panel1.Location = New System.Drawing.Point(0, 0)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(1318, 893)
Me.Panel1.TabIndex = 5
'
'picCallState
'
Me.picCallState.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.picCallState.BackgroundImage = Global.VERAG_TELEINFO.My.Resources.Resources.PLATHOSYS
Me.picCallState.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.picCallState.Location = New System.Drawing.Point(382, 378)
Me.picCallState.Name = "picCallState"
Me.picCallState.Size = New System.Drawing.Size(529, 268)
Me.picCallState.TabIndex = 10
Me.picCallState.TabStop = False
'
'lblCallState
'
Me.lblCallState.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblCallState.Font = New System.Drawing.Font("Microsoft Sans Serif", 20.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblCallState.Location = New System.Drawing.Point(161, 206)
Me.lblCallState.Name = "lblCallState"
Me.lblCallState.Size = New System.Drawing.Size(1016, 101)
Me.lblCallState.TabIndex = 9
Me.lblCallState.Text = "1. Halten Sie Ihr Kennzeichen (Auflieger) bereit." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "2. Bitte heben Sie den Höhrer " &
"ab, um den Anruf zu starten." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "3. Sie werden automatisch mit einem Service-Mitarb" &
"eiter verbunden." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10)
Me.lblCallState.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'PictureBox1
'
Me.PictureBox1.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.PictureBox1.BackgroundImage = Global.VERAG_TELEINFO.My.Resources.Resources._45944336_s
Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox1.Location = New System.Drawing.Point(382, 746)
Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(529, 98)
Me.PictureBox1.TabIndex = 5
Me.PictureBox1.TabStop = False
'
'Panel2
'
Me.Panel2.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Panel2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Panel2.Controls.Add(Me.lblClose)
Me.Panel2.Controls.Add(Me.lblClock)
Me.Panel2.Controls.Add(Me.lbl)
Me.Panel2.Dock = System.Windows.Forms.DockStyle.Top
Me.Panel2.Location = New System.Drawing.Point(0, 0)
Me.Panel2.Name = "Panel2"
Me.Panel2.Size = New System.Drawing.Size(1318, 104)
Me.Panel2.TabIndex = 4
'
'lblClose
'
Me.lblClose.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblClose.Cursor = System.Windows.Forms.Cursors.Hand
Me.lblClose.Font = New System.Drawing.Font("Microsoft Sans Serif", 20.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblClose.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.lblClose.Location = New System.Drawing.Point(1247, -1)
Me.lblClose.Name = "lblClose"
Me.lblClose.Size = New System.Drawing.Size(70, 31)
Me.lblClose.TabIndex = 9
Me.lblClose.Text = "X"
Me.lblClose.TextAlign = System.Drawing.ContentAlignment.TopCenter
'
'pic
'
Me.pic.BackgroundImage = Global.VERAG_TELEINFO.My.Resources.Resources.Logo_blue_globe_Horizontal_eG
Me.pic.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.pic.Location = New System.Drawing.Point(3, 110)
Me.pic.Name = "pic"
Me.pic.Size = New System.Drawing.Size(332, 104)
Me.pic.TabIndex = 8
Me.pic.TabStop = False
'
'lblClock
'
Me.lblClock.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblClock.Font = New System.Drawing.Font("Microsoft Sans Serif", 20.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblClock.ForeColor = System.Drawing.Color.White
Me.lblClock.Location = New System.Drawing.Point(14, 43)
Me.lblClock.Name = "lblClock"
Me.lblClock.Size = New System.Drawing.Size(1291, 31)
Me.lblClock.TabIndex = 4
Me.lblClock.Text = "INFO TERMINAL"
Me.lblClock.TextAlign = System.Drawing.ContentAlignment.TopCenter
'
'lbl
'
Me.lbl.AutoSize = True
Me.lbl.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!)
Me.lbl.Location = New System.Drawing.Point(543, 8)
Me.lbl.Name = "lbl"
Me.lbl.Size = New System.Drawing.Size(240, 20)
Me.lbl.TabIndex = 0
Me.lbl.Text = "Bitte scannen Sie den QR-Code:"
Me.lbl.Visible = False
'
'Panel
'
Me.Panel.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Panel.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Panel.Dock = System.Windows.Forms.DockStyle.Bottom
Me.Panel.Location = New System.Drawing.Point(0, 863)
Me.Panel.Name = "Panel"
Me.Panel.Size = New System.Drawing.Size(1318, 30)
Me.Panel.TabIndex = 3
'
'frmTapi
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(1318, 893)
Me.Controls.Add(Me.Panel1)
Me.Controls.Add(Me.pnl)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
Me.Margin = New System.Windows.Forms.Padding(2)
Me.Name = "frmTapi"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "frmTapi"
Me.WindowState = System.Windows.Forms.FormWindowState.Maximized
Me.pnl.ResumeLayout(False)
Me.pnl.PerformLayout()
Me.Panel1.ResumeLayout(False)
CType(Me.picCallState, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
Me.Panel2.ResumeLayout(False)
Me.Panel2.PerformLayout()
CType(Me.pic, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
Friend WithEvents btn As Button
Friend WithEvents lblStatusTAPI As Label
Friend WithEvents Label1 As Label
Friend WithEvents Button1 As Button
Friend WithEvents Timer As Timer
Friend WithEvents pnl As Panel
Friend WithEvents Panel1 As Panel
Friend WithEvents Panel2 As Panel
Friend WithEvents pic As PictureBox
Friend WithEvents lblClock As Label
Friend WithEvents lbl As Label
Friend WithEvents Panel As Panel
Friend WithEvents PictureBox1 As PictureBox
Friend WithEvents picCallState As PictureBox
Friend WithEvents lblCallState As Label
Friend WithEvents lblClose As Label
End Class

123
VERAG_TELEINFO/frmTapi.resx Normal file
View File

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

614
VERAG_TELEINFO/frmTapi.vb Normal file
View File

@@ -0,0 +1,614 @@
Imports System.ComponentModel
Imports System.Text
Imports TAPI3Lib
Public Class frmTapi
Private Const MediaAudio As Integer = 8
Private Const MediaModem As Integer = 16
Private Const MediaFax As Integer = 32
Private Const MediaVideo As Integer = 32768
Private WithEvents oTAPI As TAPI3Lib.TAPI ' will hold our TAPI object
' will hold our selected address (you can hold many addresses in an array)
Private oAddress As ITAddress
Private RegCookie As Integer
Sub New()
Try
InitializeComponent()
' creating a new instance to first initialize TAPI
' before attaching the events
Dim m_TAPI As New TAPI3Lib.TAPIClass
' a variable to hold supported media types for the address
Dim MediaTypes As Integer
' initializing TAPI
m_TAPI.Initialize()
' attaching event sink
oTAPI = m_TAPI
' getting rid of the private instance as we have another
' global instance (oTAPI)
m_TAPI = Nothing
Dim AddressCollection As ITCollection = oTAPI.Addresses()
' looping through address collection
For Each Address As ITAddress In AddressCollection
' checking if address is working
If Address.State = ADDRESS_STATE.AS_INSERVICE Then
' extracting media support interface from the address
Dim MediaSupport As ITMediaSupport = Address
' extracting media types supporting
MediaTypes = MediaSupport.MediaTypes
MediaSupport = Nothing ' dispose of the object
'If (MediaTypes And MediaModem) = MediaModem Then
If MediaModem = MediaModem Then
' the address is a data Modem
If MediaTypes = MediaAudio Then
' Select the address since it supports Audio
' and is a FAX/Modem
oAddress = Address ' select this address
' show the selected address name
SetLabStatus(lblStatusTAPI, "we have selected this address: " & oAddress.AddressName)
Exit For
End If
End If
End If
Next Address
If Not (oAddress Is Nothing) Then
' registering notifications for the selected address
RegCookie = oTAPI.RegisterCallNotifications(oAddress, True, False, MediaTypes, 1)
' Note: this registration can be done on
' as many addresses as you want
' we will not receive notifications unless we specify
' which type of events we are interested in
oTAPI.EventFilter = (TAPI_EVENT.TE_CALLNOTIFICATION Or
TAPI_EVENT.TE_CALLSTATE Or TAPI_EVENT.TE_CALLINFOCHANGE)
Else
MsgBox("no address selected")
End If
Catch ex As Exception
MsgBox("Error occurred:" & vbCrLf & ex.Message,
MsgBoxStyle.Critical, "VBCITY.VBTAPI")
End Try
' by now we are done for the initialization and registration
' and the events should fire
' Note: you must dispose of TAPI before you destroy the class
' and I will leave this for now
End Sub
Private Sub oTAPI_Event(ByVal TapiEvent As TAPI3Lib.TAPI_EVENT,
ByVal pEvent As Object) Handles oTAPI.Event
' making a thread asynchronously process the event
Dim thAsyncCall As System.Threading.Thread
Select Case TapiEvent
Case TAPI_EVENT.TE_CALLNOTIFICATION 'Call Notification Arrived
' assigning our sub's delegate to the thread
thAsyncCall = New Threading.Thread(AddressOf CallNotificationEvent)
' passing the variable for the thread
CallNotificationObject = CType(pEvent, ITCallNotificationEvent)
' starting the thread
thAsyncCall.Start()
Case TAPI_EVENT.TE_CALLSTATE 'Call State Changes
' assigning our sub's delegate to the thread
thAsyncCall = New Threading.Thread(AddressOf CallStateEvent)
' passing the variable for the thread
CallStateObject = CType(pEvent, ITCallStateEvent)
' starting the thread
thAsyncCall.Start()
Case TAPI_EVENT.TE_CALLINFOCHANGE 'Call Info Changes
' assigning our sub's delegate to the thread
thAsyncCall = New Threading.Thread(AddressOf CallInfoEvent)
' passing the variable for the thread
CallInfoObject = CType(pEvent, ITCallInfoChangeEvent)
' starting the thread
thAsyncCall.Start()
End Select
End Sub
Private CallNotificationObject As ITCallNotificationEvent
Private Sub CallNotificationEvent()
' here we should check to see various notifications of new and ended calls
Select Case CallNotificationObject.Event
Case CALL_NOTIFICATION_EVENT.CNE_MONITOR
' the notification is for a monitored call
Case CALL_NOTIFICATION_EVENT.CNE_OWNER
' the notification is for an owned call
End Select
End Sub
Private CallStateObject As ITCallStateEvent
Private Sub CallStateEvent()
' here we should check to see call state and handle connects and disconnects
Select Case CallStateObject.State
Case CALL_STATE.CS_IDLE
SetLabStatus(lblStatusTAPI, "CS_IDLE")
Case CALL_STATE.CS_INPROGRESS
SetLabStatus(lblStatusTAPI, "CS_IDLE")
Case CALL_STATE.CS_OFFERING
' a call is offering so if you don't want it then pass it
' The code to pass the call is the following
' Dim CallControl As ITBasicCallControl = CallStateObject.Call
' CallControl.HandoffIndirect(CallStateObject.Call.CallInfoLong(CALLINFO_LONG.CIL_MEDIATYPESAVAILABLE))
'Dim c = CallStateObject.Call.get_CallInfoString(TAPI3Lib.CALLINFO_STRING.CIS_CALLERIDNUMBER)
Dim target = CallStateObject.Call.Address.DialableAddress
'SetLabStatus(lblStatusTAPI, CallStateObject.)
SetLabStatus(Label1, target)
Dim oCallInfo As ITCallInfo2 = CallStateObject.Call
'SetLabStatus(lblStatusTAPI, CallStateObject.Call.CallInfoString(CALLINFO_STRING.CIS_CALLERIDNAME))
SetLabStatus(Label1, CallStateObject.Call.CallInfoString(CALLINFO_STRING.CIS_CALLERIDNUMBER))
' SetLabStatus(lblStatusTAPI, CallStateObject.Call.CallInfoString(CALLINFO_STRING.CIS_CALLERIDNUMBER)) ' oCallInfo.get_CallInfoString(CALLINFO_STRING.CIS_CALLERIDNAME))
' SetLabStatus(lblStatusTAPI, oCallInfo.CallInfoString(CALLINFO_STRING.CIS_CALLERIDNAME))' oCallInfo.get_CallInfoString(CALLINFO_STRING.CIS_CALLERIDNAME))
Case CALL_STATE.CS_CONNECTED
' call is connected
SetLabStatus(lblStatusTAPI, " call is connected ")
SetLabStatus(lblCallState, "Anruf läuft, bitte nennen Sie Ihr Anliegen.")
' CallStateObject.Call.
'CallStateObject.Call.CallInfoString()
Case CALL_STATE.CS_QUEUED
' call is being queued
SetLabStatus(lblStatusTAPI, " call is being queued ")
Case CALL_STATE.CS_HOLD
' call is on hold
SetLabStatus(lblStatusTAPI, "call is on hold ")
Case CALL_STATE.CS_DISCONNECTED
' call is disconnected
SetLabStatus(lblStatusTAPI, "call is disconnected ")
'SetLabStatus(lblCallState, "Anruf beendet.")
End Select
End Sub
'threadsicherer Aufruf
Delegate Sub SetLabStatusCallback(lbl As Label, txt As String)
Private Sub SetLabStatus(lbl As Label, txt As String)
If Me.InvokeRequired Then
Dim d As New SetLabStatusCallback(AddressOf SetLabStatus)
Try
Me.Invoke(d, New Object() {lbl, txt})
Catch ex As Exception : End Try
Else
lbl.Text = txt
End If
End Sub
Private CallInfoObject As ITCallInfoChangeEvent
Private Sub CallInfoEvent()
' here you can extract information from the call
' the code to extract the caller ID
' >>> put the following code in a try block and
' swallow the exception if it gives errors
Try
Dim CallerID As String
CallerID = CallInfoObject.Call.CallInfoString(CALLINFO_STRING.CIS_CALLERIDNAME)
Catch ex As Exception
End Try
End Sub
Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
Dim PhoneNumber As String = "00436644178557"
' Dim PhoneNumber As String = "147"
makePhoneCall(PhoneNumber)
'makeVideoCall(PhoneNumber)
End Sub
Dim CURRENTCALL As TAPI3Lib.ITBasicCallControl
Sub makePhoneCall(PhoneNumber As String)
Try
' Dim lMediaTypes As Long = TAPI3Lib.TapiConstants.TAPIMEDIATYPE_VIDEO, lCallbackInstance As Long = 1
Dim lMediaTypes As Long = TAPI3Lib.TapiConstants.TAPIMEDIATYPE_AUDIO, lCallbackInstance As Long = 1
Dim TestCall As TAPI3Lib.ITBasicCallControl
Dim lAddressType As Long = TAPI3Lib.TapiConstants.LINEADDRESSTYPE_PHONENUMBER
TestCall = oAddress.CreateCall(PhoneNumber, lAddressType, TapiConstants.TAPIMEDIATYPE_AUDIO)
TestCall.Connect(False)
CURRENTCALL = TestCall
'Dim pITMediaSupport = .QueryDispatchInterface(IID_String_ITMediaSupport, pITAddress)
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
End Try
End Sub
Sub makeVideoCall(PhoneNumber As String)
Try
' Dim lMediaTypes As Long = TAPI3Lib.TapiConstants.TAPIMEDIATYPE_VIDEO, lCallbackInstance As Long = 1
Dim lMediaTypes As Long = TAPI3Lib.TapiConstants.TAPIMEDIATYPE_VIDEO, lCallbackInstance As Long = 1
Dim TestCall As TAPI3Lib.ITBasicCallControl
Dim lAddressType As Long = TAPI3Lib.TapiConstants.LINEADDRESSTYPE_PHONENUMBER
TestCall = oAddress.CreateCall(PhoneNumber, lAddressType, TapiConstants.TAPIMEDIATYPE_AUDIO Or TapiConstants.TAPIMEDIATYPE_VIDEO)
TestCall.Connect(False)
'Dim pITMediaSupport = .QueryDispatchInterface(IID_String_ITMediaSupport, pITAddress)
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
End Try
End Sub
Sub makeVideoCall2(PhoneNumber As String)
SetLabStatus(lblStatusTAPI, "Dialing to " & PhoneNumber & " ...")
Dim call_control As TAPI3Lib.ITBasicCallControl
call_control = oAddress.CreateCall(PhoneNumber, TapiConstants.LINEADDRESSTYPE_IPADDRESS, TapiConstants.TAPIMEDIATYPE_AUDIO Or TapiConstants.TAPIMEDIATYPE_VIDEO)
' call_control = call_address.CreateCall(addr, TapiConstants.LINEADDRESSTYPE_IPADDRESS, TapiConstants.TAPIMEDIATYPE_AUDIO Or TapiConstants.TAPIMEDIATYPE_VIDEO)
' button1.Enabled = False
Dim enum_stream As IEnumStream
'Dim pstream_control As ITStreamControl
'pstream_control = CType(call_control, ITStreamControl)
' pstream_control.EnumerateStreams(enum_stream)
Dim p_stream As ITStream
Dim a11 As UInteger = 0
call_control.EnumerateStreams(enum_stream)
enum_stream.[Next](1, p_stream, a11)
Dim imedia As Integer
imedia = p_stream.MediaType
Dim dir As TERMINAL_DIRECTION
dir = p_stream.Direction
Dim termi, termi1 As ITTerminal
Dim term_support As ITTerminalSupport = CType(oAddress, ITTerminalSupport)
termi = term_support.GetDefaultStaticTerminal(imedia, dir)
p_stream.SelectTerminal(termi)
enum_stream.[Next](1, p_stream, a11)
termi1 = term_support.GetDefaultStaticTerminal(imedia, TERMINAL_DIRECTION.TD_CAPTURE)
p_stream.SelectTerminal(termi1)
call_control.EnumerateStreams(enum_stream)
call_control.Connect(False)
End Sub
Private Sub btn3_Click(sender As Object, e As EventArgs) Handles Button1.Click
' Try
'MsgBox(PlathosysApiWrapper.Plathosys.ApiVersionNumber())
openConnectionPLATHOSYS()
'Dim HookPttInfo = -1
'PlathosysApiWrapper.Plathosys.ReadHookAndPTT(HookPttInfo)
'MsgBox(HookPttInfo)
'PlathosysApiWrapper.Plathosys.Closedevice()
' Catch ex As Exception
' MsgBox(ex.Message & ex.StackTrace)
' End Try
End Sub
Function openConnectionPLATHOSYS() As Boolean
Try
Dim isDeviceOpen As Boolean = PlathosysApiWrapper.Plathosys.IsDeviceOpen()
If Not isDeviceOpen Then
Dim apiVersionNumber As Integer = PlathosysApiWrapper.Plathosys.ApiVersionNumber()
Console.WriteLine("ApiVersionNumber: {0}", Convert.ToString(apiVersionNumber, 2))
Dim successful As Boolean
Dim vendorID As Integer = 0
Dim productID As Integer = 0
Dim selectedVendorID As Integer
Dim selectedProductID As Integer
Dim deviceName As StringBuilder = New StringBuilder(200)
Dim serialNumber As StringBuilder = New StringBuilder(200)
successful = PlathosysApiWrapper.Plathosys.Opendevice(vendorID, productID, selectedVendorID, selectedProductID, deviceName, serialNumber)
Console.WriteLine($"Open successful? {successful}")
Console.WriteLine("Selected Vendor ID: {0:X}", selectedVendorID)
Console.WriteLine("Selected Product ID: {0:X}", selectedProductID)
Console.WriteLine($"Device name: {deviceName}")
Console.WriteLine($"Serial number: {serialNumber}")
If successful Then
successful = PlathosysApiWrapper.Plathosys.SetHandsetVolume(200)
successful = PlathosysApiWrapper.Plathosys.SetIntSpeakerVolume(0)
successful = PlathosysApiWrapper.Plathosys.SetHandsetMicVolume(128)
successful = PlathosysApiWrapper.Plathosys.SetMicMute(False)
'successful = PlathosysApiWrapper.Plathosys.SetSpeakerOutMute(False) 'alle
'successful = PlathosysApiWrapper.Plathosys.SetIntSpeakerMute(True)
'' Console.WriteLine($"SetHeadsetActive successful? {successful}")
''PlathosysApiWrapper.Plathosys.SetIntSpeakerMute(False)
''PlathosysApiWrapper.Plathosys.SetIntSpeakerVolume(255)
''PlathosysApiWrapper.Plathosys.SetHandsetVolume(128)
'successful = PlathosysApiWrapper.Plathosys.SetConference(False)
'Console.WriteLine($"SetConference successful? {successful}")
' PlathosysApiWrapper.Plathosys.SetConference(False) 'Lautsprecher deaktivieren
'PlathosysApiWrapper.Plathosys.SetHeadsetEar(True) 'Hörer aktivieren
' PlathosysApiWrapper.Plathosys.SetIntSpeakerVolume(0) 'Hörer Lautstäreke = 0
isDeviceOpen = PlathosysApiWrapper.Plathosys.IsDeviceOpen()
If isDeviceOpen Then
Timer.Enabled = True
Return True
End If
End If
End If
' Public Shared Function Opendevice(ByVal vendorID As Integer, ByVal productID As Integer, <Out> ByRef gotVendorID As Integer, <Out> ByRef gotProductID As Integer, ByVal gotProductName As StringBuilder, ByVal gotSerialNumber As StringBuilder) As Boolean
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
End Try
Return False
End Function
Sub allFunc()
' Try
MsgBox(PlathosysApiWrapper.Plathosys.ApiVersionNumber())
'Dim HookPttInfo = -1
'PlathosysApiWrapper.Plathosys.ReadHookAndPTT(HookPttInfo)
'MsgBox(HookPttInfo)
'PlathosysApiWrapper.Plathosys.Closedevice()
Try
Dim apiVersionNumber As Integer = PlathosysApiWrapper.Plathosys.ApiVersionNumber()
Console.WriteLine("ApiVersionNumber: {0}", Convert.ToString(apiVersionNumber, 2))
Dim successful As Boolean
Dim vendorID As Integer = 0
Dim productID As Integer = 0
Dim selectedVendorID As Integer
Dim selectedProductID As Integer
Dim deviceName As StringBuilder = New StringBuilder(200)
Dim serialNumber As StringBuilder = New StringBuilder(200)
successful = PlathosysApiWrapper.Plathosys.Opendevice(vendorID, productID, selectedVendorID, selectedProductID, deviceName, serialNumber)
Console.WriteLine($"Open successful? {successful}")
Console.WriteLine("Selected Vendor ID: {0:X}", selectedVendorID)
Console.WriteLine("Selected Product ID: {0:X}", selectedProductID)
Console.WriteLine($"Device name: {deviceName}")
Console.WriteLine($"Serial number: {serialNumber}")
Dim isDeviceOpen As Boolean = PlathosysApiWrapper.Plathosys.IsDeviceOpen()
Console.WriteLine($"IsDeviceOpen? {isDeviceOpen}")
successful = PlathosysApiWrapper.Plathosys.SetHandsetVolume(128)
Console.WriteLine($"SetHandsetVolume successful? {successful}")
successful = PlathosysApiWrapper.Plathosys.SetHeadsetVolume(128)
Console.WriteLine($"SetHeadsetVolume successful? {successful}")
successful = PlathosysApiWrapper.Plathosys.SetIntSpeakerVolume(128)
Console.WriteLine($"SetIntSpeakerVolume successful? {successful}")
successful = PlathosysApiWrapper.Plathosys.SetIntSpeakerMute(True)
Console.WriteLine($"SetIntSpeakerMute successful? {successful}")
successful = PlathosysApiWrapper.Plathosys.SetHandsetMicVolume(128)
Console.WriteLine($"SetHandsetMicVolume successful? {successful}")
successful = PlathosysApiWrapper.Plathosys.SetExtMicVolume(128)
Console.WriteLine($"SetExtMicVolume successful? {successful}")
Dim info1, info2, info3, info4, info5, info6, info7, info8, info9, info10 As Byte
successful = PlathosysApiWrapper.Plathosys.ReadCurrentInfo(info1, info2, info3, info4, info5, info6, info7, info8, info9, info10)
Console.WriteLine($"ReadCurrentInfo successful? {successful}")
Console.WriteLine($"Connected / PTT Info: {Convert.ToString(info1, 2).PadLeft(8, "0"c)}")
successful = PlathosysApiWrapper.Plathosys.SetSideTone(True)
Console.WriteLine($"SetSideTone successful? {successful}")
successful = PlathosysApiWrapper.Plathosys.SetMicMute(True)
Console.WriteLine($"SetMicMute successful? {successful}")
successful = PlathosysApiWrapper.Plathosys.SetWideBand(True)
Console.WriteLine($"SetWideBand successful? {successful}")
successful = PlathosysApiWrapper.Plathosys.SetEchoCanceller(True)
Console.WriteLine($"SetEchoCanceller successful? {successful}")
successful = PlathosysApiWrapper.Plathosys.SetExtMic(True)
Console.WriteLine($"SetExtMic successful? {successful}")
successful = PlathosysApiWrapper.Plathosys.SetConference(True)
Console.WriteLine($"SetConference successful? {successful}")
successful = PlathosysApiWrapper.Plathosys.SetHeadsetActive(True)
Console.WriteLine($"SetHeadsetActive successful? {successful}")
successful = PlathosysApiWrapper.Plathosys.SetWirelessHeadsetRinging(True)
Console.WriteLine($"SetWirelessHeadsetRinging successful? {successful}")
successful = PlathosysApiWrapper.Plathosys.SetWirelessCall(True)
Console.WriteLine($"SetWirelessCall successful? {successful}")
successful = PlathosysApiWrapper.Plathosys.SetPttFunctions(9)
Console.WriteLine($"SetPttPlathosys successful? {successful}")
successful = PlathosysApiWrapper.Plathosys.SetHeadsetEar(1)
Console.WriteLine($"SetHeadsetEar successful? {successful}")
successful = PlathosysApiWrapper.Plathosys.SetExtmicLed(True)
Console.WriteLine($"SetExtmicLed successful? {successful}")
successful = PlathosysApiWrapper.Plathosys.SetByListening(True)
Console.WriteLine($"SetByListening successful? {successful}")
successful = PlathosysApiWrapper.Plathosys.SetCodecType(1)
Console.WriteLine($"SetCodecType successful? {successful}")
successful = PlathosysApiWrapper.Plathosys.SetSerialNumber(12345678)
Console.WriteLine($"SetSerialNumber successful? {successful}")
successful = PlathosysApiWrapper.Plathosys.InitHookAndPTTState()
Console.WriteLine($"InitHookAndPTTState successful? {successful}")
successful = PlathosysApiWrapper.Plathosys.MuteSpkCt140(True)
Console.WriteLine($"MuteSpkCt140 successful? {successful}")
successful = PlathosysApiWrapper.Plathosys.MuteMicCt140(True)
Console.WriteLine($"MuteMicCt140 successful? {successful}")
successful = PlathosysApiWrapper.Plathosys.SetHeadsetdBVolume(-6)
Console.WriteLine($"SetHeadsetdBVolume successful? {successful}")
successful = PlathosysApiWrapper.Plathosys.SetHeadsetMicdBVolume(6)
Console.WriteLine($"SetHeadsetMicdBVolume successful? {successful}")
successful = PlathosysApiWrapper.Plathosys.SetExtMicdBVolume(3)
Console.WriteLine($"SetExtMicdBVolume successful? {successful}")
successful = PlathosysApiWrapper.Plathosys.SetIntSpeakerdBVolume(3)
Console.WriteLine($"SetIntSpeakerdBVolume successful? {successful}")
successful = PlathosysApiWrapper.Plathosys.SetIntAlarmSpeakerdBVolume(3)
Console.WriteLine($"SetIntAlarmSpeakerdBVolume successful? {successful}")
successful = PlathosysApiWrapper.Plathosys.SetIntAlarmSpeakerVolume(3)
Console.WriteLine($"SetIntAlarmSpeakerVolume successful? {successful}")
successful = PlathosysApiWrapper.Plathosys.SetLyncFeature(True)
Console.WriteLine($"SetLyncFeature successful? {successful}")
Dim info11, info12, info13, info14, info15, info16 As Byte
successful = PlathosysApiWrapper.Plathosys.ReadCurrentInfodB(info1, info2, info3, info4, info5, info6, info7, info8, info9, info10, info11, info12, info13, info14, info15, info16)
Console.WriteLine($"ReadCurrentInfodB successful? {successful}")
Console.WriteLine($"Connected Info: {Convert.ToString(info1, 2).PadLeft(8, "0"c)}")
Console.WriteLine($"Standard headset connected? {(info1 And 2) <> 0}")
Console.WriteLine($"Info3: {info3}")
Dim hardwareVersion As String = Convert.ToString(info3, 2).PadLeft(8, "0"c)
Dim first As Integer = Convert.ToInt32(hardwareVersion.Substring(0, 4), 2)
Dim second As Integer = Convert.ToInt32(hardwareVersion.Substring(4, 4), 2)
Console.WriteLine($"Hardware version: {first}.{second}")
Console.WriteLine($"Info4: {info4}")
Dim softwareVersion As String = Convert.ToString(info4, 2).PadLeft(8, "0"c)
first = Convert.ToInt32(hardwareVersion.Substring(0, 4), 2)
second = Convert.ToInt32(hardwareVersion.Substring(4, 4), 2)
Console.WriteLine($"Software version: {first}.{second}")
Console.WriteLine($"Serial number high: {info7}")
Console.WriteLine($"Serial number: {info8}")
Console.WriteLine($"Serial number: {info9}")
Console.WriteLine($"Serial number low: {info10}")
Console.WriteLine($"Speaker volume on bylisten: {info14}")
Dim hookAndPttInfo As Integer
successful = PlathosysApiWrapper.Plathosys.ReadHookAndPTT(hookAndPttInfo)
Console.WriteLine($"ReadHooAndPttInfo successful? {successful}")
Console.WriteLine($"HookAndPttInfo: {Convert.ToString(hookAndPttInfo, 2).PadLeft(4, "0"c)}")
Console.WriteLine($"HookOff? {(hookAndPttInfo And 1) <> 0}")
isDeviceOpen = PlathosysApiWrapper.Plathosys.IsDeviceOpen()
Console.WriteLine($"IsDeviceOpen: {isDeviceOpen}")
successful = PlathosysApiWrapper.Plathosys.Closedevice()
Console.WriteLine($"DeviceClosed successful? {successful}")
isDeviceOpen = PlathosysApiWrapper.Plathosys.IsDeviceOpen()
Console.WriteLine($"IsDeviceOpen: {isDeviceOpen}")
''Public Static extern bool Opendevice(
''Int VendorID,
''Int productID,
''out Int gotVendorID,
''out Int gotProductID,
''StringBuilder GotProductName,
''StringBuilder gotSerialNumber);
'Dim VendorID As Integer '= &H299D '&H299D '
''Dim VendorID = 665
'Dim ProductID As Integer '= &H1 '0
'Dim GotVendorID As Integer
'Dim GotProductID As Integer
'Dim GotProductName As String = ""
'Dim gotSerialNumber As String = ""
'MsgBox(PlathosysApiWrapper.Plathosys.IsDeviceOpen())
'If PlathosysApiWrapper.Plathosys.Opendevice(VendorID, ProductID, GotVendorID, GotProductID, GotProductName, gotSerialNumber) Then
' MsgBox(GotVendorID)
' MsgBox(GotProductID)
'Else
' MsgBox("No")
'End If
' Public Shared Function Opendevice(ByVal vendorID As Integer, ByVal productID As Integer, <Out> ByRef gotVendorID As Integer, <Out> ByRef gotProductID As Integer, ByVal gotProductName As StringBuilder, ByVal gotSerialNumber As StringBuilder) As Boolean
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
End Try
' Catch ex As Exception
' MsgBox(ex.Message & ex.StackTrace)
' End Try
End Sub
Private Sub frmTapi_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
Try
Dim isDeviceOpen = PlathosysApiWrapper.Plathosys.IsDeviceOpen()
If isDeviceOpen Then
Dim successful = PlathosysApiWrapper.Plathosys.Closedevice()
Console.WriteLine($"DeviceClosed successful? {successful}")
End If
Catch ex As Exception
End Try
End Sub
Dim STATE = "NOT PICKUP"
Private Sub Timer_Tick(sender As Object, e As EventArgs) Handles Timer.Tick
Dim isDeviceOpen = PlathosysApiWrapper.Plathosys.IsDeviceOpen()
If isDeviceOpen Then
Dim HookPttInfo = -1
Dim ReadHook = PlathosysApiWrapper.Plathosys.ReadHookAndPTT(HookPttInfo)
Console.WriteLine($"ReadHook? {ReadHook}")
Console.WriteLine($"HookPttInfo? {HookPttInfo}")
'Dim HookAndPTTState = PlathosysApiWrapper.Plathosys.InitHookAndPTTState()
'Console.WriteLine($"HookAndPTTState? {HookAndPTTState}")
Select Case HookPttInfo
Case "17" 'PICKUP
If STATE <> "PICKUP" Then
STATE = "PICKUP"
' --> ANRUF STARTEN
picCallState.BackgroundImage = My.Resources._call
'picCallState.BackgroundImage = Nothing
'picCallState.Image = My.Resources._call
lblCallState.Text = "Anruf wird gestartet..."
Dim PhoneNumber As String = "00436644178557"
' Dim PhoneNumber As String = "147"
makePhoneCall(PhoneNumber)
' MsgBox("PICKUP!!!")
End If
Case Else
If STATE = "PICKUP" Then
STATE = "NOT PICKUP"
' --> ANRUF BEENDEN
picCallState.BackgroundImage = My.Resources.PLATHOSYS
'picCallState.BackgroundImage = My.Resources.PLATHOSYS
'picCallState.Image = Nothing
lblCallState.Text = "Bitte heben Sie den Höhrer ab, um den Anruf zu starten."
CURRENTCALL.Disconnect(DISCONNECT_CODE.DC_NORMAL)
' MsgBox("PICKUP DOWN!!!")
End If
End Select
Else
'NEU VERBINDEN
openConnectionPLATHOSYS()
End If
End Sub
Private Sub frmTapi_Load(sender As Object, e As EventArgs) Handles Me.Load
'allFunc()
Timer.Enabled = True
End Sub
Private Sub lblClose_Click(sender As Object, e As EventArgs) Handles lblClose.Click
Me.Close()
End Sub
Private Sub lblClose_MouseHover(sender As Object, e As EventArgs) Handles lblClose.MouseHover
lblClose.BackColor = Color.Red
lblClose.ForeColor = Color.White
End Sub
Private Sub lblClose_MouseLeave(sender As Object, e As EventArgs) Handles lblClose.MouseLeave
lblClose.BackColor = Panel2.BackColor
lblClose.ForeColor = Panel2.BackColor
End Sub
End Class

BIN
VERAG_TELEINFO/mfc100.dll Normal file
View File

Binary file not shown.

BIN
VERAG_TELEINFO/msvcr100.dll Normal file
View File

Binary file not shown.