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

Fiskaliebersicht, Filter bei USTV-Kunden

Browse Source
This commit is contained in:
d.breimaier
2024-03-13 15:58:50 +01:00
parent 2c368a99a8
commit 6fc97718a2
2 changed files with 22 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
SDL/kunden/usrcntlFiskaluebersicht.vb
View File

@@ -142,7 +142,7 @@ Public Class usrcntlFiskaluebersicht
Sub initDGVUnterlagen()
With dgvUnterlagen
.DataSource = SQL.loadDgvBySql("SELECT [fka_id],[fka_KdNr],[fka_Name],[fka_Datum] , [fka_Art], [fka_docId] FROM [tblFiskalkundenAnhaenge] " &
.DataSource = SQL.loadDgvBySql("SELECT [fka_id],[fka_KdNr],[fka_Name],[fka_Datum] , CASE WHEN [fka_Art] like '%SONSTIGES%' THEN 'SONSTIGES' end as [fka_Art], [fka_docId] FROM [tblFiskalkundenAnhaenge] " &
" WHERE [fka_KdNr]='" & fk.FK_Kdnr & "' AND fka_fkId='" & fk.FK_Id & "' ORDER BY fka_Datum desc ", "AVISO")
.Columns("fka_id").Visible = False
.Columns("fka_KdNr").Visible = False
@@ -1007,6 +1007,10 @@ Public Class usrcntlFiskaluebersicht
If cbxAttachmentArt._value = "" Then Exit Sub
Dim ArtId As String = cbxAttachmentArt._value
If ArtId = "SONSTIGES" Then
ArtId &= "_" & Now.ToString("ddMMyyHmm")
End If
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "FISKALKUNDENANHAENGE", fk.FK_Datum, "", "", ArtId, kdNr)
If DS.uploadDataToDATENSERVERFileDialog(, ".pdf", , "PDF") Then