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

addin bugfix

Browse Source
This commit is contained in:
d.breimaier
2026-02-19 14:44:27 +01:00
parent 9f490ee188
commit bde9f336ba
1 changed files with 12 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
VERAGAddIn/frmAvisoFormularAnfügen.vb
View File

@@ -172,6 +172,8 @@ Public Class frmAvisoFormularAnfuegen
If UsrCntlVertraege1.dgvVertraegeNew.SelectedRows.Count < 1 Then
MsgBox("Bitte einen Vertrag markieren")
DialogResult = DialogResult.None
Exit Sub
End If
UsrCntlVertraege1.dgvVertraegeNew.GetOrder()
@@ -179,13 +181,18 @@ Public Class frmAvisoFormularAnfuegen
UsrCntlVertraege1.dgvVertraegeNew.SetOrder()
Case "btnGestellungsgarantien"
If UsrCntlGestellungsgarantien1.dgvGestGarantieNew.SelectedRows.Count < 1 Then
MsgBox("Bitte eine Gestellung markieren")
DialogResult = DialogResult.None
Exit Sub
End If
UsrCntlGestellungsgarantien1.dgvGestGarantieNew.GetOrder()
UsrCntlGestellungsgarantien1.initDGVGestGarantie(KdNr)
UsrCntlGestellungsgarantien1.dgvGestGarantieNew.SetOrder()
If UsrCntlGestellungsgarantien1.dgvGestGarantieNew.SelectedRows.Count < 1 Then
MsgBox("Bitte eine Gestellung markieren")
End If
End Select
@@ -307,12 +314,12 @@ Public Class frmAvisoFormularAnfuegen
For Each row As DataGridViewRow In UsrCntlGestellungsgarantien1.dgvGestGarantieNew.SelectedRows
If row.Cells("kv_datenarchivId").Value Is DBNull.Value Or row.Cells("kv_datenarchivId").Value Is Nothing Then
If row.Cells("gg_datenarchivId").Value Is DBNull.Value Or row.Cells("gg_datenarchivId").Value Is Nothing Then
setAvisoIdForGestellungen()
Else
Dim response = MsgBox("Die markierte Gestellungsgarantie besitzt bereit einen Anhang!" & vbCrLf & "Soll der Anhang ersetzt werden?", vbYesNoCancel)
If response = vbYes Then
setAvisoIdForVertrage()
setAvisoIdForGestellungen()
enableOverwritting = True
ElseIf response = vbCancel Then
DialogResult = DialogResult.None