'----------------------------------------------------------------------------------------------------------------'
' cosmolink Scriptdatei
' Funktion:	Gibt die Dauer der heutigen Benutzeraktivitäten in Minuten an.
' Script:	Sum_Activity_Duration_Of_Current_UserV2.vbs
' Ansicht:	-
' Produkt:	cRM Version
' Autor:	Sebastian Blum

' cosmolink macht keine Angaben zu einer bestimmten Eignung der Information in diesem Script
' Irrtümer und Fehler bleiben ausdrücklich vorbehalten und die Angaben erfolgen ohne Gewähr.
' Die Angaben stellen nur Einzelfallszenarien dar und enthalten keine Garantie der Beschaffenheit
' der Produkte.

' Copyright (c) by cosmolink Consulting GmbH & Co. KG. Alle Rechte vorbehalten.
'----------------------------------------------------------------------------------------------------------------'
Option Explicit

'----------------------------------------------------------------------------------------------------------------'
' Begin Versionierung
'----------------------------------------------------------------------------------------------------------------'
Dim sSkriptVersion
sSkriptVersion = "001"
'----------------------------------------------------------------------------------------------------------------'
' What's new
'----------------------------------------------------------------------------------------------------------------'
' Version 001 (sb) 10.10.2022: Initial Release
'----------------------------------------------------------------------------------------------------------------'

Dim oProject, oViewConfigs, oViewConfig, oRecordSet, oRecord, sCurrentUser, iDauer, iSumme

Set oProject = cRM.CurrentProject
Set oViewConfigs = oProject.ViewConfigs
Set oViewConfig = oViewConfigs.ItemByName("Aktivitäten")

If oViewconfig is Nothing Then
    cRM.DialogMessageBox "Der Vorgang wird beendet." & vbCrLf & "Beim Zugriff auf die Viewconfig ist ein unerwartetes Verhalten aufgetreten.", "Unerwartetes Verhalten festgestellt", vbExclamation
    Beenden()
End If
sCurrentUser = OProject.CurrentUser

Set oRecordSet = oViewconfig.CreateRecordset("SetFilterDirectSQL: " & _ 
    "SELECT Activities.ID " & _ 
    "FROM Activities WHERE Activities.Responsible = '" & Replace(sCurrentUser,"'", "''") & "' " & _ 
    "AND CONVERT( date,Activities.DateTime) = CONVERT( date, GETDATE())")

If oRecordSet is Nothing Then
    cRM.DialogMessageBox "Der Vorgang wird beendet." & vbCrLf & "Beim Zugriff auf das RecordSet ist ein unerwartetes Verhalten aufgetreten.", "Unerwartetes Verhalten festgestellt", vbExclamation
    Beenden()
End If

If not ORecordset.Movefirst Then
    cRm.DialogMessageBox "Sie hatten heute keine Aktivitäten!", "Keine neue Aktivitäten",vbInformation
    Beenden()
End If

Set oRecord = oRecordSet.CurrentRecord

If oRecord is Nothing Then
    cRM.DialogMessageBox "Der Vorgang wird beendet." & vbCrLf & "Es konnte nicht auf den aktuellen Datensatz zugegriffen werden.", "Datensatz notwendig", vbExclamation
    Beenden()
End If

Dim sDauer
'----------------------------------------------------------------------------------------------------------------'
Do
    sDauer = oRecord.GetContentsbyName("Duration")
    If sDauer = "" Then
        iDauer = 0
    Else
        iDauer = CINT(sDauer)  
    End If

    iSumme = iSumme + iDauer
Loop While ORecordset.Movenext

cRM.DialogMessageBox "Sie haben " & iSumme & " min an Aktivitäten heute gearbeitet.","Dauer",vbInformation 
Beenden()
'----------------------------------------------------------------------------------------------------------------'
'----------------------------------------------------------------------------------------------------------------'
Sub Beenden()
'----------------------------------------------------------------------------------------------------------------'
    Set oRecord		    = Nothing
    Set oRecordSet	    = Nothing
    Set oViewconfig		= Nothing
    Set oViewconfigs	= Nothing
    Set oProject	    = Nothing
    WScript.Quit
End Sub