diff --git a/Aviso/frmGesamtsicherheitenNEU.vb b/Aviso/frmGesamtsicherheitenNEU.vb
index fb74bc3..eabee85 100644
--- a/Aviso/frmGesamtsicherheitenNEU.vb
+++ b/Aviso/frmGesamtsicherheitenNEU.vb
@@ -633,8 +633,6 @@ Public Class frmGesamtsicherheitenNEU
End If
-
-
If checkNothingValue(txtSicherheitSicherheitsbetrag.Text, "Double") IsNot Nothing Then
Dim sichBetr As Double = Double.Parse(txtSicherheitSicherheitsbetrag.Text)
If checkSaldo(sichBetr, True) = False Then Exit Sub
diff --git a/Aviso/frmSendungsdetailsNEU.Designer.vb b/Aviso/frmSendungsdetailsNEU.Designer.vb
index 163a64d..183c2d9 100644
--- a/Aviso/frmSendungsdetailsNEU.Designer.vb
+++ b/Aviso/frmSendungsdetailsNEU.Designer.vb
@@ -24,25 +24,25 @@ 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 DataGridViewCellStyle39 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
- Dim DataGridViewCellStyle40 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
- Dim DataGridViewCellStyle41 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
- Dim DataGridViewCellStyle42 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
- Dim DataGridViewCellStyle43 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
- Dim DataGridViewCellStyle44 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
- Dim DataGridViewCellStyle45 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
- Dim DataGridViewCellStyle46 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
- Dim DataGridViewCellStyle47 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
- Dim DataGridViewCellStyle48 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
- Dim DataGridViewCellStyle49 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
- Dim DataGridViewCellStyle50 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
- Dim DataGridViewCellStyle51 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
- Dim DataGridViewCellStyle53 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
- Dim DataGridViewCellStyle54 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
- Dim DataGridViewCellStyle52 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
- Dim DataGridViewCellStyle55 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
- Dim DataGridViewCellStyle56 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
- Dim DataGridViewCellStyle57 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+ 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 DataGridViewCellStyle15 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+ Dim DataGridViewCellStyle16 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+ Dim DataGridViewCellStyle14 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()
Me.pnl = New System.Windows.Forms.Panel()
Me.Panel4 = New System.Windows.Forms.Panel()
Me.TabControl1 = New System.Windows.Forms.TabControl()
@@ -127,7 +127,6 @@ Partial Class frmSendungsdetailsNEU
Me.Label25 = New System.Windows.Forms.Label()
Me.Button7 = New System.Windows.Forms.Button()
Me.TabPage3 = New System.Windows.Forms.TabPage()
- Me.RCntrlVermerke1 = New AVISO.rCntrlVermerke()
Me.gridVermerke = New System.Windows.Forms.DataGridView()
Me.tbATEZ = New System.Windows.Forms.TabPage()
Me.dgvATEZNCTS = New System.Windows.Forms.DataGridView()
@@ -150,6 +149,9 @@ Partial Class frmSendungsdetailsNEU
Me.pnlDetails = New System.Windows.Forms.Panel()
Me.tbcntr = New System.Windows.Forms.TabControl()
Me.TabPage4 = New System.Windows.Forms.TabPage()
+ Me.Panel22 = New System.Windows.Forms.Panel()
+ Me.lblZuKass = New System.Windows.Forms.Label()
+ Me.txtBARzuKassieren = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label12 = New System.Windows.Forms.Label()
Me.Label10 = New System.Windows.Forms.Label()
Me.btn_FrachtkostenBerechnen = New System.Windows.Forms.Button()
@@ -181,9 +183,6 @@ Partial Class frmSendungsdetailsNEU
Me.lblAnmerkung = New System.Windows.Forms.Label()
Me.cboPrinter = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.rtbAnmerkung = New System.Windows.Forms.RichTextBox()
- Me.Panel22 = New System.Windows.Forms.Panel()
- Me.lblZuKass = New System.Windows.Forms.Label()
- Me.txtBARzuKassieren = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label7 = New System.Windows.Forms.Label()
Me.Button14 = New System.Windows.Forms.Button()
Me.tbVorkosten = New System.Windows.Forms.TabPage()
@@ -240,35 +239,10 @@ Partial Class frmSendungsdetailsNEU
Me.btnAvisierer = New VERAG_PROG_ALLGEMEIN.FlatButton()
Me.Button4 = New System.Windows.Forms.Button()
Me.Button1 = New System.Windows.Forms.Button()
- Me.cntlFrachtfuehrer_Sonst = New AVISO.usrcntlCheckBox()
- Me.cntlAbsender_Sonst = New AVISO.usrcntlCheckBox()
- Me.cntlEmpfaenger_Sonst = New AVISO.usrcntlCheckBox()
- Me.cntlAuftraggeber_Sonst = New AVISO.usrcntlCheckBox()
- Me.cntlAvisierer_Sonst = New AVISO.usrcntlCheckBox()
Me.lblSonstigesKosten = New System.Windows.Forms.Label()
Me.btnAufschub_Atr = New System.Windows.Forms.Button()
Me.btnAufschub_Empf = New System.Windows.Forms.Button()
Me.btnAufschub_VERAG = New System.Windows.Forms.Button()
- Me.cntlFrachtf_Clear = New AVISO.usrcntlCheckBox()
- Me.cntlFrachtf_Abf = New AVISO.usrcntlCheckBox()
- Me.cntlFrachtf_Eust = New AVISO.usrcntlCheckBox()
- Me.cntlFrachtf_Zoll = New AVISO.usrcntlCheckBox()
- Me.cntlAbsender_Clear = New AVISO.usrcntlCheckBox()
- Me.cntlAbsender_Abf = New AVISO.usrcntlCheckBox()
- Me.cntlAbsender_Eust = New AVISO.usrcntlCheckBox()
- Me.cntlAbsender_Zoll = New AVISO.usrcntlCheckBox()
- Me.cntlEmpf_Clear = New AVISO.usrcntlCheckBox()
- Me.cntlEmpf_Abf = New AVISO.usrcntlCheckBox()
- Me.cntlEmpf_Eust = New AVISO.usrcntlCheckBox()
- Me.cntlEmpf_Zoll = New AVISO.usrcntlCheckBox()
- Me.cntlAuftr_Clear = New AVISO.usrcntlCheckBox()
- Me.cntlAuftr_Abf = New AVISO.usrcntlCheckBox()
- Me.cntlAuftr_Eust = New AVISO.usrcntlCheckBox()
- Me.cntlAuftr_Zoll = New AVISO.usrcntlCheckBox()
- Me.cntlAvisierer_Clear = New AVISO.usrcntlCheckBox()
- Me.cntlAvisierer_Abf = New AVISO.usrcntlCheckBox()
- Me.cntlAvisierer_Eust = New AVISO.usrcntlCheckBox()
- Me.cntlAvisierer_Zoll = New AVISO.usrcntlCheckBox()
Me.Panel15 = New System.Windows.Forms.Panel()
Me.txtAvisierer = New VERAG_PROG_ALLGEMEIN.KdSearchBox()
Me.txtAuftraggeber = New VERAG_PROG_ALLGEMEIN.KdSearchBox()
@@ -281,7 +255,6 @@ Partial Class frmSendungsdetailsNEU
Me.lblEmpfAufschubEust = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.lblFrachtfuehrer = New System.Windows.Forms.Label()
Me.pnlT1 = New System.Windows.Forms.Panel()
- Me.UsrCntlSND_NCTSGestellungsadresse1 = New AVISO.usrCntlSND_NCTSGestellungsadresse()
Me.Label43 = New System.Windows.Forms.Label()
Me.lblAbsender = New System.Windows.Forms.Label()
Me.txtAbsenderKdNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
@@ -464,6 +437,34 @@ Partial Class frmSendungsdetailsNEU
Me.ContextMenuStrip3 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.XXXToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.timerValidation = New System.Windows.Forms.Timer(Me.components)
+ Me.btnWWberechnen = New System.Windows.Forms.Button()
+ Me.RCntrlVermerke1 = New AVISO.rCntrlVermerke()
+ Me.cntlFrachtfuehrer_Sonst = New AVISO.usrcntlCheckBox()
+ Me.cntlAbsender_Sonst = New AVISO.usrcntlCheckBox()
+ Me.cntlEmpfaenger_Sonst = New AVISO.usrcntlCheckBox()
+ Me.cntlAuftraggeber_Sonst = New AVISO.usrcntlCheckBox()
+ Me.cntlAvisierer_Sonst = New AVISO.usrcntlCheckBox()
+ Me.cntlFrachtf_Clear = New AVISO.usrcntlCheckBox()
+ Me.cntlFrachtf_Abf = New AVISO.usrcntlCheckBox()
+ Me.cntlFrachtf_Eust = New AVISO.usrcntlCheckBox()
+ Me.cntlFrachtf_Zoll = New AVISO.usrcntlCheckBox()
+ Me.cntlAbsender_Clear = New AVISO.usrcntlCheckBox()
+ Me.cntlAbsender_Abf = New AVISO.usrcntlCheckBox()
+ Me.cntlAbsender_Eust = New AVISO.usrcntlCheckBox()
+ Me.cntlAbsender_Zoll = New AVISO.usrcntlCheckBox()
+ Me.cntlEmpf_Clear = New AVISO.usrcntlCheckBox()
+ Me.cntlEmpf_Abf = New AVISO.usrcntlCheckBox()
+ Me.cntlEmpf_Eust = New AVISO.usrcntlCheckBox()
+ Me.cntlEmpf_Zoll = New AVISO.usrcntlCheckBox()
+ Me.cntlAuftr_Clear = New AVISO.usrcntlCheckBox()
+ Me.cntlAuftr_Abf = New AVISO.usrcntlCheckBox()
+ Me.cntlAuftr_Eust = New AVISO.usrcntlCheckBox()
+ Me.cntlAuftr_Zoll = New AVISO.usrcntlCheckBox()
+ Me.cntlAvisierer_Clear = New AVISO.usrcntlCheckBox()
+ Me.cntlAvisierer_Abf = New AVISO.usrcntlCheckBox()
+ Me.cntlAvisierer_Eust = New AVISO.usrcntlCheckBox()
+ Me.cntlAvisierer_Zoll = New AVISO.usrcntlCheckBox()
+ Me.UsrCntlSND_NCTSGestellungsadresse1 = New AVISO.usrCntlSND_NCTSGestellungsadresse()
Me.pnl.SuspendLayout()
Me.Panel4.SuspendLayout()
Me.TabControl1.SuspendLayout()
@@ -992,7 +993,7 @@ Partial Class frmSendungsdetailsNEU
Me.ToolStripMenuItem8.Font = New System.Drawing.Font("Segoe UI", 9.0!)
Me.ToolStripMenuItem8.Image = Global.AVISO.My.Resources.Resources.plus
Me.ToolStripMenuItem8.Name = "ToolStripMenuItem8"
- Me.ToolStripMenuItem8.Size = New System.Drawing.Size(101, 30)
+ Me.ToolStripMenuItem8.Size = New System.Drawing.Size(93, 22)
Me.ToolStripMenuItem8.Text = "T1"
'
'ToolStripMenuItem9
@@ -1000,7 +1001,7 @@ Partial Class frmSendungsdetailsNEU
Me.ToolStripMenuItem9.Font = New System.Drawing.Font("Segoe UI", 9.0!)
Me.ToolStripMenuItem9.Image = Global.AVISO.My.Resources.Resources.plus
Me.ToolStripMenuItem9.Name = "ToolStripMenuItem9"
- Me.ToolStripMenuItem9.Size = New System.Drawing.Size(101, 30)
+ Me.ToolStripMenuItem9.Size = New System.Drawing.Size(93, 22)
Me.ToolStripMenuItem9.Text = "T2"
'
'ToolStripMenuItem10
@@ -1008,7 +1009,7 @@ Partial Class frmSendungsdetailsNEU
Me.ToolStripMenuItem10.Enabled = False
Me.ToolStripMenuItem10.Image = Global.AVISO.My.Resources.Resources.plus
Me.ToolStripMenuItem10.Name = "ToolStripMenuItem10"
- Me.ToolStripMenuItem10.Size = New System.Drawing.Size(101, 30)
+ Me.ToolStripMenuItem10.Size = New System.Drawing.Size(93, 22)
Me.ToolStripMenuItem10.Text = "Ü-T"
Me.ToolStripMenuItem10.Visible = False
'
@@ -1046,7 +1047,7 @@ Partial Class frmSendungsdetailsNEU
'
Me.ToolStripMenuItem20.Image = Global.AVISO.My.Resources.Resources.plus
Me.ToolStripMenuItem20.Name = "ToolStripMenuItem20"
- Me.ToolStripMenuItem20.Size = New System.Drawing.Size(103, 30)
+ Me.ToolStripMenuItem20.Size = New System.Drawing.Size(95, 22)
Me.ToolStripMenuItem20.Text = "EZA"
'
'ToolStripMenuItem18
@@ -1055,7 +1056,7 @@ Partial Class frmSendungsdetailsNEU
Me.ToolStripMenuItem18.Font = New System.Drawing.Font("Segoe UI", 9.0!)
Me.ToolStripMenuItem18.Image = Global.AVISO.My.Resources.Resources.plus
Me.ToolStripMenuItem18.Name = "ToolStripMenuItem18"
- Me.ToolStripMenuItem18.Size = New System.Drawing.Size(103, 30)
+ Me.ToolStripMenuItem18.Size = New System.Drawing.Size(95, 22)
Me.ToolStripMenuItem18.Text = "T1"
'
'ToolStripMenuItem19
@@ -1064,7 +1065,7 @@ Partial Class frmSendungsdetailsNEU
Me.ToolStripMenuItem19.Font = New System.Drawing.Font("Segoe UI", 9.0!)
Me.ToolStripMenuItem19.Image = Global.AVISO.My.Resources.Resources.plus
Me.ToolStripMenuItem19.Name = "ToolStripMenuItem19"
- Me.ToolStripMenuItem19.Size = New System.Drawing.Size(103, 30)
+ Me.ToolStripMenuItem19.Size = New System.Drawing.Size(95, 22)
Me.ToolStripMenuItem19.Text = "T2"
'
'ToolStripMenuItem21
@@ -1081,7 +1082,7 @@ Partial Class frmSendungsdetailsNEU
'
Me.ToolStripMenuItem22.Image = Global.AVISO.My.Resources.Resources.weiterleiten_small1
Me.ToolStripMenuItem22.Name = "ToolStripMenuItem22"
- Me.ToolStripMenuItem22.Size = New System.Drawing.Size(184, 30)
+ Me.ToolStripMenuItem22.Size = New System.Drawing.Size(176, 22)
Me.ToolStripMenuItem22.Text = "MIC Import senden"
'
'ToolStripMenuItem23
@@ -1089,7 +1090,7 @@ Partial Class frmSendungsdetailsNEU
Me.ToolStripMenuItem23.Font = New System.Drawing.Font("Segoe UI", 9.0!)
Me.ToolStripMenuItem23.Image = Global.AVISO.My.Resources.Resources.weiterleiten_small1
Me.ToolStripMenuItem23.Name = "ToolStripMenuItem23"
- Me.ToolStripMenuItem23.Size = New System.Drawing.Size(184, 30)
+ Me.ToolStripMenuItem23.Size = New System.Drawing.Size(176, 22)
Me.ToolStripMenuItem23.Text = "MIC Transit senden"
'
'ToolStripMenuItem24
@@ -1098,7 +1099,7 @@ Partial Class frmSendungsdetailsNEU
Me.ToolStripMenuItem24.Font = New System.Drawing.Font("Segoe UI", 9.0!)
Me.ToolStripMenuItem24.Image = Global.AVISO.My.Resources.Resources.weiterleiten_small1
Me.ToolStripMenuItem24.Name = "ToolStripMenuItem24"
- Me.ToolStripMenuItem24.Size = New System.Drawing.Size(184, 30)
+ Me.ToolStripMenuItem24.Size = New System.Drawing.Size(176, 22)
Me.ToolStripMenuItem24.Text = "MIC Export senden"
'
'ToolStripMenuItem31
@@ -1555,30 +1556,23 @@ Partial Class frmSendungsdetailsNEU
Me.TabPage3.Text = "Vermerke"
Me.TabPage3.UseVisualStyleBackColor = True
'
- 'RCntrlVermerke1
- '
- Me.RCntrlVermerke1.Location = New System.Drawing.Point(251, 18)
- Me.RCntrlVermerke1.Name = "RCntrlVermerke1"
- Me.RCntrlVermerke1.Size = New System.Drawing.Size(575, 208)
- Me.RCntrlVermerke1.TabIndex = 1
- '
'gridVermerke
'
Me.gridVermerke.AllowUserToAddRows = False
Me.gridVermerke.AllowUserToDeleteRows = False
Me.gridVermerke.AllowUserToResizeRows = False
- DataGridViewCellStyle39.BackColor = System.Drawing.Color.Azure
- DataGridViewCellStyle39.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
- Me.gridVermerke.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle39
+ DataGridViewCellStyle1.BackColor = System.Drawing.Color.Azure
+ DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+ Me.gridVermerke.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
Me.gridVermerke.BackgroundColor = System.Drawing.Color.White
- DataGridViewCellStyle40.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
- DataGridViewCellStyle40.BackColor = System.Drawing.Color.LightBlue
- DataGridViewCellStyle40.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!)
- DataGridViewCellStyle40.ForeColor = System.Drawing.SystemColors.WindowText
- DataGridViewCellStyle40.SelectionBackColor = System.Drawing.SystemColors.Highlight
- DataGridViewCellStyle40.SelectionForeColor = System.Drawing.SystemColors.HighlightText
- DataGridViewCellStyle40.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
- Me.gridVermerke.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle40
+ 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
Me.gridVermerke.ColumnHeadersHeight = 29
Me.gridVermerke.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing
Me.gridVermerke.Dock = System.Windows.Forms.DockStyle.Fill
@@ -1589,8 +1583,8 @@ Partial Class frmSendungsdetailsNEU
Me.gridVermerke.RowHeadersVisible = False
Me.gridVermerke.RowHeadersWidth = 51
Me.gridVermerke.RowHeadersWidthSizeMode = System.Windows.Forms.DataGridViewRowHeadersWidthSizeMode.DisableResizing
- DataGridViewCellStyle41.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
- Me.gridVermerke.RowsDefaultCellStyle = DataGridViewCellStyle41
+ DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+ Me.gridVermerke.RowsDefaultCellStyle = DataGridViewCellStyle3
Me.gridVermerke.RowTemplate.Height = 20
Me.gridVermerke.RowTemplate.ReadOnly = True
Me.gridVermerke.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[False]
@@ -1618,18 +1612,18 @@ Partial Class frmSendungsdetailsNEU
Me.dgvATEZNCTS.AllowUserToAddRows = False
Me.dgvATEZNCTS.AllowUserToDeleteRows = False
Me.dgvATEZNCTS.AllowUserToResizeRows = False
- DataGridViewCellStyle42.BackColor = System.Drawing.Color.Azure
- DataGridViewCellStyle42.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
- Me.dgvATEZNCTS.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle42
+ DataGridViewCellStyle4.BackColor = System.Drawing.Color.Azure
+ DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+ Me.dgvATEZNCTS.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle4
Me.dgvATEZNCTS.BackgroundColor = System.Drawing.Color.White
- DataGridViewCellStyle43.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
- DataGridViewCellStyle43.BackColor = System.Drawing.Color.LightBlue
- DataGridViewCellStyle43.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
- DataGridViewCellStyle43.ForeColor = System.Drawing.SystemColors.WindowText
- DataGridViewCellStyle43.SelectionBackColor = System.Drawing.SystemColors.Highlight
- DataGridViewCellStyle43.SelectionForeColor = System.Drawing.SystemColors.HighlightText
- DataGridViewCellStyle43.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
- Me.dgvATEZNCTS.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle43
+ 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
Me.dgvATEZNCTS.ColumnHeadersHeight = 29
Me.dgvATEZNCTS.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing
Me.dgvATEZNCTS.Dock = System.Windows.Forms.DockStyle.Fill
@@ -1640,8 +1634,8 @@ Partial Class frmSendungsdetailsNEU
Me.dgvATEZNCTS.RowHeadersVisible = False
Me.dgvATEZNCTS.RowHeadersWidth = 51
Me.dgvATEZNCTS.RowHeadersWidthSizeMode = System.Windows.Forms.DataGridViewRowHeadersWidthSizeMode.DisableResizing
- DataGridViewCellStyle44.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
- Me.dgvATEZNCTS.RowsDefaultCellStyle = DataGridViewCellStyle44
+ DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+ Me.dgvATEZNCTS.RowsDefaultCellStyle = DataGridViewCellStyle6
Me.dgvATEZNCTS.RowTemplate.Height = 20
Me.dgvATEZNCTS.RowTemplate.ReadOnly = True
Me.dgvATEZNCTS.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[False]
@@ -1692,18 +1686,18 @@ Partial Class frmSendungsdetailsNEU
Me.dgvDigicust.AllowUserToAddRows = False
Me.dgvDigicust.AllowUserToDeleteRows = False
Me.dgvDigicust.AllowUserToResizeRows = False
- DataGridViewCellStyle45.BackColor = System.Drawing.Color.Azure
- DataGridViewCellStyle45.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
- Me.dgvDigicust.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle45
+ DataGridViewCellStyle7.BackColor = System.Drawing.Color.Azure
+ DataGridViewCellStyle7.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+ Me.dgvDigicust.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle7
Me.dgvDigicust.BackgroundColor = System.Drawing.Color.White
- DataGridViewCellStyle46.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
- DataGridViewCellStyle46.BackColor = System.Drawing.Color.LightBlue
- DataGridViewCellStyle46.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
- DataGridViewCellStyle46.ForeColor = System.Drawing.SystemColors.WindowText
- DataGridViewCellStyle46.SelectionBackColor = System.Drawing.SystemColors.Highlight
- DataGridViewCellStyle46.SelectionForeColor = System.Drawing.SystemColors.HighlightText
- DataGridViewCellStyle46.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
- Me.dgvDigicust.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle46
+ 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
Me.dgvDigicust.ColumnHeadersHeight = 29
Me.dgvDigicust.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing
Me.dgvDigicust.Dock = System.Windows.Forms.DockStyle.Fill
@@ -1714,8 +1708,8 @@ Partial Class frmSendungsdetailsNEU
Me.dgvDigicust.RowHeadersVisible = False
Me.dgvDigicust.RowHeadersWidth = 51
Me.dgvDigicust.RowHeadersWidthSizeMode = System.Windows.Forms.DataGridViewRowHeadersWidthSizeMode.DisableResizing
- DataGridViewCellStyle47.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
- Me.dgvDigicust.RowsDefaultCellStyle = DataGridViewCellStyle47
+ DataGridViewCellStyle9.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+ Me.dgvDigicust.RowsDefaultCellStyle = DataGridViewCellStyle9
Me.dgvDigicust.RowTemplate.Height = 20
Me.dgvDigicust.RowTemplate.ReadOnly = True
Me.dgvDigicust.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[False]
@@ -1767,18 +1761,18 @@ Partial Class frmSendungsdetailsNEU
Me.dgvMail.AllowUserToAddRows = False
Me.dgvMail.AllowUserToDeleteRows = False
Me.dgvMail.AllowUserToResizeRows = False
- DataGridViewCellStyle48.BackColor = System.Drawing.Color.Azure
- DataGridViewCellStyle48.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
- Me.dgvMail.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle48
+ DataGridViewCellStyle10.BackColor = System.Drawing.Color.Azure
+ DataGridViewCellStyle10.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+ Me.dgvMail.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle10
Me.dgvMail.BackgroundColor = System.Drawing.Color.White
- DataGridViewCellStyle49.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
- DataGridViewCellStyle49.BackColor = System.Drawing.Color.LightBlue
- DataGridViewCellStyle49.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
- DataGridViewCellStyle49.ForeColor = System.Drawing.SystemColors.WindowText
- DataGridViewCellStyle49.SelectionBackColor = System.Drawing.SystemColors.Highlight
- DataGridViewCellStyle49.SelectionForeColor = System.Drawing.SystemColors.HighlightText
- DataGridViewCellStyle49.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
- Me.dgvMail.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle49
+ DataGridViewCellStyle11.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+ DataGridViewCellStyle11.BackColor = System.Drawing.Color.LightBlue
+ DataGridViewCellStyle11.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
+ DataGridViewCellStyle11.ForeColor = System.Drawing.SystemColors.WindowText
+ DataGridViewCellStyle11.SelectionBackColor = System.Drawing.SystemColors.Highlight
+ DataGridViewCellStyle11.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+ DataGridViewCellStyle11.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+ Me.dgvMail.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle11
Me.dgvMail.ColumnHeadersHeight = 29
Me.dgvMail.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing
Me.dgvMail.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.clmnSender, Me.clmnRec, Me.clmnSbj, Me.clmnAtt, Me.clmnUIDL})
@@ -1790,8 +1784,8 @@ Partial Class frmSendungsdetailsNEU
Me.dgvMail.RowHeadersVisible = False
Me.dgvMail.RowHeadersWidth = 51
Me.dgvMail.RowHeadersWidthSizeMode = System.Windows.Forms.DataGridViewRowHeadersWidthSizeMode.DisableResizing
- DataGridViewCellStyle50.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
- Me.dgvMail.RowsDefaultCellStyle = DataGridViewCellStyle50
+ DataGridViewCellStyle12.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+ Me.dgvMail.RowsDefaultCellStyle = DataGridViewCellStyle12
Me.dgvMail.RowTemplate.Height = 20
Me.dgvMail.RowTemplate.ReadOnly = True
Me.dgvMail.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[False]
@@ -1905,6 +1899,7 @@ Partial Class frmSendungsdetailsNEU
'
'TabPage4
'
+ Me.TabPage4.Controls.Add(Me.btnWWberechnen)
Me.TabPage4.Controls.Add(Me.Panel22)
Me.TabPage4.Controls.Add(Me.Label12)
Me.TabPage4.Controls.Add(Me.Label10)
@@ -1947,6 +1942,52 @@ Partial Class frmSendungsdetailsNEU
Me.TabPage4.Text = "Aktendeckel"
Me.TabPage4.UseVisualStyleBackColor = True
'
+ 'Panel22
+ '
+ Me.Panel22.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+ Me.Panel22.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+ Me.Panel22.Controls.Add(Me.lblZuKass)
+ Me.Panel22.Controls.Add(Me.txtBARzuKassieren)
+ Me.Panel22.Location = New System.Drawing.Point(296, 252)
+ Me.Panel22.Name = "Panel22"
+ Me.Panel22.Size = New System.Drawing.Size(137, 47)
+ Me.Panel22.TabIndex = 2
+ Me.Panel22.TabStop = True
+ '
+ 'lblZuKass
+ '
+ Me.lblZuKass.AutoSize = True
+ Me.lblZuKass.Location = New System.Drawing.Point(29, 2)
+ Me.lblZuKass.Name = "lblZuKass"
+ Me.lblZuKass.Size = New System.Drawing.Size(100, 13)
+ Me.lblZuKass.TabIndex = 0
+ Me.lblZuKass.Text = "zu kassieren (BAR):"
+ '
+ 'txtBARzuKassieren
+ '
+ Me.txtBARzuKassieren._DateTimeOnly = False
+ Me.txtBARzuKassieren._numbersOnly = False
+ Me.txtBARzuKassieren._numbersOnlyKommastellen = ""
+ Me.txtBARzuKassieren._numbersOnlyTrennzeichen = True
+ Me.txtBARzuKassieren._Prozent = False
+ Me.txtBARzuKassieren._ShortDateNew = False
+ Me.txtBARzuKassieren._ShortDateOnly = False
+ Me.txtBARzuKassieren._TimeOnly = False
+ Me.txtBARzuKassieren._TimeOnly_Seconds = False
+ Me.txtBARzuKassieren._value = ""
+ Me.txtBARzuKassieren._Waehrung = True
+ Me.txtBARzuKassieren._WaehrungZeichen = True
+ Me.txtBARzuKassieren.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!)
+ Me.txtBARzuKassieren.ForeColor = System.Drawing.Color.Black
+ Me.txtBARzuKassieren.Location = New System.Drawing.Point(3, 16)
+ Me.txtBARzuKassieren.MaxLineLength = -1
+ Me.txtBARzuKassieren.MaxLines_Warning = ""
+ Me.txtBARzuKassieren.MaxLines_Warning_Label = Nothing
+ Me.txtBARzuKassieren.Name = "txtBARzuKassieren"
+ Me.txtBARzuKassieren.Size = New System.Drawing.Size(126, 26)
+ Me.txtBARzuKassieren.TabIndex = 1
+ Me.txtBARzuKassieren.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+ '
'Label12
'
Me.Label12.AutoSize = True
@@ -2366,52 +2407,6 @@ Partial Class frmSendungsdetailsNEU
Me.rtbAnmerkung.TabIndex = 19
Me.rtbAnmerkung.Text = ""
'
- 'Panel22
- '
- Me.Panel22.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
- Me.Panel22.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
- Me.Panel22.Controls.Add(Me.lblZuKass)
- Me.Panel22.Controls.Add(Me.txtBARzuKassieren)
- Me.Panel22.Location = New System.Drawing.Point(296, 252)
- Me.Panel22.Name = "Panel22"
- Me.Panel22.Size = New System.Drawing.Size(137, 47)
- Me.Panel22.TabIndex = 2
- Me.Panel22.TabStop = True
- '
- 'lblZuKass
- '
- Me.lblZuKass.AutoSize = True
- Me.lblZuKass.Location = New System.Drawing.Point(29, 2)
- Me.lblZuKass.Name = "lblZuKass"
- Me.lblZuKass.Size = New System.Drawing.Size(100, 13)
- Me.lblZuKass.TabIndex = 0
- Me.lblZuKass.Text = "zu kassieren (BAR):"
- '
- 'txtBARzuKassieren
- '
- Me.txtBARzuKassieren._DateTimeOnly = False
- Me.txtBARzuKassieren._numbersOnly = False
- Me.txtBARzuKassieren._numbersOnlyKommastellen = ""
- Me.txtBARzuKassieren._numbersOnlyTrennzeichen = True
- Me.txtBARzuKassieren._Prozent = False
- Me.txtBARzuKassieren._ShortDateNew = False
- Me.txtBARzuKassieren._ShortDateOnly = False
- Me.txtBARzuKassieren._TimeOnly = False
- Me.txtBARzuKassieren._TimeOnly_Seconds = False
- Me.txtBARzuKassieren._value = ""
- Me.txtBARzuKassieren._Waehrung = True
- Me.txtBARzuKassieren._WaehrungZeichen = True
- Me.txtBARzuKassieren.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!)
- Me.txtBARzuKassieren.ForeColor = System.Drawing.Color.Black
- Me.txtBARzuKassieren.Location = New System.Drawing.Point(3, 16)
- Me.txtBARzuKassieren.MaxLineLength = -1
- Me.txtBARzuKassieren.MaxLines_Warning = ""
- Me.txtBARzuKassieren.MaxLines_Warning_Label = Nothing
- Me.txtBARzuKassieren.Name = "txtBARzuKassieren"
- Me.txtBARzuKassieren.Size = New System.Drawing.Size(126, 26)
- Me.txtBARzuKassieren.TabIndex = 1
- Me.txtBARzuKassieren.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
- '
'Label7
'
Me.Label7.AutoSize = True
@@ -2563,36 +2558,36 @@ Partial Class frmSendungsdetailsNEU
Me.dgvVorkosten.AllowUserToResizeColumns = False
Me.dgvVorkosten.AllowUserToResizeRows = False
Me.dgvVorkosten.BackgroundColor = System.Drawing.Color.White
- DataGridViewCellStyle51.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
- DataGridViewCellStyle51.BackColor = System.Drawing.SystemColors.Control
- DataGridViewCellStyle51.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
- DataGridViewCellStyle51.ForeColor = System.Drawing.SystemColors.WindowText
- DataGridViewCellStyle51.SelectionBackColor = System.Drawing.SystemColors.Highlight
- DataGridViewCellStyle51.SelectionForeColor = System.Drawing.SystemColors.HighlightText
- DataGridViewCellStyle51.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
- Me.dgvVorkosten.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle51
+ DataGridViewCellStyle13.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+ DataGridViewCellStyle13.BackColor = System.Drawing.SystemColors.Control
+ DataGridViewCellStyle13.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ DataGridViewCellStyle13.ForeColor = System.Drawing.SystemColors.WindowText
+ DataGridViewCellStyle13.SelectionBackColor = System.Drawing.SystemColors.Highlight
+ DataGridViewCellStyle13.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+ DataGridViewCellStyle13.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+ Me.dgvVorkosten.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle13
Me.dgvVorkosten.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvVorkosten.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.clmnVK_id, Me.clmnFirma, Me.clmnLeistung, Me.clmnPreis})
- DataGridViewCellStyle53.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
- DataGridViewCellStyle53.BackColor = System.Drawing.SystemColors.Window
- DataGridViewCellStyle53.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
- DataGridViewCellStyle53.ForeColor = System.Drawing.SystemColors.ControlText
- DataGridViewCellStyle53.SelectionBackColor = System.Drawing.SystemColors.Highlight
- DataGridViewCellStyle53.SelectionForeColor = System.Drawing.SystemColors.HighlightText
- DataGridViewCellStyle53.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
- Me.dgvVorkosten.DefaultCellStyle = DataGridViewCellStyle53
+ DataGridViewCellStyle15.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+ DataGridViewCellStyle15.BackColor = System.Drawing.SystemColors.Window
+ DataGridViewCellStyle15.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ DataGridViewCellStyle15.ForeColor = System.Drawing.SystemColors.ControlText
+ DataGridViewCellStyle15.SelectionBackColor = System.Drawing.SystemColors.Highlight
+ DataGridViewCellStyle15.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+ DataGridViewCellStyle15.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+ Me.dgvVorkosten.DefaultCellStyle = DataGridViewCellStyle15
Me.dgvVorkosten.Location = New System.Drawing.Point(3, 4)
Me.dgvVorkosten.MultiSelect = False
Me.dgvVorkosten.Name = "dgvVorkosten"
Me.dgvVorkosten.ReadOnly = True
- DataGridViewCellStyle54.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
- DataGridViewCellStyle54.BackColor = System.Drawing.SystemColors.Control
- DataGridViewCellStyle54.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
- DataGridViewCellStyle54.ForeColor = System.Drawing.SystemColors.WindowText
- DataGridViewCellStyle54.SelectionBackColor = System.Drawing.SystemColors.Highlight
- DataGridViewCellStyle54.SelectionForeColor = System.Drawing.SystemColors.HighlightText
- DataGridViewCellStyle54.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
- Me.dgvVorkosten.RowHeadersDefaultCellStyle = DataGridViewCellStyle54
+ DataGridViewCellStyle16.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+ DataGridViewCellStyle16.BackColor = System.Drawing.SystemColors.Control
+ DataGridViewCellStyle16.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ DataGridViewCellStyle16.ForeColor = System.Drawing.SystemColors.WindowText
+ DataGridViewCellStyle16.SelectionBackColor = System.Drawing.SystemColors.Highlight
+ DataGridViewCellStyle16.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+ DataGridViewCellStyle16.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+ Me.dgvVorkosten.RowHeadersDefaultCellStyle = DataGridViewCellStyle16
Me.dgvVorkosten.RowHeadersVisible = False
Me.dgvVorkosten.RowHeadersWidth = 51
Me.dgvVorkosten.RowTemplate.Height = 18
@@ -2630,8 +2625,8 @@ Partial Class frmSendungsdetailsNEU
'clmnPreis
'
Me.clmnPreis.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
- DataGridViewCellStyle52.Format = "C2"
- Me.clmnPreis.DefaultCellStyle = DataGridViewCellStyle52
+ DataGridViewCellStyle14.Format = "C2"
+ Me.clmnPreis.DefaultCellStyle = DataGridViewCellStyle14
Me.clmnPreis.HeaderText = "Preis"
Me.clmnPreis.MaxInputLength = 15
Me.clmnPreis.MinimumWidth = 6
@@ -2660,35 +2655,35 @@ Partial Class frmSendungsdetailsNEU
Me.dgvBelege.AllowUserToResizeColumns = False
Me.dgvBelege.AllowUserToResizeRows = False
Me.dgvBelege.BackgroundColor = System.Drawing.Color.White
- DataGridViewCellStyle55.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
- DataGridViewCellStyle55.BackColor = System.Drawing.SystemColors.Control
- DataGridViewCellStyle55.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
- DataGridViewCellStyle55.ForeColor = System.Drawing.SystemColors.WindowText
- DataGridViewCellStyle55.SelectionBackColor = System.Drawing.SystemColors.Highlight
- DataGridViewCellStyle55.SelectionForeColor = System.Drawing.SystemColors.HighlightText
- DataGridViewCellStyle55.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
- Me.dgvBelege.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle55
+ DataGridViewCellStyle17.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+ DataGridViewCellStyle17.BackColor = System.Drawing.SystemColors.Control
+ DataGridViewCellStyle17.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ DataGridViewCellStyle17.ForeColor = System.Drawing.SystemColors.WindowText
+ DataGridViewCellStyle17.SelectionBackColor = System.Drawing.SystemColors.Highlight
+ DataGridViewCellStyle17.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+ DataGridViewCellStyle17.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+ Me.dgvBelege.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle17
Me.dgvBelege.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
- DataGridViewCellStyle56.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
- DataGridViewCellStyle56.BackColor = System.Drawing.SystemColors.Window
- DataGridViewCellStyle56.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
- DataGridViewCellStyle56.ForeColor = System.Drawing.SystemColors.ControlText
- DataGridViewCellStyle56.SelectionBackColor = System.Drawing.SystemColors.Highlight
- DataGridViewCellStyle56.SelectionForeColor = System.Drawing.SystemColors.HighlightText
- DataGridViewCellStyle56.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
- Me.dgvBelege.DefaultCellStyle = DataGridViewCellStyle56
+ DataGridViewCellStyle18.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+ DataGridViewCellStyle18.BackColor = System.Drawing.SystemColors.Window
+ DataGridViewCellStyle18.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ DataGridViewCellStyle18.ForeColor = System.Drawing.SystemColors.ControlText
+ DataGridViewCellStyle18.SelectionBackColor = System.Drawing.SystemColors.Highlight
+ DataGridViewCellStyle18.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+ DataGridViewCellStyle18.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+ Me.dgvBelege.DefaultCellStyle = DataGridViewCellStyle18
Me.dgvBelege.Location = New System.Drawing.Point(6, 40)
Me.dgvBelege.MultiSelect = False
Me.dgvBelege.Name = "dgvBelege"
Me.dgvBelege.ReadOnly = True
- DataGridViewCellStyle57.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
- DataGridViewCellStyle57.BackColor = System.Drawing.SystemColors.Control
- DataGridViewCellStyle57.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
- DataGridViewCellStyle57.ForeColor = System.Drawing.SystemColors.WindowText
- DataGridViewCellStyle57.SelectionBackColor = System.Drawing.SystemColors.Highlight
- DataGridViewCellStyle57.SelectionForeColor = System.Drawing.SystemColors.HighlightText
- DataGridViewCellStyle57.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
- Me.dgvBelege.RowHeadersDefaultCellStyle = DataGridViewCellStyle57
+ DataGridViewCellStyle19.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+ DataGridViewCellStyle19.BackColor = System.Drawing.SystemColors.Control
+ DataGridViewCellStyle19.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ DataGridViewCellStyle19.ForeColor = System.Drawing.SystemColors.WindowText
+ DataGridViewCellStyle19.SelectionBackColor = System.Drawing.SystemColors.Highlight
+ DataGridViewCellStyle19.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+ DataGridViewCellStyle19.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+ Me.dgvBelege.RowHeadersDefaultCellStyle = DataGridViewCellStyle19
Me.dgvBelege.RowHeadersVisible = False
Me.dgvBelege.RowHeadersWidth = 51
Me.dgvBelege.RowTemplate.Height = 18
@@ -3350,66 +3345,6 @@ Partial Class frmSendungsdetailsNEU
Me.Button1.Text = "BAR - Beleg"
Me.Button1.UseVisualStyleBackColor = False
'
- 'cntlFrachtfuehrer_Sonst
- '
- Me.cntlFrachtfuehrer_Sonst._abrArt = "SONST"
- Me.cntlFrachtfuehrer_Sonst._beteiligter = "FRACHTF"
- Me.cntlFrachtfuehrer_Sonst._readOnly = True
- Me.cntlFrachtfuehrer_Sonst.Location = New System.Drawing.Point(632, 168)
- Me.cntlFrachtfuehrer_Sonst.Name = "cntlFrachtfuehrer_Sonst"
- Me.cntlFrachtfuehrer_Sonst.Size = New System.Drawing.Size(21, 20)
- Me.cntlFrachtfuehrer_Sonst.TabIndex = 82
- Me.cntlFrachtfuehrer_Sonst.TabStop = False
- Me.cntlFrachtfuehrer_Sonst.value = ""
- '
- 'cntlAbsender_Sonst
- '
- Me.cntlAbsender_Sonst._abrArt = "SONST"
- Me.cntlAbsender_Sonst._beteiligter = "ABS"
- Me.cntlAbsender_Sonst._readOnly = True
- Me.cntlAbsender_Sonst.Location = New System.Drawing.Point(632, 133)
- Me.cntlAbsender_Sonst.Name = "cntlAbsender_Sonst"
- Me.cntlAbsender_Sonst.Size = New System.Drawing.Size(21, 20)
- Me.cntlAbsender_Sonst.TabIndex = 68
- Me.cntlAbsender_Sonst.TabStop = False
- Me.cntlAbsender_Sonst.value = ""
- '
- 'cntlEmpfaenger_Sonst
- '
- Me.cntlEmpfaenger_Sonst._abrArt = "SONST"
- Me.cntlEmpfaenger_Sonst._beteiligter = "EMPF"
- Me.cntlEmpfaenger_Sonst._readOnly = True
- Me.cntlEmpfaenger_Sonst.Location = New System.Drawing.Point(632, 94)
- Me.cntlEmpfaenger_Sonst.Name = "cntlEmpfaenger_Sonst"
- Me.cntlEmpfaenger_Sonst.Size = New System.Drawing.Size(21, 20)
- Me.cntlEmpfaenger_Sonst.TabIndex = 53
- Me.cntlEmpfaenger_Sonst.TabStop = False
- Me.cntlEmpfaenger_Sonst.value = ""
- '
- 'cntlAuftraggeber_Sonst
- '
- Me.cntlAuftraggeber_Sonst._abrArt = "SONST"
- Me.cntlAuftraggeber_Sonst._beteiligter = "AUFTR"
- Me.cntlAuftraggeber_Sonst._readOnly = True
- Me.cntlAuftraggeber_Sonst.Location = New System.Drawing.Point(632, 57)
- Me.cntlAuftraggeber_Sonst.Name = "cntlAuftraggeber_Sonst"
- Me.cntlAuftraggeber_Sonst.Size = New System.Drawing.Size(21, 20)
- Me.cntlAuftraggeber_Sonst.TabIndex = 36
- Me.cntlAuftraggeber_Sonst.TabStop = False
- Me.cntlAuftraggeber_Sonst.value = ""
- '
- 'cntlAvisierer_Sonst
- '
- Me.cntlAvisierer_Sonst._abrArt = "SONST"
- Me.cntlAvisierer_Sonst._beteiligter = "AVISIERER"
- Me.cntlAvisierer_Sonst._readOnly = True
- Me.cntlAvisierer_Sonst.Location = New System.Drawing.Point(632, 20)
- Me.cntlAvisierer_Sonst.Name = "cntlAvisierer_Sonst"
- Me.cntlAvisierer_Sonst.Size = New System.Drawing.Size(21, 20)
- Me.cntlAvisierer_Sonst.TabIndex = 21
- Me.cntlAvisierer_Sonst.TabStop = False
- Me.cntlAvisierer_Sonst.value = ""
- '
'lblSonstigesKosten
'
Me.lblSonstigesKosten.AutoSize = True
@@ -3477,246 +3412,6 @@ Partial Class frmSendungsdetailsNEU
Me.btnAufschub_VERAG.UseVisualStyleBackColor = False
Me.btnAufschub_VERAG.Visible = False
'
- 'cntlFrachtf_Clear
- '
- Me.cntlFrachtf_Clear._abrArt = "CLEARING"
- Me.cntlFrachtf_Clear._beteiligter = "FRACHTF"
- Me.cntlFrachtf_Clear._readOnly = False
- Me.cntlFrachtf_Clear.Location = New System.Drawing.Point(600, 168)
- Me.cntlFrachtf_Clear.Name = "cntlFrachtf_Clear"
- Me.cntlFrachtf_Clear.Size = New System.Drawing.Size(21, 20)
- Me.cntlFrachtf_Clear.TabIndex = 81
- Me.cntlFrachtf_Clear.TabStop = False
- Me.cntlFrachtf_Clear.value = ""
- '
- 'cntlFrachtf_Abf
- '
- Me.cntlFrachtf_Abf._abrArt = "ABFKOST"
- Me.cntlFrachtf_Abf._beteiligter = "FRACHTF"
- Me.cntlFrachtf_Abf._readOnly = False
- Me.cntlFrachtf_Abf.Location = New System.Drawing.Point(569, 168)
- Me.cntlFrachtf_Abf.Name = "cntlFrachtf_Abf"
- Me.cntlFrachtf_Abf.Size = New System.Drawing.Size(21, 20)
- Me.cntlFrachtf_Abf.TabIndex = 80
- Me.cntlFrachtf_Abf.TabStop = False
- Me.cntlFrachtf_Abf.value = ""
- '
- 'cntlFrachtf_Eust
- '
- Me.cntlFrachtf_Eust._abrArt = "EUST"
- Me.cntlFrachtf_Eust._beteiligter = "FRACHTF"
- Me.cntlFrachtf_Eust._readOnly = False
- Me.cntlFrachtf_Eust.Location = New System.Drawing.Point(538, 168)
- Me.cntlFrachtf_Eust.Name = "cntlFrachtf_Eust"
- Me.cntlFrachtf_Eust.Size = New System.Drawing.Size(21, 20)
- Me.cntlFrachtf_Eust.TabIndex = 79
- Me.cntlFrachtf_Eust.TabStop = False
- Me.cntlFrachtf_Eust.value = ""
- '
- 'cntlFrachtf_Zoll
- '
- Me.cntlFrachtf_Zoll._abrArt = "ZOLL"
- Me.cntlFrachtf_Zoll._beteiligter = "FRACHTF"
- Me.cntlFrachtf_Zoll._readOnly = False
- Me.cntlFrachtf_Zoll.Location = New System.Drawing.Point(507, 168)
- Me.cntlFrachtf_Zoll.Name = "cntlFrachtf_Zoll"
- Me.cntlFrachtf_Zoll.Size = New System.Drawing.Size(21, 20)
- Me.cntlFrachtf_Zoll.TabIndex = 78
- Me.cntlFrachtf_Zoll.TabStop = False
- Me.cntlFrachtf_Zoll.value = ""
- '
- 'cntlAbsender_Clear
- '
- Me.cntlAbsender_Clear._abrArt = "CLEARING"
- Me.cntlAbsender_Clear._beteiligter = "ABS"
- Me.cntlAbsender_Clear._readOnly = False
- Me.cntlAbsender_Clear.Location = New System.Drawing.Point(600, 133)
- Me.cntlAbsender_Clear.Name = "cntlAbsender_Clear"
- Me.cntlAbsender_Clear.Size = New System.Drawing.Size(21, 20)
- Me.cntlAbsender_Clear.TabIndex = 67
- Me.cntlAbsender_Clear.TabStop = False
- Me.cntlAbsender_Clear.value = ""
- '
- 'cntlAbsender_Abf
- '
- Me.cntlAbsender_Abf._abrArt = "ABFKOST"
- Me.cntlAbsender_Abf._beteiligter = "ABS"
- Me.cntlAbsender_Abf._readOnly = False
- Me.cntlAbsender_Abf.Location = New System.Drawing.Point(569, 133)
- Me.cntlAbsender_Abf.Name = "cntlAbsender_Abf"
- Me.cntlAbsender_Abf.Size = New System.Drawing.Size(21, 20)
- Me.cntlAbsender_Abf.TabIndex = 66
- Me.cntlAbsender_Abf.TabStop = False
- Me.cntlAbsender_Abf.value = ""
- '
- 'cntlAbsender_Eust
- '
- Me.cntlAbsender_Eust._abrArt = "EUST"
- Me.cntlAbsender_Eust._beteiligter = "ABS"
- Me.cntlAbsender_Eust._readOnly = False
- Me.cntlAbsender_Eust.Location = New System.Drawing.Point(538, 133)
- Me.cntlAbsender_Eust.Name = "cntlAbsender_Eust"
- Me.cntlAbsender_Eust.Size = New System.Drawing.Size(21, 20)
- Me.cntlAbsender_Eust.TabIndex = 65
- Me.cntlAbsender_Eust.TabStop = False
- Me.cntlAbsender_Eust.value = ""
- '
- 'cntlAbsender_Zoll
- '
- Me.cntlAbsender_Zoll._abrArt = "ZOLL"
- Me.cntlAbsender_Zoll._beteiligter = "ABS"
- Me.cntlAbsender_Zoll._readOnly = False
- Me.cntlAbsender_Zoll.Location = New System.Drawing.Point(507, 133)
- Me.cntlAbsender_Zoll.Name = "cntlAbsender_Zoll"
- Me.cntlAbsender_Zoll.Size = New System.Drawing.Size(21, 20)
- Me.cntlAbsender_Zoll.TabIndex = 64
- Me.cntlAbsender_Zoll.TabStop = False
- Me.cntlAbsender_Zoll.value = ""
- '
- 'cntlEmpf_Clear
- '
- Me.cntlEmpf_Clear._abrArt = "CLEARING"
- Me.cntlEmpf_Clear._beteiligter = "EMPF"
- Me.cntlEmpf_Clear._readOnly = False
- Me.cntlEmpf_Clear.Location = New System.Drawing.Point(600, 94)
- Me.cntlEmpf_Clear.Name = "cntlEmpf_Clear"
- Me.cntlEmpf_Clear.Size = New System.Drawing.Size(21, 20)
- Me.cntlEmpf_Clear.TabIndex = 52
- Me.cntlEmpf_Clear.TabStop = False
- Me.cntlEmpf_Clear.value = ""
- '
- 'cntlEmpf_Abf
- '
- Me.cntlEmpf_Abf._abrArt = "ABFKOST"
- Me.cntlEmpf_Abf._beteiligter = "EMPF"
- Me.cntlEmpf_Abf._readOnly = False
- Me.cntlEmpf_Abf.Location = New System.Drawing.Point(569, 94)
- Me.cntlEmpf_Abf.Name = "cntlEmpf_Abf"
- Me.cntlEmpf_Abf.Size = New System.Drawing.Size(21, 20)
- Me.cntlEmpf_Abf.TabIndex = 51
- Me.cntlEmpf_Abf.TabStop = False
- Me.cntlEmpf_Abf.value = ""
- '
- 'cntlEmpf_Eust
- '
- Me.cntlEmpf_Eust._abrArt = "EUST"
- Me.cntlEmpf_Eust._beteiligter = "EMPF"
- Me.cntlEmpf_Eust._readOnly = False
- Me.cntlEmpf_Eust.Location = New System.Drawing.Point(538, 94)
- Me.cntlEmpf_Eust.Name = "cntlEmpf_Eust"
- Me.cntlEmpf_Eust.Size = New System.Drawing.Size(21, 20)
- Me.cntlEmpf_Eust.TabIndex = 50
- Me.cntlEmpf_Eust.TabStop = False
- Me.cntlEmpf_Eust.value = ""
- '
- 'cntlEmpf_Zoll
- '
- Me.cntlEmpf_Zoll._abrArt = "ZOLL"
- Me.cntlEmpf_Zoll._beteiligter = "EMPF"
- Me.cntlEmpf_Zoll._readOnly = False
- Me.cntlEmpf_Zoll.Location = New System.Drawing.Point(507, 94)
- Me.cntlEmpf_Zoll.Name = "cntlEmpf_Zoll"
- Me.cntlEmpf_Zoll.Size = New System.Drawing.Size(21, 20)
- Me.cntlEmpf_Zoll.TabIndex = 49
- Me.cntlEmpf_Zoll.TabStop = False
- Me.cntlEmpf_Zoll.value = ""
- '
- 'cntlAuftr_Clear
- '
- Me.cntlAuftr_Clear._abrArt = "CLEARING"
- Me.cntlAuftr_Clear._beteiligter = "AUFTR"
- Me.cntlAuftr_Clear._readOnly = False
- Me.cntlAuftr_Clear.Location = New System.Drawing.Point(600, 57)
- Me.cntlAuftr_Clear.Name = "cntlAuftr_Clear"
- Me.cntlAuftr_Clear.Size = New System.Drawing.Size(21, 20)
- Me.cntlAuftr_Clear.TabIndex = 35
- Me.cntlAuftr_Clear.TabStop = False
- Me.cntlAuftr_Clear.value = ""
- '
- 'cntlAuftr_Abf
- '
- Me.cntlAuftr_Abf._abrArt = "ABFKOST"
- Me.cntlAuftr_Abf._beteiligter = "AUFTR"
- Me.cntlAuftr_Abf._readOnly = False
- Me.cntlAuftr_Abf.Location = New System.Drawing.Point(569, 57)
- Me.cntlAuftr_Abf.Name = "cntlAuftr_Abf"
- Me.cntlAuftr_Abf.Size = New System.Drawing.Size(21, 20)
- Me.cntlAuftr_Abf.TabIndex = 34
- Me.cntlAuftr_Abf.TabStop = False
- Me.cntlAuftr_Abf.value = ""
- '
- 'cntlAuftr_Eust
- '
- Me.cntlAuftr_Eust._abrArt = "EUST"
- Me.cntlAuftr_Eust._beteiligter = "AUFTR"
- Me.cntlAuftr_Eust._readOnly = False
- Me.cntlAuftr_Eust.Location = New System.Drawing.Point(538, 57)
- Me.cntlAuftr_Eust.Name = "cntlAuftr_Eust"
- Me.cntlAuftr_Eust.Size = New System.Drawing.Size(21, 20)
- Me.cntlAuftr_Eust.TabIndex = 33
- Me.cntlAuftr_Eust.TabStop = False
- Me.cntlAuftr_Eust.value = ""
- '
- 'cntlAuftr_Zoll
- '
- Me.cntlAuftr_Zoll._abrArt = "ZOLL"
- Me.cntlAuftr_Zoll._beteiligter = "AUFTR"
- Me.cntlAuftr_Zoll._readOnly = False
- Me.cntlAuftr_Zoll.Location = New System.Drawing.Point(507, 57)
- Me.cntlAuftr_Zoll.Name = "cntlAuftr_Zoll"
- Me.cntlAuftr_Zoll.Size = New System.Drawing.Size(21, 20)
- Me.cntlAuftr_Zoll.TabIndex = 32
- Me.cntlAuftr_Zoll.TabStop = False
- Me.cntlAuftr_Zoll.value = ""
- '
- 'cntlAvisierer_Clear
- '
- Me.cntlAvisierer_Clear._abrArt = "CLEARING"
- Me.cntlAvisierer_Clear._beteiligter = "AVISIERER"
- Me.cntlAvisierer_Clear._readOnly = False
- Me.cntlAvisierer_Clear.Location = New System.Drawing.Point(600, 20)
- Me.cntlAvisierer_Clear.Name = "cntlAvisierer_Clear"
- Me.cntlAvisierer_Clear.Size = New System.Drawing.Size(21, 20)
- Me.cntlAvisierer_Clear.TabIndex = 20
- Me.cntlAvisierer_Clear.TabStop = False
- Me.cntlAvisierer_Clear.value = ""
- '
- 'cntlAvisierer_Abf
- '
- Me.cntlAvisierer_Abf._abrArt = "ABFKOST"
- Me.cntlAvisierer_Abf._beteiligter = "AVISIERER"
- Me.cntlAvisierer_Abf._readOnly = False
- Me.cntlAvisierer_Abf.Location = New System.Drawing.Point(569, 20)
- Me.cntlAvisierer_Abf.Name = "cntlAvisierer_Abf"
- Me.cntlAvisierer_Abf.Size = New System.Drawing.Size(21, 20)
- Me.cntlAvisierer_Abf.TabIndex = 19
- Me.cntlAvisierer_Abf.TabStop = False
- Me.cntlAvisierer_Abf.value = ""
- '
- 'cntlAvisierer_Eust
- '
- Me.cntlAvisierer_Eust._abrArt = "EUST"
- Me.cntlAvisierer_Eust._beteiligter = "AVISIERER"
- Me.cntlAvisierer_Eust._readOnly = False
- Me.cntlAvisierer_Eust.Location = New System.Drawing.Point(538, 20)
- Me.cntlAvisierer_Eust.Name = "cntlAvisierer_Eust"
- Me.cntlAvisierer_Eust.Size = New System.Drawing.Size(21, 20)
- Me.cntlAvisierer_Eust.TabIndex = 18
- Me.cntlAvisierer_Eust.TabStop = False
- Me.cntlAvisierer_Eust.value = ""
- '
- 'cntlAvisierer_Zoll
- '
- Me.cntlAvisierer_Zoll._abrArt = "ZOLL"
- Me.cntlAvisierer_Zoll._beteiligter = "AVISIERER"
- Me.cntlAvisierer_Zoll._readOnly = False
- Me.cntlAvisierer_Zoll.Location = New System.Drawing.Point(507, 20)
- Me.cntlAvisierer_Zoll.Name = "cntlAvisierer_Zoll"
- Me.cntlAvisierer_Zoll.Size = New System.Drawing.Size(21, 20)
- Me.cntlAvisierer_Zoll.TabIndex = 17
- Me.cntlAvisierer_Zoll.TabStop = False
- Me.cntlAvisierer_Zoll.value = ""
- '
'Panel15
'
Me.Panel15.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
@@ -3907,14 +3602,6 @@ Partial Class frmSendungsdetailsNEU
Me.pnlT1.Size = New System.Drawing.Size(549, 118)
Me.pnlT1.TabIndex = 86
'
- 'UsrCntlSND_NCTSGestellungsadresse1
- '
- Me.UsrCntlSND_NCTSGestellungsadresse1.Dock = System.Windows.Forms.DockStyle.Fill
- Me.UsrCntlSND_NCTSGestellungsadresse1.Location = New System.Drawing.Point(0, 0)
- Me.UsrCntlSND_NCTSGestellungsadresse1.Name = "UsrCntlSND_NCTSGestellungsadresse1"
- Me.UsrCntlSND_NCTSGestellungsadresse1.Size = New System.Drawing.Size(549, 118)
- Me.UsrCntlSND_NCTSGestellungsadresse1.TabIndex = 0
- '
'Label43
'
Me.Label43.AutoSize = True
@@ -4902,7 +4589,7 @@ Partial Class frmSendungsdetailsNEU
Me.Panel2.Location = New System.Drawing.Point(0, 0)
Me.Panel2.MaximumSize = New System.Drawing.Size(0, 510)
Me.Panel2.Name = "Panel2"
- Me.Panel2.Size = New System.Drawing.Size(1214, 55)
+ Me.Panel2.Size = New System.Drawing.Size(0, 55)
Me.Panel2.TabIndex = 0
'
'FlowLayoutPanel
@@ -4914,7 +4601,7 @@ Partial Class frmSendungsdetailsNEU
Me.FlowLayoutPanel.MaximumSize = New System.Drawing.Size(0, 550)
Me.FlowLayoutPanel.MinimumSize = New System.Drawing.Size(0, 53)
Me.FlowLayoutPanel.Name = "FlowLayoutPanel"
- Me.FlowLayoutPanel.Size = New System.Drawing.Size(1214, 55)
+ Me.FlowLayoutPanel.Size = New System.Drawing.Size(0, 55)
Me.FlowLayoutPanel.TabIndex = 0
'
'FlatButton2
@@ -5899,6 +5586,330 @@ Partial Class frmSendungsdetailsNEU
Me.timerValidation.Enabled = True
Me.timerValidation.Interval = 2000
'
+ 'btnWWberechnen
+ '
+ Me.btnWWberechnen.Location = New System.Drawing.Point(76, 98)
+ Me.btnWWberechnen.Name = "btnWWberechnen"
+ Me.btnWWberechnen.Size = New System.Drawing.Size(130, 23)
+ Me.btnWWberechnen.TabIndex = 65
+ Me.btnWWberechnen.Text = "Warenwert berechnen"
+ Me.btnWWberechnen.UseVisualStyleBackColor = True
+ '
+ 'RCntrlVermerke1
+ '
+ Me.RCntrlVermerke1.Location = New System.Drawing.Point(251, 18)
+ Me.RCntrlVermerke1.Name = "RCntrlVermerke1"
+ Me.RCntrlVermerke1.Size = New System.Drawing.Size(575, 208)
+ Me.RCntrlVermerke1.TabIndex = 1
+ '
+ 'cntlFrachtfuehrer_Sonst
+ '
+ Me.cntlFrachtfuehrer_Sonst._abrArt = "SONST"
+ Me.cntlFrachtfuehrer_Sonst._beteiligter = "FRACHTF"
+ Me.cntlFrachtfuehrer_Sonst._readOnly = True
+ Me.cntlFrachtfuehrer_Sonst.Location = New System.Drawing.Point(632, 168)
+ Me.cntlFrachtfuehrer_Sonst.Name = "cntlFrachtfuehrer_Sonst"
+ Me.cntlFrachtfuehrer_Sonst.Size = New System.Drawing.Size(21, 20)
+ Me.cntlFrachtfuehrer_Sonst.TabIndex = 82
+ Me.cntlFrachtfuehrer_Sonst.TabStop = False
+ Me.cntlFrachtfuehrer_Sonst.value = ""
+ '
+ 'cntlAbsender_Sonst
+ '
+ Me.cntlAbsender_Sonst._abrArt = "SONST"
+ Me.cntlAbsender_Sonst._beteiligter = "ABS"
+ Me.cntlAbsender_Sonst._readOnly = True
+ Me.cntlAbsender_Sonst.Location = New System.Drawing.Point(632, 133)
+ Me.cntlAbsender_Sonst.Name = "cntlAbsender_Sonst"
+ Me.cntlAbsender_Sonst.Size = New System.Drawing.Size(21, 20)
+ Me.cntlAbsender_Sonst.TabIndex = 68
+ Me.cntlAbsender_Sonst.TabStop = False
+ Me.cntlAbsender_Sonst.value = ""
+ '
+ 'cntlEmpfaenger_Sonst
+ '
+ Me.cntlEmpfaenger_Sonst._abrArt = "SONST"
+ Me.cntlEmpfaenger_Sonst._beteiligter = "EMPF"
+ Me.cntlEmpfaenger_Sonst._readOnly = True
+ Me.cntlEmpfaenger_Sonst.Location = New System.Drawing.Point(632, 94)
+ Me.cntlEmpfaenger_Sonst.Name = "cntlEmpfaenger_Sonst"
+ Me.cntlEmpfaenger_Sonst.Size = New System.Drawing.Size(21, 20)
+ Me.cntlEmpfaenger_Sonst.TabIndex = 53
+ Me.cntlEmpfaenger_Sonst.TabStop = False
+ Me.cntlEmpfaenger_Sonst.value = ""
+ '
+ 'cntlAuftraggeber_Sonst
+ '
+ Me.cntlAuftraggeber_Sonst._abrArt = "SONST"
+ Me.cntlAuftraggeber_Sonst._beteiligter = "AUFTR"
+ Me.cntlAuftraggeber_Sonst._readOnly = True
+ Me.cntlAuftraggeber_Sonst.Location = New System.Drawing.Point(632, 57)
+ Me.cntlAuftraggeber_Sonst.Name = "cntlAuftraggeber_Sonst"
+ Me.cntlAuftraggeber_Sonst.Size = New System.Drawing.Size(21, 20)
+ Me.cntlAuftraggeber_Sonst.TabIndex = 36
+ Me.cntlAuftraggeber_Sonst.TabStop = False
+ Me.cntlAuftraggeber_Sonst.value = ""
+ '
+ 'cntlAvisierer_Sonst
+ '
+ Me.cntlAvisierer_Sonst._abrArt = "SONST"
+ Me.cntlAvisierer_Sonst._beteiligter = "AVISIERER"
+ Me.cntlAvisierer_Sonst._readOnly = True
+ Me.cntlAvisierer_Sonst.Location = New System.Drawing.Point(632, 20)
+ Me.cntlAvisierer_Sonst.Name = "cntlAvisierer_Sonst"
+ Me.cntlAvisierer_Sonst.Size = New System.Drawing.Size(21, 20)
+ Me.cntlAvisierer_Sonst.TabIndex = 21
+ Me.cntlAvisierer_Sonst.TabStop = False
+ Me.cntlAvisierer_Sonst.value = ""
+ '
+ 'cntlFrachtf_Clear
+ '
+ Me.cntlFrachtf_Clear._abrArt = "CLEARING"
+ Me.cntlFrachtf_Clear._beteiligter = "FRACHTF"
+ Me.cntlFrachtf_Clear._readOnly = False
+ Me.cntlFrachtf_Clear.Location = New System.Drawing.Point(600, 168)
+ Me.cntlFrachtf_Clear.Name = "cntlFrachtf_Clear"
+ Me.cntlFrachtf_Clear.Size = New System.Drawing.Size(21, 20)
+ Me.cntlFrachtf_Clear.TabIndex = 81
+ Me.cntlFrachtf_Clear.TabStop = False
+ Me.cntlFrachtf_Clear.value = ""
+ '
+ 'cntlFrachtf_Abf
+ '
+ Me.cntlFrachtf_Abf._abrArt = "ABFKOST"
+ Me.cntlFrachtf_Abf._beteiligter = "FRACHTF"
+ Me.cntlFrachtf_Abf._readOnly = False
+ Me.cntlFrachtf_Abf.Location = New System.Drawing.Point(569, 168)
+ Me.cntlFrachtf_Abf.Name = "cntlFrachtf_Abf"
+ Me.cntlFrachtf_Abf.Size = New System.Drawing.Size(21, 20)
+ Me.cntlFrachtf_Abf.TabIndex = 80
+ Me.cntlFrachtf_Abf.TabStop = False
+ Me.cntlFrachtf_Abf.value = ""
+ '
+ 'cntlFrachtf_Eust
+ '
+ Me.cntlFrachtf_Eust._abrArt = "EUST"
+ Me.cntlFrachtf_Eust._beteiligter = "FRACHTF"
+ Me.cntlFrachtf_Eust._readOnly = False
+ Me.cntlFrachtf_Eust.Location = New System.Drawing.Point(538, 168)
+ Me.cntlFrachtf_Eust.Name = "cntlFrachtf_Eust"
+ Me.cntlFrachtf_Eust.Size = New System.Drawing.Size(21, 20)
+ Me.cntlFrachtf_Eust.TabIndex = 79
+ Me.cntlFrachtf_Eust.TabStop = False
+ Me.cntlFrachtf_Eust.value = ""
+ '
+ 'cntlFrachtf_Zoll
+ '
+ Me.cntlFrachtf_Zoll._abrArt = "ZOLL"
+ Me.cntlFrachtf_Zoll._beteiligter = "FRACHTF"
+ Me.cntlFrachtf_Zoll._readOnly = False
+ Me.cntlFrachtf_Zoll.Location = New System.Drawing.Point(507, 168)
+ Me.cntlFrachtf_Zoll.Name = "cntlFrachtf_Zoll"
+ Me.cntlFrachtf_Zoll.Size = New System.Drawing.Size(21, 20)
+ Me.cntlFrachtf_Zoll.TabIndex = 78
+ Me.cntlFrachtf_Zoll.TabStop = False
+ Me.cntlFrachtf_Zoll.value = ""
+ '
+ 'cntlAbsender_Clear
+ '
+ Me.cntlAbsender_Clear._abrArt = "CLEARING"
+ Me.cntlAbsender_Clear._beteiligter = "ABS"
+ Me.cntlAbsender_Clear._readOnly = False
+ Me.cntlAbsender_Clear.Location = New System.Drawing.Point(600, 133)
+ Me.cntlAbsender_Clear.Name = "cntlAbsender_Clear"
+ Me.cntlAbsender_Clear.Size = New System.Drawing.Size(21, 20)
+ Me.cntlAbsender_Clear.TabIndex = 67
+ Me.cntlAbsender_Clear.TabStop = False
+ Me.cntlAbsender_Clear.value = ""
+ '
+ 'cntlAbsender_Abf
+ '
+ Me.cntlAbsender_Abf._abrArt = "ABFKOST"
+ Me.cntlAbsender_Abf._beteiligter = "ABS"
+ Me.cntlAbsender_Abf._readOnly = False
+ Me.cntlAbsender_Abf.Location = New System.Drawing.Point(569, 133)
+ Me.cntlAbsender_Abf.Name = "cntlAbsender_Abf"
+ Me.cntlAbsender_Abf.Size = New System.Drawing.Size(21, 20)
+ Me.cntlAbsender_Abf.TabIndex = 66
+ Me.cntlAbsender_Abf.TabStop = False
+ Me.cntlAbsender_Abf.value = ""
+ '
+ 'cntlAbsender_Eust
+ '
+ Me.cntlAbsender_Eust._abrArt = "EUST"
+ Me.cntlAbsender_Eust._beteiligter = "ABS"
+ Me.cntlAbsender_Eust._readOnly = False
+ Me.cntlAbsender_Eust.Location = New System.Drawing.Point(538, 133)
+ Me.cntlAbsender_Eust.Name = "cntlAbsender_Eust"
+ Me.cntlAbsender_Eust.Size = New System.Drawing.Size(21, 20)
+ Me.cntlAbsender_Eust.TabIndex = 65
+ Me.cntlAbsender_Eust.TabStop = False
+ Me.cntlAbsender_Eust.value = ""
+ '
+ 'cntlAbsender_Zoll
+ '
+ Me.cntlAbsender_Zoll._abrArt = "ZOLL"
+ Me.cntlAbsender_Zoll._beteiligter = "ABS"
+ Me.cntlAbsender_Zoll._readOnly = False
+ Me.cntlAbsender_Zoll.Location = New System.Drawing.Point(507, 133)
+ Me.cntlAbsender_Zoll.Name = "cntlAbsender_Zoll"
+ Me.cntlAbsender_Zoll.Size = New System.Drawing.Size(21, 20)
+ Me.cntlAbsender_Zoll.TabIndex = 64
+ Me.cntlAbsender_Zoll.TabStop = False
+ Me.cntlAbsender_Zoll.value = ""
+ '
+ 'cntlEmpf_Clear
+ '
+ Me.cntlEmpf_Clear._abrArt = "CLEARING"
+ Me.cntlEmpf_Clear._beteiligter = "EMPF"
+ Me.cntlEmpf_Clear._readOnly = False
+ Me.cntlEmpf_Clear.Location = New System.Drawing.Point(600, 94)
+ Me.cntlEmpf_Clear.Name = "cntlEmpf_Clear"
+ Me.cntlEmpf_Clear.Size = New System.Drawing.Size(21, 20)
+ Me.cntlEmpf_Clear.TabIndex = 52
+ Me.cntlEmpf_Clear.TabStop = False
+ Me.cntlEmpf_Clear.value = ""
+ '
+ 'cntlEmpf_Abf
+ '
+ Me.cntlEmpf_Abf._abrArt = "ABFKOST"
+ Me.cntlEmpf_Abf._beteiligter = "EMPF"
+ Me.cntlEmpf_Abf._readOnly = False
+ Me.cntlEmpf_Abf.Location = New System.Drawing.Point(569, 94)
+ Me.cntlEmpf_Abf.Name = "cntlEmpf_Abf"
+ Me.cntlEmpf_Abf.Size = New System.Drawing.Size(21, 20)
+ Me.cntlEmpf_Abf.TabIndex = 51
+ Me.cntlEmpf_Abf.TabStop = False
+ Me.cntlEmpf_Abf.value = ""
+ '
+ 'cntlEmpf_Eust
+ '
+ Me.cntlEmpf_Eust._abrArt = "EUST"
+ Me.cntlEmpf_Eust._beteiligter = "EMPF"
+ Me.cntlEmpf_Eust._readOnly = False
+ Me.cntlEmpf_Eust.Location = New System.Drawing.Point(538, 94)
+ Me.cntlEmpf_Eust.Name = "cntlEmpf_Eust"
+ Me.cntlEmpf_Eust.Size = New System.Drawing.Size(21, 20)
+ Me.cntlEmpf_Eust.TabIndex = 50
+ Me.cntlEmpf_Eust.TabStop = False
+ Me.cntlEmpf_Eust.value = ""
+ '
+ 'cntlEmpf_Zoll
+ '
+ Me.cntlEmpf_Zoll._abrArt = "ZOLL"
+ Me.cntlEmpf_Zoll._beteiligter = "EMPF"
+ Me.cntlEmpf_Zoll._readOnly = False
+ Me.cntlEmpf_Zoll.Location = New System.Drawing.Point(507, 94)
+ Me.cntlEmpf_Zoll.Name = "cntlEmpf_Zoll"
+ Me.cntlEmpf_Zoll.Size = New System.Drawing.Size(21, 20)
+ Me.cntlEmpf_Zoll.TabIndex = 49
+ Me.cntlEmpf_Zoll.TabStop = False
+ Me.cntlEmpf_Zoll.value = ""
+ '
+ 'cntlAuftr_Clear
+ '
+ Me.cntlAuftr_Clear._abrArt = "CLEARING"
+ Me.cntlAuftr_Clear._beteiligter = "AUFTR"
+ Me.cntlAuftr_Clear._readOnly = False
+ Me.cntlAuftr_Clear.Location = New System.Drawing.Point(600, 57)
+ Me.cntlAuftr_Clear.Name = "cntlAuftr_Clear"
+ Me.cntlAuftr_Clear.Size = New System.Drawing.Size(21, 20)
+ Me.cntlAuftr_Clear.TabIndex = 35
+ Me.cntlAuftr_Clear.TabStop = False
+ Me.cntlAuftr_Clear.value = ""
+ '
+ 'cntlAuftr_Abf
+ '
+ Me.cntlAuftr_Abf._abrArt = "ABFKOST"
+ Me.cntlAuftr_Abf._beteiligter = "AUFTR"
+ Me.cntlAuftr_Abf._readOnly = False
+ Me.cntlAuftr_Abf.Location = New System.Drawing.Point(569, 57)
+ Me.cntlAuftr_Abf.Name = "cntlAuftr_Abf"
+ Me.cntlAuftr_Abf.Size = New System.Drawing.Size(21, 20)
+ Me.cntlAuftr_Abf.TabIndex = 34
+ Me.cntlAuftr_Abf.TabStop = False
+ Me.cntlAuftr_Abf.value = ""
+ '
+ 'cntlAuftr_Eust
+ '
+ Me.cntlAuftr_Eust._abrArt = "EUST"
+ Me.cntlAuftr_Eust._beteiligter = "AUFTR"
+ Me.cntlAuftr_Eust._readOnly = False
+ Me.cntlAuftr_Eust.Location = New System.Drawing.Point(538, 57)
+ Me.cntlAuftr_Eust.Name = "cntlAuftr_Eust"
+ Me.cntlAuftr_Eust.Size = New System.Drawing.Size(21, 20)
+ Me.cntlAuftr_Eust.TabIndex = 33
+ Me.cntlAuftr_Eust.TabStop = False
+ Me.cntlAuftr_Eust.value = ""
+ '
+ 'cntlAuftr_Zoll
+ '
+ Me.cntlAuftr_Zoll._abrArt = "ZOLL"
+ Me.cntlAuftr_Zoll._beteiligter = "AUFTR"
+ Me.cntlAuftr_Zoll._readOnly = False
+ Me.cntlAuftr_Zoll.Location = New System.Drawing.Point(507, 57)
+ Me.cntlAuftr_Zoll.Name = "cntlAuftr_Zoll"
+ Me.cntlAuftr_Zoll.Size = New System.Drawing.Size(21, 20)
+ Me.cntlAuftr_Zoll.TabIndex = 32
+ Me.cntlAuftr_Zoll.TabStop = False
+ Me.cntlAuftr_Zoll.value = ""
+ '
+ 'cntlAvisierer_Clear
+ '
+ Me.cntlAvisierer_Clear._abrArt = "CLEARING"
+ Me.cntlAvisierer_Clear._beteiligter = "AVISIERER"
+ Me.cntlAvisierer_Clear._readOnly = False
+ Me.cntlAvisierer_Clear.Location = New System.Drawing.Point(600, 20)
+ Me.cntlAvisierer_Clear.Name = "cntlAvisierer_Clear"
+ Me.cntlAvisierer_Clear.Size = New System.Drawing.Size(21, 20)
+ Me.cntlAvisierer_Clear.TabIndex = 20
+ Me.cntlAvisierer_Clear.TabStop = False
+ Me.cntlAvisierer_Clear.value = ""
+ '
+ 'cntlAvisierer_Abf
+ '
+ Me.cntlAvisierer_Abf._abrArt = "ABFKOST"
+ Me.cntlAvisierer_Abf._beteiligter = "AVISIERER"
+ Me.cntlAvisierer_Abf._readOnly = False
+ Me.cntlAvisierer_Abf.Location = New System.Drawing.Point(569, 20)
+ Me.cntlAvisierer_Abf.Name = "cntlAvisierer_Abf"
+ Me.cntlAvisierer_Abf.Size = New System.Drawing.Size(21, 20)
+ Me.cntlAvisierer_Abf.TabIndex = 19
+ Me.cntlAvisierer_Abf.TabStop = False
+ Me.cntlAvisierer_Abf.value = ""
+ '
+ 'cntlAvisierer_Eust
+ '
+ Me.cntlAvisierer_Eust._abrArt = "EUST"
+ Me.cntlAvisierer_Eust._beteiligter = "AVISIERER"
+ Me.cntlAvisierer_Eust._readOnly = False
+ Me.cntlAvisierer_Eust.Location = New System.Drawing.Point(538, 20)
+ Me.cntlAvisierer_Eust.Name = "cntlAvisierer_Eust"
+ Me.cntlAvisierer_Eust.Size = New System.Drawing.Size(21, 20)
+ Me.cntlAvisierer_Eust.TabIndex = 18
+ Me.cntlAvisierer_Eust.TabStop = False
+ Me.cntlAvisierer_Eust.value = ""
+ '
+ 'cntlAvisierer_Zoll
+ '
+ Me.cntlAvisierer_Zoll._abrArt = "ZOLL"
+ Me.cntlAvisierer_Zoll._beteiligter = "AVISIERER"
+ Me.cntlAvisierer_Zoll._readOnly = False
+ Me.cntlAvisierer_Zoll.Location = New System.Drawing.Point(507, 20)
+ Me.cntlAvisierer_Zoll.Name = "cntlAvisierer_Zoll"
+ Me.cntlAvisierer_Zoll.Size = New System.Drawing.Size(21, 20)
+ Me.cntlAvisierer_Zoll.TabIndex = 17
+ Me.cntlAvisierer_Zoll.TabStop = False
+ Me.cntlAvisierer_Zoll.value = ""
+ '
+ 'UsrCntlSND_NCTSGestellungsadresse1
+ '
+ Me.UsrCntlSND_NCTSGestellungsadresse1.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.UsrCntlSND_NCTSGestellungsadresse1.Location = New System.Drawing.Point(0, 0)
+ Me.UsrCntlSND_NCTSGestellungsadresse1.Name = "UsrCntlSND_NCTSGestellungsadresse1"
+ Me.UsrCntlSND_NCTSGestellungsadresse1.Size = New System.Drawing.Size(549, 118)
+ Me.UsrCntlSND_NCTSGestellungsadresse1.TabIndex = 0
+ '
'frmSendungsdetailsNEU
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
@@ -6430,4 +6441,5 @@ Partial Class frmSendungsdetailsNEU
Friend WithEvents clmnAtt As DataGridViewTextBoxColumn
Friend WithEvents clmnUIDL As DataGridViewTextBoxColumn
Friend WithEvents RCntrlVermerke1 As rCntrlVermerke
+ Friend WithEvents btnWWberechnen As Button
End Class
diff --git a/Aviso/frmSendungsdetailsNEU.vb b/Aviso/frmSendungsdetailsNEU.vb
index ec87e77..d71213b 100644
--- a/Aviso/frmSendungsdetailsNEU.vb
+++ b/Aviso/frmSendungsdetailsNEU.vb
@@ -406,6 +406,7 @@ Public Class frmSendungsdetailsNEU
Private Sub frmSendungsdetails_Load(sender As Object, e As EventArgs) Handles Me.Load
VERAG_PROG_ALLGEMEIN.cAllgemein._TRANSLATE(Me)
Button23.Visible = True
+ btnWWberechnen.Visible = False
If UNBOUND Then
FlowLayoutPanel.Visible = False
@@ -542,19 +543,19 @@ Public Class frmSendungsdetailsNEU
If AVISO IsNot Nothing Then
If it.Tag.ToString = "???" Then
- SAVE_ME()
- AVISO.Grenzstelle = "???"
- AvisoStatusFunctions.ummeldenAVISO(AVISO, it.Tag.ToString)
- cGlobal.Aktive_ID = AvisoId
- Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm()
- Dim f As New frmEintragAviso
- f.ShowDialog(frmGrayOut)
- frmGrayOut.Close()
- AVISO = AvisoDAL.LesenAviso(AvisoId, "")
- Else
- SAVE_ME()
- AvisoStatusFunctions.ummeldenAVISO(AVISO, it.Tag.ToString)
- End If
+ SAVE_ME()
+ AVISO.Grenzstelle = "???"
+ AvisoStatusFunctions.ummeldenAVISO(AVISO, it.Tag.ToString)
+ cGlobal.Aktive_ID = AvisoId
+ Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm()
+ Dim f As New frmEintragAviso
+ f.ShowDialog(frmGrayOut)
+ frmGrayOut.Close()
+ AVISO = AvisoDAL.LesenAviso(AvisoId, "")
+ Else
+ SAVE_ME()
+ AvisoStatusFunctions.ummeldenAVISO(AVISO, it.Tag.ToString)
+ End If
Me.initDataBinding()
End If
@@ -1549,6 +1550,9 @@ Public Class frmSendungsdetailsNEU
End If
pnlT1.Controls.Add(usrcntl_ATB)
+
+ btnWWberechnen.Visible = True
+
End Select
cboAbfertigungsart_SelectedIndexChanged(cboAbfertigungsart, New EventArgs)
@@ -1671,16 +1675,16 @@ Public Class frmSendungsdetailsNEU
'Übergangsphase Aviso/Sendung
If txtAvisierer.Text = "" And txtAvisierer.Enabled Then 'And (VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(cboFiliale._value) = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Or VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERIMEX") Then
- If AVISO.Auftraggeber_KdNr > -1 Then
- If VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromKdNr(AVISO.Auftraggeber_KdNr) = VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(cboFiliale._value) Then
- txtAvisierer.KdNr = AVISO.Auftraggeber_KdNr
+ If AVISO.Auftraggeber_KdNr > -1 Then
+ If VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromKdNr(AVISO.Auftraggeber_KdNr) = VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(cboFiliale._value) Then
+ txtAvisierer.KdNr = AVISO.Auftraggeber_KdNr
+ End If
+ Else
+ txtAvisierer.KdNr_value = -1
+ txtAvisiererKdNr.Text = ""
+ txtAvisierer.Text = AVISO.Auftraggeber
End If
- Else
- txtAvisierer.KdNr_value = -1
- txtAvisiererKdNr.Text = ""
- txtAvisierer.Text = AVISO.Auftraggeber
End If
- End If
'Übergangsphase Aviso/Sendung
@@ -3108,7 +3112,7 @@ Public Class frmSendungsdetailsNEU
If cbxFremdspedition.Checked Then
sperren = True
ElseIf cboAbfertigungsart._value = "44" Then
- sperren = False
+ sperren = False
Else
If cboFiliale._value <> "" Then
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
@@ -4194,7 +4198,7 @@ Public Class frmSendungsdetailsNEU
- Dim docPath = VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(dgvAnhang.SelectedRows(0).Cells("anh_docId").Value)
+ Dim docPath = VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(dgvAnhang.SelectedRows(0).Cells("anh_docId").Value)
If Not File.Exists(docPath) Then
MsgBox("Die Datei existiert nicht!")
Else
@@ -7030,9 +7034,9 @@ Public Class frmSendungsdetailsNEU
If lblGrenze.Text <> "" Then
- TextHTML = TextHTML.Replace("%VAR-GRENZE%", lblGrenze.Text & "
")
- Mail.Subject = Mail.Subject.Replace("%VAR-GRENZE%", lblGrenze.Text.Replace(vbCrLf, " "))
- End If
+ TextHTML = TextHTML.Replace("%VAR-GRENZE%", lblGrenze.Text & "
")
+ Mail.Subject = Mail.Subject.Replace("%VAR-GRENZE%", lblGrenze.Text.Replace(vbCrLf, " "))
+ End If
If SENDUNG_LIST(CURRENT_INDEX).tblSnd_Empfaenger IsNot Nothing Then
Mail.Subject = Mail.Subject.Replace("%Empfaenger%", SENDUNG_LIST(CURRENT_INDEX).tblSnd_Empfaenger)
@@ -7069,11 +7073,11 @@ Public Class frmSendungsdetailsNEU
Mail.Subject = Mail.Subject.Replace("%AbfertigungsNr%", "")
Mail.Subject = Mail.Subject.Replace("%Absender%", "")
Mail.Subject = Mail.Subject.Replace("%Gewicht%", "")
- Mail.Subject = Mail.Subject.Replace("%ImEx%", "")
- Mail.Subject = Mail.Subject.Replace("%Zollstelle%", "")
+ Mail.Subject = Mail.Subject.Replace("%ImEx%", "")
+ Mail.Subject = Mail.Subject.Replace("%Zollstelle%", "")
- TextHTML = TextHTML.Replace("%LKW%", "")
+ TextHTML = TextHTML.Replace("%LKW%", "")
TextHTML = TextHTML.Replace("%LKWKennzeichen%", "")
TextHTML = TextHTML.Replace("%Empfaenger%", "")
TextHTML = TextHTML.Replace("%VAR-GRENZE%", "")
@@ -7082,10 +7086,10 @@ Public Class frmSendungsdetailsNEU
TextHTML = TextHTML.Replace("%AbfertigungsNr%", "")
TextHTML = TextHTML.Replace("%Absender%", "")
TextHTML = TextHTML.Replace("%Gewicht%", "")
- TextHTML = TextHTML.Replace("%ImEx%", "")
- TextHTML = TextHTML.Replace("%Zollstelle%", "")
+ TextHTML = TextHTML.Replace("%ImEx%", "")
+ TextHTML = TextHTML.Replace("%Zollstelle%", "")
- For Each anh As DataGridViewRow In dgvAnhang.SelectedRows
+ For Each anh As DataGridViewRow In dgvAnhang.SelectedRows
Mail.Attachments.Add(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(anh.Cells("anh_docId").Value), Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue)
Next
@@ -7364,4 +7368,93 @@ Public Class frmSendungsdetailsNEU
Panel22.BackColor = Color.FromArgb(255, 255, 192)
End If
End Sub
+
+ Private Sub btnWWberechnen_Click(sender As Object, e As EventArgs) Handles btnWWberechnen.Click
+ Dim calcWarenwerte As Double = 0
+ Dim vorpT1 = usrcntl_ATB.txtATBT1.Text
+
+ If SENDUNG_LIST(CURRENT_INDEX).tblSnd_WarenwertWaehrung = "" Then
+ txtWarenwertWaehrung.SET_VALUE("EUR")
+ SAVE_ME()
+ End If
+
+ If vorpT1 = "" Then
+ MsgBox("Vorpapier/T1 muss eingetragen werden!")
+ usrcntl_ATB.txtATBT1.Focus()
+ Exit Sub
+ End If
+
+ If SENDUNG_LIST(CURRENT_INDEX).tblSnd_WarenwertWaehrung <> "EUR" Then
+ MsgBox("Warenwert darf nur in EUR angegeben werden")
+ Exit Sub
+ End If
+
+
+
+ For Each s As cSendungen In SENDUNG_LIST
+ 'nur Betrag EUR
+ If s.tblSnd_Vorpapier = vorp Then
+ If s.tblSnd_WarenwertWaehrung = "EUR" AndAlso s.tblSnd_Warenwert > 0 AndAlso s.FilialenNr = SENDUNG_LIST(CURRENT_INDEX).FilialenNr Then
+ calcWarenwerte += s.tblSnd_Warenwert
+ Else
+ MsgBox("Bei Sendung " & s.AbfertigungsNr & " ist der Warenwert nicht in EUR angegeben!")
+ Exit Sub
+ End If
+
+ End If
+
+ Next
+
+ If SENDUNG_LIST(CURRENT_INDEX).tblSnd_Warenwert Is Nothing Then
+ SENDUNG_LIST(CURRENT_INDEX).tblSnd_Warenwert = Math.Round(calcWarenwerte, 2)
+ SAVE_ME()
+ End If
+
+
+ If Math.Round(calcWarenwerte, 2) <> Math.Round(SENDUNG_LIST(CURRENT_INDEX).tblSnd_Warenwert, 2) Then
+ MsgBox("Warenwert für Gestellung stimmt nicht überein!" & vbNewLine & "Berechnerter Warenwert: " & Math.Round(calcWarenwerte, 2) & vbNewLine & "Eingetragener Warenwert: " & Math.Round(SENDUNG_LIST(CURRENT_INDEX).tblSnd_Warenwert, 2), MsgBoxStyle.Critical)
+
+ Else
+
+ Dim Standort As String = ""
+
+
+ Select Case SENDUNG_LIST(CURRENT_INDEX).FilialenNr
+ Case 4803, 4809
+ Standort = "VERAG AG"
+ Case 5601
+ Standort = "Unisped GmbH"
+ Case 5701
+ Standort = "AMBAR"
+ Case 4810,
+ Standort = "VERAG GmbH"
+ Case 5103
+ Standort = "VERAG CS"
+ Case 5501
+ Standort = "IMEX"
+
+ End Select
+
+
+
+ Dim GesSichRef = New VERAG_PROG_ALLGEMEIN.cGesamtsicherheitsReferenz(Standort)
+
+ If GesSichRef Is Nothing Then
+ Exit Sub
+ End If
+
+ Dim saldo = GesSichRef.CalcSaldo()
+ If calcWarenwerte > saldo Then
+ MsgBox("Gestellung kann NICHT durchgeführt werden!" & vbNewLine & "Eingetragener Warenwert: " & calcWarenwerte & " übersteigt den vorhandenen Saldo von: " & saldo, MsgBoxStyle.Critical)
+ Else
+ MsgBox("Gestellung kann durchgeführt werden!")
+ End If
+
+
+
+
+ End If
+
+
+ End Sub
End Class
diff --git a/Aviso/usrCntlSND_ATBGestellung.Designer.vb b/Aviso/usrCntlSND_ATBGestellung.Designer.vb
index 7a251b9..c0bb1b5 100644
--- a/Aviso/usrCntlSND_ATBGestellung.Designer.vb
+++ b/Aviso/usrCntlSND_ATBGestellung.Designer.vb
@@ -23,6 +23,7 @@ Partial Class usrCntlSND_ATBGestellung
Private Sub InitializeComponent()
Me.pnlT1 = New System.Windows.Forms.Panel()
+ Me.btnGesSicherheit = New System.Windows.Forms.Button()
Me.Button1 = New System.Windows.Forms.Button()
Me.cbxATBFakturieren = New System.Windows.Forms.CheckBox()
Me.txtATBNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
@@ -36,6 +37,7 @@ Partial Class usrCntlSND_ATBGestellung
'
'pnlT1
'
+ Me.pnlT1.Controls.Add(Me.btnGesSicherheit)
Me.pnlT1.Controls.Add(Me.Button1)
Me.pnlT1.Controls.Add(Me.cbxATBFakturieren)
Me.pnlT1.Controls.Add(Me.txtATBNr)
@@ -49,6 +51,15 @@ Partial Class usrCntlSND_ATBGestellung
Me.pnlT1.Size = New System.Drawing.Size(549, 101)
Me.pnlT1.TabIndex = 0
'
+ 'btnGesSicherheit
+ '
+ Me.btnGesSicherheit.Location = New System.Drawing.Point(417, 3)
+ Me.btnGesSicherheit.Name = "btnGesSicherheit"
+ Me.btnGesSicherheit.Size = New System.Drawing.Size(113, 49)
+ Me.btnGesSicherheit.TabIndex = 25
+ Me.btnGesSicherheit.Text = "Gesamtsicherheit (Verwahrung)"
+ Me.btnGesSicherheit.UseVisualStyleBackColor = True
+ '
'Button1
'
Me.Button1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
@@ -192,5 +203,6 @@ Partial Class usrCntlSND_ATBGestellung
Friend WithEvents Label4 As Label
Friend WithEvents txtATBNr As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents cbxATBFakturieren As CheckBox
+ Friend WithEvents btnGesSicherheit As Button
Friend WithEvents Button1 As Button
End Class
diff --git a/Aviso/usrCntlSND_ATBGestellung.vb b/Aviso/usrCntlSND_ATBGestellung.vb
index f295480..16e5618 100644
--- a/Aviso/usrCntlSND_ATBGestellung.vb
+++ b/Aviso/usrCntlSND_ATBGestellung.vb
@@ -1,8 +1,14 @@
Imports DAKOSY_Worker
Imports SDL
+Imports VERAG_PROG_ALLGEMEIN
+
+
Public Class usrCntlSND_ATBGestellung
+ Dim _SendungsId As Object
+ Public firmaId As Integer
+
'Public NCTS_GA As VERAG_PROG_ALLGEMEIN.cNCTSGestellungsadressen
Dim AVISO As VERAG_PROG_ALLGEMEIN.cAviso = Nothing
@@ -10,6 +16,7 @@ Public Class usrCntlSND_ATBGestellung
Sub New(AVISO, SND)
+
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
@@ -40,10 +47,96 @@ Public Class usrCntlSND_ATBGestellung
MsgBox("Fehler beim Speichern. Ankunftsanzeige abgebrochen.")
End If
Me.Cursor = Cursors.Default
+ End Sub
+
+
+ Private Sub btnGesSicherheit_Click(sender As Object, e As EventArgs) Handles btnGesSicherheit.Click
+
+ If txtATBT1.Text <> "" Then
+
+ Dim Standort = ""
+
+ Select Case SND.FilialenNr
+ Case 4803, 4809
+ Standort = "VERAG AG" : firmaId = 1
+ Case 5601
+ Standort = "Unisped GmbH" : firmaId = 21
+ Case 5701
+ Standort = "AMBAR" : firmaId = 24
+ Case 4810,
+ Standort = "VERAG GmbH" : firmaId = 1
+ Case 5103
+ Standort = "VERAG CS" : firmaId = 11
+ Case 5501
+ Standort = "IMEX" : firmaId = 20
+
+ End Select
+
+
+ Dim GesSichRef = New VERAG_PROG_ALLGEMEIN.cAufschubKonten(Standort)
+
+ If GesSichRef Is Nothing Then
+ Exit Sub
+ End If
+
+ Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
+ Dim gsid As Integer = 0
+ Dim SQLString As String = "Select top (1) gs_gsNr from [tblGesamtsicherheit] where [gs_ATBNr] = '" & txtATBT1.Text & "' or ([gs_filialenNr] = '" & SND.FilialenNr & "' and [gs_abfertigungsNr] = " & SND.AbfertigungsNr & " ) or gs_avisoId = '" & SND.tblSnd_AvisoID & "' "
+
+
+
+ Dim dt As New DataTable
+ dt = SQL.loadDgvBySql(SQLString, "AVISO", 100, True)
+ If dt.Rows.Count > 0 Then
+ gsid = dt.Rows(0).Item("gs_gsNr")
+ End If
+
+ Dim frm As New frmGesamtsicherheitenNEU
+
+ If gsid > 0 Then
+ Dim gessicherheit As New cSicherheiten(gsid)
+ With frm
+ .currentGesSichRef = GesSichRef
+ .gessicherheitID = gessicherheit.gs_gsId
+ .Standort = Standort
+ .FilialNummer = gessicherheit.gs_filialenNr
+ .Abfertigungsnummer = gessicherheit.gs_abfertigungsnr
+ .warenortID = gessicherheit.gs_warenort
+ .LKWKZ = gessicherheit.gs_LKWKZ
+ .firmaId = firmaId
+ End With
+
+ AddHandler frm.FormClosing, Function()
+ GesSichRef.CalcSaldo()
+ Me.BringToFront()
+ End Function
+ frm.Show()
+ Else
+
+
+ With frm
+ .currentGesSichRef = GesSichRef
+ .Standort = Standort
+ .datum = Date.Now
+ .Neu = True
+ .FilialNummer = SND.FilialenNr
+ .Abfertigungsnummer = SND.AbfertigungsNr
+ .firmaId = firmaId
+ End With
+ AddHandler frm.FormClosing, Function()
+ GesSichRef.CalcSaldo()
+ Me.BringToFront()
+ End Function
+ frm.Show(Me)
+
+ End If
+
+ End If
End Sub
+
'Public Sub setValues()
' txtATBT1.Text = If(NCTS_GA.nga_name, "")
' txtT1VerzollungsadresseStrasse.Text = If(NCTS_GA.nga_strasse, "")
diff --git a/Aviso/usrcntlAktDetails.vb b/Aviso/usrcntlAktDetails.vb
index 1bfba7a..1c83748 100644
--- a/Aviso/usrcntlAktDetails.vb
+++ b/Aviso/usrcntlAktDetails.vb
@@ -1533,8 +1533,8 @@ Public Class usrcntlAktDetails
End Sub
Sub ArrowDown_ShowHide()
- If isFailureShown Then Exit Sub
picArrowDown.Visible = False
+ If isFailureShown Then Exit Sub
If dgvSendungen.RowCount = 0 Then Exit Sub
Select Case tbcntlVermerke.SelectedIndex
Case 0, 1, 2
@@ -1543,7 +1543,7 @@ Public Class usrcntlAktDetails
For Each r As DataGridViewRow In gridVermerke.Rows
If r.Displayed Then showFirst = True
If showFirst Then
- If (r.Cells("Hervorheben") IsNot Nothing AndAlso r.Cells("Hervorheben").Value = "1" Or r.Cells("VermerkeOptions") IsNot Nothing AndAlso r.Cells("VermerkeOptions").Value <> "") AndAlso Not r.Displayed Then
+ If ((r.Cells("Hervorheben") IsNot Nothing AndAlso r.Cells("Hervorheben").Value = "1") Or (r.Cells("VermerkeOptions") IsNot Nothing AndAlso r.Cells("VermerkeOptions").Value <> "")) AndAlso Not r.Displayed Then
picArrowDown.Visible = True
End If
End If