From 40fbf9a51c7f38ecb45227e5e02feb5f4d2e7588 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Wed, 18 Jan 2023 17:11:03 +0100 Subject: [PATCH 1/3] Warenorte, etc. --- Aviso/UsrCntlEssensbestellungen.vb | 4 +- ...sensbestellungenAdministration.Designer.vb | 52 +++++++++++++++++-- Aviso/frmEssensbestellungenAdministration.vb | 15 +++++- Aviso/frmWarenorte.vb | 14 ++--- 4 files changed, 70 insertions(+), 15 deletions(-) diff --git a/Aviso/UsrCntlEssensbestellungen.vb b/Aviso/UsrCntlEssensbestellungen.vb index 9549f3e..db5bcb9 100644 --- a/Aviso/UsrCntlEssensbestellungen.vb +++ b/Aviso/UsrCntlEssensbestellungen.vb @@ -208,12 +208,12 @@ Public Class UsrCntlessensbestellungen If TypeOf gb Is GroupBox Then For Each c As Control In gb.Controls - If c.Text.ToLower.StartsWith(menu.ToLower) AndAlso TypeOf c Is VERAG_PROG_ALLGEMEIN.MyRadioButton Then + If c.Text.ToLower.StartsWith(menu.ToLower) AndAlso TypeOf c Is VERAG_PROG_ALLGEMEIN.MyRadioButton AndAlso c.Enabled = True Then Dim rb As VERAG_PROG_ALLGEMEIN.MyRadioButton = c If rb.Checked Then countMenus = countMenus + 1 End If - If c.Text.ToLower.StartsWith(alacarte.ToLower) AndAlso TypeOf c Is VERAG_PROG_ALLGEMEIN.MyRadioButton Then + If c.Text.ToLower.StartsWith(alacarte.ToLower) AndAlso TypeOf c Is VERAG_PROG_ALLGEMEIN.MyRadioButton AndAlso c.Enabled = True Then Dim rb As VERAG_PROG_ALLGEMEIN.MyRadioButton = c If rb.Checked Then countlaCarte = countlaCarte + 1 End If diff --git a/Aviso/frmEssensbestellungenAdministration.Designer.vb b/Aviso/frmEssensbestellungenAdministration.Designer.vb index be52f81..189b9be 100644 --- a/Aviso/frmEssensbestellungenAdministration.Designer.vb +++ b/Aviso/frmEssensbestellungenAdministration.Designer.vb @@ -1,9 +1,9 @@ - _ + Partial Class frmEssensbestellungenAdministration Inherits System.Windows.Forms.Form 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. - _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) Try If disposing AndAlso components IsNot Nothing Then @@ -20,7 +20,7 @@ Partial Class frmEssensbestellungenAdministration 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. - _ + Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container() Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmEssensbestellungenAdministration)) @@ -73,6 +73,8 @@ Partial Class frmEssensbestellungenAdministration Me.lblWarning = New System.Windows.Forms.Label() Me.Button2 = New System.Windows.Forms.Button() Me.Label9 = New System.Windows.Forms.Label() + Me.Label11 = New System.Windows.Forms.Label() + Me.txtMarkierteDS = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.pnlTop.SuspendLayout() Me.Panel1.SuspendLayout() Me.ContextMenuStrip1.SuspendLayout() @@ -113,6 +115,8 @@ Partial Class frmEssensbestellungenAdministration ' 'Panel1 ' + Me.Panel1.Controls.Add(Me.txtMarkierteDS) + Me.Panel1.Controls.Add(Me.Label11) Me.Panel1.Controls.Add(Me.btnNew) Me.Panel1.Controls.Add(Me.cbKW) Me.Panel1.Controls.Add(Me.Label6) @@ -540,7 +544,7 @@ Partial Class frmEssensbestellungenAdministration ' 'txtAnzahlDS ' - Me.txtAnzahlDS.Location = New System.Drawing.Point(1020, 744) + Me.txtAnzahlDS.Location = New System.Drawing.Point(1032, 745) Me.txtAnzahlDS.Name = "txtAnzahlDS" Me.txtAnzahlDS.ReadOnly = True Me.txtAnzahlDS.Size = New System.Drawing.Size(42, 20) @@ -561,7 +565,7 @@ Partial Class frmEssensbestellungenAdministration ' Me.Label5.AutoSize = True Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label5.Location = New System.Drawing.Point(913, 747) + Me.Label5.Location = New System.Drawing.Point(925, 748) Me.Label5.Name = "Label5" Me.Label5.Size = New System.Drawing.Size(99, 13) Me.Label5.TabIndex = 44 @@ -696,6 +700,42 @@ Partial Class frmEssensbestellungenAdministration Me.Label9.Text = "Gesamtbetrag" Me.Label9.TextAlign = System.Drawing.ContentAlignment.TopRight ' + 'Label11 + ' + Me.Label11.AutoSize = True + Me.Label11.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label11.Location = New System.Drawing.Point(1032, 46) + Me.Label11.Name = "Label11" + Me.Label11.Size = New System.Drawing.Size(125, 13) + Me.Label11.TabIndex = 66 + Me.Label11.Text = "Betrag markierte DS:" + Me.Label11.TextAlign = System.Drawing.ContentAlignment.TopRight + ' + 'txtMarkierteDS + ' + Me.txtMarkierteDS._DateTimeOnly = False + Me.txtMarkierteDS._numbersOnly = False + Me.txtMarkierteDS._numbersOnlyKommastellen = "" + Me.txtMarkierteDS._numbersOnlyTrennzeichen = False + Me.txtMarkierteDS._Prozent = False + Me.txtMarkierteDS._ShortDateNew = False + Me.txtMarkierteDS._ShortDateOnly = False + Me.txtMarkierteDS._TimeOnly = False + Me.txtMarkierteDS._TimeOnly_Seconds = False + Me.txtMarkierteDS._value = "" + Me.txtMarkierteDS._Waehrung = True + Me.txtMarkierteDS._WaehrungZeichen = True + Me.txtMarkierteDS.ForeColor = System.Drawing.Color.Black + Me.txtMarkierteDS.Location = New System.Drawing.Point(1035, 62) + Me.txtMarkierteDS.MaxLineLength = -1 + Me.txtMarkierteDS.MaxLines_Warning = "" + Me.txtMarkierteDS.MaxLines_Warning_Label = Nothing + Me.txtMarkierteDS.Name = "txtMarkierteDS" + Me.txtMarkierteDS.ReadOnly = True + Me.txtMarkierteDS.Size = New System.Drawing.Size(68, 20) + Me.txtMarkierteDS.TabIndex = 65 + Me.txtMarkierteDS.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + ' 'frmEssensbestellungenAdministration ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) @@ -780,4 +820,6 @@ Partial Class frmEssensbestellungenAdministration Friend WithEvents Button2 As Button Friend WithEvents Label9 As Label Friend WithEvents btnNew As Button + Friend WithEvents Label11 As Label + Friend WithEvents txtMarkierteDS As VERAG_PROG_ALLGEMEIN.MyTextBox End Class diff --git a/Aviso/frmEssensbestellungenAdministration.vb b/Aviso/frmEssensbestellungenAdministration.vb index 3bc6081..f9ecb54 100644 --- a/Aviso/frmEssensbestellungenAdministration.vb +++ b/Aviso/frmEssensbestellungenAdministration.vb @@ -271,7 +271,7 @@ Public Class frmEssensbestellungenAdministration If dgvBestellungen.SelectedRows.Count = 0 Then Exit Sub Select Case sender.Text - Case "abgerechnet" + Case "abgerechnen" Select Case dgvBestellungen.SelectedRows.Count Case 1 If vbYes = MsgBox("Möchten Sie die Essensbestellung '" & dgvBestellungen.SelectedRows(0).Cells("eb_kw").Value & " von Mitarbeiter " & dgvBestellungen.SelectedRows(0).Cells("eb_mitname").Value & " abrechnen", vbYesNoCancel) Then @@ -706,5 +706,18 @@ Public Class frmEssensbestellungenAdministration Private Sub dgvBestellungen_SelectionChanged(sender As Object, e As EventArgs) Handles dgvBestellungen.SelectionChanged lblWarning.Text = "" + + Dim countSumme As Double = 0 + + If dgvBestellungen.SelectedRows.Count > 0 Then + + For i As Integer = 0 To dgvBestellungen.SelectedRows.Count - 1 + countSumme += CDbl(dgvBestellungen.SelectedRows(i).Cells("eb_preis").Value) + + Next + + End If + + txtMarkierteDS._value = countSumme.ToString End Sub End Class \ No newline at end of file diff --git a/Aviso/frmWarenorte.vb b/Aviso/frmWarenorte.vb index 1c66bd9..0c1126e 100644 --- a/Aviso/frmWarenorte.vb +++ b/Aviso/frmWarenorte.vb @@ -196,7 +196,7 @@ Public Class frmWarenorte WarenortNew.wo_bezeichnung = txtBezeichnung.Text WarenortNew.wo_aktiv = cbxAktiv.Checked WarenortNew.wo_ort = txtOrt.Text - WarenortNew.wo_grenzstelle = cbxGrenzstelle._value + WarenortNew.wo_grenzstelle = IIf(cbxGrenzstelle._value = "", DBNull.Value, cbxGrenzstelle._value) WarenortNew.wo_firma = cbxFirmaChange._value WarenortNew.wo_cluster = txtCluster.Text WarenortNew.wo_knnr = txtKennr.Text @@ -208,12 +208,12 @@ Public Class frmWarenorte WarenortNew.wo_ze = cxZE.Checked WarenortNew.wo_zv = cxZV.Checked - If cbxGrenzstelle._value = "" Then - lblWarning.Text = "Grenzstelle muss ausgewählt werden!" - Exit Sub - Else - lblWarning.Text = "" - End If + 'If cbxGrenzstelle._value = "" Then + ' lblWarning.Text = "Grenzstelle muss ausgewählt werden!" + ' Exit Sub + 'Else + ' lblWarning.Text = "" + 'End If WarenortNew.SAVE() dgvWarenorteNew.GetOrder() From 139c1b93ae33d57a44aec69a660ed10aee3f246d Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Fri, 20 Jan 2023 13:45:49 +0100 Subject: [PATCH 2/3] Rundungsdifferenzausgleich implementiert. --- Aviso/frmGesamtsicherheitenMenuNEU.vb | 6 +- Aviso/frmGesamtsicherheitenNEU.Designer.vb | 1059 ++++++++++---------- Aviso/frmGesamtsicherheitenNEU.vb | 100 +- 3 files changed, 635 insertions(+), 530 deletions(-) diff --git a/Aviso/frmGesamtsicherheitenMenuNEU.vb b/Aviso/frmGesamtsicherheitenMenuNEU.vb index 24921e3..39906d8 100644 --- a/Aviso/frmGesamtsicherheitenMenuNEU.vb +++ b/Aviso/frmGesamtsicherheitenMenuNEU.vb @@ -57,7 +57,7 @@ Public Class frmGesamtsicherheitenMenuNEU Public Function LoadDGV() Dim sqladdon As String = "" - If chkOffen.Checked Then sqladdon &= " AND gs_SicherheitsSaldo != '0,00 €' AND gs_SicherheitsSaldo != '0,01 €' AND gs_SicherheitsSaldo != '-0,01 €'" + If chkOffen.Checked Then sqladdon &= " AND gs_SicherheitsSaldo != '0,00 €'" If cbxStandort._value <> "" Then sqladdon &= " AND gs_filialenNr = '" & cbxStandort._value.ToString & "'" If cbxWarenort._value <> "" Then sqladdon &= " AND gs_warenort = '" & cbxWarenort._value.ToString & "'" @@ -126,7 +126,7 @@ Public Class frmGesamtsicherheitenMenuNEU For Each row As DataGridViewRow In dgvListe.Rows If Not IsDBNull(row.Cells("gs_SicherheitsSaldo").Value) Then - If row.Cells("gs_SicherheitsSaldo").Value <> 0 And row.Cells("gs_SicherheitsSaldo").Value <> 0.01 And row.Cells("gs_SicherheitsSaldo").Value <> -0.01 Then + If row.Cells("gs_SicherheitsSaldo").Value <> 0 Then dataTable.Rows.Add(row.Cells("gs_gsnr").Value, True) row.DefaultCellStyle.BackColor = Color.IndianRed @@ -367,7 +367,7 @@ Public Class frmGesamtsicherheitenMenuNEU ) as Sicherheitssaldo From [tblGesamtsicherheit] as meh group by gs_gsnr) as meh2 - Where gs_standort = '" & Standort & "' AND Sicherheitssaldo > '0.01' AND gs_datum < '" & Date.Now().AddDays(-85) & "'" + Where gs_standort = '" & Standort & "' AND gs_datum < '" & Date.Now().AddDays(-85) & "'" dtNew = SQL.loadDgvBySql(sqlstring, "AVISO", 100, True) diff --git a/Aviso/frmGesamtsicherheitenNEU.Designer.vb b/Aviso/frmGesamtsicherheitenNEU.Designer.vb index 0282538..df2c7b3 100644 --- a/Aviso/frmGesamtsicherheitenNEU.Designer.vb +++ b/Aviso/frmGesamtsicherheitenNEU.Designer.vb @@ -22,14 +22,13 @@ Partial Class frmGesamtsicherheitenNEU 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. Private Sub InitializeComponent() - Me.components = New System.ComponentModel.Container() Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() 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 resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmGesamtsicherheitenNEU)) - Me.ContextMenuStripGesSicherh = New System.Windows.Forms.ContextMenuStrip(Me.components) + Me.ContextMenuStripGesSicherh = New System.Windows.Forms.ContextMenuStrip() Me.ATBNraendernToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.Panel2 = New System.Windows.Forms.Panel() Me.pnlChangeATCNr = New System.Windows.Forms.Panel() @@ -41,25 +40,40 @@ Partial Class frmGesamtsicherheitenNEU Me.txtDatumaendern = New System.Windows.Forms.TextBox() Me.Label26 = New System.Windows.Forms.Label() Me.lblATCwarning = New System.Windows.Forms.Label() + Me.FlatButton3 = New VERAG_PROG_ALLGEMEIN.FlatButton() Me.txtATCaendern = New System.Windows.Forms.TextBox() Me.Label34 = New System.Windows.Forms.Label() + Me.FlatButton4 = New VERAG_PROG_ALLGEMEIN.FlatButton() Me.pnlChangeATBNr = New System.Windows.Forms.Panel() Me.lblWarningATB = New System.Windows.Forms.Label() + Me.FlatButton1 = New VERAG_PROG_ALLGEMEIN.FlatButton() Me.txtATBNraendern = New System.Windows.Forms.TextBox() Me.Label32 = New System.Windows.Forms.Label() + Me.FlatButton2 = New VERAG_PROG_ALLGEMEIN.FlatButton() Me.panOverlay = New System.Windows.Forms.Panel() + Me.txtlkwIdSearch = New VERAG_PROG_ALLGEMEIN.MySearchBox() Me.Label23 = New System.Windows.Forms.Label() + Me.cboWarenort = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.lblWarenort = New System.Windows.Forms.Label() + Me.cboFiliale = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.btnSave = New VERAG_PROG_ALLGEMEIN.FlatButton() Me.txtLKWKZ = New System.Windows.Forms.TextBox() Me.txtAbfertNum = New System.Windows.Forms.TextBox() Me.Label18 = New System.Windows.Forms.Label() Me.Label17 = New System.Windows.Forms.Label() Me.Label16 = New System.Windows.Forms.Label() - Me.ContextMenuStripPosSicherheiten = New System.Windows.Forms.ContextMenuStrip(Me.components) + Me.btnClosePanOverlay = New VERAG_PROG_ALLGEMEIN.FlatButton() + Me.dgvGesamtsicherheit = New VERAG_PROG_ALLGEMEIN.MyDatagridview() + Me.dgvSicherheitsPos = New VERAG_PROG_ALLGEMEIN.MyDatagridview() + Me.ContextMenuStripPosSicherheiten = New System.Windows.Forms.ContextMenuStrip() Me.ATCMRNNraendernToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.pnlSummeGes = New System.Windows.Forms.Panel() + Me.txtPosSicherheitsbGes = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtSicherheitsbGes = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label28 = New System.Windows.Forms.Label() + Me.txtPosWarenwertGes = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label29 = New System.Windows.Forms.Label() + Me.txtWarenwertGes = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtPosAnzalPosGes = New System.Windows.Forms.TextBox() Me.txtAnzalPosGes = New System.Windows.Forms.TextBox() Me.Label27 = New System.Windows.Forms.Label() @@ -79,11 +93,15 @@ Partial Class frmGesamtsicherheitenNEU Me.lblReferenzwert = New System.Windows.Forms.Label() Me.lblSaldo = New System.Windows.Forms.Label() Me.panOben = New System.Windows.Forms.Panel() + Me.txtSicherheitDat = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.dtpSicherheitDat = New System.Windows.Forms.DateTimePicker() + Me.txtPosDat = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.dtpPosDat = New System.Windows.Forms.DateTimePicker() Me.lbloffenerWarenwert = New System.Windows.Forms.Label() Me.txtGestellInfo = New System.Windows.Forms.TextBox() + Me.btnSaveDatetime = New VERAG_PROG_ALLGEMEIN.FlatButton() Me.lblId = New System.Windows.Forms.Label() + Me.txtZollsatzueberschreiben = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.cbxZollsatzueberschreiben = New System.Windows.Forms.CheckBox() Me.btnNext = New System.Windows.Forms.Button() Me.lbloffenerSaldo = New System.Windows.Forms.Label() @@ -91,12 +109,19 @@ Partial Class frmGesamtsicherheitenNEU Me.Label20 = New System.Windows.Forms.Label() Me.txtPosNr = New System.Windows.Forms.TextBox() Me.Panel1 = New System.Windows.Forms.Panel() + Me.btnRundungsdifAusgl = New System.Windows.Forms.Button() Me.btnNew = New System.Windows.Forms.Button() Me.cbx_offene = New System.Windows.Forms.CheckBox() Me.btnSuche = New System.Windows.Forms.Button() + Me.cbx_Suche_Warenort = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.Label19 = New System.Windows.Forms.Label() Me.txt_Suche = New System.Windows.Forms.TextBox() Me.Label21 = New System.Windows.Forms.Label() + Me.btn_resetSearch = New VERAG_PROG_ALLGEMEIN.FlatButton() + Me.btnDeletePos = New VERAG_PROG_ALLGEMEIN.FlatButton() + Me.btnDeleteSicherheit = New VERAG_PROG_ALLGEMEIN.FlatButton() + Me.btnUpdatePos = New VERAG_PROG_ALLGEMEIN.FlatButton() + Me.btnUpdateSicherheit = New VERAG_PROG_ALLGEMEIN.FlatButton() Me.Label15 = New System.Windows.Forms.Label() Me.txtAnzahlPos = New System.Windows.Forms.TextBox() Me.Label14 = New System.Windows.Forms.Label() @@ -117,31 +142,6 @@ Partial Class frmGesamtsicherheitenNEU Me.Label1 = New System.Windows.Forms.Label() Me.txtPosFreitext = New System.Windows.Forms.TextBox() Me.txtSicherheitFreitext = New System.Windows.Forms.TextBox() - Me.FlatButton3 = New VERAG_PROG_ALLGEMEIN.FlatButton() - Me.FlatButton4 = New VERAG_PROG_ALLGEMEIN.FlatButton() - Me.FlatButton1 = New VERAG_PROG_ALLGEMEIN.FlatButton() - Me.FlatButton2 = New VERAG_PROG_ALLGEMEIN.FlatButton() - Me.txtlkwIdSearch = New VERAG_PROG_ALLGEMEIN.MySearchBox() - Me.cboWarenort = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.cboFiliale = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.btnSave = New VERAG_PROG_ALLGEMEIN.FlatButton() - Me.btnClosePanOverlay = New VERAG_PROG_ALLGEMEIN.FlatButton() - Me.dgvGesamtsicherheit = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) - Me.dgvSicherheitsPos = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) - Me.txtPosSicherheitsbGes = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtSicherheitsbGes = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtPosWarenwertGes = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtWarenwertGes = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtSicherheitDat = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtPosDat = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.btnSaveDatetime = New VERAG_PROG_ALLGEMEIN.FlatButton() - Me.txtZollsatzueberschreiben = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.cbx_Suche_Warenort = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.btn_resetSearch = New VERAG_PROG_ALLGEMEIN.FlatButton() - Me.btnDeletePos = New VERAG_PROG_ALLGEMEIN.FlatButton() - Me.btnDeleteSicherheit = New VERAG_PROG_ALLGEMEIN.FlatButton() - Me.btnUpdatePos = New VERAG_PROG_ALLGEMEIN.FlatButton() - Me.btnUpdateSicherheit = New VERAG_PROG_ALLGEMEIN.FlatButton() Me.btnAddPos = New VERAG_PROG_ALLGEMEIN.FlatButton() Me.btnAddSicherheit = New VERAG_PROG_ALLGEMEIN.FlatButton() Me.ContextMenuStripGesSicherh.SuspendLayout() @@ -149,12 +149,12 @@ Partial Class frmGesamtsicherheitenNEU Me.pnlChangeATCNr.SuspendLayout() Me.pnlChangeATBNr.SuspendLayout() Me.panOverlay.SuspendLayout() + CType(Me.dgvGesamtsicherheit, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.dgvSicherheitsPos, System.ComponentModel.ISupportInitialize).BeginInit() Me.ContextMenuStripPosSicherheiten.SuspendLayout() Me.pnlSummeGes.SuspendLayout() Me.panOben.SuspendLayout() Me.Panel1.SuspendLayout() - CType(Me.dgvGesamtsicherheit, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.dgvSicherheitsPos, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' 'ContextMenuStripGesSicherh @@ -283,6 +283,20 @@ Partial Class frmGesamtsicherheitenNEU Me.lblATCwarning.Size = New System.Drawing.Size(0, 13) Me.lblATCwarning.TabIndex = 10 ' + 'FlatButton3 + ' + Me.FlatButton3.allowBorder = False + Me.FlatButton3.BackColor = System.Drawing.Color.Gainsboro + Me.FlatButton3.FlatAppearance.BorderSize = 0 + Me.FlatButton3.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.FlatButton3.ForeColor = System.Drawing.Color.Black + Me.FlatButton3.Location = New System.Drawing.Point(210, 160) + Me.FlatButton3.Name = "FlatButton3" + Me.FlatButton3.Size = New System.Drawing.Size(75, 23) + Me.FlatButton3.TabIndex = 10 + Me.FlatButton3.Text = "Ändern" + Me.FlatButton3.UseVisualStyleBackColor = False + ' 'txtATCaendern ' Me.txtATCaendern.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) @@ -302,6 +316,22 @@ Partial Class frmGesamtsicherheitenNEU Me.Label34.TabIndex = 5 Me.Label34.Text = "ATC/MRN" ' + 'FlatButton4 + ' + Me.FlatButton4.allowBorder = False + Me.FlatButton4.BackColor = System.Drawing.Color.White + Me.FlatButton4.BackgroundImage = Global.AVISO.My.Resources.Resources.del2 + Me.FlatButton4.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.FlatButton4.DialogResult = System.Windows.Forms.DialogResult.Cancel + Me.FlatButton4.FlatAppearance.BorderSize = 0 + Me.FlatButton4.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.FlatButton4.ForeColor = System.Drawing.Color.Black + Me.FlatButton4.Location = New System.Drawing.Point(261, 3) + Me.FlatButton4.Name = "FlatButton4" + Me.FlatButton4.Size = New System.Drawing.Size(24, 24) + Me.FlatButton4.TabIndex = 0 + Me.FlatButton4.UseVisualStyleBackColor = False + ' 'pnlChangeATBNr ' Me.pnlChangeATBNr.BackColor = System.Drawing.SystemColors.ButtonHighlight @@ -326,6 +356,20 @@ Partial Class frmGesamtsicherheitenNEU Me.lblWarningATB.Size = New System.Drawing.Size(0, 13) Me.lblWarningATB.TabIndex = 10 ' + 'FlatButton1 + ' + Me.FlatButton1.allowBorder = False + Me.FlatButton1.BackColor = System.Drawing.Color.Gainsboro + Me.FlatButton1.FlatAppearance.BorderSize = 0 + Me.FlatButton1.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.FlatButton1.ForeColor = System.Drawing.Color.Black + Me.FlatButton1.Location = New System.Drawing.Point(210, 77) + Me.FlatButton1.Name = "FlatButton1" + Me.FlatButton1.Size = New System.Drawing.Size(75, 23) + Me.FlatButton1.TabIndex = 9 + Me.FlatButton1.Text = "Ändern" + Me.FlatButton1.UseVisualStyleBackColor = False + ' 'txtATBNraendern ' Me.txtATBNraendern.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) @@ -345,6 +389,22 @@ Partial Class frmGesamtsicherheitenNEU Me.Label32.TabIndex = 5 Me.Label32.Text = "ATB-Nr" ' + 'FlatButton2 + ' + Me.FlatButton2.allowBorder = False + Me.FlatButton2.BackColor = System.Drawing.Color.White + Me.FlatButton2.BackgroundImage = Global.AVISO.My.Resources.Resources.del2 + Me.FlatButton2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.FlatButton2.DialogResult = System.Windows.Forms.DialogResult.Cancel + Me.FlatButton2.FlatAppearance.BorderSize = 0 + Me.FlatButton2.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.FlatButton2.ForeColor = System.Drawing.Color.Black + Me.FlatButton2.Location = New System.Drawing.Point(261, 3) + Me.FlatButton2.Name = "FlatButton2" + Me.FlatButton2.Size = New System.Drawing.Size(24, 24) + Me.FlatButton2.TabIndex = 0 + Me.FlatButton2.UseVisualStyleBackColor = False + ' 'panOverlay ' Me.panOverlay.BackColor = System.Drawing.SystemColors.ButtonHighlight @@ -366,6 +426,31 @@ Partial Class frmGesamtsicherheitenNEU Me.panOverlay.TabIndex = 2 Me.panOverlay.Visible = False ' + 'txtlkwIdSearch + ' + Me.txtlkwIdSearch._allowFreitext = True + Me.txtlkwIdSearch._AllowSetValue = False + Me.txtlkwIdSearch._allowSpaceAsSplitter = False + Me.txtlkwIdSearch._autoSizeGross = False + Me.txtlkwIdSearch._hideIfListEmpty = True + Me.txtlkwIdSearch._value = Nothing + Me.txtlkwIdSearch.conn_art = "FMZOLL" + Me.txtlkwIdSearch.dgvpos = "LEFT" + Me.txtlkwIdSearch.DISPLAY_PARAM = Nothing + Me.txtlkwIdSearch.INVISIBLE_COLUMNS = Nothing + Me.txtlkwIdSearch.key_visible = False + Me.txtlkwIdSearch.KEYPARAM = Nothing + Me.txtlkwIdSearch.Location = New System.Drawing.Point(279, 184) + Me.txtlkwIdSearch.Name = "txtlkwIdSearch" + Me.txtlkwIdSearch.searchActive = True + Me.txtlkwIdSearch.Size = New System.Drawing.Size(186, 20) + Me.txtlkwIdSearch.SQL_ORDER_BY = Nothing + Me.txtlkwIdSearch.SQL_SELECT = Nothing + Me.txtlkwIdSearch.SQL_WHERE = Nothing + Me.txtlkwIdSearch.SQL_WhereParamList = Nothing + Me.txtlkwIdSearch.TabIndex = 7 + Me.txtlkwIdSearch.usrcntl = Nothing + ' 'Label23 ' Me.Label23.AutoSize = True @@ -376,6 +461,20 @@ Partial Class frmGesamtsicherheitenNEU Me.Label23.TabIndex = 10 Me.Label23.Text = "LKW-Id:" ' + 'cboWarenort + ' + Me.cboWarenort._allowedValuesFreiText = Nothing + Me.cboWarenort._allowFreiText = False + Me.cboWarenort._value = "" + Me.cboWarenort.DropDownWidth = 400 + Me.cboWarenort.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cboWarenort.FormattingEnabled = True + Me.cboWarenort.Location = New System.Drawing.Point(278, 64) + Me.cboWarenort.MaxLength = 4 + Me.cboWarenort.Name = "cboWarenort" + Me.cboWarenort.Size = New System.Drawing.Size(186, 24) + Me.cboWarenort.TabIndex = 2 + ' 'lblWarenort ' Me.lblWarenort.AutoSize = True @@ -386,6 +485,34 @@ Partial Class frmGesamtsicherheitenNEU Me.lblWarenort.TabIndex = 1 Me.lblWarenort.Text = "Warenort:" ' + 'cboFiliale + ' + Me.cboFiliale._allowedValuesFreiText = Nothing + Me.cboFiliale._allowFreiText = False + Me.cboFiliale._value = "" + Me.cboFiliale.DropDownWidth = 300 + Me.cboFiliale.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cboFiliale.FormattingEnabled = True + Me.cboFiliale.Location = New System.Drawing.Point(279, 103) + Me.cboFiliale.MaxLength = 4 + Me.cboFiliale.Name = "cboFiliale" + Me.cboFiliale.Size = New System.Drawing.Size(186, 24) + Me.cboFiliale.TabIndex = 4 + ' + 'btnSave + ' + Me.btnSave.allowBorder = False + Me.btnSave.BackColor = System.Drawing.Color.Gainsboro + Me.btnSave.FlatAppearance.BorderSize = 0 + Me.btnSave.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnSave.ForeColor = System.Drawing.Color.Black + Me.btnSave.Location = New System.Drawing.Point(389, 252) + Me.btnSave.Name = "btnSave" + Me.btnSave.Size = New System.Drawing.Size(75, 23) + Me.btnSave.TabIndex = 9 + Me.btnSave.Text = "Speichern" + Me.btnSave.UseVisualStyleBackColor = False + ' 'txtLKWKZ ' Me.txtLKWKZ.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) @@ -434,6 +561,92 @@ Partial Class frmGesamtsicherheitenNEU Me.Label16.TabIndex = 3 Me.Label16.Text = "Filial-Nummer:" ' + 'btnClosePanOverlay + ' + Me.btnClosePanOverlay.allowBorder = False + Me.btnClosePanOverlay.BackColor = System.Drawing.Color.White + Me.btnClosePanOverlay.BackgroundImage = Global.AVISO.My.Resources.Resources.del2 + Me.btnClosePanOverlay.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.btnClosePanOverlay.DialogResult = System.Windows.Forms.DialogResult.Cancel + Me.btnClosePanOverlay.FlatAppearance.BorderSize = 0 + Me.btnClosePanOverlay.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnClosePanOverlay.ForeColor = System.Drawing.Color.Black + Me.btnClosePanOverlay.Location = New System.Drawing.Point(475, 24) + Me.btnClosePanOverlay.Name = "btnClosePanOverlay" + Me.btnClosePanOverlay.Size = New System.Drawing.Size(24, 24) + Me.btnClosePanOverlay.TabIndex = 0 + Me.btnClosePanOverlay.UseVisualStyleBackColor = False + ' + 'dgvGesamtsicherheit + ' + Me.dgvGesamtsicherheit.AKTUALISIERUNGS_INTERVALL = -1 + Me.dgvGesamtsicherheit.AllowUserToAddRows = False + Me.dgvGesamtsicherheit.AllowUserToDeleteRows = False + DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle1.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle1.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle1.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle1.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvGesamtsicherheit.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle1 + Me.dgvGesamtsicherheit.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.dgvGesamtsicherheit.ContextMenuStrip = Me.ContextMenuStripGesSicherh + DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle2.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle2.ForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle2.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.dgvGesamtsicherheit.DefaultCellStyle = DataGridViewCellStyle2 + Me.dgvGesamtsicherheit.Dock = System.Windows.Forms.DockStyle.Left + Me.dgvGesamtsicherheit.Location = New System.Drawing.Point(0, 0) + Me.dgvGesamtsicherheit.Name = "dgvGesamtsicherheit" + Me.dgvGesamtsicherheit.ReadOnly = True + DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle3.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle3.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle3.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle3.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvGesamtsicherheit.RowHeadersDefaultCellStyle = DataGridViewCellStyle3 + Me.dgvGesamtsicherheit.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect + Me.dgvGesamtsicherheit.Size = New System.Drawing.Size(742, 457) + Me.dgvGesamtsicherheit.TabIndex = 0 + ' + 'dgvSicherheitsPos + ' + Me.dgvSicherheitsPos.AKTUALISIERUNGS_INTERVALL = -1 + Me.dgvSicherheitsPos.AllowUserToAddRows = False + Me.dgvSicherheitsPos.AllowUserToDeleteRows = False + DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle4.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle4.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle4.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle4.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvSicherheitsPos.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle4 + Me.dgvSicherheitsPos.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.dgvSicherheitsPos.ContextMenuStrip = Me.ContextMenuStripPosSicherheiten + DataGridViewCellStyle5.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle5.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle5.ForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle5.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle5.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.dgvSicherheitsPos.DefaultCellStyle = DataGridViewCellStyle5 + Me.dgvSicherheitsPos.Dock = System.Windows.Forms.DockStyle.Right + Me.dgvSicherheitsPos.Location = New System.Drawing.Point(748, 0) + Me.dgvSicherheitsPos.Name = "dgvSicherheitsPos" + Me.dgvSicherheitsPos.ReadOnly = True + Me.dgvSicherheitsPos.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect + Me.dgvSicherheitsPos.Size = New System.Drawing.Size(636, 457) + Me.dgvSicherheitsPos.TabIndex = 1 + ' 'ContextMenuStripPosSicherheiten ' Me.ContextMenuStripPosSicherheiten.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ATCMRNNraendernToolStripMenuItem}) @@ -468,6 +681,54 @@ Partial Class frmGesamtsicherheitenNEU Me.pnlSummeGes.Size = New System.Drawing.Size(1384, 32) Me.pnlSummeGes.TabIndex = 3 ' + 'txtPosSicherheitsbGes + ' + Me.txtPosSicherheitsbGes._DateTimeOnly = False + Me.txtPosSicherheitsbGes._numbersOnly = False + Me.txtPosSicherheitsbGes._numbersOnlyKommastellen = "" + Me.txtPosSicherheitsbGes._numbersOnlyTrennzeichen = False + Me.txtPosSicherheitsbGes._Prozent = False + Me.txtPosSicherheitsbGes._ShortDateNew = False + Me.txtPosSicherheitsbGes._ShortDateOnly = False + Me.txtPosSicherheitsbGes._TimeOnly = False + Me.txtPosSicherheitsbGes._TimeOnly_Seconds = False + Me.txtPosSicherheitsbGes._value = "" + Me.txtPosSicherheitsbGes._Waehrung = True + Me.txtPosSicherheitsbGes._WaehrungZeichen = True + Me.txtPosSicherheitsbGes.ForeColor = System.Drawing.Color.Black + Me.txtPosSicherheitsbGes.Location = New System.Drawing.Point(1272, 6) + Me.txtPosSicherheitsbGes.MaxLineLength = -1 + Me.txtPosSicherheitsbGes.MaxLines_Warning = "" + Me.txtPosSicherheitsbGes.MaxLines_Warning_Label = Nothing + Me.txtPosSicherheitsbGes.Name = "txtPosSicherheitsbGes" + Me.txtPosSicherheitsbGes.ReadOnly = True + Me.txtPosSicherheitsbGes.Size = New System.Drawing.Size(100, 20) + Me.txtPosSicherheitsbGes.TabIndex = 5 + ' + 'txtSicherheitsbGes + ' + Me.txtSicherheitsbGes._DateTimeOnly = False + Me.txtSicherheitsbGes._numbersOnly = False + Me.txtSicherheitsbGes._numbersOnlyKommastellen = "" + Me.txtSicherheitsbGes._numbersOnlyTrennzeichen = False + Me.txtSicherheitsbGes._Prozent = False + Me.txtSicherheitsbGes._ShortDateNew = False + Me.txtSicherheitsbGes._ShortDateOnly = False + Me.txtSicherheitsbGes._TimeOnly = False + Me.txtSicherheitsbGes._TimeOnly_Seconds = False + Me.txtSicherheitsbGes._value = "" + Me.txtSicherheitsbGes._Waehrung = True + Me.txtSicherheitsbGes._WaehrungZeichen = True + Me.txtSicherheitsbGes.ForeColor = System.Drawing.Color.Black + Me.txtSicherheitsbGes.Location = New System.Drawing.Point(615, 5) + Me.txtSicherheitsbGes.MaxLineLength = -1 + Me.txtSicherheitsbGes.MaxLines_Warning = "" + Me.txtSicherheitsbGes.MaxLines_Warning_Label = Nothing + Me.txtSicherheitsbGes.Name = "txtSicherheitsbGes" + Me.txtSicherheitsbGes.ReadOnly = True + Me.txtSicherheitsbGes.Size = New System.Drawing.Size(100, 20) + Me.txtSicherheitsbGes.TabIndex = 5 + ' 'Label28 ' Me.Label28.AutoSize = True @@ -478,6 +739,30 @@ Partial Class frmGesamtsicherheitenNEU Me.Label28.TabIndex = 4 Me.Label28.Text = "Sicherheitsbetrag Summe:" ' + 'txtPosWarenwertGes + ' + Me.txtPosWarenwertGes._DateTimeOnly = False + Me.txtPosWarenwertGes._numbersOnly = False + Me.txtPosWarenwertGes._numbersOnlyKommastellen = "" + Me.txtPosWarenwertGes._numbersOnlyTrennzeichen = False + Me.txtPosWarenwertGes._Prozent = False + Me.txtPosWarenwertGes._ShortDateNew = False + Me.txtPosWarenwertGes._ShortDateOnly = False + Me.txtPosWarenwertGes._TimeOnly = False + Me.txtPosWarenwertGes._TimeOnly_Seconds = False + Me.txtPosWarenwertGes._value = "" + Me.txtPosWarenwertGes._Waehrung = True + Me.txtPosWarenwertGes._WaehrungZeichen = True + Me.txtPosWarenwertGes.ForeColor = System.Drawing.Color.Black + Me.txtPosWarenwertGes.Location = New System.Drawing.Point(1018, 6) + Me.txtPosWarenwertGes.MaxLineLength = -1 + Me.txtPosWarenwertGes.MaxLines_Warning = "" + Me.txtPosWarenwertGes.MaxLines_Warning_Label = Nothing + Me.txtPosWarenwertGes.Name = "txtPosWarenwertGes" + Me.txtPosWarenwertGes.ReadOnly = True + Me.txtPosWarenwertGes.Size = New System.Drawing.Size(100, 20) + Me.txtPosWarenwertGes.TabIndex = 3 + ' 'Label29 ' Me.Label29.AutoSize = True @@ -488,6 +773,30 @@ Partial Class frmGesamtsicherheitenNEU Me.Label29.TabIndex = 2 Me.Label29.Text = "Warentwert Summe:" ' + 'txtWarenwertGes + ' + Me.txtWarenwertGes._DateTimeOnly = False + Me.txtWarenwertGes._numbersOnly = False + Me.txtWarenwertGes._numbersOnlyKommastellen = "" + Me.txtWarenwertGes._numbersOnlyTrennzeichen = False + Me.txtWarenwertGes._Prozent = False + Me.txtWarenwertGes._ShortDateNew = False + Me.txtWarenwertGes._ShortDateOnly = False + Me.txtWarenwertGes._TimeOnly = False + Me.txtWarenwertGes._TimeOnly_Seconds = False + Me.txtWarenwertGes._value = "" + Me.txtWarenwertGes._Waehrung = True + Me.txtWarenwertGes._WaehrungZeichen = True + Me.txtWarenwertGes.ForeColor = System.Drawing.Color.Black + Me.txtWarenwertGes.Location = New System.Drawing.Point(326, 6) + Me.txtWarenwertGes.MaxLineLength = -1 + Me.txtWarenwertGes.MaxLines_Warning = "" + Me.txtWarenwertGes.MaxLines_Warning_Label = Nothing + Me.txtWarenwertGes.Name = "txtWarenwertGes" + Me.txtWarenwertGes.ReadOnly = True + Me.txtWarenwertGes.Size = New System.Drawing.Size(100, 20) + Me.txtWarenwertGes.TabIndex = 3 + ' 'txtPosAnzalPosGes ' Me.txtPosAnzalPosGes.Location = New System.Drawing.Point(830, 6) @@ -730,6 +1039,32 @@ Partial Class frmGesamtsicherheitenNEU Me.panOben.Size = New System.Drawing.Size(1384, 287) Me.panOben.TabIndex = 0 ' + 'txtSicherheitDat + ' + Me.txtSicherheitDat._DateTimeOnly = False + Me.txtSicherheitDat._numbersOnly = False + Me.txtSicherheitDat._numbersOnlyKommastellen = "" + Me.txtSicherheitDat._numbersOnlyTrennzeichen = True + Me.txtSicherheitDat._Prozent = False + Me.txtSicherheitDat._ShortDateNew = False + Me.txtSicherheitDat._ShortDateOnly = True + Me.txtSicherheitDat._TimeOnly = False + Me.txtSicherheitDat._TimeOnly_Seconds = False + Me.txtSicherheitDat._value = "" + Me.txtSicherheitDat._Waehrung = False + Me.txtSicherheitDat._WaehrungZeichen = True + Me.txtSicherheitDat.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtSicherheitDat.ForeColor = System.Drawing.Color.Black + Me.txtSicherheitDat.Location = New System.Drawing.Point(279, 204) + Me.txtSicherheitDat.MaxLength = 10 + Me.txtSicherheitDat.MaxLineLength = -1 + Me.txtSicherheitDat.MaxLines_Warning = "" + Me.txtSicherheitDat.MaxLines_Warning_Label = Nothing + Me.txtSicherheitDat.Multiline = True + Me.txtSicherheitDat.Name = "txtSicherheitDat" + Me.txtSicherheitDat.Size = New System.Drawing.Size(78, 24) + Me.txtSicherheitDat.TabIndex = 27 + ' 'dtpSicherheitDat ' Me.dtpSicherheitDat.CustomFormat = "''" @@ -741,6 +1076,32 @@ Partial Class frmGesamtsicherheitenNEU Me.dtpSicherheitDat.Size = New System.Drawing.Size(110, 24) Me.dtpSicherheitDat.TabIndex = 54 ' + 'txtPosDat + ' + Me.txtPosDat._DateTimeOnly = False + Me.txtPosDat._numbersOnly = False + Me.txtPosDat._numbersOnlyKommastellen = "" + Me.txtPosDat._numbersOnlyTrennzeichen = True + Me.txtPosDat._Prozent = False + Me.txtPosDat._ShortDateNew = False + Me.txtPosDat._ShortDateOnly = True + Me.txtPosDat._TimeOnly = False + Me.txtPosDat._TimeOnly_Seconds = False + Me.txtPosDat._value = "" + Me.txtPosDat._Waehrung = False + Me.txtPosDat._WaehrungZeichen = True + Me.txtPosDat.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtPosDat.ForeColor = System.Drawing.Color.Black + Me.txtPosDat.Location = New System.Drawing.Point(965, 204) + Me.txtPosDat.MaxLength = 10 + Me.txtPosDat.MaxLineLength = -1 + Me.txtPosDat.MaxLines_Warning = "" + Me.txtPosDat.MaxLines_Warning_Label = Nothing + Me.txtPosDat.Multiline = True + Me.txtPosDat.Name = "txtPosDat" + Me.txtPosDat.Size = New System.Drawing.Size(78, 24) + Me.txtPosDat.TabIndex = 32 + ' 'dtpPosDat ' Me.dtpPosDat.CustomFormat = "''" @@ -777,6 +1138,20 @@ Partial Class frmGesamtsicherheitenNEU Me.txtGestellInfo.Size = New System.Drawing.Size(863, 22) Me.txtGestellInfo.TabIndex = 50 ' + 'btnSaveDatetime + ' + Me.btnSaveDatetime.allowBorder = False + Me.btnSaveDatetime.BackColor = System.Drawing.Color.White + Me.btnSaveDatetime.FlatAppearance.BorderSize = 0 + Me.btnSaveDatetime.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnSaveDatetime.ForeColor = System.Drawing.Color.Black + Me.btnSaveDatetime.Location = New System.Drawing.Point(12, 165) + Me.btnSaveDatetime.Name = "btnSaveDatetime" + Me.btnSaveDatetime.Size = New System.Drawing.Size(75, 23) + Me.btnSaveDatetime.TabIndex = 11 + Me.btnSaveDatetime.Text = "speichern" + Me.btnSaveDatetime.UseVisualStyleBackColor = False + ' 'lblId ' Me.lblId.Anchor = System.Windows.Forms.AnchorStyles.Right @@ -789,6 +1164,30 @@ Partial Class frmGesamtsicherheitenNEU Me.lblId.TabIndex = 0 Me.lblId.Text = "ID" ' + 'txtZollsatzueberschreiben + ' + Me.txtZollsatzueberschreiben._DateTimeOnly = False + Me.txtZollsatzueberschreiben._numbersOnly = True + Me.txtZollsatzueberschreiben._numbersOnlyKommastellen = "" + Me.txtZollsatzueberschreiben._numbersOnlyTrennzeichen = True + Me.txtZollsatzueberschreiben._Prozent = False + Me.txtZollsatzueberschreiben._ShortDateNew = False + Me.txtZollsatzueberschreiben._ShortDateOnly = False + Me.txtZollsatzueberschreiben._TimeOnly = False + Me.txtZollsatzueberschreiben._TimeOnly_Seconds = False + Me.txtZollsatzueberschreiben._value = "" + Me.txtZollsatzueberschreiben._Waehrung = False + Me.txtZollsatzueberschreiben._WaehrungZeichen = True + Me.txtZollsatzueberschreiben.Enabled = False + Me.txtZollsatzueberschreiben.ForeColor = System.Drawing.Color.Black + Me.txtZollsatzueberschreiben.Location = New System.Drawing.Point(908, 156) + Me.txtZollsatzueberschreiben.MaxLineLength = -1 + Me.txtZollsatzueberschreiben.MaxLines_Warning = "" + Me.txtZollsatzueberschreiben.MaxLines_Warning_Label = Nothing + Me.txtZollsatzueberschreiben.Name = "txtZollsatzueberschreiben" + Me.txtZollsatzueberschreiben.Size = New System.Drawing.Size(30, 20) + Me.txtZollsatzueberschreiben.TabIndex = 10 + ' 'cbxZollsatzueberschreiben ' Me.cbxZollsatzueberschreiben.AutoSize = True @@ -861,6 +1260,7 @@ Partial Class frmGesamtsicherheitenNEU 'Panel1 ' Me.Panel1.BackColor = System.Drawing.SystemColors.ButtonHighlight + Me.Panel1.Controls.Add(Me.btnRundungsdifAusgl) Me.Panel1.Controls.Add(Me.btnNew) Me.Panel1.Controls.Add(Me.cbx_offene) Me.Panel1.Controls.Add(Me.btnSuche) @@ -874,6 +1274,15 @@ Partial Class frmGesamtsicherheitenNEU Me.Panel1.Size = New System.Drawing.Size(1384, 61) Me.Panel1.TabIndex = 2 ' + 'btnRundungsdifAusgl + ' + Me.btnRundungsdifAusgl.Location = New System.Drawing.Point(1133, 7) + Me.btnRundungsdifAusgl.Name = "btnRundungsdifAusgl" + Me.btnRundungsdifAusgl.Size = New System.Drawing.Size(122, 42) + Me.btnRundungsdifAusgl.TabIndex = 51 + Me.btnRundungsdifAusgl.Text = "Rundungsdif. ausgleichen" + Me.btnRundungsdifAusgl.UseVisualStyleBackColor = True + ' 'btnNew ' Me.btnNew.Location = New System.Drawing.Point(1265, 13) @@ -905,6 +1314,21 @@ Partial Class frmGesamtsicherheitenNEU Me.btnSuche.Text = "Suche starten" Me.btnSuche.UseVisualStyleBackColor = True ' + 'cbx_Suche_Warenort + ' + Me.cbx_Suche_Warenort._allowedValuesFreiText = Nothing + Me.cbx_Suche_Warenort._allowFreiText = False + Me.cbx_Suche_Warenort._value = "" + Me.cbx_Suche_Warenort.DropDownWidth = 300 + Me.cbx_Suche_Warenort.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cbx_Suche_Warenort.FormattingEnabled = True + Me.cbx_Suche_Warenort.Location = New System.Drawing.Point(274, 20) + Me.cbx_Suche_Warenort.MaxLength = 4 + Me.cbx_Suche_Warenort.Name = "cbx_Suche_Warenort" + Me.cbx_Suche_Warenort.Size = New System.Drawing.Size(95, 24) + Me.cbx_Suche_Warenort.TabIndex = 6 + Me.cbx_Suche_Warenort.Visible = False + ' 'Label19 ' Me.Label19.AutoSize = True @@ -935,6 +1359,84 @@ Partial Class frmGesamtsicherheitenNEU Me.Label21.TabIndex = 1 Me.Label21.Text = "Suche:" ' + 'btn_resetSearch + ' + Me.btn_resetSearch.allowBorder = False + Me.btn_resetSearch.BackColor = System.Drawing.Color.White + Me.btn_resetSearch.FlatAppearance.BorderSize = 0 + Me.btn_resetSearch.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btn_resetSearch.ForeColor = System.Drawing.Color.Black + Me.btn_resetSearch.Image = Global.AVISO.My.Resources.Resources.refresh + Me.btn_resetSearch.Location = New System.Drawing.Point(660, 10) + Me.btn_resetSearch.Name = "btn_resetSearch" + Me.btn_resetSearch.Size = New System.Drawing.Size(32, 33) + Me.btn_resetSearch.TabIndex = 4 + Me.btn_resetSearch.UseVisualStyleBackColor = False + ' + 'btnDeletePos + ' + Me.btnDeletePos.allowBorder = False + Me.btnDeletePos.BackColor = System.Drawing.Color.White + Me.btnDeletePos.BackgroundImage = Global.AVISO.My.Resources.Resources.del2 + Me.btnDeletePos.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.btnDeletePos.FlatAppearance.BorderSize = 0 + Me.btnDeletePos.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnDeletePos.ForeColor = System.Drawing.Color.Black + Me.btnDeletePos.Location = New System.Drawing.Point(1357, 164) + Me.btnDeletePos.Name = "btnDeletePos" + Me.btnDeletePos.Size = New System.Drawing.Size(24, 24) + Me.btnDeletePos.TabIndex = 24 + Me.btnDeletePos.UseVisualStyleBackColor = False + Me.btnDeletePos.Visible = False + ' + 'btnDeleteSicherheit + ' + Me.btnDeleteSicherheit.allowBorder = False + Me.btnDeleteSicherheit.BackColor = System.Drawing.Color.White + Me.btnDeleteSicherheit.BackgroundImage = Global.AVISO.My.Resources.Resources.del2 + Me.btnDeleteSicherheit.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.btnDeleteSicherheit.FlatAppearance.BorderSize = 0 + Me.btnDeleteSicherheit.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnDeleteSicherheit.ForeColor = System.Drawing.Color.Black + Me.btnDeleteSicherheit.Location = New System.Drawing.Point(665, 165) + Me.btnDeleteSicherheit.Name = "btnDeleteSicherheit" + Me.btnDeleteSicherheit.Size = New System.Drawing.Size(24, 24) + Me.btnDeleteSicherheit.TabIndex = 12 + Me.btnDeleteSicherheit.UseVisualStyleBackColor = False + Me.btnDeleteSicherheit.Visible = False + ' + 'btnUpdatePos + ' + Me.btnUpdatePos.allowBorder = False + Me.btnUpdatePos.BackColor = System.Drawing.Color.White + Me.btnUpdatePos.BackgroundImage = Global.AVISO.My.Resources.Resources.ok + Me.btnUpdatePos.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.btnUpdatePos.FlatAppearance.BorderSize = 0 + Me.btnUpdatePos.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnUpdatePos.ForeColor = System.Drawing.Color.Black + Me.btnUpdatePos.Location = New System.Drawing.Point(1357, 245) + Me.btnUpdatePos.Name = "btnUpdatePos" + Me.btnUpdatePos.Size = New System.Drawing.Size(24, 24) + Me.btnUpdatePos.TabIndex = 49 + Me.btnUpdatePos.UseVisualStyleBackColor = False + Me.btnUpdatePos.Visible = False + ' + 'btnUpdateSicherheit + ' + Me.btnUpdateSicherheit.allowBorder = False + Me.btnUpdateSicherheit.BackColor = System.Drawing.Color.White + Me.btnUpdateSicherheit.BackgroundImage = Global.AVISO.My.Resources.Resources.ok + Me.btnUpdateSicherheit.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.btnUpdateSicherheit.FlatAppearance.BorderSize = 0 + Me.btnUpdateSicherheit.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnUpdateSicherheit.ForeColor = System.Drawing.Color.Black + Me.btnUpdateSicherheit.Location = New System.Drawing.Point(665, 246) + Me.btnUpdateSicherheit.Name = "btnUpdateSicherheit" + Me.btnUpdateSicherheit.Size = New System.Drawing.Size(24, 24) + Me.btnUpdateSicherheit.TabIndex = 41 + Me.btnUpdateSicherheit.UseVisualStyleBackColor = False + Me.btnUpdateSicherheit.Visible = False + ' 'Label15 ' Me.Label15.AutoSize = True @@ -1133,498 +1635,6 @@ Partial Class frmGesamtsicherheitenNEU Me.txtSicherheitFreitext.Size = New System.Drawing.Size(260, 24) Me.txtSicherheitFreitext.TabIndex = 46 ' - 'FlatButton3 - ' - Me.FlatButton3.allowBorder = False - Me.FlatButton3.BackColor = System.Drawing.Color.Gainsboro - Me.FlatButton3.FlatAppearance.BorderSize = 0 - Me.FlatButton3.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.FlatButton3.ForeColor = System.Drawing.Color.Black - Me.FlatButton3.Location = New System.Drawing.Point(210, 160) - Me.FlatButton3.Name = "FlatButton3" - Me.FlatButton3.Size = New System.Drawing.Size(75, 23) - Me.FlatButton3.TabIndex = 10 - Me.FlatButton3.Text = "Ändern" - Me.FlatButton3.UseVisualStyleBackColor = False - ' - 'FlatButton4 - ' - Me.FlatButton4.allowBorder = False - Me.FlatButton4.BackColor = System.Drawing.Color.White - Me.FlatButton4.BackgroundImage = Global.AVISO.My.Resources.Resources.del2 - Me.FlatButton4.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch - Me.FlatButton4.DialogResult = System.Windows.Forms.DialogResult.Cancel - Me.FlatButton4.FlatAppearance.BorderSize = 0 - Me.FlatButton4.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.FlatButton4.ForeColor = System.Drawing.Color.Black - Me.FlatButton4.Location = New System.Drawing.Point(261, 3) - Me.FlatButton4.Name = "FlatButton4" - Me.FlatButton4.Size = New System.Drawing.Size(24, 24) - Me.FlatButton4.TabIndex = 0 - Me.FlatButton4.UseVisualStyleBackColor = False - ' - 'FlatButton1 - ' - Me.FlatButton1.allowBorder = False - Me.FlatButton1.BackColor = System.Drawing.Color.Gainsboro - Me.FlatButton1.FlatAppearance.BorderSize = 0 - Me.FlatButton1.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.FlatButton1.ForeColor = System.Drawing.Color.Black - Me.FlatButton1.Location = New System.Drawing.Point(210, 77) - Me.FlatButton1.Name = "FlatButton1" - Me.FlatButton1.Size = New System.Drawing.Size(75, 23) - Me.FlatButton1.TabIndex = 9 - Me.FlatButton1.Text = "Ändern" - Me.FlatButton1.UseVisualStyleBackColor = False - ' - 'FlatButton2 - ' - Me.FlatButton2.allowBorder = False - Me.FlatButton2.BackColor = System.Drawing.Color.White - Me.FlatButton2.BackgroundImage = Global.AVISO.My.Resources.Resources.del2 - Me.FlatButton2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch - Me.FlatButton2.DialogResult = System.Windows.Forms.DialogResult.Cancel - Me.FlatButton2.FlatAppearance.BorderSize = 0 - Me.FlatButton2.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.FlatButton2.ForeColor = System.Drawing.Color.Black - Me.FlatButton2.Location = New System.Drawing.Point(261, 3) - Me.FlatButton2.Name = "FlatButton2" - Me.FlatButton2.Size = New System.Drawing.Size(24, 24) - Me.FlatButton2.TabIndex = 0 - Me.FlatButton2.UseVisualStyleBackColor = False - ' - 'txtlkwIdSearch - ' - Me.txtlkwIdSearch._allowFreitext = True - Me.txtlkwIdSearch._AllowSetValue = False - Me.txtlkwIdSearch._allowSpaceAsSplitter = False - Me.txtlkwIdSearch._autoSizeGross = False - Me.txtlkwIdSearch._hideIfListEmpty = True - Me.txtlkwIdSearch._value = Nothing - Me.txtlkwIdSearch.conn_art = "FMZOLL" - Me.txtlkwIdSearch.dgvpos = "LEFT" - Me.txtlkwIdSearch.DISPLAY_PARAM = Nothing - Me.txtlkwIdSearch.INVISIBLE_COLUMNS = Nothing - Me.txtlkwIdSearch.key_visible = False - Me.txtlkwIdSearch.KEYPARAM = Nothing - Me.txtlkwIdSearch.Location = New System.Drawing.Point(279, 184) - Me.txtlkwIdSearch.Name = "txtlkwIdSearch" - Me.txtlkwIdSearch.searchActive = True - Me.txtlkwIdSearch.Size = New System.Drawing.Size(186, 20) - Me.txtlkwIdSearch.SQL_ORDER_BY = Nothing - Me.txtlkwIdSearch.SQL_SELECT = Nothing - Me.txtlkwIdSearch.SQL_WHERE = Nothing - Me.txtlkwIdSearch.SQL_WhereParamList = Nothing - Me.txtlkwIdSearch.TabIndex = 7 - Me.txtlkwIdSearch.usrcntl = Nothing - ' - 'cboWarenort - ' - Me.cboWarenort._allowedValuesFreiText = Nothing - Me.cboWarenort._allowFreiText = False - Me.cboWarenort._value = "" - Me.cboWarenort.DropDownWidth = 400 - Me.cboWarenort.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.cboWarenort.FormattingEnabled = True - Me.cboWarenort.Location = New System.Drawing.Point(278, 64) - Me.cboWarenort.MaxLength = 4 - Me.cboWarenort.Name = "cboWarenort" - Me.cboWarenort.Size = New System.Drawing.Size(186, 24) - Me.cboWarenort.TabIndex = 2 - ' - 'cboFiliale - ' - Me.cboFiliale._allowedValuesFreiText = Nothing - Me.cboFiliale._allowFreiText = False - Me.cboFiliale._value = "" - Me.cboFiliale.DropDownWidth = 300 - Me.cboFiliale.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.cboFiliale.FormattingEnabled = True - Me.cboFiliale.Location = New System.Drawing.Point(279, 103) - Me.cboFiliale.MaxLength = 4 - Me.cboFiliale.Name = "cboFiliale" - Me.cboFiliale.Size = New System.Drawing.Size(186, 24) - Me.cboFiliale.TabIndex = 4 - ' - 'btnSave - ' - Me.btnSave.allowBorder = False - Me.btnSave.BackColor = System.Drawing.Color.Gainsboro - Me.btnSave.FlatAppearance.BorderSize = 0 - Me.btnSave.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnSave.ForeColor = System.Drawing.Color.Black - Me.btnSave.Location = New System.Drawing.Point(389, 252) - Me.btnSave.Name = "btnSave" - Me.btnSave.Size = New System.Drawing.Size(75, 23) - Me.btnSave.TabIndex = 9 - Me.btnSave.Text = "Speichern" - Me.btnSave.UseVisualStyleBackColor = False - ' - 'btnClosePanOverlay - ' - Me.btnClosePanOverlay.allowBorder = False - Me.btnClosePanOverlay.BackColor = System.Drawing.Color.White - Me.btnClosePanOverlay.BackgroundImage = Global.AVISO.My.Resources.Resources.del2 - Me.btnClosePanOverlay.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch - Me.btnClosePanOverlay.DialogResult = System.Windows.Forms.DialogResult.Cancel - Me.btnClosePanOverlay.FlatAppearance.BorderSize = 0 - Me.btnClosePanOverlay.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnClosePanOverlay.ForeColor = System.Drawing.Color.Black - Me.btnClosePanOverlay.Location = New System.Drawing.Point(475, 24) - Me.btnClosePanOverlay.Name = "btnClosePanOverlay" - Me.btnClosePanOverlay.Size = New System.Drawing.Size(24, 24) - Me.btnClosePanOverlay.TabIndex = 0 - Me.btnClosePanOverlay.UseVisualStyleBackColor = False - ' - 'dgvGesamtsicherheit - ' - Me.dgvGesamtsicherheit.AKTUALISIERUNGS_INTERVALL = -1 - Me.dgvGesamtsicherheit.AllowUserToAddRows = False - Me.dgvGesamtsicherheit.AllowUserToDeleteRows = False - DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle1.BackColor = System.Drawing.SystemColors.Control - DataGridViewCellStyle1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle1.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle1.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle1.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.dgvGesamtsicherheit.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle1 - Me.dgvGesamtsicherheit.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - Me.dgvGesamtsicherheit.ContextMenuStrip = Me.ContextMenuStripGesSicherh - DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle2.BackColor = System.Drawing.SystemColors.Window - DataGridViewCellStyle2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle2.ForeColor = System.Drawing.SystemColors.ControlText - DataGridViewCellStyle2.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] - Me.dgvGesamtsicherheit.DefaultCellStyle = DataGridViewCellStyle2 - Me.dgvGesamtsicherheit.Dock = System.Windows.Forms.DockStyle.Left - Me.dgvGesamtsicherheit.Location = New System.Drawing.Point(0, 0) - Me.dgvGesamtsicherheit.Name = "dgvGesamtsicherheit" - Me.dgvGesamtsicherheit.ReadOnly = True - DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle3.BackColor = System.Drawing.SystemColors.Control - DataGridViewCellStyle3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle3.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle3.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle3.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.dgvGesamtsicherheit.RowHeadersDefaultCellStyle = DataGridViewCellStyle3 - Me.dgvGesamtsicherheit.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect - Me.dgvGesamtsicherheit.Size = New System.Drawing.Size(742, 457) - Me.dgvGesamtsicherheit.TabIndex = 0 - ' - 'dgvSicherheitsPos - ' - Me.dgvSicherheitsPos.AKTUALISIERUNGS_INTERVALL = -1 - Me.dgvSicherheitsPos.AllowUserToAddRows = False - Me.dgvSicherheitsPos.AllowUserToDeleteRows = False - DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle4.BackColor = System.Drawing.SystemColors.Control - DataGridViewCellStyle4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle4.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle4.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle4.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.dgvSicherheitsPos.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle4 - Me.dgvSicherheitsPos.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - Me.dgvSicherheitsPos.ContextMenuStrip = Me.ContextMenuStripPosSicherheiten - DataGridViewCellStyle5.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle5.BackColor = System.Drawing.SystemColors.Window - DataGridViewCellStyle5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle5.ForeColor = System.Drawing.SystemColors.ControlText - DataGridViewCellStyle5.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle5.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] - Me.dgvSicherheitsPos.DefaultCellStyle = DataGridViewCellStyle5 - Me.dgvSicherheitsPos.Dock = System.Windows.Forms.DockStyle.Right - Me.dgvSicherheitsPos.Location = New System.Drawing.Point(748, 0) - Me.dgvSicherheitsPos.Name = "dgvSicherheitsPos" - Me.dgvSicherheitsPos.ReadOnly = True - Me.dgvSicherheitsPos.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect - Me.dgvSicherheitsPos.Size = New System.Drawing.Size(636, 457) - Me.dgvSicherheitsPos.TabIndex = 1 - ' - 'txtPosSicherheitsbGes - ' - Me.txtPosSicherheitsbGes._DateTimeOnly = False - Me.txtPosSicherheitsbGes._numbersOnly = False - Me.txtPosSicherheitsbGes._numbersOnlyKommastellen = "" - Me.txtPosSicherheitsbGes._numbersOnlyTrennzeichen = False - Me.txtPosSicherheitsbGes._Prozent = False - Me.txtPosSicherheitsbGes._ShortDateNew = False - Me.txtPosSicherheitsbGes._ShortDateOnly = False - Me.txtPosSicherheitsbGes._TimeOnly = False - Me.txtPosSicherheitsbGes._TimeOnly_Seconds = False - Me.txtPosSicherheitsbGes._value = "" - Me.txtPosSicherheitsbGes._Waehrung = True - Me.txtPosSicherheitsbGes._WaehrungZeichen = True - Me.txtPosSicherheitsbGes.ForeColor = System.Drawing.Color.Black - Me.txtPosSicherheitsbGes.Location = New System.Drawing.Point(1272, 6) - Me.txtPosSicherheitsbGes.MaxLineLength = -1 - Me.txtPosSicherheitsbGes.MaxLines_Warning = "" - Me.txtPosSicherheitsbGes.MaxLines_Warning_Label = Nothing - Me.txtPosSicherheitsbGes.Name = "txtPosSicherheitsbGes" - Me.txtPosSicherheitsbGes.ReadOnly = True - Me.txtPosSicherheitsbGes.Size = New System.Drawing.Size(100, 20) - Me.txtPosSicherheitsbGes.TabIndex = 5 - ' - 'txtSicherheitsbGes - ' - Me.txtSicherheitsbGes._DateTimeOnly = False - Me.txtSicherheitsbGes._numbersOnly = False - Me.txtSicherheitsbGes._numbersOnlyKommastellen = "" - Me.txtSicherheitsbGes._numbersOnlyTrennzeichen = False - Me.txtSicherheitsbGes._Prozent = False - Me.txtSicherheitsbGes._ShortDateNew = False - Me.txtSicherheitsbGes._ShortDateOnly = False - Me.txtSicherheitsbGes._TimeOnly = False - Me.txtSicherheitsbGes._TimeOnly_Seconds = False - Me.txtSicherheitsbGes._value = "" - Me.txtSicherheitsbGes._Waehrung = True - Me.txtSicherheitsbGes._WaehrungZeichen = True - Me.txtSicherheitsbGes.ForeColor = System.Drawing.Color.Black - Me.txtSicherheitsbGes.Location = New System.Drawing.Point(615, 5) - Me.txtSicherheitsbGes.MaxLineLength = -1 - Me.txtSicherheitsbGes.MaxLines_Warning = "" - Me.txtSicherheitsbGes.MaxLines_Warning_Label = Nothing - Me.txtSicherheitsbGes.Name = "txtSicherheitsbGes" - Me.txtSicherheitsbGes.ReadOnly = True - Me.txtSicherheitsbGes.Size = New System.Drawing.Size(100, 20) - Me.txtSicherheitsbGes.TabIndex = 5 - ' - 'txtPosWarenwertGes - ' - Me.txtPosWarenwertGes._DateTimeOnly = False - Me.txtPosWarenwertGes._numbersOnly = False - Me.txtPosWarenwertGes._numbersOnlyKommastellen = "" - Me.txtPosWarenwertGes._numbersOnlyTrennzeichen = False - Me.txtPosWarenwertGes._Prozent = False - Me.txtPosWarenwertGes._ShortDateNew = False - Me.txtPosWarenwertGes._ShortDateOnly = False - Me.txtPosWarenwertGes._TimeOnly = False - Me.txtPosWarenwertGes._TimeOnly_Seconds = False - Me.txtPosWarenwertGes._value = "" - Me.txtPosWarenwertGes._Waehrung = True - Me.txtPosWarenwertGes._WaehrungZeichen = True - Me.txtPosWarenwertGes.ForeColor = System.Drawing.Color.Black - Me.txtPosWarenwertGes.Location = New System.Drawing.Point(1018, 6) - Me.txtPosWarenwertGes.MaxLineLength = -1 - Me.txtPosWarenwertGes.MaxLines_Warning = "" - Me.txtPosWarenwertGes.MaxLines_Warning_Label = Nothing - Me.txtPosWarenwertGes.Name = "txtPosWarenwertGes" - Me.txtPosWarenwertGes.ReadOnly = True - Me.txtPosWarenwertGes.Size = New System.Drawing.Size(100, 20) - Me.txtPosWarenwertGes.TabIndex = 3 - ' - 'txtWarenwertGes - ' - Me.txtWarenwertGes._DateTimeOnly = False - Me.txtWarenwertGes._numbersOnly = False - Me.txtWarenwertGes._numbersOnlyKommastellen = "" - Me.txtWarenwertGes._numbersOnlyTrennzeichen = False - Me.txtWarenwertGes._Prozent = False - Me.txtWarenwertGes._ShortDateNew = False - Me.txtWarenwertGes._ShortDateOnly = False - Me.txtWarenwertGes._TimeOnly = False - Me.txtWarenwertGes._TimeOnly_Seconds = False - Me.txtWarenwertGes._value = "" - Me.txtWarenwertGes._Waehrung = True - Me.txtWarenwertGes._WaehrungZeichen = True - Me.txtWarenwertGes.ForeColor = System.Drawing.Color.Black - Me.txtWarenwertGes.Location = New System.Drawing.Point(326, 6) - Me.txtWarenwertGes.MaxLineLength = -1 - Me.txtWarenwertGes.MaxLines_Warning = "" - Me.txtWarenwertGes.MaxLines_Warning_Label = Nothing - Me.txtWarenwertGes.Name = "txtWarenwertGes" - Me.txtWarenwertGes.ReadOnly = True - Me.txtWarenwertGes.Size = New System.Drawing.Size(100, 20) - Me.txtWarenwertGes.TabIndex = 3 - ' - 'txtSicherheitDat - ' - Me.txtSicherheitDat._DateTimeOnly = False - Me.txtSicherheitDat._numbersOnly = False - Me.txtSicherheitDat._numbersOnlyKommastellen = "" - Me.txtSicherheitDat._numbersOnlyTrennzeichen = True - Me.txtSicherheitDat._Prozent = False - Me.txtSicherheitDat._ShortDateNew = False - Me.txtSicherheitDat._ShortDateOnly = True - Me.txtSicherheitDat._TimeOnly = False - Me.txtSicherheitDat._TimeOnly_Seconds = False - Me.txtSicherheitDat._value = "" - Me.txtSicherheitDat._Waehrung = False - Me.txtSicherheitDat._WaehrungZeichen = True - Me.txtSicherheitDat.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtSicherheitDat.ForeColor = System.Drawing.Color.Black - Me.txtSicherheitDat.Location = New System.Drawing.Point(279, 204) - Me.txtSicherheitDat.MaxLength = 10 - Me.txtSicherheitDat.MaxLineLength = -1 - Me.txtSicherheitDat.MaxLines_Warning = "" - Me.txtSicherheitDat.MaxLines_Warning_Label = Nothing - Me.txtSicherheitDat.Multiline = True - Me.txtSicherheitDat.Name = "txtSicherheitDat" - Me.txtSicherheitDat.Size = New System.Drawing.Size(78, 24) - Me.txtSicherheitDat.TabIndex = 27 - ' - 'txtPosDat - ' - Me.txtPosDat._DateTimeOnly = False - Me.txtPosDat._numbersOnly = False - Me.txtPosDat._numbersOnlyKommastellen = "" - Me.txtPosDat._numbersOnlyTrennzeichen = True - Me.txtPosDat._Prozent = False - Me.txtPosDat._ShortDateNew = False - Me.txtPosDat._ShortDateOnly = True - Me.txtPosDat._TimeOnly = False - Me.txtPosDat._TimeOnly_Seconds = False - Me.txtPosDat._value = "" - Me.txtPosDat._Waehrung = False - Me.txtPosDat._WaehrungZeichen = True - Me.txtPosDat.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtPosDat.ForeColor = System.Drawing.Color.Black - Me.txtPosDat.Location = New System.Drawing.Point(965, 204) - Me.txtPosDat.MaxLength = 10 - Me.txtPosDat.MaxLineLength = -1 - Me.txtPosDat.MaxLines_Warning = "" - Me.txtPosDat.MaxLines_Warning_Label = Nothing - Me.txtPosDat.Multiline = True - Me.txtPosDat.Name = "txtPosDat" - Me.txtPosDat.Size = New System.Drawing.Size(78, 24) - Me.txtPosDat.TabIndex = 32 - ' - 'btnSaveDatetime - ' - Me.btnSaveDatetime.allowBorder = False - Me.btnSaveDatetime.BackColor = System.Drawing.Color.White - Me.btnSaveDatetime.FlatAppearance.BorderSize = 0 - Me.btnSaveDatetime.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnSaveDatetime.ForeColor = System.Drawing.Color.Black - Me.btnSaveDatetime.Location = New System.Drawing.Point(12, 165) - Me.btnSaveDatetime.Name = "btnSaveDatetime" - Me.btnSaveDatetime.Size = New System.Drawing.Size(75, 23) - Me.btnSaveDatetime.TabIndex = 11 - Me.btnSaveDatetime.Text = "speichern" - Me.btnSaveDatetime.UseVisualStyleBackColor = False - ' - 'txtZollsatzueberschreiben - ' - Me.txtZollsatzueberschreiben._DateTimeOnly = False - Me.txtZollsatzueberschreiben._numbersOnly = True - Me.txtZollsatzueberschreiben._numbersOnlyKommastellen = "" - Me.txtZollsatzueberschreiben._numbersOnlyTrennzeichen = True - Me.txtZollsatzueberschreiben._Prozent = False - Me.txtZollsatzueberschreiben._ShortDateNew = False - Me.txtZollsatzueberschreiben._ShortDateOnly = False - Me.txtZollsatzueberschreiben._TimeOnly = False - Me.txtZollsatzueberschreiben._TimeOnly_Seconds = False - Me.txtZollsatzueberschreiben._value = "" - Me.txtZollsatzueberschreiben._Waehrung = False - Me.txtZollsatzueberschreiben._WaehrungZeichen = True - Me.txtZollsatzueberschreiben.Enabled = False - Me.txtZollsatzueberschreiben.ForeColor = System.Drawing.Color.Black - Me.txtZollsatzueberschreiben.Location = New System.Drawing.Point(908, 156) - Me.txtZollsatzueberschreiben.MaxLineLength = -1 - Me.txtZollsatzueberschreiben.MaxLines_Warning = "" - Me.txtZollsatzueberschreiben.MaxLines_Warning_Label = Nothing - Me.txtZollsatzueberschreiben.Name = "txtZollsatzueberschreiben" - Me.txtZollsatzueberschreiben.Size = New System.Drawing.Size(30, 20) - Me.txtZollsatzueberschreiben.TabIndex = 10 - ' - 'cbx_Suche_Warenort - ' - Me.cbx_Suche_Warenort._allowedValuesFreiText = Nothing - Me.cbx_Suche_Warenort._allowFreiText = False - Me.cbx_Suche_Warenort._value = "" - Me.cbx_Suche_Warenort.DropDownWidth = 300 - Me.cbx_Suche_Warenort.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.cbx_Suche_Warenort.FormattingEnabled = True - Me.cbx_Suche_Warenort.Location = New System.Drawing.Point(274, 20) - Me.cbx_Suche_Warenort.MaxLength = 4 - Me.cbx_Suche_Warenort.Name = "cbx_Suche_Warenort" - Me.cbx_Suche_Warenort.Size = New System.Drawing.Size(95, 24) - Me.cbx_Suche_Warenort.TabIndex = 6 - Me.cbx_Suche_Warenort.Visible = False - ' - 'btn_resetSearch - ' - Me.btn_resetSearch.allowBorder = False - Me.btn_resetSearch.BackColor = System.Drawing.Color.White - Me.btn_resetSearch.FlatAppearance.BorderSize = 0 - Me.btn_resetSearch.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btn_resetSearch.ForeColor = System.Drawing.Color.Black - Me.btn_resetSearch.Image = Global.AVISO.My.Resources.Resources.refresh - Me.btn_resetSearch.Location = New System.Drawing.Point(660, 10) - Me.btn_resetSearch.Name = "btn_resetSearch" - Me.btn_resetSearch.Size = New System.Drawing.Size(32, 33) - Me.btn_resetSearch.TabIndex = 4 - Me.btn_resetSearch.UseVisualStyleBackColor = False - ' - 'btnDeletePos - ' - Me.btnDeletePos.allowBorder = False - Me.btnDeletePos.BackColor = System.Drawing.Color.White - Me.btnDeletePos.BackgroundImage = Global.AVISO.My.Resources.Resources.del2 - Me.btnDeletePos.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch - Me.btnDeletePos.FlatAppearance.BorderSize = 0 - Me.btnDeletePos.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnDeletePos.ForeColor = System.Drawing.Color.Black - Me.btnDeletePos.Location = New System.Drawing.Point(1357, 164) - Me.btnDeletePos.Name = "btnDeletePos" - Me.btnDeletePos.Size = New System.Drawing.Size(24, 24) - Me.btnDeletePos.TabIndex = 24 - Me.btnDeletePos.UseVisualStyleBackColor = False - Me.btnDeletePos.Visible = False - ' - 'btnDeleteSicherheit - ' - Me.btnDeleteSicherheit.allowBorder = False - Me.btnDeleteSicherheit.BackColor = System.Drawing.Color.White - Me.btnDeleteSicherheit.BackgroundImage = Global.AVISO.My.Resources.Resources.del2 - Me.btnDeleteSicherheit.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch - Me.btnDeleteSicherheit.FlatAppearance.BorderSize = 0 - Me.btnDeleteSicherheit.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnDeleteSicherheit.ForeColor = System.Drawing.Color.Black - Me.btnDeleteSicherheit.Location = New System.Drawing.Point(665, 165) - Me.btnDeleteSicherheit.Name = "btnDeleteSicherheit" - Me.btnDeleteSicherheit.Size = New System.Drawing.Size(24, 24) - Me.btnDeleteSicherheit.TabIndex = 12 - Me.btnDeleteSicherheit.UseVisualStyleBackColor = False - Me.btnDeleteSicherheit.Visible = False - ' - 'btnUpdatePos - ' - Me.btnUpdatePos.allowBorder = False - Me.btnUpdatePos.BackColor = System.Drawing.Color.White - Me.btnUpdatePos.BackgroundImage = Global.AVISO.My.Resources.Resources.ok - Me.btnUpdatePos.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch - Me.btnUpdatePos.FlatAppearance.BorderSize = 0 - Me.btnUpdatePos.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnUpdatePos.ForeColor = System.Drawing.Color.Black - Me.btnUpdatePos.Location = New System.Drawing.Point(1357, 245) - Me.btnUpdatePos.Name = "btnUpdatePos" - Me.btnUpdatePos.Size = New System.Drawing.Size(24, 24) - Me.btnUpdatePos.TabIndex = 49 - Me.btnUpdatePos.UseVisualStyleBackColor = False - Me.btnUpdatePos.Visible = False - ' - 'btnUpdateSicherheit - ' - Me.btnUpdateSicherheit.allowBorder = False - Me.btnUpdateSicherheit.BackColor = System.Drawing.Color.White - Me.btnUpdateSicherheit.BackgroundImage = Global.AVISO.My.Resources.Resources.ok - Me.btnUpdateSicherheit.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch - Me.btnUpdateSicherheit.FlatAppearance.BorderSize = 0 - Me.btnUpdateSicherheit.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnUpdateSicherheit.ForeColor = System.Drawing.Color.Black - Me.btnUpdateSicherheit.Location = New System.Drawing.Point(665, 246) - Me.btnUpdateSicherheit.Name = "btnUpdateSicherheit" - Me.btnUpdateSicherheit.Size = New System.Drawing.Size(24, 24) - Me.btnUpdateSicherheit.TabIndex = 41 - Me.btnUpdateSicherheit.UseVisualStyleBackColor = False - Me.btnUpdateSicherheit.Visible = False - ' 'btnAddPos ' Me.btnAddPos.allowBorder = False @@ -1676,6 +1686,8 @@ Partial Class frmGesamtsicherheitenNEU Me.pnlChangeATBNr.PerformLayout() Me.panOverlay.ResumeLayout(False) Me.panOverlay.PerformLayout() + CType(Me.dgvGesamtsicherheit, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.dgvSicherheitsPos, System.ComponentModel.ISupportInitialize).EndInit() Me.ContextMenuStripPosSicherheiten.ResumeLayout(False) Me.pnlSummeGes.ResumeLayout(False) Me.pnlSummeGes.PerformLayout() @@ -1683,8 +1695,6 @@ Partial Class frmGesamtsicherheitenNEU Me.panOben.PerformLayout() Me.Panel1.ResumeLayout(False) Me.Panel1.PerformLayout() - CType(Me.dgvGesamtsicherheit, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.dgvSicherheitsPos, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) End Sub @@ -1804,4 +1814,5 @@ Partial Class frmGesamtsicherheitenNEU Friend WithEvents dtpSicherheitDat As DateTimePicker Friend WithEvents txtSicherheitsbetragContext As TextBox Friend WithEvents Label30 As Label + Friend WithEvents btnRundungsdifAusgl As Button End Class diff --git a/Aviso/frmGesamtsicherheitenNEU.vb b/Aviso/frmGesamtsicherheitenNEU.vb index 9c8aefa..37b4df1 100644 --- a/Aviso/frmGesamtsicherheitenNEU.vb +++ b/Aviso/frmGesamtsicherheitenNEU.vb @@ -38,6 +38,8 @@ Public Class frmGesamtsicherheitenNEU Dim isOpen As Boolean = False + Dim rundungsdiff As Double = 0 + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL Public dataTable As New DataTable() @@ -50,6 +52,12 @@ Public Class frmGesamtsicherheitenNEU Private Sub frmGesamtsicherheitNEU_Load(sender As Object, e As EventArgs) Handles MyBase.Load + If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("GESAMTSICHERHEIT_RUNDUNGSKORREKTUR", "AVISO") Then + btnRundungsdifAusgl.Visible = True + Else + btnRundungsdifAusgl.Visible = False + End If + currentGesSichRef = New VERAG_PROG_ALLGEMEIN.cAufschubKonten(Standort) SaldoNew = Decimal.Parse(currentGesSichRef.CalcSaldo()) lblSaldo.Text = "Saldo: €" & SaldoNew.ToString("N") @@ -810,8 +818,14 @@ Public Class frmGesamtsicherheitenNEU currentSicherheit = Sicherh txtAnzahlPos.Enabled = False - btnAddSicherheit.Visible = False - btnUpdateSicherheit.Visible = True + If Sicherh.gs_isRundungsdiff = True Then + btnAddSicherheit.Visible = False + btnUpdateSicherheit.Visible = False + Else + btnAddSicherheit.Visible = False + btnUpdateSicherheit.Visible = True + End If + btnDeleteSicherheit.Visible = True End Sub @@ -878,7 +892,7 @@ Public Class frmGesamtsicherheitenNEU Private Sub dgvGesamtsicherheitPositionen_CellCellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvSicherheitsPos.CellDoubleClick Dim sPos As New cGesamtsicherheitsPositionen(dgvSicherheitsPos.CurrentRow.Cells("gsp_gsId").Value, dgvSicherheitsPos.CurrentRow.Cells("gsp_gspPosId").Value) - + If sPos.gsp_isPosRundungsdiff = True Then Exit Sub txtPosNr.Text = sPos.gsp_gspPosId txtPosFreitext.Text = sPos.gsp_freitext txtPosSicherheitsbetrag.Text = sPos.gsp_sicherheitsbetrag @@ -1373,6 +1387,14 @@ Public Class frmGesamtsicherheitenNEU lbloffenerWarenwert.Text = "offener Warenwert: €" lbloffenerWarenwert.Text &= Math.Round(countWarenwert, 2) - Math.Round(countWarenwertPos, 2) + If (Math.Abs(countSicherheitsbetrag - countSicherheitsbetragPos) < 0.1 AndAlso Math.Abs(countSicherheitsbetrag - countSicherheitsbetragPos) <> 0) Then + btnRundungsdifAusgl.Enabled = True + rundungsdiff = Math.Round(countSicherheitsbetrag - countSicherheitsbetragPos, 2) + Else + btnRundungsdifAusgl.Enabled = False + End If + + End Sub @@ -1645,4 +1667,76 @@ Public Class frmGesamtsicherheitenNEU End If End Sub + + Private Sub btnRundungsdifAusgl_Click(sender As Object, e As EventArgs) Handles btnRundungsdifAusgl.Click + + Try + If (rundungsdiff <> 0) AndAlso checkIfRundungsPosExists() = False Then + + Dim OPEN As New cSicherheiten() + + With OPEN + .gs_gsNr = gessicherheitID + .gs_ATBNr = "Korrekt. Rundungsdiff. " & gessicherheitID + .gs_posNr = Me.getLatestPosNr(currentSicherheit.gs_gsNr, currentSicherheit.gs_ATBNr) + 1 + .gs_datum = DateTime.Now + .gs_warenwert = 0 + .gs_sicherheitsbetrag = 0 + .gs_standort = Me.Standort + .gs_art = "OPEN" + .gs_erstellungsdatum = DateTime.Now + .gs_freitext = "" + .gs_saldo = currentGesSichRef.brgakto_gs_aktSaldo + .gs_atr = setNullToZero(cboSicherheitATR.SelectedItem) + .gs_zollsatz = Me.Zollsatz + .gs_avisoId = Me.avisoID + .gs_isRundungsdiff = True + setEnviromentDataToObject(OPEN, Me) + End With + + Dim gs_gsId = OPEN.SAVEOBJECT() + + Dim SicherheitsPos As New cGesamtsicherheitsPositionen() + With SicherheitsPos + .gsp_gsId = gs_gsId + .gsp_gspPosId = OPEN.gs_posNr + .gsp_warenwert = 0 + .gsp_sicherheitsbetrag = rundungsdiff + .gsp_freitext = "" + .gsp_filialenNr = currentSicherheit.gs_filialenNr + .gsp_art = "CLOSE" + .gsp_gsNr = gessicherheitID + .gsp_abfertigungsNr = currentSicherheit.gs_abfertigungsnr + .gsp_datum = DateTime.Now + .gsp_erstellungsdatum = DateTime.Now + .gsp_ust = currentSicherheit.gs_ust + .gsp_ATCNr = "Korrekt. Rundungsdiff. " & gessicherheitID + .gsp_isPosRundungsdiff = True + .gsp_avisoId = Me.avisoID + End With + + SicherheitsPos.SAVE() + + AfterButton() + + End If + Catch ex As Exception + MsgBox(ex.Message) + End Try + + End Sub + + Private Function checkIfRundungsPosExists() + + If dgvGesamtsicherheit.Rows.Count < 1 Then Return False + + For Each Row In dgvGesamtsicherheit.Rows + Dim sicherh As New cSicherheiten(Row.Cells("gs_gsId").Value, Row.Cells("gs_posNr").Value) + + If sicherh.gs_isRundungsdiff Then Return True + + Next + Return False + + End Function End Class From c07f717dc916c663fbd909b6d4414aadb0b5dd1f Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Fri, 20 Jan 2023 15:58:27 +0100 Subject: [PATCH 3/3] Rundungsdiff. Gesamtsicherheiten, Motis Email-Templage --- Aviso/frmGesamtsicherheitenNEU.Designer.vb | 22 +- Aviso/frmGesamtsicherheitenNEU.vb | 15 +- Aviso/frmSendungsdetailsNEU.Designer.vb | 700 +++++++++++---------- Aviso/frmSendungsdetailsNEU.vb | 55 ++ 4 files changed, 440 insertions(+), 352 deletions(-) diff --git a/Aviso/frmGesamtsicherheitenNEU.Designer.vb b/Aviso/frmGesamtsicherheitenNEU.Designer.vb index df2c7b3..e3d097d 100644 --- a/Aviso/frmGesamtsicherheitenNEU.Designer.vb +++ b/Aviso/frmGesamtsicherheitenNEU.Designer.vb @@ -22,13 +22,14 @@ Partial Class frmGesamtsicherheitenNEU 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() 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 resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmGesamtsicherheitenNEU)) - Me.ContextMenuStripGesSicherh = New System.Windows.Forms.ContextMenuStrip() + Me.ContextMenuStripGesSicherh = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.ATBNraendernToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.Panel2 = New System.Windows.Forms.Panel() Me.pnlChangeATCNr = New System.Windows.Forms.Panel() @@ -63,9 +64,9 @@ Partial Class frmGesamtsicherheitenNEU Me.Label17 = New System.Windows.Forms.Label() Me.Label16 = New System.Windows.Forms.Label() Me.btnClosePanOverlay = New VERAG_PROG_ALLGEMEIN.FlatButton() - Me.dgvGesamtsicherheit = New VERAG_PROG_ALLGEMEIN.MyDatagridview() - Me.dgvSicherheitsPos = New VERAG_PROG_ALLGEMEIN.MyDatagridview() - Me.ContextMenuStripPosSicherheiten = New System.Windows.Forms.ContextMenuStrip() + Me.dgvGesamtsicherheit = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) + Me.dgvSicherheitsPos = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) + Me.ContextMenuStripPosSicherheiten = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.ATCMRNNraendernToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.pnlSummeGes = New System.Windows.Forms.Panel() Me.txtPosSicherheitsbGes = New VERAG_PROG_ALLGEMEIN.MyTextBox() @@ -144,6 +145,7 @@ Partial Class frmGesamtsicherheitenNEU Me.txtSicherheitFreitext = New System.Windows.Forms.TextBox() Me.btnAddPos = New VERAG_PROG_ALLGEMEIN.FlatButton() Me.btnAddSicherheit = New VERAG_PROG_ALLGEMEIN.FlatButton() + Me.cbxRundPosanzeigen = New System.Windows.Forms.CheckBox() Me.ContextMenuStripGesSicherh.SuspendLayout() Me.Panel2.SuspendLayout() Me.pnlChangeATCNr.SuspendLayout() @@ -1260,6 +1262,7 @@ Partial Class frmGesamtsicherheitenNEU 'Panel1 ' Me.Panel1.BackColor = System.Drawing.SystemColors.ButtonHighlight + Me.Panel1.Controls.Add(Me.cbxRundPosanzeigen) Me.Panel1.Controls.Add(Me.btnRundungsdifAusgl) Me.Panel1.Controls.Add(Me.btnNew) Me.Panel1.Controls.Add(Me.cbx_offene) @@ -1665,6 +1668,16 @@ Partial Class frmGesamtsicherheitenNEU Me.btnAddSicherheit.TabIndex = 36 Me.btnAddSicherheit.UseVisualStyleBackColor = False ' + 'cbxRundPosanzeigen + ' + Me.cbxRundPosanzeigen.AutoSize = True + Me.cbxRundPosanzeigen.Location = New System.Drawing.Point(12, 38) + Me.cbxRundPosanzeigen.Name = "cbxRundPosanzeigen" + Me.cbxRundPosanzeigen.Size = New System.Drawing.Size(169, 17) + Me.cbxRundPosanzeigen.TabIndex = 52 + Me.cbxRundPosanzeigen.Text = "Rundungspositionen anzeigen" + Me.cbxRundPosanzeigen.UseVisualStyleBackColor = True + ' 'frmGesamtsicherheitenNEU ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) @@ -1815,4 +1828,5 @@ Partial Class frmGesamtsicherheitenNEU Friend WithEvents txtSicherheitsbetragContext As TextBox Friend WithEvents Label30 As Label Friend WithEvents btnRundungsdifAusgl As Button + Friend WithEvents cbxRundPosanzeigen As CheckBox End Class diff --git a/Aviso/frmGesamtsicherheitenNEU.vb b/Aviso/frmGesamtsicherheitenNEU.vb index 37b4df1..dfe3b4d 100644 --- a/Aviso/frmGesamtsicherheitenNEU.vb +++ b/Aviso/frmGesamtsicherheitenNEU.vb @@ -54,8 +54,10 @@ Public Class frmGesamtsicherheitenNEU If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("GESAMTSICHERHEIT_RUNDUNGSKORREKTUR", "AVISO") Then btnRundungsdifAusgl.Visible = True + cbxRundPosanzeigen.Visible = True Else btnRundungsdifAusgl.Visible = False + cbxRundPosanzeigen.Visible = False End If currentGesSichRef = New VERAG_PROG_ALLGEMEIN.cAufschubKonten(Standort) @@ -65,7 +67,7 @@ Public Class frmGesamtsicherheitenNEU Me.Text = "Gesamtsicherheit " & Standort - cbx_Suche_Warenort.fillWithSQL("SELECT [wo_warenort],CONCAT([wo_knnr],' - ' ,[wo_bezeichnung]) FROM [tblWarenorte] WHERE [wo_aktiv] ='1' ORDER BY [wo_reihenfolge]", True, "AVISO", True) + cbx_Suche_Warenort.fillWithSQL("SELECT [wo_warenort],CONCAT([wo_knnr],' - ' ,[wo_bezeichnung]) FROM [tblWarenorte] WHERE [wo_aktiv] ='1' AND wo_ze = 1 ORDER BY [wo_reihenfolge]", True, "AVISO", True) If setNullToZero(gessicherheitID) = "" Or Neu = True Then @@ -74,7 +76,7 @@ Public Class frmGesamtsicherheitenNEU panOverlay.Visible = True cboFiliale.fillWithSQL("SELECT FilialenNr, cast(FilialenNr as varchar(4)) + ' ' + Grenzstelle FROM Filialen WHERE Fil_Status='A' ORDER BY FilialenNr ", True, "FMZOLL", True) - cboWarenort.fillWithSQL("SELECT [wo_warenort],CONCAT([wo_bezeichnung],' - ' ,[wo_knnr]) FROM [tblWarenorte] WHERE [wo_aktiv] ='1' AND [wo_firma] = '" & firmaId & "' ORDER BY [wo_reihenfolge] ", True, "AVISO", True) + cboWarenort.fillWithSQL("SELECT [wo_warenort],CONCAT([wo_bezeichnung],' - ' ,[wo_knnr]) FROM [tblWarenorte] WHERE [wo_aktiv] ='1' AND [wo_firma] = '" & firmaId & "' AND wo_ze = 1 ORDER BY [wo_reihenfolge] ", True, "AVISO", True) If datum = Nothing Then datum = Date.Now nextGessicherheitID = -1 @@ -101,6 +103,7 @@ Public Class frmGesamtsicherheitenNEU Public Sub LoadDGVSicherheiten(Optional withFilterParam As Boolean = False) + 'lblSaldo.Text = "Saldo: € " & currentGesSichRef.gsr_Saldo.ToString() txtGestellInfo.Text = "" Dim sqladd1 As String = "" @@ -110,6 +113,7 @@ Public Class frmGesamtsicherheitenNEU If withFilterParam = True Then If txt_Suche.Text <> "" Then sqlSearchSting &= "AND ([gs_abfertigungsNr] Like '%" & txt_Suche.Text & "%' OR [gs_ATBNr] Like '%" & txt_Suche.Text & "%' OR [gs_LKWKZ] like '%" & txt_Suche.Text & "%' OR [gs_avisoId] like '%" & txt_Suche.Text & "%' OR [gs_freitext] like '%" & txt_Suche.Text & "%')" If cbx_Suche_Warenort._value <> "" Then sqlSearchSting &= "AND gs_warenort like '%" & cbx_Suche_Warenort._value & "%'" + If cbxRundPosanzeigen.Checked = False Then sqlSearchSting &= "AND ISNULL(gs_isRundungsdiff,0) = 0" End If Dim SQLStringSicherheit As String = "select [gs_gsId], [gs_gsnr], [gs_posNr], [gs_ATBNr], [gs_datum], [gs_warenwert], [gs_sicherheitsbetrag], [gs_saldo] " & sqladd1 & " , [gs_freitext] from [tblGesamtsicherheit] where [gs_gsnr] = '" & gessicherheitID & "'" & sqlSearchSting & " order by [gs_ATBNr], [gs_posNr]" @@ -270,6 +274,7 @@ Public Class frmGesamtsicherheitenNEU sqlSearchSting &= "And gsp_gsid In (Select gs_gsId from [tblGesamtsicherheit] where [gs_gsnr] = '" & gessicherheitID & "'" If txt_Suche.Text <> "" Then sqlSearchSting &= "AND ([gs_abfertigungsNr] Like '%" & txt_Suche.Text & "%' OR [gs_ATBNr] Like '%" & txt_Suche.Text & "%' OR [gs_LKWKZ] like '%" & txt_Suche.Text & "%' OR [gs_avisoId] like '%" & txt_Suche.Text & "%' OR [gs_freitext] like '%" & txt_Suche.Text & "%')" If cbx_Suche_Warenort._value <> "" Then sqlSearchSting &= " AND gs_warenort like '%" & cbx_Suche_Warenort._value & "%'" + If cbxRundPosanzeigen.Checked = False Then sqlSearchSting &= "AND ISNULL(gsp_isPosRundungsdiff,0) = 0" sqlSearchSting &= ")" End If @@ -950,7 +955,7 @@ Public Class frmGesamtsicherheitenNEU panOverlay.Visible = True cboFiliale.fillWithSQL("SELECT FilialenNr, cast(FilialenNr as varchar(4)) + ' ' + Grenzstelle FROM Filialen WHERE Fil_Status='A' ORDER BY FilialenNr ", True, "FMZOLL", True) cboFiliale.SelectedIndex = cboFiliale.FindString(Me.FilialNummer) - cboWarenort.fillWithSQL("SELECT [wo_warenort],CONCAT([wo_knnr],' - ' ,[wo_bezeichnung]) FROM [tblWarenorte] WHERE [wo_aktiv] ='1' ORDER BY [wo_reihenfolge] ", True, "AVISO", True) + cboWarenort.fillWithSQL("SELECT [wo_warenort],CONCAT([wo_knnr],' - ' ,[wo_bezeichnung]) FROM [tblWarenorte] WHERE [wo_aktiv] ='1' AND wo_ze = 1 ORDER BY [wo_reihenfolge] ", True, "AVISO", True) cboWarenort.SelectedIndex = cbx_Suche_Warenort.FindString(Me.warenortID) txtlkwIdSearch.initSearchBox(Me.FindForm, " LKW_Nr, AvisoID, CAST(Datum as Date) as Datum FROM [Aviso]", {"LKW_Nr", "AvisoID", "Datum"}, "", "Datum desc", "LKW_Nr", "AvisoId", "AVISO",, 250, 200) txtlkwIdSearch.SET_VALUE(avisoID) @@ -1739,4 +1744,8 @@ Public Class frmGesamtsicherheitenNEU Return False End Function + + Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles cbxRundPosanzeigen.CheckedChanged + LoadDGVSicherheiten(True) + End Sub End Class diff --git a/Aviso/frmSendungsdetailsNEU.Designer.vb b/Aviso/frmSendungsdetailsNEU.Designer.vb index 469f3be..fbd4ad6 100644 --- a/Aviso/frmSendungsdetailsNEU.Designer.vb +++ b/Aviso/frmSendungsdetailsNEU.Designer.vb @@ -202,10 +202,35 @@ 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() @@ -218,6 +243,7 @@ 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() @@ -377,32 +403,7 @@ Partial Class frmSendungsdetailsNEU Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.ToolStripMenuItem14 = New System.Windows.Forms.ToolStripMenuItem() Me.NurÖffnenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() - Me.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.AuftragMOTISToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.pnl.SuspendLayout() Me.Panel4.SuspendLayout() Me.TabControl1.SuspendLayout() @@ -894,7 +895,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(93, 22) + Me.ToolStripMenuItem8.Size = New System.Drawing.Size(101, 30) Me.ToolStripMenuItem8.Text = "T1" ' 'ToolStripMenuItem9 @@ -902,7 +903,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(93, 22) + Me.ToolStripMenuItem9.Size = New System.Drawing.Size(101, 30) Me.ToolStripMenuItem9.Text = "T2" ' 'ToolStripMenuItem10 @@ -910,7 +911,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(93, 22) + Me.ToolStripMenuItem10.Size = New System.Drawing.Size(101, 30) Me.ToolStripMenuItem10.Text = "Ü-T" Me.ToolStripMenuItem10.Visible = False ' @@ -948,7 +949,7 @@ Partial Class frmSendungsdetailsNEU ' Me.ToolStripMenuItem20.Image = Global.AVISO.My.Resources.Resources.plus Me.ToolStripMenuItem20.Name = "ToolStripMenuItem20" - Me.ToolStripMenuItem20.Size = New System.Drawing.Size(95, 22) + Me.ToolStripMenuItem20.Size = New System.Drawing.Size(103, 30) Me.ToolStripMenuItem20.Text = "EZA" ' 'ToolStripMenuItem18 @@ -957,7 +958,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(95, 22) + Me.ToolStripMenuItem18.Size = New System.Drawing.Size(103, 30) Me.ToolStripMenuItem18.Text = "T1" ' 'ToolStripMenuItem19 @@ -966,7 +967,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(95, 22) + Me.ToolStripMenuItem19.Size = New System.Drawing.Size(103, 30) Me.ToolStripMenuItem19.Text = "T2" ' 'ToolStripMenuItem21 @@ -983,7 +984,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(176, 22) + Me.ToolStripMenuItem22.Size = New System.Drawing.Size(184, 30) Me.ToolStripMenuItem22.Text = "MIC Import senden" ' 'ToolStripMenuItem23 @@ -991,7 +992,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(176, 22) + Me.ToolStripMenuItem23.Size = New System.Drawing.Size(184, 30) Me.ToolStripMenuItem23.Text = "MIC Transit senden" ' 'ToolStripMenuItem24 @@ -1000,7 +1001,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(176, 22) + Me.ToolStripMenuItem24.Size = New System.Drawing.Size(184, 30) Me.ToolStripMenuItem24.Text = "MIC Export senden" ' 'ToolStripMenuItem12 @@ -2880,6 +2881,66 @@ 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 @@ -2947,6 +3008,246 @@ 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)) @@ -3135,6 +3436,14 @@ Partial Class frmSendungsdetailsNEU Me.pnlT1.Size = New System.Drawing.Size(549, 92) 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, 92) + Me.UsrCntlSND_NCTSGestellungsadresse1.TabIndex = 0 + ' 'Label43 ' Me.Label43.AutoSize = True @@ -4061,7 +4370,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(0, 55) + Me.Panel2.Size = New System.Drawing.Size(1214, 55) Me.Panel2.TabIndex = 0 ' 'FlowLayoutPanel @@ -4073,7 +4382,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(0, 55) + Me.FlowLayoutPanel.Size = New System.Drawing.Size(1214, 55) Me.FlowLayoutPanel.TabIndex = 0 ' 'FlatButton2 @@ -4586,6 +4895,7 @@ Partial Class frmSendungsdetailsNEU ' Me.BindingNavigatorPositionItem.AccessibleName = "Position" Me.BindingNavigatorPositionItem.AutoSize = False + Me.BindingNavigatorPositionItem.Font = New System.Drawing.Font("Segoe UI", 9.0!) Me.BindingNavigatorPositionItem.Name = "BindingNavigatorPositionItem" Me.BindingNavigatorPositionItem.Size = New System.Drawing.Size(50, 23) Me.BindingNavigatorPositionItem.Text = "0" @@ -4754,9 +5064,9 @@ Partial Class frmSendungsdetailsNEU 'ContextMenuStrip1 ' Me.ContextMenuStrip1.ImageScalingSize = New System.Drawing.Size(24, 24) - Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem15, Me.T1BestätigungToolStripMenuItem, Me.SpeditionSUBENToolStripMenuItem, Me.ToolStripMenuItem16, Me.AuftragATANAKToolStripMenuItem, Me.ToolStripMenuItem26, Me.ToolStripMenuItem27, Me.ToolStripMenuItem25, Me.GVMSInfoToolStripMenuItem, Me.WarenortAMBARToolStripMenuItem}) + Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem15, Me.T1BestätigungToolStripMenuItem, Me.SpeditionSUBENToolStripMenuItem, Me.ToolStripMenuItem16, Me.AuftragATANAKToolStripMenuItem, Me.ToolStripMenuItem26, Me.ToolStripMenuItem27, Me.ToolStripMenuItem25, Me.GVMSInfoToolStripMenuItem, Me.WarenortAMBARToolStripMenuItem, Me.AuftragMOTISToolStripMenuItem}) Me.ContextMenuStrip1.Name = "cntxtAnh" - Me.ContextMenuStrip1.Size = New System.Drawing.Size(223, 304) + Me.ContextMenuStrip1.Size = New System.Drawing.Size(223, 356) ' 'ToolStripMenuItem15 ' @@ -4912,313 +5222,12 @@ Partial Class frmSendungsdetailsNEU Me.NurÖffnenToolStripMenuItem.Size = New System.Drawing.Size(255, 30) Me.NurÖffnenToolStripMenuItem.Text = "nur öffnen" ' - 'cntlFrachtfuehrer_Sonst + 'AuftragMOTISToolStripMenuItem ' - 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, 92) - Me.UsrCntlSND_NCTSGestellungsadresse1.TabIndex = 0 + Me.AuftragMOTISToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.email_big1 + Me.AuftragMOTISToolStripMenuItem.Name = "AuftragMOTISToolStripMenuItem" + Me.AuftragMOTISToolStripMenuItem.Size = New System.Drawing.Size(222, 30) + Me.AuftragMOTISToolStripMenuItem.Text = "Auftrag MOTIS" ' 'frmSendungsdetailsNEU ' @@ -5693,4 +5702,5 @@ Partial Class frmSendungsdetailsNEU Friend WithEvents OhneGestellungsgarantieToolStripMenuItem As ToolStripMenuItem Friend WithEvents AMBARZollbeschauNEUToolStripMenuItem As ToolStripMenuItem Friend WithEvents WarenortAMBARToolStripMenuItem As ToolStripMenuItem + Friend WithEvents AuftragMOTISToolStripMenuItem As ToolStripMenuItem End Class diff --git a/Aviso/frmSendungsdetailsNEU.vb b/Aviso/frmSendungsdetailsNEU.vb index 4fa2d87..73108f9 100644 --- a/Aviso/frmSendungsdetailsNEU.vb +++ b/Aviso/frmSendungsdetailsNEU.vb @@ -5795,4 +5795,59 @@ Public Class frmSendungsdetailsNEU End Sub + Private Sub AuftragMOTISToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AuftragMOTISToolStripMenuItem.Click + Try + VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.clearTMPPath("ClipBoard_TMP") + If dgvAnhang.SelectedRows.Count >= 1 Then + Try + Dim outl As New Outlook.Application + Dim Mail As Microsoft.Office.Interop.Outlook.MailItem + Mail = outl.CreateItem(0) + Mail.To = "clearance@motisfreeflow.com" + + Mail.Subject = "Arrival Notice " & If(AVISO.LKW_Nr <> "", AVISO.LKW_Nr, "") & " our Ref: " & SENDUNG_LIST(CURRENT_INDEX).FilialenNr & "/" & SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr + + Dim TextHTML = "" + TextHTML &= "Dear Motis Free Flow Team,
" + TextHTML &= "
" + TextHTML &= "please see attached.
" + TextHTML &= "
" + + For Each r As DataGridViewRow In dgvAnhang.SelectedRows + Mail.Attachments.Add(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(r.Cells("anh_docId").Value), Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue) + 'If (r.Cells("anh_ART").Value <> "***" Or r.Cells("anh_ART").Value <> "") Then + ' TextHTML &= r.Cells("anh_ART").Value + ' TextHTML &= "
" + 'End If + + Next + + TextHTML &= "Import document
" + TextHTML &= "T1
" + TextHTML &= "Commercial Invoice
" + TextHTML &= "Packing list
" + TextHTML &= "
" + TextHTML &= "ETA to MOTIS " & IIf(AVISO.VoraussichtlichesEintreffen IsNot Nothing, CDate(AVISO.VoraussichtlichesEintreffen).ToShortDateString, "") + TextHTML &= "
" + TextHTML &= "
" + TextHTML &= "Best regards
" + TextHTML &= "" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME & "
" + TextHTML &= "
" + + Mail.HTMLBody = "
" & TextHTML & SDL.cFakturierung.getSignature("EN",,,, "BREXIT_VERAG") & "
" + + Dim answer = MsgBox("Vermerk 'An MOTIS avisiert' eintragen?", vbYesNoCancel) + If vbYes = answer Then + AvisoStatusFunctions.insertSendungsVermerk(SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID, AvisoId, "An MOTIS avisiert", 43) + End If + Mail.Display() + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Fehler beim Öffnen der Mail!") + End Try + End If + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Fehler beim Öffnen der Mail!") + End Try + End Sub End Class