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

Merge branch 'master' of https://verag.visualstudio.com/AVISO/_git/AVISO

Browse Source
This commit is contained in:
Andreas Luxbauer
2024-03-04 20:14:54 +01:00
parent d1685f7f4d d9904b57bc
commit 9759683a6f
4 changed files with 174 additions and 69 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
Aviso/frmHauptfenster.vb
View File

@@ -2753,7 +2753,7 @@ Public Class frmHauptfenster
'ToolStripMenuItem4.Visible = True 'ToolStripMenuItem4.Visible = True
DEVeragGmbHToolStripMenuItem.Visible = True DEVeragGmbHToolStripMenuItem.Visible = True
'ToolStripMenuItem5.Visible = True 'ToolStripMenuItem5.Visible = True
ATVeragAGToolStripMenuItem.Visible = True 'ATVeragAGToolStripMenuItem.Visible = True
'ToolStripMenuItem6.Visible = True 'ToolStripMenuItem6.Visible = True
ATImexCSToolStripMenuItem.Visible = True ATImexCSToolStripMenuItem.Visible = True
Else 'VERAG Else 'VERAG
@@ -4473,10 +4473,10 @@ Public Class frmHauptfenster
End Sub End Sub
Private Sub WarenorteToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles WarenorteToolStripMenuItem.Click Private Sub WarenorteToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles WarenorteToolStripMenuItem.Click
Dim enableWritepermissions As Boolean Dim writepermissions As Boolean
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("WARENORTE", "AVISO") Then enableWritepermissions = True 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) f.ShowDialog(Me)
End Sub End Sub

139
Aviso/frmSendungsdetailsNEU.Designer.vb generated
View File

@@ -24,16 +24,16 @@ Partial Class frmSendungsdetailsNEU
Private Sub InitializeComponent() Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container() Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmSendungsdetailsNEU)) 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 DataGridViewCellStyle11 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle12 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle13 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle14 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle15 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle16 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle17 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle18 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle19 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle10 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.pnl = New System.Windows.Forms.Panel()
Me.Panel4 = New System.Windows.Forms.Panel() Me.Panel4 = New System.Windows.Forms.Panel()
Me.TabControl1 = New System.Windows.Forms.TabControl() Me.TabControl1 = New System.Windows.Forms.TabControl()
@@ -44,6 +44,7 @@ Partial Class frmSendungsdetailsNEU
Me.dgvAnhang = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) Me.dgvAnhang = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.btnDirektAnfuegen = New System.Windows.Forms.Button() Me.btnDirektAnfuegen = New System.Windows.Forms.Button()
Me.Panel19 = New System.Windows.Forms.Panel() Me.Panel19 = New System.Windows.Forms.Panel()
Me.Button22 = New System.Windows.Forms.Button()
Me.Button17 = New System.Windows.Forms.Button() Me.Button17 = New System.Windows.Forms.Button()
Me.btnQuckScan = New System.Windows.Forms.Button() Me.btnQuckScan = New System.Windows.Forms.Button()
Me.Panel21 = New System.Windows.Forms.Panel() Me.Panel21 = New System.Windows.Forms.Panel()
@@ -436,7 +437,7 @@ Partial Class frmSendungsdetailsNEU
Me.StatusAbrufenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.StatusAbrufenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ContextMenuStrip3 = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.ContextMenuStrip3 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.XXXToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() 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.pnl.SuspendLayout()
Me.Panel4.SuspendLayout() Me.Panel4.SuspendLayout()
Me.TabControl1.SuspendLayout() Me.TabControl1.SuspendLayout()
@@ -644,6 +645,19 @@ Partial Class frmSendungsdetailsNEU
Me.Panel19.Size = New System.Drawing.Size(1206, 45) Me.Panel19.Size = New System.Drawing.Size(1206, 45)
Me.Panel19.TabIndex = 0 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 'Button17
' '
Me.Button17.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) 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.AllowUserToAddRows = False
Me.gridVermerke.AllowUserToDeleteRows = False Me.gridVermerke.AllowUserToDeleteRows = False
Me.gridVermerke.AllowUserToResizeRows = False Me.gridVermerke.AllowUserToResizeRows = False
DataGridViewCellStyle1.BackColor = System.Drawing.Color.Azure DataGridViewCellStyle11.BackColor = System.Drawing.Color.Azure
DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] DataGridViewCellStyle11.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.gridVermerke.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1 Me.gridVermerke.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle11
Me.gridVermerke.BackgroundColor = System.Drawing.Color.White Me.gridVermerke.BackgroundColor = System.Drawing.Color.White
DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle12.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle2.BackColor = System.Drawing.Color.LightBlue DataGridViewCellStyle12.BackColor = System.Drawing.Color.LightBlue
DataGridViewCellStyle2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!) DataGridViewCellStyle12.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!)
DataGridViewCellStyle2.ForeColor = System.Drawing.SystemColors.WindowText DataGridViewCellStyle12.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle2.SelectionBackColor = System.Drawing.SystemColors.Highlight DataGridViewCellStyle12.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle12.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] DataGridViewCellStyle12.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.gridVermerke.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle2 Me.gridVermerke.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle12
Me.gridVermerke.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing Me.gridVermerke.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing
Me.gridVermerke.Dock = System.Windows.Forms.DockStyle.Fill Me.gridVermerke.Dock = System.Windows.Forms.DockStyle.Fill
Me.gridVermerke.Location = New System.Drawing.Point(0, 0) Me.gridVermerke.Location = New System.Drawing.Point(0, 0)
@@ -1530,8 +1544,8 @@ Partial Class frmSendungsdetailsNEU
Me.gridVermerke.ReadOnly = True Me.gridVermerke.ReadOnly = True
Me.gridVermerke.RowHeadersVisible = False Me.gridVermerke.RowHeadersVisible = False
Me.gridVermerke.RowHeadersWidthSizeMode = System.Windows.Forms.DataGridViewRowHeadersWidthSizeMode.DisableResizing Me.gridVermerke.RowHeadersWidthSizeMode = System.Windows.Forms.DataGridViewRowHeadersWidthSizeMode.DisableResizing
DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] DataGridViewCellStyle13.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.gridVermerke.RowsDefaultCellStyle = DataGridViewCellStyle3 Me.gridVermerke.RowsDefaultCellStyle = DataGridViewCellStyle13
Me.gridVermerke.RowTemplate.Height = 20 Me.gridVermerke.RowTemplate.Height = 20
Me.gridVermerke.RowTemplate.ReadOnly = True Me.gridVermerke.RowTemplate.ReadOnly = True
Me.gridVermerke.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[False] Me.gridVermerke.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[False]
@@ -1559,18 +1573,18 @@ Partial Class frmSendungsdetailsNEU
Me.dgvATEZNCTS.AllowUserToAddRows = False Me.dgvATEZNCTS.AllowUserToAddRows = False
Me.dgvATEZNCTS.AllowUserToDeleteRows = False Me.dgvATEZNCTS.AllowUserToDeleteRows = False
Me.dgvATEZNCTS.AllowUserToResizeRows = False Me.dgvATEZNCTS.AllowUserToResizeRows = False
DataGridViewCellStyle4.BackColor = System.Drawing.Color.Azure DataGridViewCellStyle14.BackColor = System.Drawing.Color.Azure
DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] DataGridViewCellStyle14.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvATEZNCTS.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle4 Me.dgvATEZNCTS.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle14
Me.dgvATEZNCTS.BackgroundColor = System.Drawing.Color.White Me.dgvATEZNCTS.BackgroundColor = System.Drawing.Color.White
DataGridViewCellStyle5.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle15.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle5.BackColor = System.Drawing.Color.LightBlue DataGridViewCellStyle15.BackColor = System.Drawing.Color.LightBlue
DataGridViewCellStyle5.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!) DataGridViewCellStyle15.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
DataGridViewCellStyle5.ForeColor = System.Drawing.SystemColors.WindowText DataGridViewCellStyle15.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle5.SelectionBackColor = System.Drawing.SystemColors.Highlight DataGridViewCellStyle15.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle5.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle15.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] DataGridViewCellStyle15.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvATEZNCTS.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle5 Me.dgvATEZNCTS.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle15
Me.dgvATEZNCTS.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing Me.dgvATEZNCTS.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing
Me.dgvATEZNCTS.Dock = System.Windows.Forms.DockStyle.Fill Me.dgvATEZNCTS.Dock = System.Windows.Forms.DockStyle.Fill
Me.dgvATEZNCTS.Location = New System.Drawing.Point(3, 48) Me.dgvATEZNCTS.Location = New System.Drawing.Point(3, 48)
@@ -1579,8 +1593,8 @@ Partial Class frmSendungsdetailsNEU
Me.dgvATEZNCTS.ReadOnly = True Me.dgvATEZNCTS.ReadOnly = True
Me.dgvATEZNCTS.RowHeadersVisible = False Me.dgvATEZNCTS.RowHeadersVisible = False
Me.dgvATEZNCTS.RowHeadersWidthSizeMode = System.Windows.Forms.DataGridViewRowHeadersWidthSizeMode.DisableResizing Me.dgvATEZNCTS.RowHeadersWidthSizeMode = System.Windows.Forms.DataGridViewRowHeadersWidthSizeMode.DisableResizing
DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] DataGridViewCellStyle16.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvATEZNCTS.RowsDefaultCellStyle = DataGridViewCellStyle6 Me.dgvATEZNCTS.RowsDefaultCellStyle = DataGridViewCellStyle16
Me.dgvATEZNCTS.RowTemplate.Height = 20 Me.dgvATEZNCTS.RowTemplate.Height = 20
Me.dgvATEZNCTS.RowTemplate.ReadOnly = True Me.dgvATEZNCTS.RowTemplate.ReadOnly = True
Me.dgvATEZNCTS.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[False] Me.dgvATEZNCTS.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[False]
@@ -1631,18 +1645,18 @@ Partial Class frmSendungsdetailsNEU
Me.dgvDigicust.AllowUserToAddRows = False Me.dgvDigicust.AllowUserToAddRows = False
Me.dgvDigicust.AllowUserToDeleteRows = False Me.dgvDigicust.AllowUserToDeleteRows = False
Me.dgvDigicust.AllowUserToResizeRows = False Me.dgvDigicust.AllowUserToResizeRows = False
DataGridViewCellStyle7.BackColor = System.Drawing.Color.Azure DataGridViewCellStyle17.BackColor = System.Drawing.Color.Azure
DataGridViewCellStyle7.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] DataGridViewCellStyle17.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvDigicust.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle7 Me.dgvDigicust.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle17
Me.dgvDigicust.BackgroundColor = System.Drawing.Color.White Me.dgvDigicust.BackgroundColor = System.Drawing.Color.White
DataGridViewCellStyle8.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle18.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle8.BackColor = System.Drawing.Color.LightBlue DataGridViewCellStyle18.BackColor = System.Drawing.Color.LightBlue
DataGridViewCellStyle8.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!) DataGridViewCellStyle18.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
DataGridViewCellStyle8.ForeColor = System.Drawing.SystemColors.WindowText DataGridViewCellStyle18.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle8.SelectionBackColor = System.Drawing.SystemColors.Highlight DataGridViewCellStyle18.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle8.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle18.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle8.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] DataGridViewCellStyle18.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvDigicust.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle8 Me.dgvDigicust.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle18
Me.dgvDigicust.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing Me.dgvDigicust.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing
Me.dgvDigicust.Dock = System.Windows.Forms.DockStyle.Fill Me.dgvDigicust.Dock = System.Windows.Forms.DockStyle.Fill
Me.dgvDigicust.Location = New System.Drawing.Point(0, 45) Me.dgvDigicust.Location = New System.Drawing.Point(0, 45)
@@ -1651,8 +1665,8 @@ Partial Class frmSendungsdetailsNEU
Me.dgvDigicust.ReadOnly = True Me.dgvDigicust.ReadOnly = True
Me.dgvDigicust.RowHeadersVisible = False Me.dgvDigicust.RowHeadersVisible = False
Me.dgvDigicust.RowHeadersWidthSizeMode = System.Windows.Forms.DataGridViewRowHeadersWidthSizeMode.DisableResizing Me.dgvDigicust.RowHeadersWidthSizeMode = System.Windows.Forms.DataGridViewRowHeadersWidthSizeMode.DisableResizing
DataGridViewCellStyle9.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] DataGridViewCellStyle19.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvDigicust.RowsDefaultCellStyle = DataGridViewCellStyle9 Me.dgvDigicust.RowsDefaultCellStyle = DataGridViewCellStyle19
Me.dgvDigicust.RowTemplate.Height = 20 Me.dgvDigicust.RowTemplate.Height = 20
Me.dgvDigicust.RowTemplate.ReadOnly = True Me.dgvDigicust.RowTemplate.ReadOnly = True
Me.dgvDigicust.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[False] Me.dgvDigicust.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[False]
@@ -2421,8 +2435,8 @@ Partial Class frmSendungsdetailsNEU
'clmnPreis 'clmnPreis
' '
Me.clmnPreis.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill Me.clmnPreis.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
DataGridViewCellStyle10.Format = "C2" DataGridViewCellStyle20.Format = "C2"
Me.clmnPreis.DefaultCellStyle = DataGridViewCellStyle10 Me.clmnPreis.DefaultCellStyle = DataGridViewCellStyle20
Me.clmnPreis.HeaderText = "Preis" Me.clmnPreis.HeaderText = "Preis"
Me.clmnPreis.MaxInputLength = 15 Me.clmnPreis.MaxInputLength = 15
Me.clmnPreis.Name = "clmnPreis" Me.clmnPreis.Name = "clmnPreis"
@@ -5356,9 +5370,9 @@ Partial Class frmSendungsdetailsNEU
'ContextMenuStrip1 'ContextMenuStrip1
' '
Me.ContextMenuStrip1.ImageScalingSize = New System.Drawing.Size(24, 24) 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.Name = "cntxtAnh"
Me.ContextMenuStrip1.Size = New System.Drawing.Size(223, 364) Me.ContextMenuStrip1.Size = New System.Drawing.Size(223, 416)
' '
'ToolStripMenuItem15 'ToolStripMenuItem15
' '
@@ -5582,18 +5596,12 @@ Partial Class frmSendungsdetailsNEU
Me.XXXToolStripMenuItem.Size = New System.Drawing.Size(95, 22) Me.XXXToolStripMenuItem.Size = New System.Drawing.Size(95, 22)
Me.XXXToolStripMenuItem.Text = "XXX" Me.XXXToolStripMenuItem.Text = "XXX"
' '
'Button22 'CMRBestätigungToolStripMenuItem
' '
Me.Button22.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.CMRBestätigungToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.email_big1
Me.Button22.Image = Global.AVISO.My.Resources.Resources.atr_s Me.CMRBestätigungToolStripMenuItem.Name = "CMRBestätigungToolStripMenuItem"
Me.Button22.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.CMRBestätigungToolStripMenuItem.Size = New System.Drawing.Size(222, 30)
Me.Button22.Location = New System.Drawing.Point(606, 5) Me.CMRBestätigungToolStripMenuItem.Text = "CMR Bestätigung"
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
' '
'frmSendungsdetailsNEU 'frmSendungsdetailsNEU
' '
@@ -6104,4 +6112,5 @@ Partial Class frmSendungsdetailsNEU
Friend WithEvents EmpfängerToolStripMenuItem1 As ToolStripMenuItem Friend WithEvents EmpfängerToolStripMenuItem1 As ToolStripMenuItem
Friend WithEvents AuftraggeberToolStripMenuItem1 As ToolStripMenuItem Friend WithEvents AuftraggeberToolStripMenuItem1 As ToolStripMenuItem
Friend WithEvents Button22 As Button Friend WithEvents Button22 As Button
Friend WithEvents CMRBestätigungToolStripMenuItem As ToolStripMenuItem
End Class End Class

18
Aviso/frmSendungsdetailsNEU.resx
View File

@@ -1531,6 +1531,9 @@
mVCCPwiVeQBaqAV4Jfq5XQAAAABJRU5ErkJggg== mVCCPwiVeQBaqAV4Jfq5XQAAAABJRU5ErkJggg==
</value> </value>
</data> </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"> <data name="Button6.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
iVBORw0KGgoAAAANSUhEUgAAABQAAAAUCAYAAACNiR0NAAAABGdBTUEAALGPC/xhBQAAAIdJREFUOE/V iVBORw0KGgoAAAANSUhEUgAAABQAAAAUCAYAAACNiR0NAAAABGdBTUEAALGPC/xhBQAAAIdJREFUOE/V
@@ -1651,6 +1654,18 @@
<metadata name="clmnPreis.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089"> <metadata name="clmnPreis.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value> <value>True</value>
</metadata> </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"> <data name="Button9.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAAAHtJREFUSEvt 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"> <metadata name="cntxtOptions.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>174, 17</value> <value>174, 17</value>
</metadata> </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"> <metadata name="ctxtWeitereFormulare.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>596, 17</value> <value>596, 17</value>
</metadata> </metadata>

78
Aviso/frmSendungsdetailsNEU.vb
View File

@@ -6638,4 +6638,82 @@ Public Class frmSendungsdetailsNEU
f.ShowDialog(Me) f.ShowDialog(Me)
initAnhang() initAnhang()
End Sub 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 End Class