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

PrintVM

Browse Source
This commit is contained in:
Andreas Luxbauer
2024-08-29 10:31:13 +02:00
parent e697565d95
commit 4bf3a17661
6 changed files with 105 additions and 71 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
SDL/kunden/usrCntlKundenuebersicht.vb
View File

@@ -1625,10 +1625,11 @@ Public Class usrCntlKundenuebersicht
Dim tmprowindex As Integer = -1
Private Sub DgvDelays_CellMouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles dgvVollmachten.CellMouseDown
Exit Sub
' Exit Sub
Try
If e.Button = Windows.Forms.MouseButtons.Right Then
tmprowindex = e.RowIndex
ContextMenuStrip5.Show(dgvVollmachten, dgvVollmachten.PointToClient(Cursor.Position))
' cntxtVollmachten.Show(dgvVollmachten, dgvVollmachten.PointToClient(Cursor.Position))
End If
Catch ex As Exception
@@ -3199,4 +3200,13 @@ Public Class usrCntlKundenuebersicht
frmBU_Mahnlauf.doZahlungserinnerung(Me.FindForm, "OP", KontoList, cboFirmaFMZOLL._value, "")
End If
End Sub
Private Sub ToolStripMenuItem12_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem12.Click
If tmprowindex >= 0 Then
' MsgBox(dgvVollmachten.Rows(tmprowindex).Cells("kdvm_datenarchivId").Value)
If dgvVollmachten.Rows(tmprowindex).Cells("kdvm_datenarchivId").Value IsNot DBNull.Value AndAlso CInt(dgvVollmachten.Rows(tmprowindex).Cells("kdvm_datenarchivId").Value) > 0 Then
VERAG_PROG_ALLGEMEIN.cFormularManager.PrintViaSpirePDF({VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(dgvVollmachten.Rows(tmprowindex).Cells("kdvm_datenarchivId").Value)})
End If
End If
End Sub
End Class