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