Pendenzen auslesen und dem Truedbgrid übergeben. Ist im Feld Termin der Wert "01.01.1900" wird dieser durch NULL ersetzt

[Visual Basic]
Public Function Get_Pendenzen( _ 
   ByRef c1data As C1TrueDBGrid, _ 
   ByVal Vertragselementnr As Integer _ 
) As Object

Parameter

c1data

TruedbGrid

Vertragselementnr

Vertragselement, für welches die Dokumente ausgelesen werden

Quellcode

[Visual Basic]
        Public Function Get_Pendenzen(ByRef c1data As C1TrueDBGrid, ByVal Vertragselementnr As Integer) 
            Me.Get_Vertragselement(Vertragselementnr) 
            Pendenzen = New TKB.VV.Sysadmin.DomainTable("Pendenz", Me.iVertragselementnr.ToString, Globals.clsmitarbeiter.iMitarbeiternr.Value) 
            Dim i As Integer = 0 
            For i = 0 To Pendenzen.Tabledata.Tables(0).Rows.Count - 1 
                If Pendenzen.Tabledata.Tables(0).Rows(i).Item("Termin") = "01.01.1900" Then 
                    Pendenzen.Tabledata.Tables(0).Rows(i).Item("Termin") = System.DBNull.Value 
                End If 
            Next 
            c1data.DataSource = Pendenzen.Tabledata 
            c1data.DataMember = Pendenzen.Tabledata.Tables(0).TableName 
        End Function

Forderungen

Plattformen: Windows 98, Windows 2000 SP4, Windows Millennium Edition, Windows Server 2003, Windows XP Media Center Edition, Windows XP Professional x64 Edition, Windows XP SP2, Windows XP Starter Edition

Siehe auch

clsVertragselement