shu/DPM2016
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

20180920

Browse Source
This commit is contained in:
Stefan Hutter
2018-09-20 21:50:15 +02:00
parent a98929c82a
commit b593e1f082
161 changed files with 2183 additions and 330736 deletions
Download Patch File Download Diff File Expand all files Collapse all files

45
DPM2016/Finanzaen/frmMahnungen.vb
View File

@@ -9,28 +9,36 @@ Public Class Mahnungen
Private Sub Mahnungen_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Refresh_data
End Sub
Sub refresh_data()
Sub refresh_data(Optional type As Integer = 0)
Cursor = Cursors.WaitCursor
Me.C1Mahnungen1.DataSource = Nothing
Me.C1Mahnungen2.DataSource = Nothing
Me.C1Mahnungen3.DataSource = Nothing
Me.C1Mahnungen4.DataSource = Nothing
If type = 0 Or type = 1 Then
Me.C1Mahnungen1.DataSource = Nothing
db1.Get_Tabledata("View_Offene_Mahnungen", " where mahndatum1 IS null and faelligam < '" + Convert_Date(Now) + "'")
Me.C1Mahnungen1.DataSource = db1.dsDaten.Tables(0)
Me.C1Mahnungen1.DataMember = db1.dsDaten.Tables(0).TableName
End If
db1.Get_Tabledata("View_Offene_Mahnungen", " where mahndatum1 IS null and faelligam < '" + Convert_Date(Now) + "'")
Me.C1Mahnungen1.DataSource = db1.dsDaten.Tables(0)
Me.C1Mahnungen1.DataMember = db1.dsDaten.Tables(0).TableName
If type = 0 Or type = 2 Then
Me.C1Mahnungen2.DataSource = Nothing
db2.Get_Tabledata("View_Offene_Mahnungen", " where mahndatum2 IS null and mahnfaelligkeit1 < '" + Convert_Date(Now) + "'")
Me.C1Mahnungen2.DataSource = db2.dsDaten.Tables(0)
Me.C1Mahnungen2.DataMember = db2.dsDaten.Tables(0).TableName
End If
db2.Get_Tabledata("View_Offene_Mahnungen", " where mahndatum2 IS null and mahnfaelligkeit1 < '" + Convert_Date(Now) + "'")
Me.C1Mahnungen2.DataSource = db2.dsDaten.Tables(0)
Me.C1Mahnungen2.DataMember = db2.dsDaten.Tables(0).TableName
If type = 0 Or type = 3 Then
Me.C1Mahnungen3.DataSource = Nothing
db3.Get_Tabledata("View_Offene_Mahnungen", " where mahndatum3 IS null and mahnfaelligkeit2 <'" + Convert_Date(Now) + "'")
Me.C1Mahnungen3.DataSource = db3.dsDaten.Tables(0)
Me.C1Mahnungen3.DataMember = db3.dsDaten.Tables(0).TableName
End If
db3.Get_Tabledata("View_Offene_Mahnungen", " where mahndatum3 IS null and mahnfaelligkeit2 <'" + Convert_Date(Now) + "'")
Me.C1Mahnungen3.DataSource = db3.dsDaten.Tables(0)
Me.C1Mahnungen3.DataMember = db3.dsDaten.Tables(0).TableName
If type = 0 Or type = 4 Then
Me.C1Mahnungen4.DataSource = Nothing
db4.Get_Tabledata("View_Offene_Mahnungen", " where mahndatum3 is not null")
Me.C1Mahnungen4.DataSource = db4.dsDaten.Tables(0)
Me.C1Mahnungen4.DataMember = db4.dsDaten.Tables(0).TableName
db4.Get_Tabledata("View_Offene_Mahnungen", " where mahndatum3 is not null")
Me.C1Mahnungen4.DataSource = db4.dsDaten.Tables(0)
Me.C1Mahnungen4.DataMember = db4.dsDaten.Tables(0).TableName
End If
Cursor = Cursors.Default
End Sub
@@ -74,12 +82,15 @@ Public Class Mahnungen
Case "DruckenToolStripMenuItem"
Dim s As String = Me.C1Mahnungen1.Columns("nrfaktura").Value
Globals.Rg_Funktionen.Mahnung(s, 1, False, False)
refresh_data(1)
Case "DruckenToolStrip2MenuItem"
Dim s As String = Me.C1Mahnungen2.Columns("nrfaktura").Value
Globals.Rg_Funktionen.Mahnung(s, 2, False, False)
refresh_data(2)
Case "DruckenToolStrip3MenuItem"
Dim s As String = Me.C1Mahnungen3.Columns("nrfaktura").Value
Globals.Rg_Funktionen.Mahnung(s, 3, False, False)
refresh_data(3)
End Select
Catch ex As Exception