FlowFact - Entwicklungstools

zurück

Function - AKT_GetParentAKTDsn
Übergeordnete Aktivität im Vorgangsbaum

Diese Funktion gibt den Inhalt von 'AKT_DSN' zurück. Das Feld AKT_DSN ist eine Verknüpfung zu der übergeordneten Aktivität (Vorgang). Dadurch ist der Aufbau eines Vorgangsbaumes möglich.
  Function AKT_GetParentAKTDsn(ByVal strAktDsn As String) As String  
 


strAktDsn: Datensatznummer der untergeordneten Aktivität
Rückgabewert: Datensatznummer (DSN) der übergeordneten Aktivität oder 'LEER'


Public Function AKT_GetParentAKTDsn(ByVal strAktDsn As String) As String
    Dim rs As ADODB.Recordset
    Dim strSQL As String

    '** INNER JOIN liefert nur gültige DSN's zurück
    strSQL = "SELECT AKT.AKT_DSN FROM AKT " & _
             "INNER JOIN AKT as AKT1 ON AKT.AKT_DSN = AKT1.DSN " & _
             "WHERE AKT.DSN=" & m_oUtil.SqlUid(strAktDsn)
    Set rs = m_oBase.FF_GetRecordset(strSQL)

    If rs.EOF Then
        AKT_GetParentAKTDsn = ""
    Else
        AKT_GetParentAKTDsn = m_oUtil.k(rs("AKT_DSN").value)
    End If
    Set rs = Nothing
End Function