FiveTech Software tech support forums

... 50,9 PIXEL UPDATE;
VALID ;
Eval ( { || IF (CGET1 = 0 , (CGET2:=CGET2), .F. ),;
(CGET2,( CGET2:=CGET1*CGET0), oGET2:Refresh(),;
(CGET4,( CGET4:=CGET3*CGET0), oGET4:Refresh(),;
.T. )) } )

Al pasarlo a 32 el compilador arroja el siguiente error:" Warning W0027 Meaningless use of expression ...

... POPUP ) PIXEL;
COLOR aCOLOR(19),aCOLOR(18)

@ 1, 1 get oGet1 var cGet1 picture '@!'
@ 1,10 get oGet2 var cGet2 picture '@R'
@ 1,40 get oGet3 var cGet3 picture '@S20'
etc...

@ (nBot-nTop)-2,(nDer-nIzq)/2-71 SBUTTON oBtn[1] PROMPT '&Aceptar' RESOURCE 'GOSEMA','GOSEMV' OF oDLG(1);
ACTION ( lSalir ...

... DRAWBOX( 0, 0, hDC, 0, 0, 0, 0) ), NIL) }
oGet2:bGotFocus := { |hDC| nPos := 2, oGet1:Refresh(), oGet3:Refresh() }

REDEFINE GET oGET3 VAR cGET3 ID 270 OF oDlg UPDATE
oGet3:bPainted := { |hDC| IIF( nPos = 3, ( DRAWBOX( 0, 0, hDC, oGet3:nWidth-5, oGet3:nHeight-5, 3, 128 ), ;
DRAWBOX( 0, 0 ...

... TGET no me actualiza el valor de la variable del TGET, me muestra el vañlor anterior de la Varible TGET. En el ejemplo el cGet2 si cambia Pero el cGet3 no, como puedo actualizar el cGet3.


FUNCTION main()

LOCAL oDlg, oGet1, oGet2, oGet3, oBtn1, oBtn2, oBtn3, cGet1, cGet2, cGet3
LOCAL ...

... Ein einfaches Beispiel :

Obj Var Reihenfolge ID-Nr.
-----------------------------------------
oGet1 cGet1 1 110
oGet2 cGet2 2 120
oGet3 cGet3 3 130

oBtn1 4 1
obtn2 5 2

Ein ganz normaler Dialog.
Drücke ich nun in cGet1 < RETURN >
erwarte ich natürlich das cGet2 den nächsten Focus ...

... Dialog from Resources
as a sample with 3 Gets and 2 Buttons
The resource looks like :

Obj Var Order ID

oGet1 cGet1 1 110
oGet2 cGet2 2 120
oGet3 cGet3 3 130

oBtn1 4 1
oBtn2 5 2

When I Press < RETURN > in cGet1,
oBtn1 gets the Focus not cGet2
In the ressource the order is ok ( 1 to 5 like in ...

Prueba asi:

funct validar()
total+=cget2*cget3
oGet5:oJump = oGet3
return .t.

... get oget1 var cget1 id 101 of odlg picture '9999999.99'
redefine get oget2 var cget2 id 102 of odlg picture '9999999.99'
redefine get oget3 var cget3 id 103 of odlg picture '9999999.99'
redefine get oget4 var cget4 id 104 of odlg picture '9999999.99'
redefine get oget5 var cget5 id 105 of ...

... en pressing TAB, cursor goes to oGet2

*/

#include "FiveWin.ch"

Function wfMain()
LOCAL oDlg
LOCAL oGet1, oGet2, oGet3
LOCAL cGet1, cGet2, cGet3:=""

cGet1:="Change this text en press Enter"
cGet2:="Change this text en press Enter"

DEFINE DIALOG oDlg TITLE "Test" FROM 0, 0 TO 300,400 ...