chiarimenti su FWPPC

Moderator: Enrico Maria Giordano

chiarimenti su FWPPC

Postby xfood » Tue Jul 08, 2008 6:03 am

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
xfood
 
Posts: 96
Joined: Tue Jun 17, 2008 9:02 pm

Re: chiarimenti su FWPPC

Postby Enrico Maria Giordano » Tue Jul 08, 2008 8:30 am

xfood wrote:1) quanti file dbf possono essere aperti in FWPPC


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

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


Mi pare siano 256.

xfood wrote:2) esiste una funzione tipo visual foxpro wait windows ?


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

EMG
User avatar
Enrico Maria Giordano
 
Posts: 8243
Joined: Thu Oct 06, 2005 8:17 pm
Location: Roma - Italia

Postby xfood » Tue Jul 08, 2008 8:43 am

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
xfood
 
Posts: 96
Joined: Tue Jun 17, 2008 9:02 pm

Postby Enrico Maria Giordano » Tue Jul 08, 2008 8:44 am

Veramente io l'ho sempre fatto anche in Clipper.

EMG
User avatar
Enrico Maria Giordano
 
Posts: 8243
Joined: Thu Oct 06, 2005 8:17 pm
Location: Roma - Italia

Postby xfood » Tue Jul 08, 2008 9:22 am

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
xfood
 
Posts: 96
Joined: Tue Jun 17, 2008 9:02 pm

Postby Enrico Maria Giordano » Tue Jul 08, 2008 10:25 am

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


No.

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


MsgGet()

EMG
User avatar
Enrico Maria Giordano
 
Posts: 8243
Joined: Thu Oct 06, 2005 8:17 pm
Location: Roma - Italia

Postby xfood » Tue Jul 08, 2008 10:28 am

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
 
Posts: 96
Joined: Tue Jun 17, 2008 9:02 pm

Postby xfood » Tue Jul 08, 2008 3:09 pm

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


Grazie mille a tutti
xfood
 
Posts: 96
Joined: Tue Jun 17, 2008 9:02 pm

Postby Enrico Maria Giordano » Tue Jul 08, 2008 5:58 pm

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
oGet1:bKeyDown = { | nKey | If( nKey = VK_RETURN, oGet2:SetFocus(), ) }


EMG
User avatar
Enrico Maria Giordano
 
Posts: 8243
Joined: Thu Oct 06, 2005 8:17 pm
Location: Roma - Italia

Postby xfood » Tue Jul 08, 2008 6:43 pm

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
 
Posts: 96
Joined: Tue Jun 17, 2008 9:02 pm

Postby xfood » Wed Jul 09, 2008 10:02 am

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
xfood
 
Posts: 96
Joined: Tue Jun 17, 2008 9:02 pm

Postby Enrico Maria Giordano » Wed Jul 09, 2008 12:32 pm

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

EMG
User avatar
Enrico Maria Giordano
 
Posts: 8243
Joined: Thu Oct 06, 2005 8:17 pm
Location: Roma - Italia

Postby xfood » Wed Jul 09, 2008 4:43 pm

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 :arrow: :arrow: :arrow: :cry:
@ 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
 
Posts: 96
Joined: Tue Jun 17, 2008 9:02 pm

Postby xfood » Wed Jul 09, 2008 6:32 pm

help help help
QUALCUNO MI AIUTI


GRAZIE DI ESISTERE A TUTTI
xfood
 
Posts: 96
Joined: Tue Jun 17, 2008 9:02 pm


Return to All products support

Who is online

Users browsing this forum: No registered users and 6 guests