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

Bugfix

Browse Source
This commit is contained in:
d.breimaier
2023-04-18 16:13:33 +02:00
parent 4aa4d3e72d
commit 1464f51e92
2 changed files with 8 additions and 9 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.99</ApplicationVersion>
<ApplicationVersion>1.0.1.100</ApplicationVersion>
<AutoIncrementApplicationRevision>true</AutoIncrementApplicationRevision>
<UpdateEnabled>true</UpdateEnabled>
<UpdateInterval>0</UpdateInterval>

15
VERAGAddIn/frmAvisoFormularAnfügen.vb
View File

@@ -160,6 +160,11 @@ Public Class frmAvisoFormularAnfuegen
Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles btnOK.Click
If Not checkMandatoryFields() Then
DialogResult = DialogResult.None
Exit Sub
End If
If avisoIdSet And Not button.Name = "btnVollmachten" Then
DialogResult = DialogResult.OK
Exit Sub
@@ -205,12 +210,6 @@ Public Class frmAvisoFormularAnfuegen
End If
If Not checkMandatoryFields() Then
DialogResult = DialogResult.None
Exit Sub
End If
Select Case button.Name
Case "btnVollmachten"
@@ -229,7 +228,7 @@ Public Class frmAvisoFormularAnfuegen
ElseIf UsrCntlVertraege1.dgvVertraege.SelectedRows.Count = 1 Then
For Each row As DataGridViewRow In UsrCntlVertraege1.dgvVertraege.SelectedRows
If row.Cells("kv_datenarchivId").Value IsNot DBNull.Value Then
If row.Cells("kv_datenarchivId").Value Is DBNull.Value Or row.Cells("kv_datenarchivId").Value Is Nothing Then
setAvisoIdForVertrage()
Else
Dim response = MsgBox("Der markierte Vertrag besitzt bereit einen Anhang!" & vbCrLf & "Soll der Anhang ersetzt werden?", vbYesNoCancel)
@@ -266,7 +265,7 @@ Public Class frmAvisoFormularAnfuegen
For Each row As DataGridViewRow In UsrCntlGestellungsgarantien1.dgvGestGarantie.SelectedRows
If row.Cells("gg_datenarchivId").Value IsNot DBNull.Value Then
If row.Cells("kv_datenarchivId").Value Is DBNull.Value Or row.Cells("kv_datenarchivId").Value Is Nothing Then
setAvisoIdForGestellungen()
Else
Dim response = MsgBox("Die markierte Gestellungsgarantie besitzt bereit einen Anhang!" & vbCrLf & "Soll der Anhang ersetzt werden?", vbYesNoCancel)