Function | Det_SetValueWithEMSK(ByVal strTable As String, ByVal strTableDsn As String, ByVal strFldArtDsn As String, strValue As String, Optional ByVal strEmskDsn As String = "", Optional ByVal strLinkDsn As String = STRNOTHING) As Boolean |
---|---|
strTable: Tabellenname der Haupttabelle strTableDsn: Datensatznummer der Haupttabelle z.B. AD, Obj ... strFldArtDsn: Die Datensatznummer (DSN) der FeldArt strValue: Der Detailwert OPTIONAL strEmskDsn: Eingabemaske für Berechtigung (siehe EMSK_GetDefaultACL) OPTIONAL strLinkDsn: Datensatznummer (DSN) z.B. einer verküpften Adresse (nur zulässig, wenn Feldart vom Typ Adresse od. Projekt) Rückgabewert: = True, wenn der Detailwert gesetzt werden konnte; sonst = False Public Function Det_SetValueWithEMSK(ByVal strTable As String, ByVal strTableDsn As String, ByVal strFldArtDsn As String, strValue As String, Optional ByVal strEmskDsn As String = "", Optional ByVal strLinkDsn As String = STRNOTHING) As Boolean Dim strAcl As String If strEmskDsn <> "" Then strAcl = m_oApplication.EMSK_GetDefaultACL(strEmskDsn, strFldArtDsn) Else strAcl = STRNOTHING End If Det_SetValueWithEMSK = Det_SetValue(strTable, strTableDsn, strFldArtDsn, strValue, strAcl, strLinkDsn) End Function |