Formualr mit Vertragselementnr und Anzeigestatus öffnen
[Visual Basic] Public Sub New( _
ByVal Pendenznr As Integer, _
ByVal vertragselementnr As Integer, _
ByVal Anzeige As Boolean, _
Optional ByVal CreateNew As Boolean = False _
)
[Visual Basic] Sub New(ByVal Pendenznr As Integer, ByVal vertragselementnr As Integer, ByVal Anzeige As Boolean, Optional ByVal CreateNew As Boolean = False)
MyBase.New()
InitializeComponent()
If CreateNew Then
Me.Aktuelle_Pendenz = Me.Pendenz.Add_New(vertragselementnr)
Me.Pendenz.Neuer_Datensatz = True
Else
Me.Aktuelle_Pendenz = Pendenznr
End If
Aktuelles_Vertragselement = vertragselementnr
Me.Anzeige = Anzeige
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