SearchRepairs (collection)

Creato il: 14.11.2022
Restituisce una collection di oggetti Repair filtrata in base ai parametri di ricerca

Sintassi
Set Riparazioni = Rdy.SearchRepairs ( )

Tipo dati restituito
Collection di oggetti Repair

Esempio di esportazione dei dettagli di una serie di riparazioni su un file TSV delimitato da tabulazioni

Option Explicit
 
Dim DataInizio
Dim DataFine
Dim Riparazioni
Dim Rip
Dim elenco
 
elenco="" 
DataInizio  = "01/01/2019"
DataFine  = "31/01/2019"
Set Riparazioni = Rdy.SearchRepairs("",Rdy.toDate(DataInizio), Rdy.toDate(DataFine))
For Each Rip In Riparazioni
   elenco=elenco & Rip.id ' ID
   elenco=elenco & vbTab
   elenco=elenco & Rip.CustomField(10) ' Numero e serie
   elenco=elenco & vbTab
   elenco=elenco & replace(Rip.CustomField(30),vbCrLf," ")  ' Stato
   elenco=elenco & vbTab
   elenco=elenco & replace(Rip.CustomField(50),vbCrLf," ") ' Articolo : descrizione
   elenco=elenco & vbTab
   elenco=elenco & replace(Rip.CustomField(210),vbCrLf," ") ' Cliente/Intestatario - Ragione sociale
   elenco=elenco & vbTab
   elenco=elenco & replace(Rip.CustomField(260),vbCrLf," ") ' Difetto dichiarato dal cliente (tabella)	Testo
   elenco=elenco & vbTab
   elenco=elenco & replace(Rip.CustomField(280),vbCrlf," ") ' Note presa in carico
   elenco=elenco & vbCrLf
Next
Set Riparazioni = Nothing
 
Rdy.SaveStringToFile "C:\esportazioni\riparazioni.csv",elenco

Login