KPI - Esempi di script

Creato il: 09.09.2024
Le funzionalita' descritte in questa pagina fanno riferimento ad una versione minima di Ready Pro v2024.6
In questa sezione riportiamo alcuni esempi di script, per il calcolo di KPI di vario tipo.

Non riportiamo, per sintesi, la parte relativa allo script predefinito ovvero la seguente

Option Explicit
 
Dim KPI_StartDate
Dim KPI_EndDate
Dim KPI_Value
 
KPI_Value = 0
KPI_StartDate = KPIParams.Value("StartDate")
KPI_EndDate = KPIParams.Value("EndDate")
 
' KPI calculation ......

Response.Write(KPI_Value)


ma riportiamo solo la parte di script che consente il calcolo del KPI_value (quindi in pratica gli script di esempio riportati di seguito vanno a sostituire la sola parte dove e' riportato il commento che indica "KPI calcolation", nello script predefinito)
Numero totale documenti di vendita creati

KPI_Value = Rdy.SearchDocs("SELLING", KPI_StartDate, KPI_EndDate).Count
Numero di articoli venduti di una specifica marca

Dim Documenti
Dim Documento
Dim Riga
Dim Categoria
 
 
Set Documenti=Rdy.SearchDocs("SELLING", KPI_StartDate, KPI_EndDate)
For Each Documento In Documenti
    For Each Riga In Documento.DocRows
        If Ucase(Riga.Product.Manufacturer.Name)="NOME DELLA MARCA" Then
            KPI_Value = KPI_Value + Riga.Quantity
        End If
    Next
Next
Numero nuove schede di riparazione create

KPI_Value=Rdy.SearchRepairs("",KPI_StartDate,KPI_EndDate).Count

Login