Totale fatturato mese corrente

Creato il: 04.05.2021
Questo script calcola il totale del fatturato del mese corrente (vengono considerate le fatture accompagnatore e le fatture differite con causale VENDITA):

Option Explicit
 
Dim Documento
Dim DataInizioMese
Dim Anno
Dim Mese
Dim TotaleFatturato
 
Anno = year(Now())
Mese = month(now())
DataInizioMese= DateSerial(anno,mese,1)
TotaleFatturato = 0
 
For Each Documento In Anag.Docs(DataInizioMese,Now())
 ' Considera solo fatture accompagnatorie (2) e fatture differite (8)
  If (Documento.DocType=2)Or(Documento.DocType=8) Then
 
   ' Considera solo documenti con causale 'VENDITA'
   If Trim(Ucase(Documento.DocCause.Name))="VENDITA" Then
 
     ' Somma l'importo totale del documento (IVA compresa)
     TotaleFatturato = TotaleFatturato + Documento.TotalAmount
 
   End If
 End If
Next
 
' Visualizza il risultato
Response.Write(Rdy.FormatCurrency(TotaleFatturato))

Login