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>
''' Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
'''</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.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _
@@ -60,6 +60,36 @@ Namespace My.Resources
End Set
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>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>

9
AVISO_CHECKIN/My Project/Resources.resx
View File

@@ -178,4 +178,13 @@
<data name="fragezeichen" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\fragezeichen.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<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>

36
Aviso.sln
View File

@@ -27,6 +27,10 @@ Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "NCTSPartnerWorker", "..\..\
EndProject
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "AVISO_CHECKIN", "AVISO_CHECKIN\AVISO_CHECKIN.vbproj", "{CB95CC0E-D73A-4D11-9FF8-197A392D831F}"
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
GlobalSection(SolutionConfigurationPlatforms) = preSolution
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|x86.ActiveCfg = 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
GlobalSection(SolutionProperties) = preSolution
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.RichTextBox1 = New System.Windows.Forms.RichTextBox()
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.picWarnEmpfaenger, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
@@ -58,7 +61,7 @@ Partial Class frmAddSendnung
Me.cboAbfertigungsart.FormattingEnabled = True
Me.cboAbfertigungsart.Location = New System.Drawing.Point(12, 29)
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
'
'Label1
@@ -83,6 +86,7 @@ Partial Class frmAddSendnung
Me.txtEmpfaenger._displayWoelflKd = False
Me.txtEmpfaenger._hideIfListEmpty = True
Me.txtEmpfaenger._loadKdData = True
Me.txtEmpfaenger._UseFIRMA = ""
Me.txtEmpfaenger._ValueKdAndName = True
Me.txtEmpfaenger.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper
Me.txtEmpfaenger.dgvpos = "LEFT"
@@ -91,12 +95,13 @@ Partial Class frmAddSendnung
Me.txtEmpfaenger.KdNr = "-1"
Me.txtEmpfaenger.kdNrField = 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.nurAktive = True
Me.txtEmpfaenger.searchActive = True
Me.txtEmpfaenger.Size = New System.Drawing.Size(315, 23)
Me.txtEmpfaenger.TabIndex = 5
Me.txtEmpfaenger.Size = New System.Drawing.Size(378, 23)
Me.txtEmpfaenger.TabIndex = 7
Me.txtEmpfaenger.TIMER_SEARCH = True
Me.txtEmpfaenger.usrcntl = Nothing
'
'txtGewicht
@@ -108,6 +113,7 @@ Partial Class frmAddSendnung
Me.txtGewicht._ShortDateNew = False
Me.txtGewicht._ShortDateOnly = False
Me.txtGewicht._TimeOnly = False
Me.txtGewicht._TimeOnly_Seconds = False
Me.txtGewicht._value = ""
Me.txtGewicht._Waehrung = False
Me.txtGewicht._WaehrungZeichen = True
@@ -118,7 +124,7 @@ Partial Class frmAddSendnung
Me.txtGewicht.MaxLines_Warning_Label = Nothing
Me.txtGewicht.Name = "txtGewicht"
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
'
'Label19
@@ -127,7 +133,7 @@ Partial Class frmAddSendnung
Me.Label19.Location = New System.Drawing.Point(9, 164)
Me.Label19.Name = "Label19"
Me.Label19.Size = New System.Drawing.Size(100, 13)
Me.Label19.TabIndex = 6
Me.Label19.TabIndex = 8
Me.Label19.Text = "Warenbezeichnung"
'
'Label17
@@ -136,7 +142,7 @@ Partial Class frmAddSendnung
Me.Label17.Location = New System.Drawing.Point(10, 215)
Me.Label17.Name = "Label17"
Me.Label17.Size = New System.Drawing.Size(73, 13)
Me.Label17.TabIndex = 8
Me.Label17.TabIndex = 10
Me.Label17.Text = "Colli/Gewicht:"
'
'txtColli
@@ -148,7 +154,8 @@ Partial Class frmAddSendnung
Me.txtColli._ShortDateNew = False
Me.txtColli._ShortDateOnly = False
Me.txtColli._TimeOnly = False
Me.txtColli._value = Nothing
Me.txtColli._TimeOnly_Seconds = False
Me.txtColli._value = ""
Me.txtColli._Waehrung = False
Me.txtColli._WaehrungZeichen = True
Me.txtColli.ForeColor = System.Drawing.Color.Black
@@ -158,7 +165,7 @@ Partial Class frmAddSendnung
Me.txtColli.MaxLines_Warning_Label = Nothing
Me.txtColli.Name = "txtColli"
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
'
'rtbWarenbezeichnung
@@ -168,8 +175,8 @@ Partial Class frmAddSendnung
Me.rtbWarenbezeichnung.Location = New System.Drawing.Point(12, 180)
Me.rtbWarenbezeichnung.MaxLength = 500
Me.rtbWarenbezeichnung.Name = "rtbWarenbezeichnung"
Me.rtbWarenbezeichnung.Size = New System.Drawing.Size(359, 32)
Me.rtbWarenbezeichnung.TabIndex = 7
Me.rtbWarenbezeichnung.Size = New System.Drawing.Size(425, 32)
Me.rtbWarenbezeichnung.TabIndex = 9
Me.rtbWarenbezeichnung.Text = ""
'
'Label23
@@ -178,7 +185,7 @@ Partial Class frmAddSendnung
Me.Label23.Location = New System.Drawing.Point(129, 215)
Me.Label23.Name = "Label23"
Me.Label23.Size = New System.Drawing.Size(23, 13)
Me.Label23.TabIndex = 10
Me.Label23.TabIndex = 12
Me.Label23.Text = "Pk."
'
'Label2
@@ -188,17 +195,17 @@ Partial Class frmAddSendnung
Me.Label2.Location = New System.Drawing.Point(10, 111)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(81, 17)
Me.Label2.TabIndex = 4
Me.Label2.TabIndex = 5
Me.Label2.Text = "Empfänger:"
'
'btn
'
Me.btn.DialogResult = DialogResult.OK
Me.btn.DialogResult = System.Windows.Forms.DialogResult.OK
Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn.Location = New System.Drawing.Point(12, 244)
Me.btn.Name = "btn"
Me.btn.Size = New System.Drawing.Size(359, 52)
Me.btn.TabIndex = 12
Me.btn.Size = New System.Drawing.Size(425, 52)
Me.btn.TabIndex = 17
Me.btn.Text = "OK"
Me.btn.UseVisualStyleBackColor = True
'
@@ -223,6 +230,7 @@ Partial Class frmAddSendnung
Me.txtAbsender._displayWoelflKd = False
Me.txtAbsender._hideIfListEmpty = True
Me.txtAbsender._loadKdData = True
Me.txtAbsender._UseFIRMA = ""
Me.txtAbsender._ValueKdAndName = True
Me.txtAbsender.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper
Me.txtAbsender.dgvpos = "LEFT"
@@ -231,12 +239,13 @@ Partial Class frmAddSendnung
Me.txtAbsender.KdNr = "-1"
Me.txtAbsender.kdNrField = 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.nurAktive = True
Me.txtAbsender.searchActive = True
Me.txtAbsender.Size = New System.Drawing.Size(315, 23)
Me.txtAbsender.TabIndex = 3
Me.txtAbsender.Size = New System.Drawing.Size(378, 23)
Me.txtAbsender.TabIndex = 4
Me.txtAbsender.TIMER_SEARCH = True
Me.txtAbsender.usrcntl = Nothing
'
'FlatButton4
@@ -247,10 +256,10 @@ Partial Class frmAddSendnung
Me.FlatButton4.FlatAppearance.BorderSize = 0
Me.FlatButton4.FlatStyle = System.Windows.Forms.FlatStyle.Flat
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.Size = New System.Drawing.Size(25, 25)
Me.FlatButton4.TabIndex = 89
Me.FlatButton4.TabIndex = 6
Me.FlatButton4.TabStop = False
Me.FlatButton4.UseVisualStyleBackColor = True
'
@@ -262,10 +271,10 @@ Partial Class frmAddSendnung
Me.FlatButton1.FlatAppearance.BorderSize = 0
Me.FlatButton1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
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.Size = New System.Drawing.Size(25, 25)
Me.FlatButton1.TabIndex = 88
Me.FlatButton1.TabIndex = 3
Me.FlatButton1.TabStop = False
Me.FlatButton1.UseVisualStyleBackColor = True
'
@@ -273,7 +282,7 @@ Partial Class frmAddSendnung
'
Me.picWarnAbsender.BackgroundImage = Global.AVISO.My.Resources.Resources.warning2
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.Size = New System.Drawing.Size(20, 23)
Me.picWarnAbsender.TabIndex = 86
@@ -284,7 +293,7 @@ Partial Class frmAddSendnung
'
Me.picWarnEmpfaenger.BackgroundImage = Global.AVISO.My.Resources.Resources.warning2
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.Size = New System.Drawing.Size(20, 23)
Me.picWarnEmpfaenger.TabIndex = 87
@@ -299,8 +308,8 @@ Partial Class frmAddSendnung
Me.RichTextBox1.MaxLength = 500
Me.RichTextBox1.Name = "RichTextBox1"
Me.RichTextBox1.ReadOnly = True
Me.RichTextBox1.Size = New System.Drawing.Size(359, 102)
Me.RichTextBox1.TabIndex = 90
Me.RichTextBox1.Size = New System.Drawing.Size(425, 102)
Me.RichTextBox1.TabIndex = 19
Me.RichTextBox1.Text = ""
'
'Label4
@@ -309,15 +318,75 @@ Partial Class frmAddSendnung
Me.Label4.Location = New System.Drawing.Point(12, 311)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(184, 13)
Me.Label4.TabIndex = 91
Me.Label4.TabIndex = 18
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
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.White
Me.ClientSize = New System.Drawing.Size(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.RichTextBox1)
Me.Controls.Add(Me.picWarnEmpfaenger)
@@ -368,4 +437,7 @@ Partial Class frmAddSendnung
Friend WithEvents picWarnEmpfaenger As PictureBox
Friend WithEvents RichTextBox1 As RichTextBox
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

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

@@ -32,6 +32,8 @@
txtAbsender.usrcntlWIDTH = 360
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()
FlatButton4.BackgroundImage = IIf(txtEmpfaenger.KdNr > 0, My.Resources.person, My.Resources.personInaktiv)
initWarnKd(txtEmpfaenger, picWarnEmpfaenger)
@@ -60,6 +62,8 @@
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
txtWarenwert.Text = If(Sendung.tblSnd_Warenwert, "")
txtWarenwertWaehrung.SET_VALUE(If(Sendung.tblSnd_WarenwertWaehrung, ""))
rtbWarenbezeichnung.Text = If(Sendung.tblSnd_Warenbezeichnung, "")
End If
@@ -73,7 +77,7 @@
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
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
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 = ""
If txtColli.Text <> "" Then Sendung.tblSnd_Colli = CInt(txtColli.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

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))
Me.lbl = New System.Windows.Forms.Label()
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.lblSendungen = 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.Panel1 = New System.Windows.Forms.Panel()
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.pnlAnfuegen.SuspendLayout()
Me.cntxt.SuspendLayout()
@@ -100,36 +101,6 @@ Partial Class frmSendungAnhangImport
Me.flpnlAviso.Size = New System.Drawing.Size(200, 825)
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
'
Me.flpnlSendungen.AllowDrop = True
@@ -220,6 +191,7 @@ Partial Class frmSendungAnhangImport
Me.txtBezeichnung._ShortDateNew = False
Me.txtBezeichnung._ShortDateOnly = False
Me.txtBezeichnung._TimeOnly = False
Me.txtBezeichnung._TimeOnly_Seconds = False
Me.txtBezeichnung._value = ""
Me.txtBezeichnung._Waehrung = False
Me.txtBezeichnung._WaehrungZeichen = True
@@ -274,6 +246,7 @@ Partial Class frmSendungAnhangImport
Me.txtDateiname._ShortDateNew = False
Me.txtDateiname._ShortDateOnly = False
Me.txtDateiname._TimeOnly = False
Me.txtDateiname._TimeOnly_Seconds = False
Me.txtDateiname._value = ""
Me.txtDateiname._Waehrung = False
Me.txtDateiname._WaehrungZeichen = True
@@ -305,6 +278,7 @@ Partial Class frmSendungAnhangImport
Me.MyTextBox2._ShortDateNew = False
Me.MyTextBox2._ShortDateOnly = False
Me.MyTextBox2._TimeOnly = False
Me.MyTextBox2._TimeOnly_Seconds = False
Me.MyTextBox2._value = ""
Me.MyTextBox2._Waehrung = False
Me.MyTextBox2._WaehrungZeichen = True
@@ -370,6 +344,7 @@ Partial Class frmSendungAnhangImport
Me.txtSeiten._ShortDateNew = False
Me.txtSeiten._ShortDateOnly = False
Me.txtSeiten._TimeOnly = False
Me.txtSeiten._TimeOnly_Seconds = False
Me.txtSeiten._value = ""
Me.txtSeiten._Waehrung = False
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.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.Size = New System.Drawing.Size(223, 17)
Me.lblSendungsdetails.Size = New System.Drawing.Size(157, 21)
Me.lblSendungsdetails.TabIndex = 13
Me.lblSendungsdetails.Text = "-"
'
@@ -627,6 +602,47 @@ Partial Class frmSendungAnhangImport
Me.Button17.TextAlign = System.Drawing.ContentAlignment.MiddleRight
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
'
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.pnl)
Me.Controls.Add(Me.lblEmpfaenger)
Me.Controls.Add(Me.lblRgPreis)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.KeyPreview = True
Me.Name = "frmSendungAnhangImport"
@@ -714,4 +731,5 @@ Partial Class frmSendungAnhangImport
Friend WithEvents Panel1 As Panel
Friend WithEvents Button17 As Button
Friend WithEvents cbxAlternativePDFAnsicht As CheckBox
Friend WithEvents lblRgPreis As Label
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)
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
lblRgPreis.Text = (CDbl(SND.tblSnd_Warenwert).ToString("N2") & " " & If(SND.tblSnd_WarenwertWaehrung, "")).trim
Else
lblRgPreis.Text = ""
End If
lblWarenbeichnung.Text = If(SND.tblSnd_Warenbezeichnung, "")
lblAbsender.Text = If(SND.tblSnd_Absender, "")
lblEmpfaenger.Text = If(SND.tblSnd_Empfaenger, "")

27
Aviso/Aviso.vbproj
View File

@@ -402,6 +402,12 @@
<Compile Include="Auswertung\usrctlAuswertung.vb">
<SubType>UserControl</SubType>
</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">
<DependentUpon>rptQRAviso.vb</DependentUpon>
</Compile>
@@ -982,6 +988,9 @@
<EmbeddedResource Include="Auswertung\usrctlAuswertung.resx">
<DependentUpon>usrctlAuswertung.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="AvisoReports\rptTEST.resx">
<DependentUpon>rptTEST.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="AvisoReports\rptQRAviso.resx">
<DependentUpon>rptQRAviso.vb</DependentUpon>
</EmbeddedResource>
@@ -1259,16 +1268,28 @@
<CustomToolNamespace>My</CustomToolNamespace>
<LastGenOutput>Settings.Designer.vb</LastGenOutput>
</None>
<None Include="Resources\ATANAK_Instructions_Export.xlsx">
<None Include="Resources\old_ATANAK_Instructions_Export.xlsx">
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
</None>
<None Include="Resources\ATANAK_Instructions_Export_T1.xlsx">
<None Include="Resources\DGS_Instructions_Export.xlsx">
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
</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>
</None>
<None Include="Resources\Instructions_Import.xlsx" />
<None Include="Resources\VZ HINDERNISS - ZOLLBESCHAU - PROTOKOLL.xlsx">
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
</None>
<None Include="Zert_20092019.pfx" />
</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()>
Private Sub InitializeComponent()
Me.pnl = New System.Windows.Forms.Panel()
Me.Button2 = New System.Windows.Forms.Button()
Me.Label2 = New System.Windows.Forms.Label()
Me.Button1 = New System.Windows.Forms.Button()
Me.lblDatUhrzeit = New System.Windows.Forms.Label()
@@ -32,7 +33,6 @@ Partial Class frmAvisoBenachrichtigungReminderBestaetigen
Me.btn = New System.Windows.Forms.Button()
Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.Button2 = New System.Windows.Forms.Button()
Me.pnl.SuspendLayout()
Me.SuspendLayout()
'
@@ -50,16 +50,32 @@ Partial Class frmAvisoBenachrichtigungReminderBestaetigen
Me.pnl.Controls.Add(Me.btn)
Me.pnl.Dock = System.Windows.Forms.DockStyle.Fill
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.Size = New System.Drawing.Size(460, 159)
Me.pnl.Size = New System.Drawing.Size(690, 245)
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
'
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.Size = New System.Drawing.Size(79, 13)
Me.Label2.Size = New System.Drawing.Size(116, 20)
Me.Label2.TabIndex = 4
Me.Label2.Text = "Datum/Uhrzeit:"
'
@@ -68,9 +84,10 @@ Partial Class frmAvisoBenachrichtigungReminderBestaetigen
Me.Button1.BackColor = System.Drawing.Color.SteelBlue
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
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.Size = New System.Drawing.Size(236, 56)
Me.Button1.Size = New System.Drawing.Size(354, 86)
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.UseVisualStyleBackColor = False
@@ -78,9 +95,10 @@ Partial Class frmAvisoBenachrichtigungReminderBestaetigen
'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.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.Size = New System.Drawing.Size(177, 13)
Me.lblDatUhrzeit.Size = New System.Drawing.Size(266, 20)
Me.lblDatUhrzeit.TabIndex = 8
Me.lblDatUhrzeit.Text = "01.01.2020 10:00"
Me.lblDatUhrzeit.TextAlign = System.Drawing.ContentAlignment.TopRight
@@ -89,18 +107,20 @@ Partial Class frmAvisoBenachrichtigungReminderBestaetigen
'
Me.lblArt.AutoSize = True
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.Size = New System.Drawing.Size(167, 17)
Me.lblArt.Size = New System.Drawing.Size(232, 25)
Me.lblArt.TabIndex = 5
Me.lblArt.Text = "VERMERK REMINDER"
'
'lbl
'
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.Size = New System.Drawing.Size(49, 13)
Me.lbl.Size = New System.Drawing.Size(73, 20)
Me.lbl.TabIndex = 2
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) _
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.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.Text = ""
'
'btn
'
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.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.Size = New System.Drawing.Size(194, 56)
Me.btn.Size = New System.Drawing.Size(291, 86)
Me.btn.TabIndex = 0
Me.btn.Text = "OK" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(Benachrichtigung akzeptieren)"
Me.btn.UseVisualStyleBackColor = False
@@ -130,34 +153,26 @@ Partial Class frmAvisoBenachrichtigungReminderBestaetigen
'DataGridViewTextBoxColumn1
'
Me.DataGridViewTextBoxColumn1.HeaderText = "Column1"
Me.DataGridViewTextBoxColumn1.MinimumWidth = 8
Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1"
Me.DataGridViewTextBoxColumn1.Visible = False
Me.DataGridViewTextBoxColumn1.Width = 150
'
'DataGridViewTextBoxColumn2
'
Me.DataGridViewTextBoxColumn2.HeaderText = "Datei"
Me.DataGridViewTextBoxColumn2.MinimumWidth = 8
Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2"
'
'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
Me.DataGridViewTextBoxColumn2.Width = 150
'
'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.ClientSize = New System.Drawing.Size(460, 159)
Me.ClientSize = New System.Drawing.Size(690, 245)
Me.Controls.Add(Me.pnl)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
Me.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.Name = "frmAvisoBenachrichtigungReminderBestaetigen"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
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
Me.DialogResult = DialogResult.None
Me.DialogResult = DialogResult.Yes
Me.Close()
End Sub

4
Aviso/Benachrichtigung/usrCntlBenachrichtigungen.vb
View File

@@ -219,9 +219,11 @@
initDgvAvisoBenachrichtigungen(True, Me.Font)
Case DialogResult.Cancel
'NIX
Case Else
Case DialogResult.Yes
AB.BESTAETIGEN_BENACHRICHTIGUNG()
initDgvAvisoBenachrichtigungen(True, Me.Font)
Case Else
'NIX soll eig nicht vorkommen
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)
rpt.Document.Printer.PrinterName = ""
rpt.Document.CacheToDisk = False
'rpt.Document.CacheToDisk = True
@@ -454,9 +455,9 @@ Public Class SendungOptions
ElseIf art = "PRINT" Or art = "DIALOG" Then
rpt.Run(False)
' If Printername = "" Then rpt.Dispose() : Exit Sub
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.Document.Dispose()
' rpt.Dispose()

4
Aviso/My Project/AssemblyInfo.vb
View File

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("3.7.4.5")>
<Assembly: AssemblyFileVersion("3.7.4.5")>
<Assembly: AssemblyVersion("3.7.8.4")>
<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
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Byte[].
''' Sucht eine lokalisierte Zeichenfolge, die ähnelt.
'''</summary>
Friend ReadOnly Property ATANAK_Instructions_Export() As Byte()
Friend ReadOnly Property asdas2d1a() As String
Get
Dim obj As Object = ResourceManager.GetObject("ATANAK_Instructions_Export", 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())
Return ResourceManager.GetString("asdas2d1a", resourceCulture)
End Get
End Property
@@ -479,6 +458,36 @@ Namespace My.Resources
End Get
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>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
@@ -859,6 +868,16 @@ Namespace My.Resources
End Get
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>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
@@ -1615,6 +1634,16 @@ Namespace My.Resources
End Get
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>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>

137
Aviso/My Project/Resources.resx
View File

@@ -124,8 +124,8 @@
<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>
</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 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="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>
@@ -151,6 +151,9 @@
<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>
</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">
<value>..\Resources\personCheck_blue_small.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -172,8 +175,8 @@
<data name="weiterleiten" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\weiterleiten.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="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 name="unisped_aeo_DE" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\unisped_aeo_DE.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="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>
@@ -181,18 +184,21 @@
<data name="nellenquack" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\nellenquack.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="VZ_HINDERNISS___ZOLLBESCHAU___PROTOKOLL" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\resources\vz hinderniss - zollbeschau - protokoll.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="abfetigungTR_aktiv" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\..\Diverses\miniButtons\abfetigungTR_aktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<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">
<value>..\Resources\plus.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<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>
</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">
<value>..\Resources\android-add-contact.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -208,8 +214,8 @@
<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>
</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 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 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>
@@ -226,6 +232,9 @@
<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>
</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">
<value>..\Resources\parkplatz.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -235,9 +244,6 @@
<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>
</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">
<value>..\Resources\arrow-left-a.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -274,6 +280,9 @@
<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>
</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">
<value>..\Resources\Unisped_logo.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -286,6 +295,9 @@
<data name="personCheck_small" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\personCheck_small.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="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">
<value>..\Resources\tts.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -295,24 +307,24 @@
<data name="akt_ATILLA" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\akt_ATILLA.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="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">
<value>..\Resources\uid.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="gear2" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\gear2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="vermerkBtn" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\vermerkBtn.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="GVMS-image" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\..\Diverses\GVMS-image.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="handy" 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>
<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="warning" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\warning.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="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">
<value>..\Resources\avisoNewMsg.ico;System.Drawing.Icon, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -331,9 +343,6 @@
<data name="personCheck_gray_small" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\personCheck_gray_small.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="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">
<value>..\Resources\pdfprint1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -358,12 +367,6 @@
<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>
</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">
<value>..\Resources\weiterleiten_small.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -382,14 +385,11 @@
<data name="WAI" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\WAI.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="unisped_aeo_DE" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\unisped_aeo_DE.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="DGS_Instructions_Export" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\resources\dgs_instructions_export.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="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="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 name="person" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\person.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="SBG" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\SBG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -406,6 +406,9 @@
<data name="digitalerAkt_small" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\digitalerAkt_small.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="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">
<value>..\Resources\personCheck.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -418,9 +421,6 @@
<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>
</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">
<value>..\Resources\dakosy.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -448,8 +448,8 @@
<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>
</data>
<data name="android-add-contact" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\android-add-contact.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="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="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>
@@ -460,14 +460,17 @@
<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>
</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">
<value>..\Resources\warning2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="fakturiertInaktiv" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\fakturiertInaktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="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 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="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>
@@ -481,15 +484,9 @@
<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>
</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">
<value>..\Resources\abgeklaertAktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</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">
<value>..\Resources\email.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -502,6 +499,9 @@
<data name="UpdaterVersion" xml:space="preserve">
<value>6.0</value>
</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">
<value>..\Resources\sprinter.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -514,14 +514,14 @@
<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>
</data>
<data name="_3s" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\3s.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="handy" 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>
</data>
<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>
</data>
<data name="ATANAK_Instructions_Import" 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>
<data name="_3s" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\3s.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<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>
@@ -532,6 +532,9 @@
<data name="igl" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\igl.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="MUSTER" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\MUSTER.nlc;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="kasse_sw_small" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\kasse_sw_small.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -562,6 +565,9 @@
<data name="email_big1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\email_big1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="vorauszahlung" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\vorauszahlung.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="del" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\del.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -571,8 +577,8 @@
<data name="statusBtn_vorgeschrieben_Aktiv" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\statusBtn_vorgeschrieben_Aktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="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 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="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>
@@ -580,8 +586,8 @@
<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>
</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 name="vermerkBtn" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\vermerkBtn.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="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>
@@ -589,8 +595,8 @@
<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>
</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 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="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>
@@ -604,19 +610,22 @@
<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>
</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 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="IMEX" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\IMEX.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ATANAK_Instructions_Export_T1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ATANAK_Instructions_Export_T1.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
<data name="asdas2d1a" xml:space="preserve">
<value />
</data>
<data name="soenmez" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\soenmez.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="abfetigungTR_inaktiv" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\..\Diverses\miniButtons\abfetigungTR_inaktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="GVMS-image" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\..\Diverses\GVMS-image.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="lorry_ummelden" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\..\Diverses\lorry_ummelden.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
</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
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.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmAddAktenvermerkShort))
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.Panel1 = New System.Windows.Forms.Panel()
Me.Label24 = New System.Windows.Forms.Label()
@@ -61,16 +64,19 @@ Partial Class frmAddAktenvermerkShort
Me.optKeineAuswahl = New System.Windows.Forms.RadioButton()
Me.Label15 = 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.Panel1.SuspendLayout()
Me.pnl.SuspendLayout()
Me.cntxt.SuspendLayout()
Me.SuspendLayout()
'
'pnlAktenVermerk
'
Me.pnlAktenVermerk.BackColor = System.Drawing.Color.White
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.btnDEZollDIGITAL)
Me.pnlAktenVermerk.Controls.Add(Me.Panel1)
@@ -101,6 +107,33 @@ Partial Class frmAddAktenvermerkShort
Me.pnlAktenVermerk.Size = New System.Drawing.Size(401, 509)
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
'
Me.btnDEZollDIGITAL.FlatStyle = System.Windows.Forms.FlatStyle.Flat
@@ -596,18 +629,17 @@ Partial Class frmAddAktenvermerkShort
Me.Label16.TabIndex = 9
Me.Label16.Text = "Standzeit"
'
'btnLKWumgemeldet
'cntxt
'
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
Me.cntxt.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.XXXToolStripMenuItem})
Me.cntxt.Name = "cntxt"
Me.cntxt.Size = New System.Drawing.Size(96, 26)
'
'XXXToolStripMenuItem
'
Me.XXXToolStripMenuItem.Name = "XXXToolStripMenuItem"
Me.XXXToolStripMenuItem.Size = New System.Drawing.Size(95, 22)
Me.XXXToolStripMenuItem.Text = "XXX"
'
'frmAddAktenvermerkShort
'
@@ -627,6 +659,7 @@ Partial Class frmAddAktenvermerkShort
Me.Panel1.PerformLayout()
Me.pnl.ResumeLayout(False)
Me.pnl.PerformLayout()
Me.cntxt.ResumeLayout(False)
Me.ResumeLayout(False)
End Sub
@@ -669,4 +702,7 @@ Partial Class frmAddAktenvermerkShort
Friend WithEvents btnDEZollDIGITAL As Button
Friend WithEvents Panel1 As Panel
Friend WithEvents btnLKWumgemeldet As Button
Friend WithEvents Button2 As Button
Friend WithEvents cntxt As ContextMenuStrip
Friend WithEvents XXXToolStripMenuItem As ToolStripMenuItem
End Class

3
Aviso/frmAddAktenvermerkShort.resx
View File

@@ -300,6 +300,9 @@
qcwnSVEv2t3X/79N9tcQ/7hza3o/qP4eCBK/D1D8L7CPlop4X64pAAAAAElFTkSuQmCC
</value>
</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">
<value>
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")
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
@@ -285,4 +310,7 @@ btnZollDEEingereicht.Click, btnSBG.Click, btnNKD.Click, btnWAI.Click, btnSFD.Cli
End Try
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
cntxt.Show(Cursor.Position)
End Sub
End Class

3
Aviso/frmEintragAviso.designer.vb generated
View File

@@ -706,6 +706,7 @@ Partial Class frmEintragAviso
Me.cboGrenzstelle._value = ""
Me.cboGrenzstelle.BackColor = System.Drawing.Color.White
Me.cboGrenzstelle.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cboGrenzstelle.DropDownWidth = 250
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.FormattingEnabled = True
@@ -824,6 +825,7 @@ Partial Class frmEintragAviso
Me.cboTransportmittelart._value = ""
Me.cboTransportmittelart.BackColor = System.Drawing.Color.White
Me.cboTransportmittelart.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cboTransportmittelart.DropDownWidth = 160
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.FormattingEnabled = True
@@ -1173,6 +1175,7 @@ Partial Class frmEintragAviso
'
Me.cboImEx.BackColor = System.Drawing.Color.White
Me.cboImEx.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cboImEx.DropDownWidth = 150
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.FormattingEnabled = True

14
Aviso/frmEintragAviso.vb
View File

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

33
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
Me.CenterToParent()
cGlobal.Aktive_ID = 1 'standardmäßig ist der Wert 1
If cGlobal.Aktive_ID = 0 Then
'es erfolgt eine Neuanlage
Neuanlage = True
Me.Text = "Neuanlage TV-Text"
Else
Me.Text = "Änderung Text für TV-Anzeige"
'ausgewählter Datensatz wird geladen
myAvisoTV = AvisoTVDAL.LesenAvisoTV(cGlobal.Aktive_ID, "", "", "")
'cGlobal.Aktive_ID = 1 'standardmäßig ist der Wert 1
'If cGlobal.Aktive_ID = 0 Then
' 'es erfolgt eine Neuanlage
'
'
'Else
' Me.Text = "Änderung Text für TV-Anzeige"
'ausgewählter Datensatz wird geladen
myAvisoTV = AvisoTVDAL.LesenAvisoTV(0, "", VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG, "")
If myAvisoTV IsNot Nothing Then
'Werte(zuweisen)
txtZeile1.Text = myAvisoTV.FixeZeile1
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
hÄnderung = False
End Sub
@@ -92,6 +102,7 @@ Public Class frmEintragTV
'Änderungen werden gespeichert
myAvisoTV.FixeZeile1 = txtZeile1.Text.Trim
myAvisoTV.FixeZeile2 = txtZeile2.Text.Trim
myAvisoTV.FixeZeile3 = ""
AvisoTVDAL.SpeichernAvisoTV(myAvisoTV)

316
Aviso/frmHauptfenster.Designer.vb generated
View File

File diff suppressed because it is too large Load Diff

435
Aviso/frmHauptfenster.vb
View File

@@ -195,7 +195,7 @@ Public Class frmHauptfenster
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.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("SUB", "SUB"))
'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.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.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
cboImEx.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("IMPORT", "IMPORT"))
@@ -219,7 +221,7 @@ Public Class frmHauptfenster
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.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("SUB", "SUB"))
'cboMy_Grenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SBG", "SBG"))
@@ -373,7 +375,7 @@ Public Class frmHauptfenster
' MenuStrip1.Items.RemoveAt(1)
'End While
'btnGenerelleGestellungen.Visible = False
btnSpedBuch.Visible = False
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Speditionsbuch", "AVISO") Then btnSpedBuch.Visible = False
btnDienstplan.Visible = True
'btnNeu.Enabled = False
' SplitContainer2.Visible = False
@@ -418,6 +420,9 @@ Public Class frmHauptfenster
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Avisodaten_verwalten", Me) Then
lblMitarbeiter.Text += " (" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME & ")"
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
chkFarben = True
@@ -769,7 +774,6 @@ Public Class frmHauptfenster
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, "
hSQL &= " Telefonisch, Info,Handling,AvisoTVHinweis,DATEDIFF(DAY,getdate(),[VoraussichtlichesEintreffen]) TageBisEintreffen,isnull(Transportmittelart,'')Transportmittelart"
hSQL &= " FROM Aviso "
@@ -813,6 +817,12 @@ Public Class frmHauptfenster
' If SucheStandort <> "" Then hSQL += " AND Grenzstelle = '" & SucheStandort & "'"
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
Select Case cboImEx._value
Case "IMPORT" : hSQL += " AND (ImEx = '" & cboImEx._value & "' OR ImEx = '' )"
@@ -1738,10 +1748,22 @@ Public Class frmHauptfenster
End Sub
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
' SucheStandort = cboGrenzstelle._value.Replace("ALLE", "")
Aviso_anzeigen("")
End If
End Sub
Private Sub cbxClusterChanged(sender As System.Object, e As System.EventArgs) Handles cbxCluster.CheckedChanged
@@ -2349,21 +2371,27 @@ Public Class frmHauptfenster
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" Then
'btnGenerelleGestellungen.Visible = False
Button6.Visible = False
tbcntrAviso.TabPages.RemoveAt(2)
If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("ALLOW_STATUS2_VERIMEX") Then
tabVorbereitet.Text = "2. VERIMEX"
Else
tbcntrAviso.TabPages.RemoveAt(2)
End If
btnWichtigeStandort.Visible = False
Panel2.Visible = False
Label4.Visible = False
cboGrenzstelle.Visible = False
BürgschaftenExcelToolStripMenuItem.Visible = True
ToolStripMenuItem4.Visible = True
ToolStripMenuItem5.Visible = True
ElseIf VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "IMEX" Then
'btnGenerelleGestellungen.Visible = False
ToolStripMenuItem4.Visible = True
ToolStripMenuItem5.Visible = True
ToolStripMenuItem6.Visible = True
Else 'VERAG
BürgschaftenExcelToolStripMenuItem.Visible = True
Panel2.Visible = False
Label4.Visible = False
cboGrenzstelle.Visible = False
BürgschaftenExcelToolStripMenuItem.Visible = True
ToolStripMenuItem4.Visible = True
ToolStripMenuItem5.Visible = True
ElseIf VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "IMEX" Then
'btnGenerelleGestellungen.Visible = False
ToolStripMenuItem4.Visible = True
ToolStripMenuItem5.Visible = True
ToolStripMenuItem6.Visible = True
Else 'VERAG
BürgschaftenExcelToolStripMenuItem.Visible = True
ToolStripMenuItem4.Visible = True
ToolStripMenuItem5.Visible = True
ToolStripMenuItem6.Visible = True
@@ -2566,8 +2594,13 @@ Public Class frmHauptfenster
End Function
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
'sms.sms_Handynummer = "00436644178557"
'sms.sms_Nachricht = "Das ist ein TEST"
@@ -3870,6 +3903,17 @@ Public Class frmHauptfenster
AvisoStatusFunctions.SendStatusEmail(AVISO)
Next
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
Public Class AvisoStatusFunctions
@@ -3893,6 +3937,31 @@ Public Class AvisoStatusFunctions
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)
'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)
@@ -4250,120 +4319,129 @@ 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
'----------------------------------------
Exit Sub ' Wenn Grenzstelle leer / ??? --> Keine MAIL!
'If GrenzstelleMail = "" Then GrenzstelleMail = VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG
End If
'----------------------------------------
Exit Sub ' Wenn Grenzstelle leer / ??? --> Keine MAIL!
'If GrenzstelleMail = "" Then GrenzstelleMail = VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG
End If
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "FRONTOFFICE" Then GrenzstelleMail = "FO"
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "UNISPED" Then GrenzstelleMail = "UNI"
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "FRONTOFFICE" Then GrenzstelleMail = "FO"
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "UNISPED" Then GrenzstelleMail = "UNI"
If GrenzstelleMail <> "" Then
Dim Standort As New cStandort
If GrenzstelleMail <> "" Then
Dim Standort As New cStandort
Standort = Standorte.LesenStandort(0, GrenzstelleMail, "")
Standort = Standorte.LesenStandort(0, GrenzstelleMail, "")
If Not IsNothing(Standort) Then
If Not IsNothing(Standort) Then
Select Case art
Case 1, 3
If Standort.eMail_Ankunft_Betreff <> "" Then
hBetreff = Standort.eMail_Ankunft_Betreff
hBody = Standort.eMail_Ankunft_Text
End If
Case 2, 4
If Standort.eMail_Freigabe_Betreff <> "" Then
hBetreff = Standort.eMail_Freigabe_Betreff
hBody = Standort.eMail_Freigabe_Text
End If
Case 5
If Standort.eMail_Status_Betreff <> "" Then
hBetreff = Standort.eMail_Status_Betreff
hBody = Standort.eMail_Status_Text
End If
End Select
End If
End If
Dim anhaenge As New List(Of String)
hBetreff = Platzhalter_ersetzen(hBetreff, AVISO.LKW_Nr, AVISO.Grenzstelle, AVISO.AvisoId, 0, AVISO, KundenNr, anhaenge) ' art 0 damit nicht beim betreff auch die DY-Daten durchsuht werden und die Sendungsliste erstellt wird.
hBody = Platzhalter_ersetzen(hBody, AVISO.LKW_Nr, AVISO.Grenzstelle, AVISO.AvisoId, art, AVISO, KundenNr, anhaenge)
hBody = hBody.Replace("%0", "<br>")
hBody = hBody.Replace("%Firma", VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA) ' gibts noch nicht!
'Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA '= "IMEX"
' Case "VERAG"
' Case "UNISPED"
' hBody = hBody.Replace("VERAG", VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA) 'hier der Ersatz
'End Select
Dim API = VERAG_PROG_ALLGEMEIN.cAPI.INSERT_API(VERAG_PROG_ALLGEMEIN.cAPI_INOUT.OUT, VERAG_PROG_ALLGEMEIN.cAPI_Type.MAIL, VERAG_PROG_ALLGEMEIN.cAPI_ART.AVISO_OUT_STATUSMAIL, art,,, KundenNr, AVISO.AvisoId)
API.api_EMail = EMails
API.api_EMailCC = EMails_CC
API.api_EMailBCC = EMails_BCC
API.api_EMailSubject = hBetreff
API.api_EMailText = hBody
API.api_EMailAttCnt = anhaenge.Count
If ForceMail <> "" Then
Dim mailsTXT = ""
mailsTXT &= "TO: " & EMails & "<br>"
mailsTXT &= "CC: " & EMails_CC & "<br>"
mailsTXT &= "BCC: " & EMails_BCC & "<br><br>"
If VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(ForceMail, hBetreff, mailsTXT & hBody, VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigung.getAbsenderEmail(), False, False, "", "", anhaenge, art) Then
API.UPDTAE_OK()
Else
API.UPDTAE_ERR()
End If
Else
EMails_BCC &= If(EMails_BCC <> "", ";", "") & VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigung.getAbsenderEmail() 'Damit Mails gespeichert werden.
Dim MailArt = ""
Select Case art
Case 1, 3
If Standort.eMail_Ankunft_Betreff <> "" Then
hBetreff = Standort.eMail_Ankunft_Betreff
hBody = Standort.eMail_Ankunft_Text
End If
Case 2, 4
If Standort.eMail_Freigabe_Betreff <> "" Then
hBetreff = Standort.eMail_Freigabe_Betreff
hBody = Standort.eMail_Freigabe_Text
End If
Case 5
If Standort.eMail_Status_Betreff <> "" Then
hBetreff = Standort.eMail_Status_Betreff
hBody = Standort.eMail_Status_Text
End If
Case 1, 3 : MailArt = "Ankunft"
Case 2, 4 : MailArt = "Freigabe"
Case 5 : MailArt = "Status"
End Select
If VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(EMails, hBetreff, hBody, VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigung.getAbsenderEmail(), False, False, EMails_CC, EMails_BCC, anhaenge, art) Then
API.UPDTAE_OK()
Dim txt = " E-Mail gesendet an: " & EMails
If EMails_CC.ToString.Trim <> "" Then txt &= " CC: " & EMails_CC
If EMails_BCC.ToString.Trim <> "" Then txt &= " BCC: " & EMails_BCC
AvisoStatusFunctions.insertVermerkAllg(AVISO.AvisoId, MailArt & txt, 46, , "(AUTO)")
Else
API.UPDTAE_ERR()
AvisoStatusFunctions.insertVermerkAllg(AVISO.AvisoId, "ERR: " & MailArt & " E-Mail konnte nicht gesendet werden!", 46, , "(AUTO)")
End If
End If
End If
Dim anhaenge As New List(Of String)
hBetreff = Platzhalter_ersetzen(hBetreff, AVISO.LKW_Nr, AVISO.Grenzstelle, AVISO.AvisoId, 0, AVISO, KundenNr, anhaenge) ' art 0 damit nicht beim betreff auch die DY-Daten durchsuht werden und die Sendungsliste erstellt wird.
hBody = Platzhalter_ersetzen(hBody, AVISO.LKW_Nr, AVISO.Grenzstelle, AVISO.AvisoId, art, AVISO, KundenNr, anhaenge)
hBody = hBody.Replace("%0", "<br>")
hBody = hBody.Replace("%Firma", VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA) ' gibts noch nicht!
'Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA '= "IMEX"
' Case "VERAG"
' Case "UNISPED"
' hBody = hBody.Replace("VERAG", VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA) 'hier der Ersatz
'End Select
Dim API = VERAG_PROG_ALLGEMEIN.cAPI.INSERT_API(VERAG_PROG_ALLGEMEIN.cAPI_INOUT.OUT, VERAG_PROG_ALLGEMEIN.cAPI_Type.MAIL, VERAG_PROG_ALLGEMEIN.cAPI_ART.AVISO_OUT_STATUSMAIL, art,,, KundenNr, AVISO.AvisoId)
API.api_EMail = EMails
API.api_EMailCC = EMails_CC
API.api_EMailBCC = EMails_BCC
API.api_EMailSubject = hBetreff
API.api_EMailText = hBody
API.api_EMailAttCnt = anhaenge.Count
If ForceMail <> "" Then
Dim mailsTXT = ""
mailsTXT &= "TO: " & EMails & "<br>"
mailsTXT &= "CC: " & EMails_CC & "<br>"
mailsTXT &= "BCC: " & EMails_BCC & "<br><br>"
If VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(ForceMail, hBetreff, mailsTXT & hBody, VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigung.getAbsenderEmail(), False, False, "", "", anhaenge, art) Then
API.UPDTAE_OK()
Else
API.UPDTAE_ERR()
End If
Else
EMails_BCC &= If(EMails_BCC <> "", ";", "") & VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigung.getAbsenderEmail() 'Damit Mails gespeichert werden.
Dim MailArt = ""
Select Case art
Case 1, 3 : MailArt = "Ankunft"
Case 2, 4 : MailArt = "Freigabe"
Case 5 : MailArt = "Status"
End Select
If VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(EMails, hBetreff, hBody, VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigung.getAbsenderEmail(), False, False, EMails_CC, EMails_BCC, anhaenge, art) Then
API.UPDTAE_OK()
Dim txt = " E-Mail gesendet an: " & EMails
If EMails_CC.ToString.Trim <> "" Then txt &= " CC: " & EMails_CC
If EMails_BCC.ToString.Trim <> "" Then txt &= " BCC: " & EMails_BCC
AvisoStatusFunctions.insertVermerkAllg(AVISO.AvisoId, MailArt & txt, 46, , "(AUTO)")
Else
API.UPDTAE_ERR()
AvisoStatusFunctions.insertVermerkAllg(AVISO.AvisoId, "ERR: " & MailArt & " E-Mail konnte nicht gesendet werden!", 46, , "(AUTO)")
'OLD ----------------------------------
If False Then
Dim hMail As String = "mailto:" & EMails & "?subject=" & hBetreff
If EMails_CC.ToString.Trim <> "" Then hMail += "&CC=" & EMails_CC
If EMails_BCC.ToString.Trim <> "" Then hMail += "&BCC=" & EMails_BCC
If hBody <> "" Then hMail += "&Body=" & hBody
Try
System.Diagnostics.Process.Start(hMail)
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.SHOW, "Beim Mail-Versenden ist ein Fehler aufgetreten")
End Try
End If
' ----------------------------------
End If
'OLD ----------------------------------
If False Then
Dim hMail As String = "mailto:" & EMails & "?subject=" & hBetreff
If EMails_CC.ToString.Trim <> "" Then hMail += "&CC=" & EMails_CC
If EMails_BCC.ToString.Trim <> "" Then hMail += "&BCC=" & EMails_BCC
If hBody <> "" Then hMail += "&Body=" & hBody
Try
System.Diagnostics.Process.Start(hMail)
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.SHOW, "Beim Mail-Versenden ist ein Fehler aufgetreten")
End Try
End If
' ----------------------------------
End If
End Sub
@@ -5709,57 +5787,90 @@ Public Class AvisoStatusFunctions
SendungslistTXT &= "<span style=""font-family:calibri;font-size:14""><b>Sendungsliste:</b><br></span>"
SendungslistTXT &= "<table style=""font-family:calibri;font-size:18;background-color:#F2F8FE;padding:0;min-width:600px;"" border=""1"" bordercolor=""#003680"" cellspacing=""0"">"
'If VERAG_PROG_ALLGEMEIN.cAllgemein.isCLUSTER Then
' SendungslistTXT &= "<tr style=""font-size:18;min-width:180;font-weight: bolder""><td> Nr. </td><td>Spedition</td><td> PosNr </td><td> Art </td><td> Empfänger </td><td> ATC/MRN </td><td> Frist (T1/T2) </td></tr>"
'Else
' SendungslistTXT &= "<tr style=""font-size:18;min-width:180;font-weight: bolder""><td> Nr. </td><td> PosNr </td><td> Art </td><td> Empfänger </td><td> ATC/MRN </td><td> Frist (T1/T2) </td></tr>"
'End If
Dim showNCTSAdress = False
If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("FREIGABEMAIL_T1Adresse") Then showNCTSAdress = True
SendungslistTXT &= "<tr style=""font-size:18;min-width:180;font-weight: bolder""><td> Nr. </td><td>Spedition</td><td> PosNr </td><td> Art </td><td> Empfänger </td><td> ATC/MRN </td><td> Frist (T1/T2) </td>" & If(showNCTSAdress, "<td> Gestellungsadresse (T1/T2) </td>", "") & "</tr>"
'If VERAG_PROG_ALLGEMEIN.cAllgemein.isCLUSTER Then
' SendungslistTXT &= "<tr style=""font-size:18;min-width:180;font-weight: bolder""><td> Nr. </td><td>Spedition</td><td> PosNr </td><td> Art </td><td> Empfänger </td><td> ATC/MRN </td><td> Frist (T1/T2) </td></tr>"
'Else
' SendungslistTXT &= "<tr style=""font-size:18;min-width:180;font-weight: bolder""><td> Nr. </td><td> PosNr </td><td> Art </td><td> Empfänger </td><td> ATC/MRN </td><td> Frist (T1/T2) </td></tr>"
'End If
Dim showNCTSAdress = False
If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("FREIGABEMAIL_T1Adresse") Then showNCTSAdress = True
SendungslistTXT &= "<tr style=""font-size:18;min-width:180;font-weight: bolder""><td> Nr. </td><td>Spedition</td><td> PosNr </td><td> Art </td><td> Empfänger </td><td> ATC/MRN </td><td> Frist (T1/T2) </td>" & If(showNCTSAdress, "<td> Gestellungsadresse (T1/T2) </td>", "") & "</tr>"
Dim cnt = 1
For Each s In SENDUNG_LIST
If s.tblSnd_Abfertigungsart_ID <> 9 And isKdInSendData(KUNDE_ERW, AVISO, s) Then
Dim cnt = 1
For Each s In SENDUNG_LIST
If s.tblSnd_Abfertigungsart_ID <> 9 And isKdInSendData(KUNDE_ERW, AVISO, s) Then
Dim AtcMrn = ""
Dim DsId = ""
Dim AtcMrn = ""
Dim DsId = ""
Dim DsId2 = ""
Dim frist = ""
Dim gestellungsadresse = "<td><td/>"
Dim found = False
Select Case s.tblSnd_Abfertigungsart_ID
Case 5, 6, 18, 24, 32, 33, 34, 37, 40 'Versand
gestellungsadresse = "<td>" & s.getNCTSAdress(True, True, False) & "</td>"
Select Case s.tblSnd_Abfertigungsart_ID
Case 5, 6, 18, 24, 32, 33, 34, 37, 40 'Versand
gestellungsadresse = "<td>" & s.getNCTSAdress(True, True, False) & "</td>"
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
Try
Dim PathTmp = (New VERAG_PROG_ALLGEMEIN.cDATENSERVER(DsId)).GET_TOP1_PATH(False)
If PathTmp <> "" Then anhaenge.Add(PathTmp) : found = True
Catch ex As Exception : VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) : End Try
If Not found Then
AvisoStatusFunctions.insertSendungsVermerk(s.tblSnd_SendungID, AVISO.AvisoID, "ERR: VBD nicht gefunden: " & s.FilialenNr & "/" & s.AbfertigungsNr, 47)
'AvisoStatusFunctions.insertVermerkAllg(AVISO.AvisoID, "ERR: VBD nicht gefunden: " & s.FilialenNr & "/" & s.AbfertigungsNr, 46, , "(AUTO)")
MsgBox("ACHTUNG: Das Versandbegleitdokument konnte nicht automatisiert ermittelt werden." & vbNewLine & "Bitte dem Kunden das VBD per E-Mail zustellen!" & vbNewLine & vbNewLine & "Sendung: " & s.FilialenNr & "/" & s.AbfertigungsNr)
End If
End If
Case 7 'Ausfuhr
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
Try
Dim anhaengeVersand As New List(Of String)
Dim PathTmp = (New VERAG_PROG_ALLGEMEIN.cDATENSERVER(DsId)).GET_TOP1_PATH(False)
If PathTmp <> "" Then anhaengeVersand.Add(PathTmp) : found = True
getDataFronDY_AES(s.tblSnd_SendungID, AtcMrn, DsId, s.FilialenNr, s.AbfertigungsNr, DsId2)
'---------------------------------------------------------
'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
If Not found Then
AvisoStatusFunctions.insertSendungsVermerk(s.tblSnd_SendungID, AVISO.AvisoID, "ERR: VBD nicht gefunden: " & s.FilialenNr & "/" & s.AbfertigungsNr, 47)
'AvisoStatusFunctions.insertVermerkAllg(AVISO.AvisoID, "ERR: VBD nicht gefunden: " & s.FilialenNr & "/" & s.AbfertigungsNr, 46, , "(AUTO)")
MsgBox("ACHTUNG: Das Versandbegleitdokument konnte nicht automatisiert ermittelt werden." & vbNewLine & "Bitte dem Kunden das VBD per E-Mail zustellen!" & vbNewLine & vbNewLine & "Sendung: " & s.FilialenNr & "/" & s.AbfertigungsNr)
End If
End If
Case 7 'Ausfuhr
getDataFronDY_AES(s.tblSnd_SendungID, AtcMrn, DsId, s.FilialenNr, s.AbfertigungsNr, DsId2)
' MsgBox(DsId)
If KUNDE_ERW.EmailFreigabe_ABDPDF And IsNumeric(DsId) Then 'VBD anhängen
Try
Dim PathTmp = (New VERAG_PROG_ALLGEMEIN.cDATENSERVER(DsId)).GET_TOP1_PATH(False)
If PathTmp <> "" Then anhaenge.Add(PathTmp) : found = True
Catch ex As Exception : VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) : End Try
If Not found Then
AvisoStatusFunctions.insertSendungsVermerk(s.tblSnd_SendungID, AVISO.AvisoID, "ERR: ABD nicht gefunden: " & s.FilialenNr & "/" & s.AbfertigungsNr, 47)
'AvisoStatusFunctions.insertVermerkAllg(AVISO.AvisoID, "ERR: VBD nicht gefunden: " & s.FilialenNr & "/" & s.AbfertigungsNr, 46, , "(AUTO)")
MsgBox("ACHTUNG: Das Ausfuhrbegleitdokument konnte nicht automatisiert ermittelt werden." & vbNewLine & "Bitte dem Kunden das ABD per E-Mail zustellen!" & vbNewLine & vbNewLine & "Sendung: " & s.FilialenNr & "/" & s.AbfertigungsNr)
End If
End If
Case Else
Try
Dim PathTmp = (New VERAG_PROG_ALLGEMEIN.cDATENSERVER(DsId)).GET_TOP1_PATH(False)
If PathTmp <> "" Then anhaenge.Add(PathTmp) : found = True
Catch ex As Exception : VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) : End Try
If Not found Then
AvisoStatusFunctions.insertSendungsVermerk(s.tblSnd_SendungID, AVISO.AvisoID, "ERR: ABD nicht gefunden: " & s.FilialenNr & "/" & s.AbfertigungsNr, 47)
'AvisoStatusFunctions.insertVermerkAllg(AVISO.AvisoID, "ERR: VBD nicht gefunden: " & s.FilialenNr & "/" & s.AbfertigungsNr, 46, , "(AUTO)")
MsgBox("ACHTUNG: Das Ausfuhrbegleitdokument konnte nicht automatisiert ermittelt werden." & vbNewLine & "Bitte dem Kunden das ABD per E-Mail zustellen!" & vbNewLine & vbNewLine & "Sendung: " & s.FilialenNr & "/" & s.AbfertigungsNr)
End If
End If
Case Else
getDataFronDY_EZA(s.tblSnd_SendungID, AtcMrn, DsId, s.FilialenNr, s.AbfertigungsNr, DsId2)
If s.tblSnd_Abfertigungsart_ID = 23 Then
s.LOAD_HANDLING()

51
Aviso/frmLaufzettel.vb
View File

@@ -247,31 +247,32 @@ Public Class frmLaufzettel
' 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
Try
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)
Catch ex As Exception : MsgBox(ex.Message & ex.StackTrace) : End Try
Else
If Not CheckBox3.Checked And Not CheckBox4.Checked Then
MsgBox("Bitte 'AT ZOLL' oder 'DE ZOLL' auswählen!")
Exit Sub
End If
Try
'If CheckBox3.Checked Then path = SDL.FormularManagerNEU.zumZOLL_AVISO(AVISO, If(CheckBox3.Checked, "AT", If(CheckBox4.Checked, "DE", "")))
Dim path = ""
If CheckBox3.Checked Then path = SDL.FormularManagerNEU.zumZOLL_AVISO_AT(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)
Catch ex As Exception : MsgBox(ex.Message & ex.StackTrace) : End Try
If VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG = "WAI" Then
Try
Dim path = SDL.FormularManagerNEU.zumZOLL_AVISO_WAI(AVISO)
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
Else
If Not CheckBox3.Checked And Not CheckBox4.Checked Then
MsgBox("Bitte 'AT ZOLL' oder 'DE ZOLL' auswählen!")
Exit Sub
End If
Try
'If CheckBox3.Checked Then path = SDL.FormularManagerNEU.zumZOLL_AVISO(AVISO, If(CheckBox3.Checked, "AT", If(CheckBox4.Checked, "DE", "")))
Dim path = ""
If CheckBox3.Checked Then path = SDL.FormularManagerNEU.zumZOLL_AVISO_AT(AVISO)
If CheckBox4.Checked Then path = SDL.FormularManagerNEU.zumZOLL_AVISO_DE(AVISO)
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
End If
End If
'------------------------------------------------
End Sub
@@ -295,7 +296,11 @@ Public Class frmLaufzettel
If Not digitalDruck Then
printzZAnlagen()
If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("PRINT_zumZOLL") Then
If CheckBox2.Checked Then
printzZAnlagen()
End If
End If
End If
' Dim loadAttachRg = True ' (sender Is Button15)
@@ -480,7 +485,7 @@ Public Class frmLaufzettel
Dim pruef = False
For Each s In SENDUNG_LIST
Select Case s.tblSnd_Abfertigungsart_ID.ToString
Case "38", "26" 'AT - Keine Prüfung
Case "38", "26", "44" 'AT - Keine Prüfung
Case Else
If If(s.tblSnd_Vorpapier, "") = "" And If(s.tblSnd_Vorpapier2, "") = "" And If(s.tblSnd_Vorpapier3, "") = "" Then
pruef = True

20
Aviso/frmLogin.vb
View File

@@ -156,7 +156,7 @@ Public Class frmLogin
Dim AvisoDAL As New VERAG_PROG_ALLGEMEIN.cAvisoDAL
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")
For Each r In dt.Rows
@@ -276,7 +276,23 @@ Public Class frmLogin
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
Dim l = IO.File.ReadAllLines(AVISO_OPTIONSDatei, System.Text.Encoding.Default)
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.VERAGToolStripMenuItem = 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.ToolStripMenuItem14 = New System.Windows.Forms.ToolStripMenuItem()
Me.NurÖffnenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.AMBARZollbeschauToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.pnl.SuspendLayout()
Me.Panel4.SuspendLayout()
Me.TabControl1.SuspendLayout()
@@ -773,12 +779,12 @@ Partial Class frmSendungsdetailsNEU
Me.dgvZollAnmeldungen.AllowUserToResizeRows = False
Me.dgvZollAnmeldungen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
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.ReadOnly = True
Me.dgvZollAnmeldungen.RowTemplate.Height = 30
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
'
'Panel17
@@ -820,10 +826,11 @@ Partial Class frmSendungsdetailsNEU
'
'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.Location = New System.Drawing.Point(0, 0)
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
'
'ToolStripMenuItem13
@@ -831,7 +838,7 @@ Partial Class frmSendungsdetailsNEU
Me.ToolStripMenuItem13.Image = Global.AVISO.My.Resources.Resources.plus
Me.ToolStripMenuItem13.Name = "ToolStripMenuItem13"
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.ToolTipText = "Neue Zollanmeldung"
'
@@ -841,7 +848,7 @@ Partial Class frmSendungsdetailsNEU
Me.ToolStripMenuItem7.Image = Global.AVISO.My.Resources.Resources.plus
Me.ToolStripMenuItem7.Name = "ToolStripMenuItem7"
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.ToolTipText = "Neue Zollanmeldung"
'
@@ -850,7 +857,7 @@ Partial Class frmSendungsdetailsNEU
Me.ToolStripMenuItem8.Font = New System.Drawing.Font("Segoe UI", 9.0!)
Me.ToolStripMenuItem8.Image = Global.AVISO.My.Resources.Resources.plus
Me.ToolStripMenuItem8.Name = "ToolStripMenuItem8"
Me.ToolStripMenuItem8.Size = New System.Drawing.Size(94, 22)
Me.ToolStripMenuItem8.Size = New System.Drawing.Size(101, 30)
Me.ToolStripMenuItem8.Text = "T1"
'
'ToolStripMenuItem9
@@ -858,7 +865,7 @@ Partial Class frmSendungsdetailsNEU
Me.ToolStripMenuItem9.Font = New System.Drawing.Font("Segoe UI", 9.0!)
Me.ToolStripMenuItem9.Image = Global.AVISO.My.Resources.Resources.plus
Me.ToolStripMenuItem9.Name = "ToolStripMenuItem9"
Me.ToolStripMenuItem9.Size = New System.Drawing.Size(94, 22)
Me.ToolStripMenuItem9.Size = New System.Drawing.Size(101, 30)
Me.ToolStripMenuItem9.Text = "T2"
'
'ToolStripMenuItem10
@@ -866,7 +873,7 @@ Partial Class frmSendungsdetailsNEU
Me.ToolStripMenuItem10.Enabled = False
Me.ToolStripMenuItem10.Image = Global.AVISO.My.Resources.Resources.plus
Me.ToolStripMenuItem10.Name = "ToolStripMenuItem10"
Me.ToolStripMenuItem10.Size = New System.Drawing.Size(94, 22)
Me.ToolStripMenuItem10.Size = New System.Drawing.Size(101, 30)
Me.ToolStripMenuItem10.Text = "Ü-T"
Me.ToolStripMenuItem10.Visible = False
'
@@ -876,7 +883,7 @@ Partial Class frmSendungsdetailsNEU
Me.ToolStripMenuItem6.Image = Global.AVISO.My.Resources.Resources.plus
Me.ToolStripMenuItem6.Name = "ToolStripMenuItem6"
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.ToolTipText = "Neue Zollanmeldung"
Me.ToolStripMenuItem6.Visible = False
@@ -886,7 +893,7 @@ Partial Class frmSendungsdetailsNEU
Me.ToolStripMenuItem11.Image = Global.AVISO.My.Resources.Resources.plus
Me.ToolStripMenuItem11.Name = "ToolStripMenuItem11"
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.ToolTipText = "Neue Zollanmeldung"
'
@@ -896,7 +903,7 @@ Partial Class frmSendungsdetailsNEU
Me.ToolStripMenuItem17.Image = Global.AVISO.My.Resources.Resources.plus
Me.ToolStripMenuItem17.Name = "ToolStripMenuItem17"
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.ToolTipText = "Neue Zollanmeldung"
'
@@ -904,7 +911,7 @@ Partial Class frmSendungsdetailsNEU
'
Me.ToolStripMenuItem20.Image = Global.AVISO.My.Resources.Resources.plus
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"
'
'ToolStripMenuItem18
@@ -913,7 +920,7 @@ Partial Class frmSendungsdetailsNEU
Me.ToolStripMenuItem18.Font = New System.Drawing.Font("Segoe UI", 9.0!)
Me.ToolStripMenuItem18.Image = Global.AVISO.My.Resources.Resources.plus
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"
'
'ToolStripMenuItem19
@@ -922,7 +929,7 @@ Partial Class frmSendungsdetailsNEU
Me.ToolStripMenuItem19.Font = New System.Drawing.Font("Segoe UI", 9.0!)
Me.ToolStripMenuItem19.Image = Global.AVISO.My.Resources.Resources.plus
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"
'
'ToolStripMenuItem21
@@ -931,7 +938,7 @@ Partial Class frmSendungsdetailsNEU
Me.ToolStripMenuItem21.Image = Global.AVISO.My.Resources.Resources.plus
Me.ToolStripMenuItem21.Name = "ToolStripMenuItem21"
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.ToolTipText = "Neue Zollanmeldung"
'
@@ -939,7 +946,7 @@ Partial Class frmSendungsdetailsNEU
'
Me.ToolStripMenuItem22.Image = Global.AVISO.My.Resources.Resources.weiterleiten_small1
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"
'
'ToolStripMenuItem23
@@ -947,7 +954,7 @@ Partial Class frmSendungsdetailsNEU
Me.ToolStripMenuItem23.Font = New System.Drawing.Font("Segoe UI", 9.0!)
Me.ToolStripMenuItem23.Image = Global.AVISO.My.Resources.Resources.weiterleiten_small1
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"
'
'ToolStripMenuItem24
@@ -956,14 +963,14 @@ Partial Class frmSendungsdetailsNEU
Me.ToolStripMenuItem24.Font = New System.Drawing.Font("Segoe UI", 9.0!)
Me.ToolStripMenuItem24.Image = Global.AVISO.My.Resources.Resources.weiterleiten_small1
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"
'
'ToolStripMenuItem12
'
Me.ToolStripMenuItem12.Image = Global.AVISO.My.Resources.Resources.android_note
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.ToolTipText = "Logbuch"
'
@@ -2516,6 +2523,7 @@ Partial Class frmSendungsdetailsNEU
'
'cntxt
'
Me.cntxt.ImageScalingSize = New System.Drawing.Size(24, 24)
Me.cntxt.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.KdAuftragsNrInAlleSendungenÜbernehmenToolStripMenuItem})
Me.cntxt.Name = "cntxt"
Me.cntxt.Size = New System.Drawing.Size(323, 26)
@@ -4488,47 +4496,48 @@ Partial Class frmSendungsdetailsNEU
'
'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.Name = "cntxtAnh"
Me.cntxtAnh.Size = New System.Drawing.Size(286, 136)
Me.cntxtAnh.Size = New System.Drawing.Size(294, 184)
'
'MarkiertePDFsDruckenToolStripMenuItem
'
Me.MarkiertePDFsDruckenToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.pdfprint
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"
'
'EMailAnfügenToolStripMenuItem
'
Me.EMailAnfügenToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.email_big1
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"
'
'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)"
'
'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"
'
'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"
'
'AbrechungFremdeGrenzeAktDruckenToolStripMenuItem
'
Me.AbrechungFremdeGrenzeAktDruckenToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.printer
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"
'
'ToolStripMenuItem3
@@ -4555,7 +4564,7 @@ Partial Class frmSendungsdetailsNEU
Me.ToolStripMenuItem4.Font = New System.Drawing.Font("Segoe UI", 9.0!)
Me.ToolStripMenuItem4.Image = Global.AVISO.My.Resources.Resources.plus
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"
'
'ToolStripMenuItem5
@@ -4563,7 +4572,7 @@ Partial Class frmSendungsdetailsNEU
Me.ToolStripMenuItem5.Font = New System.Drawing.Font("Segoe UI", 9.0!)
Me.ToolStripMenuItem5.Image = Global.AVISO.My.Resources.Resources.plus
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"
'
'ÜTToolStripMenuItem
@@ -4571,7 +4580,7 @@ Partial Class frmSendungsdetailsNEU
Me.ÜTToolStripMenuItem.Enabled = False
Me.ÜTToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.plus
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"
'
'NeueZollanmeldungToolStripMenuItem
@@ -4648,6 +4657,7 @@ Partial Class frmSendungsdetailsNEU
'
Me.BindingNavigatorPositionItem.AccessibleName = "Position"
Me.BindingNavigatorPositionItem.AutoSize = False
Me.BindingNavigatorPositionItem.Font = New System.Drawing.Font("Segoe UI", 9.0!)
Me.BindingNavigatorPositionItem.Name = "BindingNavigatorPositionItem"
Me.BindingNavigatorPositionItem.Size = New System.Drawing.Size(50, 23)
Me.BindingNavigatorPositionItem.Text = "0"
@@ -4732,9 +4742,10 @@ Partial Class frmSendungsdetailsNEU
'
'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.Size = New System.Drawing.Size(263, 114)
Me.ctxtWeitereFormulare.Size = New System.Drawing.Size(263, 136)
'
'toolGelangensbestätigung
'
@@ -4783,38 +4794,39 @@ Partial Class frmSendungsdetailsNEU
'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"
'
'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"
'
'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"
'
'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.Size = New System.Drawing.Size(171, 92)
Me.ContextMenuStrip1.Size = New System.Drawing.Size(223, 214)
'
'ToolStripMenuItem15
'
Me.ToolStripMenuItem15.Image = Global.AVISO.My.Resources.Resources.email_big1
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"
'
'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"
'
'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.Image = Global.AVISO.My.Resources.Resources.email_big1
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"
'
'IMEXToolStripMenuItem1
@@ -4847,30 +4859,73 @@ Partial Class frmSendungsdetailsNEU
'
Me.AuftragATANAKToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.email_big1
Me.AuftragATANAKToolStripMenuItem.Name = "AuftragATANAKToolStripMenuItem"
Me.AuftragATANAKToolStripMenuItem.Size = New System.Drawing.Size(170, 22)
Me.AuftragATANAKToolStripMenuItem.Text = "Auftrag ATANAK "
Me.AuftragATANAKToolStripMenuItem.Size = New System.Drawing.Size(222, 30)
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
'
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.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"
'
'ToolStripMenuItem14
'
Me.ToolStripMenuItem14.Image = CType(resources.GetObject("ToolStripMenuItem14.Image"), System.Drawing.Image)
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"
'
'NurÖffnenToolStripMenuItem
'
Me.NurÖffnenToolStripMenuItem.Image = CType(resources.GetObject("NurÖffnenToolStripMenuItem.Image"), System.Drawing.Image)
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"
'
'AMBARZollbeschauToolStripMenuItem
'
Me.AMBARZollbeschauToolStripMenuItem.Name = "AMBARZollbeschauToolStripMenuItem"
Me.AMBARZollbeschauToolStripMenuItem.Size = New System.Drawing.Size(262, 22)
Me.AMBARZollbeschauToolStripMenuItem.Text = "AMBAR - Zollbeschau"
'
'frmSendungsdetailsNEU
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
@@ -5316,4 +5371,10 @@ Partial Class frmSendungsdetailsNEU
Friend WithEvents AbrechungFremdeGrenzeAktDruckenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents Panel22 As Panel
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

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">
<value>843, 17</value>
</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">
<value>1000, 17</value>
</metadata>

431
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
VERAG_PROG_ALLGEMEIN.cAllgemein._TRANSLATE(Me)
Try
lblGrenze.Text = ""
Panel5.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
lblGrenze.Text = SQL.getValueTxtBySql("SELECT basncd_dstnr +' - ' + [basncd_name] FROM basncd WHERE basncd_dstnr='" & If(AVISO.Zollstelle, "") & "' ", "ATLAS")
Else
Select Case AVISO.Grenzstelle
Case "SUB" : lblGrenze.Text = "DE007701 Suben"
Case "WAI" : lblGrenze.Text = "DE008904 Waidhaus"
Case "SBG" : lblGrenze.Text = "DE007458 Bad Reichenhall"
Case "NKD" : lblGrenze.Text = "AT320300 Nickelsdorf"
Case "SFD" : lblGrenze.Text = "AT700400 Spielfeld"
End Select
Dim GRZ As New VERAG_PROG_ALLGEMEIN.cGrenzstelle(AVISO.Grenzstelle)
If GRZ IsNot Nothing AndAlso GRZ.hasEntry Then
lblGrenze.Text = If(GRZ.grz_ZollamtDST, "") & " " & If(GRZ.grz_ZollamtBezeichnung, "")
End If
End If
@@ -365,13 +368,13 @@ Public Class frmSendungsdetailsNEU
End If
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Vorauskasse", Me) Then
btnImportaviso.Visible = True
btnVorauszahlung.Visible = True
' ToolStripMenuItem13.Enabled = True
End If
btnImportaviso.Visible = True
btnVorauszahlung.Visible = True
' ToolStripMenuItem13.Enabled = True
End If
cboFiliale._allowFreiText = Nothing
cboFiliale._allowFreiText = Nothing
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER
Case "FRONTOFFICE"
cboFiliale._allowFreiText = Nothing
@@ -1754,11 +1757,14 @@ Public Class frmSendungsdetailsNEU
End If
End If
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)
' End Sub)
' trd.IsBackground = True : trd.Start()
Dim trd = New Threading.Thread(Sub()
SendungOptions.PrintSendung("PRINT", SENDUNG_LIST_Tmp, AVISO_Tmp, Printername, If(sender Is LaufzettelDruckenToolStripMenuItem, "LAUFZETTEL", "AKT"), SENDUNG_LIST.Count)
End Sub)
trd.IsBackground = True : trd.Start()
ElseIf sender Is Button8 Then
SendungOptions.PrintSendung("PDF", SENDUNG_LIST(CURRENT_INDEX), AVISO, Printername,, SENDUNG_LIST.Count)
@@ -4408,7 +4414,7 @@ Public Class frmSendungsdetailsNEU
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
My.Computer.FileSystem.CreateDirectory(sPath)
End If
@@ -4423,11 +4429,11 @@ Public Class frmSendungsdetailsNEU
.Visible = False
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)
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
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
' 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
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
My.Computer.FileSystem.CreateDirectory(sPath)
End If
@@ -4506,11 +4512,11 @@ Public Class frmSendungsdetailsNEU
.Visible = False
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)
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
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
' 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
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
My.Computer.FileSystem.CreateDirectory(sPath)
End If
@@ -4588,11 +4594,11 @@ Public Class frmSendungsdetailsNEU
.Visible = False
Try
Path = sPath & "ATANAK_ExportT1_" & AVISO.AvisoID & "" & " .xlsx"
Path = sPath & "DGS_ExportT1_" & AVISO.AvisoID & "" & " .xlsx"
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
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
' 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
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
VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.clearTMPPath("ClipBoard_TMP")
@@ -4660,14 +4666,15 @@ Public Class frmSendungsdetailsNEU
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 = 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"
'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 = "bblcustoms@groupe-bbl.com"
Dim TextHTML = ""
TextHTML &= "Dear Atanak Team,<br>"
TextHTML &= "Dear BBL Team,<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 &= "<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>"
@@ -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>"
Dim answer = MsgBox("Vermerk 'An ATANAK avisiert' eintragen?", vbYesNoCancel)
Dim answer = MsgBox("Vermerk 'An BBL avisiert' eintragen?", vbYesNoCancel)
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
Mail.Display()
@@ -4876,4 +4987,252 @@ Public Class frmSendungsdetailsNEU
End Try
FORM.Cursor = Cursors.Default
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

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

100
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," &
" 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 " &
" LEFT JOIN tblSendungen ON [SendungID]=tblSendungen.tblSnd_SendungID " &
" WHERE AvisoID = " & AvisoID & " " & sendwhere & " " &
@@ -2981,9 +2981,85 @@ Public Class usrcntlAktDetails
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
Me.Cursor = Cursors.WaitCursor
Dim SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen)
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)
VERAG_PROG_ALLGEMEIN.cSendungen.LOAD_LIST(SENDUNG_LIST, -1, AvisoID) 'LÄDT alle SENDUNGSDATEN
For Each s In SENDUNG_LIST
@@ -3005,12 +3081,13 @@ Public Class usrcntlAktDetails
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
' End Sub)
' trd.IsBackground = True : trd.Start()
' Me.Cursor = Cursors.Default
End Sub
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"">"
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)
End If
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

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 DataGridViewCellStyle9 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 DataGridViewCellStyle12 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 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 DataGridViewCellStyle17 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.Label1 = New System.Windows.Forms.Label()
Me.tbAnhaenge = New System.Windows.Forms.TabPage()
Me.dgvanhaenge = New System.Windows.Forms.DataGridView()
Me.Panel5 = New System.Windows.Forms.Panel()
Me.btnQuckScan = New System.Windows.Forms.Button()
Me.Button11 = New System.Windows.Forms.Button()
Me.Button4 = 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.gridVermerke = New System.Windows.Forms.DataGridView()
Me.pnlVermerkeTop = New System.Windows.Forms.Panel()
@@ -106,6 +106,9 @@ Partial Class usrcntlAktDetailsATILLANeu
Me.btnErfasst = New System.Windows.Forms.Button()
Me.lblTimeErfasst = New System.Windows.Forms.Label()
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.btnVorgeschrieben = New System.Windows.Forms.Button()
Me.lblTimeVorgeschreiben = New System.Windows.Forms.Label()
@@ -154,8 +157,8 @@ Partial Class usrcntlAktDetailsATILLANeu
CType(Me.dgvSpeditionsbuch, System.ComponentModel.ISupportInitialize).BeginInit()
Me.pnlSendungenTop.SuspendLayout()
Me.tbAnhaenge.SuspendLayout()
Me.Panel5.SuspendLayout()
CType(Me.dgvanhaenge, System.ComponentModel.ISupportInitialize).BeginInit()
Me.Panel5.SuspendLayout()
CType(Me.gridVermerke, System.ComponentModel.ISupportInitialize).BeginInit()
Me.pnlVermerkeTop.SuspendLayout()
Me.Panel8.SuspendLayout()
@@ -164,6 +167,7 @@ Partial Class usrcntlAktDetailsATILLANeu
CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
Me.FlowLayoutPanel.SuspendLayout()
Me.Panel9.SuspendLayout()
Me.Panel6.SuspendLayout()
Me.Panel13.SuspendLayout()
Me.Panel11.SuspendLayout()
Me.Panel12.SuspendLayout()
@@ -198,9 +202,9 @@ Partial Class usrcntlAktDetailsATILLANeu
Me.Panel3.Controls.Add(Me.SplitContainer)
Me.Panel3.Controls.Add(Me.Panel8)
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.Size = New System.Drawing.Size(575, 450)
Me.Panel3.Size = New System.Drawing.Size(575, 449)
Me.Panel3.TabIndex = 91
'
'SplitContainer
@@ -222,8 +226,8 @@ Partial Class usrcntlAktDetailsATILLANeu
Me.SplitContainer.Panel2.Controls.Add(Me.gridVermerke)
Me.SplitContainer.Panel2.Controls.Add(Me.pnlVermerkeTop)
Me.SplitContainer.Panel2.Controls.Add(Me.addVermerk)
Me.SplitContainer.Size = New System.Drawing.Size(575, 284)
Me.SplitContainer.SplitterDistance = 184
Me.SplitContainer.Size = New System.Drawing.Size(575, 283)
Me.SplitContainer.SplitterDistance = 183
Me.SplitContainer.TabIndex = 91
'
'tbcntr
@@ -236,7 +240,7 @@ Partial Class usrcntlAktDetailsATILLANeu
Me.tbcntr.Location = New System.Drawing.Point(0, 0)
Me.tbcntr.Name = "tbcntr"
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
'
'tbVermerke
@@ -245,7 +249,7 @@ Partial Class usrcntlAktDetailsATILLANeu
Me.tbVermerke.Location = New System.Drawing.Point(4, 22)
Me.tbVermerke.Name = "tbVermerke"
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.Text = "Vermerk eintragen"
Me.tbVermerke.UseVisualStyleBackColor = True
@@ -258,7 +262,7 @@ Partial Class usrcntlAktDetailsATILLANeu
Me.UsrCntlVermerkeATilla1.Location = New System.Drawing.Point(3, 3)
Me.UsrCntlVermerkeATilla1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
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
'
'tbZollanmeldungen
@@ -266,7 +270,7 @@ Partial Class usrcntlAktDetailsATILLANeu
Me.tbZollanmeldungen.Controls.Add(Me.Panel1)
Me.tbZollanmeldungen.Location = New System.Drawing.Point(4, 22)
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.Text = "Zollanmeldungen"
Me.tbZollanmeldungen.UseVisualStyleBackColor = True
@@ -279,7 +283,7 @@ Partial Class usrcntlAktDetailsATILLANeu
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(567, 158)
Me.Panel1.Size = New System.Drawing.Size(567, 157)
Me.Panel1.TabIndex = 0
'
'dgvZollAnmeldungen
@@ -331,7 +335,7 @@ Partial Class usrcntlAktDetailsATILLANeu
Me.dgvZollAnmeldungen.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.dgvZollAnmeldungen.ShowCellErrors = 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.TabStop = False
'
@@ -376,7 +380,7 @@ Partial Class usrcntlAktDetailsATILLANeu
Me.tbSpedBuch.Location = New System.Drawing.Point(4, 22)
Me.tbSpedBuch.Name = "tbSpedBuch"
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.Text = "Speditionsbuch"
Me.tbSpedBuch.UseVisualStyleBackColor = True
@@ -430,7 +434,7 @@ Partial Class usrcntlAktDetailsATILLANeu
Me.dgvSpeditionsbuch.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.dgvSpeditionsbuch.ShowCellErrors = 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.TabStop = False
'
@@ -475,11 +479,63 @@ Partial Class usrcntlAktDetailsATILLANeu
Me.tbAnhaenge.Location = New System.Drawing.Point(4, 22)
Me.tbAnhaenge.Name = "tbAnhaenge"
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.Text = "Anhänge"
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
'
Me.Panel5.Controls.Add(Me.btnQuckScan)
@@ -487,7 +543,7 @@ Partial Class usrcntlAktDetailsATILLANeu
Me.Panel5.Controls.Add(Me.Button4)
Me.Panel5.Controls.Add(Me.Button10)
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.Size = New System.Drawing.Size(561, 38)
Me.Panel5.TabIndex = 112
@@ -548,58 +604,6 @@ Partial Class usrcntlAktDetailsATILLANeu
Me.Button10.TextAlign = System.Drawing.ContentAlignment.MiddleRight
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
'
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.MaximumSize = New System.Drawing.Size(2, 250)
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
'
'gridVermerke
@@ -1121,6 +1125,7 @@ Partial Class usrcntlAktDetailsATILLANeu
Me.FlowLayoutPanel.AutoSize = True
Me.FlowLayoutPanel.Controls.Add(Me.Panel9)
Me.FlowLayoutPanel.Controls.Add(Me.Panel10)
Me.FlowLayoutPanel.Controls.Add(Me.Panel6)
Me.FlowLayoutPanel.Controls.Add(Me.Panel13)
Me.FlowLayoutPanel.Controls.Add(Me.Panel11)
Me.FlowLayoutPanel.Controls.Add(Me.Panel12)
@@ -1128,7 +1133,7 @@ Partial Class usrcntlAktDetailsATILLANeu
Me.FlowLayoutPanel.Dock = System.Windows.Forms.DockStyle.Top
Me.FlowLayoutPanel.Location = New System.Drawing.Point(0, 36)
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
'
'Panel9
@@ -1178,12 +1183,51 @@ Partial Class usrcntlAktDetailsATILLANeu
Me.Panel10.Size = New System.Drawing.Size(0, 0)
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
'
Me.Panel13.AutoSize = True
Me.Panel13.Controls.Add(Me.btnVorgeschrieben)
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.Size = New System.Drawing.Size(209, 75)
Me.Panel13.TabIndex = 17
@@ -1222,7 +1266,7 @@ Partial Class usrcntlAktDetailsATILLANeu
Me.Panel11.AutoSize = True
Me.Panel11.Controls.Add(Me.btnAnkunft)
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.Size = New System.Drawing.Size(119, 75)
Me.Panel11.TabIndex = 17
@@ -1261,7 +1305,7 @@ Partial Class usrcntlAktDetailsATILLANeu
Me.Panel12.AutoSize = True
Me.Panel12.Controls.Add(Me.btnFreigabe)
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.Size = New System.Drawing.Size(122, 74)
Me.Panel12.TabIndex = 17
@@ -1299,7 +1343,7 @@ Partial Class usrcntlAktDetailsATILLANeu
'
Me.Panel2.AutoSize = True
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.Size = New System.Drawing.Size(66, 37)
Me.Panel2.TabIndex = 18
@@ -1516,8 +1560,8 @@ Partial Class usrcntlAktDetailsATILLANeu
Me.pnlSendungenTop.ResumeLayout(False)
Me.pnlSendungenTop.PerformLayout()
Me.tbAnhaenge.ResumeLayout(False)
Me.Panel5.ResumeLayout(False)
CType(Me.dgvanhaenge, System.ComponentModel.ISupportInitialize).EndInit()
Me.Panel5.ResumeLayout(False)
CType(Me.gridVermerke, System.ComponentModel.ISupportInitialize).EndInit()
Me.pnlVermerkeTop.ResumeLayout(False)
Me.pnlVermerkeTop.PerformLayout()
@@ -1531,6 +1575,8 @@ Partial Class usrcntlAktDetailsATILLANeu
Me.FlowLayoutPanel.PerformLayout()
Me.Panel9.ResumeLayout(False)
Me.Panel9.PerformLayout()
Me.Panel6.ResumeLayout(False)
Me.Panel6.PerformLayout()
Me.Panel13.ResumeLayout(False)
Me.Panel13.PerformLayout()
Me.Panel11.ResumeLayout(False)
@@ -1644,4 +1690,7 @@ Partial Class usrcntlAktDetailsATILLANeu
Friend WithEvents Button10 As Button
Friend WithEvents Panel5 As Panel
Friend WithEvents Button11 As Button
Friend WithEvents Panel6 As Panel
Friend WithEvents Button12 As Button
Friend WithEvents Label7 As Label
End Class

18
Aviso/usrcntlAktDetailsATILLANeu.vb
View File

@@ -86,6 +86,7 @@ Public Class usrcntlAktDetailsATILLANeu
setVisible(btnVorgeschrieben, v)
setVisible(lblTimeAnkunft, v)
setVisible(lblTimeErfasst, v)
setVisible(Label7, v)
setVisible(lblTimeFreigabe, v)
' setVisible(lblTimeVorbereitet, v)
setVisible(lblTimeVorgeschreiben, v)
@@ -240,6 +241,14 @@ Public Class usrcntlAktDetailsATILLANeu
'btnVorgeschrieben.Text = "VORGESCHR."
'btnVorgeschrieben.Text = "VORGESCHR."
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()
End Sub
@@ -302,7 +311,7 @@ Public Class usrcntlAktDetailsATILLANeu
lblTimeErfasst.Text = formatdate(AVISO.Datum)
lblTimeAnkunft.Text = formatdate(AVISO.Ankunft)
lblTimeFreigabe.Text = formatdate(AVISO.Freigabe)
' lblTimeVorbereitet.Text = formatdate(AVISO.Vorbereitet)
Label7.Text = formatdate(AVISO.Vorbereitet)
lblTimeVorgeschreiben.Text = formatdate(AVISO.Vorgeschrieben)
intiAktUebernehmenBtn()
@@ -1546,4 +1555,11 @@ Public Class usrcntlAktDetailsATILLANeu
End If
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

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

@@ -22,7 +22,7 @@ Namespace My.Resources
'''<summary>
''' Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
'''</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.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _
@@ -60,6 +60,26 @@ Namespace My.Resources
End Set
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>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>

6
AvisoTV/My Project/Resources.resx
View File

@@ -166,4 +166,10 @@
<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>
</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>

366
AvisoTV/frmAnzeige.Designer.vb generated
View File

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

2
AvisoTV/frmAnzeige.resx
View File

@@ -148,7 +148,7 @@
<value>True</value>
</metadata>
<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>
Qk32AgAAAAAAADYAAAAoAAAADgAAABAAAAABABgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACEgoTGw8bGw8bGw8bGw8bGw8bGw8bG

46
AvisoTV/frmAnzeige.vb
View File

@@ -150,6 +150,7 @@ Public Class frmAnzeige
GridBackgroundColor = Color.FromArgb(255, 255, 240)
ElseIf Standort = "AMBAR" Then
VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "AMBAR"
CLUSTER = "FRONTOFFICE"
ElseIf Standort = "FRONTOFFICE" Then
VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "FRONTOFFICE"
CLUSTER = "FRONTOFFICE"
@@ -225,11 +226,11 @@ Public Class frmAnzeige
where &= " Status IN( " & stat_tmp & ") "
If CLUSTER <> "" Then
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 & "' "
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','') "
hSQL &= where
hSQL += ank_tmp & " ORDER BY CASE " &
@@ -263,7 +264,7 @@ Public Class frmAnzeige
If connok Then
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
@@ -292,7 +293,7 @@ Public Class frmAnzeige
Try
Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnectionWithoutError()
removeControls()
' MsgBox(hSQL)
'MsgBox(hSQL)
'If IsNothing(conn) Then Exit Sub 'Fehler bei DB-Zugriff - Anzeige nicht aktualisieren
Using cmd As New SqlCommand(hSQL, conn)
' MsgBox(conn.ConnectionString)
@@ -340,7 +341,13 @@ Public Class frmAnzeige
If VarToStr(dr.Item("AvisoTVHinweis")) <> "" Then
hFertig = VarToStr(dr.Item("AvisoTVHinweis"))
ElseIf VarToBool(dr.Item("LKW_fertig")) Then
hFertig = "OK"
Select Case Standort
Case "FRONTOFFICE"
hFertig = "OK > Front-Office"
Case Else
hFertig = "OK"
End Select
End If
If anz <= Max_Zeilen Then
@@ -349,7 +356,7 @@ Public Class frmAnzeige
If StandortATILLA Then
Dim hBuero As String = VarToStr(dr.Item("buero"))
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 = "EXPORT" Then ImEx = "EX"
' MsgBox(ImEx)
@@ -365,6 +372,12 @@ Public Class frmAnzeige
If ImEx = "EX" Then r.Cells("clmnImEx").Style.BackColor = Color.Blue
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
Dim r As DataGridViewRow = gridAnkunft.Rows(gridAnkunft.RowCount - 1)
' 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"
End Select
doimage = Nothing
If doimage IsNot Nothing Then
r.Cells(0).Style.Alignment = DataGridViewContentAlignment.MiddleRight
@@ -612,12 +627,12 @@ Public Class frmAnzeige
End Sub
Sub initSettings()
initZeilen()
picVERAG.Height = lblZeile1.Height
Select Case Standort
Case "ATILLA" : picVERAG.Image = My.Resources.Atilla 'Atilla such su
Case "IMEX" : picVERAG.Image = My.Resources.IMEX_LOGO_simple
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 Else : picVERAG.Image = My.Resources.Verag_AG_Logopng
End Select
@@ -726,7 +741,7 @@ Public Class frmAnzeige
gridAnkunft.Columns("clmnBuero").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
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))
gridAnkunft.Columns("clmnImEx").Width = CInt(IIf(IsNumeric(txtBreite7.Text), txtBreite7.Text, 50))
gridAnkunft.Columns("clmnImEx").DefaultCellStyle.Font = Font7
@@ -742,11 +757,21 @@ Public Class frmAnzeige
gridAnkunft.Columns("clmnArt").Visible = True
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 txtBreite2.Text <> "" Then gridAnkunft.Columns(1).Width = CInt(txtBreite2.Text)
If txtBreite3.Text <> "" Then gridAnkunft.Columns(2).Width = CInt(txtBreite3.Text)
If txtBreite4.Text <> "" Then gridAnkunft.Columns(3).Width = CInt(txtBreite4.Text)
gridAnkunft.Columns(4).AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
If cbxBearbeiter.Checked Then
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)
@@ -839,6 +864,7 @@ Public Class frmAnzeige
If txtBreiteGridLKWOK.Text <> "" Then setProperty("txtBreiteGridLKWOK", txtBreiteGridLKWOK.Text)
setProperty("cbxGridLKWOK", CInt(cbxGridLKWOK.Checked).ToString)
setProperty("cbxBearbeiter", CInt(cbxBearbeiter.Checked).ToString)
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>
<Content Include="Resources\FO.png" />
<Content Include="Resources\VERIMEX.png">
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
</Content>
</ItemGroup>
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
<!-- 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.
InitializeComponent()
Me.Document.Printer.PrinterName = ""
' F<>gen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
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))
InitializeComponent()
Me.Document.Printer.PrinterName = ""
Me.VALUES = VALUES
Me.imgPath = imgPath
Me.ZOLLANMELDUNG = ZOLLANMELDUNG
@@ -216,7 +217,7 @@ Public Class rptSendungen
End Sub
Private Sub rptSendungen_ReportStart(sender As Object, e As EventArgs) Handles MyBase.ReportStart
Me.Document.Printer.PrinterName = ""
End Sub
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.