From 795aa72ac63a5121ff81c8f507705effb8fcdad7 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Tue, 20 Aug 2024 09:27:28 +0200 Subject: [PATCH] MDM UST, MSE-API, API-Einstellungen --- VERAGAddIn/VERAGAddIn.vbproj | 2 +- VERAGAddIn/frmAvisoAnfügen.Designer.vb | 20 +++++++++++++++++--- VERAGAddIn/frmAvisoAnfügen.vb | 3 +++ 3 files changed, 21 insertions(+), 4 deletions(-) diff --git a/VERAGAddIn/VERAGAddIn.vbproj b/VERAGAddIn/VERAGAddIn.vbproj index aa925d5..4c1cbe5 100644 --- a/VERAGAddIn/VERAGAddIn.vbproj +++ b/VERAGAddIn/VERAGAddIn.vbproj @@ -36,7 +36,7 @@ \\ftps.verag.ag\g\ftp\programme\VERAGAddin\ http://ftps.verag.ag/VERAGAddin/ de - 1.0.1.127 + 1.0.1.128 true true 0 diff --git a/VERAGAddIn/frmAvisoAnfügen.Designer.vb b/VERAGAddIn/frmAvisoAnfügen.Designer.vb index 214fa43..78b8a7c 100644 --- a/VERAGAddIn/frmAvisoAnfügen.Designer.vb +++ b/VERAGAddIn/frmAvisoAnfügen.Designer.vb @@ -22,6 +22,7 @@ Partial Class frmAvisoAnfuegen '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(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 diff --git a/VERAGAddIn/frmAvisoAnfügen.vb b/VERAGAddIn/frmAvisoAnfügen.vb index 04b7f91..7177e08 100644 --- a/VERAGAddIn/frmAvisoAnfügen.vb +++ b/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()