diff --git a/Aviso/Anhänge/frmAddSendnung.Designer.vb b/Aviso/Anhänge/frmAddSendnung.Designer.vb index f370d17..405c709 100644 --- a/Aviso/Anhänge/frmAddSendnung.Designer.vb +++ b/Aviso/Anhänge/frmAddSendnung.Designer.vb @@ -22,6 +22,7 @@ Partial Class frmAddSendnung 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. _ 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 diff --git a/Aviso/Anhänge/frmAddSendnung.resx b/Aviso/Anhänge/frmAddSendnung.resx index f7f78d5..fe11349 100644 --- a/Aviso/Anhänge/frmAddSendnung.resx +++ b/Aviso/Anhänge/frmAddSendnung.resx @@ -117,7 +117,42 @@ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 17, 17 + + + + /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 + + + + + /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 + + AAABAAEAgIAAAAEAIAAoCAEAFgAAACgAAACAAAAAAAEAAAEAIAAAAAAAAAgBABMLAAATCwAAAAAAAAAA diff --git a/Aviso/Anhänge/frmAddSendnung.vb b/Aviso/Anhänge/frmAddSendnung.vb index 5f6d689..614c024 100644 --- a/Aviso/Anhänge/frmAddSendnung.vb +++ b/Aviso/Anhänge/frmAddSendnung.vb @@ -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 - Sendung = New VERAG_PROG_ALLGEMEIN.cSendungen(AvisoId, SQL.getValueTxtBySql("SELECT Count(*)+1 FROM tblSendungen WHERE tblSnd_AvisoID=" & AvisoId & "", "AVISO"),,,, 0) + 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 \ No newline at end of file diff --git a/Aviso/Anhänge/frmSendungAnhangImport.Designer.vb b/Aviso/Anhänge/frmSendungAnhangImport.Designer.vb index 8fc6049..d631291 100644 --- a/Aviso/Anhänge/frmSendungAnhangImport.Designer.vb +++ b/Aviso/Anhänge/frmSendungAnhangImport.Designer.vb @@ -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 diff --git a/Aviso/Anhänge/frmSendungAnhangImport.vb b/Aviso/Anhänge/frmSendungAnhangImport.vb index 0958b39..bab2b59 100644 --- a/Aviso/Anhänge/frmSendungAnhangImport.vb +++ b/Aviso/Anhänge/frmSendungAnhangImport.vb @@ -81,14 +81,21 @@ Public Class frmSendungAnhangImport PdfViewer.CloseDocument() WebBrowser.Navigate("") If typ = "PDF" Then - WebBrowser.Visible = False - PdfViewer.Visible = (loc <> "") - PdfViewer.LoadFromFile(loc) + 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() diff --git a/Aviso/Anhänge/frmSendungAnhangUmbenennenUmkateg.Designer.vb b/Aviso/Anhänge/frmSendungAnhangUmbenennenUmkateg.Designer.vb new file mode 100644 index 0000000..a2c8ceb --- /dev/null +++ b/Aviso/Anhänge/frmSendungAnhangUmbenennenUmkateg.Designer.vb @@ -0,0 +1,122 @@ + _ +Partial Class frmSendungAnhangUmbenennenUmkateg + Inherits System.Windows.Forms.Form + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + _ + 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. + _ + 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 diff --git a/Aviso/Anhänge/frmSendungAnhangUmbenennenUmkateg.resx b/Aviso/Anhänge/frmSendungAnhangUmbenennenUmkateg.resx new file mode 100644 index 0000000..f7f78d5 --- /dev/null +++ b/Aviso/Anhänge/frmSendungAnhangUmbenennenUmkateg.resx @@ -0,0 +1,1253 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + + + AAABAAEAgIAAAAEAIAAoCAEAFgAAACgAAACAAAAAAAEAAAEAIAAAAAAAAAgBABMLAAATCwAAAAAAAAAA + AABmMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/5uDd///////////////////////39fT/dEkm/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP+AXUL///////////////////////////////////////////////////////// + /////////////////////////////3RJJv9mMwD/ZjMA/2YzAP9mMwD/ZjMA/3RJJv/39fT///////// + /////////////2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP+AXUL///////////////////////// + //+YfWv/ZjMA/2YzAP9mMwD/ZjMA/3RJJv/u6+n/////////////////9/X0/3RJJv9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP/39fT//////////////////////8Gzqv9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/t6ec/9TLxf//////////////////////y7+4/62a + jf9mMwD/ZjMA/5h9a////////////3RJJv9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/3RJJv////////////////////////////// + ///Lv7j/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP/u6+n///////// + ////////////////////////////////////////////////////////////////////////o4x9/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/+bg3f//////////////////////jG5Y/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/7ennP//////////////////////5uDd/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/5h9 + a///////////////////////wbOq/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/dEkm//// + ////////////////////////o4x9/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/rZqN//// + /////////////////////////////////////////////+bg3f+Mblj/t6ec////////////o4x9/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/jG5Y//////////////////////////////////////+Mblj/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/9TLxf////////////////////////////////////////////// + ///////////////////////////////////Lv7j/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/wbOq//// + //////////////////+3p5z/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/5uDd//////////////////// + //+3p5z/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/9TLxf//////////////////////gF1C/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP+YfWv///////////////////////////90SSb/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/8u/uP////////////////////////////////////////////// + //////////////f19P/m4N3///////////+3p5z/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP+3p5z///////////////////////// + /////////////93W0f9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/t6ec//// + ///////////////////39fT/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP+jjH3//////////////////////8u/uP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/4BdQv///////////////////////////3RJJv9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/gF1C//f19P/////////////////Lv7j/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/7en + nP//////////////////////9/X0/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP+3p5z///////// + ///////////////////Uy8X/gF1C/2YzAP9mMwD/t6ec//f19P///////////////////////////9TL + xf9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/8Gzqv//////////////////////7uvp/////////////////62ajf9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP+Mblj///////////////////////////90SSb/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/4xu + WP//////////////////////5uDd/2YzAP9mMwD/ZjMA/2YzAP9mMwD/t6ec//////////////////// + ///Uy8X/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/t6ec//////////////////// + ///////////////////////////////////////////////////////////////////Uy8X/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA//f19P//////////////////////y7+4/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/gF1C/+7r6f//////////////////////9/X0/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/5uDd//////////////////// + //+jjH3/////////////////7uvp/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/3RJ + Jv///////////////////////////6OMff9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA//f19P//////////////////////dEkm/2Yz + AP9mMwD/ZjMA/2YzAP/m4N3//////////////////////6OMff9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/7uvp//////////////////////////////////////////////////// + /////////////////////////////7ennP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP+jjH3///////// + //////////////////+Mblj/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/jG5Y//////////////////// + ////////dEkm/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP/39fT//////////////////////2YzAP/Lv7j/////////////////t6ec/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/+bg3f//////////////////////wbOq/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/1MvF//////////////////////+YfWv/ZjMA/2YzAP9mMwD/gF1C//////////////////// + ///39fT/dEkm/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP+YfWv///////// + ////////////////////////////////////////////////////////////////////////o4x9/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/7ennP///////////////////////////2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/1MvF//////////////////////+jjH3/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/jG5Y//////////////////// + ///m4N3/ZjMA/4BdQv/39fT////////////39fT/gF1C/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/wbOq///////////////////////Uy8X/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP+3p5z///////////////////////// + /////////////////////////////////////////////+7r6f9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP/Uy8X/////////////////7uvp/2YzAP9mMwD/ZjMA/2Yz + AP+Mblj///////////////////////////90SSb/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/t6ec//// + ////////////////////////ZjMA/2YzAP9mMwD/dEkm//////////////////////////////////// + /////////////7ennP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP+jjH3//////////////////////9TLxf9mMwD/ZjMA/7ennP////////////// + ///Lv7j/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP+3p5z///////////////////////// + /////////////////////////////////////////////+bg3f9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/6OMff////////////////////////////////////////////////////////////// + ///////////////////d1tH/jG5Y/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/4Bd + Qv//////////////////////rZqN/2YzAP9mMwD/ZjMA/62ajf//////////////////////5uDd/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP+3p5z///////////////////////////90SSb/ZjMA/2Yz + AP9mMwD/5uDd////////////////////////////////////////////1MvF/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/7ennP////////////// + ////////t6ec/2YzAP9mMwD/dEkm//f19P////////////////+YfWv/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/4xuWP////////////////////////////////////////////////////////////// + /////////////2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/dEkm//////////////////// + ////////////////////////////////////////////////////////////////////////mH1r/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/7ennP/////////////////39fT/dEkm/2Yz + AP9mMwD/wbOq///////////////////////Uy8X/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/6OM + ff///////////////////////////6OMff9mMwD/ZjMA/2YzAP/Bs6r///////////////////////// + ///////////////////39fT/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/1MvF//////////////////////+tmo3/ZjMA/2YzAP9mMwD/rZqN//// + /////////////+bg3f9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA//f19P////////////// + ////////////////////////////////////////////////////////mH1r/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/7uvp//////////////////////90SSb/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP+jjH3/5uDd///////////////////////39fT/dEkm/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/+7r6f////////////////+3p5z/ZjMA/2YzAP/Uy8X//////////////////////7en + nP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/dEkm////////////////////////////wbOq/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP/u6+n///////// + /////////////4xuWP9mMwD/ZjMA/2YzAP9mMwD/7uvp/////////////////62ajf9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/3dbR///////////////////////Bs6r/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP/Uy8X///////// + /////////////5h9a/9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP90SSb/7uvp//////////////////// + //+3p5z/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/o4x9//////////////////f1 + 9P+AXUL/ZjMA//f19P//////////////////////jG5Y/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/1MvF///////////////////////39fT/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP/Bs6r//////9TLxf+3p5z/t6ec/5h9a/9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/dEkm////////////////////////////dEkm/2YzAP9mMwD/ZjMA/2Yz + AP+tmo3/////////////////7uvp/3RJJv9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP/Bs6r///////// + /////////////+bg3f9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/7ennP//////////////////////t6ec/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP/Lv7j//////////////////////8Gzqv9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/1MvF/////////////////8u/uP90SSb///////////////////////// + //90SSb/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP+YfWv///////////////////////// + //+3p5z/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/+7r6f//////////////////////o4x9/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP+YfWv///////// + /////////////+7r6f9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP/d1tH/////////////////t6ec/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/6OMff///////////////////////////3RJJv9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/mH1r//// + ///////////////////Uy8X/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/+bg3f////////////// + ////////t6ec/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP+AXUL///////// + /////////////62ajf//////////////////////5uDd/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP/Bs6r///////////////////////////+YfWv/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP+tmo3//////////////////////+7r6f9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/7ennP//////////////////////1MvF/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/5h9a///////////////////////gF1C/2YzAP9mMwD/ZjMA/2YzAP9mMwD/gF1C//// + ////////////////////////jG5Y/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP90SSb//////////////////////+7r6f9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/4BdQv/Lv7j///////////////////////////+Mblj/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP+3p5z///////////////////////////////////////// + ///Lv7j/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP/d1tH///////// + //////////////////+3p5z/dEkm/2YzAP9mMwD/t6ec////////////////////////////rZqN/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/y7+4//// + ///////////////////Bs6r/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/93W0f////////////// + ///Uy8X/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/9/X0//////////////////////////////////// + /////////////////////////////////////////////3RJJv9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP/m4N3///////////////////////////////////////////////////////////////////////// + ////////wbOq/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP/u6+n//////////////////////////////////////7ennP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP/Uy8X///////////////////////////////////////// + /////////////////////////////8u/uP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP/m4N3//////////////////////62ajf9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/gF1C//////////////////////+YfWv/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP/Uy8X///////////////////////////////////////////////////////////////////////// + ////////mH1r/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/8u/uP////////////////////////////// + /////////////////////////////////////////////9TLxf9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/6OMff////////////////////////////// + ////////jG5Y/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP+tmo3/9/X0//////////////////////////////////////////////////////+tmo3/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/dEkm//// + ////////////////////////jG5Y/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/y7+4//// + /////////////+7r6f90SSb/ZjMA/2YzAP9mMwD/ZjMA/7ennP////////////////////////////// + //////////////////////////////////////////////////+3p5z/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/t6ec////////////////////////////////////////////////////////////5uDd/7en + nP+Mblj/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/93W0f////////////////////////////////9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/o4x9/7ennP/39fT///////// + /////////////9TLxf+3p5z/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/AAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAA + AAEAAAACAAAAAwAAAAMAAAAFAAAABwAAAAkBAQEMAQEBEAMDAxQFBQUYBwcHHQUFBSAGBgYkBQUFJwQE + BCsFBQUtBQUFLwUFBTEFBQUxBgYGLgYGBioFBQUkBQUFHgMDAxgEBAQSAQEBDQEBAQkAAAAGAAAABAAA + AAIAAAACAAAAAQAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAQAAAAAAAAABAAAAAgAAAAIAAAADAAAABAAAAAcAAAAJAgICDAICAhAEBAQVBAQEGgUF + BSAFBQUnBQUFLQUFBTQGBgY6BgYGPwUFBUQEBARIBQUFSgUFBU0GBgZPBgYGUAYGBk8GBgZMBQUFRwUF + BUAFBQU5BQUFMQYGBikGBgYhBgYGGQQEBBMBAQENAAAACQAAAAUAAAADAAAAAgAAAAEAAAABAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAAAAAAAAQAAAAIAAAACAAAAAwAAAAUAAAAHAAAACAIC + AgwCAgIPBQUFFAQEBBkGBgYgBQUFJgUFBS4FBQU2BQUFPgUFBUYGBgZPBQUFVwUFBV0FBQVhBAQEZgQE + BGgFBQVqBQUFawUFBWwFBQVsBQUFawUFBWkFBQVlBQUFYAYGBlkFBQVSBQUFSAUFBT8GBgY0BQUFKgUF + BSAEBAQXAgICEAAAAAoAAAAGAAAABAAAAAIAAAABAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAAAAQAAAAEAAAABAAAAAgAA + AAMAAAAEAAAABgAAAAgBAQELAgICDwMDAxMFBQUYBgYGHgUFBSUGBgYsBQUFNAUFBT0FBQVGBQUFTwUF + BVgGBgZgBQUFaQYGBm8FBQV2BgYGegUFBX4FBQV/BQUFgQUFBYEFBQWBBQUFgQUFBYAFBQWABAQEfQIC + AngCAgJ1AwMDcQMDA2wDAwNkAwMDWwQEBFIFBQVKBQUFPgUFBTEFBQUmBAQEHAICAhMBAQEMAAAACAAA + AAQAAAACAAAAAQAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAEAAAABAAAAAQAAAAIAAAADAAAABAAAAAYAAAAIAQEBCwICAg4DAwMTBQUFGAUFBR4GBgYkBQUFKwUF + BTMFBQU7BQUFRAYGBk4FBQVXBQUFXwUFBWgGBgZwBQUFdwYGBn0FBQWDBQUFhwUFBYsFBQWNBQUFjgUF + BY8FBQWPBQUFjwUFBY8EBASLAwMDiAQEBIkLCwuSFhYWpioqKsA3NzfeNzc34jMzM94lJSW7Dw8PhwQE + BGUFBQVeBgYGUgUFBUQFBQU2BQUFKQUFBR8DAwMVAQEBDgAAAAkAAAAFAAAAAwAAAAIAAAABAAAAAQAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAAEAAAACAAAAAgAAAAQAAAAFAAAABwAAAAoCAgINAgICEQUF + BRcFBQUcBgYGIwUFBSsFBQUyBQUFOgYGBkQFBQVNBgYGVQUFBV8FBQVnBgYGbgUFBXYGBgZ9BQUFggUF + BYcFBQWLBQUFjwUFBZEFBQWUBQUFlQUFBZYFBQWWBQUFlgUFBZYFBQWVAwMDkA0NDaEdHR3ALCws2jc3 + N/FJSUn/Tk5O/0lJSf9FRUX/QUFB/z09Pf81NTX4HBwcuAUFBXkFBQVvBQUFZQUFBVcFBQVJBQUFOwUF + BS0EBAQiAgICGAICAhABAQEKAAAABgAAAAMAAAACAAAAAQAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAAIAAAADAAAABAAA + AAcAAAAKAQEBDQMDAxEFBQUWBQUFGwYGBiIFBQUpBgYGMQUFBTkGBgZCBQUFSwUFBVUFBQVdBQUFZgUF + BW4FBQV1BgYGfAUFBYEFBQWHBQUFiwUFBY4FBQWRBQUFkwQEBZUEBASVAgIClgAAAJQAAACSAAAAkgEB + ApUFBQWYBQUFmAQEBJQYGBjBMDAw+DY2Nv80NDT/Pz8//01NTf9ISEj/RERE/0BAQP87Ozv/ODg4/zU1 + Nf8zMzP/Hh4ezwUFBYYFBQV+BQUFdQYGBmkFBQVbBQUFTgUFBT8EBAQxBgYGJQQEBBsBAQESAAAADAAA + AAgAAAAEAAAAAgAAAAEAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAEAAAACAAAABQAAAAkAAAAOAgICFAUFBRoFBQUgBgYGKAUFBS8FBQU4BQUFQQUF + BUoGBgZTBQUFXAYGBmUFBQVtBQUFdAUFBXsFBQWABQUFhgUFBYsFBQWOBQUFkQUFBZMEBASVAwMDlQAA + AJUAAACSAAAAkwQEBZcTExCgKyghsTYxKL80Lya+GxkUqAEBApQBAQKREhISvSgoKP8oKCj/JSUl/yoq + Kv9JSUn/SkpK/0VFRf9AQED/ODg4/zIyMv8vLy//MDAw/y4uLv8sLCz/GBgYzAQEBIoFBQWJBQUFggYG + BnkFBQVuBQUFYAUFBVIFBQVDBQUFNQUFBSkFBQUeBAQEFAEBAQ4AAAAJAAAABQAAAAMAAAABAAAAAQAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAAAYAAAANAQEBFQMD + AyEFBQUrBQUFNQUFBT8FBQVIBgYGUQUFBVsGBgZjBQUFawYGBnMFBQV6BgYGgAUFBYUFBQWKBQUFjgUF + BZAFBQWTBAQElQICApUAAACUAAAAkQAAAJQICAiZJSQhp0NBObtkYFPPgnxq542Eb/aNg2r+i35k/4l7 + Yf96bVX6SUAx0A4NDKcXFxjzGxsb/xoaGv8XFxf/Li4u/05OTv9HR0f/QEBA/0RERP9oaGj/dXV1/1VV + Vf8uLi7/Jycn/ygoKP8lJSX/Dg4OswMDA48FBQWRBgYGjAUFBYQFBQV8BQUFcQUFBWUFBQVXBQUFSAQE + BDoFBQUtBAQEIQMDAxcDAwMQAAAACgAAAAYAAAADAAAAAgAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAEAAAAEAAAACgMDAxYFBQUlBQUFNgUFBUQFBQVSBQUFXgUFBWcFBQVxBQUFeAUF + BX8FBQWFBQUFiQUFBY0FBQWQBQUFkgQEBJQCAgKUAAAAkwAAAJEAAQGUDQwMmzAvK6tSUEfAfHlr1p2Z + h+ywq5b6uLKb/7Stlf+ooIj/m5J7/4yCav+Dd17/gXRc/35xWP9/cFT/SD8v9ggJCv8PDw//EBAQ/w4O + Dv81NTX/TExM/0RERP9GRkb/amlp/39/f//S0tP/3Nzd/5CQkP8xMTH/ICAg/yIiIv8aGhrtBgYGmgQE + BJUFBQWVBQUFkgUFBY0FBQWHBgYGfwYGBnUFBQVoBQUFWwYGBk0FBQU+BAQEMAUFBSQEBAQaAwMDEgAA + AAsAAAAHAAAABAAAAAIAAAABAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAAAQCAgINBgYGGwQE + BC4FBQVCBQUFVQUFBWQFBQVwBQUFegYGBoMGBgaJBQUFjgUFBZEEBASTAQECkwAAAJMAAACRAQEBlRAQ + D5w4NzKuXFpQxIOBc9mqp5Xwvrum/MfErf/Fwav/v7mk/7iznP+xq5T/qqON/6Kag/+Yj3j/i4Fp/4N3 + Xv+BdFz/fG9X/3hqUP9fU0D/GRkZ/wEBAv8AAAH/BAQD/zk5Of9ISEj/Pj4+/2JiYv9paWn/SkpK/2ho + aP/e3t//+vr6/5ubm/8kJCT/HBwc/xsbG/8NDQ3ABAQEkgUFBZgFBQWXBQUFlQUFBZMFBQWPBQUFiQUF + BYIFBQV4BQUFbQYGBl8FBQVRBQUFQwUFBTUFBQUoBAQEHQMDAxQCAgINAAAACAAAAAUAAAADAAAAAQAA + AAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAACAAAABAICAgwHBwcaBQUFKwUFBT4FBQVQBgYGYAYGBm4FBQV5BAQEgQEB + AoYAAACJAAAAigAAAZAQEA6bNTQurGFfVMSMiXrapKGO8qShjv3Bvqn/zMmz/8XCrP/Bvqj/vbqk/7u3 + ov+5tJ//tbCa/7CqlP+qo43/o5uE/5mRev+Ng2v/hXpg/4N2Xv99cVj/c2VM/4ByXP+dj4T/bWRd/xkY + GP8FBQb/Pj4+/0ZGRv8+Pj7/cXFx/3x8fP92dnb/X19f/4SEhP/5+fn/7u7u/2JiYv8VFRX/GBgY/xER + EeUFBQWXBQUFmAUFBZkFBQWYBQUFmAUFBZYFBQWUBQUFkAUFBYsGBgaEBQUFfAUFBXAGBgZkBgYGVQUF + BUcEBAQ5BQUFLAUFBSADAwMWAQEBDwAAAAoAAAAGAAAAAwAAAAIAAAABAAAAAQAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAADAAAACAIC + AhEEBAQeBAQELAICAjoAAAFFAAAATgAAAFcEBARnFRUTgDs6NJ1jYle9iYd416imkvCoppL+paKS/5WT + iP+cm5X/qKem/6yqm//DwKr/wL2o/7+8pv+9uqT/u7ei/7q1oP+4s53/tK+Z/6+okv+hmYL/kYhw/35y + Wf9wYkf/cmRF/3RmS/9yZEr/gXJc/6majP+xoZP/dm1m/xMTFP85OTn/Q0ND/z09Pf98fHz/k5OU/5CQ + kf+Li4r/ampq/7e3t//j4+P/oKCg/yAgIP8TExP/EhIS/AcHB6gFBQWWBQUFmQUFBZkFBQWZBQUFmAUF + BZgFBQWXBQUFlAUFBZIFBQWNBQUFhwYGBn4GBgZ0BQUFaAUFBVkFBQVLBQUFPAUFBS8FBQUjAwMDGQEB + AREAAAALAAAABwAAAAQAAAACAAAAAQAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAADAAAABAAAAAYAAAAKDAsLFxwcGThDQjtjcG5im5KQ + f8ixrprrsK2Z/q2rmf+fnZH/n56X/7KysP/Ozs7/8PDx//7+////////ubep/8G+p//Cv6r/w8Cq/8PA + qv/AvKf/tbCa/6agif+OhW3/fG9X/3NjTf9lUz7/a15N/2xmZP9NSFL/V0xB/1tONv93aVP/p5iL/6aX + iv+fkYX/NzY1/zg5Of9AQED/ODg4/4SEhP+DhIX/goKD/6Wlpv98fHz/gYGB/76+vv+srKz/Ojo6/w4O + Dv8SEhL/CQkJvgQEBJMFBQWZBQUFmQUFBZkFBQWZBQUFmQUFBZgFBQWYBQUFlwUFBZYFBQWSBQUFjwYG + BokGBgaBBgYGdwYGBmsGBgZeBQUFTwQEBEEEBAQzBAQEJgMDAxwBAQETAAAADQAAAAcAAAAFAAAAAwAA + AAEAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAgIBwNNjUvMXt5bHCem4qxwL2o3r+8pv+0sZ//p6aZ/6emn/+5ubb/zc3N/+7u7//8/P3///////// + ///////////////////Bv7H/x8Wt/7+7pf+wqpT/l494/4F4Y/90aVX/bGFQ/3Vyaf93f33/fpmf/3y0 + xv9twtP/R37e/woW6v8qNK7/e3Jj/31yY/+mlon/pJWI/6qajf9jXln/PT0+/0JCQv8yMjL/dHR0/4KD + hP9ZWlz/iYmK/4KCgv9ubm7/mpqa/5iYmP9KSkr/DAwM/w8PD/8JCQnNBAQEkgUFBZkFBQWZBQUFmQUF + BZkFBQWZBQUFmQUFBZkFBQWZBQUFmAUFBZcFBQWWBQUFlAUFBZAGBgaLBgYGgwUFBXoFBQVvBQUFYgUF + BVMFBQVFBAQENwQEBCkEBAQfAgICFQAAAA8AAAAJAAAABQAAAAMAAAACAAAAAQAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAzcmzCsjFryuWk4Nlioh5pMXCrdPGw67+zsu0/8nFsP/DwKn/xsS3/9DQ + 0P/v7/D//f3+/////////////////////////////////////f/t7Ob/0MzA/5mSff94b1r/YllH/0pB + NP8/OjL/nJSO/5uUjv+ls7n/xuXt/5Pp//9m4///eOr//03l//9opfj/U0zw/zg/vP+Ce3H/jYV7/6WW + iP+klYj/qJiL/4l/dv9DQ0P/SEhI/zExMf9NTU3/lZWV/1tcXf9paWr/eHh4/2FhYf97e3v/gICA/0hI + SP8LCwv/DQ0N/wgICNYFBQWUBQUFmQUFBZkFBQWZBQUFmQUFBZkFBQWZBQUFmQUFBZkFBQWZBQUFmQUF + BZgFBQWYBQUFlgUFBZQFBQWRBQUFjAUFBYYFBQV9BQUFcgUFBWUFBQVXBAQESQUFBTsEBAQuAwMDIgMD + AxgBAQEQAAAACwAAAAYAAAAEAAAAAgAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMK/qpnCv6rSwr+q/crH + sf/MyLL/w8Cr/8PAq//Cv6r/wr+q/767o//f3tL///////////////////////////////3/7Ovk/83K + vv+mn4//e3Ri/1lRQP9COy7/OjUu/zc1Mv81NTX/NTU2/zM0Nf+wqqf/r6af/7TDyf/Z+///oOz//1Xg + //9j4///gOz//6G89P9GPuT/NDi1/4F7cP+Gfnb/oJKG/6WWiP+lloj/opSH/01LSf9KS0v/Nzc3/y0t + Lf93d3f/h4eH/3Jycv9hYWH/U1NT/2FhYf9ubm7/Pj4+/wkJCf8KCgr/BgYG2QUFBZQFBQWYBQUFmQUF + BZkFBQWZBQUFmQUFBZkFBQWZBQUFmQUFBZkFBQWZBQUFmQUFBZkFBQWYBQUFmAUFBZcFBQWVBQUFkgUF + BY4FBQWIBQUFgAUFBXUFBQVqBQUFXAUFBU4EBAQ/BAQEMgQEBCUDAwMbAQEBEgAAAAwAAAAIAAAABQAA + AAIAAAABAAAAAAAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAwr+q+8K/qv/Cv6r/wr+q/8K/qv/Cv6r/wr+q/8K/qv/Cv6r/v7yl/+Lh + 1v/////////+/+zr5P/NyL3/o5yN/3dvXv9WTj7/PTcr/zEtJv8uLCr/LS0t/y0uL/8tLi//MDEy/0A/ + P/9PTU3/ZGNi/7Wuqv+6sKj/wb26/8Xd5f/E6vT/uOXx/7/i6//j5+b/x8DL/2tli/9oZYT/gntz/4F7 + dP+ZjYL/ppaJ/6WWif+uoJP/dG1n/z09Pv9GRkb/KCgo/zo6Ov97e3v/YGBg/0lJSf9JSUn/UVFR/2xs + bP8fHx//CAgI/wgICP8FBQXUBQUFkQUFBZQFBQWXBAQEmQAAAZYAAAGVAgIDlwUFBZkFBQWZBQUFmQUF + BZkFBQWZBQUFmQUFBZkFBQWZBQUFmAUFBZgFBQWXBQUFlQUFBZMFBQWPBQUFiQUFBYIGBgZ5BQUFbQUF + BWAFBQVSBQUFRAQEBDUEBAQpBAQEHgICAhUAAAAOAAAACQAAAAUAAAADAAAAAQAAAAEAAAABAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADCv6rvwr+q/8K/ + qv/Cv6r/wr+q/8PAq//GxK//yMWw/8jFsP++uqP/ubSj/6agkf93cF//Uks7/zYxJv8rJyH/JyYj/yUl + Jv8mJyj/KCkq/y8vMP9DQ0P/VlZW/29ubv9/fn7/hYSD/358e/9qamn/rqei/7atpP/Tzsr/2tTR/9rT + 0P/e1NH/3dXS/97Y1v/LxsD/hX5w/4R9cP+BenT/gHpz/4+FfP+nmIv/qZuQ/7Cil/+lmpH/Ozs6/0tL + TP80NDT/ICAg/zk5Of9oaGj/ZGRk/19fX/9sbGz/PDw8/wkJCf8JCQn/BQUF/wEBAfkBAQHhAwMDuwAA + AZ0EBQWXHx0ZqCQiHa0TEhCgAQEClQAAAJUEBASYBQUFmQUFBZkFBQWZBQUFmQUFBZkFBQWZBQUFmQUF + BZgFBQWYBQUFlwUFBZcFBQWUBQUFkAYGBosGBgaFBQUFfAYGBnEFBQVkBQUFVgUFBUgEBAQ6BAQELAMD + AyEDAwMXAQEBEAAAAAoAAAAGAAAAAwAAAAIAAAABAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAMK/qu/DwKv/xsSv/8jFsP/Fwqz/vbmj/66okv+UjXf/b2dV/1BJ + O/80LyX/JCEb/x8eHP8dHR7/HyAi/yQlJv8xMDD/RURD/1pYV/9ycG//gX9+/4B/f/91dHT/YGBg/1BP + T/9BQUH/OTo6/zY3N/+gmZX/tayj/9HMx//a1dL/2dTS/9nV0v/a1dP/3tnY/8rFwv+AenT/f3hy/4F6 + dP+AenT/hX12/6aZjv+uoZb/sqab/72xp/90b2r/Kyss/05OTv8nJyf/Ghoa/yMjI/86Ojr/Pj4+/ycn + J/8LCwv/CwsL/wcHB/8DAwP/AAAA/wAAAP8AAAD/FhUS73BpWOaLgWn5hnph/XNoUfJVTT3WLSslsQgI + CJgAAACUAgIDmAUFBZkFBQWZBQUFmQUFBZkFBQWZBQUFmQUFBZkFBQWZBQUFmQUFBZgFBQWXBQUFlQUF + BZIGBgaNBQUFhwUFBX4FBQV0BQUFZwUFBVoFBQVMBAQEPQUFBTAEBAQkBAQEGQEBAREAAAALAAAABwAA + AAQAAAACAAAAAQAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAxsOv8MG9 + pv+qo4v/kIVu/39zXv9rYlP/UUpB/x4cF/8ZGBf/FRYX/xobHP8iIiL/MzIx/0dFQ/9eW1j/cW5r/3h1 + dP9ycG//ZWRj/1FQUP9CQkL/NTU1/zExMf8vLy//MjIy/zg4OP9HRkb/V1ZV/6efmv+xp57/0MrH/9nU + 0P/Z09D/2dTR/9rV0v/e2df/ycTB/4B6dP9+eHL/gHp0/4B3av+AeXH/nJKJ/7Sonv+1q6L/vLKp/7qx + qv9BPz3/Li4v/0lJSf8hISH/FhYW/xEREf8ODg7/DQ0N/w0NDf8JCQn/BAQE/wEBAf8AAAD/AAAA/wkJ + B/97dGD/lIhu/35yWP90ZUv/cWJI/3RlSf+FeWD/bWVS5j88M7wODw2cAAAAkwEBApcFBQWZBQUFmQUF + BZkFBQWZBQUFmQUFBZkFBQWZBQUFmQUFBZkFBQWYBQUFlwUFBZYFBQWTBQUFjgUFBYkFBQWBBQUFdwUF + BWwFBQVeBQUFUAUFBUEEBAQ0BAQEJgQEBBwCAgITAQEBDQAAAAgAAAAEAAAAAgAAAAEAAAABAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB6b1nzV01C/1xfXf9ngIH/X5us/23F4f9Sg5b/HRgW/zYz + Mf9JRkP/X1tX/25pZf9uamf/ZWNg/1VUUv9CQkH/NTU1/ywsLf8qKir/Kikp/zAwMP85OTn/Tk1N/2Ri + Yv93d3b/hYSD/4SDgv96eHj/qaGa/66kmv/Qysb/2dPQ/9jSz//Z09D/2tTR/93Y1f/JxMH/gHl0/354 + cv+AenX/fnRi/393af+Jgnz/s6if/7uxqf++ta7/yL+4/7KqpP8vLy3/JCUl/0BAQP8lJSX/ExMT/xAQ + EP8ODg7/CwsL/wcHB/8CAgL/AAAA/wAAAP8AAAD/Ojct/5SIb/97bVX/bmBG/25gRv90Zkz/dmlQ/3hq + UP9uYkj/fnRc/4Z+au9NST3GGRgVoQAAAJMAAAGWBQUFmQUFBZkFBQWZBQUFmQUFBZkFBQWZBQUFmQUF + BZkFBQWZBQUFmAUFBZcFBQWWBQUFlAUFBZAFBQWLBQUFgwUFBXoGBgZvBQUFYgYGBlQFBQVFBQUFNwUF + BSoFBQUfAgICFgICAg4AAAAJAAAABQAAAAMAAAACAAAAAQAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEw8 + G40rKWT/erT2/4L1//9n6f//j/D//6i7wP9hWFH/Yl1Z/1dUUf9EQkH/NDQz/ykpKv8kJSX/IyQk/yYm + Jv8tLS3/Ozo5/09OTf9lY2L/fHt6/4WDg/+Af3//c3Ny/15eXv9QUFD/RERE/z4+P/+akYv/rqSZ/9DK + xv/Y09D/19LP/9jT0P/Y09H/3dfV/8nDwP+AenT/f3hy/4F6df9/dmb/gHZk/4B4b/+elY7/wbix/8O6 + tP/Iv7r/1MvF/7q0r/9SUE7/JSUk/ycoKP8iIiP/GRkZ/xEREf8JCQn/BAQE/wAAAP8AAAD/AAAA/wAA + AP9OSTv/i31j/3BhR/9wYkf/e25U/4J3X/+IfWT/gnZd/2laQf9PRDL/g3Ze/4J2W/96cVv0XllNzh0d + GaYAAQGUAAABlgUFBZkFBQWZBQUFmQUFBZkFBQWZBQUFmQUFBZkFBQWZBQUFmQUFBZgFBQWXBQUFlgUF + BZQFBQWRBQUFjAUFBYUEBAR6AQEBbAEBAV0BAQFPAwMDRQUFBToFBQUtBQUFIgQEBBgBAQEQAAAACgAA + AAYAAAAEAAAAAgAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAZFxEFD07kPZ+vP//eOz//4Lk+//L5ev/p5+a/yEg + IP8fHyD/HB0e/x0dHv8jIiP/LCsr/z08Ov9SUE3/aWZk/3l2c/96eHb/c3Fw/2VkY/9QT0//RERE/zg4 + OP81NTX/NDU1/zk5Of9AQED/U1JR/6Wdlv+topj/0MnF/9fSzv/X0c7/19LP/9jT0P/c19T/yMPA/4F7 + dP+AeXL/gXp1/392aP+BeW//gHZm/4R9dv+yqqP/zcO+/8zEv//Qy8b/2tTR/9zX1P+0sK7/cW9t/z07 + Ov8aGhr/BQYG/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/0tFNv+Bc1j/bl9E/3lsUv+Ge2L/koly/5qR + ev+UinL/e25V/0Y7Kv9vYUr/a11D/1lOOP+Sh27/hXtj+VlTQ9YiIB2nAAAAlQUFBZkFBQWZBQUFmQUF + BZkFBQWZBQUFmQUFBZkFBQWZBQUFmQUFBZgEBASYBAQElgICApICAgKPBQUFkhAQEJofHx+vIiIitR8f + H6oRERF/BAQEVgQEBEsFBQU/BQUFMQQEBCUFBQUaAgICEgAAAAwAAAAHAAAABAAAAAIAAAABAAAAAQAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAB0c24UeXaY9a7D3P/N2Nb/zs3J/97Syf+emZL/FRUV/yopJ/9APTr/VVFO/2lkYf9ybWr/b2xp/2Vi + Yf9UU1L/QkJC/zc3N/8vMDD/LS4u/zExMf85ODj/R0ZG/19dXf9vbm7/gH5+/4eFhf+DgYD/sqmj/6+l + m//OyMT/19HO/9fQzf/X0c7/2NLP/9vX0//Iw7//g3t1/4B6c/+Ce3X/gHZo/4N8df+CeGz/gHZn/42E + fv/Fvrn/2tTQ/9XQzf/Y1NL/3dnY/+He3f/j3tv/0cvH/6+ppP+HgX3/YV1a/w0MDP8AAAD/AAAA/wAA + AP8AAAD/Lioh/3prUP9wYkn/f3Na/5CGbv+hmoP/rqiS/6ihi/+Jf2n/YVZE/4N3X/9zZkv/Sz8t/29i + TP93aU7/a19H/4mAa/YuKySxAAAAkwQEBJkFBQWZBQUFmQUFBZkFBQWZBQUFmQQEBJcCAgKVAgICkwYG + BpgMDAyhFxcXtiMjI80yMjLmRkZG+UxMTP9ISEj/QkJC/zk5OfojIyPBCAgIcQQEBFwGBgZRBAQEQwUF + BTUFBQUoBAQEHQMDAxQBAQENAAAACQAAAAUAAAACAAAAAQAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAG1rahaqo5n12czB/9PIwP/SycH/1c7H/7Ot + pv9sZmH/cmxo/2FcWf9UUU//QkFA/zU1Nf8sLC3/Jygo/ygoKP8wMDD/Ojk5/09OTf9lY2L/eXd2/4SD + gv+Hhob/fXx8/21tbf9ZWVn/S0tL/z4+P/+poZz/tqyi/87Iw//W0c3/1tDN/9bRzv/X0c//3NXT/8jC + v/+DfHX/gnpz/4N8dv+Ad2j/g3x0/4V9d/+CeWv/f3Vn/46Gf//Iw7//5+Tj/+Ti4f/i4OD/39zc/9rX + 1f/X0tD/1c/J/9fNx//FvLb/GxoY/wAAAP8AAAD/AAAA/wAAAP8HAQD/W043/3lqTv+Cdl3/lItz/6ii + jP+7t6L/wLym/4uBbf+KgG7/npV+/4qBaP9XTDn/dmpU/3BhRv9NQCv/cmZQ/3RoU+8cGhemAAAAlAAA + AJQDAwOYBQUFmQUFBZgEBASUCAgInRUVFbIkJCTMODg45DQ0NPgyMjL/MzMz/0NDQ/9NTU3/RUVF/z4+ + Pv85OTn/NjY2/zQ0NP8jIyPaCAgIgAUFBW4FBQVkBgYGVgUFBUcFBQU5BQUFLAQEBCECAgIXAQEBDwEB + AQoAAAAGAAAAAwAAAAIAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAbmxrFqSdmPXTysP/0MrC/9HJwv/Uzcb/t7Ks/21sbP9nZ2f/S0xM/zAwMf8lJSX/LS0s/z48 + O/9WU1H/aGVj/3h2c/99enj/d3Z0/2xra/9ZWVj/SEhI/zw8PP81NTX/ODg5/0FAQf9PTk7/YmFh/7u0 + sP+4r6b/zcbC/9bQzP/W0Mz/1tHN/9fRzv/b1dL/yMK//4R9dv+Ce3T/g3x2/4F3aP+EfXX/hX52/4Z+ + d/+Eemz/gHVl/4Z+dP+vqaT/3NrY/+3t7f/v7e7/6Obl/9/c2//Z09D/zsbB/7auqP8aFBD/AAMF/wAO + F/8AJ0H/AD9r/wAcOP8OEBD/WEct/4NyU/+ViW7/oJiB/6Sdh/+Ph3H/jYJw/7y4pP+3spz/mJB6/29j + UP+TinP/hXlf/1FFMf9mWkX/dGVK/4t8bfltZFvYMCwosQUGBZgAAACSAgIClhsbG8UxMTHxNjY2/0ND + Q/8zMzP/ISEh/yAgIP8oKCj/SkpK/0hISP8/Pz//Q0ND/z4+Pv8xMTH/Kioq/ywsLP8bGxvYBQUFhAUF + BX4GBgZ0BQUFaAUFBVoFBQVMBQUFPgUFBTAFBQUkBgYGGgMDAxIBAQELAAAABwAAAAQAAAACAAAAAQAA + AAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABubmsWo52Y9dLJwv/QycH/0cnC/9XO + xv+wq6X/Xl1d/25sa/+Cf33/i4iF/4SBfv+EgH3/d3Nw/2JgX/9XVVT/RUVE/zk6Ov8wMTH/Ly8v/zo6 + Ov9HRkb/X11e/3Jxcf+Bf3//iYeH/4ODgv92dHT/wby5/7y0q//NxsH/19DM/9bPy//W0Mz/1tHN/9rV + 0f/Iwr7/hX53/4N8df+FfXf/gXho/4V+df+Gfnf/h393/4iAeP+GfXL/gndn/350ZP+If3P/oZqS/7Ot + pv+8trH/urWw/62moP+imJD/k4d9/xdhkv8Ac8P/AI7v/wCZ//8Amv//AG3X/wBXr/8BO3L/KDlF/1tQ + Pv9vXD7/aFg+/3JlUP+gmIP/tbCZ/7KumP+GfGj/pZ2K/6ymj/+ZkXn/ZFlG/4N3Yv94a1H/jn9v/6uc + jv+omIv/g3dt5kU/ObocGxrJICAh/yIiI/8rKyv/PDw8/xQUFP8TExP/EBAQ/ysrK/9NTU3/QUFB/1NT + U/+BgYH/urq7/5aWl/89PT3/ISEh/yIiIv8PDw+5BAQEigUFBYkEBAR+AgICcwEBAWUBAQFXAgICSgMD + Az8FBQU0BQUFKAUFBRwDAwMUAAAADQAAAAgAAAAFAAAAAwAAAAIAAAABAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAG9uaxajnJf10cfB/9DIwf/QycH/08zE/722r/+NiYX/lJCN/4+Miv+GhIP/fn59/3R0 + dP9jZGT/T09Q/0JDQ/8+Pj3/TkxM/2JgX/92dHL/g4GA/4KCgf97enr/bm1t/1lZWf9KSkr/RERE/0FC + Qv+8uLb/wbqy/8zGwP/V0Mv/1c/L/9bQzP/X0M3/2tTR/8jCvv+Gfnf/hH11/4V+d/+CeGj/hn52/4d/ + d/+Hf3f/iH94/4mAef+JgXn/iH50/4V7bP+Bd2f/f3Rl/4F2Zv+Cd2f/gnZl/4Z6af+NgXf/F4fP/wCS + 9v8Amv//AJn//wCU/f8Abtf/AG/a/wBy4P8AadL/AFao/xVFb/88R0v/bmFI/4d0Vf97blT/bWJN/5SL + d/++u6X/wb2o/5OKdf+LgW7/o5uE/5CGb/+ThHX/pJWI/6WWif+rm43/rJyO/5SHfP9iWlT/KScl/ykq + K/8kJSX/AgIC/wUFBf8CAgL/LCws/0lJSf9ISEj/cnJy/1RUVf+FhYb/8vP0/7u7u/80NDT/Gxsb/xcX + F+4EBASVBAQEjwsLC5gaGhqpKioqwSoqKsUfHx+jCwsLbwMDA04FBQVGBQUFOQQEBCsEBAQgAwMDFgEB + AQ4AAAAJAAAABQAAAAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAb25rFqKclvXRx8D/0MjA/9DI + wf/UzcX/ta+p/2RkZP9iYmP/X2Bg/2NjY/9vbm3/eXh3/4yJiP+cmpf/op+d/5+dnP+cmpr/iYiH/3Rz + c/9dXV3/VFRU/05PT/9TU1P/X15e/3BwcP9/fn//lJKS/9jV0//BurL/y8S//9XPy//Vz8v/1dDL/9bQ + zP/Z1ND/y8TB/4iAef+FfXb/hn54/4J4af+Hf3b/iH94/4iAeP+JgHj/iYB4/4qBef+Lgnr/jIN7/4yD + e/+Ng3r/jYN5/42Def+OhHr/h3xr/4+CeP8XebX/AIfi/wCX/v8AmP//AJT8/wBv1/8AbdX/AG7W/wBw + 2f8AdOH/AHPi/wBs0/8FWaP/I1B0/0VKSP90ZUz/mIhp/5mNc/+DemX/iX9s/8G9qP+8uKH/m5F//5uM + fv+llon/pJWI/6SViP+klYj/qJmL/6ycjv+cjYH/gndv/z47OP8HCAf/CgoK/wgICP8tLS3/Q0ND/1RU + VP+EhIT/e3t7/2FhYf+tra3//v7+/4aGhv8XFxf/FRUV/xwcHNgsLCzdPj4+9ExMTP9JSUn/RERE/z4+ + Pv8yMjLuFhYWngQEBGEFBQVZBQUFSgUFBTwFBQUuBAQEIQEBARYAAAAOAAAABwAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAABvb2wWopyW9dHHv//PyMD/z8jA/9TNxf+xrKb/ZmRj/316eP+Kh4T/lJCO/5uX + lf+YlZP/j42M/4iHh/99fX3/dnd3/3N0dP90dHT/d3h3/4GBgf+Lior/m5ub/6inp/+wr6//s7Ky/6ur + qv+gn5//29rY/9DKw//Lxb//1c/L/9XPy//Wz8v/1tDM/9jTz//RzMj/i4N7/4Z+dv+Hf3j/gnhp/4h/ + d/+IgHj/iYB4/4mBef+KgXn/ioF5/4uCev+Mg3r/jYN7/42Ee/+OhHv/j4V8/5CGfP+IfWz/j4N4/xd3 + rv8Ahd3/AJf+/wCY//8AlPz/AHDY/wBu1v8AcNj/AHDY/wBx2f8Actr/AHTd/wB55v8AduT/AGzO/wla + n/8nTmn/QEI9/2hZQf+Yi3D/n5eA/1ZUSv94bWP/q5uO/6SViP+klYj/pJWI/6SViP+klYj/pJWI/6aX + iv+vnpD/mIuA/yQkI/8bGxr/Gxsb/zQ0NP8+Pj7/WVlY/5SUlP+Ojo//kpGS/3Z2dv/IyMj/srKy/y0t + Lf8ODg7/Hx8f/zU1Nf9JSUn/SUlJ/0FBQf85OTn/NDQ0/zMzM/8vLy//FBQUrgQEBHAFBQVpBQUFWgUF + BUoFBQU5BAQEKQICAhoAAAAPAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAHBvbBaim5b10Ma//8/I + wP/PyMD/0svD/7y2r/+JhYL/h4SC/358e/90c3P/ampr/2hoaP9mZ2f/a2tr/3Z1df+BgID/kI+O/6Cd + nP+opqX/qqqo/6inpv+cnJz/k5OT/4iHiP+FhYX/kJCQ/5+fn//m5eT/2NPO/8vEv//Vz8v/1c/K/9bP + y//W0Mz/2dLP/9HLx/+MhHz/h393/4iAef+DeWn/iYB3/4mAeP+JgXn/ioF5/4qCef+Lgnr/jIJ6/4yD + ev+NhHv/joR7/4+FfP+QhXz/kIZ9/4l9bP+Qg3j/F3as/wCE3P8Alv7/AJj//wCU/P8Acdn/AG/X/wBx + 2f8Actr/AHLa/wBz2/8AdNz/AHbe/wB33/8AeuP/AH3r/wB66P8Abcz/BVWW/xk7Vf8YHiH/IRYL/4Bt + XP+kk4T/pZaK/6aXiv+llon/pJWI/6SViP+klYj/pJWI/6majf+ajoP/ODc3/y4uL/8vLy//PT09/z4+ + Pv9NTU3/hoaH/2hqa/+UlZb/dnZ2/5GRkf+pqan/RUVF/wsLC/8PDw//MzMz/0xMTP9CQkL/RUVE/1tb + W/9NTU3/Li4u/ykpKf8mJib9DQ0NoQQEBHYFBQVvBQUFXwUFBU0FBQU4BQUFJgICAhYAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAcG9sFqGblfXQxb7/z8fA/8/IwP/UzcT/sKqk/1ZXWP9cXFz/X19f/2pp + aP93dXT/hYOB/5SRj/+dmpj/oJ6c/5+dnP+Tk5P/jIyM/4OEhP+AgID/iYiH/5WTkv+op6X/wb+9/9nX + 1f/s6+r///7+///////Z1dD/y8O9/9XPy//Vzsr/1c/L/9bQy//Z087/0cvH/4yEfP+If3f/iYB5/4N5 + av+JgHj/ioF5/4qBef+Lgnn/i4J6/4yDev+Mg3r/jYN7/46Ee/+PhXz/j4V8/5CGfP+Rhn3/iX1s/46D + ev8Wdq3/AITb/wCW/v8AmP//AJT8/wBz2/8Acdn/AHLa/wBz2/8AdNz/AHTc/wB13f8Adt7/AHjg/wB5 + 4f8AeuL/AHvj/wCA6v8Ag/H/AH7q/wVzzf85fbD/XnSC/3tvYv+Od2L/nIh1/6SUhv+nmIv/pZaJ/6SV + iP+klYj/qZuO/5yQhv9DQkH/OTo6/zo6Ov9DQ0P/RERE/zU1Nf+EhIT/ZWVm/25vb/9ubm7/c3Nz/4iI + iP9JSUn/CgoK/woKCv86Ojr/SEhI/0hISP9qamr/lpaX/9DQ0f+Ki4v/LS0t/yAgIP8aGhrlBQUFfAUF + BW4GBgZgBQUFTwUFBTsFBQUoAwMDGAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABwb2wWoZqV9c/F + vf/PyL//z8i//9PLw/+1rqj/dHFv/4iDgP+RjYr/lJGN/5OQjf+HhoT/fn5+/3l5ef90dHX/e3p5/4WD + gP+VkY7/qqSf/721sP/Mxr//29XQ/+Te2v/q5eL/8Ozo//Lw7v/39vX//////+Dd2f/Kw7z/1c/K/9XO + yv/Vz8r/1tDM/9jSz//Ry8f/jYV9/4mAeP+KgXr/hHlq/4qBeP+Lgnn/i4J6/4yCev+Mg3r/jYN6/42D + e/+OhHv/joV8/4+FfP+Qhnz/kYZ9/5GHff+LfWz/h4R//xB2sf8Ag9r/AJb+/wCY//8AlPz/AHTc/wBy + 2v8Ac9v/AHTc/wB13f8Adt7/AHbe/wB33/8AeOD/AHri/wB74/8AfOT/AH3l/wB/5/8AgOn/AITv/wCE + 8/8AhO//FoDS/zl4pv9fb3b/f3Bf/5V+av+ijn3/p5eK/6eYi/+rnJD/mo+E/zo5Of8yMjP/NDQ0/zY2 + Nv9LS0v/Ly8v/1VVVf+Kior/ampq/1ZWVv9YWFj/cXFx/zo6Ov8GBgb/BgYG/zs7O/9CQkL/YmJi/29v + b/9TU1P/pKSl//7+/v+Hh4f/HBwc/xoaGv8MDAyWBAQEVAYGBk4FBQU+BQUFLgUFBR8BAQESAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAHFvbhagmpT1z8S8/8/Hv//PyMH/1MvD/7u1rv93dHP/b25t/2tr + av9naGj/c3Jy/4GAfv+RjYr/oZuW/6yjnP+vpZv/tamg/72yqP/CuLD/yr+3/87Gvv/TzMX/2tTQ/+Ld + 2f/l4d7/6OXi/+jl4v/g3dr/x8K7/83GwP/Vzsr/1c7K/9XPyv/W0Mv/2NLO/9HLx/+Ohn3/ioF4/4uC + ev+Eemr/i4J5/4yCev+Mg3r/jIN6/42De/+NhHv/joR7/46Ee/+PhXz/kIZ8/5CGff+Rh33/kod+/4t9 + bP+IhH//EHaw/wCD2v8Alv7/AJj//wCU/P8Adt7/AHPb/wB13f8Add3/AHbe/wB33/8AeOD/AHnh/wB5 + 4f8Ae+P/AHzk/wB95f8Afub/AH/n/wCB6f8Agur/AIPr/wCE7f8Ah/P/AIn3/wKI7v8YgdD/PXWc/2Vu + cf+GdGT/nYZy/6+cjP+ZjoT/LCws/ysrK/8sLCz/KSkp/0BAQP9CQkL/JiYm/2BgYP9qamr/UVFR/1pa + Wv9oaGj/FxcX/wcHB/8GBgb/Ozs7/0BAQP9ycnL/jo6O/4ODhP9tbW3/0dHR/9TU1P9AQED/ERER/xAQ + EMMEBAQ1BQUFMQUFBSYFBQUbAQEBEgAAAAoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAcnBtFqGa + lfXQxb7/0cnC/9HLw//Wzsf/uLKs/3t6ev+WlZP/r6yq/8O/u//MxsH/0cnD/9DFvv/Iv7b/wbiv/7uw + p/+1qaD/tKmf/7qwp/++taz/wrix/8e+tv/Du7P/v7ev/762rv+5sqj/ubKo/8G4sP/Hv7j/1M3I/9TO + yf/Vzsn/1c/L/9bQy//Z087/0svH/4+Gfv+LgXn/jIN7/4V6av+Mgnn/jIN6/42De/+NhHv/jYR7/46E + e/+OhXz/j4V8/5CGfP+Qhn3/kYd9/5KHff+SiH7/i35s/4iFgP8QdrD/AIPa/wCW/v8AmP//AJX9/wB3 + 3/8Add3/AHbe/wB33/8Ad9//AHjg/wB54f8AeuL/AHvj/wB85P8AfeX/AH7m/wB/5/8AgOj/AIHp/wCD + 6/8AhOz/AIXt/wCG7v8AiPD/AInz/wCM+f8Ajv3/BIvv/xuAyf9Dc5L/cXd2/4V2aP85MSz/IR4c/yMi + Iv8iIiL/JCQk/0pKSv8wMDD/Hx8f/0ZGRv9dXV3/WFhY/yUlJf8ICAj/BAQE/w4ODv8/Pz//Ozs7/3R0 + dP+EhIb/lJSW/4aGhv+MjIz/wsLC/2pqav8PDw//EBAQ4QYGBiwDAwMUAgICEQEBAQwAAAAHAAAABAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABxcG0XopyX9tLJwf/TzMb/083I/9LMxv/a1ND/8O3s//Lu + 6//r5+P/5N/b/97Z1P/X0cv/08vE/8/Gv//Ivrf/vLOr/7Wqof+rn5X/pZmO/6yil/+vppv/s6qg/722 + rP/CurH/ycG4/9HKw//TzcX/1M7H/9XPyf/Uzcj/1M7J/9XOyv/Vz8r/1tDL/9jSzv/Sy8f/j4d+/4uC + ef+NhHv/hXtr/42Cev+NhHv/joR7/46Ee/+OhHv/j4V8/4+FfP+QhXz/kYZ9/5GHff+Sh33/koh+/5OI + fv+Lfmz/iIWA/xB2sP8Ag9r/AJb+/wCY//8Alf3/AHjg/wB33/8Ad9//AHjg/wB44P8AeeH/AHri/wB7 + 4/8AfOT/AH3l/wB+5v8Afub/AIDo/wCB6f8Agur/AIPr/wCF7f8Ahu7/AIfv/wCI8P8AivL/AIvz/wCN + 9f8Ajvj/AJH//wCT//8Gje3/GHq9/zBjh/8cJi7/GhMP/xoTDv8YFhT/JSUk/0hJSf8oKCj/EhIS/xAQ + EP8MDAz/CgoK/wgICP8CAgL/Kioq/0hISP84ODj/YGBg/3t8ff9lZmf/hISF/3Fxcf+Wlpb/eHh4/xAQ + EP8NDQ31AwMDMgAAAAIAAAAGAAAABAAAAAMAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAHJy + bxOhm5bt1MvE/9XPyv/Vz8v/083I/+Db1//5+Pb/8u/t/+/s6v/q5+P/39rW/9XQyv/Jwrv/ubGn/7Sr + ov+zqZ//s6qg/721q//EvbP/ycK5/9DJwf/Sy8P/0svD/9PMxP/SzMT/0cvD/9HKw//Sy8T/08zG/9PM + xv/SzMf/08zH/9TNyP/Vz8r/2dPO/9HLx/+Qh3//jIN6/46EfP+MgHD/kod+/46Ee/+OhHv/j4V8/4+F + fP+QhXz/kIZ8/5CGff+Rh33/kod9/5KIfv+TiH7/lIl//4x+bP+JhoD/EHaw/wCD2v8Alv7/AJj//wCV + /f8AeuH/AHjg/wB54f8AeeH/AHri/wB64v8Ae+P/AHzk/wB95f8Afub/AH7m/wB/5/8Agen/AILq/wCD + 6/8AhOz/AIbu/wCH7/8AiPD/AInx/wCK8v8AjPT/AI31/wCO9v8AkPj/AJH5/wCU/v8Al///AJn//wOL + 6P8IZaL/DjpW/xIXG/8QCAP/IRoW/z49PP8qKir/FhYW/w8PD/8JCQn/AgIC/xcXF/85OTn/RERE/0FB + Qf88PDz/iYmJ/2xtbv9tbm7/W1tb/3Fxcf9paWn/Dw8P/woKCvkBAQEvAAAAAAAAAAIAAAABAAAAAQAA + AAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAdnVyDJ6aldvVzcX/19HN/9fSzf/V0Mv/4t3a//b0 + 8//p5uL/0c3H/8XAuP+/uLD/urKp/7+3sP/IwLr/zca//9TOyP/X0cz/1s/J/9TNx//Sy8T/z8nB/8/H + vv/Oxr7/zsa+/8/Hv//RycH/08zE/9XOyP/X0cz/3djU/+Ld2v/k4N3/5ODd/+Hc2f/d19T/0szH/5GH + f/+Qhnz/hHtz/0tEO/9za2T/koh//4+FfP+QhXz/kIZ8/5CGff+Rhn3/kod9/5KHfv+SiH7/k4h+/5SJ + f/+UiX//jH5s/4qGgf8QdrD/AIPa/wCW/v8AmP//AJX9/wB74/8AeuL/AHri/wB74/8Ae+P/AHzk/wB9 + 5f8AfeX/AH7m/wB/5/8AgOj/AIHp/wCC6v8Ag+v/AITs/wCF7f8Ahu7/AIjw/wCJ8f8AivL/AIvz/wCM + 9f8Ajvb/AI/3/wCQ+P8Akvr/AJP7/wCV/f8Alv//AJr//wCg//8CnP//BYfe/whbkv8IK0H/DxAR/yIZ + E/8iHBj/FxYV/xISEv8ZGRn/Ly8v/zAwMP8zMzP/TExM/ysrK/9WVlb/fn5+/1RUVP9JSUn/ZmZm/0lJ + Sf8ICAj/BwcH+AEBASwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAB1dHEMn5uW3NbPyP/Z1M//2dTQ/9nU0P/c2NP/y8W+/8S8tf/MxL7/z8nC/9bPyv/b1dH/29TQ/9rT + z//Z0s3/1tDL/9TOyf/SzMf/0szG/9TNx//Vz8j/2dPN/9/a1f/k4dz/6+jl//Lv7f/39fT/+ff3//f3 + 9v/x7+3/6ufl/+Pf3P/d2NP/2tTQ/9nTzv/TzMj/lImB/4+Fe/+OhXz/b2ZZ/0VAO/+Adm7/k4l//5CG + ff+Rhn3/kod9/5KHff+SiH7/k4h+/5SJfv+UiX//lIl//5WKf/+Nf23/ioaB/xB2sP8Ag9r/AJb+/wCY + //8Alf3/AHzk/wB74/8AfOT/AHzk/wB95f8AfeX/AH7m/wB+5v8Af+f/AIDo/wCB6f8Agur/AIPr/wCE + 7P8Ahe3/AIbu/wCH7/8AiPD/AIry/wCL8/8AjPT/AI71/wCP9/8AkPj/AJL6/wCS+v8AlPz/AJX9/wCX + //8Bl///Apj//wOa//8Env//BKP//wad/v8Ff83/BE5+/xk2SP8tKyv/SkE7/zItK/8lJCP/JiYm/yQk + JP89PT3/QkJC/yEhIf9PT0//ampq/2hoaP9eXl7/FxcX/wcHB/8EBAThAQEBEwAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAHJwbgyemZTc19DK/9rV0P/c19L/3NfT/9vW + 0v/d2NT/3tjU/93X1P/d19P/3NbR/9rU0P/Z0s7/2NLN/9rTz//b1dH/39vX/+bi4P/t6uj/8/Hv//n4 + +P/9/fz//f39//z8/P/49vX/7+3q/+fj3//e2dX/19DL/9TMx//RysT/083H/9jRzP/f2NP/3dfS/9TO + yv+bkYj/j4R6/5CGff+YjHv/ZF1V/25mXv+VioD/kod9/5KHfv+SiH7/koh+/5OIfv+UiH7/lIh+/5WJ + f/+VioD/loqA/41/bf+Kh4H/EHaw/wCD2v8Alv7/AJj//wCV/f8Afub/AH3l/wB95f8Afub/AH7m/wB/ + 5/8Af+f/AIDo/wCB6f8Agen/AILq/wCD6/8Ahe3/AIbu/wCH7/8AiPD/AInx/wCK8v8AivL/AIz0/wCN + 9f8Ajvf/AI/3/wCR+f8Akvr/AJT8/wCV/f8Alv7/AJf//wGY//8Cmf//A5r//wSa//8Fm///Bp7//wei + //8Jp///DJ/9/xKCyP8ucJv/N0pW/xwYF/8dFQ//HBkW/x0cHP9DRET/NDQ0/xcXF/8jIyP/Kioq/xMT + E/8JCQn/BgYG/wEBAa0AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAbmxpDJuWkd3X0cr/3NfT/97Z1f/e2dX/3tnV/93Y1P/d2NT/3djU/9zX0//d2NT/39rX/+Tf + 3P/p5uP/7+zq//Xz8v/39/b/+Pj3//f29f/08vD/7ero/+fj3//f2db/2NHM/9HKw//QyL//0cnC/9fQ + yf/e19L/5uDb/+zn4//l4d//2NXU/8LBwP/Ev7v/2NLN/5uSif+PhXv/k4l+/3x3cP9ZVlX/fHZw/6GX + jv+TiH7/kYZ7/5KHff+UiH7/lIh+/5WJf/+fk4n/nJCF/5eLgP+Win//jX9t/4yIgf8RdrD/AIPa/wCW + /v8AmP//AJX9/wB/5/8Afub/AH/n/wB/5/8Af+f/AIDo/wCA6P8Agen/AILq/wCD6/8AhOz/AITs/wCG + 7v8Ah+//AIjw/wCJ8f8AivL/AIvz/wCM9P8AjfX/AI72/wCP9/8Akfn/AJL6/wCT+/8AlP3/AJb+/wCX + //8BmP//Apj//wOZ//8Emv//BZv//wab//8HnP//CJ3//wme//8KoP//CaX//wmm//8Qnvf/EXq6/xNM + bv8UIiv/Ew0J/xkRDP88OTf/MjIy/xUVFf8NDQ3/DAwM/wkJCf8DAwP/AAAA5AAAAI4AAAAvAAAAAwAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABta2gLmpWQ2tjSy//d2dX/3trX/9/a + 1v/f2tb/4NvY/+Ld2v/l4d7/6efk/+3r6f/x7+7/8fDu//Lw7v/v7Ov/6+jm/+bk4P/h3dr/3NfT/9jS + zf/W0Mr/2NDL/93W0f/j3Nj/6OPe/+vn4v/f3Nn/0M7M/7W0tP+UlJP/c3Ny/1pZWP9CQD7/IiEf/4F/ + e//h29f/nZOL/5CFfP+YjoP/SUVA/yUjIf9NTEr/iYWD/56Zlf+ooJn/n5SK/5SIff+Thnz/lIl//2xo + ZP9ybWn/lYyE/56SiP+PgG3/jIiB/xF2sP8Ag9r/AJb+/wCY//8Alf3/AIDo/wB/5/8AgOj/AIDo/wCB + 6f8Agen/AILq/wCC6v8Ag+v/AITs/wCF7f8Ahu7/AIbu/wCI8P8AifH/AIry/wCL8/8AjPT/AI31/wCO + 9v8Aj/f/AJD4/wCR+f8Ak/v/AJT8/wCV/f8Al///AZf//wGY//8Cmf//A5r//wSa//8Fm///Bpz//wed + //8Inv//Cp7//wqf//8LoP//DKH//wyj//8Oqf//D6n//xCZ7f8Rcav/Dj1Z/w4XHf8lHRj/KSIe/xwZ + GP8ODg7/BQUF/wAAAP8AAAD/AAAA/wAAAPcAAAA8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAHBubAOVkY3F2NLN/9/a1//i3tv/5eHe/+jk4v/q5+X/7Ono/+zq6P/s6ef/6ebk/+bi + 3//j39z/39vX/93X1P/d2NP/4NvX/+bh3f/q5uP/8e3q//Lv7P/g3dz/zs3M/62srP+KiYn/aWho/1RS + Uf9IRED/SEQ+/1BKQ/9VTkf/W1RO/19ZUv88ODP/fXl3/+Te2v+kmpL/kIV7/5SJf/9zamL/opOH/56P + gf+JfHH/Pjw6/1ZWV/+GhIT/qqWi/7CnoP+hloz/bGNb/zk0Mf9ZU07/fXZv/5WLf/+PioT/EXaw/wCD + 2v8Alv7/AJj//wCV/f8Agur/AIHp/wCC6v8Agur/AILq/wCD6/8Ag+v/AITs/wCF7f8Ahe3/AIbu/wCH + 7/8AiPD/AInx/wCK8v8Ai/P/AIz0/wCN9f8Ajvb/AI/3/wCQ+P8Akfn/AJL6/wCT+/8Alf3/AJb+/wCX + //8BmP//Apn//wOZ//8Emv//BZv//wab//8HnP//CJ3//wme//8Kn///C6D//wyg//8Nof//DqL//w+j + //8QpP//Eaf//xKt//8Tq///EZXh/wxlmf8LM0v/CQ8T/wIAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AEwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAamhlAZGOisDb1dH/5N/c/+fj + 4P/n4+L/5uPh/+Xi3//j393/4t7b/+Hd2f/j39v/6OTh/+7q5//y7+z/+PXz//Hv7f/b2tn/xsbF/6Sk + pP96enn/WVlY/z49PP87NzT/Lion/0hCPP9aUkv/aGBY/3RrYv98cmn/fHJq/3ZtZf9tZl7/amNc/zw3 + M/9taWf/5+Hc/6aclP+Rhnz/lYl//3tyav+0qJ7/saOY/6GUiP92bmT/XFRN/z46Nv8+PDz/ZWZm/5qZ + mP+7tbH/s6mi/5eMgv9+c2n/j4R4/4+LhP8Sd7D/AIPa/wCW/v8AmP//AJX9/wCE7P8Ag+v/AIPr/wCD + 6/8AhOz/AITs/wCF7f8Ahe3/AIbu/wCG7v8AiPD/AIjw/wCJ8f8AivL/AIvz/wCM9P8AjfX/AI72/wCP + 9/8AkPj/AJH5/wCS+v8Ak/v/AJX9/wCW/v8Al///AZj//wKY//8Dmf//BJr//wSb//8Fm///Bpz//wed + //8Inf//CZ7//wqf//8LoP//DKH//w2i//8Oov//D6P//xCk//8Rpf//EqX//xOm//8Tq///FLH//xSr + //8RjdD/DF6L/wUlN/8BAwX/AAAA/wAAAP8AAAD/AAAASgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAjYqGrdrU0f/i3tv/49/c/+Pf3f/n4+H/7+vp//Tx7v/39fP//fv5/+3s + 7P/X19b/vr6+/5WVlf9tbGz/T09O/zg3Nf8qJyT/Mi4q/zkzLv8WExH/KSYj/yglIv8yLir/Z19Y/2tj + W/9tZV3/cGhg/3RrYv92bWX/eG9n/3RsZP9waWH/Qjw3/2hlY//q5OD/raOb/5GGe/+ViX7/gXlz/8jA + uv/DubH/q6CW/3VtY/9tZV3/amJa/1pTTP8+OTT/LCkn/0FBQf93dnj/q6mo/8G7t/+bjn7/jIeB/xN4 + sP8AhNr/AJf+/wCY//8Alv7/AIXt/wCE7P8AhOz/AIXt/wCF7f8Ahe3/AIbu/wCH7/8Ah+//AIjw/wCI + 8P8AivL/AIry/wCL8/8AjPT/AI31/wCO9v8Aj/f/AJD4/wCR+f8Akvr/AJP7/wCU/P8Alf3/AJf//wGX + //8BmP//Apn//wOa//8Emv//BZv//wac//8HnP//CJ3//wme//8Kn///C6D//wyg//8Nof//DqL//w+j + //8QpP//EaT//xKl//8Tpv//E6f//xOn//8UqP//Far//xew//8YtP//GKz//xSLyv8NVHv/BR0r/wAA + AP8AAABGAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABta2io3dnV/+Tg + 3v/18/H//fz7/+vq6f/Ozs3/tLS0/4WFhf9cXFv/Ozs7/ycmJv8JCAj/EQ8O/xMRD/8YFRP/Pzs2/0pE + QP9JRD//Ih8d/xIQEP8wLSr/S0VB/2FaU/9iW1T/ZV5X/2lhWf9sZV3/cGhg/3NrYv92bmX/eXBn/3Zu + Zf9RS0X/XlpZ/+fh3f+xqKH/kYZ7/5WJfv+Gf3r/2tbU/9TOyP+0qqL/aWJa/15XUP9ZU0z/VE5I/1JL + Rv9MRkH/OjUx/yQgHv8kIiL/Tk5Q/6qjnv+NiIH/EXeu/wCG2v8BmP7/AJj//wCW/v8Ahu7/AIXt/wCG + 7v8Ahu7/AIbu/wCH7/8Ah+//AIjw/wCI8P8AifH/AIry/wCK8v8AjPT/AIz0/wCN9f8Ajvb/AI/3/wCQ + +P8Akfn/AJL6/wCT+/8AlPz/AJX9/wCW/v8Al///AZj//wKZ//8Dmf//BJr//wWb//8Gm///B5z//wed + //8Inv//CZ7//wqf//8LoP//DaH//w2i//8Oov//D6P//xCk//8Rpf//EqX//xOm//8Tp///E6j//xSo + //8Wqv//F6r//xir//8Zrf//G7T//xy2//8bq/n/FoK9/xJqmnEAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAEJBQKbe2db/8e3r/7i4uP9GRkb/Ly8w/xMSEv8EBAT/CAcH/w4N + DP8aGBf/FhUT/wwLC/8XFhX/HRwa/zEuK/81MS7/KCYk/yIgHv8uKyn/SUM//1ZQSv9YUkz/WlNN/15X + UP9hWlP/Zl5X/2lhWv9tZV3/cGhg/3NrYv92bmX/e3Jp/1lSS/9VUlD/5eDc/7eup/+Shnv/lYl9/42H + gv/n5eX/3trX/7iwqf9dVlD/U0xH/09JRP9JRD//RD87/z87N/87NzT/ODQx/y8sKP8YFxb/lY+K/5GM + hf8SeK7/AYfa/wOZ/v8Bmf//AJb+/wCI8P8Ah+//AIfv/wCH7/8AiPD/AIjw/wCJ8f8AifH/AIry/wCK + 8v8Ai/P/AIz0/wCM9P8Ajvb/AI72/wCP9/8AkPj/AJH5/wCS+v8Ak/v/AJT8/wCV/f8Alv7/AJf//wGY + //8Cmf//A5n//wSa//8Em///BZv//wac//8Hnf//CJ3//wme//8Kn///C6D//wyg//8Nof//DqL//w+j + //8QpP//EaT//xKl//8Tpv//E6f//xOn//8UqP//Fan//xaq//8Xq///GKz//xms//8arf//G67//xyx + //8et///H7j/qAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACmlohYg3t06M7K + x//28vD/jo2N/wAAAP8PDg7/EhER/xUUFP8UFBT/FxUV/xYWFv8PDw7/GhkY/yglI/8wLSv/HBoZ/xgX + Fv8rKSb/Pzo2/0hDP/9LRkH/TkhD/1JMRv9WUEr/WlNN/15XUP9iW1T/Zl5X/2piWv9tZV3/cGhf/3Nq + Yf92bWX/Zl1V/1BOTP/h3Nj/vrau/5WIff+ViX7/mZKL/+Xj4v/f29f/vbWv/19ZVP9FQDv/RD86/z87 + N/86NjP/NTIv/zEuK/8sKSf/KCYj/xkYGP+RioX/ko2H/xR4r/8CiNr/BZr+/wOa//8Bl/7/AInx/wCI + 8P8AifH/AInx/wCJ8f8AivL/AIry/wCL8/8Ai/P/AIz0/wCM9P8AjfX/AI72/wCP9/8AkPj/AJD4/wCR + +f8Akvr/AJP7/wCU/P8Alf3/AJb+/wCX//8BmP//AZn//wOZ//8Dmv//BJr//wWb//8GnP//B5z//wid + //8Jnv//Cp///wqf//8LoP//DaH//w6i//8Oov//D6P//xCk//8Rpf//EqX//xOm//8Tp///E6j//xSo + //8Wqf//Fqr//xer//8YrP//Ga3//xqt//8brv//HK///x2w//8esf+kAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAKaWiaeakIb/xcK///Tw7v+srKv/DAwM/xgXF/8TEhL/Dg0N/wsL + C/8REBD/FRQU/xwbGv8iIB//JiMi/yonJf8nJCP/My8s/zo2M/89ODX/QTw4/0ZBPP9KRT//TkhD/1JM + Rv9WUEr/WVNN/15WUP9gWVL/Y1xU/2dfV/9rY1v/cmpi/4F5cf91bWb/REJA/93Y1P/EvLb/l4p+/5aJ + fv+elY3/4t7b/9/Z1f+8tK3/e3dz/1NPS/84NDD/NDAt/zEuK/8sKif/KCYk/yQiIf8iIB//CQkJ/4iB + fP+Uj4j/FHmv/wOJ2v8Gm/7/BJv//wKY/v8Ai/P/AIry/wCK8v8AivL/AIvz/wCL8/8Ai/P/AIz0/wCM + 9P8AjfX/AI72/wCO9v8Aj/f/AJD4/wCR+f8Akvr/AJL6/wCT+/8AlPz/AJX9/wCW/v8Al///AZj//wGY + //8Dmf//A5r//wSa//8Fm///Bpz//wec//8Hnf//CJ7//wme//8Kn///C6D//wyg//8Nov//DqL//w+j + //8QpP//EaT//xKl//8Tpv//E6f//xOn//8UqP//Fan//xaq//8Xq///GKz//xms//8arf//G67//xyv + //8dr///HrD//x+x/6QAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAqp2Rn6Oa + kv+8ubf/8/Du/8C/v/8cHBz/Ozo6/ywsLP8cHBz/GBgY/xQUFP8TEhL/FhUU/xoYF/8eHBv/IyEf/yon + Jf8tKij/Mi4r/zYyL/87NjP/Pzo2/0M+Of9HQTz/S0ZB/1BKRf9VT0n/XldR/2hhW/9zbWf/gXp0/5CK + hP+clpH/qqWf/5CKhP9EQT7/2NTQ/8vDvv+ZjIH/mIt//6SYjv/NxsD/z8a//6yimv9yb2z/cG1r/1ZT + Uf8zMC7/JSMg/yIgHv8gHh3/HRsa/xsZGf8FBQX/iYJ9/5WQif8Weq//BIra/wec/v8GnP//A5n+/wCM + 9P8Ai/P/AIvz/wCM9P8AjPT/AIz0/wCN9f8AjfX/AI72/wCO9v8Aj/f/AJD4/wCR+f8Akfn/AJL6/wCT + +/8AlPz/AJT8/wCV/f8Alv7/AJf//wGY//8BmP//A5n//wOa//8Emv//BZv//wab//8HnP//B53//wid + //8Jnv//Cp///wug//8MoP//DaH//w6i//8Po///EKP//xGk//8Rpf//Eqb//xOm//8Tp///E6j//xSo + //8Vqf//Fqr//xer//8YrP//Ga3//xqt//8brv//HK///x2w//8esP//H7H/pAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAC1qqCftKym/7Wyr//x7ez/zczM/yYmJv9BQUH/QUFB/0FB + Qf89PDz/ODc3/zIxMf8uLSz/LCsq/y0sK/8wLi3/Mi8t/zQxL/85NjT/PTo3/0M/Pf9LSET/Uk5K/1tX + U/9kYFz/b2tm/3p2cv+FgXz/jYiE/5WQjP+alZH/nJeT/5+alf+loJv/kIqE/zs4Nf/Szsv/083G/5uO + g/+fkof/gndu/yklI/9gXFj/b2pn/2RiYP9lYmD/Z2Vk/15cW/9BQD//JyUk/xkXFv8TERH/ERER/wME + BP+Kg33/lpCJ/xZ7r/8Gi9r/CZ3+/wed//8Fmv7/AI71/wCN9f8AjfX/AI31/wCN9f8Ajvb/AI72/wCP + 9/8Aj/f/AJD4/wCQ+P8Akfn/AJL6/wCS+v8Ak/v/AJT8/wCV/f8Alv7/AJb+/wCX//8BmP//Apj//wKZ + //8Dmf//BJr//wWb//8Gm///Bpz//wed//8Inf//CZ7//wqf//8Ln///C6D//wyh//8Oov//DqL//w+j + //8QpP//EaX//xKl//8Tpv//E6f//xOn//8UqP//Fan//xaq//8Xq///GKz//xms//8arf//G67//xyv + //8dr///HrD//x+x//8gsv+kAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAALyy + qZ/Evbf/sK2q/+vo5v/Z2Nf/MTEx/zg4OP86OTn/Ojk5/zo5Of87Ojr/PDw8/z49Pf9BQED/RURE/0pJ + SP9NTEv/UlBP/1dVU/9cWVj/Yl9d/2lmY/9va2n/dXJv/3l1cv98eXX/gX15/4WAfP+JhID/jIeD/5CL + hv+Tj4r/mZSP/6Cblv+Vj4n/QT47/9DMyP/a1ND/nZCF/5+Rhf+QhHr/ExEQ/0RCQf9dW1n/WVdV/1lX + Vv9YV1b/W1lY/11cXP9XVlb/SEdH/zc2Nv8qKyr/EhIT/5aPiv+Uj4f/F3uv/weM2v8Knv7/CZ7//wab + /v8Aj/b/AI72/wCP9/8Aj/f/AI/3/wCP9/8AkPj/AJD4/wCR+f8Akfn/AJL6/wCS+v8Ak/v/AJT8/wCV + /f8Alf3/AJb+/wCX//8Al///AZj//wKY//8Cmf//A5n//wSb//8Em///Bpv//wac//8Hnf//CJ3//wme + //8Kn///Cp///wug//8Mof//DaH//w6i//8Po///EKT//xGk//8Spf//E6b//xOm//8Tp///E6j//xSp + //8Vqf//Fqr//xir//8YrP//Ga3//xqt//8brv//HK///x2w//8esP//H7H//yCy/6QAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAvbOsn83Fwf+tqaf/5eLg/+bk4/89PT3/MTAw/zc1 + Nf81NTX/NTQ0/zU0NP81NDT/NTQ0/zc2Nv85ODj/Pj08/0RCQv9KSEf/T01M/1VSUf9aV1X/Xlxa/2Rh + Xv9pZWP/bmpn/3NvbP95dXH/f3t3/4SAfP+Ggn3/iYR//4qEf/+CfXj/e3Vw/2tlX/8kIh//y8fE/9/a + 1f+lmI7/mIt//4+Def8sKCT/GxoZ/z8+Pf9QTk3/UE9O/09NTf9PTk3/UE9P/1NTU/9YV1f/X15e/1tb + W/8cHB3/lo+K/5WQh/8YfK//CYza/wyf/v8Kn///B5z+/wCR+P8AkPj/AJD4/wCQ+P8Akfn/AJH5/wCR + +f8Akvr/AJL6/wCT+/8Ak/v/AJT8/wCV/f8Alf3/AJb+/wCW//8Al///AZj//wGY//8Cmf//A5n//wSa + //8Emv//BZv//wab//8GnP//CJ3//wid//8Jnv//Cp///wqf//8LoP//DKD//w2h//8Oov//D6L//xCj + //8RpP//EaX//xKm//8Tpv//E6f//xOo//8UqP//Fan//xaq//8Xqv//GKv//xms//8arf//G67//xyv + //8dr///HrD//x+x//8gsv//IbL/pAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAC5rqafyL+5/6mkoP/Z19b/9vX0/0lJSf8qKSn/NDMz/zExMf8wMDD/Ly4u/y8uLv8vLi7/MS8w/zEx + Mf80MzP/OTg4/z8+Pf9GREL/S0pI/1JQTv9YVVP/W1hV/15bWP9gXFn/XFhV/1ZSTv9OSkb/RUE9/0I/ + O/8+Ozj/Ozg1/0dDQf9UUk//ZmNh/4WCf//c1tT/4dzY/62hlv+Qg3j/W1NM/2phWf9sY1r/LCcl/x0c + HP8tLi7/QUFB/0lJSf9LSkr/Tk1N/1BQUP9WVVX/UlFR/x4eH/+ck43/lY6H/xp9rv8Kjdr/DaD+/wuh + //8Jnf//AJL5/wCR+f8Akfn/AJL6/wCS+v8Akvr/AJP7/wCT+/8Ak/v/AJT8/wCV/f8Alf3/AJb+/wCX + //8Al///AJf//wGY//8CmP//Apn//wOZ//8Dmv//BJr//wWb//8Gm///B5z//wid//8Inf//CZ7//wme + //8Kn///C6D//wyg//8Nof//DaL//w6i//8Qo///EKT//xGl//8Spf//E6b//xOn//8Tp///FKj//xWp + //8Vqv//Fqr//xir//8YrP//Gq3//xuu//8brv//HK///x6w//8esP//H7H//yCy//8hs/+kAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAALGkmqjCtqz/qKCa/8vIx//+/Pz/XVxc/yUk + JP8xMTH/Li4u/y0sLP8rKir/Kyoq/ysqKv8rKir/LCsr/ywrK/8rKir/Li0s/y4sK/8sKSj/KCYl/yMi + IP8nJST/Kyoo/y4sKv88OTj/UlBO/2hmY/99e3j/lZKQ/62qp//JxcL/1dHN/9/b1//q5uL/7unl/+Hd + 2P/g29j/s6mf/5yMgP+klYj/pZeK/6aYi/+dj4T/cWde/zo1MP8aGRj/HBwd/zIyMv9ERET/T09P/1dX + V/9KSUn/JCUl/6uhmv+TjYT/Gn6u/wuP2v8Pov7/DaH//wqf//8AlPv/AJP7/wCT+/8Ak/v/AJT8/wCU + /P8AlPz/AJX9/wCV/f8Alf3/AJb+/wCW/v8Al///AJj//wGY//8Cmf//Apn//wOZ//8Emf//BJr//wWb + //8Fm///Bpz//wad//8Hnf//CJ7//wme//8Kn///C5///wug//8Mof//DaH//w6i//8Oov//D6P//xCk + //8RpP//EqX//xOm//8Tpv//E6f//xOo//8Vqf//Far//xaq//8Xq///GKz//xms//8arf//G67//xyv + //8dsP//HrD//x+x//8gsv//IbP//yKz/6QAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAqpuOaHduZr6EfHVYuba18vz7+v91dXX/IyIi/zIyMv8sKyv/KCcn/yMjI/8dHBz/FhYW/xAP + D/8JCQn/Dw4P/xcXF/8gHx//MzIy/0xKSv9nZmX/g4KB/56bmv+4trX/1NLP/+Lf3f/o5uP/8e3q//Lu + 6v/r5+P/5uHc/9/Z1P/Y0s3/1M3H/9DJw//NxsD/zMW+/8vDvf/Hvrn/vLGq/62imf+ilIn/nY+C/5+Q + hP+nmIv/pZeK/4yAdf9bU0z/Lysn/xsaGf8eHh//LCwt/x8fIP84Ojz/uq2k/5CKgv8bf6//DJDa/xCj + /v8Oov//C5///wCV/P8AlPz/AJX9/wCV/f8Alf3/AJb+/wCW/v8Alv7/AJb//wCX//8Al///AJj//wGY + //8Cmf//Apn//wOZ//8Dmv//BJr//wSb//8Fm///Bpv//wac//8GnP//CJ3//wme//8Jnv//Cp///wuf + //8LoP//DKH//w2h//8Oov//DqL//w+j//8QpP//EaT//xKl//8Tpv//E6f//xOn//8UqP//FKn//xWp + //8Wqv//F6v//xir//8ZrP//Gq3//xuu//8cr///Ha///x6w//8fsf//ILL//yCy//8hs///IrT/pAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADg0MYAIDAl6OjIrh/Pr4/42M + jP8RERH/Ghoa/xcXF/8eHh3/JCQk/zIxMf9PTk7/bW1s/4yLiv+npqb/w8LB/97d3P/u7Ov/8/Hw//j3 + 9f/59/T/8+7s/+rm4//i3Nj/2NPN/9HJxP/Kwrz/xr22/8K5sf+/ta7/vbSs/7+1rv+/tq//wLex/8K5 + s//GvLf/yL65/8vCvf/OxsH/zsjC/8nCu/+8sqr/raGW/6KTh/+fkIL/o5SH/6qajf+klYn/jYB1/2ph + WP9PSEH/OzUw/4R8d/+xoZT/koyE/x1/r/8Nkdr/EaT+/w+j//8Mof//AZb+/wCW/v8Alv7/AJb+/wCX + //8Al///AJf//wCX//8BmP//AZj//wGY//8CmP//Apn//wOZ//8Dmv//BJr//wSa//8Fm///BZv//wac + //8HnP//B53//wid//8Inv//CZ7//wqf//8LoP//C6D//wyh//8Nof//DqL//w6i//8Po///EKT//xGk + //8Spf//E6b//xOm//8Tp///E6j//xSo//8Vqf//Fqr//xeq//8Yq///GKz//xmt//8arf//G67//xyv + //8dsP//HrD//x+x//8gsv//IbP//yKz//8jtP+kAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAQAAAASmBfXaPt6+n/xsXF/2tqav+SkpL/r6+w/8bHx//h4eH/9fX1//v6 + +/////////z8//bz8f/t6uj/4t3Z/9fQyv/NxL3/xLuz/760q/+4raT/tKie/7Omnf+zqJ7/tKif/7Wq + oP+3rKP/ua+m/7uxqf+9tKz/v7av/8G4sf/CurP/xLu1/8e+uP/JwLr/y8K9/8zDv//OxsH/0MvF/9TO + yv/Tzcn/ysO+/7yyq/+sn5T/opSH/6CRg/+llYj/rJyO/6ucjv+pmYz/qJiL/6iWiP+Sj4n/G4Cx/w+R + 2v8Spf7/EKT//w2h//8BmP//AJf//wCX//8Bl///AZj//wGY//8BmP//AZj//wKY//8Cmf//Apn//wOZ + //8Dmv//BJr//wSa//8Fm///BZv//wac//8GnP//B5z//wed//8Inf//CZ7//wme//8Kn///C6D//wyg + //8Mof//DaH//w6i//8Oov//D6P//xCk//8RpP//EaX//xOm//8Tpv//E6f//xOo//8UqP//Fan//xaq + //8Wqv//F6v//xis//8ZrP//Gq3//xuu//8crv//HbD//x6w//8fsf//ILL//yGy//8is///I7T//yO1 + /6QAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAcG5rMr+8 + u//49vb/+/r6//37+//39fP/7+zq/+Le2v/Vzsj/yL+3/76zqv+2qp//rqCV/6maj/+nmIz/qJqN/6ia + jv+pm4//q56S/66hlv+wpJr/s6ee/7SpoP+2q6L/uK2k/7mvpv+7san/vLKr/760rf+/tq//wbix/8K6 + s//EvLb/x724/8nAu//Lwr3/zMS//87Hwf/PycP/0cvG/9LNyv/W0c7/2NPS/9fS0P/MxsH/u7Gp/6yf + lP+jk4b/opKF/6SUh/+llon/q5mK/4uPjP8VgLT/EZPa/xOl/v8Rpf//DqL//wKY//8BmP//AZj//wKY + //8Cmf//Apn//wKZ//8Dmf//A5n//wOZ//8Dmv//BJr//wSb//8Fm///BZv//wac//8GnP//B5z//wed + //8Inf//CJ7//wme//8Kn///Cp///wug//8MoP//DKH//w2h//8Oov//DqL//w+j//8QpP//EaT//xGl + //8Tpf//E6b//xOn//8TqP//FKj//xWp//8Vqv//Fqr//xer//8YrP//Gaz//xqt//8brv//HK7//x2v + //8esP//H7H//x+x//8gsv//IbP//yK0//8jtP//JLX/pAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABta2gBgX98kLewqPa7r6X/tKec/62fkv+llon/opKF/6GS + hP+gkIP/oJCC/6GRhP+jlIf/ppeL/6iajv+qnJD/q56S/62flP+uoZf/sKOZ/7Glm/+zqJ7/tamg/7ar + ov+4raT/ua+n/7uxqf+8s6v/vrSt/7+2r//BuLH/wrqz/8W8tv/Ivrn/ycC7/8vCvf/MxL//zsjB/8/J + xP/Ry8j/0s3K/9TPzP/V0c7/19PR/9vX1f/d2tn/29fV/9LLx//EuLD/uKib/7Gdj/+0mYf/aoiS/wyC + u/8Tk9r/E6b+/xKm//8Po///A5n//wOZ//8Dmf//A5n//wOZ//8Dmf//A5r//wSa//8Emv//BJr//wSb + //8Fm///BZv//wac//8GnP//B5z//wed//8Inf//CJ3//wme//8Jnv//Cp///wqf//8LoP//DKD//w2h + //8Nov//DqL//w+j//8Po///EKT//xGk//8Rpf//EqX//xOm//8Tp///E6j//xSo//8Vqf//Fan//xaq + //8Xq///GKv//xms//8Zrf//Gq3//xuu//8cr///HbD//x6w//8fsf//ILL//yGz//8is///I7T//yS1 + //8ltf+kAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAeHJsLX52b3KRhnu5mIuA5qGShf+llon/ppaJ/6aWif+lloj/pJWI/6WWif+nmIz/qJqO/6qc + kP+rnpL/rZ+U/66hl/+wo5n/saWb/7Oonv+1qaD/tqui/7itpP+5r6f/u7Gp/7yzq/++tK3/v7av/8G4 + sf/CurP/xb22/8i+uf/JwLv/y8K9/83Ev//OyMH/0MrE/9HLyP/Uzsv/19LO/9zV0f/g2NP/4tnU/+Pa + 1//h2db/1tPR/8PMz/+pusD/gZ6p/1aGmv8fga3/EYe//xOW3f8Tp/7/E6b//xCk//8Emv//BJr//wSa + //8Emv//BJr//wSa//8Emv//BZv//wWb//8Fm///Bpv//wac//8GnP//B5z//wed//8Inf//CJ3//wme + //8Jnv//Cp///wqf//8LoP//C6D//wyg//8Nof//DaL//w6i//8Po///EKP//xCk//8RpP//EqX//xKm + //8Tpv//E6f//xOo//8TqP//FKn//xWp//8Wqv//F6v//xir//8YrP//Ga3//xqt//8brv//HK///x2v + //8esP//H7H//yCy//8hsv//IrP//yK0//8jtf//JLX//yW2/6QAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB9dnEchX52SId/ + d4mUiX7Bm46C56GThv+llon/p5iK/6majf+pm4//qpyQ/6uekv+tn5T/rqGW/7Cjmf+xpZv/s6ie/7Wp + oP+2q6L/uK2k/7mvpv+7san/vLOr/760rf+/tq//wbix/8K6s//EvLb/yL65/8vCvf/Qxb//08jC/9bM + w//XzMX/2M7J/9LJxf/Fwr//tbu8/6Cwtf+Ho63/aZan/06Npf83h6b/In6j/xV+qf8Pg7T/D4a6/xKJ + v/8Ujsr/FJvl/xSo/v8Tp///EaT//wWb//8Fm///BZv//wWb//8Fm///BZv//wab//8Gm///Bpz//wac + //8HnP//B5z//wed//8Inf//CJ3//wme//8Jnv//Cp///wqf//8Ln///C6D//wyg//8Mof//DaH//w6i + //8Oov//D6P//xCj//8QpP//EaT//xKl//8Spv//E6b//xOn//8Tp///E6j//xSo//8Vqf//Fqr//xer + //8Yq///GKz//xms//8arf//G67//xyu//8cr///HrD//x+x//8fsf//ILL//yGz//8itP//I7T//yS1 + //8ltv//Jrb/pAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACBenQbgnt0Q4Z+dnuPhnyzmY2D2aKW + iv+pnJD/rZ+T/7Cilv+wo5f/sKSZ/7Glm/+zp57/tKmg/7arov+4raT/ua+m/7yxqP++s6z/wrav/8W5 + sf/Ju7P/yby0/8q+tv/Jvbf/wriy/7Syr/+kra3/kKOm/3eXn/9ci5j/RYOW/zR9lP8kd5P/GHaX/xR6 + n/8UfaX/FIGq/xWEsf8Yi7z/Go/D/xqSyv8amdj/GJzh/xeg6v8Wpvf/Fan//xOo//8Spf//B5v//wab + //8GnP//Bpz//wac//8GnP//B5z//wec//8Hnf//B53//wid//8Inf//CJ7//wme//8Jnv//Cp///wqf + //8Ln///C6D//wug//8Mof//DaH//w2h//8Oov//D6P//w+j//8QpP//EaT//xGl//8Spf//E6b//xOm + //8Tp///E6f//xOo//8UqP//Fan//xaq//8Xq///GKv//xis//8ZrP//Gq3//xuu//8crv//HK///x2w + //8esP//H7H//yCy//8hs///IrP//yO0//8ktf//JbX//yW2//8mt/+kAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB7dnAQioJ7L4B6dGOSiYGblo2FxaOYj/CsoZb/saWb/7Wo + n/+4raP/t6yj/7uroP+9rKH/vK6l/7aro/+qp6L/nKOh/4ydnv96lZn/Zo6X/0+Gkv8+gpL/MX2Q/yR4 + j/8ceJL/GnqV/xt7mP8bfZz/HYKj/yCJrv8ijrj/I5TB/yOcz/8joNj/IqPg/yGp7P8hrfX/H675/x6v + /v8cr///Gq7//xis//8Wqv//FKj//xKm//8InP//B5z//wec//8Hnf//B53//wed//8Inf//CJ3//wid + //8Inv//CZ7//wme//8Jnv//Cp///wqf//8Ln///C6D//wug//8Mof//DaH//w2h//8Oov//DqL//w+j + //8Qo///EKT//xGk//8Rpf//EqX//xOm//8Tpv//E6f//xOn//8TqP//FKj//xWp//8Wqv//F6v//xir + //8YrP//Gaz//xqt//8brv//G67//xyv//8dsP//HrD//x+x//8gsv//IbP//yKz//8jtP//I7X//yS1 + //8ltv//Jrf//ye3/6QAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAABta2gCi4R+Hnt2cUSSioN7mZGJrJSNhrmhkIaihKix0Gexxv9SlaX/QoeW/zaB + kf8sfY7/JX2Q/yJ/lP8jf5b/JIGZ/ySEnf8nh6L/KY2r/yqRs/8slrv/LJ/I/yyk0/8tqt7/LbHp/y22 + 8v8suPn/K7n9/ym5//8nuf//Jbf//yO1//8hs///H7H//x2v//8brf//Gaz//xeq//8Vqf//Eqb//wmd + //8Inf//CJ3//wid//8Inf//CJ7//wme//8Jnv//CZ7//wme//8Kn///Cp///wqf//8LoP//C6D//wyg + //8Mof//DaH//w2h//8Nov//DqL//w6i//8Po///EKP//xCk//8RpP//EqX//xKl//8Tpv//E6b//xOn + //8TqP//FKj//xSp//8Vqf//Fqr//xar//8Yq///GKz//xms//8arf//G67//xuu//8cr///Ha///x6w + //8fsf//H7H//yGy//8is///IrT//yO0//8ktf//Jbb//ya2//8nt///KLj/pAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAABH1v17Pc77/zSmxv8ukqn/Lo2i/y+No/8xkqv/M5iz/zOcu/81pcf/N6zT/zey + 3P84uuj/OL/y/zjC+f83w/3/NsT//zTD//8ywv//MMD//y69//8su///Kbn//ye3//8ltv//I7T//yGz + //8fsf//HbD//xuu//8ZrP//Fqr//xOo//8PpP//CJ7//wme//8Jnv//CZ7//wme//8Kn///Cp///wqf + //8Kn///Cp///wug//8LoP//C6D//wyg//8Mof//DaH//w2h//8Nov//DqL//w6i//8Po///D6P//xCk + //8RpP//EaX//xKl//8Tpv//E6b//xOn//8Tp///E6j//xSo//8Uqf//Fan//xaq//8Wqv//GKv//xis + //8ZrP//Gq3//xuu//8brv//HK///x2v//8esP//HrH//x+x//8gsv//IbP//yK0//8jtP//JLX//yW2 + //8mtv//Jrf//ye4//8ouP+kAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEba/4RIz/n/Qbrf/z6y + 1P8+ttf/P7re/0HB6P9DyPL/Q8z5/0PO/v9Bzv//QM///z7O//88y///O8r//znH//83xP7/NcL+/zPA + /v8xv/7/L73+/yy7/v8quv7/KLj//yW2//8jtP//ILL//xyw//8Zrf//GKz//xmt//8arf//IrD//xKl + //8Hnf//BJv//wed//8Jnv//Cp///wuf//8LoP//C6D//wug//8MoP//DKD//wyg//8Nof//DaH//w2i + //8Oov//DqL//w+i//8Po///D6P//xCk//8QpP//EaT//xGl//8Tpf//E6b//xOm//8Tp///E6f//xOo + //8UqP//Fan//xWp//8Wqv//F6r//xes//8YrP//Gaz//xqt//8brv//G67//xyv//8dr///HrD//x6x + //8fsf//ILL//yGz//8is///I7T//yS1//8ltf//Jbb//ya3//8nt///KLj//ym5/6QAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAS9T+hErV/f9K1Pz/StT+/0vW//9K1///Sdb//0jU//9G0///RNH//0PP + /v9Bzv7/P8z+/z3K/v87yf7/Ocj+/zjF/v82w/7/M8H+/zG//v8uvf7/Krv+/ye4/v8mt///J7f//yi3 + //8tuv//N7///0HG//9MzP//WNT//2Xb//9v4f//Z9z//0/N//84vv//IK///xCj//8Jn///BZz//wie + //8Kn///DKD//w2h//8Nov//DaH//w6i//8Oov//DqL//w+j//8Po///EKT//xCk//8QpP//EaT//xGl + //8Spv//E6b//xOn//8Tp///E6f//xOo//8UqP//Faj//xWp//8Vqv//Fqr//xer//8Xq///Gaz//xqs + //8arf//G67//xuu//8cr///Ha///x6w//8esf//H7H//yCy//8hsv//IrP//yO0//8jtf//JLX//yW2 + //8mt///J7f//yi4//8puf//Kbn/pAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABN1v6ETdf+/03X + //9N1///Tdf+/0zW/v9L1f7/SNT+/0jT/v9G0f7/RND+/0LO/v8/zf7/Psv+/zvJ/v84x/7/NcT+/zXD + /v81wv7/NsL+/zrE/v9CyP7/Ssz+/1PS//9d1///Z93//23g//9y4///dub//3jm//935v//duX//3Xl + //925v//euj//3rp//9z5P//aN3//1LP//89wP//JrL//xWn//8Mof//B57//wmf//8Mof//DaL//w+j + //8QpP//EKP//xGk//8QpP//EaT//xKl//8Spv//E6b//xOm//8Tpv//E6f//xOn//8TqP//FKj//xSp + //8Vqv//Fqr//xeq//8Xq///GKv//xms//8ZrP//Gq3//xuu//8brv//HK///x2v//8esP//H7H//x+x + //8gsv//IbL//yGz//8jtP//I7X//yW2//8ltv//Jrf//ye3//8ouP//Kbn//ym5//8puf+kAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAE/Z/olP2f7/UNn+/0/Z/v9P2P7/Ttf+/0zW/v9K1f7/SNP+/0XS + /v9D0P7/Qs/+/0PO/v9Dzv7/R8/+/0zR//9S0///Wtb//2Da//9o3v//beD//2/i//9z5P//dOX//3Tk + //9z5P//cuP//3Pk//9y4///c+P//3Pk//9z5P//dOT//3Tk//905P//deX//3bm//945///e+n//3vp + //935v//buH//1nT//9Exv//Lbf//xqr//8Rpf//CqD//wuh//8Oo///D6P//xGl//8Spv//E6b//xOm + //8Tp///E6f//xOn//8UqP//FKj//xWo//8Vqf//Fqr//xaq//8Wq///GKv//xis//8YrP//Ga3//xqu + //8brv//HK///x2v//8dsP//HrD//x6x//8fsf//ILL//yGz//8hs///I7T//yO1//8ktf//Jbb//ya3 + //8nt///KLj//ym5//8puf//Kbn//ym5/6QAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAStT/S1Hb + /vpS2/7/Utv+/1Lb/v9Q2f7/T9j+/0/X/v9R1v7/Vtj//1rZ//9e2v//Y9z//2ne//9s3///buH//3Di + //9w4v//cOL//2/i//9w4f//cOL//3Di//9x4v//ceL//3Lj//9y4///cuP//3Pj//9z4///dOT//3Tk + //915P//deX//3Xl//915f//duX//3bl//925f//duX//3fm//945///e+n//3zq//945///ceP//2DY + //9Ny///N73//yGv//8WqP//D6P//w2i//8PpP//Eab//xKn//8TqP//FKj//xSp//8Vqf//Fqr//xaq + //8Xqv//F6v//xir//8YrP//Gaz//xqt//8arf//G67//xyu//8dr///HbD//x6w//8fsf//ILL//yCy + //8hs///IrP//yO0//8jtf//JbX//yW2//8mt///J7f//yi4//8ouf//Kbn//ym5//8puf//Kbn/pAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAU9z+OFLa/qdI0f/oSdD//03S//9T1P//Wtb//1/Z + //9j2v//Z93//2rf//9r3///bN///23g//9u4P//buH//2/h//9v4f//b+H//3Dh//9w4v//ceL//3Hj + //9y4///cuP//3Pj//9z4///dOT//3Tk//905P//deT//3Xk//915f//deX//3bl//925f//duX//3bl + //925f//duX//3bl//925f//duX//3fm//935v//euf//3zp//945///c+T//2Xb//9Tz///QMT//yq2 + //8brP//Eqf//w6k//8Qpv//Eqj//xSp//8Wqv//F6v//xir//8YrP//Gaz//xmt//8arf//G67//xuu + //8cr///Ha///x6w//8esP//H7H//yCy//8gsv//IbP//yKz//8jtP//I7X//yS1//8ltv//Jrf//ye3 + //8ouP//KLn//ym5//8puf//Kbn//ym5//8puf+kAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAADjC/xk6wf9IO8P/dT7F/6dDyP/XRsv/8kzO//9T0v//V9X//13Y//9i2v//Zdz//2nd + //9q3///beD//27h//9w4f//ceL//3Hi//9y4///cuP//3Pj//9z4///dOP//3Tk//905P//dOT//3Xk + //915f//deX//3bl//925f//duX//3bl//925f//dub//3fm//935v//d+b//3fm//925v//duX//3bl + //925f//duX//3bl//925f//d+b//3nn//945///dOX//2ne//9Z1P//R8n//zK8//8isv//Gav//xKo + //8Uqf//Far//xer//8ZrP//Gq3//xuu//8brv//HK///x2v//8esP//HrH//x+x//8gsv//ILL//yGz + //8is///I7T//yO1//8ktf//Jbb//ya3//8mt///KLj//yi4//8puf//Kbn//ym5//8puf//Kbn//ym5 + /6QAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADnB + /wM3wP8qO8P/TDzD/35ByP+3RMr/2krM//tQ0f//VtT//1zX//9h2v//Zdz//2je//9r4P//buH//3Hi + //9x4///c+P//3Pk//905P//dOT//3Xk//915P//deT//3Xl//925f//duX//3fl//935f//d+X//3fl + //935v//d+X//3fm//935v//d+b//3fm//935v//dub//3bl//925f//duX//3Xl//905f//dOT//3Tl + //905P//deX//3fm//925v//dOX//23h//9e1///T87//zzC//8qt///H7H//xis//8XrP//GKz//xqu + //8cr///HrD//x+w//8fsf//ILL//yGy//8hs///IrP//yO0//8jtf//JLX//yW2//8mtv//Jrf//yi3 + //8ouP//Kbn//ym5//8puf//Kbn//ym5//8puf//Kbn/pAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA3wP8KPMP/NDvE + /1k+xv+LQ8r/xEjM/+FNz///VNP//1nW//9f2f//Zdz//2nf//9t4P//b+H//3Li//9z5P//dOT//3Xl + //925f//duX//3fl//935f//d+X//3fm//935v//d+b//3fm//945f//d+b//3fm//935v//d+b//3fl + //935f//duX//3bl//925f//duX//3Xl//915P//deT//3Tk//9z5P//c+P//3Lj//9y4///cuP//3Pk + //905P//cuP//27h//9i2v//VNH//0TI//8yvf//J7b//x6w//8brv//HK///x2w//8gsv//IbP//yK0 + //8jtP//I7X//yS1//8ltv//Jrb//ya3//8ot///KLj//ym5//8puf//Kbn//ym5//8puf//Kbn//ym5 + //8puf+kAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAO8P/Fj/H/zc+x/9nQcn/m0bM + /8dMz//sU9P//1nW//9e2f//ZNz//2je//9s4P//cOL//3Hi//9z5P//deX//3bl//935f//eOb//3jm + //945v//eOb//3jm//945v//eOb//3jm//945v//eOb//3fl//935f//d+X//3fl//925f//duX//3Xl + //915P//dOT//3Pk//9z4///cuP//3Lj//9x4v//cOL//3Di//9v4f//buH//2/i//9x4v//cOL//27h + //9l3P//WtX//0zM//87w///Lrv//yW1//8fsv//ILP//yGz//8jtP//Jbb//ya2//8mt///J7j//yi4 + //8puf//Kbn//ym5//8puf//Kbn//ym5//8puf//Kbn//ym5/6QAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD/I/yFCyf8+Qsr/cEfN/6hLz//NUNL/8lbV + //9c2P//Ydr//2bd//9q3///buH//3Hi//9z5P//deX//3fm//945v//eOb//3nm//955v//eOb//3jm + //945v//d+b//3fm//935f//d+X//3bl//925f//deX//3Xl//915P//dOT//3Tk//9z5P//cuP//3Lj + //9x4v//cOL//2/i//9v4f//buH//23g//9t4P//bN///2zg//9t4P//beD//2vf//9m3f//XNb//1HP + //9Cx///Nb///yy7//8ltv//JLb//yS2//8mt///KLj//ym5//8puf//Kbn//ym5//8puf//Kbn//ym5 + //8puf//Kbn/pAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAEDJ/wVEy/8kQ8v/SEbN/39Kz/+xTdH/01LT//pZ1///Xtn//2Tc + //9p3///beH//3Hi//9z4///deX//3fl//935v//eOb//3jm//945v//eOb//3fm//935f//d+X//3bl + //925f//deX//3Xk//905P//dOT//3Pj//9y4///cuP//3Hi//9x4v//cOL//2/h//9v4f//buD//23g + //9s4P//a9///2rf//9q3v//aN7//2jd//9p3v//ad7//2nd//9m3P//X9j//1bT//9JzP//PcX//zTA + //8ruv//J7j//ya3//8nuP//KLj//ym5//8puf//Kbn//ym5//8puf+kAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAABDy/8LRsz/J0XM/1RHzv+ITND/tFDT/+BX1v/+XNj//2Hb//9m3f//at///27h + //9w4v//cuP//3Xl//925f//d+X//3fl//935f//d+X//3bl//925f//duT//3Xk//905P//dOT//3Pj + //9z4///cuP//3Hi//9x4v//cOL//2/h//9u4f//buH//23g//9s4P//a9///2vf//9p3v//ad3//2jd + //9n3P//Ztz//2bc//9n3f//aN3//2fd//9n3f//Ytr//1vV//9Pz///Qsf//zfB//8uvP//Kbn//yi4 + //8ouP//Kbn//ym5/6UAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAR83/FEbO/yxHzv9eTND/kU3R/7xS0//oWNb//1zY//9i2///Zt7//2rf//9u4f//cOL//3Lk + //905P//dOX//3Xl//915f//deX//3Xk//905P//dOT//3Pj//9y4///cuP//3Hi//9w4v//cOL//2/h + //9u4f//beD//23g//9s3///a9///2ne//9o3v//Z93//2Xc//9k2///ZNv//2Pa//9h2v//X9n//17Y + //9d2P//XNf//1rW//9Z1f//VdP//07P//9Eyv//OML//y+9//8ruv//Kbn/owAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEnO + /xZGzf80SM7/Z0vQ/5dN0f/CUtP/7lfW//9b2P//Ydr//2Xc//9p3///bOD//27h//9w4v//cuL//3Lj + //9z4///c+P//3Hi//9w4v//b+L//27g//9t4P//a9///2vf//9p3v//Z93//2Xc//9j2///Ydr//1/Y + //9c1///WdX//1fU//9W1P//VNP//1HR//9Nz///Ss3//0jM//9Fyv/8Qcf/8j7G/9o+xf/FPcX/rj7F + /5g7w/9/NsD/YjG9/0Qsu/8cAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAETM/wJIzf8WQ8z/PEfO + /25Jzv+bTND/xVDS/+9V1P//Wdf//1/Z//9j2///Zt3//2je//9o3v//Zt3//2Tc//9h2v//X9j//13Y + //9c1///Wtf//1nW//9V0///UNH//03P//9Lzf//Sc3/+0bL//VCyP/kP8b/zj7G/7k8xf+iPsT/jjrC + /3Y3wf9eNsD/RDW//ys4wP8YNsD/DTW//wQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABDzP8DRcz/FkHL/z9GzP9vRsz/mEnO + /8NO0P/oUdL/71HS/+9R0v/vTdD/70jN/+NEy//UQ8r/x0PK/7lByP+lQsn/k0HJ/4M8xf9sOcL/WzjB + /0Y2wf8wOsT/GjrC/w83wP8HAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAA//////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////AAAAA////////////////wAAAAP///////////8AAAAAAAAAP///////////AAAAAAAAAD//// + ///8AAAAAAAAAAAAAP///////AAAAAAAAAAAAAD////AAAAAAAAAAAAAAAAAP///wAAAAAAAAAAAAAAA + AD//8AAAAAAAAAAAAAAAAAAP//AAAAAAAAAAAAAAAAAAD//AAAAAAAAAAAAAAAAAAAP/wAAAAAAAAAAA + AAAAAAAD/wAAAAAAAAAAAAAAAAAAAP8AAAAAAAAAAAAAAAAAAAD8AAAAAAAAAAAAAAAAAAAA/AAAAAAA + AAAAAAAAAAAAAPAAAAAAAAAAAAAAAAAAAADwAAAAAAAAAAAAAAAAAAAA8AAAAAAAAAAAAAAAAAAAAPAA + AAAAAAAAAAAAAAAAAADwAAAAAAAAAAAAAAAAAAAA8AAAAAAAAAAAAAAAAAAAAPAAAAAAAAAAAAAAAAAA + AADwAAAAAAAAAAAAAAAAAAAA8AAAAAAAAAAAAAAAAAAAAPAAAAAAAAAAAAAAAAAAAADwAAAAAAAAAAAA + AAAAAAAA8AAAAAAAAAAAAAAAAAAAAPwAAAAAAAAAAAAAAAAAAAD8AAAAAAAAAAAAAAAAAAAA/AAAAAAA + AAAAAAAAAAAAAPwAAAAAAAAAAAAAAAAAAAD/AAAAAAAAAAAAAAAAAAAA/wAAAAAAAAAAAAAAAAAAAP/A + AAAAAAAAAAAAAAAAAAD/wAAAAAAAAAAAAAAAAAAA//AAAAAAAAAAAAAAAAAAAP/wAAAAAAAAAAAAAAAA + AAD/+AAAAAAAAAAAAAAAAAAA//gAAAAAAAAAAAAAAAAAAP/4AAAAAAAAAAAAAAAAAAD/+AAAAAAAAAAA + AAAAAAAA//gAAAAAAAAAAAAAAAAAAP/4AAAAAAAAAAAAAAAAAAD/+AAAAAAAAAAAAAAAAAAA//gAAAAA + AAAAAAAAAAAAAP/4AAAAAAAAAAAAAAAAAAD/+AAAAAAAAAAAAAAAAAAA//gAAAAAAAAAAAAAAAAAA//4 + AAAAAAAAAAAAAAAAAAP/+AAAAAAAAAAAAAAAAAA///gAAAAAAAAAAAAAAAAAP//4AAAAAAAAAAAAAAAA + H///+AAAAAAAAAAAAAAAAB////gAAAAAAAAAAAAAAAAf///4AAAAAAAAAAAAAAAAH///+AAAAAAAAAAA + AAAAAB////gAAAAAAAAAAAAAAAAf///4AAAAAAAAAAAAAAAAH///8AAAAAAAAAAAAAAAAB////AAAAAA + AAAAAAAAAAAf///wAAAAAAAAAAAAAAAAH///8AAAAAAAAAAAAAAAAB////AAAAAAAAAAAAAAAAAf///w + AAAAAAAAAAAAAAAAH///8AAAAAAAAAAAAAAAAB////AAAAAAAAAAAAAAAAAf///wAAAAAAAAAAAAAAAA + H///8AAAAAAAAAAAAAAAAB////AAAAAAAAAAAAAAAAAf///wAAAAAAAAAAAAAAAAH///8AAAAAAAAAAA + AAAAAB////AAAAAAAAAAAAAAAAAf///wAAAAAAAAAAAAAAAAH///+AAAAAAAAAAAAAAAAB////gAAAAA + AAAAAAAAAAAf///8AAAAAAAAAAAAAAAAH////gAAAAAAAAAAAAAAAB////8AAAAAAAAAAAAAAAA///// + gAAAAAAAAAAAAAAAf////+AAAAAAAAAAAAAAAH/////wAAAAAAAAAAAAAAH/////+AAAAAAAAAAAAAAD + //////4AAAAAAAAAAAAP////////AAAAAAAAAAAA/////////4AAAAAAAAAAAH/////////gAAAAAAAA + AAA/////////8AAAAAAAAAAAH/////////4//AAAAAAAAA////////////wAAAAAAAAH///////////8 + AAAAAAAAA////////////AAAAAAAAAH///////////wAAAAAQAAA///////////8AAAAAOAAAH////// + /////AAAAAHwAAA///////////wAAAAD+AAAP//////////+AAAAB/4AAD///////////wAAAA//AAA/ + //////////+AAAAf/4AAH///////////wAAAP//AAD////////////AAAD//4AA////////////4AAB/ + //AAP////////////AAA///4AH////////////8AAf///gD/////////////gAP///+D//////////// + /8AH///////////////////wH/////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////8= + + + \ No newline at end of file diff --git a/Aviso/Anhänge/frmSendungAnhangUmbenennenUmkateg.vb b/Aviso/Anhänge/frmSendungAnhangUmbenennenUmkateg.vb new file mode 100644 index 0000000..8931839 --- /dev/null +++ b/Aviso/Anhänge/frmSendungAnhangUmbenennenUmkateg.vb @@ -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 \ No newline at end of file diff --git a/Aviso/Anhänge/usrCntlSendungAnhangElement.vb b/Aviso/Anhänge/usrCntlSendungAnhangElement.vb index eeed4a7..db7be08 100644 --- a/Aviso/Anhänge/usrCntlSendungAnhangElement.vb +++ b/Aviso/Anhänge/usrCntlSendungAnhangElement.vb @@ -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 + Try + + Dim ANH As New VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge(FILE_ANHID) + 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 - Catch ex As Exception - MsgBox(ex.Message) - End Try - End If + FILE_NAME = f.txtBezeichnung.Text + + End If + Catch ex As Exception + MsgBox(ex.Message) + End Try End Sub Private Sub LöschenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles LöschenToolStripMenuItem.Click diff --git a/Aviso/Auswertung/frmAuswertung.Designer.vb b/Aviso/Auswertung/frmAuswertung.Designer.vb index 53aa3d0..4f950b0 100644 --- a/Aviso/Auswertung/frmAuswertung.Designer.vb +++ b/Aviso/Auswertung/frmAuswertung.Designer.vb @@ -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 ' diff --git a/Aviso/Auswertung/frmAuswertung.vb b/Aviso/Auswertung/frmAuswertung.vb index 932520e..63ce312 100644 --- a/Aviso/Auswertung/frmAuswertung.vb +++ b/Aviso/Auswertung/frmAuswertung.vb @@ -28,17 +28,21 @@ Public Class frmAuswertung End Sub Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click - clrPnlMain() - Dim usrCntl As New usrctStatistik - usrCntl.Dock = System.Windows.Forms.DockStyle.Fill - pnlMain.Controls.Add(usrCntl) + 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 - clrPnlMain() - Dim usrCntl As New usrctlMAUebersicht + 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) + pnlMain.Controls.Add(usrCntl) + End If End Sub diff --git a/Aviso/Auswertung/frmStatFrima.vb b/Aviso/Auswertung/frmStatFrima.vb index 462eaff..b466bf3 100644 --- a/Aviso/Auswertung/frmStatFrima.vb +++ b/Aviso/Auswertung/frmStatFrima.vb @@ -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 diff --git a/Aviso/Auswertung/usrctlAuswertung.Designer.vb b/Aviso/Auswertung/usrctlAuswertung.Designer.vb index 336af5a..1f2d40c 100644 --- a/Aviso/Auswertung/usrctlAuswertung.Designer.vb +++ b/Aviso/Auswertung/usrctlAuswertung.Designer.vb @@ -22,12 +22,16 @@ Partial Class usrctlAuswertung 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. _ 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 diff --git a/Aviso/Auswertung/usrctlAuswertung.vb b/Aviso/Auswertung/usrctlAuswertung.vb index 02f6aa2..c9dcd3d 100644 --- a/Aviso/Auswertung/usrctlAuswertung.vb +++ b/Aviso/Auswertung/usrctlAuswertung.vb @@ -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 diff --git a/Aviso/Aviso.vbproj b/Aviso/Aviso.vbproj index 985d5ab..36015a0 100644 --- a/Aviso/Aviso.vbproj +++ b/Aviso/Aviso.vbproj @@ -245,6 +245,12 @@ Form + + frmSendungAnhangUmbenennenUmkateg.vb + + + Form + usrCntlSendungAnhangElement.vb @@ -682,6 +688,9 @@ frmSendungAnhangImport.vb + + frmSendungAnhangUmbenennenUmkateg.vb + usrCntlSendungAnhangElement.vb @@ -972,6 +981,19 @@ + + + + + + + + + + + + + Always diff --git a/Aviso/Classes/cSendungsoptions.vb b/Aviso/Classes/cSendungsoptions.vb index d9ec968..f18782a 100644 --- a/Aviso/Classes/cSendungsoptions.vb +++ b/Aviso/Classes/cSendungsoptions.vb @@ -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 diff --git a/Aviso/My Project/AssemblyInfo.vb b/Aviso/My Project/AssemblyInfo.vb index f6ce9cf..5979ded 100644 --- a/Aviso/My Project/AssemblyInfo.vb +++ b/Aviso/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + + diff --git a/Aviso/My Project/Resources.Designer.vb b/Aviso/My Project/Resources.Designer.vb index 8583095..a645283 100644 --- a/Aviso/My Project/Resources.Designer.vb +++ b/Aviso/My Project/Resources.Designer.vb @@ -239,6 +239,16 @@ Namespace My.Resources End Get End Property + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + 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 + ''' ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. ''' @@ -369,6 +379,26 @@ Namespace My.Resources End Get End Property + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + 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 + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + 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 + ''' ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. ''' @@ -809,6 +839,56 @@ Namespace My.Resources End Get End Property + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + 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 + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + 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 + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + 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 + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + 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 + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + 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 + ''' ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. ''' @@ -1009,6 +1089,46 @@ Namespace My.Resources End Get End Property + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + 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 + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + 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 + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + 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 + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + 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 + ''' ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. ''' @@ -1159,7 +1279,7 @@ Namespace My.Resources End Property ''' - ''' Sucht eine lokalisierte Zeichenfolge, die 3.3.5.7 ähnelt. + ''' Sucht eine lokalisierte Zeichenfolge, die 3.4.0.5 ähnelt. ''' Friend ReadOnly Property Version() As String Get diff --git a/Aviso/My Project/Resources.resx b/Aviso/My Project/Resources.resx index 56e2bc8..7790cdd 100644 --- a/Aviso/My Project/Resources.resx +++ b/Aviso/My Project/Resources.resx @@ -344,7 +344,7 @@ ..\Resources\akt_ATILLA.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - 3.3.5.7 + 3.4.0.5 ..\Resources\Verag-AG-Logopng.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -499,4 +499,40 @@ ..\Resources\FrontOfficeSUB.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\statusBtn_vorbereitet_Aktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\statusBtn_vorbereitet_InAktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\statusBtn_vorgeschrieben_Aktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\statusBtn_vorgeschrieben_InAktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\digitalerAkt.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\digitalerAkt_small.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\personCheck.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\personCheck_blue.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\personCheck_blue_small.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\personCheck_small.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\personCheck_gray_small.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\aviso_messenger.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + \ No newline at end of file diff --git a/Aviso/Resources/aviso_messenger.png b/Aviso/Resources/aviso_messenger.png new file mode 100644 index 0000000..756a2ac Binary files /dev/null and b/Aviso/Resources/aviso_messenger.png differ diff --git a/Aviso/Resources/digitalerAkt.jpg b/Aviso/Resources/digitalerAkt.jpg new file mode 100644 index 0000000..246f44f Binary files /dev/null and b/Aviso/Resources/digitalerAkt.jpg differ diff --git a/Aviso/Resources/digitalerAkt1.jpg b/Aviso/Resources/digitalerAkt1.jpg new file mode 100644 index 0000000..246f44f Binary files /dev/null and b/Aviso/Resources/digitalerAkt1.jpg differ diff --git a/Aviso/Resources/digitalerAkt_small.jpg b/Aviso/Resources/digitalerAkt_small.jpg new file mode 100644 index 0000000..7040302 Binary files /dev/null and b/Aviso/Resources/digitalerAkt_small.jpg differ diff --git a/Aviso/Resources/personCheck.png b/Aviso/Resources/personCheck.png new file mode 100644 index 0000000..302c280 Binary files /dev/null and b/Aviso/Resources/personCheck.png differ diff --git a/Aviso/Resources/personCheck_blue.png b/Aviso/Resources/personCheck_blue.png new file mode 100644 index 0000000..d609179 Binary files /dev/null and b/Aviso/Resources/personCheck_blue.png differ diff --git a/Aviso/Resources/personCheck_blue_small.png b/Aviso/Resources/personCheck_blue_small.png new file mode 100644 index 0000000..ffe3b9f Binary files /dev/null and b/Aviso/Resources/personCheck_blue_small.png differ diff --git a/Aviso/Resources/personCheck_gray_small.png b/Aviso/Resources/personCheck_gray_small.png new file mode 100644 index 0000000..a20d4d3 Binary files /dev/null and b/Aviso/Resources/personCheck_gray_small.png differ diff --git a/Aviso/Resources/personCheck_small.png b/Aviso/Resources/personCheck_small.png new file mode 100644 index 0000000..002d3c4 Binary files /dev/null and b/Aviso/Resources/personCheck_small.png differ diff --git a/Aviso/Resources/statusBtn_vorbereitet_Aktiv.jpg b/Aviso/Resources/statusBtn_vorbereitet_Aktiv.jpg new file mode 100644 index 0000000..bc2ff60 Binary files /dev/null and b/Aviso/Resources/statusBtn_vorbereitet_Aktiv.jpg differ diff --git a/Aviso/Resources/statusBtn_vorbereitet_InAktiv.jpg b/Aviso/Resources/statusBtn_vorbereitet_InAktiv.jpg new file mode 100644 index 0000000..15652bd Binary files /dev/null and b/Aviso/Resources/statusBtn_vorbereitet_InAktiv.jpg differ diff --git a/Aviso/Resources/statusBtn_vorgeschrieben_Aktiv.jpg b/Aviso/Resources/statusBtn_vorgeschrieben_Aktiv.jpg new file mode 100644 index 0000000..aaa6c8d Binary files /dev/null and b/Aviso/Resources/statusBtn_vorgeschrieben_Aktiv.jpg differ diff --git a/Aviso/Resources/statusBtn_vorgeschrieben_InAktiv.jpg b/Aviso/Resources/statusBtn_vorgeschrieben_InAktiv.jpg new file mode 100644 index 0000000..5dfaefa Binary files /dev/null and b/Aviso/Resources/statusBtn_vorgeschrieben_InAktiv.jpg differ diff --git a/Aviso/frmAddAktenvermerkShort.Designer.vb b/Aviso/frmAddAktenvermerkShort.Designer.vb index bc31ca4..c5bf3f2 100644 --- a/Aviso/frmAddAktenvermerkShort.Designer.vb +++ b/Aviso/frmAddAktenvermerkShort.Designer.vb @@ -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 diff --git a/Aviso/frmAddAktenvermerkShort.vb b/Aviso/frmAddAktenvermerkShort.vb index 3c12669..078606d 100644 --- a/Aviso/frmAddAktenvermerkShort.vb +++ b/Aviso/frmAddAktenvermerkShort.vb @@ -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 diff --git a/Aviso/frmDokumenteSchicken.Designer.vb b/Aviso/frmDokumenteSchicken.Designer.vb index c77f411..59f1643 100644 --- a/Aviso/frmDokumenteSchicken.Designer.vb +++ b/Aviso/frmDokumenteSchicken.Designer.vb @@ -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 diff --git a/Aviso/frmEintragAviso.designer.vb b/Aviso/frmEintragAviso.designer.vb index 72c4f05..46f2834 100644 --- a/Aviso/frmEintragAviso.designer.vb +++ b/Aviso/frmEintragAviso.designer.vb @@ -22,6 +22,7 @@ Partial Class frmEintragAviso 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. _ 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 diff --git a/Aviso/frmEintragAviso.resx b/Aviso/frmEintragAviso.resx index d0c3775..87b23c8 100644 --- a/Aviso/frmEintragAviso.resx +++ b/Aviso/frmEintragAviso.resx @@ -210,6 +210,9 @@ GthsjMjd738Gj5ASh80mtVrtUpqmOT8ASDXvdskQmQUAAAAASUVORK5CYII= + + True + AAABAAEAgIAAAAEAIAAoCAEAFgAAACgAAACAAAAAAAEAAAEAIAAAAAAAAAgBABMLAAATCwAAAAAAAAAA diff --git a/Aviso/frmEintragAviso.vb b/Aviso/frmEintragAviso.vb index 865d8a2..d203a54 100644 --- a/Aviso/frmEintragAviso.vb +++ b/Aviso/frmEintragAviso.vb @@ -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,7 +144,13 @@ 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 If VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME = "MAIL_USER" 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 diff --git a/Aviso/frmHauptfenster.Designer.vb b/Aviso/frmHauptfenster.Designer.vb index 0cf9f32..57a052c 100644 --- a/Aviso/frmHauptfenster.Designer.vb +++ b/Aviso/frmHauptfenster.Designer.vb @@ -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 diff --git a/Aviso/frmHauptfenster.resx b/Aviso/frmHauptfenster.resx index a7e9252..30ee6a0 100644 --- a/Aviso/frmHauptfenster.resx +++ b/Aviso/frmHauptfenster.resx @@ -225,6 +225,9 @@ pOTzPwAAAABJRU5ErkJggg== + + 598, 17 + 697, 17 @@ -253,6 +256,9 @@ 1118, 17 + + 1196, 17 + AAABAAEAgIAAAAEAIAAoCAEAFgAAACgAAACAAAAAAAEAAAEAIAAAAAAAAAgBABMLAAATCwAAAAAAAAAA diff --git a/Aviso/frmHauptfenster.vb b/Aviso/frmHauptfenster.vb index 44ced51..17b24da 100644 --- a/Aviso/frmHauptfenster.vb +++ b/Aviso/frmHauptfenster.vb @@ -99,7 +99,7 @@ Public Class frmHauptfenster Grid_aktiv = False cboGrenzstelle.SelectedIndex = 0 ' If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_abteilung <> "QS" Then - 'cboGrenzstelle.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_niederlassung + 'cboGrenzstelle._value = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_niederlassung ' End If tbcntrAviso.SelectedIndex = 0 txtSuche.Text = "" @@ -156,7 +156,47 @@ Public Class frmHauptfenster Dim OptionenDAL As New cOptionenDAL - cboGrenzstelle.SelectedIndex = 0 + cboGrenzstelle.Items.Clear() + cboGrenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ALLE", "")) + cboGrenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SUB", "SUB")) + cboGrenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SBG", "SBG")) + cboGrenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("WAI", "WAI")) + cboGrenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("NKD", "NKD")) + cboGrenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SFD", "SFD")) + cboGrenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("???", "???")) + cboGrenzstelle.changeItem("") + + + cboMy_Grenzstelle.Items.Clear() + cboMy_Grenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ALLE", "")) + cboMy_Grenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SUB", "SUB")) + cboMy_Grenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SBG", "SBG")) + cboMy_Grenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("WAI", "WAI")) + cboMy_Grenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("NKD", "NKD")) + cboMy_Grenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SFD", "SFD")) + cboMy_Grenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("???", "???")) + cboMy_Grenzstelle.changeItem("") + + cboMyAvisoAnzeige.Items.Clear() + cboMyAvisoAnzeige.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Benutzer", "Benutzer")) + cboMyAvisoAnzeige.fillWithSQL("SELECT team_id, team_bezeichnung FROM tblTeams WHERE team_firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "'", False, "ADMIN", True, False) + cboMyAvisoAnzeige.changeItem("Benutzer") + + If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_abteilung = "QS" Then + cboMy_QS.CheckState = CheckState.Unchecked + cboMy_VB.CheckState = CheckState.Indeterminate + Else + cboMy_QS.CheckState = CheckState.Checked + cboMy_VB.CheckState = CheckState.Unchecked + End If + If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId Is Nothing Then + cbx_My_LKW.Checked = True + cboMy_QS.CheckState = CheckState.Indeterminate + cboMy_VB.CheckState = CheckState.Indeterminate + ElseIf isnumeric(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId) Then + cboMyAvisoAnzeige.changeItem(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId) + End If + Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Case "ATILLA" ' Case "VERAG", "IMEX" @@ -174,7 +214,7 @@ Public Class frmHauptfenster End Select If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_abteilung <> "QS" Then - cboGrenzstelle.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_niederlassung + cboGrenzstelle._value = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_niederlassung End If End Select @@ -195,6 +235,7 @@ Public Class frmHauptfenster If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMIN", Me) Then AdministrationToolStripMenuItem.Visible = True lblMitarbeiter.Text += " (Admin)" + picAVISOMessenger.Visible = True End If @@ -219,11 +260,15 @@ Public Class frmHauptfenster If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then 'MenuStrip1.Items.Clear() MenuStrip1.Items.Remove(FunktionenToolStripMenuItem) - MenuStrip1.Items.Remove(StatistikToolStripMenuItem) + ' MenuStrip1.Items.Remove(StatistikToolStripMenuItem) + StatistikToolStripMenuItem.DropDownItems.Remove(SDLAuswertungenToolStripMenuItem1) + StatistikToolStripMenuItem.DropDownItems.Remove(SDLAuswertungenToolStripMenuItem) + + 'While MenuStrip1.Items.Count > 1 ' MenuStrip1.Items.RemoveAt(1) 'End While - btnGenerelleGestellungen.Visible = False + 'btnGenerelleGestellungen.Visible = False btnSpedBuch.Visible = False btnDienstplan.Visible = True btnNeu.Enabled = False @@ -233,7 +278,6 @@ Public Class frmHauptfenster splitMain.Panel2Collapsed = True End If - If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("KUNDEN", "AVISO") Then btnKunden.Visible = False End If @@ -278,11 +322,13 @@ Public Class frmHauptfenster Dim hSQL As String = "Select * FROM Aviso WHERE Status In (0,4,5) And Datum < " & SQLDatum(Now.AddDays(-21)) & " And Firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' " Dim anz As Integer = AvisoDAL.Check_Nicht_eingetroffen(hSQL) If anz > 0 Then - MsgBox("HINWEIS: " & vbCrLf & anz & " LKW-Aviso wurden auf 'LKW nicht eingetroffen' gesetzt, da bereits seit mehr als 21 Tagen offen.", vbInformation) + ' MsgBox("HINWEIS: " & vbCrLf & anz & " LKW-Aviso wurden auf 'LKW nicht eingetroffen' gesetzt, da bereits seit mehr als 21 Tagen offen.", vbInformation) End If End If + cboTeams.fillWithSQL("SELECT team_id, team_bezeichnung FROM tblTeams WHERE team_firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "'", False, "ADMIN", True) + If cboTeams.Items.Count = 0 Then cboTeams.Visible = False 'jetzt noch den Pfad zum Programm Paketdienste einlesen und zuweisen Try Dim pfadPaketdienste As String = Application.StartupPath & "\Paketdienste.txt" @@ -323,8 +369,6 @@ Public Class frmHauptfenster 'gridVermerke_SpaltenFestlegen() - - Timer1.Enabled = True If gridAviso.RowCount > 0 Then @@ -332,10 +376,10 @@ Public Class frmHauptfenster End If ' MsgBox(gridVermerke.Rows(0).Cells(5).Value) - If Me.Height * 0.3 < 220 Then + If Me.Height * 0.4 < 220 Then SplitContainer2.Height = 220 Else - SplitContainer2.Height = Me.Height * 0.3 + SplitContainer2.Height = Me.Height * 0.4 End If If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("KASSE", "SDL") Or @@ -604,8 +648,12 @@ Public Class frmHauptfenster hSQL &= " Telefonisch, Info,Handling,AvisoTVHinweis " hSQL &= " FROM Aviso " hSQL &= " WHERE 1=1 " - hSQL &= " AND Firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' " + If VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER <> "" And cbxCluster.Checked Then + hSQL &= " AND ( FIRMA='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' OR CLUSTER='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "' ) " + Else + hSQL &= " AND FIRMA='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' " + End If If pnlSearch.Visible Then Dim srchkrit = False Dim hSQLSnd = "" @@ -615,11 +663,11 @@ Public Class frmHauptfenster If txtKdAuftragsnr.Text <> "" Then hSQLSnd &= " AND (tblSnd_KdAuftragsNr LIKE '" & txtKdAuftragsnr.Text.Replace("*", "%") & "%' OR tblSnd_KdAuftragsNrAvisierer LIKE '" & txtKdAuftragsnr.Text.Replace("*", "%") & "%' OR tblSnd_KdAuftragsNrEmpfaenger LIKE '" & txtKdAuftragsnr.Text.Replace("*", "%") & "%' OR tblSnd_KdAuftragsNrFrachtfuehrer LIKE '" & txtKdAuftragsnr.Text.Replace("*", "%") & "%') " : srchkrit = True If cboFiliale._value <> "" Then hSQLSnd &= " AND FilialenNr ='" & cboFiliale._value & "'" : srchkrit = True If txtAbfertigungsnummer.Text <> "" Then hSQLSnd &= " AND AbfertigungsNr LIKE '" & txtAbfertigungsnummer.Text.Replace("*", "%") & "' " : srchkrit = True + If txtDyRef.Text <> "" Then hSQLSnd &= " AND tblSnd_DakosyRef LIKE '" & txtDyRef.Text.Replace("*", "%") & "' " : srchkrit = True hSQLSnd &= " ) > 0 " If srchkrit = True Then hSQL &= hSQLSnd If txtlkwId.Text <> "" Then hSQL &= " AND AvisoID LIKE '" & txtlkwId.Text.Replace("*", "%") & "' " - If cbxAlle.Checked = False Then Dim statWhere = "" If cbxErfasst.Checked Then statWhere &= Status_Erfasst & "," @@ -638,7 +686,8 @@ Public Class frmHauptfenster ' If SucheStandort <> "" Then hSQL += " AND Grenzstelle = '" & SucheStandort & "'" - If cboGrenzstelle.Text <> "ALLE" Then hSQL += " AND Grenzstelle = '" & cboGrenzstelle.Text & "'" + If cboGrenzstelle._value <> "" Then hSQL += " AND Grenzstelle = '" & cboGrenzstelle._value & "'" + If cboTeams.Text <> "" Then hSQL += " AND TeamId = '" & cboTeams._value & "'" 'je nach Auswahl SQL anpassen If tbcntrAviso.SelectedTab Is tabAlle Then @@ -687,7 +736,7 @@ Public Class frmHauptfenster 'Tabelle Kommt/Geht bereinigen If gridAviso.RowCount = 0 Then gridAviso.DataSource = Nothing - VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = 0 + VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID = 0 ' Details_anzeigen(VERAG_PROG_ALLGEMEIN.cglobal.Aktive_ID) End If @@ -732,14 +781,23 @@ Public Class frmHauptfenster Function setAkive_AuswahlID() As Integer - If gridMyAviso.SelectedRows.Count > 0 Then - VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = CInt(gridMyAviso.Rows(gridMyAviso.SelectedRows(0).Index).Cells("AvisoID").Value) - ElseIf gridAviso.SelectedRows.Count > 0 Then + If gridAviso.SelectedRows.Count > 0 Then VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = CInt(gridAviso.Rows(gridAviso.SelectedRows(0).Index).Cells("AvisoID").Value) Else VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = -1 End If + If gridMyAviso.SelectedRows.Count > 0 Then + VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = CInt(gridMyAviso.Rows(gridMyAviso.SelectedRows(0).Index).Cells("AvisoID").Value) + If Not cbx_My_LKW.Checked Then + VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID = CInt(gridMyAviso.Rows(gridMyAviso.SelectedRows(0).Index).Cells("tblSnd_SendungID").Value) + Else + VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID = -1 + + End If + Else + VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID = -1 + End If Return VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID End Function @@ -797,22 +855,62 @@ Public Class frmHauptfenster '" when [Status] =0 then 5 " & '" END, Ankunft" - Dim inBearbeitungSQL = " 1<>1 " - Dim dt As DataTable = VERAGSQL.loadDgvBySql(" SELECT distinct(tblSnd_AvisoID) FROM [tblSendungen] WHERE tblSnd_inbearbeitung=1 AND tblSnd_Bearbeitung_MaId=" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRID & "", "AVISO") - If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then - inBearbeitungSQL = " AVISOid IN (" - For Each r In dt.Rows - inBearbeitungSQL &= r(0) & "," - Next - inBearbeitungSQL = inBearbeitungSQL.Substring(0, inBearbeitungSQL.Length - 1) - inBearbeitungSQL &= " ) " + + + + 'Dim dt As DataTable = VERAGSQL.loadDgvBySql(" SELECT distinct(tblSnd_AvisoID) FROM [tblSendungen] WHERE tblSnd_inbearbeitung=1 AND tblSnd_Bearbeitung_MaId=" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRID & "", "AVISO") + 'If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then + ' inBearbeitungSQL = " AVISOid IN (" + ' For Each r In dt.Rows + ' inBearbeitungSQL &= r(0) & "," + ' Next + ' inBearbeitungSQL = inBearbeitungSQL.Substring(0, inBearbeitungSQL.Length - 1) + ' inBearbeitungSQL &= " ) " + 'End If + + Dim sqlStr As String = "" + + Dim sqlStrFirma As String = "" + If VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER <> "" And cbxCluster.Checked Then + sqlStrFirma &= " AND ( FIRMA='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' OR CLUSTER='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "' ) " + Else + sqlStrFirma &= " AND FIRMA='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' " End If - Dim sqlStr As String = " SELECT AvisoID, [Status],CASE WHEN LetzterMitarbeiterId=@maId then '0' ELSE '1' END as [statVorb], LKW_Nr, Dauer, Datum, AvisoEingang, Ankunft, Grenzstelle, Freigabe, LetzterMitarbeiterId AS maId, CASE WHEN LetzterMitarbeiterId=@maId then '0' ELSE '1' END as Vorbereitung,LetzterMitarbeiter,CASE WHEN [LKW_fertig] = 1 THEN 'OK' ELSE '' END AS [LKW_fertig],AvisoTVHinweis " & - " FROM Aviso " & - " WHERE ( Status IN (0, 3, 4, 5) OR ( Status = 1 AND [Abgeschlossen] = 0 )) " & - " AND Firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' AND (LetzterMitarbeiterId=@maId OR " & inBearbeitungSQL & ") " & - "ORDER BY case " & + + If cbx_My_LKW.Checked Then + sqlStr = " SELECT AvisoID, CASE WHEN [LKW_fertig] = 1 THEN 'OK' ELSE '' END AS [LKW_fertig], [Status],CASE WHEN LetzterMitarbeiterId=@maId then '0' ELSE '1' END as [statVorb], LKW_Nr, Dauer, Datum, AvisoEingang, Ankunft, Grenzstelle, Freigabe,LetzterMitarbeiterId AS maId, LetzterMitarbeiterId ,/* CASE WHEN LetzterMitarbeiterId=@maId then '0' ELSE '1' END as Vorbereitung,*/LetzterMitarbeiter,AvisoTVHinweis " & + " FROM Aviso " & + " WHERE ( Status IN (0, 3, 4, 5) OR ( Status = 1 AND [Abgeschlossen] = 0 )) " & + sqlStrFirma & " AND (LetzterMitarbeiterId=@maId) " + Else + Dim inBearbeitungSQL = " tblSendungen.LetzterMitarbeiterId=@maId " ' 1<>1 " + If cboMyAvisoAnzeige._value <> "" And cboMyAvisoAnzeige._value <> "Benutzer" And IsNumeric(cboMyAvisoAnzeige._value) Then + ' inBearbeitungSQL = " Aviso.[TeamId]= " & If(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId, -1) & " " + inBearbeitungSQL = " (Aviso.[TeamId]= " & cboMyAvisoAnzeige._value & " OR tblSendungen.[tblSnd_TeamId]= " & cboMyAvisoAnzeige._value & ") " + End If + + sqlStr = " SELECT AvisoID, CASE WHEN [LKW_fertig] = 1 THEN 'OK' ELSE '' END AS [LKW_fertig], [Status],tblSendungen.LetzterMitarbeiterId,tblSendungen.LetzterMitarbeiter, LKW_Nr, Dauer, Datum, AvisoEingang, Ankunft, Grenzstelle, Freigabe, Aviso.LetzterMitarbeiterId AS maId,AvisoTVHinweis " & + " ,tblSnd_Empfaenger,AbfertigungsNr,tblSnd_Abfertigungsart_ID,tblSnd_Vorgeschrieben,tblSnd_Vorbereitet,tblSnd_Status,tblSnd_SendungID,tblSnd_Fremdspedition,tblSnd_FremdspeditionText " & + " FROM Aviso INNER JOIN tblSendungen ON AvisoID=tblSnd_AvisoID " & + " WHERE ( Status IN (0, 3, 4, 5) OR ( Status = 1 AND [Abgeschlossen] = 0 )) " & + sqlStrFirma & " AND ( " & inBearbeitungSQL & ") " + + Select Case cboMy_VB.CheckState + Case CheckState.Checked : sqlStr &= " AND tblSnd_Vorgeschrieben is not null " + Case CheckState.Unchecked : sqlStr &= " AND tblSnd_Vorgeschrieben is null " + ' Case CheckState.Indeterminate : sqlStr &= " AND tblSnd_Vorbereitet is not null " + End Select + Select Case cboMy_QS.CheckState + Case CheckState.Checked : sqlStr &= " AND tblSnd_Vorbereitet is not null " + Case CheckState.Unchecked : sqlStr &= " AND tblSnd_Vorbereitet is null " + ' Case CheckState.Indeterminate : sqlStr &= " AND tblSnd_Vorbereitet is not null " + End Select + + End If + If cboMy_Grenzstelle._value <> "" Then sqlStr &= " AND Grenzstelle = '" & cboMy_Grenzstelle._value & "'" + + sqlStr &= " ORDER BY case " & " when [Status] =3 then 0 " & " when [Status] =0 then 1 " & " when [Status] =99 then 2 " & @@ -820,8 +918,20 @@ Public Class frmHauptfenster " when [Status] =1 then 4 " & " when [Status] =5 then 4 " & " when [Status] =0 then 5 " & - " END, Ankunft" - + " END, Grenzstelle,Ankunft " & If(cbx_My_LKW.Checked, "", ",tblSnd_SendungID") + 'Dim sqlStr As String = " SELECT AvisoID, [Status],CASE WHEN LetzterMitarbeiterId=@maId then '0' ELSE '1' END as [statVorb], LKW_Nr, Dauer, Datum, AvisoEingang, Ankunft, Grenzstelle, Freigabe, LetzterMitarbeiterId AS maId, CASE WHEN LetzterMitarbeiterId=@maId then '0' ELSE '1' END as Vorbereitung,LetzterMitarbeiter,CASE WHEN [LKW_fertig] = 1 THEN 'OK' ELSE '' END AS [LKW_fertig],AvisoTVHinweis " & + ' " FROM Aviso " & + ' " WHERE ( Status IN (0, 3, 4, 5) OR ( Status = 1 AND [Abgeschlossen] = 0 )) " & + ' " AND Firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' AND (LetzterMitarbeiterId=@maId OR " & inBearbeitungSQL & ") " & + ' "ORDER BY case " & + ' " when [Status] =3 then 0 " & + ' " when [Status] =0 then 1 " & + ' " when [Status] =99 then 2 " & + ' " when [Status] =4 then 3 " & + ' " when [Status] =1 then 4 " & + ' " when [Status] =5 then 4 " & + ' " when [Status] =0 then 5 " & + ' " END, Ankunft" 'Public Const Status_Erfasst = 0 @@ -832,7 +942,6 @@ Public Class frmHauptfenster 'Public Const Status_Ankunft = 3 - Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("maId", VERAG_PROG_ALLGEMEIN.cAllgemein.USRID)) If VERAGSQL Is Nothing Then VERAGSQL = New VERAG_PROG_ALLGEMEIN.SQL '? vlt hilfts... @@ -843,17 +952,23 @@ Public Class frmHauptfenster ' MsgBox(DateDiff(DateInterval.Minute, CDate(VarToDate("16.12.2013 11:02:08")), CDate(VarToDate("16.12.2013 12:02:08")))) ' MsgBox(gridMyAviso.RowCount) - Dim bfont = New Font(gridMyAviso.Font.FontFamily, gridMyAviso.Font.Size, FontStyle.Bold) + ' Dim bfont = New Font(gridMyAviso.Font.FontFamily, gridMyAviso.Font.Size, FontStyle.Bold) + Dim nfont = New Font(gridMyAviso.Font.FontFamily, gridMyAviso.Font.Size, FontStyle.Regular) With gridMyAviso + .DefaultCellStyle.Font = nfont + .MultiSelect = False .Columns("AvisoID").Visible = False 'AvisoID nicht anzeigen .Columns("Freigabe").Visible = False 'AvisoID nicht anzeigen .Columns("maId").Visible = False 'maID nicht anzeigen - .Columns("Vorbereitung").Visible = False 'Vorber. nicht anzeigen - .Columns("LetzterMitarbeiter").Visible = False 'Mitarb. nicht anzeigen - .Columns("statVorb").Visible = False 'Mitarb. nicht anzeigen + '.Columns("Vorbereitung").Visible = False 'Vorber. nicht anzeigen + .Columns("LetzterMitarbeiter").Visible = False 'Mitarb. nicht anzeigen + '.Columns("statVorb").Visible = False 'Mitarb. nicht anzeigen + .Columns("LetzterMitarbeiterId").Visible = False 'Mitarb. nicht anzeigen + .Columns("LetzterMitarbeiter").Visible = False 'Mitarb. nicht anzeigen + .Columns("Status").Width = 110 .Columns("Status").HeaderText = "Status" @@ -864,10 +979,11 @@ Public Class frmHauptfenster .Columns("AvisoTVHinweis").Visible = False ' = 60 .Columns("Dauer").Visible = False ' = 60 - .Columns("Datum").Width = 145 '115 - .Columns("Datum").HeaderText = "Erfasst" - .Columns("Datum").DefaultCellStyle.Format = "dd.MM. HH:mm (ddd)" - .Columns("Datum").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter + .Columns("Datum").Visible = False 'Mitarb. nicht anzeigen + '.Columns("Datum").Width = 145 '115 + '.Columns("Datum").HeaderText = "Erfasst" + '.Columns("Datum").DefaultCellStyle.Format = "dd.MM. HH:mm (ddd)" + '.Columns("Datum").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter .Columns("AvisoEingang").Visible = False ' .Columns("AvisoEingang").Width = 120 @@ -875,20 +991,20 @@ Public Class frmHauptfenster ' .Columns("AvisoEingang").DefaultCellStyle.Format = "dd.MM. HH:mm (ddd)" ' .Columns("AvisoEingang").DefaultCellStyle.Format = "HH:mm, dddd" + .Columns("Ankunft").Visible = False .Columns("Ankunft").Width = 145 '115 .Columns("Ankunft").HeaderText = "Ankunft" .Columns("Ankunft").DefaultCellStyle.Format = "dd.MM. HH:mm (ddd)" - If VERAG_PROG_ALLGEMEIN.cAllgemein.ABTEILUNG = "QS" Then - .Columns("Grenzstelle").Visible = True - .Columns("Grenzstelle").Width = 70 - .Columns("Grenzstelle").HeaderText = "Grenzstelle" - .Columns("Grenzstelle").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter - .Columns("Grenzstelle").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter - - Else - .Columns("Grenzstelle").Visible = False - End If + ' If VERAG_PROG_ALLGEMEIN.cAllgemein.ABTEILUNG = "QS" Then + .Columns("Grenzstelle").Visible = True + .Columns("Grenzstelle").Width = 70 + .Columns("Grenzstelle").HeaderText = "Grenzstelle" + .Columns("Grenzstelle").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter + .Columns("Grenzstelle").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter + ' Else + ' .Columns("Grenzstelle").Visible = False + ' End If .Columns("Freigabe").Width = 80 .Columns("Freigabe").HeaderText = "Freigabe" @@ -898,21 +1014,107 @@ Public Class frmHauptfenster .Columns("LKW_fertig").HeaderText = "OK" .Columns("LKW_fertig").DefaultCellStyle.ForeColor = Color.White .Columns("LKW_fertig").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter - .Columns("LKW_fertig").DefaultCellStyle.Font = bfont - - Dim c As New DataGridViewTextBoxColumn - c.Name = "DauerText" - c.Width = 115 - c.HeaderText = "Dauer" - c.HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter - c.DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter - .Columns.Insert(7, c) - + '.Columns("LKW_fertig").DefaultCellStyle.Font = bfont If gridMyAviso.RowCount = 0 Then gridMyAviso.Columns.Clear() : Exit Sub + + Dim t As New DataGridViewTextBoxColumn + t.Name = "DauerText" + t.Width = 90 + t.HeaderText = "Dauer" + t.HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter + t.DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter + .Columns.Insert(7, t) + + + + If Not cbx_My_LKW.Checked Then + .Columns("tblSnd_Status").Visible = False + + .Columns("tblSnd_Abfertigungsart_ID").Visible = False + .Columns("tblSnd_Vorgeschrieben").Visible = False + .Columns("tblSnd_Vorbereitet").Visible = False + .Columns("tblSnd_SendungID").Visible = False + .Columns("tblSnd_Fremdspedition").Visible = False + .Columns("tblSnd_FremdspeditionText").Visible = False + + .Columns("tblSnd_Empfaenger").MinimumWidth = 150 + .Columns("tblSnd_Empfaenger").HeaderText = "Empfaenger" + .Columns("tblSnd_Empfaenger").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill + + ' .Columns("Vermerke_Anzahl").Width = 60 + ' .Columns("Vermerke_Anzahl").HeaderText = "Vermerke" + ' .Columns("Vermerke_Anzahl").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter + .Columns("AbfertigungsNr").Width = 110 + .Columns("AbfertigungsNr").HeaderText = "Pos-Nr." + .Columns("AbfertigungsNr").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleLeft + + + + + + Dim c As DataGridViewImageColumn + c = New DataGridViewImageColumn + c.Name = "StatusVorbereitetQS" + c.Image = My.Resources.statusBtn_vorbereitet_InAktiv : c.ImageLayout = DataGridViewImageCellLayout.Zoom + c.Width = 25 : c.DefaultCellStyle.Padding = New Padding(2) : c.DefaultCellStyle.BackColor = Color.White + c.ToolTipText = "Status 'Vorbereitet-QS' eintragen" + c.HeaderText = "QS" + .Columns.Add(c) + + + c = New DataGridViewImageColumn + c.Name = "StatusVorgeschrieben" + c.Image = My.Resources.statusBtn_vorgeschrieben_InAktiv : c.ImageLayout = DataGridViewImageCellLayout.Zoom + c.Width = 25 : c.DefaultCellStyle.Padding = New Padding(2) : c.DefaultCellStyle.BackColor = Color.White + c.ToolTipText = "Status 'Vorgeschrieben' eintragen" + c.HeaderText = "VG" + .Columns.Add(c) + + + Dim t2 = New DataGridViewTextBoxColumn + t2.Name = "Abfertigungsart" + t2.HeaderText = "Abfertigungsart" + t2.Width = 120 : t.DefaultCellStyle.Padding = New Padding(2) : t2.DefaultCellStyle.BackColor = Color.White + 't.ToolTipText = "" + .Columns.Insert(7, t2) + + End If + + 'Dauer berechnen: For Each r As DataGridViewRow In .Rows + r.DefaultCellStyle.Font = nfont + If Not cbx_My_LKW.Checked Then + If r.Cells("tblSnd_Fremdspedition").Value Then 'FREMDANMELDER + r.Cells("Abfertigungsart").Style.BackColor = Color.FromArgb(230, 230, 230) + ' r.Cells("tblSnd_PosUnterNr").Style.BackColor = Color.FromArgb(230, 230, 230) + ' r.Cells("Abfertigungsart").Value = "FREMD" + r.Cells("Abfertigungsart").Value = r.Cells("tblSnd_FremdspeditionText").Value + Else 'Nomal + r.Cells("Abfertigungsart").Value = VERAGSQL.getValueTxtBySql("SELECT Abfertigungsbezeichnung FROM Abfertigungsarten WHERE [Abfertigungsart]='" & r.Cells("tblSnd_Abfertigungsart_ID").Value.ToString & "'", "FMZOLL") + If r.Cells("Abfertigungsart").Value.ToString.Length > 15 Then r.Cells("Abfertigungsart").Value = r.Cells("Abfertigungsart").Value.Substring(0, 15) & ".." + End If + + If .Columns("StatusVorbereitetQS") IsNot Nothing Then + If r.Cells("tblSnd_Vorbereitet").Value IsNot DBNull.Value Then + DirectCast(r.Cells("StatusVorbereitetQS"), DataGridViewImageCell).Value = My.Resources.statusBtn_vorbereitet_Aktiv + DirectCast(r.Cells("StatusVorbereitetQS"), DataGridViewImageCell).ToolTipText = "Status 'Vorbereitet-QS' entfernen" & vbNewLine & "(" & r.Cells("tblSnd_Vorgeschrieben").Value & ")" + Else + DirectCast(r.Cells("StatusVorbereitetQS"), DataGridViewImageCell).ToolTipText = "Status 'Vorbereitet-QS' eintragen" + End If + End If + If .Columns("StatusVorgeschrieben") IsNot Nothing Then + If r.Cells("tblSnd_Vorgeschrieben").Value IsNot DBNull.Value Then + DirectCast(r.Cells("StatusVorgeschrieben"), DataGridViewImageCell).Value = My.Resources.statusBtn_vorgeschrieben_Aktiv + DirectCast(r.Cells("StatusVorgeschrieben"), DataGridViewImageCell).ToolTipText = "Status 'Vorgeschrieben' entfernen" & vbNewLine & "(" & r.Cells("tblSnd_Vorgeschrieben").Value & ")" + Else + DirectCast(r.Cells("StatusVorgeschrieben"), DataGridViewImageCell).ToolTipText = "Status 'Vorgeschrieben' eintragen" + End If + End If + + End If ' MsgBox(r.Cells(1).Value) ' MsgBox(r.Cells(6).Value) @@ -937,6 +1139,7 @@ Public Class frmHauptfenster 'r.Cells("Status").Value = 99 'End If + Next '.Width = gridAviso.Width - gridVermerke.Width @@ -952,6 +1155,45 @@ Public Class frmHauptfenster End Sub + + + Private Sub dgvSendungen_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles gridMyAviso.CellClick + Try + If e.RowIndex > 0 Then + + ' MsgBox(gridMyAviso.Columns(e.ColumnIndex).Name) + If Not cbx_My_LKW.Checked Then + If True Then 'gridMyAviso.SelectedRows.Count = 1 Then + Dim SendungsId = gridMyAviso.Rows(e.RowIndex).Cells("tblSnd_SendungID").Value + Dim AvisoID = gridMyAviso.Rows(e.RowIndex).Cells("AvisoID").Value + If SendungsId > 0 And AvisoID > 0 Then + + Select Case gridMyAviso.Columns(e.ColumnIndex).Name + + Case "StatusVorgeschrieben" + Me.Cursor = Cursors.WaitCursor + If FUNC.setSendungVorgeschrieben(SendungsId, AvisoID) Then + avisoAktualisierenAktiveIdBehalten(AvisoID, True, True) 'meineAviso_anzeigen() + End If + Me.Cursor = Cursors.Default + Case "StatusVorbereitetQS" + Me.Cursor = Cursors.WaitCursor + If FUNC.setSendungVorbereitetQS(SendungsId, AvisoID) Then + avisoAktualisierenAktiveIdBehalten(AvisoID, True, True) 'meineAviso_anzeigen() + End If + + Me.Cursor = Cursors.Default + End Select + End If + End If + End If + End If + + Catch ex As Exception + MsgBox(ex.Message & vbNewLine & ex.StackTrace) + End Try + End Sub + Private Sub gridMyAviso_CellFormatting(sender As Object, e As System.Windows.Forms.DataGridViewCellFormattingEventArgs) Handles gridMyAviso.CellFormatting Try @@ -965,14 +1207,27 @@ Public Class frmHauptfenster Select Case gridMyAviso.Columns(e.ColumnIndex).Name Case "Status" 'Status - Dim vb As Boolean = gridMyAviso.Rows(e.RowIndex).Cells("statVorb").Value + 'Dim vb As Boolean = gridMyAviso.Rows(e.RowIndex).Cells("statVorb").Value + 'Select Case VarToInt(e.Value) + ' Case 0 : e.Value = IIf(vb, "Erfasst (in VB)", "Erfasst") : gridMyAviso.Rows(e.RowIndex).DefaultCellStyle.ForeColor = Color.FromArgb(60, 60, 60) + ' Case 1 : e.Value = IIf(vb, "Freigegeben (in VB)", "Freigegeben") + ' Case 2 : e.Value = IIf(vb, "LKW n.e. (in VB)", "LKW n.e.") + ' Case 3 : e.Value = IIf(vb, "Ankunft (in VB)", "Ankunft") : gridMyAviso.Rows(e.RowIndex).DefaultCellStyle.Font = New Font(gridMyAviso.Font.FontFamily, gridMyAviso.Font.Size, FontStyle.Bold) 'New Font(gridMyAviso.DefaultCellStyle.Font, 8.0F) + ' Case 4 : e.Value = IIf(vb, "Vorber. (in VB)", "Vorbereitet") + ' Case 5 : e.Value = IIf(vb, "Vorg. (in VB)", "Vorgeschrieben") + ' ' Case 99 : e.Value = "in Vorbereitung" : gridMyAviso.Rows(e.RowIndex).DefaultCellStyle.Font = New Font(gridMyAviso.Font.FontFamily, gridMyAviso.Font.Size, FontStyle.Bold) 'New Font(gridMyAviso.DefaultCellStyle.Font, 8.0F) + ' 'gridMyAviso.Rows(e.RowIndex).DefaultCellStyle.ForeColor = Color.Brown + ' ' gridMyAviso.Rows(e.RowIndex).Cells("Status").Style.Font = New Font(gridMyAviso.Font.FontFamily, gridMyAviso.Font.Size, FontStyle.Bold) 'New Font(gridMyAviso.DefaultCellStyle.Font, 8.0F) + ' Case Else : e.Value = "unbekannt" + 'End Select + Select Case VarToInt(e.Value) - Case 0 : e.Value = IIf(vb, "Erfasst (in VB)", "Erfasst") : gridMyAviso.Rows(e.RowIndex).DefaultCellStyle.ForeColor = Color.FromArgb(60, 60, 60) - Case 1 : e.Value = IIf(vb, "Freigegeben (in VB)", "Freigegeben") - Case 2 : e.Value = IIf(vb, "LKW n.e. (in VB)", "LKW n.e.") - Case 3 : e.Value = IIf(vb, "Ankunft (in VB)", "Ankunft") : gridMyAviso.Rows(e.RowIndex).DefaultCellStyle.Font = New Font(gridMyAviso.Font.FontFamily, gridMyAviso.Font.Size, FontStyle.Bold) 'New Font(gridMyAviso.DefaultCellStyle.Font, 8.0F) - Case 4 : e.Value = IIf(vb, "Vorber. (in VB)", "Vorbereitet") - Case 5 : e.Value = IIf(vb, "Vorg. (in VB)", "Vorgeschrieben") + Case 0 : e.Value = "Erfasst" : gridMyAviso.Rows(e.RowIndex).DefaultCellStyle.ForeColor = Color.FromArgb(60, 60, 60) + Case 1 : e.Value = "Freigegeben" + Case 2 : e.Value = "LKW n.e." + Case 3 : e.Value = "Ankunft" : gridMyAviso.Rows(e.RowIndex).Cells("Status").Style.Font = New Font(gridMyAviso.Font.FontFamily, gridMyAviso.Font.Size, FontStyle.Bold) 'New Font(gridMyAviso.DefaultCellStyle.Font, 8.0F) + Case 4 : e.Value = "Vorbereitet" + Case 5 : e.Value = "Vorgeschrieben" ' Case 99 : e.Value = "in Vorbereitung" : gridMyAviso.Rows(e.RowIndex).DefaultCellStyle.Font = New Font(gridMyAviso.Font.FontFamily, gridMyAviso.Font.Size, FontStyle.Bold) 'New Font(gridMyAviso.DefaultCellStyle.Font, 8.0F) 'gridMyAviso.Rows(e.RowIndex).DefaultCellStyle.ForeColor = Color.Brown ' gridMyAviso.Rows(e.RowIndex).Cells("Status").Style.Font = New Font(gridMyAviso.Font.FontFamily, gridMyAviso.Font.Size, FontStyle.Bold) 'New Font(gridMyAviso.DefaultCellStyle.Font, 8.0F) @@ -1284,7 +1539,7 @@ Public Class frmHauptfenster hSort = " ORDER BY Ankunft" ' If sender Is btnWichtigeStandort Then SucheStandort = VERAG_PROG_ALLGEMEIN.cglobal.AktiverMitarbeiter.Grenzstelle.Trim If sender Is btnWichtigeStandort Then - cboGrenzstelle.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG.Trim + cboGrenzstelle._value = VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG.Trim End If If sender Is btnWichtige Then cboGrenzstelle.SelectedIndex = 0 @@ -1296,11 +1551,19 @@ Public Class frmHauptfenster Private Sub GrenzstelleChanged(sender As System.Object, e As System.EventArgs) Handles cboGrenzstelle.SelectedIndexChanged If Grid_aktiv Then - ' SucheStandort = cboGrenzstelle.Text.Replace("ALLE", "") + ' SucheStandort = cboGrenzstelle._value.Replace("ALLE", "") Aviso_anzeigen("") End If End Sub + Private Sub cbxClusterChanged(sender As System.Object, e As System.EventArgs) Handles cbxCluster.CheckedChanged + If Grid_aktiv Then + ' SucheStandort = cboGrenzstelle._value.Replace("ALLE", "") + Aviso_anzeigen("") + End If + End Sub + + Private Sub btnHeute_Click(sender As System.Object, e As System.EventArgs) Handles MyComboBox1.SelectedIndexChanged, btnWoche.Click, btnHeute.Click, btnGestern.Click If Not Grid_aktiv Then Exit Sub Grid_aktiv = False @@ -1367,7 +1630,7 @@ Public Class frmHauptfenster GridZeichnenAviso() End Sub - Private Sub btnErfasst_MouseHover(sender As Object, e As EventArgs) Handles Button1.MouseEnter, Button7.MouseEnter, Button6.MouseEnter, Button5.MouseEnter, btnSpedBuch.MouseEnter, btnRg.MouseEnter, btnRefresh.MouseEnter, btnNeu.MouseEnter, btnKunden.MouseEnter, btnKassenbuch.MouseEnter, btnGenerelleGestellungen.MouseEnter, btnDrucken.MouseEnter + Private Sub btnErfasst_MouseHover(sender As Object, e As EventArgs) Handles Button1.MouseEnter, Button7.MouseEnter, Button6.MouseEnter, Button5.MouseEnter, btnSpedBuch.MouseEnter, btnRg.MouseEnter, btnRefresh.MouseEnter, btnNeu.MouseEnter, btnKunden.MouseEnter, btnKassenbuch.MouseEnter, btnDrucken.MouseEnter Try Dim cF As Color = DirectCast(sender, Button).ForeColor Dim cB As Color = DirectCast(sender, Button).BackColor @@ -1378,7 +1641,7 @@ Public Class frmHauptfenster End Try End Sub - Private Sub btnErfasst_MouseLeave(sender As Object, e As EventArgs) Handles Button1.MouseLeave, Button7.MouseLeave, Button6.MouseLeave, Button5.MouseLeave, btnSpedBuch.MouseLeave, btnRg.MouseLeave, btnRefresh.MouseLeave, btnNeu.MouseLeave, btnKunden.MouseLeave, btnKassenbuch.MouseLeave, btnGenerelleGestellungen.MouseLeave, btnDrucken.MouseLeave + Private Sub btnErfasst_MouseLeave(sender As Object, e As EventArgs) Handles Button1.MouseLeave, Button7.MouseLeave, Button6.MouseLeave, Button5.MouseLeave, btnSpedBuch.MouseLeave, btnRg.MouseLeave, btnRefresh.MouseLeave, btnNeu.MouseLeave, btnKunden.MouseLeave, btnKassenbuch.MouseLeave, btnDrucken.MouseLeave Try Dim cF As Color = DirectCast(sender, Button).ForeColor Dim cB As Color = DirectCast(sender, Button).BackColor @@ -1390,13 +1653,9 @@ Public Class frmHauptfenster End Try End Sub - Private Sub gridAviso_DoubleClick(sender As Object, e As System.EventArgs) Handles gridMyAviso.DoubleClick, gridAviso.DoubleClick + Private Sub gridAviso_DoubleClick(sender As Object, e As System.EventArgs) Handles gridAviso.DoubleClick - - If gridAviso.SelectedRows.Count = 0 And gridMyAviso.SelectedRows.Count = 0 Then Exit Sub - - ' VERAG_PROG_ALLGEMEIN.cglobal.Aktive_Zeile = -1 - ' If gridAviso.SelectedRows.Count > 0 Then VERAG_PROG_ALLGEMEIN.cglobal.Aktive_Zeile = gridAviso.CurrentRow.Index + If gridAviso.SelectedRows.Count = 0 Then Exit Sub Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm() Dim f As New frmEintragAviso @@ -1406,6 +1665,37 @@ Public Class frmHauptfenster End Sub + Private Sub gridMyAviso_DoubleClick(sender As Object, e As System.EventArgs) Handles gridMyAviso.DoubleClick + + If gridMyAviso.SelectedRows.Count = 0 Then Exit Sub + If gridMyAviso.SelectedRows(0).Cells("AvisoID").Value Is DBNull.Value Then Exit Sub + + If cbx_My_LKW.Checked Then + + Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm() + Dim f As New frmEintragAviso + f.ShowDialog(frmGrayOut) + frmGrayOut.Close() + btnRefresh.PerformClick() 'Aviso_anzeigen("") + + Else + + If gridMyAviso.SelectedRows(0).Cells("tblSnd_SendungID").Value Is DBNull.Value Then Exit Sub + + Dim SendungsId = gridMyAviso.SelectedRows(0).Cells("tblSnd_SendungID").Value + Dim AvisoID = gridMyAviso.SelectedRows(0).Cells("AvisoID").Value + + Dim f = FUNC.openSnd(SendungsId, AvisoID) + If f IsNot Nothing Then + AddHandler f.FormClosed, Sub() + btnRefresh.PerformClick() + End Sub + End If + End If + + + End Sub + Private Sub btnNeu_Click(sender As System.Object, e As System.EventArgs) Handles btnNeu.Click Try @@ -1518,7 +1808,7 @@ Public Class frmHauptfenster End Try End Sub - Private Sub kexdown(sender As Object, e As KeyEventArgs) Handles gridMyAviso.KeyUp, gridAviso.KeyUp + Private Sub kexdown(sender As Object, e As KeyEventArgs) Handles gridAviso.KeyUp Try If e.KeyCode = Keys.Up Or e.KeyCode = Keys.Down Or e.KeyCode = Keys.PageUp Or e.KeyCode = Keys.PageDown Or e.KeyCode = Keys.Return Or e.KeyCode = Keys.Enter Then @@ -1535,7 +1825,23 @@ Public Class frmHauptfenster End Sub + Private Sub keydownMyAviso(sender As Object, e As KeyEventArgs) Handles gridMyAviso.KeyUp + Try + If e.KeyCode = Keys.Up Or e.KeyCode = Keys.Down Or e.KeyCode = Keys.PageUp Or e.KeyCode = Keys.PageDown Or e.KeyCode = Keys.Return Or e.KeyCode = Keys.Enter Then + If sender.selectedRows.count = 0 Then Exit Sub + Dim tmpId = CInt(sender.selectedRows(0).Cells("AvisoId").Value) + Dim tmpSndId = CInt(sender.selectedRows(0).Cells("tblSnd_SendungID").Value) + VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = tmpId + VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID = tmpSndId + avisoAktualisierenAktiveIdBehalten(tmpId, False) + + End If + + Catch ex As Exception + + End Try + End Sub @@ -1556,9 +1862,6 @@ Public Class frmHauptfenster If Aviso_anzeigenBool Then Aviso_anzeigen("", False) ': meineAviso_anzeigen() - - - gridMyAviso.ClearSelection() gridAviso.ClearSelection() For Each r As DataGridViewRow In gridAviso.Rows If CInt(r.Cells("AvisoId").Value) = tmpid Then @@ -1567,13 +1870,28 @@ Public Class frmHauptfenster r.Selected = True : Exit For End If Next - For Each r As DataGridViewRow In gridMyAviso.Rows - If CInt(r.Cells("AvisoId").Value) = tmpid Then - ' gridAviso.ClearSelection() - gridMyAviso.CurrentCell = r.Cells("Status") - r.Selected = True : Exit For + + + gridMyAviso.ClearSelection() + If cbx_My_LKW.Checked Then + For Each r As DataGridViewRow In gridMyAviso.Rows + If CInt(r.Cells("AvisoId").Value) = tmpid Then + ' gridMyAviso.ClearSelection() + gridMyAviso.CurrentCell = r.Cells("Status") + r.Selected = True : Exit For + End If + Next + Else + If gridMyAviso.Rows.Count > 0 Then + For Each r As DataGridViewRow In gridMyAviso.Rows + If CInt(r.Cells("tblSnd_SendungID").Value) = VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID Then + gridMyAviso.CurrentCell = r.Cells("Status") + r.Selected = True : Exit For + End If + Next End If - Next + End If + VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = tmpid @@ -1581,16 +1899,6 @@ Public Class frmHauptfenster If pnlDetailsRechts.Controls.Count > 0 Then Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA - Case "VERAG" - Dim usrcntl As usrcntlAktDetails = DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetails) - If aktWithoutCheckTime Or usrcntl.AvisoID <> tmpid Then - Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID) - Else - If DateDiff(DateInterval.Second, usrcntl.aktiv, Now) > 60 Then 'Wenn die Details länger als 60 Sek inaktiv sind (Prüfung durch click und keydown) - Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID) - End If - End If - Case "ATILLA" If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Or VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("DAKOSY", Me.FindForm) Then Dim usrcntl As usrcntlAktDetailsATILLANeu = DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetailsATILLANeu) @@ -1616,6 +1924,7 @@ Public Class frmHauptfenster If aktWithoutCheckTime Or usrcntl.AvisoID <> tmpid Then Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID) Else + usrcntl.changeCurrentSndId() If DateDiff(DateInterval.Second, usrcntl.aktiv, Now) > 60 Then 'Wenn die Details länger als 60 Sek inaktiv sind (Prüfung durch click und keydown) Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID) End If @@ -1638,17 +1947,32 @@ Public Class frmHauptfenster If sender Is gridMyAviso Then gridAviso.ClearSelection() ' MsgBox(Grid_aktiv) DirectCast(sender, DataGridView).Rows(e.RowIndex).Selected = True + + Dim tmpId = CInt(sender.Rows(e.RowIndex).Cells("AvisoId").Value) + + If sender Is gridAviso Then + VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID = -1 + Else + If sender Is gridMyAviso Then + If cbx_My_LKW.Checked Then + VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID = -1 + Else + VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID = CInt(sender.Rows(e.RowIndex).Cells("tblSnd_SendungID").Value) + End If + End If + End If + + If e.Button = Windows.Forms.MouseButtons.Right Then If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" Then If sender Is gridAviso Then - VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = CInt(sender.Rows(e.RowIndex).Cells("AvisoId").Value) + VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = tmpId sender.CurrentCell = sender.Rows(e.RowIndex).Cells(e.ColumnIndex) conMenuAviso.Show(Windows.Forms.Cursor.Position) End If Else - Dim tmpId = CInt(sender.Rows(e.RowIndex).Cells("AvisoId").Value) setAkive_AuswahlID() - avisoAktualisierenAktiveIdBehalten(tmpId, , False) + avisoAktualisierenAktiveIdBehalten(tmpId, , False) Dim hStatus = AvisoDAL.LesenAviso(tmpId, "").Status If hStatus <> VERAG_PROG_ALLGEMEIN.cGlobal.Status_Ankunft And hStatus <> VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorgeschrieben And hStatus <> VERAG_PROG_ALLGEMEIN.cGlobal.Status_Erfasst And hStatus <> VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorbereitet Then 'MsgBox("Ein Vermerk kann nur erfasst werden, wenn der Status des Aviso auf 'Erfasst', 'Vorbereitet', 'Vorgeschrieben' oder 'Ankunft' steht.", vbInformation) @@ -1667,9 +1991,9 @@ Public Class frmHauptfenster End If ElseIf e.Button = Windows.Forms.MouseButtons.Left Then - Dim tmpId = CInt(sender.Rows(e.RowIndex).Cells("AvisoId").Value) VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = tmpId - avisoAktualisierenAktiveIdBehalten(tmpId, , False) + + avisoAktualisierenAktiveIdBehalten(tmpId, , False) End If End Sub @@ -1778,7 +2102,7 @@ Public Class frmHauptfenster Me.Visible = True If sd = 0 Then sd = SplitContainer1.SplitterDistance If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" Then - btnGenerelleGestellungen.Visible = False + 'btnGenerelleGestellungen.Visible = False Button6.Visible = False tbcntrAviso.TabPages.RemoveAt(2) btnWichtigeStandort.Visible = False @@ -1789,7 +2113,9 @@ Public Class frmHauptfenster ToolStripMenuItem4.Visible = True ToolStripMenuItem5.Visible = True ElseIf VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "IMEX" Then - btnGenerelleGestellungen.Visible = False + 'btnGenerelleGestellungen.Visible = False + ToolStripMenuItem4.Visible = True + ToolStripMenuItem5.Visible = True Else 'VERAG BürgschaftenExcelToolStripMenuItem.Visible = True ToolStripMenuItem4.Visible = True @@ -1800,7 +2126,8 @@ Public Class frmHauptfenster End If If SplitContainer2.Width > 800 Then 'SplitContainer2.Panel2MinSize = 600 - SplitContainer2.SplitterDistance = SplitContainer2.Width - 750 + SplitContainer2.SplitterDistance = 50 'SplitContainer2.Width - 750 + If SplitContainer2.Panel2.Width > 900 Then SplitContainer2.SplitterDistance = SplitContainer2.Width - 900 End If If My.Computer.Screen.WorkingArea.Width < 1300 Then @@ -2023,7 +2350,7 @@ Public Class frmHauptfenster End Sub - Private Sub Button5_Click(sender As Object, e As EventArgs) Handles btnGenerelleGestellungen.Click + Private Sub Button5_Click(sender As Object, e As EventArgs) frmGenerelleGestellungen.ShowDialog() End Sub @@ -2761,11 +3088,49 @@ Public Class frmHauptfenster TmpFile = "C:\Users\DEVELOPER1\Desktop\Base\PFDtmp" & i & ".pdf" End Sub + + Private Sub cboTeams_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboTeams.SelectedIndexChanged + If Grid_aktiv Then + ' SucheStandort = cboGrenzstelle._value.Replace("ALLE", "") + Aviso_anzeigen("") + End If + End Sub + + Private Sub ToolStripMenuItem6_Click(sender As Object, e As EventArgs) + + End Sub + + Private Sub cboMyAvisoAnzeige_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboMyAvisoAnzeige.SelectedIndexChanged, cbx_My_LKW.CheckedChanged, cboMy_Grenzstelle.SelectedIndexChanged, cboMy_QS.CheckStateChanged, cboMy_VB.CheckStateChanged + If Grid_aktiv Then + meineAviso_anzeigen() + End If + cboMy_QS.Visible = Not cbx_My_LKW.Checked + cboMy_VB.Visible = Not cbx_My_LKW.Checked + cboMyAvisoAnzeige.Visible = Not cbx_My_LKW.Checked + Label17.Visible = Not cbx_My_LKW.Checked + + If cbx_My_LKW.Checked Then + lblMeineAviso.Text = "Meine Aviso:" + Else + lblMeineAviso.Text = "Meine Sendungen:" + End If + End Sub + + Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles picAVISOMessenger.Click + Dim f As New VERAG_PROG_ALLGEMEIN.frmMessenger + f.Location = Cursor.Position + f.Show(Me) + End Sub + + Private Sub TimerMessanger_NewMessages_Tick(sender As Object, e As EventArgs) Handles TimerMessanger_NewMessages.Tick + Label20.Visible = (VERAG_PROG_ALLGEMEIN.cMessenger.UNREAD_MESAGES > 0) + Label20.Text = (VERAG_PROG_ALLGEMEIN.cMessenger.UNREAD_MESAGES) + End Sub End Class Public Class AvisoStatusFunctions Dim Standorte As New cStandorteDAL - + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL Dim AvisoDAL As New cAvisoDAL Dim VermerkeDAL As New cVermerkeDAL Public Function setAnkunft(AvisoID) As Boolean @@ -2829,6 +3194,7 @@ Public Class AvisoStatusFunctions Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Ankunft Aviso.Änderungen = "auf ANKUNFT gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm") & vbCrLf & Trim(VarToStr(Aviso.Änderungen)) Aviso.letzterMitarbeiter = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter + Aviso.TeamId = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId Dim tmpid = AvisoDAL.SpeichernAviso(Aviso) AvisoDAL.addAenderung(tmpid, "auf ANKUNFT gesetzt", "auf ANKUNFT gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm")) @@ -2856,8 +3222,10 @@ Public Class AvisoStatusFunctions Dim art = 1 If AVISO.ImEx = "EXPORT" Or VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" Then art = 3 Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA + ' Case "ATILLA" + 'Case "VERAG", "IMEX" + Case Else - Case "VERAG", "IMEX" Dim EMails As String = "" Dim EMails_CC As String = "" Dim EMails_BCC As String = "" @@ -2896,7 +3264,9 @@ Public Class AvisoStatusFunctions If AVISO.ImEx = "EXPORT" Or VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" Then art = 4 Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA - Case "VERAG", "IMEX" + ' Case "ATILLA" + 'Case "VERAG", "IMEX" + Case Else 'Mail-Adressen aus Firmentabelle holen Dim EMails As String = "" @@ -2926,7 +3296,6 @@ Public Class AvisoStatusFunctions Email_senden(art, AVISO, EMails, EMails_CC, EMails_BCC, s.tblSnd_AuftraggeberKdNr) Next - End Select End Sub @@ -2948,6 +3317,8 @@ Public Class AvisoStatusFunctions Dim GrenzstelleMail = AVISO.Grenzstelle.replace("?", "") If GrenzstelleMail = "" Then GrenzstelleMail = VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG + If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "FRONTOFFICE" Then GrenzstelleMail = "FO" + If GrenzstelleMail <> "" Then Dim Standort As New cStandort @@ -2977,10 +3348,16 @@ Public Class AvisoStatusFunctions hBody = hBody.Replace("%0", "
") hBody = hBody.Replace("%Firma", VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA) ' gibts noch nicht! - If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "IMEX" Then hBody = hBody.Replace("VERAG", "IMEX") 'hier der Ersatz + + 'Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA '= "IMEX" + ' Case "VERAG" + ' Case "UNISPED" + ' hBody = hBody.Replace("VERAG", VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA) 'hier der Ersatz + 'End Select EMails_BCC &= If(EMails_BCC <> "", ";", "") & getAbsenderEmail() 'Damit Mails gespeichert werden. + If VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(EMails, hBetreff, hBody, getAbsenderEmail(), False, False, EMails_CC, EMails_BCC, anhaenge) Then Dim txt = " E-Mail gesendet an: " & EMails If EMails_CC.ToString.Trim <> "" Then txt &= " CC: " & EMails_CC @@ -3010,6 +3387,7 @@ Public Class AvisoStatusFunctions Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Case "IMEX" : Return "noreply@imex-group.at" Case "ATILLA" : Return "noreply@verag.ag" + Case "FRONTOFFICE" : Return "noreply@front-office.eu" Case Else : Return "noreply@verag.ag" End Select End Function @@ -3043,6 +3421,20 @@ Public Class AvisoStatusFunctions End If + + + If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorgeschrieben Then + msg = "Dieses LKW-Aviso hat bereits den Status 'Vorgeschrieben'." & vbCrLf & vbCrLf & + "Soll es jetzt trotzdem auf VORBEREITET (zurück)gesetzt werden?" + antwort = MsgBox(msg, CType(MsgBoxStyle.YesNo + MsgBoxStyle.DefaultButton2 + MsgBoxStyle.Question, MsgBoxStyle), + "Status-Änderung") + If antwort = vbNo Then Return False + SQL.doSQL("UPDATE tblSendungen SET tblSnd_Vorgeschrieben=null WHERE tblSnd_Vorgeschrieben is not null AND tblSnd_AvisoID='" & AvisoID & "'", "AVISO") + + End If + + + If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_NichtEingetroffen Then msg = "Dieses LKW-Aviso hat bereits den Status 'LKW nicht eingetroffen'." & vbCrLf & vbCrLf & "Soll es jetzt trotzdem auf VORBEREITET (zurück)gesetzt werden?" @@ -3089,11 +3481,14 @@ Public Class AvisoStatusFunctions Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorbereitet Aviso.Änderungen = "auf VORBEREITET gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm") & vbCrLf & Trim(VarToStr(Aviso.Änderungen)) Aviso.letzterMitarbeiter = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter + Aviso.TeamId = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId Dim tmpid = AvisoDAL.SpeichernAviso(Aviso) AvisoDAL.addAenderung(tmpid, "auf VORBEREITET gesetzt", "auf VORBEREITET gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm")) + SQL.doSQL("UPDATE tblSendungen SET tblSnd_Vorbereitet=getDate() WHERE tblSnd_Vorbereitet IS NULL AND tblSnd_AvisoID='" & AvisoID & "'", "AVISO") + Return (tmpid > 0) End Function @@ -3125,7 +3520,6 @@ Public Class AvisoStatusFunctions Return False End If - If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_NichtEingetroffen Then msg = "Dieses LKW-Aviso hat bereits den Status 'LKW nicht eingetroffen'." & vbCrLf & vbCrLf & "Soll es jetzt trotzdem auf VORGESCHRIEBEN (zurück)gesetzt werden?" @@ -3168,11 +3562,26 @@ Public Class AvisoStatusFunctions Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorgeschrieben Aviso.Änderungen = "auf VORGESCHRIEBEN gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm") & vbCrLf & Trim(VarToStr(Aviso.Änderungen)) Aviso.letzterMitarbeiter = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter + Aviso.TeamId = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId Dim tmpid = AvisoDAL.SpeichernAviso(Aviso) AvisoDAL.addAenderung(tmpid, "auf VORGESCHRIEBEN gesetzt", "auf VORGESCHRIEBEN gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm")) + SQL.doSQL("UPDATE tblSendungen SET tblSnd_Vorgeschrieben=getDate() WHERE tblSnd_Vorgeschrieben IS NULL AND tblSnd_AvisoID='" & AvisoID & "'", "AVISO") + + If VERAG_PROG_ALLGEMEIN.cAllgemein.ABTEILUNG = "" Then + Else + SQL.doSQL("UPDATE tblSendungen SET tblSnd_VG_MA='" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRID & "',LetzterMitarbeiterId='" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRID & "',LetzterMitarbeiter='" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME & "' WHERE tblSnd_VG_MA IS NULL AND tblSnd_AvisoID='" & AvisoID & "'", "AVISO") + End If + + 'Dim SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen) + 'VERAG_PROG_ALLGEMEIN.cSendungen.LOAD_LIST(SENDUNG_LIST, -1, Aviso.AvisoID) + + 'For Each s In SENDUNG_LIST + ' If Not createNLCSimple(Aviso, s) Then haserror = False + 'Next Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Case "VERAG", "ATILLA" + Dim frmInsertVermerkFach As New frmInsertVermerkFach(Aviso.AvisoID) frmInsertVermerkFach.ShowDialog() @@ -3234,6 +3643,7 @@ Public Class AvisoStatusFunctions Aviso.Vorgeschrieben = LeerDatum Aviso.Änderungen = "auf ERFASST gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm") & vbCrLf & Trim(VarToStr(Aviso.Änderungen)) Aviso.letzterMitarbeiter = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter + Aviso.TeamId = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId tmpid = AvisoDAL.SpeichernAviso(Aviso) AvisoDAL.addAenderung(tmpid, "auf ERFASST gesetzt", "auf ERFASST gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm")) @@ -3251,6 +3661,7 @@ Public Class AvisoStatusFunctions Aviso.Vorgeschrieben = LeerDatum Aviso.Änderungen = "auf ERFASST gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm") & vbCrLf & Trim(VarToStr(Aviso.Änderungen)) Aviso.letzterMitarbeiter = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter + Aviso.TeamId = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId tmpid = AvisoDAL.SpeichernAviso(Aviso) AvisoDAL.addAenderung(tmpid, "auf ERFASST gesetzt", "auf ERFASST gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm")) @@ -3268,6 +3679,7 @@ Public Class AvisoStatusFunctions Aviso.Vorgeschrieben = LeerDatum Aviso.Änderungen = "auf ERFASST gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm") & vbCrLf & Trim(VarToStr(Aviso.Änderungen)) Aviso.letzterMitarbeiter = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter + Aviso.TeamId = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId tmpid = AvisoDAL.SpeichernAviso(Aviso) AvisoDAL.addAenderung(tmpid, "auf ERFASST gesetzt", "auf ERFASST gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm")) End If @@ -3435,6 +3847,7 @@ Public Class AvisoStatusFunctions ' If Aviso.Status = VERAG_PROG_ALLGEMEIN.cglobal.Status_Erfasst Then Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_NichtEingetroffen Aviso.letzterMitarbeiter = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter + Aviso.TeamId = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId tmpid = AvisoDAL.SpeichernAviso(Aviso) If geloescht Then @@ -3528,6 +3941,7 @@ Public Class AvisoStatusFunctions If Aviso.Dauer = 0 Then Aviso.Dauer = 1 'Sonderfall, wenn Ankunft und Freigabe hintereinander gedrückt wird (z.b. vergessen) Aviso.Änderungen = "auf FREIGABE gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm") & vbCrLf & Trim(VarToStr(Aviso.Änderungen)) Aviso.letzterMitarbeiter = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter + Aviso.TeamId = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId If Not Aviso.LKW_fertig Then Aviso.LKW_fertig = True Aviso.Änderungen = "LKW ist fertig - nicht gesetzt, deshalb automatisch gesetzt mit FREIGABE" & vbCrLf & Trim(VarToStr(Aviso.Änderungen)) @@ -3569,32 +3983,13 @@ Public Class AvisoStatusFunctions - 'nach dem erfolgreichem Speichern wird jetzt noch ein automatisches Mail für den Frächter und Auftraggeber erstellt SendFreigabeEmail(Aviso) + showFreigabeMsg(Aviso) - Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA - - Case "VERAG", "IMEX" - Try - If IsNumeric(Aviso.Auftraggeber_KdNr) Then - Dim cADMIN As New cADMIN - Dim text = cADMIN.getValueTxtBySql("SELECT DokumenteLKWFreigabe FROM Kunden WHERE KundenNr=" & Aviso.Auftraggeber_KdNr, "FMZOLL") - If text <> "" Then - ' MsgBox("Bitte folgende Dokumente an den Kunden schicken:" & vbNewLine & vbNewLine & text) - - Dim f As New frmDokumenteSchicken - f.rtbDokumente.Text = text - f.ShowDialog() - - End If - End If - Catch ex As Exception - End Try - End Select If True Then @@ -3609,7 +4004,36 @@ Public Class AvisoStatusFunctions Return (tmpid > 0) End Function + Sub showFreigabeMsg(AVISO As VERAG_PROG_ALLGEMEIN.cAviso) + Dim text = "" + Dim text_Freigabe = "" + Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA + Case "ATILLA" + 'Case "VERAG", "IMEX", "IMEX", "IMEX" + Case Else + Try + If IsNumeric(AVISO.Auftraggeber_KdNr) Then + Dim cADMIN As New cADMIN + text = cADMIN.getValueTxtBySql("SELECT DokumenteLKWFreigabe FROM Kunden WHERE KundenNr=" & AVISO.Auftraggeber_KdNr, "FMZOLL") + End If + Catch ex As Exception + End Try + End Select + + If AVISO.Freigabe_Info <> "" Then + text_Freigabe &= AVISO.Freigabe_Info + End If + + If text <> "" Or text_Freigabe <> "" Then + + Dim f As New frmDokumenteSchicken + f.rtbDokumente.Text = text + f.rtbSonstigeInfo.Text = text_Freigabe + + f.ShowDialog() + End If + End Sub Public Sub AUTONACHERFASSUNG(CONTROL As Control, AvisoID As Integer) If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then MsgBox("Keine Berechtigung!") @@ -3628,18 +4052,26 @@ Public Class AvisoStatusFunctions If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FMZollPersID Then Dim Personalnummer = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FMZollPersID - Dim SPEDITIONSBUCH As New VERAG_PROG_ALLGEMEIN.cSpeditionsbuch - Dim ZOLL_IMPORT As New DAKOSY_Worker.cZOLL_IMPORT - Dim notFound As Boolean = True - SPEDITIONSBUCH = ZOLL_IMPORT.IMPORT(SPEDITIONSBUCH, AvisoID, s.tblSnd_SendungID, "", "", "", "", "", notFound, True, Personalnummer) - If ZOLL_IMPORT.checkIfAutoOK Then - SPEDITIONSBUCH.SAVE() - End If + Dim SPEDITIONSBUCH As New VERAG_PROG_ALLGEMEIN.cSpeditionsbuch(s.FilialenNr, s.AbfertigungsNr) + If Not SPEDITIONSBUCH.hasEntry Then + + Dim ZOLL_IMPORT As New DAKOSY_Worker.cZOLL_IMPORT + Dim notFound As Boolean = True + + SPEDITIONSBUCH = ZOLL_IMPORT.IMPORT(SPEDITIONSBUCH, AvisoID, s.tblSnd_SendungID, "", "", "", "", "", notFound, True, Personalnummer) + + If ZOLL_IMPORT.checkIfAutoOK Then + If SPEDITIONSBUCH.SAVE() Then + s.tblSnd_SpeditionsbuchEingetragen = 1 + s.SAVE() + End If + End If - If ZOLL_IMPORT.AUTO_IMPORT(s.tblSnd_SendungID) Then - s.tblSnd_SpeditionsbuchEingetragen = 1 - s.SAVE() End If + 'If ZOLL_IMPORT.AUTO_IMPORT(s.tblSnd_SendungID) Then + ' s.tblSnd_SpeditionsbuchEingetragen = 1 + ' s.SAVE() + 'End If End If End If Next @@ -3688,6 +4120,8 @@ Public Class AvisoStatusFunctions End If 'Status ist Ankunft, Vorbereitet, Vorgeschrieben oder Erfasst - aktiver Mitarbeiter wird geändert Aviso.letzterMitarbeiter = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter + Aviso.TeamId = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId + 'If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG" Then ' If Aviso.Grenzstelle.Replace("???", "") <> "" Then @@ -3699,6 +4133,29 @@ Public Class AvisoStatusFunctions Dim tmpid = AvisoDAL.SpeichernAviso(Aviso) AvisoDAL.addAenderung(tmpid, "Akt übernommen", "Akt übernommen von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm")) + Dim SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen) + VERAG_PROG_ALLGEMEIN.cSendungen.LOAD_LIST(SENDUNG_LIST, -1, AvisoID) 'LÄDT alle SENDUNGSDATEN + + Dim alleAkten = False + For Each s1 In SENDUNG_LIST + If s1.LetzterMitarbeiterId IsNot Nothing AndAlso s1.LetzterMitarbeiterId <> VERAG_PROG_ALLGEMEIN.cAllgemein.USRID Then + Select Case MsgBox("Möchten Sie alle Sendungen übernehmen?", vbYesNoCancel) + Case vbYes : alleAkten = True + Case vbCancel : Return False + End Select + Exit For + End If + Next + + If alleAkten Then + For Each s In SENDUNG_LIST + ' If s.LetzterMitarbeiterId IsNot Nothing Then + SendungUebernehmen(s.tblSnd_SendungID, AvisoID) + ' End If + Next + + End If + Try If frmHauptfenster.pnlDetailsRechts.Controls.Count > 0 Then Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA @@ -3730,7 +4187,117 @@ Public Class AvisoStatusFunctions End Function + Public Function SendungUebernehmen(SendungsId As Integer, AvisoID As Integer, Optional MaId As Integer = -1, Optional GesendetAn As Boolean = False) As Boolean + 'If SendungsId Is Nothing Then Return False + If Not IsNumeric(SendungsId) Then Return False + ' If AvisoID Is Nothing Then Return False + If Not IsNumeric(AvisoID) Then Return False + + Dim SENDUNG_TMP = New VERAG_PROG_ALLGEMEIN.cSendungen(SendungsId) + + Return SendungUebernehmen(SENDUNG_TMP, MaId, GesendetAn) + End Function + + Public Function SendungUebernehmen(ByRef SENDUNG_TMP As VERAG_PROG_ALLGEMEIN.cSendungen, Optional MaId As Integer = -1, Optional GesendetAn As Boolean = False) As Boolean + Dim MITARBEITER As cMitarbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER + If MaId > 0 Then + MITARBEITER = New cMitarbeiter(MaId) + End If + + If SENDUNG_TMP Is Nothing Then Return False + Dim saveSachbearbeiterTmp = SENDUNG_TMP.saveSachbearbeiter + SENDUNG_TMP.saveSachbearbeiter = True + SENDUNG_TMP.LetzterMitarbeiterId = MITARBEITER.mit_id + SENDUNG_TMP.LetzterMitarbeiter = MITARBEITER.Fullname + SENDUNG_TMP.tblSnd_TeamId = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId + + If VERAG_PROG_ALLGEMEIN.cAllgemein.ABTEILUNG = "QS" Then + If (SENDUNG_TMP.tblSnd_QS_MA Is Nothing OrElse SENDUNG_TMP.tblSnd_QS_MA <= 0) Then SENDUNG_TMP.tblSnd_QS_MA = MITARBEITER.mit_id + Else + If (SENDUNG_TMP.tblSnd_VG_MA Is Nothing OrElse SENDUNG_TMP.tblSnd_VG_MA <= 0) Then SENDUNG_TMP.tblSnd_VG_MA = MITARBEITER.mit_id + End If + + If SENDUNG_TMP.SAVE() Then + AvisoDAL.addAenderung(SENDUNG_TMP.tblSnd_AvisoID, "Sendung übernommen", "Sendung Nr. " & SENDUNG_TMP.tblSnd_PosUnterNr & If(GesendetAn, " gesendet an ", " übernommen von ") & MITARBEITER.Fullname & " am " & Format(Now, "dd.MM.yyyy HH:mm") & If(GesendetAn, " (von " & VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.Fullname & ")", "")) + SENDUNG_TMP.saveSachbearbeiter = saveSachbearbeiterTmp + Return True + End If + SENDUNG_TMP.saveSachbearbeiter = saveSachbearbeiterTmp + Return False + End Function + + Public Function setSendungVorgeschrieben(SendungsId, AvisoID) As Boolean + + If SendungsId Is Nothing Then Return False + If Not IsNumeric(SendungsId) Then Return False + If AvisoID Is Nothing Then Return False + If Not IsNumeric(AvisoID) Then Return False + + + Dim SENDUNG_TMP = New VERAG_PROG_ALLGEMEIN.cSendungen(SendungsId) + + SENDUNG_TMP.saveSachbearbeiter = True + + If SENDUNG_TMP.tblSnd_Vorgeschrieben Is Nothing Then + SENDUNG_TMP.tblSnd_VG_MA = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID + SENDUNG_TMP.tblSnd_Vorgeschrieben = Now 'SENDUNG_TMP.tblSnd_Status=VERAG_PROG_ALLGEMEIN.vor ' Status macht keinen Sinn.. + AvisoDAL.addAenderung(AvisoID, "Sendung auf VORGESCHRIEBEN gesetzt", "Sendung '" & SENDUNG_TMP.tblSnd_PosUnterNr & " " & SENDUNG_TMP.tblSnd_Empfaenger & "' auf VORGESCHRIEBEN gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm")) + Else + SENDUNG_TMP.tblSnd_Vorgeschrieben = Nothing + AvisoDAL.addAenderung(AvisoID, "Sendung auf NICHT VORGESCHRIEBEN gesetzt", "Sendung '" & SENDUNG_TMP.tblSnd_PosUnterNr & " " & SENDUNG_TMP.tblSnd_Empfaenger & "' auf NICHT VORGESCHRIEBEN gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm")) + End If + Return SENDUNG_TMP.SAVE() + + End Function + + Public Function setSendungVorbereitetQS(SendungsId, AvisoID) As Boolean + + If SendungsId Is Nothing Then Return False + If Not IsNumeric(SendungsId) Then Return False + If AvisoID Is Nothing Then Return False + If Not IsNumeric(AvisoID) Then Return False + + Dim SENDUNG_TMP = New VERAG_PROG_ALLGEMEIN.cSendungen(SendungsId) + + SENDUNG_TMP.saveSachbearbeiter = True + + If SENDUNG_TMP.tblSnd_Vorbereitet Is Nothing Then + If VERAG_PROG_ALLGEMEIN.cAllgemein.ABTEILUNG = "QS" Then SENDUNG_TMP.tblSnd_QS_MA = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID + SENDUNG_TMP.tblSnd_Vorbereitet = Now 'SENDUNG_TMP.tblSnd_Status=VERAG_PROG_ALLGEMEIN.vor ' Status macht keinen Sinn.. + AvisoDAL.addAenderung(AvisoID, "Sendung auf VORBEREITET gesetzt", "Sendung '" & SENDUNG_TMP.tblSnd_PosUnterNr & " " & SENDUNG_TMP.tblSnd_Empfaenger & "' auf VORBEREITET gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm")) + Else + SENDUNG_TMP.tblSnd_Vorbereitet = Nothing + AvisoDAL.addAenderung(AvisoID, "Sendung auf NICHT VORBEREITET gesetzt", "Sendung '" & SENDUNG_TMP.tblSnd_PosUnterNr & " " & SENDUNG_TMP.tblSnd_Empfaenger & "' auf NICHT VORBEREITET gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm")) + End If + Return SENDUNG_TMP.SAVE() + + End Function + + + Public Function openSnd(sendId, AvisoID) As Form + If sendId Is Nothing Then Return Nothing + If AvisoID Is Nothing Then Return Nothing + If sendId <= 0 Then Return Nothing + If AvisoID <= 0 Then Return Nothing + + For Each openForm In Application.OpenForms() + If TypeOf (openForm) Is frmSendungsdetailsNEU Then + 'MsgBox("Sendungsfenster bereits geöffnet!") + 'CType(openForm, frmSendungsdetailsNEU).BringToFront() + 'Return Nothing + CType(openForm, frmSendungsdetailsNEU).WindowState = FormWindowState.Minimized + CType(openForm, frmSendungsdetailsNEU).Close() + Exit For + End If + Next + + ' Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm() + Dim frmSendungsdetails As New frmSendungsdetailsNEU(AvisoID, sendId) + frmSendungsdetails.Show() 'Dialog() ' frmSendungsdetails.ShowDialog(frmGrayOut) + ' frmGrayOut.Close() + Return frmSendungsdetails + End Function Public Function LKWFertig(AvisoID) As Boolean If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then @@ -3765,6 +4332,7 @@ Public Class AvisoStatusFunctions 'Status ist Ankunft - LKW wird je nach Eintrag auf Fertig/nicht fertig gesetzt Aviso.letzterMitarbeiter = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter + Aviso.TeamId = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId Dim hVermerk As New cVermerk 'bei Fertig zusätzlich einen Vermerk setzen hVermerk.AvisoID = Aviso.AvisoID hVermerk.Datum = Now @@ -3993,64 +4561,71 @@ Public Class AvisoStatusFunctions Dim SendungslistTXT = "" SendungslistTXT &= "Sendungsliste:
" SendungslistTXT &= "" - SendungslistTXT &= "" + If VERAG_PROG_ALLGEMEIN.cAllgemein.isCLUSTER Then + SendungslistTXT &= "" + Else + SendungslistTXT &= "" + End If Dim cnt = 1 - For Each s In SENDUNG_LIST - If s.tblSnd_Abfertigungsart_ID <> 9 And isKdInSendData(KUNDE_ERW, AVISO, s) Then + For Each s In SENDUNG_LIST + If s.tblSnd_Abfertigungsart_ID <> 9 And isKdInSendData(KUNDE_ERW, AVISO, s) Then - Dim AtcMrn = "" - Dim DsId = "" - Dim frist = "" - Dim found = False - Select Case s.tblSnd_Abfertigungsart_ID - Case 5, 6 - getDataFronDY_NCTS(s.tblSnd_SendungID, AtcMrn, frist, DsId, s.FilialenNr, s.AbfertigungsNr) - If KUNDE_ERW.EmailFreigabe_VBDPDF And IsNumeric(DsId) Then 'VBD anhängen - Try - Dim PathTmp = (New VERAG_PROG_ALLGEMEIN.cDATENSERVER(DsId)).GET_TOP1_PATH(False) - If PathTmp <> "" Then anhaenge.Add(PathTmp) : found = True - Catch ex As Exception : MsgBox(ex.Message & ex.StackTrace) : End Try - If Not found Then - AvisoStatusFunctions.insertSendungsVermerk(s.tblSnd_SendungID, AVISO.AvisoID, "ERR: VBD nicht gefunden: " & s.FilialenNr & "/" & s.AbfertigungsNr, 47) - 'AvisoStatusFunctions.insertVermerkAllg(AVISO.AvisoID, "ERR: VBD nicht gefunden: " & s.FilialenNr & "/" & s.AbfertigungsNr, 46, , "(AUTO)") - MsgBox("ACHTUNG: Das Versandbegleitdokument konnte nicht automatisiert ermittelt werden." & vbNewLine & "Bitte dem Kunden das VBD per E-Mail zustellen!" & vbNewLine & vbNewLine & "Sendung: " & s.FilialenNr & "/" & s.AbfertigungsNr) - End If - End If - Case Else - getDataFronDY_EZA(s.tblSnd_SendungID, AtcMrn, DsId, s.FilialenNr, s.AbfertigungsNr) - If s.tblSnd_Abfertigungsart_ID = 23 Then - If If(s.tblSnd_ATCMRN_Fremd, "") <> "" Then AtcMrn = s.tblSnd_ATCMRN_Fremd - End If - If KUNDE_ERW.EmailFreigabe_SteuerbescheidPDF And IsNumeric(DsId) Then 'Steuerbescheid anhängen - If checkSteuerbescheidbedingung(KundenNr, DsId) Then + Dim AtcMrn = "" + Dim DsId = "" + Dim frist = "" + Dim found = False + Select Case s.tblSnd_Abfertigungsart_ID + Case 5, 6 + getDataFronDY_NCTS(s.tblSnd_SendungID, AtcMrn, frist, DsId, s.FilialenNr, s.AbfertigungsNr) + If KUNDE_ERW.EmailFreigabe_VBDPDF And IsNumeric(DsId) Then 'VBD anhängen Try Dim PathTmp = (New VERAG_PROG_ALLGEMEIN.cDATENSERVER(DsId)).GET_TOP1_PATH(False) - anhaenge.Add(PathTmp) : found = True + If PathTmp <> "" Then anhaenge.Add(PathTmp) : found = True Catch ex As Exception : MsgBox(ex.Message & ex.StackTrace) : End Try If Not found Then - AvisoStatusFunctions.insertSendungsVermerk(s.tblSnd_SendungID, AVISO.AvisoID, "ERR: Steuerbescheid nicht gefunden: " & s.FilialenNr & "/" & s.AbfertigungsNr, 47) - ' AvisoStatusFunctions.insertVermerkAllg(AVISO.AvisoID, "ERR: Steuerbescheid nicht gefunden: " & s.FilialenNr & "/" & s.AbfertigungsNr, 46, , "(AUTO)") - MsgBox("ACHTUNG: Der Steuerbescheid konnte nicht automatisiert ermittelt werden." & vbNewLine & "Bitte dem Kunden den Steuerbescheid per E-Mail zustellen!" & vbNewLine & vbNewLine & "Sendung: " & s.FilialenNr & "/" & s.AbfertigungsNr) + AvisoStatusFunctions.insertSendungsVermerk(s.tblSnd_SendungID, AVISO.AvisoID, "ERR: VBD nicht gefunden: " & s.FilialenNr & "/" & s.AbfertigungsNr, 47) + 'AvisoStatusFunctions.insertVermerkAllg(AVISO.AvisoID, "ERR: VBD nicht gefunden: " & s.FilialenNr & "/" & s.AbfertigungsNr, 46, , "(AUTO)") + MsgBox("ACHTUNG: Das Versandbegleitdokument konnte nicht automatisiert ermittelt werden." & vbNewLine & "Bitte dem Kunden das VBD per E-Mail zustellen!" & vbNewLine & vbNewLine & "Sendung: " & s.FilialenNr & "/" & s.AbfertigungsNr) End If End If - End If - End Select - If IsDate(frist) Then frist = CDate(frist).ToShortDateString + Case Else + getDataFronDY_EZA(s.tblSnd_SendungID, AtcMrn, DsId, s.FilialenNr, s.AbfertigungsNr) + If s.tblSnd_Abfertigungsart_ID = 23 Then + If If(s.tblSnd_ATCMRN_Fremd, "") <> "" Then AtcMrn = s.tblSnd_ATCMRN_Fremd + End If + If KUNDE_ERW.EmailFreigabe_SteuerbescheidPDF And IsNumeric(DsId) Then 'Steuerbescheid anhängen + If checkSteuerbescheidbedingung(KundenNr, DsId) Then + Try + Dim PathTmp = (New VERAG_PROG_ALLGEMEIN.cDATENSERVER(DsId)).GET_TOP1_PATH(False) + anhaenge.Add(PathTmp) : found = True + Catch ex As Exception : MsgBox(ex.Message & ex.StackTrace) : End Try + If Not found Then + AvisoStatusFunctions.insertSendungsVermerk(s.tblSnd_SendungID, AVISO.AvisoID, "ERR: Steuerbescheid nicht gefunden: " & s.FilialenNr & "/" & s.AbfertigungsNr, 47) + ' AvisoStatusFunctions.insertVermerkAllg(AVISO.AvisoID, "ERR: Steuerbescheid nicht gefunden: " & s.FilialenNr & "/" & s.AbfertigungsNr, 46, , "(AUTO)") + MsgBox("ACHTUNG: Der Steuerbescheid konnte nicht automatisiert ermittelt werden." & vbNewLine & "Bitte dem Kunden den Steuerbescheid per E-Mail zustellen!" & vbNewLine & vbNewLine & "Sendung: " & s.FilialenNr & "/" & s.AbfertigungsNr) + End If + End If + End If + End Select + If IsDate(frist) Then frist = CDate(frist).ToShortDateString - SendungslistTXT &= " " + Dim txtCluster = "" + If VERAG_PROG_ALLGEMEIN.cAllgemein.isCLUSTER Then txtCluster = "" + + SendungslistTXT &= "" & txtCluster & " " cnt += 1 - End If - Next + End If + Next - SendungslistTXT &= "
Nr. PosNr Art Empfänger ATC/MRN Frist (T1/T2)
Nr. Spedition PosNr Art Empfänger ATC/MRN Frist (T1/T2)
Nr. PosNr Art Empfänger ATC/MRN Frist (T1/T2)
" & cnt & "" & If(s.FilialenNr > 0, s.FilialenNr, "") & "/" & If(s.AbfertigungsNr > 0, s.AbfertigungsNr, "") & "" & getAbfertBez(s) & "" & If(s.tblSnd_Empfaenger, "") & "" & AtcMrn & "" & frist & "
" & VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(s.FilialenNr, False) & "
" & cnt & "" & If(s.FilialenNr > 0, s.FilialenNr, "") & "/" & If(s.AbfertigungsNr > 0, s.AbfertigungsNr, "") & "" & getAbfertBez(s) & "" & If(s.tblSnd_Empfaenger, "") & "" & AtcMrn & "" & frist & "
" - SendungslistTXT &= "

" - If cnt = 1 Then ' wurde nicht erhöht -> keine Einträge - SendungslistTXT = "" + SendungslistTXT &= "" + SendungslistTXT &= "

" + If cnt = 1 Then ' wurde nicht erhöht -> keine Einträge + SendungslistTXT = "" + End If + If KUNDE_ERW.EmailFreigabeSendungsListe Then hText = hText.Replace("%Platzhalter%", SendungslistTXT) End If - If KUNDE_ERW.EmailFreigabeSendungsListe Then hText = hText.Replace("%Platzhalter%", SendungslistTXT) End If - End If hText = hText.Replace("%Platzhalter%", "") @@ -4240,17 +4815,20 @@ Public Class AvisoStatusFunctions 'For Each frm As Form In Application.OpenForms.Item("frmKundenUebersichtZOLL") Is Nothing For Each openForm In Application.OpenForms() - If TypeOf (openForm) Is SDL.frmKundenUebersichtZOLL Then _ - CType(openForm, SDL.frmKundenUebersichtZOLL).BringToFront() - Next - If False Then - - If Not Application.OpenForms.Item("frmKundenUebersichtZOLL") Is Nothing Then - Application.OpenForms.Item("frmKundenUebersichtZOLL").BringToFront() + If TypeOf (openForm) Is SDL.frmKundenUebersichtZOLL Then + CType(openForm, SDL.frmKundenUebersichtZOLL).BringToFront() + CType(openForm, SDL.frmKundenUebersichtZOLL).KdSearchBox1.KdNr = kdnr Exit Sub End If - End If - ' Next + Next + 'If False Then + + ' If Not Application.OpenForms.Item("frmKundenUebersichtZOLL") Is Nothing Then + ' Application.OpenForms.Item("frmKundenUebersichtZOLL").BringToFront() + ' Exit Sub + ' End If + 'End If + '' Next Dim zoll As New SDL.frmKundenUebersichtZOLL(kdnr) zoll.Show() End Sub diff --git a/Aviso/frmInsertVermerkFach.Designer.vb b/Aviso/frmInsertVermerkFach.Designer.vb index b28f82c..514aa78 100644 --- a/Aviso/frmInsertVermerkFach.Designer.vb +++ b/Aviso/frmInsertVermerkFach.Designer.vb @@ -23,6 +23,7 @@ Partial Class frmInsertVermerkFach _ 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 diff --git a/Aviso/frmInsertVermerkFach.vb b/Aviso/frmInsertVermerkFach.vb index 747a41b..08687fb 100644 --- a/Aviso/frmInsertVermerkFach.vb +++ b/Aviso/frmInsertVermerkFach.vb @@ -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 diff --git a/Aviso/frmLKWBericht.vb b/Aviso/frmLKWBericht.vb index 9353304..777dded 100644 --- a/Aviso/frmLKWBericht.vb +++ b/Aviso/frmLKWBericht.vb @@ -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 diff --git a/Aviso/frmLogin.vb b/Aviso/frmLogin.vb index 72be963..1a1bdde 100644 --- a/Aviso/frmLogin.vb +++ b/Aviso/frmLogin.vb @@ -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 diff --git a/Aviso/frmSendungsdetailsNEU.Designer.vb b/Aviso/frmSendungsdetailsNEU.Designer.vb index ae4908c..4971d74 100644 --- a/Aviso/frmSendungsdetailsNEU.Designer.vb +++ b/Aviso/frmSendungsdetailsNEU.Designer.vb @@ -24,18 +24,33 @@ Partial Class frmSendungsdetailsNEU Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container() Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmSendungsdetailsNEU)) - 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 DataGridViewCellStyle12 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle18 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle19 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle20 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle21 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle22 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Me.pnl = New System.Windows.Forms.Panel() Me.Panel4 = New System.Windows.Forms.Panel() Me.TabControl1 = New System.Windows.Forms.TabControl() + Me.tbAnhang = New System.Windows.Forms.TabPage() + Me.cntxtAnh = New System.Windows.Forms.ContextMenuStrip(Me.components) + Me.MarkiertePDFsDruckenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.EMailAnfügenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.KopierenZwischenablageToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.LaufzetteldruckJANEINToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.Panel19 = New System.Windows.Forms.Panel() + Me.Button23 = New System.Windows.Forms.Button() + Me.Button22 = New System.Windows.Forms.Button() + Me.Button20 = New System.Windows.Forms.Button() + Me.Button19 = New System.Windows.Forms.Button() + Me.Button18 = New System.Windows.Forms.Button() + Me.Label52 = New System.Windows.Forms.Label() + Me.tbKundenInfo = New System.Windows.Forms.TabPage() + Me.pnlKundenInfo = New System.Windows.Forms.Panel() + Me.Panel20 = New System.Windows.Forms.Panel() Me.tbZollabfertigung = New System.Windows.Forms.TabPage() Me.Panel16 = New System.Windows.Forms.Panel() - Me.dgvZollAnmeldungen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) Me.Panel17 = New System.Windows.Forms.Panel() Me.Button6 = New System.Windows.Forms.Button() Me.Button5 = New System.Windows.Forms.Button() @@ -54,9 +69,7 @@ Partial Class frmSendungsdetailsNEU Me.lblBitteEinenEmpfangerAuswahlenUmDenKundenZolltarifEinzublenden = New System.Windows.Forms.Label() Me.Panel18 = New System.Windows.Forms.Panel() Me.Label5 = New System.Windows.Forms.Label() - Me.cboZolltarif = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.TabPage2 = New System.Windows.Forms.TabPage() - Me.DataGridView = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) Me.pnlSpedBuchNacherfassung = New System.Windows.Forms.Panel() Me.cbxOhneZollsys = New System.Windows.Forms.CheckBox() Me.Label31 = New System.Windows.Forms.Label() @@ -64,17 +77,10 @@ Partial Class frmSendungsdetailsNEU Me.pnlHandling = New System.Windows.Forms.FlowLayoutPanel() Me.cbxNCTST = New System.Windows.Forms.CheckBox() Me.Label32 = New System.Windows.Forms.Label() - Me.cboSachbearbeiter = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.cboZollsystem2 = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.txtAtlasBezNrEZA2 = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtAtlasBezNrNCTS2 = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label30 = New System.Windows.Forms.Label() Me.cboNiederlassung = New System.Windows.Forms.ComboBox() Me.Label56 = New System.Windows.Forms.Label() Me.lblZollsysErr = New System.Windows.Forms.Label() - Me.cboZollsystem = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.txtAtlasBezNrEZA = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtAtlasBezNrNCTS = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label29 = New System.Windows.Forms.Label() Me.Label50 = New System.Windows.Forms.Label() Me.Label51 = New System.Windows.Forms.Label() @@ -82,27 +88,12 @@ Partial Class frmSendungsdetailsNEU Me.Button7 = New System.Windows.Forms.Button() Me.TabPage3 = New System.Windows.Forms.TabPage() Me.gridVermerke = New System.Windows.Forms.DataGridView() - Me.tbAnhang = New System.Windows.Forms.TabPage() - Me.dgvAnhang = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) - Me.cntxtAnh = New System.Windows.Forms.ContextMenuStrip(Me.components) - Me.MarkiertePDFsDruckenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() - Me.EMailAnfügenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() - Me.KopierenZwischenablageToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() - Me.Panel19 = New System.Windows.Forms.Panel() - Me.Button23 = New System.Windows.Forms.Button() - Me.Button22 = New System.Windows.Forms.Button() - Me.Button20 = New System.Windows.Forms.Button() - Me.Button19 = New System.Windows.Forms.Button() - Me.Button18 = New System.Windows.Forms.Button() - Me.Label52 = New System.Windows.Forms.Label() Me.Panel14 = New System.Windows.Forms.Panel() Me.pnlDetails = New System.Windows.Forms.Panel() Me.tbcntr = New System.Windows.Forms.TabControl() Me.TabPage4 = New System.Windows.Forms.TabPage() Me.cbx = New System.Windows.Forms.CheckBox() - Me.txtWarenwertWaehrung = New VERAG_PROG_ALLGEMEIN.MySearchBox() Me.Label33 = New System.Windows.Forms.Label() - Me.txtWarenwert = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Button21 = New System.Windows.Forms.Button() Me.Label10 = New System.Windows.Forms.Label() Me.rtbAnmerkungDispoliste = New System.Windows.Forms.RichTextBox() @@ -110,23 +101,18 @@ Partial Class frmSendungsdetailsNEU Me.btnVorauszahlung = New System.Windows.Forms.Button() Me.Button14 = New System.Windows.Forms.Button() Me.Button12 = New System.Windows.Forms.Button() - Me.txtGewicht = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtBARzuKassieren = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label19 = New System.Windows.Forms.Label() Me.Label35 = New System.Windows.Forms.Label() Me.Label34 = New System.Windows.Forms.Label() Me.Label17 = New System.Windows.Forms.Label() Me.Button3 = New System.Windows.Forms.Button() Me.Button8 = New System.Windows.Forms.Button() - Me.txtColli = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.rtbWarenbezeichnung = New System.Windows.Forms.RichTextBox() Me.Label23 = New System.Windows.Forms.Label() Me.Label24 = New System.Windows.Forms.Label() Me.Label12 = New System.Windows.Forms.Label() - Me.cboPrinter = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.rtbAnmerkung = New System.Windows.Forms.RichTextBox() Me.TabPage5 = New System.Windows.Forms.TabPage() - Me.dgvBelege = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) Me.Button9 = New System.Windows.Forms.Button() Me.btnKassenbuchEintrag = New System.Windows.Forms.Button() Me.btnLeihgeld = New System.Windows.Forms.Button() @@ -141,80 +127,34 @@ Partial Class frmSendungsdetailsNEU Me.Button16 = New System.Windows.Forms.Button() Me.Button15 = New System.Windows.Forms.Button() Me.Button11 = New System.Windows.Forms.Button() - Me.txtKdAuftragsNrFrachtfuehrer = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtKdAuftragsNrEmpfaenger = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtKdAuftragsNrAvisierer = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.cntxt = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.KdAuftragsNrInAlleSendungenÜbernehmenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.Label21 = New System.Windows.Forms.Label() - Me.FlatButton4 = New VERAG_PROG_ALLGEMEIN.FlatButton() - Me.FlatButton1 = New VERAG_PROG_ALLGEMEIN.FlatButton() - Me.btnFrachtfuehrer = New VERAG_PROG_ALLGEMEIN.FlatButton() - Me.FlatButton3 = New VERAG_PROG_ALLGEMEIN.FlatButton() - Me.btnAvisierer = New VERAG_PROG_ALLGEMEIN.FlatButton() Me.Button4 = New System.Windows.Forms.Button() Me.Button1 = New System.Windows.Forms.Button() - Me.cntlFrachtfuehrer_Sonst = New AVISO.usrcntlCheckBox() - Me.cntlAbsender_Sonst = New AVISO.usrcntlCheckBox() - Me.cntlEmpfaenger_Sonst = New AVISO.usrcntlCheckBox() - Me.cntlAuftraggeber_Sonst = New AVISO.usrcntlCheckBox() - Me.cntlAvisierer_Sonst = New AVISO.usrcntlCheckBox() Me.Label4 = New System.Windows.Forms.Label() Me.btnAufschub_Atr = New System.Windows.Forms.Button() Me.btnAufschub_Empf = New System.Windows.Forms.Button() Me.btnAufschub_VERAG = New System.Windows.Forms.Button() - Me.cntlFrachtf_Clear = New AVISO.usrcntlCheckBox() - Me.cntlFrachtf_Abf = New AVISO.usrcntlCheckBox() - Me.cntlFrachtf_Eust = New AVISO.usrcntlCheckBox() - Me.cntlFrachtf_Zoll = New AVISO.usrcntlCheckBox() - Me.cntlAbsender_Clear = New AVISO.usrcntlCheckBox() - Me.cntlAbsender_Abf = New AVISO.usrcntlCheckBox() - Me.cntlAbsender_Eust = New AVISO.usrcntlCheckBox() - Me.cntlAbsender_Zoll = New AVISO.usrcntlCheckBox() - Me.cntlEmpf_Clear = New AVISO.usrcntlCheckBox() - Me.cntlEmpf_Abf = New AVISO.usrcntlCheckBox() - Me.cntlEmpf_Eust = New AVISO.usrcntlCheckBox() - Me.cntlEmpf_Zoll = New AVISO.usrcntlCheckBox() - Me.cntlAuftr_Clear = New AVISO.usrcntlCheckBox() - Me.cntlAuftr_Abf = New AVISO.usrcntlCheckBox() - Me.cntlAuftr_Eust = New AVISO.usrcntlCheckBox() - Me.cntlAuftr_Zoll = New AVISO.usrcntlCheckBox() - Me.cntlAvisierer_Clear = New AVISO.usrcntlCheckBox() - Me.cntlAvisierer_Abf = New AVISO.usrcntlCheckBox() - Me.cntlAvisierer_Eust = New AVISO.usrcntlCheckBox() - Me.cntlAvisierer_Zoll = New AVISO.usrcntlCheckBox() Me.Panel15 = New System.Windows.Forms.Panel() - Me.txtAvisierer = New VERAG_PROG_ALLGEMEIN.KdSearchBox() - Me.txtAuftraggeber = New VERAG_PROG_ALLGEMEIN.KdSearchBox() Me.Panel13 = New System.Windows.Forms.Panel() Me.Panel12 = New System.Windows.Forms.Panel() Me.Panel11 = New System.Windows.Forms.Panel() Me.Panel10 = New System.Windows.Forms.Panel() - Me.txtFrachtfuehrerKdNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Panel8 = New System.Windows.Forms.Panel() Me.lblEmpfAufschubEustTxt = New System.Windows.Forms.Label() - Me.lblEmpfAufschubEust = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label42 = New System.Windows.Forms.Label() Me.pnlT1 = New System.Windows.Forms.Panel() - Me.UsrCntlSND_NCTSGestellungsadresse1 = New AVISO.usrCntlSND_NCTSGestellungsadresse() Me.Label43 = New System.Windows.Forms.Label() - Me.txtFrachtfuehrer = New VERAG_PROG_ALLGEMEIN.KdSearchBox() Me.Label40 = New System.Windows.Forms.Label() - Me.txtAbsenderKdNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label41 = New System.Windows.Forms.Label() - Me.MyTextBox1 = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label38 = New System.Windows.Forms.Label() Me.Label39 = New System.Windows.Forms.Label() - Me.txtEmpfaengerKdNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtAbsender = New VERAG_PROG_ALLGEMEIN.KdSearchBox() - Me.txtEmpfaenger = New VERAG_PROG_ALLGEMEIN.KdSearchBox() Me.Label28 = New System.Windows.Forms.Label() Me.Label37 = New System.Windows.Forms.Label() - Me.lblAtrAufschubEust = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label27 = New System.Windows.Forms.Label() Me.Label36 = New System.Windows.Forms.Label() Me.Label20 = New System.Windows.Forms.Label() - Me.txtAuftraggeberKdNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label18 = New System.Windows.Forms.Label() Me.Label6 = New System.Windows.Forms.Label() Me.Label26 = New System.Windows.Forms.Label() @@ -223,8 +163,6 @@ Partial Class frmSendungsdetailsNEU Me.LinkLabel2 = New System.Windows.Forms.LinkLabel() Me.lklAuftraggeber = New System.Windows.Forms.LinkLabel() Me.Label8 = New System.Windows.Forms.Label() - Me.txtAvisiererKdNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtKdAuftragsNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Panel5 = New System.Windows.Forms.Panel() Me.lblAbfNrExists = New System.Windows.Forms.Label() Me.cbxFremdspedition = New System.Windows.Forms.CheckBox() @@ -233,26 +171,17 @@ Partial Class frmSendungsdetailsNEU Me.Button13 = New System.Windows.Forms.Button() Me.lblSendungen = New System.Windows.Forms.Label() Me.Label3 = New System.Windows.Forms.Label() - Me.cboAbfertigungsart = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.Label1 = New System.Windows.Forms.Label() Me.pnlFremd = New System.Windows.Forms.Panel() Me.Label9 = New System.Windows.Forms.Label() - Me.txtFremdEmpfKdNR = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtFremdEmpf = New VERAG_PROG_ALLGEMEIN.KdSearchBox() Me.Label11 = New System.Windows.Forms.Label() - Me.cboFremdsped = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.txtAnzahl = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.lblAnzahl = New System.Windows.Forms.Label() Me.btnNeueAbfertigungNrVergeben = New System.Windows.Forms.Button() Me.Label14 = New System.Windows.Forms.Label() - Me.txtUnterNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label13 = New System.Windows.Forms.Label() Me.Label7 = New System.Windows.Forms.Label() - Me.cboFiliale = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.txtAbfertigungsnummer = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Panel2 = New System.Windows.Forms.Panel() Me.FlowLayoutPanel = New System.Windows.Forms.FlowLayoutPanel() - Me.FlatButton2 = New VERAG_PROG_ALLGEMEIN.FlatButton() Me.pnlheader = New System.Windows.Forms.Panel() Me.Label2 = New System.Windows.Forms.Label() Me.Panel7 = New System.Windows.Forms.Panel() @@ -271,7 +200,6 @@ Partial Class frmSendungsdetailsNEU Me.Button10 = New System.Windows.Forms.Button() Me.Button2 = New System.Windows.Forms.Button() Me.btn = New System.Windows.Forms.Button() - Me.cbxSpedBuch = New VERAG_PROG_ALLGEMEIN.MyCheckbox(Me.components) Me.ToolStripMenuItem3 = New System.Windows.Forms.ToolStripMenuItem() Me.ToolStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem() Me.ToolStripMenuItem4 = New System.Windows.Forms.ToolStripMenuItem() @@ -307,34 +235,109 @@ Partial Class frmSendungsdetailsNEU Me.LaufzettelDruckenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.ToolStripMenuItem15 = New System.Windows.Forms.ToolStripMenuItem() + Me.SpeditionSUBENToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.ToolStripMenuItem14 = New System.Windows.Forms.ToolStripMenuItem() Me.NurÖffnenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.dgvAnhang = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) + Me.dgvZollAnmeldungen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) + Me.cboZolltarif = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.DataGridView = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) + Me.cboSachbearbeiter = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.cboZollsystem2 = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.txtAtlasBezNrEZA2 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtAtlasBezNrNCTS2 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.cboZollsystem = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.txtAtlasBezNrEZA = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtAtlasBezNrNCTS = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtWarenwertWaehrung = New VERAG_PROG_ALLGEMEIN.MySearchBox() + Me.txtWarenwert = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtGewicht = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtBARzuKassieren = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtColli = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.cboPrinter = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.dgvBelege = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) + Me.txtKdAuftragsNrFrachtfuehrer = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtKdAuftragsNrEmpfaenger = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtKdAuftragsNrAvisierer = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.FlatButton4 = New VERAG_PROG_ALLGEMEIN.FlatButton() + Me.FlatButton1 = New VERAG_PROG_ALLGEMEIN.FlatButton() + Me.btnFrachtfuehrer = New VERAG_PROG_ALLGEMEIN.FlatButton() + Me.FlatButton3 = New VERAG_PROG_ALLGEMEIN.FlatButton() + Me.btnAvisierer = New VERAG_PROG_ALLGEMEIN.FlatButton() + Me.txtAvisierer = New VERAG_PROG_ALLGEMEIN.KdSearchBox() + Me.txtAuftraggeber = New VERAG_PROG_ALLGEMEIN.KdSearchBox() + Me.txtFrachtfuehrerKdNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.lblEmpfAufschubEust = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtFrachtfuehrer = New VERAG_PROG_ALLGEMEIN.KdSearchBox() + Me.txtAbsenderKdNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.MyTextBox1 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtEmpfaengerKdNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtAbsender = New VERAG_PROG_ALLGEMEIN.KdSearchBox() + Me.txtEmpfaenger = New VERAG_PROG_ALLGEMEIN.KdSearchBox() + Me.lblAtrAufschubEust = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtAuftraggeberKdNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtAvisiererKdNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtKdAuftragsNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.cboAbfertigungsart = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.txtFremdEmpfKdNR = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtFremdEmpf = New VERAG_PROG_ALLGEMEIN.KdSearchBox() + Me.cboFremdsped = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.txtAnzahl = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtUnterNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.cboFiliale = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.txtAbfertigungsnummer = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.FlatButton2 = New VERAG_PROG_ALLGEMEIN.FlatButton() + Me.cbxSpedBuch = New VERAG_PROG_ALLGEMEIN.MyCheckbox(Me.components) + Me.cntlFrachtfuehrer_Sonst = New AVISO.usrcntlCheckBox() + Me.cntlAbsender_Sonst = New AVISO.usrcntlCheckBox() + Me.cntlEmpfaenger_Sonst = New AVISO.usrcntlCheckBox() + Me.cntlAuftraggeber_Sonst = New AVISO.usrcntlCheckBox() + Me.cntlAvisierer_Sonst = New AVISO.usrcntlCheckBox() + Me.cntlFrachtf_Clear = New AVISO.usrcntlCheckBox() + Me.cntlFrachtf_Abf = New AVISO.usrcntlCheckBox() + Me.cntlFrachtf_Eust = New AVISO.usrcntlCheckBox() + Me.cntlFrachtf_Zoll = New AVISO.usrcntlCheckBox() + Me.cntlAbsender_Clear = New AVISO.usrcntlCheckBox() + Me.cntlAbsender_Abf = New AVISO.usrcntlCheckBox() + Me.cntlAbsender_Eust = New AVISO.usrcntlCheckBox() + Me.cntlAbsender_Zoll = New AVISO.usrcntlCheckBox() + Me.cntlEmpf_Clear = New AVISO.usrcntlCheckBox() + Me.cntlEmpf_Abf = New AVISO.usrcntlCheckBox() + Me.cntlEmpf_Eust = New AVISO.usrcntlCheckBox() + Me.cntlEmpf_Zoll = New AVISO.usrcntlCheckBox() + Me.cntlAuftr_Clear = New AVISO.usrcntlCheckBox() + Me.cntlAuftr_Abf = New AVISO.usrcntlCheckBox() + Me.cntlAuftr_Eust = New AVISO.usrcntlCheckBox() + Me.cntlAuftr_Zoll = New AVISO.usrcntlCheckBox() + Me.cntlAvisierer_Clear = New AVISO.usrcntlCheckBox() + Me.cntlAvisierer_Abf = New AVISO.usrcntlCheckBox() + Me.cntlAvisierer_Eust = New AVISO.usrcntlCheckBox() + Me.cntlAvisierer_Zoll = New AVISO.usrcntlCheckBox() + Me.UsrCntlSND_NCTSGestellungsadresse1 = New AVISO.usrCntlSND_NCTSGestellungsadresse() + Me.LinkLabel4 = New System.Windows.Forms.LinkLabel() Me.pnl.SuspendLayout() Me.Panel4.SuspendLayout() Me.TabControl1.SuspendLayout() + Me.tbAnhang.SuspendLayout() + Me.cntxtAnh.SuspendLayout() + Me.Panel19.SuspendLayout() + Me.tbKundenInfo.SuspendLayout() Me.tbZollabfertigung.SuspendLayout() Me.Panel16.SuspendLayout() - CType(Me.dgvZollAnmeldungen, System.ComponentModel.ISupportInitialize).BeginInit() Me.Panel17.SuspendLayout() Me.MenuStrip.SuspendLayout() Me.TabPage1.SuspendLayout() Me.pnlKundenZolltarif.SuspendLayout() Me.Panel18.SuspendLayout() Me.TabPage2.SuspendLayout() - CType(Me.DataGridView, System.ComponentModel.ISupportInitialize).BeginInit() Me.pnlSpedBuchNacherfassung.SuspendLayout() Me.TabPage3.SuspendLayout() CType(Me.gridVermerke, System.ComponentModel.ISupportInitialize).BeginInit() - Me.tbAnhang.SuspendLayout() - CType(Me.dgvAnhang, System.ComponentModel.ISupportInitialize).BeginInit() - Me.cntxtAnh.SuspendLayout() - Me.Panel19.SuspendLayout() Me.pnlDetails.SuspendLayout() Me.tbcntr.SuspendLayout() Me.TabPage4.SuspendLayout() Me.TabPage5.SuspendLayout() - CType(Me.dgvBelege, System.ComponentModel.ISupportInitialize).BeginInit() Me.Panel6.SuspendLayout() CType(Me.picDy, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.picWarnFrachtfuehrer, System.ComponentModel.ISupportInitialize).BeginInit() @@ -358,6 +361,10 @@ Partial Class frmSendungsdetailsNEU Me.ctxtWeitereFormulare.SuspendLayout() Me.ContextMenuStrip1.SuspendLayout() Me.ContextMenuStrip2.SuspendLayout() + CType(Me.dgvAnhang, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.dgvZollAnmeldungen, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DataGridView, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.dgvBelege, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' 'pnl @@ -371,7 +378,7 @@ Partial Class frmSendungsdetailsNEU 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(1112, 863) + Me.pnl.Size = New System.Drawing.Size(1214, 863) Me.pnl.TabIndex = 0 ' 'Panel4 @@ -381,29 +388,196 @@ Partial Class frmSendungsdetailsNEU Me.Panel4.Dock = System.Windows.Forms.DockStyle.Fill Me.Panel4.Location = New System.Drawing.Point(0, 419) Me.Panel4.Name = "Panel4" - Me.Panel4.Size = New System.Drawing.Size(1112, 380) + Me.Panel4.Size = New System.Drawing.Size(1214, 380) Me.Panel4.TabIndex = 2 ' 'TabControl1 ' + Me.TabControl1.Controls.Add(Me.tbAnhang) + Me.TabControl1.Controls.Add(Me.tbKundenInfo) Me.TabControl1.Controls.Add(Me.tbZollabfertigung) Me.TabControl1.Controls.Add(Me.TabPage1) Me.TabControl1.Controls.Add(Me.TabPage2) Me.TabControl1.Controls.Add(Me.TabPage3) - Me.TabControl1.Controls.Add(Me.tbAnhang) Me.TabControl1.Dock = System.Windows.Forms.DockStyle.Fill Me.TabControl1.Location = New System.Drawing.Point(0, 5) Me.TabControl1.Name = "TabControl1" Me.TabControl1.SelectedIndex = 0 - Me.TabControl1.Size = New System.Drawing.Size(1112, 375) + Me.TabControl1.Size = New System.Drawing.Size(1214, 375) Me.TabControl1.TabIndex = 1 ' + 'tbAnhang + ' + Me.tbAnhang.Controls.Add(Me.dgvAnhang) + Me.tbAnhang.Controls.Add(Me.Panel19) + Me.tbAnhang.Location = New System.Drawing.Point(4, 22) + Me.tbAnhang.Name = "tbAnhang" + Me.tbAnhang.Size = New System.Drawing.Size(1206, 349) + Me.tbAnhang.TabIndex = 4 + Me.tbAnhang.Text = "Anhang" + Me.tbAnhang.UseVisualStyleBackColor = True + ' + 'cntxtAnh + ' + Me.cntxtAnh.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.MarkiertePDFsDruckenToolStripMenuItem, Me.EMailAnfügenToolStripMenuItem, Me.KopierenZwischenablageToolStripMenuItem, Me.LaufzetteldruckJANEINToolStripMenuItem}) + Me.cntxtAnh.Name = "cntxtAnh" + Me.cntxtAnh.Size = New System.Drawing.Size(218, 92) + ' + 'MarkiertePDFsDruckenToolStripMenuItem + ' + Me.MarkiertePDFsDruckenToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.pdfprint + Me.MarkiertePDFsDruckenToolStripMenuItem.Name = "MarkiertePDFsDruckenToolStripMenuItem" + Me.MarkiertePDFsDruckenToolStripMenuItem.Size = New System.Drawing.Size(217, 22) + Me.MarkiertePDFsDruckenToolStripMenuItem.Text = "Markierte PDFs drucken" + ' + 'EMailAnfügenToolStripMenuItem + ' + Me.EMailAnfügenToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.email_big1 + Me.EMailAnfügenToolStripMenuItem.Name = "EMailAnfügenToolStripMenuItem" + Me.EMailAnfügenToolStripMenuItem.Size = New System.Drawing.Size(217, 22) + Me.EMailAnfügenToolStripMenuItem.Text = "E-Mail anfügen" + ' + 'KopierenZwischenablageToolStripMenuItem + ' + Me.KopierenZwischenablageToolStripMenuItem.Name = "KopierenZwischenablageToolStripMenuItem" + Me.KopierenZwischenablageToolStripMenuItem.Size = New System.Drawing.Size(217, 22) + Me.KopierenZwischenablageToolStripMenuItem.Text = "Kopieren (Zwischenablage)" + ' + 'LaufzetteldruckJANEINToolStripMenuItem + ' + Me.LaufzetteldruckJANEINToolStripMenuItem.Name = "LaufzetteldruckJANEINToolStripMenuItem" + Me.LaufzetteldruckJANEINToolStripMenuItem.Size = New System.Drawing.Size(217, 22) + Me.LaufzetteldruckJANEINToolStripMenuItem.Text = "Laufzetteldruck JA/NEIN" + ' + 'Panel19 + ' + Me.Panel19.Controls.Add(Me.Button23) + Me.Panel19.Controls.Add(Me.Button22) + Me.Panel19.Controls.Add(Me.Button20) + Me.Panel19.Controls.Add(Me.Button19) + Me.Panel19.Controls.Add(Me.Button18) + Me.Panel19.Controls.Add(Me.Label52) + Me.Panel19.Dock = System.Windows.Forms.DockStyle.Top + Me.Panel19.Location = New System.Drawing.Point(0, 0) + Me.Panel19.Name = "Panel19" + Me.Panel19.Size = New System.Drawing.Size(1206, 45) + Me.Panel19.TabIndex = 0 + ' + 'Button23 + ' + Me.Button23.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button23.Image = Global.AVISO.My.Resources.Resources.pdf11 + Me.Button23.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button23.Location = New System.Drawing.Point(322, 5) + Me.Button23.Name = "Button23" + Me.Button23.Size = New System.Drawing.Size(156, 34) + Me.Button23.TabIndex = 5 + Me.Button23.Text = "PDF zusammenführen" + Me.Button23.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.Button23.UseVisualStyleBackColor = True + ' + 'Button22 + ' + Me.Button22.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button22.Image = Global.AVISO.My.Resources.Resources.email_big1 + Me.Button22.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button22.Location = New System.Drawing.Point(488, 5) + Me.Button22.Name = "Button22" + Me.Button22.Padding = New System.Windows.Forms.Padding(0, 0, 20, 0) + Me.Button22.Size = New System.Drawing.Size(144, 34) + Me.Button22.TabIndex = 4 + Me.Button22.Text = "Mail Vorlage" + Me.Button22.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.Button22.UseVisualStyleBackColor = True + ' + 'Button20 + ' + Me.Button20.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button20.Image = CType(resources.GetObject("Button20.Image"), System.Drawing.Image) + Me.Button20.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button20.Location = New System.Drawing.Point(970, 5) + Me.Button20.Name = "Button20" + Me.Button20.Padding = New System.Windows.Forms.Padding(0, 0, 20, 0) + Me.Button20.Size = New System.Drawing.Size(129, 34) + Me.Button20.TabIndex = 3 + Me.Button20.Text = "Optionen" + Me.Button20.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.Button20.UseVisualStyleBackColor = True + ' + 'Button19 + ' + Me.Button19.Enabled = False + Me.Button19.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button19.Image = CType(resources.GetObject("Button19.Image"), System.Drawing.Image) + Me.Button19.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button19.Location = New System.Drawing.Point(835, 5) + Me.Button19.Name = "Button19" + Me.Button19.Size = New System.Drawing.Size(129, 34) + Me.Button19.TabIndex = 2 + Me.Button19.Text = "Direkt anfügen ..." + Me.Button19.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.Button19.UseVisualStyleBackColor = True + ' + 'Button18 + ' + Me.Button18.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button18.Image = CType(resources.GetObject("Button18.Image"), System.Drawing.Image) + Me.Button18.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button18.Location = New System.Drawing.Point(700, 5) + Me.Button18.Name = "Button18" + Me.Button18.Size = New System.Drawing.Size(129, 34) + Me.Button18.TabIndex = 1 + Me.Button18.Text = "Import-Assistent ..." + Me.Button18.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.Button18.UseVisualStyleBackColor = True + ' + 'Label52 + ' + Me.Label52.AutoSize = True + Me.Label52.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label52.Location = New System.Drawing.Point(5, 7) + Me.Label52.Name = "Label52" + Me.Label52.Size = New System.Drawing.Size(57, 13) + Me.Label52.TabIndex = 0 + Me.Label52.Text = "Anhänge" + ' + 'tbKundenInfo + ' + Me.tbKundenInfo.AutoScroll = True + Me.tbKundenInfo.Controls.Add(Me.pnlKundenInfo) + Me.tbKundenInfo.Controls.Add(Me.Panel20) + Me.tbKundenInfo.Location = New System.Drawing.Point(4, 22) + Me.tbKundenInfo.Name = "tbKundenInfo" + Me.tbKundenInfo.Size = New System.Drawing.Size(1206, 349) + Me.tbKundenInfo.TabIndex = 5 + Me.tbKundenInfo.Text = "Kundeninfo" + Me.tbKundenInfo.UseVisualStyleBackColor = True + ' + 'pnlKundenInfo + ' + Me.pnlKundenInfo.BackColor = System.Drawing.Color.Gray + Me.pnlKundenInfo.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlKundenInfo.Dock = System.Windows.Forms.DockStyle.Fill + Me.pnlKundenInfo.Location = New System.Drawing.Point(0, 10) + Me.pnlKundenInfo.Name = "pnlKundenInfo" + Me.pnlKundenInfo.Size = New System.Drawing.Size(1206, 339) + Me.pnlKundenInfo.TabIndex = 1 + ' + 'Panel20 + ' + Me.Panel20.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.Panel20.Dock = System.Windows.Forms.DockStyle.Top + Me.Panel20.Location = New System.Drawing.Point(0, 0) + Me.Panel20.Name = "Panel20" + Me.Panel20.Size = New System.Drawing.Size(1206, 10) + Me.Panel20.TabIndex = 2 + ' 'tbZollabfertigung ' Me.tbZollabfertigung.Controls.Add(Me.Panel16) Me.tbZollabfertigung.Location = New System.Drawing.Point(4, 22) Me.tbZollabfertigung.Name = "tbZollabfertigung" - Me.tbZollabfertigung.Size = New System.Drawing.Size(1104, 349) + Me.tbZollabfertigung.Size = New System.Drawing.Size(1206, 349) Me.tbZollabfertigung.TabIndex = 2 Me.tbZollabfertigung.Text = "Zollabfertigung" Me.tbZollabfertigung.UseVisualStyleBackColor = True @@ -416,26 +590,9 @@ Partial Class frmSendungsdetailsNEU Me.Panel16.Dock = System.Windows.Forms.DockStyle.Fill Me.Panel16.Location = New System.Drawing.Point(0, 0) Me.Panel16.Name = "Panel16" - Me.Panel16.Size = New System.Drawing.Size(1104, 349) + Me.Panel16.Size = New System.Drawing.Size(1206, 349) Me.Panel16.TabIndex = 0 ' - 'dgvZollAnmeldungen - ' - Me.dgvZollAnmeldungen.AKTUALISIERUNGS_INTERVALL = -1 - Me.dgvZollAnmeldungen.AllowUserToAddRows = False - Me.dgvZollAnmeldungen.AllowUserToDeleteRows = False - Me.dgvZollAnmeldungen.AllowUserToResizeColumns = False - Me.dgvZollAnmeldungen.AllowUserToResizeRows = False - Me.dgvZollAnmeldungen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - Me.dgvZollAnmeldungen.Dock = System.Windows.Forms.DockStyle.Fill - Me.dgvZollAnmeldungen.Location = New System.Drawing.Point(0, 24) - Me.dgvZollAnmeldungen.Name = "dgvZollAnmeldungen" - Me.dgvZollAnmeldungen.ReadOnly = True - Me.dgvZollAnmeldungen.RowTemplate.Height = 30 - Me.dgvZollAnmeldungen.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect - Me.dgvZollAnmeldungen.Size = New System.Drawing.Size(1104, 287) - Me.dgvZollAnmeldungen.TabIndex = 1 - ' 'Panel17 ' Me.Panel17.BackColor = System.Drawing.Color.WhiteSmoke @@ -444,7 +601,7 @@ Partial Class frmSendungsdetailsNEU Me.Panel17.Dock = System.Windows.Forms.DockStyle.Bottom Me.Panel17.Location = New System.Drawing.Point(0, 311) Me.Panel17.Name = "Panel17" - Me.Panel17.Size = New System.Drawing.Size(1104, 38) + Me.Panel17.Size = New System.Drawing.Size(1206, 38) Me.Panel17.TabIndex = 2 ' 'Button6 @@ -478,7 +635,7 @@ Partial Class frmSendungsdetailsNEU Me.MenuStrip.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem13, Me.ToolStripMenuItem7, Me.ToolStripMenuItem6, Me.ToolStripMenuItem11, Me.ToolStripMenuItem12}) Me.MenuStrip.Location = New System.Drawing.Point(0, 0) Me.MenuStrip.Name = "MenuStrip" - Me.MenuStrip.Size = New System.Drawing.Size(1104, 24) + Me.MenuStrip.Size = New System.Drawing.Size(1206, 24) Me.MenuStrip.TabIndex = 0 ' 'ToolStripMenuItem13 @@ -561,7 +718,7 @@ Partial Class frmSendungsdetailsNEU 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(1104, 349) + Me.TabPage1.Size = New System.Drawing.Size(1206, 349) Me.TabPage1.TabIndex = 0 Me.TabPage1.Text = "Kunden - Zolltarif" Me.TabPage1.UseVisualStyleBackColor = True @@ -574,10 +731,10 @@ Partial Class frmSendungsdetailsNEU Me.pnlKundenZolltarif.Controls.Add(Me.Label22) Me.pnlKundenZolltarif.Controls.Add(Me.lblBitteEinenEmpfangerAuswahlenUmDenKundenZolltarifEinzublenden) Me.pnlKundenZolltarif.Dock = System.Windows.Forms.DockStyle.Fill - Me.pnlKundenZolltarif.Location = New System.Drawing.Point(3, 33) + Me.pnlKundenZolltarif.Location = New System.Drawing.Point(3, 36) Me.pnlKundenZolltarif.MinimumSize = New System.Drawing.Size(2, 103) Me.pnlKundenZolltarif.Name = "pnlKundenZolltarif" - Me.pnlKundenZolltarif.Size = New System.Drawing.Size(1098, 313) + Me.pnlKundenZolltarif.Size = New System.Drawing.Size(1200, 310) Me.pnlKundenZolltarif.TabIndex = 1 Me.pnlKundenZolltarif.TabStop = True ' @@ -586,7 +743,7 @@ Partial Class frmSendungsdetailsNEU Me.Label22.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.Label22.AutoSize = True - Me.Label22.Location = New System.Drawing.Point(4, 272) + Me.Label22.Location = New System.Drawing.Point(4, 269) Me.Label22.Name = "Label22" Me.Label22.Size = New System.Drawing.Size(209, 13) Me.Label22.TabIndex = 0 @@ -598,7 +755,7 @@ Partial Class frmSendungsdetailsNEU Me.lblBitteEinenEmpfangerAuswahlenUmDenKundenZolltarifEinzublenden.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.lblBitteEinenEmpfangerAuswahlenUmDenKundenZolltarifEinzublenden.AutoSize = True - Me.lblBitteEinenEmpfangerAuswahlenUmDenKundenZolltarifEinzublenden.Location = New System.Drawing.Point(4, 286) + Me.lblBitteEinenEmpfangerAuswahlenUmDenKundenZolltarifEinzublenden.Location = New System.Drawing.Point(4, 283) Me.lblBitteEinenEmpfangerAuswahlenUmDenKundenZolltarifEinzublenden.Name = "lblBitteEinenEmpfangerAuswahlenUmDenKundenZolltarifEinzublenden" Me.lblBitteEinenEmpfangerAuswahlenUmDenKundenZolltarifEinzublenden.Size = New System.Drawing.Size(338, 13) Me.lblBitteEinenEmpfangerAuswahlenUmDenKundenZolltarifEinzublenden.TabIndex = 1 @@ -606,35 +763,25 @@ Partial Class frmSendungsdetailsNEU ' 'Panel18 ' + Me.Panel18.BackColor = System.Drawing.Color.Gainsboro Me.Panel18.Controls.Add(Me.Label5) Me.Panel18.Controls.Add(Me.cboZolltarif) Me.Panel18.Dock = System.Windows.Forms.DockStyle.Top Me.Panel18.Location = New System.Drawing.Point(3, 3) Me.Panel18.Name = "Panel18" - Me.Panel18.Size = New System.Drawing.Size(1098, 30) + Me.Panel18.Size = New System.Drawing.Size(1200, 33) Me.Panel18.TabIndex = 0 ' 'Label5 ' Me.Label5.AutoSize = True Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label5.Location = New System.Drawing.Point(5, 9) + Me.Label5.Location = New System.Drawing.Point(16, 11) Me.Label5.Name = "Label5" Me.Label5.Size = New System.Drawing.Size(24, 13) Me.Label5.TabIndex = 0 Me.Label5.Text = "ZT:" ' - 'cboZolltarif - ' - Me.cboZolltarif._allowedValuesFreiText = Nothing - Me.cboZolltarif._allowFreiText = False - Me.cboZolltarif._value = "" - Me.cboZolltarif.FormattingEnabled = True - Me.cboZolltarif.Location = New System.Drawing.Point(48, 6) - Me.cboZolltarif.Name = "cboZolltarif" - Me.cboZolltarif.Size = New System.Drawing.Size(142, 21) - Me.cboZolltarif.TabIndex = 1 - ' 'TabPage2 ' Me.TabPage2.Controls.Add(Me.DataGridView) @@ -642,26 +789,11 @@ Partial Class frmSendungsdetailsNEU 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(1104, 349) + Me.TabPage2.Size = New System.Drawing.Size(1206, 349) Me.TabPage2.TabIndex = 1 Me.TabPage2.Text = "Speditionsbuch" Me.TabPage2.UseVisualStyleBackColor = True ' - 'DataGridView - ' - Me.DataGridView.AKTUALISIERUNGS_INTERVALL = -1 - Me.DataGridView.AllowUserToAddRows = False - Me.DataGridView.AllowUserToDeleteRows = False - Me.DataGridView.AllowUserToOrderColumns = True - Me.DataGridView.AllowUserToResizeColumns = False - Me.DataGridView.AllowUserToResizeRows = False - Me.DataGridView.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - Me.DataGridView.Dock = System.Windows.Forms.DockStyle.Fill - Me.DataGridView.Location = New System.Drawing.Point(3, 94) - Me.DataGridView.Name = "DataGridView" - Me.DataGridView.Size = New System.Drawing.Size(1098, 252) - Me.DataGridView.TabIndex = 1 - ' 'pnlSpedBuchNacherfassung ' Me.pnlSpedBuchNacherfassung.Controls.Add(Me.cbxOhneZollsys) @@ -689,8 +821,9 @@ Partial Class frmSendungsdetailsNEU Me.pnlSpedBuchNacherfassung.Dock = System.Windows.Forms.DockStyle.Top Me.pnlSpedBuchNacherfassung.Location = New System.Drawing.Point(3, 3) Me.pnlSpedBuchNacherfassung.Name = "pnlSpedBuchNacherfassung" - Me.pnlSpedBuchNacherfassung.Size = New System.Drawing.Size(1098, 91) + Me.pnlSpedBuchNacherfassung.Size = New System.Drawing.Size(1200, 91) Me.pnlSpedBuchNacherfassung.TabIndex = 0 + Me.pnlSpedBuchNacherfassung.Visible = False ' 'cbxOhneZollsys ' @@ -749,76 +882,6 @@ Partial Class frmSendungsdetailsNEU Me.Label32.TabIndex = 8 Me.Label32.Text = "Zoll Sachbearbeiter:" ' - 'cboSachbearbeiter - ' - Me.cboSachbearbeiter._allowedValuesFreiText = Nothing - Me.cboSachbearbeiter._allowFreiText = False - Me.cboSachbearbeiter._value = "" - Me.cboSachbearbeiter.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend - Me.cboSachbearbeiter.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems - Me.cboSachbearbeiter.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.cboSachbearbeiter.FormattingEnabled = True - Me.cboSachbearbeiter.Location = New System.Drawing.Point(466, 42) - Me.cboSachbearbeiter.Name = "cboSachbearbeiter" - Me.cboSachbearbeiter.Size = New System.Drawing.Size(171, 24) - Me.cboSachbearbeiter.TabIndex = 14 - ' - 'cboZollsystem2 - ' - Me.cboZollsystem2._allowedValuesFreiText = Nothing - Me.cboZollsystem2._allowFreiText = False - Me.cboZollsystem2._value = "" - Me.cboZollsystem2.Enabled = False - Me.cboZollsystem2.FormattingEnabled = True - Me.cboZollsystem2.Location = New System.Drawing.Point(151, 66) - Me.cboZollsystem2.Name = "cboZollsystem2" - Me.cboZollsystem2.Size = New System.Drawing.Size(97, 21) - Me.cboZollsystem2.TabIndex = 16 - ' - 'txtAtlasBezNrEZA2 - ' - Me.txtAtlasBezNrEZA2._DateTimeOnly = False - Me.txtAtlasBezNrEZA2._numbersOnly = False - Me.txtAtlasBezNrEZA2._numbersOnlyKommastellen = "" - Me.txtAtlasBezNrEZA2._Prozent = False - Me.txtAtlasBezNrEZA2._ShortDateNew = False - Me.txtAtlasBezNrEZA2._ShortDateOnly = False - Me.txtAtlasBezNrEZA2._TimeOnly = False - Me.txtAtlasBezNrEZA2._value = Nothing - Me.txtAtlasBezNrEZA2._Waehrung = False - Me.txtAtlasBezNrEZA2._WaehrungZeichen = True - Me.txtAtlasBezNrEZA2.Enabled = False - Me.txtAtlasBezNrEZA2.ForeColor = System.Drawing.Color.Black - Me.txtAtlasBezNrEZA2.Location = New System.Drawing.Point(253, 66) - Me.txtAtlasBezNrEZA2.MaxLineLength = -1 - Me.txtAtlasBezNrEZA2.MaxLines_Warning = "" - Me.txtAtlasBezNrEZA2.MaxLines_Warning_Label = Nothing - Me.txtAtlasBezNrEZA2.Name = "txtAtlasBezNrEZA2" - Me.txtAtlasBezNrEZA2.Size = New System.Drawing.Size(101, 20) - Me.txtAtlasBezNrEZA2.TabIndex = 17 - ' - 'txtAtlasBezNrNCTS2 - ' - Me.txtAtlasBezNrNCTS2._DateTimeOnly = False - Me.txtAtlasBezNrNCTS2._numbersOnly = False - Me.txtAtlasBezNrNCTS2._numbersOnlyKommastellen = "" - Me.txtAtlasBezNrNCTS2._Prozent = False - Me.txtAtlasBezNrNCTS2._ShortDateNew = False - Me.txtAtlasBezNrNCTS2._ShortDateOnly = False - Me.txtAtlasBezNrNCTS2._TimeOnly = False - Me.txtAtlasBezNrNCTS2._value = Nothing - Me.txtAtlasBezNrNCTS2._Waehrung = False - Me.txtAtlasBezNrNCTS2._WaehrungZeichen = True - Me.txtAtlasBezNrNCTS2.Enabled = False - Me.txtAtlasBezNrNCTS2.ForeColor = System.Drawing.Color.Black - Me.txtAtlasBezNrNCTS2.Location = New System.Drawing.Point(359, 66) - Me.txtAtlasBezNrNCTS2.MaxLineLength = -1 - Me.txtAtlasBezNrNCTS2.MaxLines_Warning = "" - Me.txtAtlasBezNrNCTS2.MaxLines_Warning_Label = Nothing - Me.txtAtlasBezNrNCTS2.Name = "txtAtlasBezNrNCTS2" - Me.txtAtlasBezNrNCTS2.Size = New System.Drawing.Size(101, 20) - Me.txtAtlasBezNrNCTS2.TabIndex = 18 - ' 'Label30 ' Me.Label30.AutoSize = True @@ -857,59 +920,6 @@ Partial Class frmSendungsdetailsNEU Me.lblZollsysErr.TabIndex = 19 Me.lblZollsysErr.Text = "ERR" ' - 'cboZollsystem - ' - Me.cboZollsystem._allowedValuesFreiText = Nothing - Me.cboZollsystem._allowFreiText = False - Me.cboZollsystem._value = "" - Me.cboZollsystem.FormattingEnabled = True - Me.cboZollsystem.Location = New System.Drawing.Point(151, 42) - Me.cboZollsystem.Name = "cboZollsystem" - Me.cboZollsystem.Size = New System.Drawing.Size(97, 21) - Me.cboZollsystem.TabIndex = 11 - ' - 'txtAtlasBezNrEZA - ' - Me.txtAtlasBezNrEZA._DateTimeOnly = False - Me.txtAtlasBezNrEZA._numbersOnly = False - Me.txtAtlasBezNrEZA._numbersOnlyKommastellen = "" - Me.txtAtlasBezNrEZA._Prozent = False - Me.txtAtlasBezNrEZA._ShortDateNew = False - Me.txtAtlasBezNrEZA._ShortDateOnly = False - Me.txtAtlasBezNrEZA._TimeOnly = False - Me.txtAtlasBezNrEZA._value = Nothing - Me.txtAtlasBezNrEZA._Waehrung = False - Me.txtAtlasBezNrEZA._WaehrungZeichen = True - Me.txtAtlasBezNrEZA.ForeColor = System.Drawing.Color.Black - Me.txtAtlasBezNrEZA.Location = New System.Drawing.Point(253, 42) - Me.txtAtlasBezNrEZA.MaxLineLength = -1 - Me.txtAtlasBezNrEZA.MaxLines_Warning = "" - Me.txtAtlasBezNrEZA.MaxLines_Warning_Label = Nothing - Me.txtAtlasBezNrEZA.Name = "txtAtlasBezNrEZA" - Me.txtAtlasBezNrEZA.Size = New System.Drawing.Size(101, 20) - Me.txtAtlasBezNrEZA.TabIndex = 12 - ' - 'txtAtlasBezNrNCTS - ' - Me.txtAtlasBezNrNCTS._DateTimeOnly = False - Me.txtAtlasBezNrNCTS._numbersOnly = False - Me.txtAtlasBezNrNCTS._numbersOnlyKommastellen = "" - Me.txtAtlasBezNrNCTS._Prozent = False - Me.txtAtlasBezNrNCTS._ShortDateNew = False - Me.txtAtlasBezNrNCTS._ShortDateOnly = False - Me.txtAtlasBezNrNCTS._TimeOnly = False - Me.txtAtlasBezNrNCTS._value = Nothing - Me.txtAtlasBezNrNCTS._Waehrung = False - Me.txtAtlasBezNrNCTS._WaehrungZeichen = True - Me.txtAtlasBezNrNCTS.ForeColor = System.Drawing.Color.Black - Me.txtAtlasBezNrNCTS.Location = New System.Drawing.Point(359, 42) - Me.txtAtlasBezNrNCTS.MaxLineLength = -1 - Me.txtAtlasBezNrNCTS.MaxLines_Warning = "" - Me.txtAtlasBezNrNCTS.MaxLines_Warning_Label = Nothing - Me.txtAtlasBezNrNCTS.Name = "txtAtlasBezNrNCTS" - Me.txtAtlasBezNrNCTS.Size = New System.Drawing.Size(101, 20) - Me.txtAtlasBezNrNCTS.TabIndex = 13 - ' 'Label29 ' Me.Label29.AutoSize = True @@ -963,7 +973,7 @@ Partial Class frmSendungsdetailsNEU Me.TabPage3.Controls.Add(Me.gridVermerke) Me.TabPage3.Location = New System.Drawing.Point(4, 22) Me.TabPage3.Name = "TabPage3" - Me.TabPage3.Size = New System.Drawing.Size(1104, 349) + Me.TabPage3.Size = New System.Drawing.Size(1206, 349) Me.TabPage3.TabIndex = 3 Me.TabPage3.Text = "Vermerke" Me.TabPage3.UseVisualStyleBackColor = True @@ -973,210 +983,54 @@ Partial Class frmSendungsdetailsNEU Me.gridVermerke.AllowUserToAddRows = False Me.gridVermerke.AllowUserToDeleteRows = False Me.gridVermerke.AllowUserToResizeRows = False - DataGridViewCellStyle1.BackColor = System.Drawing.Color.Azure - DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.gridVermerke.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1 + DataGridViewCellStyle12.BackColor = System.Drawing.Color.Azure + DataGridViewCellStyle12.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.gridVermerke.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle12 Me.gridVermerke.BackgroundColor = System.Drawing.Color.White - DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle2.BackColor = System.Drawing.Color.LightBlue - DataGridViewCellStyle2.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle2.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle2.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.gridVermerke.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle2 + DataGridViewCellStyle18.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle18.BackColor = System.Drawing.Color.LightBlue + DataGridViewCellStyle18.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle18.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle18.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle18.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle18.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.gridVermerke.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle18 Me.gridVermerke.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing - DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle3.BackColor = System.Drawing.SystemColors.Window - DataGridViewCellStyle3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle3.ForeColor = System.Drawing.SystemColors.ControlText - DataGridViewCellStyle3.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle3.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] - Me.gridVermerke.DefaultCellStyle = DataGridViewCellStyle3 + DataGridViewCellStyle19.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle19.BackColor = System.Drawing.SystemColors.Window + 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.ControlText + DataGridViewCellStyle19.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle19.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle19.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.gridVermerke.DefaultCellStyle = DataGridViewCellStyle19 Me.gridVermerke.Dock = System.Windows.Forms.DockStyle.Fill Me.gridVermerke.Location = New System.Drawing.Point(0, 0) Me.gridVermerke.MultiSelect = False Me.gridVermerke.Name = "gridVermerke" Me.gridVermerke.ReadOnly = True - DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle4.BackColor = System.Drawing.SystemColors.Control - DataGridViewCellStyle4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle4.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle4.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle4.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.gridVermerke.RowHeadersDefaultCellStyle = DataGridViewCellStyle4 + DataGridViewCellStyle20.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle20.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle20.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle20.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle20.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle20.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle20.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.gridVermerke.RowHeadersDefaultCellStyle = DataGridViewCellStyle20 Me.gridVermerke.RowHeadersVisible = False Me.gridVermerke.RowHeadersWidthSizeMode = System.Windows.Forms.DataGridViewRowHeadersWidthSizeMode.DisableResizing - DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.gridVermerke.RowsDefaultCellStyle = DataGridViewCellStyle5 + DataGridViewCellStyle21.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.gridVermerke.RowsDefaultCellStyle = DataGridViewCellStyle21 Me.gridVermerke.RowTemplate.Height = 20 Me.gridVermerke.RowTemplate.ReadOnly = True Me.gridVermerke.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[False] Me.gridVermerke.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect Me.gridVermerke.ShowCellErrors = False Me.gridVermerke.ShowRowErrors = False - Me.gridVermerke.Size = New System.Drawing.Size(1104, 349) + Me.gridVermerke.Size = New System.Drawing.Size(1206, 349) Me.gridVermerke.TabIndex = 0 Me.gridVermerke.TabStop = False ' - 'tbAnhang - ' - Me.tbAnhang.Controls.Add(Me.dgvAnhang) - Me.tbAnhang.Controls.Add(Me.Panel19) - Me.tbAnhang.Location = New System.Drawing.Point(4, 22) - Me.tbAnhang.Name = "tbAnhang" - Me.tbAnhang.Size = New System.Drawing.Size(1104, 349) - Me.tbAnhang.TabIndex = 4 - Me.tbAnhang.Text = "Anhang" - Me.tbAnhang.UseVisualStyleBackColor = True - ' - 'dgvAnhang - ' - Me.dgvAnhang.AKTUALISIERUNGS_INTERVALL = -1 - Me.dgvAnhang.AllowUserToAddRows = False - Me.dgvAnhang.AllowUserToDeleteRows = False - Me.dgvAnhang.AllowUserToResizeColumns = False - Me.dgvAnhang.AllowUserToResizeRows = False - Me.dgvAnhang.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - Me.dgvAnhang.ContextMenuStrip = Me.cntxtAnh - DataGridViewCellStyle6.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle6.BackColor = System.Drawing.SystemColors.Window - DataGridViewCellStyle6.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle6.ForeColor = System.Drawing.SystemColors.ControlText - DataGridViewCellStyle6.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle6.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] - Me.dgvAnhang.DefaultCellStyle = DataGridViewCellStyle6 - Me.dgvAnhang.Dock = System.Windows.Forms.DockStyle.Fill - Me.dgvAnhang.Location = New System.Drawing.Point(0, 45) - Me.dgvAnhang.Name = "dgvAnhang" - Me.dgvAnhang.ReadOnly = True - Me.dgvAnhang.RowHeadersVisible = False - Me.dgvAnhang.RowTemplate.Height = 40 - Me.dgvAnhang.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect - Me.dgvAnhang.Size = New System.Drawing.Size(1104, 304) - Me.dgvAnhang.TabIndex = 1 - ' - 'cntxtAnh - ' - Me.cntxtAnh.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.MarkiertePDFsDruckenToolStripMenuItem, Me.EMailAnfügenToolStripMenuItem, Me.KopierenZwischenablageToolStripMenuItem}) - Me.cntxtAnh.Name = "cntxtAnh" - Me.cntxtAnh.Size = New System.Drawing.Size(218, 70) - ' - 'MarkiertePDFsDruckenToolStripMenuItem - ' - Me.MarkiertePDFsDruckenToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.pdfprint - Me.MarkiertePDFsDruckenToolStripMenuItem.Name = "MarkiertePDFsDruckenToolStripMenuItem" - Me.MarkiertePDFsDruckenToolStripMenuItem.Size = New System.Drawing.Size(217, 22) - Me.MarkiertePDFsDruckenToolStripMenuItem.Text = "Markierte PDFs drucken" - ' - 'EMailAnfügenToolStripMenuItem - ' - Me.EMailAnfügenToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.email_big1 - Me.EMailAnfügenToolStripMenuItem.Name = "EMailAnfügenToolStripMenuItem" - Me.EMailAnfügenToolStripMenuItem.Size = New System.Drawing.Size(217, 22) - Me.EMailAnfügenToolStripMenuItem.Text = "E-Mail anfügen" - ' - 'KopierenZwischenablageToolStripMenuItem - ' - Me.KopierenZwischenablageToolStripMenuItem.Name = "KopierenZwischenablageToolStripMenuItem" - Me.KopierenZwischenablageToolStripMenuItem.Size = New System.Drawing.Size(217, 22) - Me.KopierenZwischenablageToolStripMenuItem.Text = "Kopieren (Zwischenablage)" - ' - 'Panel19 - ' - Me.Panel19.Controls.Add(Me.Button23) - Me.Panel19.Controls.Add(Me.Button22) - Me.Panel19.Controls.Add(Me.Button20) - Me.Panel19.Controls.Add(Me.Button19) - Me.Panel19.Controls.Add(Me.Button18) - Me.Panel19.Controls.Add(Me.Label52) - Me.Panel19.Dock = System.Windows.Forms.DockStyle.Top - Me.Panel19.Location = New System.Drawing.Point(0, 0) - Me.Panel19.Name = "Panel19" - Me.Panel19.Size = New System.Drawing.Size(1104, 45) - Me.Panel19.TabIndex = 0 - ' - 'Button23 - ' - Me.Button23.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button23.Image = Global.AVISO.My.Resources.Resources.pdf11 - Me.Button23.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button23.Location = New System.Drawing.Point(322, 5) - Me.Button23.Name = "Button23" - Me.Button23.Size = New System.Drawing.Size(156, 34) - Me.Button23.TabIndex = 5 - Me.Button23.Text = "PDF zusammenführen" - Me.Button23.TextAlign = System.Drawing.ContentAlignment.MiddleRight - Me.Button23.UseVisualStyleBackColor = True - ' - 'Button22 - ' - Me.Button22.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button22.Image = Global.AVISO.My.Resources.Resources.email_big1 - Me.Button22.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button22.Location = New System.Drawing.Point(488, 5) - Me.Button22.Name = "Button22" - Me.Button22.Padding = New System.Windows.Forms.Padding(0, 0, 20, 0) - Me.Button22.Size = New System.Drawing.Size(144, 34) - Me.Button22.TabIndex = 4 - Me.Button22.Text = "Mail Vorlage" - Me.Button22.TextAlign = System.Drawing.ContentAlignment.MiddleRight - Me.Button22.UseVisualStyleBackColor = True - ' - 'Button20 - ' - Me.Button20.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button20.Image = CType(resources.GetObject("Button20.Image"), System.Drawing.Image) - Me.Button20.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button20.Location = New System.Drawing.Point(970, 5) - Me.Button20.Name = "Button20" - Me.Button20.Padding = New System.Windows.Forms.Padding(0, 0, 20, 0) - Me.Button20.Size = New System.Drawing.Size(129, 34) - Me.Button20.TabIndex = 3 - Me.Button20.Text = "Optionen" - Me.Button20.TextAlign = System.Drawing.ContentAlignment.MiddleRight - Me.Button20.UseVisualStyleBackColor = True - ' - 'Button19 - ' - Me.Button19.Enabled = False - Me.Button19.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button19.Image = CType(resources.GetObject("Button19.Image"), System.Drawing.Image) - Me.Button19.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button19.Location = New System.Drawing.Point(835, 5) - Me.Button19.Name = "Button19" - Me.Button19.Size = New System.Drawing.Size(129, 34) - Me.Button19.TabIndex = 2 - Me.Button19.Text = "Direkt anfügen ..." - Me.Button19.TextAlign = System.Drawing.ContentAlignment.MiddleRight - Me.Button19.UseVisualStyleBackColor = True - ' - 'Button18 - ' - Me.Button18.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button18.Image = CType(resources.GetObject("Button18.Image"), System.Drawing.Image) - Me.Button18.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button18.Location = New System.Drawing.Point(700, 5) - Me.Button18.Name = "Button18" - Me.Button18.Size = New System.Drawing.Size(129, 34) - Me.Button18.TabIndex = 1 - Me.Button18.Text = "Import-Assistent ..." - Me.Button18.TextAlign = System.Drawing.ContentAlignment.MiddleRight - Me.Button18.UseVisualStyleBackColor = True - ' - 'Label52 - ' - Me.Label52.AutoSize = True - Me.Label52.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label52.Location = New System.Drawing.Point(5, 7) - Me.Label52.Name = "Label52" - Me.Label52.Size = New System.Drawing.Size(57, 13) - Me.Label52.TabIndex = 0 - Me.Label52.Text = "Anhänge" - ' 'Panel14 ' Me.Panel14.BackColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer)) @@ -1184,7 +1038,7 @@ Partial Class frmSendungsdetailsNEU Me.Panel14.ForeColor = System.Drawing.SystemColors.ControlText Me.Panel14.Location = New System.Drawing.Point(0, 0) Me.Panel14.Name = "Panel14" - Me.Panel14.Size = New System.Drawing.Size(1112, 5) + Me.Panel14.Size = New System.Drawing.Size(1214, 5) Me.Panel14.TabIndex = 0 ' 'pnlDetails @@ -1198,7 +1052,7 @@ Partial Class frmSendungsdetailsNEU Me.pnlDetails.Location = New System.Drawing.Point(0, 55) Me.pnlDetails.MinimumSize = New System.Drawing.Size(0, 310) Me.pnlDetails.Name = "pnlDetails" - Me.pnlDetails.Size = New System.Drawing.Size(1112, 364) + Me.pnlDetails.Size = New System.Drawing.Size(1214, 364) Me.pnlDetails.TabIndex = 1 ' 'tbcntr @@ -1206,7 +1060,7 @@ Partial Class frmSendungsdetailsNEU Me.tbcntr.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.tbcntr.Controls.Add(Me.TabPage4) Me.tbcntr.Controls.Add(Me.TabPage5) - Me.tbcntr.Location = New System.Drawing.Point(735, 69) + Me.tbcntr.Location = New System.Drawing.Point(837, 69) Me.tbcntr.Name = "tbcntr" Me.tbcntr.SelectedIndex = 0 Me.tbcntr.Size = New System.Drawing.Size(377, 292) @@ -1260,30 +1114,6 @@ Partial Class frmSendungsdetailsNEU Me.cbx.UseVisualStyleBackColor = True Me.cbx.Visible = False ' - 'txtWarenwertWaehrung - ' - Me.txtWarenwertWaehrung._allowFreitext = False - Me.txtWarenwertWaehrung._AllowSetValue = False - Me.txtWarenwertWaehrung._autoSizeGross = False - Me.txtWarenwertWaehrung._hideIfListEmpty = True - Me.txtWarenwertWaehrung._value = "" - Me.txtWarenwertWaehrung.conn_art = "FMZOLL" - Me.txtWarenwertWaehrung.dgvpos = "LEFT" - Me.txtWarenwertWaehrung.DISPLAY_PARAM = Nothing - Me.txtWarenwertWaehrung.INVISIBLE_COLUMNS = Nothing - Me.txtWarenwertWaehrung.key_visible = False - Me.txtWarenwertWaehrung.KEYPARAM = Nothing - Me.txtWarenwertWaehrung.Location = New System.Drawing.Point(190, 69) - Me.txtWarenwertWaehrung.Name = "txtWarenwertWaehrung" - Me.txtWarenwertWaehrung.searchActive = True - Me.txtWarenwertWaehrung.Size = New System.Drawing.Size(40, 20) - Me.txtWarenwertWaehrung.SQL_ORDER_BY = Nothing - Me.txtWarenwertWaehrung.SQL_SELECT = Nothing - Me.txtWarenwertWaehrung.SQL_WHERE = Nothing - Me.txtWarenwertWaehrung.SQL_WhereParamList = Nothing - Me.txtWarenwertWaehrung.TabIndex = 12 - Me.txtWarenwertWaehrung.usrcntl = Nothing - ' 'Label33 ' Me.Label33.AutoSize = True @@ -1293,28 +1123,6 @@ Partial Class frmSendungsdetailsNEU Me.Label33.TabIndex = 24 Me.Label33.Text = "Warenwert:" ' - 'txtWarenwert - ' - Me.txtWarenwert._DateTimeOnly = False - Me.txtWarenwert._numbersOnly = True - Me.txtWarenwert._numbersOnlyKommastellen = "" - Me.txtWarenwert._Prozent = False - Me.txtWarenwert._ShortDateNew = False - Me.txtWarenwert._ShortDateOnly = False - Me.txtWarenwert._TimeOnly = False - Me.txtWarenwert._value = "" - Me.txtWarenwert._Waehrung = False - Me.txtWarenwert._WaehrungZeichen = True - Me.txtWarenwert.ForeColor = System.Drawing.Color.Black - Me.txtWarenwert.Location = New System.Drawing.Point(78, 69) - Me.txtWarenwert.MaxLineLength = -1 - Me.txtWarenwert.MaxLines_Warning = "" - Me.txtWarenwert.MaxLines_Warning_Label = Nothing - Me.txtWarenwert.Name = "txtWarenwert" - Me.txtWarenwert.Size = New System.Drawing.Size(114, 20) - Me.txtWarenwert.TabIndex = 11 - Me.txtWarenwert.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - ' 'Button21 ' Me.Button21.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom @@ -1410,50 +1218,6 @@ Partial Class frmSendungsdetailsNEU Me.Button12.UseVisualStyleBackColor = True Me.Button12.Visible = False ' - 'txtGewicht - ' - Me.txtGewicht._DateTimeOnly = False - Me.txtGewicht._numbersOnly = False - Me.txtGewicht._numbersOnlyKommastellen = "" - Me.txtGewicht._Prozent = False - Me.txtGewicht._ShortDateNew = False - Me.txtGewicht._ShortDateOnly = False - Me.txtGewicht._TimeOnly = False - Me.txtGewicht._value = Nothing - Me.txtGewicht._Waehrung = False - Me.txtGewicht._WaehrungZeichen = True - Me.txtGewicht.ForeColor = System.Drawing.Color.Black - Me.txtGewicht.Location = New System.Drawing.Point(146, 50) - 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 = 6 - Me.txtGewicht.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - ' - 'txtBARzuKassieren - ' - Me.txtBARzuKassieren._DateTimeOnly = False - Me.txtBARzuKassieren._numbersOnly = False - Me.txtBARzuKassieren._numbersOnlyKommastellen = "" - Me.txtBARzuKassieren._Prozent = False - Me.txtBARzuKassieren._ShortDateNew = False - Me.txtBARzuKassieren._ShortDateOnly = False - Me.txtBARzuKassieren._TimeOnly = False - Me.txtBARzuKassieren._value = "" - Me.txtBARzuKassieren._Waehrung = True - Me.txtBARzuKassieren._WaehrungZeichen = True - Me.txtBARzuKassieren.ForeColor = System.Drawing.Color.Black - Me.txtBARzuKassieren.Location = New System.Drawing.Point(300, 50) - Me.txtBARzuKassieren.MaxLineLength = -1 - Me.txtBARzuKassieren.MaxLines_Warning = "" - Me.txtBARzuKassieren.MaxLines_Warning_Label = Nothing - Me.txtBARzuKassieren.Name = "txtBARzuKassieren" - Me.txtBARzuKassieren.Size = New System.Drawing.Size(64, 20) - Me.txtBARzuKassieren.TabIndex = 8 - Me.txtBARzuKassieren.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - ' 'Label19 ' Me.Label19.AutoSize = True @@ -1513,28 +1277,6 @@ Partial Class frmSendungsdetailsNEU Me.Button8.TabIndex = 18 Me.Button8.UseVisualStyleBackColor = True ' - 'txtColli - ' - Me.txtColli._DateTimeOnly = False - Me.txtColli._numbersOnly = False - Me.txtColli._numbersOnlyKommastellen = "" - Me.txtColli._Prozent = False - Me.txtColli._ShortDateNew = False - Me.txtColli._ShortDateOnly = False - Me.txtColli._TimeOnly = False - Me.txtColli._value = Nothing - Me.txtColli._Waehrung = False - Me.txtColli._WaehrungZeichen = True - Me.txtColli.ForeColor = System.Drawing.Color.Black - Me.txtColli.Location = New System.Drawing.Point(78, 50) - 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 = 4 - Me.txtColli.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - ' 'rtbWarenbezeichnung ' Me.rtbWarenbezeichnung.Cursor = System.Windows.Forms.Cursors.IBeam @@ -1572,19 +1314,6 @@ Partial Class frmSendungsdetailsNEU Me.Label12.TabIndex = 10 Me.Label12.Text = "Anmerkung:" ' - 'cboPrinter - ' - Me.cboPrinter._allowedValuesFreiText = Nothing - Me.cboPrinter._allowFreiText = False - Me.cboPrinter._value = "" - Me.cboPrinter.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList - Me.cboPrinter.DropDownWidth = 300 - Me.cboPrinter.FormattingEnabled = True - Me.cboPrinter.Location = New System.Drawing.Point(233, 69) - Me.cboPrinter.Name = "cboPrinter" - Me.cboPrinter.Size = New System.Drawing.Size(131, 21) - Me.cboPrinter.TabIndex = 19 - ' 'rtbAnmerkung ' Me.rtbAnmerkung.Location = New System.Drawing.Point(6, 111) @@ -1607,25 +1336,6 @@ Partial Class frmSendungsdetailsNEU Me.TabPage5.Text = "Abrechnung/BAR-Belege" Me.TabPage5.UseVisualStyleBackColor = True ' - 'dgvBelege - ' - Me.dgvBelege.AKTUALISIERUNGS_INTERVALL = -1 - Me.dgvBelege.AllowUserToAddRows = False - Me.dgvBelege.AllowUserToDeleteRows = False - Me.dgvBelege.AllowUserToResizeColumns = False - Me.dgvBelege.AllowUserToResizeRows = False - Me.dgvBelege.BackgroundColor = System.Drawing.Color.White - Me.dgvBelege.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - Me.dgvBelege.Location = New System.Drawing.Point(6, 40) - Me.dgvBelege.MultiSelect = False - Me.dgvBelege.Name = "dgvBelege" - Me.dgvBelege.ReadOnly = True - Me.dgvBelege.RowHeadersVisible = False - Me.dgvBelege.RowTemplate.Height = 18 - Me.dgvBelege.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect - Me.dgvBelege.Size = New System.Drawing.Size(360, 165) - Me.dgvBelege.TabIndex = 3 - ' 'Button9 ' Me.Button9.BackColor = System.Drawing.Color.WhiteSmoke @@ -1767,10 +1477,11 @@ Partial Class frmSendungsdetailsNEU Me.Panel6.Controls.Add(Me.Label8) Me.Panel6.Controls.Add(Me.txtAvisiererKdNr) Me.Panel6.Controls.Add(Me.txtKdAuftragsNr) + Me.Panel6.Controls.Add(Me.LinkLabel4) Me.Panel6.Location = New System.Drawing.Point(0, 69) Me.Panel6.MinimumSize = New System.Drawing.Size(2, 235) Me.Panel6.Name = "Panel6" - Me.Panel6.Size = New System.Drawing.Size(736, 292) + Me.Panel6.Size = New System.Drawing.Size(838, 292) Me.Panel6.TabIndex = 1 ' 'txtDyRef @@ -1898,6 +1609,1475 @@ Partial Class frmSendungsdetailsNEU Me.Button11.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText Me.Button11.UseVisualStyleBackColor = True ' + 'cntxt + ' + Me.cntxt.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.KdAuftragsNrInAlleSendungenÜbernehmenToolStripMenuItem}) + Me.cntxt.Name = "cntxt" + Me.cntxt.Size = New System.Drawing.Size(323, 26) + Me.cntxt.Text = "cntxtKdAtrnr" + ' + 'KdAuftragsNrInAlleSendungenÜbernehmenToolStripMenuItem + ' + Me.KdAuftragsNrInAlleSendungenÜbernehmenToolStripMenuItem.Name = "KdAuftragsNrInAlleSendungenÜbernehmenToolStripMenuItem" + Me.KdAuftragsNrInAlleSendungenÜbernehmenToolStripMenuItem.Size = New System.Drawing.Size(322, 22) + Me.KdAuftragsNrInAlleSendungenÜbernehmenToolStripMenuItem.Text = "Kd-AuftragsNr. in alle Sendungen übernehmen" + ' + 'Label21 + ' + Me.Label21.AutoSize = True + Me.Label21.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!) + Me.Label21.Location = New System.Drawing.Point(407, 3) + Me.Label21.Name = "Label21" + Me.Label21.Size = New System.Drawing.Size(81, 13) + Me.Label21.TabIndex = 2 + Me.Label21.Text = "Kd.-AuftragsNr.:" + ' + 'Button4 + ' + Me.Button4.BackColor = System.Drawing.Color.Transparent + Me.Button4.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button4.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button4.Location = New System.Drawing.Point(696, 167) + Me.Button4.Name = "Button4" + Me.Button4.Size = New System.Drawing.Size(39, 21) + Me.Button4.TabIndex = 80 + Me.Button4.TabStop = False + Me.Button4.Text = "LG" + Me.Button4.UseVisualStyleBackColor = False + ' + 'Button1 + ' + Me.Button1.BackColor = System.Drawing.Color.Transparent + Me.Button1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button1.Location = New System.Drawing.Point(658, 167) + Me.Button1.Name = "Button1" + Me.Button1.Size = New System.Drawing.Size(41, 21) + Me.Button1.TabIndex = 79 + Me.Button1.TabStop = False + Me.Button1.Text = "BAR - Beleg" + Me.Button1.UseVisualStyleBackColor = False + ' + 'Label4 + ' + Me.Label4.AutoSize = True + Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!) + Me.Label4.Location = New System.Drawing.Point(627, 3) + Me.Label4.Name = "Label4" + Me.Label4.Size = New System.Drawing.Size(37, 13) + Me.Label4.TabIndex = 7 + Me.Label4.Text = "Sonst." + ' + 'btnAufschub_Atr + ' + Me.btnAufschub_Atr.BackColor = System.Drawing.Color.Silver + Me.btnAufschub_Atr.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.btnAufschub_Atr.Cursor = System.Windows.Forms.Cursors.Hand + Me.btnAufschub_Atr.FlatAppearance.BorderSize = 0 + Me.btnAufschub_Atr.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnAufschub_Atr.Font = New System.Drawing.Font("Arial", 7.0!) + Me.btnAufschub_Atr.ImageAlign = System.Drawing.ContentAlignment.TopCenter + Me.btnAufschub_Atr.Location = New System.Drawing.Point(658, 57) + Me.btnAufschub_Atr.Margin = New System.Windows.Forms.Padding(0) + Me.btnAufschub_Atr.Name = "btnAufschub_Atr" + Me.btnAufschub_Atr.Size = New System.Drawing.Size(77, 20) + Me.btnAufschub_Atr.TabIndex = 36 + Me.btnAufschub_Atr.TabStop = False + Me.btnAufschub_Atr.Text = "Aufschub" + Me.btnAufschub_Atr.UseVisualStyleBackColor = False + Me.btnAufschub_Atr.Visible = False + ' + 'btnAufschub_Empf + ' + Me.btnAufschub_Empf.BackColor = System.Drawing.Color.Silver + Me.btnAufschub_Empf.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.btnAufschub_Empf.Cursor = System.Windows.Forms.Cursors.Hand + Me.btnAufschub_Empf.FlatAppearance.BorderSize = 0 + Me.btnAufschub_Empf.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnAufschub_Empf.Font = New System.Drawing.Font("Arial", 7.0!) + Me.btnAufschub_Empf.ImageAlign = System.Drawing.ContentAlignment.TopCenter + Me.btnAufschub_Empf.Location = New System.Drawing.Point(658, 94) + Me.btnAufschub_Empf.Margin = New System.Windows.Forms.Padding(0) + Me.btnAufschub_Empf.Name = "btnAufschub_Empf" + Me.btnAufschub_Empf.Size = New System.Drawing.Size(77, 20) + Me.btnAufschub_Empf.TabIndex = 52 + Me.btnAufschub_Empf.TabStop = False + Me.btnAufschub_Empf.Text = "Aufschub" + Me.btnAufschub_Empf.UseVisualStyleBackColor = False + Me.btnAufschub_Empf.Visible = False + ' + 'btnAufschub_VERAG + ' + Me.btnAufschub_VERAG.BackColor = System.Drawing.Color.Silver + Me.btnAufschub_VERAG.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.btnAufschub_VERAG.Cursor = System.Windows.Forms.Cursors.Hand + Me.btnAufschub_VERAG.FlatAppearance.BorderSize = 0 + Me.btnAufschub_VERAG.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnAufschub_VERAG.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!) + Me.btnAufschub_VERAG.ImageAlign = System.Drawing.ContentAlignment.TopCenter + Me.btnAufschub_VERAG.Location = New System.Drawing.Point(658, 200) + Me.btnAufschub_VERAG.Margin = New System.Windows.Forms.Padding(0) + Me.btnAufschub_VERAG.Name = "btnAufschub_VERAG" + Me.btnAufschub_VERAG.Size = New System.Drawing.Size(76, 20) + Me.btnAufschub_VERAG.TabIndex = 83 + Me.btnAufschub_VERAG.TabStop = False + Me.btnAufschub_VERAG.Text = "VERAG" + Me.btnAufschub_VERAG.UseVisualStyleBackColor = False + Me.btnAufschub_VERAG.Visible = False + ' + 'Panel15 + ' + Me.Panel15.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.Panel15.Dock = System.Windows.Forms.DockStyle.Left + Me.Panel15.Location = New System.Drawing.Point(0, 0) + Me.Panel15.Name = "Panel15" + Me.Panel15.Size = New System.Drawing.Size(5, 292) + Me.Panel15.TabIndex = 1 + ' + 'Panel13 + ' + Me.Panel13.BackColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer)) + Me.Panel13.ForeColor = System.Drawing.SystemColors.ControlText + Me.Panel13.Location = New System.Drawing.Point(10, 190) + Me.Panel13.Name = "Panel13" + Me.Panel13.Size = New System.Drawing.Size(710, 1) + Me.Panel13.TabIndex = 81 + ' + 'Panel12 + ' + Me.Panel12.BackColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer)) + Me.Panel12.ForeColor = System.Drawing.SystemColors.ControlText + Me.Panel12.Location = New System.Drawing.Point(10, 155) + Me.Panel12.Name = "Panel12" + Me.Panel12.Size = New System.Drawing.Size(710, 1) + Me.Panel12.TabIndex = 67 + ' + 'Panel11 + ' + Me.Panel11.BackColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer)) + Me.Panel11.ForeColor = System.Drawing.SystemColors.ControlText + Me.Panel11.Location = New System.Drawing.Point(10, 117) + Me.Panel11.Name = "Panel11" + Me.Panel11.Size = New System.Drawing.Size(710, 1) + Me.Panel11.TabIndex = 54 + ' + 'Panel10 + ' + Me.Panel10.BackColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer)) + Me.Panel10.ForeColor = System.Drawing.SystemColors.ControlText + Me.Panel10.Location = New System.Drawing.Point(10, 80) + Me.Panel10.Name = "Panel10" + Me.Panel10.Size = New System.Drawing.Size(710, 1) + Me.Panel10.TabIndex = 38 + ' + 'Panel8 + ' + Me.Panel8.BackColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer)) + Me.Panel8.ForeColor = System.Drawing.SystemColors.ControlText + Me.Panel8.Location = New System.Drawing.Point(10, 43) + Me.Panel8.Name = "Panel8" + Me.Panel8.Size = New System.Drawing.Size(710, 1) + Me.Panel8.TabIndex = 21 + ' + 'lblEmpfAufschubEustTxt + ' + Me.lblEmpfAufschubEustTxt.AutoSize = True + Me.lblEmpfAufschubEustTxt.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!) + Me.lblEmpfAufschubEustTxt.Location = New System.Drawing.Point(673, 3) + Me.lblEmpfAufschubEustTxt.Name = "lblEmpfAufschubEustTxt" + Me.lblEmpfAufschubEustTxt.Size = New System.Drawing.Size(54, 13) + Me.lblEmpfAufschubEustTxt.TabIndex = 8 + Me.lblEmpfAufschubEustTxt.Text = "Aufschub:" + ' + 'Label42 + ' + Me.Label42.AutoSize = True + Me.Label42.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label42.Location = New System.Drawing.Point(23, 172) + Me.Label42.Name = "Label42" + Me.Label42.Size = New System.Drawing.Size(64, 13) + Me.Label42.TabIndex = 70 + Me.Label42.Text = "Frachtführer" + Me.Label42.TextAlign = System.Drawing.ContentAlignment.TopRight + ' + 'pnlT1 + ' + Me.pnlT1.Controls.Add(Me.UsrCntlSND_NCTSGestellungsadresse1) + Me.pnlT1.Location = New System.Drawing.Point(0, 193) + Me.pnlT1.Name = "pnlT1" + Me.pnlT1.Size = New System.Drawing.Size(549, 92) + Me.pnlT1.TabIndex = 82 + ' + 'Label43 + ' + Me.Label43.AutoSize = True + Me.Label43.Font = New System.Drawing.Font("Arial Black", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label43.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.Label43.Location = New System.Drawing.Point(7, 168) + Me.Label43.Name = "Label43" + Me.Label43.Size = New System.Drawing.Size(17, 18) + Me.Label43.TabIndex = 69 + Me.Label43.Text = "5" + Me.Label43.TextAlign = System.Drawing.ContentAlignment.TopRight + ' + 'Label40 + ' + Me.Label40.AutoSize = True + Me.Label40.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label40.Location = New System.Drawing.Point(23, 136) + Me.Label40.Name = "Label40" + Me.Label40.Size = New System.Drawing.Size(52, 13) + Me.Label40.TabIndex = 58 + Me.Label40.Text = "Absender" + Me.Label40.TextAlign = System.Drawing.ContentAlignment.TopRight + ' + 'Label41 + ' + Me.Label41.AutoSize = True + Me.Label41.Font = New System.Drawing.Font("Arial Black", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label41.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.Label41.Location = New System.Drawing.Point(7, 133) + Me.Label41.Name = "Label41" + Me.Label41.Size = New System.Drawing.Size(17, 18) + Me.Label41.TabIndex = 57 + Me.Label41.Text = "4" + Me.Label41.TextAlign = System.Drawing.ContentAlignment.TopRight + ' + 'Label38 + ' + Me.Label38.AutoSize = True + Me.Label38.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label38.Location = New System.Drawing.Point(23, 97) + Me.Label38.Name = "Label38" + Me.Label38.Size = New System.Drawing.Size(78, 13) + Me.Label38.TabIndex = 42 + Me.Label38.Text = "(Rg)Empfänger" + Me.Label38.TextAlign = System.Drawing.ContentAlignment.TopRight + ' + 'Label39 + ' + Me.Label39.AutoSize = True + Me.Label39.Font = New System.Drawing.Font("Arial Black", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label39.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.Label39.Location = New System.Drawing.Point(7, 94) + Me.Label39.Name = "Label39" + Me.Label39.Size = New System.Drawing.Size(17, 18) + Me.Label39.TabIndex = 41 + Me.Label39.Text = "3" + Me.Label39.TextAlign = System.Drawing.ContentAlignment.TopRight + ' + 'Label28 + ' + Me.Label28.AutoSize = True + Me.Label28.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label28.Location = New System.Drawing.Point(23, 61) + Me.Label28.Name = "Label28" + Me.Label28.Size = New System.Drawing.Size(68, 13) + Me.Label28.TabIndex = 26 + Me.Label28.Text = "Auftraggeber" + Me.Label28.TextAlign = System.Drawing.ContentAlignment.TopRight + ' + 'Label37 + ' + Me.Label37.AutoSize = True + Me.Label37.Font = New System.Drawing.Font("Arial Black", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label37.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.Label37.Location = New System.Drawing.Point(7, 58) + Me.Label37.Name = "Label37" + Me.Label37.Size = New System.Drawing.Size(17, 18) + Me.Label37.TabIndex = 25 + Me.Label37.Text = "2" + Me.Label37.TextAlign = System.Drawing.ContentAlignment.TopRight + ' + 'Label27 + ' + Me.Label27.AutoSize = True + Me.Label27.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label27.Location = New System.Drawing.Point(23, 24) + Me.Label27.Name = "Label27" + Me.Label27.Size = New System.Drawing.Size(47, 13) + Me.Label27.TabIndex = 12 + Me.Label27.Text = "Avisierer" + Me.Label27.TextAlign = System.Drawing.ContentAlignment.TopRight + ' + 'Label36 + ' + Me.Label36.AutoSize = True + Me.Label36.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!) + Me.Label36.Location = New System.Drawing.Point(595, 3) + Me.Label36.Name = "Label36" + Me.Label36.Size = New System.Drawing.Size(34, 13) + Me.Label36.TabIndex = 6 + Me.Label36.Text = "Clear." + ' + 'Label20 + ' + Me.Label20.AutoSize = True + Me.Label20.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!) + Me.Label20.Location = New System.Drawing.Point(566, 3) + Me.Label20.Name = "Label20" + Me.Label20.Size = New System.Drawing.Size(30, 13) + Me.Label20.TabIndex = 5 + Me.Label20.Text = "ABF." + ' + 'Label18 + ' + Me.Label18.AutoSize = True + Me.Label18.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!) + Me.Label18.Location = New System.Drawing.Point(533, 3) + Me.Label18.Name = "Label18" + Me.Label18.Size = New System.Drawing.Size(33, 13) + Me.Label18.TabIndex = 4 + Me.Label18.Text = "EUST" + ' + 'Label6 + ' + Me.Label6.AutoSize = True + Me.Label6.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!) + Me.Label6.Location = New System.Drawing.Point(501, 3) + Me.Label6.Name = "Label6" + Me.Label6.Size = New System.Drawing.Size(33, 13) + Me.Label6.TabIndex = 3 + Me.Label6.Text = "ZOLL" + ' + 'Label26 + ' + Me.Label26.AutoSize = True + Me.Label26.Font = New System.Drawing.Font("Arial Black", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label26.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.Label26.Location = New System.Drawing.Point(7, 20) + Me.Label26.Name = "Label26" + Me.Label26.Size = New System.Drawing.Size(17, 18) + Me.Label26.TabIndex = 11 + Me.Label26.Text = "1" + Me.Label26.TextAlign = System.Drawing.ContentAlignment.TopRight + ' + 'LinkLabel3 + ' + Me.LinkLabel3.AutoSize = True + Me.LinkLabel3.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!) + Me.LinkLabel3.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(30, Byte), Integer), CType(CType(90, Byte), Integer)) + Me.LinkLabel3.Location = New System.Drawing.Point(335, 44) + Me.LinkLabel3.Name = "LinkLabel3" + Me.LinkLabel3.Size = New System.Drawing.Size(54, 13) + Me.LinkLabel3.TabIndex = 24 + Me.LinkLabel3.TabStop = True + Me.LinkLabel3.Text = "= Frächter" + ' + 'LinkLabel1 + ' + Me.LinkLabel1.AutoSize = True + Me.LinkLabel1.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!) + Me.LinkLabel1.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(30, Byte), Integer), CType(CType(90, Byte), Integer)) + Me.LinkLabel1.Location = New System.Drawing.Point(273, 44) + Me.LinkLabel1.Name = "LinkLabel1" + Me.LinkLabel1.Size = New System.Drawing.Size(56, 13) + Me.LinkLabel1.TabIndex = 23 + Me.LinkLabel1.TabStop = True + Me.LinkLabel1.Text = "= Avisierer" + ' + 'LinkLabel2 + ' + Me.LinkLabel2.AutoSize = True + Me.LinkLabel2.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!) + Me.LinkLabel2.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(30, Byte), Integer), CType(CType(90, Byte), Integer)) + Me.LinkLabel2.Location = New System.Drawing.Point(312, 120) + Me.LinkLabel2.Name = "LinkLabel2" + Me.LinkLabel2.Size = New System.Drawing.Size(77, 13) + Me.LinkLabel2.TabIndex = 56 + Me.LinkLabel2.TabStop = True + Me.LinkLabel2.Text = "= Auftraggeber" + ' + 'lklAuftraggeber + ' + Me.lklAuftraggeber.AutoSize = True + Me.lklAuftraggeber.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!) + Me.lklAuftraggeber.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(30, Byte), Integer), CType(CType(90, Byte), Integer)) + Me.lklAuftraggeber.Location = New System.Drawing.Point(312, 81) + Me.lklAuftraggeber.Name = "lklAuftraggeber" + Me.lklAuftraggeber.Size = New System.Drawing.Size(77, 13) + Me.lklAuftraggeber.TabIndex = 40 + Me.lklAuftraggeber.TabStop = True + Me.lklAuftraggeber.Text = "= Auftraggeber" + ' + 'Label8 + ' + Me.Label8.BackColor = System.Drawing.Color.Transparent + Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold) + Me.Label8.ForeColor = System.Drawing.Color.Red + Me.Label8.Location = New System.Drawing.Point(11, -4) + Me.Label8.Name = "Label8" + Me.Label8.Size = New System.Drawing.Size(406, 28) + Me.Label8.TabIndex = 0 + Me.Label8.Text = "Akt abgeschlossen - keine Änderungen mehr möglich." + Me.Label8.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Label8.Visible = False + ' + 'Panel5 + ' + Me.Panel5.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.Panel5.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.Panel5.Controls.Add(Me.lblAbfNrExists) + Me.Panel5.Controls.Add(Me.cbxFremdspedition) + Me.Panel5.Controls.Add(Me.lblAbfNr_Err) + Me.Panel5.Controls.Add(Me.Panel1) + Me.Panel5.Controls.Add(Me.cboAbfertigungsart) + Me.Panel5.Controls.Add(Me.Label1) + Me.Panel5.Controls.Add(Me.pnlFremd) + Me.Panel5.Controls.Add(Me.txtAnzahl) + Me.Panel5.Controls.Add(Me.lblAnzahl) + Me.Panel5.Controls.Add(Me.btnNeueAbfertigungNrVergeben) + Me.Panel5.Controls.Add(Me.Label14) + Me.Panel5.Controls.Add(Me.txtUnterNr) + Me.Panel5.Controls.Add(Me.Label13) + Me.Panel5.Controls.Add(Me.Label7) + Me.Panel5.Controls.Add(Me.cboFiliale) + Me.Panel5.Controls.Add(Me.txtAbfertigungsnummer) + Me.Panel5.Dock = System.Windows.Forms.DockStyle.Top + Me.Panel5.Location = New System.Drawing.Point(0, 0) + Me.Panel5.Name = "Panel5" + Me.Panel5.Size = New System.Drawing.Size(1214, 69) + Me.Panel5.TabIndex = 0 + ' + 'lblAbfNrExists + ' + Me.lblAbfNrExists.AutoSize = True + Me.lblAbfNrExists.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold) + Me.lblAbfNrExists.ForeColor = System.Drawing.Color.Red + Me.lblAbfNrExists.Location = New System.Drawing.Point(117, 52) + Me.lblAbfNrExists.Name = "lblAbfNrExists" + Me.lblAbfNrExists.Size = New System.Drawing.Size(215, 13) + Me.lblAbfNrExists.TabIndex = 15 + Me.lblAbfNrExists.Text = "Abfertigungsnummer existiert bereits!" + Me.lblAbfNrExists.Visible = False + ' + 'cbxFremdspedition + ' + Me.cbxFremdspedition.AutoSize = True + Me.cbxFremdspedition.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.cbxFremdspedition.ForeColor = System.Drawing.Color.White + Me.cbxFremdspedition.Location = New System.Drawing.Point(639, 7) + Me.cbxFremdspedition.Name = "cbxFremdspedition" + Me.cbxFremdspedition.Size = New System.Drawing.Size(97, 17) + Me.cbxFremdspedition.TabIndex = 1 + Me.cbxFremdspedition.Text = "Fremdspedition" + Me.cbxFremdspedition.UseVisualStyleBackColor = False + ' + 'lblAbfNr_Err + ' + Me.lblAbfNr_Err.AutoSize = True + Me.lblAbfNr_Err.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold) + Me.lblAbfNr_Err.ForeColor = System.Drawing.Color.Red + Me.lblAbfNr_Err.Location = New System.Drawing.Point(99, 52) + Me.lblAbfNr_Err.Name = "lblAbfNr_Err" + Me.lblAbfNr_Err.Size = New System.Drawing.Size(235, 13) + Me.lblAbfNr_Err.TabIndex = 14 + Me.lblAbfNr_Err.Text = "Abfertigungsnummer im falschen Format!" + Me.lblAbfNr_Err.Visible = False + ' + 'Panel1 + ' + Me.Panel1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.Panel1.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) + Me.Panel1.Controls.Add(Me.Button13) + Me.Panel1.Controls.Add(Me.lblSendungen) + Me.Panel1.Controls.Add(Me.Label3) + Me.Panel1.Location = New System.Drawing.Point(1102, 0) + Me.Panel1.Name = "Panel1" + Me.Panel1.Size = New System.Drawing.Size(105, 63) + Me.Panel1.TabIndex = 2 + Me.Panel1.TabStop = True + ' + 'Button13 + ' + Me.Button13.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.Button13.BackColor = System.Drawing.Color.Transparent + Me.Button13.BackgroundImage = Global.AVISO.My.Resources.Resources.gear2 + Me.Button13.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.Button13.FlatAppearance.BorderSize = 0 + Me.Button13.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button13.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!) + Me.Button13.Location = New System.Drawing.Point(85, 0) + Me.Button13.Name = "Button13" + Me.Button13.Padding = New System.Windows.Forms.Padding(0, 25, 0, 0) + Me.Button13.Size = New System.Drawing.Size(20, 20) + Me.Button13.TabIndex = 0 + Me.Button13.TextAlign = System.Drawing.ContentAlignment.BottomCenter + Me.Button13.UseVisualStyleBackColor = False + ' + 'lblSendungen + ' + Me.lblSendungen.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ + Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lblSendungen.Font = New System.Drawing.Font("Microsoft Sans Serif", 20.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblSendungen.Location = New System.Drawing.Point(0, 6) + Me.lblSendungen.Name = "lblSendungen" + Me.lblSendungen.Size = New System.Drawing.Size(105, 39) + Me.lblSendungen.TabIndex = 1 + Me.lblSendungen.Text = "1/10" + Me.lblSendungen.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'Label3 + ' + Me.Label3.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ + Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.Label3.Location = New System.Drawing.Point(0, 44) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(105, 21) + Me.Label3.TabIndex = 2 + Me.Label3.Text = "Sendung Pos." + Me.Label3.TextAlign = System.Drawing.ContentAlignment.TopCenter + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label1.ForeColor = System.Drawing.Color.White + Me.Label1.Location = New System.Drawing.Point(418, 7) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(109, 17) + Me.Label1.TabIndex = 0 + Me.Label1.Text = "Abfertigungsart:" + ' + 'pnlFremd + ' + Me.pnlFremd.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.pnlFremd.Controls.Add(Me.Label9) + Me.pnlFremd.Controls.Add(Me.txtFremdEmpfKdNR) + Me.pnlFremd.Controls.Add(Me.txtFremdEmpf) + Me.pnlFremd.Controls.Add(Me.Label11) + Me.pnlFremd.Controls.Add(Me.cboFremdsped) + Me.pnlFremd.Location = New System.Drawing.Point(3, 5) + Me.pnlFremd.Name = "pnlFremd" + Me.pnlFremd.Size = New System.Drawing.Size(24, 63) + Me.pnlFremd.TabIndex = 3 + ' + 'Label9 + ' + Me.Label9.AutoSize = True + Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label9.ForeColor = System.Drawing.Color.White + Me.Label9.Location = New System.Drawing.Point(210, 2) + Me.Label9.Name = "Label9" + Me.Label9.Size = New System.Drawing.Size(109, 17) + Me.Label9.TabIndex = 1 + Me.Label9.Text = "Fremdspedition:" + ' + 'Label11 + ' + Me.Label11.AutoSize = True + Me.Label11.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label11.ForeColor = System.Drawing.Color.White + Me.Label11.Location = New System.Drawing.Point(28, 2) + Me.Label11.Name = "Label11" + Me.Label11.Size = New System.Drawing.Size(81, 17) + Me.Label11.TabIndex = 0 + Me.Label11.Text = "Empfänger:" + ' + 'lblAnzahl + ' + Me.lblAnzahl.AutoSize = True + Me.lblAnzahl.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblAnzahl.ForeColor = System.Drawing.Color.White + Me.lblAnzahl.Location = New System.Drawing.Point(738, 6) + Me.lblAnzahl.Name = "lblAnzahl" + Me.lblAnzahl.Size = New System.Drawing.Size(55, 17) + Me.lblAnzahl.TabIndex = 7 + Me.lblAnzahl.Text = "Anzahl:" + Me.lblAnzahl.Visible = False + ' + 'btnNeueAbfertigungNrVergeben + ' + Me.btnNeueAbfertigungNrVergeben.BackColor = System.Drawing.Color.WhiteSmoke + Me.btnNeueAbfertigungNrVergeben.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnNeueAbfertigungNrVergeben.Location = New System.Drawing.Point(120, 27) + Me.btnNeueAbfertigungNrVergeben.Name = "btnNeueAbfertigungNrVergeben" + Me.btnNeueAbfertigungNrVergeben.Size = New System.Drawing.Size(224, 25) + Me.btnNeueAbfertigungNrVergeben.TabIndex = 9 + Me.btnNeueAbfertigungNrVergeben.Text = "Neue Abfertigung-Nr. vergeben" + Me.btnNeueAbfertigungNrVergeben.UseVisualStyleBackColor = False + Me.btnNeueAbfertigungNrVergeben.Visible = False + ' + 'Label14 + ' + Me.Label14.AutoSize = True + Me.Label14.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label14.ForeColor = System.Drawing.Color.White + Me.Label14.Location = New System.Drawing.Point(30, 6) + Me.Label14.Name = "Label14" + Me.Label14.Size = New System.Drawing.Size(44, 17) + Me.Label14.TabIndex = 4 + Me.Label14.Text = "Filiale" + ' + 'Label13 + ' + Me.Label13.AutoSize = True + Me.Label13.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label13.ForeColor = System.Drawing.Color.White + Me.Label13.Location = New System.Drawing.Point(116, 6) + Me.Label13.Name = "Label13" + Me.Label13.Size = New System.Drawing.Size(139, 17) + Me.Label13.TabIndex = 5 + Me.Label13.Text = "Abfertigungsnummer" + ' + 'Label7 + ' + Me.Label7.AutoSize = True + Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label7.ForeColor = System.Drawing.Color.White + Me.Label7.Location = New System.Drawing.Point(344, 6) + Me.Label7.Name = "Label7" + Me.Label7.Size = New System.Drawing.Size(58, 17) + Me.Label7.TabIndex = 6 + Me.Label7.Text = "UnterNr" + Me.Label7.Visible = False + ' + 'Panel2 + ' + Me.Panel2.AutoSize = True + Me.Panel2.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.Panel2.Controls.Add(Me.FlowLayoutPanel) + Me.Panel2.Controls.Add(Me.pnlheader) + Me.Panel2.Dock = System.Windows.Forms.DockStyle.Top + Me.Panel2.Location = New System.Drawing.Point(0, 0) + Me.Panel2.MaximumSize = New System.Drawing.Size(0, 510) + Me.Panel2.Name = "Panel2" + Me.Panel2.Size = New System.Drawing.Size(1214, 55) + Me.Panel2.TabIndex = 0 + ' + 'FlowLayoutPanel + ' + Me.FlowLayoutPanel.AutoSize = True + Me.FlowLayoutPanel.Controls.Add(Me.FlatButton2) + Me.FlowLayoutPanel.Dock = System.Windows.Forms.DockStyle.Top + Me.FlowLayoutPanel.Location = New System.Drawing.Point(0, 0) + Me.FlowLayoutPanel.MaximumSize = New System.Drawing.Size(0, 550) + Me.FlowLayoutPanel.MinimumSize = New System.Drawing.Size(0, 53) + Me.FlowLayoutPanel.Name = "FlowLayoutPanel" + Me.FlowLayoutPanel.Size = New System.Drawing.Size(1214, 55) + Me.FlowLayoutPanel.TabIndex = 0 + ' + 'pnlheader + ' + Me.pnlheader.Controls.Add(Me.Label2) + Me.pnlheader.Dock = System.Windows.Forms.DockStyle.Top + Me.pnlheader.Location = New System.Drawing.Point(0, 0) + Me.pnlheader.Name = "pnlheader" + Me.pnlheader.Size = New System.Drawing.Size(1214, 0) + Me.pnlheader.TabIndex = 1 + Me.pnlheader.Visible = False + ' + 'Label2 + ' + 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(3, 11) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(117, 13) + Me.Label2.TabIndex = 0 + Me.Label2.Text = "Alle Sendungen im Akt:" + ' + 'Panel7 + ' + Me.Panel7.Controls.Add(Me.lblgesGewicht) + Me.Panel7.Controls.Add(Me.lblGesColli) + Me.Panel7.Controls.Add(Me.Label44) + Me.Panel7.Controls.Add(Me.lblGrenze) + Me.Panel7.Controls.Add(Me.Label15) + Me.Panel7.Controls.Add(Me.Button17) + Me.Panel7.Controls.Add(Me.Panel3) + Me.Panel7.Controls.Add(Me.Panel9) + Me.Panel7.Controls.Add(Me.btn) + Me.Panel7.Controls.Add(Me.cbxSpedBuch) + Me.Panel7.Dock = System.Windows.Forms.DockStyle.Bottom + Me.Panel7.Location = New System.Drawing.Point(0, 799) + Me.Panel7.MinimumSize = New System.Drawing.Size(0, 51) + Me.Panel7.Name = "Panel7" + Me.Panel7.Size = New System.Drawing.Size(1214, 64) + Me.Panel7.TabIndex = 3 + ' + 'lblgesGewicht + ' + Me.lblgesGewicht.AutoSize = True + Me.lblgesGewicht.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblgesGewicht.Location = New System.Drawing.Point(383, 33) + Me.lblgesGewicht.Name = "lblgesGewicht" + Me.lblgesGewicht.Size = New System.Drawing.Size(64, 13) + Me.lblgesGewicht.TabIndex = 9 + Me.lblgesGewicht.Text = "10.000 kg" + ' + 'lblGesColli + ' + Me.lblGesColli.AutoSize = True + Me.lblGesColli.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblGesColli.Location = New System.Drawing.Point(383, 18) + Me.lblGesColli.Name = "lblGesColli" + Me.lblGesColli.Size = New System.Drawing.Size(37, 13) + Me.lblGesColli.TabIndex = 8 + Me.lblGesColli.Text = "0 Pk." + ' + 'Label44 + ' + Me.Label44.AutoSize = True + Me.Label44.Location = New System.Drawing.Point(383, 3) + Me.Label44.Name = "Label44" + Me.Label44.Size = New System.Drawing.Size(46, 13) + Me.Label44.TabIndex = 7 + Me.Label44.Text = "Gesamt:" + ' + 'lblGrenze + ' + Me.lblGrenze.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold) + Me.lblGrenze.Location = New System.Drawing.Point(137, 15) + Me.lblGrenze.Name = "lblGrenze" + Me.lblGrenze.Size = New System.Drawing.Size(236, 44) + Me.lblGrenze.TabIndex = 6 + Me.lblGrenze.Text = "SUB" + ' + 'Label15 + ' + Me.Label15.AutoSize = True + Me.Label15.Location = New System.Drawing.Point(137, 0) + Me.Label15.Name = "Label15" + Me.Label15.Size = New System.Drawing.Size(44, 13) + Me.Label15.TabIndex = 4 + Me.Label15.Text = "Grenze:" + ' + 'Button17 + ' + 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.Image = Global.AVISO.My.Resources.Resources.vermerk + Me.Button17.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button17.Location = New System.Drawing.Point(485, 6) + Me.Button17.Name = "Button17" + Me.Button17.Padding = New System.Windows.Forms.Padding(0, 0, 10, 0) + Me.Button17.Size = New System.Drawing.Size(98, 40) + Me.Button17.TabIndex = 5 + Me.Button17.Text = "Vermerk" + Me.Button17.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.Button17.UseVisualStyleBackColor = True + ' + 'Panel3 + ' + Me.Panel3.Controls.Add(Me.btnDelQS) + Me.Panel3.Controls.Add(Me.btnQS_MA) + Me.Panel3.Controls.Add(Me.lblQsMa) + Me.Panel3.Controls.Add(Me.Label16) + Me.Panel3.Dock = System.Windows.Forms.DockStyle.Right + Me.Panel3.Location = New System.Drawing.Point(691, 0) + Me.Panel3.Name = "Panel3" + Me.Panel3.Size = New System.Drawing.Size(228, 64) + Me.Panel3.TabIndex = 2 + ' + 'btnDelQS + ' + Me.btnDelQS.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btnDelQS.BackColor = System.Drawing.Color.WhiteSmoke + Me.btnDelQS.BackgroundImage = CType(resources.GetObject("btnDelQS.BackgroundImage"), System.Drawing.Image) + Me.btnDelQS.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.btnDelQS.Cursor = System.Windows.Forms.Cursors.Hand + Me.btnDelQS.FlatAppearance.BorderSize = 0 + Me.btnDelQS.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnDelQS.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnDelQS.Location = New System.Drawing.Point(107, 0) + Me.btnDelQS.Name = "btnDelQS" + Me.btnDelQS.Size = New System.Drawing.Size(12, 13) + Me.btnDelQS.TabIndex = 1 + Me.btnDelQS.UseVisualStyleBackColor = False + Me.btnDelQS.Visible = False + ' + 'btnQS_MA + ' + Me.btnQS_MA.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btnQS_MA.BackColor = System.Drawing.Color.WhiteSmoke + Me.btnQS_MA.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.btnQS_MA.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnQS_MA.Image = Global.AVISO.My.Resources.Resources.personCheck_small + Me.btnQS_MA.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnQS_MA.Location = New System.Drawing.Point(4, 14) + Me.btnQS_MA.Name = "btnQS_MA" + Me.btnQS_MA.Size = New System.Drawing.Size(222, 32) + Me.btnQS_MA.TabIndex = 2 + Me.btnQS_MA.Text = "Sendung übernehmen" + Me.btnQS_MA.UseVisualStyleBackColor = False + ' + 'lblQsMa + ' + Me.lblQsMa.AutoSize = True + Me.lblQsMa.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold) + Me.lblQsMa.Location = New System.Drawing.Point(6, 45) + Me.lblQsMa.Name = "lblQsMa" + Me.lblQsMa.Size = New System.Drawing.Size(14, 17) + Me.lblQsMa.TabIndex = 3 + Me.lblQsMa.Text = "-" + ' + 'Label16 + ' + Me.Label16.AutoSize = True + Me.Label16.Location = New System.Drawing.Point(3, 0) + Me.Label16.Name = "Label16" + Me.Label16.Size = New System.Drawing.Size(70, 13) + Me.Label16.TabIndex = 0 + Me.Label16.Text = "Aktueller MA:" + ' + 'Panel9 + ' + Me.Panel9.Controls.Add(Me.Button10) + Me.Panel9.Controls.Add(Me.Button2) + Me.Panel9.Dock = System.Windows.Forms.DockStyle.Right + Me.Panel9.Location = New System.Drawing.Point(919, 0) + Me.Panel9.Name = "Panel9" + Me.Panel9.Size = New System.Drawing.Size(295, 64) + Me.Panel9.TabIndex = 3 + ' + 'Button10 + ' + Me.Button10.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button10.Location = New System.Drawing.Point(6, 6) + Me.Button10.Name = "Button10" + Me.Button10.Size = New System.Drawing.Size(110, 40) + Me.Button10.TabIndex = 0 + Me.Button10.Text = "Abbrechen" + Me.Button10.UseVisualStyleBackColor = True + ' + 'Button2 + ' + Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button2.Image = CType(resources.GetObject("Button2.Image"), System.Drawing.Image) + Me.Button2.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button2.Location = New System.Drawing.Point(122, 6) + Me.Button2.Name = "Button2" + Me.Button2.Size = New System.Drawing.Size(159, 40) + Me.Button2.TabIndex = 1 + Me.Button2.Text = "OK" + Me.Button2.UseVisualStyleBackColor = True + ' + 'btn + ' + Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btn.Image = CType(resources.GetObject("btn.Image"), System.Drawing.Image) + Me.btn.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btn.Location = New System.Drawing.Point(6, 6) + Me.btn.Name = "btn" + Me.btn.Size = New System.Drawing.Size(125, 40) + Me.btn.TabIndex = 0 + Me.btn.Text = "Eintrag" & Global.Microsoft.VisualBasic.ChrW(10) & "Speditionsbuch" + Me.btn.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btn.UseVisualStyleBackColor = True + ' + 'ToolStripMenuItem3 + ' + Me.ToolStripMenuItem3.Image = Global.AVISO.My.Resources.Resources.plus + Me.ToolStripMenuItem3.Name = "ToolStripMenuItem3" + Me.ToolStripMenuItem3.Padding = New System.Windows.Forms.Padding(8, 0, 8, 0) + Me.ToolStripMenuItem3.Size = New System.Drawing.Size(70, 20) + Me.ToolStripMenuItem3.Text = " EZA" + Me.ToolStripMenuItem3.ToolTipText = "Neue Zollanmeldung" + ' + 'ToolStripMenuItem2 + ' + Me.ToolStripMenuItem2.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem4, Me.ToolStripMenuItem5, Me.ÜTToolStripMenuItem}) + Me.ToolStripMenuItem2.Image = Global.AVISO.My.Resources.Resources.plus + Me.ToolStripMenuItem2.Name = "ToolStripMenuItem2" + Me.ToolStripMenuItem2.Padding = New System.Windows.Forms.Padding(8, 0, 8, 0) + Me.ToolStripMenuItem2.Size = New System.Drawing.Size(79, 20) + Me.ToolStripMenuItem2.Text = " NCTS" + Me.ToolStripMenuItem2.ToolTipText = "Neue Zollanmeldung" + ' + 'ToolStripMenuItem4 + ' + Me.ToolStripMenuItem4.Font = New System.Drawing.Font("Segoe UI", 9.0!) + Me.ToolStripMenuItem4.Image = Global.AVISO.My.Resources.Resources.plus + Me.ToolStripMenuItem4.Name = "ToolStripMenuItem4" + Me.ToolStripMenuItem4.Size = New System.Drawing.Size(94, 22) + Me.ToolStripMenuItem4.Text = "T1" + ' + 'ToolStripMenuItem5 + ' + Me.ToolStripMenuItem5.Font = New System.Drawing.Font("Segoe UI", 9.0!) + Me.ToolStripMenuItem5.Image = Global.AVISO.My.Resources.Resources.plus + Me.ToolStripMenuItem5.Name = "ToolStripMenuItem5" + Me.ToolStripMenuItem5.Size = New System.Drawing.Size(94, 22) + Me.ToolStripMenuItem5.Text = "T2" + ' + 'ÜTToolStripMenuItem + ' + Me.ÜTToolStripMenuItem.Enabled = False + Me.ÜTToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.plus + Me.ÜTToolStripMenuItem.Name = "ÜTToolStripMenuItem" + Me.ÜTToolStripMenuItem.Size = New System.Drawing.Size(94, 22) + Me.ÜTToolStripMenuItem.Text = "Ü-T" + ' + 'NeueZollanmeldungToolStripMenuItem + ' + Me.NeueZollanmeldungToolStripMenuItem.Enabled = False + Me.NeueZollanmeldungToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.plus + Me.NeueZollanmeldungToolStripMenuItem.Name = "NeueZollanmeldungToolStripMenuItem" + Me.NeueZollanmeldungToolStripMenuItem.Padding = New System.Windows.Forms.Padding(8, 0, 8, 0) + Me.NeueZollanmeldungToolStripMenuItem.Size = New System.Drawing.Size(69, 20) + Me.NeueZollanmeldungToolStripMenuItem.Text = " AES" + Me.NeueZollanmeldungToolStripMenuItem.ToolTipText = "Neue Zollanmeldung" + ' + 'LogToolStripMenuItem + ' + Me.LogToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.android_note + Me.LogToolStripMenuItem.Name = "LogToolStripMenuItem" + Me.LogToolStripMenuItem.Size = New System.Drawing.Size(61, 20) + Me.LogToolStripMenuItem.Text = " Log" + Me.LogToolStripMenuItem.ToolTipText = "Logbuch" + ' + 'BindingNavigatorAddNewItem + ' + Me.BindingNavigatorAddNewItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorAddNewItem.Image = CType(resources.GetObject("BindingNavigatorAddNewItem.Image"), System.Drawing.Image) + Me.BindingNavigatorAddNewItem.Name = "BindingNavigatorAddNewItem" + Me.BindingNavigatorAddNewItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorAddNewItem.Size = New System.Drawing.Size(24, 24) + Me.BindingNavigatorAddNewItem.Text = "Neu hinzufügen" + ' + 'BindingNavigatorCountItem + ' + Me.BindingNavigatorCountItem.Name = "BindingNavigatorCountItem" + Me.BindingNavigatorCountItem.Size = New System.Drawing.Size(44, 24) + Me.BindingNavigatorCountItem.Text = "von {0}" + Me.BindingNavigatorCountItem.ToolTipText = "Die Gesamtanzahl der Elemente." + ' + 'BindingNavigatorDeleteItem + ' + Me.BindingNavigatorDeleteItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorDeleteItem.Image = CType(resources.GetObject("BindingNavigatorDeleteItem.Image"), System.Drawing.Image) + Me.BindingNavigatorDeleteItem.Name = "BindingNavigatorDeleteItem" + Me.BindingNavigatorDeleteItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorDeleteItem.Size = New System.Drawing.Size(24, 24) + Me.BindingNavigatorDeleteItem.Text = "Löschen" + ' + 'BindingNavigatorMoveLastItem + ' + Me.BindingNavigatorMoveLastItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveLastItem.Image = CType(resources.GetObject("BindingNavigatorMoveLastItem.Image"), System.Drawing.Image) + Me.BindingNavigatorMoveLastItem.Name = "BindingNavigatorMoveLastItem" + Me.BindingNavigatorMoveLastItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveLastItem.Size = New System.Drawing.Size(24, 24) + Me.BindingNavigatorMoveLastItem.Text = "Letzte verschieben" + ' + 'BindingNavigatorMoveNextItem + ' + Me.BindingNavigatorMoveNextItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveNextItem.Image = CType(resources.GetObject("BindingNavigatorMoveNextItem.Image"), System.Drawing.Image) + Me.BindingNavigatorMoveNextItem.Name = "BindingNavigatorMoveNextItem" + Me.BindingNavigatorMoveNextItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveNextItem.Size = New System.Drawing.Size(24, 24) + Me.BindingNavigatorMoveNextItem.Text = "Nächste verschieben" + ' + 'BindingNavigatorMovePreviousItem + ' + Me.BindingNavigatorMovePreviousItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMovePreviousItem.Image = CType(resources.GetObject("BindingNavigatorMovePreviousItem.Image"), System.Drawing.Image) + Me.BindingNavigatorMovePreviousItem.Name = "BindingNavigatorMovePreviousItem" + Me.BindingNavigatorMovePreviousItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMovePreviousItem.Size = New System.Drawing.Size(24, 24) + Me.BindingNavigatorMovePreviousItem.Text = "Vorherige verschieben" + ' + 'BindingNavigatorPositionItem + ' + Me.BindingNavigatorPositionItem.AccessibleName = "Position" + Me.BindingNavigatorPositionItem.AutoSize = False + Me.BindingNavigatorPositionItem.Name = "BindingNavigatorPositionItem" + Me.BindingNavigatorPositionItem.Size = New System.Drawing.Size(50, 23) + Me.BindingNavigatorPositionItem.Text = "0" + Me.BindingNavigatorPositionItem.ToolTipText = "Aktuelle Position" + ' + 'BindingNavigatorSeparator + ' + Me.BindingNavigatorSeparator.Name = "BindingNavigatorSeparator" + Me.BindingNavigatorSeparator.Size = New System.Drawing.Size(6, 27) + ' + 'BindingNavigatorSeparator1 + ' + Me.BindingNavigatorSeparator1.Name = "BindingNavigatorSeparator1" + Me.BindingNavigatorSeparator1.Size = New System.Drawing.Size(6, 27) + ' + 'BindingNavigatorSeparator2 + ' + Me.BindingNavigatorSeparator2.Name = "BindingNavigatorSeparator2" + Me.BindingNavigatorSeparator2.Size = New System.Drawing.Size(6, 27) + ' + 'cntxtVorauskasse + ' + Me.cntxtVorauskasse.ImageScalingSize = New System.Drawing.Size(24, 24) + Me.cntxtVorauskasse.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.toolAuftraggeber, Me.toolAbsender, Me.toolEmpfänger, Me.toolAvisierer, Me.toolFrächter}) + Me.cntxtVorauskasse.Name = "cntxtVorauskasse" + Me.cntxtVorauskasse.Size = New System.Drawing.Size(145, 114) + ' + 'toolAuftraggeber + ' + Me.toolAuftraggeber.Name = "toolAuftraggeber" + Me.toolAuftraggeber.Size = New System.Drawing.Size(144, 22) + Me.toolAuftraggeber.Text = "Auftraggeber" + ' + 'toolAbsender + ' + Me.toolAbsender.Name = "toolAbsender" + Me.toolAbsender.Size = New System.Drawing.Size(144, 22) + Me.toolAbsender.Text = "Absender" + ' + 'toolEmpfänger + ' + Me.toolEmpfänger.Name = "toolEmpfänger" + Me.toolEmpfänger.Size = New System.Drawing.Size(144, 22) + Me.toolEmpfänger.Text = "Empfänger" + ' + 'toolAvisierer + ' + Me.toolAvisierer.Name = "toolAvisierer" + Me.toolAvisierer.Size = New System.Drawing.Size(144, 22) + Me.toolAvisierer.Text = "Avisierer" + ' + 'toolFrächter + ' + Me.toolFrächter.Name = "toolFrächter" + Me.toolFrächter.Size = New System.Drawing.Size(144, 22) + Me.toolFrächter.Text = "Frächter" + ' + 'cntxtOptions + ' + Me.cntxtOptions.ImageScalingSize = New System.Drawing.Size(24, 24) + Me.cntxtOptions.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem1, Me.GelangensbestätigungToolStripMenuItem}) + Me.cntxtOptions.Name = "cntxtVorauskasse" + Me.cntxtOptions.Size = New System.Drawing.Size(203, 48) + ' + 'ToolStripMenuItem1 + ' + Me.ToolStripMenuItem1.Name = "ToolStripMenuItem1" + Me.ToolStripMenuItem1.Size = New System.Drawing.Size(202, 22) + Me.ToolStripMenuItem1.Text = "Alle Aktenzettel drucken" + ' + 'GelangensbestätigungToolStripMenuItem + ' + Me.GelangensbestätigungToolStripMenuItem.Name = "GelangensbestätigungToolStripMenuItem" + Me.GelangensbestätigungToolStripMenuItem.Size = New System.Drawing.Size(202, 22) + Me.GelangensbestätigungToolStripMenuItem.Text = "Gelangensbestätigung" + ' + 'ctxtWeitereFormulare + ' + Me.ctxtWeitereFormulare.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.toolGelangensbestätigung, Me.toolOriginalSendungsunterlagen, Me.LaufzettelDruckenToolStripMenuItem}) + Me.ctxtWeitereFormulare.Name = "cntxt" + Me.ctxtWeitereFormulare.Size = New System.Drawing.Size(263, 70) + ' + 'toolGelangensbestätigung + ' + Me.toolGelangensbestätigung.Name = "toolGelangensbestätigung" + Me.toolGelangensbestätigung.Size = New System.Drawing.Size(262, 22) + Me.toolGelangensbestätigung.Text = "Gelangensbestätigung" + ' + 'toolOriginalSendungsunterlagen + ' + Me.toolOriginalSendungsunterlagen.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.AuftraggeberToolStripMenuItem, Me.EmpfängerToolStripMenuItem}) + Me.toolOriginalSendungsunterlagen.Name = "toolOriginalSendungsunterlagen" + Me.toolOriginalSendungsunterlagen.Size = New System.Drawing.Size(262, 22) + Me.toolOriginalSendungsunterlagen.Text = "Original Sendungsunterlagen (Post)" + ' + 'AuftraggeberToolStripMenuItem + ' + Me.AuftraggeberToolStripMenuItem.Name = "AuftraggeberToolStripMenuItem" + Me.AuftraggeberToolStripMenuItem.Size = New System.Drawing.Size(144, 22) + Me.AuftraggeberToolStripMenuItem.Text = "Auftraggeber" + ' + 'EmpfängerToolStripMenuItem + ' + Me.EmpfängerToolStripMenuItem.Name = "EmpfängerToolStripMenuItem" + Me.EmpfängerToolStripMenuItem.Size = New System.Drawing.Size(144, 22) + Me.EmpfängerToolStripMenuItem.Text = "Empfänger" + ' + 'LaufzettelDruckenToolStripMenuItem + ' + Me.LaufzettelDruckenToolStripMenuItem.Name = "LaufzettelDruckenToolStripMenuItem" + Me.LaufzettelDruckenToolStripMenuItem.Size = New System.Drawing.Size(262, 22) + Me.LaufzettelDruckenToolStripMenuItem.Text = "Laufzettel drucken" + ' + 'ContextMenuStrip1 + ' + Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem15, Me.SpeditionSUBENToolStripMenuItem}) + Me.ContextMenuStrip1.Name = "cntxtAnh" + Me.ContextMenuStrip1.Size = New System.Drawing.Size(171, 48) + ' + 'ToolStripMenuItem15 + ' + Me.ToolStripMenuItem15.Image = Global.AVISO.My.Resources.Resources.email_big1 + Me.ToolStripMenuItem15.Name = "ToolStripMenuItem15" + Me.ToolStripMenuItem15.Size = New System.Drawing.Size(170, 22) + Me.ToolStripMenuItem15.Text = "Fremdspeditionen" + ' + 'SpeditionSUBENToolStripMenuItem + ' + Me.SpeditionSUBENToolStripMenuItem.Name = "SpeditionSUBENToolStripMenuItem" + Me.SpeditionSUBENToolStripMenuItem.Size = New System.Drawing.Size(170, 22) + Me.SpeditionSUBENToolStripMenuItem.Text = "Spedition SUBEN" + ' + 'ContextMenuStrip2 + ' + Me.ContextMenuStrip2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem14, Me.NurÖffnenToolStripMenuItem}) + Me.ContextMenuStrip2.Name = "cntxtAnh" + Me.ContextMenuStrip2.Size = New System.Drawing.Size(248, 48) + Me.ContextMenuStrip2.Text = "nur öffnen" + ' + 'ToolStripMenuItem14 + ' + Me.ToolStripMenuItem14.Image = CType(resources.GetObject("ToolStripMenuItem14.Image"), System.Drawing.Image) + Me.ToolStripMenuItem14.Name = "ToolStripMenuItem14" + Me.ToolStripMenuItem14.Size = New System.Drawing.Size(247, 22) + Me.ToolStripMenuItem14.Text = "Zusammenführen und speichern" + ' + 'NurÖffnenToolStripMenuItem + ' + Me.NurÖffnenToolStripMenuItem.Image = CType(resources.GetObject("NurÖffnenToolStripMenuItem.Image"), System.Drawing.Image) + Me.NurÖffnenToolStripMenuItem.Name = "NurÖffnenToolStripMenuItem" + Me.NurÖffnenToolStripMenuItem.Size = New System.Drawing.Size(247, 22) + Me.NurÖffnenToolStripMenuItem.Text = "nur öffnen" + ' + 'dgvAnhang + ' + Me.dgvAnhang.AKTUALISIERUNGS_INTERVALL = -1 + Me.dgvAnhang.AllowUserToAddRows = False + Me.dgvAnhang.AllowUserToDeleteRows = False + Me.dgvAnhang.AllowUserToResizeColumns = False + Me.dgvAnhang.AllowUserToResizeRows = False + Me.dgvAnhang.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.dgvAnhang.ContextMenuStrip = Me.cntxtAnh + DataGridViewCellStyle22.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle22.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle22.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle22.ForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle22.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle22.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle22.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.dgvAnhang.DefaultCellStyle = DataGridViewCellStyle22 + Me.dgvAnhang.Dock = System.Windows.Forms.DockStyle.Fill + Me.dgvAnhang.Location = New System.Drawing.Point(0, 45) + Me.dgvAnhang.Name = "dgvAnhang" + Me.dgvAnhang.ReadOnly = True + Me.dgvAnhang.RowHeadersVisible = False + Me.dgvAnhang.RowTemplate.Height = 40 + Me.dgvAnhang.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect + Me.dgvAnhang.Size = New System.Drawing.Size(1206, 304) + Me.dgvAnhang.TabIndex = 1 + ' + 'dgvZollAnmeldungen + ' + Me.dgvZollAnmeldungen.AKTUALISIERUNGS_INTERVALL = -1 + Me.dgvZollAnmeldungen.AllowUserToAddRows = False + Me.dgvZollAnmeldungen.AllowUserToDeleteRows = False + Me.dgvZollAnmeldungen.AllowUserToResizeColumns = False + Me.dgvZollAnmeldungen.AllowUserToResizeRows = False + Me.dgvZollAnmeldungen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.dgvZollAnmeldungen.Dock = System.Windows.Forms.DockStyle.Fill + Me.dgvZollAnmeldungen.Location = New System.Drawing.Point(0, 24) + Me.dgvZollAnmeldungen.Name = "dgvZollAnmeldungen" + Me.dgvZollAnmeldungen.ReadOnly = True + Me.dgvZollAnmeldungen.RowTemplate.Height = 30 + Me.dgvZollAnmeldungen.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect + Me.dgvZollAnmeldungen.Size = New System.Drawing.Size(1206, 287) + Me.dgvZollAnmeldungen.TabIndex = 1 + ' + 'cboZolltarif + ' + Me.cboZolltarif._allowedValuesFreiText = Nothing + Me.cboZolltarif._allowFreiText = False + Me.cboZolltarif._value = "" + Me.cboZolltarif.FormattingEnabled = True + Me.cboZolltarif.Location = New System.Drawing.Point(59, 8) + Me.cboZolltarif.Name = "cboZolltarif" + Me.cboZolltarif.Size = New System.Drawing.Size(142, 21) + Me.cboZolltarif.TabIndex = 1 + ' + 'DataGridView + ' + Me.DataGridView.AKTUALISIERUNGS_INTERVALL = -1 + Me.DataGridView.AllowUserToAddRows = False + Me.DataGridView.AllowUserToDeleteRows = False + Me.DataGridView.AllowUserToOrderColumns = True + Me.DataGridView.AllowUserToResizeColumns = False + Me.DataGridView.AllowUserToResizeRows = False + Me.DataGridView.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.DataGridView.Dock = System.Windows.Forms.DockStyle.Fill + Me.DataGridView.Location = New System.Drawing.Point(3, 94) + Me.DataGridView.Name = "DataGridView" + Me.DataGridView.Size = New System.Drawing.Size(1200, 252) + Me.DataGridView.TabIndex = 1 + ' + 'cboSachbearbeiter + ' + Me.cboSachbearbeiter._allowedValuesFreiText = Nothing + Me.cboSachbearbeiter._allowFreiText = False + Me.cboSachbearbeiter._value = "" + Me.cboSachbearbeiter.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend + Me.cboSachbearbeiter.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems + Me.cboSachbearbeiter.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cboSachbearbeiter.FormattingEnabled = True + Me.cboSachbearbeiter.Location = New System.Drawing.Point(466, 42) + Me.cboSachbearbeiter.Name = "cboSachbearbeiter" + Me.cboSachbearbeiter.Size = New System.Drawing.Size(171, 24) + Me.cboSachbearbeiter.TabIndex = 14 + ' + 'cboZollsystem2 + ' + Me.cboZollsystem2._allowedValuesFreiText = Nothing + Me.cboZollsystem2._allowFreiText = False + Me.cboZollsystem2._value = "" + Me.cboZollsystem2.Enabled = False + Me.cboZollsystem2.FormattingEnabled = True + Me.cboZollsystem2.Location = New System.Drawing.Point(151, 66) + Me.cboZollsystem2.Name = "cboZollsystem2" + Me.cboZollsystem2.Size = New System.Drawing.Size(97, 21) + Me.cboZollsystem2.TabIndex = 16 + ' + 'txtAtlasBezNrEZA2 + ' + Me.txtAtlasBezNrEZA2._DateTimeOnly = False + Me.txtAtlasBezNrEZA2._numbersOnly = False + Me.txtAtlasBezNrEZA2._numbersOnlyKommastellen = "" + Me.txtAtlasBezNrEZA2._Prozent = False + Me.txtAtlasBezNrEZA2._ShortDateNew = False + Me.txtAtlasBezNrEZA2._ShortDateOnly = False + Me.txtAtlasBezNrEZA2._TimeOnly = False + Me.txtAtlasBezNrEZA2._value = Nothing + Me.txtAtlasBezNrEZA2._Waehrung = False + Me.txtAtlasBezNrEZA2._WaehrungZeichen = True + Me.txtAtlasBezNrEZA2.Enabled = False + Me.txtAtlasBezNrEZA2.ForeColor = System.Drawing.Color.Black + Me.txtAtlasBezNrEZA2.Location = New System.Drawing.Point(253, 66) + Me.txtAtlasBezNrEZA2.MaxLineLength = -1 + Me.txtAtlasBezNrEZA2.MaxLines_Warning = "" + Me.txtAtlasBezNrEZA2.MaxLines_Warning_Label = Nothing + Me.txtAtlasBezNrEZA2.Name = "txtAtlasBezNrEZA2" + Me.txtAtlasBezNrEZA2.Size = New System.Drawing.Size(101, 20) + Me.txtAtlasBezNrEZA2.TabIndex = 17 + ' + 'txtAtlasBezNrNCTS2 + ' + Me.txtAtlasBezNrNCTS2._DateTimeOnly = False + Me.txtAtlasBezNrNCTS2._numbersOnly = False + Me.txtAtlasBezNrNCTS2._numbersOnlyKommastellen = "" + Me.txtAtlasBezNrNCTS2._Prozent = False + Me.txtAtlasBezNrNCTS2._ShortDateNew = False + Me.txtAtlasBezNrNCTS2._ShortDateOnly = False + Me.txtAtlasBezNrNCTS2._TimeOnly = False + Me.txtAtlasBezNrNCTS2._value = Nothing + Me.txtAtlasBezNrNCTS2._Waehrung = False + Me.txtAtlasBezNrNCTS2._WaehrungZeichen = True + Me.txtAtlasBezNrNCTS2.Enabled = False + Me.txtAtlasBezNrNCTS2.ForeColor = System.Drawing.Color.Black + Me.txtAtlasBezNrNCTS2.Location = New System.Drawing.Point(359, 66) + Me.txtAtlasBezNrNCTS2.MaxLineLength = -1 + Me.txtAtlasBezNrNCTS2.MaxLines_Warning = "" + Me.txtAtlasBezNrNCTS2.MaxLines_Warning_Label = Nothing + Me.txtAtlasBezNrNCTS2.Name = "txtAtlasBezNrNCTS2" + Me.txtAtlasBezNrNCTS2.Size = New System.Drawing.Size(101, 20) + Me.txtAtlasBezNrNCTS2.TabIndex = 18 + ' + 'cboZollsystem + ' + Me.cboZollsystem._allowedValuesFreiText = Nothing + Me.cboZollsystem._allowFreiText = False + Me.cboZollsystem._value = "" + Me.cboZollsystem.FormattingEnabled = True + Me.cboZollsystem.Location = New System.Drawing.Point(151, 42) + Me.cboZollsystem.Name = "cboZollsystem" + Me.cboZollsystem.Size = New System.Drawing.Size(97, 21) + Me.cboZollsystem.TabIndex = 11 + ' + 'txtAtlasBezNrEZA + ' + Me.txtAtlasBezNrEZA._DateTimeOnly = False + Me.txtAtlasBezNrEZA._numbersOnly = False + Me.txtAtlasBezNrEZA._numbersOnlyKommastellen = "" + Me.txtAtlasBezNrEZA._Prozent = False + Me.txtAtlasBezNrEZA._ShortDateNew = False + Me.txtAtlasBezNrEZA._ShortDateOnly = False + Me.txtAtlasBezNrEZA._TimeOnly = False + Me.txtAtlasBezNrEZA._value = Nothing + Me.txtAtlasBezNrEZA._Waehrung = False + Me.txtAtlasBezNrEZA._WaehrungZeichen = True + Me.txtAtlasBezNrEZA.ForeColor = System.Drawing.Color.Black + Me.txtAtlasBezNrEZA.Location = New System.Drawing.Point(253, 42) + Me.txtAtlasBezNrEZA.MaxLineLength = -1 + Me.txtAtlasBezNrEZA.MaxLines_Warning = "" + Me.txtAtlasBezNrEZA.MaxLines_Warning_Label = Nothing + Me.txtAtlasBezNrEZA.Name = "txtAtlasBezNrEZA" + Me.txtAtlasBezNrEZA.Size = New System.Drawing.Size(101, 20) + Me.txtAtlasBezNrEZA.TabIndex = 12 + ' + 'txtAtlasBezNrNCTS + ' + Me.txtAtlasBezNrNCTS._DateTimeOnly = False + Me.txtAtlasBezNrNCTS._numbersOnly = False + Me.txtAtlasBezNrNCTS._numbersOnlyKommastellen = "" + Me.txtAtlasBezNrNCTS._Prozent = False + Me.txtAtlasBezNrNCTS._ShortDateNew = False + Me.txtAtlasBezNrNCTS._ShortDateOnly = False + Me.txtAtlasBezNrNCTS._TimeOnly = False + Me.txtAtlasBezNrNCTS._value = Nothing + Me.txtAtlasBezNrNCTS._Waehrung = False + Me.txtAtlasBezNrNCTS._WaehrungZeichen = True + Me.txtAtlasBezNrNCTS.ForeColor = System.Drawing.Color.Black + Me.txtAtlasBezNrNCTS.Location = New System.Drawing.Point(359, 42) + Me.txtAtlasBezNrNCTS.MaxLineLength = -1 + Me.txtAtlasBezNrNCTS.MaxLines_Warning = "" + Me.txtAtlasBezNrNCTS.MaxLines_Warning_Label = Nothing + Me.txtAtlasBezNrNCTS.Name = "txtAtlasBezNrNCTS" + Me.txtAtlasBezNrNCTS.Size = New System.Drawing.Size(101, 20) + Me.txtAtlasBezNrNCTS.TabIndex = 13 + ' + 'txtWarenwertWaehrung + ' + Me.txtWarenwertWaehrung._allowFreitext = False + Me.txtWarenwertWaehrung._AllowSetValue = False + Me.txtWarenwertWaehrung._autoSizeGross = False + Me.txtWarenwertWaehrung._hideIfListEmpty = True + Me.txtWarenwertWaehrung._value = "" + Me.txtWarenwertWaehrung.conn_art = "FMZOLL" + Me.txtWarenwertWaehrung.dgvpos = "LEFT" + Me.txtWarenwertWaehrung.DISPLAY_PARAM = Nothing + Me.txtWarenwertWaehrung.INVISIBLE_COLUMNS = Nothing + Me.txtWarenwertWaehrung.key_visible = False + Me.txtWarenwertWaehrung.KEYPARAM = Nothing + Me.txtWarenwertWaehrung.Location = New System.Drawing.Point(190, 69) + Me.txtWarenwertWaehrung.Name = "txtWarenwertWaehrung" + Me.txtWarenwertWaehrung.searchActive = True + Me.txtWarenwertWaehrung.Size = New System.Drawing.Size(40, 20) + Me.txtWarenwertWaehrung.SQL_ORDER_BY = Nothing + Me.txtWarenwertWaehrung.SQL_SELECT = Nothing + Me.txtWarenwertWaehrung.SQL_WHERE = Nothing + Me.txtWarenwertWaehrung.SQL_WhereParamList = Nothing + Me.txtWarenwertWaehrung.TabIndex = 12 + Me.txtWarenwertWaehrung.usrcntl = Nothing + ' + 'txtWarenwert + ' + Me.txtWarenwert._DateTimeOnly = False + Me.txtWarenwert._numbersOnly = True + Me.txtWarenwert._numbersOnlyKommastellen = "" + Me.txtWarenwert._Prozent = False + Me.txtWarenwert._ShortDateNew = False + Me.txtWarenwert._ShortDateOnly = False + Me.txtWarenwert._TimeOnly = False + Me.txtWarenwert._value = "" + Me.txtWarenwert._Waehrung = False + Me.txtWarenwert._WaehrungZeichen = True + Me.txtWarenwert.ForeColor = System.Drawing.Color.Black + Me.txtWarenwert.Location = New System.Drawing.Point(78, 69) + Me.txtWarenwert.MaxLineLength = -1 + Me.txtWarenwert.MaxLines_Warning = "" + Me.txtWarenwert.MaxLines_Warning_Label = Nothing + Me.txtWarenwert.Name = "txtWarenwert" + Me.txtWarenwert.Size = New System.Drawing.Size(114, 20) + Me.txtWarenwert.TabIndex = 11 + Me.txtWarenwert.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + ' + 'txtGewicht + ' + Me.txtGewicht._DateTimeOnly = False + Me.txtGewicht._numbersOnly = True + Me.txtGewicht._numbersOnlyKommastellen = "1" + Me.txtGewicht._Prozent = False + Me.txtGewicht._ShortDateNew = False + Me.txtGewicht._ShortDateOnly = False + Me.txtGewicht._TimeOnly = False + Me.txtGewicht._value = "" + Me.txtGewicht._Waehrung = False + Me.txtGewicht._WaehrungZeichen = True + Me.txtGewicht.ForeColor = System.Drawing.Color.Black + Me.txtGewicht.Location = New System.Drawing.Point(146, 50) + 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 = 6 + Me.txtGewicht.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + ' + 'txtBARzuKassieren + ' + Me.txtBARzuKassieren._DateTimeOnly = False + Me.txtBARzuKassieren._numbersOnly = False + Me.txtBARzuKassieren._numbersOnlyKommastellen = "" + Me.txtBARzuKassieren._Prozent = False + Me.txtBARzuKassieren._ShortDateNew = False + Me.txtBARzuKassieren._ShortDateOnly = False + Me.txtBARzuKassieren._TimeOnly = False + Me.txtBARzuKassieren._value = "" + Me.txtBARzuKassieren._Waehrung = True + Me.txtBARzuKassieren._WaehrungZeichen = True + Me.txtBARzuKassieren.ForeColor = System.Drawing.Color.Black + Me.txtBARzuKassieren.Location = New System.Drawing.Point(300, 50) + Me.txtBARzuKassieren.MaxLineLength = -1 + Me.txtBARzuKassieren.MaxLines_Warning = "" + Me.txtBARzuKassieren.MaxLines_Warning_Label = Nothing + Me.txtBARzuKassieren.Name = "txtBARzuKassieren" + Me.txtBARzuKassieren.Size = New System.Drawing.Size(64, 20) + Me.txtBARzuKassieren.TabIndex = 8 + Me.txtBARzuKassieren.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + ' + 'txtColli + ' + Me.txtColli._DateTimeOnly = False + Me.txtColli._numbersOnly = True + Me.txtColli._numbersOnlyKommastellen = "0" + Me.txtColli._Prozent = False + Me.txtColli._ShortDateNew = False + Me.txtColli._ShortDateOnly = False + Me.txtColli._TimeOnly = False + Me.txtColli._value = "" + Me.txtColli._Waehrung = False + Me.txtColli._WaehrungZeichen = True + Me.txtColli.ForeColor = System.Drawing.Color.Black + Me.txtColli.Location = New System.Drawing.Point(78, 50) + 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 = 4 + Me.txtColli.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + ' + 'cboPrinter + ' + Me.cboPrinter._allowedValuesFreiText = Nothing + Me.cboPrinter._allowFreiText = False + Me.cboPrinter._value = "" + Me.cboPrinter.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cboPrinter.DropDownWidth = 300 + Me.cboPrinter.FormattingEnabled = True + Me.cboPrinter.Location = New System.Drawing.Point(233, 69) + Me.cboPrinter.Name = "cboPrinter" + Me.cboPrinter.Size = New System.Drawing.Size(131, 21) + Me.cboPrinter.TabIndex = 19 + ' + 'dgvBelege + ' + Me.dgvBelege.AKTUALISIERUNGS_INTERVALL = -1 + Me.dgvBelege.AllowUserToAddRows = False + Me.dgvBelege.AllowUserToDeleteRows = False + Me.dgvBelege.AllowUserToResizeColumns = False + Me.dgvBelege.AllowUserToResizeRows = False + Me.dgvBelege.BackgroundColor = System.Drawing.Color.White + Me.dgvBelege.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.dgvBelege.Location = New System.Drawing.Point(6, 40) + Me.dgvBelege.MultiSelect = False + Me.dgvBelege.Name = "dgvBelege" + Me.dgvBelege.ReadOnly = True + Me.dgvBelege.RowHeadersVisible = False + Me.dgvBelege.RowTemplate.Height = 18 + Me.dgvBelege.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect + Me.dgvBelege.Size = New System.Drawing.Size(360, 165) + Me.dgvBelege.TabIndex = 3 + ' 'txtKdAuftragsNrFrachtfuehrer ' Me.txtKdAuftragsNrFrachtfuehrer._DateTimeOnly = False @@ -1966,29 +3146,6 @@ Partial Class frmSendungsdetailsNEU Me.txtKdAuftragsNrAvisierer.Size = New System.Drawing.Size(90, 20) Me.txtKdAuftragsNrAvisierer.TabIndex = 15 ' - 'cntxt - ' - Me.cntxt.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.KdAuftragsNrInAlleSendungenÜbernehmenToolStripMenuItem}) - Me.cntxt.Name = "cntxt" - Me.cntxt.Size = New System.Drawing.Size(323, 26) - Me.cntxt.Text = "cntxtKdAtrnr" - ' - 'KdAuftragsNrInAlleSendungenÜbernehmenToolStripMenuItem - ' - Me.KdAuftragsNrInAlleSendungenÜbernehmenToolStripMenuItem.Name = "KdAuftragsNrInAlleSendungenÜbernehmenToolStripMenuItem" - Me.KdAuftragsNrInAlleSendungenÜbernehmenToolStripMenuItem.Size = New System.Drawing.Size(322, 22) - Me.KdAuftragsNrInAlleSendungenÜbernehmenToolStripMenuItem.Text = "Kd-AuftragsNr. in alle Sendungen übernehmen" - ' - 'Label21 - ' - Me.Label21.AutoSize = True - Me.Label21.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!) - Me.Label21.Location = New System.Drawing.Point(407, 3) - Me.Label21.Name = "Label21" - Me.Label21.Size = New System.Drawing.Size(81, 13) - Me.Label21.TabIndex = 2 - Me.Label21.Text = "Kd.-AuftragsNr.:" - ' 'FlatButton4 ' Me.FlatButton4.allowBorder = False @@ -2064,33 +3221,541 @@ Partial Class frmSendungsdetailsNEU Me.btnAvisierer.TabStop = False Me.btnAvisierer.UseVisualStyleBackColor = True ' - 'Button4 + 'txtAvisierer ' - Me.Button4.BackColor = System.Drawing.Color.Transparent - Me.Button4.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button4.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button4.Location = New System.Drawing.Point(696, 167) - Me.Button4.Name = "Button4" - Me.Button4.Size = New System.Drawing.Size(39, 21) - Me.Button4.TabIndex = 80 - Me.Button4.TabStop = False - Me.Button4.Text = "LG" - Me.Button4.UseVisualStyleBackColor = False + Me.txtAvisierer._AllowSetValue = True + Me.txtAvisierer._autoSizeGross = True + Me.txtAvisierer._display_Name1 = False + Me.txtAvisierer._displayAVISO_Email = False + Me.txtAvisierer._displayFullName = False + Me.txtAvisierer._displayWoelflKd = False + Me.txtAvisierer._hideIfListEmpty = True + Me.txtAvisierer._loadKdData = True + Me.txtAvisierer._ValueKdAndName = False + Me.txtAvisierer.BackColor = System.Drawing.SystemColors.Window + Me.txtAvisierer.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.txtAvisierer.dgvpos = "LEFT" + Me.txtAvisierer.KdName = Nothing + Me.txtAvisierer.KdNr = "-1" + Me.txtAvisierer.kdNrField = Nothing + Me.txtAvisierer.KdNrNullInt = Nothing + Me.txtAvisierer.Location = New System.Drawing.Point(120, 20) + Me.txtAvisierer.MaxLength = 50 + Me.txtAvisierer.Name = "txtAvisierer" + Me.txtAvisierer.nurAktive = False + Me.txtAvisierer.searchActive = True + Me.txtAvisierer.Size = New System.Drawing.Size(245, 20) + Me.txtAvisierer.TabIndex = 13 + Me.txtAvisierer.usrcntl = Nothing ' - 'Button1 + 'txtAuftraggeber ' - Me.Button1.BackColor = System.Drawing.Color.Transparent - Me.Button1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button1.Location = New System.Drawing.Point(658, 167) - Me.Button1.Name = "Button1" - Me.Button1.Size = New System.Drawing.Size(41, 21) - Me.Button1.TabIndex = 79 - Me.Button1.TabStop = False - Me.Button1.Text = "BAR - Beleg" - Me.Button1.UseVisualStyleBackColor = False + Me.txtAuftraggeber._AllowSetValue = True + Me.txtAuftraggeber._autoSizeGross = True + Me.txtAuftraggeber._display_Name1 = False + Me.txtAuftraggeber._displayAVISO_Email = False + Me.txtAuftraggeber._displayFullName = False + Me.txtAuftraggeber._displayWoelflKd = False + Me.txtAuftraggeber._hideIfListEmpty = True + Me.txtAuftraggeber._loadKdData = True + Me.txtAuftraggeber._ValueKdAndName = False + Me.txtAuftraggeber.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.txtAuftraggeber.dgvpos = "LEFT" + Me.txtAuftraggeber.KdName = Nothing + Me.txtAuftraggeber.KdNr = "-1" + Me.txtAuftraggeber.kdNrField = Nothing + Me.txtAuftraggeber.KdNrNullInt = Nothing + Me.txtAuftraggeber.Location = New System.Drawing.Point(120, 57) + Me.txtAuftraggeber.MaxLength = 50 + Me.txtAuftraggeber.Name = "txtAuftraggeber" + Me.txtAuftraggeber.nurAktive = False + Me.txtAuftraggeber.searchActive = True + Me.txtAuftraggeber.Size = New System.Drawing.Size(245, 20) + Me.txtAuftraggeber.TabIndex = 27 + Me.txtAuftraggeber.usrcntl = Nothing + ' + 'txtFrachtfuehrerKdNr + ' + Me.txtFrachtfuehrerKdNr._DateTimeOnly = False + Me.txtFrachtfuehrerKdNr._numbersOnly = False + Me.txtFrachtfuehrerKdNr._numbersOnlyKommastellen = "" + Me.txtFrachtfuehrerKdNr._Prozent = False + Me.txtFrachtfuehrerKdNr._ShortDateNew = False + Me.txtFrachtfuehrerKdNr._ShortDateOnly = False + Me.txtFrachtfuehrerKdNr._TimeOnly = False + Me.txtFrachtfuehrerKdNr._value = Nothing + Me.txtFrachtfuehrerKdNr._Waehrung = False + Me.txtFrachtfuehrerKdNr._WaehrungZeichen = True + Me.txtFrachtfuehrerKdNr.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) + Me.txtFrachtfuehrerKdNr.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.txtFrachtfuehrerKdNr.Location = New System.Drawing.Point(121, 155) + Me.txtFrachtfuehrerKdNr.MaxLineLength = -1 + Me.txtFrachtfuehrerKdNr.MaxLines_Warning = "" + Me.txtFrachtfuehrerKdNr.MaxLines_Warning_Label = Nothing + Me.txtFrachtfuehrerKdNr.Name = "txtFrachtfuehrerKdNr" + Me.txtFrachtfuehrerKdNr.ReadOnly = True + Me.txtFrachtfuehrerKdNr.Size = New System.Drawing.Size(101, 13) + Me.txtFrachtfuehrerKdNr.TabIndex = 68 + Me.txtFrachtfuehrerKdNr.TabStop = False + ' + 'lblEmpfAufschubEust + ' + Me.lblEmpfAufschubEust._DateTimeOnly = False + Me.lblEmpfAufschubEust._numbersOnly = False + Me.lblEmpfAufschubEust._numbersOnlyKommastellen = "" + Me.lblEmpfAufschubEust._Prozent = False + Me.lblEmpfAufschubEust._ShortDateNew = False + Me.lblEmpfAufschubEust._ShortDateOnly = False + Me.lblEmpfAufschubEust._TimeOnly = False + Me.lblEmpfAufschubEust._value = Nothing + Me.lblEmpfAufschubEust._Waehrung = False + Me.lblEmpfAufschubEust._WaehrungZeichen = True + Me.lblEmpfAufschubEust.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) + Me.lblEmpfAufschubEust.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.lblEmpfAufschubEust.ForeColor = System.Drawing.Color.Black + Me.lblEmpfAufschubEust.Location = New System.Drawing.Point(631, 98) + Me.lblEmpfAufschubEust.MaxLineLength = -1 + Me.lblEmpfAufschubEust.MaxLines_Warning = "" + Me.lblEmpfAufschubEust.MaxLines_Warning_Label = Nothing + Me.lblEmpfAufschubEust.Name = "lblEmpfAufschubEust" + Me.lblEmpfAufschubEust.ReadOnly = True + Me.lblEmpfAufschubEust.RightToLeft = System.Windows.Forms.RightToLeft.No + Me.lblEmpfAufschubEust.Size = New System.Drawing.Size(69, 13) + Me.lblEmpfAufschubEust.TabIndex = 53 + Me.lblEmpfAufschubEust.TabStop = False + Me.lblEmpfAufschubEust.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + ' + 'txtFrachtfuehrer + ' + Me.txtFrachtfuehrer._AllowSetValue = True + Me.txtFrachtfuehrer._autoSizeGross = True + Me.txtFrachtfuehrer._display_Name1 = False + Me.txtFrachtfuehrer._displayAVISO_Email = False + Me.txtFrachtfuehrer._displayFullName = False + Me.txtFrachtfuehrer._displayWoelflKd = False + Me.txtFrachtfuehrer._hideIfListEmpty = True + Me.txtFrachtfuehrer._loadKdData = True + Me.txtFrachtfuehrer._ValueKdAndName = False + Me.txtFrachtfuehrer.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.txtFrachtfuehrer.dgvpos = "LEFT" + Me.txtFrachtfuehrer.KdName = Nothing + Me.txtFrachtfuehrer.KdNr = "-1" + Me.txtFrachtfuehrer.kdNrField = Nothing + Me.txtFrachtfuehrer.KdNrNullInt = Nothing + Me.txtFrachtfuehrer.Location = New System.Drawing.Point(120, 168) + Me.txtFrachtfuehrer.MaxLength = 50 + Me.txtFrachtfuehrer.Name = "txtFrachtfuehrer" + Me.txtFrachtfuehrer.nurAktive = False + Me.txtFrachtfuehrer.searchActive = True + Me.txtFrachtfuehrer.Size = New System.Drawing.Size(245, 20) + Me.txtFrachtfuehrer.TabIndex = 71 + Me.txtFrachtfuehrer.usrcntl = Nothing + ' + 'txtAbsenderKdNr + ' + Me.txtAbsenderKdNr._DateTimeOnly = False + Me.txtAbsenderKdNr._numbersOnly = False + Me.txtAbsenderKdNr._numbersOnlyKommastellen = "" + Me.txtAbsenderKdNr._Prozent = False + Me.txtAbsenderKdNr._ShortDateNew = False + Me.txtAbsenderKdNr._ShortDateOnly = False + Me.txtAbsenderKdNr._TimeOnly = False + Me.txtAbsenderKdNr._value = Nothing + Me.txtAbsenderKdNr._Waehrung = False + Me.txtAbsenderKdNr._WaehrungZeichen = True + Me.txtAbsenderKdNr.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) + Me.txtAbsenderKdNr.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.txtAbsenderKdNr.Location = New System.Drawing.Point(121, 119) + Me.txtAbsenderKdNr.MaxLineLength = -1 + Me.txtAbsenderKdNr.MaxLines_Warning = "" + Me.txtAbsenderKdNr.MaxLines_Warning_Label = Nothing + Me.txtAbsenderKdNr.Name = "txtAbsenderKdNr" + Me.txtAbsenderKdNr.ReadOnly = True + Me.txtAbsenderKdNr.Size = New System.Drawing.Size(101, 13) + Me.txtAbsenderKdNr.TabIndex = 55 + Me.txtAbsenderKdNr.TabStop = False + ' + 'MyTextBox1 + ' + Me.MyTextBox1._DateTimeOnly = False + Me.MyTextBox1._numbersOnly = False + Me.MyTextBox1._numbersOnlyKommastellen = "" + Me.MyTextBox1._Prozent = False + Me.MyTextBox1._ShortDateNew = False + Me.MyTextBox1._ShortDateOnly = False + Me.MyTextBox1._TimeOnly = False + Me.MyTextBox1._value = Nothing + Me.MyTextBox1._Waehrung = False + Me.MyTextBox1._WaehrungZeichen = True + Me.MyTextBox1.BackColor = System.Drawing.Color.Gainsboro + Me.MyTextBox1.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.MyTextBox1.Location = New System.Drawing.Point(121, 18) + Me.MyTextBox1.MaxLineLength = -1 + Me.MyTextBox1.MaxLines_Warning = "" + Me.MyTextBox1.MaxLines_Warning_Label = Nothing + Me.MyTextBox1.Name = "MyTextBox1" + Me.MyTextBox1.ReadOnly = True + Me.MyTextBox1.Size = New System.Drawing.Size(100, 13) + Me.MyTextBox1.TabIndex = 10 + Me.MyTextBox1.TabStop = False + Me.MyTextBox1.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + ' + 'txtEmpfaengerKdNr + ' + Me.txtEmpfaengerKdNr._DateTimeOnly = False + Me.txtEmpfaengerKdNr._numbersOnly = False + Me.txtEmpfaengerKdNr._numbersOnlyKommastellen = "" + Me.txtEmpfaengerKdNr._Prozent = False + Me.txtEmpfaengerKdNr._ShortDateNew = False + Me.txtEmpfaengerKdNr._ShortDateOnly = False + Me.txtEmpfaengerKdNr._TimeOnly = False + Me.txtEmpfaengerKdNr._value = Nothing + Me.txtEmpfaengerKdNr._Waehrung = False + Me.txtEmpfaengerKdNr._WaehrungZeichen = True + Me.txtEmpfaengerKdNr.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) + Me.txtEmpfaengerKdNr.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.txtEmpfaengerKdNr.Location = New System.Drawing.Point(121, 81) + Me.txtEmpfaengerKdNr.MaxLineLength = -1 + Me.txtEmpfaengerKdNr.MaxLines_Warning = "" + Me.txtEmpfaengerKdNr.MaxLines_Warning_Label = Nothing + Me.txtEmpfaengerKdNr.Name = "txtEmpfaengerKdNr" + Me.txtEmpfaengerKdNr.ReadOnly = True + Me.txtEmpfaengerKdNr.Size = New System.Drawing.Size(99, 13) + Me.txtEmpfaengerKdNr.TabIndex = 39 + Me.txtEmpfaengerKdNr.TabStop = False + ' + '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 = False + Me.txtAbsender.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.txtAbsender.dgvpos = "LEFT" + Me.txtAbsender.KdName = Nothing + Me.txtAbsender.KdNr = "-1" + Me.txtAbsender.kdNrField = Nothing + Me.txtAbsender.KdNrNullInt = Nothing + Me.txtAbsender.Location = New System.Drawing.Point(120, 133) + Me.txtAbsender.MaxLength = 50 + Me.txtAbsender.Name = "txtAbsender" + Me.txtAbsender.nurAktive = False + Me.txtAbsender.searchActive = True + Me.txtAbsender.Size = New System.Drawing.Size(245, 20) + Me.txtAbsender.TabIndex = 59 + Me.txtAbsender.usrcntl = Nothing + ' + 'txtEmpfaenger + ' + Me.txtEmpfaenger._AllowSetValue = True + Me.txtEmpfaenger._autoSizeGross = True + Me.txtEmpfaenger._display_Name1 = False + Me.txtEmpfaenger._displayAVISO_Email = False + Me.txtEmpfaenger._displayFullName = False + Me.txtEmpfaenger._displayWoelflKd = False + Me.txtEmpfaenger._hideIfListEmpty = True + Me.txtEmpfaenger._loadKdData = True + Me.txtEmpfaenger._ValueKdAndName = False + Me.txtEmpfaenger.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.txtEmpfaenger.dgvpos = "LEFT" + Me.txtEmpfaenger.KdName = Nothing + Me.txtEmpfaenger.KdNr = "-1" + Me.txtEmpfaenger.kdNrField = Nothing + Me.txtEmpfaenger.KdNrNullInt = Nothing + Me.txtEmpfaenger.Location = New System.Drawing.Point(120, 94) + Me.txtEmpfaenger.Name = "txtEmpfaenger" + Me.txtEmpfaenger.nurAktive = False + Me.txtEmpfaenger.searchActive = True + Me.txtEmpfaenger.Size = New System.Drawing.Size(245, 20) + Me.txtEmpfaenger.TabIndex = 43 + Me.txtEmpfaenger.usrcntl = Nothing + ' + 'lblAtrAufschubEust + ' + Me.lblAtrAufschubEust._DateTimeOnly = False + Me.lblAtrAufschubEust._numbersOnly = False + Me.lblAtrAufschubEust._numbersOnlyKommastellen = "" + Me.lblAtrAufschubEust._Prozent = False + Me.lblAtrAufschubEust._ShortDateNew = False + Me.lblAtrAufschubEust._ShortDateOnly = False + Me.lblAtrAufschubEust._TimeOnly = False + Me.lblAtrAufschubEust._value = Nothing + Me.lblAtrAufschubEust._Waehrung = False + Me.lblAtrAufschubEust._WaehrungZeichen = True + Me.lblAtrAufschubEust.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) + Me.lblAtrAufschubEust.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.lblAtrAufschubEust.ForeColor = System.Drawing.Color.Black + Me.lblAtrAufschubEust.Location = New System.Drawing.Point(631, 60) + Me.lblAtrAufschubEust.MaxLineLength = -1 + Me.lblAtrAufschubEust.MaxLines_Warning = "" + Me.lblAtrAufschubEust.MaxLines_Warning_Label = Nothing + Me.lblAtrAufschubEust.Name = "lblAtrAufschubEust" + Me.lblAtrAufschubEust.ReadOnly = True + Me.lblAtrAufschubEust.RightToLeft = System.Windows.Forms.RightToLeft.No + Me.lblAtrAufschubEust.Size = New System.Drawing.Size(69, 13) + Me.lblAtrAufschubEust.TabIndex = 37 + Me.lblAtrAufschubEust.TabStop = False + Me.lblAtrAufschubEust.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + ' + 'txtAuftraggeberKdNr + ' + Me.txtAuftraggeberKdNr._DateTimeOnly = False + Me.txtAuftraggeberKdNr._numbersOnly = False + Me.txtAuftraggeberKdNr._numbersOnlyKommastellen = "" + Me.txtAuftraggeberKdNr._Prozent = False + Me.txtAuftraggeberKdNr._ShortDateNew = False + Me.txtAuftraggeberKdNr._ShortDateOnly = False + Me.txtAuftraggeberKdNr._TimeOnly = False + Me.txtAuftraggeberKdNr._value = Nothing + Me.txtAuftraggeberKdNr._Waehrung = False + Me.txtAuftraggeberKdNr._WaehrungZeichen = True + Me.txtAuftraggeberKdNr.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) + Me.txtAuftraggeberKdNr.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.txtAuftraggeberKdNr.Location = New System.Drawing.Point(121, 44) + Me.txtAuftraggeberKdNr.MaxLineLength = -1 + Me.txtAuftraggeberKdNr.MaxLines_Warning = "" + Me.txtAuftraggeberKdNr.MaxLines_Warning_Label = Nothing + Me.txtAuftraggeberKdNr.Name = "txtAuftraggeberKdNr" + Me.txtAuftraggeberKdNr.ReadOnly = True + Me.txtAuftraggeberKdNr.Size = New System.Drawing.Size(100, 13) + Me.txtAuftraggeberKdNr.TabIndex = 22 + Me.txtAuftraggeberKdNr.TabStop = False + ' + 'txtAvisiererKdNr + ' + Me.txtAvisiererKdNr._DateTimeOnly = False + Me.txtAvisiererKdNr._numbersOnly = False + Me.txtAvisiererKdNr._numbersOnlyKommastellen = "" + Me.txtAvisiererKdNr._Prozent = False + Me.txtAvisiererKdNr._ShortDateNew = False + Me.txtAvisiererKdNr._ShortDateOnly = False + Me.txtAvisiererKdNr._TimeOnly = False + Me.txtAvisiererKdNr._value = Nothing + Me.txtAvisiererKdNr._Waehrung = False + Me.txtAvisiererKdNr._WaehrungZeichen = True + Me.txtAvisiererKdNr.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) + Me.txtAvisiererKdNr.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.txtAvisiererKdNr.Location = New System.Drawing.Point(121, 5) + Me.txtAvisiererKdNr.MaxLineLength = -1 + Me.txtAvisiererKdNr.MaxLines_Warning = "" + Me.txtAvisiererKdNr.MaxLines_Warning_Label = Nothing + Me.txtAvisiererKdNr.Name = "txtAvisiererKdNr" + Me.txtAvisiererKdNr.ReadOnly = True + Me.txtAvisiererKdNr.Size = New System.Drawing.Size(100, 13) + Me.txtAvisiererKdNr.TabIndex = 9 + Me.txtAvisiererKdNr.TabStop = False + ' + 'txtKdAuftragsNr + ' + Me.txtKdAuftragsNr._DateTimeOnly = False + Me.txtKdAuftragsNr._numbersOnly = False + Me.txtKdAuftragsNr._numbersOnlyKommastellen = "" + Me.txtKdAuftragsNr._Prozent = False + Me.txtKdAuftragsNr._ShortDateNew = False + Me.txtKdAuftragsNr._ShortDateOnly = False + Me.txtKdAuftragsNr._TimeOnly = False + Me.txtKdAuftragsNr._value = Nothing + Me.txtKdAuftragsNr._Waehrung = False + Me.txtKdAuftragsNr._WaehrungZeichen = True + Me.txtKdAuftragsNr.ForeColor = System.Drawing.Color.Black + Me.txtKdAuftragsNr.Location = New System.Drawing.Point(410, 57) + Me.txtKdAuftragsNr.MaxLength = 50 + Me.txtKdAuftragsNr.MaxLineLength = -1 + Me.txtKdAuftragsNr.MaxLines_Warning = "" + Me.txtKdAuftragsNr.MaxLines_Warning_Label = Nothing + Me.txtKdAuftragsNr.Name = "txtKdAuftragsNr" + Me.txtKdAuftragsNr.Size = New System.Drawing.Size(90, 20) + Me.txtKdAuftragsNr.TabIndex = 30 + ' + 'cboAbfertigungsart + ' + Me.cboAbfertigungsart._allowedValuesFreiText = Nothing + Me.cboAbfertigungsart._allowFreiText = False + Me.cboAbfertigungsart._value = "" + Me.cboAbfertigungsart.BackColor = System.Drawing.Color.White + Me.cboAbfertigungsart.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.cboAbfertigungsart.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cboAbfertigungsart.FormattingEnabled = True + Me.cboAbfertigungsart.Location = New System.Drawing.Point(422, 27) + Me.cboAbfertigungsart.Name = "cboAbfertigungsart" + Me.cboAbfertigungsart.Size = New System.Drawing.Size(315, 24) + Me.cboAbfertigungsart.TabIndex = 12 + ' + 'txtFremdEmpfKdNR + ' + Me.txtFremdEmpfKdNR._DateTimeOnly = False + Me.txtFremdEmpfKdNR._numbersOnly = False + Me.txtFremdEmpfKdNR._numbersOnlyKommastellen = "" + Me.txtFremdEmpfKdNR._Prozent = False + Me.txtFremdEmpfKdNR._ShortDateNew = False + Me.txtFremdEmpfKdNR._ShortDateOnly = False + Me.txtFremdEmpfKdNR._TimeOnly = False + Me.txtFremdEmpfKdNR._value = Nothing + Me.txtFremdEmpfKdNR._Waehrung = False + Me.txtFremdEmpfKdNR._WaehrungZeichen = True + Me.txtFremdEmpfKdNR.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.txtFremdEmpfKdNR.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.txtFremdEmpfKdNR.ForeColor = System.Drawing.Color.White + Me.txtFremdEmpfKdNR.Location = New System.Drawing.Point(307, 8) + Me.txtFremdEmpfKdNR.MaxLineLength = -1 + Me.txtFremdEmpfKdNR.MaxLines_Warning = "" + Me.txtFremdEmpfKdNR.MaxLines_Warning_Label = Nothing + Me.txtFremdEmpfKdNR.Name = "txtFremdEmpfKdNR" + Me.txtFremdEmpfKdNR.ReadOnly = True + Me.txtFremdEmpfKdNR.Size = New System.Drawing.Size(100, 13) + Me.txtFremdEmpfKdNR.TabIndex = 2 + Me.txtFremdEmpfKdNR.TabStop = False + Me.txtFremdEmpfKdNR.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + ' + 'txtFremdEmpf + ' + Me.txtFremdEmpf._AllowSetValue = True + Me.txtFremdEmpf._autoSizeGross = True + Me.txtFremdEmpf._display_Name1 = False + Me.txtFremdEmpf._displayAVISO_Email = False + Me.txtFremdEmpf._displayFullName = False + Me.txtFremdEmpf._displayWoelflKd = False + Me.txtFremdEmpf._hideIfListEmpty = True + Me.txtFremdEmpf._loadKdData = True + Me.txtFremdEmpf._ValueKdAndName = False + Me.txtFremdEmpf.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.txtFremdEmpf.dgvpos = "LEFT" + Me.txtFremdEmpf.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!) + Me.txtFremdEmpf.KdName = Nothing + Me.txtFremdEmpf.KdNr = "-1" + Me.txtFremdEmpf.kdNrField = Nothing + Me.txtFremdEmpf.KdNrNullInt = Nothing + Me.txtFremdEmpf.Location = New System.Drawing.Point(32, 21) + Me.txtFremdEmpf.MaxLength = 50 + Me.txtFremdEmpf.Name = "txtFremdEmpf" + Me.txtFremdEmpf.nurAktive = False + Me.txtFremdEmpf.searchActive = True + Me.txtFremdEmpf.Size = New System.Drawing.Size(175, 26) + Me.txtFremdEmpf.TabIndex = 3 + Me.txtFremdEmpf.usrcntl = Nothing + ' + 'cboFremdsped + ' + Me.cboFremdsped._allowedValuesFreiText = Nothing + Me.cboFremdsped._allowFreiText = True + Me.cboFremdsped._value = "" + Me.cboFremdsped.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!) + Me.cboFremdsped.Location = New System.Drawing.Point(213, 20) + Me.cboFremdsped.Name = "cboFremdsped" + Me.cboFremdsped.Size = New System.Drawing.Size(194, 28) + Me.cboFremdsped.TabIndex = 4 + Me.cboFremdsped.Visible = False + ' + 'txtAnzahl + ' + Me.txtAnzahl._DateTimeOnly = False + Me.txtAnzahl._numbersOnly = True + Me.txtAnzahl._numbersOnlyKommastellen = "" + Me.txtAnzahl._Prozent = False + Me.txtAnzahl._ShortDateNew = False + Me.txtAnzahl._ShortDateOnly = False + Me.txtAnzahl._TimeOnly = False + Me.txtAnzahl._value = "" + Me.txtAnzahl._Waehrung = False + Me.txtAnzahl._WaehrungZeichen = True + Me.txtAnzahl.Font = New System.Drawing.Font("Microsoft Tai Le", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtAnzahl.Location = New System.Drawing.Point(741, 27) + Me.txtAnzahl.MaxLength = 3 + Me.txtAnzahl.MaxLineLength = -1 + Me.txtAnzahl.MaxLines_Warning = "" + Me.txtAnzahl.MaxLines_Warning_Label = Nothing + Me.txtAnzahl.Name = "txtAnzahl" + Me.txtAnzahl.Size = New System.Drawing.Size(41, 24) + Me.txtAnzahl.TabIndex = 13 + Me.txtAnzahl.Visible = False + ' + 'txtUnterNr + ' + Me.txtUnterNr._DateTimeOnly = False + Me.txtUnterNr._numbersOnly = False + Me.txtUnterNr._numbersOnlyKommastellen = "" + Me.txtUnterNr._Prozent = False + Me.txtUnterNr._ShortDateNew = False + Me.txtUnterNr._ShortDateOnly = False + Me.txtUnterNr._TimeOnly = False + Me.txtUnterNr._value = Nothing + Me.txtUnterNr._Waehrung = False + Me.txtUnterNr._WaehrungZeichen = True + Me.txtUnterNr.Font = New System.Drawing.Font("Microsoft Tai Le", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtUnterNr.Location = New System.Drawing.Point(350, 27) + Me.txtUnterNr.MaxLineLength = -1 + Me.txtUnterNr.MaxLines_Warning = "" + Me.txtUnterNr.MaxLines_Warning_Label = Nothing + Me.txtUnterNr.Name = "txtUnterNr" + Me.txtUnterNr.Size = New System.Drawing.Size(39, 24) + Me.txtUnterNr.TabIndex = 11 + Me.txtUnterNr.Visible = False + ' + 'cboFiliale + ' + Me.cboFiliale._allowedValuesFreiText = Nothing + Me.cboFiliale._allowFreiText = False + Me.cboFiliale._value = "" + Me.cboFiliale.DropDownWidth = 280 + Me.cboFiliale.Font = New System.Drawing.Font("Microsoft Tai Le", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cboFiliale.FormattingEnabled = True + Me.cboFiliale.Location = New System.Drawing.Point(33, 27) + Me.cboFiliale.Name = "cboFiliale" + Me.cboFiliale.Size = New System.Drawing.Size(80, 24) + Me.cboFiliale.TabIndex = 8 + ' + 'txtAbfertigungsnummer + ' + Me.txtAbfertigungsnummer._DateTimeOnly = False + Me.txtAbfertigungsnummer._numbersOnly = False + Me.txtAbfertigungsnummer._numbersOnlyKommastellen = "" + Me.txtAbfertigungsnummer._Prozent = False + Me.txtAbfertigungsnummer._ShortDateNew = False + Me.txtAbfertigungsnummer._ShortDateOnly = False + Me.txtAbfertigungsnummer._TimeOnly = False + Me.txtAbfertigungsnummer._value = Nothing + Me.txtAbfertigungsnummer._Waehrung = False + Me.txtAbfertigungsnummer._WaehrungZeichen = True + Me.txtAbfertigungsnummer.Font = New System.Drawing.Font("Microsoft Tai Le", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtAbfertigungsnummer.Location = New System.Drawing.Point(120, 27) + Me.txtAbfertigungsnummer.MaxLineLength = -1 + Me.txtAbfertigungsnummer.MaxLines_Warning = "" + Me.txtAbfertigungsnummer.MaxLines_Warning_Label = Nothing + Me.txtAbfertigungsnummer.Name = "txtAbfertigungsnummer" + Me.txtAbfertigungsnummer.Size = New System.Drawing.Size(224, 24) + Me.txtAbfertigungsnummer.TabIndex = 10 + ' + 'FlatButton2 + ' + Me.FlatButton2.allowBorder = False + Me.FlatButton2.FlatAppearance.BorderSize = 0 + Me.FlatButton2.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.FlatButton2.ForeColor = System.Drawing.Color.Black + Me.FlatButton2.Location = New System.Drawing.Point(2, 2) + Me.FlatButton2.Margin = New System.Windows.Forms.Padding(2) + Me.FlatButton2.Name = "FlatButton2" + Me.FlatButton2.Size = New System.Drawing.Size(90, 51) + Me.FlatButton2.TabIndex = 0 + Me.FlatButton2.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.FlatButton2.UseVisualStyleBackColor = True + ' + 'cbxSpedBuch + ' + Me.cbxSpedBuch._value = "" + Me.cbxSpedBuch.AutoSize = True + Me.cbxSpedBuch.Checked_value = False + Me.cbxSpedBuch.CheckedValue = False + Me.cbxSpedBuch.Location = New System.Drawing.Point(6, 46) + Me.cbxSpedBuch.Name = "cbxSpedBuch" + Me.cbxSpedBuch.Size = New System.Drawing.Size(113, 17) + Me.cbxSpedBuch.TabIndex = 1 + Me.cbxSpedBuch.Text = "Eintrag vorhanden" + Me.cbxSpedBuch.UseVisualStyleBackColor = True ' 'cntlFrachtfuehrer_Sonst ' @@ -2152,73 +3817,6 @@ Partial Class frmSendungsdetailsNEU Me.cntlAvisierer_Sonst.TabStop = False Me.cntlAvisierer_Sonst.value = "" ' - 'Label4 - ' - Me.Label4.AutoSize = True - Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!) - Me.Label4.Location = New System.Drawing.Point(627, 3) - Me.Label4.Name = "Label4" - Me.Label4.Size = New System.Drawing.Size(37, 13) - Me.Label4.TabIndex = 7 - Me.Label4.Text = "Sonst." - ' - 'btnAufschub_Atr - ' - Me.btnAufschub_Atr.BackColor = System.Drawing.Color.Silver - Me.btnAufschub_Atr.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.btnAufschub_Atr.Cursor = System.Windows.Forms.Cursors.Hand - Me.btnAufschub_Atr.FlatAppearance.BorderSize = 0 - Me.btnAufschub_Atr.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnAufschub_Atr.Font = New System.Drawing.Font("Arial", 7.0!) - Me.btnAufschub_Atr.ImageAlign = System.Drawing.ContentAlignment.TopCenter - Me.btnAufschub_Atr.Location = New System.Drawing.Point(658, 57) - Me.btnAufschub_Atr.Margin = New System.Windows.Forms.Padding(0) - Me.btnAufschub_Atr.Name = "btnAufschub_Atr" - Me.btnAufschub_Atr.Size = New System.Drawing.Size(77, 20) - Me.btnAufschub_Atr.TabIndex = 36 - Me.btnAufschub_Atr.TabStop = False - Me.btnAufschub_Atr.Text = "Aufschub" - Me.btnAufschub_Atr.UseVisualStyleBackColor = False - Me.btnAufschub_Atr.Visible = False - ' - 'btnAufschub_Empf - ' - Me.btnAufschub_Empf.BackColor = System.Drawing.Color.Silver - Me.btnAufschub_Empf.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.btnAufschub_Empf.Cursor = System.Windows.Forms.Cursors.Hand - Me.btnAufschub_Empf.FlatAppearance.BorderSize = 0 - Me.btnAufschub_Empf.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnAufschub_Empf.Font = New System.Drawing.Font("Arial", 7.0!) - Me.btnAufschub_Empf.ImageAlign = System.Drawing.ContentAlignment.TopCenter - Me.btnAufschub_Empf.Location = New System.Drawing.Point(658, 94) - Me.btnAufschub_Empf.Margin = New System.Windows.Forms.Padding(0) - Me.btnAufschub_Empf.Name = "btnAufschub_Empf" - Me.btnAufschub_Empf.Size = New System.Drawing.Size(77, 20) - Me.btnAufschub_Empf.TabIndex = 52 - Me.btnAufschub_Empf.TabStop = False - Me.btnAufschub_Empf.Text = "Aufschub" - Me.btnAufschub_Empf.UseVisualStyleBackColor = False - Me.btnAufschub_Empf.Visible = False - ' - 'btnAufschub_VERAG - ' - Me.btnAufschub_VERAG.BackColor = System.Drawing.Color.Silver - Me.btnAufschub_VERAG.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.btnAufschub_VERAG.Cursor = System.Windows.Forms.Cursors.Hand - Me.btnAufschub_VERAG.FlatAppearance.BorderSize = 0 - Me.btnAufschub_VERAG.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnAufschub_VERAG.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!) - Me.btnAufschub_VERAG.ImageAlign = System.Drawing.ContentAlignment.TopCenter - Me.btnAufschub_VERAG.Location = New System.Drawing.Point(658, 200) - Me.btnAufschub_VERAG.Margin = New System.Windows.Forms.Padding(0) - Me.btnAufschub_VERAG.Name = "btnAufschub_VERAG" - Me.btnAufschub_VERAG.Size = New System.Drawing.Size(76, 20) - Me.btnAufschub_VERAG.TabIndex = 83 - Me.btnAufschub_VERAG.TabStop = False - Me.btnAufschub_VERAG.Text = "VERAG" - Me.btnAufschub_VERAG.UseVisualStyleBackColor = False - Me.btnAufschub_VERAG.Visible = False - ' 'cntlFrachtf_Clear ' Me.cntlFrachtf_Clear._abrArt = "CLEARING" @@ -2459,195 +4057,6 @@ Partial Class frmSendungsdetailsNEU Me.cntlAvisierer_Zoll.TabStop = False Me.cntlAvisierer_Zoll.value = "" ' - 'Panel15 - ' - Me.Panel15.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.Panel15.Dock = System.Windows.Forms.DockStyle.Left - Me.Panel15.Location = New System.Drawing.Point(0, 0) - Me.Panel15.Name = "Panel15" - Me.Panel15.Size = New System.Drawing.Size(5, 292) - Me.Panel15.TabIndex = 1 - ' - 'txtAvisierer - ' - Me.txtAvisierer._AllowSetValue = True - Me.txtAvisierer._autoSizeGross = True - Me.txtAvisierer._display_Name1 = False - Me.txtAvisierer._displayAVISO_Email = False - Me.txtAvisierer._displayFullName = False - Me.txtAvisierer._displayWoelflKd = False - Me.txtAvisierer._hideIfListEmpty = True - Me.txtAvisierer._loadKdData = True - Me.txtAvisierer._ValueKdAndName = False - Me.txtAvisierer.BackColor = System.Drawing.SystemColors.Window - Me.txtAvisierer.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper - Me.txtAvisierer.dgvpos = "LEFT" - Me.txtAvisierer.Enabled = False - Me.txtAvisierer.KdName = Nothing - Me.txtAvisierer.KdNr = "-1" - Me.txtAvisierer.kdNrField = Nothing - Me.txtAvisierer.KdNrNullInt = Nothing - Me.txtAvisierer.Location = New System.Drawing.Point(120, 20) - Me.txtAvisierer.MaxLength = 50 - Me.txtAvisierer.Name = "txtAvisierer" - Me.txtAvisierer.nurAktive = False - Me.txtAvisierer.ReadOnly = True - Me.txtAvisierer.searchActive = True - Me.txtAvisierer.Size = New System.Drawing.Size(245, 20) - Me.txtAvisierer.TabIndex = 13 - Me.txtAvisierer.usrcntl = Nothing - ' - 'txtAuftraggeber - ' - Me.txtAuftraggeber._AllowSetValue = True - Me.txtAuftraggeber._autoSizeGross = True - Me.txtAuftraggeber._display_Name1 = False - Me.txtAuftraggeber._displayAVISO_Email = False - Me.txtAuftraggeber._displayFullName = False - Me.txtAuftraggeber._displayWoelflKd = False - Me.txtAuftraggeber._hideIfListEmpty = True - Me.txtAuftraggeber._loadKdData = True - Me.txtAuftraggeber._ValueKdAndName = False - Me.txtAuftraggeber.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper - Me.txtAuftraggeber.dgvpos = "LEFT" - Me.txtAuftraggeber.KdName = Nothing - Me.txtAuftraggeber.KdNr = "-1" - Me.txtAuftraggeber.kdNrField = Nothing - Me.txtAuftraggeber.KdNrNullInt = Nothing - Me.txtAuftraggeber.Location = New System.Drawing.Point(120, 57) - Me.txtAuftraggeber.MaxLength = 50 - Me.txtAuftraggeber.Name = "txtAuftraggeber" - Me.txtAuftraggeber.nurAktive = False - Me.txtAuftraggeber.searchActive = True - Me.txtAuftraggeber.Size = New System.Drawing.Size(245, 20) - Me.txtAuftraggeber.TabIndex = 27 - Me.txtAuftraggeber.usrcntl = Nothing - ' - 'Panel13 - ' - Me.Panel13.BackColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer)) - Me.Panel13.ForeColor = System.Drawing.SystemColors.ControlText - Me.Panel13.Location = New System.Drawing.Point(10, 190) - Me.Panel13.Name = "Panel13" - Me.Panel13.Size = New System.Drawing.Size(710, 1) - Me.Panel13.TabIndex = 81 - ' - 'Panel12 - ' - Me.Panel12.BackColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer)) - Me.Panel12.ForeColor = System.Drawing.SystemColors.ControlText - Me.Panel12.Location = New System.Drawing.Point(10, 155) - Me.Panel12.Name = "Panel12" - Me.Panel12.Size = New System.Drawing.Size(710, 1) - Me.Panel12.TabIndex = 67 - ' - 'Panel11 - ' - Me.Panel11.BackColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer)) - Me.Panel11.ForeColor = System.Drawing.SystemColors.ControlText - Me.Panel11.Location = New System.Drawing.Point(10, 117) - Me.Panel11.Name = "Panel11" - Me.Panel11.Size = New System.Drawing.Size(710, 1) - Me.Panel11.TabIndex = 54 - ' - 'Panel10 - ' - Me.Panel10.BackColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer)) - Me.Panel10.ForeColor = System.Drawing.SystemColors.ControlText - Me.Panel10.Location = New System.Drawing.Point(10, 80) - Me.Panel10.Name = "Panel10" - Me.Panel10.Size = New System.Drawing.Size(710, 1) - Me.Panel10.TabIndex = 38 - ' - 'txtFrachtfuehrerKdNr - ' - Me.txtFrachtfuehrerKdNr._DateTimeOnly = False - Me.txtFrachtfuehrerKdNr._numbersOnly = False - Me.txtFrachtfuehrerKdNr._numbersOnlyKommastellen = "" - Me.txtFrachtfuehrerKdNr._Prozent = False - Me.txtFrachtfuehrerKdNr._ShortDateNew = False - Me.txtFrachtfuehrerKdNr._ShortDateOnly = False - Me.txtFrachtfuehrerKdNr._TimeOnly = False - Me.txtFrachtfuehrerKdNr._value = Nothing - Me.txtFrachtfuehrerKdNr._Waehrung = False - Me.txtFrachtfuehrerKdNr._WaehrungZeichen = True - Me.txtFrachtfuehrerKdNr.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) - Me.txtFrachtfuehrerKdNr.BorderStyle = System.Windows.Forms.BorderStyle.None - Me.txtFrachtfuehrerKdNr.Location = New System.Drawing.Point(121, 155) - Me.txtFrachtfuehrerKdNr.MaxLineLength = -1 - Me.txtFrachtfuehrerKdNr.MaxLines_Warning = "" - Me.txtFrachtfuehrerKdNr.MaxLines_Warning_Label = Nothing - Me.txtFrachtfuehrerKdNr.Name = "txtFrachtfuehrerKdNr" - Me.txtFrachtfuehrerKdNr.ReadOnly = True - Me.txtFrachtfuehrerKdNr.Size = New System.Drawing.Size(101, 13) - Me.txtFrachtfuehrerKdNr.TabIndex = 68 - Me.txtFrachtfuehrerKdNr.TabStop = False - ' - 'Panel8 - ' - Me.Panel8.BackColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer)) - Me.Panel8.ForeColor = System.Drawing.SystemColors.ControlText - Me.Panel8.Location = New System.Drawing.Point(10, 43) - Me.Panel8.Name = "Panel8" - Me.Panel8.Size = New System.Drawing.Size(710, 1) - Me.Panel8.TabIndex = 21 - ' - 'lblEmpfAufschubEustTxt - ' - Me.lblEmpfAufschubEustTxt.AutoSize = True - Me.lblEmpfAufschubEustTxt.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!) - Me.lblEmpfAufschubEustTxt.Location = New System.Drawing.Point(673, 3) - Me.lblEmpfAufschubEustTxt.Name = "lblEmpfAufschubEustTxt" - Me.lblEmpfAufschubEustTxt.Size = New System.Drawing.Size(54, 13) - Me.lblEmpfAufschubEustTxt.TabIndex = 8 - Me.lblEmpfAufschubEustTxt.Text = "Aufschub:" - ' - 'lblEmpfAufschubEust - ' - Me.lblEmpfAufschubEust._DateTimeOnly = False - Me.lblEmpfAufschubEust._numbersOnly = False - Me.lblEmpfAufschubEust._numbersOnlyKommastellen = "" - Me.lblEmpfAufschubEust._Prozent = False - Me.lblEmpfAufschubEust._ShortDateNew = False - Me.lblEmpfAufschubEust._ShortDateOnly = False - Me.lblEmpfAufschubEust._TimeOnly = False - Me.lblEmpfAufschubEust._value = Nothing - Me.lblEmpfAufschubEust._Waehrung = False - Me.lblEmpfAufschubEust._WaehrungZeichen = True - Me.lblEmpfAufschubEust.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) - Me.lblEmpfAufschubEust.BorderStyle = System.Windows.Forms.BorderStyle.None - Me.lblEmpfAufschubEust.ForeColor = System.Drawing.Color.Black - Me.lblEmpfAufschubEust.Location = New System.Drawing.Point(631, 98) - Me.lblEmpfAufschubEust.MaxLineLength = -1 - Me.lblEmpfAufschubEust.MaxLines_Warning = "" - Me.lblEmpfAufschubEust.MaxLines_Warning_Label = Nothing - Me.lblEmpfAufschubEust.Name = "lblEmpfAufschubEust" - Me.lblEmpfAufschubEust.ReadOnly = True - Me.lblEmpfAufschubEust.RightToLeft = System.Windows.Forms.RightToLeft.No - Me.lblEmpfAufschubEust.Size = New System.Drawing.Size(69, 13) - Me.lblEmpfAufschubEust.TabIndex = 53 - Me.lblEmpfAufschubEust.TabStop = False - Me.lblEmpfAufschubEust.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - ' - 'Label42 - ' - Me.Label42.AutoSize = True - Me.Label42.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label42.Location = New System.Drawing.Point(23, 172) - Me.Label42.Name = "Label42" - Me.Label42.Size = New System.Drawing.Size(64, 13) - Me.Label42.TabIndex = 70 - Me.Label42.Text = "Frachtführer" - Me.Label42.TextAlign = System.Drawing.ContentAlignment.TopRight - ' - 'pnlT1 - ' - Me.pnlT1.Controls.Add(Me.UsrCntlSND_NCTSGestellungsadresse1) - Me.pnlT1.Location = New System.Drawing.Point(0, 193) - Me.pnlT1.Name = "pnlT1" - Me.pnlT1.Size = New System.Drawing.Size(549, 92) - Me.pnlT1.TabIndex = 82 - ' 'UsrCntlSND_NCTSGestellungsadresse1 ' Me.UsrCntlSND_NCTSGestellungsadresse1.Dock = System.Windows.Forms.DockStyle.Fill @@ -2656,1364 +4065,17 @@ Partial Class frmSendungsdetailsNEU Me.UsrCntlSND_NCTSGestellungsadresse1.Size = New System.Drawing.Size(549, 92) Me.UsrCntlSND_NCTSGestellungsadresse1.TabIndex = 0 ' - 'Label43 - ' - Me.Label43.AutoSize = True - Me.Label43.Font = New System.Drawing.Font("Arial Black", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label43.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.Label43.Location = New System.Drawing.Point(7, 168) - Me.Label43.Name = "Label43" - Me.Label43.Size = New System.Drawing.Size(17, 18) - Me.Label43.TabIndex = 69 - Me.Label43.Text = "5" - Me.Label43.TextAlign = System.Drawing.ContentAlignment.TopRight - ' - 'txtFrachtfuehrer - ' - Me.txtFrachtfuehrer._AllowSetValue = True - Me.txtFrachtfuehrer._autoSizeGross = True - Me.txtFrachtfuehrer._display_Name1 = False - Me.txtFrachtfuehrer._displayAVISO_Email = False - Me.txtFrachtfuehrer._displayFullName = False - Me.txtFrachtfuehrer._displayWoelflKd = False - Me.txtFrachtfuehrer._hideIfListEmpty = True - Me.txtFrachtfuehrer._loadKdData = True - Me.txtFrachtfuehrer._ValueKdAndName = False - Me.txtFrachtfuehrer.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper - Me.txtFrachtfuehrer.dgvpos = "LEFT" - Me.txtFrachtfuehrer.Enabled = False - Me.txtFrachtfuehrer.KdName = Nothing - Me.txtFrachtfuehrer.KdNr = "-1" - Me.txtFrachtfuehrer.kdNrField = Nothing - Me.txtFrachtfuehrer.KdNrNullInt = Nothing - Me.txtFrachtfuehrer.Location = New System.Drawing.Point(120, 168) - Me.txtFrachtfuehrer.MaxLength = 50 - Me.txtFrachtfuehrer.Name = "txtFrachtfuehrer" - Me.txtFrachtfuehrer.nurAktive = False - Me.txtFrachtfuehrer.searchActive = True - Me.txtFrachtfuehrer.Size = New System.Drawing.Size(245, 20) - Me.txtFrachtfuehrer.TabIndex = 71 - Me.txtFrachtfuehrer.usrcntl = Nothing - ' - 'Label40 - ' - Me.Label40.AutoSize = True - Me.Label40.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label40.Location = New System.Drawing.Point(23, 136) - Me.Label40.Name = "Label40" - Me.Label40.Size = New System.Drawing.Size(52, 13) - Me.Label40.TabIndex = 58 - Me.Label40.Text = "Absender" - Me.Label40.TextAlign = System.Drawing.ContentAlignment.TopRight - ' - 'txtAbsenderKdNr - ' - Me.txtAbsenderKdNr._DateTimeOnly = False - Me.txtAbsenderKdNr._numbersOnly = False - Me.txtAbsenderKdNr._numbersOnlyKommastellen = "" - Me.txtAbsenderKdNr._Prozent = False - Me.txtAbsenderKdNr._ShortDateNew = False - Me.txtAbsenderKdNr._ShortDateOnly = False - Me.txtAbsenderKdNr._TimeOnly = False - Me.txtAbsenderKdNr._value = Nothing - Me.txtAbsenderKdNr._Waehrung = False - Me.txtAbsenderKdNr._WaehrungZeichen = True - Me.txtAbsenderKdNr.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) - Me.txtAbsenderKdNr.BorderStyle = System.Windows.Forms.BorderStyle.None - Me.txtAbsenderKdNr.Location = New System.Drawing.Point(121, 119) - Me.txtAbsenderKdNr.MaxLineLength = -1 - Me.txtAbsenderKdNr.MaxLines_Warning = "" - Me.txtAbsenderKdNr.MaxLines_Warning_Label = Nothing - Me.txtAbsenderKdNr.Name = "txtAbsenderKdNr" - Me.txtAbsenderKdNr.ReadOnly = True - Me.txtAbsenderKdNr.Size = New System.Drawing.Size(101, 13) - Me.txtAbsenderKdNr.TabIndex = 55 - Me.txtAbsenderKdNr.TabStop = False - ' - 'Label41 - ' - Me.Label41.AutoSize = True - Me.Label41.Font = New System.Drawing.Font("Arial Black", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label41.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.Label41.Location = New System.Drawing.Point(7, 133) - Me.Label41.Name = "Label41" - Me.Label41.Size = New System.Drawing.Size(17, 18) - Me.Label41.TabIndex = 57 - Me.Label41.Text = "4" - Me.Label41.TextAlign = System.Drawing.ContentAlignment.TopRight - ' - 'MyTextBox1 - ' - Me.MyTextBox1._DateTimeOnly = False - Me.MyTextBox1._numbersOnly = False - Me.MyTextBox1._numbersOnlyKommastellen = "" - Me.MyTextBox1._Prozent = False - Me.MyTextBox1._ShortDateNew = False - Me.MyTextBox1._ShortDateOnly = False - Me.MyTextBox1._TimeOnly = False - Me.MyTextBox1._value = Nothing - Me.MyTextBox1._Waehrung = False - Me.MyTextBox1._WaehrungZeichen = True - Me.MyTextBox1.BackColor = System.Drawing.Color.Gainsboro - Me.MyTextBox1.BorderStyle = System.Windows.Forms.BorderStyle.None - Me.MyTextBox1.Location = New System.Drawing.Point(121, 18) - Me.MyTextBox1.MaxLineLength = -1 - Me.MyTextBox1.MaxLines_Warning = "" - Me.MyTextBox1.MaxLines_Warning_Label = Nothing - Me.MyTextBox1.Name = "MyTextBox1" - Me.MyTextBox1.ReadOnly = True - Me.MyTextBox1.Size = New System.Drawing.Size(100, 13) - Me.MyTextBox1.TabIndex = 10 - Me.MyTextBox1.TabStop = False - Me.MyTextBox1.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - ' - 'Label38 - ' - Me.Label38.AutoSize = True - Me.Label38.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label38.Location = New System.Drawing.Point(23, 97) - Me.Label38.Name = "Label38" - Me.Label38.Size = New System.Drawing.Size(78, 13) - Me.Label38.TabIndex = 42 - Me.Label38.Text = "(Rg)Empfänger" - Me.Label38.TextAlign = System.Drawing.ContentAlignment.TopRight - ' - 'Label39 - ' - Me.Label39.AutoSize = True - Me.Label39.Font = New System.Drawing.Font("Arial Black", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label39.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.Label39.Location = New System.Drawing.Point(7, 94) - Me.Label39.Name = "Label39" - Me.Label39.Size = New System.Drawing.Size(17, 18) - Me.Label39.TabIndex = 41 - Me.Label39.Text = "3" - Me.Label39.TextAlign = System.Drawing.ContentAlignment.TopRight - ' - 'txtEmpfaengerKdNr - ' - Me.txtEmpfaengerKdNr._DateTimeOnly = False - Me.txtEmpfaengerKdNr._numbersOnly = False - Me.txtEmpfaengerKdNr._numbersOnlyKommastellen = "" - Me.txtEmpfaengerKdNr._Prozent = False - Me.txtEmpfaengerKdNr._ShortDateNew = False - Me.txtEmpfaengerKdNr._ShortDateOnly = False - Me.txtEmpfaengerKdNr._TimeOnly = False - Me.txtEmpfaengerKdNr._value = Nothing - Me.txtEmpfaengerKdNr._Waehrung = False - Me.txtEmpfaengerKdNr._WaehrungZeichen = True - Me.txtEmpfaengerKdNr.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) - Me.txtEmpfaengerKdNr.BorderStyle = System.Windows.Forms.BorderStyle.None - Me.txtEmpfaengerKdNr.Location = New System.Drawing.Point(121, 81) - Me.txtEmpfaengerKdNr.MaxLineLength = -1 - Me.txtEmpfaengerKdNr.MaxLines_Warning = "" - Me.txtEmpfaengerKdNr.MaxLines_Warning_Label = Nothing - Me.txtEmpfaengerKdNr.Name = "txtEmpfaengerKdNr" - Me.txtEmpfaengerKdNr.ReadOnly = True - Me.txtEmpfaengerKdNr.Size = New System.Drawing.Size(99, 13) - Me.txtEmpfaengerKdNr.TabIndex = 39 - Me.txtEmpfaengerKdNr.TabStop = False - ' - '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 = False - Me.txtAbsender.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper - Me.txtAbsender.dgvpos = "LEFT" - Me.txtAbsender.KdName = Nothing - Me.txtAbsender.KdNr = "-1" - Me.txtAbsender.kdNrField = Nothing - Me.txtAbsender.KdNrNullInt = Nothing - Me.txtAbsender.Location = New System.Drawing.Point(120, 133) - Me.txtAbsender.MaxLength = 50 - Me.txtAbsender.Name = "txtAbsender" - Me.txtAbsender.nurAktive = False - Me.txtAbsender.searchActive = True - Me.txtAbsender.Size = New System.Drawing.Size(245, 20) - Me.txtAbsender.TabIndex = 59 - Me.txtAbsender.usrcntl = Nothing - ' - 'txtEmpfaenger - ' - Me.txtEmpfaenger._AllowSetValue = True - Me.txtEmpfaenger._autoSizeGross = True - Me.txtEmpfaenger._display_Name1 = False - Me.txtEmpfaenger._displayAVISO_Email = False - Me.txtEmpfaenger._displayFullName = False - Me.txtEmpfaenger._displayWoelflKd = False - Me.txtEmpfaenger._hideIfListEmpty = True - Me.txtEmpfaenger._loadKdData = True - Me.txtEmpfaenger._ValueKdAndName = False - Me.txtEmpfaenger.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper - Me.txtEmpfaenger.dgvpos = "LEFT" - Me.txtEmpfaenger.KdName = Nothing - Me.txtEmpfaenger.KdNr = "-1" - Me.txtEmpfaenger.kdNrField = Nothing - Me.txtEmpfaenger.KdNrNullInt = Nothing - Me.txtEmpfaenger.Location = New System.Drawing.Point(120, 94) - Me.txtEmpfaenger.Name = "txtEmpfaenger" - Me.txtEmpfaenger.nurAktive = False - Me.txtEmpfaenger.searchActive = True - Me.txtEmpfaenger.Size = New System.Drawing.Size(245, 20) - Me.txtEmpfaenger.TabIndex = 43 - Me.txtEmpfaenger.usrcntl = Nothing - ' - 'Label28 - ' - Me.Label28.AutoSize = True - Me.Label28.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label28.Location = New System.Drawing.Point(23, 61) - Me.Label28.Name = "Label28" - Me.Label28.Size = New System.Drawing.Size(68, 13) - Me.Label28.TabIndex = 26 - Me.Label28.Text = "Auftraggeber" - Me.Label28.TextAlign = System.Drawing.ContentAlignment.TopRight - ' - 'Label37 - ' - Me.Label37.AutoSize = True - Me.Label37.Font = New System.Drawing.Font("Arial Black", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label37.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.Label37.Location = New System.Drawing.Point(7, 58) - Me.Label37.Name = "Label37" - Me.Label37.Size = New System.Drawing.Size(17, 18) - Me.Label37.TabIndex = 25 - Me.Label37.Text = "2" - Me.Label37.TextAlign = System.Drawing.ContentAlignment.TopRight - ' - 'lblAtrAufschubEust - ' - Me.lblAtrAufschubEust._DateTimeOnly = False - Me.lblAtrAufschubEust._numbersOnly = False - Me.lblAtrAufschubEust._numbersOnlyKommastellen = "" - Me.lblAtrAufschubEust._Prozent = False - Me.lblAtrAufschubEust._ShortDateNew = False - Me.lblAtrAufschubEust._ShortDateOnly = False - Me.lblAtrAufschubEust._TimeOnly = False - Me.lblAtrAufschubEust._value = Nothing - Me.lblAtrAufschubEust._Waehrung = False - Me.lblAtrAufschubEust._WaehrungZeichen = True - Me.lblAtrAufschubEust.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) - Me.lblAtrAufschubEust.BorderStyle = System.Windows.Forms.BorderStyle.None - Me.lblAtrAufschubEust.ForeColor = System.Drawing.Color.Black - Me.lblAtrAufschubEust.Location = New System.Drawing.Point(631, 60) - Me.lblAtrAufschubEust.MaxLineLength = -1 - Me.lblAtrAufschubEust.MaxLines_Warning = "" - Me.lblAtrAufschubEust.MaxLines_Warning_Label = Nothing - Me.lblAtrAufschubEust.Name = "lblAtrAufschubEust" - Me.lblAtrAufschubEust.ReadOnly = True - Me.lblAtrAufschubEust.RightToLeft = System.Windows.Forms.RightToLeft.No - Me.lblAtrAufschubEust.Size = New System.Drawing.Size(69, 13) - Me.lblAtrAufschubEust.TabIndex = 37 - Me.lblAtrAufschubEust.TabStop = False - Me.lblAtrAufschubEust.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - ' - 'Label27 - ' - Me.Label27.AutoSize = True - Me.Label27.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label27.Location = New System.Drawing.Point(23, 24) - Me.Label27.Name = "Label27" - Me.Label27.Size = New System.Drawing.Size(47, 13) - Me.Label27.TabIndex = 12 - Me.Label27.Text = "Avisierer" - Me.Label27.TextAlign = System.Drawing.ContentAlignment.TopRight - ' - 'Label36 - ' - Me.Label36.AutoSize = True - Me.Label36.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!) - Me.Label36.Location = New System.Drawing.Point(595, 3) - Me.Label36.Name = "Label36" - Me.Label36.Size = New System.Drawing.Size(34, 13) - Me.Label36.TabIndex = 6 - Me.Label36.Text = "Clear." - ' - 'Label20 - ' - Me.Label20.AutoSize = True - Me.Label20.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!) - Me.Label20.Location = New System.Drawing.Point(566, 3) - Me.Label20.Name = "Label20" - Me.Label20.Size = New System.Drawing.Size(30, 13) - Me.Label20.TabIndex = 5 - Me.Label20.Text = "ABF." - ' - 'txtAuftraggeberKdNr - ' - Me.txtAuftraggeberKdNr._DateTimeOnly = False - Me.txtAuftraggeberKdNr._numbersOnly = False - Me.txtAuftraggeberKdNr._numbersOnlyKommastellen = "" - Me.txtAuftraggeberKdNr._Prozent = False - Me.txtAuftraggeberKdNr._ShortDateNew = False - Me.txtAuftraggeberKdNr._ShortDateOnly = False - Me.txtAuftraggeberKdNr._TimeOnly = False - Me.txtAuftraggeberKdNr._value = Nothing - Me.txtAuftraggeberKdNr._Waehrung = False - Me.txtAuftraggeberKdNr._WaehrungZeichen = True - Me.txtAuftraggeberKdNr.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) - Me.txtAuftraggeberKdNr.BorderStyle = System.Windows.Forms.BorderStyle.None - Me.txtAuftraggeberKdNr.Location = New System.Drawing.Point(121, 44) - Me.txtAuftraggeberKdNr.MaxLineLength = -1 - Me.txtAuftraggeberKdNr.MaxLines_Warning = "" - Me.txtAuftraggeberKdNr.MaxLines_Warning_Label = Nothing - Me.txtAuftraggeberKdNr.Name = "txtAuftraggeberKdNr" - Me.txtAuftraggeberKdNr.ReadOnly = True - Me.txtAuftraggeberKdNr.Size = New System.Drawing.Size(100, 13) - Me.txtAuftraggeberKdNr.TabIndex = 22 - Me.txtAuftraggeberKdNr.TabStop = False - ' - 'Label18 - ' - Me.Label18.AutoSize = True - Me.Label18.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!) - Me.Label18.Location = New System.Drawing.Point(533, 3) - Me.Label18.Name = "Label18" - Me.Label18.Size = New System.Drawing.Size(33, 13) - Me.Label18.TabIndex = 4 - Me.Label18.Text = "EUST" - ' - 'Label6 - ' - Me.Label6.AutoSize = True - Me.Label6.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!) - Me.Label6.Location = New System.Drawing.Point(501, 3) - Me.Label6.Name = "Label6" - Me.Label6.Size = New System.Drawing.Size(33, 13) - Me.Label6.TabIndex = 3 - Me.Label6.Text = "ZOLL" - ' - 'Label26 - ' - Me.Label26.AutoSize = True - Me.Label26.Font = New System.Drawing.Font("Arial Black", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label26.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.Label26.Location = New System.Drawing.Point(7, 20) - Me.Label26.Name = "Label26" - Me.Label26.Size = New System.Drawing.Size(17, 18) - Me.Label26.TabIndex = 11 - Me.Label26.Text = "1" - Me.Label26.TextAlign = System.Drawing.ContentAlignment.TopRight - ' - 'LinkLabel3 - ' - Me.LinkLabel3.AutoSize = True - Me.LinkLabel3.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!) - Me.LinkLabel3.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(30, Byte), Integer), CType(CType(90, Byte), Integer)) - Me.LinkLabel3.Location = New System.Drawing.Point(335, 44) - Me.LinkLabel3.Name = "LinkLabel3" - Me.LinkLabel3.Size = New System.Drawing.Size(54, 13) - Me.LinkLabel3.TabIndex = 24 - Me.LinkLabel3.TabStop = True - Me.LinkLabel3.Text = "= Frächter" - ' - 'LinkLabel1 - ' - Me.LinkLabel1.AutoSize = True - Me.LinkLabel1.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!) - Me.LinkLabel1.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(30, Byte), Integer), CType(CType(90, Byte), Integer)) - Me.LinkLabel1.Location = New System.Drawing.Point(273, 44) - Me.LinkLabel1.Name = "LinkLabel1" - Me.LinkLabel1.Size = New System.Drawing.Size(56, 13) - Me.LinkLabel1.TabIndex = 23 - Me.LinkLabel1.TabStop = True - Me.LinkLabel1.Text = "= Avisierer" - ' - 'LinkLabel2 - ' - Me.LinkLabel2.AutoSize = True - Me.LinkLabel2.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!) - Me.LinkLabel2.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(30, Byte), Integer), CType(CType(90, Byte), Integer)) - Me.LinkLabel2.Location = New System.Drawing.Point(312, 120) - Me.LinkLabel2.Name = "LinkLabel2" - Me.LinkLabel2.Size = New System.Drawing.Size(77, 13) - Me.LinkLabel2.TabIndex = 56 - Me.LinkLabel2.TabStop = True - Me.LinkLabel2.Text = "= Auftraggeber" - ' - 'lklAuftraggeber - ' - Me.lklAuftraggeber.AutoSize = True - Me.lklAuftraggeber.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!) - Me.lklAuftraggeber.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(30, Byte), Integer), CType(CType(90, Byte), Integer)) - Me.lklAuftraggeber.Location = New System.Drawing.Point(312, 81) - Me.lklAuftraggeber.Name = "lklAuftraggeber" - Me.lklAuftraggeber.Size = New System.Drawing.Size(77, 13) - Me.lklAuftraggeber.TabIndex = 40 - Me.lklAuftraggeber.TabStop = True - Me.lklAuftraggeber.Text = "= Auftraggeber" - ' - 'Label8 - ' - Me.Label8.BackColor = System.Drawing.Color.Transparent - Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold) - Me.Label8.ForeColor = System.Drawing.Color.Red - Me.Label8.Location = New System.Drawing.Point(11, -4) - Me.Label8.Name = "Label8" - Me.Label8.Size = New System.Drawing.Size(406, 28) - Me.Label8.TabIndex = 0 - Me.Label8.Text = "Akt abgeschlossen - keine Änderungen mehr möglich." - Me.Label8.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Label8.Visible = False - ' - 'txtAvisiererKdNr - ' - Me.txtAvisiererKdNr._DateTimeOnly = False - Me.txtAvisiererKdNr._numbersOnly = False - Me.txtAvisiererKdNr._numbersOnlyKommastellen = "" - Me.txtAvisiererKdNr._Prozent = False - Me.txtAvisiererKdNr._ShortDateNew = False - Me.txtAvisiererKdNr._ShortDateOnly = False - Me.txtAvisiererKdNr._TimeOnly = False - Me.txtAvisiererKdNr._value = Nothing - Me.txtAvisiererKdNr._Waehrung = False - Me.txtAvisiererKdNr._WaehrungZeichen = True - Me.txtAvisiererKdNr.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) - Me.txtAvisiererKdNr.BorderStyle = System.Windows.Forms.BorderStyle.None - Me.txtAvisiererKdNr.Location = New System.Drawing.Point(121, 5) - Me.txtAvisiererKdNr.MaxLineLength = -1 - Me.txtAvisiererKdNr.MaxLines_Warning = "" - Me.txtAvisiererKdNr.MaxLines_Warning_Label = Nothing - Me.txtAvisiererKdNr.Name = "txtAvisiererKdNr" - Me.txtAvisiererKdNr.ReadOnly = True - Me.txtAvisiererKdNr.Size = New System.Drawing.Size(100, 13) - Me.txtAvisiererKdNr.TabIndex = 9 - Me.txtAvisiererKdNr.TabStop = False - ' - 'txtKdAuftragsNr - ' - Me.txtKdAuftragsNr._DateTimeOnly = False - Me.txtKdAuftragsNr._numbersOnly = False - Me.txtKdAuftragsNr._numbersOnlyKommastellen = "" - Me.txtKdAuftragsNr._Prozent = False - Me.txtKdAuftragsNr._ShortDateNew = False - Me.txtKdAuftragsNr._ShortDateOnly = False - Me.txtKdAuftragsNr._TimeOnly = False - Me.txtKdAuftragsNr._value = Nothing - Me.txtKdAuftragsNr._Waehrung = False - Me.txtKdAuftragsNr._WaehrungZeichen = True - Me.txtKdAuftragsNr.ForeColor = System.Drawing.Color.Black - Me.txtKdAuftragsNr.Location = New System.Drawing.Point(410, 57) - Me.txtKdAuftragsNr.MaxLength = 50 - Me.txtKdAuftragsNr.MaxLineLength = -1 - Me.txtKdAuftragsNr.MaxLines_Warning = "" - Me.txtKdAuftragsNr.MaxLines_Warning_Label = Nothing - Me.txtKdAuftragsNr.Name = "txtKdAuftragsNr" - Me.txtKdAuftragsNr.Size = New System.Drawing.Size(90, 20) - Me.txtKdAuftragsNr.TabIndex = 30 - ' - 'Panel5 - ' - Me.Panel5.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.Panel5.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.Panel5.Controls.Add(Me.lblAbfNrExists) - Me.Panel5.Controls.Add(Me.cbxFremdspedition) - Me.Panel5.Controls.Add(Me.lblAbfNr_Err) - Me.Panel5.Controls.Add(Me.Panel1) - Me.Panel5.Controls.Add(Me.cboAbfertigungsart) - Me.Panel5.Controls.Add(Me.Label1) - Me.Panel5.Controls.Add(Me.pnlFremd) - Me.Panel5.Controls.Add(Me.txtAnzahl) - Me.Panel5.Controls.Add(Me.lblAnzahl) - Me.Panel5.Controls.Add(Me.btnNeueAbfertigungNrVergeben) - Me.Panel5.Controls.Add(Me.Label14) - Me.Panel5.Controls.Add(Me.txtUnterNr) - Me.Panel5.Controls.Add(Me.Label13) - Me.Panel5.Controls.Add(Me.Label7) - Me.Panel5.Controls.Add(Me.cboFiliale) - Me.Panel5.Controls.Add(Me.txtAbfertigungsnummer) - Me.Panel5.Dock = System.Windows.Forms.DockStyle.Top - Me.Panel5.Location = New System.Drawing.Point(0, 0) - Me.Panel5.Name = "Panel5" - Me.Panel5.Size = New System.Drawing.Size(1112, 69) - Me.Panel5.TabIndex = 0 - ' - 'lblAbfNrExists - ' - Me.lblAbfNrExists.AutoSize = True - Me.lblAbfNrExists.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold) - Me.lblAbfNrExists.ForeColor = System.Drawing.Color.Red - Me.lblAbfNrExists.Location = New System.Drawing.Point(117, 52) - Me.lblAbfNrExists.Name = "lblAbfNrExists" - Me.lblAbfNrExists.Size = New System.Drawing.Size(215, 13) - Me.lblAbfNrExists.TabIndex = 15 - Me.lblAbfNrExists.Text = "Abfertigungsnummer existiert bereits!" - Me.lblAbfNrExists.Visible = False - ' - 'cbxFremdspedition - ' - Me.cbxFremdspedition.AutoSize = True - Me.cbxFremdspedition.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.cbxFremdspedition.ForeColor = System.Drawing.Color.White - Me.cbxFremdspedition.Location = New System.Drawing.Point(639, 7) - Me.cbxFremdspedition.Name = "cbxFremdspedition" - Me.cbxFremdspedition.Size = New System.Drawing.Size(97, 17) - Me.cbxFremdspedition.TabIndex = 1 - Me.cbxFremdspedition.Text = "Fremdspedition" - Me.cbxFremdspedition.UseVisualStyleBackColor = False - ' - 'lblAbfNr_Err - ' - Me.lblAbfNr_Err.AutoSize = True - Me.lblAbfNr_Err.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold) - Me.lblAbfNr_Err.ForeColor = System.Drawing.Color.Red - Me.lblAbfNr_Err.Location = New System.Drawing.Point(99, 52) - Me.lblAbfNr_Err.Name = "lblAbfNr_Err" - Me.lblAbfNr_Err.Size = New System.Drawing.Size(235, 13) - Me.lblAbfNr_Err.TabIndex = 14 - Me.lblAbfNr_Err.Text = "Abfertigungsnummer im falschen Format!" - Me.lblAbfNr_Err.Visible = False - ' - 'Panel1 - ' - Me.Panel1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.Panel1.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) - Me.Panel1.Controls.Add(Me.Button13) - Me.Panel1.Controls.Add(Me.lblSendungen) - Me.Panel1.Controls.Add(Me.Label3) - Me.Panel1.Location = New System.Drawing.Point(1000, 0) - Me.Panel1.Name = "Panel1" - Me.Panel1.Size = New System.Drawing.Size(105, 63) - Me.Panel1.TabIndex = 2 - Me.Panel1.TabStop = True - ' - 'Button13 - ' - Me.Button13.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.Button13.BackColor = System.Drawing.Color.Transparent - Me.Button13.BackgroundImage = Global.AVISO.My.Resources.Resources.gear2 - Me.Button13.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.Button13.FlatAppearance.BorderSize = 0 - Me.Button13.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button13.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!) - Me.Button13.Location = New System.Drawing.Point(85, 0) - Me.Button13.Name = "Button13" - Me.Button13.Padding = New System.Windows.Forms.Padding(0, 25, 0, 0) - Me.Button13.Size = New System.Drawing.Size(20, 20) - Me.Button13.TabIndex = 0 - Me.Button13.TextAlign = System.Drawing.ContentAlignment.BottomCenter - Me.Button13.UseVisualStyleBackColor = False - ' - 'lblSendungen - ' - Me.lblSendungen.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ - Or System.Windows.Forms.AnchorStyles.Left) _ - Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.lblSendungen.Font = New System.Drawing.Font("Microsoft Sans Serif", 20.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.lblSendungen.Location = New System.Drawing.Point(0, 6) - Me.lblSendungen.Name = "lblSendungen" - Me.lblSendungen.Size = New System.Drawing.Size(105, 39) - Me.lblSendungen.TabIndex = 1 - Me.lblSendungen.Text = "1/10" - Me.lblSendungen.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'Label3 - ' - Me.Label3.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ - Or System.Windows.Forms.AnchorStyles.Left) _ - Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.Label3.Location = New System.Drawing.Point(0, 44) - Me.Label3.Name = "Label3" - Me.Label3.Size = New System.Drawing.Size(105, 21) - Me.Label3.TabIndex = 2 - Me.Label3.Text = "Sendung Pos." - Me.Label3.TextAlign = System.Drawing.ContentAlignment.TopCenter - ' - 'cboAbfertigungsart - ' - Me.cboAbfertigungsart._allowedValuesFreiText = Nothing - Me.cboAbfertigungsart._allowFreiText = False - Me.cboAbfertigungsart._value = "" - Me.cboAbfertigungsart.BackColor = System.Drawing.Color.White - Me.cboAbfertigungsart.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.cboAbfertigungsart.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.cboAbfertigungsart.FormattingEnabled = True - Me.cboAbfertigungsart.Location = New System.Drawing.Point(422, 27) - Me.cboAbfertigungsart.Name = "cboAbfertigungsart" - Me.cboAbfertigungsart.Size = New System.Drawing.Size(315, 24) - Me.cboAbfertigungsart.TabIndex = 12 - ' - 'Label1 - ' - Me.Label1.AutoSize = True - Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label1.ForeColor = System.Drawing.Color.White - Me.Label1.Location = New System.Drawing.Point(418, 7) - Me.Label1.Name = "Label1" - Me.Label1.Size = New System.Drawing.Size(109, 17) - Me.Label1.TabIndex = 0 - Me.Label1.Text = "Abfertigungsart:" - ' - 'pnlFremd - ' - Me.pnlFremd.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.pnlFremd.Controls.Add(Me.Label9) - Me.pnlFremd.Controls.Add(Me.txtFremdEmpfKdNR) - Me.pnlFremd.Controls.Add(Me.txtFremdEmpf) - Me.pnlFremd.Controls.Add(Me.Label11) - Me.pnlFremd.Controls.Add(Me.cboFremdsped) - Me.pnlFremd.Location = New System.Drawing.Point(3, 5) - Me.pnlFremd.Name = "pnlFremd" - Me.pnlFremd.Size = New System.Drawing.Size(24, 63) - Me.pnlFremd.TabIndex = 3 - ' - 'Label9 - ' - Me.Label9.AutoSize = True - Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label9.ForeColor = System.Drawing.Color.White - Me.Label9.Location = New System.Drawing.Point(210, 2) - Me.Label9.Name = "Label9" - Me.Label9.Size = New System.Drawing.Size(109, 17) - Me.Label9.TabIndex = 1 - Me.Label9.Text = "Fremdspedition:" - ' - 'txtFremdEmpfKdNR - ' - Me.txtFremdEmpfKdNR._DateTimeOnly = False - Me.txtFremdEmpfKdNR._numbersOnly = False - Me.txtFremdEmpfKdNR._numbersOnlyKommastellen = "" - Me.txtFremdEmpfKdNR._Prozent = False - Me.txtFremdEmpfKdNR._ShortDateNew = False - Me.txtFremdEmpfKdNR._ShortDateOnly = False - Me.txtFremdEmpfKdNR._TimeOnly = False - Me.txtFremdEmpfKdNR._value = Nothing - Me.txtFremdEmpfKdNR._Waehrung = False - Me.txtFremdEmpfKdNR._WaehrungZeichen = True - Me.txtFremdEmpfKdNR.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.txtFremdEmpfKdNR.BorderStyle = System.Windows.Forms.BorderStyle.None - Me.txtFremdEmpfKdNR.ForeColor = System.Drawing.Color.White - Me.txtFremdEmpfKdNR.Location = New System.Drawing.Point(307, 8) - Me.txtFremdEmpfKdNR.MaxLineLength = -1 - Me.txtFremdEmpfKdNR.MaxLines_Warning = "" - Me.txtFremdEmpfKdNR.MaxLines_Warning_Label = Nothing - Me.txtFremdEmpfKdNR.Name = "txtFremdEmpfKdNR" - Me.txtFremdEmpfKdNR.ReadOnly = True - Me.txtFremdEmpfKdNR.Size = New System.Drawing.Size(100, 13) - Me.txtFremdEmpfKdNR.TabIndex = 2 - Me.txtFremdEmpfKdNR.TabStop = False - Me.txtFremdEmpfKdNR.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - ' - 'txtFremdEmpf - ' - Me.txtFremdEmpf._AllowSetValue = True - Me.txtFremdEmpf._autoSizeGross = True - Me.txtFremdEmpf._display_Name1 = False - Me.txtFremdEmpf._displayAVISO_Email = False - Me.txtFremdEmpf._displayFullName = False - Me.txtFremdEmpf._displayWoelflKd = False - Me.txtFremdEmpf._hideIfListEmpty = True - Me.txtFremdEmpf._loadKdData = True - Me.txtFremdEmpf._ValueKdAndName = False - Me.txtFremdEmpf.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper - Me.txtFremdEmpf.dgvpos = "LEFT" - Me.txtFremdEmpf.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!) - Me.txtFremdEmpf.KdName = Nothing - Me.txtFremdEmpf.KdNr = "-1" - Me.txtFremdEmpf.kdNrField = Nothing - Me.txtFremdEmpf.KdNrNullInt = Nothing - Me.txtFremdEmpf.Location = New System.Drawing.Point(32, 21) - Me.txtFremdEmpf.MaxLength = 50 - Me.txtFremdEmpf.Name = "txtFremdEmpf" - Me.txtFremdEmpf.nurAktive = False - Me.txtFremdEmpf.searchActive = True - Me.txtFremdEmpf.Size = New System.Drawing.Size(175, 26) - Me.txtFremdEmpf.TabIndex = 3 - Me.txtFremdEmpf.usrcntl = Nothing - ' - 'Label11 - ' - Me.Label11.AutoSize = True - Me.Label11.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label11.ForeColor = System.Drawing.Color.White - Me.Label11.Location = New System.Drawing.Point(28, 2) - Me.Label11.Name = "Label11" - Me.Label11.Size = New System.Drawing.Size(81, 17) - Me.Label11.TabIndex = 0 - Me.Label11.Text = "Empfänger:" - ' - 'cboFremdsped - ' - Me.cboFremdsped._allowedValuesFreiText = Nothing - Me.cboFremdsped._allowFreiText = True - Me.cboFremdsped._value = "" - Me.cboFremdsped.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!) - Me.cboFremdsped.Location = New System.Drawing.Point(213, 20) - Me.cboFremdsped.Name = "cboFremdsped" - Me.cboFremdsped.Size = New System.Drawing.Size(194, 28) - Me.cboFremdsped.TabIndex = 4 - Me.cboFremdsped.Visible = False - ' - 'txtAnzahl - ' - Me.txtAnzahl._DateTimeOnly = False - Me.txtAnzahl._numbersOnly = True - Me.txtAnzahl._numbersOnlyKommastellen = "" - Me.txtAnzahl._Prozent = False - Me.txtAnzahl._ShortDateNew = False - Me.txtAnzahl._ShortDateOnly = False - Me.txtAnzahl._TimeOnly = False - Me.txtAnzahl._value = "" - Me.txtAnzahl._Waehrung = False - Me.txtAnzahl._WaehrungZeichen = True - Me.txtAnzahl.Font = New System.Drawing.Font("Microsoft Tai Le", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtAnzahl.Location = New System.Drawing.Point(741, 27) - Me.txtAnzahl.MaxLength = 3 - Me.txtAnzahl.MaxLineLength = -1 - Me.txtAnzahl.MaxLines_Warning = "" - Me.txtAnzahl.MaxLines_Warning_Label = Nothing - Me.txtAnzahl.Name = "txtAnzahl" - Me.txtAnzahl.Size = New System.Drawing.Size(41, 24) - Me.txtAnzahl.TabIndex = 13 - Me.txtAnzahl.Visible = False - ' - 'lblAnzahl - ' - Me.lblAnzahl.AutoSize = True - Me.lblAnzahl.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.lblAnzahl.ForeColor = System.Drawing.Color.White - Me.lblAnzahl.Location = New System.Drawing.Point(738, 6) - Me.lblAnzahl.Name = "lblAnzahl" - Me.lblAnzahl.Size = New System.Drawing.Size(55, 17) - Me.lblAnzahl.TabIndex = 7 - Me.lblAnzahl.Text = "Anzahl:" - Me.lblAnzahl.Visible = False - ' - 'btnNeueAbfertigungNrVergeben - ' - Me.btnNeueAbfertigungNrVergeben.BackColor = System.Drawing.Color.WhiteSmoke - Me.btnNeueAbfertigungNrVergeben.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnNeueAbfertigungNrVergeben.Location = New System.Drawing.Point(120, 27) - Me.btnNeueAbfertigungNrVergeben.Name = "btnNeueAbfertigungNrVergeben" - Me.btnNeueAbfertigungNrVergeben.Size = New System.Drawing.Size(224, 25) - Me.btnNeueAbfertigungNrVergeben.TabIndex = 9 - Me.btnNeueAbfertigungNrVergeben.Text = "Neue Abfertigung-Nr. vergeben" - Me.btnNeueAbfertigungNrVergeben.UseVisualStyleBackColor = False - Me.btnNeueAbfertigungNrVergeben.Visible = False - ' - 'Label14 - ' - Me.Label14.AutoSize = True - Me.Label14.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label14.ForeColor = System.Drawing.Color.White - Me.Label14.Location = New System.Drawing.Point(30, 6) - Me.Label14.Name = "Label14" - Me.Label14.Size = New System.Drawing.Size(44, 17) - Me.Label14.TabIndex = 4 - Me.Label14.Text = "Filiale" - ' - 'txtUnterNr - ' - Me.txtUnterNr._DateTimeOnly = False - Me.txtUnterNr._numbersOnly = False - Me.txtUnterNr._numbersOnlyKommastellen = "" - Me.txtUnterNr._Prozent = False - Me.txtUnterNr._ShortDateNew = False - Me.txtUnterNr._ShortDateOnly = False - Me.txtUnterNr._TimeOnly = False - Me.txtUnterNr._value = Nothing - Me.txtUnterNr._Waehrung = False - Me.txtUnterNr._WaehrungZeichen = True - Me.txtUnterNr.Font = New System.Drawing.Font("Microsoft Tai Le", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtUnterNr.Location = New System.Drawing.Point(350, 27) - Me.txtUnterNr.MaxLineLength = -1 - Me.txtUnterNr.MaxLines_Warning = "" - Me.txtUnterNr.MaxLines_Warning_Label = Nothing - Me.txtUnterNr.Name = "txtUnterNr" - Me.txtUnterNr.Size = New System.Drawing.Size(39, 24) - Me.txtUnterNr.TabIndex = 11 - Me.txtUnterNr.Visible = False - ' - 'Label13 - ' - Me.Label13.AutoSize = True - Me.Label13.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label13.ForeColor = System.Drawing.Color.White - Me.Label13.Location = New System.Drawing.Point(116, 6) - Me.Label13.Name = "Label13" - Me.Label13.Size = New System.Drawing.Size(139, 17) - Me.Label13.TabIndex = 5 - Me.Label13.Text = "Abfertigungsnummer" - ' - 'Label7 - ' - Me.Label7.AutoSize = True - Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label7.ForeColor = System.Drawing.Color.White - Me.Label7.Location = New System.Drawing.Point(344, 6) - Me.Label7.Name = "Label7" - Me.Label7.Size = New System.Drawing.Size(58, 17) - Me.Label7.TabIndex = 6 - Me.Label7.Text = "UnterNr" - Me.Label7.Visible = False - ' - 'cboFiliale - ' - Me.cboFiliale._allowedValuesFreiText = Nothing - Me.cboFiliale._allowFreiText = False - Me.cboFiliale._value = "" - Me.cboFiliale.DropDownWidth = 280 - Me.cboFiliale.Font = New System.Drawing.Font("Microsoft Tai Le", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.cboFiliale.FormattingEnabled = True - Me.cboFiliale.Location = New System.Drawing.Point(33, 27) - Me.cboFiliale.Name = "cboFiliale" - Me.cboFiliale.Size = New System.Drawing.Size(80, 24) - Me.cboFiliale.TabIndex = 8 - ' - 'txtAbfertigungsnummer - ' - Me.txtAbfertigungsnummer._DateTimeOnly = False - Me.txtAbfertigungsnummer._numbersOnly = False - Me.txtAbfertigungsnummer._numbersOnlyKommastellen = "" - Me.txtAbfertigungsnummer._Prozent = False - Me.txtAbfertigungsnummer._ShortDateNew = False - Me.txtAbfertigungsnummer._ShortDateOnly = False - Me.txtAbfertigungsnummer._TimeOnly = False - Me.txtAbfertigungsnummer._value = Nothing - Me.txtAbfertigungsnummer._Waehrung = False - Me.txtAbfertigungsnummer._WaehrungZeichen = True - Me.txtAbfertigungsnummer.Font = New System.Drawing.Font("Microsoft Tai Le", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtAbfertigungsnummer.Location = New System.Drawing.Point(120, 27) - Me.txtAbfertigungsnummer.MaxLineLength = -1 - Me.txtAbfertigungsnummer.MaxLines_Warning = "" - Me.txtAbfertigungsnummer.MaxLines_Warning_Label = Nothing - Me.txtAbfertigungsnummer.Name = "txtAbfertigungsnummer" - Me.txtAbfertigungsnummer.Size = New System.Drawing.Size(224, 24) - Me.txtAbfertigungsnummer.TabIndex = 10 - ' - 'Panel2 - ' - Me.Panel2.AutoSize = True - Me.Panel2.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink - Me.Panel2.Controls.Add(Me.FlowLayoutPanel) - Me.Panel2.Controls.Add(Me.pnlheader) - Me.Panel2.Dock = System.Windows.Forms.DockStyle.Top - Me.Panel2.Location = New System.Drawing.Point(0, 0) - Me.Panel2.MaximumSize = New System.Drawing.Size(0, 510) - Me.Panel2.Name = "Panel2" - Me.Panel2.Size = New System.Drawing.Size(1112, 55) - Me.Panel2.TabIndex = 0 - ' - 'FlowLayoutPanel - ' - Me.FlowLayoutPanel.AutoSize = True - Me.FlowLayoutPanel.Controls.Add(Me.FlatButton2) - Me.FlowLayoutPanel.Dock = System.Windows.Forms.DockStyle.Top - Me.FlowLayoutPanel.Location = New System.Drawing.Point(0, 0) - Me.FlowLayoutPanel.MaximumSize = New System.Drawing.Size(0, 550) - Me.FlowLayoutPanel.MinimumSize = New System.Drawing.Size(0, 53) - Me.FlowLayoutPanel.Name = "FlowLayoutPanel" - Me.FlowLayoutPanel.Size = New System.Drawing.Size(1112, 55) - Me.FlowLayoutPanel.TabIndex = 0 - ' - 'FlatButton2 - ' - Me.FlatButton2.allowBorder = False - Me.FlatButton2.FlatAppearance.BorderSize = 0 - Me.FlatButton2.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.FlatButton2.ForeColor = System.Drawing.Color.Black - Me.FlatButton2.Location = New System.Drawing.Point(2, 2) - Me.FlatButton2.Margin = New System.Windows.Forms.Padding(2) - Me.FlatButton2.Name = "FlatButton2" - Me.FlatButton2.Size = New System.Drawing.Size(90, 51) - Me.FlatButton2.TabIndex = 0 - Me.FlatButton2.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.FlatButton2.UseVisualStyleBackColor = True - ' - 'pnlheader - ' - Me.pnlheader.Controls.Add(Me.Label2) - Me.pnlheader.Dock = System.Windows.Forms.DockStyle.Top - Me.pnlheader.Location = New System.Drawing.Point(0, 0) - Me.pnlheader.Name = "pnlheader" - Me.pnlheader.Size = New System.Drawing.Size(1112, 0) - Me.pnlheader.TabIndex = 1 - Me.pnlheader.Visible = False - ' - 'Label2 - ' - 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(3, 11) - Me.Label2.Name = "Label2" - Me.Label2.Size = New System.Drawing.Size(117, 13) - Me.Label2.TabIndex = 0 - Me.Label2.Text = "Alle Sendungen im Akt:" - ' - 'Panel7 - ' - Me.Panel7.Controls.Add(Me.lblgesGewicht) - Me.Panel7.Controls.Add(Me.lblGesColli) - Me.Panel7.Controls.Add(Me.Label44) - Me.Panel7.Controls.Add(Me.lblGrenze) - Me.Panel7.Controls.Add(Me.Label15) - Me.Panel7.Controls.Add(Me.Button17) - Me.Panel7.Controls.Add(Me.Panel3) - Me.Panel7.Controls.Add(Me.Panel9) - Me.Panel7.Controls.Add(Me.btn) - Me.Panel7.Controls.Add(Me.cbxSpedBuch) - Me.Panel7.Dock = System.Windows.Forms.DockStyle.Bottom - Me.Panel7.Location = New System.Drawing.Point(0, 799) - Me.Panel7.MinimumSize = New System.Drawing.Size(0, 51) - Me.Panel7.Name = "Panel7" - Me.Panel7.Size = New System.Drawing.Size(1112, 64) - Me.Panel7.TabIndex = 3 - ' - 'lblgesGewicht - ' - Me.lblgesGewicht.AutoSize = True - Me.lblgesGewicht.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.lblgesGewicht.Location = New System.Drawing.Point(383, 33) - Me.lblgesGewicht.Name = "lblgesGewicht" - Me.lblgesGewicht.Size = New System.Drawing.Size(64, 13) - Me.lblgesGewicht.TabIndex = 9 - Me.lblgesGewicht.Text = "10.000 kg" - ' - 'lblGesColli - ' - Me.lblGesColli.AutoSize = True - Me.lblGesColli.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.lblGesColli.Location = New System.Drawing.Point(383, 18) - Me.lblGesColli.Name = "lblGesColli" - Me.lblGesColli.Size = New System.Drawing.Size(37, 13) - Me.lblGesColli.TabIndex = 8 - Me.lblGesColli.Text = "0 Pk." - ' - 'Label44 - ' - Me.Label44.AutoSize = True - Me.Label44.Location = New System.Drawing.Point(383, 3) - Me.Label44.Name = "Label44" - Me.Label44.Size = New System.Drawing.Size(46, 13) - Me.Label44.TabIndex = 7 - Me.Label44.Text = "Gesamt:" - ' - 'lblGrenze - ' - Me.lblGrenze.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold) - Me.lblGrenze.Location = New System.Drawing.Point(137, 15) - Me.lblGrenze.Name = "lblGrenze" - Me.lblGrenze.Size = New System.Drawing.Size(236, 44) - Me.lblGrenze.TabIndex = 6 - Me.lblGrenze.Text = "SUB" - ' - 'Label15 - ' - Me.Label15.AutoSize = True - Me.Label15.Location = New System.Drawing.Point(137, 0) - Me.Label15.Name = "Label15" - Me.Label15.Size = New System.Drawing.Size(44, 13) - Me.Label15.TabIndex = 4 - Me.Label15.Text = "Grenze:" - ' - 'Button17 - ' - 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.Image = Global.AVISO.My.Resources.Resources.vermerk - Me.Button17.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button17.Location = New System.Drawing.Point(485, 6) - Me.Button17.Name = "Button17" - Me.Button17.Padding = New System.Windows.Forms.Padding(0, 0, 10, 0) - Me.Button17.Size = New System.Drawing.Size(98, 40) - Me.Button17.TabIndex = 5 - Me.Button17.Text = "Vermerk" - Me.Button17.TextAlign = System.Drawing.ContentAlignment.MiddleRight - Me.Button17.UseVisualStyleBackColor = True - ' - 'Panel3 - ' - Me.Panel3.Controls.Add(Me.btnDelQS) - Me.Panel3.Controls.Add(Me.btnQS_MA) - Me.Panel3.Controls.Add(Me.lblQsMa) - Me.Panel3.Controls.Add(Me.Label16) - Me.Panel3.Dock = System.Windows.Forms.DockStyle.Right - Me.Panel3.Location = New System.Drawing.Point(589, 0) - Me.Panel3.Name = "Panel3" - Me.Panel3.Size = New System.Drawing.Size(228, 64) - Me.Panel3.TabIndex = 2 - ' - 'btnDelQS - ' - Me.btnDelQS.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.btnDelQS.BackColor = System.Drawing.Color.WhiteSmoke - Me.btnDelQS.BackgroundImage = CType(resources.GetObject("btnDelQS.BackgroundImage"), System.Drawing.Image) - Me.btnDelQS.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.btnDelQS.Cursor = System.Windows.Forms.Cursors.Hand - Me.btnDelQS.FlatAppearance.BorderSize = 0 - Me.btnDelQS.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnDelQS.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnDelQS.Location = New System.Drawing.Point(107, 0) - Me.btnDelQS.Name = "btnDelQS" - Me.btnDelQS.Size = New System.Drawing.Size(12, 13) - Me.btnDelQS.TabIndex = 1 - Me.btnDelQS.UseVisualStyleBackColor = False - Me.btnDelQS.Visible = False - ' - 'btnQS_MA - ' - Me.btnQS_MA.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.btnQS_MA.BackColor = System.Drawing.Color.WhiteSmoke - Me.btnQS_MA.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.btnQS_MA.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnQS_MA.Image = CType(resources.GetObject("btnQS_MA.Image"), System.Drawing.Image) - Me.btnQS_MA.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnQS_MA.Location = New System.Drawing.Point(4, 14) - Me.btnQS_MA.Name = "btnQS_MA" - Me.btnQS_MA.Size = New System.Drawing.Size(222, 32) - Me.btnQS_MA.TabIndex = 2 - Me.btnQS_MA.Text = "XXX eintragen" - Me.btnQS_MA.UseVisualStyleBackColor = False - Me.btnQS_MA.Visible = False - ' - 'lblQsMa - ' - Me.lblQsMa.AutoSize = True - Me.lblQsMa.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold) - Me.lblQsMa.Location = New System.Drawing.Point(6, 45) - Me.lblQsMa.Name = "lblQsMa" - Me.lblQsMa.Size = New System.Drawing.Size(14, 17) - Me.lblQsMa.TabIndex = 3 - Me.lblQsMa.Text = "-" - ' - 'Label16 - ' - Me.Label16.AutoSize = True - Me.Label16.Location = New System.Drawing.Point(3, 0) - Me.Label16.Name = "Label16" - Me.Label16.Size = New System.Drawing.Size(100, 13) - Me.Label16.TabIndex = 0 - Me.Label16.Text = "Abgeklärt von (QS):" - ' - 'Panel9 - ' - Me.Panel9.Controls.Add(Me.Button10) - Me.Panel9.Controls.Add(Me.Button2) - Me.Panel9.Dock = System.Windows.Forms.DockStyle.Right - Me.Panel9.Location = New System.Drawing.Point(817, 0) - Me.Panel9.Name = "Panel9" - Me.Panel9.Size = New System.Drawing.Size(295, 64) - Me.Panel9.TabIndex = 3 - ' - 'Button10 - ' - Me.Button10.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button10.Location = New System.Drawing.Point(6, 6) - Me.Button10.Name = "Button10" - Me.Button10.Size = New System.Drawing.Size(110, 40) - Me.Button10.TabIndex = 0 - Me.Button10.Text = "Abbrechen" - Me.Button10.UseVisualStyleBackColor = True - ' - 'Button2 - ' - Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button2.Image = CType(resources.GetObject("Button2.Image"), System.Drawing.Image) - Me.Button2.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button2.Location = New System.Drawing.Point(122, 6) - Me.Button2.Name = "Button2" - Me.Button2.Size = New System.Drawing.Size(159, 40) - Me.Button2.TabIndex = 1 - Me.Button2.Text = "OK" - Me.Button2.UseVisualStyleBackColor = True - ' - 'btn - ' - Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btn.Image = CType(resources.GetObject("btn.Image"), System.Drawing.Image) - Me.btn.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btn.Location = New System.Drawing.Point(6, 6) - Me.btn.Name = "btn" - Me.btn.Size = New System.Drawing.Size(125, 40) - Me.btn.TabIndex = 0 - Me.btn.Text = "Eintrag" & Global.Microsoft.VisualBasic.ChrW(10) & "Speditionsbuch" - Me.btn.TextAlign = System.Drawing.ContentAlignment.MiddleRight - Me.btn.UseVisualStyleBackColor = True - ' - 'cbxSpedBuch - ' - Me.cbxSpedBuch._value = "" - Me.cbxSpedBuch.AutoSize = True - Me.cbxSpedBuch.Checked_value = False - Me.cbxSpedBuch.CheckedValue = False - Me.cbxSpedBuch.Location = New System.Drawing.Point(6, 46) - Me.cbxSpedBuch.Name = "cbxSpedBuch" - Me.cbxSpedBuch.Size = New System.Drawing.Size(113, 17) - Me.cbxSpedBuch.TabIndex = 1 - Me.cbxSpedBuch.Text = "Eintrag vorhanden" - Me.cbxSpedBuch.UseVisualStyleBackColor = True - ' - 'ToolStripMenuItem3 - ' - Me.ToolStripMenuItem3.Image = Global.AVISO.My.Resources.Resources.plus - Me.ToolStripMenuItem3.Name = "ToolStripMenuItem3" - Me.ToolStripMenuItem3.Padding = New System.Windows.Forms.Padding(8, 0, 8, 0) - Me.ToolStripMenuItem3.Size = New System.Drawing.Size(70, 20) - Me.ToolStripMenuItem3.Text = " EZA" - Me.ToolStripMenuItem3.ToolTipText = "Neue Zollanmeldung" - ' - 'ToolStripMenuItem2 - ' - Me.ToolStripMenuItem2.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem4, Me.ToolStripMenuItem5, Me.ÜTToolStripMenuItem}) - Me.ToolStripMenuItem2.Image = Global.AVISO.My.Resources.Resources.plus - Me.ToolStripMenuItem2.Name = "ToolStripMenuItem2" - Me.ToolStripMenuItem2.Padding = New System.Windows.Forms.Padding(8, 0, 8, 0) - Me.ToolStripMenuItem2.Size = New System.Drawing.Size(79, 20) - Me.ToolStripMenuItem2.Text = " NCTS" - Me.ToolStripMenuItem2.ToolTipText = "Neue Zollanmeldung" - ' - 'ToolStripMenuItem4 - ' - Me.ToolStripMenuItem4.Font = New System.Drawing.Font("Segoe UI", 9.0!) - Me.ToolStripMenuItem4.Image = Global.AVISO.My.Resources.Resources.plus - Me.ToolStripMenuItem4.Name = "ToolStripMenuItem4" - Me.ToolStripMenuItem4.Size = New System.Drawing.Size(94, 22) - Me.ToolStripMenuItem4.Text = "T1" - ' - 'ToolStripMenuItem5 - ' - Me.ToolStripMenuItem5.Font = New System.Drawing.Font("Segoe UI", 9.0!) - Me.ToolStripMenuItem5.Image = Global.AVISO.My.Resources.Resources.plus - Me.ToolStripMenuItem5.Name = "ToolStripMenuItem5" - Me.ToolStripMenuItem5.Size = New System.Drawing.Size(94, 22) - Me.ToolStripMenuItem5.Text = "T2" - ' - 'ÜTToolStripMenuItem - ' - Me.ÜTToolStripMenuItem.Enabled = False - Me.ÜTToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.plus - Me.ÜTToolStripMenuItem.Name = "ÜTToolStripMenuItem" - Me.ÜTToolStripMenuItem.Size = New System.Drawing.Size(94, 22) - Me.ÜTToolStripMenuItem.Text = "Ü-T" - ' - 'NeueZollanmeldungToolStripMenuItem - ' - Me.NeueZollanmeldungToolStripMenuItem.Enabled = False - Me.NeueZollanmeldungToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.plus - Me.NeueZollanmeldungToolStripMenuItem.Name = "NeueZollanmeldungToolStripMenuItem" - Me.NeueZollanmeldungToolStripMenuItem.Padding = New System.Windows.Forms.Padding(8, 0, 8, 0) - Me.NeueZollanmeldungToolStripMenuItem.Size = New System.Drawing.Size(69, 20) - Me.NeueZollanmeldungToolStripMenuItem.Text = " AES" - Me.NeueZollanmeldungToolStripMenuItem.ToolTipText = "Neue Zollanmeldung" - ' - 'LogToolStripMenuItem - ' - Me.LogToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.android_note - Me.LogToolStripMenuItem.Name = "LogToolStripMenuItem" - Me.LogToolStripMenuItem.Size = New System.Drawing.Size(61, 20) - Me.LogToolStripMenuItem.Text = " Log" - Me.LogToolStripMenuItem.ToolTipText = "Logbuch" - ' - 'BindingNavigatorAddNewItem - ' - Me.BindingNavigatorAddNewItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image - Me.BindingNavigatorAddNewItem.Image = CType(resources.GetObject("BindingNavigatorAddNewItem.Image"), System.Drawing.Image) - Me.BindingNavigatorAddNewItem.Name = "BindingNavigatorAddNewItem" - Me.BindingNavigatorAddNewItem.RightToLeftAutoMirrorImage = True - Me.BindingNavigatorAddNewItem.Size = New System.Drawing.Size(24, 24) - Me.BindingNavigatorAddNewItem.Text = "Neu hinzufügen" - ' - 'BindingNavigatorCountItem - ' - Me.BindingNavigatorCountItem.Name = "BindingNavigatorCountItem" - Me.BindingNavigatorCountItem.Size = New System.Drawing.Size(44, 24) - Me.BindingNavigatorCountItem.Text = "von {0}" - Me.BindingNavigatorCountItem.ToolTipText = "Die Gesamtanzahl der Elemente." - ' - 'BindingNavigatorDeleteItem - ' - Me.BindingNavigatorDeleteItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image - Me.BindingNavigatorDeleteItem.Image = CType(resources.GetObject("BindingNavigatorDeleteItem.Image"), System.Drawing.Image) - Me.BindingNavigatorDeleteItem.Name = "BindingNavigatorDeleteItem" - Me.BindingNavigatorDeleteItem.RightToLeftAutoMirrorImage = True - Me.BindingNavigatorDeleteItem.Size = New System.Drawing.Size(24, 24) - Me.BindingNavigatorDeleteItem.Text = "Löschen" - ' - 'BindingNavigatorMoveLastItem - ' - Me.BindingNavigatorMoveLastItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image - Me.BindingNavigatorMoveLastItem.Image = CType(resources.GetObject("BindingNavigatorMoveLastItem.Image"), System.Drawing.Image) - Me.BindingNavigatorMoveLastItem.Name = "BindingNavigatorMoveLastItem" - Me.BindingNavigatorMoveLastItem.RightToLeftAutoMirrorImage = True - Me.BindingNavigatorMoveLastItem.Size = New System.Drawing.Size(24, 24) - Me.BindingNavigatorMoveLastItem.Text = "Letzte verschieben" - ' - 'BindingNavigatorMoveNextItem - ' - Me.BindingNavigatorMoveNextItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image - Me.BindingNavigatorMoveNextItem.Image = CType(resources.GetObject("BindingNavigatorMoveNextItem.Image"), System.Drawing.Image) - Me.BindingNavigatorMoveNextItem.Name = "BindingNavigatorMoveNextItem" - Me.BindingNavigatorMoveNextItem.RightToLeftAutoMirrorImage = True - Me.BindingNavigatorMoveNextItem.Size = New System.Drawing.Size(24, 24) - Me.BindingNavigatorMoveNextItem.Text = "Nächste verschieben" - ' - 'BindingNavigatorMovePreviousItem - ' - Me.BindingNavigatorMovePreviousItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image - Me.BindingNavigatorMovePreviousItem.Image = CType(resources.GetObject("BindingNavigatorMovePreviousItem.Image"), System.Drawing.Image) - Me.BindingNavigatorMovePreviousItem.Name = "BindingNavigatorMovePreviousItem" - Me.BindingNavigatorMovePreviousItem.RightToLeftAutoMirrorImage = True - Me.BindingNavigatorMovePreviousItem.Size = New System.Drawing.Size(24, 24) - Me.BindingNavigatorMovePreviousItem.Text = "Vorherige verschieben" - ' - 'BindingNavigatorPositionItem - ' - Me.BindingNavigatorPositionItem.AccessibleName = "Position" - Me.BindingNavigatorPositionItem.AutoSize = False - Me.BindingNavigatorPositionItem.Name = "BindingNavigatorPositionItem" - Me.BindingNavigatorPositionItem.Size = New System.Drawing.Size(50, 23) - Me.BindingNavigatorPositionItem.Text = "0" - Me.BindingNavigatorPositionItem.ToolTipText = "Aktuelle Position" - ' - 'BindingNavigatorSeparator - ' - Me.BindingNavigatorSeparator.Name = "BindingNavigatorSeparator" - Me.BindingNavigatorSeparator.Size = New System.Drawing.Size(6, 27) - ' - 'BindingNavigatorSeparator1 - ' - Me.BindingNavigatorSeparator1.Name = "BindingNavigatorSeparator1" - Me.BindingNavigatorSeparator1.Size = New System.Drawing.Size(6, 27) - ' - 'BindingNavigatorSeparator2 - ' - Me.BindingNavigatorSeparator2.Name = "BindingNavigatorSeparator2" - Me.BindingNavigatorSeparator2.Size = New System.Drawing.Size(6, 27) - ' - 'cntxtVorauskasse - ' - Me.cntxtVorauskasse.ImageScalingSize = New System.Drawing.Size(24, 24) - Me.cntxtVorauskasse.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.toolAuftraggeber, Me.toolAbsender, Me.toolEmpfänger, Me.toolAvisierer, Me.toolFrächter}) - Me.cntxtVorauskasse.Name = "cntxtVorauskasse" - Me.cntxtVorauskasse.Size = New System.Drawing.Size(145, 114) - ' - 'toolAuftraggeber - ' - Me.toolAuftraggeber.Name = "toolAuftraggeber" - Me.toolAuftraggeber.Size = New System.Drawing.Size(144, 22) - Me.toolAuftraggeber.Text = "Auftraggeber" - ' - 'toolAbsender - ' - Me.toolAbsender.Name = "toolAbsender" - Me.toolAbsender.Size = New System.Drawing.Size(144, 22) - Me.toolAbsender.Text = "Absender" - ' - 'toolEmpfänger - ' - Me.toolEmpfänger.Name = "toolEmpfänger" - Me.toolEmpfänger.Size = New System.Drawing.Size(144, 22) - Me.toolEmpfänger.Text = "Empfänger" - ' - 'toolAvisierer - ' - Me.toolAvisierer.Name = "toolAvisierer" - Me.toolAvisierer.Size = New System.Drawing.Size(144, 22) - Me.toolAvisierer.Text = "Avisierer" - ' - 'toolFrächter - ' - Me.toolFrächter.Name = "toolFrächter" - Me.toolFrächter.Size = New System.Drawing.Size(144, 22) - Me.toolFrächter.Text = "Frächter" - ' - 'cntxtOptions - ' - Me.cntxtOptions.ImageScalingSize = New System.Drawing.Size(24, 24) - Me.cntxtOptions.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem1, Me.GelangensbestätigungToolStripMenuItem}) - Me.cntxtOptions.Name = "cntxtVorauskasse" - Me.cntxtOptions.Size = New System.Drawing.Size(203, 48) - ' - 'ToolStripMenuItem1 - ' - Me.ToolStripMenuItem1.Name = "ToolStripMenuItem1" - Me.ToolStripMenuItem1.Size = New System.Drawing.Size(202, 22) - Me.ToolStripMenuItem1.Text = "Alle Aktenzettel drucken" - ' - 'GelangensbestätigungToolStripMenuItem - ' - Me.GelangensbestätigungToolStripMenuItem.Name = "GelangensbestätigungToolStripMenuItem" - Me.GelangensbestätigungToolStripMenuItem.Size = New System.Drawing.Size(202, 22) - Me.GelangensbestätigungToolStripMenuItem.Text = "Gelangensbestätigung" - ' - 'ctxtWeitereFormulare - ' - Me.ctxtWeitereFormulare.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.toolGelangensbestätigung, Me.toolOriginalSendungsunterlagen, Me.LaufzettelDruckenToolStripMenuItem}) - Me.ctxtWeitereFormulare.Name = "cntxt" - Me.ctxtWeitereFormulare.Size = New System.Drawing.Size(263, 70) - ' - 'toolGelangensbestätigung - ' - Me.toolGelangensbestätigung.Name = "toolGelangensbestätigung" - Me.toolGelangensbestätigung.Size = New System.Drawing.Size(262, 22) - Me.toolGelangensbestätigung.Text = "Gelangensbestätigung" - ' - 'toolOriginalSendungsunterlagen - ' - Me.toolOriginalSendungsunterlagen.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.AuftraggeberToolStripMenuItem, Me.EmpfängerToolStripMenuItem}) - Me.toolOriginalSendungsunterlagen.Name = "toolOriginalSendungsunterlagen" - Me.toolOriginalSendungsunterlagen.Size = New System.Drawing.Size(262, 22) - Me.toolOriginalSendungsunterlagen.Text = "Original Sendungsunterlagen (Post)" - ' - 'AuftraggeberToolStripMenuItem - ' - Me.AuftraggeberToolStripMenuItem.Name = "AuftraggeberToolStripMenuItem" - Me.AuftraggeberToolStripMenuItem.Size = New System.Drawing.Size(144, 22) - Me.AuftraggeberToolStripMenuItem.Text = "Auftraggeber" - ' - 'EmpfängerToolStripMenuItem - ' - Me.EmpfängerToolStripMenuItem.Name = "EmpfängerToolStripMenuItem" - Me.EmpfängerToolStripMenuItem.Size = New System.Drawing.Size(144, 22) - Me.EmpfängerToolStripMenuItem.Text = "Empfänger" - ' - 'LaufzettelDruckenToolStripMenuItem - ' - Me.LaufzettelDruckenToolStripMenuItem.Name = "LaufzettelDruckenToolStripMenuItem" - Me.LaufzettelDruckenToolStripMenuItem.Size = New System.Drawing.Size(262, 22) - Me.LaufzettelDruckenToolStripMenuItem.Text = "Laufzettel drucken" - ' - 'ContextMenuStrip1 - ' - Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem15}) - Me.ContextMenuStrip1.Name = "cntxtAnh" - Me.ContextMenuStrip1.Size = New System.Drawing.Size(171, 26) - ' - 'ToolStripMenuItem15 - ' - Me.ToolStripMenuItem15.Image = Global.AVISO.My.Resources.Resources.email_big1 - Me.ToolStripMenuItem15.Name = "ToolStripMenuItem15" - Me.ToolStripMenuItem15.Size = New System.Drawing.Size(170, 22) - Me.ToolStripMenuItem15.Text = "Fremdspeditionen" - ' - 'ContextMenuStrip2 - ' - Me.ContextMenuStrip2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem14, Me.NurÖffnenToolStripMenuItem}) - Me.ContextMenuStrip2.Name = "cntxtAnh" - Me.ContextMenuStrip2.Size = New System.Drawing.Size(248, 48) - Me.ContextMenuStrip2.Text = "nur öffnen" - ' - 'ToolStripMenuItem14 - ' - Me.ToolStripMenuItem14.Image = CType(resources.GetObject("ToolStripMenuItem14.Image"), System.Drawing.Image) - Me.ToolStripMenuItem14.Name = "ToolStripMenuItem14" - Me.ToolStripMenuItem14.Size = New System.Drawing.Size(247, 22) - Me.ToolStripMenuItem14.Text = "Zusammenführen und speichern" - ' - 'NurÖffnenToolStripMenuItem - ' - Me.NurÖffnenToolStripMenuItem.Image = CType(resources.GetObject("NurÖffnenToolStripMenuItem.Image"), System.Drawing.Image) - Me.NurÖffnenToolStripMenuItem.Name = "NurÖffnenToolStripMenuItem" - Me.NurÖffnenToolStripMenuItem.Size = New System.Drawing.Size(247, 22) - Me.NurÖffnenToolStripMenuItem.Text = "nur öffnen" + 'LinkLabel4 + ' + Me.LinkLabel4.AutoSize = True + Me.LinkLabel4.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!) + Me.LinkLabel4.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(30, Byte), Integer), CType(CType(90, Byte), Integer)) + Me.LinkLabel4.Location = New System.Drawing.Point(331, 155) + Me.LinkLabel4.Name = "LinkLabel4" + Me.LinkLabel4.Size = New System.Drawing.Size(56, 13) + Me.LinkLabel4.TabIndex = 89 + Me.LinkLabel4.TabStop = True + Me.LinkLabel4.Text = "= Avisierer" ' 'frmSendungsdetailsNEU ' @@ -4021,7 +4083,7 @@ Partial Class frmSendungsdetailsNEU Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi Me.AutoScroll = True Me.BackColor = System.Drawing.Color.White - Me.ClientSize = New System.Drawing.Size(1112, 863) + Me.ClientSize = New System.Drawing.Size(1214, 863) Me.Controls.Add(Me.pnl) Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) Me.KeyPreview = True @@ -4033,10 +4095,14 @@ Partial Class frmSendungsdetailsNEU Me.pnl.PerformLayout() Me.Panel4.ResumeLayout(False) Me.TabControl1.ResumeLayout(False) + Me.tbAnhang.ResumeLayout(False) + Me.cntxtAnh.ResumeLayout(False) + Me.Panel19.ResumeLayout(False) + Me.Panel19.PerformLayout() + Me.tbKundenInfo.ResumeLayout(False) Me.tbZollabfertigung.ResumeLayout(False) Me.Panel16.ResumeLayout(False) Me.Panel16.PerformLayout() - CType(Me.dgvZollAnmeldungen, System.ComponentModel.ISupportInitialize).EndInit() Me.Panel17.ResumeLayout(False) Me.MenuStrip.ResumeLayout(False) Me.MenuStrip.PerformLayout() @@ -4047,22 +4113,15 @@ Partial Class frmSendungsdetailsNEU Me.Panel18.ResumeLayout(False) Me.Panel18.PerformLayout() Me.TabPage2.ResumeLayout(False) - CType(Me.DataGridView, System.ComponentModel.ISupportInitialize).EndInit() Me.pnlSpedBuchNacherfassung.ResumeLayout(False) Me.pnlSpedBuchNacherfassung.PerformLayout() Me.TabPage3.ResumeLayout(False) CType(Me.gridVermerke, System.ComponentModel.ISupportInitialize).EndInit() - Me.tbAnhang.ResumeLayout(False) - CType(Me.dgvAnhang, System.ComponentModel.ISupportInitialize).EndInit() - Me.cntxtAnh.ResumeLayout(False) - Me.Panel19.ResumeLayout(False) - Me.Panel19.PerformLayout() Me.pnlDetails.ResumeLayout(False) Me.tbcntr.ResumeLayout(False) Me.TabPage4.ResumeLayout(False) Me.TabPage4.PerformLayout() Me.TabPage5.ResumeLayout(False) - CType(Me.dgvBelege, System.ComponentModel.ISupportInitialize).EndInit() Me.Panel6.ResumeLayout(False) Me.Panel6.PerformLayout() CType(Me.picDy, System.ComponentModel.ISupportInitialize).EndInit() @@ -4093,6 +4152,10 @@ Partial Class frmSendungsdetailsNEU Me.ctxtWeitereFormulare.ResumeLayout(False) Me.ContextMenuStrip1.ResumeLayout(False) Me.ContextMenuStrip2.ResumeLayout(False) + CType(Me.dgvAnhang, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.dgvZollAnmeldungen, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DataGridView, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.dgvBelege, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) End Sub @@ -4377,4 +4440,10 @@ Partial Class frmSendungsdetailsNEU Friend WithEvents ToolStripMenuItem14 As ToolStripMenuItem Friend WithEvents NurÖffnenToolStripMenuItem As ToolStripMenuItem Friend WithEvents cbx As CheckBox + Friend WithEvents tbKundenInfo As TabPage + Friend WithEvents pnlKundenInfo As Panel + Friend WithEvents Panel20 As Panel + Friend WithEvents LaufzetteldruckJANEINToolStripMenuItem As ToolStripMenuItem + Friend WithEvents SpeditionSUBENToolStripMenuItem As ToolStripMenuItem + Friend WithEvents LinkLabel4 As LinkLabel End Class diff --git a/Aviso/frmSendungsdetailsNEU.resx b/Aviso/frmSendungsdetailsNEU.resx index 233b966..fe344f1 100644 --- a/Aviso/frmSendungsdetailsNEU.resx +++ b/Aviso/frmSendungsdetailsNEU.resx @@ -117,18 +117,45 @@ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 404, 17 + + + 765, 17 + - + - 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 + + + + + /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 - - 296, 17 - 496, 17 @@ -156,6 +183,20 @@ mVCCPwiVeQBaqAV4Jfq5XQAAAABJRU5ErkJggg== + + 296, 17 + + + + iVBORw0KGgoAAAANSUhEUgAAABQAAAAUCAYAAACNiR0NAAAABGdBTUEAALGPC/xhBQAAAIdJREFUOE/V + kEEKgCAQRfVKeaaOEXSL6hbRNrC9dQ3PUd/IxagLGcZFA48PjjyYrzCd1vqWAC7TTog8wFiBTUUR7Igw + fK6ZIRVFsGsolKCtEFl7cmneGpBEuIGeyZoJJSBCpAcXE18Sindow4LJngklIELk8j1wmEpC8Q5PMDNx + mVCCPwiVeQBaqAV4Jfq5XQAAAABJRU5ErkJggg== + + + + 296, 17 + iVBORw0KGgoAAAANSUhEUgAAADIAAAAyCAYAAAAeP4ixAAAABGdBTUEAALGPC/xhBQAACQpJREFUaEPl @@ -330,44 +371,6 @@ rGp33g/w9ql7NoGnXyWw0LUP726+A48ybH5BknCWWY7Lq2TVaSzNVMvnjcLjoYqrHD5NUxOdyqYOtXoR rY7H4jHYSnSdT2lHL8uwNOUI/FU+hyHGUMfjc2xVDEQxsJvDOOIVCrQdKLqYyNPBKNaFOo4UMPToVZT5 eWpiMRXkm9o//9k= - - - - 404, 17 - - - 765, 17 - - - - /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 - - - - - /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 @@ -382,24 +385,6 @@ DQi+g3tB1EXWoZhZsjT6cAit4sovlZlGnRep294flTnJgnKEKbT7fFXpub0/KnMITCYL1m+MiZ2iUvd3 9cBmo8WA0LhZCn5hDtHbaHZU6QmGbC5asgjaUvd/MaJyFplQegP36gyjxWaihRThUPpZnStkXel3fFDn uUGKxTG0qrMi5EfRrM5yg5cmhy8na7gHtvbLF9T64qAAAAAASUVORK5CYII= - - - - - /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== @@ -481,6 +466,9 @@ 174, 17 + + 404, 17 + 596, 17 diff --git a/Aviso/frmSendungsdetailsNEU.vb b/Aviso/frmSendungsdetailsNEU.vb index 0a4d194..ac155c8 100644 --- a/Aviso/frmSendungsdetailsNEU.vb +++ b/Aviso/frmSendungsdetailsNEU.vb @@ -24,7 +24,7 @@ Public Class frmSendungsdetailsNEU ' Public WithEvents bsSendungen As New cEasyBinding("AVISO") 'fürs Binding Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL Dim FormularArt = "" - + Dim loaded = False Dim usrcntl_NCTS As usrCntlSND_NCTSGestellungsadresse Dim usrcntl_FISKAL As usrCntlSND_NCTSFiskalEndempf @@ -93,6 +93,10 @@ Public Class frmSendungsdetailsNEU End Sub Function SAVE_ME(Optional saveAll = False) As Boolean + + txtColli.Focus() 'DAMIT evtl. LEAVE Events ausgelöst werden + txtGewicht.Focus() 'DAMIT evtl. LEAVE Events ausgelöst werden + loadDataInLIST() If AVISO.Abgeschlossen Then @@ -103,18 +107,18 @@ Public Class frmSendungsdetailsNEU If saveAll Then For Each s In SENDUNG_LIST If s.SAVE() = False Then SAVE_ME = False - ' s.SAVE_HANDLING() 'derzeit ohne Funktion + s.SAVE_HANDLING() 'derzeit ohne Funktion Next Else SENDUNG_LIST(CURRENT_INDEX).SAVE() 'Nur noch aktuelle Sendung speichern - ' SENDUNG_LIST(CURRENT_INDEX).SAVE_HANDLING()'derzeit ohne Funktion + SENDUNG_LIST(CURRENT_INDEX).SAVE_HANDLING() 'derzeit ohne Funktion End If SAVE_ABRECHUNG() - Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA - Case "UNISPED" - SQL.doSQL("UPDATE Aviso SET DakosyRef='" & txtDyRef.Text & "' WHERE AvisoId='" & AvisoId & "'", "AVISO") - End Select + 'Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA + ' Case "UNISPED" + ' SQL.doSQL("UPDATE Aviso SET DakosyRef='" & txtDyRef.Text & "' WHERE AvisoId='" & AvisoId & "'", "AVISO") + 'End Select End Function Sub NEXT_SENDUNG() @@ -225,7 +229,14 @@ Public Class frmSendungsdetailsNEU If AVISO.Grenzstelle.Replace("???", "") = "" Then lblGrenze.Text = SQL.getValueTxtBySql("SELECT basncd_dstnr +' - ' + [basncd_name] FROM basncd WHERE basncd_dstnr='" & If(AVISO.Zollstelle, "") & "' ", "ATLAS") Else - lblGrenze.Text = AVISO.Grenzstelle + Select Case AVISO.Grenzstelle + Case "SUB" : lblGrenze.Text = "DE007701 Suben" + Case "WAI" : lblGrenze.Text = "DE008904 Waidhaus" + Case "SBG" : lblGrenze.Text = "DE007458 Bad Reichenhall" + Case "NKD" : lblGrenze.Text = "AT320300 Nickelsdorf" + Case "SFD" : lblGrenze.Text = "AT700400 Spielfeld" + End Select + End If If AVISO.Abgeschlossen Then @@ -267,7 +278,7 @@ Public Class frmSendungsdetailsNEU cboZollsystem2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", "")) cboZollsystem2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DAKOSY", "D")) cboZollsystem2.SelectedIndex = 1 - sbWhere = " AND Mandant = 'IMEX' " + sbWhere = " And Mandant = 'IMEX' " QSwhere = " AND mit_firma IN ('IMEX','BEIDE') " ' Label10.Visible = False 'rtbAnmerkungDispoliste.Visible = False @@ -314,13 +325,21 @@ Public Class frmSendungsdetailsNEU ' ToolStripMenuItem13.Enabled = True End If - cboFiliale._allowFreiText = Nothing - Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA - Case "VERAG" : cboFiliale._allowedValuesFreiText = {"4803", "4809", "4805", "4806", "4811", "5003", "5303", "5103", "4839"} - Case "IMEX" : cboFiliale._allowedValuesFreiText = {"5501"} - Case "ATILLA" : cboFiliale._allowedValuesFreiText = Nothing + cboFiliale._allowFreiText = Nothing + Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER + Case "FRONTOFFICE" + cboFiliale._allowFreiText = Nothing + Case Else + Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA + Case "VERAG" : cboFiliale._allowedValuesFreiText = {"4803", "4809", "4805", "4806", "4811", "5003", "5303", "5103", "4839"} + Case "IMEX" : cboFiliale._allowedValuesFreiText = {"5501"} + Case "UNISPED" : cboFiliale._allowedValuesFreiText = {"5601"} + Case "AMBAR" : cboFiliale._allowedValuesFreiText = {"5701"} + Case "ATILLA" : cboFiliale._allowedValuesFreiText = Nothing + End Select End Select + Select Case SENDUNG_LIST(CURRENT_INDEX).FilialenNr Case 4803, 4809 cboNiederlassung.Text = "SUB" @@ -356,6 +375,8 @@ Public Class frmSendungsdetailsNEU AddHandler txtAvisierer.PropertyChanged, Sub() btnAvisierer.BackgroundImage = IIf(txtAvisierer.KdNr > 0, My.Resources.person, My.Resources.personInaktiv) + SENDUNG_LIST(CURRENT_INDEX).tblSnd_Avisierer = txtAvisierer.Text + SENDUNG_LIST(CURRENT_INDEX).tblSnd_AvisiererKdNr = txtAvisierer.KdNr txtKdAuftragsNrAvisierer.BackColor = Color.White @@ -364,13 +385,14 @@ Public Class frmSendungsdetailsNEU If txtKdAuftragsNrAvisierer.Text = "" Then txtKdAuftragsNrAvisierer.Text = If(txtAvisierer.KdData_KUNDE_ERW.kde_FixeAuftragsNr, "") End If - initWarnKd(txtAvisierer, picWarnAvisierer) + initWarnKd_AndKdInfo(txtAvisierer, picWarnAvisierer) End Sub AddHandler txtFrachtfuehrer.PropertyChanged, Sub() btnFrachtfuehrer.BackgroundImage = IIf(txtFrachtfuehrer.KdNr > 0, My.Resources.person, My.Resources.personInaktiv) - + SENDUNG_LIST(CURRENT_INDEX).tblSnd_Frachtfuehrer = txtFrachtfuehrer.Text + SENDUNG_LIST(CURRENT_INDEX).tblSnd_FrachtfuehrerKdNr = txtFrachtfuehrer.KdNr txtKdAuftragsNrFrachtfuehrer.BackColor = Color.White If txtFrachtfuehrer.KdData_KUNDE_ERW IsNot Nothing AndAlso txtFrachtfuehrer.KdData_KUNDE_ERW.kde_VerwendetAuftragsNr Then @@ -378,7 +400,7 @@ Public Class frmSendungsdetailsNEU If txtKdAuftragsNrFrachtfuehrer.Text = "" Then txtKdAuftragsNrFrachtfuehrer.Text = If(txtFrachtfuehrer.KdData_KUNDE_ERW.kde_FixeAuftragsNr, "") End If - initWarnKd(txtFrachtfuehrer, picWarnFrachtfuehrer) + initWarnKd_AndKdInfo(txtFrachtfuehrer, picWarnFrachtfuehrer) End Sub @@ -396,7 +418,7 @@ Public Class frmSendungsdetailsNEU If txtKdAuftragsNrEmpfaenger.Text = "" Then txtKdAuftragsNrEmpfaenger.Text = If(txtEmpfaenger.KdData_KUNDE_ERW.kde_FixeAuftragsNr, "") End If - initWarnKd(txtEmpfaenger, picWarnEmpfaenger) + initWarnKd_AndKdInfo(txtEmpfaenger, picWarnEmpfaenger) End Sub AddHandler txtAbsender.PropertyChanged, Sub() FlatButton4.BackgroundImage = IIf(txtAbsender.KdNr > 0, My.Resources.person, My.Resources.personInaktiv) @@ -405,7 +427,7 @@ Public Class frmSendungsdetailsNEU ' If RadioButton1.Checked Then initKundenzolltarifChecked(txtAbsender) If cboZolltarif._value = 1 Then initKundenzolltarifChecked(txtAbsender) - initWarnKd(txtAbsender, picWarnAbsender) + initWarnKd_AndKdInfo(txtAbsender, picWarnAbsender) End Sub @@ -451,6 +473,9 @@ Public Class frmSendungsdetailsNEU MsgBox(ex.Message & vbNewLine & ex.StackTrace) End Try + initWarnKd_AndKdInfo(txtAuftraggeber, picWarnAuftraggeber) + + End Sub AddHandler txtEmpfaenger.TextChanged, Sub() @@ -473,25 +498,36 @@ Public Class frmSendungsdetailsNEU ' End If ' End If - picWarnEmpfaenger.Visible = False + ' picWarnEmpfaenger.Visible = False + initWarnKd_AndKdInfo(txtEmpfaenger, picWarnEmpfaenger) + End Sub AddHandler txtAbsender.TextChanged, Sub() ' If txtAbsender.KdNr < 0 Then SENDUNG_LIST(CURRENT_INDEX).tblSnd_Absender") = txtAbsender.Text SENDUNG_LIST(CURRENT_INDEX).tblSnd_Absender = txtAbsender.Text SENDUNG_LIST(CURRENT_INDEX).tblSnd_AbsenderKdNr = -1 - picWarnAbsender.Visible = False + ' picWarnAbsender.Visible = False + initWarnKd_AndKdInfo(txtAbsender, picWarnAbsender) End Sub AddHandler txtAuftraggeber.TextChanged, Sub() ' If txtAuftraggeber.KdNr < 0 Then SENDUNG_LIST(CURRENT_INDEX).tblSnd_Auftraggeber") = txtAuftraggeber.Text SENDUNG_LIST(CURRENT_INDEX).tblSnd_Auftraggeber = txtAuftraggeber.Text SENDUNG_LIST(CURRENT_INDEX).tblSnd_AuftraggeberKdNr = -1 - picWarnAuftraggeber.Visible = False + + initWarnKd_AndKdInfo(txtAuftraggeber, picWarnAuftraggeber) + End Sub AddHandler txtAvisierer.TextChanged, Sub() - picWarnAvisierer.Visible = False + 'picWarnAvisierer.Visible = False + SENDUNG_LIST(CURRENT_INDEX).tblSnd_Avisierer = txtAvisierer.Text + SENDUNG_LIST(CURRENT_INDEX).tblSnd_AvisiererKdNr = -1 + initWarnKd_AndKdInfo(txtAvisierer, picWarnAvisierer) End Sub AddHandler txtFrachtfuehrer.TextChanged, Sub() - picWarnFrachtfuehrer.Visible = False + ' picWarnFrachtfuehrer.Visible = False + SENDUNG_LIST(CURRENT_INDEX).tblSnd_Frachtfuehrer = txtFrachtfuehrer.Text + SENDUNG_LIST(CURRENT_INDEX).tblSnd_FrachtfuehrerKdNr = -1 + initWarnKd_AndKdInfo(txtFrachtfuehrer, picWarnFrachtfuehrer) End Sub txtAuftraggeber.initKdBox(Me, txtAuftraggeberKdNr) txtAbsender.initKdBox(Me, txtAbsenderKdNr) @@ -514,43 +550,51 @@ Public Class frmSendungsdetailsNEU End Sub - Sub initWarnKd(kdSearch As VERAG_PROG_ALLGEMEIN.KdSearchBox, pic As PictureBox) + Sub initWarnKd_AndKdInfo(kdSearch As VERAG_PROG_ALLGEMEIN.KdSearchBox, pic As PictureBox) Try + 'If loaded Then initKdInfo(txtEmpfaenger.KdNr) + + 'pic.Visible = False + 'If txtEmpfaenger.KdNr > 0 Then + If loaded Then initKdInfo(kdSearch.KdNr) 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 + If kdSearch.KdNr > 0 Then + + 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 - 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 - - - If If(kdSearch.KdData_KUNDE.Besonderheiten, "") <> "" Then + If kdSearch.KdData_KUNDE IsNot Nothing Then + If kdSearch.KdData_KUNDE.Abfertigungsverbot Then pic.Visible = True - InfoText &= "BESONDERHEITEN:" & vbNewLine - InfoText &= kdSearch.KdData_KUNDE.Besonderheiten + 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 + + + If If(kdSearch.KdData_KUNDE.Besonderheiten, "") <> "" Then + pic.Visible = True + InfoText &= "BESONDERHEITEN:" & vbNewLine + InfoText &= kdSearch.KdData_KUNDE.Besonderheiten + End If + End If + End If + ToolTip.SetToolTip(pic, InfoText.Trim) End If - - ToolTip.SetToolTip(pic, InfoText.Trim) - Catch ex As Exception MsgBox(ex.Message & ex.StackTrace) End Try @@ -724,6 +768,9 @@ Public Class frmSendungsdetailsNEU Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Case "IMEX" : filiale_tmp = 5501 + Case "UNISPED" : filiale_tmp = 5601 + Case "AMBAR" : filiale_tmp = 5701 + Case "FRONTOFFICE" : filiale_tmp = 0 '5801 Case Else Select Case AVISO.Grenzstelle Case "SUB" : filiale_tmp = 4803 @@ -735,6 +782,7 @@ Public Class frmSendungsdetailsNEU End Select + ' loadDataInLIST() If SAVE_ME() Then 'aktuelle Änderungen sichern ' Dim abfnr_tmp As Integer = IIf(filiale_tmp > 0, ADMIN.getMaxPosNrIncrement(filiale_tmp, Now.Year), 0) @@ -850,6 +898,7 @@ Public Class frmSendungsdetailsNEU 'Me.Enabled = False Me.Cursor = Cursors.WaitCursor + loaded = False Try lblAbfNr_Err.Visible = False @@ -859,28 +908,43 @@ Public Class frmSendungsdetailsNEU cboAbfertigungsart.fillWithSQL("SELECT [Abfertigungsart],[Abfertigungsbezeichnung] FROM [Abfertigungsarten] ", True, "FMZOLL", True) Dim whereFiliale = "" - Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA - Case "VERAG" + 'Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA + ' Case "VERAG" - Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG - Case "SUB" - If VERAG_PROG_ALLGEMEIN.cAllgemein.ABTEILUNG = "QS" Or VERAG_PROG_ALLGEMEIN.cAllgemein.ABTEILUNG = "FISKAL" Then - whereFiliale = " AND FilialenNr IN (4803,4805,4811,5003,5303,5103,4839) " - Else - whereFiliale = " AND FilialenNr IN (4803,5003,4805,4811,5103,5303,4839) " '5103,5303 weil sonst keine WDH angezeigt - End If - Case "NKD" - whereFiliale = " AND FilialenNr IN (5303,5003,4811,4805,5103,4803,4839) " - Case "WAI" - whereFiliale = " AND FilialenNr IN (5103,5003,4811,4803,5303,4839) " '4809,4803,5303, weil sonst keine SUB angezeigt - Case "SBG" - whereFiliale = " AND FilialenNr IN (5303,5003,4811,4805,5103,4803,4839) " + ' Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG + ' Case "SUB" + ' If VERAG_PROG_ALLGEMEIN.cAllgemein.ABTEILUNG = "QS" Or VERAG_PROG_ALLGEMEIN.cAllgemein.ABTEILUNG = "FISKAL" Then + ' whereFiliale = " AND FilialenNr IN (4803,4805,4811,5003,5303,5103,4839) " + ' Else + ' whereFiliale = " AND FilialenNr IN (4803,5003,4805,4811,5103,5303,4839) " '5103,5303 weil sonst keine WDH angezeigt + ' End If + ' Case "NKD" + ' whereFiliale = " AND FilialenNr IN (5303,5003,4811,4805,5103,4803,4839) " + ' Case "WAI" + ' whereFiliale = " AND FilialenNr IN (5103,5003,4811,4803,5303,4839) " '4809,4803,5303, weil sonst keine SUB angezeigt + ' Case "SBG" + ' whereFiliale = " AND FilialenNr IN (5303,5003,4811,4805,5103,4803,4839) " + ' End Select + ' Case "ATILLA" + ' whereFiliale = " AND FilialenNr IN (4801) " + ' Case "IMEX" + ' whereFiliale = " AND FilialenNr IN (5501) " + ' Case Else + ' whereFiliale = " AND FilialenNr IN (" & VERAG_PROG_ALLGEMEIN.cAllgemein.STAMMFILIALE & ") " + 'End Select + + Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER + Case "FRONTOFFICE" + whereFiliale = " AND FilialenNr IN (4803,4805,4811,5003,5303,5103,4839,5501,5601,5801) " + Case Else + Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA + Case "ATILLA" + whereFiliale = " AND FilialenNr IN (4801) " + Case "AMBAR" + whereFiliale = " AND FilialenNr IN (5701) " + Case Else + whereFiliale = " AND FilialenNr IN ('" & VERAG_PROG_ALLGEMEIN.cAllgemein.STAMMFILIALE & "') " End Select - Case "ATILLA" - whereFiliale = " AND FilialenNr IN (4801) " - Case "IMEX" - whereFiliale = " AND FilialenNr IN (5501) " - End Select cboFiliale.fillWithSQL("SELECT FilialenNr, Grenzstelle FROM Filialen WHERE Fil_Status='A' " & whereFiliale & " ORDER BY FilialenNr ", True, "FMZOLL", True) @@ -893,7 +957,7 @@ Public Class frmSendungsdetailsNEU Me.Cursor = Cursors.Default Exit Sub End If - + VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID = SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID cbxFremdspedition.Checked = SENDUNG_LIST(CURRENT_INDEX).tblSnd_Fremdspedition cboFremdsped.Text = SENDUNG_LIST(CURRENT_INDEX).tblSnd_FremdspeditionText @@ -944,25 +1008,28 @@ Public Class frmSendungsdetailsNEU ' cboAufschub._value = loadValue(SENDUNG_LIST(CURRENT_INDEX).tblSnd_aufschub, "") cboZolltarif.changeItem(loadValue(SENDUNG_LIST(CURRENT_INDEX).tblSnd_AngabeZolltarif, 0)) + + txtDyRef.Text = If(SENDUNG_LIST(CURRENT_INDEX).tblSnd_DakosyRef, "") + If VERAG_PROG_ALLGEMEIN.cAllgemein.AUTO_ABF_NR Then btnNeueAbfertigungNrVergeben.Visible = (SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr <= 0) lblSendungen.Text = (CURRENT_INDEX + 1) + Me.Text = "Sendungsdetails - " & AVISO.LKW_Nr + 'If AVISO.Auftraggeber_KdNr > -1 Then + ' txtAvisierer.KdNr = AVISO.Auftraggeber_KdNr + 'Else + ' txtAvisierer.KdNr_value = -1 + ' txtAvisiererKdNr.Text = "" + ' txtAvisierer.Text = AVISO.Auftraggeber + 'End If - If AVISO.Auftraggeber_KdNr > -1 Then - txtAvisierer.KdNr = AVISO.Auftraggeber_KdNr - Else - txtAvisierer.KdNr_value = -1 - txtAvisiererKdNr.Text = "" - txtAvisierer.Text = AVISO.Auftraggeber - End If - - If AVISO.Frächter_KdNr > -1 Then - txtFrachtfuehrer.KdNr = AVISO.Frächter_KdNr - Else - txtFrachtfuehrer.KdNr_value = -1 - txtFrachtfuehrerKdNr.Text = "" - txtFrachtfuehrer.Text = AVISO.Frächter - End If + 'If AVISO.Frächter_KdNr > -1 Then + ' txtFrachtfuehrer.KdNr = AVISO.Frächter_KdNr + 'Else + ' txtFrachtfuehrer.KdNr_value = -1 + ' txtFrachtfuehrerKdNr.Text = "" + ' txtFrachtfuehrer.Text = AVISO.Frächter + 'End If If SENDUNG_LIST(CURRENT_INDEX).tblSnd_EmpfaengerKdNr > -1 Then @@ -989,11 +1056,57 @@ Public Class frmSendungsdetailsNEU txtAbsender.Text = SENDUNG_LIST(CURRENT_INDEX).tblSnd_Absender End If + ' txtAvisiererKdNr.Text = "" + If SENDUNG_LIST(CURRENT_INDEX).tblSnd_AvisiererKdNr > -1 Then + txtAvisierer.KdNr = SENDUNG_LIST(CURRENT_INDEX).tblSnd_AvisiererKdNr + Else + txtAvisierer.KdNr_value = -1 + txtAvisiererKdNr.Text = "" + txtAvisierer.Text = SENDUNG_LIST(CURRENT_INDEX).tblSnd_Avisierer 'IIf(SENDUNG_LIST(CURRENT_INDEX).tblSnd_avisierer Is Nothing, "", SENDUNG_LIST(CURRENT_INDEX).tblSnd_avisierer) + End If + + ' txtFrachtfuehrer.Text = "" + If SENDUNG_LIST(CURRENT_INDEX).tblSnd_FrachtfuehrerKdNr > -1 Then + txtFrachtfuehrer.KdNr = SENDUNG_LIST(CURRENT_INDEX).tblSnd_FrachtfuehrerKdNr + Else + txtFrachtfuehrer.KdNr_value = -1 + txtFrachtfuehrerKdNr.Text = "" + txtFrachtfuehrer.Text = SENDUNG_LIST(CURRENT_INDEX).tblSnd_Frachtfuehrer 'IIf(SENDUNG_LIST(CURRENT_INDEX).tblSnd_frachtfuehrer Is Nothing, "", SENDUNG_LIST(CURRENT_INDEX).tblSnd_frachtfuehrer) + End If + + ''Übergangsphase Aviso/Sendung + 'If txtAvisiererKdNr.Text = "" Then + ' If AVISO.Auftraggeber_KdNr > -1 Then + ' txtAvisierer.KdNr = AVISO.Auftraggeber_KdNr + ' Else + ' txtAvisierer.KdNr_value = -1 + ' txtAvisiererKdNr.Text = "" + ' txtAvisierer.Text = AVISO.Auftraggeber + ' End If + 'End If + + ''Übergangsphase Aviso/Sendung + 'If txtFrachtfuehrer.Text = "" Then + ' If AVISO.Frächter_KdNr > -1 Then + ' txtFrachtfuehrer.KdNr = AVISO.Frächter_KdNr + ' Else + ' txtFrachtfuehrer.KdNr_value = -1 + ' txtFrachtfuehrerKdNr.Text = "" + ' txtFrachtfuehrer.Text = AVISO.Frächter + ' End If + 'End If + pnlT1.Controls.Clear() usrcntl_NCTS.reset() usrcntl_FISKAL.reset() usrcntl_ATA = New usrCntlSND_Handling(SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID) + + AddHandler usrcntl_ATA.HandlingWerte, Sub(colli, gewicht) + txtColli.Text = colli + txtGewicht.Text = gewicht + End Sub + ' txtT1Verzollungsadresse.Text = "" Select Case SENDUNG_LIST(CURRENT_INDEX).tblSnd_Abfertigungsart_ID Case 5, 6 @@ -1011,6 +1124,7 @@ Public Class frmSendungsdetailsNEU usrcntl_NCTS.txtT1VerzollungsadresseEORI_NL.Text = loadValue(SENDUNG_LIST(CURRENT_INDEX).NCTS_Verzollungsadresse_EORI_NL, "") usrcntl_NCTS.txtT1VerzollungsadresseAnspr.Text = loadValue(SENDUNG_LIST(CURRENT_INDEX).NCTS_Verzollungsadresse_Ansprechpartner, "") usrcntl_NCTS.txtT1VerzollungsadresseBestimmungszollstelle.SET_VALUE(loadValue(SENDUNG_LIST(CURRENT_INDEX).NCTS_Bestimmungszollstelle, "")) + usrcntl_NCTS.cbxNCTSAufDispo.Checked = SENDUNG_LIST(CURRENT_INDEX).tblSnd_NCTSaufDISPO pnlT1.Controls.Add(usrcntl_NCTS) @@ -1051,13 +1165,13 @@ Public Class frmSendungsdetailsNEU ' initSpeditionbuch() initTab() initGesColliGewicht() - + initKdInfo(-1) If tbcntr.SelectedTab Is TabPage5 Then initDGVBelege() End If - + sperrePanel() LOAD_ABRECHUNG() Panel2.MinimumSize = New Size(0, FlowLayoutPanel.Height) '+ pnlheader.Height) ' damit das S***** Flowlayoutpanel nicht abgeschnitten wird... @@ -1066,6 +1180,7 @@ Public Class frmSendungsdetailsNEU Catch ex As Exception MsgBox("ERR: " & ex.Message & ex.StackTrace) End Try + loaded = True ' Me.Enabled = True Me.Cursor = Cursors.Default ' GEAENDERT = False @@ -1116,61 +1231,75 @@ Public Class frmSendungsdetailsNEU ' End Select ' End If End Sub - Sub poschanged() + 'Sub poschanged() - Try + ' Try - If VERAG_PROG_ALLGEMEIN.cAllgemein.AUTO_ABF_NR Then btnNeueAbfertigungNrVergeben.Visible = (SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr <= 0) + ' If VERAG_PROG_ALLGEMEIN.cAllgemein.AUTO_ABF_NR Then btnNeueAbfertigungNrVergeben.Visible = (SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr <= 0) - lblSendungen.Text = (CURRENT_INDEX + 1) + ' lblSendungen.Text = (CURRENT_INDEX + 1) - If SENDUNG_LIST(CURRENT_INDEX).tblSnd_EmpfaengerKdNr > -1 Then - txtEmpfaenger.KdNr = SENDUNG_LIST(CURRENT_INDEX).tblSnd_EmpfaengerKdNr - Else - txtEmpfaengerKdNr.Text = "" - txtEmpfaenger.Text = SENDUNG_LIST(CURRENT_INDEX).tblSnd_Empfaenger 'IIf(SENDUNG_LIST(CURRENT_INDEX).tblSnd_Empfaenger Is Nothing, "", SENDUNG_LIST(CURRENT_INDEX).tblSnd_Empfaenger) - End If + ' If SENDUNG_LIST(CURRENT_INDEX).tblSnd_EmpfaengerKdNr > -1 Then + ' txtEmpfaenger.KdNr = SENDUNG_LIST(CURRENT_INDEX).tblSnd_EmpfaengerKdNr + ' Else + ' txtEmpfaengerKdNr.Text = "" + ' txtEmpfaenger.Text = SENDUNG_LIST(CURRENT_INDEX).tblSnd_Empfaenger 'IIf(SENDUNG_LIST(CURRENT_INDEX).tblSnd_Empfaenger Is Nothing, "", SENDUNG_LIST(CURRENT_INDEX).tblSnd_Empfaenger) + ' End If + + ' If SENDUNG_LIST(CURRENT_INDEX).tblSnd_AvisiererKdNr > -1 Then + ' txtAvisierer.KdNr = SENDUNG_LIST(CURRENT_INDEX).tblSnd_AvisiererKdNr + ' Else + ' txtAvisiererKdNr.Text = "" + ' txtAvisierer.Text = SENDUNG_LIST(CURRENT_INDEX).tblSnd_Avisierer 'IIf(SENDUNG_LIST(CURRENT_INDEX).tblSnd_avisierer Is Nothing, "", SENDUNG_LIST(CURRENT_INDEX).tblSnd_avisierer) + ' End If + + ' If SENDUNG_LIST(CURRENT_INDEX).tblSnd_FrachtfuehrerKdNr > -1 Then + ' txtFrachtfuehrer.KdNr = SENDUNG_LIST(CURRENT_INDEX).tblSnd_FrachtfuehrerKdNr + ' Else + ' txtFrachtfuehrerKdNr.Text = "" + ' txtFrachtfuehrer.Text = SENDUNG_LIST(CURRENT_INDEX).tblSnd_Frachtfuehrer 'IIf(SENDUNG_LIST(CURRENT_INDEX).tblSnd_frachtfuehrer Is Nothing, "", SENDUNG_LIST(CURRENT_INDEX).tblSnd_frachtfuehrer) + ' End If - 'fremdsped - If SENDUNG_LIST(CURRENT_INDEX).tblSnd_Fremdspedition Then - If SENDUNG_LIST(CURRENT_INDEX).tblSnd_EmpfaengerKdNr > -1 Then - txtFremdEmpf.KdNr = SENDUNG_LIST(CURRENT_INDEX).tblSnd_EmpfaengerKdNr - Else - txtFremdEmpfKdNR.Text = "" - txtFremdEmpf.Text = SENDUNG_LIST(CURRENT_INDEX).tblSnd_Empfaenger 'IIf(SENDUNG_LIST(CURRENT_INDEX).tblSnd_Empfaenger Is Nothing, "", SENDUNG_LIST(CURRENT_INDEX).tblSnd_Empfaenger) - End If - End If + ' 'fremdsped + ' If SENDUNG_LIST(CURRENT_INDEX).tblSnd_Fremdspedition Then + ' If SENDUNG_LIST(CURRENT_INDEX).tblSnd_EmpfaengerKdNr > -1 Then + ' txtFremdEmpf.KdNr = SENDUNG_LIST(CURRENT_INDEX).tblSnd_EmpfaengerKdNr + ' Else + ' txtFremdEmpfKdNR.Text = "" + ' txtFremdEmpf.Text = SENDUNG_LIST(CURRENT_INDEX).tblSnd_Empfaenger 'IIf(SENDUNG_LIST(CURRENT_INDEX).tblSnd_Empfaenger Is Nothing, "", SENDUNG_LIST(CURRENT_INDEX).tblSnd_Empfaenger) + ' End If + ' End If - If SENDUNG_LIST(CURRENT_INDEX).tblSnd_AuftraggeberKdNr > -1 Then - txtAuftraggeber.KdNr = SENDUNG_LIST(CURRENT_INDEX).tblSnd_AuftraggeberKdNr - Else - txtAuftraggeberKdNr.Text = "" - txtAuftraggeber.Text = SENDUNG_LIST(CURRENT_INDEX).tblSnd_Auftraggeber - End If + ' If SENDUNG_LIST(CURRENT_INDEX).tblSnd_AuftraggeberKdNr > -1 Then + ' txtAuftraggeber.KdNr = SENDUNG_LIST(CURRENT_INDEX).tblSnd_AuftraggeberKdNr + ' Else + ' txtAuftraggeberKdNr.Text = "" + ' txtAuftraggeber.Text = SENDUNG_LIST(CURRENT_INDEX).tblSnd_Auftraggeber + ' End If - If SENDUNG_LIST(CURRENT_INDEX).tblSnd_AbsenderKdNr > -1 Then - txtAbsender.KdNr = SENDUNG_LIST(CURRENT_INDEX).tblSnd_AbsenderKdNr - Else - txtAbsenderKdNr.Text = "" - txtAbsender.Text = SENDUNG_LIST(CURRENT_INDEX).tblSnd_Absender - End If + ' If SENDUNG_LIST(CURRENT_INDEX).tblSnd_AbsenderKdNr > -1 Then + ' txtAbsender.KdNr = SENDUNG_LIST(CURRENT_INDEX).tblSnd_AbsenderKdNr + ' Else + ' txtAbsenderKdNr.Text = "" + ' txtAbsender.Text = SENDUNG_LIST(CURRENT_INDEX).tblSnd_Absender + ' End If - cboAbfertigungsart_SelectedIndexChanged(cboAbfertigungsart, New EventArgs) + ' cboAbfertigungsart_SelectedIndexChanged(cboAbfertigungsart, New EventArgs) - initRbtn() - cboAbfertigungsart.Focus() + ' initRbtn() + ' cboAbfertigungsart.Focus() - ' MsgBox(bsSendungen.Current.row.Item("tblSnd_EmpfaengerKdNr").ToString) + ' ' MsgBox(bsSendungen.Current.row.Item("tblSnd_EmpfaengerKdNr").ToString) - Catch ex As Exception - MsgBox("POS ERR: " & ex.Message & ex.StackTrace) - End Try + ' Catch ex As Exception + ' MsgBox("POS ERR: " & ex.Message & ex.StackTrace) + ' End Try - ' MsgBox("c2") - End Sub + ' ' MsgBox("c2") + 'End Sub Sub loadDataInLIST() @@ -1212,9 +1341,16 @@ Public Class frmSendungsdetailsNEU Else SENDUNG_LIST(CURRENT_INDEX).tblSnd_EmpfaengerKdNr = IIf(txtEmpfaenger.KdNr_value > 0, txtEmpfaenger.KdNr_value, -1) SENDUNG_LIST(CURRENT_INDEX).tblSnd_Empfaenger = txtEmpfaenger.Text - End If + + SENDUNG_LIST(CURRENT_INDEX).tblSnd_AvisiererKdNr = IIf(txtAvisierer.KdNr_value > 0, txtAvisierer.KdNr_value, -1) + SENDUNG_LIST(CURRENT_INDEX).tblSnd_Avisierer = txtAvisierer.Text + + SENDUNG_LIST(CURRENT_INDEX).tblSnd_FrachtfuehrerKdNr = IIf(txtFrachtfuehrer.KdNr_value > 0, txtFrachtfuehrer.KdNr_value, -1) + SENDUNG_LIST(CURRENT_INDEX).tblSnd_Frachtfuehrer = txtFrachtfuehrer.Text + + SENDUNG_LIST(CURRENT_INDEX).tblSnd_AuftraggeberKdNr = IIf(txtAuftraggeber.KdNr_value > 0, txtAuftraggeber.KdNr_value, -1) SENDUNG_LIST(CURRENT_INDEX).tblSnd_Auftraggeber = txtAuftraggeber.Text SENDUNG_LIST(CURRENT_INDEX).tblSnd_AbsenderKdNr = IIf(txtAbsender.KdNr_value > 0, txtAbsender.KdNr_value, -1) @@ -1258,6 +1394,7 @@ Public Class frmSendungsdetailsNEU SENDUNG_LIST(CURRENT_INDEX).NCTS_Verzollungsadresse_Ansprechpartner = usrcntl_NCTS.txtT1VerzollungsadresseAnspr.Text SENDUNG_LIST(CURRENT_INDEX).NCTS_Bestimmungszollstelle = usrcntl_NCTS.txtT1VerzollungsadresseBestimmungszollstelle._value SENDUNG_LIST(CURRENT_INDEX).NCTS_ngaId = If(usrcntl_NCTS.NCTS_GA IsNot Nothing, usrcntl_NCTS.NCTS_GA.nga_id, Nothing) + SENDUNG_LIST(CURRENT_INDEX).tblSnd_NCTSaufDISPO = usrcntl_NCTS.cbxNCTSAufDispo.Checked End If Case 26, 28 @@ -1269,9 +1406,9 @@ Public Class frmSendungsdetailsNEU ' SENDUNG_LIST(CURRENT_INDEX).tblSnd_Endempfaenger = txtT1Verzollungsadresse.Text If pnlT1.Controls.Count > 0 AndAlso pnlT1.Controls(0).GetType Is GetType(usrCntlSND_Handling) Then SENDUNG_LIST(CURRENT_INDEX).tblSnd_ATCMRN_Fremd = usrcntl_ATA.txtATCMRNFremd.Text - SENDUNG_LIST(CURRENT_INDEX).tblSnd_ATANr = usrcntl_ATA.txtATAold.Text - 'SENDUNG_LIST(CURRENT_INDEX).HANDLING = usrcntl_ATA.GET_HANDLING()'derzeit ohne Funktion - 'SENDUNG_LIST(CURRENT_INDEX).tblSnd_ATANr = usrcntl_ATA.GET_HANDLING_String()'derzeit ohne Funktion + ' SENDUNG_LIST(CURRENT_INDEX).tblSnd_ATANr = usrcntl_ATA.txtATAold.Text + SENDUNG_LIST(CURRENT_INDEX).HANDLING = usrcntl_ATA.GET_HANDLING() 'derzeit ohne Funktion + SENDUNG_LIST(CURRENT_INDEX).tblSnd_ATANr = usrcntl_ATA.GET_HANDLING_STRING() 'derzeit ohne Funktion End If End Select @@ -1287,6 +1424,8 @@ Public Class frmSendungsdetailsNEU SENDUNG_LIST(CURRENT_INDEX).tblSnd_Fremdspedition = cbxFremdspedition.Checked SENDUNG_LIST(CURRENT_INDEX).tblSnd_FremdspeditionText = cboFremdsped.Text SENDUNG_LIST(CURRENT_INDEX).tblSnd_KdAuftragsNr = txtKdAuftragsNr.Text + SENDUNG_LIST(CURRENT_INDEX).tblSnd_DakosyRef = txtDyRef.Text + SENDUNG_LIST(CURRENT_INDEX).tblSnd_KdAuftragsNrAvisierer = txtKdAuftragsNrAvisierer.Text @@ -1528,7 +1667,7 @@ Public Class frmSendungsdetailsNEU Dim sqlstr As String = "" sqlstr &= " SELECT TOP 1000 [FilialenNr],[AbfertigungsNr],[UnterNr],[Abfertigungsdatum],speditionsbuch.[Abfertigungsart],Abfertigungsarten.Abfertigungsbezeichnung, " & - " [Rechnungsbetrag],Bar,[Barzahlungsbetrag],/*isnull(cast([AbsenderKundenNr] as nvarchar(6)) + ' ','') + [Absender] as Absender,*/isnull(cast([EmpfängerKundenNr] as nvarchar(6)) + ' ','') + [Empfänger] as Empfänger,isnull(cast([VermittlerKundenNr] as nvarchar(6)) + ' ','') + [Vermittler] as Vermittler,isnull(cast([FrachtführerKundenNr] as nvarchar(6)) + ' ','') + [Frachtführer] as Frachtführer, " & + " [Rechnungsbetrag],Bar,[Barzahlungsbetrag],/*isnull(cast([AbsenderKundenNr] as nvarchar(7)) + ' ','') + [Absender] as Absender,*/isnull(cast([EmpfängerKundenNr] as nvarchar(7)) + ' ','') + [Empfänger] as Empfänger,isnull(cast([VermittlerKundenNr] as nvarchar(7)) + ' ','') + [Vermittler] as Vermittler,isnull(cast([FrachtführerKundenNr] as nvarchar(7)) + ' ','') + [Frachtführer] as Frachtführer, " & " [LKW Kennzeichen],Sachbearbeiter FROM [Speditionsbuch] LEFT JOIN Abfertigungsarten ON Abfertigungsarten.Abfertigungsart=speditionsbuch.Abfertigungsart WHERE 1=1 " sqlstr &= " AND FilialenNr='" & cboFiliale._value & "'" sqlstr &= " AND AbfertigungsNr='" & txtAbfertigungsnummer.Text & "'" @@ -1701,10 +1840,10 @@ Public Class frmSendungsdetailsNEU If a.sndabr_abrArt = "ABFKOST" Then Select Case a.sndabr_beteiligter Case "EMPF" : tmpKdnr = SENDUNG_LIST(CURRENT_INDEX).tblSnd_EmpfaengerKdNr - Case "AVISIERER" : tmpKdnr = If(IsNumeric(AVISO.Auftraggeber_KdNr), IsNumeric(AVISO.Auftraggeber_KdNr), -1) + Case "AVISIERER" : tmpKdnr = SENDUNG_LIST(CURRENT_INDEX).tblSnd_AvisiererKdNr'If(IsNumeric(AVISO.Auftraggeber_KdNr), IsNumeric(AVISO.Auftraggeber_KdNr), -1) Case "ABS" : tmpKdnr = SENDUNG_LIST(CURRENT_INDEX).tblSnd_AbsenderKdNr Case "AUFTR" : tmpKdnr = SENDUNG_LIST(CURRENT_INDEX).tblSnd_AuftraggeberKdNr - Case "FRACHTF" : tmpKdnr = If(IsNumeric(AVISO.Frächter_KdNr), IsNumeric(AVISO.Frächter_KdNr), -1) + Case "FRACHTF" : tmpKdnr = SENDUNG_LIST(CURRENT_INDEX).tblSnd_FrachtfuehrerKdNr 'If(IsNumeric(AVISO.Frächter_KdNr), IsNumeric(AVISO.Frächter_KdNr), -1) End Select End If Next @@ -1934,11 +2073,11 @@ Public Class frmSendungsdetailsNEU ' frmSendungsdetailsAbrechnung.Aufschub = SENDUNG_LIST(CURRENT_INDEX).tblSnd_aufschub - frmSendungsdetailsAbrechnung.avisierer = aviso.Auftraggeber + frmSendungsdetailsAbrechnung.avisierer = txtAvisierer.Text 'aviso.Auftraggeber frmSendungsdetailsAbrechnung.absender = txtAbsender.Text frmSendungsdetailsAbrechnung.auftraggeber = txtAuftraggeber.Text frmSendungsdetailsAbrechnung.empfänger = txtEmpfaenger.Text - frmSendungsdetailsAbrechnung.frachtführer = aviso.Frächter + frmSendungsdetailsAbrechnung.frachtführer = txtFrachtfuehrer.Text '.Frächter frmSendungsdetailsAbrechnung.ShowDialog(Me) SENDUNG_LIST(CURRENT_INDEX).LOAD_ABRECHNUNG() @@ -1973,17 +2112,17 @@ Public Class frmSendungsdetailsNEU frmBeleg.BELEG.LKW_Kennzeichen = AVISO.LKW_Nr - frmBeleg.BELEG.Frachtführer = AVISO.Frächter - frmBeleg.BELEG.Ordnungsbegriff = AVISO.Frächter + frmBeleg.BELEG.Frachtführer = Me.SENDUNG_LIST(Me.CURRENT_INDEX).tblSnd_Frachtfuehrer + frmBeleg.BELEG.Ordnungsbegriff = Me.SENDUNG_LIST(Me.CURRENT_INDEX).tblSnd_Frachtfuehrer frmBeleg.BELEG.FilialenNr = Me.SENDUNG_LIST(Me.CURRENT_INDEX).FilialenNr frmBeleg.BELEG.AbfertigungsNr = Me.SENDUNG_LIST(Me.CURRENT_INDEX).AbfertigungsNr frmBeleg.BELEG.LKW_Id = AVISO.AvisoID frmBeleg.BELEG.LKW_Beleg = False frmBeleg.init() - If AVISO.Frächter_KdNr > 0 Then - frmBeleg.kdFrachtf.KdNr = AVISO.Frächter_KdNr - frmBeleg.kdkunde.KdNr = AVISO.Frächter_KdNr + If Me.SENDUNG_LIST(Me.CURRENT_INDEX).tblSnd_FrachtfuehrerKdNr > 0 Then + frmBeleg.kdFrachtf.KdNr = Me.SENDUNG_LIST(Me.CURRENT_INDEX).tblSnd_FrachtfuehrerKdNr + frmBeleg.kdkunde.KdNr = Me.SENDUNG_LIST(Me.CURRENT_INDEX).tblSnd_FrachtfuehrerKdNr End If ' If sender Is Button13 Then frmBeleg.AddDusche(True) @@ -2148,15 +2287,15 @@ Public Class frmSendungsdetailsNEU ' frmNacherfassungLeihgeld.init() - If AVISO.Frächter_KdNr > 0 Then - frmNacherfassungLeihgeld.kdFrachtführer.KdNr = AVISO.Frächter_KdNr + If Me.SENDUNG_LIST(Me.CURRENT_INDEX).tblSnd_FrachtfuehrerKdNr > 0 Then + frmNacherfassungLeihgeld.kdFrachtführer.KdNr = Me.SENDUNG_LIST(Me.CURRENT_INDEX).tblSnd_FrachtfuehrerKdNr Else - frmNacherfassungLeihgeld.kdFrachtführer.Text = AVISO.Frächter + frmNacherfassungLeihgeld.kdFrachtführer.Text = Me.SENDUNG_LIST(Me.CURRENT_INDEX).tblSnd_Frachtfuehrer End If frmNacherfassungLeihgeld.txtKdAuftragsnummer.Text = SENDUNG_LIST(CURRENT_INDEX).tblSnd_KdAuftragsNr - If SENDUNG_LIST(CURRENT_INDEX).tblSnd_Auftraggeber <> "" And (SENDUNG_LIST(CURRENT_INDEX).tblSnd_Auftraggeber <> AVISO.Frächter And SENDUNG_LIST(CURRENT_INDEX).tblSnd_AuftraggeberKdNr <> AVISO.Frächter_KdNr) Then + If SENDUNG_LIST(CURRENT_INDEX).tblSnd_Auftraggeber <> "" And (SENDUNG_LIST(CURRENT_INDEX).tblSnd_Auftraggeber <> Me.SENDUNG_LIST(Me.CURRENT_INDEX).tblSnd_Frachtfuehrer And SENDUNG_LIST(CURRENT_INDEX).tblSnd_AuftraggeberKdNr <> Me.SENDUNG_LIST(Me.CURRENT_INDEX).tblSnd_FrachtfuehrerKdNr) Then If SENDUNG_LIST(CURRENT_INDEX).tblSnd_AuftraggeberKdNr > 0 Then frmNacherfassungLeihgeld.txtAuftraggeber.KdNr = SENDUNG_LIST(CURRENT_INDEX).tblSnd_AuftraggeberKdNr Else @@ -2166,8 +2305,8 @@ Public Class frmSendungsdetailsNEU frmNacherfassungLeihgeld.cbxFrachter.Checked = False Else - frmNacherfassungLeihgeld.txtAuftraggeber.KdNr = AVISO.Frächter_KdNr - frmNacherfassungLeihgeld.kdFrachtführer.Text = AVISO.Frächter + frmNacherfassungLeihgeld.txtAuftraggeber.KdNr = Me.SENDUNG_LIST(Me.CURRENT_INDEX).tblSnd_FrachtfuehrerKdNr + frmNacherfassungLeihgeld.kdFrachtführer.Text = Me.SENDUNG_LIST(Me.CURRENT_INDEX).tblSnd_Frachtfuehrer frmNacherfassungLeihgeld.cbxFrachter.Checked = True End If 'If sender Is Button13 Then frmNacherfassungLeihgeld.AddDusche(True) @@ -2299,17 +2438,19 @@ Public Class frmSendungsdetailsNEU End Function Private Sub cbxFremdspedition_CheckedChanged(sender As Object, e As EventArgs) Handles cbxFremdspedition.CheckedChanged - ' TabControl1.Enabled = Not sender.checked - Panel6.Enabled = Not sender.checked - Panel16.Enabled = Not sender.checked - btn.Enabled = Not sender.checked - ' Panel5.Enabled = Not sender.checked - ' cboAbfertigungsart.Enabled = Not sender.checked - txtAnzahl.Enabled = Not sender.checked - cboFiliale.Enabled = Not sender.checked - txtAbfertigungsnummer.Enabled = Not sender.checked - txtUnterNr.Enabled = Not sender.checked - btnNeueAbfertigungNrVergeben.Enabled = Not sender.checked + '' TabControl1.Enabled = Not sender.checked + 'Panel6.Enabled = Not sender.checked + 'Panel16.Enabled = Not sender.checked + 'btn.Enabled = Not sender.checked + '' Panel5.Enabled = Not sender.checked + '' cboAbfertigungsart.Enabled = Not sender.checked + 'txtAnzahl.Enabled = Not sender.checked + 'cboFiliale.Enabled = Not sender.checked + 'txtAbfertigungsnummer.Enabled = Not sender.checked + 'txtUnterNr.Enabled = Not sender.checked + 'btnNeueAbfertigungNrVergeben.Enabled = Not sender.checked + sperrePanel() + If sender.checked Then 'Label1.Text = "Fremdspedition:" cboFremdsped.Visible = True @@ -2325,6 +2466,36 @@ Public Class frmSendungsdetailsNEU End If End Sub + Sub sperrePanel() + Dim sperren = False + If cbxFremdspedition.Checked Then + sperren = True + Else + If cboFiliale._value <> "" Then + Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA + Case "IMEX" + If cboFiliale._value <> "5501" Then sperren = True + Case "UNISPED" + If cboFiliale._value <> "5601" Then sperren = True + Case "VERAG" + If cboFiliale._value = "5601" Or cboFiliale._value = "5501" Then sperren = True + End Select + End If + End If + ' TabControl1.Enabled = Not sperren + Panel6.Enabled = Not sperren + Panel16.Enabled = Not sperren + btn.Enabled = Not sperren + ' Panel5.Enabled = Not sperren + ' cboAbfertigungsart.Enabled = Not sperren + txtAnzahl.Enabled = Not sperren + ' cboFiliale.Enabled = Not sperren + txtAbfertigungsnummer.Enabled = Not sperren + txtUnterNr.Enabled = Not sperren + btnNeueAbfertigungNrVergeben.Enabled = Not sperren + + + End Sub Private Sub cboFiliale_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboFiliale.SelectedIndexChanged ' btnKassenbuchEintrag.Enabled = True Dim tmp = cboAbfertigungsart._value @@ -2346,28 +2517,51 @@ Public Class frmSendungsdetailsNEU If txtAbfertigungsnummer.Text <> "" And txtAbfertigungsnummer.Text <> "0" Then btnNeueAbfertigungNrVergeben.Visible = False End If + + Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA + Case "UNISPED" + Case Else + txtDyRef.Visible = (SENDUNG_LIST(CURRENT_INDEX).FilialenNr = "5601") + picDy.Visible = (SENDUNG_LIST(CURRENT_INDEX).FilialenNr = "5601") + End Select + sperrePanel() + End Sub Private Sub btnQS_MA_Click(sender As Object, e As EventArgs) Handles btnQS_MA.Click - SENDUNG_LIST(CURRENT_INDEX).tblSnd_QS_MA = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID - setQS() + 'If VERAG_PROG_ALLGEMEIN.cAllgemein.ABTEILUNG = "QS" Then + ' SENDUNG_LIST(CURRENT_INDEX).tblSnd_QS_MA = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID + 'End If + SAVE_ME() + AVISOFUNC.SendungUebernehmen(SENDUNG_LIST(CURRENT_INDEX)) + initDataBinding() End Sub Sub setQS() - If SENDUNG_LIST(CURRENT_INDEX).tblSnd_QS_MA IsNot Nothing AndAlso IsNumeric(SENDUNG_LIST(CURRENT_INDEX).tblSnd_QS_MA) Then - lblQsMa.Text = ADMIN.getValueTxtBySql("SELECT [mit_vname] + ' ' + [mit_nname] FROM [ADMIN].[dbo].[tblMitarbeiter] WHERE mit_id=" & SENDUNG_LIST(CURRENT_INDEX).tblSnd_QS_MA, "ADMIN") - If VERAG_PROG_ALLGEMEIN.cAllgemein.ABTEILUNG = "QS" Then - btnQS_MA.Visible = False - btnDelQS.Visible = True - End If + btnQS_MA.Visible = True + btnDelQS.Visible = False + lblQsMa.Text = If(SENDUNG_LIST(CURRENT_INDEX).LetzterMitarbeiter, "-") + + If SENDUNG_LIST(CURRENT_INDEX).LetzterMitarbeiterId IsNot Nothing AndAlso SENDUNG_LIST(CURRENT_INDEX).LetzterMitarbeiterId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID Then + btnQS_MA.Image = My.Resources.personCheck_blue_small Else - lblQsMa.Text = "-" - If VERAG_PROG_ALLGEMEIN.cAllgemein.ABTEILUNG = "QS" Then - btnQS_MA.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME & " eintragen" - btnQS_MA.Visible = True - btnDelQS.Visible = False - End If + btnQS_MA.Image = My.Resources.personCheck_small End If + 'If SENDUNG_LIST(CURRENT_INDEX).tblSnd_QS_MA IsNot Nothing AndAlso IsNumeric(SENDUNG_LIST(CURRENT_INDEX).tblSnd_QS_MA) Then + + ' lblQsMa.Text = ADMIN.getValueTxtBySql("SELECT [mit_vname] + ' ' + [mit_nname] FROM [ADMIN].[dbo].[tblMitarbeiter] WHERE mit_id=" & SENDUNG_LIST(CURRENT_INDEX).tblSnd_QS_MA, "ADMIN") + ' If VERAG_PROG_ALLGEMEIN.cAllgemein.ABTEILUNG = "QS" Then + ' btnQS_MA.Visible = False + ' btnDelQS.Visible = True + ' End If + 'Else + ' lblQsMa.Text = "-" + ' If VERAG_PROG_ALLGEMEIN.cAllgemein.ABTEILUNG = "QS" Then + ' btnQS_MA.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME & " eintragen" + ' btnQS_MA.Visible = True + ' btnDelQS.Visible = False + ' End If + 'End If End Sub Private Sub Button7_Click(sender As Object, e As EventArgs) Handles btnDelQS.Click @@ -2472,18 +2666,36 @@ Public Class frmSendungsdetailsNEU End Sub Sub initAnhang() - Dim hSQL As String = " SELECT [anh_id],[anh_Name],[anh_docId],CASE WHEN anh_SendungsId is null OR anh_SendungsId <=0 THEN '***' ELSE [anh_Art] END as [anh_Art],[anh_Typ] FROM [tblAvisoAnhaenge] + Dim hSQL As String = " SELECT [anh_id],[anh_Name],[anh_docId],CASE WHEN (anh_SendungsId is null OR anh_SendungsId <=0) AND anh_Art='' THEN '***' ELSE [anh_Art] END as [anh_Art],[anh_Typ],anh_LaufzettelDruck FROM [tblAvisoAnhaenge] WHERE anh_AvisoId=" & AvisoId & " AND (anh_SendungsId is null OR anh_SendungsId <=0 OR anh_SendungsId=" & SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID & ") ORDER BY anh_SendungsId desc, case - when [anh_Art] ='ATR' then 0 + /* when [anh_Art] ='ATR' then 0 when [anh_Art] ='Rechnung' then 1 when [anh_Art] ='CMR' then 2 when [anh_Art] ='Ausfuhr' then 3 when [anh_Art] ='Packliste' then 4 when [anh_Art] ='Auftrag' then 5 when [anh_Art] ='Sonstiges' then 6 - when [anh_Art] ='' then 7 + when [anh_Art] ='' then 7*/ + + 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]" @@ -2509,7 +2721,11 @@ Public Class frmSendungsdetailsNEU .Columns("anh_Typ").Width = 150 .Columns("anh_Typ").HeaderText = "Typ" - .Columns("anh_Art").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter + .Columns("anh_Typ").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter + + + .Columns("anh_LaufzettelDruck").Width = 150 + .Columns("anh_LaufzettelDruck").HeaderText = "Laufzettel-Druck" End With @@ -2929,9 +3145,9 @@ Public Class frmSendungsdetailsNEU Dim kdnrFrm = -1 If sender Is toolFrächter Then - ROLLE = "FRÄCHTER" : FirmaFrm = AVISO.Frächter : kdnrFrm = AVISO.Frächter_KdNr + ROLLE = "FRÄCHTER" : FirmaFrm = Me.SENDUNG_LIST(Me.CURRENT_INDEX).tblSnd_Frachtfuehrer : kdnrFrm = Me.SENDUNG_LIST(Me.CURRENT_INDEX).tblSnd_FrachtfuehrerKdNr ElseIf sender Is toolAvisierer Then - ROLLE = "AVISIERER" : FirmaFrm = AVISO.Auftraggeber : kdnrFrm = AVISO.Auftraggeber_KdNr + ROLLE = "AVISIERER" : FirmaFrm = Me.SENDUNG_LIST(Me.CURRENT_INDEX).tblSnd_Avisierer : kdnrFrm = Me.SENDUNG_LIST(Me.CURRENT_INDEX).tblSnd_AvisiererKdNr ElseIf sender Is toolAbsender Then ROLLE = "ABSENDER" : FirmaFrm = SENDUNG_LIST(CURRENT_INDEX).tblSnd_Absender : kdnrFrm = SENDUNG_LIST(CURRENT_INDEX).tblSnd_AbsenderKdNr ElseIf sender Is toolAuftraggeber Then @@ -3228,7 +3444,11 @@ Public Class frmSendungsdetailsNEU Private Sub MarkiertePDFsDruckenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles MarkiertePDFsDruckenToolStripMenuItem.Click For Each r As DataGridViewRow In dgvAnhang.SelectedRows - VERAG_PROG_ALLGEMEIN.cFormularManager.PrintViaSpirePDF({VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(r.Cells("anh_docId").Value)}) + Select Case r.Cells("anh_Typ").Value + Case "PDF" : VERAG_PROG_ALLGEMEIN.cFormularManager.PrintViaSpirePDF({VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(r.Cells("anh_docId").Value)}) + Case "BILD" : VERAG_PROG_ALLGEMEIN.cFormularManager.Print_PICTURE({VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(r.Cells("anh_docId").Value)}) + End Select + Next End Sub @@ -3306,7 +3526,7 @@ Public Class frmSendungsdetailsNEU TextHTML &= VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME & "
" TextHTML &= "
" - Mail.HTMLBody = "
" & TextHTML & SDL.cFakturierung.getSignature("DE", 1) & "
" + Mail.HTMLBody = "
" & TextHTML & SDL.cFakturierung.getSignature("DE") & "
" AvisoStatusFunctions.insertSendungsVermerk(SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID, AvisoId, "ATA-Nr fehlt (Fremdanmeldung) - angefordert", 33) @@ -3368,9 +3588,9 @@ Public Class frmSendungsdetailsNEU Dim files As New List(Of String) ' String() = New String() {"Sample1.pdf", "Sample2.pdf", "Sample3.pdf"} Dim outputFile As String = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath("Merge.pdf", ".pdf", True,, "Merge") ' "result.pdf" - Dim outl As New Outlook.Application - Dim Mail As Microsoft.Office.Interop.Outlook.MailItem - Mail = outl.CreateItem(0) + 'Dim outl As New Outlook.Application + 'Dim Mail As Microsoft.Office.Interop.Outlook.MailItem + 'Mail = outl.CreateItem(0) For Each r As DataGridViewRow In dgvAnhang.SelectedRows files.Add(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(r.Cells("anh_docId").Value)) @@ -3392,8 +3612,124 @@ Public Class frmSendungsdetailsNEU End Sub - Private Sub NurÖffnenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NurÖffnenToolStripMenuItem.Click + Sub initKdInfo(kdNr As Integer) + If TabControl1.SelectedTab Is tbKundenInfo Then + + 'Panel20.Controls.Clear() + 'If loaded + If kdNr > 0 Then + If pnlKundenInfo.Controls.Count = 0 Then + Dim c As New SDL.usrCntlKundenuebersicht + pnlKundenInfo.AutoScrollMinSize = New Size(c.Width, c.Height) + pnlKundenInfo.Controls.Add(c) + End If + DirectCast(pnlKundenInfo.Controls(0), SDL.usrCntlKundenuebersicht).setKD(kdNr) + DirectCast(pnlKundenInfo.Controls(0), SDL.usrCntlKundenuebersicht).Visible = True + Else + If pnlKundenInfo.Controls.Count > 0 Then + DirectCast(pnlKundenInfo.Controls(0), SDL.usrCntlKundenuebersicht).Visible = False + End If + End If + End If + End Sub + Private Sub txtEmpfaenger_TextChanged(sender As Object, e As EventArgs) Handles txtEmpfaenger.GotFocus, txtAbsender.GotFocus, txtFrachtfuehrer.GotFocus, txtAvisierer.GotFocus, txtAuftraggeber.GotFocus + initKdInfo(sender.KdNr) End Sub + Private Sub LaufzetteldruckJANEINToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles LaufzetteldruckJANEINToolStripMenuItem.Click + If dgvAnhang.SelectedRows.Count >= 1 Then + Dim errShown = False + For Each r As DataGridViewRow In dgvAnhang.SelectedRows + ' If r.Cells("anh_typ").Value = "PDF" Then + VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge.toggleLaufzettelDruck(r.Cells("anh_Id").Value) + 'ElseIf Not errShown Then + ' MsgBox("Nur bei PDF möglich!") + ' errShown = True + 'End If + Next + initAnhang() + End If + End Sub + + Private Sub SpeditionSUBENToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SpeditionSUBENToolStripMenuItem.Click + + Try + VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.clearTMPPath("ClipBoard_TMP") + If dgvAnhang.SelectedRows.Count >= 1 Then + Try + Dim outl As New Outlook.Application + Dim Mail As Microsoft.Office.Interop.Outlook.MailItem + Mail = outl.CreateItem(0) + + 'For Each SI In MyListBox1.SelectedItems + ' Dim item As MyListItem = DirectCast(SI, MyListItem) 'DirectCast(MyListBox1.SelectedItems(0), MyListItem) + ' For Each ii In ds.DATA_LIST.LIST + ' If ii.coll_id = item.Value Then + ' If ii.coll_pfad <> "" Then + ' Mail.Attachments.Add(VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.copyToTmp_KeepFilename(ii.coll_pfad, ii.coll_bezeichnung), Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue) + ' End If + ' End If + ' Next + 'Next + + For Each r As DataGridViewRow In dgvAnhang.SelectedRows + ' Mail.Attachments.Add(VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.copyToTmp_KeepFilenameByDS(ii.coll_pfad, ii.coll_bezeichnung), Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue) + Mail.Attachments.Add(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(r.Cells("anh_docId").Value), Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue) + Next + Mail.Subject = "Kennzeichen: " & AVISO.LKW_Nr + + + 'ATA FREMD!!! + If sender Is ToolStripMenuItem15 Then + Mail.Subject = "Kennzeichen: " & AVISO.LKW_Nr & " | Grenze: " & lblGrenze.Text + + Dim TextHTML = "" + TextHTML &= "Sehr geehrte Damen und Herren,
" + TextHTML &= "
" + TextHTML &= "beiliegend senden wir Ihnen die Sendungsunterlagen für den o.g. LKW/Container. Wir bitten Sie den LKW/Container vorzubereiten.
" + TextHTML &= "
" + + TextHTML &= "Mit freundlichen Grüßen
" + TextHTML &= VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME & "
" + TextHTML &= "
" + + Mail.HTMLBody = "
" & TextHTML & SDL.cFakturierung.getSignature("DE") & "
" + + AvisoStatusFunctions.insertSendungsVermerk(SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID, AvisoId, "Doks an Fremdspedition (SUBEN) weitergeleitet.", 46) + + End If + + Mail.Display() + + Catch ex As Exception + MsgBox("Fehler beim Öffnen der Mail!") + End Try + End If + Catch ex As Exception + MsgBox("Fehler beim Öffnen der Mail!") + End Try + End Sub + + Private Sub cboFremdsped_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboFremdsped.SelectedIndexChanged + Select Case cboFremdsped._value + Case "IMEX" : cboFiliale.changeItem("5501") + Case "UNISPED" : cboFiliale.changeItem("5601") + Case Else + If VERAG_PROG_ALLGEMEIN.cAllgemein.STAMMFILIALE <> "" Then + cboFiliale.changeItem(VERAG_PROG_ALLGEMEIN.cAllgemein.STAMMFILIALE) + Else + cboFiliale.changeItem("4803") + End If + End Select + End Sub + + Private Sub LinkLabel4_LinkClicked_1(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel4.LinkClicked + If txtAuftraggeber.KdNr > 0 Then + txtFrachtfuehrer.KdNr = txtAvisierer.KdNr + Else + txtFrachtfuehrer.KdNr = -1 + txtFrachtfuehrer.Text = txtAvisierer.Text + End If + End Sub End Class diff --git a/Aviso/usrCntlSND_Handling.Designer.vb b/Aviso/usrCntlSND_Handling.Designer.vb index b123011..29322ed 100644 --- a/Aviso/usrCntlSND_Handling.Designer.vb +++ b/Aviso/usrCntlSND_Handling.Designer.vb @@ -23,27 +23,31 @@ Partial Class usrCntlSND_Handling 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 diff --git a/Aviso/usrCntlSND_Handling.resx b/Aviso/usrCntlSND_Handling.resx index be91370..d479e24 100644 --- a/Aviso/usrCntlSND_Handling.resx +++ b/Aviso/usrCntlSND_Handling.resx @@ -120,7 +120,13 @@ True - + + True + + + True + + True \ No newline at end of file diff --git a/Aviso/usrCntlSND_Handling.vb b/Aviso/usrCntlSND_Handling.vb index 69d63ea..b76db94 100644 --- a/Aviso/usrCntlSND_Handling.vb +++ b/Aviso/usrCntlSND_Handling.vb @@ -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 diff --git a/Aviso/usrCntlSND_NCTSGestellungsadresse.Designer.vb b/Aviso/usrCntlSND_NCTSGestellungsadresse.Designer.vb index d3b47c7..4148e12 100644 --- a/Aviso/usrCntlSND_NCTSGestellungsadresse.Designer.vb +++ b/Aviso/usrCntlSND_NCTSGestellungsadresse.Designer.vb @@ -23,6 +23,8 @@ Partial Class usrCntlSND_NCTSGestellungsadresse _ 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 diff --git a/Aviso/usrCntlSND_NCTSGestellungsadresse.vb b/Aviso/usrCntlSND_NCTSGestellungsadresse.vb index 497c629..638f35d 100644 --- a/Aviso/usrCntlSND_NCTSGestellungsadresse.vb +++ b/Aviso/usrCntlSND_NCTSGestellungsadresse.vb @@ -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 diff --git a/Aviso/usrcntlAktDetails.Designer.vb b/Aviso/usrcntlAktDetails.Designer.vb index c926a37..e9848ff 100644 --- a/Aviso/usrcntlAktDetails.Designer.vb +++ b/Aviso/usrcntlAktDetails.Designer.vb @@ -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 diff --git a/Aviso/usrcntlAktDetails.vb b/Aviso/usrcntlAktDetails.vb index aef61cd..2ccbf26 100644 --- a/Aviso/usrcntlAktDetails.vb +++ b/Aviso/usrcntlAktDetails.vb @@ -75,6 +75,7 @@ Public Class usrcntlAktDetails loaded = False pnlOptionen.Visible = False pnlDetailsRechts.Enabled = False + Panel4.Visible = False pnlDetailsRechts.Cursor = Cursors.WaitCursor AvisoID = id Details_anzeigen() @@ -118,7 +119,8 @@ Public Class usrcntlAktDetails pnlAlt.Visible = True Else pnlAlt.Visible = False - timer.Enabled = True + 'timer.Enabled = True + ' initDGVSendungenRows() End If End Sub @@ -135,6 +137,16 @@ Public Class usrcntlAktDetails txtLKW_Nr.BackColor = VERAG_PROG_ALLGEMEIN.cAllgemein.cSPECIFIC.FIRMA_BgColor txtLKW_Nr.ForeColor = VERAG_PROG_ALLGEMEIN.cAllgemein.cSPECIFIC.FIRMA_ForeColor + cboFormulareRgAn.Items.Clear() + cboFormulareRgAn.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Avisierer", "AVISIERER")) + cboFormulareRgAn.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Frächter", "FRACHTF")) + cboFormulareRgAn.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Auftraggeber", "AUFTR")) + cboFormulareRgAn.changeItem("AVISIERER") + + + Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA + Case "UNISPED" : btnSendungslisteUNISPED.Visible = True + End Select If My.Computer.Screen.WorkingArea.Width < 1300 Or VERAG_PROG_ALLGEMEIN.cAllgemein.dpi > 96 Then @@ -233,7 +245,7 @@ Public Class usrcntlAktDetails Vermerke_anzeigen() initDgvSendungen() - dgvSendungen.ClearSelection() + If VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID <= 0 Then dgvSendungen.ClearSelection() 'Button6.Focus() ' pnlDetailsRechts.Visible = True ' pnlDetailsRechts.Cursor = Cursors.Default @@ -275,6 +287,10 @@ Public Class usrcntlAktDetails lblStatus.Text = "NICHT EINGETR." : pnlStatus.BackColor = Color.Gray 'btnNichtEingetroffen.BackColor End Select + 'If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "IMEX" Then + ' Dim path = SDL.FormularManagerNEU.DispSendungslisteoListe(AvisoID, False) + ' If path <> "" Then Process.Start(path) + 'End If If AVISO.Abgeschlossen Then @@ -322,6 +338,7 @@ Public Class usrcntlAktDetails .Columns("MitarbeiterId").Visible = False 'MitarbeiterId nicht anzeigen .Columns("Hinweis_Vermerk").Visible = False 'Hinweis_Vermerk nicht anzeigen .Columns("tblSnd_Empfaenger").Visible = False 'tblSnd_Empfaengernicht anzeigen + .Columns("Hervorheben").Visible = False 'tblSnd_Empfaengernicht anzeigen .Columns("Datum").Width = 125 '110 .Columns("Datum").HeaderText = "Datum" @@ -374,10 +391,12 @@ Public Class usrcntlAktDetails End Sub - Private Sub initDgvSendungen() + Private Sub initDgvSendungen() 'Optional keepSelrow = False) + With dgvSendungen + ' Dim selRow = If(.SelectedRows.Count > 0, .SelectedRows(0).Index, -1) .Columns.Clear() - .DataSource = AvisoDAL.loadDataTableBySQL(" SELECT /*rank() OVER (ORDER BY tblSnd_PosUnterNr) as */ tblSnd_PosUnterNr, [tblSnd_SendungID],[tblSnd_AvisoID],[tblSnd_Abfertigungsart_ID],[tblSnd_EmpfaengerKdNr],[tblSnd_Empfaenger],isnull(cast(FilialenNr as varchar (4)),'')+'/' + isnull(cast(AbfertigungsNr as varchar (8)),'') as AbfertigungsNr,(SELECT (CASE WHEN Count(*)>0 THEN cast(COUNT(*) as varchar(4)) ELSE '-' END) FROM Vermerke WHERE AvisoID=" & AvisoID & " AND SendungID=tblSnd_SendungID) as Vermerke, tblSnd_SpeditionsbuchEingetragen,tblSnd_Fremdspedition,tblSnd_FremdspeditionText,isnull(tblSnd_QS_MA,-1) as tblSnd_QS_MA" & + .DataSource = AvisoDAL.loadDataTableBySQL(" SELECT FilialenNr ,/*rank() OVER (ORDER BY tblSnd_PosUnterNr) as */ tblSnd_PosUnterNr, [tblSnd_SendungID],[tblSnd_AvisoID],[tblSnd_Abfertigungsart_ID],[tblSnd_EmpfaengerKdNr],[tblSnd_Empfaenger],isnull(cast(FilialenNr as varchar (4)),'')+'/' + isnull(cast(AbfertigungsNr as varchar (8)),'') as AbfertigungsNr,(SELECT (CASE WHEN Count(*)>0 THEN cast(COUNT(*) as varchar(4)) ELSE '-' END) FROM Vermerke WHERE AvisoID=" & AvisoID & " AND SendungID=tblSnd_SendungID) as Vermerke, tblSnd_SpeditionsbuchEingetragen,tblSnd_Fremdspedition,tblSnd_FremdspeditionText,isnull(tblSnd_QS_MA,-1) as tblSnd_QS_MA,tblSnd_Vorbereitet,tblSnd_Vorgeschrieben,LetzterMitarbeiterId,tblSnd_VG_MA,LetzterMitarbeiter" & " FROM tblSendungen WHERE tblSnd_AvisoId=" & AvisoID & " ORDER BY tblSnd_PosUnterNr") 'LEFT JOIN tblQS_Abfertigungsarten ON [tblSnd_Abfertigungsart_ID]=QS_Abfertigungsart_ID ' If .RowCount = 0 Then .Columns.Clear() : Exit Sub @@ -391,6 +410,11 @@ Public Class usrcntlAktDetails .Columns("tblSnd_QS_MA").Visible = False .Columns("tblSnd_Fremdspedition").Visible = False .Columns("tblSnd_FremdspeditionText").Visible = False + .Columns("tblSnd_Vorgeschrieben").Visible = False + .Columns("tblSnd_Vorbereitet").Visible = False + .Columns("LetzterMitarbeiter").Visible = False + .Columns("LetzterMitarbeiterId").Visible = False + .Columns("tblSnd_VG_MA").Visible = False .Columns("tblSnd_PosUnterNr").Width = 20 .Columns("tblSnd_PosUnterNr").HeaderText = "Nr." @@ -414,15 +438,21 @@ Public Class usrcntlAktDetails .Columns("Vermerke").HeaderText = "Verm." + .Columns("FilialenNr").Width = 20 + .Columns("FilialenNr").HeaderText = "Firma" + + + + Dim c As DataGridViewImageColumn 'tblSnd_Empfaenger() - c = New DataGridViewImageColumn - c.Name = "SendungBearbeiten" - c.Image = My.Resources.stift2 : c.ImageLayout = DataGridViewImageCellLayout.Zoom - c.Width = 25 : c.DefaultCellStyle.Padding = New Padding(2) : c.DefaultCellStyle.BackColor = Color.White - c.ToolTipText = "Sendungsdetails bearbeiten" - .Columns.Add(c) + 'c = New DataGridViewImageColumn + 'c.Name = "SendungBearbeiten" + 'c.Image = My.Resources.stift2 : c.ImageLayout = DataGridViewImageCellLayout.Zoom + 'c.Width = 25 : c.DefaultCellStyle.Padding = New Padding(2) : c.DefaultCellStyle.BackColor = Color.White + 'c.ToolTipText = "Sendungsdetails bearbeiten" + '.Columns.Add(c) c = New DataGridViewImageColumn c.Name = "KundeAnzeigen" @@ -431,6 +461,31 @@ Public Class usrcntlAktDetails c.DefaultCellStyle.Tag = "Empfänger: Kundendaten anzeigen" .Columns.Add(c) + + 'c = New DataGridViewImageColumn + 'c.Name = "VermerkEintragen" + 'c.Image = My.Resources.vermerkBtn : c.ImageLayout = DataGridViewImageCellLayout.Zoom + 'c.Width = 25 : c.DefaultCellStyle.Padding = New Padding(2) : c.DefaultCellStyle.BackColor = Color.White + 'c.ToolTipText = "Vermerk eintragen" + '.Columns.Add(c) + + c = New DataGridViewImageColumn + c.Name = "StatusVorbereitetQS" + c.Image = My.Resources.statusBtn_vorbereitet_InAktiv : c.ImageLayout = DataGridViewImageCellLayout.Zoom + c.Width = 25 : c.DefaultCellStyle.Padding = New Padding(2) : c.DefaultCellStyle.BackColor = Color.White + c.ToolTipText = "Status 'Vorbereitet-QS' eintragen" + c.HeaderText = "QS" + .Columns.Add(c) + + + c = New DataGridViewImageColumn + c.Name = "StatusVorgeschrieben" + c.Image = My.Resources.statusBtn_vorgeschrieben_InAktiv : c.ImageLayout = DataGridViewImageCellLayout.Zoom + c.Width = 25 : c.DefaultCellStyle.Padding = New Padding(2) : c.DefaultCellStyle.BackColor = Color.White + c.ToolTipText = "Status 'Vorgeschrieben' eintragen" + c.HeaderText = "VG" + .Columns.Add(c) + c = New DataGridViewImageColumn c.Name = "SpeditionsbuchEintragen" c.Image = My.Resources.speditionsbuchInaktiv : c.ImageLayout = DataGridViewImageCellLayout.Zoom @@ -438,21 +493,24 @@ Public Class usrcntlAktDetails c.ToolTipText = "Speditionsbuch" .Columns.Add(c) - c = New DataGridViewImageColumn - c.Name = "VermerkEintragen" - c.Image = My.Resources.vermerkBtn : c.ImageLayout = DataGridViewImageCellLayout.Zoom - c.Width = 25 : c.DefaultCellStyle.Padding = New Padding(2) : c.DefaultCellStyle.BackColor = Color.White - c.ToolTipText = "Vermerk eintragen" - .Columns.Add(c) + 'If VERAG_PROG_ALLGEMEIN.cAllgemein.ABTEILUNG = "QS" Then + ' c = New DataGridViewImageColumn + ' c.Name = "Abgeklaert" + ' c.Image = My.Resources.abgeklaertInaktiv : c.ImageLayout = DataGridViewImageCellLayout.Zoom + ' c.Width = 25 : c.DefaultCellStyle.Padding = New Padding(2) : c.DefaultCellStyle.BackColor = Color.White + ' c.ToolTipText = "Durch mich abgeklärt" + ' .Columns.Add(c) + 'End If + + ' If VERAG_PROG_ALLGEMEIN.cAllgemein.ABTEILUNG = "QS" Then + c = New DataGridViewImageColumn + c.Name = "SenungUebernehmen" + c.Image = My.Resources.personCheck_gray_small : c.ImageLayout = DataGridViewImageCellLayout.Zoom + c.Width = 25 : c.DefaultCellStyle.Padding = New Padding(2) : c.DefaultCellStyle.BackColor = Color.White + c.ToolTipText = "Senung übernehmen" + .Columns.Add(c) + ' End If - If VERAG_PROG_ALLGEMEIN.cAllgemein.ABTEILUNG = "QS" Then - c = New DataGridViewImageColumn - c.Name = "Abgeklaert" - c.Image = My.Resources.abgeklaertInaktiv : c.ImageLayout = DataGridViewImageCellLayout.Zoom - c.Width = 25 : c.DefaultCellStyle.Padding = New Padding(2) : c.DefaultCellStyle.BackColor = Color.White - c.ToolTipText = "Durch mich abgeklärt" - .Columns.Add(c) - End If Dim t = New DataGridViewTextBoxColumn t.Name = "Abfertigungsart" @@ -462,14 +520,74 @@ Public Class usrcntlAktDetails .Columns.Insert(3, t) - timerSendRows.Interval = 100 + Try + + For Each r As DataGridViewRow In dgvSendungen.Rows + If r.Cells("tblSnd_Fremdspedition").Value Then 'FREMDANMELDER + r.Cells("Abfertigungsart").Style.BackColor = Color.FromArgb(230, 230, 230) + r.Cells("tblSnd_PosUnterNr").Style.BackColor = Color.FromArgb(230, 230, 230) + ' r.Cells("Abfertigungsart").Value = "FREMD" + r.Cells("Abfertigungsart").Value = r.Cells("tblSnd_FremdspeditionText").Value + Else 'Nomal + r.Cells("Abfertigungsart").Value = ADMIN.getValueTxtBySql("SELECT Abfertigungsbezeichnung FROM Abfertigungsarten WHERE [Abfertigungsart]='" & r.Cells("tblSnd_Abfertigungsart_ID").Value.ToString & "'", "FMZOLL") + If r.Cells("Abfertigungsart").Value.ToString.Length > 15 Then r.Cells("Abfertigungsart").Value = r.Cells("Abfertigungsart").Value.Substring(0, 15) & ".." + End If + + r.Cells("FilialenNr").Style.ForeColor = Color.White + Select Case r.Cells("FilialenNr").Value + Case "4803", "4805", "5003", "5103", "5303", "4811" + r.Cells("FilialenNr").Style.BackColor = Color.FromArgb(0, 54, 128) + r.Cells("FilialenNr").Style.ForeColor = r.Cells("FilialenNr").Style.BackColor + Case "5501" + r.Cells("FilialenNr").Style.BackColor = Color.Yellow + r.Cells("FilialenNr").Style.ForeColor = r.Cells("FilialenNr").Style.BackColor + Case "5601" + r.Cells("FilialenNr").Style.BackColor = Color.Red + r.Cells("FilialenNr").Style.ForeColor = r.Cells("FilialenNr").Style.BackColor + Case Else + r.Cells("FilialenNr").Style.BackColor = Color.White + End Select + r.Cells("FilialenNr").Style.SelectionBackColor = r.Cells("FilialenNr").Style.BackColor + r.Cells("FilialenNr").Style.SelectionForeColor = r.Cells("FilialenNr").Style.ForeColor + Next + ' timerSendRows.Enabled = False + Catch ex As Exception + MsgBox(ex.Message & ex.StackTrace) + End Try + + 'If keepSelrow And .Rows.Count > selRow Then + ' .Rows(selRow).Selected = True + 'End If + changeCurrentSndId() + + timerSendRows.Interval = 10 timerSendRows.Enabled = True End With - End Sub + Public Sub changeCurrentSndId() + Try + Dim sendAktivTmp = sendAktiv + For Each r As DataGridViewRow In dgvSendungen.Rows + If VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID > 0 Then + If r.Cells("tblSnd_SendungID").Value = VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID Then + sendAktiv = False + dgvSendungen.ClearSelection() + ' r.Cells("tblSnd_PosUnterNr").Selected = True + r.Selected = True + sendAktiv = sendAktivTmp + 'MsgBox("sosso" & VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID) + + End If + End If + Next + ' timerSendRows.Enabled = False + Catch ex As Exception + MsgBox(ex.Message & ex.StackTrace) + End Try + End Sub Private Sub Vermerke_anzeigen(Optional rowindex As Integer = -1) If Not loaded Then Exit Sub @@ -488,9 +606,28 @@ Public Class usrcntlAktDetails Button18.Visible = True 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 [anh_Reihenfolge],[anh_id]" + 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] gridVermerke.DataSource = VermerkeDAL.Anzeigen_Vermerke(hSQL) @@ -545,7 +682,7 @@ Public Class usrcntlAktDetails If gridVermerke.Columns("tblSnd_PosUnterNr") IsNot Nothing Then gridVermerke.Columns("tblSnd_PosUnterNr").Visible = False Select Case tbcntlVermerke.SelectedIndex Case 0 - dgvSendungen.ClearSelection() + ' dgvSendungen.ClearSelection() Case 1 ' If dgvSendungen.SelectedRows.Count > 0 Then sendwhere = " AND VermerkArt='A' " @@ -566,7 +703,7 @@ Public Class usrcntlAktDetails ' Dim hSQL As String = "SELECT [VermerkID],[AvisoID],[Datum],[Mitarbeiter],[Hinweis_Vermerk],[VermerkeCode],[MitarbeiterId] FROM Vermerke WHERE AvisoID = " & AvisoID & " " & sendwhere & " ORDER BY Datum DESC" - Dim hSQL As String = " SELECT TOP 1000 [VermerkID],[AvisoID], [SendungID],[VermerkeCode], [Datum],[MitarbeiterId],tblSendungen.tblSnd_PosUnterNr," & + Dim hSQL As String = " SELECT TOP 1000 [VermerkID],[AvisoID], [SendungID],[VermerkeCode], [Datum],[MitarbeiterId],tblSendungen.tblSnd_PosUnterNr,Hervorheben," & " CASE WHEN VermerkeCode IS NULL OR VermerkeCode IN (25,28,29,30,35,46,47) THEN Hinweis_Vermerk ELSE VermerkeCodes.Bezeichnung END as [Hinweis_Vermerk_Anzeige],[Hinweis_Vermerk], tblSendungen.tblSnd_Empfaenger ,[Mitarbeiter]" & " FROM [Vermerke] LEFT JOIN VermerkeCodes ON [VermerkeCode]=VermerkeCodes.VermerkCodeId " & " LEFT JOIN tblSendungen ON [SendungID]=tblSendungen.tblSnd_SendungID " & @@ -595,13 +732,13 @@ Public Class usrcntlAktDetails 'If tbcntlVermerke.SelectedIndex = 2 And rowindex > 0 Then If rowindex > 0 Then - dgvSendungen.ClearSelection() - dgvSendungen.Rows(rowindex).Selected = True + 'dgvSendungen.ClearSelection() + 'dgvSendungen.Rows(rowindex).Selected = True Else gridVermerke.ClearSelection() End If - timer.Enabled = True - + ' timer.Enabled = True + ' initDGVSendungenRows() End Sub @@ -734,10 +871,11 @@ Public Class usrcntlAktDetails sendAktiv = False initDgvSendungen() sendAktiv = True - dgvSendungen.ClearSelection() - If tmpIndex > 0 And dgvSendungen.RowCount > tmpIndex Then - dgvSendungen.Rows(tmpIndex).Selected = True - End If + 'dgvSendungen.ClearSelection() + 'If tmpIndex > 0 And dgvSendungen.RowCount > tmpIndex Then + ' dgvSendungen.Rows(tmpIndex).Selected = True + 'End If + End If loaded = True Vermerke_anzeigen(tmpIndex) @@ -751,91 +889,96 @@ Public Class usrcntlAktDetails For Each r As DataGridViewRow In gridVermerke.Rows ' If r.Cells("VermerkeOptions").GetType.Name = "DataGridViewLinkCell" Then Dim optionCell As DataGridViewLinkCell = DirectCast(r.Cells("VermerkeOptions"), DataGridViewLinkCell) + If CBool(r.Cells("Hervorheben").Value) Then + 'r.DefaultCellStyle.BackColor = Color.Firebrick + 'r.DefaultCellStyle.ForeColor = Color.White + r.DefaultCellStyle.BackColor = Color.Yellow + End If If (r.Cells("VermerkeCode").Value) IsNot DBNull.Value Then - Select Case CInt(r.Cells("VermerkeCode").Value) - Case 1 - If Not existCodeInGridVermerke(2, CStr(r.Cells("Hinweis_Vermerk").Value)) Then - optionCell.Value = "Auftrag erhalten" - optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Auftrag erhalten' einzutragen." - End If - Case 3 - If Not existCodeInGridVermerke(4, CStr(r.Cells("Hinweis_Vermerk").Value)) Then - optionCell.Value = "Rechnung erhalten" - optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Rechnung erhalten' einzutragen." - End If - Case 5 - If Not existCodeInGridVermerke(6, CStr(r.Cells("Hinweis_Vermerk").Value)) Then - optionCell.Value = "LS erhalten" - optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'LS erhalten' einzutragen." - End If - Case 7 - If Not existCodeInGridVermerke(8, CStr(r.Cells("Hinweis_Vermerk").Value)) Then - optionCell.Value = "ATR erhalten" - optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'ATR erhalten' einzutragen." - End If - Case 9 - If Not existCodeInGridVermerke(10, CStr(r.Cells("Hinweis_Vermerk").Value)) Then - optionCell.Value = "Vollmacht erhalten" - optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Vollmacht erhalten' einzutragen." - End If - Case 11 - If Not existCodeInGridVermerke(12, CStr(r.Cells("Hinweis_Vermerk").Value)) Then - optionCell.Value = "CMR erhalten" - optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'CMR erhalten' einzutragen." - End If - Case 13 - If Not existCodeInGridVermerke(14, CStr(r.Cells("Hinweis_Vermerk").Value)) Then - optionCell.Value = "Vorauskasse erhalten" - optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Vorauskasse erhalten' einzutragen." - End If - Case 17 - If Not existCodeInGridVermerke(18) Then - optionCell.Value = "DE-ZOLL fertig" - optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'DE-ZOLL fertig' einzutragen." - End If - Case 19 - If Not existCodeInGridVermerke(20) Then - optionCell.Value = "AT-ZOLL fertig" - optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'AT-ZOLL fertig' einzutragen." - End If - Case 25 - If Not existCodeInGridVermerke(30, CStr(r.Cells("Hinweis_Vermerk").Value)) Then - optionCell.Value = "Dokument erhalten" - optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Dokument erhalten' einzutragen." - End If - Case 31 - If Not existCodeInGridVermerke(32, CStr(r.Cells("Hinweis_Vermerk").Value)) Then - optionCell.Value = "Vorbereitung abgeschlossen" - optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Vorbereitung abgeschlossen' einzutragen." - End If - Case 33 - If Not existCodeInGridVermerke(34, CStr(r.Cells("Hinweis_Vermerk").Value)) Then - optionCell.Value = "ATA-Nr. erhalten" - optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'ATA-Nr. erhalten' einzutragen." - End If - Case 36 - If Not existCodeInGridVermerke(37, CStr(r.Cells("Hinweis_Vermerk").Value)) Then - optionCell.Value = "Kontaktdaten erhalten" - optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Kontaktdaten erhalten' einzutragen." - End If - Case 53 - If Not existCodeInGridVermerke(54, CStr(r.Cells("Hinweis_Vermerk").Value)) Then - optionCell.Value = "Ü-Dok erhalten" - optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Ü-Dok erhalten' einzutragen." - End If - Case 55 - If Not existCodeInGridVermerke(56, CStr(r.Cells("Hinweis_Vermerk").Value)) Then - optionCell.Value = "Rg-Best. erhalten" - optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Rg-Best. erhalten' einzutragen." - End If - Case 57 - If Not existCodeInGridVermerke(58, CStr(r.Cells("Hinweis_Vermerk").Value)) Then - optionCell.Value = "Dispoliste erhalten" - optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Dispoliste erhalten' einzutragen." - End If - End Select - End If + Select Case CInt(r.Cells("VermerkeCode").Value) + Case 1 + If Not existCodeInGridVermerke(2, CStr(r.Cells("Hinweis_Vermerk").Value)) Then + optionCell.Value = "Auftrag erhalten" + optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Auftrag erhalten' einzutragen." + End If + Case 3 + If Not existCodeInGridVermerke(4, CStr(r.Cells("Hinweis_Vermerk").Value)) Then + optionCell.Value = "Rechnung erhalten" + optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Rechnung erhalten' einzutragen." + End If + Case 5 + If Not existCodeInGridVermerke(6, CStr(r.Cells("Hinweis_Vermerk").Value)) Then + optionCell.Value = "LS erhalten" + optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'LS erhalten' einzutragen." + End If + Case 7 + If Not existCodeInGridVermerke(8, CStr(r.Cells("Hinweis_Vermerk").Value)) Then + optionCell.Value = "ATR erhalten" + optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'ATR erhalten' einzutragen." + End If + Case 9 + If Not existCodeInGridVermerke(10, CStr(r.Cells("Hinweis_Vermerk").Value)) Then + optionCell.Value = "Vollmacht erhalten" + optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Vollmacht erhalten' einzutragen." + End If + Case 11 + If Not existCodeInGridVermerke(12, CStr(r.Cells("Hinweis_Vermerk").Value)) Then + optionCell.Value = "CMR erhalten" + optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'CMR erhalten' einzutragen." + End If + Case 13 + If Not existCodeInGridVermerke(14, CStr(r.Cells("Hinweis_Vermerk").Value)) Then + optionCell.Value = "Vorauskasse erhalten" + optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Vorauskasse erhalten' einzutragen." + End If + Case 17 + If Not existCodeInGridVermerke(18) Then + optionCell.Value = "DE-ZOLL fertig" + optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'DE-ZOLL fertig' einzutragen." + End If + Case 19 + If Not existCodeInGridVermerke(20) Then + optionCell.Value = "AT-ZOLL fertig" + optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'AT-ZOLL fertig' einzutragen." + End If + Case 25 + If Not existCodeInGridVermerke(30, CStr(r.Cells("Hinweis_Vermerk").Value)) Then + optionCell.Value = "Dokument erhalten" + optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Dokument erhalten' einzutragen." + End If + Case 31 + If Not existCodeInGridVermerke(32, CStr(r.Cells("Hinweis_Vermerk").Value)) Then + optionCell.Value = "Vorbereitung abgeschlossen" + optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Vorbereitung abgeschlossen' einzutragen." + End If + Case 33 + If Not existCodeInGridVermerke(34, CStr(r.Cells("Hinweis_Vermerk").Value)) Then + optionCell.Value = "ATA-Nr. erhalten" + optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'ATA-Nr. erhalten' einzutragen." + End If + Case 36 + If Not existCodeInGridVermerke(37, CStr(r.Cells("Hinweis_Vermerk").Value)) Then + optionCell.Value = "Kontaktdaten erhalten" + optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Kontaktdaten erhalten' einzutragen." + End If + Case 53 + If Not existCodeInGridVermerke(54, CStr(r.Cells("Hinweis_Vermerk").Value)) Then + optionCell.Value = "Ü-Dok erhalten" + optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Ü-Dok erhalten' einzutragen." + End If + Case 55 + If Not existCodeInGridVermerke(56, CStr(r.Cells("Hinweis_Vermerk").Value)) Then + optionCell.Value = "Rg-Best. erhalten" + optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Rg-Best. erhalten' einzutragen." + End If + Case 57 + If Not existCodeInGridVermerke(58, CStr(r.Cells("Hinweis_Vermerk").Value)) Then + optionCell.Value = "Dispoliste erhalten" + optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Dispoliste erhalten' einzutragen." + End If + End Select + End If Next Catch ex As Exception @@ -965,8 +1108,10 @@ Public Class usrcntlAktDetails f.ShowDialog() End Sub Private Sub SpeditionsbuchEintrag() + If dgvSendungen.SelectedRows.Count = 0 Then Exit Sub Dim sndIdTmp = dgvSendungen.SelectedRows(0).Cells("tblSnd_SendungID").Value + Dim posnr As posNr = FUNC.SpeditionsbuchEintrag(AvisoID, sndIdTmp) If posnr IsNot Nothing Then Dim sndEntry As New VERAG_PROG_ALLGEMEIN.cSendungen(sndIdTmp) @@ -1010,6 +1155,15 @@ Public Class usrcntlAktDetails End Sub + Sub openSnd(sndId) + Dim f = FUNC.openSnd(sndId, AvisoID) + If f IsNot Nothing Then + AddHandler f.FormClosed, Sub() + initDgvSendungen() + End Sub + End If + End Sub + Private Sub gridVermerke_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles gridVermerke.CellDoubleClick Try If tbcntlVermerke.SelectedTab Is tbAnhang Then @@ -1023,27 +1177,10 @@ Public Class usrcntlAktDetails End Sub - Public Sub openSnd(sendId) - For Each openForm In Application.OpenForms() - If TypeOf (openForm) Is frmSendungsdetailsNEU Then - MsgBox("Sendungsfenster bereits geöffnet!") - CType(openForm, frmSendungsdetailsNEU).BringToFront() - Exit Sub - End If - Next - - ' Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm() - Dim frmSendungsdetails As New frmSendungsdetailsNEU(AvisoID, sendId) - frmSendungsdetails.Show() 'Dialog() ' frmSendungsdetails.ShowDialog(frmGrayOut) - ' frmGrayOut.Close() - AddHandler frmSendungsdetails.FormClosed, Sub() - initDgvSendungen() - End Sub - - End Sub Private Sub Button5_Click(sender As Object, e As EventArgs) Handles lklAuswahlAufheben.Click + VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID = -1 dgvSendungen.ClearSelection() Vermerke_anzeigen() End Sub @@ -1057,9 +1194,6 @@ Public Class usrcntlAktDetails 'MsgBox("laodButton8") End Sub - - - Private Sub dgvSendungen_SelectionChanged(sender As Object, e As EventArgs) Handles dgvSendungen.SelectionChanged If sendAktiv Then If dgvSendungen.SelectedRows.Count > 0 Then @@ -1072,10 +1206,7 @@ Public Class usrcntlAktDetails End Sub - - Private Sub tbcntlVermerke_SelectedIndexChanged(sender As Object, e As EventArgs) Handles tbcntlVermerke.SelectedIndexChanged - If Not loaded Then Exit Sub Vermerke_anzeigen() End Sub @@ -1086,7 +1217,6 @@ Public Class usrcntlAktDetails Private Sub btnVermerke_Click(sender As Object, e As EventArgs) - loaded = False ' If dgvSendungen.SelectedRows.Count <= 0 Then Exit Sub @@ -1102,10 +1232,6 @@ Public Class usrcntlAktDetails loaded = True Vermerke_anzeigen() - - - - Exit Sub ' Dim p As Panel = loaded = False @@ -1135,11 +1261,11 @@ Public Class usrcntlAktDetails sv.Close() - If dgvSendungen.RowCount > tmpIndex Then - dgvSendungen.ClearSelection() - dgvSendungen.Rows(tmpIndex).Selected = True - dgvSendungen.FirstDisplayedScrollingRowIndex = tmpscroll - End If + 'If dgvSendungen.RowCount > tmpIndex Then + ' dgvSendungen.ClearSelection() + ' dgvSendungen.Rows(tmpIndex).Selected = True + ' dgvSendungen.FirstDisplayedScrollingRowIndex = tmpscroll + 'End If loaded = True Vermerke_anzeigen() @@ -1184,79 +1310,125 @@ Public Class usrcntlAktDetails Private Sub btnNichtEingetroffen_Click(sender As Object, e As EventArgs) If FUNC.setNichtEingeftroffen(AvisoID) Then frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID) - frmHauptfenster.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID) + frmHauptfenster.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID, -1) End If End Sub - - - Private Sub dgvSendungen_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvSendungen.CellContentClick - Select Case dgvSendungen.Columns(e.ColumnIndex).Name - Case "SendungBearbeiten" - Me.Cursor = Cursors.WaitCursor - Dim sendId = -1 - If dgvSendungen.SelectedRows.Count > 0 Then - sendId = dgvSendungen.Rows(e.RowIndex).Cells("tblSnd_SendungID").Value + Private Sub kexdown(sender As Object, e As KeyEventArgs) Handles dgvSendungen.KeyUp + Try + If sender.selectedRows.count > 0 Then + If e.KeyCode = Keys.Up Or e.KeyCode = Keys.Down Or e.KeyCode = Keys.PageUp Or e.KeyCode = Keys.PageDown Or e.KeyCode = Keys.Return Or e.KeyCode = Keys.Enter Then + Dim SendungsId = CInt(sender.selectedRows(0).Cells("AvisoId").Value) + VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID = SendungsId End If - 'Dim frmSendungsdetails As New frmSendungsdetails(AvisoID, sendId) - 'frmSendungsdetails.ShowDialog(Me) - ' Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm() + End If + Catch ex As Exception + End Try + End Sub + + Private Sub dgvSendungen_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvSendungen.CellClick 'dgvSendungen.CellContentClick + If e.RowIndex < 0 Then Exit Sub + Dim SendungsId = dgvSendungen.Rows(e.RowIndex).Cells("tblSnd_SendungID").Value + VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID = SendungsId + Select Case dgvSendungen.Columns(e.ColumnIndex).Name + 'Case "SendungBearbeiten" + ' sendAktiv = False + ' Me.Cursor = Cursors.WaitCursor + ' Dim sendId = -1 + ' If dgvSendungen.SelectedRows.Count > 0 Then + ' sendId = dgvSendungen.Rows(e.RowIndex).Cells("tblSnd_SendungID").Value + ' End If + ' 'Dim frmSendungsdetails As New frmSendungsdetails(AvisoID, sendId) + ' 'frmSendungsdetails.ShowDialog(Me) + ' ' Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm() - openSnd(sendId) - 'Dim frmSendungsdetails As New frmSendungsdetailsNEU(AvisoID, sendId) - 'frmSendungsdetails.ShowDialog() '(frmGrayOut) + ' openSnd(sendId) + ' 'Dim frmSendungsdetails As New frmSendungsdetailsNEU(AvisoID, sendId) + ' 'frmSendungsdetails.ShowDialog() '(frmGrayOut) - 'frmGrayOut.Close() - initDgvSendungen() - Me.Cursor = Cursors.Default + ' 'frmGrayOut.Close() + ' initDgvSendungen() + ' Me.Cursor = Cursors.Default Case "KundeAnzeigen" + sendAktiv = False Me.Cursor = Cursors.WaitCursor If dgvSendungen.SelectedRows.Count > 0 Then Dim kd = dgvSendungen.Rows(e.RowIndex).Cells("tblSnd_EmpfaengerKdNr").Value If kd IsNot DBNull.Value AndAlso IsNumeric(kd) AndAlso kd > 0 Then FUNC.showKd(kd) End If Me.Cursor = Cursors.Default - Case "VermerkEintragen" - Me.Cursor = Cursors.WaitCursor + 'Case "VermerkEintragen" + ' Me.Cursor = Cursors.WaitCursor - dgvSendungen_CellMouseClick(dgvSendungen, New DataGridViewCellMouseEventArgs(0, e.RowIndex, 0, 0, New MouseEventArgs(Windows.Forms.MouseButtons.Right, 1, 0, 0, 0))) + ' dgvSendungen_CellMouseClick(dgvSendungen, New DataGridViewCellMouseEventArgs(0, e.RowIndex, 0, 0, New MouseEventArgs(Windows.Forms.MouseButtons.Right, 1, 0, 0, 0))) - Me.Cursor = Cursors.Default + ' Me.Cursor = Cursors.Default Case "SpeditionsbuchEintragen" + sendAktiv = False Me.Cursor = Cursors.WaitCursor If Not dgvSendungen.Rows(e.RowIndex).Cells("tblSnd_Fremdspedition").Value Then SpeditionsbuchEintrag() End If Me.Cursor = Cursors.Default - Case "Abgeklaert" - If VERAG_PROG_ALLGEMEIN.cAllgemein.ABTEILUNG = "QS" Then - Me.Cursor = Cursors.WaitCursor - ' Dim SENDUNG_TMP = New VERAG_PROG_ALLGEMEIN.cSendungen(dgvSendungen.Rows(e.RowIndex).Cells("tblSnd_SendungID").Value) - If dgvSendungen.Rows(e.RowIndex).Cells("tblSnd_QS_Ma").Value <= 0 Then - ' SENDUNG_TMP.tblSnd_QS_MA = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID - 'MsgBox(VERAG_PROG_ALLGEMEIN.cAllgemein.USRID) - ADMIN.doSQL("UPDATE tblSendungen SET tblSnd_QS_MA='" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRID & "' WHERE tblSnd_SendungID='" & dgvSendungen.Rows(e.RowIndex).Cells("tblSnd_SendungID").Value & "'", "AVISO") - Else - ' SENDUNG_TMP.tblSnd_QS_MA = Nothing - ADMIN.doSQL("UPDATE tblSendungen SET tblSnd_QS_MA=null WHERE tblSnd_SendungID='" & dgvSendungen.Rows(e.RowIndex).Cells("tblSnd_SendungID").Value & "'", "AVISO") + 'Case "Abgeklaert" + ' If VERAG_PROG_ALLGEMEIN.cAllgemein.ABTEILUNG = "QS" Then + ' Me.Cursor = Cursors.WaitCursor + ' ' Dim SENDUNG_TMP = New VERAG_PROG_ALLGEMEIN.cSendungen(dgvSendungen.Rows(e.RowIndex).Cells("tblSnd_SendungID").Value) + ' If dgvSendungen.Rows(e.RowIndex).Cells("tblSnd_QS_Ma").Value <= 0 Then + ' ' SENDUNG_TMP.tblSnd_QS_MA = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID + ' 'MsgBox(VERAG_PROG_ALLGEMEIN.cAllgemein.USRID) + ' ADMIN.doSQL("UPDATE tblSendungen SET tblSnd_QS_MA='" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRID & "' WHERE tblSnd_SendungID='" & dgvSendungen.Rows(e.RowIndex).Cells("tblSnd_SendungID").Value & "'", "AVISO") + ' Else + ' ' SENDUNG_TMP.tblSnd_QS_MA = Nothing + ' ADMIN.doSQL("UPDATE tblSendungen SET tblSnd_QS_MA=null WHERE tblSnd_SendungID='" & dgvSendungen.Rows(e.RowIndex).Cells("tblSnd_SendungID").Value & "'", "AVISO") - End If - ' SENDUNG_TMP.SAVE() + ' End If + ' ' SENDUNG_TMP.SAVE() + ' initDgvSendungen() + ' Me.Cursor = Cursors.Default + ' End If + + Case "StatusVorgeschrieben" + sendAktiv = False + Me.Cursor = Cursors.WaitCursor + If FUNC.setSendungVorgeschrieben(SendungsId, AvisoID) Then initDgvSendungen() - Me.Cursor = Cursors.Default End If + Me.Cursor = Cursors.Default + Case "StatusVorbereitetQS" + sendAktiv = False + Me.Cursor = Cursors.WaitCursor + If FUNC.setSendungVorbereitetQS(SendungsId, AvisoID) Then + initDgvSendungen() + End If + + Me.Cursor = Cursors.Default + + Case "SenungUebernehmen" + sendAktiv = False + Me.Cursor = Cursors.WaitCursor + + If FUNC.SendungUebernehmen(dgvSendungen.Rows(e.RowIndex).Cells("tblSnd_SendungID").Value, AvisoID) Then + initDgvSendungen() + End If + 'sendAktiv = False + + Me.Cursor = Cursors.Default + End Select - + sendAktiv = True End Sub + + Private Sub Button1_Click(sender As Object, e As EventArgs) reload(AvisoID) ' MsgBox("laodButton1") @@ -1284,12 +1456,23 @@ Public Class usrcntlAktDetails + 'Private Sub timerTick(sender As Object, e As EventArgs) Handles timer.Tick ' eine halbe sekunde verzögert, damit DGV geladen ist (shown geht nicht ewg. usrcntl) + ' If initDGVSendungenRows() Then + ' timer.Enabled = False + ' End If + 'End Sub - Private Sub timerTick(sender As Object, e As EventArgs) Handles timer.Tick ' eine halbe sekunde verzögert, damit DGV geladen ist (shown geht nicht ewg. usrcntl) + Function initDGVSendungenRows() As Boolean If gridVermerke.RowCount = 0 Then gridVermerke.Columns.Clear() 'gridVermerke.Visible = False - If Not loaded Then Exit Sub - If dgvSendungen.DataSource Is Nothing Then Exit Sub + If Not loaded Then Return False + If dgvSendungen.DataSource Is Nothing Then Return False + If dgvSendungen.Columns("tblSnd_Vorbereitet") Is Nothing Then Return False + If dgvSendungen.Columns("StatusVorbereitetQS") Is Nothing Then Return False + If dgvSendungen.Columns("SenungUebernehmen") Is Nothing Then Return False + + If dgvSendungen.Columns("SpeditionsbuchEintragen") Is Nothing Then Return False + If dgvSendungen.Columns("KundeAnzeigen") Is Nothing Then Return False For Each r As DataGridViewRow In dgvSendungen.Rows @@ -1301,16 +1484,47 @@ Public Class usrcntlAktDetails DirectCast(r.Cells("SpeditionsbuchEintragen"), DataGridViewImageCell).Value = My.Resources.speditionsbuchAktiv End If - If VERAG_PROG_ALLGEMEIN.cAllgemein.ABTEILUNG = "QS" Then - If r.Cells("tblSnd_QS_MA").Value = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID Then - DirectCast(r.Cells("Abgeklaert"), DataGridViewImageCell).Value = My.Resources.abgeklaertAktiv - End If + + If r.Cells("tblSnd_Vorbereitet").Value IsNot DBNull.Value Then + DirectCast(r.Cells("StatusVorbereitetQS"), DataGridViewImageCell).Value = My.Resources.statusBtn_vorbereitet_Aktiv + DirectCast(r.Cells("StatusVorbereitetQS"), DataGridViewImageCell).ToolTipText = "Status 'Vorbereitet-QS' entfernen" & vbNewLine & "(" & r.Cells("tblSnd_Vorgeschrieben").Value & ")" + Else + DirectCast(r.Cells("StatusVorbereitetQS"), DataGridViewImageCell).ToolTipText = "Status 'Vorbereitet-QS' eintragen" End If + If r.Cells("tblSnd_Vorgeschrieben").Value IsNot DBNull.Value Then + DirectCast(r.Cells("StatusVorgeschrieben"), DataGridViewImageCell).Value = My.Resources.statusBtn_vorgeschrieben_Aktiv + DirectCast(r.Cells("StatusVorgeschrieben"), DataGridViewImageCell).ToolTipText = "Status 'Vorgeschrieben' entfernen" & vbNewLine & "(" & r.Cells("tblSnd_Vorgeschrieben").Value & ")" + Else + DirectCast(r.Cells("StatusVorgeschrieben"), DataGridViewImageCell).ToolTipText = "Status 'Vorgeschrieben' eintragen" + End If + + + DirectCast(r.Cells("SenungUebernehmen"), DataGridViewImageCell).Value = My.Resources.personCheck_gray_small + If r.Cells("LetzterMitarbeiterId").Value IsNot DBNull.Value AndAlso r.Cells("LetzterMitarbeiterId").Value = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID Then + DirectCast(r.Cells("SenungUebernehmen"), DataGridViewImageCell).Value = My.Resources.personCheck_blue_small + Else + If r.Cells("tblSnd_VG_MA").Value IsNot DBNull.Value Then + DirectCast(r.Cells("SenungUebernehmen"), DataGridViewImageCell).Value = My.Resources.personCheck_small + End If + DirectCast(r.Cells("SenungUebernehmen"), DataGridViewImageCell).ToolTipText = "Sendung übernehmen" + End If + If r.Cells("LetzterMitarbeiter").Value IsNot DBNull.Value Then DirectCast(r.Cells("SenungUebernehmen"), DataGridViewImageCell).ToolTipText = "Sendung von '" & r.Cells("LetzterMitarbeiter").Value & "' übernehmen" + + + 'If VERAG_PROG_ALLGEMEIN.cAllgemein.ABTEILUNG = "QS" Then + ' If r.Cells("tblSnd_QS_MA").Value = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID Then + ' DirectCast(r.Cells("Abgeklaert"), DataGridViewImageCell).Value = My.Resources.abgeklaertAktiv + ' End If + 'End If DirectCast(r.Cells("KundeAnzeigen"), DataGridViewImageCell).ToolTipText = "Kunde anzeigen" DirectCast(r.Cells("SpeditionsbuchEintragen"), DataGridViewImageCell).ToolTipText = "Speditionsbuch eintragen" - DirectCast(r.Cells("VermerkEintragen"), DataGridViewImageCell).ToolTipText = "Vermerk eintragen" - DirectCast(r.Cells("SendungBearbeiten"), DataGridViewImageCell).ToolTipText = "Sendung bearbeiten" + ' DirectCast(r.Cells("VermerkEintragen"), DataGridViewImageCell).ToolTipText = "Vermerk eintragen" + ' DirectCast(r.Cells("SendungBearbeiten"), DataGridViewImageCell).ToolTipText = "Sendung bearbeiten" + + + + Catch ex As Exception MsgBox("Fehler bei der Initialisierung der Sendungen Optionen." & vbNewLine & vbNewLine & ex.Message) End Try @@ -1329,10 +1543,8 @@ Public Class usrcntlAktDetails End Try ' btnFormulare.Left = pnlVermerkeTop.Width - btnFormulare.Width - 4 - - timer.Enabled = False - End Sub - + Return True + End Function ' Private Sub reloadtimerTick(sender As Object, e As EventArgs) Handles reloadTimer.Tick ' dgvSendungen.ClearSelection() ' If tbcntlVermerke.SelectedIndex <> 0 Then tbcntlVermerke.SelectedIndex = 0 @@ -1340,64 +1552,107 @@ Public Class usrcntlAktDetails 'End Sub Private Sub timerSendRows_Tick(sender As Object, e As EventArgs) Handles timerSendRows.Tick - Try - - For Each r As DataGridViewRow In dgvSendungen.Rows - If r.Cells("tblSnd_Fremdspedition").Value Then 'FREMDANMELDER - r.Cells("Abfertigungsart").Style.BackColor = Color.FromArgb(230, 230, 230) - r.Cells("tblSnd_PosUnterNr").Style.BackColor = Color.FromArgb(230, 230, 230) - ' r.Cells("Abfertigungsart").Value = "FREMD" - r.Cells("Abfertigungsart").Value = r.Cells("tblSnd_FremdspeditionText").Value - Else 'Nomal - r.Cells("Abfertigungsart").Value = ADMIN.getValueTxtBySql("SELECT Abfertigungsbezeichnung FROM Abfertigungsarten WHERE [Abfertigungsart]='" & r.Cells("tblSnd_Abfertigungsart_ID").Value.ToString & "'", "FMZOLL") - If r.Cells("Abfertigungsart").Value.ToString.Length > 15 Then r.Cells("Abfertigungsart").Value = r.Cells("Abfertigungsart").Value.Substring(0, 15) & ".." - End If - Next + If initDGVSendungenRows() Then timerSendRows.Enabled = False - Catch ex As Exception - MsgBox(ex.Message & ex.StackTrace) - End Try + End If End Sub + 'Private Sub timerSendRows_Tick(sender As Object, e As EventArgs) Handles timerSendRows.Tick + ' Try + + ' For Each r As DataGridViewRow In dgvSendungen.Rows + ' If r.Cells("tblSnd_Fremdspedition").Value Then 'FREMDANMELDER + ' r.Cells("Abfertigungsart").Style.BackColor = Color.FromArgb(230, 230, 230) + ' r.Cells("tblSnd_PosUnterNr").Style.BackColor = Color.FromArgb(230, 230, 230) + ' ' r.Cells("Abfertigungsart").Value = "FREMD" + ' r.Cells("Abfertigungsart").Value = r.Cells("tblSnd_FremdspeditionText").Value + ' Else 'Nomal + ' r.Cells("Abfertigungsart").Value = ADMIN.getValueTxtBySql("SELECT Abfertigungsbezeichnung FROM Abfertigungsarten WHERE [Abfertigungsart]='" & r.Cells("tblSnd_Abfertigungsart_ID").Value.ToString & "'", "FMZOLL") + ' If r.Cells("Abfertigungsart").Value.ToString.Length > 15 Then r.Cells("Abfertigungsart").Value = r.Cells("Abfertigungsart").Value.Substring(0, 15) & ".." + ' End If + ' Next + ' timerSendRows.Enabled = False + ' Catch ex As Exception + ' MsgBox(ex.Message & ex.StackTrace) + ' End Try + 'End Sub + Private Sub lblStatus_Click(sender As Object, e As EventArgs) Handles lblStatus.Click End Sub Private Sub dgvSendungen_CellMouseClick(sender As Object, e As DataGridViewCellMouseEventArgs) Handles dgvSendungen.CellMouseClick If e.Button = Windows.Forms.MouseButtons.Right Then - If AVISO.Abgeschlossen Then Exit Sub + If dgvSendungen.Columns.Count > 0 Then + If dgvSendungen.Columns(e.ColumnIndex).Name = "SenungUebernehmen" Then + Dim LIST_FIRMEN() As String = {"VERAG", "UNISPED", "IMEX", "FRONTOFFICE"} - loaded = False - ' If dgvSendungen.SelectedRows.Count <= 0 Then Exit Sub + Dim C As New ContextMenuStrip - dgvSendungen.ClearSelection() - dgvSendungen.Rows(e.RowIndex).Selected = True + For Each FirmaTMP In LIST_FIRMEN - ' frmGrayOut.Opacity = 0.5 - ' frmGrayOut.WindowState = FormWindowState.Maximized - Dim tmpIndex = dgvSendungen.SelectedRows(0).Index - Dim tmpscroll = dgvSendungen.FirstDisplayedScrollingRowIndex + Dim item_Firma As New ToolStripMenuItem + item_Firma.Text = FirmaTMP - Dim frmGrayOut = grayoutForm() - Dim sv As New frmAddSendungsvermerkShort(AvisoID, dgvSendungen.SelectedRows(0).Cells("tblSnd_SendungID").Value) - sv.Location = Me.PointToClient(System.Windows.Forms.Cursor.Position) - sv.ShowDialog(frmGrayOut) - frmGrayOut.Close() - If tbcntlVermerke.SelectedIndex <> 2 Then tbcntlVermerke.SelectedIndex = 2 + Dim sql As New VERAG_PROG_ALLGEMEIN.SQL + Dim dt = sql.loadDgvBySql("SELECT TOP (1000) [mit_id],[mit_nname] + ' ' + [mit_vname] + ' (' + mit_niederlassung + ')' as MAname FROM [ADMIN].[dbo].[tblMitarbeiter] + where mit_firma IN ('" & FirmaTMP & "','BEIDE','ALLE','ALL') and mit_gekuendigt=0 + and mit_abteilung IN ('QS','ZOLL','DISPO') and [mit_TESTonly]=0 AND [mit_pseudoUser]=0 + order by mit_nname,mit_vname ", "AVISO") + + For Each r In dt.Rows + Dim item As New ToolStripMenuItem + item.Tag = r("mit_id") + item.Text = r("MAname") + AddHandler item.Click, Sub() + FUNC.SendungUebernehmen(dgvSendungen.Rows(e.RowIndex).Cells("tblSnd_SendungID").Value, AvisoID, item.Tag, True) + reload(AvisoID) + End Sub - initDgvSendungen() ' wg. Anzahl Vermerke - sv.Close() + item_Firma.DropDownItems.Add(item) + Next + C.Items.Add(item_Firma) + Next + C.Show(System.Windows.Forms.Cursor.Position) + Else + + If AVISO.Abgeschlossen Then Exit Sub + + loaded = False + ' If dgvSendungen.SelectedRows.Count <= 0 Then Exit Sub + + ' dgvSendungen.ClearSelection() + dgvSendungen.Rows(e.RowIndex).Selected = True + VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID = dgvSendungen.SelectedRows(0).Cells("tblSnd_SendungID").Value + + ' frmGrayOut.Opacity = 0.5 + ' frmGrayOut.WindowState = FormWindowState.Maximized + Dim tmpIndex = dgvSendungen.SelectedRows(0).Index + Dim tmpscroll = dgvSendungen.FirstDisplayedScrollingRowIndex + + Dim frmGrayOut = grayoutForm() + Dim sv As New frmAddSendungsvermerkShort(AvisoID, dgvSendungen.SelectedRows(0).Cells("tblSnd_SendungID").Value) + sv.Location = Me.PointToClient(System.Windows.Forms.Cursor.Position) + sv.ShowDialog(frmGrayOut) + frmGrayOut.Close() + If tbcntlVermerke.SelectedIndex <> 2 Then tbcntlVermerke.SelectedIndex = 2 - If dgvSendungen.RowCount > tmpIndex Then - dgvSendungen.ClearSelection() - dgvSendungen.Rows(tmpIndex).Selected = True - dgvSendungen.FirstDisplayedScrollingRowIndex = tmpscroll + initDgvSendungen() ' wg. Anzahl Vermerke + sv.Close() + + + If dgvSendungen.RowCount > tmpIndex Then + 'dgvSendungen.ClearSelection() + 'dgvSendungen.Rows(tmpIndex).Selected = True + dgvSendungen.FirstDisplayedScrollingRowIndex = tmpscroll + End If + loaded = True + 'Vermerke_anzeigen() + + End If End If - loaded = True - Vermerke_anzeigen() - End If End Sub @@ -1754,10 +2009,10 @@ Public Class usrcntlAktDetails Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA - Case "IMEX" + Case "IMEX", "UNISPED", "AMBAR", "FRONTOFFICE" For cnt As Integer = 1 To gesAnzSnd Dim abfnr_tmp As Object = DBNull.Value - filiale_tmp = 5501 + filiale_tmp = VERAG_PROG_ALLGEMEIN.cAllgemein.STAMMFILIALE Dim abfArt As Object = DBNull.Value getFilialeAndAbfertNrIMEX(cnt, filiale_tmp, abfnr_tmp, fremd, abfArt) @@ -1825,7 +2080,7 @@ Public Class usrcntlAktDetails 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 @@ -1858,13 +2113,10 @@ Public Class usrcntlAktDetails Private Sub btnFormulare_Click(sender As Object, e As EventArgs) Handles btnFormulare.Click - If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "IMEX" Then - Dim path = SDL.FormularManagerNEU.DispSendungslisteoListe(AvisoID, False) - If path <> "" Then Process.Start(path) - Else - Panel4.Visible = Not Panel4.Visible - End If + Panel4.Visible = Not Panel4.Visible + + Exit Sub ' pnlFormulare.Visible = Not pnlFormulare.Visible cntxtFormulare.Show(Windows.Forms.Cursor.Position) @@ -1948,43 +2200,52 @@ Public Class usrcntlAktDetails Private Sub Button8_Click_2(sender As Object, e As EventArgs) Handles Button8.Click SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.SA_Gestellung, FraechterKdNr, {AvisoID}) + Panel4.Visible = False End Sub Private Sub btnKasse_LG_Click(sender As Object, e As EventArgs) Handles btnKasse_LG.Click - SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.DispoListe, FraechterKdNr, {AvisoID}) - Panel4.Visible = False - DispolisteVermerk() + If DispolisteVermerk() Then + SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.DispoListe, FraechterKdNr, {AvisoID}) + Panel4.Visible = False + End If End Sub - Sub DispolisteVermerk() - If vbYes = MsgBox("Vermerk 'Dispoliste angefordert' eintragen?", vbYesNoCancel) Then + Function DispolisteVermerk() As Boolean + Dim answer = MsgBox("Vermerk 'Dispoliste angefordert' eintragen?", vbYesNoCancel) + If vbYes = answer Then AvisoStatusFunctions.insertVermerkAllg(AvisoID, "Dispoliste angefordert", 57) + ElseIf answer = vbCancel Then + Return False End If - End Sub + Return True + End Function Private Sub btnKasse_User_Click(sender As Object, e As EventArgs) Handles Button9.Click - Dim path = SDL.FormularManagerNEU.DispSendungslisteoListe(AvisoID, False) - If path <> "" Then - Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA - Case "IMEX" - Process.Start(path) - Case Else - Try - Dim outl As New Outlook.Application - Dim Mail As Microsoft.Office.Interop.Outlook.MailItem - Mail = outl.CreateItem(0) - Mail.Subject = "Dispoliste LKW-Nr: " & AVISO.LKW_Nr - ' Mail.HTMLBody = "Sehr geehrte Damen und Herren,

anbei erhalten Sie die Rechnung Nr. " & RECHNUNG.RechnungsNr & "." - Mail.Attachments.Add(path, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue, , "Dispoliste.pdf") - Mail.Display() + If DispolisteVermerk() Then - Catch ex As Exception - MsgBox("Fehler beim Öffnen des Mail-Programmes. PDF wird geladen!") + Dim path = SDL.FormularManagerNEU.DispSendungslisteoListe(AvisoID, False,, cboFormulareRgAn._value) + If path <> "" Then + Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA + Case "IMEX" Process.Start(path) - End Try - End Select - DispolisteVermerk() + Case Else + Try + Dim outl As New Outlook.Application + Dim Mail As Microsoft.Office.Interop.Outlook.MailItem + Mail = outl.CreateItem(0) + Mail.Subject = "Dispoliste LKW-Nr: " & AVISO.LKW_Nr + ' Mail.HTMLBody = "Sehr geehrte Damen und Herren,

anbei erhalten Sie die Rechnung Nr. " & RECHNUNG.RechnungsNr & "." + Mail.Attachments.Add(path, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue, , "Dispoliste.pdf") + Mail.Display() + + Catch ex As Exception + MsgBox("Fehler beim Öffnen des Mail-Programmes. PDF wird geladen!") + Process.Start(path) + End Try + End Select + ' DispolisteVermerk() + End If + Panel4.Visible = False End If - Panel4.Visible = False End Sub Private Sub Button18_Click(sender As Object, e As EventArgs) Handles Button18.Click @@ -1993,7 +2254,295 @@ Public Class usrcntlAktDetails End Sub Private Sub Button9_Click(sender As Object, e As EventArgs) Handles btnKasse_User.Click - Dim path = SDL.FormularManagerNEU.DispSendungslisteoListe(AvisoID, False) - If path <> "" Then Process.Start(path) : DispolisteVermerk() + If DispolisteVermerk() Then + Dim path = SDL.FormularManagerNEU.DispSendungslisteoListe(AvisoID, False,, cboFormulareRgAn._value) + If path <> "" Then Process.Start(path) + Panel4.Visible = False + End If End Sub + + Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click + pnlDetailsRechts.Cursor = Cursors.WaitCursor + + Dim ANH_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge) + VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge.LOAD_LIST_ByAviso(ANH_LIST, AvisoID) 'LÄDT alle Aviso-Anhänge + For Each l In ANH_LIST + If l.anh_LaufzettelDruck Then + If vbYes = MsgBox("Es wurden Anhänge zum Drucken markiert! Sollen diese gedruckt werden?", vbYesNoCancel) Then + For Each ll In ANH_LIST + If ll.anh_LaufzettelDruck Then + Select Case ll.anh_Typ + Case "PDF" : VERAG_PROG_ALLGEMEIN.cFormularManager.PrintViaSpirePDF({VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(ll.anh_docId)}) + ' Case "BILD" : VERAG_PROG_ALLGEMEIN.cFormularManager.Print_PICTURE({VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(ll.anh_docId)}) + Case Else : Process.Start(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(ll.anh_docId)) + End Select + End If + Next + End If + Exit For + End If + Next + + Dim path = SDL.FormularManagerNEU.LaufzettelZollDE(AvisoID, False) + If path <> "" Then Process.Start(path) + Panel4.Visible = False + pnlDetailsRechts.Cursor = Cursors.Default + End Sub + + Private Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click + + If vbYes = MsgBox("Möchten Sie alle Aktendeckel drucken?", vbYesNoCancel) Then + Me.Cursor = Cursors.WaitCursor + Dim SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen) + VERAG_PROG_ALLGEMEIN.cSendungen.LOAD_LIST(SENDUNG_LIST, -1, AvisoID) 'LÄDT alle SENDUNGSDATEN + + For Each s In SENDUNG_LIST + If checkcbxAlleFirmen(s.FilialenNr) Then + If Not s.tblSnd_Fremdspedition Then If CInt(s.AbfertigungsNr) < 100000 Then MsgBox("Es wurden nicht alle Abfertigungsnummern vergeben!") : Exit Sub + End If + Next + + Dim Printername = "" + Dim oPS As New System.Drawing.Printing.PrinterSettings + Try + Printername = oPS.PrinterName + Catch ex As System.Exception + End Try + + 'Dim trd = New Threading.Thread(Sub() + For Each s In SENDUNG_LIST + If checkcbxAlleFirmen(s.FilialenNr) Then + If Not s.tblSnd_Fremdspedition Then SendungOptions.PrintSendung("PRINT", s, AVISO, Printername) + End If + Next + ' End Sub) + ' trd.IsBackground = True : trd.Start() + Me.Cursor = Cursors.Default + End If + End Sub + + Private Sub HervorhebenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles HervorhebenToolStripMenuItem.Click + If gridVermerke.SelectedRows.Count = 0 Then Exit Sub + Dim index As Integer = -1 + If (dgvSendungen.SelectedRows.Count > 0) Then index = dgvSendungen.SelectedRows(0).Index + VermerkeDAL.toggleHervorheben(CInt(gridVermerke.SelectedRows(0).Cells("VermerkID").Value)) + Vermerke_anzeigen(index) + + End Sub + + Private Sub Button12_Click(sender As Object, e As EventArgs) Handles Button12.Click + Try + + If vbYes = MsgBox("Möchten Sie alle Steuerbescheide drucken?", vbYesNoCancel) Then + Me.Cursor = Cursors.WaitCursor + + Dim SPEDBUCHLIST As New List(Of VERAG_PROG_ALLGEMEIN.cSpeditionsbuch) + + Dim SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen) + VERAG_PROG_ALLGEMEIN.cSendungen.LOAD_LIST(SENDUNG_LIST, -1, AvisoID) 'LÄDT alle SENDUNGSDATEN + + Dim allEntry = True + For Each s In SENDUNG_LIST + If checkcbxAlleFirmen(s.FilialenNr) Then + If Not s.tblSnd_Fremdspedition Then + If s.tblSnd_SpeditionsbuchEingetragen Then + + If (s.FilialenNr > 0 And s.AbfertigungsNr > 0) Then + Dim SP_LIST As New VERAG_PROG_ALLGEMEIN.cSpeditionsbuchList(s.FilialenNr, s.AbfertigungsNr) + For Each i In SP_LIST.LIST + SPEDBUCHLIST.Add(i) + Next + End If + Else + allEntry = False + End If + End If + End If + Next + + If allEntry = False Then + If vbNo = MsgBox("Es wurden nicht alle Sendungen ins Speditionsbuch eingetragen. Der Ausdruck der Steuerbescheide ist möglicherweise unvollständig." & vbNewLine & vbNewLine & "Soll der Vorgang fortgesetzt werden?", vbYesNo) Then + Exit Sub + End If + End If + + Dim Printername = "" + Dim oPS As New System.Drawing.Printing.PrinterSettings + Try + Printername = oPS.PrinterName + Catch ex As System.Exception + End Try + + For Each s In SPEDBUCHLIST + If s.DokumentId_Steuerbeleg IsNot Nothing AndAlso s.DokumentId_Steuerbeleg > 0 Then + VERAG_PROG_ALLGEMEIN.cFormularManager.PrintViaSpirePDF({VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(s.DokumentId_Steuerbeleg)}) + End If + If s.DokumentId_Mitteilung IsNot Nothing AndAlso s.DokumentId_Mitteilung > 0 Then + VERAG_PROG_ALLGEMEIN.cFormularManager.PrintViaSpirePDF({VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(s.DokumentId_Mitteilung)}) + End If + Next + + End If + + Catch ex As Exception + MsgBox(ex.Message & ex.StackTrace) + End Try + Me.Cursor = Cursors.Default + End Sub + + Function checkcbxAlleFirmen(FilialenNr) As Boolean + If cbxAlleFirmen.Checked Then + Return True + Else + Select Case FilialenNr + Case "5501" : If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "IMEX" Then Return True + Case "5601" : If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "UNISPED" Then Return True + Case Else + If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG " Then Return True + End Select + Return False + End If + End Function + + Private Sub Button13_Click(sender As Object, e As EventArgs) Handles btnSendungslisteUNISPED.Click + genUNISPED_Excel(AvisoID) + End Sub + + Shared Function genUNISPED_Excel(AvisoID As Integer, Optional printReportElsePDF As Boolean = False) As String + Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues) + ' Dim odoc As Microsoft.Office.Interop.Excel.Sheets = Nothing + Dim oExc As New Microsoft.Office.Interop.Excel.Application + + Dim excelBook As Excel.Workbook + + Try + + Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", "UNISPED", "", "Sendungsliste_UNISPED") + Dim pfadWord = DS.GET_TOP1_PATH(False) + + ' Dim cGenWord As New cGenWord + + ' oExc = cGenWord.openWord(pfadWord, False, oWord) + excelBook = oExc.Workbooks.Open(pfadWord) + + + 'Dim vname = "" + 'If VERAG_PROG_ALLGEMEIN.cAllgemein.USR_VNAME.Length > 0 Then vname = VERAG_PROG_ALLGEMEIN.cAllgemein.USR_VNAME.Substring(0, 1) & "." + + Dim AVISO = VERAG_PROG_ALLGEMEIN.cAviso.getAvisoById(AvisoID) + + oExc.Range("C4").Value = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.Fullname + ' oExc.Range("C5").Value = usrCntl.txtFilialeLKWId.Text + oExc.Range("I7").Value = AVISO.LKW_Nr + + oExc.Range("I5").Value = Now.ToShortDateString + ' oExc.Range("C7").Value = usrCntl.txtT1Gestellung.Text + ' oExc.Range("F7").Value = usrCntl.txtBezugsNrSumA.Text + + + oExc.Range("F4").Value = If(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_durchwahl <> "", VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_durchwahl, "+43 7711 / 2777 - 0") + + + 'Wenn die Excel-Vorlage nciht reicht, werden neue Zeilen eingefügt + + + + Dim i = 0 + + + Dim SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen) + VERAG_PROG_ALLGEMEIN.cSendungen.LOAD_LIST(SENDUNG_LIST, -1, AvisoID) 'LÄDT alle SENDUNGSDATEN + For cnt = 13 To SENDUNG_LIST.Count + oExc.Range("A11").EntireRow.Copy() + oExc.Range("A11").EntireRow.Insert(Excel.XlDirection.xlDown) + Next + + + Dim colli As Double = 0 + Dim gewicht As Double = 0 + For Each s In SENDUNG_LIST + oExc.Range("A" & (i + 11)).Value = (i + 1) + oExc.Range("B" & (i + 11)).Value = s.tblSnd_Warenbezeichnung + oExc.Range("C" & (i + 11)).Value = s.tblSnd_Colli.Replace(".", "") ' Damit nicht falsche kommastelle erzuegt wird + oExc.Range("D" & (i + 11)).Value = s.tblSnd_Gewicht + oExc.Range("E" & (i + 11)).Value = s.tblSnd_Absender + oExc.Range("F" & (i + 11)).Value = s.tblSnd_Empfaenger + oExc.Range("G" & (i + 11)).Value = s.tblSnd_Abfertigungsart_ID + Dim HandlingTxt = "" + s.LOAD_HANDLING() + For Each ata In s.HANDLING + HandlingTxt &= ata.sndhdg_nr & ", " + Next + If HandlingTxt.EndsWith(", ") Then HandlingTxt = HandlingTxt.Substring(0, HandlingTxt.Length - 2) + oExc.Range("H" & (i + 11)).Value = HandlingTxt.Trim + + oExc.Range("I" & (i + 11)).Value = s.tblSnd_Anmerkung + + If IsNumeric(s.tblSnd_Colli) Then colli += CInt(s.tblSnd_Colli) + If IsNumeric(s.tblSnd_Gewicht) Then gewicht += CInt(s.tblSnd_Gewicht) + ' oExc.Range("H" & (i + 11)).Value = s.txtAtaMrn.Text + ' oExc.Range("I" & (i + 11)).Value = s.rtbBemerkung.Text + + i += 1 + Next + + oExc.Range("C8").Value = colli.ToString.Replace(".", "") ' Damit nicht falsche kommastelle erzuegt wird + oExc.Range("D8").Value = gewicht.ToString.Replace(".", "") + + 'For Each c In usrCntl.MyFlowLayoutPanel1.Controls + ' Dim tmp = DirectCast(c, usrCntlSA_GestellungElemente) 'For i = 1 To i = 3 + ' oExc.Range("A" & (i + 11)).Value = tmp.lbl1.Text ' (i + 1) + ' oExc.Range("B" & (i + 11)).Value = tmp.txtWarenbezeichnung.Text + ' oExc.Range("C" & (i + 11)).Value = tmp.txtColli.Text.Replace(".", "") ' Damit nicht falsche kommastelle erzuegt wird + ' oExc.Range("D" & (i + 11)).Value = tmp.txtGewicht.Text + ' oExc.Range("E" & (i + 11)).Value = tmp.txtAbsender.Text + ' oExc.Range("F" & (i + 11)).Value = tmp.txtEmpfaenger.Text + ' oExc.Range("G" & (i + 11)).Value = tmp.cboAbfertigungsart.Text + ' oExc.Range("H" & (i + 11)).Value = tmp.txtAtaMrn.Text + ' oExc.Range("I" & (i + 11)).Value = tmp.rtbBemerkung.Text + + ' i += 1 + 'Next + + + Dim p = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath("Sendungsliste_UNISPED" & ".xlsx", ".xlsx", True, False) + + excelBook.SaveAs(p) ': oExc.Activate() + + + If printReportElsePDF Then 'NUR DRUCK!! + oExc.Visible = False + + 'Print + oExc.Workbooks(1).PrintOutEx() '1, 1, 1, True) + + Try + oExc.Workbooks.Close() + oExc.Quit() + Catch ex As Exception + MsgBox(ex.Message) + End Try + Else + oExc.Visible = True + End If + + + ' Dim path = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath(nameDispo & ".pdf", ".pdf", True, False) + + ' odoc.SaveAs(path, Word.WdSaveFormat.wdFormatPDF) + + + Return "" + ' Return pfadWord + + + + Catch ex As Exception + MessageBox.Show(ex.ToString & ex.StackTrace) + End Try + + Return "" + End Function + End Class + diff --git a/Aviso/usrcntlAktDetailsATILLANeu.Designer.vb b/Aviso/usrcntlAktDetailsATILLANeu.Designer.vb index ead9b9f..7be5e2d 100644 --- a/Aviso/usrcntlAktDetailsATILLANeu.Designer.vb +++ b/Aviso/usrcntlAktDetailsATILLANeu.Designer.vb @@ -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 diff --git a/Aviso/usrcntlAktDetailsATILLANeu.vb b/Aviso/usrcntlAktDetailsATILLANeu.vb index 05f3cdc..340d9fe 100644 --- a/Aviso/usrcntlAktDetailsATILLANeu.vb +++ b/Aviso/usrcntlAktDetailsATILLANeu.vb @@ -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 diff --git a/AvisoTV/App.config b/AvisoTV/App.config index 1729194..5f70bbd 100644 --- a/AvisoTV/App.config +++ b/AvisoTV/App.config @@ -1,6 +1,6 @@ - + diff --git a/AvisoTV/AvisoTV.vbproj b/AvisoTV/AvisoTV.vbproj index c241f95..7fdff9a 100644 --- a/AvisoTV/AvisoTV.vbproj +++ b/AvisoTV/AvisoTV.vbproj @@ -1,5 +1,5 @@  - + Debug x86 @@ -13,7 +13,7 @@ AvisoTV 512 WindowsForms - v4.5 + v4.7 publish\ @@ -126,9 +126,9 @@ VbMyResourcesResXFileCodeGenerator - Resources.Designer.vb My.Resources Designer + Resources.Designer.vb @@ -166,6 +166,8 @@ + + diff --git a/AvisoTV/My Project/Application.Designer.vb b/AvisoTV/My Project/Application.Designer.vb index 1e5334b..863687e 100644 --- a/AvisoTV/My Project/Application.Designer.vb +++ b/AvisoTV/My Project/Application.Designer.vb @@ -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. ' diff --git a/AvisoTV/My Project/Resources.Designer.vb b/AvisoTV/My Project/Resources.Designer.vb index f54c07e..f6a55b8 100644 --- a/AvisoTV/My Project/Resources.Designer.vb +++ b/AvisoTV/My Project/Resources.Designer.vb @@ -22,7 +22,7 @@ Namespace My.Resources ''' ''' Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw. ''' - _ @@ -107,6 +107,25 @@ Namespace My.Resources End Get End Property + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + 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 + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die ähnelt. + ''' + Friend ReadOnly Property ggg5ggggggg() As String + Get + Return ResourceManager.GetString("ggg5ggggggg", resourceCulture) + End Get + End Property + ''' ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. ''' @@ -136,6 +155,16 @@ Namespace My.Resources End Get End Property + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + 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 + ''' ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. ''' diff --git a/AvisoTV/My Project/Resources.resx b/AvisoTV/My Project/Resources.resx index 7f9a07d..31ddf54 100644 --- a/AvisoTV/My Project/Resources.resx +++ b/AvisoTV/My Project/Resources.resx @@ -154,4 +154,13 @@ ..\Resources\IMEX-LOGO_simple.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\Unisped_logo.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\FrontOfficeSUB.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + + \ No newline at end of file diff --git a/AvisoTV/My Project/Settings.Designer.vb b/AvisoTV/My Project/Settings.Designer.vb index 5a0643e..9031014 100644 --- a/AvisoTV/My Project/Settings.Designer.vb +++ b/AvisoTV/My Project/Settings.Designer.vb @@ -15,21 +15,21 @@ Option Explicit On Namespace My _ 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 _ - 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 diff --git a/AvisoTV/Resources/FrontOfficeSUB.jpg b/AvisoTV/Resources/FrontOfficeSUB.jpg new file mode 100644 index 0000000..1af48a5 Binary files /dev/null and b/AvisoTV/Resources/FrontOfficeSUB.jpg differ diff --git a/AvisoTV/Resources/Unisped_logo.jpg b/AvisoTV/Resources/Unisped_logo.jpg new file mode 100644 index 0000000..b36b587 Binary files /dev/null and b/AvisoTV/Resources/Unisped_logo.jpg differ diff --git a/AvisoTV/frmAnzeige.Designer.vb b/AvisoTV/frmAnzeige.Designer.vb index 2b7a336..2c3ba6a 100644 --- a/AvisoTV/frmAnzeige.Designer.vb +++ b/AvisoTV/frmAnzeige.Designer.vb @@ -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 diff --git a/AvisoTV/frmAnzeige.vb b/AvisoTV/frmAnzeige.vb index 94b4af2..8891109 100644 --- a/AvisoTV/frmAnzeige.vb +++ b/AvisoTV/frmAnzeige.vb @@ -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 diff --git a/Diverses/aviso_messenger.png b/Diverses/aviso_messenger.png new file mode 100644 index 0000000..756a2ac Binary files /dev/null and b/Diverses/aviso_messenger.png differ diff --git a/Diverses/digitalerAkt.jpg b/Diverses/digitalerAkt.jpg new file mode 100644 index 0000000..246f44f Binary files /dev/null and b/Diverses/digitalerAkt.jpg differ diff --git a/Diverses/digitalerAkt_small.jpg b/Diverses/digitalerAkt_small.jpg new file mode 100644 index 0000000..7040302 Binary files /dev/null and b/Diverses/digitalerAkt_small.jpg differ diff --git a/Diverses/miniButtons/statusBtn_vorbereitet.psd b/Diverses/miniButtons/statusBtn_vorbereitet.psd new file mode 100644 index 0000000..bb4089c Binary files /dev/null and b/Diverses/miniButtons/statusBtn_vorbereitet.psd differ diff --git a/Diverses/miniButtons/statusBtn_vorbereitet_Aktiv.jpg b/Diverses/miniButtons/statusBtn_vorbereitet_Aktiv.jpg new file mode 100644 index 0000000..bc2ff60 Binary files /dev/null and b/Diverses/miniButtons/statusBtn_vorbereitet_Aktiv.jpg differ diff --git a/Diverses/miniButtons/statusBtn_vorbereitet_InAktiv.jpg b/Diverses/miniButtons/statusBtn_vorbereitet_InAktiv.jpg new file mode 100644 index 0000000..15652bd Binary files /dev/null and b/Diverses/miniButtons/statusBtn_vorbereitet_InAktiv.jpg differ diff --git a/Diverses/miniButtons/statusBtn_vorgeschrieben.psd b/Diverses/miniButtons/statusBtn_vorgeschrieben.psd new file mode 100644 index 0000000..c38b07d Binary files /dev/null and b/Diverses/miniButtons/statusBtn_vorgeschrieben.psd differ diff --git a/Diverses/miniButtons/statusBtn_vorgeschrieben_Aktiv.jpg b/Diverses/miniButtons/statusBtn_vorgeschrieben_Aktiv.jpg new file mode 100644 index 0000000..aaa6c8d Binary files /dev/null and b/Diverses/miniButtons/statusBtn_vorgeschrieben_Aktiv.jpg differ diff --git a/Diverses/miniButtons/statusBtn_vorgeschrieben_InAktiv.jpg b/Diverses/miniButtons/statusBtn_vorgeschrieben_InAktiv.jpg new file mode 100644 index 0000000..5dfaefa Binary files /dev/null and b/Diverses/miniButtons/statusBtn_vorgeschrieben_InAktiv.jpg differ diff --git a/Diverses/personCheck.jpg b/Diverses/personCheck.jpg new file mode 100644 index 0000000..37b3d35 Binary files /dev/null and b/Diverses/personCheck.jpg differ diff --git a/Diverses/personCheck.png b/Diverses/personCheck.png new file mode 100644 index 0000000..302c280 Binary files /dev/null and b/Diverses/personCheck.png differ diff --git a/Diverses/personCheck_blue.png b/Diverses/personCheck_blue.png new file mode 100644 index 0000000..d609179 Binary files /dev/null and b/Diverses/personCheck_blue.png differ diff --git a/Diverses/personCheck_blue_small.png b/Diverses/personCheck_blue_small.png new file mode 100644 index 0000000..ffe3b9f Binary files /dev/null and b/Diverses/personCheck_blue_small.png differ diff --git a/Diverses/personCheck_gray_small.png b/Diverses/personCheck_gray_small.png new file mode 100644 index 0000000..a20d4d3 Binary files /dev/null and b/Diverses/personCheck_gray_small.png differ diff --git a/Diverses/personCheck_small.png b/Diverses/personCheck_small.png new file mode 100644 index 0000000..002d3c4 Binary files /dev/null and b/Diverses/personCheck_small.png differ diff --git a/Gemeinsames/Gemeinsames.vbproj b/Gemeinsames/Gemeinsames.vbproj index 0238aa7..bdbdeac 100644 --- a/Gemeinsames/Gemeinsames.vbproj +++ b/Gemeinsames/Gemeinsames.vbproj @@ -158,6 +158,12 @@ Component + + subRptSendungenATA.vb + + + Component + subRptSendungenZollpruefung.vb @@ -188,6 +194,9 @@ rptSendungen.vb + + subRptSendungenATA.vb + subRptSendungenZollpruefung.vb diff --git a/Gemeinsames/rptSendungen.Designer.vb b/Gemeinsames/rptSendungen.Designer.vb index dd749f3..9da93c3 100644 --- a/Gemeinsames/rptSendungen.Designer.vb +++ b/Gemeinsames/rptSendungen.Designer.vb @@ -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 = "€ 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 = "€ 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 = "€ 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 = "€ 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 = "€ 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 diff --git a/Gemeinsames/rptSendungen.resx b/Gemeinsames/rptSendungen.resx index ba2d493..56aca91 100644 --- a/Gemeinsames/rptSendungen.resx +++ b/Gemeinsames/rptSendungen.resx @@ -156,6 +156,21 @@ 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 + + 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 + + + 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 + + + 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 + + + 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 + + + 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 + 0, 0 diff --git a/Gemeinsames/rptSendungen.vb b/Gemeinsames/rptSendungen.vb index 87c1e6d..4d95478 100644 --- a/Gemeinsames/rptSendungen.vb +++ b/Gemeinsames/rptSendungen.vb @@ -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,14 +174,16 @@ 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 - End If - End If + 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 Sub Private Sub Detail_Format(sender As Object, e As EventArgs) Handles Detail.Format @@ -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 = "" diff --git a/Gemeinsames/subRptSendungenATA.Designer.vb b/Gemeinsames/subRptSendungenATA.Designer.vb new file mode 100644 index 0000000..f4a9fd5 --- /dev/null +++ b/Gemeinsames/subRptSendungenATA.Designer.vb @@ -0,0 +1,136 @@ + +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 + + 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 diff --git a/Gemeinsames/subRptSendungenATA.resx b/Gemeinsames/subRptSendungenATA.resx new file mode 100644 index 0000000..e8cbd0f --- /dev/null +++ b/Gemeinsames/subRptSendungenATA.resx @@ -0,0 +1,126 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 0, 0 + + + 0, 0 + + \ No newline at end of file diff --git a/Gemeinsames/subRptSendungenATA.vb b/Gemeinsames/subRptSendungenATA.vb new file mode 100644 index 0000000..19f0024 --- /dev/null +++ b/Gemeinsames/subRptSendungenATA.vb @@ -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