20200108

2020-01-08 15:01:48 +01:00
parent c860c222c7
commit e879fb6881
89 changed files with 8692 additions and 3571 deletions
--- a/Aviso/Anhänge/frmAddSendnung.Designer.vb
+++ b/Aviso/Anhänge/frmAddSendnung.Designer.vb
@@ -22,6 +22,7 @@ Partial Class frmAddSendnung
    'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
    <System.Diagnostics.DebuggerStepThrough()> _
    Private Sub InitializeComponent()
+        Me.components = New System.ComponentModel.Container()
        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmAddSendnung))
        Me.cboAbfertigungsart = New VERAG_PROG_ALLGEMEIN.MyComboBox()
        Me.Label1 = New System.Windows.Forms.Label()
@@ -34,6 +35,17 @@ Partial Class frmAddSendnung
        Me.Label23 = New System.Windows.Forms.Label()
        Me.Label2 = New System.Windows.Forms.Label()
        Me.btn = New System.Windows.Forms.Button()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.txtAbsender = New VERAG_PROG_ALLGEMEIN.KdSearchBox()
+        Me.ToolTip = New System.Windows.Forms.ToolTip(Me.components)
+        Me.FlatButton4 = New VERAG_PROG_ALLGEMEIN.FlatButton()
+        Me.FlatButton1 = New VERAG_PROG_ALLGEMEIN.FlatButton()
+        Me.picWarnAbsender = New System.Windows.Forms.PictureBox()
+        Me.picWarnEmpfaenger = New System.Windows.Forms.PictureBox()
+        Me.RichTextBox1 = New System.Windows.Forms.RichTextBox()
+        Me.Label4 = New System.Windows.Forms.Label()
+        CType(Me.picWarnAbsender, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.picWarnEmpfaenger, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.SuspendLayout()
        '
        'cboAbfertigungsart
@@ -46,7 +58,7 @@ Partial Class frmAddSendnung
        Me.cboAbfertigungsart.FormattingEnabled = True
        Me.cboAbfertigungsart.Location = New System.Drawing.Point(12, 29)
        Me.cboAbfertigungsart.Name = "cboAbfertigungsart"
-        Me.cboAbfertigungsart.Size = New System.Drawing.Size(359, 24)
+        Me.cboAbfertigungsart.Size = New System.Drawing.Size(335, 24)
        Me.cboAbfertigungsart.TabIndex = 1
        '
        'Label1
@@ -70,26 +82,26 @@ Partial Class frmAddSendnung
        Me.txtEmpfaenger._displayWoelflKd = False
        Me.txtEmpfaenger._hideIfListEmpty = True
        Me.txtEmpfaenger._loadKdData = True
-        Me.txtEmpfaenger._ValueKdAndName = False
+        Me.txtEmpfaenger._ValueKdAndName = True
        Me.txtEmpfaenger.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper
        Me.txtEmpfaenger.dgvpos = "LEFT"
        Me.txtEmpfaenger.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
-        Me.txtEmpfaenger.KdName = Nothing
+        Me.txtEmpfaenger.KdName = ""
        Me.txtEmpfaenger.KdNr = "-1"
        Me.txtEmpfaenger.kdNrField = Nothing
        Me.txtEmpfaenger.KdNrNullInt = Nothing
-        Me.txtEmpfaenger.Location = New System.Drawing.Point(12, 84)
+        Me.txtEmpfaenger.Location = New System.Drawing.Point(12, 131)
        Me.txtEmpfaenger.Name = "txtEmpfaenger"
        Me.txtEmpfaenger.nurAktive = True
        Me.txtEmpfaenger.searchActive = True
-        Me.txtEmpfaenger.Size = New System.Drawing.Size(359, 23)
-        Me.txtEmpfaenger.TabIndex = 3
+        Me.txtEmpfaenger.Size = New System.Drawing.Size(315, 23)
+        Me.txtEmpfaenger.TabIndex = 5
        Me.txtEmpfaenger.usrcntl = Nothing
        '
        'txtGewicht
        '
        Me.txtGewicht._DateTimeOnly = False
-        Me.txtGewicht._numbersOnly = False
+        Me.txtGewicht._numbersOnly = True
        Me.txtGewicht._numbersOnlyKommastellen = ""
        Me.txtGewicht._Prozent = False
        Me.txtGewicht._ShortDateNew = False
@@ -99,31 +111,31 @@ Partial Class frmAddSendnung
        Me.txtGewicht._Waehrung = False
        Me.txtGewicht._WaehrungZeichen = True
        Me.txtGewicht.ForeColor = System.Drawing.Color.Black
-        Me.txtGewicht.Location = New System.Drawing.Point(152, 165)
+        Me.txtGewicht.Location = New System.Drawing.Point(152, 212)
        Me.txtGewicht.MaxLineLength = -1
        Me.txtGewicht.MaxLines_Warning = ""
        Me.txtGewicht.MaxLines_Warning_Label = Nothing
        Me.txtGewicht.Name = "txtGewicht"
        Me.txtGewicht.Size = New System.Drawing.Size(60, 20)
-        Me.txtGewicht.TabIndex = 9
+        Me.txtGewicht.TabIndex = 11
        Me.txtGewicht.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
        '
        'Label19
        '
        Me.Label19.AutoSize = True
-        Me.Label19.Location = New System.Drawing.Point(9, 117)
+        Me.Label19.Location = New System.Drawing.Point(9, 164)
        Me.Label19.Name = "Label19"
        Me.Label19.Size = New System.Drawing.Size(100, 13)
-        Me.Label19.TabIndex = 4
+        Me.Label19.TabIndex = 6
        Me.Label19.Text = "Warenbezeichnung"
        '
        'Label17
        '
        Me.Label17.AutoSize = True
-        Me.Label17.Location = New System.Drawing.Point(10, 168)
+        Me.Label17.Location = New System.Drawing.Point(10, 215)
        Me.Label17.Name = "Label17"
        Me.Label17.Size = New System.Drawing.Size(73, 13)
-        Me.Label17.TabIndex = 6
+        Me.Label17.TabIndex = 8
        Me.Label17.Text = "Colli/Gewicht:"
        '
        'txtColli
@@ -139,62 +151,177 @@ Partial Class frmAddSendnung
        Me.txtColli._Waehrung = False
        Me.txtColli._WaehrungZeichen = True
        Me.txtColli.ForeColor = System.Drawing.Color.Black
-        Me.txtColli.Location = New System.Drawing.Point(84, 165)
+        Me.txtColli.Location = New System.Drawing.Point(84, 212)
        Me.txtColli.MaxLineLength = -1
        Me.txtColli.MaxLines_Warning = ""
        Me.txtColli.MaxLines_Warning_Label = Nothing
        Me.txtColli.Name = "txtColli"
        Me.txtColli.Size = New System.Drawing.Size(46, 20)
-        Me.txtColli.TabIndex = 7
+        Me.txtColli.TabIndex = 9
        Me.txtColli.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
        '
        'rtbWarenbezeichnung
        '
        Me.rtbWarenbezeichnung.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me.rtbWarenbezeichnung.Cursor = System.Windows.Forms.Cursors.IBeam
-        Me.rtbWarenbezeichnung.Location = New System.Drawing.Point(12, 133)
+        Me.rtbWarenbezeichnung.Location = New System.Drawing.Point(12, 180)
        Me.rtbWarenbezeichnung.MaxLength = 500
        Me.rtbWarenbezeichnung.Name = "rtbWarenbezeichnung"
        Me.rtbWarenbezeichnung.Size = New System.Drawing.Size(359, 32)
-        Me.rtbWarenbezeichnung.TabIndex = 5
+        Me.rtbWarenbezeichnung.TabIndex = 7
        Me.rtbWarenbezeichnung.Text = ""
        '
        'Label23
        '
        Me.Label23.AutoSize = True
-        Me.Label23.Location = New System.Drawing.Point(129, 168)
+        Me.Label23.Location = New System.Drawing.Point(129, 215)
        Me.Label23.Name = "Label23"
        Me.Label23.Size = New System.Drawing.Size(23, 13)
-        Me.Label23.TabIndex = 8
+        Me.Label23.TabIndex = 10
        Me.Label23.Text = "Pk."
        '
        'Label2
        '
        Me.Label2.AutoSize = True
        Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
-        Me.Label2.Location = New System.Drawing.Point(10, 64)
+        Me.Label2.Location = New System.Drawing.Point(10, 111)
        Me.Label2.Name = "Label2"
        Me.Label2.Size = New System.Drawing.Size(81, 17)
-        Me.Label2.TabIndex = 2
+        Me.Label2.TabIndex = 4
        Me.Label2.Text = "Empfänger:"
        '
        'btn
        '
        Me.btn.DialogResult = System.Windows.Forms.DialogResult.OK
        Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.btn.Location = New System.Drawing.Point(12, 197)
+        Me.btn.Location = New System.Drawing.Point(12, 244)
        Me.btn.Name = "btn"
        Me.btn.Size = New System.Drawing.Size(359, 52)
-        Me.btn.TabIndex = 10
+        Me.btn.TabIndex = 12
        Me.btn.Text = "OK"
        Me.btn.UseVisualStyleBackColor = True
        '
+        'Label3
+        '
+        Me.Label3.AutoSize = True
+        Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
+        Me.Label3.Location = New System.Drawing.Point(10, 65)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(73, 17)
+        Me.Label3.TabIndex = 2
+        Me.Label3.Text = "Absender:"
+        '
+        'txtAbsender
+        '
+        Me.txtAbsender._AllowSetValue = True
+        Me.txtAbsender._autoSizeGross = True
+        Me.txtAbsender._display_Name1 = False
+        Me.txtAbsender._displayAVISO_Email = False
+        Me.txtAbsender._displayFullName = False
+        Me.txtAbsender._displayWoelflKd = False
+        Me.txtAbsender._hideIfListEmpty = True
+        Me.txtAbsender._loadKdData = True
+        Me.txtAbsender._ValueKdAndName = True
+        Me.txtAbsender.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper
+        Me.txtAbsender.dgvpos = "LEFT"
+        Me.txtAbsender.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
+        Me.txtAbsender.KdName = ""
+        Me.txtAbsender.KdNr = "-1"
+        Me.txtAbsender.kdNrField = Nothing
+        Me.txtAbsender.KdNrNullInt = Nothing
+        Me.txtAbsender.Location = New System.Drawing.Point(12, 85)
+        Me.txtAbsender.Name = "txtAbsender"
+        Me.txtAbsender.nurAktive = True
+        Me.txtAbsender.searchActive = True
+        Me.txtAbsender.Size = New System.Drawing.Size(315, 23)
+        Me.txtAbsender.TabIndex = 3
+        Me.txtAbsender.usrcntl = Nothing
+        '
+        'FlatButton4
+        '
+        Me.FlatButton4.allowBorder = False
+        Me.FlatButton4.BackgroundImage = CType(resources.GetObject("FlatButton4.BackgroundImage"), System.Drawing.Image)
+        Me.FlatButton4.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        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(325, 130)
+        Me.FlatButton4.Name = "FlatButton4"
+        Me.FlatButton4.Size = New System.Drawing.Size(25, 25)
+        Me.FlatButton4.TabIndex = 89
+        Me.FlatButton4.TabStop = False
+        Me.FlatButton4.UseVisualStyleBackColor = True
+        '
+        'FlatButton1
+        '
+        Me.FlatButton1.allowBorder = False
+        Me.FlatButton1.BackgroundImage = CType(resources.GetObject("FlatButton1.BackgroundImage"), System.Drawing.Image)
+        Me.FlatButton1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        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(325, 84)
+        Me.FlatButton1.Name = "FlatButton1"
+        Me.FlatButton1.Size = New System.Drawing.Size(25, 25)
+        Me.FlatButton1.TabIndex = 88
+        Me.FlatButton1.TabStop = False
+        Me.FlatButton1.UseVisualStyleBackColor = True
+        '
+        'picWarnAbsender
+        '
+        Me.picWarnAbsender.BackgroundImage = Global.AVISO.My.Resources.Resources.warning2
+        Me.picWarnAbsender.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.picWarnAbsender.Location = New System.Drawing.Point(351, 85)
+        Me.picWarnAbsender.Name = "picWarnAbsender"
+        Me.picWarnAbsender.Size = New System.Drawing.Size(20, 23)
+        Me.picWarnAbsender.TabIndex = 86
+        Me.picWarnAbsender.TabStop = False
+        Me.picWarnAbsender.Visible = False
+        '
+        'picWarnEmpfaenger
+        '
+        Me.picWarnEmpfaenger.BackgroundImage = Global.AVISO.My.Resources.Resources.warning2
+        Me.picWarnEmpfaenger.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.picWarnEmpfaenger.Location = New System.Drawing.Point(351, 131)
+        Me.picWarnEmpfaenger.Name = "picWarnEmpfaenger"
+        Me.picWarnEmpfaenger.Size = New System.Drawing.Size(20, 23)
+        Me.picWarnEmpfaenger.TabIndex = 87
+        Me.picWarnEmpfaenger.TabStop = False
+        Me.picWarnEmpfaenger.Visible = False
+        '
+        'RichTextBox1
+        '
+        Me.RichTextBox1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.RichTextBox1.Cursor = System.Windows.Forms.Cursors.IBeam
+        Me.RichTextBox1.Location = New System.Drawing.Point(12, 327)
+        Me.RichTextBox1.MaxLength = 500
+        Me.RichTextBox1.Name = "RichTextBox1"
+        Me.RichTextBox1.ReadOnly = True
+        Me.RichTextBox1.Size = New System.Drawing.Size(359, 102)
+        Me.RichTextBox1.TabIndex = 90
+        Me.RichTextBox1.Text = ""
+        '
+        'Label4
+        '
+        Me.Label4.AutoSize = True
+        Me.Label4.Location = New System.Drawing.Point(12, 311)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(184, 13)
+        Me.Label4.TabIndex = 91
+        Me.Label4.Text = "Besonderheiten (aktives Kundenfeld):"
+        '
        'frmAddSendnung
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
        Me.BackColor = System.Drawing.Color.White
-        Me.ClientSize = New System.Drawing.Size(389, 261)
+        Me.ClientSize = New System.Drawing.Size(389, 441)
+        Me.Controls.Add(Me.Label4)
+        Me.Controls.Add(Me.RichTextBox1)
+        Me.Controls.Add(Me.picWarnEmpfaenger)
+        Me.Controls.Add(Me.picWarnAbsender)
+        Me.Controls.Add(Me.Label3)
+        Me.Controls.Add(Me.txtAbsender)
        Me.Controls.Add(Me.btn)
        Me.Controls.Add(Me.Label2)
        Me.Controls.Add(Me.txtGewicht)
@@ -206,10 +333,14 @@ Partial Class frmAddSendnung
        Me.Controls.Add(Me.txtEmpfaenger)
        Me.Controls.Add(Me.cboAbfertigungsart)
        Me.Controls.Add(Me.Label1)
+        Me.Controls.Add(Me.FlatButton1)
+        Me.Controls.Add(Me.FlatButton4)
        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
        Me.Name = "frmAddSendnung"
        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
        Me.Text = "Sendnung hinzufügen"
+        CType(Me.picWarnAbsender, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.picWarnEmpfaenger, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)
        Me.PerformLayout()

@@ -226,4 +357,13 @@ Partial Class frmAddSendnung
    Friend WithEvents Label23 As Label
    Friend WithEvents Label2 As Label
    Friend WithEvents btn As Button
+    Friend WithEvents Label3 As Label
+    Friend WithEvents txtAbsender As VERAG_PROG_ALLGEMEIN.KdSearchBox
+    Friend WithEvents ToolTip As ToolTip
+    Friend WithEvents FlatButton4 As VERAG_PROG_ALLGEMEIN.FlatButton
+    Friend WithEvents FlatButton1 As VERAG_PROG_ALLGEMEIN.FlatButton
+    Friend WithEvents picWarnAbsender As PictureBox
+    Friend WithEvents picWarnEmpfaenger As PictureBox
+    Friend WithEvents RichTextBox1 As RichTextBox
+    Friend WithEvents Label4 As Label
 End Class