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
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)
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