Applikationen aktualisieren
[Visual Basic]
Private Sub Refresh_Applikationen()
[Visual Basic] Private Sub Refresh_Applikationen()
Me.Vertragselement = New TKB.VV.Vertrag.clsVertragselement
Me.C1Applikationen.Enabled = False
Me.Vertragselement.Get_Applikationen(Me.C1Applikationen, Me.C1Vertragselemente.Columns("Vertragselementnr").Value)
Me.SpaltenTitel.Spaltentitel_aktualisieren_Optionaler_Aktiv_Filer(Me.C1Applikationen, "Vertragselementapplikation", Me.Vertragselement.VertragselementApplikationen.Tabledata.Tables(0), Me.Profil.sV_Aktiv_Vertragselemente.Value)
sec.Set_Form_Security(Me)
Me.C1Applikationen.Enabled = True
Me.Vertragselement.dispose()
End Sub
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