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

MDM. Zugferd, LeistungenFIBUKonten, USTVA, MSE

Browse Source
This commit is contained in:
d.breimaier
2024-12-20 16:02:58 +01:00
parent 8cc73ab9fc
commit ca55452c6c
13 changed files with 330 additions and 394 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
SDL/buchhaltung/frmLeistundenFIBUKonten.vb
View File

@@ -144,14 +144,14 @@ Public Class frmLeistundenFIBUKonten
If checkIfFirmaIsFilled(False) = False Then Return False
For Each row As DataGridViewRow In dgvSachkonten.Rows
If Not IsDBNull(row.Cells("LeistungsNr").Value) AndAlso Not IsDBNull(row.Cells("Firma_ID").Value) Then
If row.Cells("LeistungsNr").Value = LeistungsNrID AndAlso row.Cells("Firma_ID").Value = cbxFirma._value Then
Return False
End If
End If
'For Each row As DataGridViewRow In dgvSachkonten.Rows
' If Not IsDBNull(row.Cells("LeistungsNr").Value) AndAlso Not IsDBNull(row.Cells("Firma_ID").Value) Then
' If row.Cells("LeistungsNr").Value = LeistungsNrID AndAlso row.Cells("Firma_ID").Value = cbxFirma._value Then
' Return False
' End If
' End If
Next
'Next
Return True
@@ -216,11 +216,11 @@ Public Class frmLeistundenFIBUKonten
End Sub
Private Sub cbxFirma_SelectedValueChanged(sender As Object, e As EventArgs) Handles cbxFirma.SelectedValueChanged
Private Sub cbxFirma_SelectedValueChanged(sender As Object, e As EventArgs) Handles cbxFirma.SelectedValueChanged, cbxLeistungSelected.SelectedValueChanged
Try
dgvSachkonten.GetOrder()
initDGVSachkonten(IIf(cbxFirma._value <> "", cbxFirma._value, -1), txtSuche.Text)
initDGVSachkonten(IIf(cbxFirma._value <> "", cbxFirma._value, -1), txtSuche.Text, IIf(cbxLeistungSelected._value <> "", cbxLeistungSelected._value, 0))
dgvSachkonten.SetOrder()
Catch ex As Exception