edv/VERAGAddin
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

MDM UST, MSE-API, API-Einstellungen

Browse Source
This commit is contained in:
d.breimaier
2024-08-20 09:27:28 +02:00
parent 7624bdb1f9
commit 795aa72ac6
3 changed files with 21 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
VERAGAddIn/VERAGAddIn.vbproj
View File

@@ -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>

20
VERAGAddIn/frmAvisoAnfügen.Designer.vb generated
View File

@@ -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

3
VERAGAddIn/frmAvisoAnfügen.vb
View File

@@ -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()