/
Užívateľská funkcia - Príklad

Užívateľská funkcia - Príklad

ArchView - Užívateľské funkcie - Príklad

V definícii pohľadu v stĺpci Užívateľská funkcia je Nasob;2
Funkcia prenásobí pred zobrazením hodnoty parametrom (dvojkou).

Private Function Nasob(ArcBId As Long, Id As Long,NumItems As Long, UserParams As Variant) As Variant
Dim D2ObjData As VBApi_TUniVal
Dim ret As Long
Dim value As Variant
' Inicializacia
If Id = -1 And NumItems = -1 Then
On Error GoTo InvalidParams
value = UserParams(1) * 2 ' otestujem ci je parameter cislo
On Error GoTo 0
Nasob = RetOk
Exit Function
End If
If Id = NoDataTime Then
Nasob = "Nemám dáta"
Exit Function
End If
If Id = NoDataValid Then
Nasob = "Neplatné dáta"
Exit Function
End If
ret = GetActualD2DataObj(Id, D2ObjData) ' poziadam o aktualne data
If ret = RetOk Then
On Error GoTo InvalidEnum
value = D2GetSpecificProperty(D2ObjData, D2ValueValue) ' ziskam hodnotu
Nasob = value * UserParams(1) ' vynasobim 2
On Error GoTo 0
Else
Nasob = "Nemám dáta"
End If
Exit Function
InvalidEnum:
Nasob = "Nepodaril sa výpočet"
Exit Function
InvalidParams:
Nasob = "Pozadujem parameter cislo"
Exit Function
End Function

Súvisiace stránky:

ArchView - vytvorenie zošita