Documenti collegati alle riparazioni

Creato il: 10.11.2022
Visualizzazione data della DDT piu' recente collegata alla riparazione

Option Explicit
 
Dim DataMassima
Dim RigaDoc
Dim DataDoc
DataMassima=Empty
 
For Each RigaDoc In Repair.SearchDocRows()
   If RigaDoc.Doc.DocType=1 Then ' Considera solo DDT
       DataDoc = RigaDoc.Doc.DocDate
       If DataMassima = Empty Then
           DataMassima = DataDoc
       ElseIf DataMassima<DataDoc Then
           DataMassima = DataDoc
       End If
   End If
Next
 
Response.Write(DataMassima)


Visualizzazione data della prima DDT collegata alla riparazione

Option Explicit
 
Dim DataMinima
Dim RigaDoc
Dim DataDoc
DataMinima=Empty
 
For Each RigaDoc In Repair.SearchDocRows()
   If RigaDoc.Doc.DocType=1 Then ' Considera solo DDT
       DataDoc = RigaDoc.Doc.DocDate
       If DataMinima = Empty Then
           DataMinima = DataDoc
       ElseIf DataMinima>DataDoc Then
           DataMinima = DataDoc
       End If
   End If
Next
 
Response.Write(DataMinima)


Visualizzazione riferimento della DDT piu' recente collegata alla riparazione

Option Explicit
 
Dim RigaDoc
Dim UltimaDDT
Set UltimaDDT=Nothing
 
For Each RigaDoc In Repair.SearchDocRows()
   If RigaDoc.Doc.DocType=1 Then ' Considera solo DDT
       If UltimaDDT Is Nothing Then
           Set UltimaDDT = RigaDoc.Doc
       ElseIf UltimaDDT.DocDate<RigaDoc.Doc.DocDate Then
           Set UltimaDDT = RigaDoc.Doc
       End If
   End If
Next
If Not(UltimaDDT Is Nothing) Then
   Response.Write("N." & UltimaDDT.CustomField(10) & " del " & UltimaDDT.DocDate)
End If

Login