U0
14/09/2009 05:15
Campo libero: 
|
U0
Puoi farlo con uno script come nell'esempio qui sotto:
|
|
U0
14/09/2009 05:45
|
U0
L'export dalla lista documenti lo eseguo dal pulsante ESPORTA, quindi utilizzando il filtro di esportazione dati. Non ho capito dove devo inserire lo script e se devo inserire, solamente, la parte da Te cerchiata? 
|
|
U0
14/09/2009 07:37
Campo libero:
|
U0
Lo script va inserito come un normale campo formula nel tuo filtro di esportazione. Lo script di Glauco pero' serve per esportare il totale imposte. Nella tua richiesta, quando parli di "importi in negativo" di quali importi parlavi esattamente?
|
|
U0
14/09/2009 07:46
|
U0
Tutti e tre gli importi in negativo. Ossia:
1-Imponibile;
2-Imposte;
3-Totale documento.
|
|
U0
14/09/2009 07:52
Campo libero:
|
U0
Allora puoi usare 3 script come quelli indicati da Glauco, ovvero solo il pezzo:
Importo = Rdy.ToDouble(RowItem.CustomField(xxx))
If Ucase(Left(TipoDoc & " ",2))="NC" Then
Rdy.ResponseWrite(Rdy.FormatCurrency(Importo*-1))
Else
Rdy.ResponseWrite(Rdy.FormatCurrency(Importo))
End If
Dove nella prima riga utilizzerai alternativamente:
x il Totale imponibile
Importo = Rdy.ToDouble(RowItem.CustomField(59))
x il Totale imposte
Importo = Rdy.ToDouble(RowItem.CustomField(61))
x il Totale documento
Importo = Rdy.ToDouble(RowItem.CustomField(60))
|
|
U0
14/09/2009 08:31
|
U0
Sei sempre molto chiaro e preciso. Bene.
Adesso ho 5 script da esportare
e su excel mi ritrovo FORMULA come intestazione colonna.
C'è modo d'inserire un titolo su ogni script? 
|
|
U0
14/09/2009 10:21
Campo libero:
|
U0
No, il titolo non e' personalizzabile
|
|
U0
14/09/2009 13:24
|
U0
Ho provato gli script, ma, non mi esporta gli importi in negativo per le note di credito, sia clienti che fornitori.
.
Importo = Rdy.ToDouble(RowItem.CustomField(xxx))
If Ucase(Left(TipoDoc & " ",2))="NC" Then
Rdy.ResponseWrite(Rdy.FormatCurrency(Importo*-1))
Else
Rdy.ResponseWrite(Rdy.FormatCurrency(Importo))
End If
|
|
U0
14/09/2009 13:33
Campo libero:
|
U0
Hai ragione, come prima riga dello script va messo
TipoDoc=RowItem.CustomField(393)
|
|
U0
14/09/2009 14:39
|
U0
Continuo ada avere tutto positivo, anche, nelle note di credito.
.
TipoDoc=RowItem.CustomField(393)
Importo = Rdy.ToDouble(RowItem.CustomField(59))
If Ucase(Left(TipoDoc & " ",2))="NC" Then
Rdy.ResponseWrite(Rdy.FormatCurrency(Importo*-1))
Else
Rdy.ResponseWrite(Rdy.FormatCurrency(Importo))
End If
.
|
|
U0
14/09/2009 14:54
Campo libero:
|
U0
A questo punto sono costretto a rimandarti alla teleassistenza
Come sai non possiamo dare supporto per lo sviluppo di script. A dire il vero non avrei nemmeno dovuto iniziare in questo a darti indicazioni cosi' specifiche (proprio per non arrivare a questo punto...)
|
|
U0
14/09/2009 14:59
|
U0
Quando Vuoi Vi do' il collegamento, poi mi fate regolare fattura.
Ho bisogno dell'export per stampare i registri IVA.
Un giorno capirete e realizzerete.
Avere una Ferrari senza ruote non serve a niente.
|
|
U0
14/09/2009 19:20
Campo libero:
|
U0
Citazione:
Quando Vuoi Vi do' il collegamento, poi mi fate regolare fattura.
Ok. Puoi chiamare in ufficio allo 0549-941204 e fissare un appuntamento con Glauco x fare il lavoro
|
|
U0
14/09/2009 21:20
|
U0
Problema risolto. 
Avevi sbagliato il campo:
TipoDoc=RowItem.CustomField(393).
Il campo è un altro. 
|
|
U0
15/09/2009 07:17
Campo libero:
|
U0
Citazione:
Avere una Ferrari senza ruote non serve a niente
Infatti noi non pretendiamo di vendere delle Ferrari. 
Il nostro programma non costa come una Ferrari, non e' "per pochi" come una Ferrari, ed ovviamente non puo' avere le prestazioni di una Ferrari 
|
|
U0
15/09/2009 09:04
|
U0
Carissimo Fabio,
Il mio voleva essere, solo, un complimento.
Per Ferrari intendo la potenzialità del programma
e non il costo, che può essere paragonato a quello di una Fiat,
alla portata di tutti. :tozz:
|
