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

ustva_antrag, Kundenbatt Umsatzbericht, etc.

Browse Source
This commit is contained in:
d.breimaier
2025-04-08 17:29:27 +02:00
parent 669cbcade6
commit 35c6c6ccea
7 changed files with 819 additions and 622 deletions
Download Patch File Download Diff File Expand all files Collapse all files

61
SDL/kunden/frmKundenblatt.vb
View File

@@ -2010,6 +2010,7 @@ Public Class frmKundenblatt
Private Sub cboFirmaFMZOLL_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboFirmaFMZOLL.SelectedIndexChanged
If loaded Then
initDGVOffenePosten()
initDGVUmsatz()
End If
End Sub
@@ -2018,6 +2019,66 @@ Public Class frmKundenblatt
f.ShowDialog()
End Sub
Sub initDGVUmsatz()
With dgvUmsaetze
If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FirmenDatenAnzeige Is Nothing Then Exit Sub
If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FirmenDatenAnzeige = "" Then Exit Sub
Dim where = ""
If cboFirmaFMZOLL._value <> "" Then
where = " AND Firma_ID=" & cboFirmaFMZOLL._value
Else
where = If(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FirmenDatenAnzeige.contains("A"), "", " AND Firma_ID IN(" & VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FirmenDatenAnzeige & ")")
End If
.DataSource = SQL.loadDgvBySql("SELECT [KundenNr],[Jahr],[steuerpflichtig],[steuerfrei],[Nettoumsatz],[MwSt],[Bruttoumsatz],[Währung],[Rechnungen],[Gutschriften],[Datum],[Nummer]" &
" FROM [tblKundenumsatz] " &
" WHERE [KundenNr]='" & kdNr & "' " & where & " ORDER BY Jahr DESC", "FMZOLL")
If .DataSource Is Nothing Then Exit Sub
If .Columns.Count = 0 Then Exit Sub
.Columns(0).Visible = False
.Columns(11).Visible = False
.Columns(1).Width = 45
.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
.Columns(2).Width = 75
.Columns(2).DefaultCellStyle.Format = "N2"
.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
.Columns(3).Width = 75
.Columns(3).DefaultCellStyle.Format = "N2"
.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
.Columns(4).Width = 75
.Columns(4).DefaultCellStyle.Format = "N2"
.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
.Columns(5).Width = 55
.Columns(5).DefaultCellStyle.Format = "N2"
.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
.Columns(6).Width = 75
.Columns(6).DefaultCellStyle.Format = "N2"
.Columns(6).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
.Columns(7).Width = 60
.Columns(7).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
.Columns(8).Width = 55
.Columns(8).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
.Columns(8).HeaderText = "Rechng."
.Columns(9).Width = 53
.Columns(9).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
.Columns(9).HeaderText = "Gutschr."
.Columns(10).MinimumWidth = 65
.Columns(10).AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
.Columns(10).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
If .RowCount > 0 Then
' txtUmsatzJahr.Text = String.Format("{0:n}", .Rows(0).Cells("Nettoumsatz").Value)
'txtUmsatzJahr.Text = String.Format("{0:n}", .Rows(0).Cells("Nettoumsatz").Value)
If IsNumeric(.Rows(0).Cells("Nettoumsatz").Value) Then
txtUmsatzJahr.Text = CDbl(.Rows(0).Cells("Nettoumsatz").Value).ToString("C")
End If
Label29.Text = "Umsatz " & .Rows(0).Cells("Jahr").Value & ":"
Else
txtUmsatzJahr.Text = ""
End If
End With
End Sub
End Class