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

V

Browse Source
This commit is contained in:
Andreas Luxbauer
2024-06-07 14:28:44 +02:00
parent b8dfcbee4c
commit 929f991191
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
VERAGAddIn/frmAvisoAnfügen.vb
View File

@@ -262,11 +262,11 @@ Public Class frmAvisoAnfuegen
End Sub End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles btnVermerke.Click Private Sub Button2_Click(sender As Object, e As EventArgs) Handles btnVermerke.Click
If Me.AvisoId >= 0 Then If dgvAnhaenge.SelectedRows.Count > 0 Then
If Me.SendungsId >= 0 Then If Me.SendungsId >= 0 Then
Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm() Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm()
Dim sv As New AVISO.frmAddSendungsvermerkShort(AvisoId, Me.SendungsId) ', dgvSendungen.SelectedRows(0).Cells("tblSnd_SendungID").Value) Dim sv As New AVISO.frmAddSendungsvermerkShort(dgvSendungen.SelectedRows(0).Cells("tblSnd_AvisoID").Value, Me.SendungsId) ', dgvSendungen.SelectedRows(0).Cells("tblSnd_SendungID").Value)
sv.Location = Me.PointToClient(Cursor.Position) sv.Location = Me.PointToClient(Cursor.Position)
sv.ShowDialog(frmGrayOut) sv.ShowDialog(frmGrayOut)
frmGrayOut.Close() frmGrayOut.Close()