88 lines
2.8 KiB
VB.net
88 lines
2.8 KiB
VB.net
|
|
Public Class usrcntlFiskaluebersicht
|
|
|
|
Dim FUNC As New cProgramFunctions
|
|
Public kdNr As Integer = -1
|
|
Dim SQL As New SQL
|
|
Public KD_ERW As VERAG_PROG_ALLGEMEIN.cKundenErweitert
|
|
Public Event FiskalChanged()
|
|
Dim fk As VERAG_PROG_ALLGEMEIN.cFiskalkunden
|
|
|
|
Sub initDGVFiskaluebersicht()
|
|
dgvFiskaluebersicht.Columns.Clear()
|
|
|
|
With dgvFiskaluebersicht
|
|
.DataSource = SQL.loadDgvBySql("SELECT FK_Datum as Datum FROM tblFiskalkunden WHERE FK_Kdnr='" & kdNr & "' ORDER BY FK_Datum ", "FMZOLL")
|
|
.Columns("FK_Datum").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
|
|
.Columns("FK_Datum").HeaderText = "Datum"
|
|
End With
|
|
|
|
End Sub
|
|
|
|
Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
|
|
|
|
Dim input = InputBox("Bitte geben Sie das Datum der neuen Fiskal-Übersicht ein:", "Fiskal-Übersicht anlegen")
|
|
If input <> "" Then
|
|
Dim hint As String
|
|
If checkDateIsValid(input, hint) Then
|
|
fk = New VERAG_PROG_ALLGEMEIN.cFiskalkunden()
|
|
fk.FK_Datum = input
|
|
fk.FK_Kdnr = kdNr
|
|
fk.SAVE()
|
|
initDGVFiskaluebersicht()
|
|
Else
|
|
MsgBox(hint)
|
|
End If
|
|
|
|
Else
|
|
MsgBox("Kein Datum angegeben!")
|
|
End If
|
|
|
|
|
|
End Sub
|
|
|
|
Private Function checkDateIsValid(ByRef checkDate As Date, ByVal hint As String) As Boolean
|
|
|
|
If Not IsDate(checkDate) Then
|
|
hint = checkDate & " ist kein Datumswert"
|
|
Return False
|
|
End If
|
|
|
|
If dgvFiskaluebersicht.Rows.Count = 0 Then Return True
|
|
|
|
|
|
For Each row As DataGridViewRow In dgvFiskaluebersicht.Rows
|
|
If Not IsDBNull(row.Cells("FK_Datum").Value) Then
|
|
If row.Cells("FK_Datum").Value.ToLower = Name.ToLower Then
|
|
hint = "Es existiert bereits ein Eintrag mit " & checkDate
|
|
Return False
|
|
End If
|
|
End If
|
|
|
|
Next
|
|
|
|
Return True
|
|
|
|
End Function
|
|
|
|
|
|
Private Sub cbxBonitaet_CheckedChanged(sender As Object, e As EventArgs) Handles cbxBonitaet.CheckedChanged
|
|
|
|
End Sub
|
|
|
|
Private Sub btnPDFReport_Click(sender As Object, e As EventArgs) Handles btnPDFReport.Click
|
|
|
|
End Sub
|
|
|
|
Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles btnOK.Click
|
|
If vbYes = MsgBox("Möchten Sie den Fiskalakt vom " & dgvFiskaluebersicht.SelectedRows(0).Cells("FK_Datum").Value & " abschließen?" & vbNewLine & "Er kann anschließend nicht mehr verändert werden", vbYesNo) Then
|
|
fk.FK_locked = True
|
|
fk.SAVE()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click
|
|
fk.SAVE()
|
|
End Sub
|
|
End Class
|