'----------------------------------------------------------------------------------------------------------------'
' cosmolink Scriptdatei
' Funktion:	Gibt die Dauer der heutigen Benutzeraktivitäten in Minuten an.
' Script:	Sum_Activity_Duration_Of_Current_User.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, sCurrentUser, aErrorText
Dim iResult, sSQL

Set oProject = cRM.CurrentProject

sCurrentUser = oProject.CurrentUser

sSQL = "Declare @Summe nvarchar(500) " & _
    "SELECT @Summe = SUM(ISNULL(Activities.Duration,0)) " & _ 
    "FROM Activities " & _ 
    "WHERE Activities.Responsible = '" & replace(sCurrentUser, "'", "''") & "' " & _ 
    "AND CONVERT( date,Activities.DateTime) = CONVERT( date, GETDATE()) " & _ 
    "Raiserror (@Summe,16,1)"

iResult = SQLShell.ExecuteCommandRaw(sSQL)

If iResult = -1 AND SQLShell.LastError.ErrorText <> "" Then
    aErrorText = Split(SQLShell.LastError.ErrorText, " ")
    cRM.DialogMessageBox "Sie haben heute " & aErrorText(1) & " Minuten an Aktivitäten gearbeitet.", "Aktivitätenbearbeitungsdauer", vbInformation
    Beenden()
End If

Beenden()
'----------------------------------------------------------------------------------------------------------------'
'Funktionen
'----------------------------------------------------------------------------------------------------------------'
'----------------------------------------------------------------------------------------------------------------'
Sub Beenden()
'----------------------------------------------------------------------------------------------------------------'
    Erase aErrorText
    Set oProject	= Nothing
    WScript.Quit
End Sub