mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.vo-clipper
Titolo: Da clipper a VO

Salve a tutti,
volendo passare dalla programmazione con Clipper a quella con VO ho
acquistato un cd-rom della Trademedia Edizioni con Visual Objects 1.0d.
Nel CD-ROM ho trovato anche un corso base su CA-Visual Objects. Ho iniziato
a leggerlo: il primo argomento trattato e' la migrazione da CA-Clipper a
CA-Virtual Objects: assai interessante. Fino alla pag. 12 del manuale (cioe'
fino al momento della compilazione) non ho incontrato difficolta'. Nel corso
viene quindi suggerito di eseguire l'applicazione dall'interno di VO
cliccando sull'icona di RUN. A questo punto invece di ottenere la maschera
video riportata sulle pagine del corso (cioe' l'applicativo eseguito in
modalita' terminale) ottengo il messaggio: No START() entity found!
Aggiungo che, nella finestra delle proprieta' dell'applicazione mandata in
esecuzione, le librerie incluse sono: terminal, DBF e routine di supporto e
che il tipo di applicazione selezionato e': application.
Dove ho sbagliato? Qualche aiuto? Un grazie anticipato.
Cordiali saluti.
==================
Dennis Luigi Censi
dl.c...@wnt.it
==================

 modalita' terminale) ottengo il messaggio: No START() entity found!
Il punto di partenza di ogni programa in VO è il metodo Start della classe
App
come nell' esempio. Il mio consiglio è di non usare la modalià terminale
ma di partire subito con la MDI e la programmazione ad oggetti tipo
Classy()
di clipper. VO è un altro mondo rispetto a clipper. Il vantaggio per chi
conosce clipper
è di poter manipolare i file nello stesso modo anche se è molto meglio
(secondo me)
usare gli oggetti anche per i file (DataServer).  
 METHOD Start() CLASS App
    LOCAL oMainWindow AS StandardShellWindow
    LOCAL oLogonDialog AS LogonDialog
    LOCAL path AS STRING
	SetExclusive(FALSE)			// Don't allow multi-user (FALSE allows this)
	SetDeleted(TRUE)  			// Supress deleted records
	SetSoftSeek(TRUE)
	SetEpoch(1950 )
    RDDSETDEFAULT("DBFCDX")
 
saluti 
Paolo Calzi
 
	FORNITORI:="soci"

modalita' terminale) ottengo il messaggio: No START() entity found!
Devi chiamare (o aggiunrere se non c'e') nel programma principale
l'istruzione FUNCTION Start()
Sappi che c'e' la possibilita' di provare anche la nuova versione 2.5
che puoi scaricare dal sito 
www.cavo.com
.
-----------------------------
Fabio Cresta
EDP Consultant & VO/Jasmine developer ITALY
President of Clipper/Visual Objects/Jasmine User Group Italy
e-mail: 
fcr...@tin.it
 
fcr...@windevs.com
web: 
http://www.windevs.com
------------------------------
Newsgroup: it.comp.lang.vo-clipper
Titolo: Help: Errore Troppi File Aperti

Per cominciare, Salve a tutti e Auguri di Buon Natale e Anno Nuovo.
Mi presento: Sono un programmatore "della domenica" nel senso che durante la
settimana tra altri lavori e la famiglia non mi resta tempo.
Uso ancora il mio Clipper 5.2e per DOS e ho avuto a che fare con il FiveWin.
Perche vi dico cio?
Bene stavo per prendere tutto e buttarlo a mare poichè pensavo di essere
rimasto il solo utilizzatore di tale linguaggio.
Adesso ho trovato questo NG e mi sono finalmente rincuorato.
Avrei mille domande da fare! Ma vado con calma.
Prima domanda: Si puo' rilevare il numero di file aperti e quindi quanti
ancora se ne possono aprire da Clipper o anche da DOS?
Le altre domande le faro' più avanti nel tempo non vorrei "rompere".
Grazie di Esserci e a Presto!
Ger...@hotmail.com

 ancora se ne possono aprire da Clipper o anche da DOS?
Non so, non credo si possa. Comunque puoi intercettare nell'ERRORSYS.PRG
la situazione di errore per file handles finiti (e:OsCode = 4).
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

 ancora se ne possono aprire da Clipper o anche da DOS?
Dovresti consultare la "bibbia del DOS" di Dvorak (1400 pagine).
Accedendo alla Master List del DOS hai la possibilità di controllare tutto
il SO, file handle inclusi.
E' un po' complicato ma fattibile. Un trucchetto potrebbe essere quello di
aprire i files della dir. \DOS fino a che l'handle e' nullo o invalido per
poi successivamente richiuderli. E' penoso ma molto più semplice e se tieni
conto di quelli che il programma apre mantenere un conteggio per gli handle
di possibile apertura.


Invece di aprire quelli in \DOS (percorso quasi certamente inesistente),
forse sarebbe meglio creare una directory temporanea, crearci dentro dei
file temporanei aprendoli uno alla volta, e alla fine cancellare tutto.
Comunque buona idea.


Se usi Clipper 5.x + CA Tools c'e' la funzione FILESFREE () che fa al caso
tuo
ciao

Newsgroup: it.comp.lang.vo-clipper
Titolo: Percorso di rete

Sto sviluppando una procedura in rete e avrei bisogno di un aiuto, sapete
come settare le variabili SET PATH e SET DEFAULT in modo che la procedura
giri sui client e i dbf siano sul server???
A me servirebbe un qualcosa del genere :
c:\mioprog  --->     Database comuni, tabelle e anagrafiche
c:\mioprog\yyyy     Database annui ex. fatture e ddt
Ho settato una variabile ambiente in dos, la leggo con GETENV() ma la dir
YYYY non riesce a leggerla
Grazie per chi mi puo' aiutare.
mscar...@inwind.it


Scusa ma non ho capito bene. Potresti spiegare meglio il tuo problema,
magari con dei piccoli esempi di codice?
EMG

 
mscar...@inwind.it
-- 
"Uomo, tu sei giovane come la tua speranza e vecchio come la tua
angoscia"
"Man you are young like your hope and old like your anguish"

 Salvare il tutto, salare, pepare e la rete č condita.




Newsgroup: it.comp.lang.vo-clipper
Titolo: Esiste ?

Esiste una libreria per CA-CLIPPER5.2 che faciliti la creazione di Menů
a tendina?
Se sě, potreste indicarmi dove scaricarla?
Grazie
Riccardo


Ciao 
Annibale
a.freda[NOSPAM]@
tiscalinet.it
http://users.tripod.it/fredaannibale


Ciao Riccardo , se la vuoi te la do io sono le SUPER LIB e sono favolose
fammi sapere
mscar...@libero.it

 Se sě, potreste indicarmi dove scaricarla?
Mi pare che con clipper 5.1 davano il sorgente di un menu' a tendina,
e' lo stesso utilizzato dal debugger, io lo utilizzo, l'ho modificato
per i miei scopi e va bene.
Ciao...
Claudio Driussi
http://www.swit.net/csoft
mailto:
cldr...@swit.net
Newsgroup: it.comp.lang.vo-clipper
Titolo: SDT 2001

Che fine ha fatto SDT????
Io non ho ancora ricevuto l'edizione 2001/1 mentre
la versione inglese e' gia' all'edizione 2001/2
Dato che la mia carta di credito e' gia' stata
addebitata molto tempo fa', ci potrebbero almeno far vedere l'edizione
inglese
sul sito.....cosa ne pensate??
Saluti
Paolo Calzi

 ha scritto nel messaggio
news:k6Mr7.2449$jT5.1...@news.infostrada.it...


 ha scritto nel messaggio
news:k6Mr7.2449$jT5.1...@news.infostrada.it...


Newsgroup: it.comp.lang.vo-clipper
Titolo: Colorare il testo di una SLE disabilitata.

    Ciao a Tutti, sono Enzo.
C'è la possibilità di colorare il testo di una SLE disabilitata, oltre il
grigio? Se si come si fa?
Mi sembra che una volta è stato trattato, ma il sistema non funzionava
sempre e non con tutti i S.O. Windows.
Grazie in anticipo.

Io di solito preferisco settare la SLE come Read only senza disabilitarla e
cosě puoi anche assegnarle il colore sia del testo che dello sfondo, oltre
al fatto che si legge meglio.
Saluti
                                                    Francesco


Anch'io attualmente faccio così, mettendo la ReadOnly:=True ed il tabStop a
false per poi cambiarle in fase di modifica. Disabilitare i controlli è
sicuramente migliore.

 ha scritto nel
messaggio news:EkmH8.85123$zW3.1...@news1.tin.it...

se non ti servono tutte le caratteristiche della SLE prova ad usare un
FixedText  in questa maniera
 Border := TRUE
BackGround del colore che vuoi....
avrai la possibilità di settare i colori della caption con
FixedText:TextColor :=  color{IL_TUOCOLOREPREFERITO}
ciao
francosignore

 sempre e non con tutti i S.O. Windows.
Hai provato impostandola come multiline?
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

Newsgroup: it.comp.lang.vo-clipper
Titolo: Clipper 5.3 e la HP deskjet 840c

Ciao a tutti,
siccome ho da tempo il problema di allungare i margini dell'area stampabile
con la HP deskjet 740c, ho trovato un articolo che ne parla.
Per favore andate  a questo link:
http://www.kbalertz.com/Feedback_122037.aspx
Riuscite elaborandone i contenuti a fare una funzione per clipper 5.3?
Grazie infinite
P.pietro

 wrote:
In fondo all'articolo dice :
The information in this article applies to:
 * Microsoft Win32 Software Development Kit (SDK)
In Clipper puoi provare con le sequenze di escape PCL
(se supportate dalla stampante)
27 57  per annullare i margini sx dx
27 38 108 n 80 lunghezza pagina
27 38 108 n 70 lunghezza area stampabile
27 38 108 n 69 margine superiore
 
Eugenio.
Newsgroup: it.comp.lang.vo-clipper
Titolo: VO e SQL database e tabelleSQL

Nonostante aver letto più volte la bibbia di VO non riesco a capire come
collegare una tabella SQL aperta con un "Select * from " ad una variabile
dbserver per poi vederla in una finestra datawindow.
Se qualcuno mi può aiutare anche con degli esempi.
GRAZIE


Dedvi usare l'SQL editor. Dai un nome al server, poi cliccca sul
bottone a fianco, scelgi il driver ODBC. Ti compare l'alenco delle
tabelle. Segline una e salva.
A questo punto puoi usare l'autolayout normale.
-----------------------------
Fabio Cresta
EDP Consultant & VO/Jasmine developer ITALY
President of Clipper/Visual Objects/Jasmine User Group Italy
e-mail: 
fcr...@tin.it
 
fcr...@windevs.com
web: 
http://www.windevs.com
------------------------------

Newsgroup: it.comp.lang.vo-clipper
Titolo: Invio Mail da VO

Ho questa funzione per spedire le Email dal mio programma:
FUNCTION EMAIL(cIndirizzo,cOggetto,cCorpo_messaggio,cEmail_per_Conoscenza)
cMsg := "mailto:" + cIndirizzo +;
             + iif(!Empty(cEmail_per_Conoscenza),"?cc=" +
cEmail_per_Conoscenza,"") + "&subject= " + cOggetto +;
               "&body=" + cCorpo_Messaggio
 ShellExecute(NULL, PSZ("open"),cMsg,NULL, NULL,SW_SHOWNORMAL)
RETURN
Come posso completarla per allegare alla mail uno o piů file?
Grazie
--
Carlo Russo
Net Working Software snc
ru...@networkingsoftware.it
rus...@tin.it

Se usi la classe cEmail trovi un array da riempire con l'elenco degli
allegati da spedire.
Al resto ci pensa lui
Ciao


-----------------------------
Fabio Cresta
Computer Associates FSG Consultant
VO/Jasmine specialist
e-mail: 
fabio....@ca.com
 
fcr...@tin.it
------------------------------

 Come posso completarla per allegare alla mail uno o più file?

Newsgroup: it.comp.lang.vo-clipper
Titolo: Stampe con Clipper

Salve
Sto realizzando un programma gestionale x l'attività di mia moglie in
Clipper5.0, visto che il tempo che ho per programmare e di conseguenza
poco tempo per studiare i discendenti ad oggetti del Clipper.
In ogni modo, mi chiedevo come si possano fare delle stampe in clipper
quando non si ha la stampante collegata alla Lpt1 ma magari ad una porta
USB.
In tal caso la funzione ISPRINTER ritorna un valore .F. 
Come workaround mi chiedevo....
E' possibile in Clipper 5.0 reindirizzare l'output su di un file di testo
da stampare poi fuori dall'applicativo ?
Oppure, che voi sappiate, esiste qualche libreria per 5.0 che permetta di
gestire la porta USB ? (mi rendo conto di avere poche speranze per l'USB)
Infine avete qualche consiglio da darmi per ovviare al problema ?
Grazie in anticipo a tutti
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 da stampare poi fuori dall'applicativo ?
Sě, certo. Puoi scrivere semplicemente
SET PRINTER TO nomefile
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
The EMG Music page:         
http://www.emagsoftware.it/emgmusic
 

 ha scritto nel messaggio
news:dq533m$72n$1...@news.newsland.it...


 Salve
<CUT>


Newsgroup: it.comp.lang.vo-clipper
Titolo: Clipper 5.3 errori i apertura di indici

Ciao a tutti,
in un programma che feci alcuni anni fa avevo fatto alcune error trap per
intercettare errori di apertura di indici .rovinati.
credevo che funzionasse tutto invece una persdona che lo usava da tempo mi
ha telefinato dicendo che aveva fatto un errore di corrupt  index dopo che
era saltata la luce.
Io pensavo che non avrebbe dovuto farlo ma.............
Evidentemente il mio metodo non funziona.
Allora come freste ad intercettare un indice rovinato per poterlo rifare
senza che faccia errore?
Grazie
Paolo


Racchiudi il codice che può dare errore in una struttura BEGIN
SEQUENCE/END SEQUENCE e intercetta la condizione
oErr:SubCode = 1012
che indica, appunto, file corrotto.
EMG
Newsgroup: it.comp.lang.vo-clipper
Titolo: Auguri di Buona Pasqua

Una buona Pasqua a tutti, con un augurio (scevro da posizioni politiche):
Che il signore ci protegga dalla violenza di qualsiasi parte e tipo.
Danilo Giuliani


Ricambio di cuore gli Auguri che estendo a tutti gli amici del nostro
newsgroup.
Roberto Cordini


Tanti auguri di buona Pasqua a tutti gli amici del NG anche da parte mia.

 ha scritto nel messaggio
news:hHMcc.31502$rM4.1...@news4.tin.it...


 Una buona Pasqua a tutti,
Buona Pasqua anche da parte mia!
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

Tanti auguri di una buona Pasqua a tutti gli amici del
gruppo anche da parte mia.
Ciao, Piero.

--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 ha scritto nel messaggio
news:hHMcc.31502$rM4.1...@news4.tin.it...


 ha scritto nel messaggio
news:hHMcc.31502$rM4.1...@news4.tin.it...


Tanti auguri di buona Pasqua a tutti anche da parte mia
Claudio


Serena Pasqua a tutti.
Antonio Menna

 ha scritto nel messaggio
news:hHMcc.31502$rM4.1...@news4.tin.it...


Auguri anche a te ed a tutti i frequentatori del NG.
Alessandro.

Auguri anche da parte mia.

 Danilo Giuliani
Ma di quelle serene e riposanti.
Auguroni a tutti quanti.
Andrea
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

Tanti auguri a tutti di una Pasqua serena e rilassante.
                            Francesco Leo

 Danilo Giuliani
ricambio a te e a tutto il NG.
Antonio Torchi
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 ha scritto nel messaggio
news:hHMcc.31502$rM4.1...@news4.tin.it...

Newsgroup: it.comp.lang.vo-clipper
Titolo: Sos Dbase per poco esperti

Ho esigenza di rimordernare un programma scritto in dbaseIV e che fino
ad oggi mi ha funzionato perfettamente.
Cosa mi consigliate, partendo prorpio da Dbase IV? Vedo che esiste una
versione dbase 2.61 è la naturale evoluzione? Mi conviene restare in
ambiente Dbase? Esistono compilatori? Esistono traduttori del
linguaggio dbase in altri di maggiore diffusione? Altre idee pratiche?
Grazie per le informazioni ad un poco esperto
Ale

 Ale
la strada piů logica č quella di passare ad harbour o xharbour cosě puoi
sfruttare il linguazzio dbase. Se poi vi aggiungi le minigui potrai avere
un applicativo x windows.
saluti bp
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 un applicativo x windows.
Però dovrebbe prima verificare se [x]Harbour è compatibile con tutte le 
caratteristiche dei DBF del dBase IV. Dovrebbe esserlo ma è meglio 
controllare di persona prima di fare del lavoro inutile. [x]Harbour è 
infatti dichiarato compatibile Clipper 5 ma non è garantito che lo sia, 
almeno completamente, con il dBase IV.
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
The EMG Music page:         
http://www.emagsoftware.it/emgmusic
 

il clipper è pienamente compatibile con i DBF del Dbase IV. Se hai gli
indici .Mdx utilizzi gli RDD. (come da manuale clipper)


 indici .Mdx utilizzi gli RDD. (come da manuale clipper)
E' proprio quello che temevo: [x]Harbour non dispone (ancora) di un RDD per 
gli indici MDX.


 EMG
pensavo che anche xharbour come harbour gestisse gli rdd. Evidentemente
pensavo male.
Ti faccio però notare che su HMG nella versione compilata con GCC per
xharbour ,esiste la libreria compilata librdd.a.
saluti bp


 xharbour ,esiste la libreria compilata librdd.a.
Quella è la libreria generica di supporto agli RDD ma un RDD per MDX ancora 
non esiste. Sono supportati NTX e CDX.

Newsgroup: it.comp.lang.vo-clipper
Titolo: help

Ciao a tutti.
Anni fa la mia ditta acquisto' il libro "Alla scoperta di CA- Visual
Objects" di Sandy Hood / Alwin Jennings - Bramly edito da Infomedia.
A causa di alcuni traslocchi di sede  temo che sia andato perduto il CD
allegato al libro  e quindi non riesco piu' a vedere gli esempi trattati nel
libro ( infatti sto leggendo il capitolo 21 e alcuni pezzi di programma sono
nel CD allegato che ho perso e quindi non riesco ad andare avanti con
l'esempio ).
Qualcuno mi puo' aiutare?
Ciao,
    Fabrizio Malaguti

Lo farei volentieri ma il tuo indirizzo di posta non va....
            Francesco

 ha scritto nel messaggio
news:c2s9ls$agt$1...@grillo.cs.interbusiness.it...


Newsgroup: it.comp.lang.vo-clipper
Titolo: archivio dbf aperto

buon giorno,
è possibile conoscere quali sono gli archivi dbf aperti in un determinato momento ?
grazie
Aurora Baccio

 è possibile conoscere quali sono gli archivi dbf aperti in un determinato momento ?
 
http://www.nirsoft.net/utils/opened_files_view.html
 

 determinato momento ?  
 
se si tratta di un server dove deve sapere tutti quelli aperti da tutti
i client: ha bisogno di diritti di amministratore sul server stesso.
 
Se ha bisogno di vedere all'interno dell'applicativo i DBF aperti della
istanza corrente: basta leggere le workarea aperte.
 
Saluti
 
Wolfgang
 
 
--
Newsgroup: it.comp.lang.vo-clipper
Titolo: Install Maker

Cari amici :
Non so se ve ne siete accorti, ma quando si hanno piů progetti nel
repository e si lancia Install Maker, poi si seleziona un ' applicazione e
poi tramite Detail si tolgono tutti i vari RDD ecc... Si blocca tutto.
Dopo aver posto il quesito al NG internazionale, un tizio mi ha risposto
dicendo che bisogna prima andare su Detail e deselezionare i vari check, e
poi scegliere l'applicazione.
Ho provato e funziona senza problemi.
Ciao a tutti
Enio Donci

Io use SetUp Generetor della Gentee,
http://www.gentee.com/
č una bomba, ed č free
puoi aggiungere programmi da eseguire all'atto della istallazione ed altro
ancora.
Scaricalo e provalo, non lo lascerai piů
Danilo Giuliani

 ha scritto nel messaggio
news:8eOT6.1316$on1....@news1.tin.it...



Io uso la versione professionale della Gentee: CreateInstall2000 che
implementa un comodo macrolinguaggio per fare qualsiasi cosa durante
l'installazione di un prodotto (registrazione di ocx, installazione di
font, creazione di sottodirectory, copia di files, finestre per la
selezione di differenti installazioni etc. etc.). Anche con Install
Maker si possono fare cose complesse ma č molto difficile prendere
confidenza con il file Install.isc che occorre, in questo caso,
impostare manualmente.
Ciao
Marino

 Non so se ve ne siete accorti, ma quando si hanno più progetti nel


 quando install Maker fa "quasi" tutto lui.
Infatti !!! è per quello che non ho molto interesse a vederne altri.
Devo dire che non ho esigenze particolari di installazione quindi !!!!

Non si fa molto lavoro, basta creare una cartella nella quale mettere tutti
file che servono normalmente ad una istallazione e quindi dire di istallare
i file c:\miacartella\*.* piů l' exe e i report di quella applicazione
specifica.
Per SetUpGen ho creato una mia applicazione che viene lanciata al termine
dell'istallazione che si preoccupa di fare tutti e settaggi che altrimenti
dovrei fare a mano.
InstallMaker se apporto delle modifiche all'isc a mano e poi rigenero
l'istallazione devo ogni volta fare le correzioni. es: aggiungere
[cd-rom] (per evitare di avere file readonly)
Danilo Giuliani

Mhhh.... se dici così la guarderò.

Provate ad usare InnoSetup : è freeware, si possono avere i sorgenti ( in
delphi ) ed è paragonabile  come funzionalità
al monopolista installshield. Provare per credere.
Newsgroup: it.comp.lang.vo-clipper
Titolo: Problema Treeview

quale metodo bisogna utilizzare in un ciclo for/next per leggere un
Treeeviewitem ? Esempio :
    FOR I:=1 UPTO SELF:oDCTreeView:ItemCount
        oTVI := SELF:oDCTreeView  .... cosa ?????
    NEXT
Grazie a chi mi risponte.
Alessandro

 ha scritto nel
messaggio news:L54Da.34938$pR3.7...@news1.tin.it...


 ha scritto nel
messaggio news:L54Da.34938$pR3.7...@news1.tin.it...


 ha scritto nel messaggio
news:bbij5k$d7$1...@nntp.weblinea.it...


Grazie a tutti ho risolto diversamente.
Trovo nettamente più semplice e veloce utilizzare un array parallelo ai dati
del TreeView.
Ciao Alessandro.

Alessandro,
Ho modificato un po' di codice che uso con Classmate.
Crea la nuova classe pTreeView che contiene il metodo ricorsivo
ExpandCollapseAllChilds() che serve per espandere o contrarre i nodi della
treeview a partire dal nodo selezionato.
Questo metodo utilizza 3 tipi diversi di Get per prelevare i TreeViewItem.
Per utilizzare il codice che ti riporto di seguito crea una DIALOG
(MainDialog) con una treeView con nome "oDCTree" e due bottoni denominati
"oCCEspandi" e "oCCContrai".
Nel PostInit inserisci i dati per la treeview.
Ciao
Paolo
// CODICE DEL BOTTONE PER CONTRARRE IL NODO SELEZIONATO
METHOD Contrai( ) CLASS MainDialog
LOCAL oT AS TreeViewItem
oT:=SELF:oDCTree:GetSelectedItem()
IF !oT=NULL_OBJECT
   SELF:oDCTree:ExpandCollapseAllChilds(FALSE, oT)
ENDIF
// CODICE DEL BOTTONE PER ESPANDERE IL NODO SELEZIONATO
METHOD Espandi( ) CLASS MainDialog
LOCAL oT AS TreeViewItem
oT:=SELF:oDCTree:GetSelectedItem()
IF !oT=NULL_OBJECT
   SELF:oDCTree:ExpandCollapseAllChilds(TRUE, oT)
   SELF:oDCTree:SelectItem(oT, TVGN_FIRSTVISIBLE)
ENDIF
// INSERIMENTO DEI DATI PER LA TREEVIEW
METHOD PostInit(oParent,uExtra) CLASS MainDialog
 //Put your PostInit additions here
LOCAL oTItem AS TreeViewItem
oTItem:=TreeViewItem{#Nodo1, "Nodo 1", 10}
SELF:oDCTree:AddItem(#Root, oTItem)
oTItem:=TreeViewItem{#Nodo2, "Nodo 2", 10}
SELF:oDCTree:AddItem(#Root, oTItem)
oTItem:=TreeViewItem{#Figlio1, "Figlio 1 Nodo 1", 10}
SELF:oDCTree:AddItem(#Nodo1, oTItem)
oTItem:=TreeViewItem{#Figlio2, "Figlio 2 Nodo 1", 10}
SELF:oDCTree:AddItem(#Nodo1, oTItem)
oTItem:=TreeViewItem{#Figlio1, "Figlio 1 Nodo 2", 10}
SELF:oDCTree:AddItem(#Nodo2, oTItem)
oTItem:=TreeViewItem{#Figlio2, "Figlio 2 Nodo 2", 10}
SELF:oDCTree:AddItem(#Nodo2, oTItem)
RETURN NIL
// DEFINIZIONE DELLA CLASSE TREEVIEW
CLASS pTreeView INHERIT TreeView
DECLARE METHOD ExpandCollapseAllChilds
METHOD ExpandCollapseAllChilds(lExpanding AS LOGIC, oTVI AS TreeviewItem) AS
VOID PASCAL CLASS pTreeView
LOCAL oTVIChild  AS TreeViewItem
// Alla prima chiamata oTVI č vuoto
IF oTVI == NULL_OBJECT
   oTVI := SELF:GetSelectedItem()
ENDIF
// Espandi o contrai l'item corrente
IF lExpanding
   SELF:Expand(oTVI)
ELSE
   SELF:Collapse(oTVI)
ENDIF
  oTVIChild := SELF:GetFirstChildItem(oTVI)
  DO WHILE (oTVIChild != NULL_OBJECT)
   // Chiamata ricorsiva alla treeview
   SELF:ExpandCollapseAllChilds(lExpanding, oTVIChild)
   oTVIChild := SELF:GetNextSiblingItem(oTVIChild)
  ENDDO
RETURN
Newsgroup: it.comp.lang.vo-clipper
Titolo: OGGETTO TIMER

In una applicazione che sto scrivendo avrei la necessità di attivare un
messaggio o un'azione allo scadere di un periodo di tempo prefissato....non
ho mai usato un oggetto di tipo timer...qualcuno può aiutarmi?


Strumento di sviluppo?
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

 ha scritto nel messaggio
news:o%y5c.51940$z23.2...@news3.tin.it...

Se devi attivare un timer in una finestra inserisci nel postinit:
        SELF:registerTimer(1, TRUE) Dove TRUE indica una sola ripetizione
Dopo di che crei un metodo:
METHOD Timer CLASS TuaFinestra
 SELF:EndDialog() //qui dici al programma cosa fare quando scade il tempo
*******************
Ciao.
                                            Francesco Leo

 ha scritto nel messaggio
news:c36o7p$c9t$1...@grillo.cs.interbusiness.it...




Vade retro... ;-)
---
acc(at)
libero.it

come mai Vade retro?
"acc" <em...@not.set> ha scritto nel messaggio
news:tane509cnqatv25nm...@4ax.com...


 Vade retro... ;-)
Perché, non ti piacciono i timers?


come mai Vade retro?
Era solo una battuta, vedi mio post precedente sulla time()
---
acc(at)
libero.it

Perché, non ti piacciono i timers?
Mi piacciono i timers, riesco anche a digerire win2k, ma ...
non tutte due le cose contemporaneamente ;-).
---
acc(at)
libero.it
Newsgroup: it.comp.lang.vo-clipper
Titolo: programma in clipper 5.3 sotto windows me

Salve,  ho creato un progr. in clipper 5.3 che apre molti file dbf, sotto
win 98 in config avevo aggiunto FILES = 60 e BUFFERS = 60 e  il progr.
girava correttamente. Ora sotto windows ME ho aperto msconfig, ho aggiunto
in ambiente le stesse variabili indicate prima per win 98 ma nel momento in
cui debbo aprire un menu del mio programma che usa tutti i file dbf (se
ricordo bene sono 25) mi da il seguente errore "Error DBFNTX/1003  Open
error: TERAP.NTX (DOS Error 4)
        Quit    Retry    Default"
debbo aggiungere qualche altra variabile ? ho provato a portare il num. dei
FILE a 250 ma da sempre lo stesso errore.
Grazie


wrote:

Non conosco affatto Windows ME, ma con win95-98-2000 per far girare
programmi clipper senza problemi di "troppi files aperti" (errore Dos
4) occorre aggiungere la seguente stringa al file AUTOEXEC.BAT:
	SET CLIPPER=F100
dove 100 rappresenta il n° di files massimo da far utilizzare
contemporaneamente ai  programmi clipper che girano su quel computer
(credo che altrimenti vi siano limiti di default molto bassi 20-30
files). Ovviamente possono essere impostati anche numeri più ridotti.
Per quanto riguarda il settaggio dei parametri FILE e BUFFERS in
windows non dovrebbe essere più necessario, mentre è obbligatorio in
DOS.
Saluti

 ha scritto nel messaggio
news:99d91e$jko$1...@nreadA.inwind.it...


 wrote:
Ciao 
A parziale rettifica il numero massimo per PerVmFiles non dovrebbe
superare 225. Questo è quello che ho sempre visto scritto.
Ciao a tutti :-))

http://users.iol.it/fredaannibale
http://utenti.tripod.it/fredaannibale
http://www.smscash.it/?907949
http://www.smsclub.it/mediabanner.asp?mediauser=59474
a.freda[NOSPAM]@
libero.it
 . togliere [NOSPAM] per comunicare in e-mail

 superare 225. Questo č quello che ho sempre visto scritto.


Newsgroup: it.comp.lang.vo-clipper
Titolo: x danilo

Danilo scusa l'interferenza, ma non riesco a trovare le demo delle librerie 
x mysql
che debbo fare ?
Francesco

 che debbo fare ?
Non sono più in linea perchè mi ero rotto di tenere dietro a quella per 2.0 
poi per 2.5, poi per 2.6, poi per 2.7 poi per 2.8.
Se vuoi ti mando quella per 2.8
Danilo 

 Non sono piů in linea perchč mi ero rotto di tenere dietro a quella per 


 ha scritto nel 
messaggio news:47fc4518$0$40218$4faf...@reader5.news.tin.it...


Newsgroup: it.comp.lang.vo-clipper
Titolo: Stampa simbolo euro

Intanto TANTI AUGURI TUTTI !
Problema: Come faccio a stampare il simbolo dell'euro con Cllipper 5.2 / 5.3
?
Grazie e saluti
Carlo

Ciao, 
Io uso il carattere ASCII 238 ha una sbarra di meno comunque è quello
che si avvicina di più
Buon Anno nuovo anche a te! :-))


http://users.iol.it/fredaannibale
http://utenti.tripod.it/fredaannibale
http://www.smscash.it/?907949
http://www.smsclub.it/mediabanner.asp?mediauser=59474
a.freda[NOSPAM]@
libero.it
 . togliere [NOSPAM] per comunicare in e-mail

 wrote in message
9279im$b7s$1...@news.mclink.it...



wrote:
Ciao 
Io uso il chr ( 238 ) 

http://users.iol.it/fredaannibale


 wrote:

Newsgroup: it.comp.lang.vo-clipper
Titolo: Ottimizzazione Memoria Dos x Xp

Salve a Tutto il Ng.
Ho un'applicazione Dos sviluppata con Clipper '87 da far girare sotto 
sistema operativo Xp Pro.
Come faccio ad Ottimizzare la Memoria Dos.
Dove trovo i file autoexec.bat? e config.sys?
Come li modifico?
Ringrazio Saluto e Auguro buon lavoro a tutto il Ng.
Adamantio

 Dove trovo i file autoexec.bat? e config.sys?
Cerca autoexec.nt e config.nt.
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
The EMG Music page:         
http://www.emagsoftware.it/emgmusic
 

 ha scritto nel 
messaggio news:43534ac9$0$24640$4faf...@reader3.news.tin.it...


 Quali istruzioni devo inserire per entrambi i file?
Dipende da cosa vuoi ottenere. Normalmente la console di XP funziona benissimo 
cosě com'č. Forse ti potrebbe servire aumentare (o aggiungere) la voce files=n 
(dove n č il numero massimo degli handles consentiti) nel config.sys.


 ha scritto nel 
messaggio news:43534cff$0$24650$4faf...@reader3.news.tin.it...


 Con Win98Se risciuvo ad avere a diposizione 620Kb di memoria.
Il comando mem mi dà questo risultato sul mio PC WinXP Pro SP2:
 655360 byte di memoria convenzionale complessiva
 655360 byte disponibili per MS-DOS
 626896 dim. massima di un programma eseguibile
1048576 byte contigui di memoria estesa
      0 byte di memoria estesa contigua disponibili
 941056 byte di memoria estesa disponibili
        MS-DOS è residente nell'area di memoria alta.
Non mi pare di aver cambiato niente né in config.nt né in autoexec.nt.

Newsgroup: it.comp.lang.vo-clipper
Titolo: Reti geografiche.

Ciao a tutti.
Sono arrivato al dunque.
I miei programmi lavorano benissimo in rete locale. Ora devo spostare il 
tiro perchè un cliente apre un ufficio in un'altra città, ma vuole gestire, 
oltre che da locale, anche dalla sede.
Domande:
Come funziona una rete geografica tramite TCP/IP?
Per esempio se due computers hanno un abbonamento adsl, come si fa ad 
indirizzarne uno da remoto?
Gli archivi devono risiedere iu un server internet?
Quali caratteristiche deve avere il server?
Sono al buio. Qualcuno mi può spiegare come funziona esattamente e di cosa 
ho di bisogno? Ed eventualmente di quali programmi aggiuntivi?
Lavoro con VO 2.7b e file DBF e mi sono trovato bene.
Vorrei sfruttare la libreria di Antonello Negrone, la SPEDBF versione 3.0 
per continuare a lavorare con gli archivi esistenti. E' possibile?
Grazie a tutti anticipatamente, Enzo. 

 ha scritto nel messaggio
news:ZZR2e.1144946$35.42...@news4.tin.it...


per continuare a lavorare con gli archivi esistenti. E' possibile?
Con SPE servono (per il server):
- hardware affidabile e veloce
- sistema operativo da Windows NT4 in su
- connessione internet (preferibilmente ADSL >= 1 Mbps)
- servizio SPE in esecuzione e configurato
- cartella con i DBF+CDX
Per i client:
- PC
- connessione a internet (anche dial-up si ottengono prestazioni
dignitose)
Antonello

Enzo Campanella ha scritto:

hai pensato a win 2000/3 terminal server
adesso non ha un costo eccessivo
io lo sto usando con gli applicativi (lasciati come sono)
e mi trovo piuttosto bene...
sia in termine di prestazioni che di stabilità...
saluti
andrea bruni

Newsgroup: it.comp.lang.vo-clipper
Titolo: Problema con Default button

Ho un piccolo ma fastidioso problema con un Pushbutton.
In una finestra di dataentry c'è una ricerca nominativi che viene effettuata 
in una classica finestra di ricerca con l'elenco dei dati. Quando si 
conferma il dato scelto, però, mi si attiva il Pushbutton della finestra 
madre, ma solo se lo setto come Defalut.
In pratica l'operatore immette un cognome in una SLE, preme invio e si apre 
una finestra di selezione del nominativo. Quando conferma la selezione i 
dati vengono trasmessi alla finestra madre e la figlia si chiude, ma dopo 
aver confermato si attiva automaticamente il Pushbutton definito come 
default, senza che abbia il focus o che qualcuno lo richieda.
Non capisco il perchè di questo comportamento, se nessuno lo interpella, 
anche se è di default, come cavolo è che mi viene richiamato?
Non so se sono stato chiaro..........qualche idea?
Ciao
                                    Francesco 

 ha scritto nel messaggio 
news:451d07af$0$4581$4faf...@reader2.news.tin.it...


 ha scritto nel messaggio 
news:451d6d09$0$39889$4faf...@reader4.news.tin.it...


 ha scritto nel messaggio 
news:451e2473$0$5860$4faf...@reader3.news.tin.it...


 ARCA Sistemi S.r.l.
Grazie.
                                            Francesco Leo
[.......]
Newsgroup: it.comp.lang.vo-clipper
Titolo: Novità su Softdevo.com

Sul nostro sito 
www.softdevo.com
 troverete due grosse novità:
- Nelle pagine destinate a Vo quasi tutto sull'evento di Livorno
- Il Forum che tra l'altro implementa una sezione per discutere sul 
costituendo VO User Group Italia. E' necessario iscriversi e poi potrete 
parteciapre.
Danilo Giuliani

C'č un link errato nel download, l'ultimo fa riferimento al penultimo.
Ciao
            Francesco
 

 ha scritto nel messaggio 
news:434b93a3$0$13348$4faf...@reader2.news.tin.it...



Ricambio i saluti con piacere ma non ho latitato, ho inviato un'email a Enio 
(che mi è costata 24,2 EURO!!! via cell.) pregandolo di porgere le mie scuse 
perchè sono partito ed ho rotto il motore della macchina a Foggia!!! Il 
tutto dopo aver fatto due giorni prima il tagliando e aver speso 320,00 
EURO! Non mi è ancora passata la rabbia, sia per l'auto, sia per i circa 
1.300 euro spesi, che per il meeting, ci tenevo davvero.
Saluti.
                                    Francesco Leo
Newsgroup: it.comp.lang.vo-clipper
Titolo: Tastiera

Non è proprio Clipper & Vo ma.. ho questo problema
se a qualcuno di voi è capitato :
Non mi funziona la tastiera nella sessione dos di win2000 a tutto schermo.
Se la sessione dos è in finestra invece funziona regolarmente !
Grazie per le info
Stefano Bonacina

 ha scritto nel messaggio
news:dBIkc.175888$rM4.7...@news4.tin.it...


Newsgroup: it.comp.lang.vo-clipper
Titolo: xharbour e libreria minigui

ho scaricato la libreria in oggetto, seguendo i numerosi esempi sono 
riuscito a fare le mie prime applicationi di prova a 32 bit.
Purtroppo manca  un manuale dei vari comandi a disposizione.
Sapete  se esiste in rete e come posso procurarmelo? 

 ha scritto nel messaggio
news:ALvde.849984$b5.37...@news3.tin.it...

http://www.geocities.com/harbour_minigui
ed in particolare il link Tutorial.
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
The EMG Music page:         
http://www.emagsoftware.it/emgmusic

 ha scritto nel 
messaggio news:QZvde.850033$b5.37...@news3.tin.it...


 di come usarle anche a livello sintattico... anch'io ne avrei bisogno....
Purtroppo non ne so niente. Forse sarebbe utile chiedere all'autore.


 ha scritto nel
messaggio news:qHJde.1324067$35.49...@news4.tin.it...


 ha scritto nel messaggio 
news:yS0ee.98806$zZ1.2...@twister1.libero.it...


 ha scritto nel messaggio 
news:d5cdsh$bmf$1...@fata.cs.interbusiness.it...


 ha scritto nel messaggio 
news:d5cdsh$bmf$1...@fata.cs.interbusiness.it...


 ha scritto nel messaggio 
news:427b17fd$0$2195$5fc...@news.tiscali.it...


 ha scritto nel messaggio 
news:d5fjv5$i7v$1...@carabinieri.cs.interbusiness.it...


Newsgroup: it.comp.lang.vo-clipper
Titolo: Gradient fill

Mi capita in maniera causale di ricevere questo messaggio di errore in fase
di esecuzione,utilizzando mainWindows come interfaccia menu:
Numeric overflow
Gradeint Fill linea 25
l'errore si verifica in fase di uscita da una finestra con menu condivisi.
il comando è destroy()
qualcuno sa come risolverlo ??
Spero di essere riuscito a rappresentare l'errore che si verifica.
Francesco

 ha scritto nel messaggio
news:6nV48.30527$hi.7...@news1.tin.it...

Newsgroup: it.comp.lang.vo-clipper
Titolo: Prova

Ciao a tutti questa è una prova.

 ha scritto nel messaggio
news:rvT77.10994$Qf6.1...@news2.tin.it...

Newsgroup: it.comp.lang.vo-clipper
Titolo: [VO] ReportPro

Ho un report diviso in 2 sezioni:
sezione 1 = DBF principale, stampa sempre e solo la pagina
iniziale
sezione 2 = corpo del documento, quindi <n> pagine in base ai dati da
stampare
La cosa che volevo chiedervi è perchè in anteprima ad esempio vedo 3
pagine mentre in stampa se gli dico di stampare la pagina 3 mi sputa
fuori il foglio bianco ?
Ho anche notato che se chiedo la stampa dalla pagina 2, ottengo un
risultato diverso dall'anteprima.
(sono le impostazioni del foglio?)
Un'altra cosa che non riesco a spiegarmi è perchè se includo delle
immagini a colori nel report mi vengono stampante in bianco e nero (la
stampante e relativo driver sono configurati correttamente).
grazie in anticipo,
Antonello.

 stampante e relativo driver sono configurati correttamente).
Non saprei ... nell'anteprima  le vedi a colori ?    se si probabilmente non
dipende da report pro
Enio Donci

dipende da report pro
Nell'anteprima sono a colori, clicco sulla stampantina dell'anteprima,
compare la dialog della stampante, do' "stampa" e le immagini vengono
in B/N
Stampando ad esempio un doc con WordPad contenente testo e immagine
viene a colori. C'č qualche impostazione che mi sfugge ?
Antonello.

Si.... probabilmente ha ragione l'amico Roberto, adesso che ci penso capitò
anche a me tempo fa. Prova così... fai l'anteprima di stampa. Poi premi la
stampantina e a questo punto ti dovrebbe apparire la dialog di windows
riguardo alla stampante, fai clic su Proprietà e controlla se la stampante e
settata a colori ecc...
ciao
Enio

,

Infatti funziona, ma perchè non prende in automatico le impostazioni
di stampa ? Per ogni report il RP si memorizza automaticamente le
impostazioni di stampa ?
Grazie dell'aiuto,
Antonello.



Si. Per cambiarle devi usare da programma la classe RpPrinter e
assegnarla alla proprieta' PrintingDevice di ReportPro.
-----------------------------
Fabio Cresta
EDP Consultant & VO/Jasmine developer ITALY
President of Clipper/Visual Objects/Jasmine User Group Italy
e-mail: 
fcr...@tin.it
 
fcr...@windevs.com
web: 
http://www.windevs.com
------------------------------

Newsgroup: it.comp.lang.vo-clipper
Titolo: Windows 3000

A chi è interessato alcune anteprima su Windows 3000 e Nuova assistenza
WordPerfect a :
http://space.virgilio.it/soft...@virgilio.it/
Danilo Giuliani

 
http://space.virgilio.it/soft...@virgilio.it/
:-))) Materiale vecchio ma sempre divertente. :-)))
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

Eh, eh, eh!
Newsgroup: it.comp.lang.vo-clipper
Titolo: [VO25a1] Problema di arrotondamenti

Ciao a tutti,
ho un piccolo problema che non so come risolvere
l'operazione
28,240 * 17.500                 restituisce  494.200
Ceil( 28,240 * 17.500 )     restituisce   494.201
Integer( 28,240 * 17.500 )     restituisce   494.200
il seguente codice č molto curioso
FUNCTION Prova()
LOCAL nTemp AS FLOAT
nTemp :=  28,240 * 17.500
IF nTemp > Integer( 28,240 * 17.500 )
    InfoBox{,AsAstring(nTemp - Integer( 28,240 * 17.500 ) )}:Show()  //
restituisce 0,00
ENDIF
Vorrei gestire correttamente i decimali per effettuare gli opportuni
arrotondamenti ma cosě non ci capisco niente.
Ciao e grazie

arrotondamenti ma così non ci capisco niente.
Hai provato con
IF nTemp > FLOAT( _CAST, 28,240 * 17.500 ) ?
Antonello.

 Integer( 28,240 * 17.500 )     restituisce   494.200
Se la funzione Integer() è equivalente alla Int() del Clipper allora
dovrebbe restituire 494, non 494.200.
EMG
PS. Spero che la virgola al posto del punto in 28,240 sia un errore di
battitura del messaggio...

 ha scritto nel messaggio
news:396B2003...@flashnet.it...


 No, non era un errore ma grazie ugualmente :-)))
Beh, in Clipper scrivere 28,240 come valore numerico è un errore di
sintassi. In VO no?
EMG
Newsgroup: it.comp.lang.vo-clipper
Titolo: Un grazie a tutti e le foto :-)

In particolare un sentito grazie a Danilo, Enio e a quanti hanno reso
possibile questa manifestazione. Speriamo che sia solo l'inizio di una
lunga serie.
Ne approfitto per comunicare che ho messo in linea un paio di foto
della giornata. Chi se le vuole scaricare le trova qui:
http://www.ipuddu.it/MyVoDay/
-- 
Ignazio GSS© * More than 90 HiRes images in my home page  
http://www.ipuddu.it
200 Images of digestive endoscopy
http://www.areamedica.com/Atlante/Atlante.htm

 ha scritto nel messaggio
news:31iom092thqe6q2i1...@4ax.com...


C'č un piccolo errore nel link alla home-page.
Corretto, grazie :-)
-- 
Ignazio GSSŠ * More than 90 HiRes images in my home page  

Newsgroup: it.comp.lang.vo-clipper
Titolo: Technical Meeting e MyVoDay2004

Grazie a tutti, per me č stata una bella soddisfazione ma soprattutto spero 
che sia stata una giornata utile per tutti.
Alla pagina 
http://www.softdevo.com/myvoday.htm
 potete vedere / scaricare le 
foto e le slides delle manifestazione.
Appena avrň altro materiale lo pubblicheremo.
Danilo 

 Danilo
Ciao,
Fabrizio Malaguti

P.S.
Ragazzi pensavo di non riuscirci piu' a rispondere al newsgroup.
praticamente sono riuscito ad inviarlo a tutti tranne che nel posto giusto
finalmente ora ci sono riuscito.
Fabrizio Malaguti

Newsgroup: it.comp.lang.vo-clipper
Titolo: Valid with Tbrowse

I tried that code to avoid dupicate entry with Tbrowse class . in the
Both cases of found() ot !found() I can see the entry is being rejected
.
FUNCTION mecolget(OBROWSE)
*------------------------
LOCAL Nmecolget
LOCAL OEDIT
LOCAL LREADEXIT:=READEXIT(.T.)
cseek:=0
DO WHILE .NOT. OBROWSE:STABILIZE()
ENDDO
SET CURSOR ON
Nmecolget:=OBROWSE:GETCOLUMN(OBROWSE:COLPOS)
OEDIT:=GETNEW(ROW(),COL(),Nmecolget:BLOCK,Nmecolget:HEADING)
OEDIT:postblock:= { |cu_acct| NODUPES(cu_acct)}
READMODAL ({OEDIT})
OBROWSE:REFRESHCURRENT()
SET CURSOR OFF
READEXIT(LREADEXIT)
IF        LASTKEY() == K_UP .OR. ;
	  LASTKEY() == K_DOWN .OR. ;
	  LASTKEY() == K_PGUP .OR. ;
	  LASTKEY() == K_PGDN
KEYBOARD CHR(LASTKEY())
ENDIF
IF LASTKEY() == K_RETURN .AND. OBROWSE:COLPOS < OBROWSE:COLCOUNT
OBROWSE:RIGHT()
ELSEIF LASTKEY() == K_RETURN .AND. OBROWSE:COLPOS == OBROWSE:COLCOUNT
OBROWSE:DOWN()
OBROWSE:PANHOME()
ENDIF
RETURN NIL
FUNCTION NODUPES(cu_acct)
*------------------------
do while .t.
dbSEEK (1->cu_acct)
IF found()
TONE(349,3)
@24,1 SAY "DUPLICATE ENTRY.TRY AGAIN "
a->cu_acct:=0
RETURN .F.
ELSE
RETURN .T.
exit
ENDIF
enddo
RETURN


Newsgroup: it.comp.lang.vo-clipper
Titolo: Problemi Clipper e W2K

Ho un problema con un cliente a cui sono stati aggiornati i PC.
Questo cliente utilizza un vecchio programma scritto con Clipper 5.01 e
compilato con Exospace (S.O. Window 2000).
Saltuariamente i dati non vengono scritti e ritorna un errore di Lock
Required quando esegue una Append Blank ,
oppure si trovano i database incasinati .
Qualcuno ha già riscontrato questo problema con W2K e Clipper 5.01 ?
Grazie a tutti dell'interessamento.
Ciao Alessandro.

 ha scritto nel
messaggio news:NpRz9.17665$Bs5.6...@news1.tin.it...



Anch'io con Clipper 5.2 non ho problemi nemmeno con XP professional ma 5.1
credo sia scritto con una versione di C
diversa da quella utilizzata per scrivere clipper 5.2 o mi sbaglio ? (che
sai questo il problema e sopratutto e' risolvibile ?)
Ciao Alessandro.

 ha scritto nel
messaggio news:nm5A9.19911$Bs5.7...@news1.tin.it...


 Roberto
Grazie comunque dell'interessamento.
Alessandro.

sai questo il problema e sopratutto e' risolvibile ?)
Tutte le versioni di Clipper dalla 5.0 alla 5.2e utilizzano le
librerie del Microsoft C 5.1.  Dalla 5.3 utilizzano le librerie del
Microsoft C 8.0 (AKA VisualC++ 1.0).
ciao, acc.   
a...@libero.it

 ciao, acc.   
a...@libero.it
Questo indica quindi che il problema risiede nella rete o nei PC ...
Grazie molte dell'informazione.
Ciao Alessandro

 ha scritto nel
messaggio news:hGnA9.3131$744.1...@news1.tin.it...


Newsgroup: it.comp.lang.vo-clipper
Titolo: append from

Come faccio a fare un append from con la seguente condizione clipper:
append from file.dbf for recno()== nRecord
in VO ho:
oDBServer1 sul cui record č posizionato il puntatore:
nRecord := oDBServer1:RecNo
e oDBServer2 che č "ZAPPATO"
dovrebbe essere cosě:
oDBServer2:AppendDB(oDBServer1,,oDBServer1:RecNO==nRecord,,,,)
ma mi appende tutto il file!
Un saluto a tutti.

 wrote in message
news:w_BD6.1212$ba7....@news1.tin.it...


come si fa?????


io ho fatto in questo modo:
    cFiltro := Str(nNBolla)
    cFiltro := "BOLLA = " + cFiltro
   oServerAPconse := DBServer{APConse.dbf,DBEXCLUSIVE}
   IF oServerAPconse:ErrInfo == NULL_OBJECT
         oServerAPconse:ZAP()
         oServerAPconse:AppendDB(Consegne.dbf,,cFiltro)
         oServerAPconse:Commit()
   ELSE
        oib := InfoBox{"ATTENZIONE","Non è stato possibile riservare il " +
;
         " file consegne - File consegne indisponibile" }
        oIb:Show()
  ENDIF
spero che questo esempio possa esserti d'aiuto.
                ciao  Giancarlo

grazie proverň

Newsgroup: it.comp.lang.vo-clipper
Titolo: Intendevo ORACLE 8 !!!
Newsgroup: it.comp.lang.vo-clipper
Titolo: R6003

I have an application which is running on Clipper5.1 and I have problem of
R6300 if I run it on computers quicker than 200Mz!
i have all the sorces but i do not know how to update my application.
I am ready to pay for someonr to fix it and Update it. I wil send the whole
application on CDs.
Please advise if anybody can help.
I am located in Israel and do not know anybody who can do it for me.
Tks in advance,
Avi Regev, General Manager

 R6300 if I run it on computers quicker than 200Mz!
I hope you have someone that can translate this for you from italian:
0) La mia applicazione ha sempre funzionato bene. Ora, facendola girare
   sui Pentium piu' veloci, mi da' l'errore "Runtime error r6003 integer
   divide by 0". Come mai? Come posso risolvere il problema?
R) La causa e' una divisione che viene fatta dalle Clipper Tools allo
   start-up del programma che ha al denominatore un valore calcolato in
   base alla velocita' del processore. Sui processori piu' veloci questo
   valore e' troppo piccolo ed ecco la divisione per zero.
   La soluzione sono alcune patch che si trovano in rete (su The Oasis -
 
http://www.the-oasis.net/
) come, ad esempio, il file __wait_b.obj per
   processori Cyrix e AMD e __wait_4.obj per Intel. Si deve scaricare il
   file 53a_bi.zip da 
http://www.the-oasis.net/ftp_ca.htm
. Questa e' la
   patch per Clipper 5.3 e tra i molti obj presenti c'e' anche
__wait_4.obj
   da linkare ai propri applicativi. Funziona anche con la 5.2e. La
   soluzione sembra che sia autorevole e definitiva dato che e' prodotta
   dalla CA stessa.
   In alternativa, se non si possiedono i sorgenti, si puo' provare a
   cercare nell'eseguibile (usando un qualunque editor esadecimale) la
   seguente sequenza di numeri
   B8 52 17 8B CA 33 D2 F7 F1
   sostituendola poi con
   B8 52 17 8B CA 33 D2 90 90
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