Totale DDT+Ricevute+Fatt.accomp. anno corrente

E' un totale creato per le statistiche di vendite, ed il totale quindi calcolato sulle sole causali configurate come "vendita"
https://help.readypro.it/it/997/tipi-di-causali-documenti-acquisto-vendita

Se dovete totalizzare genericamente tutti i DDT e' preferibile farlo con uno script
https://help.readypro.it/it/2274/lista-clienti-fornitori

La causale dei miei DDT è VENDITA.
Comunque va bene anche lo script solo che avrei bisogno di capire come faccio a trovare il numero del Documento.DocType= dei documenti di trasporto. Esiste una tabella? C'è un modo di trovarlo?

Ho risolto con questo script, mi calcola la somma dei DDT con causale vendita per l'anno corrente. Mi sembra corretto e funzionante. Vedi qualche difetto nel codice? Non sono molto pratico.


Option Explicit



Dim Documento

Dim Anno

Dim TotaleFatturato



Anno = year(Now())

TotaleFatturato = 0

For Each Documento In Anag.Docs(Anno,Now())

' Considera solo i ddt (1)

If (Documento.DocType=1) 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))


Il filtro per data a dire il vero non mi sembra corretto.
Per un supporto nella personalizzazione degli script devo pero' rimandarti al nostro servizio di teleassistenza

SUPPORTO PER LO SVILUPPO DI SCRIPT E PROCEDURE PERSONALIZZATE
Data l'eterogeneita' e la complessita' delle richieste non abbiamo possibilita' di fornire un supporto gratuito per lo sviluppo di script e procedure personalizzate.
Se si hanno le dovute conoscenze di programmazione esiste una reference, sufficiente per lo sviluppo, a questo indirizzo:
https://www.readypro.it/help/it/1600/ready-pro-scripting-language
All'interno della reference e' presente anche una sezione con numerosi esempi.
In alternativa e' possibile acquistare delle ore di teleassistenza per farsi aiutare, nello sviluppo degli script, da parte di un nostro tecnico

Cosi credo di aver risolto il problema che mi ha segnalato.
Potrebbe farmi sapere se è corretto?
Option Explicit

Dim Documento
Dim DataInizioAnno
Dim Anno
Dim TotaleFatturato

Anno = year(Now())
DataInizioAnno= DateSerial(anno,1,1)
TotaleFatturato = 0

For Each Documento In Anag.Docs(DataInizioAnno,Now())
' Considera solo i ddt (1)
If (Documento.DocType=1) 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))

Se la causale che vi interessa e' solo una, ovvero quella con scritto "VENDITA" a prima vista direi che e' corretto

si si ci interessa solo la causale vendita.
grazie infinite.
lunedi ho comunque un appuntamento di assistenza per altro se rimangono un paio di minuti faccio dare una occhiata.
sempre gentile.
grazie