Visualizzazione dei codici riparazione inserite nel corpo del documento

Creato il: 05.05.2021
Questo script visualizza/stampa una sintesi dei numeri delle riparazioni inserite all'interno di un determinato documento:

Option Explicit
 
Dim ElencoRip
Dim RigaDoc
Dim NumRip
ElencoRip = " "
 
For Each RigaDoc In Doc.DocRows
 NumRip = RigaDoc.CustomField(608)
 NumRip = Replace(NumRip," ","")
 If NumRip<>"" Then
   If Instr(ElencoRip," " & NumRip & " ")<=0 Then
     ElencoRip = ElencoRip & NumRip & " "
   End If
 End If
Next
ElencoRip = Trim(ElencoRip)
ElencoRip = Replace(ElencoRip," ",", ")
 
Response.Write(ElencoRip)

Login