diff --git a/Aviso/My Project/Application.Designer.vb b/Aviso/My Project/Application.Designer.vb index c6a8fea..a77e014 100644 --- a/Aviso/My Project/Application.Designer.vb +++ b/Aviso/My Project/Application.Designer.vb @@ -32,7 +32,7 @@ Namespace My _ Protected Overrides Sub OnCreateMainForm() - Me.MainForm = AVISO.frmLogin + Me.MainForm = Global.AVISO.frmLogin End Sub End Class End Namespace diff --git a/Aviso/My Project/Application.myapp b/Aviso/My Project/Application.myapp index 2677266..be9cfcc 100644 --- a/Aviso/My Project/Application.myapp +++ b/Aviso/My Project/Application.myapp @@ -1,5 +1,5 @@  - + true frmLogin false diff --git a/Aviso/My Project/AssemblyInfo.vb b/Aviso/My Project/AssemblyInfo.vb index 34a8eb7..a0fa726 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/Settings.Designer.vb b/Aviso/My Project/Settings.Designer.vb index 0072724..b9dc239 100644 --- a/Aviso/My Project/Settings.Designer.vb +++ b/Aviso/My Project/Settings.Designer.vb @@ -15,7 +15,7 @@ Option Explicit On Namespace My _ Partial Friend NotInheritable Class MySettings Inherits Global.System.Configuration.ApplicationSettingsBase diff --git a/Aviso/frmHauptfenster.vb b/Aviso/frmHauptfenster.vb index 8c59016..089d032 100644 --- a/Aviso/frmHauptfenster.vb +++ b/Aviso/frmHauptfenster.vb @@ -1235,7 +1235,7 @@ Public Class frmHauptfenster If cboMyAvisoAnzeige._value <> "" Then If cboMyAvisoAnzeige._value = "ALLE" Then ' inBearbeitungSQL = " 1=1 " 'ALLE - inBearbeitungSQL = " ( (tblSendungen.[tblSnd_TeamId] IN (SELECT [team_id] FROM [ADMIN].[dbo].[tblTeams] WHERE [team_firma]='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "')) OR (Aviso.[TeamId] IN (SELECT [team_id] FROM [ADMIN].[dbo].[tblTeams] WHERE [team_firma]='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' AND tblSendungen.[tblSnd_TeamId] is null)) OR tblSendungen.LetzterMitarbeiterId=@maId) " + inBearbeitungSQL = " ( (tblSendungen.[tblSnd_TeamId] IN (SELECT [team_id] FROM [ADMIN].[dbo].[tblTeams] WHERE [team_firma]='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "')) OR (Aviso.[TeamId] IN (SELECT [team_id] FROM [ADMIN].[dbo].[tblTeams] WHERE [team_firma]='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' AND tblSendungen.[tblSnd_TeamId] is null)) OR [tblSendungen].tblSnd_firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' OR tblSendungen.LetzterMitarbeiterId=@maId) " ElseIf cboMyAvisoAnzeige._value = "T1" Then inBearbeitungSQL = " tblSnd_Abfertigungsart_ID=5 " 'NUR VERAG/IMEX: diff --git a/Aviso/frmSendungsdetailsNEU.Designer.vb b/Aviso/frmSendungsdetailsNEU.Designer.vb index ff435b4..876c513 100644 --- a/Aviso/frmSendungsdetailsNEU.Designer.vb +++ b/Aviso/frmSendungsdetailsNEU.Designer.vb @@ -24,10 +24,10 @@ 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 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.pnl = New System.Windows.Forms.Panel() Me.Panel4 = New System.Windows.Forms.Panel() Me.TabControl1 = New System.Windows.Forms.TabControl() @@ -35,6 +35,7 @@ Partial Class frmSendungsdetailsNEU Me.pnlKundenInfo = New System.Windows.Forms.Panel() Me.Panel20 = New System.Windows.Forms.Panel() Me.tbAnhang = New System.Windows.Forms.TabPage() + Me.dgvAnhang = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) Me.btnDirektAnfuegen = New System.Windows.Forms.Button() Me.Panel19 = New System.Windows.Forms.Panel() Me.Button17 = New System.Windows.Forms.Button() @@ -52,7 +53,6 @@ Partial Class frmSendungsdetailsNEU Me.btnOptionen = New System.Windows.Forms.Button() Me.btnImportAssi = New System.Windows.Forms.Button() Me.lblAnhaenge = New System.Windows.Forms.Label() - Me.dgvAnhang = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) Me.tbZollabfertigung = New System.Windows.Forms.TabPage() Me.Panel16 = New System.Windows.Forms.Panel() Me.dgvZollAnmeldungen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) @@ -408,14 +408,17 @@ Partial Class frmSendungsdetailsNEU 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.ToolStripMenuItem28 = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem29 = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem30 = New System.Windows.Forms.ToolStripMenuItem() Me.pnl.SuspendLayout() Me.Panel4.SuspendLayout() Me.TabControl1.SuspendLayout() Me.tbKundenInfo.SuspendLayout() Me.tbAnhang.SuspendLayout() + CType(Me.dgvAnhang, System.ComponentModel.ISupportInitialize).BeginInit() Me.Panel19.SuspendLayout() Me.Panel21.SuspendLayout() - CType(Me.dgvAnhang, System.ComponentModel.ISupportInitialize).BeginInit() Me.tbZollabfertigung.SuspendLayout() Me.Panel16.SuspendLayout() CType(Me.dgvZollAnmeldungen, System.ComponentModel.ISupportInitialize).BeginInit() @@ -555,6 +558,24 @@ Partial Class frmSendungsdetailsNEU 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.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, 243) + Me.dgvAnhang.TabIndex = 1 + ' 'btnDirektAnfuegen ' Me.btnDirektAnfuegen.Enabled = False @@ -772,24 +793,6 @@ Partial Class frmSendungsdetailsNEU Me.lblAnhaenge.TabIndex = 0 Me.lblAnhaenge.Text = "Anhänge" ' - '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.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, 243) - Me.dgvAnhang.TabIndex = 1 - ' 'tbZollabfertigung ' Me.tbZollabfertigung.Controls.Add(Me.Panel16) @@ -1448,18 +1451,18 @@ 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 + DataGridViewCellStyle9.BackColor = System.Drawing.Color.Azure + DataGridViewCellStyle9.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.gridVermerke.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle9 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("Microsoft Sans Serif", 8.25!) - 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 + DataGridViewCellStyle10.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle10.BackColor = System.Drawing.Color.LightBlue + DataGridViewCellStyle10.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!) + DataGridViewCellStyle10.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle10.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle10.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle10.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.gridVermerke.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle10 Me.gridVermerke.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing Me.gridVermerke.Dock = System.Windows.Forms.DockStyle.Fill Me.gridVermerke.Location = New System.Drawing.Point(0, 0) @@ -1468,8 +1471,8 @@ Partial Class frmSendungsdetailsNEU Me.gridVermerke.ReadOnly = True Me.gridVermerke.RowHeadersVisible = False Me.gridVermerke.RowHeadersWidthSizeMode = System.Windows.Forms.DataGridViewRowHeadersWidthSizeMode.DisableResizing - DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.gridVermerke.RowsDefaultCellStyle = DataGridViewCellStyle3 + DataGridViewCellStyle11.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.gridVermerke.RowsDefaultCellStyle = DataGridViewCellStyle11 Me.gridVermerke.RowTemplate.Height = 20 Me.gridVermerke.RowTemplate.ReadOnly = True Me.gridVermerke.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[False] @@ -2214,8 +2217,8 @@ Partial Class frmSendungsdetailsNEU 'clmnPreis ' Me.clmnPreis.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill - DataGridViewCellStyle4.Format = "C2" - Me.clmnPreis.DefaultCellStyle = DataGridViewCellStyle4 + DataGridViewCellStyle12.Format = "C2" + Me.clmnPreis.DefaultCellStyle = DataGridViewCellStyle12 Me.clmnPreis.HeaderText = "Preis" Me.clmnPreis.MaxInputLength = 15 Me.clmnPreis.Name = "clmnPreis" @@ -4837,7 +4840,7 @@ Partial Class frmSendungsdetailsNEU Me.ToolStripMenuItem4.Font = New System.Drawing.Font("Segoe UI", 9.0!) Me.ToolStripMenuItem4.Image = Global.AVISO.My.Resources.Resources.plus Me.ToolStripMenuItem4.Name = "ToolStripMenuItem4" - Me.ToolStripMenuItem4.Size = New System.Drawing.Size(97, 26) + Me.ToolStripMenuItem4.Size = New System.Drawing.Size(93, 22) Me.ToolStripMenuItem4.Text = "T1" ' 'ToolStripMenuItem5 @@ -4845,7 +4848,7 @@ Partial Class frmSendungsdetailsNEU Me.ToolStripMenuItem5.Font = New System.Drawing.Font("Segoe UI", 9.0!) Me.ToolStripMenuItem5.Image = Global.AVISO.My.Resources.Resources.plus Me.ToolStripMenuItem5.Name = "ToolStripMenuItem5" - Me.ToolStripMenuItem5.Size = New System.Drawing.Size(97, 26) + Me.ToolStripMenuItem5.Size = New System.Drawing.Size(93, 22) Me.ToolStripMenuItem5.Text = "T2" ' 'ÜTToolStripMenuItem @@ -4853,7 +4856,7 @@ Partial Class frmSendungsdetailsNEU Me.ÜTToolStripMenuItem.Enabled = False Me.ÜTToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.plus Me.ÜTToolStripMenuItem.Name = "ÜTToolStripMenuItem" - Me.ÜTToolStripMenuItem.Size = New System.Drawing.Size(97, 26) + Me.ÜTToolStripMenuItem.Size = New System.Drawing.Size(93, 22) Me.ÜTToolStripMenuItem.Text = "Ü-T" ' 'NeueZollanmeldungToolStripMenuItem @@ -5099,9 +5102,9 @@ Partial Class frmSendungsdetailsNEU 'ContextMenuStrip1 ' Me.ContextMenuStrip1.ImageScalingSize = New System.Drawing.Size(24, 24) - Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem15, Me.T1BestätigungToolStripMenuItem, Me.SpeditionSUBENToolStripMenuItem, Me.ToolStripMenuItem16, Me.AuftragATANAKToolStripMenuItem, Me.ToolStripMenuItem26, Me.ToolStripMenuItem27, Me.ToolStripMenuItem25, Me.GVMSInfoToolStripMenuItem, Me.WarenortAMBARToolStripMenuItem, Me.AuftragMOTISToolStripMenuItem}) + Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem15, Me.T1BestätigungToolStripMenuItem, Me.SpeditionSUBENToolStripMenuItem, Me.ToolStripMenuItem16, Me.AuftragATANAKToolStripMenuItem, Me.ToolStripMenuItem26, Me.ToolStripMenuItem27, Me.ToolStripMenuItem28, Me.ToolStripMenuItem25, Me.GVMSInfoToolStripMenuItem, Me.WarenortAMBARToolStripMenuItem, Me.AuftragMOTISToolStripMenuItem}) Me.ContextMenuStrip1.Name = "cntxtAnh" - Me.ContextMenuStrip1.Size = New System.Drawing.Size(223, 334) + Me.ContextMenuStrip1.Size = New System.Drawing.Size(223, 386) ' 'ToolStripMenuItem15 ' @@ -5174,14 +5177,14 @@ Partial Class frmSendungsdetailsNEU ' Me.ATANAKTRFraechter.Image = CType(resources.GetObject("ATANAKTRFraechter.Image"), System.Drawing.Image) Me.ATANAKTRFraechter.Name = "ATANAKTRFraechter" - Me.ATANAKTRFraechter.Size = New System.Drawing.Size(234, 26) + Me.ATANAKTRFraechter.Size = New System.Drawing.Size(230, 22) Me.ATANAKTRFraechter.Text = "ATANAK (TR Frächter)" ' 'ATANAKEUFraechter ' Me.ATANAKEUFraechter.Image = CType(resources.GetObject("ATANAKEUFraechter.Image"), System.Drawing.Image) Me.ATANAKEUFraechter.Name = "ATANAKEUFraechter" - Me.ATANAKEUFraechter.Size = New System.Drawing.Size(234, 26) + Me.ATANAKEUFraechter.Size = New System.Drawing.Size(230, 22) Me.ATANAKEUFraechter.Text = "ATANAK (EU/andere Frächter)" ' 'ToolStripMenuItem26 @@ -5210,14 +5213,14 @@ Partial Class frmSendungsdetailsNEU ' Me.AktuelleSendungAnhängeWählenToolStripMenuItem.Image = CType(resources.GetObject("AktuelleSendungAnhängeWählenToolStripMenuItem.Image"), System.Drawing.Image) Me.AktuelleSendungAnhängeWählenToolStripMenuItem.Name = "AktuelleSendungAnhängeWählenToolStripMenuItem" - Me.AktuelleSendungAnhängeWählenToolStripMenuItem.Size = New System.Drawing.Size(271, 26) + Me.AktuelleSendungAnhängeWählenToolStripMenuItem.Size = New System.Drawing.Size(275, 30) Me.AktuelleSendungAnhängeWählenToolStripMenuItem.Text = "Aktuelle Sendung (Anhänge wählen)" ' 'AlleLEXSendungenLKWToolStripMenuItem ' Me.AlleLEXSendungenLKWToolStripMenuItem.Image = CType(resources.GetObject("AlleLEXSendungenLKWToolStripMenuItem.Image"), System.Drawing.Image) Me.AlleLEXSendungenLKWToolStripMenuItem.Name = "AlleLEXSendungenLKWToolStripMenuItem" - Me.AlleLEXSendungenLKWToolStripMenuItem.Size = New System.Drawing.Size(271, 26) + Me.AlleLEXSendungenLKWToolStripMenuItem.Size = New System.Drawing.Size(275, 30) Me.AlleLEXSendungenLKWToolStripMenuItem.Text = "Alle LEX Sendungen (LKW)" ' 'GVMSInfoToolStripMenuItem @@ -5232,14 +5235,14 @@ Partial Class frmSendungsdetailsNEU ' Me.AlleEIDRSendungenToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.email_big1 Me.AlleEIDRSendungenToolStripMenuItem.Name = "AlleEIDRSendungenToolStripMenuItem" - Me.AlleEIDRSendungenToolStripMenuItem.Size = New System.Drawing.Size(188, 26) + Me.AlleEIDRSendungenToolStripMenuItem.Size = New System.Drawing.Size(184, 22) Me.AlleEIDRSendungenToolStripMenuItem.Text = "Alle EIDR Sendungen" ' 'AktuelleSendungToolStripMenuItem ' Me.AktuelleSendungToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.email_big1 Me.AktuelleSendungToolStripMenuItem.Name = "AktuelleSendungToolStripMenuItem" - Me.AktuelleSendungToolStripMenuItem.Size = New System.Drawing.Size(188, 26) + Me.AktuelleSendungToolStripMenuItem.Size = New System.Drawing.Size(184, 22) Me.AktuelleSendungToolStripMenuItem.Text = "Aktuelle Sendung" ' 'WarenortAMBARToolStripMenuItem @@ -5279,6 +5282,28 @@ Partial Class frmSendungsdetailsNEU Me.NurÖffnenToolStripMenuItem.Size = New System.Drawing.Size(255, 30) Me.NurÖffnenToolStripMenuItem.Text = "nur öffnen" ' + 'ToolStripMenuItem28 + ' + Me.ToolStripMenuItem28.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem29, Me.ToolStripMenuItem30}) + Me.ToolStripMenuItem28.Image = Global.AVISO.My.Resources.Resources.email_big1 + Me.ToolStripMenuItem28.Name = "ToolStripMenuItem28" + Me.ToolStripMenuItem28.Size = New System.Drawing.Size(222, 30) + Me.ToolStripMenuItem28.Text = "GEBR.WEISS (CH) Aviso" + ' + 'ToolStripMenuItem29 + ' + Me.ToolStripMenuItem29.Image = CType(resources.GetObject("ToolStripMenuItem29.Image"), System.Drawing.Image) + Me.ToolStripMenuItem29.Name = "ToolStripMenuItem29" + Me.ToolStripMenuItem29.Size = New System.Drawing.Size(275, 30) + Me.ToolStripMenuItem29.Text = "Aktuelle Sendung (Anhänge wählen)" + ' + 'ToolStripMenuItem30 + ' + Me.ToolStripMenuItem30.Image = CType(resources.GetObject("ToolStripMenuItem30.Image"), System.Drawing.Image) + Me.ToolStripMenuItem30.Name = "ToolStripMenuItem30" + Me.ToolStripMenuItem30.Size = New System.Drawing.Size(275, 30) + Me.ToolStripMenuItem30.Text = "Alle Sendungen (LKW)" + ' 'frmSendungsdetailsNEU ' Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!) @@ -5299,11 +5324,11 @@ Partial Class frmSendungsdetailsNEU Me.TabControl1.ResumeLayout(False) Me.tbKundenInfo.ResumeLayout(False) Me.tbAnhang.ResumeLayout(False) + CType(Me.dgvAnhang, System.ComponentModel.ISupportInitialize).EndInit() Me.Panel19.ResumeLayout(False) Me.Panel19.PerformLayout() Me.Panel21.ResumeLayout(False) Me.Panel21.PerformLayout() - CType(Me.dgvAnhang, System.ComponentModel.ISupportInitialize).EndInit() Me.tbZollabfertigung.ResumeLayout(False) Me.Panel16.ResumeLayout(False) Me.Panel16.PerformLayout() @@ -5757,4 +5782,7 @@ Partial Class frmSendungsdetailsNEU Friend WithEvents ATANAKEUFraechter As ToolStripMenuItem Friend WithEvents HervorhebenToolStripMenuItem As ToolStripMenuItem Friend WithEvents Button18 As Button + Friend WithEvents ToolStripMenuItem28 As ToolStripMenuItem + Friend WithEvents ToolStripMenuItem29 As ToolStripMenuItem + Friend WithEvents ToolStripMenuItem30 As ToolStripMenuItem End Class diff --git a/Aviso/frmSendungsdetailsNEU.resx b/Aviso/frmSendungsdetailsNEU.resx index 3198ee1..5e6c06d 100644 --- a/Aviso/frmSendungsdetailsNEU.resx +++ b/Aviso/frmSendungsdetailsNEU.resx @@ -1531,6 +1531,9 @@ mVCCPwiVeQBaqAV4Jfq5XQAAAABJRU5ErkJggg== + + 296, 17 + iVBORw0KGgoAAAANSUhEUgAAABQAAAAUCAYAAACNiR0NAAAABGdBTUEAALGPC/xhBQAAAIdJREFUOE/V @@ -1651,6 +1654,18 @@ True + + True + + + True + + + True + + + True + iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAAAHtJREFUSEvt @@ -2059,12 +2074,117 @@ 174, 17 + + 404, 17 + 596, 17 843, 17 + + + iVBORw0KGgoAAAANSUhEUgAAACgAAAAoCAYAAACM/rhtAAAABGdBTUEAALGPC/xhBQAACrNJREFUWEfN + mFlsVNcdxq/6EFVVpRZRpyWKmqVSX5JWlfpQqW+t2qpt0hZsHLfZsMEmpAVlaTAE3ASyN0BWIKRtQoiD + w2ISwHjBxjbed8++epnx2MYeM9jYsy/21++cmbFnxtdZG6kP35x7/vfOPb/7/f/n3DOjAPi/lmrw8+qp + A0dmDr9/eq3aOTWNzYQ9anE1qQY/qwbGpmB0TKLXPo5WoxP12mHUdJp4aumaYY9/yBeKYi4cgy9Fqdd8 + klSDn0WOqRlYXFP46aP7cMcTB/GT4ldRdKgc/lCYAGF4M4Ay5ZwOhNTumynV4KfJMzOHVpMLYYLMRSOY + i0QRCIYIF1lUJlBmbJbfzbyvmlSDmdKPeBzBCAcJE2QFpcIldT28gJt2GeCNhLHqcbahdOjMcdS0LKBz + TvWGmKYAgQTUSpJQGZBCt+w1Y9YXBxb3ubnEgFA0gNUldoSCgS8PGIjOqwIJhXjTuSgIH78mPB9DVomZ + oHygBODqEivWPG1CIBRP+dh0DKsf74dzKoYf7uiSMQnIieOlMsfP1LJAiIChGAGoQNQPX1SAcXC2fzpo + wKrdVsQSgI0mL257sg89Q0HZF4BZJRbMzfuweruR3wsjyNjtew18iBBuprvCdW/Ij1BEgEbxXkUz9v+7 + jEOncyS1LCDABKBzOoJv7bAg6x8W3Frcw8EC8M4HsXqXCav22BHmAFk7tZini7cUa+RDRKIhrHnehqxd + ZtzI67a+p5OA3/w7084HXL3LKh3WOYOLdXpH8Ws4UtGBl49VcPh0FqFlgQV+CMBwjOnaaYZvgemNxd0R + Ln2Hg5ecGcKdxU24eQ9TSZe+/bhwK4bzxmvYdNQm3faz//WtRkRjYQxcWyoBeR/WZhKwtG8UPyo+hPr2 + fo6cziK0LCCUBFyz04Dbdmmx5jkbfvFiiwT/7m4TgnTy9hetuJH1J+oxay+heP0NOwaYNqaVD5KqRTAe + OyanMRuM9wWg1uZEi9GBui4jqjrNHD6dJa2TVFjUHWFWFZvgnw/I40B0gcfz+P72Tuw9O0Jno/jGnmHW + UhT2qSCiGVA+1nI4GMPgFQ8C8wtpoEkJwIo2PdoJ2NBrQXWrhsOns6R1kgrKiRLD/lo3btypQ4V+Gt9j + am8q6efMDWNkOiSh404nBudDhTnowLgH/sQkWkkSjjp1qRMGpxtdFhea+y18TRo5fDpLWkeotqljbZXG + JQf3IYg1xTq4Z8W6FV2EEhJ1KTQ4QaB5yJJQg0mVmEhiVdAMOHGiqhFDHr4ux66h3+ZCq8aGum4ztu1+ + gRifAFjVbsDlfjvmmdJwCpAUnR0mUIBAEcKlnUu5JhVKuCW+4+f9kot/iLoyPYfRaz5Yx6ehG7qCNpNT + prmyVUuMFQBPN/ajqk2HH28/iIXwPKJ82qQirDVVoGXie5YA3rBY65ZAkwqHI3jizZOYnPVxEfdiaPI6 + 9NwRdZpHcFljx8X2FQBPVjfh6CUd7nziDdxJwBCXh1TAlUCDjIU5CSwjkzLl0SjP0y0vzynrDkLJ+xeU + 7Leh/H4/mmxelNU0Y/q6F+45P8ZnAhh2z8LsuirT3KIbQH2njjgqgEaX+6ZL3Sa06IfQaRtB/v4yfFDT + JgGWQRKkx8TFmjBBTpJU4KTCfEAl7yiU9W9ByTnM9giUXAHLvgDOSYDnHsWt2+vRO+xenM0X2pcmyyKg + UF2HVtrcbXbIuhhyTWDk6jQ+aNCgqqVXDhwTgBnAmXCyDpnKZz+oJ4AAI4gAFBKA6xKQUv+GUtgAy7BL + prm624q3q/uIowJY2a5HQ58VbYZh9NtHYaL1okZGPbOYYL00GF0oq26T61oqoJBIvX5onAv2AiLzEUI9 + BeXPdEk4mHRRuif6wkEB/Q6U/Gq4prgzd3lQ0zeIUy1mvFu7tB6mAW5+5i3U95hZC4PosrrkGjVwZZqz + bY6zzoepWT88vgi83DZtPXCc9dSEies+WYNROhdl6v2RBSj3CAjWXxJQuChBEy7m8Dj/ApQNlRLQ4LqG + dtsEavVOnGm3orRBix37jliWAQrVdpm4aNqk3SLNYhlwebyccX5Z2B5fCHPBCILcQQe52xFwx+t6caK6 + hanbTbhDrD26lZvQPUk4KumigCuoimtDFaw0oXNwApf0IzjfY8fxJiMOVXcRRwWwmu/DRqZZFKxmYAzm + UY+cacLFiRkfrs4FMOPlzkZsaql5Aua9cpogYsYSLvdNSrRCCcgcnhOAG+lYgXBtCTDn9T6Y3V5ohyfR + ZHbiAtN8stmIdy7G6zANTvnDo6jkQi1mUitnc499DPqRq7BPJNJ8Pe7itJ+7Ef7mCcdYa/e/QTgBJSRA + 2N4jwAi4nhJwuYQrJJgEJNim6kVAh8cnDRienIXN7cfFfivK28xc8uJ1uAT3uy1Q7tqKLY9sQ02PDc2i + Di0j0A9PwHZlBs6rXq5brEPWnIeQSt7TBCFczmtLgMLFnNfjx9k8l5cA21TBAidUoYATYIxtYOyBc7Dx + 4e0T12HmpsLEcjKMebgB9nDl0OHlUl4n4e7aDOW31B+3Qbl7Gy6yDpu0A2jn60c7OA4L02wjoNvjhnLf + s4Q4QL1KhwiT/Uo6pHBRtPe+S8fOxeHyz8ZBi2rigBvOyzT3Wt0wjl+DnvfXcEL2843SNXAFHeJ3tmUc + BU9yHCWHTvw6n9pIBx+Wtp7vtMjlpt0wBB33a0bHBMGeIch+zkzC5BIul20O4dbzWADmJp1jf+PHBCJU + EjCppIMP8NyD59DpmEGfgCJQm20MLaZRNBpHUc/Jckn8CaB1EvCX90P51YMELICy9q8ScPebZfjwshaV + LZ109UlCvEyHCJPLJxJw69kKJV3MYzol2BkoD3ECFBJMQtKpJFwBY1tqYBhx8Dtlcva2mMfQxLW1weDC + JZ0TdVoHKvudON9rkxxCirK2mHAE/E2BDFY6Zn6u/GUP352ixvYl4AgjJKESLq4XwGyzGdtMR4o+ireb + CSXghDYRSkBurGbaJtBqHUUzXTpR1YIGTkIBVUOnKvsHUdE7gL+V7BO/OBbnhZCi3L2XA73EgZ+jWwTL + fp56gX3G1vFYAArlEjYJKVzMJuimU1R5HC4D8GuP8TVXVIlO+4h0qdE4Ek8doaq1Q6jsHcS5bhs+7h4i + RzpUquIfawm5jsWfTcgcwq1jKyAFYO4/E5AEzCNYEaEKE9p4Mh1wE13bTNcKzhKIqSNQrXBJ40CVZki6 + dLbTjtMdZjxW8vxcJoyalg7uJcg6MREIJlwUDq6n7uM7s4g18xBhtnBB3kwlAYsIlwTceAq3P/aRrKM6 + wggoseiKN8PHhDrTbsKZ1uU/ij5NqZ0blMJjBCjlYKI9TqgPCUWwlQALeZxfjss6O2o1A6hiLQmgc90C + yIpTbVacbjPi3TNVL6WM87mU1nHPxbKUhwlWsAKgUP5x/OCRk3IJqOXWTKRN1lKXNQ7VYsLJFiNeK2/i + LdMH+yJSDSZ1uLQcFy6340KHCY0WNy6K1BEo7pINH3XY+Fqy4ESrhcuSHu9z9efv3J+p3euLSjWYquMc + tJwAEqjLIoFOs5bKmk0SqrRRj+0vHeal6t//slINpuq9er1MmUhdEuhYnYabSvW/Kv7XUg2m6hhBSuni + UW5//sOd7sNPHfCrXfdVSTWYqWMNGvFvo+q5r1ZQ/gsddBmZKMKxgQAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAACgAAAAoCAYAAACM/rhtAAAABGdBTUEAALGPC/xhBQAACrNJREFUWEfN + mFlsVNcdxq/6EFVVpRZRpyWKmqVSX5JWlfpQqW+t2qpt0hZsHLfZsMEmpAVlaTAE3ASyN0BWIKRtQoiD + w2ISwHjBxjbed8++epnx2MYeM9jYsy/21++cmbFnxtdZG6kP35x7/vfOPb/7/f/n3DOjAPi/lmrw8+qp + A0dmDr9/eq3aOTWNzYQ9anE1qQY/qwbGpmB0TKLXPo5WoxP12mHUdJp4aumaYY9/yBeKYi4cgy9Fqdd8 + klSDn0WOqRlYXFP46aP7cMcTB/GT4ldRdKgc/lCYAGF4M4Ay5ZwOhNTumynV4KfJMzOHVpMLYYLMRSOY + i0QRCIYIF1lUJlBmbJbfzbyvmlSDmdKPeBzBCAcJE2QFpcIldT28gJt2GeCNhLHqcbahdOjMcdS0LKBz + TvWGmKYAgQTUSpJQGZBCt+w1Y9YXBxb3ubnEgFA0gNUldoSCgS8PGIjOqwIJhXjTuSgIH78mPB9DVomZ + oHygBODqEivWPG1CIBRP+dh0DKsf74dzKoYf7uiSMQnIieOlMsfP1LJAiIChGAGoQNQPX1SAcXC2fzpo + wKrdVsQSgI0mL257sg89Q0HZF4BZJRbMzfuweruR3wsjyNjtew18iBBuprvCdW/Ij1BEgEbxXkUz9v+7 + jEOncyS1LCDABKBzOoJv7bAg6x8W3Frcw8EC8M4HsXqXCav22BHmAFk7tZini7cUa+RDRKIhrHnehqxd + ZtzI67a+p5OA3/w7084HXL3LKh3WOYOLdXpH8Ws4UtGBl49VcPh0FqFlgQV+CMBwjOnaaYZvgemNxd0R + Ln2Hg5ecGcKdxU24eQ9TSZe+/bhwK4bzxmvYdNQm3faz//WtRkRjYQxcWyoBeR/WZhKwtG8UPyo+hPr2 + fo6cziK0LCCUBFyz04Dbdmmx5jkbfvFiiwT/7m4TgnTy9hetuJH1J+oxay+heP0NOwaYNqaVD5KqRTAe + OyanMRuM9wWg1uZEi9GBui4jqjrNHD6dJa2TVFjUHWFWFZvgnw/I40B0gcfz+P72Tuw9O0Jno/jGnmHW + UhT2qSCiGVA+1nI4GMPgFQ8C8wtpoEkJwIo2PdoJ2NBrQXWrhsOns6R1kgrKiRLD/lo3btypQ4V+Gt9j + am8q6efMDWNkOiSh404nBudDhTnowLgH/sQkWkkSjjp1qRMGpxtdFhea+y18TRo5fDpLWkeotqljbZXG + JQf3IYg1xTq4Z8W6FV2EEhJ1KTQ4QaB5yJJQg0mVmEhiVdAMOHGiqhFDHr4ux66h3+ZCq8aGum4ztu1+ + gRifAFjVbsDlfjvmmdJwCpAUnR0mUIBAEcKlnUu5JhVKuCW+4+f9kot/iLoyPYfRaz5Yx6ehG7qCNpNT + prmyVUuMFQBPN/ajqk2HH28/iIXwPKJ82qQirDVVoGXie5YA3rBY65ZAkwqHI3jizZOYnPVxEfdiaPI6 + 9NwRdZpHcFljx8X2FQBPVjfh6CUd7nziDdxJwBCXh1TAlUCDjIU5CSwjkzLl0SjP0y0vzynrDkLJ+xeU + 7Leh/H4/mmxelNU0Y/q6F+45P8ZnAhh2z8LsuirT3KIbQH2njjgqgEaX+6ZL3Sa06IfQaRtB/v4yfFDT + JgGWQRKkx8TFmjBBTpJU4KTCfEAl7yiU9W9ByTnM9giUXAHLvgDOSYDnHsWt2+vRO+xenM0X2pcmyyKg + UF2HVtrcbXbIuhhyTWDk6jQ+aNCgqqVXDhwTgBnAmXCyDpnKZz+oJ4AAI4gAFBKA6xKQUv+GUtgAy7BL + prm624q3q/uIowJY2a5HQ58VbYZh9NtHYaL1okZGPbOYYL00GF0oq26T61oqoJBIvX5onAv2AiLzEUI9 + BeXPdEk4mHRRuif6wkEB/Q6U/Gq4prgzd3lQ0zeIUy1mvFu7tB6mAW5+5i3U95hZC4PosrrkGjVwZZqz + bY6zzoepWT88vgi83DZtPXCc9dSEies+WYNROhdl6v2RBSj3CAjWXxJQuChBEy7m8Dj/ApQNlRLQ4LqG + dtsEavVOnGm3orRBix37jliWAQrVdpm4aNqk3SLNYhlwebyccX5Z2B5fCHPBCILcQQe52xFwx+t6caK6 + hanbTbhDrD26lZvQPUk4KumigCuoimtDFaw0oXNwApf0IzjfY8fxJiMOVXcRRwWwmu/DRqZZFKxmYAzm + UY+cacLFiRkfrs4FMOPlzkZsaql5Aua9cpogYsYSLvdNSrRCCcgcnhOAG+lYgXBtCTDn9T6Y3V5ohyfR + ZHbiAtN8stmIdy7G6zANTvnDo6jkQi1mUitnc499DPqRq7BPJNJ8Pe7itJ+7Ef7mCcdYa/e/QTgBJSRA + 2N4jwAi4nhJwuYQrJJgEJNim6kVAh8cnDRienIXN7cfFfivK28xc8uJ1uAT3uy1Q7tqKLY9sQ02PDc2i + Di0j0A9PwHZlBs6rXq5brEPWnIeQSt7TBCFczmtLgMLFnNfjx9k8l5cA21TBAidUoYATYIxtYOyBc7Dx + 4e0T12HmpsLEcjKMebgB9nDl0OHlUl4n4e7aDOW31B+3Qbl7Gy6yDpu0A2jn60c7OA4L02wjoNvjhnLf + s4Q4QL1KhwiT/Uo6pHBRtPe+S8fOxeHyz8ZBi2rigBvOyzT3Wt0wjl+DnvfXcEL2843SNXAFHeJ3tmUc + BU9yHCWHTvw6n9pIBx+Wtp7vtMjlpt0wBB33a0bHBMGeIch+zkzC5BIul20O4dbzWADmJp1jf+PHBCJU + EjCppIMP8NyD59DpmEGfgCJQm20MLaZRNBpHUc/Jckn8CaB1EvCX90P51YMELICy9q8ScPebZfjwshaV + LZ109UlCvEyHCJPLJxJw69kKJV3MYzol2BkoD3ECFBJMQtKpJFwBY1tqYBhx8Dtlcva2mMfQxLW1weDC + JZ0TdVoHKvudON9rkxxCirK2mHAE/E2BDFY6Zn6u/GUP352ixvYl4AgjJKESLq4XwGyzGdtMR4o+ireb + CSXghDYRSkBurGbaJtBqHUUzXTpR1YIGTkIBVUOnKvsHUdE7gL+V7BO/OBbnhZCi3L2XA73EgZ+jWwTL + fp56gX3G1vFYAArlEjYJKVzMJuimU1R5HC4D8GuP8TVXVIlO+4h0qdE4Ek8doaq1Q6jsHcS5bhs+7h4i + RzpUquIfawm5jsWfTcgcwq1jKyAFYO4/E5AEzCNYEaEKE9p4Mh1wE13bTNcKzhKIqSNQrXBJ40CVZki6 + dLbTjtMdZjxW8vxcJoyalg7uJcg6MREIJlwUDq6n7uM7s4g18xBhtnBB3kwlAYsIlwTceAq3P/aRrKM6 + wggoseiKN8PHhDrTbsKZ1uU/ij5NqZ0blMJjBCjlYKI9TqgPCUWwlQALeZxfjss6O2o1A6hiLQmgc90C + yIpTbVacbjPi3TNVL6WM87mU1nHPxbKUhwlWsAKgUP5x/OCRk3IJqOXWTKRN1lKXNQ7VYsLJFiNeK2/i + LdMH+yJSDSZ1uLQcFy6340KHCY0WNy6K1BEo7pINH3XY+Fqy4ESrhcuSHu9z9efv3J+p3euLSjWYquMc + tJwAEqjLIoFOs5bKmk0SqrRRj+0vHeal6t//slINpuq9er1MmUhdEuhYnYabSvW/Kv7XUg2m6hhBSuni + UW5//sOd7sNPHfCrXfdVSTWYqWMNGvFvo+q5r1ZQ/gsddBmZKMKxgQAAAABJRU5ErkJggg== + + iVBORw0KGgoAAAANSUhEUgAAACgAAAAoCAYAAACM/rhtAAAABGdBTUEAALGPC/xhBQAACrNJREFUWEfN diff --git a/Aviso/frmSendungsdetailsNEU.vb b/Aviso/frmSendungsdetailsNEU.vb index 9a70713..b5ff38e 100644 --- a/Aviso/frmSendungsdetailsNEU.vb +++ b/Aviso/frmSendungsdetailsNEU.vb @@ -2955,6 +2955,8 @@ Public Class frmSendungsdetailsNEU End If End If + SENDUNG_LIST(CURRENT_INDEX).tblSnd_Firma = VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale2(cboFiliale._value,, "") + SENDUNG_LIST(CURRENT_INDEX).tblSnd_Cluster = VERAG_PROG_ALLGEMEIN.cAllgemein.getClusterFromFiliale(cboFiliale._value,, "") txtAnzahlPos.Visible = (cboFiliale._value = "7001") @@ -5898,4 +5900,359 @@ Public Class frmSendungsdetailsNEU End Sub + + Private Sub ToolStripMenuItem29_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem29.Click + Me.Cursor = Cursors.WaitCursor + Try + VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.clearTMPPath("ClipBoard_TMP") + If True Then 'dgvAnhang.SelectedRows.Count >= 1 Then + Try + Dim outl As New Outlook.Application + Dim Mail As Microsoft.Office.Interop.Outlook.MailItem + Mail = outl.CreateItem(0) + Mail.To = "zoll.wels@gw-world.com" + Dim OnylSND = -1 + If sender Is AktuelleSendungAnhängeWählenToolStripMenuItem Then + 'For Each r As DataGridViewRow In dgvAnhang.SelectedRows + ' Mail.Attachments.Add(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(r.Cells("anh_docId").Value), Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue) + 'Next + OnylSND = CURRENT_INDEX + End If + + 'LEX + Mail.Subject = "AVIS: Kennzeichen: " & AVISO.LKW_Nr & " | Pos: " & SENDUNG_LIST(CURRENT_INDEX).FilialenNr & "/" & SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr & If(AVISO.VoraussichtlichesEintreffen IsNot Nothing, " | ETA: " & CDate(AVISO.VoraussichtlichesEintreffen).ToShortDateString, "") + + Dim TextHTML = "" + TextHTML &= "Sehr geehrte Damen und Herren,
" + TextHTML &= "
" + TextHTML &= "anbei senden wir Ihnen unser Avis zu o.g. LKW.
" + + TextHTML &= "
" + TextHTML &= "Bitte bereiten Sie angefügte(n) Sendung(en) wie folgt vor:
" + TextHTML &= "
" + + TextHTML &= "" + TextHTML &= "" + + Dim ANH_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge) + Dim cnt = 1 + For Each SND In SENDUNG_LIST + Dim gestellungsadresseTmp = "" + If (OnylSND >= 0 AndAlso SND Is SENDUNG_LIST(OnylSND)) Or (OnylSND < 0 And SND.FilialenNr = 4839) Then + TextHTML &= "" + TextHTML &= "" + TextHTML &= "" + TextHTML &= "" + TextHTML &= "" + TextHTML &= "" + TextHTML &= "" + + TextHTML &= "" + + Select Case SND.tblSnd_Abfertigungsart_ID + Case "38", "1" + Dim KD As New VERAG_PROG_ALLGEMEIN.cKunde(SND.tblSnd_EmpfaengerKdNr) + Dim AD As New VERAG_PROG_ALLGEMEIN.cAdressen(SND.tblSnd_EmpfaengerKdNr) + Dim VMDat As Object = SQL.getValueTxtBySql("SELECT [kdvm_erhalten_Datum] FROM [tblKundenVollmachten] where kdvm_KundenNr='" & SND.tblSnd_EmpfaengerKdNr & "' and [kdvm_kdvmaId] IN (12,3) and [kdvm_erhalten]=1 ORDER BY [kdvm_erhalten_Datum] desc", "FMZOLL",,, Nothing) + + If KD IsNot Nothing AndAlso KD IsNot Nothing Then + TextHTML &= "" + TextHTML &= "" + TextHTML &= "" + Else + TextHTML &= "" + TextHTML &= "" + TextHTML &= "" + End If + Case "5", "6" + gestellungsadresseTmp = SND.getNCTSAdress().Trim + TextHTML &= "" + TextHTML &= "" + TextHTML &= "" + Case Else + TextHTML &= "" + TextHTML &= "" + TextHTML &= "" + End Select + + TextHTML &= "" + + If gestellungsadresseTmp <> "" Then + TextHTML &= "" + TextHTML &= "" + TextHTML &= "" + TextHTML &= "" + TextHTML &= "" + End If + '.... + 'For Each r As DataGridViewRow In dgvAnhang.SelectedRows + ' Mail.Attachments.Add(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(r.Cells("anh_docId").Value), Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue) + 'Next + + + Dim anhaengeVersand As New List(Of String) + Dim found = False + VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge.LOAD_LIST_BySendung(ANH_LIST, SND.tblSnd_SendungID) 'LÄDT alle Aviso-Anhänge + + For Each l In ANH_LIST + Select Case l.anh_Art.ToString.ToUpper + Case "UID", "EORI" + Case Else + ' Case "RECHNUNG", "CMR", "AUSFUHR", "COO", "PACKLISTE" + Dim PathTmpANH = (New VERAG_PROG_ALLGEMEIN.cDATENSERVER(l.anh_docId)).GET_TOP1_PATH(False) + If PathTmpANH <> "" Then + + If OnylSND < 0 Then 'NUR WENN ALLE SENDUNGEN... + anhaengeVersand.Add(PathTmpANH) + Else ' ...Sonst direkt an Mail anfügen + Mail.Attachments.Add(PathTmpANH, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue) + End If + found = True + End If + End Select + Next + + If OnylSND < 0 Then 'NUR WENN ALLE SENDUNGEN + + If anhaengeVersand.Count = 1 Then + 'Falls nur 1 Anhang + Mail.Attachments.Add(anhaengeVersand(0), Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue) + ElseIf anhaengeVersand.Count > 1 Then + 'Zusammenfassen der Anhänge + Dim zielPfadZusammenfassung = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath(cnt & "_" & SND.FilialenNr & "-" & SND.AbfertigungsNr & ".pdf", ".pdf",, False, "Zusammenfassung_LEX_" & SND.tblSnd_SendungID & "_" & Now.ToString("ddMMyyyy_HHmmss")) + If SDL.FormularManagerNEU.MergePdfFiles(anhaengeVersand, zielPfadZusammenfassung) Then + Mail.Attachments.Add(zielPfadZusammenfassung, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue) + End If + End If + End If + + cnt += 1 + End If + Next + + 'Vorpapier laden: + ANH_LIST = New List(Of VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge) + VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge.LOAD_LIST_ByAviso(ANH_LIST, AvisoId) 'LÄDT alle Aviso-Anhänge + For Each l In ANH_LIST + Select Case l.anh_Art.ToString.ToUpper + Case "VORPAPIER" ' T1,.. + Dim PathTmpANH = (New VERAG_PROG_ALLGEMEIN.cDATENSERVER(l.anh_docId)).GET_TOP1_PATH(False) + If PathTmpANH <> "" Then Mail.Attachments.Add(PathTmpANH, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue) + End Select + Next + + TextHTML &= "
PosReferenzAbfertigungsartAbsenderEmpfängerSendungAbrechnungEORIUIDVollmacht
" & cnt & "" & SND.FilialenNr & "/" & SND.AbfertigungsNr & "" & SQL.DLookup("isnull(AbfertigungsbezeichnungLang,Abfertigungsbezeichnung)", "[Abfertigungsarten]", "[Abfertigungsart]='" & SND.tblSnd_Abfertigungsart_ID & "'", "FMZOLL", "") & "" & SND.tblSnd_Absender & "" & SND.tblSnd_Empfaenger & "" & SND.tblSnd_Colli & " Pk. " & SND.tblSnd_Warenbezeichnung & " - " & SND.tblSnd_Gewicht & " kg " + If SND.tblSnd_BARzuKassieren IsNot Nothing Then + If IsNumeric(SND.tblSnd_BARzuKassieren) AndAlso SND.tblSnd_BARzuKassieren <> 0 Then + TextHTML &= "BAR kassieren:" & CDbl(SND.tblSnd_BARzuKassieren).ToString("C2") + Else + TextHTML &= "BAR kassieren:" & SND.tblSnd_BARzuKassieren 'falls keine Zahl + End If + Else + TextHTML &= "VERAG" + End If + TextHTML &= "" & If(KD.EORITIN, "") & "" & If(AD.UstIdKz, "") & If(AD.UstIdNr, "") & "" & If(VMDat, "") & "---------
NCTS-Gestellungsadresse:" & gestellungsadresseTmp & "
" + TextHTML &= "
" + TextHTML &= "
" + TextHTML &= "Für Rückfragen stehen wir gerne zur Verfügung
" + 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) + + + + Mail.Display() + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Fehler beim Öffnen der Mail!") + End Try + End If + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Fehler beim Öffnen der Mail!") + End Try + Me.Cursor = Cursors.Default + End Sub + + Private Sub ToolStripMenuItem30_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem30.Click + Me.Cursor = Cursors.WaitCursor + Try + VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.clearTMPPath("ClipBoard_TMP") + If True Then 'dgvAnhang.SelectedRows.Count >= 1 Then + Try + Dim outl As New Outlook.Application + Dim Mail As Microsoft.Office.Interop.Outlook.MailItem + Mail = outl.CreateItem(0) + Mail.To = "zoll.wels@gw-world.com" + + Dim OnylSND = -1 + If sender Is AktuelleSendungAnhängeWählenToolStripMenuItem Then + 'For Each r As DataGridViewRow In dgvAnhang.SelectedRows + ' Mail.Attachments.Add(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(r.Cells("anh_docId").Value), Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue) + 'Next + OnylSND = CURRENT_INDEX + End If + + 'LEX + Mail.Subject = "AVIS: Kennzeichen: " & AVISO.LKW_Nr & " | Pos: " & SENDUNG_LIST(CURRENT_INDEX).FilialenNr & "/" & SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr & If(AVISO.VoraussichtlichesEintreffen IsNot Nothing, " | ETA: " & CDate(AVISO.VoraussichtlichesEintreffen).ToShortDateString, "") + + Dim TextHTML = "" + TextHTML &= "Sehr geehrte Damen und Herren,
" + TextHTML &= "
" + TextHTML &= "anbei senden wir Ihnen unser Avis zu o.g. LKW.
" + + TextHTML &= "
" + TextHTML &= "Bitte bereiten Sie angefügte(n) Sendung(en) wie folgt vor:
" + TextHTML &= "
" + + TextHTML &= "" + TextHTML &= "" + + Dim ANH_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge) + Dim cnt = 1 + For Each SND In SENDUNG_LIST + Dim gestellungsadresseTmp = "" + If (OnylSND >= 0 AndAlso SND Is SENDUNG_LIST(OnylSND)) Or (OnylSND < 0) Then + TextHTML &= "" + TextHTML &= "" + TextHTML &= "" + TextHTML &= "" + TextHTML &= "" + TextHTML &= "" + TextHTML &= "" + + TextHTML &= "" + + Select Case SND.tblSnd_Abfertigungsart_ID + Case "38", "1" + Dim KD As New VERAG_PROG_ALLGEMEIN.cKunde(SND.tblSnd_EmpfaengerKdNr) + Dim AD As New VERAG_PROG_ALLGEMEIN.cAdressen(SND.tblSnd_EmpfaengerKdNr) + Dim VMDat As Object = SQL.getValueTxtBySql("SELECT [kdvm_erhalten_Datum] FROM [tblKundenVollmachten] where kdvm_KundenNr='" & SND.tblSnd_EmpfaengerKdNr & "' and [kdvm_kdvmaId] IN (12,3) and [kdvm_erhalten]=1 ORDER BY [kdvm_erhalten_Datum] desc", "FMZOLL",,, Nothing) + + If KD IsNot Nothing AndAlso KD IsNot Nothing Then + TextHTML &= "" + TextHTML &= "" + TextHTML &= "" + Else + TextHTML &= "" + TextHTML &= "" + TextHTML &= "" + End If + Case "5", "6" + gestellungsadresseTmp = SND.getNCTSAdress().Trim + TextHTML &= "" + TextHTML &= "" + TextHTML &= "" + Case Else + TextHTML &= "" + TextHTML &= "" + TextHTML &= "" + End Select + + TextHTML &= "" + + If gestellungsadresseTmp <> "" Then + TextHTML &= "" + TextHTML &= "" + TextHTML &= "" + TextHTML &= "" + TextHTML &= "" + End If + '.... + 'For Each r As DataGridViewRow In dgvAnhang.SelectedRows + ' Mail.Attachments.Add(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(r.Cells("anh_docId").Value), Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue) + 'Next + + + Dim anhaengeVersand As New List(Of String) + Dim found = False + VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge.LOAD_LIST_BySendung(ANH_LIST, SND.tblSnd_SendungID) 'LÄDT alle Aviso-Anhänge + + For Each l In ANH_LIST + Select Case l.anh_Art.ToString.ToUpper + Case "UID", "EORI" + Case Else + ' Case "RECHNUNG", "CMR", "AUSFUHR", "COO", "PACKLISTE" + Dim PathTmpANH = (New VERAG_PROG_ALLGEMEIN.cDATENSERVER(l.anh_docId)).GET_TOP1_PATH(False) + If PathTmpANH <> "" Then + + If OnylSND < 0 Then 'NUR WENN ALLE SENDUNGEN... + anhaengeVersand.Add(PathTmpANH) + Else ' ...Sonst direkt an Mail anfügen + Mail.Attachments.Add(PathTmpANH, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue) + End If + found = True + End If + End Select + Next + + If OnylSND < 0 Then 'NUR WENN ALLE SENDUNGEN + + If anhaengeVersand.Count = 1 Then + 'Falls nur 1 Anhang + Mail.Attachments.Add(anhaengeVersand(0), Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue) + ElseIf anhaengeVersand.Count > 1 Then + 'Zusammenfassen der Anhänge + Dim zielPfadZusammenfassung = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath(cnt & "_" & SND.FilialenNr & "-" & SND.AbfertigungsNr & ".pdf", ".pdf",, False, "Zusammenfassung_LEX_" & SND.tblSnd_SendungID & "_" & Now.ToString("ddMMyyyy_HHmmss")) + If SDL.FormularManagerNEU.MergePdfFiles(anhaengeVersand, zielPfadZusammenfassung) Then + Mail.Attachments.Add(zielPfadZusammenfassung, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue) + End If + End If + End If + + cnt += 1 + End If + Next + + 'Vorpapier laden: + ANH_LIST = New List(Of VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge) + VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge.LOAD_LIST_ByAviso(ANH_LIST, AvisoId) 'LÄDT alle Aviso-Anhänge + For Each l In ANH_LIST + Select Case l.anh_Art.ToString.ToUpper + Case "VORPAPIER" ' T1,.. + Dim PathTmpANH = (New VERAG_PROG_ALLGEMEIN.cDATENSERVER(l.anh_docId)).GET_TOP1_PATH(False) + If PathTmpANH <> "" Then Mail.Attachments.Add(PathTmpANH, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue) + End Select + Next + + TextHTML &= "
PosReferenzAbfertigungsartAbsenderEmpfängerSendungAbrechnungEORIUIDVollmacht
" & cnt & "" & SND.FilialenNr & "/" & SND.AbfertigungsNr & "" & SQL.DLookup("isnull(AbfertigungsbezeichnungLang,Abfertigungsbezeichnung)", "[Abfertigungsarten]", "[Abfertigungsart]='" & SND.tblSnd_Abfertigungsart_ID & "'", "FMZOLL", "") & "" & SND.tblSnd_Absender & "" & SND.tblSnd_Empfaenger & "" & SND.tblSnd_Colli & " Pk. " & SND.tblSnd_Warenbezeichnung & " - " & SND.tblSnd_Gewicht & " kg " + If SND.tblSnd_BARzuKassieren IsNot Nothing Then + If IsNumeric(SND.tblSnd_BARzuKassieren) AndAlso SND.tblSnd_BARzuKassieren <> 0 Then + TextHTML &= "BAR kassieren:" & CDbl(SND.tblSnd_BARzuKassieren).ToString("C2") + Else + 'TextHTML &= "BAR kassieren:" & SND.tblSnd_BARzuKassieren 'falls keine Zahl + TextHTML &= "VERAG" + End If + Else + TextHTML &= "VERAG" + End If + TextHTML &= "" & If(KD.EORITIN, "") & "" & If(AD.UstIdKz, "") & If(AD.UstIdNr, "") & "" & If(VMDat, "") & "---------
NCTS-Gestellungsadresse:" & gestellungsadresseTmp & "
" + TextHTML &= "
" + TextHTML &= "
" + TextHTML &= "Für Rückfragen stehen wir gerne zur Verfügung
" + 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) + + + + Mail.Display() + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Fehler beim Öffnen der Mail!") + End Try + End If + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Fehler beim Öffnen der Mail!") + End Try + Me.Cursor = Cursors.Default + End Sub End Class