[Visual Basic] Public Sub New( _
ByVal Applikationskontaktnr As Integer, _
ByVal Vertragspartnernr As Integer, _
ByVal Applikationsnr As Integer, _
Optional ByVal CreateNew As Boolean = False, _
Optional ByVal FormReadOnly As Boolean = False _
)
[Visual Basic] Sub New(ByVal Applikationskontaktnr As Integer, ByVal Vertragspartnernr As Integer, ByVal Applikationsnr As Integer, Optional ByVal CreateNew As Boolean = False, Optional ByVal FormReadOnly As Boolean = False)
InitializeComponent()
Me.FormReadonly = FormReadOnly
If CreateNew = True Then
Me.Applikationskontaktnr = Me.Kontaktperson.Add_New(Applikationsnr)
Me.Neuer_Datensatz = True
Else
Me.Applikationskontaktnr = Applikationskontaktnr
End If
Me.VertragspartnerNr = Vertragspartnernr
Me.Applikationsnr = Applikationsnr
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