Newsgroup: it.comp.lang.vo-clipper
Titolo: versione provvisoria creazione elenchi clienti/fornitori

Salve a tutti,
ho appena messo sul sito la versione attuale della libreria di classi 
per creare il file per la trasmissione telematica degli elenchi 
clienti/fornitori:
http://support.riedmann.it/elencoclifor/ElencoCliFor.zip
Questa versione è completa come interfaccia e implementazione interna, 
MA NON È ANCORA TESTATA, e perciò contiene ancora errori.
Prima di provarla devo finire la raccolta dati nel mio software di 
contabilità, e spero di farcela entro oggi.
Il codice è documentato poco, ma ho usato nomi lunghi che dovrebbero 
dire tutto, e dovrebbe essere abbastastanza facile da capire.
Lo metto a disposizione addesso così gli interessati possono già 
preparare il loro codice.
Il modulo contiene un paio di classi:
ecfElemento: uso solo interno, coppia identificativo/valore
ecfElenco: classe per creare il file
ecfContribuente: classe per i dati del contribuente che deve fornire i 
dati
ecfIntermediario: classe per i dati dell'eventuale intermediario
ecfCliente: classe per ogni cliente
ecfFornitore: classe per ogni fornitore
E questo sarebbe un esempio come creare il file:
oElenco := ecfElenco{ oContribuente, nAnnoRiferimento )
if lSpedisceIntermediaro           
   oElenco:SetIntermediario( oIntermediario )
   oElenco:dDataImpegno    := dDataImpegno
   oElenco:SetPredispostoDalContribuente( lPredispostoDalContribuente )
endif
oClienti:GoTop()
while ! oClienti:EOF
    oCliente := ecfCliente{ cCodiceFiscale, cPartitaIVA }
    oCliente:nImponibile := oClienti:Imponibile
    oCliente:nImposta := oClienti:IVA
    oCliente:nNonImponibile := oClienti:nonImponibile
    oCliente:nEsente := oClienti:Esente
    oCliente:nNonEsposta := oClienti:NonEsposta
    oCliente:nVariazioneImponibile := oClienti:VariazioneImponibile
    oCliente:nVariazioneImposta := oClienti:VariazioneImposta
    oCliente:nVariazioneNonImponibile :=           
oClienti:VariazionenonImponibile
    oCliente:nVariazioneEsente := oClienti:VariazioneEsente
    oCliente:nVariazioneNonEsposta := oClienti:VariazioneNonEsposta
    oElenco:AggiungiCliente( oCliente )
    oClienti:Skip()
end
oFornitori:GoTop()
while ! oFornitori:EOF
    oFornitore := ecfFornitore{ cCodiceFiscale, cPartitaIVA }
    oFornitore:nImponibile := oFornitori:Imponibile
    oFornitore:nImposta    := oFornitori:IVA
    oFornitore:nComplessivo := oFornitori:Complessivo
    oFornitore:nNonImponibile := oFornitori:nonImponibile
    oFornitore:nEsente := oFornitori:Esente
    oFornitore:nNonEsposta := oFornitori:NonEsposta
    oFornitore:nVariazioneImponibile := oFornitori:VariazioneImponibile
    oFornitore:nVariazioneImposta := oFornitori:VariazioneImposta
    oFornitore:nVariazioneComplessivo :=               
oFornitori:VariazioneComplessivo
    oFornitore:nVariazioneNonImponibile    :=          
nFornitori:VariazionenonImponibile
    oFornitore:nVariazioneEsente := oFornitori:VariazioneEsente
    oFornitore:nVariazioneNonEsposta := oFornitori:VariazioneNonEsposta
    oElenco:AggiungiFornitore( oFornitore )
    oFornitori:Skip()
end
oElenco:ScriviFile( cNomeFile )
Saluti
Wolfgang

Ciao,
anche se ho lavorato oggi tutto il pomeriggio per implementare gli 
elenchi nel mio software di contabilità, non sono riuscito a terminare 
i lavori.
Domani mattina sono fuori ufficio, e ho forti dubbi che riesco a finire 
l'implementazione prima di sabato a mezzogiorno. Vuole dire che prima 
di quel giorno non metterò il codice aggiornato sul sito (sembra che 
interessi qualcuno di voi perchè la statistica del sito mi da 13 
download delle sorgenti).
Saluti
Wolfgang

 ha scritto nel messaggio
news:VA.0000024...@gmx.net...


 Io testerò la tua classe domenica con calma
credo che oggi o al massimo domani mattina ci sarà una nuova versione, 
perchè la versione attuale non è testata per niente e sto terminando i 
lavori per l'implementazione nella mia contabilità.
Ma comunque se qualcuno ha delle correzioni da fare per favore 
segnalatemeli via email a 
wolf...@riedmann.it
 e le metterò dentro al più 
presto possibile e pubblicherò la nuova versione.
Saluti
Wolfgang