Newsgroup: it.comp.lang.vo-clipper
Titolo: workarea not in us

A chiunque possa aiutarmi
mi sono scontrato con l'errore in oggetto. Praticamente sto travasando il
contenuto di un archivio dbf filtrato con setfilter in un altro archivio dbf
di identica struttura.
Oltre a segnalare workarea not in use mi viene poi detto function fieldput
ed errore a vecchicl:carcodice:assign line 3
METHOD AnnodaArchiviare_ok( ) CLASS VecchiArchivi_anno
 LOCAL oClienti  :=CLIENTI{} AS CLIENTI
 LOCAL oRighe  :=SCHEDECL{} AS SCHEDECL
 LOCAL oVecchieRighe :=VECCHICL{} AS VECCHICL
oRighe:SetFilter({||_FIELD->Year(data)=AnnoArchiviazione},"_FIELD->year(data
)=AnnoArchiviazione")
 oRighe:Gotop()
 DO WHILE .not. oRighe:eof
  nCarCodice    :=oRighe:CarCodice
  nCodice     :=oRighe:Codice
  nData     :=oRighe:Data
  nNumero     :=oRighe:Numero
  nDescrizion    :=oRighe:Descrizion
  nDare     :=oRighe:Dare
  nAvere     :=oRighe:Avere
  nEDare     :=oRighe:EDare
  nEAvere     :=oRighe:EAvere
  nModo     :=oRighe:Modo
  nTipo     :=oRighe:Tipo
  nPaga     :=oRighe:Paga
  oVecchieRighe:Append()
  oVecchieRighe:CarCodice  :=nCarCodice
  oVecchieRighe:Codice  :=nCodice
  oVecchieRighe:Data   :=nData
  oVecchieRighe:Numero  :=nNumero
  oVecchieRighe:Descrizion :=nDescrizion
  oVecchieRighe:Dare   :=nDare
  oVecchieRighe:EDare   :=nEDare
  oVecchieRighe:Avere   :=nAvere
  oVecchieRighe:EAvere  :=nEAvere
  oVecchieRighe:Modo   :=nModo
  oVecchieRighe:Tipo   :=nTipo
  oVecchieRighe:Paga   :=nPaga
  oVecchieRighe:Commit()
  oVecchieRighe:Close()
  oRighe:Skip()
 ENDDO
    oRighe:Close()
    oVecchieRighe:Close()
se puň aiutarmi
grazie

     oVecchieRighe:Close()//////////////Chiudi il server!!!!!!!!!!!!
(giusto!)
Ma quante volte lo chiudi 'sto server? ;-)
E' chiaro che se lo chiudi ogni volta che analizzi un record ne ricavi un
errore..............
            (Infermiere) Francesco Leo

 grazie
volevo farti notare di come hai scritto 50 righe x salvare dei record in un
DBF quando e' sufficiente oServerFiglio:AppendDB() da oserverPadre
con un FOR_Block x fare tutto in un colpo solo.
francosignore

   oVecchieRighe:Close()
    ^^^^^^^^^^^^^^^^^^^^
    qui hai chiuso, ma quando riapri???
e poi scusami, hai scritto una cinquantina di righe di codice x salvare
records in un dbf gemello quando sarebbe bastato un oServer:AppendDB().
es: oDbDestinazione:AppendDb(cDbfOrigine,aCampi,cForString )
...meditare gente ...meditare
francosignore

oops, mi e' scappatto prima dello snip.
scusatemi, segue quello esempio.
francosignore

 wrote in message
9ub2l9$gu$2...@nreada.inwind.it...


 Meditando...meditando....
allora meditando, meditando ti diro' che si puo' fare la stessa cosa
utilizzizzando i metodi oServer:Field* , la proprieta' oServer:FCount e un
ciclo FOR, quarda l'help in linea x credere.
francosignore

 >>>E so benissimo che tutto questo piace a pochi, ma è così, che vi


 un sincero apprezzamento x il tuo lavoro >;-)))   )
Incazzarmi? Ti ringrazio, piuttosto! :-)
EMG
--
EMAG Software Homepage:     
http://www.emagsoftware.it
The EMG's ZX-Spectrum Page: 
http://www.emagsoftware.it/spectrum
The Best of Spectrum Games: 
http://www.emagsoftware.it/tbosg


che cosa vuoi dire qui???
francosignore
ps, poiche' intendo rispettarmi: ho messo il tuo indirizzo nel mio kill
file.
colgo l'occasione x (ri)chiedere scusa a tutto il ngroup se sono incappato
in questa disavventura, ma, ne converrete, e' molto difficile avere a che
fare con i lamer e con i maleducati.

 ha scritto nel messaggio
news:9ufpoj$pm1$1...@nreada.inwind.it...


 malissimo
non darmi ragione: e' chiaro che non hai capito niente di quello che ho
scritto.
avvicinarsi a te e' sempre cadere mooolto in basso e quindi malissimo! e
come fare un viaggio nella Geenna.
fine delle trasmissioni con te
ps non quotare tutti i msg: una lettura alle FAQ non ti farebbe male, ti
insegnerebbe a non violare continuamente le netiquette.

 > Ah, poi mi spieghi perchč te la sei presa con me. In ogni caso sei


 ha scritto nel messaggio
news:HNKO7.1226$0T3....@news2.tin.it...
