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

Meldung, wenn Datensatz bereits einen Anhang besitzt

Browse Source
This commit is contained in:
d.breimaier
2023-04-12 17:30:07 +02:00
parent baa0bedea6
commit c9d0ff470d
1 changed files with 9 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
VERAGAddIn/frmAvisoFormularAnfügen.vb
View File

@@ -206,7 +206,12 @@ Public Class frmAvisoFormularAnfuegen
For Each row As DataGridViewRow In UsrCntlVertraege1.dgvVertraege.SelectedRows 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 IsNot DBNull.Value Then
setAvisoIdForVertrage() setAvisoIdForVertrage()
Else
If vbYes = MsgBox("Der markierte Vertrag besitzt bereit einen Anhang!" & vbCrLf & "Soll der Anhang ersetzt werden?", vbYesNoCancel) Then
setAvisoIdForVertrage()
End If
End If End If
Next Next
Me.DialogResult = DialogResult.OK Me.DialogResult = DialogResult.OK
Close() Close()
@@ -232,6 +237,10 @@ Public Class frmAvisoFormularAnfuegen
If row.Cells("gg_datenarchivId").Value Is DBNull.Value Then If row.Cells("gg_datenarchivId").Value Is DBNull.Value Then
'Or CInt(row.Cells("gg_datenarchivId").Value) < 0 'Or CInt(row.Cells("gg_datenarchivId").Value) < 0
setAvisoIdForGestellungen() setAvisoIdForGestellungen()
Else
If vbYes = MsgBox("Die markierte Gestellungsgarantie besitzt bereit einen Anhang!" & vbCrLf & "Soll der Anhang ersetzt werden?", vbYesNoCancel) Then
setAvisoIdForVertrage()
End If
End If End If
Next Next