chiarimenti su FWPPC

[xfood]

ciao a tutti,
vi volevo chiedere un paio di cose:

1) quanti file dbf possono essere aperti in FWPPC
e quindi quante aree di lavoro attive
(in clipper ricordo che erano massimo 9)


2) esiste una funzione tipo visual foxpro wait windows ?
io spesso utilizzi inviare a video i messaggi delle varie
operazioni che si stanno compiendo per esempio:

wait windos "Apertura file dbf CLIENTI.DBF" NOWAIT
USE CLIENTI IN 0 AGAIN ALIAS CLIENTI

wait windos "Apertura file dbf COMUNI.DBF" NOWAIT
USE COMUNI IN 0 AGAIN ALIAS COMUNI
ECC.
posso utilizzare una funzione simile?

Grazie mille a tutti

[Enrico Maria Giordano]

1) quanti file dbf possono essere aperti in FWPPC

Non credo ci sia un limite. Dipende dal sistema operativo.

e quindi quante aree di lavoro attive
(in clipper ricordo che erano massimo 9)

Mi pare siano 256.

2) esiste una funzione tipo visual foxpro wait windows ?

Non sono sicuro sia (ancora) implementata in FWPPC ma prova con MsgRun().

EMG

[xfood]

WAHOOOOO
POSSO USARE 256 AREE DI LAVORO?????

CIOAO POSSO SCRIVERE SELECT 100
USE CLIENTI
ANCHE IN FWPPC?

BELLISSIMO........

SE E' COSI CONFERMAMELO PER FAVORE GRAZIE MILLE

[Enrico Maria Giordano]

Veramente io l'ho sempre fatto anche in Clipper.

EMG

[xfood]

grazie,
devo settare una qualche variabile x gestire tutte queste aree di lavoro?


p.s. esiste una funzione che mi permette di inserire un valore?
esempio in vfp esisteva una funzione chiamata
nValoreIniziale='001'
nValore=inputbox('inserimento',nvaloreIniziale,'inserisci qui un valore)

o devo creare una dialog con un solo get?
grazie mille sto finalmente cercando di realizzare il progetto per cui
ho acquistato la FWPPC

[Enrico Maria Giordano]

devo settare una qualche variabile x gestire tutte queste aree di lavoro?

No.

p.s. esiste una funzione che mi permette di inserire un valore?

MsgGet()

EMG

[xfood]

scusatemi,
ho questo pezzettino di codice
@ 43, 2 SAY aCtl[ 6 ] PROMPT "DATA:" OF oDlg ;
FONT aFonts[ 2 ] UPDATE ;
COLORS CLR_BLACK, CLR_WHITE SIZE 36, 10 PIXEL
siccome lo sto utilizzando su un palmare
esiste il modo per uscire da questo campo
premendo il tasto invio del terminale?

esce solo se premo il tasto TAB ma sul terminale è molto scomodo
grazie mille a tutti

[xfood]

HELP HELP HELP
cortesemente esiste una soluzione per il problema riportato sopra questo post?


Grazie mille a tutti

[Enrico Maria Giordano]

Il problema non è chiaro. Nell'esempio indichi una SAY che, ovviamente, non ha la possibilità di avere il focus. Se hai sbagliato esempio e intendevi una GET allora puoi provare con

Code: Select all  Expand view  RUN

oGet1:bKeyDown = { | nKey | If( nKey = VK_RETURN, oGet2:SetFocus(), ) }

EMG

[xfood]

Grazie mille,
hai centrato il problema
non so come mai quel codice sia finito male,
avro fatto un copia/incolla errato

il codice era + o - questo
@ 2, 2 DTPICKER oget1 var dDate OF oWnd
e il tuo suggerimento e OKKKKKK
Grazie mille ENRICO

finalmento il mio programmino comincia a prendere forma
cerchero di stressarvi il meno possibile

p.s. se io ho il mio palmare collegato al pc via usb con active sync,
esiste un modo per copiare direttamente un file dal palmare al pc?
per esempio un bottono che clikko invia dati a pc e mi copia il file
interessato in una cartella del pc

Grazie mille non so come avrei fatto senza di voi e sopratutto
di ENRICO MARIA GIORDANO

[xfood]

scusatemi,
ma non riesco a capire

ho questo codice che sembrava funzionare ma invece.....

DEFINE DIALOG oDlg FROM 0, 0 TO 190, 230 PIXEL ;
COLORS CLR_BLACK, CLR_WHITE ;
TITLE "Inserimento Dati"

@ 42, 49 DTPICKER aCtl[ 5 ] VAR NDATA OF oDlg ;
FONT aFonts[ 2 ] ;
COLORS CLR_HGREEN, nRGB( 240, 248, 255 ) SIZE 67, 11 PIXEL
aCtl[ 5 ]:bKeyDown = { | nKey | If( nKey =13, aCtl[ 7 ]:SetFocus(), ) }

@ 66, 17 BUTTON aCtl[ 7 ] PROMPT "&Accetta" OF oDlg ;
FONT aFonts[ 1 ] SIZE 76, 26 PIXEL UPDATE ;
ACTION ODLG:END()

ACTIVATE DIALOG oDlg CENTERED ;
VALID ( Aeval( aFonts, { |o| o:End() } ), .T. )

sul campo data il primo esce solo se premo il tasto TAB e non esce dal controllo se premo invio perche??????????
dovè l'errore?????

grazie mille

[Enrico Maria Giordano]

Sostituisci il SetFocus() con un MsgInfo() per vedere se effettivamente quella parte viene eseguita.

EMG

[xfood]

ti invio tutta la procedurina completa,
su windows cee 5.0 il controllo DTPICKER
esce solo con il tasto Tab e se premo invio in questo
caso non mi spunta il messaggio perchè?????
Grazie mille anticipatamente



#include "FWCE.ch"

//----------------------------------------------------------------------------//

function Main()

Local oDlg, aCtl[ 7 ], aFonts[ 2 ]
Local aLoc[ 3 ]
Local oBottone,oData

FORNITORE=SPACE(5)
NUMERO=SPACE(5)
NDATA=DATE()




DEFINE FONT aFonts[ 1 ] NAME "MS Sans Serif" SIZE 0, -13 BOLD
DEFINE FONT aFonts[ 2 ] NAME "Arial" SIZE 0, -16 BOLD
* 200 239
DEFINE DIALOG oDlg FROM 0, 0 TO 190, 230 PIXEL ;
COLORS CLR_BLACK, CLR_WHITE ;
TITLE "Inserimento Dati"

@ 8, 49 GET aCtl[ 1 ] VAR FORNITORE OF oDlg ;
FONT aFonts[ 2 ] UPDATE ;
COLORS CLR_HGREEN, nRGB( 240, 248, 255 ) SIZE 57, 11 PIXEL

@ 9, 2 SAY aCtl[ 2 ] PROMPT "FORN.:" OF oDlg ;
FONT aFonts[ 2 ] UPDATE ;
COLORS CLR_BLACK, CLR_WHITE SIZE 36, 12 PIXEL

@ 25, 49 GET aCtl[ 3 ] VAR NUMERO OF oDlg ;
FONT aFonts[ 2 ] UPDATE ;
COLORS CLR_HGREEN, nRGB( 240, 248, 255 ) SIZE 57, 11 PIXEL

@ 26, 2 SAY aCtl[ 4 ] PROMPT "N.DOC:" OF oDlg ;
FONT aFonts[ 2 ] UPDATE ;
COLORS CLR_BLACK, CLR_WHITE SIZE 36, 10 PIXEL


*DTPICKER
@ 42, 49 DTPICKER aCtl[ 5 ] VAR NDATA OF oDlg ;
FONT aFonts[ 2 ] ;
COLORS CLR_HGREEN, nRGB( 240, 248, 255 ) SIZE 67, 11 PIXEL
aCtl[ 5 ]:bKeyDown = { | nKey | If( nKey =13, msginfo('io'), ) }

@ 66, 17 BUTTON aCtl[ 7 ] PROMPT "&Accetta" OF oDlg ;
FONT aFonts[ 1 ] SIZE 76, 26 PIXEL UPDATE ;
ACTION ODLG:END()
ACTIVATE DIALOG oDlg CENTERED ;
VALID ( Aeval( aFonts, { |o| o:End() } ), .T. )

return nil

[xfood]

help help help
QUALCUNO MI AIUTI


GRAZIE DI ESISTERE A TUTTI