Merge branch 'master' of https://verag.visualstudio.com/AVISO/_git/AVISO
This commit is contained in:
@@ -2753,7 +2753,7 @@ Public Class frmHauptfenster
|
||||
'ToolStripMenuItem4.Visible = True
|
||||
DEVeragGmbHToolStripMenuItem.Visible = True
|
||||
'ToolStripMenuItem5.Visible = True
|
||||
ATVeragAGToolStripMenuItem.Visible = True
|
||||
'ATVeragAGToolStripMenuItem.Visible = True
|
||||
'ToolStripMenuItem6.Visible = True
|
||||
ATImexCSToolStripMenuItem.Visible = True
|
||||
Else 'VERAG
|
||||
@@ -4473,10 +4473,10 @@ Public Class frmHauptfenster
|
||||
End Sub
|
||||
|
||||
Private Sub WarenorteToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles WarenorteToolStripMenuItem.Click
|
||||
Dim enableWritepermissions As Boolean
|
||||
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("WARENORTE", "AVISO") Then enableWritepermissions = True
|
||||
Dim writepermissions As Boolean
|
||||
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("WARENORTE", "AVISO") Then writepermissions = True
|
||||
|
||||
Dim f As New frmWarenorte(enableWritepermissions)
|
||||
Dim f As New frmWarenorte(writepermissions)
|
||||
f.ShowDialog(Me)
|
||||
End Sub
|
||||
|
||||
|
||||
139
Aviso/frmSendungsdetailsNEU.Designer.vb
generated
139
Aviso/frmSendungsdetailsNEU.Designer.vb
generated
@@ -24,16 +24,16 @@ 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 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()
|
||||
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 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()
|
||||
Me.pnl = New System.Windows.Forms.Panel()
|
||||
Me.Panel4 = New System.Windows.Forms.Panel()
|
||||
Me.TabControl1 = New System.Windows.Forms.TabControl()
|
||||
@@ -44,6 +44,7 @@ Partial Class frmSendungsdetailsNEU
|
||||
Me.dgvAnhang = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
|
||||
Me.btnDirektAnfuegen = New System.Windows.Forms.Button()
|
||||
Me.Panel19 = New System.Windows.Forms.Panel()
|
||||
Me.Button22 = New System.Windows.Forms.Button()
|
||||
Me.Button17 = New System.Windows.Forms.Button()
|
||||
Me.btnQuckScan = New System.Windows.Forms.Button()
|
||||
Me.Panel21 = New System.Windows.Forms.Panel()
|
||||
@@ -436,7 +437,7 @@ Partial Class frmSendungsdetailsNEU
|
||||
Me.StatusAbrufenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.ContextMenuStrip3 = New System.Windows.Forms.ContextMenuStrip(Me.components)
|
||||
Me.XXXToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.Button22 = New System.Windows.Forms.Button()
|
||||
Me.CMRBestätigungToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.pnl.SuspendLayout()
|
||||
Me.Panel4.SuspendLayout()
|
||||
Me.TabControl1.SuspendLayout()
|
||||
@@ -644,6 +645,19 @@ Partial Class frmSendungsdetailsNEU
|
||||
Me.Panel19.Size = New System.Drawing.Size(1206, 45)
|
||||
Me.Panel19.TabIndex = 0
|
||||
'
|
||||
'Button22
|
||||
'
|
||||
Me.Button22.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button22.Image = Global.AVISO.My.Resources.Resources.atr_s
|
||||
Me.Button22.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.Button22.Location = New System.Drawing.Point(606, 5)
|
||||
Me.Button22.Name = "Button22"
|
||||
Me.Button22.Size = New System.Drawing.Size(105, 34)
|
||||
Me.Button22.TabIndex = 8
|
||||
Me.Button22.Text = "ATR Archiv"
|
||||
Me.Button22.TextAlign = System.Drawing.ContentAlignment.MiddleRight
|
||||
Me.Button22.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Button17
|
||||
'
|
||||
Me.Button17.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
@@ -1510,18 +1524,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
|
||||
DataGridViewCellStyle11.BackColor = System.Drawing.Color.Azure
|
||||
DataGridViewCellStyle11.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||
Me.gridVermerke.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle11
|
||||
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
|
||||
DataGridViewCellStyle12.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle12.BackColor = System.Drawing.Color.LightBlue
|
||||
DataGridViewCellStyle12.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!)
|
||||
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
|
||||
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)
|
||||
@@ -1530,8 +1544,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
|
||||
DataGridViewCellStyle13.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||
Me.gridVermerke.RowsDefaultCellStyle = DataGridViewCellStyle13
|
||||
Me.gridVermerke.RowTemplate.Height = 20
|
||||
Me.gridVermerke.RowTemplate.ReadOnly = True
|
||||
Me.gridVermerke.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[False]
|
||||
@@ -1559,18 +1573,18 @@ Partial Class frmSendungsdetailsNEU
|
||||
Me.dgvATEZNCTS.AllowUserToAddRows = False
|
||||
Me.dgvATEZNCTS.AllowUserToDeleteRows = False
|
||||
Me.dgvATEZNCTS.AllowUserToResizeRows = False
|
||||
DataGridViewCellStyle4.BackColor = System.Drawing.Color.Azure
|
||||
DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||
Me.dgvATEZNCTS.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle4
|
||||
DataGridViewCellStyle14.BackColor = System.Drawing.Color.Azure
|
||||
DataGridViewCellStyle14.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||
Me.dgvATEZNCTS.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle14
|
||||
Me.dgvATEZNCTS.BackgroundColor = System.Drawing.Color.White
|
||||
DataGridViewCellStyle5.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle5.BackColor = System.Drawing.Color.LightBlue
|
||||
DataGridViewCellStyle5.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
|
||||
DataGridViewCellStyle5.ForeColor = System.Drawing.SystemColors.WindowText
|
||||
DataGridViewCellStyle5.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle5.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||
Me.dgvATEZNCTS.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle5
|
||||
DataGridViewCellStyle15.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle15.BackColor = System.Drawing.Color.LightBlue
|
||||
DataGridViewCellStyle15.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
|
||||
DataGridViewCellStyle15.ForeColor = System.Drawing.SystemColors.WindowText
|
||||
DataGridViewCellStyle15.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle15.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle15.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||
Me.dgvATEZNCTS.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle15
|
||||
Me.dgvATEZNCTS.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing
|
||||
Me.dgvATEZNCTS.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.dgvATEZNCTS.Location = New System.Drawing.Point(3, 48)
|
||||
@@ -1579,8 +1593,8 @@ Partial Class frmSendungsdetailsNEU
|
||||
Me.dgvATEZNCTS.ReadOnly = True
|
||||
Me.dgvATEZNCTS.RowHeadersVisible = False
|
||||
Me.dgvATEZNCTS.RowHeadersWidthSizeMode = System.Windows.Forms.DataGridViewRowHeadersWidthSizeMode.DisableResizing
|
||||
DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||
Me.dgvATEZNCTS.RowsDefaultCellStyle = DataGridViewCellStyle6
|
||||
DataGridViewCellStyle16.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||
Me.dgvATEZNCTS.RowsDefaultCellStyle = DataGridViewCellStyle16
|
||||
Me.dgvATEZNCTS.RowTemplate.Height = 20
|
||||
Me.dgvATEZNCTS.RowTemplate.ReadOnly = True
|
||||
Me.dgvATEZNCTS.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[False]
|
||||
@@ -1631,18 +1645,18 @@ Partial Class frmSendungsdetailsNEU
|
||||
Me.dgvDigicust.AllowUserToAddRows = False
|
||||
Me.dgvDigicust.AllowUserToDeleteRows = False
|
||||
Me.dgvDigicust.AllowUserToResizeRows = False
|
||||
DataGridViewCellStyle7.BackColor = System.Drawing.Color.Azure
|
||||
DataGridViewCellStyle7.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||
Me.dgvDigicust.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle7
|
||||
DataGridViewCellStyle17.BackColor = System.Drawing.Color.Azure
|
||||
DataGridViewCellStyle17.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||
Me.dgvDigicust.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle17
|
||||
Me.dgvDigicust.BackgroundColor = System.Drawing.Color.White
|
||||
DataGridViewCellStyle8.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle8.BackColor = System.Drawing.Color.LightBlue
|
||||
DataGridViewCellStyle8.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
|
||||
DataGridViewCellStyle8.ForeColor = System.Drawing.SystemColors.WindowText
|
||||
DataGridViewCellStyle8.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle8.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle8.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||
Me.dgvDigicust.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle8
|
||||
DataGridViewCellStyle18.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle18.BackColor = System.Drawing.Color.LightBlue
|
||||
DataGridViewCellStyle18.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
|
||||
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.dgvDigicust.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle18
|
||||
Me.dgvDigicust.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing
|
||||
Me.dgvDigicust.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.dgvDigicust.Location = New System.Drawing.Point(0, 45)
|
||||
@@ -1651,8 +1665,8 @@ Partial Class frmSendungsdetailsNEU
|
||||
Me.dgvDigicust.ReadOnly = True
|
||||
Me.dgvDigicust.RowHeadersVisible = False
|
||||
Me.dgvDigicust.RowHeadersWidthSizeMode = System.Windows.Forms.DataGridViewRowHeadersWidthSizeMode.DisableResizing
|
||||
DataGridViewCellStyle9.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||
Me.dgvDigicust.RowsDefaultCellStyle = DataGridViewCellStyle9
|
||||
DataGridViewCellStyle19.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||
Me.dgvDigicust.RowsDefaultCellStyle = DataGridViewCellStyle19
|
||||
Me.dgvDigicust.RowTemplate.Height = 20
|
||||
Me.dgvDigicust.RowTemplate.ReadOnly = True
|
||||
Me.dgvDigicust.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[False]
|
||||
@@ -2421,8 +2435,8 @@ Partial Class frmSendungsdetailsNEU
|
||||
'clmnPreis
|
||||
'
|
||||
Me.clmnPreis.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
|
||||
DataGridViewCellStyle10.Format = "C2"
|
||||
Me.clmnPreis.DefaultCellStyle = DataGridViewCellStyle10
|
||||
DataGridViewCellStyle20.Format = "C2"
|
||||
Me.clmnPreis.DefaultCellStyle = DataGridViewCellStyle20
|
||||
Me.clmnPreis.HeaderText = "Preis"
|
||||
Me.clmnPreis.MaxInputLength = 15
|
||||
Me.clmnPreis.Name = "clmnPreis"
|
||||
@@ -5356,9 +5370,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.ToolStripMenuItem28, 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.CMRBestätigungToolStripMenuItem})
|
||||
Me.ContextMenuStrip1.Name = "cntxtAnh"
|
||||
Me.ContextMenuStrip1.Size = New System.Drawing.Size(223, 364)
|
||||
Me.ContextMenuStrip1.Size = New System.Drawing.Size(223, 416)
|
||||
'
|
||||
'ToolStripMenuItem15
|
||||
'
|
||||
@@ -5582,18 +5596,12 @@ Partial Class frmSendungsdetailsNEU
|
||||
Me.XXXToolStripMenuItem.Size = New System.Drawing.Size(95, 22)
|
||||
Me.XXXToolStripMenuItem.Text = "XXX"
|
||||
'
|
||||
'Button22
|
||||
'CMRBestätigungToolStripMenuItem
|
||||
'
|
||||
Me.Button22.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button22.Image = Global.AVISO.My.Resources.Resources.atr_s
|
||||
Me.Button22.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.Button22.Location = New System.Drawing.Point(606, 5)
|
||||
Me.Button22.Name = "Button22"
|
||||
Me.Button22.Size = New System.Drawing.Size(105, 34)
|
||||
Me.Button22.TabIndex = 8
|
||||
Me.Button22.Text = "ATR Archiv"
|
||||
Me.Button22.TextAlign = System.Drawing.ContentAlignment.MiddleRight
|
||||
Me.Button22.UseVisualStyleBackColor = True
|
||||
Me.CMRBestätigungToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.email_big1
|
||||
Me.CMRBestätigungToolStripMenuItem.Name = "CMRBestätigungToolStripMenuItem"
|
||||
Me.CMRBestätigungToolStripMenuItem.Size = New System.Drawing.Size(222, 30)
|
||||
Me.CMRBestätigungToolStripMenuItem.Text = "CMR Bestätigung"
|
||||
'
|
||||
'frmSendungsdetailsNEU
|
||||
'
|
||||
@@ -6104,4 +6112,5 @@ Partial Class frmSendungsdetailsNEU
|
||||
Friend WithEvents EmpfängerToolStripMenuItem1 As ToolStripMenuItem
|
||||
Friend WithEvents AuftraggeberToolStripMenuItem1 As ToolStripMenuItem
|
||||
Friend WithEvents Button22 As Button
|
||||
Friend WithEvents CMRBestätigungToolStripMenuItem As ToolStripMenuItem
|
||||
End Class
|
||||
|
||||
@@ -1531,6 +1531,9 @@
|
||||
mVCCPwiVeQBaqAV4Jfq5XQAAAABJRU5ErkJggg==
|
||||
</value>
|
||||
</data>
|
||||
<metadata name="MenuStrip.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>296, 17</value>
|
||||
</metadata>
|
||||
<data name="Button6.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABQAAAAUCAYAAACNiR0NAAAABGdBTUEAALGPC/xhBQAAAIdJREFUOE/V
|
||||
@@ -1651,6 +1654,18 @@
|
||||
<metadata name="clmnPreis.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>True</value>
|
||||
</metadata>
|
||||
<metadata name="clmnVK_id.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>True</value>
|
||||
</metadata>
|
||||
<metadata name="clmnFirma.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>True</value>
|
||||
</metadata>
|
||||
<metadata name="clmnLeistung.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>True</value>
|
||||
</metadata>
|
||||
<metadata name="clmnPreis.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>True</value>
|
||||
</metadata>
|
||||
<data name="Button9.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAAAHtJREFUSEvt
|
||||
@@ -2059,6 +2074,9 @@
|
||||
<metadata name="cntxtOptions.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>174, 17</value>
|
||||
</metadata>
|
||||
<metadata name="ToolTip.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>404, 17</value>
|
||||
</metadata>
|
||||
<metadata name="ctxtWeitereFormulare.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>596, 17</value>
|
||||
</metadata>
|
||||
|
||||
@@ -6638,4 +6638,82 @@ Public Class frmSendungsdetailsNEU
|
||||
f.ShowDialog(Me)
|
||||
initAnhang()
|
||||
End Sub
|
||||
|
||||
Private Sub CMRBestätigungToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CMRBestätigungToolStripMenuItem.Click
|
||||
|
||||
|
||||
Try
|
||||
Dim outl As New Outlook.Application
|
||||
Dim Mail As Microsoft.Office.Interop.Outlook.MailItem
|
||||
Mail = outl.CreateItem(0)
|
||||
|
||||
Mail.Subject &= AVISO.LKW_Nr & " Fiskal CMR/packing List"
|
||||
|
||||
Dim firstTextHTMLDE = ""
|
||||
firstTextHTMLDE &= "Sehr geehrte Damen und Herren,<br>"
|
||||
firstTextHTMLDE &= "<br>"
|
||||
firstTextHTMLDE &= "o.g. LKW ist bei uns zur Zollabfertigung eingetroffen.<br>"
|
||||
firstTextHTMLDE &= "Um die Ware im Zollverfahren 4200 (Fiskal) abfertigen zu können, ist es notwendig dass Sie beigefügten CMR im Feld 22 gegenstempeln und unterzeichnen.<br>"
|
||||
firstTextHTMLDE &= "Es ist von äußerster Wichtigkeit, dass Sie den angefügten CMR verwenden. Bitte verwenden Sie keinen anderen CMR.<br>"
|
||||
|
||||
firstTextHTMLDE &= "Alternativ können Sie uns auch eine Packliste mit Original-Stempel und Signatur per Mail übersenden.<br>"
|
||||
firstTextHTMLDE &= " Auf der Packliste müssen folgende Merkmale vorhanden sein:<br>"
|
||||
firstTextHTMLDE &= "<br>"
|
||||
firstTextHTMLDE &= "Versender mit kompletter Anschrift<br>"
|
||||
firstTextHTMLDE &= "Empfänger mit kompletter Anschrift<br>"
|
||||
firstTextHTMLDE &= "Warenbezeichnung<br>"
|
||||
firstTextHTMLDE &= "Packstück + Gewicht<br>"
|
||||
firstTextHTMLDE &= "Stempel + Signatur<br><br><br>"
|
||||
|
||||
'-----------------------------------------------
|
||||
|
||||
firstTextHTMLDE &= "Dear Sir or Madam,<br>"
|
||||
firstTextHTMLDE &= "<br>"
|
||||
firstTextHTMLDE &= "The above-mentioned lorry has arrived at our premises for customs clearance.<br>"
|
||||
firstTextHTMLDE &= "In order to be able to clear the goods in customs procedure 4200 (fiscal), it is necessary that you stamp and sign the attached CMR in field 22.<br>"
|
||||
firstTextHTMLDE &= "It is of utmost importance that you use the attached CMR. Please do not use any other CMR.<br>"
|
||||
|
||||
firstTextHTMLDE &= "Alternatively, you can send us a packing list with original stamp and signature by mail.<br>"
|
||||
firstTextHTMLDE &= " The following features must be present on the packing list:<br>"
|
||||
firstTextHTMLDE &= "<br>"
|
||||
firstTextHTMLDE &= "Consignor with complete address<br>"
|
||||
firstTextHTMLDE &= "Consignee with complete address<br>"
|
||||
firstTextHTMLDE &= "Description of goods<br>"
|
||||
firstTextHTMLDE &= "Package + weight<br>"
|
||||
firstTextHTMLDE &= "Stamp + signature<br><br><br>"
|
||||
|
||||
'-----------------------------------------------
|
||||
|
||||
firstTextHTMLDE &= "Sayin Bay veya Bayan,<br>"
|
||||
firstTextHTMLDE &= "<br>"
|
||||
firstTextHTMLDE &= "Yukarida belirtilen arac gümrük islemleri için bize varis yapmistir.<br>"
|
||||
firstTextHTMLDE &= "Mallarin 4200 (Fiskal) gümrük prosedürüne göre gümrükten çekilebilmesi için, ekteki CMR'yi 22 hanesinin imzlayip ve kaseleyip bize gönderici tarafindan posta yolu ile iletilmesi gerekiyor.<br>"
|
||||
firstTextHTMLDE &= "Ekteki CMR'yi kullanmaniz büyük önem tasimaktadir. Lütfen baska bir CMR kullanmayin.<br>"
|
||||
|
||||
firstTextHTMLDE &= "Alternatif olarak, bize posta yoluyla orijinal kaşe ve imzalı bir çeki listesi gönderebilirsiniz.<br>"
|
||||
firstTextHTMLDE &= "Çeki listesinde aşağıdaki özellikler bulunmalıdır:<br>"
|
||||
firstTextHTMLDE &= "<br>"
|
||||
firstTextHTMLDE &= "Tam adresli gönderici<br>"
|
||||
firstTextHTMLDE &= "Tam adresli alıcı<br>"
|
||||
firstTextHTMLDE &= "Malların tanımı<br>"
|
||||
firstTextHTMLDE &= "Paket + ağırlık<br>"
|
||||
firstTextHTMLDE &= "Damga + imza<br>"
|
||||
|
||||
|
||||
|
||||
Mail.HTMLBody = "<div style=""font-family:Calibri, Arial;font-size:15px;"">" & firstTextHTMLDE & SDL.cFakturierung.getSignature("DE") & "</div>"
|
||||
|
||||
|
||||
AvisoStatusFunctions.insertSendungsVermerk(SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID, AvisoId, "Absenderbestätigung angefordert", 76)
|
||||
|
||||
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 Sub
|
||||
|
||||
|
||||
End Class
|
||||
|
||||
Reference in New Issue
Block a user