MDM UST, MSE-API, API-Einstellungen

VERAGAddIn/VERAGAddIn.vbproj

@@ -36,7 +36,7 @@
     <PublishUrl>\\ftps.verag.ag\g\ftp\programme\VERAGAddin\</PublishUrl>
     <InstallUrl>http://ftps.verag.ag/VERAGAddin/</InstallUrl>
     <TargetCulture>de</TargetCulture>
-    <ApplicationVersion>1.0.1.127</ApplicationVersion>
+    <ApplicationVersion>1.0.1.128</ApplicationVersion>
     <AutoIncrementApplicationRevision>true</AutoIncrementApplicationRevision>
     <UpdateEnabled>true</UpdateEnabled>
     <UpdateInterval>0</UpdateInterval>

VERAGAddIn/frmAvisoAnfügen.Designer.vb

@@ -22,6 +22,7 @@ Partial Class frmAvisoAnfuegen
     '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(frmAvisoAnfuegen))
         Me.lbl = New System.Windows.Forms.Label()
         Me.Label14 = New System.Windows.Forms.Label()
@@ -39,20 +40,21 @@ Partial Class frmAvisoAnfuegen
         Me.btnVermerke = New System.Windows.Forms.Button()
         Me.bttnSaveMail = New System.Windows.Forms.Button()
         Me.btnSaveAttachments = New System.Windows.Forms.Button()
-        Me.dgvAnhaenge = New VERAG_PROG_ALLGEMEIN.MyDatagridview()
+        Me.dgvAnhaenge = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
         Me.columnName = New System.Windows.Forms.DataGridViewTextBoxColumn()
         Me.Pfad = New System.Windows.Forms.DataGridViewTextBoxColumn()
         Me.cboArt = New VERAG_PROG_ALLGEMEIN.MyComboBox()
         Me.txtSrchDat = New VERAG_PROG_ALLGEMEIN.MyTextBox()
-        Me.dgvSendungen = New VERAG_PROG_ALLGEMEIN.MyDatagridview()
+        Me.dgvSendungen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
         Me.txtBezeichnung = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.txtAbfertigungsnummer = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.cboFiliale = New VERAG_PROG_ALLGEMEIN.MyComboBox()
         Me.txtLKWNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
-        Me.dgvAviso = New VERAG_PROG_ALLGEMEIN.MyDatagridview()
+        Me.dgvAviso = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
         Me.CheckBox2 = New System.Windows.Forms.CheckBox()
         Me.CheckBox3 = New System.Windows.Forms.CheckBox()
         Me.usrcntrVermerke = New AVISO.rCntrlVermerke()
+        Me.lblInfo = New System.Windows.Forms.Label()
         CType(Me.dgvAnhaenge, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.dgvSendungen, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.dgvAviso, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -484,12 +486,23 @@ Partial Class frmAvisoAnfuegen
         Me.usrcntrVermerke.Size = New System.Drawing.Size(582, 145)
         Me.usrcntrVermerke.TabIndex = 43
         '
+        'lblInfo
+        '
+        Me.lblInfo.AutoSize = True
+        Me.lblInfo.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.lblInfo.ForeColor = System.Drawing.Color.Red
+        Me.lblInfo.Location = New System.Drawing.Point(100, 2)
+        Me.lblInfo.Name = "lblInfo"
+        Me.lblInfo.Size = New System.Drawing.Size(0, 20)
+        Me.lblInfo.TabIndex = 46
+        '
         'frmAvisoAnfuegen
         '
         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(727, 961)
+        Me.Controls.Add(Me.lblInfo)
         Me.Controls.Add(Me.CheckBox3)
         Me.Controls.Add(Me.CheckBox2)
         Me.Controls.Add(Me.usrcntrVermerke)
@@ -561,4 +574,5 @@ Partial Class frmAvisoAnfuegen
     Friend WithEvents usrcntrVermerke As AVISO.rCntrlVermerke
     Friend WithEvents CheckBox2 As Windows.Forms.CheckBox
     Friend WithEvents CheckBox3 As Windows.Forms.CheckBox
+    Friend WithEvents lblInfo As Windows.Forms.Label
 End Class

VERAGAddIn/frmAvisoAnfügen.vb

@@ -82,6 +82,7 @@ Public Class frmAvisoAnfuegen
     End Sub
     Sub initSrch()
         Try
+            lblInfo.Text = ""
             UseWaitCursor = True
 
             With dgvAviso
@@ -115,6 +116,8 @@ Public Class frmAvisoAnfuegen
                 .Columns("Grenze").Width = 40
                 .Columns("Datum").Width = 80
 
+                If .RowCount = 0 Then lblInfo.Text = "keine Sendungen gefunden!"
+
                 If .Rows.Count = 1 Then
                     .Rows(0).Selected = True
                     txtBezeichnung.Focus()