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

20200108

Browse Source
This commit is contained in:
Andreas Luxbauer
2020-01-08 15:01:48 +01:00
parent c860c222c7
commit e879fb6881
89 changed files with 8692 additions and 3571 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -22,6 +22,7 @@ Partial Class frmAddSendnung
'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(frmAddSendnung))
Me.cboAbfertigungsart = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Label1 = New System.Windows.Forms.Label()
@@ -34,6 +35,17 @@ Partial Class frmAddSendnung
Me.Label23 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.btn = New System.Windows.Forms.Button()
Me.Label3 = New System.Windows.Forms.Label()
Me.txtAbsender = New VERAG_PROG_ALLGEMEIN.KdSearchBox()
Me.ToolTip = New System.Windows.Forms.ToolTip(Me.components)
Me.FlatButton4 = New VERAG_PROG_ALLGEMEIN.FlatButton()
Me.FlatButton1 = New VERAG_PROG_ALLGEMEIN.FlatButton()
Me.picWarnAbsender = New System.Windows.Forms.PictureBox()
Me.picWarnEmpfaenger = New System.Windows.Forms.PictureBox()
Me.RichTextBox1 = New System.Windows.Forms.RichTextBox()
Me.Label4 = New System.Windows.Forms.Label()
CType(Me.picWarnAbsender, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.picWarnEmpfaenger, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'cboAbfertigungsart
@@ -46,7 +58,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(359, 24)
Me.cboAbfertigungsart.Size = New System.Drawing.Size(335, 24)
Me.cboAbfertigungsart.TabIndex = 1
'
'Label1
@@ -70,26 +82,26 @@ Partial Class frmAddSendnung
Me.txtEmpfaenger._displayWoelflKd = False
Me.txtEmpfaenger._hideIfListEmpty = True
Me.txtEmpfaenger._loadKdData = True
Me.txtEmpfaenger._ValueKdAndName = False
Me.txtEmpfaenger._ValueKdAndName = True
Me.txtEmpfaenger.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper
Me.txtEmpfaenger.dgvpos = "LEFT"
Me.txtEmpfaenger.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
Me.txtEmpfaenger.KdName = Nothing
Me.txtEmpfaenger.KdName = ""
Me.txtEmpfaenger.KdNr = "-1"
Me.txtEmpfaenger.kdNrField = Nothing
Me.txtEmpfaenger.KdNrNullInt = Nothing
Me.txtEmpfaenger.Location = New System.Drawing.Point(12, 84)
Me.txtEmpfaenger.Location = New System.Drawing.Point(12, 131)
Me.txtEmpfaenger.Name = "txtEmpfaenger"
Me.txtEmpfaenger.nurAktive = True
Me.txtEmpfaenger.searchActive = True
Me.txtEmpfaenger.Size = New System.Drawing.Size(359, 23)
Me.txtEmpfaenger.TabIndex = 3
Me.txtEmpfaenger.Size = New System.Drawing.Size(315, 23)
Me.txtEmpfaenger.TabIndex = 5
Me.txtEmpfaenger.usrcntl = Nothing
'
'txtGewicht
'
Me.txtGewicht._DateTimeOnly = False
Me.txtGewicht._numbersOnly = False
Me.txtGewicht._numbersOnly = True
Me.txtGewicht._numbersOnlyKommastellen = ""
Me.txtGewicht._Prozent = False
Me.txtGewicht._ShortDateNew = False
@@ -99,31 +111,31 @@ Partial Class frmAddSendnung
Me.txtGewicht._Waehrung = False
Me.txtGewicht._WaehrungZeichen = True
Me.txtGewicht.ForeColor = System.Drawing.Color.Black
Me.txtGewicht.Location = New System.Drawing.Point(152, 165)
Me.txtGewicht.Location = New System.Drawing.Point(152, 212)
Me.txtGewicht.MaxLineLength = -1
Me.txtGewicht.MaxLines_Warning = ""
Me.txtGewicht.MaxLines_Warning_Label = Nothing
Me.txtGewicht.Name = "txtGewicht"
Me.txtGewicht.Size = New System.Drawing.Size(60, 20)
Me.txtGewicht.TabIndex = 9
Me.txtGewicht.TabIndex = 11
Me.txtGewicht.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
'
'Label19
'
Me.Label19.AutoSize = True
Me.Label19.Location = New System.Drawing.Point(9, 117)
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 = 4
Me.Label19.TabIndex = 6
Me.Label19.Text = "Warenbezeichnung"
'
'Label17
'
Me.Label17.AutoSize = True
Me.Label17.Location = New System.Drawing.Point(10, 168)
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 = 6
Me.Label17.TabIndex = 8
Me.Label17.Text = "Colli/Gewicht:"
'
'txtColli
@@ -139,62 +151,177 @@ Partial Class frmAddSendnung
Me.txtColli._Waehrung = False
Me.txtColli._WaehrungZeichen = True
Me.txtColli.ForeColor = System.Drawing.Color.Black
Me.txtColli.Location = New System.Drawing.Point(84, 165)
Me.txtColli.Location = New System.Drawing.Point(84, 212)
Me.txtColli.MaxLineLength = -1
Me.txtColli.MaxLines_Warning = ""
Me.txtColli.MaxLines_Warning_Label = Nothing
Me.txtColli.Name = "txtColli"
Me.txtColli.Size = New System.Drawing.Size(46, 20)
Me.txtColli.TabIndex = 7
Me.txtColli.TabIndex = 9
Me.txtColli.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
'
'rtbWarenbezeichnung
'
Me.rtbWarenbezeichnung.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.rtbWarenbezeichnung.Cursor = System.Windows.Forms.Cursors.IBeam
Me.rtbWarenbezeichnung.Location = New System.Drawing.Point(12, 133)
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 = 5
Me.rtbWarenbezeichnung.TabIndex = 7
Me.rtbWarenbezeichnung.Text = ""
'
'Label23
'
Me.Label23.AutoSize = True
Me.Label23.Location = New System.Drawing.Point(129, 168)
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 = 8
Me.Label23.TabIndex = 10
Me.Label23.Text = "Pk."
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
Me.Label2.Location = New System.Drawing.Point(10, 64)
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 = 2
Me.Label2.TabIndex = 4
Me.Label2.Text = "Empfänger:"
'
'btn
'
Me.btn.DialogResult = System.Windows.Forms.DialogResult.OK
Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn.Location = New System.Drawing.Point(12, 197)
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 = 10
Me.btn.TabIndex = 12
Me.btn.Text = "OK"
Me.btn.UseVisualStyleBackColor = True
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
Me.Label3.Location = New System.Drawing.Point(10, 65)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(73, 17)
Me.Label3.TabIndex = 2
Me.Label3.Text = "Absender:"
'
'txtAbsender
'
Me.txtAbsender._AllowSetValue = True
Me.txtAbsender._autoSizeGross = True
Me.txtAbsender._display_Name1 = False
Me.txtAbsender._displayAVISO_Email = False
Me.txtAbsender._displayFullName = False
Me.txtAbsender._displayWoelflKd = False
Me.txtAbsender._hideIfListEmpty = True
Me.txtAbsender._loadKdData = True
Me.txtAbsender._ValueKdAndName = True
Me.txtAbsender.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper
Me.txtAbsender.dgvpos = "LEFT"
Me.txtAbsender.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
Me.txtAbsender.KdName = ""
Me.txtAbsender.KdNr = "-1"
Me.txtAbsender.kdNrField = Nothing
Me.txtAbsender.KdNrNullInt = Nothing
Me.txtAbsender.Location = New System.Drawing.Point(12, 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.usrcntl = Nothing
'
'FlatButton4
'
Me.FlatButton4.allowBorder = False
Me.FlatButton4.BackgroundImage = CType(resources.GetObject("FlatButton4.BackgroundImage"), System.Drawing.Image)
Me.FlatButton4.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
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.Name = "FlatButton4"
Me.FlatButton4.Size = New System.Drawing.Size(25, 25)
Me.FlatButton4.TabIndex = 89
Me.FlatButton4.TabStop = False
Me.FlatButton4.UseVisualStyleBackColor = True
'
'FlatButton1
'
Me.FlatButton1.allowBorder = False
Me.FlatButton1.BackgroundImage = CType(resources.GetObject("FlatButton1.BackgroundImage"), System.Drawing.Image)
Me.FlatButton1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
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.Name = "FlatButton1"
Me.FlatButton1.Size = New System.Drawing.Size(25, 25)
Me.FlatButton1.TabIndex = 88
Me.FlatButton1.TabStop = False
Me.FlatButton1.UseVisualStyleBackColor = True
'
'picWarnAbsender
'
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.Name = "picWarnAbsender"
Me.picWarnAbsender.Size = New System.Drawing.Size(20, 23)
Me.picWarnAbsender.TabIndex = 86
Me.picWarnAbsender.TabStop = False
Me.picWarnAbsender.Visible = False
'
'picWarnEmpfaenger
'
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.Name = "picWarnEmpfaenger"
Me.picWarnEmpfaenger.Size = New System.Drawing.Size(20, 23)
Me.picWarnEmpfaenger.TabIndex = 87
Me.picWarnEmpfaenger.TabStop = False
Me.picWarnEmpfaenger.Visible = False
'
'RichTextBox1
'
Me.RichTextBox1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.RichTextBox1.Cursor = System.Windows.Forms.Cursors.IBeam
Me.RichTextBox1.Location = New System.Drawing.Point(12, 327)
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.Text = ""
'
'Label4
'
Me.Label4.AutoSize = True
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.Text = "Besonderheiten (aktives Kundenfeld):"
'
'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, 261)
Me.ClientSize = New System.Drawing.Size(389, 441)
Me.Controls.Add(Me.Label4)
Me.Controls.Add(Me.RichTextBox1)
Me.Controls.Add(Me.picWarnEmpfaenger)
Me.Controls.Add(Me.picWarnAbsender)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.txtAbsender)
Me.Controls.Add(Me.btn)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.txtGewicht)
@@ -206,10 +333,14 @@ Partial Class frmAddSendnung
Me.Controls.Add(Me.txtEmpfaenger)
Me.Controls.Add(Me.cboAbfertigungsart)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.FlatButton1)
Me.Controls.Add(Me.FlatButton4)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "frmAddSendnung"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Sendnung hinzufügen"
CType(Me.picWarnAbsender, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.picWarnEmpfaenger, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
@@ -226,4 +357,13 @@ Partial Class frmAddSendnung
Friend WithEvents Label23 As Label
Friend WithEvents Label2 As Label
Friend WithEvents btn As Button
Friend WithEvents Label3 As Label
Friend WithEvents txtAbsender As VERAG_PROG_ALLGEMEIN.KdSearchBox
Friend WithEvents ToolTip As ToolTip
Friend WithEvents FlatButton4 As VERAG_PROG_ALLGEMEIN.FlatButton
Friend WithEvents FlatButton1 As VERAG_PROG_ALLGEMEIN.FlatButton
Friend WithEvents picWarnAbsender As PictureBox
Friend WithEvents picWarnEmpfaenger As PictureBox
Friend WithEvents RichTextBox1 As RichTextBox
Friend WithEvents Label4 As Label
End Class

35
Aviso/Anhänge/frmAddSendnung.resx
View File

@@ -117,7 +117,42 @@
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="ToolTip.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="FlatButton4.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
/9j/4AAQSkZJRgABAQEAAAAAAAD/7gAOQWRvYmUAZAAAAAAB/9sAQwABAQEBAQEBAQEBAQEBAQEBAQEB
AQECAQEBAQECAgICAgICAgICAgIDAgICAwMDAwMDBQUFBQUFBQUFBQUFBQUF/9sAQwEBAQECAQIDAgID
BAQDBAQFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUF/8AAEQgA
GQAZAwERAAIRAQMRAf/EABgAAAMBAQAAAAAAAAAAAAAAAAAICQcK/8QAKRAAAQUAAgIABAcBAAAAAAAA
AQIDBAUGAAcRITESIxVBYSIyEzMIFv/EABQBAQAAAAAAAAAAAAAAAAAAAAD/xAAUEQEAAAAAAAAAAAAA
AAAAAAAA/9oADAMBAAIRAxEAPwDsSKq/7Vudfqtf2Ky3W77t1EhyJ2zp6WBFraLTW8SKwzFh3EeKwhmM
w202htsDwB64CSWH+lrc3ilVadknOB9Pyx5/c+5cunIwP6vrN6dDCVKHw+kQPz4DTyLim0vTGs7ByGt7
VhTIWM1NlDU73LrX3qq7qoLzqUqQ5dracLLyQfCklJ/EEHxwKNcCflzQva7Adn5eM8iPKtd/3dGjOrHl
CX/+uu1oCvY9FQAPASxnqXraJBDWh1mqq9RFZSzZZtvKOy5ItAAC0w4glhxLi/61FYBHs+OAxOYzVhjv
8072rtGHIkiXkewbJuHJAEuJGnQZBabeAJSFhAHzAHgVN4Eiu2d5aQqnXZPF6TM12hk9sdyt3a5uzqc/
ZU0FWpt3EJ+SbMjvIVJS6FIUgeQkefXkHgLI1adyMwzAa7QpUxShaP4h3HSftc+Pv7r54GoZDeaeu697
KyW71mPsIEnA6z7BMPYFReXTtvJirbbhIRHnPvuh4LUUeR6ICR8QOBcDgHAOAcA4H//Z
</value>
</data>
<data name="FlatButton1.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
/9j/4AAQSkZJRgABAQEAAAAAAAD/7gAOQWRvYmUAZAAAAAAB/9sAQwABAQEBAQEBAQEBAQEBAQEBAQEB
AQECAQEBAQECAgICAgICAgICAgIDAgICAwMDAwMDBQUFBQUFBQUFBQUFBQUF/9sAQwEBAQECAQIDAgID
BAQDBAQFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUF/8AAEQgA
GQAZAwERAAIRAQMRAf/EABgAAAMBAQAAAAAAAAAAAAAAAAAICQcK/8QAKRAAAQUAAgIABAcBAAAAAAAA
AQIDBAUGAAcRITESIxVBYSIyEzMIFv/EABQBAQAAAAAAAAAAAAAAAAAAAAD/xAAUEQEAAAAAAAAAAAAA
AAAAAAAA/9oADAMBAAIRAxEAPwDsSKq/7Vudfqtf2Ky3W77t1EhyJ2zp6WBFraLTW8SKwzFh3EeKwhmM
w202htsDwB64CSWH+lrc3ilVadknOB9Pyx5/c+5cunIwP6vrN6dDCVKHw+kQPz4DTyLim0vTGs7ByGt7
VhTIWM1NlDU73LrX3qq7qoLzqUqQ5dracLLyQfCklJ/EEHxwKNcCflzQva7Adn5eM8iPKtd/3dGjOrHl
CX/+uu1oCvY9FQAPASxnqXraJBDWh1mqq9RFZSzZZtvKOy5ItAAC0w4glhxLi/61FYBHs+OAxOYzVhjv
8072rtGHIkiXkewbJuHJAEuJGnQZBabeAJSFhAHzAHgVN4Eiu2d5aQqnXZPF6TM12hk9sdyt3a5uzqc/
ZU0FWpt3EJ+SbMjvIVJS6FIUgeQkefXkHgLI1adyMwzAa7QpUxShaP4h3HSftc+Pv7r54GoZDeaeu697
KyW71mPsIEnA6z7BMPYFReXTtvJirbbhIRHnPvuh4LUUeR6ICR8QOBcDgHAOAcA4H//Z
</value>
</data>
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAABAAEAgIAAAAEAIAAoCAEAFgAAACgAAACAAAAAAAEAAAEAIAAAAAAAAAgBABMLAAATCwAAAAAAAAAA

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

@@ -1,8 +1,9 @@
Public Class frmAddSendnung
Public Sendung As VERAG_PROG_ALLGEMEIN.cSendungen
Public Sendung As VERAG_PROG_ALLGEMEIN.cSendungen = Nothing
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Dim AvisoId As Integer
Dim AVISOFUNC As New AvisoStatusFunctions
Public SendungsId As Integer = -1
Sub New(AvisoId)
@@ -11,21 +12,74 @@
Me.AvisoId = AvisoId
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Sub New(AvisoId, SENDUNG)
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
Me.AvisoId = AvisoId
Me.Sendung = SENDUNG
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Private Sub frmAddSendnung_Load(sender As Object, e As EventArgs) Handles Me.Load
cboAbfertigungsart.fillWithSQL("SELECT [Abfertigungsart],[Abfertigungsbezeichnung] FROM [Abfertigungsarten] ", True, "FMZOLL", True)
txtEmpfaenger.initKdBox(Me)
txtEmpfaenger.usrcntlWIDTH = 360
txtEmpfaenger.usrcntlHEIGHT = 100
txtAbsender.initKdBox(Me)
txtAbsender.usrcntlWIDTH = 360
txtAbsender.usrcntlHEIGHT = 100
AddHandler txtEmpfaenger.PropertyChanged, Sub()
FlatButton4.BackgroundImage = IIf(txtEmpfaenger.KdNr > 0, My.Resources.person, My.Resources.personInaktiv)
initWarnKd(txtEmpfaenger, picWarnEmpfaenger)
initBesKd(txtEmpfaenger)
End Sub
AddHandler txtAbsender.PropertyChanged, Sub()
FlatButton1.BackgroundImage = IIf(txtAbsender.KdNr > 0, My.Resources.person, My.Resources.personInaktiv)
initWarnKd(txtAbsender, picWarnAbsender)
initBesKd(txtAbsender)
End Sub
If Sendung IsNot Nothing Then
cboAbfertigungsart.changeItem(Sendung.tblSnd_Abfertigungsart_ID)
If Sendung.tblSnd_EmpfaengerKdNr > 0 Then
txtEmpfaenger.KdNr = Sendung.tblSnd_EmpfaengerKdNr
Else
txtEmpfaenger.Text = Sendung.tblSnd_Empfaenger
End If
If Sendung.tblSnd_AbsenderKdNr > 0 Then
txtAbsender.KdNr = Sendung.tblSnd_AbsenderKdNr
Else
txtAbsender.Text = Sendung.tblSnd_Absender
End If
txtColli.Text = If(Sendung.tblSnd_Colli, "")
txtGewicht.Text = If(Sendung.tblSnd_Gewicht, "")
rtbWarenbezeichnung.Text = If(Sendung.tblSnd_Warenbezeichnung, "")
End If
End Sub
Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
Try
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)
End If
Sendung.tblSnd_Abfertigungsart_ID = If(cboAbfertigungsart._value <> "", cboAbfertigungsart._value, -1)
Sendung.tblSnd_Empfaenger = txtEmpfaenger.Text
Sendung.tblSnd_EmpfaengerKdNr = txtEmpfaenger.KdNr
Sendung.tblSnd_Absender = txtAbsender.Text
Sendung.tblSnd_AbsenderKdNr = txtAbsender.KdNr
Sendung.tblSnd_Colli = txtColli.Text
Sendung.tblSnd_Gewicht = txtGewicht.Text
Sendung.tblSnd_Warenbezeichnung = rtbWarenbezeichnung.Text
@@ -43,4 +97,92 @@
End Sub
Private Sub txtEmpfaenger_PropertyChanged(sender As Object, e As EventArgs) Handles txtEmpfaenger.PropertyChanged
initWarnKd(txtEmpfaenger, picWarnEmpfaenger)
End Sub
Private Sub txtEmpfaenger_TextChanged_1(sender As Object, e As EventArgs) Handles txtEmpfaenger.TextChanged
picWarnEmpfaenger.Visible = False
'initBesKd(Nothing)
End Sub
Private Sub txtAbsender_TextChanged(sender As Object, e As EventArgs) Handles txtAbsender.TextChanged
picWarnAbsender.Visible = False
' initBesKd(Nothing)
End Sub
Private Sub txtAbsender_PropertyChanged(sender As Object, e As EventArgs) Handles txtAbsender.PropertyChanged
initWarnKd(txtAbsender, picWarnAbsender)
End Sub
Sub initWarnKd(kdSearch As VERAG_PROG_ALLGEMEIN.KdSearchBox, pic As PictureBox)
Try
pic.Visible = False
ToolTip.SetToolTip(pic, "")
Dim InfoText = ""
If kdSearch.KdData_ADRESSEN IsNot Nothing Then
If kdSearch.KdData_ADRESSEN.Auswahl = "I" Then
InfoText &= "KUNDE INAKTIV!" & vbNewLine & vbNewLine
End If
End If
If kdSearch.KdData_KUNDE IsNot Nothing Then
If kdSearch.KdData_KUNDE.Abfertigungsverbot Then
pic.Visible = True
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "VERAG" : InfoText &= "ACHTUNG!" & vbNewLine
Case Else
InfoText &= "ABFERTIGUNGSVERBOT!" & vbNewLine
End Select
If If(kdSearch.KdData_KUNDE.Abfertigungsverbot_Grund, "") <> "" Then InfoText &= kdSearch.KdData_KUNDE.Abfertigungsverbot_Grund & vbNewLine
End If
End If
ToolTip.SetToolTip(pic, InfoText.Trim)
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
End Try
End Sub
Sub initBesKd(kdSearch As VERAG_PROG_ALLGEMEIN.KdSearchBox)
If kdSearch Is Nothing Then
RichTextBox1.Text = ""
Else
If kdSearch.KdData_KUNDE IsNot Nothing Then
RichTextBox1.Text = If(kdSearch.KdData_KUNDE.Besonderheiten, "")
End If
End If
End Sub
Private Sub FlatButton4_Click(sender As Object, e As EventArgs) Handles FlatButton4.Click
If txtEmpfaenger.KdNr > 0 Then
Me.Cursor = Cursors.WaitCursor
AVISOFUNC.showKd(txtEmpfaenger.KdNr)
Me.Cursor = Cursors.Default
End If
End Sub
Private Sub FlatButton1_Click(sender As Object, e As EventArgs) Handles FlatButton1.Click
If txtAbsender.KdNr > 0 Then
Me.Cursor = Cursors.WaitCursor
AVISOFUNC.showKd(txtAbsender.KdNr)
Me.Cursor = Cursors.Default
End If
End Sub
Private Sub txtAbsender_GotFocus(sender As Object, e As EventArgs) Handles txtAbsender.GotFocus, txtEmpfaenger.GotFocus
initBesKd(sender)
End Sub
Private Sub txtAbsender_lostFocus(sender As Object, e As EventArgs) Handles txtAbsender.LostFocus, txtEmpfaenger.LostFocus
initBesKd(Nothing)
End Sub
Private Sub txtGewicht_TextChanged(sender As Object, e As EventArgs) Handles txtGewicht.TextChanged
End Sub
Private Sub txtGewicht_Leave(sender As Object, e As EventArgs) Handles txtGewicht.TextChanged
txtGewicht.Text = txtGewicht.Text.Replace(" ", "")
End Sub
End Class

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

@@ -58,10 +58,18 @@ Partial Class frmSendungAnhangImport
Me.PdfViewer = New Spire.PdfViewer.Forms.PdfViewer()
Me.WebBrowser = New System.Windows.Forms.WebBrowser()
Me.Button3 = New System.Windows.Forms.Button()
Me.Button4 = New System.Windows.Forms.Button()
Me.btnSndDel = New System.Windows.Forms.Button()
Me.PrintDocument1 = New System.Drawing.Printing.PrintDocument()
Me.btnAddSnd = New System.Windows.Forms.Button()
Me.cboSendungen = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.lblSendungsdetails = New System.Windows.Forms.Label()
Me.lblWarenbeichnung = New System.Windows.Forms.Label()
Me.btnSndEdit = New System.Windows.Forms.Button()
Me.lblAbsender = New System.Windows.Forms.Label()
Me.lblEmpfaenger = New System.Windows.Forms.Label()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.Button17 = New System.Windows.Forms.Button()
Me.cbxAlternativePDFAnsicht = New System.Windows.Forms.CheckBox()
Me.flpnlAviso.SuspendLayout()
Me.pnlAnfuegen.SuspendLayout()
Me.cntxt.SuspendLayout()
@@ -128,9 +136,9 @@ Partial Class frmSendungAnhangImport
Me.flpnlSendungen.AutoScroll = True
Me.flpnlSendungen.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.flpnlSendungen.FlowDirection = System.Windows.Forms.FlowDirection.TopDown
Me.flpnlSendungen.Location = New System.Drawing.Point(1073, 62)
Me.flpnlSendungen.Location = New System.Drawing.Point(1073, 150)
Me.flpnlSendungen.Name = "flpnlSendungen"
Me.flpnlSendungen.Size = New System.Drawing.Size(230, 731)
Me.flpnlSendungen.Size = New System.Drawing.Size(230, 643)
Me.flpnlSendungen.TabIndex = 10
'
'Label2
@@ -158,6 +166,7 @@ Partial Class frmSendungAnhangImport
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.pnlAnfuegen.BackColor = System.Drawing.Color.FloralWhite
Me.pnlAnfuegen.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.pnlAnfuegen.Controls.Add(Me.cbxAlternativePDFAnsicht)
Me.pnlAnfuegen.Controls.Add(Me.Button1)
Me.pnlAnfuegen.Controls.Add(Me.txtBezeichnung)
Me.pnlAnfuegen.Controls.Add(Me.Label1)
@@ -182,9 +191,9 @@ Partial Class frmSendungAnhangImport
'
Me.Button1.BackColor = System.Drawing.Color.Wheat
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button1.Location = New System.Drawing.Point(523, 133)
Me.Button1.Location = New System.Drawing.Point(748, 132)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(277, 28)
Me.Button1.Size = New System.Drawing.Size(52, 28)
Me.Button1.TabIndex = 14
Me.Button1.Text = "Hardcore test"
Me.Button1.UseVisualStyleBackColor = False
@@ -320,6 +329,8 @@ Partial Class frmSendungAnhangImport
Me.cboArt._allowedValuesFreiText = Nothing
Me.cboArt._allowFreiText = False
Me.cboArt._value = ""
Me.cboArt.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend
Me.cboArt.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems
Me.cboArt.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cboArt.FormattingEnabled = True
Me.cboArt.Location = New System.Drawing.Point(68, 75)
@@ -489,26 +500,27 @@ Partial Class frmSendungAnhangImport
Me.Button3.Text = "<< zurück <<"
Me.Button3.UseVisualStyleBackColor = False
'
'Button4
'btnSndDel
'
Me.Button4.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button4.Location = New System.Drawing.Point(1240, 2)
Me.Button4.Name = "Button4"
Me.Button4.Size = New System.Drawing.Size(63, 25)
Me.Button4.TabIndex = 2
Me.Button4.Text = "Löschen"
Me.Button4.UseVisualStyleBackColor = True
Me.btnSndDel.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnSndDel.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnSndDel.Image = Global.AVISO.My.Resources.Resources.del1
Me.btnSndDel.Location = New System.Drawing.Point(1271, 2)
Me.btnSndDel.Name = "btnSndDel"
Me.btnSndDel.Size = New System.Drawing.Size(32, 25)
Me.btnSndDel.TabIndex = 2
Me.btnSndDel.UseVisualStyleBackColor = True
'
'btnAddSnd
'
Me.btnAddSnd.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnAddSnd.ContextMenuStrip = Me.cntxt
Me.btnAddSnd.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnAddSnd.Location = New System.Drawing.Point(1159, 2)
Me.btnAddSnd.Location = New System.Drawing.Point(1141, 2)
Me.btnAddSnd.Name = "btnAddSnd"
Me.btnAddSnd.Size = New System.Drawing.Size(75, 25)
Me.btnAddSnd.Size = New System.Drawing.Size(58, 25)
Me.btnAddSnd.TabIndex = 1
Me.btnAddSnd.Text = "+ Sendung"
Me.btnAddSnd.Text = "+ NEU"
Me.btnAddSnd.UseVisualStyleBackColor = True
'
'cboSendungen
@@ -525,14 +537,107 @@ Partial Class frmSendungAnhangImport
Me.cboSendungen.Size = New System.Drawing.Size(230, 28)
Me.cboSendungen.TabIndex = 9
'
'lblSendungsdetails
'
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.Name = "lblSendungsdetails"
Me.lblSendungsdetails.Size = New System.Drawing.Size(223, 17)
Me.lblSendungsdetails.TabIndex = 13
Me.lblSendungsdetails.Text = "-"
'
'lblWarenbeichnung
'
Me.lblWarenbeichnung.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblWarenbeichnung.Location = New System.Drawing.Point(1077, 116)
Me.lblWarenbeichnung.Name = "lblWarenbeichnung"
Me.lblWarenbeichnung.Size = New System.Drawing.Size(223, 31)
Me.lblWarenbeichnung.TabIndex = 14
Me.lblWarenbeichnung.Text = "-"
'
'btnSndEdit
'
Me.btnSndEdit.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnSndEdit.ContextMenuStrip = Me.cntxt
Me.btnSndEdit.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnSndEdit.Image = Global.AVISO.My.Resources.Resources.stift1
Me.btnSndEdit.Location = New System.Drawing.Point(1205, 3)
Me.btnSndEdit.Name = "btnSndEdit"
Me.btnSndEdit.Size = New System.Drawing.Size(29, 25)
Me.btnSndEdit.TabIndex = 15
Me.btnSndEdit.UseVisualStyleBackColor = True
'
'lblAbsender
'
Me.lblAbsender.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblAbsender.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblAbsender.Location = New System.Drawing.Point(1077, 67)
Me.lblAbsender.Name = "lblAbsender"
Me.lblAbsender.Size = New System.Drawing.Size(223, 15)
Me.lblAbsender.TabIndex = 16
Me.lblAbsender.Text = "-"
'
'lblEmpfaenger
'
Me.lblEmpfaenger.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblEmpfaenger.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblEmpfaenger.Location = New System.Drawing.Point(1077, 82)
Me.lblEmpfaenger.Name = "lblEmpfaenger"
Me.lblEmpfaenger.Size = New System.Drawing.Size(223, 17)
Me.lblEmpfaenger.TabIndex = 17
Me.lblEmpfaenger.Text = "-"
'
'Panel1
'
Me.Panel1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Panel1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Panel1.Location = New System.Drawing.Point(1073, 98)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(230, 1)
Me.Panel1.TabIndex = 18
'
'Button17
'
Me.Button17.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Button17.BackgroundImage = Global.AVISO.My.Resources.Resources.vermerk
Me.Button17.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.Button17.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button17.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.Button17.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button17.Location = New System.Drawing.Point(1240, 2)
Me.Button17.Name = "Button17"
Me.Button17.Padding = New System.Windows.Forms.Padding(0, 0, 10, 0)
Me.Button17.Size = New System.Drawing.Size(25, 26)
Me.Button17.TabIndex = 6
Me.Button17.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button17.UseVisualStyleBackColor = True
'
'cbxAlternativePDFAnsicht
'
Me.cbxAlternativePDFAnsicht.AutoSize = True
Me.cbxAlternativePDFAnsicht.Location = New System.Drawing.Point(527, 139)
Me.cbxAlternativePDFAnsicht.Name = "cbxAlternativePDFAnsicht"
Me.cbxAlternativePDFAnsicht.Size = New System.Drawing.Size(138, 17)
Me.cbxAlternativePDFAnsicht.TabIndex = 15
Me.cbxAlternativePDFAnsicht.Text = "Alternative PDF-Ansicht"
Me.cbxAlternativePDFAnsicht.UseVisualStyleBackColor = True
'
'frmSendungAnhangImport
'
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(1309, 860)
Me.Controls.Add(Me.Button17)
Me.Controls.Add(Me.flpnlSendungen)
Me.Controls.Add(Me.Panel1)
Me.Controls.Add(Me.lblAbsender)
Me.Controls.Add(Me.btnSndEdit)
Me.Controls.Add(Me.lblWarenbeichnung)
Me.Controls.Add(Me.lblSendungsdetails)
Me.Controls.Add(Me.btnAddSnd)
Me.Controls.Add(Me.Button4)
Me.Controls.Add(Me.btnSndDel)
Me.Controls.Add(Me.Button3)
Me.Controls.Add(Me.cboSendungen)
Me.Controls.Add(Me.Button2)
@@ -540,10 +645,10 @@ Partial Class frmSendungAnhangImport
Me.Controls.Add(Me.pnlAnfuegen)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.flpnlSendungen)
Me.Controls.Add(Me.flpnlAviso)
Me.Controls.Add(Me.lbl)
Me.Controls.Add(Me.pnl)
Me.Controls.Add(Me.lblEmpfaenger)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.KeyPreview = True
Me.Name = "frmSendungAnhangImport"
@@ -586,7 +691,7 @@ Partial Class frmSendungAnhangImport
Friend WithEvents cntxt As ContextMenuStrip
Friend WithEvents DateiScannenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents DateiHochladenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents Button4 As Button
Friend WithEvents btnSndDel As Button
Friend WithEvents PrintDocument1 As Printing.PrintDocument
Friend WithEvents PdfViewer As Spire.PdfViewer.Forms.PdfViewer
Friend WithEvents WebBrowser As WebBrowser
@@ -597,4 +702,12 @@ Partial Class frmSendungAnhangImport
Friend WithEvents txtBezeichnung As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label1 As Label
Friend WithEvents Button1 As Button
Friend WithEvents lblSendungsdetails As Label
Friend WithEvents lblWarenbeichnung As Label
Friend WithEvents btnSndEdit As Button
Friend WithEvents lblAbsender As Label
Friend WithEvents lblEmpfaenger As Label
Friend WithEvents Panel1 As Panel
Friend WithEvents Button17 As Button
Friend WithEvents cbxAlternativePDFAnsicht As CheckBox
End Class

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

@@ -81,14 +81,21 @@ Public Class frmSendungAnhangImport
PdfViewer.CloseDocument()
WebBrowser.Navigate("")
If typ = "PDF" Then
If cbxAlternativePDFAnsicht.Checked Then
PdfViewer.Visible = False
WebBrowser.Visible = (loc <> "")
WebBrowser.Navigate(loc)
Else
WebBrowser.Visible = False
PdfViewer.Visible = (loc <> "")
PdfViewer.LoadFromFile(loc)
End If
ElseIf typ = "BILD" Then
PdfViewer.Visible = False
WebBrowser.Visible = (loc <> "")
WebBrowser.Navigate(loc)
End If
Button5.Visible = PdfViewer.Visible
End Sub
Function getAcitvePnl() As FlowLayoutPanel
@@ -141,10 +148,10 @@ Public Class frmSendungAnhangImport
Dim SendngsId As Integer = cboSendungen._value
Dim TMP_Path_Old = u.FILE_PATH
Dim TMP_Path_New = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath(u.FILE_NAME, fi.Extension,, True, "SendungsAnhaenge")
If Not extractPagesFromPdf_Spire(u.FILE_PATH, TMP_Path_New, getPagesFromText()) Then Exit Sub
'If Not extractPagesFromPdf_Spire(u.FILE_PATH, TMP_Path_New, getPagesFromText()) Then Exit Sub
If Not ExtractPdfPages_NEW(u.FILE_PATH, TMP_Path_New, getPagesFromText()) Then Exit Sub
'Hochladen in den Datenserver und anfügen in die Tbl Anhänge mit der SendungsId
saveToDS(AvisoId, getPDFSplitName(u.FILE_NAME), TMP_Path_New, cboArt._value, u.FILE_TYPE,,,, SendngsId)
'-------------
@@ -156,7 +163,8 @@ Public Class frmSendungAnhangImport
If cbxDelPDF.Checked Then
TMP_Path_New = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath(u.FILE_NAME, fi.Extension,, True, "SendungsAnhaenge")
Dim PagesLeft = 0
If removePagesFromPdf_Spire(u.FILE_PATH, TMP_Path_New, getPagesFromText(), PagesLeft, False) Then
' If removePagesFromPdf_Spire(u.FILE_PATH, TMP_Path_New, getPagesFromText(), PagesLeft, False) Then
If removePagesFromPdf_NEW(u.FILE_PATH, TMP_Path_New, getPagesFromText(), PagesLeft, False) Then
If PagesLeft = 0 Then
'delFromDS(u.FILE_DOCID)
deleteElement(u.FILE_DOCID, u.FILE_ANHID, False)
@@ -213,7 +221,7 @@ Public Class frmSendungAnhangImport
End If
Next
Catch ex As Exception
MsgBox(ex.Message)
MsgBox(ex.Message & ex.StackTrace)
End Try
Return False
End Function
@@ -232,7 +240,7 @@ Public Class frmSendungAnhangImport
End If
Next
Catch ex As Exception
MsgBox(ex.Message)
MsgBox(ex.Message & ex.StackTrace)
End Try
Return False
End Function
@@ -556,6 +564,34 @@ Public Class frmSendungAnhangImport
Return True
End Function
Public Function ExtractPdfPages_NEW(ByVal SourceFile As String, ByVal TargetFile As String, pagesToExtract As List(Of Integer)) As Boolean
Try
Dim impPage As iTextSharp.text.pdf.PdfImportedPage = Nothing
Dim Reader As New iTextSharp.text.pdf.PdfReader(SourceFile)
If Not TargetFile.ToLower.EndsWith(".pdf") Then TargetFile = TargetFile & ".pdf"
Dim srcDoc As New iTextSharp.text.Document() 'Reader.GetPageSizeWithRotation(0))
Dim PdfCopyProvider As New iTextSharp.text.pdf.PdfCopy(srcDoc, New System.IO.FileStream(TargetFile, System.IO.FileMode.Create))
PdfCopyProvider.SetFullCompression()
srcDoc.Open()
For Each p In pagesToExtract
If p > Reader.NumberOfPages Then MsgBox("Seitenanzahl überschritten!") : Return False
impPage = PdfCopyProvider.GetImportedPage(Reader, p)
' ----- Ermitteln der Seitenauflösung und setzen für die neue Seite
PdfCopyProvider.SetPageSize(New iTextSharp.text.Rectangle(0.0F, 0.0F, impPage.Width, impPage.Height, Reader.GetPageRotation(p)))
' ----- PDF Seite in das neue Dokument einfügen
PdfCopyProvider.AddPage(impPage)
Next
' ----- neues PDF Dokument und den Reader schließen
srcDoc.Close()
Reader.Close()
Return True
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
End Try
Return False
End Function
'Public Function ExtractPdfPages(ByVal SourceFile As String, ByVal TargetFile As String, ByVal IntStr As Integer, ByVal IntEnd As Integer)
' Try
' Dim impPage As iTextSharp.text.pdf.PdfImportedPage = Nothing
@@ -582,6 +618,58 @@ Public Class frmSendungAnhangImport
'End Function
Public Function removePagesFromPdf_NEW(ByVal sourceFile As String, ByVal destinationFile As String, pagesToDelete As List(Of Integer), ByRef PagesLeft As Integer, delSource As Boolean) As Boolean
Try
PagesLeft = 0
Dim r As iTextSharp.text.pdf.PdfReader = New iTextSharp.text.pdf.PdfReader(sourceFile)
Dim pagesToKeep As New List(Of Integer)
For p = 1 To r.NumberOfPages
Dim del = False
For Each i In pagesToDelete
If p = i Then
del = True : Exit For
End If
Next
If Not del Then
pagesToKeep.Add(p)
End If
Next
If pagesToKeep.Count > 0 Then
PagesLeft = r.NumberOfPages - pagesToKeep.Count
If ExtractPdfPages_NEW(sourceFile, destinationFile, pagesToKeep) Then
If delSource Then tryDelete(sourceFile)
End If
If False Then
Using fs As FileStream = New FileStream(destinationFile, FileMode.Create, FileAccess.Write, FileShare.None)
Using doc As iTextSharp.text.Document = New iTextSharp.text.Document()
Dim w As iTextSharp.text.pdf.PdfWriter = iTextSharp.text.pdf.PdfWriter.GetInstance(doc, fs)
doc.Open()
For Each page As Integer In pagesToKeep
doc.NewPage()
w.DirectContent.AddTemplate(w.GetImportedPage(r, page), 0, 0)
PagesLeft += 1
Next
doc.Close()
' End Using
End Using
End Using
End If
If delSource Then tryDelete(sourceFile)
End If
Return True
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
End Try
Return False
End Function
'Public Sub removePagesFromPdf(ByVal sourceFile As String, ByVal destinationFile As String, pagesToDelete As List(Of Integer), ByRef PagesLeft As Integer)
' Try
@@ -710,9 +798,16 @@ Public Class frmSendungAnhangImport
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Rechnung", "Rechnung"))
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("CMR", "CMR"))
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Ausfuhr", "Ausfuhr"))
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Vorpapier", "Vorpapier"))
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Packliste", "Packliste"))
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Auftrag", "Auftrag"))
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Vorpapier", "Vorpapier"))
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Auftrag", "Auftrag"))
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Dispoliste", "Dispoliste"))
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Vorkasse", "Vorkasse"))
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Überweisungsbeleg", "Überweisungsbeleg"))
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Vollmacht", "Vollmacht"))
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATB-Nr", "ATB"))
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATA-Nr", "ATA"))
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Sonstiges", "Sonstiges"))
initSendungen()
@@ -746,6 +841,10 @@ Public Class frmSendungAnhangImport
End Sub
Private Sub cboSendungen_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboSendungen.SelectedIndexChanged
btnSndDel.Enabled = (cboSendungen._value <> "")
btnSndEdit.Enabled = (cboSendungen._value <> "")
MyTextBox2.Text = cboSendungen.Text
flpnlSendungen.Controls.Clear()
@@ -769,9 +868,20 @@ Public Class frmSendungAnhangImport
VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge.LOAD_LIST_ByAviso(ANH_LIST, AvisoId) 'LÄDT alle Aviso-Anhänge
If pnl Is Nothing OrElse pnl Is flpnlSendungen Then flpnlSendungen.Controls.Clear()
If pnl Is Nothing OrElse pnl Is flpnlAviso Then flpnlAviso.Controls.Clear()
lblWarenbeichnung.Text = ""
lblSendungsdetails.Text = ""
lblAbsender.Text = ""
lblEmpfaenger.Text = ""
If cboSendungen._value <> "" Then
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).ToString("N1") & " kg"
lblWarenbeichnung.Text = If(SND.tblSnd_Warenbezeichnung, "")
lblAbsender.Text = If(SND.tblSnd_Absender, "")
lblEmpfaenger.Text = If(SND.tblSnd_Empfaenger, "")
End If
For Each a In ANH_LIST
If If(a.anh_SendungsId, 0) > 0 Then
If cboSendungen._value <> "" AndAlso cboSendungen._value = a.anh_SendungsId Then
If pnl Is Nothing OrElse pnl Is flpnlSendungen Then
@@ -899,7 +1009,7 @@ Public Class frmSendungAnhangImport
cntxt.Show(Cursor.Position)
End Sub
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles btnSndDel.Click
deleteActiveElement(flpnlSendungen)
End Sub
@@ -1034,6 +1144,14 @@ Public Class frmSendungAnhangImport
If e.KeyCode = Keys.PageUp Then
cboSendungen.SelectedIndex = cboSendungen.SelectedIndex - 1
End If
If e.KeyCode = Keys.Add Then
btnAddSnd.PerformClick()
e.IsInputKey = True ' Damit Event abgefangen ist, sonst steht "+" im Feld
End If
If e.KeyCode = Keys.Return Then
btnSndEdit.PerformClick()
e.IsInputKey = True ' Damit Event abgefangen ist, sonst steht "+" im Feld
End If
ElseIf e.Modifiers = Keys.Control Then ' PDFs durchlaufen
If e.KeyCode = Keys.PageDown Then
nextPDF()
@@ -1045,6 +1163,10 @@ Public Class frmSendungAnhangImport
btnAddSnd.PerformClick()
e.IsInputKey = True ' Damit Event abgefangen ist, sonst steht "+" im Feld
End If
If e.KeyCode = Keys.Return Then
btnSndEdit.PerformClick()
e.IsInputKey = True ' Damit Event abgefangen ist, sonst steht "+" im Feld
End If
Else
If e.KeyCode = Keys.PageDown Then
PdfViewer.GoToPage(PdfViewer.CurrentPageNumber + 1)
@@ -1056,7 +1178,7 @@ Public Class frmSendungAnhangImport
Catch ex As ArgumentOutOfRangeException
'out of range
Catch ex As Exception
MsgBox(ex.Message)
MsgBox(ex.Message & ex.StackTrace)
End Try
End Sub
@@ -1068,6 +1190,9 @@ Public Class frmSendungAnhangImport
bool_next = True
End If
Next
If bool_next = False And flpnlAviso.Controls.Count > 0 Then
DirectCast(flpnlAviso.Controls(0), usrCntlSendungAnhangElement).CLICK_Me()
End If
End Sub
Sub prevPDF()
@@ -1102,7 +1227,8 @@ Public Class frmSendungAnhangImport
Dim PagesLeft = 0
If vbYes = MsgBox("Möchten Sie die Seiten wirklich auf dem Dokument löschen?", vbYesNoCancel) Then
If removePagesFromPdf_Spire(u.FILE_PATH, TMP_Path_New, getPagesFromText(), PagesLeft, False) Then
'If removePagesFromPdf_Spire(u.FILE_PATH, TMP_Path_New, getPagesFromText(), PagesLeft, False) Then
If removePagesFromPdf_NEW(u.FILE_PATH, TMP_Path_New, getPagesFromText(), PagesLeft, False) Then
If PagesLeft = 0 Then
'delFromDS(u.FILE_DOCID)
deleteElement(u.FILE_DOCID, u.FILE_ANHID, False)
@@ -1166,6 +1292,47 @@ Public Class frmSendungAnhangImport
End Sub
Private Sub Button7_Click(sender As Object, e As EventArgs) Handles btnSndEdit.Click
If cboSendungen._value <> "" Then
Dim SND As New VERAG_PROG_ALLGEMEIN.cSendungen(cboSendungen._value)
If SND IsNot Nothing Then
Dim f As New frmAddSendnung(AvisoId, SND)
If f.ShowDialog(Me) = DialogResult.OK Then
initSendungen()
cboSendungen.changeItem(f.SendungsId)
initFlpANH_LIST(flpnlSendungen)
End If
End If
End If
txtSeiten.Focus()
End Sub
Private Sub Button17_Click(sender As Object, e As EventArgs) Handles Button17.Click
Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm()
Dim sv As New frmAddSendungsvermerkShort(AvisoId, SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID) ', dgvSendungen.SelectedRows(0).Cells("tblSnd_SendungID").Value)
sv.Location = Me.PointToClient(System.Windows.Forms.Cursor.Position)
sv.ShowDialog(frmGrayOut)
frmGrayOut.Close()
sv.Close()
' initVermerke()
End Sub
Private Sub cbxAlternativePDFAnsicht_CheckedChanged(sender As Object, e As EventArgs) Handles cbxAlternativePDFAnsicht.CheckedChanged
For Each p As usrCntlSendungAnhangElement In flpnlAviso.Controls
If p.ACTIVE Then
initLocationViewer(p.FILE_PATH, p.FILE_TYPE) : Exit Sub
End If
Next
For Each p As usrCntlSendungAnhangElement In flpnlSendungen.Controls
If p.ACTIVE Then
initLocationViewer(p.FILE_PATH, p.FILE_TYPE)
End If
Next
End Sub
'Private Sub txtBezeichnung_GotFocus(sender As Object, e As EventArgs) Handles txtBezeichnung.GotFocus
' txtBezeichnung.SelectAll()

122
Aviso/Anhänge/frmSendungAnhangUmbenennenUmkateg.Designer.vb generated Normal file
View File

@@ -0,0 +1,122 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmSendungAnhangUmbenennenUmkateg
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmSendungAnhangUmbenennenUmkateg))
Me.txtBezeichnung = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label1 = New System.Windows.Forms.Label()
Me.Label5 = New System.Windows.Forms.Label()
Me.cboArt = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.btnAnfuegen = New System.Windows.Forms.Button()
Me.SuspendLayout()
'
'txtBezeichnung
'
Me.txtBezeichnung._DateTimeOnly = False
Me.txtBezeichnung._numbersOnly = False
Me.txtBezeichnung._numbersOnlyKommastellen = ""
Me.txtBezeichnung._Prozent = False
Me.txtBezeichnung._ShortDateNew = False
Me.txtBezeichnung._ShortDateOnly = False
Me.txtBezeichnung._TimeOnly = False
Me.txtBezeichnung._value = ""
Me.txtBezeichnung._Waehrung = False
Me.txtBezeichnung._WaehrungZeichen = True
Me.txtBezeichnung.BackColor = System.Drawing.Color.White
Me.txtBezeichnung.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtBezeichnung.ForeColor = System.Drawing.Color.Black
Me.txtBezeichnung.Location = New System.Drawing.Point(77, 41)
Me.txtBezeichnung.MaxLineLength = -1
Me.txtBezeichnung.MaxLines_Warning = ""
Me.txtBezeichnung.MaxLines_Warning_Label = Nothing
Me.txtBezeichnung.Name = "txtBezeichnung"
Me.txtBezeichnung.Size = New System.Drawing.Size(242, 26)
Me.txtBezeichnung.TabIndex = 13
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(12, 49)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(63, 13)
Me.Label1.TabIndex = 14
Me.Label1.Text = "Bezeichng.:"
'
'Label5
'
Me.Label5.AutoSize = True
Me.Label5.Location = New System.Drawing.Point(12, 19)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(23, 13)
Me.Label5.TabIndex = 11
Me.Label5.Text = "Art:"
'
'cboArt
'
Me.cboArt._allowedValuesFreiText = Nothing
Me.cboArt._allowFreiText = False
Me.cboArt._value = ""
Me.cboArt.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cboArt.FormattingEnabled = True
Me.cboArt.Location = New System.Drawing.Point(77, 11)
Me.cboArt.Name = "cboArt"
Me.cboArt.Size = New System.Drawing.Size(242, 28)
Me.cboArt.TabIndex = 12
'
'btnAnfuegen
'
Me.btnAnfuegen.BackColor = System.Drawing.Color.White
Me.btnAnfuegen.DialogResult = System.Windows.Forms.DialogResult.OK
Me.btnAnfuegen.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnAnfuegen.Location = New System.Drawing.Point(77, 73)
Me.btnAnfuegen.Name = "btnAnfuegen"
Me.btnAnfuegen.Size = New System.Drawing.Size(242, 46)
Me.btnAnfuegen.TabIndex = 15
Me.btnAnfuegen.Text = "OK"
Me.btnAnfuegen.UseVisualStyleBackColor = False
'
'frmSendungAnhangUmbenennenUmkateg
'
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(326, 130)
Me.Controls.Add(Me.btnAnfuegen)
Me.Controls.Add(Me.txtBezeichnung)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.Label5)
Me.Controls.Add(Me.cboArt)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "frmSendungAnhangUmbenennenUmkateg"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents txtBezeichnung As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label1 As Label
Friend WithEvents Label5 As Label
Friend WithEvents cboArt As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents btnAnfuegen As Button
End Class

1253
Aviso/Anhänge/frmSendungAnhangUmbenennenUmkateg.resx Normal file
View File

File diff suppressed because it is too large Load Diff

48
Aviso/Anhänge/frmSendungAnhangUmbenennenUmkateg.vb Normal file
View File

@@ -0,0 +1,48 @@
Public Class frmSendungAnhangUmbenennenUmkateg
Dim nameOLD = ""
Dim artOLD = ""
Sub New(nameOLD As String, artOLD As String)
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
Me.nameOLD = nameOLD
Me.artOLD = artOLD
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Private Sub frmSendungAnhangImport_Load(sender As Object, e As EventArgs) Handles Me.Load
cboArt.Items.Clear()
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATR-EUR1", "ATR-EUR1"))
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Rechnung", "Rechnung"))
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("CMR", "CMR"))
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Ausfuhr", "Ausfuhr"))
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Vorpapier", "Vorpapier"))
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Packliste", "Packliste"))
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Auftrag", "Auftrag"))
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Auftrag", "Auftrag"))
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Dispoliste", "Dispoliste"))
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Vorkasse", "Vorkasse"))
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Überweisungsbeleg", "Überweisungsbeleg"))
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Vollmacht", "Vollmacht"))
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATB-Nr", "ATB"))
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATA-Nr", "ATA"))
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Sonstiges", "Sonstiges"))
txtBezeichnung.Text = nameOLD
cboArt.changeItem(artOLD)
End Sub
Private Sub txtBezeichnung_TextChanged(sender As Object, e As EventArgs) Handles txtBezeichnung.TextChanged
End Sub
Private Sub txtBezeichnung_KeyDown(sender As Object, e As KeyEventArgs) Handles txtBezeichnung.KeyDown
If e.KeyCode = Keys.Return Then
btnAnfuegen.PerformClick()
End If
End Sub
Private Sub btnAnfuegen_Click(sender As Object, e As EventArgs) Handles btnAnfuegen.Click
If txtBezeichnung.Text = "" Then Me.DialogResult = DialogResult.None : Exit Sub
End Sub
End Class

14
Aviso/Anhänge/usrCntlSendungAnhangElement.vb
View File

@@ -118,17 +118,21 @@ Public Class usrCntlSendungAnhangElement
End Sub
Private Sub UmbenennenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles UmbenennenToolStripMenuItem.Click
Dim bez = InputBox("Bitte geben Sie den neuen Dateinamen ein:")
If bez <> "" Then
Try
Dim ANH As New VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge(FILE_ANHID)
ANH.anh_Name = bez
Dim f As New frmSendungAnhangUmbenennenUmkateg(FILE_NAME, ANH.anh_Art)
If f.ShowDialog = DialogResult.OK Then
ANH.anh_Name = f.txtBezeichnung.Text
ANH.anh_Art = f.cboArt._value
ANH.SAVE()
FILE_NAME = bez
FILE_NAME = f.txtBezeichnung.Text
End If
Catch ex As Exception
MsgBox(ex.Message)
End Try
End If
End Sub
Private Sub LöschenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles LöschenToolStripMenuItem.Click

1
Aviso/Auswertung/frmAuswertung.Designer.vb generated
View File

@@ -61,6 +61,7 @@ Partial Class frmAuswertung
Me.Button10.TabIndex = 9
Me.Button10.Text = "E-Mails in Fmzoll laden"
Me.Button10.UseVisualStyleBackColor = True
Me.Button10.Visible = False
'
'PictureBox1
'

4
Aviso/Auswertung/frmAuswertung.vb
View File

@@ -28,17 +28,21 @@ Public Class frmAuswertung
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AVISO_Statistik_Gesamt", Me) Then
clrPnlMain()
Dim usrCntl As New usrctStatistik
usrCntl.Dock = System.Windows.Forms.DockStyle.Fill
pnlMain.Controls.Add(usrCntl)
End If
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AVISO_Statistik_Mitarbeiter", Me) Then
clrPnlMain()
Dim usrCntl As New usrctlMAUebersicht
usrCntl.Dock = System.Windows.Forms.DockStyle.Fill
pnlMain.Controls.Add(usrCntl)
End If
End Sub

7
Aviso/Auswertung/frmStatFrima.vb
View File

@@ -146,6 +146,13 @@ Public Class frmStatFrima
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If DataGridView1.SelectedRows.Count > 0 Then
Dim frmLKWBericht As New frmLKWBericht(DataGridView1.SelectedRows(0).Cells("AvisoID").Value)
frmLKWBericht.ShowDialog(Me)
End If
Exit Sub
Dim str As String = ""
For Each r As DataGridViewRow In DataGridView1.Rows()
If r.Selected Then

85
Aviso/Auswertung/usrctlAuswertung.Designer.vb generated
View File

@@ -22,12 +22,16 @@ Partial Class usrctlAuswertung
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
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()
Me.TabControl1 = New System.Windows.Forms.TabControl()
Me.TabPage1 = New System.Windows.Forms.TabPage()
Me.DataGridView1 = New System.Windows.Forms.DataGridView()
Me.Panel3 = New System.Windows.Forms.Panel()
Me.Label20 = New System.Windows.Forms.Label()
Me.cboFirmaIntern = New System.Windows.Forms.ComboBox()
Me.cboGrenzstelle = New System.Windows.Forms.ComboBox()
Me.Label19 = New System.Windows.Forms.Label()
Me.Label18 = New System.Windows.Forms.Label()
Me.txtDauerBis = New System.Windows.Forms.TextBox()
Me.txtDauerVon = New System.Windows.Forms.TextBox()
@@ -132,7 +136,7 @@ Partial Class usrctlAuswertung
Me.TabControl1.Location = New System.Drawing.Point(0, 0)
Me.TabControl1.Name = "TabControl1"
Me.TabControl1.SelectedIndex = 0
Me.TabControl1.Size = New System.Drawing.Size(931, 565)
Me.TabControl1.Size = New System.Drawing.Size(1138, 565)
Me.TabControl1.TabIndex = 0
'
'TabPage1
@@ -143,24 +147,28 @@ Partial Class usrctlAuswertung
Me.TabPage1.Location = New System.Drawing.Point(4, 22)
Me.TabPage1.Name = "TabPage1"
Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage1.Size = New System.Drawing.Size(923, 539)
Me.TabPage1.Size = New System.Drawing.Size(1130, 539)
Me.TabPage1.TabIndex = 0
Me.TabPage1.Text = "Kunden"
Me.TabPage1.UseVisualStyleBackColor = True
'
'DataGridView1
'
DataGridViewCellStyle1.BackColor = System.Drawing.Color.Azure
Me.DataGridView1.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
DataGridViewCellStyle3.BackColor = System.Drawing.Color.Azure
Me.DataGridView1.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3
Me.DataGridView1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.DataGridView1.Dock = System.Windows.Forms.DockStyle.Fill
Me.DataGridView1.Location = New System.Drawing.Point(3, 61)
Me.DataGridView1.Name = "DataGridView1"
Me.DataGridView1.Size = New System.Drawing.Size(811, 475)
Me.DataGridView1.Size = New System.Drawing.Size(1018, 475)
Me.DataGridView1.TabIndex = 0
'
'Panel3
'
Me.Panel3.Controls.Add(Me.Label20)
Me.Panel3.Controls.Add(Me.cboFirmaIntern)
Me.Panel3.Controls.Add(Me.cboGrenzstelle)
Me.Panel3.Controls.Add(Me.Label19)
Me.Panel3.Controls.Add(Me.Label18)
Me.Panel3.Controls.Add(Me.txtDauerBis)
Me.Panel3.Controls.Add(Me.txtDauerVon)
@@ -180,13 +188,51 @@ Partial Class usrctlAuswertung
Me.Panel3.Dock = System.Windows.Forms.DockStyle.Top
Me.Panel3.Location = New System.Drawing.Point(3, 3)
Me.Panel3.Name = "Panel3"
Me.Panel3.Size = New System.Drawing.Size(811, 58)
Me.Panel3.Size = New System.Drawing.Size(1018, 58)
Me.Panel3.TabIndex = 2
'
'Label20
'
Me.Label20.AutoSize = True
Me.Label20.Location = New System.Drawing.Point(742, 9)
Me.Label20.Name = "Label20"
Me.Label20.Size = New System.Drawing.Size(54, 13)
Me.Label20.TabIndex = 14
Me.Label20.Text = "Firma/NL:"
'
'cboFirmaIntern
'
Me.cboFirmaIntern.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cboFirmaIntern.FormattingEnabled = True
Me.cboFirmaIntern.Items.AddRange(New Object() {"ALLE", "VERAG", "IMEX", "ATILLA", "UNISPED"})
Me.cboFirmaIntern.Location = New System.Drawing.Point(799, 6)
Me.cboFirmaIntern.Name = "cboFirmaIntern"
Me.cboFirmaIntern.Size = New System.Drawing.Size(99, 21)
Me.cboFirmaIntern.TabIndex = 13
'
'cboGrenzstelle
'
Me.cboGrenzstelle.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cboGrenzstelle.FormattingEnabled = True
Me.cboGrenzstelle.Items.AddRange(New Object() {"ALLE", "SUB", "WAI", "SBG", "NKD", "SFD", "???"})
Me.cboGrenzstelle.Location = New System.Drawing.Point(904, 5)
Me.cboGrenzstelle.Name = "cboGrenzstelle"
Me.cboGrenzstelle.Size = New System.Drawing.Size(99, 21)
Me.cboGrenzstelle.TabIndex = 12
'
'Label19
'
Me.Label19.AutoSize = True
Me.Label19.Location = New System.Drawing.Point(238, 35)
Me.Label19.Name = "Label19"
Me.Label19.Size = New System.Drawing.Size(23, 13)
Me.Label19.TabIndex = 11
Me.Label19.Text = "min"
'
'Label18
'
Me.Label18.AutoSize = True
Me.Label18.Location = New System.Drawing.Point(189, 36)
Me.Label18.Location = New System.Drawing.Point(183, 36)
Me.Label18.Name = "Label18"
Me.Label18.Size = New System.Drawing.Size(10, 13)
Me.Label18.TabIndex = 10
@@ -194,7 +240,7 @@ Partial Class usrctlAuswertung
'
'txtDauerBis
'
Me.txtDauerBis.Location = New System.Drawing.Point(205, 32)
Me.txtDauerBis.Location = New System.Drawing.Point(193, 32)
Me.txtDauerBis.Name = "txtDauerBis"
Me.txtDauerBis.Size = New System.Drawing.Size(45, 20)
Me.txtDauerBis.TabIndex = 9
@@ -327,7 +373,7 @@ Partial Class usrctlAuswertung
Me.Panel2.Controls.Add(Me.Button2)
Me.Panel2.Controls.Add(Me.Button1)
Me.Panel2.Dock = System.Windows.Forms.DockStyle.Right
Me.Panel2.Location = New System.Drawing.Point(814, 3)
Me.Panel2.Location = New System.Drawing.Point(1021, 3)
Me.Panel2.Name = "Panel2"
Me.Panel2.Size = New System.Drawing.Size(106, 533)
Me.Panel2.TabIndex = 1
@@ -359,7 +405,7 @@ Partial Class usrctlAuswertung
Me.TabPage2.Location = New System.Drawing.Point(4, 22)
Me.TabPage2.Name = "TabPage2"
Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage2.Size = New System.Drawing.Size(923, 539)
Me.TabPage2.Size = New System.Drawing.Size(1130, 539)
Me.TabPage2.TabIndex = 1
Me.TabPage2.Text = "Filter"
Me.TabPage2.UseVisualStyleBackColor = True
@@ -383,7 +429,7 @@ Partial Class usrctlAuswertung
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top
Me.Panel1.Location = New System.Drawing.Point(3, 3)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(917, 331)
Me.Panel1.Size = New System.Drawing.Size(1124, 331)
Me.Panel1.TabIndex = 2
'
'GroupBox5
@@ -1006,13 +1052,13 @@ Partial Class usrctlAuswertung
'
'DataGridView2
'
DataGridViewCellStyle2.BackColor = System.Drawing.Color.Azure
Me.DataGridView2.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
DataGridViewCellStyle4.BackColor = System.Drawing.Color.Azure
Me.DataGridView2.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle4
Me.DataGridView2.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.DataGridView2.Dock = System.Windows.Forms.DockStyle.Fill
Me.DataGridView2.Location = New System.Drawing.Point(3, 3)
Me.DataGridView2.Name = "DataGridView2"
Me.DataGridView2.Size = New System.Drawing.Size(917, 533)
Me.DataGridView2.Size = New System.Drawing.Size(1124, 533)
Me.DataGridView2.TabIndex = 1
'
'usrctlAuswertung
@@ -1022,7 +1068,7 @@ Partial Class usrctlAuswertung
Me.AutoSize = True
Me.Controls.Add(Me.TabControl1)
Me.Name = "usrctlAuswertung"
Me.Size = New System.Drawing.Size(931, 565)
Me.Size = New System.Drawing.Size(1138, 565)
Me.TabControl1.ResumeLayout(False)
Me.TabPage1.ResumeLayout(False)
CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).EndInit()
@@ -1131,5 +1177,8 @@ Partial Class usrctlAuswertung
Friend WithEvents txtDauerVon As System.Windows.Forms.TextBox
Friend WithEvents Label14 As System.Windows.Forms.Label
Friend WithEvents Label18 As System.Windows.Forms.Label
Friend WithEvents Label19 As Label
Friend WithEvents Label20 As Label
Friend WithEvents cboFirmaIntern As ComboBox
Friend WithEvents cboGrenzstelle As ComboBox
End Class

15
Aviso/Auswertung/usrctlAuswertung.vb
View File

@@ -10,11 +10,15 @@ Public Class usrctlAuswertung
Private Sub usrctlStatistik_Load(sender As Object, e As EventArgs) Handles Me.Load
txtCntVon.Text = "5"
cboFirma.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
cboGrenzstelle.Text = "ALLE"
DataGridView1.SelectionMode = DataGridViewSelectionMode.FullRowSelect
initFilter()
initStat()
grid_Aktiv = True
showFirmen()
End Sub
Sub initStat()
@@ -22,6 +26,7 @@ Public Class usrctlAuswertung
datStatBis.Format = DateTimePickerFormat.Short
cboSrchAuftrFraecht.SelectedIndex = 0
End Sub
Sub initFilter()
'AuswahlCombos mit Daten befüllen
cboFirma.DataSource = Firmen.Anzeigen_cboFirmen("")
@@ -82,7 +87,11 @@ Public Class usrctlAuswertung
If IsNumeric(txtDauerBis.Text) And txtDauerBis.Text.Trim <> "" Then where &= where_and & " Dauer <= '" & txtDauerBis.Text & "' " : where_and = " AND "
If where <> "" Then sqlstr &= "WHERE Firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' AND ( " & where & " ) "
If cboGrenzstelle.Text <> "ALLE" Then where &= where_and & " Grenzstelle = '" & cboGrenzstelle.Text & "' " : where_and = " AND "
If cboFirmaIntern.Text <> "ALLE" Then where &= where_and & " FIRMA = '" & cboFirmaIntern.Text & "' " : where_and = " AND "
If where <> "" Then sqlstr &= "WHERE 1=1 AND ( " & where & " ) " 'Firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "'
sqlstr &= " GROUP BY " & srch & " "
Dim having As String = ""
Dim having_and As String = ""
@@ -447,5 +456,7 @@ Public Class usrctlAuswertung
showFirmen()
End Sub
Private Sub cboFirmaIntern_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboFirmaIntern.SelectedIndexChanged, cboGrenzstelle.SelectedIndexChanged
showFirmen()
End Sub
End Class

22
Aviso/Aviso.vbproj
View File

@@ -245,6 +245,12 @@
<Compile Include="Anhänge\frmSendungAnhangImport.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Anhänge\frmSendungAnhangUmbenennenUmkateg.Designer.vb">
<DependentUpon>frmSendungAnhangUmbenennenUmkateg.vb</DependentUpon>
</Compile>
<Compile Include="Anhänge\frmSendungAnhangUmbenennenUmkateg.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Anhänge\usrCntlSendungAnhangElement.Designer.vb">
<DependentUpon>usrCntlSendungAnhangElement.vb</DependentUpon>
</Compile>
@@ -682,6 +688,9 @@
<EmbeddedResource Include="Anhänge\frmSendungAnhangImport.resx">
<DependentUpon>frmSendungAnhangImport.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Anhänge\frmSendungAnhangUmbenennenUmkateg.resx">
<DependentUpon>frmSendungAnhangUmbenennenUmkateg.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Anhänge\usrCntlSendungAnhangElement.resx">
<DependentUpon>usrCntlSendungAnhangElement.vb</DependentUpon>
</EmbeddedResource>
@@ -972,6 +981,19 @@
<None Include="Resources\dakosy.png" />
<None Include="Resources\dakosy_dy.png" />
<None Include="Resources\FrontOfficeSUB.jpg" />
<None Include="Resources\statusBtn_vorgeschrieben_InAktiv.jpg" />
<None Include="Resources\statusBtn_vorbereitet_Aktiv.jpg" />
<None Include="Resources\statusBtn_vorbereitet_InAktiv.jpg" />
<None Include="Resources\statusBtn_vorgeschrieben_Aktiv.jpg" />
<None Include="Resources\digitalerAkt.jpg" />
<None Include="Resources\digitalerAkt1.jpg" />
<None Include="Resources\digitalerAkt_small.jpg" />
<None Include="Resources\personCheck.png" />
<None Include="Resources\personCheck_blue.png" />
<None Include="Resources\personCheck_small.png" />
<None Include="Resources\personCheck_blue_small.png" />
<None Include="Resources\personCheck_gray_small.png" />
<None Include="Resources\aviso_messenger.png" />
<Content Include="Resources\UNISPED.png">
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
</Content>

19
Aviso/Classes/cSendungsoptions.vb
View File

@@ -300,6 +300,13 @@ Public Class SendungOptions
VALUES.Empfaenger_eigBIN = "eig. BIN"
End Select
If CBool(VERAGSQL.getValueTxtBySql("SELECT TOP 1 isnull([Vorkasse],0) FROM [Kunden] where KundenNr=" & SENDUNG.tblSnd_EmpfaengerKdNr, "FMZOLL",,, False)) Then VALUES.Empfaenger_VK = "€ VK"
If CBool(VERAGSQL.getValueTxtBySql("SELECT TOP 1 isnull([Vorkasse],0) FROM [Kunden] where KundenNr=" & SENDUNG.tblSnd_AbsenderKdNr, "FMZOLL",,, False)) Then VALUES.Absender_VK = "€ VK"
If CBool(VERAGSQL.getValueTxtBySql("SELECT TOP 1 isnull([Vorkasse],0) FROM [Kunden] where KundenNr=" & AVISO.Auftraggeber_KdNr, "FMZOLL",,, False)) Then VALUES.Avisierer_VK = "€ VK"
If CBool(VERAGSQL.getValueTxtBySql("SELECT TOP 1 isnull([Vorkasse],0) FROM [Kunden] where KundenNr=" & AVISO.Frächter_KdNr, "FMZOLL",,, False)) Then VALUES.Frachtfuehrer_VK = "€ VK"
If CBool(VERAGSQL.getValueTxtBySql("SELECT TOP 1 isnull([Vorkasse],0) FROM [Kunden] where KundenNr=" & SENDUNG.tblSnd_AuftraggeberKdNr, "FMZOLL",,, False)) Then VALUES.Auftraggeber_VK = "€ VK"
SENDUNG.LOAD_ABRECHNUNG() 'Daten holen
Dim abfertKostKdnr As Integer = -1
@@ -414,7 +421,9 @@ Public Class SendungOptions
ZOLLANMELDUNG = Nothing
End If
Dim rpt As New Gemeinsames.rptSendungen(VALUES, imgpath, ZOLLANMELDUNG)
Dim rpt As New Gemeinsames.rptSendungen(VALUES, imgpath, ZOLLANMELDUNG, SENDUNG.HANDLING)
rpt.Document.CacheToDisk = False
'rpt.Document.CacheToDisk = True
@@ -439,7 +448,7 @@ Public Class SendungOptions
End If
Catch ex As Exception
MsgBox(ex.Message)
MsgBox(ex.Message & ex.StackTrace)
End Try
' If art = "PRINT" Then
'fm.fillPDF(name, list, listTowrite, , True, Printername, barcode, barcodeLKW)
@@ -722,11 +731,11 @@ Public Class SendungOptions
If art = "PRINT" Then
fm.fillPDF(name, Nothing, listTowrite, , True, Printername,,, SDL.FormularManagerNEU.getUO2)
fm.fillPDF(name, Nothing, listTowrite, , True, Printername,,, SDL.FormularManagerNEU.getUO2(SENDUNG.FilialenNr))
ElseIf art = "DIALOG" Then
fm.fillPDF(name, Nothing, listTowrite, , True,,,, SDL.FormularManagerNEU.getUO2)
fm.fillPDF(name, Nothing, listTowrite, , True,,,, SDL.FormularManagerNEU.getUO2(SENDUNG.FilialenNr))
Else
fm.fillPDF(name, Nothing, listTowrite,,,,,, SDL.FormularManagerNEU.getUO2)
fm.fillPDF(name, Nothing, listTowrite,,,,,, SDL.FormularManagerNEU.getUO2(SENDUNG.FilialenNr))
End If

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.3.5.7")>
<Assembly: AssemblyFileVersion("3.3.5.7")>
<Assembly: AssemblyVersion("3.4.0.5")>
<Assembly: AssemblyFileVersion("3.4.0.5")>

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

@@ -239,6 +239,16 @@ Namespace My.Resources
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property aviso_messenger() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("aviso_messenger", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
@@ -369,6 +379,26 @@ Namespace My.Resources
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property digitalerAkt() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("digitalerAkt", 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 digitalerAkt_small() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("digitalerAkt_small", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
@@ -809,6 +839,56 @@ Namespace My.Resources
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property personCheck() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("personCheck", 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 personCheck_blue() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("personCheck_blue", 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 personCheck_blue_small() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("personCheck_blue_small", 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 personCheck_gray_small() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("personCheck_gray_small", 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 personCheck_small() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("personCheck_small", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
@@ -1009,6 +1089,46 @@ Namespace My.Resources
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property statusBtn_vorbereitet_Aktiv() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("statusBtn_vorbereitet_Aktiv", 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 statusBtn_vorbereitet_InAktiv() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("statusBtn_vorbereitet_InAktiv", 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 statusBtn_vorgeschrieben_Aktiv() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("statusBtn_vorgeschrieben_Aktiv", 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 statusBtn_vorgeschrieben_InAktiv() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("statusBtn_vorgeschrieben_InAktiv", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
@@ -1159,7 +1279,7 @@ Namespace My.Resources
End Property
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die 3.3.5.7 ähnelt.
''' Sucht eine lokalisierte Zeichenfolge, die 3.4.0.5 ähnelt.
'''</summary>
Friend ReadOnly Property Version() As String
Get

38
Aviso/My Project/Resources.resx
View File

@@ -344,7 +344,7 @@
<value>..\Resources\akt_ATILLA.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Version" xml:space="preserve">
<value>3.3.5.7</value>
<value>3.4.0.5</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>
@@ -499,4 +499,40 @@
<data name="FrontOfficeSUB" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\FrontOfficeSUB.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>
<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="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="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="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="digitalerAkt_small" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\digitalerAkt_small.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="personCheck" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\personCheck.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="personCheck_blue" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\personCheck_blue.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="personCheck_blue_small" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\personCheck_blue_small.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="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="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="aviso_messenger" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\aviso_messenger.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
</root>

BIN
Aviso/Resources/aviso_messenger.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 16 KiB

BIN
Aviso/Resources/digitalerAkt.jpg Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 50 KiB

BIN
Aviso/Resources/digitalerAkt1.jpg Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 50 KiB

BIN
Aviso/Resources/digitalerAkt_small.jpg Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 10 KiB

BIN
Aviso/Resources/personCheck.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 20 KiB

BIN
Aviso/Resources/personCheck_blue.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 13 KiB

BIN
Aviso/Resources/personCheck_blue_small.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 618 B

BIN
Aviso/Resources/personCheck_gray_small.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 3.8 KiB

BIN
Aviso/Resources/personCheck_small.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 613 B

BIN
Aviso/Resources/statusBtn_vorbereitet_Aktiv.jpg Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 2.1 KiB

BIN
Aviso/Resources/statusBtn_vorbereitet_InAktiv.jpg Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 1.5 KiB

BIN
Aviso/Resources/statusBtn_vorgeschrieben_Aktiv.jpg Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 2.1 KiB

BIN
Aviso/Resources/statusBtn_vorgeschrieben_InAktiv.jpg Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 1.5 KiB

59
Aviso/frmAddAktenvermerkShort.Designer.vb generated
View File

@@ -24,6 +24,9 @@ Partial Class frmAddAktenvermerkShort
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmAddAktenvermerkShort))
Me.pnlAktenVermerk = New System.Windows.Forms.Panel()
Me.txtFreigabeInfo = New System.Windows.Forms.TextBox()
Me.Label4 = New System.Windows.Forms.Label()
Me.btnDispoangefordert = New System.Windows.Forms.Button()
Me.Button3 = New System.Windows.Forms.Button()
Me.Label3 = New System.Windows.Forms.Label()
Me.txtSonstiges = New System.Windows.Forms.TextBox()
@@ -56,7 +59,6 @@ Partial Class frmAddAktenvermerkShort
Me.Label24 = New System.Windows.Forms.Label()
Me.Label16 = New System.Windows.Forms.Label()
Me.Label14 = New System.Windows.Forms.Label()
Me.btnDispoangefordert = New System.Windows.Forms.Button()
Me.pnlAktenVermerk.SuspendLayout()
Me.pnl.SuspendLayout()
Me.SuspendLayout()
@@ -65,6 +67,8 @@ Partial Class frmAddAktenvermerkShort
'
Me.pnlAktenVermerk.BackColor = System.Drawing.Color.White
Me.pnlAktenVermerk.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.pnlAktenVermerk.Controls.Add(Me.txtFreigabeInfo)
Me.pnlAktenVermerk.Controls.Add(Me.Label4)
Me.pnlAktenVermerk.Controls.Add(Me.btnDispoangefordert)
Me.pnlAktenVermerk.Controls.Add(Me.Button3)
Me.pnlAktenVermerk.Controls.Add(Me.Label3)
@@ -94,9 +98,41 @@ Partial Class frmAddAktenvermerkShort
Me.pnlAktenVermerk.Dock = System.Windows.Forms.DockStyle.Fill
Me.pnlAktenVermerk.Location = New System.Drawing.Point(0, 0)
Me.pnlAktenVermerk.Name = "pnlAktenVermerk"
Me.pnlAktenVermerk.Size = New System.Drawing.Size(414, 517)
Me.pnlAktenVermerk.Size = New System.Drawing.Size(414, 534)
Me.pnlAktenVermerk.TabIndex = 0
'
'txtFreigabeInfo
'
Me.txtFreigabeInfo.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtFreigabeInfo.Location = New System.Drawing.Point(11, 489)
Me.txtFreigabeInfo.Multiline = True
Me.txtFreigabeInfo.Name = "txtFreigabeInfo"
Me.txtFreigabeInfo.Size = New System.Drawing.Size(182, 40)
Me.txtFreigabeInfo.TabIndex = 105
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label4.Location = New System.Drawing.Point(11, 473)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(86, 13)
Me.Label4.TabIndex = 104
Me.Label4.Text = "Freigabe Info:"
'
'btnDispoangefordert
'
Me.btnDispoangefordert.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnDispoangefordert.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnDispoangefordert.ImageAlign = System.Drawing.ContentAlignment.TopCenter
Me.btnDispoangefordert.Location = New System.Drawing.Point(216, 285)
Me.btnDispoangefordert.Name = "btnDispoangefordert"
Me.btnDispoangefordert.Size = New System.Drawing.Size(182, 27)
Me.btnDispoangefordert.TabIndex = 103
Me.btnDispoangefordert.Text = "Dispoliste angefordert ..."
Me.btnDispoangefordert.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnDispoangefordert.UseVisualStyleBackColor = True
'
'Button3
'
Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
@@ -211,7 +247,7 @@ Partial Class frmAddAktenvermerkShort
Me.pnl.Controls.Add(Me.btnErfasst)
Me.pnl.Controls.Add(Me.btnVorbereitet)
Me.pnl.Controls.Add(Me.btnVorgeschrieben)
Me.pnl.Location = New System.Drawing.Point(216, 326)
Me.pnl.Location = New System.Drawing.Point(216, 343)
Me.pnl.Name = "pnl"
Me.pnl.Size = New System.Drawing.Size(197, 190)
Me.pnl.TabIndex = 93
@@ -521,24 +557,11 @@ Partial Class frmAddAktenvermerkShort
Me.Label14.TabIndex = 2
Me.Label14.Text = "Aviso"
'
'btnDispoangefordert
'
Me.btnDispoangefordert.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnDispoangefordert.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnDispoangefordert.ImageAlign = System.Drawing.ContentAlignment.TopCenter
Me.btnDispoangefordert.Location = New System.Drawing.Point(216, 285)
Me.btnDispoangefordert.Name = "btnDispoangefordert"
Me.btnDispoangefordert.Size = New System.Drawing.Size(182, 27)
Me.btnDispoangefordert.TabIndex = 103
Me.btnDispoangefordert.Text = "Dispoliste angefordert ..."
Me.btnDispoangefordert.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnDispoangefordert.UseVisualStyleBackColor = True
'
'frmAddAktenvermerkShort
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(414, 517)
Me.ClientSize = New System.Drawing.Size(414, 534)
Me.Controls.Add(Me.pnlAktenVermerk)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
@@ -587,4 +610,6 @@ Partial Class frmAddAktenvermerkShort
Friend WithEvents btnSonstiges As System.Windows.Forms.Button
Friend WithEvents Button3 As System.Windows.Forms.Button
Friend WithEvents btnDispoangefordert As Button
Friend WithEvents txtFreigabeInfo As TextBox
Friend WithEvents Label4 As Label
End Class

12
Aviso/frmAddAktenvermerkShort.vb
View File

@@ -1,4 +1,5 @@

Imports System.ComponentModel
Imports VERAG_PROG_ALLGEMEIN
@@ -85,6 +86,8 @@ Public Class frmAddAktenvermerkShort
btnZollDEEingereicht.Text = "Zoll DE " & vbNewLine & "fertig"
End If
btnLKWFertig.Text = If(myAviso.LKW_fertig, "LKW nicht fertig", "LKW fertig")
txtFreigabeInfo.Text = If(myAviso.Freigabe_Info, "")
End Sub
@@ -101,6 +104,8 @@ btnZollDEEingereicht.Click, btnSBG.Click, btnNKD.Click, btnWAI.Click, btnSFD.Cli
Exit Sub
End If
Dim tmpSndId = -1
'Plausibilität prüfen
If sender Is btnNichtAvisiert Then
@@ -232,4 +237,11 @@ btnZollDEEingereicht.Click, btnSBG.Click, btnNKD.Click, btnWAI.Click, btnSFD.Cli
Me.Close()
End Sub
Private Sub frmAddAktenvermerkShort_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
Try
myAviso.UPDATE_FreigabeInfo(txtFreigabeInfo.Text)
Catch ex As Exception
End Try
End Sub
End Class

35
Aviso/frmDokumenteSchicken.Designer.vb generated
View File

@@ -32,6 +32,8 @@ Partial Class frmDokumenteSchicken
Me.lblTitle = New System.Windows.Forms.Label()
Me.btnClose = New System.Windows.Forms.Button()
Me.lblText = New System.Windows.Forms.Label()
Me.rtbSonstigeInfo = New System.Windows.Forms.RichTextBox()
Me.Label2 = New System.Windows.Forms.Label()
Me.pnl.SuspendLayout()
Me.Header.SuspendLayout()
Me.SuspendLayout()
@@ -40,6 +42,8 @@ Partial Class frmDokumenteSchicken
'
Me.pnl.BackColor = System.Drawing.Color.White
Me.pnl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.pnl.Controls.Add(Me.Label2)
Me.pnl.Controls.Add(Me.rtbSonstigeInfo)
Me.pnl.Controls.Add(Me.rtbDokumente)
Me.pnl.Controls.Add(Me.btnOK)
Me.pnl.Controls.Add(Me.Header)
@@ -49,14 +53,14 @@ Partial Class frmDokumenteSchicken
Me.pnl.Dock = System.Windows.Forms.DockStyle.Fill
Me.pnl.Location = New System.Drawing.Point(0, 0)
Me.pnl.Name = "pnl"
Me.pnl.Size = New System.Drawing.Size(316, 261)
Me.pnl.Size = New System.Drawing.Size(316, 410)
Me.pnl.TabIndex = 0
'
'rtbDokumente
'
Me.rtbDokumente.Location = New System.Drawing.Point(6, 67)
Me.rtbDokumente.Location = New System.Drawing.Point(6, 59)
Me.rtbDokumente.Name = "rtbDokumente"
Me.rtbDokumente.Size = New System.Drawing.Size(301, 125)
Me.rtbDokumente.Size = New System.Drawing.Size(301, 121)
Me.rtbDokumente.TabIndex = 94
Me.rtbDokumente.Text = ""
'
@@ -65,7 +69,7 @@ Partial Class frmDokumenteSchicken
Me.btnOK.DialogResult = System.Windows.Forms.DialogResult.OK
Me.btnOK.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnOK.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!)
Me.btnOK.Location = New System.Drawing.Point(84, 198)
Me.btnOK.Location = New System.Drawing.Point(81, 347)
Me.btnOK.Name = "btnOK"
Me.btnOK.Size = New System.Drawing.Size(133, 50)
Me.btnOK.TabIndex = 93
@@ -150,11 +154,30 @@ Partial Class frmDokumenteSchicken
Me.lblText.Text = "Folgende Dokumente sind an den Kunden zu senden:"
Me.lblText.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'rtbSonstigeInfo
'
Me.rtbSonstigeInfo.Location = New System.Drawing.Point(6, 211)
Me.rtbSonstigeInfo.Name = "rtbSonstigeInfo"
Me.rtbSonstigeInfo.Size = New System.Drawing.Size(301, 130)
Me.rtbSonstigeInfo.TabIndex = 95
Me.rtbSonstigeInfo.Text = ""
'
'Label2
'
Me.Label2.Cursor = System.Windows.Forms.Cursors.Hand
Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label2.Location = New System.Drawing.Point(3, 183)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(422, 25)
Me.Label2.TabIndex = 96
Me.Label2.Text = "Sonstige Info:"
Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'frmDokumenteSchicken
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(316, 261)
Me.ClientSize = New System.Drawing.Size(316, 410)
Me.Controls.Add(Me.pnl)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
@@ -175,4 +198,6 @@ Partial Class frmDokumenteSchicken
Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents btnOK As System.Windows.Forms.Button
Public WithEvents rtbDokumente As System.Windows.Forms.RichTextBox
Public WithEvents Label2 As Label
Public WithEvents rtbSonstigeInfo As RichTextBox
End Class

147
Aviso/frmEintragAviso.designer.vb generated
View File

@@ -22,6 +22,7 @@ Partial Class frmEintragAviso
'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(frmEintragAviso))
Me.btnOK = New System.Windows.Forms.Button()
Me.Label2 = New System.Windows.Forms.Label()
@@ -74,10 +75,6 @@ Partial Class frmEintragAviso
Me.cboGrenzstelle = New System.Windows.Forms.ComboBox()
Me.Label15 = New System.Windows.Forms.Label()
Me.grpAviso = New System.Windows.Forms.GroupBox()
Me.Label22 = New System.Windows.Forms.Label()
Me.txtDyRef = New System.Windows.Forms.TextBox()
Me.picDy = New System.Windows.Forms.PictureBox()
Me.lblDy = New System.Windows.Forms.Label()
Me.kdAuftraggeber = New VERAG_PROG_ALLGEMEIN.KdSearchBox()
Me.kdAvisierer = New VERAG_PROG_ALLGEMEIN.KdSearchBox()
Me.kdFrächter = New VERAG_PROG_ALLGEMEIN.KdSearchBox()
@@ -111,6 +108,10 @@ Partial Class frmEintragAviso
Me.lblAtr = New System.Windows.Forms.Label()
Me.Label17 = New System.Windows.Forms.Label()
Me.cbxAuftraggeberfurAlleSendungen = New System.Windows.Forms.CheckBox()
Me.Label22 = New System.Windows.Forms.Label()
Me.txtDyRef = New System.Windows.Forms.TextBox()
Me.picDy = New System.Windows.Forms.PictureBox()
Me.lblDy = New System.Windows.Forms.Label()
Me.grpAktVerzollung = New System.Windows.Forms.GroupBox()
Me.lblSendungsanzahl = New System.Windows.Forms.Label()
Me.cbxPosNr = New System.Windows.Forms.CheckBox()
@@ -132,13 +133,16 @@ Partial Class frmEintragAviso
Me.cbxAktenzettelDrucken = New System.Windows.Forms.CheckBox()
Me.cboPrinter = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.UsrCntlEintragAvisoAtilla = New AVISO.usrCntlEintragAvisoAtilla()
Me.dgvAnhaenge = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.columnName = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.panAdmin.SuspendLayout()
Me.grpAviso.SuspendLayout()
CType(Me.picDy, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
Me.grp.SuspendLayout()
CType(Me.picDy, System.ComponentModel.ISupportInitialize).BeginInit()
Me.grpAktVerzollung.SuspendLayout()
Me.pnlSBG.SuspendLayout()
CType(Me.dgvAnhaenge, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'btnOK
@@ -178,19 +182,19 @@ Partial Class frmEintragAviso
'
Me.txtInfo.AcceptsReturn = True
Me.txtInfo.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.txtInfo.Location = New System.Drawing.Point(9, 383)
Me.txtInfo.Location = New System.Drawing.Point(9, 357)
Me.txtInfo.MaxLength = 240
Me.txtInfo.Multiline = True
Me.txtInfo.Name = "txtInfo"
Me.txtInfo.ScrollBars = System.Windows.Forms.ScrollBars.Vertical
Me.txtInfo.Size = New System.Drawing.Size(388, 70)
Me.txtInfo.Size = New System.Drawing.Size(388, 96)
Me.txtInfo.TabIndex = 41
'
'Label3
'
Me.Label3.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.Label3.AutoSize = True
Me.Label3.Location = New System.Drawing.Point(6, 369)
Me.Label3.Location = New System.Drawing.Point(6, 341)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(25, 13)
Me.Label3.TabIndex = 40
@@ -700,9 +704,6 @@ Partial Class frmEintragAviso
'
'grpAviso
'
Me.grpAviso.Controls.Add(Me.txtDyRef)
Me.grpAviso.Controls.Add(Me.picDy)
Me.grpAviso.Controls.Add(Me.lblDy)
Me.grpAviso.Controls.Add(Me.kdAuftraggeber)
Me.grpAviso.Controls.Add(Me.kdAvisierer)
Me.grpAviso.Controls.Add(Me.kdFrächter)
@@ -759,49 +760,6 @@ Partial Class frmEintragAviso
Me.grpAviso.TabStop = False
Me.grpAviso.Text = "Aviso"
'
'Label22
'
Me.Label22.AutoSize = True
Me.Label22.Cursor = System.Windows.Forms.Cursors.Hand
Me.Label22.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label22.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Label22.Location = New System.Drawing.Point(296, 169)
Me.Label22.Name = "Label22"
Me.Label22.Size = New System.Drawing.Size(56, 13)
Me.Label22.TabIndex = 50
Me.Label22.Text = "= Avisierer"
'
'txtDyRef
'
Me.txtDyRef.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!)
Me.txtDyRef.Location = New System.Drawing.Point(24, 342)
Me.txtDyRef.MaxLength = 30
Me.txtDyRef.Name = "txtDyRef"
Me.txtDyRef.Size = New System.Drawing.Size(234, 20)
Me.txtDyRef.TabIndex = 48
Me.txtDyRef.Visible = False
'
'picDy
'
Me.picDy.BackgroundImage = Global.AVISO.My.Resources.Resources.dakosy_dy
Me.picDy.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.picDy.Location = New System.Drawing.Point(5, 342)
Me.picDy.Name = "picDy"
Me.picDy.Size = New System.Drawing.Size(20, 20)
Me.picDy.TabIndex = 49
Me.picDy.TabStop = False
Me.picDy.Visible = False
'
'lblDy
'
Me.lblDy.AutoSize = True
Me.lblDy.Location = New System.Drawing.Point(6, 328)
Me.lblDy.Name = "lblDy"
Me.lblDy.Size = New System.Drawing.Size(109, 13)
Me.lblDy.TabIndex = 47
Me.lblDy.Text = "Dakosy-Referenz-Nr.:"
Me.lblDy.Visible = False
'
'kdAuftraggeber
'
Me.kdAuftraggeber._AllowSetValue = True
@@ -1264,6 +1222,49 @@ Partial Class frmEintragAviso
Me.cbxAuftraggeberfurAlleSendungen.Text = "= Auftraggeber (für alle Sendungen)"
Me.cbxAuftraggeberfurAlleSendungen.UseVisualStyleBackColor = True
'
'Label22
'
Me.Label22.AutoSize = True
Me.Label22.Cursor = System.Windows.Forms.Cursors.Hand
Me.Label22.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label22.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Label22.Location = New System.Drawing.Point(296, 169)
Me.Label22.Name = "Label22"
Me.Label22.Size = New System.Drawing.Size(56, 13)
Me.Label22.TabIndex = 50
Me.Label22.Text = "= Avisierer"
'
'txtDyRef
'
Me.txtDyRef.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!)
Me.txtDyRef.Location = New System.Drawing.Point(509, 400)
Me.txtDyRef.MaxLength = 30
Me.txtDyRef.Name = "txtDyRef"
Me.txtDyRef.Size = New System.Drawing.Size(234, 20)
Me.txtDyRef.TabIndex = 48
Me.txtDyRef.Visible = False
'
'picDy
'
Me.picDy.BackgroundImage = Global.AVISO.My.Resources.Resources.dakosy_dy
Me.picDy.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.picDy.Location = New System.Drawing.Point(490, 400)
Me.picDy.Name = "picDy"
Me.picDy.Size = New System.Drawing.Size(20, 20)
Me.picDy.TabIndex = 49
Me.picDy.TabStop = False
Me.picDy.Visible = False
'
'lblDy
'
Me.lblDy.AutoSize = True
Me.lblDy.Location = New System.Drawing.Point(491, 386)
Me.lblDy.Name = "lblDy"
Me.lblDy.Size = New System.Drawing.Size(109, 13)
Me.lblDy.TabIndex = 47
Me.lblDy.Text = "Dakosy-Referenz-Nr.:"
Me.lblDy.Visible = False
'
'grpAktVerzollung
'
Me.grpAktVerzollung.Controls.Add(Me.lblSendungsanzahl)
@@ -1554,6 +1555,35 @@ Partial Class frmEintragAviso
Me.UsrCntlEintragAvisoAtilla.TabIndex = 12
Me.UsrCntlEintragAvisoAtilla.Visible = False
'
'dgvAnhaenge
'
Me.dgvAnhaenge.AKTUALISIERUNGS_INTERVALL = -1
Me.dgvAnhaenge.AllowUserToAddRows = False
Me.dgvAnhaenge.AllowUserToDeleteRows = False
Me.dgvAnhaenge.AllowUserToResizeColumns = False
Me.dgvAnhaenge.AllowUserToResizeRows = False
Me.dgvAnhaenge.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.dgvAnhaenge.BackgroundColor = System.Drawing.Color.White
Me.dgvAnhaenge.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvAnhaenge.ColumnHeadersVisible = False
Me.dgvAnhaenge.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.columnName})
Me.dgvAnhaenge.Location = New System.Drawing.Point(424, 278)
Me.dgvAnhaenge.Name = "dgvAnhaenge"
Me.dgvAnhaenge.ReadOnly = True
Me.dgvAnhaenge.RowHeadersVisible = False
Me.dgvAnhaenge.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.dgvAnhaenge.Size = New System.Drawing.Size(360, 327)
Me.dgvAnhaenge.TabIndex = 23
Me.dgvAnhaenge.Visible = False
'
'columnName
'
Me.columnName.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
Me.columnName.HeaderText = "Name"
Me.columnName.Name = "columnName"
Me.columnName.ReadOnly = True
'
'frmEintragAviso
'
Me.AcceptButton = Me.btnOK
@@ -1561,6 +1591,10 @@ Partial Class frmEintragAviso
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.White
Me.ClientSize = New System.Drawing.Size(792, 611)
Me.Controls.Add(Me.txtDyRef)
Me.Controls.Add(Me.picDy)
Me.Controls.Add(Me.lblDy)
Me.Controls.Add(Me.dgvAnhaenge)
Me.Controls.Add(Me.cboPrinter)
Me.Controls.Add(Me.cbxSendungsvorlagen)
Me.Controls.Add(Me.Button3)
@@ -1590,14 +1624,15 @@ Partial Class frmEintragAviso
Me.panAdmin.PerformLayout()
Me.grpAviso.ResumeLayout(False)
Me.grpAviso.PerformLayout()
CType(Me.picDy, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.pic, System.ComponentModel.ISupportInitialize).EndInit()
Me.grp.ResumeLayout(False)
Me.grp.PerformLayout()
CType(Me.picDy, System.ComponentModel.ISupportInitialize).EndInit()
Me.grpAktVerzollung.ResumeLayout(False)
Me.grpAktVerzollung.PerformLayout()
Me.pnlSBG.ResumeLayout(False)
Me.pnlSBG.PerformLayout()
CType(Me.dgvAnhaenge, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
@@ -1712,4 +1747,6 @@ Partial Class frmEintragAviso
Friend WithEvents picDy As PictureBox
Friend WithEvents lblDy As Label
Friend WithEvents Label22 As Label
Friend WithEvents dgvAnhaenge As VERAG_PROG_ALLGEMEIN.MyDatagridview
Friend WithEvents columnName As DataGridViewTextBoxColumn
End Class

3
Aviso/frmEintragAviso.resx
View File

@@ -210,6 +210,9 @@
GthsjMjd738Gj5ASh80mtVrtUpqmOT8ASDXvdskQmQUAAAAASUVORK5CYII=
</value>
</data>
<metadata name="columnName.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAABAAEAgIAAAAEAIAAoCAEAFgAAACgAAACAAAAAAAEAAAEAIAAAAAAAAAgBABMLAAATCwAAAAAAAAAA

90
Aviso/frmEintragAviso.vb
View File

@@ -27,6 +27,7 @@ Public Class frmEintragAviso
Public AktenzetteldruckenVisible = False
Public TMP_SND_Atilla As VERAG_PROG_ALLGEMEIN.cSendungen = Nothing
Public ATT As List(Of String)
Dim PROG As New cProgramFunctions
Public Sub New()
@@ -53,7 +54,29 @@ Public Class frmEintragAviso
End If
End Sub
Sub initAttachment()
If ATT Is Nothing Then dgvAnhaenge.Visible = False : Exit Sub
dgvAnhaenge.Rows.Clear()
If ATT.Count = 0 Then
' btnSaveAttachments.Enabled = False
Else
dgvAnhaenge.Visible = True
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" Then
dgvAnhaenge.Visible = False
'dgvAnhaenge.Size = New Size(dgvAnhaenge.Size.Width, 70)
'dgvAnhaenge.Top += (dgvAnhaenge.Size.Height - 70)
End If
For Each a In ATT
Dim display = a
If a.Contains("\") Then
Dim sp = a.Split("\")
display = sp(sp.Count - 1)
End If
dgvAnhaenge.Rows.Add({display})
Next
End If
dgvAnhaenge.ClearSelection()
End Sub
Private Sub frmEintragAviso_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
@@ -88,15 +111,18 @@ Public Class frmEintragAviso
lblFiskAT.Visible = False
txtSndFiskalDE.Visible = False
lblFiskDE.Visible = False
Label1.Visible = True
cboImEx.Visible = True
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"})
txtBestimmungszollstelle.Visible = True
lblZA.Visible = True
Case "UNISPED"
lblDy.Visible = True
txtDyRef.Visible = True
picDy.Visible = True
Label1.Visible = True
cboImEx.Visible = True
' lblDy.Visible = True
' txtDyRef.Visible = True
' picDy.Visible = True
End Select
@@ -118,6 +144,12 @@ Public Class frmEintragAviso
txtSndFremd.Visible = True
lblSndFremd.Visible = True
End Select
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "FRONTOFFICE"
cbxSendungsvorlagen.Checked = False
cbxPosNr.Checked = False
End Select
If VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME.Contains("ANNAHME") Then cbxSendungsvorlagen.Checked = False
@@ -403,8 +435,24 @@ Public Class frmEintragAviso
dtpAvisoEingangZeit.Enabled = bearb
End If
initAttachment()
End Sub
Private Sub dgvAnhaenge_KeyDown(sender As Object, e As KeyEventArgs) Handles dgvAnhaenge.KeyDown
If e.KeyCode = Keys.Delete Then
If dgvAnhaenge.SelectedRows.Count > 0 Then
For Each row In dgvAnhaenge.SelectedRows.Cast(Of DataGridViewRow)().OrderByDescending(Function(dgvr) dgvr.Index)
ATT.RemoveAt(row.Index)
Next
'ATT.RemoveAt(dgvAnhaenge.SelectedRows(0).Index) 'Inex-Rows = Index-Att
initAttachment()
End If
End If
End Sub
Private Sub btnAbbruch_Click(sender As System.Object, e As System.EventArgs) Handles btnAbbruch.Click
'Irgendwas wurde geändert, deshalb ein Hinweis, ob auch wirklich abgebrochen werden soll
@@ -670,6 +718,7 @@ Public Class frmEintragAviso
' myAviso.Info = txtInfo.Text.Trim ' jetzt in Vermerke gespeichert!!
myAviso.Info = ""
myAviso.letzterMitarbeiter = cGlobal.AktiverMitarbeiter.Mitarbeiter
myAviso.TeamId = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" Then
myAviso.Grenzstelle = "SUB"
Else
@@ -769,6 +818,7 @@ Public Class frmEintragAviso
End If
myAviso.FIRMA = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
myAviso.Cluster = If(VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER, "")
'If myAviso.FIRMA = "IMEX" Then
@@ -837,7 +887,7 @@ Public Class frmEintragAviso
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
End Try
Case "IMEX"
Case "IMEX", "UNISPED", "AMBAR", "FRONTOFFICE"
Dim anzahlSendungen = ADMIN.getValueTxtBySql("SELECT count(*) FROM tblSendungen WHERE tblSnd_AvisoID=" & tmpId, "AVISO") ' bei Neuanlage=0
'Die Sendungen eintragen:
@@ -848,7 +898,7 @@ Public Class frmEintragAviso
MsgBox("Es wurden bereits " & anzahlSendungen & " Sendungen hinzugefügt. Um die Anzahl zu reduzieren, löschen Sie die entsprechenden Sendungen.")
showSendungsdetails = True ' Damit der benutzer gleich die Sendungen sieht und ggf löschen kann.
Else
Dim filiale_tmp As Integer = 5501
Dim filiale_tmp As Integer = VERAG_PROG_ALLGEMEIN.cAllgemein.STAMMFILIALE
Dim gesAnzSnd = initSndAnzahl()
For cnt As Integer = anzahlSendungen + 1 To gesAnzSnd
@@ -1024,7 +1074,7 @@ Public Class frmEintragAviso
End Sub
Sub getFilialeAndAbfertNrIMEX(ByVal cnt, ByRef filialeNr, ByRef abfertigungsNr, ByRef fremd, ByRef abfart)
abfart = DBNull.Value
filialeNr = 5501
filialeNr = VERAG_PROG_ALLGEMEIN.cAllgemein.STAMMFILIALE
If cnt <= txtSendungen.Text Then
ElseIf (cnt - txtSendungen.Text) <= txtSndFiskalAT.Text Then
abfart = 26
@@ -1205,18 +1255,20 @@ Public Class frmEintragAviso
End Sub
Private Function bereits_angelegt(hFirma As String) As Boolean
Dim checkEintrag As New cFirma
Dim hSQL As String = "SELECT * FROM Firmen WHERE Firma = '" & hFirma.Trim & "'"
'Private Function bereits_angelegt(hFirma As String) As Boolean
' Dim checkEintrag As New cFirma
checkEintrag = Firmen.LesenFirma(0, "", hSQL)
If IsNothing(checkEintrag) Then
Return False
Else
Return True
End If
End Function
' Dim hSQL As String = "SELECT * FROM Firmen WHERE " & firma
' checkEintrag = Firmen.LesenFirma(0, "", hSQL)
' If IsNothing(checkEintrag) Then
' Return False
' Else
' Return True
' End If
'End Function
Private Sub btnFirmaNeu_Fraechter(sender As System.Object, e As System.EventArgs) Handles Button4.Click
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Kundendaten_bearbeiten", "SDL") Then
@@ -1445,8 +1497,8 @@ Public Class frmEintragAviso
Private Sub cboGrenzstelle_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboGrenzstelle.SelectedIndexChanged
cboImEx.Visible = (cboGrenzstelle.Text = "WAI" Or VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "IMEX")
Label1.Visible = (cboGrenzstelle.Text = "WAI" Or VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "IMEX")
cboImEx.Visible = (cboGrenzstelle.Text = "WAI" Or VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "IMEX" Or VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "UNISPED")
Label1.Visible = (cboGrenzstelle.Text = "WAI" Or VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "IMEX" Or VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "UNISPED")
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG" Then
If cboGrenzstelle.Text = "???" Then

398
Aviso/frmHauptfenster.Designer.vb generated
View File

@@ -24,12 +24,12 @@ Partial Class frmHauptfenster
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmHauptfenster))
Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle11 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle12 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Me.mnuInfo = New System.Windows.Forms.ToolStripMenuItem()
Me.conÜbernehmen = New System.Windows.Forms.ToolStripMenuItem()
Me.conMenuAviso = New System.Windows.Forms.ContextMenuStrip(Me.components)
@@ -63,6 +63,7 @@ Partial Class frmHauptfenster
Me.EMAILTESTToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.FreigabeMailTestToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.SDLProgrammStartenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.TESTToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripSeparator4 = New System.Windows.Forms.ToolStripSeparator()
Me.FirmaWechselnToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.VERAGToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
@@ -87,7 +88,6 @@ Partial Class frmHauptfenster
Me.ToolStripMenuItem3 = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem4 = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem5 = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem6 = New System.Windows.Forms.ToolStripMenuItem()
Me.BürgschaftenExcelToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem10 = New System.Windows.Forms.ToolStripMenuItem()
Me.TICKETWaidhausToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
@@ -154,7 +154,6 @@ Partial Class frmHauptfenster
Me.btnDienstplan = New System.Windows.Forms.Button()
Me.btnRg = New System.Windows.Forms.Button()
Me.btnKassenbuch = New System.Windows.Forms.Button()
Me.btnGenerelleGestellungen = New System.Windows.Forms.Button()
Me.btnRefresh = New System.Windows.Forms.Button()
Me.btnDrucken = New System.Windows.Forms.Button()
Me.Button3 = New System.Windows.Forms.Button()
@@ -181,6 +180,8 @@ Partial Class frmHauptfenster
Me.lblSuche = New System.Windows.Forms.Label()
Me.SplitContainer2 = New System.Windows.Forms.SplitContainer()
Me.pnlLinks = New System.Windows.Forms.Panel()
Me.Label20 = New System.Windows.Forms.Label()
Me.picAVISOMessenger = New System.Windows.Forms.PictureBox()
Me.pic = New System.Windows.Forms.PictureBox()
Me.lblHinweis = New System.Windows.Forms.Label()
Me.lblErrVermerk = New System.Windows.Forms.Label()
@@ -190,6 +191,13 @@ Partial Class frmHauptfenster
Me.btnNeu = New System.Windows.Forms.Button()
Me.gridMyAviso = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.Panel6 = New System.Windows.Forms.Panel()
Me.cboMy_Grenzstelle = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Label18 = New System.Windows.Forms.Label()
Me.cbx_My_LKW = New System.Windows.Forms.CheckBox()
Me.cboMy_QS = New System.Windows.Forms.CheckBox()
Me.cboMy_VB = New System.Windows.Forms.CheckBox()
Me.cboMyAvisoAnzeige = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Label17 = New System.Windows.Forms.Label()
Me.lblMeineAviso = New System.Windows.Forms.Label()
Me.lblAkte = New System.Windows.Forms.Label()
Me.btnClose = New System.Windows.Forms.Button()
@@ -210,14 +218,19 @@ Partial Class frmHauptfenster
Me.splitMain = New System.Windows.Forms.SplitContainer()
Me.gridAviso = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.Panel1 = New System.Windows.Forms.Panel()
Me.cbxCluster = New System.Windows.Forms.CheckBox()
Me.cboTeams = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.lklErweitereSuche = New System.Windows.Forms.LinkLabel()
Me.Label16 = New System.Windows.Forms.Label()
Me.Label8 = New System.Windows.Forms.Label()
Me.lblEintraege = New System.Windows.Forms.Label()
Me.cboGrenzstelle = New System.Windows.Forms.ComboBox()
Me.cboGrenzstelle = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Label4 = New System.Windows.Forms.Label()
Me.pnlTime = New System.Windows.Forms.Panel()
Me.MyComboBox1 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.pnlSearch = New System.Windows.Forms.Panel()
Me.txtDyRef = New System.Windows.Forms.TextBox()
Me.Label19 = New System.Windows.Forms.Label()
Me.Label15 = New System.Windows.Forms.Label()
Me.txtlkwId = New System.Windows.Forms.TextBox()
Me.cbxNE = New System.Windows.Forms.CheckBox()
@@ -254,7 +267,7 @@ Partial Class frmHauptfenster
Me.BundesanzeigerToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.EUTaricToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.UsrCntlTestsystem1 = New VERAG_PROG_ALLGEMEIN.usrCntlTestsystem()
Me.TESTToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.TimerMessanger_NewMessages = New System.Windows.Forms.Timer(Me.components)
Me.conMenuAviso.SuspendLayout()
Me.MenuStrip1.SuspendLayout()
Me.Top.SuspendLayout()
@@ -263,6 +276,7 @@ Partial Class frmHauptfenster
Me.SplitContainer2.Panel2.SuspendLayout()
Me.SplitContainer2.SuspendLayout()
Me.pnlLinks.SuspendLayout()
CType(Me.picAVISOMessenger, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
Me.pnlLinksOben.SuspendLayout()
CType(Me.gridMyAviso, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -495,6 +509,12 @@ Partial Class frmHauptfenster
Me.SDLProgrammStartenToolStripMenuItem.Size = New System.Drawing.Size(193, 22)
Me.SDLProgrammStartenToolStripMenuItem.Text = "SDL Programm starten"
'
'TESTToolStripMenuItem
'
Me.TESTToolStripMenuItem.Name = "TESTToolStripMenuItem"
Me.TESTToolStripMenuItem.Size = New System.Drawing.Size(193, 22)
Me.TESTToolStripMenuItem.Text = "TEST"
'
'ToolStripSeparator4
'
Me.ToolStripSeparator4.Name = "ToolStripSeparator4"
@@ -565,7 +585,7 @@ Partial Class frmHauptfenster
'
'FunktionenToolStripMenuItem
'
Me.FunktionenToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.GenerelleGestellungenDurchsuchenToolStripMenuItem, Me.KundenVonFremdenSpeditionenToolStripMenuItem, Me.KundenverwaltungToolStripMenuItem, Me.MDMParkplatzkartenToolStripMenuItem, Me.SMSSendenToolStripMenuItem, Me.ZollprogrammeNachEORIDurchsuchenToolStripMenuItem, Me.ToolStripSeparator12, Me.ToolStripMenuItem3, Me.ToolStripMenuItem4, Me.ToolStripMenuItem5, Me.ToolStripMenuItem6, Me.BürgschaftenExcelToolStripMenuItem, Me.ToolStripMenuItem10, Me.TICKETWaidhausToolStripMenuItem, Me.ToolStripSeparator10, Me.DAKOSYToolStripMenuItem, Me.ToolStripSeparator11, Me.SDLAbholaufträgeToolStripMenuItem, Me.ToolStripMenuItem13, Me.VorauskassenToolStripMenuItem})
Me.FunktionenToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.GenerelleGestellungenDurchsuchenToolStripMenuItem, Me.KundenVonFremdenSpeditionenToolStripMenuItem, Me.KundenverwaltungToolStripMenuItem, Me.MDMParkplatzkartenToolStripMenuItem, Me.SMSSendenToolStripMenuItem, Me.ZollprogrammeNachEORIDurchsuchenToolStripMenuItem, Me.ToolStripSeparator12, Me.ToolStripMenuItem3, Me.ToolStripMenuItem4, Me.ToolStripMenuItem5, Me.BürgschaftenExcelToolStripMenuItem, Me.ToolStripMenuItem10, Me.TICKETWaidhausToolStripMenuItem, Me.ToolStripSeparator10, Me.DAKOSYToolStripMenuItem, Me.ToolStripSeparator11, Me.SDLAbholaufträgeToolStripMenuItem, Me.ToolStripMenuItem13, Me.VorauskassenToolStripMenuItem})
Me.FunktionenToolStripMenuItem.Name = "FunktionenToolStripMenuItem"
Me.FunktionenToolStripMenuItem.Size = New System.Drawing.Size(79, 20)
Me.FunktionenToolStripMenuItem.Text = "Funktionen"
@@ -575,6 +595,7 @@ Partial Class frmHauptfenster
Me.GenerelleGestellungenDurchsuchenToolStripMenuItem.Name = "GenerelleGestellungenDurchsuchenToolStripMenuItem"
Me.GenerelleGestellungenDurchsuchenToolStripMenuItem.Size = New System.Drawing.Size(354, 22)
Me.GenerelleGestellungenDurchsuchenToolStripMenuItem.Text = "Generelle Gestellungen durchsuchen"
Me.GenerelleGestellungenDurchsuchenToolStripMenuItem.Visible = False
'
'KundenVonFremdenSpeditionenToolStripMenuItem
'
@@ -644,13 +665,6 @@ Partial Class frmHauptfenster
Me.ToolStripMenuItem5.Text = "AT | Gesamtsicherheit VERAG AG - Excel"
Me.ToolStripMenuItem5.Visible = False
'
'ToolStripMenuItem6
'
Me.ToolStripMenuItem6.Name = "ToolStripMenuItem6"
Me.ToolStripMenuItem6.Size = New System.Drawing.Size(354, 22)
Me.ToolStripMenuItem6.Text = "AT | Gesamtsicherheit VERAG Customs Service - Excel"
Me.ToolStripMenuItem6.Visible = False
'
'BürgschaftenExcelToolStripMenuItem
'
Me.BürgschaftenExcelToolStripMenuItem.Name = "BürgschaftenExcelToolStripMenuItem"
@@ -983,7 +997,7 @@ Partial Class frmHauptfenster
'
Me.btnWoche.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnWoche.ForeColor = System.Drawing.Color.White
Me.btnWoche.Location = New System.Drawing.Point(208, 0)
Me.btnWoche.Location = New System.Drawing.Point(251, 0)
Me.btnWoche.Name = "btnWoche"
Me.btnWoche.Size = New System.Drawing.Size(64, 25)
Me.btnWoche.TabIndex = 2
@@ -995,7 +1009,7 @@ Partial Class frmHauptfenster
'
Me.btnGestern.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnGestern.ForeColor = System.Drawing.Color.White
Me.btnGestern.Location = New System.Drawing.Point(151, 0)
Me.btnGestern.Location = New System.Drawing.Point(194, 0)
Me.btnGestern.Name = "btnGestern"
Me.btnGestern.Size = New System.Drawing.Size(58, 25)
Me.btnGestern.TabIndex = 1
@@ -1007,7 +1021,7 @@ Partial Class frmHauptfenster
'
Me.btnHeute.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnHeute.ForeColor = System.Drawing.Color.White
Me.btnHeute.Location = New System.Drawing.Point(102, 0)
Me.btnHeute.Location = New System.Drawing.Point(145, 0)
Me.btnHeute.Name = "btnHeute"
Me.btnHeute.Size = New System.Drawing.Size(50, 25)
Me.btnHeute.TabIndex = 0
@@ -1066,7 +1080,6 @@ Partial Class frmHauptfenster
Me.Top.Controls.Add(Me.btnDienstplan)
Me.Top.Controls.Add(Me.btnRg)
Me.Top.Controls.Add(Me.btnKassenbuch)
Me.Top.Controls.Add(Me.btnGenerelleGestellungen)
Me.Top.Controls.Add(Me.btnRefresh)
Me.Top.Controls.Add(Me.btnDrucken)
Me.Top.Controls.Add(Me.Button3)
@@ -1121,7 +1134,7 @@ Partial Class frmHauptfenster
Me.btnDienstplan.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnDienstplan.ForeColor = System.Drawing.Color.Black
Me.btnDienstplan.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnDienstplan.Location = New System.Drawing.Point(1013, 6)
Me.btnDienstplan.Location = New System.Drawing.Point(1005, 6)
Me.btnDienstplan.Margin = New System.Windows.Forms.Padding(0)
Me.btnDienstplan.Name = "btnDienstplan"
Me.btnDienstplan.Size = New System.Drawing.Size(103, 39)
@@ -1164,22 +1177,6 @@ Partial Class frmHauptfenster
Me.btnKassenbuch.UseVisualStyleBackColor = True
Me.btnKassenbuch.Visible = False
'
'btnGenerelleGestellungen
'
Me.btnGenerelleGestellungen.Cursor = System.Windows.Forms.Cursors.Default
Me.btnGenerelleGestellungen.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnGenerelleGestellungen.ForeColor = System.Drawing.Color.Black
Me.btnGenerelleGestellungen.Image = Global.AVISO.My.Resources.Resources.searchGG
Me.btnGenerelleGestellungen.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnGenerelleGestellungen.Location = New System.Drawing.Point(616, 6)
Me.btnGenerelleGestellungen.Name = "btnGenerelleGestellungen"
Me.btnGenerelleGestellungen.Size = New System.Drawing.Size(111, 39)
Me.btnGenerelleGestellungen.TabIndex = 6
Me.btnGenerelleGestellungen.TabStop = False
Me.btnGenerelleGestellungen.Text = "Generelle" & Global.Microsoft.VisualBasic.ChrW(10) & "Gestellungen"
Me.btnGenerelleGestellungen.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnGenerelleGestellungen.UseVisualStyleBackColor = True
'
'btnRefresh
'
Me.btnRefresh.Cursor = System.Windows.Forms.Cursors.Default
@@ -1188,7 +1185,7 @@ Partial Class frmHauptfenster
Me.btnRefresh.ForeColor = System.Drawing.Color.Black
Me.btnRefresh.Image = Global.AVISO.My.Resources.Resources.refresh
Me.btnRefresh.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnRefresh.Location = New System.Drawing.Point(875, 6)
Me.btnRefresh.Location = New System.Drawing.Point(854, 6)
Me.btnRefresh.Margin = New System.Windows.Forms.Padding(0)
Me.btnRefresh.Name = "btnRefresh"
Me.btnRefresh.Size = New System.Drawing.Size(135, 39)
@@ -1214,7 +1211,7 @@ Partial Class frmHauptfenster
'
'Button3
'
Me.Button3.Location = New System.Drawing.Point(944, 28)
Me.Button3.Location = New System.Drawing.Point(642, 14)
Me.Button3.Name = "Button3"
Me.Button3.Size = New System.Drawing.Size(75, 23)
Me.Button3.TabIndex = 5
@@ -1361,7 +1358,7 @@ Partial Class frmHauptfenster
'dtpBis
'
Me.dtpBis.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
Me.dtpBis.Location = New System.Drawing.Point(172, 33)
Me.dtpBis.Location = New System.Drawing.Point(215, 33)
Me.dtpBis.Name = "dtpBis"
Me.dtpBis.Size = New System.Drawing.Size(100, 20)
Me.dtpBis.TabIndex = 4
@@ -1369,7 +1366,7 @@ Partial Class frmHauptfenster
'dtpVon
'
Me.dtpVon.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
Me.dtpVon.Location = New System.Drawing.Point(42, 33)
Me.dtpVon.Location = New System.Drawing.Point(85, 33)
Me.dtpVon.Name = "dtpVon"
Me.dtpVon.Size = New System.Drawing.Size(100, 20)
Me.dtpVon.TabIndex = 3
@@ -1378,7 +1375,7 @@ Partial Class frmHauptfenster
'
Me.Label5.AutoSize = True
Me.Label5.ForeColor = System.Drawing.Color.White
Me.Label5.Location = New System.Drawing.Point(13, 36)
Me.Label5.Location = New System.Drawing.Point(56, 36)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(25, 13)
Me.Label5.TabIndex = 6
@@ -1388,7 +1385,7 @@ Partial Class frmHauptfenster
'
Me.Label2.AutoSize = True
Me.Label2.ForeColor = System.Drawing.Color.White
Me.Label2.Location = New System.Drawing.Point(148, 36)
Me.Label2.Location = New System.Drawing.Point(191, 36)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(20, 13)
Me.Label2.TabIndex = 5
@@ -1490,13 +1487,15 @@ Partial Class frmHauptfenster
Me.SplitContainer2.Panel2.Controls.Add(Me.gridMyAviso)
Me.SplitContainer2.Panel2.Controls.Add(Me.Panel6)
Me.SplitContainer2.Panel2MinSize = 650
Me.SplitContainer2.Size = New System.Drawing.Size(720, 228)
Me.SplitContainer2.Size = New System.Drawing.Size(720, 298)
Me.SplitContainer2.SplitterDistance = 69
Me.SplitContainer2.SplitterWidth = 1
Me.SplitContainer2.TabIndex = 0
'
'pnlLinks
'
Me.pnlLinks.Controls.Add(Me.Label20)
Me.pnlLinks.Controls.Add(Me.picAVISOMessenger)
Me.pnlLinks.Controls.Add(Me.pic)
Me.pnlLinks.Controls.Add(Me.lblHinweis)
Me.pnlLinks.Controls.Add(Me.lblErrVermerk)
@@ -1507,9 +1506,33 @@ Partial Class frmHauptfenster
Me.pnlLinks.Dock = System.Windows.Forms.DockStyle.Fill
Me.pnlLinks.Location = New System.Drawing.Point(0, 43)
Me.pnlLinks.Name = "pnlLinks"
Me.pnlLinks.Size = New System.Drawing.Size(69, 185)
Me.pnlLinks.Size = New System.Drawing.Size(69, 255)
Me.pnlLinks.TabIndex = 0
'
'Label20
'
Me.Label20.BackColor = System.Drawing.Color.Transparent
Me.Label20.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label20.ForeColor = System.Drawing.Color.Red
Me.Label20.Location = New System.Drawing.Point(48, 226)
Me.Label20.Name = "Label20"
Me.Label20.Size = New System.Drawing.Size(24, 16)
Me.Label20.TabIndex = 9
Me.Label20.Text = "99"
Me.Label20.Visible = False
'
'picAVISOMessenger
'
Me.picAVISOMessenger.BackgroundImage = Global.AVISO.My.Resources.Resources.aviso_messenger
Me.picAVISOMessenger.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.picAVISOMessenger.Cursor = System.Windows.Forms.Cursors.Hand
Me.picAVISOMessenger.Location = New System.Drawing.Point(1, 178)
Me.picAVISOMessenger.Name = "picAVISOMessenger"
Me.picAVISOMessenger.Size = New System.Drawing.Size(59, 55)
Me.picAVISOMessenger.TabIndex = 7
Me.picAVISOMessenger.TabStop = False
Me.picAVISOMessenger.Visible = False
'
'pic
'
Me.pic.BackgroundImage = Global.AVISO.My.Resources.Resources.disconnect
@@ -1538,9 +1561,9 @@ Partial Class frmHauptfenster
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblErrVermerk.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!)
Me.lblErrVermerk.ForeColor = System.Drawing.Color.Red
Me.lblErrVermerk.Location = New System.Drawing.Point(2, 89)
Me.lblErrVermerk.Location = New System.Drawing.Point(2, 159)
Me.lblErrVermerk.Name = "lblErrVermerk"
Me.lblErrVermerk.Size = New System.Drawing.Size(67, 109)
Me.lblErrVermerk.Size = New System.Drawing.Size(44, 27)
Me.lblErrVermerk.TabIndex = 1
Me.lblErrVermerk.Text = "Bei diesem Status kann kein Vermerk erfasst werden!"
Me.lblErrVermerk.TextAlign = System.Drawing.ContentAlignment.BottomLeft
@@ -1563,7 +1586,7 @@ Partial Class frmHauptfenster
Me.lblVersion.AutoSize = True
Me.lblVersion.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblVersion.ForeColor = System.Drawing.Color.Black
Me.lblVersion.Location = New System.Drawing.Point(3, 172)
Me.lblVersion.Location = New System.Drawing.Point(3, 242)
Me.lblVersion.Name = "lblVersion"
Me.lblVersion.Size = New System.Drawing.Size(47, 13)
Me.lblVersion.TabIndex = 6
@@ -1601,8 +1624,8 @@ Partial Class frmHauptfenster
Me.gridMyAviso.AllowUserToDeleteRows = False
Me.gridMyAviso.AllowUserToOrderColumns = True
Me.gridMyAviso.AllowUserToResizeRows = False
DataGridViewCellStyle1.BackColor = System.Drawing.Color.Azure
Me.gridMyAviso.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
DataGridViewCellStyle7.BackColor = System.Drawing.Color.Azure
Me.gridMyAviso.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle7
Me.gridMyAviso.BackgroundColor = System.Drawing.Color.White
Me.gridMyAviso.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.gridMyAviso.Dock = System.Windows.Forms.DockStyle.Fill
@@ -1610,12 +1633,19 @@ Partial Class frmHauptfenster
Me.gridMyAviso.Name = "gridMyAviso"
Me.gridMyAviso.ReadOnly = True
Me.gridMyAviso.RowHeadersVisible = False
Me.gridMyAviso.Size = New System.Drawing.Size(650, 207)
Me.gridMyAviso.Size = New System.Drawing.Size(650, 277)
Me.gridMyAviso.TabIndex = 0
'
'Panel6
'
Me.Panel6.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Panel6.Controls.Add(Me.cboMy_Grenzstelle)
Me.Panel6.Controls.Add(Me.Label18)
Me.Panel6.Controls.Add(Me.cbx_My_LKW)
Me.Panel6.Controls.Add(Me.cboMy_QS)
Me.Panel6.Controls.Add(Me.cboMy_VB)
Me.Panel6.Controls.Add(Me.cboMyAvisoAnzeige)
Me.Panel6.Controls.Add(Me.Label17)
Me.Panel6.Controls.Add(Me.lblMeineAviso)
Me.Panel6.Controls.Add(Me.lblAkte)
Me.Panel6.Dock = System.Windows.Forms.DockStyle.Top
@@ -1624,6 +1654,100 @@ Partial Class frmHauptfenster
Me.Panel6.Size = New System.Drawing.Size(650, 21)
Me.Panel6.TabIndex = 1
'
'cboMy_Grenzstelle
'
Me.cboMy_Grenzstelle._allowedValuesFreiText = Nothing
Me.cboMy_Grenzstelle._allowFreiText = False
Me.cboMy_Grenzstelle._value = ""
Me.cboMy_Grenzstelle.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.cboMy_Grenzstelle.BackColor = System.Drawing.Color.WhiteSmoke
Me.cboMy_Grenzstelle.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cboMy_Grenzstelle.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.cboMy_Grenzstelle.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.cboMy_Grenzstelle.FormattingEnabled = True
Me.cboMy_Grenzstelle.Location = New System.Drawing.Point(345, 1)
Me.cboMy_Grenzstelle.Name = "cboMy_Grenzstelle"
Me.cboMy_Grenzstelle.Size = New System.Drawing.Size(64, 21)
Me.cboMy_Grenzstelle.TabIndex = 26
'
'Label18
'
Me.Label18.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label18.AutoSize = True
Me.Label18.ForeColor = System.Drawing.Color.White
Me.Label18.Location = New System.Drawing.Point(277, 4)
Me.Label18.Name = "Label18"
Me.Label18.Size = New System.Drawing.Size(62, 13)
Me.Label18.TabIndex = 25
Me.Label18.Text = "Grenzstelle:"
'
'cbx_My_LKW
'
Me.cbx_My_LKW.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.cbx_My_LKW.AutoSize = True
Me.cbx_My_LKW.ForeColor = System.Drawing.Color.White
Me.cbx_My_LKW.Location = New System.Drawing.Point(221, 3)
Me.cbx_My_LKW.Name = "cbx_My_LKW"
Me.cbx_My_LKW.Size = New System.Drawing.Size(50, 17)
Me.cbx_My_LKW.TabIndex = 24
Me.cbx_My_LKW.Text = "LKW"
Me.cbx_My_LKW.UseVisualStyleBackColor = True
'
'cboMy_QS
'
Me.cboMy_QS.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.cboMy_QS.AutoSize = True
Me.cboMy_QS.Checked = True
Me.cboMy_QS.CheckState = System.Windows.Forms.CheckState.Indeterminate
Me.cboMy_QS.ForeColor = System.Drawing.Color.White
Me.cboMy_QS.Location = New System.Drawing.Point(607, 3)
Me.cboMy_QS.Name = "cboMy_QS"
Me.cboMy_QS.Size = New System.Drawing.Size(15, 14)
Me.cboMy_QS.TabIndex = 23
Me.cboMy_QS.ThreeState = True
Me.cboMy_QS.UseVisualStyleBackColor = True
'
'cboMy_VB
'
Me.cboMy_VB.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.cboMy_VB.AutoSize = True
Me.cboMy_VB.Checked = True
Me.cboMy_VB.CheckState = System.Windows.Forms.CheckState.Indeterminate
Me.cboMy_VB.ForeColor = System.Drawing.Color.White
Me.cboMy_VB.Location = New System.Drawing.Point(628, 3)
Me.cboMy_VB.Name = "cboMy_VB"
Me.cboMy_VB.Size = New System.Drawing.Size(15, 14)
Me.cboMy_VB.TabIndex = 22
Me.cboMy_VB.ThreeState = True
Me.cboMy_VB.UseVisualStyleBackColor = True
'
'cboMyAvisoAnzeige
'
Me.cboMyAvisoAnzeige._allowedValuesFreiText = Nothing
Me.cboMyAvisoAnzeige._allowFreiText = False
Me.cboMyAvisoAnzeige._value = ""
Me.cboMyAvisoAnzeige.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.cboMyAvisoAnzeige.BackColor = System.Drawing.Color.WhiteSmoke
Me.cboMyAvisoAnzeige.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cboMyAvisoAnzeige.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.cboMyAvisoAnzeige.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.cboMyAvisoAnzeige.FormattingEnabled = True
Me.cboMyAvisoAnzeige.Location = New System.Drawing.Point(464, 1)
Me.cboMyAvisoAnzeige.Name = "cboMyAvisoAnzeige"
Me.cboMyAvisoAnzeige.Size = New System.Drawing.Size(127, 21)
Me.cboMyAvisoAnzeige.TabIndex = 21
'
'Label17
'
Me.Label17.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label17.AutoSize = True
Me.Label17.ForeColor = System.Drawing.Color.White
Me.Label17.Location = New System.Drawing.Point(415, 3)
Me.Label17.Name = "Label17"
Me.Label17.Size = New System.Drawing.Size(48, 13)
Me.Label17.TabIndex = 20
Me.Label17.Text = "Anzeige:"
'
'lblMeineAviso
'
Me.lblMeineAviso.AutoSize = True
@@ -1631,9 +1755,9 @@ Partial Class frmHauptfenster
Me.lblMeineAviso.ForeColor = System.Drawing.Color.White
Me.lblMeineAviso.Location = New System.Drawing.Point(4, 6)
Me.lblMeineAviso.Name = "lblMeineAviso"
Me.lblMeineAviso.Size = New System.Drawing.Size(80, 13)
Me.lblMeineAviso.Size = New System.Drawing.Size(113, 13)
Me.lblMeineAviso.TabIndex = 0
Me.lblMeineAviso.Text = "Meine Aviso:"
Me.lblMeineAviso.Text = "Meine Sendungen:"
'
'lblAkte
'
@@ -1737,7 +1861,7 @@ Partial Class frmHauptfenster
Me.Button8.ForeColor = System.Drawing.Color.Black
Me.Button8.Image = CType(resources.GetObject("Button8.Image"), System.Drawing.Image)
Me.Button8.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button8.Location = New System.Drawing.Point(489, 214)
Me.Button8.Location = New System.Drawing.Point(362, 214)
Me.Button8.Name = "Button8"
Me.Button8.Size = New System.Drawing.Size(89, 34)
Me.Button8.TabIndex = 3
@@ -1754,7 +1878,7 @@ Partial Class frmHauptfenster
Me.btnFertig.ForeColor = System.Drawing.Color.Black
Me.btnFertig.Image = CType(resources.GetObject("btnFertig.Image"), System.Drawing.Image)
Me.btnFertig.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnFertig.Location = New System.Drawing.Point(593, 214)
Me.btnFertig.Location = New System.Drawing.Point(466, 214)
Me.btnFertig.Name = "btnFertig"
Me.btnFertig.Size = New System.Drawing.Size(102, 34)
Me.btnFertig.TabIndex = 0
@@ -1862,7 +1986,7 @@ Partial Class frmHauptfenster
Me.splitMain.Panel2.Controls.Add(Me.SplitContainer2)
Me.splitMain.Panel2.Controls.Add(Me.pnlAktOption)
Me.splitMain.Size = New System.Drawing.Size(720, 597)
Me.splitMain.SplitterDistance = 360
Me.splitMain.SplitterDistance = 290
Me.splitMain.TabIndex = 0
'
'gridAviso
@@ -1871,56 +1995,59 @@ Partial Class frmHauptfenster
Me.gridAviso.AllowUserToAddRows = False
Me.gridAviso.AllowUserToDeleteRows = False
Me.gridAviso.AllowUserToResizeRows = False
DataGridViewCellStyle2.BackColor = System.Drawing.Color.Azure
DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.gridAviso.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
DataGridViewCellStyle8.BackColor = System.Drawing.Color.Azure
DataGridViewCellStyle8.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.gridAviso.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle8
Me.gridAviso.BackgroundColor = System.Drawing.Color.DarkGray
Me.gridAviso.ClipboardCopyMode = System.Windows.Forms.DataGridViewClipboardCopyMode.Disable
DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle3.BackColor = System.Drawing.Color.LightBlue
DataGridViewCellStyle3.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle3.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle3.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle3.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.gridAviso.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle3
DataGridViewCellStyle9.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle9.BackColor = System.Drawing.Color.LightBlue
DataGridViewCellStyle9.Font = New System.Drawing.Font("Tahoma", 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.gridAviso.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle9
Me.gridAviso.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing
DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle4.BackColor = System.Drawing.SystemColors.Window
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.ControlText
DataGridViewCellStyle4.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle4.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.gridAviso.DefaultCellStyle = DataGridViewCellStyle4
DataGridViewCellStyle10.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle10.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle10.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle10.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle10.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle10.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle10.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.gridAviso.DefaultCellStyle = DataGridViewCellStyle10
Me.gridAviso.Dock = System.Windows.Forms.DockStyle.Fill
Me.gridAviso.Location = New System.Drawing.Point(0, 208)
Me.gridAviso.MultiSelect = False
Me.gridAviso.Name = "gridAviso"
Me.gridAviso.ReadOnly = True
DataGridViewCellStyle5.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle5.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle5.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle5.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle5.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.gridAviso.RowHeadersDefaultCellStyle = DataGridViewCellStyle5
DataGridViewCellStyle11.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle11.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle11.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, 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.[False]
Me.gridAviso.RowHeadersDefaultCellStyle = DataGridViewCellStyle11
Me.gridAviso.RowHeadersVisible = False
Me.gridAviso.RowHeadersWidthSizeMode = System.Windows.Forms.DataGridViewRowHeadersWidthSizeMode.DisableResizing
DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.gridAviso.RowsDefaultCellStyle = DataGridViewCellStyle6
DataGridViewCellStyle12.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.gridAviso.RowsDefaultCellStyle = DataGridViewCellStyle12
Me.gridAviso.RowTemplate.ReadOnly = True
Me.gridAviso.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[False]
Me.gridAviso.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.gridAviso.Size = New System.Drawing.Size(720, 152)
Me.gridAviso.Size = New System.Drawing.Size(720, 82)
Me.gridAviso.TabIndex = 1
Me.gridAviso.TabStop = False
'
'Panel1
'
Me.Panel1.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Panel1.Controls.Add(Me.cbxCluster)
Me.Panel1.Controls.Add(Me.cboTeams)
Me.Panel1.Controls.Add(Me.lklErweitereSuche)
Me.Panel1.Controls.Add(Me.Label16)
Me.Panel1.Controls.Add(Me.Label8)
Me.Panel1.Controls.Add(Me.lblEintraege)
Me.Panel1.Controls.Add(Me.cboGrenzstelle)
@@ -1943,6 +2070,34 @@ Partial Class frmHauptfenster
Me.Panel1.Size = New System.Drawing.Size(720, 208)
Me.Panel1.TabIndex = 2
'
'cbxCluster
'
Me.cbxCluster.AutoSize = True
Me.cbxCluster.Checked = True
Me.cbxCluster.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbxCluster.ForeColor = System.Drawing.Color.White
Me.cbxCluster.Location = New System.Drawing.Point(767, 35)
Me.cbxCluster.Name = "cbxCluster"
Me.cbxCluster.Size = New System.Drawing.Size(96, 17)
Me.cbxCluster.TabIndex = 20
Me.cbxCluster.Text = "Firmenverbund"
Me.cbxCluster.UseVisualStyleBackColor = True
'
'cboTeams
'
Me.cboTeams._allowedValuesFreiText = Nothing
Me.cboTeams._allowFreiText = False
Me.cboTeams._value = ""
Me.cboTeams.BackColor = System.Drawing.Color.WhiteSmoke
Me.cboTeams.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cboTeams.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.cboTeams.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cboTeams.FormattingEnabled = True
Me.cboTeams.Location = New System.Drawing.Point(379, 3)
Me.cboTeams.Name = "cboTeams"
Me.cboTeams.Size = New System.Drawing.Size(107, 24)
Me.cboTeams.TabIndex = 19
'
'lklErweitereSuche
'
Me.lklErweitereSuche.AutoSize = True
@@ -1954,6 +2109,16 @@ Partial Class frmHauptfenster
Me.lklErweitereSuche.TabStop = True
Me.lklErweitereSuche.Text = "erweitere Suche"
'
'Label16
'
Me.Label16.AutoSize = True
Me.Label16.ForeColor = System.Drawing.Color.White
Me.Label16.Location = New System.Drawing.Point(336, 8)
Me.Label16.Name = "Label16"
Me.Label16.Size = New System.Drawing.Size(37, 13)
Me.Label16.TabIndex = 18
Me.Label16.Text = "Team:"
'
'Label8
'
Me.Label8.AutoSize = True
@@ -1971,7 +2136,7 @@ Partial Class frmHauptfenster
Me.lblEintraege.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblEintraege.BackColor = System.Drawing.Color.Transparent
Me.lblEintraege.ForeColor = System.Drawing.Color.White
Me.lblEintraege.Location = New System.Drawing.Point(548, 56)
Me.lblEintraege.Location = New System.Drawing.Point(421, 56)
Me.lblEintraege.Name = "lblEintraege"
Me.lblEintraege.Size = New System.Drawing.Size(169, 15)
Me.lblEintraege.TabIndex = 14
@@ -1980,6 +2145,9 @@ Partial Class frmHauptfenster
'
'cboGrenzstelle
'
Me.cboGrenzstelle._allowedValuesFreiText = Nothing
Me.cboGrenzstelle._allowFreiText = False
Me.cboGrenzstelle._value = ""
Me.cboGrenzstelle.BackColor = System.Drawing.Color.WhiteSmoke
Me.cboGrenzstelle.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cboGrenzstelle.FlatStyle = System.Windows.Forms.FlatStyle.Flat
@@ -2003,6 +2171,8 @@ Partial Class frmHauptfenster
'
'pnlTime
'
Me.pnlTime.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.pnlTime.Controls.Add(Me.MyComboBox1)
Me.pnlTime.Controls.Add(Me.btnHeute)
Me.pnlTime.Controls.Add(Me.btnGestern)
@@ -2026,7 +2196,7 @@ Partial Class frmHauptfenster
Me.MyComboBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.MyComboBox1.ForeColor = System.Drawing.Color.White
Me.MyComboBox1.FormattingEnabled = True
Me.MyComboBox1.Location = New System.Drawing.Point(3, 3)
Me.MyComboBox1.Location = New System.Drawing.Point(46, 3)
Me.MyComboBox1.MaxLength = 4
Me.MyComboBox1.Name = "MyComboBox1"
Me.MyComboBox1.Size = New System.Drawing.Size(98, 21)
@@ -2034,6 +2204,8 @@ Partial Class frmHauptfenster
'
'pnlSearch
'
Me.pnlSearch.Controls.Add(Me.txtDyRef)
Me.pnlSearch.Controls.Add(Me.Label19)
Me.pnlSearch.Controls.Add(Me.Label15)
Me.pnlSearch.Controls.Add(Me.txtlkwId)
Me.pnlSearch.Controls.Add(Me.cbxNE)
@@ -2060,6 +2232,25 @@ Partial Class frmHauptfenster
Me.pnlSearch.TabIndex = 16
Me.pnlSearch.Visible = False
'
'txtDyRef
'
Me.txtDyRef.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtDyRef.Location = New System.Drawing.Point(389, 59)
Me.txtDyRef.MaxLength = 100
Me.txtDyRef.Name = "txtDyRef"
Me.txtDyRef.Size = New System.Drawing.Size(216, 23)
Me.txtDyRef.TabIndex = 21
'
'Label19
'
Me.Label19.AutoSize = True
Me.Label19.ForeColor = System.Drawing.Color.White
Me.Label19.Location = New System.Drawing.Point(316, 64)
Me.Label19.Name = "Label19"
Me.Label19.Size = New System.Drawing.Size(48, 13)
Me.Label19.TabIndex = 20
Me.Label19.Text = "DY-Ref.:"
'
'Label15
'
Me.Label15.AutoSize = True
@@ -2420,11 +2611,10 @@ Partial Class frmHauptfenster
Me.UsrCntlTestsystem1.Size = New System.Drawing.Size(152, 28)
Me.UsrCntlTestsystem1.TabIndex = 8
'
'TESTToolStripMenuItem
'TimerMessanger_NewMessages
'
Me.TESTToolStripMenuItem.Name = "TESTToolStripMenuItem"
Me.TESTToolStripMenuItem.Size = New System.Drawing.Size(193, 22)
Me.TESTToolStripMenuItem.Text = "TEST"
Me.TimerMessanger_NewMessages.Enabled = True
Me.TimerMessanger_NewMessages.Interval = 1000
'
'frmHauptfenster
'
@@ -2460,6 +2650,7 @@ Partial Class frmHauptfenster
Me.SplitContainer2.ResumeLayout(False)
Me.pnlLinks.ResumeLayout(False)
Me.pnlLinks.PerformLayout()
CType(Me.picAVISOMessenger, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.pic, System.ComponentModel.ISupportInitialize).EndInit()
Me.pnlLinksOben.ResumeLayout(False)
CType(Me.gridMyAviso, System.ComponentModel.ISupportInitialize).EndInit()
@@ -2577,8 +2768,7 @@ Partial Class frmHauptfenster
Friend WithEvents timerStandzeit As System.Windows.Forms.Timer
Friend WithEvents pnlTime As System.Windows.Forms.Panel
Friend WithEvents Label4 As System.Windows.Forms.Label
Friend WithEvents cboGrenzstelle As System.Windows.Forms.ComboBox
Friend WithEvents btnGenerelleGestellungen As System.Windows.Forms.Button
Friend WithEvents cboGrenzstelle As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents Button6 As System.Windows.Forms.Button
Friend WithEvents ToolStripFormulare As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents ToolStripMenuItem2 As System.Windows.Forms.ToolStripMenuItem
@@ -2692,7 +2882,6 @@ Partial Class frmHauptfenster
Friend WithEvents ToolStripMenuItem3 As ToolStripMenuItem
Friend WithEvents ToolStripMenuItem4 As ToolStripMenuItem
Friend WithEvents ToolStripMenuItem5 As ToolStripMenuItem
Friend WithEvents ToolStripMenuItem6 As ToolStripMenuItem
Friend WithEvents WAIDHAUSToolStripMenuItem As ToolStripMenuItem
Friend WithEvents AnnahmeblattIMPORTToolStripMenuItem As ToolStripMenuItem
Friend WithEvents AnnahmeblattEXPORTToolStripMenuItem As ToolStripMenuItem
@@ -2715,4 +2904,19 @@ Partial Class frmHauptfenster
Friend WithEvents AMBARToolStripMenuItem As ToolStripMenuItem
Friend WithEvents VollständigesUpdateToolStripMenuItem As ToolStripMenuItem
Friend WithEvents TESTToolStripMenuItem As ToolStripMenuItem
Friend WithEvents cboTeams As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents Label16 As Label
Friend WithEvents cboMyAvisoAnzeige As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents Label17 As Label
Friend WithEvents cboMy_Grenzstelle As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents Label18 As Label
Friend WithEvents cbx_My_LKW As CheckBox
Friend WithEvents cboMy_QS As CheckBox
Friend WithEvents cboMy_VB As CheckBox
Friend WithEvents cbxCluster As CheckBox
Friend WithEvents txtDyRef As TextBox
Friend WithEvents Label19 As Label
Friend WithEvents picAVISOMessenger As PictureBox
Friend WithEvents Label20 As Label
Friend WithEvents TimerMessanger_NewMessages As Timer
End Class

6
Aviso/frmHauptfenster.resx
View File

@@ -225,6 +225,9 @@
pOTzPwAAAABJRU5ErkJggg==
</value>
</data>
<metadata name="ToolTip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>598, 17</value>
</metadata>
<metadata name="BackgroundWorker1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>697, 17</value>
</metadata>
@@ -253,6 +256,9 @@
<metadata name="cntxt.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1118, 17</value>
</metadata>
<metadata name="TimerMessanger_NewMessages.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1196, 17</value>
</metadata>
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAABAAEAgIAAAAEAIAAoCAEAFgAAACgAAACAAAAAAAEAAAEAIAAAAAAAAAgBABMLAAATCwAAAAAAAAAA

850
Aviso/frmHauptfenster.vb
View File

File diff suppressed because it is too large Load Diff

27
Aviso/frmInsertVermerkFach.Designer.vb generated
View File

@@ -23,6 +23,7 @@ Partial Class frmInsertVermerkFach
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.pnl = New System.Windows.Forms.Panel()
Me.Button3 = New System.Windows.Forms.Button()
Me.PictureBox3 = New System.Windows.Forms.PictureBox()
Me.PictureBox4 = New System.Windows.Forms.PictureBox()
Me.Button1 = New System.Windows.Forms.Button()
@@ -52,6 +53,7 @@ Partial Class frmInsertVermerkFach
'
Me.pnl.BackColor = System.Drawing.Color.White
Me.pnl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.pnl.Controls.Add(Me.Button3)
Me.pnl.Controls.Add(Me.PictureBox3)
Me.pnl.Controls.Add(Me.PictureBox4)
Me.pnl.Controls.Add(Me.Button1)
@@ -72,9 +74,21 @@ Partial Class frmInsertVermerkFach
Me.pnl.Dock = System.Windows.Forms.DockStyle.Fill
Me.pnl.Location = New System.Drawing.Point(0, 0)
Me.pnl.Name = "pnl"
Me.pnl.Size = New System.Drawing.Size(298, 393)
Me.pnl.Size = New System.Drawing.Size(298, 439)
Me.pnl.TabIndex = 0
'
'Button3
'
Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button3.Image = Global.AVISO.My.Resources.Resources.digitalerAkt_small
Me.Button3.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button3.Location = New System.Drawing.Point(16, 291)
Me.Button3.Name = "Button3"
Me.Button3.Size = New System.Drawing.Size(264, 46)
Me.Button3.TabIndex = 10
Me.Button3.Text = "DIGITALER AKT"
Me.Button3.UseVisualStyleBackColor = True
'
'PictureBox3
'
Me.PictureBox3.Image = Global.AVISO.My.Resources.Resources._3s
@@ -148,7 +162,7 @@ Partial Class frmInsertVermerkFach
'TextBoxOrt
'
Me.TextBoxOrt.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.TextBoxOrt.Location = New System.Drawing.Point(16, 322)
Me.TextBoxOrt.Location = New System.Drawing.Point(16, 371)
Me.TextBoxOrt.MaxLength = 30
Me.TextBoxOrt.Name = "TextBoxOrt"
Me.TextBoxOrt.Size = New System.Drawing.Size(264, 23)
@@ -158,7 +172,7 @@ Partial Class frmInsertVermerkFach
'
Me.lblErr.AutoSize = True
Me.lblErr.ForeColor = System.Drawing.Color.Red
Me.lblErr.Location = New System.Drawing.Point(209, 351)
Me.lblErr.Location = New System.Drawing.Point(209, 400)
Me.lblErr.Name = "lblErr"
Me.lblErr.Size = New System.Drawing.Size(71, 13)
Me.lblErr.TabIndex = 3
@@ -168,7 +182,7 @@ Partial Class frmInsertVermerkFach
'lblAndererOrt
'
Me.lblAndererOrt.AutoSize = True
Me.lblAndererOrt.Location = New System.Drawing.Point(13, 305)
Me.lblAndererOrt.Location = New System.Drawing.Point(13, 354)
Me.lblAndererOrt.Name = "lblAndererOrt"
Me.lblAndererOrt.Size = New System.Drawing.Size(64, 13)
Me.lblAndererOrt.TabIndex = 3
@@ -187,7 +201,7 @@ Partial Class frmInsertVermerkFach
'Button5
'
Me.Button5.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button5.Location = New System.Drawing.Point(16, 351)
Me.Button5.Location = New System.Drawing.Point(16, 400)
Me.Button5.Name = "Button5"
Me.Button5.Size = New System.Drawing.Size(129, 29)
Me.Button5.TabIndex = 2
@@ -248,7 +262,7 @@ Partial Class frmInsertVermerkFach
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(298, 393)
Me.ClientSize = New System.Drawing.Size(298, 439)
Me.Controls.Add(Me.pnl)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
Me.Name = "frmInsertVermerkFach"
@@ -282,4 +296,5 @@ Partial Class frmInsertVermerkFach
Friend WithEvents PictureBox4 As System.Windows.Forms.PictureBox
Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents Button2 As System.Windows.Forms.Button
Friend WithEvents Button3 As Button
End Class

4
Aviso/frmInsertVermerkFach.vb
View File

@@ -69,4 +69,8 @@ Public Class frmInsertVermerkFach
Private Sub Button2_Click_1(sender As Object, e As EventArgs) Handles Button2.Click
vermerk("SÖNMEZ")
End Sub
Private Sub Button3_Click_1(sender As Object, e As EventArgs) Handles Button3.Click
vermerk("DIGITALER AKT")
End Sub
End Class

22
Aviso/frmLKWBericht.vb
View File

@@ -2,6 +2,23 @@
Public Class frmLKWBericht
Public AvisoID As Integer = -1
Sub New()
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Sub New(AvisoID)
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
Me.AvisoID = AvisoID
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Me.Close()
End Sub
@@ -25,12 +42,13 @@ Public Class frmLKWBericht
End Sub
Private Sub frmLKWBericht_Load(sender As Object, e As EventArgs) Handles Me.Load
If cGlobal.Aktive_ID <= 0 Then
If AvisoID < 0 Then AvisoID = cGlobal.Aktive_ID
If AvisoID <= 0 Then
MsgBox("Es ist kein LKW ausgewählt!")
Me.Close()
Else
AvisoID = cGlobal.Aktive_ID
' AvisoID = cGlobal.Aktive_ID
Label1.Text = "Berichtes für: " & (New cAvisoDAL).LesenAviso(AvisoID, "").LKW_Nr
End If
End Sub

19
Aviso/frmLogin.vb
View File

@@ -76,6 +76,25 @@ Public Class frmLogin
If firma = "NKD" Then firma = "VERAG"
If firma = "NEU" Then firma = "VERAG"
If firma = "SUB" Then firma = "VERAG"
Else
' FIRMA VON AD HOLEN, wenn keine StandortTxt
Try
Dim WI = System.Security.Principal.WindowsIdentity.GetCurrent().Name
If WI.Contains("\") Then
Dim Split() = WI.Split("\")
Dim UsernameTMP = ADMIN.getUstName_ByAD(Split(0), Split(1))
If UsernameTMP <> "" Then
Dim firmaTmp = ADMIN.getValueTxtBySql("SELECT mit_firma FROM [tblMitarbeiter] where [mit_username] = '" & UsernameTMP & "' AND mit_firma NOT IN ('BEIDE','ALLE','ALL') ", "ADMIN")
If firmaTmp <> "" Then
firma = firmaTmp
End If
End If
End If
Catch ex As Exception
' MsgBox(ex.Message & ex.StackTrace)
End Try
End If

4647
Aviso/frmSendungsdetailsNEU.Designer.vb generated
View File

File diff suppressed because it is too large Load Diff

116
Aviso/frmSendungsdetailsNEU.resx
View File

@@ -117,18 +117,45 @@
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="ToolTip.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>404, 17</value>
</metadata>
<metadata name="cntxt.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>765, 17</value>
</metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="Button6.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<data name="FlatButton4.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABQAAAAUCAYAAACNiR0NAAAABGdBTUEAALGPC/xhBQAAAIdJREFUOE/V
kEEKgCAQRfVKeaaOEXSL6hbRNrC9dQ3PUd/IxagLGcZFA48PjjyYrzCd1vqWAC7TTog8wFiBTUUR7Igw
fK6ZIRVFsGsolKCtEFl7cmneGpBEuIGeyZoJJSBCpAcXE18Sindow4LJngklIELk8j1wmEpC8Q5PMDNx
mVCCPwiVeQBaqAV4Jfq5XQAAAABJRU5ErkJggg==
/9j/4AAQSkZJRgABAQEAAAAAAAD/7gAOQWRvYmUAZAAAAAAB/9sAQwABAQEBAQEBAQEBAQEBAQEBAQEB
AQECAQEBAQECAgICAgICAgICAgIDAgICAwMDAwMDBQUFBQUFBQUFBQUFBQUF/9sAQwEBAQECAQIDAgID
BAQDBAQFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUF/8AAEQgA
GQAZAwERAAIRAQMRAf/EABgAAAMBAQAAAAAAAAAAAAAAAAAICQcK/8QAKRAAAQUAAgIABAcBAAAAAAAA
AQIDBAUGAAcRITESIxVBYSIyEzMIFv/EABQBAQAAAAAAAAAAAAAAAAAAAAD/xAAUEQEAAAAAAAAAAAAA
AAAAAAAA/9oADAMBAAIRAxEAPwDsSKq/7Vudfqtf2Ky3W77t1EhyJ2zp6WBFraLTW8SKwzFh3EeKwhmM
w202htsDwB64CSWH+lrc3ilVadknOB9Pyx5/c+5cunIwP6vrN6dDCVKHw+kQPz4DTyLim0vTGs7ByGt7
VhTIWM1NlDU73LrX3qq7qoLzqUqQ5dracLLyQfCklJ/EEHxwKNcCflzQva7Adn5eM8iPKtd/3dGjOrHl
CX/+uu1oCvY9FQAPASxnqXraJBDWh1mqq9RFZSzZZtvKOy5ItAAC0w4glhxLi/61FYBHs+OAxOYzVhjv
8072rtGHIkiXkewbJuHJAEuJGnQZBabeAJSFhAHzAHgVN4Eiu2d5aQqnXZPF6TM12hk9sdyt3a5uzqc/
ZU0FWpt3EJ+SbMjvIVJS6FIUgeQkefXkHgLI1adyMwzAa7QpUxShaP4h3HSftc+Pv7r54GoZDeaeu697
KyW71mPsIEnA6z7BMPYFReXTtvJirbbhIRHnPvuh4LUUeR6ICR8QOBcDgHAOAcA4H//Z
</value>
</data>
<data name="FlatButton1.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
/9j/4AAQSkZJRgABAQEAAAAAAAD/7gAOQWRvYmUAZAAAAAAB/9sAQwABAQEBAQEBAQEBAQEBAQEBAQEB
AQECAQEBAQECAgICAgICAgICAgIDAgICAwMDAwMDBQUFBQUFBQUFBQUFBQUF/9sAQwEBAQECAQIDAgID
BAQDBAQFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUF/8AAEQgA
GQAZAwERAAIRAQMRAf/EABgAAAMBAQAAAAAAAAAAAAAAAAAICQcK/8QAKRAAAQUAAgIABAcBAAAAAAAA
AQIDBAUGAAcRITESIxVBYSIyEzMIFv/EABQBAQAAAAAAAAAAAAAAAAAAAAD/xAAUEQEAAAAAAAAAAAAA
AAAAAAAA/9oADAMBAAIRAxEAPwDsSKq/7Vudfqtf2Ky3W77t1EhyJ2zp6WBFraLTW8SKwzFh3EeKwhmM
w202htsDwB64CSWH+lrc3ilVadknOB9Pyx5/c+5cunIwP6vrN6dDCVKHw+kQPz4DTyLim0vTGs7ByGt7
VhTIWM1NlDU73LrX3qq7qoLzqUqQ5dracLLyQfCklJ/EEHxwKNcCflzQva7Adn5eM8iPKtd/3dGjOrHl
CX/+uu1oCvY9FQAPASxnqXraJBDWh1mqq9RFZSzZZtvKOy5ItAAC0w4glhxLi/61FYBHs+OAxOYzVhjv
8072rtGHIkiXkewbJuHJAEuJGnQZBabeAJSFhAHzAHgVN4Eiu2d5aQqnXZPF6TM12hk9sdyt3a5uzqc/
ZU0FWpt3EJ+SbMjvIVJS6FIUgeQkefXkHgLI1adyMwzAa7QpUxShaP4h3HSftc+Pv7r54GoZDeaeu697
KyW71mPsIEnA6z7BMPYFReXTtvJirbbhIRHnPvuh4LUUeR6ICR8QOBcDgHAOAcA4H//Z
</value>
</data>
<metadata name="MenuStrip.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>296, 17</value>
</metadata>
<metadata name="cntxtAnh.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>496, 17</value>
</metadata>
@@ -156,6 +183,20 @@
mVCCPwiVeQBaqAV4Jfq5XQAAAABJRU5ErkJggg==
</value>
</data>
<metadata name="MenuStrip.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>296, 17</value>
</metadata>
<data name="Button6.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABQAAAAUCAYAAACNiR0NAAAABGdBTUEAALGPC/xhBQAAAIdJREFUOE/V
kEEKgCAQRfVKeaaOEXSL6hbRNrC9dQ3PUd/IxagLGcZFA48PjjyYrzCd1vqWAC7TTog8wFiBTUUR7Igw
fK6ZIRVFsGsolKCtEFl7cmneGpBEuIGeyZoJJSBCpAcXE18Sindow4LJngklIELk8j1wmEpC8Q5PMDNx
mVCCPwiVeQBaqAV4Jfq5XQAAAABJRU5ErkJggg==
</value>
</data>
<metadata name="MenuStrip.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>296, 17</value>
</metadata>
<data name="Button3.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAADIAAAAyCAYAAAAeP4ixAAAABGdBTUEAALGPC/xhBQAACQpJREFUaEPl
@@ -330,44 +371,6 @@
rGp33g/w9ql7NoGnXyWw0LUP726+A48ybH5BknCWWY7Lq2TVaSzNVMvnjcLjoYqrHD5NUxOdyqYOtXoR
rY7H4jHYSnSdT2lHL8uwNOUI/FU+hyHGUMfjc2xVDEQxsJvDOOIVCrQdKLqYyNPBKNaFOo4UMPToVZT5
eWpiMRXkm9o//9k=
</value>
</data>
<metadata name="ToolTip.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>404, 17</value>
</metadata>
<metadata name="cntxt.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>765, 17</value>
</metadata>
<data name="FlatButton4.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
/9j/4AAQSkZJRgABAQEAAAAAAAD/7gAOQWRvYmUAZAAAAAAB/9sAQwABAQEBAQEBAQEBAQEBAQEBAQEB
AQECAQEBAQECAgICAgICAgICAgIDAgICAwMDAwMDBQUFBQUFBQUFBQUFBQUF/9sAQwEBAQECAQIDAgID
BAQDBAQFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUF/8AAEQgA
GQAZAwERAAIRAQMRAf/EABgAAAMBAQAAAAAAAAAAAAAAAAAICQcK/8QAKRAAAQUAAgIABAcBAAAAAAAA
AQIDBAUGAAcRITESIxVBYSIyEzMIFv/EABQBAQAAAAAAAAAAAAAAAAAAAAD/xAAUEQEAAAAAAAAAAAAA
AAAAAAAA/9oADAMBAAIRAxEAPwDsSKq/7Vudfqtf2Ky3W77t1EhyJ2zp6WBFraLTW8SKwzFh3EeKwhmM
w202htsDwB64CSWH+lrc3ilVadknOB9Pyx5/c+5cunIwP6vrN6dDCVKHw+kQPz4DTyLim0vTGs7ByGt7
VhTIWM1NlDU73LrX3qq7qoLzqUqQ5dracLLyQfCklJ/EEHxwKNcCflzQva7Adn5eM8iPKtd/3dGjOrHl
CX/+uu1oCvY9FQAPASxnqXraJBDWh1mqq9RFZSzZZtvKOy5ItAAC0w4glhxLi/61FYBHs+OAxOYzVhjv
8072rtGHIkiXkewbJuHJAEuJGnQZBabeAJSFhAHzAHgVN4Eiu2d5aQqnXZPF6TM12hk9sdyt3a5uzqc/
ZU0FWpt3EJ+SbMjvIVJS6FIUgeQkefXkHgLI1adyMwzAa7QpUxShaP4h3HSftc+Pv7r54GoZDeaeu697
KyW71mPsIEnA6z7BMPYFReXTtvJirbbhIRHnPvuh4LUUeR6ICR8QOBcDgHAOAcA4H//Z
</value>
</data>
<data name="FlatButton1.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
/9j/4AAQSkZJRgABAQEAAAAAAAD/7gAOQWRvYmUAZAAAAAAB/9sAQwABAQEBAQEBAQEBAQEBAQEBAQEB
AQECAQEBAQECAgICAgICAgICAgIDAgICAwMDAwMDBQUFBQUFBQUFBQUFBQUF/9sAQwEBAQECAQIDAgID
BAQDBAQFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUF/8AAEQgA
GQAZAwERAAIRAQMRAf/EABgAAAMBAQAAAAAAAAAAAAAAAAAICQcK/8QAKRAAAQUAAgIABAcBAAAAAAAA
AQIDBAUGAAcRITESIxVBYSIyEzMIFv/EABQBAQAAAAAAAAAAAAAAAAAAAAD/xAAUEQEAAAAAAAAAAAAA
AAAAAAAA/9oADAMBAAIRAxEAPwDsSKq/7Vudfqtf2Ky3W77t1EhyJ2zp6WBFraLTW8SKwzFh3EeKwhmM
w202htsDwB64CSWH+lrc3ilVadknOB9Pyx5/c+5cunIwP6vrN6dDCVKHw+kQPz4DTyLim0vTGs7ByGt7
VhTIWM1NlDU73LrX3qq7qoLzqUqQ5dracLLyQfCklJ/EEHxwKNcCflzQva7Adn5eM8iPKtd/3dGjOrHl
CX/+uu1oCvY9FQAPASxnqXraJBDWh1mqq9RFZSzZZtvKOy5ItAAC0w4glhxLi/61FYBHs+OAxOYzVhjv
8072rtGHIkiXkewbJuHJAEuJGnQZBabeAJSFhAHzAHgVN4Eiu2d5aQqnXZPF6TM12hk9sdyt3a5uzqc/
ZU0FWpt3EJ+SbMjvIVJS6FIUgeQkefXkHgLI1adyMwzAa7QpUxShaP4h3HSftc+Pv7r54GoZDeaeu697
KyW71mPsIEnA6z7BMPYFReXTtvJirbbhIRHnPvuh4LUUeR6ICR8QOBcDgHAOAcA4H//Z
</value>
</data>
<data name="btnDelQS.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
@@ -382,24 +385,6 @@
DQi+g3tB1EXWoZhZsjT6cAit4sovlZlGnRep294flTnJgnKEKbT7fFXpub0/KnMITCYL1m+MiZ2iUvd3
9cBmo8WA0LhZCn5hDtHbaHZU6QmGbC5asgjaUvd/MaJyFplQegP36gyjxWaihRThUPpZnStkXel3fFDn
uUGKxTG0qrMi5EfRrM5yg5cmhy8na7gHtvbLF9T64qAAAAAASUVORK5CYII=
</value>
</data>
<data name="btnQS_MA.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
/9j/4AAQSkZJRgABAQEAAAAAAAD/7gAOQWRvYmUAZAAAAAAB/9sAQwABAQEBAQEBAQEBAQEBAQEBAQEB
AQECAQEBAQECAgICAgICAgICAgIDAgICAwMDAwMDBQUFBQUFBQUFBQUFBQUF/9sAQwEBAQECAQIDAgID
BAQDBAQFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUF/8AAEQgA
GQAZAwERAAIRAQMRAf/EABYAAQEBAAAAAAAAAAAAAAAAAAoACf/EACgQAAAGAgICAQMFAAAAAAAAAAEC
AwQFBgcIABESCSExEwpBQiMVJf/EABQBAQAAAAAAAAAAAAAAAAAAAAD/xAAUEQEAAAAAAAAAAAAAAAAA
AAAA/9oADAMBAAIRAxEAPwBaeVMm0DDWJc2bBZoyJfq9S8ZT2brDZ5YuXLNAxkbXqhYphu3QQbNJhu1Q
Arduk3RTTTKHfiHXACDf/wAvPZA2bnDrF+B6m31xRnmgN4C85cypJZpfVlI/TgRmmORWUI3crk+Uv8o5
SD8GBT68BmuqO3eIt6dJS7a4Gt+X4xjLUe3OFYmUzNa3EvRr9WmKp3ca6KabMgsowdAUPLxEhw6Hroeu
BtdwMXN69b5vcLRnb7WasTLWAs2WVdga5XZR4mKrNCdLb5hy0KsHmn0ms4QImcfL4ARHgA3hfT364qrR
k4zYLbHa7GGz9XimkPkjW9hqlI2mzlygkmQi0XBSLJVaDkkH7sTf1zkz4hTpeJ1RSERKALg9MGqGRdNf
U9M4yyfBStTsFpNnHJrCn2NNNG2VStXVBZSNYy5EVFkSPU2qRDOCJqGAph6AR64Ci+AWX3JWzfSe18ns
GeuhGHJlLIWZ87MMo3smaqZiqexlR2tlklE0Gx7LORD5N1Oi7H7DhgBjpESOJjE+4mJgKrF6j/k3Q1QP
RI3PGQGtXO0esRjCewqiCUGsiPkqQDjfRUDyER/d8fpwN3PTe69ruEMf5x159iQ1Gdw8XEF5sGJMpWDY
+nZayU2yE6UbN06v1D2SXlXjZ6zdOnKSjgggkZEqRDfyFJwG0cC4FwLgXA//2Q==
</value>
</data>
<data name="Button2.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
@@ -481,6 +466,9 @@
<metadata name="cntxtOptions.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>174, 17</value>
</metadata>
<metadata name="ToolTip.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>404, 17</value>
</metadata>
<metadata name="ctxtWeitereFormulare.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>596, 17</value>
</metadata>

644
Aviso/frmSendungsdetailsNEU.vb
View File

File diff suppressed because it is too large Load Diff

136
Aviso/usrCntlSND_Handling.Designer.vb generated
View File

@@ -23,27 +23,31 @@ Partial Class usrCntlSND_Handling
<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()
Me.pnlT1 = New System.Windows.Forms.Panel()
Me.Label2 = New System.Windows.Forms.Label()
Me.MyDatagridview1 = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.clmnArt = New System.Windows.Forms.DataGridViewComboBoxColumn()
Me.Nr = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.txtATCMRNFremd = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label1 = New System.Windows.Forms.Label()
Me.txtATAold = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label3 = New System.Windows.Forms.Label()
Me.MyDatagridview1 = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.clmnArt = New System.Windows.Forms.DataGridViewComboBoxColumn()
Me.clmnATA = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.clmnColli = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.clmnGewicht = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.lkl = New System.Windows.Forms.LinkLabel()
Me.pnlT1.SuspendLayout()
CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'pnlT1
'
Me.pnlT1.Controls.Add(Me.Label3)
Me.pnlT1.Controls.Add(Me.lkl)
Me.pnlT1.Controls.Add(Me.Label2)
Me.pnlT1.Controls.Add(Me.MyDatagridview1)
Me.pnlT1.Controls.Add(Me.txtATCMRNFremd)
Me.pnlT1.Controls.Add(Me.Label1)
Me.pnlT1.Controls.Add(Me.txtATAold)
Me.pnlT1.Controls.Add(Me.MyDatagridview1)
Me.pnlT1.Location = New System.Drawing.Point(0, 0)
Me.pnlT1.Name = "pnlT1"
Me.pnlT1.Size = New System.Drawing.Size(549, 92)
@@ -53,44 +57,11 @@ Partial Class usrCntlSND_Handling
'
Me.Label2.AutoSize = True
Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label2.Location = New System.Drawing.Point(410, 9)
Me.Label2.Location = New System.Drawing.Point(343, 74)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(58, 13)
Me.Label2.TabIndex = 36
Me.Label2.Text = "0 Handling"
Me.Label2.Visible = False
'
'MyDatagridview1
'
Me.MyDatagridview1.AKTUALISIERUNGS_INTERVALL = -1
Me.MyDatagridview1.AllowUserToResizeColumns = False
Me.MyDatagridview1.AllowUserToResizeRows = False
Me.MyDatagridview1.BackgroundColor = System.Drawing.SystemColors.Control
Me.MyDatagridview1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.MyDatagridview1.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.clmnArt, Me.Nr})
Me.MyDatagridview1.Location = New System.Drawing.Point(397, 25)
Me.MyDatagridview1.Name = "MyDatagridview1"
Me.MyDatagridview1.RowHeadersWidth = 25
Me.MyDatagridview1.Size = New System.Drawing.Size(148, 64)
Me.MyDatagridview1.TabIndex = 35
Me.MyDatagridview1.Visible = False
'
'clmnArt
'
Me.clmnArt.DisplayStyle = System.Windows.Forms.DataGridViewComboBoxDisplayStyle.ComboBox
Me.clmnArt.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.clmnArt.HeaderText = "Art"
Me.clmnArt.Items.AddRange(New Object() {"ATA", "MRN", "CRN"})
Me.clmnArt.Name = "clmnArt"
Me.clmnArt.Resizable = System.Windows.Forms.DataGridViewTriState.[True]
Me.clmnArt.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.Automatic
Me.clmnArt.Width = 60
'
'Nr
'
Me.Nr.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
Me.Nr.HeaderText = "ATA/CRN/MRN"
Me.Nr.Name = "Nr"
'
'txtATCMRNFremd
'
@@ -105,20 +76,20 @@ Partial Class usrCntlSND_Handling
Me.txtATCMRNFremd._Waehrung = False
Me.txtATCMRNFremd._WaehrungZeichen = True
Me.txtATCMRNFremd.ForeColor = System.Drawing.Color.Black
Me.txtATCMRNFremd.Location = New System.Drawing.Point(146, 47)
Me.txtATCMRNFremd.Location = New System.Drawing.Point(343, 16)
Me.txtATCMRNFremd.MaxLength = 500
Me.txtATCMRNFremd.MaxLineLength = -1
Me.txtATCMRNFremd.MaxLines_Warning = ""
Me.txtATCMRNFremd.MaxLines_Warning_Label = Nothing
Me.txtATCMRNFremd.Name = "txtATCMRNFremd"
Me.txtATCMRNFremd.Size = New System.Drawing.Size(245, 20)
Me.txtATCMRNFremd.Size = New System.Drawing.Size(203, 20)
Me.txtATCMRNFremd.TabIndex = 34
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label1.Location = New System.Drawing.Point(44, 50)
Me.Label1.Location = New System.Drawing.Point(340, 2)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(96, 13)
Me.Label1.TabIndex = 33
@@ -137,24 +108,77 @@ Partial Class usrCntlSND_Handling
Me.txtATAold._Waehrung = False
Me.txtATAold._WaehrungZeichen = True
Me.txtATAold.ForeColor = System.Drawing.Color.Black
Me.txtATAold.Location = New System.Drawing.Point(146, 21)
Me.txtATAold.Location = New System.Drawing.Point(442, 47)
Me.txtATAold.MaxLength = 500
Me.txtATAold.MaxLineLength = -1
Me.txtATAold.MaxLines_Warning = ""
Me.txtATAold.MaxLines_Warning_Label = Nothing
Me.txtATAold.Name = "txtATAold"
Me.txtATAold.Size = New System.Drawing.Size(245, 20)
Me.txtATAold.Size = New System.Drawing.Size(46, 20)
Me.txtATAold.TabIndex = 32
Me.txtATAold.Visible = False
'
'Label3
'MyDatagridview1
'
Me.Label3.AutoSize = True
Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label3.Location = New System.Drawing.Point(44, 24)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(48, 13)
Me.Label3.TabIndex = 37
Me.Label3.Text = "ATA-Nr.:"
Me.MyDatagridview1.AKTUALISIERUNGS_INTERVALL = -1
Me.MyDatagridview1.AllowUserToResizeColumns = False
Me.MyDatagridview1.AllowUserToResizeRows = False
Me.MyDatagridview1.BackgroundColor = System.Drawing.SystemColors.Control
Me.MyDatagridview1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.MyDatagridview1.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.clmnArt, Me.clmnATA, Me.clmnColli, Me.clmnGewicht})
Me.MyDatagridview1.Location = New System.Drawing.Point(3, 0)
Me.MyDatagridview1.Name = "MyDatagridview1"
Me.MyDatagridview1.RowHeadersWidth = 25
Me.MyDatagridview1.Size = New System.Drawing.Size(334, 90)
Me.MyDatagridview1.TabIndex = 35
'
'clmnArt
'
Me.clmnArt.DisplayStyle = System.Windows.Forms.DataGridViewComboBoxDisplayStyle.ComboBox
Me.clmnArt.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.clmnArt.HeaderText = "Art"
Me.clmnArt.Items.AddRange(New Object() {"ATA", "MRN", "CRN"})
Me.clmnArt.Name = "clmnArt"
Me.clmnArt.Resizable = System.Windows.Forms.DataGridViewTriState.[True]
Me.clmnArt.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.Automatic
Me.clmnArt.Visible = False
Me.clmnArt.Width = 60
'
'clmnATA
'
Me.clmnATA.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
Me.clmnATA.HeaderText = "ATA/CRN/MRN"
Me.clmnATA.Name = "clmnATA"
'
'clmnColli
'
DataGridViewCellStyle1.Format = "N0"
DataGridViewCellStyle1.NullValue = Nothing
Me.clmnColli.DefaultCellStyle = DataGridViewCellStyle1
Me.clmnColli.HeaderText = "Colli"
Me.clmnColli.Name = "clmnColli"
Me.clmnColli.Width = 50
'
'clmnGewicht
'
DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.TopRight
DataGridViewCellStyle2.Format = "N1"
DataGridViewCellStyle2.NullValue = Nothing
Me.clmnGewicht.DefaultCellStyle = DataGridViewCellStyle2
Me.clmnGewicht.HeaderText = "Gewicht"
Me.clmnGewicht.Name = "clmnGewicht"
Me.clmnGewicht.Width = 80
'
'lkl
'
Me.lkl.AutoSize = True
Me.lkl.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.lkl.Location = New System.Drawing.Point(442, 74)
Me.lkl.Name = "lkl"
Me.lkl.Size = New System.Drawing.Size(102, 13)
Me.lkl.TabIndex = 37
Me.lkl.TabStop = True
Me.lkl.Text = "Summen übertragen"
'
'usrCntlSND_Handling
'
@@ -176,6 +200,8 @@ Partial Class usrCntlSND_Handling
Friend WithEvents MyDatagridview1 As VERAG_PROG_ALLGEMEIN.MyDatagridview
Friend WithEvents Label2 As Label
Friend WithEvents clmnArt As DataGridViewComboBoxColumn
Friend WithEvents Nr As DataGridViewTextBoxColumn
Friend WithEvents Label3 As Label
Friend WithEvents clmnATA As DataGridViewTextBoxColumn
Friend WithEvents clmnColli As DataGridViewTextBoxColumn
Friend WithEvents clmnGewicht As DataGridViewTextBoxColumn
Friend WithEvents lkl As LinkLabel
End Class

8
Aviso/usrCntlSND_Handling.resx
View File

@@ -120,7 +120,13 @@
<metadata name="clmnArt.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="Nr.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<metadata name="clmnATA.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="clmnColli.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="clmnGewicht.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
</root>

39
Aviso/usrCntlSND_Handling.vb
View File

@@ -1,5 +1,8 @@
Public Class usrCntlSND_Handling
Imports System.ComponentModel
Public Class usrCntlSND_Handling
Public SendungsID As Integer
Public Event HandlingWerte(colli, gewicht)
Sub New(SendungsID)
@@ -31,19 +34,36 @@
If SENDUNG IsNot Nothing Then
SENDUNG.LOAD_HANDLING()
For Each h In SENDUNG.HANDLING
MyDatagridview1.Rows.Add(h.sndhdg_abrArt, h.sndhdg_nr)
MyDatagridview1.Rows.Add(h.sndhdg_abrArt, h.sndhdg_nr, h.sndhdg_colli, h.sndhdg_gewicht)
Next
If SENDUNG.HANDLING.Count = 0 And txtATAold.Text <> "" Then
MyDatagridview1.Rows.Add("ATA", txtATAold.Text, 0, 0)
End If
End If
End Sub
'Private Sub MyDatagridview1_Validating(sender As Object, e As CancelEventArgs) Handles MyDatagridview1.Validating
' Try
' If MyDatagridview1.CurrentRow.Cells("clmnATA").Value <> "" Then
' If MyDatagridview1.CurrentRow.Cells("clmnColli").Value IsNot Nothing AndAlso IsNumeric(MyDatagridview1.CurrentRow.Cells("clmnColli").Value) Then MsgBox("Daten unvollständig") : e.Cancel = True : Exit Sub
' If MyDatagridview1.CurrentRow.Cells("clmnGewicht").Value IsNot Nothing AndAlso IsNumeric(MyDatagridview1.CurrentRow.Cells("clmnGewicht").Value) Then MsgBox("Daten unvollständig") : e.Cancel = True : Exit Sub
' End If
' Catch ex As Exception
' MsgBox(ex.Message & ex.StackTrace)
' End Try
'End Sub
Public Function GET_HANDLING() As List(Of VERAG_PROG_ALLGEMEIN.cSendHandling)
Dim LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendHandling)
For Each r As DataGridViewRow In MyDatagridview1.Rows
If r.Cells(1).Value <> "" Then
Dim art = r.Cells(0).Value
Dim Colli = CDbl(If(IsNumeric(r.Cells("clmnColli").Value), r.Cells("clmnColli").Value, 0))
Dim Gewicht = CDbl(If(IsNumeric(r.Cells("clmnGewicht").Value), r.Cells("clmnGewicht").Value, 0))
If art = "" Then art = "ATA"
LIST.Add(New VERAG_PROG_ALLGEMEIN.cSendHandling(SendungsID, art, r.Cells(1).Value))
LIST.Add(New VERAG_PROG_ALLGEMEIN.cSendHandling(SendungsID, art, r.Cells("clmnATA").Value, Colli, Gewicht))
End If
Next
Return LIST
@@ -58,4 +78,17 @@
demitter = ", "
Next
End Function
Private Sub lkl_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles lkl.LinkClicked
Dim Colli As Double = 0
Dim Gewicht As Double = 0
For Each r As DataGridViewRow In MyDatagridview1.Rows
If r.Cells(1).Value <> "" Then
Colli += CDbl(If(IsNumeric(r.Cells("clmnColli").Value), r.Cells("clmnColli").Value, 0))
Gewicht += CDbl(If(IsNumeric(r.Cells("clmnGewicht").Value), r.Cells("clmnGewicht").Value, 0))
End If
Next
RaiseEvent HandlingWerte(Colli, Gewicht)
End Sub
End Class

46
Aviso/usrCntlSND_NCTSGestellungsadresse.Designer.vb generated
View File

@@ -23,6 +23,8 @@ Partial Class usrCntlSND_NCTSGestellungsadresse
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.pnlT1 = New System.Windows.Forms.Panel()
Me.cbxNCTSAufDispo = New System.Windows.Forms.CheckBox()
Me.picDel = New System.Windows.Forms.PictureBox()
Me.txtT1Verzollungsadresse = New VERAG_PROG_ALLGEMEIN.MySearchBox()
Me.Label5 = New System.Windows.Forms.Label()
Me.lblNGAId = New System.Windows.Forms.Label()
@@ -41,13 +43,13 @@ Partial Class usrCntlSND_NCTSGestellungsadresse
Me.txtT1VerzollungsadresseStrasse = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label33 = New System.Windows.Forms.Label()
Me.LinkLabel4 = New System.Windows.Forms.LinkLabel()
Me.picDel = New System.Windows.Forms.PictureBox()
Me.pnlT1.SuspendLayout()
CType(Me.picDel, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'pnlT1
'
Me.pnlT1.Controls.Add(Me.cbxNCTSAufDispo)
Me.pnlT1.Controls.Add(Me.picDel)
Me.pnlT1.Controls.Add(Me.txtT1Verzollungsadresse)
Me.pnlT1.Controls.Add(Me.Label5)
@@ -72,6 +74,30 @@ Partial Class usrCntlSND_NCTSGestellungsadresse
Me.pnlT1.Size = New System.Drawing.Size(549, 101)
Me.pnlT1.TabIndex = 0
'
'cbxNCTSAufDispo
'
Me.cbxNCTSAufDispo.AutoSize = True
Me.cbxNCTSAufDispo.Checked = True
Me.cbxNCTSAufDispo.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbxNCTSAufDispo.Location = New System.Drawing.Point(397, 75)
Me.cbxNCTSAufDispo.Name = "cbxNCTSAufDispo"
Me.cbxNCTSAufDispo.Size = New System.Drawing.Size(128, 17)
Me.cbxNCTSAufDispo.TabIndex = 19
Me.cbxNCTSAufDispo.Text = "NCTS-Adr. auf Dispo."
Me.cbxNCTSAufDispo.UseVisualStyleBackColor = True
'
'picDel
'
Me.picDel.BackgroundImage = Global.AVISO.My.Resources.Resources.del
Me.picDel.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.picDel.Cursor = System.Windows.Forms.Cursors.Hand
Me.picDel.Location = New System.Drawing.Point(100, 52)
Me.picDel.Name = "picDel"
Me.picDel.Size = New System.Drawing.Size(15, 15)
Me.picDel.TabIndex = 18
Me.picDel.TabStop = False
Me.picDel.Visible = False
'
'txtT1Verzollungsadresse
'
Me.txtT1Verzollungsadresse._allowFreitext = True
@@ -121,7 +147,7 @@ Partial Class usrCntlSND_NCTSGestellungsadresse
'
Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.btn.Location = New System.Drawing.Point(438, 69)
Me.btn.Location = New System.Drawing.Point(438, 51)
Me.btn.Name = "btn"
Me.btn.Size = New System.Drawing.Size(108, 23)
Me.btn.TabIndex = 17
@@ -302,6 +328,7 @@ Partial Class usrCntlSND_NCTSGestellungsadresse
Me.txtT1VerzollungsadresseOrt._TimeOnly = False
Me.txtT1VerzollungsadresseOrt._value = Nothing
Me.txtT1VerzollungsadresseOrt._Waehrung = False
Me.txtT1VerzollungsadresseOrt._WaehrungZeichen = True
Me.txtT1VerzollungsadresseOrt.ForeColor = System.Drawing.Color.Black
Me.txtT1VerzollungsadresseOrt.Location = New System.Drawing.Point(213, 49)
Me.txtT1VerzollungsadresseOrt.MaxLength = 35
@@ -323,6 +350,7 @@ Partial Class usrCntlSND_NCTSGestellungsadresse
Me.txtT1VerzollungsadressePlz._TimeOnly = False
Me.txtT1VerzollungsadressePlz._value = Nothing
Me.txtT1VerzollungsadressePlz._Waehrung = False
Me.txtT1VerzollungsadressePlz._WaehrungZeichen = True
Me.txtT1VerzollungsadressePlz.ForeColor = System.Drawing.Color.Black
Me.txtT1VerzollungsadressePlz.Location = New System.Drawing.Point(152, 49)
Me.txtT1VerzollungsadressePlz.MaxLength = 9
@@ -344,6 +372,7 @@ Partial Class usrCntlSND_NCTSGestellungsadresse
Me.txtT1VerzollungsadresseStrasse._TimeOnly = False
Me.txtT1VerzollungsadresseStrasse._value = Nothing
Me.txtT1VerzollungsadresseStrasse._Waehrung = False
Me.txtT1VerzollungsadresseStrasse._WaehrungZeichen = True
Me.txtT1VerzollungsadresseStrasse.ForeColor = System.Drawing.Color.Black
Me.txtT1VerzollungsadresseStrasse.Location = New System.Drawing.Point(121, 30)
Me.txtT1VerzollungsadresseStrasse.MaxLength = 35
@@ -376,18 +405,6 @@ Partial Class usrCntlSND_NCTSGestellungsadresse
Me.LinkLabel4.TabStop = True
Me.LinkLabel4.Text = "= Empfänger"
'
'picDel
'
Me.picDel.BackgroundImage = Global.AVISO.My.Resources.Resources.del
Me.picDel.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.picDel.Cursor = System.Windows.Forms.Cursors.Hand
Me.picDel.Location = New System.Drawing.Point(100, 52)
Me.picDel.Name = "picDel"
Me.picDel.Size = New System.Drawing.Size(15, 15)
Me.picDel.TabIndex = 18
Me.picDel.TabStop = False
Me.picDel.Visible = False
'
'usrCntlSND_NCTSGestellungsadresse
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -421,4 +438,5 @@ Partial Class usrCntlSND_NCTSGestellungsadresse
Friend WithEvents lblNGAId As Label
Friend WithEvents txtT1Verzollungsadresse As VERAG_PROG_ALLGEMEIN.MySearchBox
Friend WithEvents picDel As PictureBox
Friend WithEvents cbxNCTSAufDispo As CheckBox
End Class

2
Aviso/usrCntlSND_NCTSGestellungsadresse.vb
View File

@@ -35,6 +35,7 @@
txtT1VerzollungsadresseEORI_NL.Text = If(NCTS_GA.nga_EORI_NL, "")
txtT1VerzollungsadresseBestimmungszollstelle.SET_VALUE(If(NCTS_GA.nga_bestZollst, ""))
lblNGAId.Text = If(NCTS_GA.nga_id > 0, NCTS_GA.nga_id, "-")
picDel.Visible = (NCTS_GA.nga_id > 0)
End Sub
@@ -127,4 +128,5 @@
setValues()
End If
End Sub
End Class

314
Aviso/usrcntlAktDetails.Designer.vb generated
View File

@@ -62,15 +62,22 @@ Partial Class usrcntlAktDetails
Me.btn = New System.Windows.Forms.Button()
Me.dgvSendungen = New System.Windows.Forms.DataGridView()
Me.Panel7 = New System.Windows.Forms.Panel()
Me.Button18 = New System.Windows.Forms.Button()
Me.Panel4 = New System.Windows.Forms.Panel()
Me.Button9 = New System.Windows.Forms.Button()
Me.btnSendungslisteUNISPED = New System.Windows.Forms.Button()
Me.cbxAlleFirmen = New System.Windows.Forms.CheckBox()
Me.Button12 = New System.Windows.Forms.Button()
Me.Button11 = New System.Windows.Forms.Button()
Me.btnKasse_User = New System.Windows.Forms.Button()
Me.cboFormulareRgAn = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Label4 = New System.Windows.Forms.Label()
Me.Button8 = New System.Windows.Forms.Button()
Me.Button10 = New System.Windows.Forms.Button()
Me.Button9 = New System.Windows.Forms.Button()
Me.btnKasse_LG = New System.Windows.Forms.Button()
Me.Button18 = New System.Windows.Forms.Button()
Me.gridVermerke = New System.Windows.Forms.DataGridView()
Me.pnlVermerkeTop = New System.Windows.Forms.Panel()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.Button8 = New System.Windows.Forms.Button()
Me.Button6 = New System.Windows.Forms.Button()
Me.btnFormulare = New System.Windows.Forms.Button()
Me.pnlVermLeft = New System.Windows.Forms.Panel()
@@ -126,6 +133,7 @@ Partial Class usrcntlAktDetails
Me.lblStatus = New System.Windows.Forms.Label()
Me.conMenuVermerke = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.conVermerkLöschen = New System.Windows.Forms.ToolStripMenuItem()
Me.HervorhebenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.cntxtFormulare = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.DispolisteTRToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.DispolisteENToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
@@ -208,8 +216,8 @@ Partial Class usrcntlAktDetails
'
'SplitContainer.Panel2
'
Me.SplitContainer.Panel2.Controls.Add(Me.Button18)
Me.SplitContainer.Panel2.Controls.Add(Me.Panel4)
Me.SplitContainer.Panel2.Controls.Add(Me.Button18)
Me.SplitContainer.Panel2.Controls.Add(Me.gridVermerke)
Me.SplitContainer.Panel2.Controls.Add(Me.pnlVermerkeTop)
Me.SplitContainer.Panel2.Controls.Add(Me.addVermerk)
@@ -603,6 +611,191 @@ Partial Class usrcntlAktDetails
Me.Panel7.Size = New System.Drawing.Size(0, 30)
Me.Panel7.TabIndex = 15
'
'Panel4
'
Me.Panel4.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Panel4.BackColor = System.Drawing.Color.PapayaWhip
Me.Panel4.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Panel4.Controls.Add(Me.btnSendungslisteUNISPED)
Me.Panel4.Controls.Add(Me.cbxAlleFirmen)
Me.Panel4.Controls.Add(Me.Button12)
Me.Panel4.Controls.Add(Me.Button11)
Me.Panel4.Controls.Add(Me.btnKasse_User)
Me.Panel4.Controls.Add(Me.cboFormulareRgAn)
Me.Panel4.Controls.Add(Me.Label4)
Me.Panel4.Controls.Add(Me.Button8)
Me.Panel4.Controls.Add(Me.Button10)
Me.Panel4.Controls.Add(Me.Button9)
Me.Panel4.Controls.Add(Me.btnKasse_LG)
Me.Panel4.Location = New System.Drawing.Point(204, 27)
Me.Panel4.Name = "Panel4"
Me.Panel4.Size = New System.Drawing.Size(265, 193)
Me.Panel4.TabIndex = 102
Me.Panel4.Visible = False
'
'btnSendungslisteUNISPED
'
Me.btnSendungslisteUNISPED.BackColor = System.Drawing.Color.White
Me.btnSendungslisteUNISPED.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnSendungslisteUNISPED.ForeColor = System.Drawing.Color.Black
Me.btnSendungslisteUNISPED.Image = Global.AVISO.My.Resources.Resources.spedbuch_small
Me.btnSendungslisteUNISPED.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnSendungslisteUNISPED.Location = New System.Drawing.Point(5, 92)
Me.btnSendungslisteUNISPED.Margin = New System.Windows.Forms.Padding(0)
Me.btnSendungslisteUNISPED.Name = "btnSendungslisteUNISPED"
Me.btnSendungslisteUNISPED.Size = New System.Drawing.Size(123, 36)
Me.btnSendungslisteUNISPED.TabIndex = 112
Me.btnSendungslisteUNISPED.Text = "Alle Sendungen" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "UNISPED"
Me.btnSendungslisteUNISPED.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnSendungslisteUNISPED.UseVisualStyleBackColor = False
Me.btnSendungslisteUNISPED.Visible = False
'
'cbxAlleFirmen
'
Me.cbxAlleFirmen.AutoSize = True
Me.cbxAlleFirmen.Checked = True
Me.cbxAlleFirmen.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbxAlleFirmen.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cbxAlleFirmen.Location = New System.Drawing.Point(184, 5)
Me.cbxAlleFirmen.Name = "cbxAlleFirmen"
Me.cbxAlleFirmen.Size = New System.Drawing.Size(76, 17)
Me.cbxAlleFirmen.TabIndex = 111
Me.cbxAlleFirmen.Text = "alle Firmen"
Me.cbxAlleFirmen.UseVisualStyleBackColor = True
'
'Button12
'
Me.Button12.BackColor = System.Drawing.Color.White
Me.Button12.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button12.ForeColor = System.Drawing.Color.Black
Me.Button12.Image = Global.AVISO.My.Resources.Resources.spedbuch_small
Me.Button12.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button12.Location = New System.Drawing.Point(134, 92)
Me.Button12.Margin = New System.Windows.Forms.Padding(0)
Me.Button12.Name = "Button12"
Me.Button12.Size = New System.Drawing.Size(128, 36)
Me.Button12.TabIndex = 110
Me.Button12.Text = "Alle Steuerbe-" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "scheide drucken"
Me.Button12.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button12.UseVisualStyleBackColor = False
'
'Button11
'
Me.Button11.BackColor = System.Drawing.Color.White
Me.Button11.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button11.ForeColor = System.Drawing.Color.Black
Me.Button11.Image = Global.AVISO.My.Resources.Resources.spedbuch_small
Me.Button11.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button11.Location = New System.Drawing.Point(134, 57)
Me.Button11.Margin = New System.Windows.Forms.Padding(0)
Me.Button11.Name = "Button11"
Me.Button11.Size = New System.Drawing.Size(128, 36)
Me.Button11.TabIndex = 109
Me.Button11.Text = "Alle Aktendeckel " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "drucken"
Me.Button11.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button11.UseVisualStyleBackColor = False
'
'btnKasse_User
'
Me.btnKasse_User.BackColor = System.Drawing.Color.White
Me.btnKasse_User.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnKasse_User.ForeColor = System.Drawing.Color.Black
Me.btnKasse_User.Image = Global.AVISO.My.Resources.Resources.pdf11
Me.btnKasse_User.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnKasse_User.Location = New System.Drawing.Point(5, 22)
Me.btnKasse_User.Margin = New System.Windows.Forms.Padding(0)
Me.btnKasse_User.Name = "btnKasse_User"
Me.btnKasse_User.Size = New System.Drawing.Size(123, 36)
Me.btnKasse_User.TabIndex = 4
Me.btnKasse_User.Text = "Dispoliste" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "alle Sendg."
Me.btnKasse_User.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnKasse_User.UseVisualStyleBackColor = False
'
'cboFormulareRgAn
'
Me.cboFormulareRgAn._allowedValuesFreiText = Nothing
Me.cboFormulareRgAn._allowFreiText = False
Me.cboFormulareRgAn._value = ""
Me.cboFormulareRgAn.FormattingEnabled = True
Me.cboFormulareRgAn.Location = New System.Drawing.Point(40, 2)
Me.cboFormulareRgAn.Name = "cboFormulareRgAn"
Me.cboFormulareRgAn.Size = New System.Drawing.Size(88, 21)
Me.cboFormulareRgAn.TabIndex = 108
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.Location = New System.Drawing.Point(3, 5)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(39, 13)
Me.Label4.TabIndex = 107
Me.Label4.Text = "Rg.an:"
Me.Label4.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'Button8
'
Me.Button8.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Button8.BackColor = System.Drawing.Color.White
Me.Button8.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button8.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!)
Me.Button8.ForeColor = System.Drawing.Color.Black
Me.Button8.Image = Global.AVISO.My.Resources.Resources.spedbuch_small
Me.Button8.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button8.Location = New System.Drawing.Point(134, 142)
Me.Button8.Name = "Button8"
Me.Button8.Size = New System.Drawing.Size(126, 36)
Me.Button8.TabIndex = 106
Me.Button8.Text = "SA-Gest."
Me.Button8.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button8.UseVisualStyleBackColor = False
'
'Button10
'
Me.Button10.BackColor = System.Drawing.Color.White
Me.Button10.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button10.ForeColor = System.Drawing.Color.Black
Me.Button10.Image = Global.AVISO.My.Resources.Resources.spedbuch_small
Me.Button10.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button10.Location = New System.Drawing.Point(134, 22)
Me.Button10.Margin = New System.Windows.Forms.Padding(0)
Me.Button10.Name = "Button10"
Me.Button10.Size = New System.Drawing.Size(128, 36)
Me.Button10.TabIndex = 6
Me.Button10.Text = "Laufzettel" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Zoll DE"
Me.Button10.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button10.UseVisualStyleBackColor = False
'
'Button9
'
Me.Button9.BackColor = System.Drawing.Color.White
Me.Button9.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button9.ForeColor = System.Drawing.Color.Black
Me.Button9.Image = Global.AVISO.My.Resources.Resources.email_big1
Me.Button9.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button9.Location = New System.Drawing.Point(5, 57)
Me.Button9.Margin = New System.Windows.Forms.Padding(0)
Me.Button9.Name = "Button9"
Me.Button9.Size = New System.Drawing.Size(123, 36)
Me.Button9.TabIndex = 5
Me.Button9.Text = "Dispoliste" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "alle Sendg."
Me.Button9.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button9.UseVisualStyleBackColor = False
'
'btnKasse_LG
'
Me.btnKasse_LG.BackColor = System.Drawing.Color.White
Me.btnKasse_LG.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnKasse_LG.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.btnKasse_LG.ForeColor = System.Drawing.Color.Black
Me.btnKasse_LG.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnKasse_LG.Location = New System.Drawing.Point(5, 142)
Me.btnKasse_LG.Margin = New System.Windows.Forms.Padding(0)
Me.btnKasse_LG.Name = "btnKasse_LG"
Me.btnKasse_LG.Size = New System.Drawing.Size(123, 36)
Me.btnKasse_LG.TabIndex = 3
Me.btnKasse_LG.Text = "Dispo.Haft" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(nur T1/T2)"
Me.btnKasse_LG.UseVisualStyleBackColor = False
'
'Button18
'
Me.Button18.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
@@ -618,63 +811,6 @@ Partial Class usrcntlAktDetails
Me.Button18.UseVisualStyleBackColor = True
Me.Button18.Visible = False
'
'Panel4
'
Me.Panel4.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Panel4.BackColor = System.Drawing.Color.Black
Me.Panel4.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Panel4.Controls.Add(Me.Button9)
Me.Panel4.Controls.Add(Me.btnKasse_User)
Me.Panel4.Controls.Add(Me.btnKasse_LG)
Me.Panel4.Location = New System.Drawing.Point(376, 26)
Me.Panel4.Name = "Panel4"
Me.Panel4.Size = New System.Drawing.Size(93, 105)
Me.Panel4.TabIndex = 102
Me.Panel4.Visible = False
'
'Button9
'
Me.Button9.BackColor = System.Drawing.Color.White
Me.Button9.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button9.ForeColor = System.Drawing.Color.Black
Me.Button9.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button9.Location = New System.Drawing.Point(2, 66)
Me.Button9.Margin = New System.Windows.Forms.Padding(0)
Me.Button9.Name = "Button9"
Me.Button9.Size = New System.Drawing.Size(88, 36)
Me.Button9.TabIndex = 5
Me.Button9.Text = "alle Sendg. Mail"
Me.Button9.UseVisualStyleBackColor = False
'
'btnKasse_User
'
Me.btnKasse_User.BackColor = System.Drawing.Color.White
Me.btnKasse_User.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnKasse_User.ForeColor = System.Drawing.Color.Black
Me.btnKasse_User.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnKasse_User.Location = New System.Drawing.Point(1, 30)
Me.btnKasse_User.Margin = New System.Windows.Forms.Padding(0)
Me.btnKasse_User.Name = "btnKasse_User"
Me.btnKasse_User.Size = New System.Drawing.Size(88, 36)
Me.btnKasse_User.TabIndex = 4
Me.btnKasse_User.Text = "alle Sendg. PDF"
Me.btnKasse_User.UseVisualStyleBackColor = False
'
'btnKasse_LG
'
Me.btnKasse_LG.BackColor = System.Drawing.Color.White
Me.btnKasse_LG.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnKasse_LG.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.btnKasse_LG.ForeColor = System.Drawing.Color.Black
Me.btnKasse_LG.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnKasse_LG.Location = New System.Drawing.Point(1, -3)
Me.btnKasse_LG.Margin = New System.Windows.Forms.Padding(0)
Me.btnKasse_LG.Name = "btnKasse_LG"
Me.btnKasse_LG.Size = New System.Drawing.Size(88, 36)
Me.btnKasse_LG.TabIndex = 3
Me.btnKasse_LG.Text = "Dispo.Haft" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(nur T1/T2)"
Me.btnKasse_LG.UseVisualStyleBackColor = False
'
'gridVermerke
'
Me.gridVermerke.AllowUserToAddRows = False
@@ -743,7 +879,6 @@ Partial Class usrcntlAktDetails
'
'Panel1
'
Me.Panel1.Controls.Add(Me.Button8)
Me.Panel1.Controls.Add(Me.Button6)
Me.Panel1.Controls.Add(Me.btnFormulare)
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Right
@@ -752,21 +887,6 @@ Partial Class usrcntlAktDetails
Me.Panel1.Size = New System.Drawing.Size(275, 30)
Me.Panel1.TabIndex = 104
'
'Button8
'
Me.Button8.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Button8.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button8.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!)
Me.Button8.ForeColor = System.Drawing.Color.Black
Me.Button8.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button8.Location = New System.Drawing.Point(5, 2)
Me.Button8.Name = "Button8"
Me.Button8.Size = New System.Drawing.Size(72, 25)
Me.Button8.TabIndex = 106
Me.Button8.Text = "SA-Gest."
Me.Button8.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button8.UseVisualStyleBackColor = True
'
'Button6
'
Me.Button6.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
@@ -791,11 +911,11 @@ Partial Class usrcntlAktDetails
Me.btnFormulare.ForeColor = System.Drawing.Color.Black
Me.btnFormulare.Image = Global.AVISO.My.Resources.Resources.spedbuch_small
Me.btnFormulare.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnFormulare.Location = New System.Drawing.Point(76, 2)
Me.btnFormulare.Location = New System.Drawing.Point(45, 2)
Me.btnFormulare.Name = "btnFormulare"
Me.btnFormulare.Size = New System.Drawing.Size(93, 25)
Me.btnFormulare.Size = New System.Drawing.Size(124, 25)
Me.btnFormulare.TabIndex = 104
Me.btnFormulare.Text = "Snd.Liste"
Me.btnFormulare.Text = "Formulare"
Me.btnFormulare.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnFormulare.UseVisualStyleBackColor = True
'
@@ -1019,10 +1139,11 @@ Partial Class usrcntlAktDetails
Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button4.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
Me.Button4.ForeColor = System.Drawing.Color.Black
Me.Button4.Image = Global.AVISO.My.Resources.Resources.personCheck_small
Me.Button4.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button4.Location = New System.Drawing.Point(4, 78)
Me.Button4.Name = "Button4"
Me.Button4.Size = New System.Drawing.Size(134, 35)
Me.Button4.Size = New System.Drawing.Size(142, 35)
Me.Button4.TabIndex = 101
Me.Button4.Text = "Akt übernehmen"
Me.Button4.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
@@ -1052,7 +1173,7 @@ Partial Class usrcntlAktDetails
Me.txtAktMA.BorderStyle = System.Windows.Forms.BorderStyle.None
Me.txtAktMA.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtAktMA.ForeColor = System.Drawing.Color.Black
Me.txtAktMA.Location = New System.Drawing.Point(144, 96)
Me.txtAktMA.Location = New System.Drawing.Point(150, 96)
Me.txtAktMA.MaxLength = 0
Me.txtAktMA.Name = "txtAktMA"
Me.txtAktMA.ReadOnly = True
@@ -1065,7 +1186,7 @@ Partial Class usrcntlAktDetails
Me.Label3.AutoSize = True
Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label3.ForeColor = System.Drawing.Color.Black
Me.Label3.Location = New System.Drawing.Point(144, 76)
Me.Label3.Location = New System.Drawing.Point(150, 76)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(59, 17)
Me.Label3.TabIndex = 96
@@ -1497,32 +1618,38 @@ Partial Class usrcntlAktDetails
'
'conMenuVermerke
'
Me.conMenuVermerke.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.conVermerkLöschen})
Me.conMenuVermerke.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.conVermerkLöschen, Me.HervorhebenToolStripMenuItem})
Me.conMenuVermerke.Name = "conMenuVermerke"
Me.conMenuVermerke.Size = New System.Drawing.Size(162, 26)
Me.conMenuVermerke.Size = New System.Drawing.Size(186, 48)
'
'conVermerkLöschen
'
Me.conVermerkLöschen.Name = "conVermerkLöschen"
Me.conVermerkLöschen.Size = New System.Drawing.Size(161, 22)
Me.conVermerkLöschen.Size = New System.Drawing.Size(185, 22)
Me.conVermerkLöschen.Text = "Vermerk löschen"
'
'HervorhebenToolStripMenuItem
'
Me.HervorhebenToolStripMenuItem.Name = "HervorhebenToolStripMenuItem"
Me.HervorhebenToolStripMenuItem.Size = New System.Drawing.Size(185, 22)
Me.HervorhebenToolStripMenuItem.Text = "Hervorheben ein/aus"
'
'cntxtFormulare
'
Me.cntxtFormulare.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DispolisteTRToolStripMenuItem, Me.DispolisteENToolStripMenuItem})
Me.cntxtFormulare.Name = "cntxtFormulare"
Me.cntxtFormulare.Size = New System.Drawing.Size(144, 48)
Me.cntxtFormulare.Size = New System.Drawing.Size(181, 70)
'
'DispolisteTRToolStripMenuItem
'
Me.DispolisteTRToolStripMenuItem.Name = "DispolisteTRToolStripMenuItem"
Me.DispolisteTRToolStripMenuItem.Size = New System.Drawing.Size(143, 22)
Me.DispolisteTRToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
Me.DispolisteTRToolStripMenuItem.Text = "Dispoliste TR"
'
'DispolisteENToolStripMenuItem
'
Me.DispolisteENToolStripMenuItem.Name = "DispolisteENToolStripMenuItem"
Me.DispolisteENToolStripMenuItem.Size = New System.Drawing.Size(143, 22)
Me.DispolisteENToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
Me.DispolisteENToolStripMenuItem.Text = "Dispoliste EN"
'
'pnlOptionen
@@ -1607,6 +1734,7 @@ Partial Class usrcntlAktDetails
Me.pnlSBG.PerformLayout()
CType(Me.dgvSendungen, System.ComponentModel.ISupportInitialize).EndInit()
Me.Panel4.ResumeLayout(False)
Me.Panel4.PerformLayout()
CType(Me.gridVermerke, System.ComponentModel.ISupportInitialize).EndInit()
Me.pnlVermerkeTop.ResumeLayout(False)
Me.pnlVermerkeTop.PerformLayout()
@@ -1738,4 +1866,12 @@ Partial Class usrcntlAktDetails
Friend WithEvents tbAnhang As TabPage
Friend WithEvents Button18 As Button
Friend WithEvents Button9 As Button
Friend WithEvents Button10 As Button
Friend WithEvents cboFormulareRgAn As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents Label4 As Label
Friend WithEvents Button11 As Button
Friend WithEvents HervorhebenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents Button12 As Button
Friend WithEvents cbxAlleFirmen As CheckBox
Friend WithEvents btnSendungslisteUNISPED As Button
End Class

861
Aviso/usrcntlAktDetails.vb
View File

File diff suppressed because it is too large Load Diff

138
Aviso/usrcntlAktDetailsATILLANeu.Designer.vb generated
View File

@@ -33,12 +33,17 @@ 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 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 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))
Me.pnlDetailsRechts = New System.Windows.Forms.Panel()
Me.Panel3 = New System.Windows.Forms.Panel()
Me.SplitContainer = New System.Windows.Forms.SplitContainer()
@@ -120,6 +125,8 @@ Partial Class usrcntlAktDetailsATILLANeu
Me.NCTST2ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
Me.AESToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.tbAnhaenge = New System.Windows.Forms.TabPage()
Me.dgvanhaenge = New System.Windows.Forms.DataGridView()
Me.pnlDetailsRechts.SuspendLayout()
Me.Panel3.SuspendLayout()
CType(Me.SplitContainer, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -152,6 +159,8 @@ Partial Class usrcntlAktDetailsATILLANeu
Me.conMenuVermerke.SuspendLayout()
Me.cntxtFormulare.SuspendLayout()
Me.cntxtZollantrag.SuspendLayout()
Me.tbAnhaenge.SuspendLayout()
CType(Me.dgvanhaenge, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'pnlDetailsRechts
@@ -209,6 +218,7 @@ Partial Class usrcntlAktDetailsATILLANeu
Me.tbcntr.Controls.Add(Me.TabPage1)
Me.tbcntr.Controls.Add(Me.TabPage3)
Me.tbcntr.Controls.Add(Me.TabPage2)
Me.tbcntr.Controls.Add(Me.tbAnhaenge)
Me.tbcntr.Dock = System.Windows.Forms.DockStyle.Fill
Me.tbcntr.Location = New System.Drawing.Point(0, 0)
Me.tbcntr.Name = "tbcntr"
@@ -461,44 +471,44 @@ Partial Class usrcntlAktDetailsATILLANeu
Me.gridVermerke.AllowUserToAddRows = False
Me.gridVermerke.AllowUserToDeleteRows = False
Me.gridVermerke.AllowUserToResizeRows = False
DataGridViewCellStyle11.BackColor = System.Drawing.Color.Azure
DataGridViewCellStyle11.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.gridVermerke.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle11
DataGridViewCellStyle16.BackColor = System.Drawing.Color.Azure
DataGridViewCellStyle16.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.gridVermerke.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle16
Me.gridVermerke.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.gridVermerke.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle12
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
Me.gridVermerke.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.gridVermerke.DefaultCellStyle = DataGridViewCellStyle13
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
Me.gridVermerke.Dock = System.Windows.Forms.DockStyle.Fill
Me.gridVermerke.Location = New System.Drawing.Point(0, 29)
Me.gridVermerke.MultiSelect = False
Me.gridVermerke.Name = "gridVermerke"
Me.gridVermerke.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.gridVermerke.RowHeadersDefaultCellStyle = DataGridViewCellStyle14
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
Me.gridVermerke.RowHeadersVisible = False
Me.gridVermerke.RowHeadersWidthSizeMode = System.Windows.Forms.DataGridViewRowHeadersWidthSizeMode.DisableResizing
DataGridViewCellStyle15.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.gridVermerke.RowsDefaultCellStyle = DataGridViewCellStyle15
DataGridViewCellStyle20.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.gridVermerke.RowsDefaultCellStyle = DataGridViewCellStyle20
Me.gridVermerke.RowTemplate.Height = 20
Me.gridVermerke.RowTemplate.ReadOnly = True
Me.gridVermerke.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[False]
@@ -1294,6 +1304,70 @@ Partial Class usrcntlAktDetailsATILLANeu
Me.AESToolStripMenuItem.Size = New System.Drawing.Size(156, 22)
Me.AESToolStripMenuItem.Text = "AES - Ausfuhr"
'
'tbAnhaenge
'
Me.tbAnhaenge.Controls.Add(Me.dgvanhaenge)
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, 117)
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.MultiSelect = False
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 = 20
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, 111)
Me.dgvanhaenge.TabIndex = 102
Me.dgvanhaenge.TabStop = False
'
'usrcntlAktDetailsATILLANeu
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -1346,6 +1420,8 @@ Partial Class usrcntlAktDetailsATILLANeu
Me.conMenuVermerke.ResumeLayout(False)
Me.cntxtFormulare.ResumeLayout(False)
Me.cntxtZollantrag.ResumeLayout(False)
Me.tbAnhaenge.ResumeLayout(False)
CType(Me.dgvanhaenge, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
@@ -1431,4 +1507,6 @@ Partial Class usrcntlAktDetailsATILLANeu
Friend WithEvents Label6 As System.Windows.Forms.Label
Friend WithEvents Button8 As System.Windows.Forms.Button
Friend WithEvents Button9 As Button
Friend WithEvents tbAnhaenge As TabPage
Friend WithEvents dgvanhaenge As DataGridView
End Class

69
Aviso/usrcntlAktDetailsATILLANeu.vb
View File

@@ -94,6 +94,7 @@ Public Class usrcntlAktDetailsATILLANeu
Vermerke_anzeigen()
initDgvSpeditionsbuch()
initdgvZollAnmeldungen()
initAnhaenge()
If AVISO IsNot Nothing Then
@@ -425,6 +426,72 @@ Public Class usrcntlAktDetailsATILLANeu
End Sub
Sub initAnhaenge()
Dim hSQL As String = " SELECT [anh_id],[anh_Name],[anh_docId],[anh_Art],[anh_Typ] FROM [tblAvisoAnhaenge]
WHERE [anh_AvisoId]='" & AvisoID & "' AND isnull(anh_SendungsId,0) <=0
ORDER BY
case
when [anh_Art] = 'ATR-EUR1' then 0
when [anh_Art] = 'Rechnung' then 1
when [anh_Art] = 'CMR' then 2
when [anh_Art] = 'Ausfuhr' then 3
when [anh_Art] = 'Vorpapier' then 4
when [anh_Art] = 'Packliste' then 5
when [anh_Art] = 'Auftrag' then 6
when [anh_Art] = 'Auftrag' then 7
when [anh_Art] = 'Dispoliste' then 8
when [anh_Art] = 'Vorkasse' then 9
when [anh_Art] = 'Überweisungsbeleg' then 10
when [anh_Art] = 'Vollmacht' then 11
when [anh_Art] = 'ATB' then 12
when [anh_Art] = 'ATA' then 13
when [anh_Art] = 'Sonstiges' then 99
when [anh_Art] ='' then 15
END, [anh_Reihenfolge],[anh_id]"
' order by [anh_Reihenfolge],[anh_id]
dgvanhaenge.DataSource = VermerkeDAL.Anzeigen_Vermerke(hSQL)
If dgvanhaenge.RowCount = 0 Then dgvanhaenge.Columns.Clear() : Exit Sub
With dgvanhaenge
.RowTemplate.MinimumHeight = 20
.AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.AllCells
.Columns("anh_id").Visible = False 'VermerkID nicht anzeigen
.Columns("anh_docId").Visible = False 'AvisoID nicht anzeigen
.Columns("anh_Name").MinimumWidth = 150
.Columns("anh_Name").HeaderText = "Name"
.Columns("anh_Name").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
.Columns("anh_Art").MinimumWidth = 50
.Columns("anh_Art").HeaderText = "Art"
.Columns("anh_Art").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
.Columns("anh_Typ").Width = 60
.Columns("anh_Typ").HeaderText = "Typ"
.Columns("anh_Art").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
End With
End Sub
Private Sub dgvanhaenge_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvanhaenge.CellDoubleClick
Try
If dgvanhaenge.SelectedRows.Count > 0 Then
Process.Start(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(dgvanhaenge.SelectedRows(0).Cells("anh_docId").Value))
End If
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
End Try
End Sub
Private Sub gridVermerkeMouseClick(sender As Object, e As System.Windows.Forms.DataGridViewCellEventArgs) Handles gridVermerke.CellContentClick
If gridVermerke.RowCount = 0 Then Exit Sub
@@ -1231,4 +1298,6 @@ Public Class usrcntlAktDetailsATILLANeu
Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click
SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.VerpflichtungserklärungFahrer, FraechterKdNr, {AvisoID}, True)
End Sub
End Class

2
AvisoTV/App.config
View File

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

8
AvisoTV/AvisoTV.vbproj
View File

@@ -1,5 +1,5 @@
<?xml version="1.0" encoding="utf-8"?>
<Project ToolsVersion="4.0" DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<Project ToolsVersion="12.0" DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">x86</Platform>
@@ -13,7 +13,7 @@
<AssemblyName>AvisoTV</AssemblyName>
<FileAlignment>512</FileAlignment>
<MyType>WindowsForms</MyType>
<TargetFrameworkVersion>v4.5</TargetFrameworkVersion>
<TargetFrameworkVersion>v4.7</TargetFrameworkVersion>
<TargetFrameworkProfile>
</TargetFrameworkProfile>
<PublishUrl>publish\</PublishUrl>
@@ -126,9 +126,9 @@
</EmbeddedResource>
<EmbeddedResource Include="My Project\Resources.resx">
<Generator>VbMyResourcesResXFileCodeGenerator</Generator>
<LastGenOutput>Resources.Designer.vb</LastGenOutput>
<CustomToolNamespace>My.Resources</CustomToolNamespace>
<SubType>Designer</SubType>
<LastGenOutput>Resources.Designer.vb</LastGenOutput>
</EmbeddedResource>
</ItemGroup>
<ItemGroup>
@@ -166,6 +166,8 @@
<None Include="Resources\urgent_qu.png" />
<None Include="Resources\urgent.png" />
<None Include="Resources\IMEX-LOGO_simple.png" />
<None Include="Resources\Unisped_logo.jpg" />
<None Include="Resources\FrontOfficeSUB.jpg" />
<Content Include="tv.ico" />
</ItemGroup>
<ItemGroup>

4
AvisoTV/My Project/Application.Designer.vb generated
View File

@@ -14,8 +14,8 @@ Option Explicit On
Namespace My
'HINWEIS: Diese Datei wird automatisch generiert. Ändern Sie sie nicht direkt. Zum Ändern
' oder bei in dieser Datei auftretenden Buildfehlern wechseln Sie zum Projekt-Designer.
'HINWEIS: Diese Datei wird automatisch generiert und darf nicht direkt bearbeitet werden. Wenn Sie Änderungen vornehmen möchten
' oder in dieser Datei Buildfehler auftreten, wechseln Sie zum Projekt-Designer.
' (Wechseln Sie dazu zu den Projekteigenschaften, oder doppelklicken Sie auf den Knoten "Mein Projekt" im
' Projektmappen-Explorer). Nehmen Sie auf der Registerkarte "Anwendung" entsprechende Änderungen vor.
'

31
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", "4.0.0.0"), _
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "15.0.0.0"), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _
@@ -107,6 +107,25 @@ Namespace My.Resources
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property FrontOfficeSUB() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("FrontOfficeSUB", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die ähnelt.
'''</summary>
Friend ReadOnly Property ggg5ggggggg() As String
Get
Return ResourceManager.GetString("ggg5ggggggg", resourceCulture)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
@@ -136,6 +155,16 @@ Namespace My.Resources
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property Unisped_logo() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("Unisped_logo", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>

9
AvisoTV/My Project/Resources.resx
View File

@@ -154,4 +154,13 @@
<data name="IMEX_LOGO_simple" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\IMEX-LOGO_simple.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Unisped_logo" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Unisped_logo.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="FrontOfficeSUB" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\FrontOfficeSUB.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ggg5ggggggg" xml:space="preserve">
<value />
</data>
</root>

6
AvisoTV/My Project/Settings.Designer.vb generated
View File

@@ -15,21 +15,21 @@ Option Explicit On
Namespace My
<Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "12.0.0.0"), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "15.9.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 "Funktion zum automatischen Speichern von My.Settings"
#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(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs)
Private Shared Sub AutoSaveSettings(sender As Global.System.Object, e As Global.System.EventArgs)
If My.Application.SaveMySettingsOnExit Then
My.Settings.Save()
End If

BIN
AvisoTV/Resources/FrontOfficeSUB.jpg Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 25 KiB

BIN
AvisoTV/Resources/Unisped_logo.jpg Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 121 KiB

60
AvisoTV/frmAnzeige.Designer.vb generated
View File

@@ -60,7 +60,7 @@ Partial Class frmAnzeige
Me.txtSchrift6 = New System.Windows.Forms.TextBox()
Me.Label13 = New System.Windows.Forms.Label()
Me.Label12 = New System.Windows.Forms.Label()
Me.ComboBox1 = New System.Windows.Forms.ComboBox()
Me.cboFirma = New System.Windows.Forms.ComboBox()
Me.Label10 = New System.Windows.Forms.Label()
Me.Label8 = New System.Windows.Forms.Label()
Me.btnTestAnzeige = New System.Windows.Forms.Button()
@@ -90,6 +90,7 @@ Partial Class frmAnzeige
Me.picVERAG = New System.Windows.Forms.PictureBox()
Me.btnClose = New System.Windows.Forms.Button()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.Button4 = New System.Windows.Forms.Button()
Me.Button3 = New System.Windows.Forms.Button()
Me.Label11 = New System.Windows.Forms.Label()
Me.Panel2 = New System.Windows.Forms.Panel()
@@ -106,7 +107,6 @@ Partial Class frmAnzeige
Me.Label17 = New System.Windows.Forms.Label()
Me.Button2 = New System.Windows.Forms.Button()
Me.pnl = New System.Windows.Forms.Panel()
Me.Button4 = New System.Windows.Forms.Button()
CType(Me.gridAnkunft, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.picConnectionProblem, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.picVERAG, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -394,16 +394,16 @@ Partial Class frmAnzeige
Me.Label12.TabIndex = 29
Me.Label12.Text = "Standort wechseln"
'
'ComboBox1
'cboFirma
'
Me.ComboBox1.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.ComboBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.ComboBox1.FormattingEnabled = True
Me.ComboBox1.Items.AddRange(New Object() {"VERAG_ALLE", "SUB", "SBG", "WAI", "NKD", "ATILLA", "IMEX"})
Me.ComboBox1.Location = New System.Drawing.Point(316, 91)
Me.ComboBox1.Name = "ComboBox1"
Me.ComboBox1.Size = New System.Drawing.Size(150, 21)
Me.ComboBox1.TabIndex = 30
Me.cboFirma.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cboFirma.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cboFirma.FormattingEnabled = True
Me.cboFirma.Items.AddRange(New Object() {"VERAG_ALLE", "SUB", "SBG", "WAI", "NKD", "ATILLA", "IMEX", "UNISPED", "AMBAR", "FRONTOFFICE"})
Me.cboFirma.Location = New System.Drawing.Point(316, 91)
Me.cboFirma.Name = "cboFirma"
Me.cboFirma.Size = New System.Drawing.Size(150, 21)
Me.cboFirma.TabIndex = 30
'
'Label10
'
@@ -706,6 +706,23 @@ Partial Class frmAnzeige
Me.Panel1.Size = New System.Drawing.Size(1250, 21)
Me.Panel1.TabIndex = 0
'
'Button4
'
Me.Button4.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Button4.BackColor = System.Drawing.Color.Gray
Me.Button4.FlatAppearance.BorderColor = System.Drawing.Color.White
Me.Button4.FlatAppearance.BorderSize = 0
Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button4.ForeColor = System.Drawing.Color.White
Me.Button4.Location = New System.Drawing.Point(1077, 0)
Me.Button4.Name = "Button4"
Me.Button4.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.Button4.Size = New System.Drawing.Size(45, 23)
Me.Button4.TabIndex = 86
Me.Button4.Text = "< >"
Me.Button4.UseVisualStyleBackColor = False
'
'Button3
'
Me.Button3.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
@@ -849,7 +866,7 @@ Partial Class frmAnzeige
Me.grpTestAnzeige.Controls.Add(Me.Label7)
Me.grpTestAnzeige.Controls.Add(Me.Label12)
Me.grpTestAnzeige.Controls.Add(Me.txtSchrift1)
Me.grpTestAnzeige.Controls.Add(Me.ComboBox1)
Me.grpTestAnzeige.Controls.Add(Me.cboFirma)
Me.grpTestAnzeige.Controls.Add(Me.Label9)
Me.grpTestAnzeige.Controls.Add(Me.Label10)
Me.grpTestAnzeige.Controls.Add(Me.txtSchrift2)
@@ -931,23 +948,6 @@ Partial Class frmAnzeige
Me.pnl.Size = New System.Drawing.Size(487, 20)
Me.pnl.TabIndex = 87
'
'Button4
'
Me.Button4.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Button4.BackColor = System.Drawing.Color.Gray
Me.Button4.FlatAppearance.BorderColor = System.Drawing.Color.White
Me.Button4.FlatAppearance.BorderSize = 0
Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button4.ForeColor = System.Drawing.Color.White
Me.Button4.Location = New System.Drawing.Point(1077, 0)
Me.Button4.Name = "Button4"
Me.Button4.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.Button4.Size = New System.Drawing.Size(45, 23)
Me.Button4.TabIndex = 86
Me.Button4.Text = "< >"
Me.Button4.UseVisualStyleBackColor = False
'
'frmAnzeige
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -1018,7 +1018,7 @@ Partial Class frmAnzeige
Friend WithEvents Panel1 As System.Windows.Forms.Panel
Friend WithEvents Panel2 As System.Windows.Forms.Panel
Friend WithEvents Label11 As System.Windows.Forms.Label
Friend WithEvents ComboBox1 As System.Windows.Forms.ComboBox
Friend WithEvents cboFirma As System.Windows.Forms.ComboBox
Friend WithEvents Label12 As System.Windows.Forms.Label
Friend WithEvents Button3 As System.Windows.Forms.Button
Friend WithEvents txtBreite6 As System.Windows.Forms.TextBox

44
AvisoTV/frmAnzeige.vb
View File

@@ -30,7 +30,7 @@ Public Class frmAnzeige
Private StandortATILLA As Boolean = False
Private StandortSUB12 As Boolean = False
Private ZeilenATILLA As Integer = 16
Dim CLUSTER As String = ""
Private Font1 As New Font(FontFamily.GenericSansSerif, 70, FontStyle.Bold)
Private Font1_MESS As New Font(FontFamily.GenericSansSerif, 40, FontStyle.Bold)
@@ -101,10 +101,11 @@ Public Class frmAnzeige
Panel1.ForeColor = Color.White
lblAnzahl.ForeColor = Color.White
lblSeite.ForeColor = Color.White
CLUSTER = ""
VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG"
'Standort Atilla bekommt Sonderanzeige
If Standort = "ATILLA" Then
VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA"
StandortATILLA = True
ZeilenStandard = ZeilenATILLA
@@ -112,6 +113,7 @@ Public Class frmAnzeige
Standort = ""
ElseIf Standort = "IMEX" Then
VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "IMEX"
' VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER = "FRONTOFFICE"
Panel1.BackColor = Color.Gold
Panel1.BackColor = Color.Gold
lblZeit.BackColor = Color.Gold
@@ -127,7 +129,25 @@ Public Class frmAnzeige
'gridAnkunft.BackgroundColor = Color.FromArgb(255, 255, 240)
GridBackgroundColor = Color.FromArgb(255, 255, 240)
ElseIf Standort = "UNISPED" Then
VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "UNISPED"
' VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER = "FRONTOFFICE"
Panel1.BackColor = Color.Red
Panel1.BackColor = Color.Red
lblZeit.BackColor = Color.Red
lblAnzahl.BackColor = Color.Red
lblSeite.BackColor = Color.Red
'gridAnkunft.BackgroundColor = Color.FromArgb(255, 255, 240)
GridBackgroundColor = Color.FromArgb(255, 255, 240)
ElseIf Standort = "AMBAR" Then
VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "AMBAR"
ElseIf Standort = "FRONTOFFICE" Then
VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "FRONTOFFICE"
CLUSTER = "FRONTOFFICE"
ElseIf Standort = "VERAG" Then
' VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER = "FRONTOFFICE"
End If
gridAnkunft.AlternatingRowsDefaultCellStyle.BackColor = GridBackgroundColor
@@ -220,8 +240,15 @@ Public Class frmAnzeige
Dim where As String = " WHERE "
Dim hSQL As String = "SELECT AvisoID, Status, UPPER(LKW_Nr) as LKW_Nr, Ankunft, Dauer, letzterMitarbeiter, LKW_fertig " & buero & " , AvisoTVHinweis, ImEx FROM Aviso "
where &= " Status IN( " & stat_tmp & ") AND Firma= '" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' "
If Standort <> "" Then where &= " AND Grenzstelle = '" & Standort.Replace("IMEX", "SUB") & "'" 'nur die IMEX-LKW in SUB anzeigen
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
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 = "FRONTOFFICE" Then where &= " AND isnull(ImEx,'IMPORT') IN ('IMPORT','') "
hSQL &= where
hSQL += ank_tmp & " ORDER BY CASE " &
" when [Status] =3 then 1 " &
@@ -480,6 +507,9 @@ Public Class frmAnzeige
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 "FRONTOFFICE" : picVERAG.Image = My.Resources.FrontOfficeSUB
Case Else : picVERAG.Image = My.Resources.Verag_AG_Logopng
End Select
If StandortATILLA Then picVERAG.Image = My.Resources.Atilla
@@ -677,12 +707,12 @@ Public Class frmAnzeige
Me.Close()
End Sub
Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
Standort = ComboBox1.Text
Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboFirma.SelectedIndexChanged
Standort = cboFirma.Text
cDatenbankAVISO.GlobalConnection = Nothing
' Dim fs As New FileStream(StandortDatei, FileMode.Open, FileAccess.Write)
Dim strmWriter As New StreamWriter(StandortDatei, False)
strmWriter.WriteLine(ComboBox1.Text)
strmWriter.WriteLine(cboFirma.Text)
strmWriter.Close() ' fs.Close()
frmAnzeige_Load(Me, New EventArgs)
grpTestAnzeige.Visible = False

BIN
Diverses/aviso_messenger.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 16 KiB

BIN
Diverses/digitalerAkt.jpg Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 50 KiB

BIN
Diverses/digitalerAkt_small.jpg Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 10 KiB

BIN
Diverses/miniButtons/statusBtn_vorbereitet.psd Normal file
View File

Binary file not shown.

BIN
Diverses/miniButtons/statusBtn_vorbereitet_Aktiv.jpg Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 2.1 KiB

BIN
Diverses/miniButtons/statusBtn_vorbereitet_InAktiv.jpg Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 1.5 KiB

BIN
Diverses/miniButtons/statusBtn_vorgeschrieben.psd Normal file
View File

Binary file not shown.

BIN
Diverses/miniButtons/statusBtn_vorgeschrieben_Aktiv.jpg Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 2.1 KiB

BIN
Diverses/miniButtons/statusBtn_vorgeschrieben_InAktiv.jpg Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 1.5 KiB

BIN
Diverses/personCheck.jpg Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 70 KiB

BIN
Diverses/personCheck.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 20 KiB

BIN
Diverses/personCheck_blue.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 13 KiB

BIN
Diverses/personCheck_blue_small.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 618 B

BIN
Diverses/personCheck_gray_small.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 3.8 KiB

BIN
Diverses/personCheck_small.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 613 B

9
Gemeinsames/Gemeinsames.vbproj
View File

@@ -158,6 +158,12 @@
<Compile Include="rptSendungen.vb">
<SubType>Component</SubType>
</Compile>
<Compile Include="subRptSendungenATA.Designer.vb">
<DependentUpon>subRptSendungenATA.vb</DependentUpon>
</Compile>
<Compile Include="subRptSendungenATA.vb">
<SubType>Component</SubType>
</Compile>
<Compile Include="subRptSendungenZollpruefung.Designer.vb">
<DependentUpon>subRptSendungenZollpruefung.vb</DependentUpon>
</Compile>
@@ -188,6 +194,9 @@
<EmbeddedResource Include="rptSendungen.resx">
<DependentUpon>rptSendungen.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="subRptSendungenATA.resx">
<DependentUpon>subRptSendungenATA.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="subRptSendungenZollpruefung.resx">
<DependentUpon>subRptSendungenZollpruefung.vb</DependentUpon>
</EmbeddedResource>

92
Gemeinsames/rptSendungen.Designer.vb generated
View File

@@ -120,6 +120,11 @@ Partial Public Class rptSendungen
Me.cbxDyUebermittelt = New GrapeCity.ActiveReports.SectionReportModel.CheckBox()
Me.shGrenze = New GrapeCity.ActiveReports.SectionReportModel.Shape()
Me.barcodeLKW = New GrapeCity.ActiveReports.SectionReportModel.Picture()
Me.txtAvisierer_VK = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAuftraggeber_VK = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtEmpfaenger_VK = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAbsender_VK = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtFrachtfuehrer_VK = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
CType(Me.Picture, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtGrenze, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblGrenze, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -221,12 +226,17 @@ Partial Public Class rptSendungen
CType(Me.txtKdAuftrNr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.cbxDyUebermittelt, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.barcodeLKW, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAvisierer_VK, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAuftraggeber_VK, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtEmpfaenger_VK, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAbsender_VK, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtFrachtfuehrer_VK, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
'Detail
'
Me.Detail.CanGrow = False
Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Picture, Me.txtGrenze, Me.lblGrenze, Me.txtAnmerkungen, Me.txtAbfertigungsart, Me.txtTarifposanzahl, Me.txtFilialeNr, Me.txtAbfertigungsnummer, Me.txtAvisierer_Firma, Me.txtAvisierer_KdNr, Me.txtAuftraggeber_Firma, Me.txtAuftraggeber_KdNr, Me.txtEmpfaenger_Firma, Me.txtEmpfaenger_KdNr, Me.txtAbsender_Firma, Me.txtAbsender_KdNr, Me.txtFrachtfuehrer_Firma, Me.txtFrachtfuehrer_KdNr, Me.txtAvisierer_Zoll, Me.txtAvisierer_Eust, Me.txtAvisierer_Abf, Me.txtAvisierer_Clear, Me.txtAuftraggeber_Zoll, Me.txtAuftraggeber_Eust, Me.txtAuftraggeber_Abf, Me.txtAuftraggeber_Clear, Me.txtEmpfaenger_Zoll, Me.txtEmpfaenger_Eust, Me.txtEmpfaenger_Abf, Me.txtEmpfaenger_Clear, Me.txtAbsender_Zoll, Me.txtAbsender_Eust, Me.txtAbsender_Abf, Me.txtAbsender_Clear, Me.txtFrachtfuehrer_Zoll, Me.txtFrachtfuehrer_Eust, Me.txtFrachtfuehrer_Abf, Me.txtFrachtfuehrer_Clear, Me.txtAvisierer_Leistung1, Me.txtAvisierer_Betrag1, Me.txtAvisierer_Leistung2, Me.txtAvisierer_Betrag2, Me.txtAvisierer_Leistung3, Me.txtAvisierer_Betrag3, Me.txtAuftraggeber_Leistung1, Me.txtAuftraggeber_Betrag, Me.txtAuftraggeber_Leistung2, Me.txtAuftraggeber_Betrag2, Me.txtAuftraggeber_Leistung3, Me.txtAuftraggeber_Betrag3, Me.txtEmpfaenger_Leistung1, Me.txtEmpfaenger_Betrag1, Me.txtEmpfaenger_Leistung2, Me.txtEmpfaenger_Betrag2, Me.txtEmpfaenger_Leistung3, Me.txtEmpfaenger_Betrag3, Me.txtAbsender_Leistung1, Me.txtAbsender_Betrag1, Me.txtAbsender_Leistung2, Me.txtAbsender_Betrag2, Me.txtAbsender_Leistung3, Me.txtAbsender_Betrag3, Me.txtFrachtfuehrer_Leistung1, Me.txtFrachtfuehrer_Betrag1, Me.txtFrachtfuehrer_Leistung2, Me.txtFrachtfuehrer_Betrag2, Me.txtFrachtfuehrer_Leistung3, Me.txtFrachtfuehrer_Betrag3, Me.txtFrachtfuehrer_Bar_BelegNr, Me.txtFrachtfuehrer_Bar_Betrag, Me.txtAvisierer_eigBin, Me.txtAuftraggeber_eigBin, Me.txtEmpfaenger_eigBIN, Me.txtAbsender_eigBIN, Me.txtFrachtfuehrer_eigBIN, Me.txtLKWKennzeichen, Me.txtAnkunft, Me.txtAbfahrt, Me.txtWarenbezeichnung, Me.txtColli, Me.txtGewicht, Me.txtAufschub_VERAG, Me.txtDokZuSend_Ueberschrift, Me.txtDokZuSend_Text, Me.txtBARzuKassieren, Me.TextBox1, Me.barcodeSendung, Me.TextBox2, Me.txtNCTSVZAdr, Me.lblNCTSVZAdr, Me.SubReport, Me.txtFrachtfuehrer_Bar_BelegNr2, Me.txtFrachtfuehrer_Bar_Betrag2, Me.txtFrachtfuehrer_Bar_BelegNr3, Me.txtFrachtfuehrer_Bar_Betrag3, Me.txtAuftraggeber_EUSTKto, Me.txtEmpfaenger_EUSTKto, Me.txtAuftraggeber_ZOLLKto, Me.txtEmpfaenger_ZOLLKto, Me.txtKdAuftrNr, Me.cbxDyUebermittelt, Me.shGrenze, Me.barcodeLKW})
Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Picture, Me.txtGrenze, Me.lblGrenze, Me.txtAnmerkungen, Me.txtAbfertigungsart, Me.txtTarifposanzahl, Me.txtFilialeNr, Me.txtAbfertigungsnummer, Me.txtAvisierer_Firma, Me.txtAvisierer_KdNr, Me.txtAuftraggeber_Firma, Me.txtAuftraggeber_KdNr, Me.txtEmpfaenger_Firma, Me.txtEmpfaenger_KdNr, Me.txtAbsender_Firma, Me.txtAbsender_KdNr, Me.txtFrachtfuehrer_Firma, Me.txtFrachtfuehrer_KdNr, Me.txtAvisierer_Zoll, Me.txtAvisierer_Eust, Me.txtAvisierer_Abf, Me.txtAvisierer_Clear, Me.txtAuftraggeber_Zoll, Me.txtAuftraggeber_Eust, Me.txtAuftraggeber_Abf, Me.txtAuftraggeber_Clear, Me.txtEmpfaenger_Zoll, Me.txtEmpfaenger_Eust, Me.txtEmpfaenger_Abf, Me.txtEmpfaenger_Clear, Me.txtAbsender_Zoll, Me.txtAbsender_Eust, Me.txtAbsender_Abf, Me.txtAbsender_Clear, Me.txtFrachtfuehrer_Zoll, Me.txtFrachtfuehrer_Eust, Me.txtFrachtfuehrer_Abf, Me.txtFrachtfuehrer_Clear, Me.txtAvisierer_Leistung1, Me.txtAvisierer_Betrag1, Me.txtAvisierer_Leistung2, Me.txtAvisierer_Betrag2, Me.txtAvisierer_Leistung3, Me.txtAvisierer_Betrag3, Me.txtAuftraggeber_Leistung1, Me.txtAuftraggeber_Betrag, Me.txtAuftraggeber_Leistung2, Me.txtAuftraggeber_Betrag2, Me.txtAuftraggeber_Leistung3, Me.txtAuftraggeber_Betrag3, Me.txtEmpfaenger_Leistung1, Me.txtEmpfaenger_Betrag1, Me.txtEmpfaenger_Leistung2, Me.txtEmpfaenger_Betrag2, Me.txtEmpfaenger_Leistung3, Me.txtEmpfaenger_Betrag3, Me.txtAbsender_Leistung1, Me.txtAbsender_Betrag1, Me.txtAbsender_Leistung2, Me.txtAbsender_Betrag2, Me.txtAbsender_Leistung3, Me.txtAbsender_Betrag3, Me.txtFrachtfuehrer_Leistung1, Me.txtFrachtfuehrer_Betrag1, Me.txtFrachtfuehrer_Leistung2, Me.txtFrachtfuehrer_Betrag2, Me.txtFrachtfuehrer_Leistung3, Me.txtFrachtfuehrer_Betrag3, Me.txtFrachtfuehrer_Bar_BelegNr, Me.txtFrachtfuehrer_Bar_Betrag, Me.txtAvisierer_eigBin, Me.txtAuftraggeber_eigBin, Me.txtEmpfaenger_eigBIN, Me.txtAbsender_eigBIN, Me.txtFrachtfuehrer_eigBIN, Me.txtLKWKennzeichen, Me.txtAnkunft, Me.txtAbfahrt, Me.txtWarenbezeichnung, Me.txtColli, Me.txtGewicht, Me.txtAufschub_VERAG, Me.txtDokZuSend_Ueberschrift, Me.txtDokZuSend_Text, Me.txtBARzuKassieren, Me.TextBox1, Me.barcodeSendung, Me.TextBox2, Me.txtNCTSVZAdr, Me.lblNCTSVZAdr, Me.SubReport, Me.txtFrachtfuehrer_Bar_BelegNr2, Me.txtFrachtfuehrer_Bar_Betrag2, Me.txtFrachtfuehrer_Bar_BelegNr3, Me.txtFrachtfuehrer_Bar_Betrag3, Me.txtAuftraggeber_EUSTKto, Me.txtEmpfaenger_EUSTKto, Me.txtAuftraggeber_ZOLLKto, Me.txtEmpfaenger_ZOLLKto, Me.txtKdAuftrNr, Me.cbxDyUebermittelt, Me.shGrenze, Me.barcodeLKW, Me.txtAvisierer_VK, Me.txtAuftraggeber_VK, Me.txtEmpfaenger_VK, Me.txtAbsender_VK, Me.txtFrachtfuehrer_VK})
Me.Detail.Height = 11.68898!
Me.Detail.Name = "Detail"
'
@@ -1611,6 +1621,76 @@ Partial Public Class rptSendungen
Me.barcodeLKW.Top = 0.8212597!
Me.barcodeLKW.Width = 2.739763!
'
'txtAvisierer_VK
'
Me.txtAvisierer_VK.CanGrow = False
Me.txtAvisierer_VK.DistinctField = ""
Me.txtAvisierer_VK.Height = 0.3051181!
Me.txtAvisierer_VK.Left = 5.659843!
Me.txtAvisierer_VK.Name = "txtAvisierer_VK"
Me.txtAvisierer_VK.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0)
Me.txtAvisierer_VK.Style = resources.GetString("txtAvisierer_VK.Style")
Me.txtAvisierer_VK.SummaryGroup = ""
Me.txtAvisierer_VK.Text = "<EFBFBD> VK"
Me.txtAvisierer_VK.Top = 1.696457!
Me.txtAvisierer_VK.Width = 0.3862205!
'
'txtAuftraggeber_VK
'
Me.txtAuftraggeber_VK.CanGrow = False
Me.txtAuftraggeber_VK.DistinctField = ""
Me.txtAuftraggeber_VK.Height = 0.3051181!
Me.txtAuftraggeber_VK.Left = 5.659843!
Me.txtAuftraggeber_VK.Name = "txtAuftraggeber_VK"
Me.txtAuftraggeber_VK.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0)
Me.txtAuftraggeber_VK.Style = resources.GetString("txtAuftraggeber_VK.Style")
Me.txtAuftraggeber_VK.SummaryGroup = ""
Me.txtAuftraggeber_VK.Text = "<EFBFBD> VK"
Me.txtAuftraggeber_VK.Top = 2.480709!
Me.txtAuftraggeber_VK.Width = 0.3862205!
'
'txtEmpfaenger_VK
'
Me.txtEmpfaenger_VK.CanGrow = False
Me.txtEmpfaenger_VK.DistinctField = ""
Me.txtEmpfaenger_VK.Height = 0.3051181!
Me.txtEmpfaenger_VK.Left = 5.659843!
Me.txtEmpfaenger_VK.Name = "txtEmpfaenger_VK"
Me.txtEmpfaenger_VK.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0)
Me.txtEmpfaenger_VK.Style = resources.GetString("txtEmpfaenger_VK.Style")
Me.txtEmpfaenger_VK.SummaryGroup = ""
Me.txtEmpfaenger_VK.Text = "<EFBFBD> VK"
Me.txtEmpfaenger_VK.Top = 3.268504!
Me.txtEmpfaenger_VK.Width = 0.3862205!
'
'txtAbsender_VK
'
Me.txtAbsender_VK.CanGrow = False
Me.txtAbsender_VK.DistinctField = ""
Me.txtAbsender_VK.Height = 0.3051181!
Me.txtAbsender_VK.Left = 5.659843!
Me.txtAbsender_VK.Name = "txtAbsender_VK"
Me.txtAbsender_VK.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0)
Me.txtAbsender_VK.Style = resources.GetString("txtAbsender_VK.Style")
Me.txtAbsender_VK.SummaryGroup = ""
Me.txtAbsender_VK.Text = "<EFBFBD> VK"
Me.txtAbsender_VK.Top = 4.070079!
Me.txtAbsender_VK.Width = 0.3862205!
'
'txtFrachtfuehrer_VK
'
Me.txtFrachtfuehrer_VK.CanGrow = False
Me.txtFrachtfuehrer_VK.DistinctField = ""
Me.txtFrachtfuehrer_VK.Height = 0.3051181!
Me.txtFrachtfuehrer_VK.Left = 5.659843!
Me.txtFrachtfuehrer_VK.Name = "txtFrachtfuehrer_VK"
Me.txtFrachtfuehrer_VK.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0)
Me.txtFrachtfuehrer_VK.Style = resources.GetString("txtFrachtfuehrer_VK.Style")
Me.txtFrachtfuehrer_VK.SummaryGroup = ""
Me.txtFrachtfuehrer_VK.Text = "<EFBFBD> VK"
Me.txtFrachtfuehrer_VK.Top = 4.854725!
Me.txtFrachtfuehrer_VK.Width = 0.3862205!
'
'rptSendungen
'
Me.MasterReport = False
@@ -1729,6 +1809,11 @@ Partial Public Class rptSendungen
CType(Me.txtKdAuftrNr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.cbxDyUebermittelt, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.barcodeLKW, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAvisierer_VK, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAuftraggeber_VK, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtEmpfaenger_VK, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAbsender_VK, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtFrachtfuehrer_VK, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub
@@ -1836,4 +1921,9 @@ Partial Public Class rptSendungen
Public WithEvents lblGrenze As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents cbxDyUebermittelt As GrapeCity.ActiveReports.SectionReportModel.CheckBox
Friend WithEvents CheckBox1 As GrapeCity.ActiveReports.SectionReportModel.CheckBox
Private WithEvents txtAvisierer_VK As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtAuftraggeber_VK As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtEmpfaenger_VK As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtAbsender_VK As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtFrachtfuehrer_VK As GrapeCity.ActiveReports.SectionReportModel.TextBox
End Class

15
Gemeinsames/rptSendungen.resx
View File

@@ -156,6 +156,21 @@
<data name="txtFrachtfuehrer_Bar_Betrag3.Style" xml:space="preserve">
<value>color: Black; font-size: 11pt; font-weight: bold; text-align: right; text-decoration: none; text-justify: auto; vertical-align: middle; ddo-char-set: 1; ddo-font-vertical: none; ddo-shrink-to-fit: none</value>
</data>
<data name="txtAvisierer_VK.Style" xml:space="preserve">
<value>color: Black; font-size: 9pt; font-weight: bold; text-align: center; text-decoration: none; text-justify: auto; vertical-align: middle; ddo-char-set: 1; ddo-font-vertical: none; ddo-shrink-to-fit: none</value>
</data>
<data name="txtAuftraggeber_VK.Style" xml:space="preserve">
<value>color: Black; font-size: 9pt; font-weight: bold; text-align: center; text-decoration: none; text-justify: auto; vertical-align: middle; ddo-char-set: 1; ddo-font-vertical: none; ddo-shrink-to-fit: none</value>
</data>
<data name="txtEmpfaenger_VK.Style" xml:space="preserve">
<value>color: Black; font-size: 9pt; font-weight: bold; text-align: center; text-decoration: none; text-justify: auto; vertical-align: middle; ddo-char-set: 1; ddo-font-vertical: none; ddo-shrink-to-fit: none</value>
</data>
<data name="txtAbsender_VK.Style" xml:space="preserve">
<value>color: Black; font-size: 9pt; font-weight: bold; text-align: center; text-decoration: none; text-justify: auto; vertical-align: middle; ddo-char-set: 1; ddo-font-vertical: none; ddo-shrink-to-fit: none</value>
</data>
<data name="txtFrachtfuehrer_VK.Style" xml:space="preserve">
<value>color: Black; font-size: 9pt; font-weight: bold; text-align: center; text-decoration: none; text-justify: auto; vertical-align: middle; ddo-char-set: 1; ddo-font-vertical: none; ddo-shrink-to-fit: none</value>
</data>
<metadata name="$this.ScriptEditorPositionForUndo" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>0, 0</value>
</metadata>

24
Gemeinsames/rptSendungen.vb
View File

@@ -5,6 +5,7 @@ Public Class rptSendungen
Public VALUES As New rptSendungenValues
Public imgPath As String
Public ZOLLANMELDUNG As DAKOSY_Worker.cZollsysteme_Aktenbeschriftung = Nothing
Public HANDLING As List(Of VERAG_PROG_ALLGEMEIN.cSendHandling) = Nothing
Sub New()
@@ -15,11 +16,12 @@ Public Class rptSendungen
End Sub
Sub New(VALUES As rptSendungenValues, imgPath As String, ZOLLANMELDUNG As DAKOSY_Worker.cZollsysteme_Aktenbeschriftung)
Sub New(VALUES As rptSendungenValues, imgPath As String, ZOLLANMELDUNG As DAKOSY_Worker.cZollsysteme_Aktenbeschriftung, HANDLING As List(Of VERAG_PROG_ALLGEMEIN.cSendHandling))
InitializeComponent()
Me.VALUES = VALUES
Me.imgPath = imgPath
Me.ZOLLANMELDUNG = ZOLLANMELDUNG
Me.HANDLING = HANDLING
init()
End Sub
@@ -104,6 +106,13 @@ Public Class rptSendungen
txtEmpfaenger_eigBIN.Text = VALUES.Empfaenger_eigBIN
txtAbsender_eigBIN.Text = VALUES.Absender_eigBIN
txtFrachtfuehrer_eigBIN.Text = VALUES.Frachtfuehrer_eigBIN
txtAvisierer_VK.Text = VALUES.Avisierer_VK
txtAuftraggeber_VK.Text = VALUES.Auftraggeber_VK
txtEmpfaenger_VK.Text = VALUES.Empfaenger_VK
txtAbsender_VK.Text = VALUES.Absender_VK
txtFrachtfuehrer_VK.Text = VALUES.Frachtfuehrer_VK
txtLKWKennzeichen.Text = VALUES.LKWKennzeichen
txtAnkunft.Text = VALUES.Ankunft
txtAbfahrt.Text = VALUES.Abfahrt
@@ -165,13 +174,15 @@ Public Class rptSendungen
SubReport.Report = s
End If
End If
If True Then
If ZOLLANMELDUNG IsNot Nothing Then
Dim s = New subRptSendungenZollpruefung(ZOLLANMELDUNG)
SubReport.Report = s
ElseIf HANDLING IsNot Nothing Then
Dim s = New subRptSendungenATA(HANDLING)
SubReport.Report = s
End If
End If
End Sub
@@ -276,6 +287,11 @@ Public Class rptSendungenValues
Property Empfaenger_eigBIN As String = ""
Property Absender_eigBIN As String = ""
Property Frachtfuehrer_eigBIN As String = ""
Property Avisierer_VK As String = ""
Property Auftraggeber_VK As String = ""
Property Empfaenger_VK As String = ""
Property Absender_VK As String = ""
Property Frachtfuehrer_VK As String = ""
Property LKWKennzeichen As String = ""
Property Ankunft As String = ""
Property Abfahrt As String = ""

136
Gemeinsames/subRptSendungenATA.Designer.vb generated Normal file
View File

@@ -0,0 +1,136 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Public Class subRptSendungenATA
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 Detail As GrapeCity.ActiveReports.SectionReportModel.Detail
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(subRptSendungenATA))
Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
Me.TextBox8 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtATCMRN = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.barcodeATCMRN = New GrapeCity.ActiveReports.SectionReportModel.Picture()
Me.txtColli = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtGewicht = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.GroupHeader1 = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader()
Me.GroupFooter1 = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter()
CType(Me.TextBox8, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtATCMRN, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.barcodeATCMRN, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtColli, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtGewicht, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
'Detail
'
Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.TextBox8, Me.txtATCMRN, Me.barcodeATCMRN, Me.txtColli, Me.txtGewicht})
Me.Detail.Height = 0.2665355!
Me.Detail.Name = "Detail"
'
'TextBox8
'
Me.TextBox8.CanGrow = False
Me.TextBox8.Height = 0.1456693!
Me.TextBox8.Left = 0.00000005960464!
Me.TextBox8.Name = "TextBox8"
Me.TextBox8.Style = "font-size: 8pt; ddo-char-set: 1"
Me.TextBox8.Text = "ATA/MRN:"
Me.TextBox8.Top = 0!
Me.TextBox8.Width = 0.8811023!
'
'txtATCMRN
'
Me.txtATCMRN.CanGrow = False
Me.txtATCMRN.Height = 0.1913386!
Me.txtATCMRN.Left = 0.7059056!
Me.txtATCMRN.Name = "txtATCMRN"
Me.txtATCMRN.Style = "font-size: 8pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.txtATCMRN.Text = Nothing
Me.txtATCMRN.Top = 0.07519685!
Me.txtATCMRN.Width = 1.582284!
'
'barcodeATCMRN
'
Me.barcodeATCMRN.Height = 0.1027552!
Me.barcodeATCMRN.HyperLink = Nothing
Me.barcodeATCMRN.ImageData = Nothing
Me.barcodeATCMRN.Left = 0.622441!
Me.barcodeATCMRN.Name = "barcodeATCMRN"
Me.barcodeATCMRN.PictureAlignment = GrapeCity.ActiveReports.SectionReportModel.PictureAlignment.BottomLeft
Me.barcodeATCMRN.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom
Me.barcodeATCMRN.Top = 0!
Me.barcodeATCMRN.Width = 3.409448!
'
'txtColli
'
Me.txtColli.CanGrow = False
Me.txtColli.Height = 0.1456693!
Me.txtColli.Left = 2.744882!
Me.txtColli.Name = "txtColli"
Me.txtColli.Style = "font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set: 1"
Me.txtColli.Text = Nothing
Me.txtColli.Top = 0!
Me.txtColli.Width = 0.4822836!
'
'txtGewicht
'
Me.txtGewicht.CanGrow = False
Me.txtGewicht.Height = 0.1456693!
Me.txtGewicht.Left = 3.227166!
Me.txtGewicht.Name = "txtGewicht"
Me.txtGewicht.Style = "font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set: 1"
Me.txtGewicht.Text = Nothing
Me.txtGewicht.Top = 0!
Me.txtGewicht.Width = 0.7421253!
'
'GroupHeader1
'
Me.GroupHeader1.Height = 0!
Me.GroupHeader1.Name = "GroupHeader1"
'
'GroupFooter1
'
Me.GroupFooter1.Height = 0!
Me.GroupFooter1.Name = "GroupFooter1"
'
'subRptSendungenATA
'
Me.MasterReport = False
Me.PageSettings.PaperHeight = 11.0!
Me.PageSettings.PaperWidth = 8.5!
Me.PrintWidth = 4.03189!
Me.Sections.Add(Me.GroupHeader1)
Me.Sections.Add(Me.Detail)
Me.Sections.Add(Me.GroupFooter1)
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.TextBox8, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtATCMRN, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.barcodeATCMRN, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtColli, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtGewicht, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub
Private WithEvents GroupHeader1 As GrapeCity.ActiveReports.SectionReportModel.GroupHeader
Private WithEvents GroupFooter1 As GrapeCity.ActiveReports.SectionReportModel.GroupFooter
Private WithEvents TextBox8 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtATCMRN As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents barcodeATCMRN As GrapeCity.ActiveReports.SectionReportModel.Picture
Private WithEvents txtColli As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtGewicht As GrapeCity.ActiveReports.SectionReportModel.TextBox
End Class

126
Gemeinsames/subRptSendungenATA.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>

68
Gemeinsames/subRptSendungenATA.vb Normal file
View File

@@ -0,0 +1,68 @@
Imports System.Data
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Imports VERAG_PROG_ALLGEMEIN
Public Class subRptSendungenATA
Dim HANDLING As List(Of VERAG_PROG_ALLGEMEIN.cSendHandling) = Nothing
Sub New(HANDLING As List(Of VERAG_PROG_ALLGEMEIN.cSendHandling))
' Dieser Aufruf ist f<>r den Designer erforderlich.
InitializeComponent()
Me.HANDLING = HANDLING
' F<>gen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Private Sub Detail_Format(sender As Object, e As EventArgs) Handles Detail.Format
'If HANDLING IsNot Nothing Then
' 'Dim A As New DAKOSY_Worker.cZollsysteme_Aktenbeschriftung
' 'If A.getDataByBezugsnummer(SENDUNG.FilialenNr & "/" & SENDUNG.AbfertigungsNr, SENDUNG.tblSnd_Abfertigungsart_ID.ToString) Then
' txtColli.Text = HANDLING.sndhdg_colli.ToString("N0") & " Pk"
' txtGewicht.Text = HANDLING.sndhdg_gewicht.ToString("N1") & " Pk"
' txtATCMRN.Text = HANDLING.sndhdg_nr
' If HANDLING.sndhdg_nr <> "" Then
' barcodeATCMRN.Image = Code128Rendering.MakeBarcodeImage(HANDLING.sndhdg_nr, 1, True, 15)
' End If
'End If
barcodeATCMRN.Visible = False
txtATCMRN.Text = ""
If Me.DataSource IsNot Nothing AndAlso Me.Fields IsNot Nothing AndAlso Me.Fields.Item("ATA").Value IsNot Nothing Then
Dim ATAMRN As String = Me.Fields.Item("ATA").Value.ToString
ATAMRN = ATAMRN.Replace(" ", "")
ATAMRN = ATAMRN.Replace("/", "")
ATAMRN = ATAMRN.Replace("-", "")
txtATCMRN.Text = ATAMRN
If ATAMRN <> "" Then
Dim barcodeATA As Image = Code128Rendering.MakeBarcodeImage(ATAMRN, 1, True, 15)
'barcodeATA.RotateFlip(RotateFlipType.Rotate270FlipNone)
barcodeATCMRN.Image = barcodeATA
barcodeATCMRN.Visible = True
End If
txtColli.Text = ""
txtGewicht.Text = ""
If Me.Fields.Item("Colli").Value IsNot Nothing Then txtColli.Text = CDbl(Me.Fields.Item("Colli").Value).ToString("N0") & " Pk"
If Me.Fields.Item("Gewicht").Value IsNot Nothing Then txtGewicht.Text = CDbl(Me.Fields.Item("Gewicht").Value).ToString("N1") & " kg"
End If
End Sub
Private Sub rptAuswertung_ReportStart(sender As System.Object, e As System.EventArgs) Handles MyBase.ReportStart
Dim dt As New DataTable
dt.Columns.Add("ATA", System.Type.GetType("System.String"))
dt.Columns.Add("Colli", System.Type.GetType("System.String"))
dt.Columns.Add("Gewicht", System.Type.GetType("System.String"))
For Each s In HANDLING
dt.Rows.Add({s.sndhdg_nr, s.sndhdg_colli, s.sndhdg_gewicht})
Next
Me.DataSource = dt
End Sub
End Class