FiveTech Software tech support forums

@ nRow,nCol+150 GET aGet[4] VAR nPuntataIniziale SIZE 90,20 PIXEL OF oDlg FONT oFont SPINNER ON UP aGet[ 4 ]:VarPut( nPuntataIniziale+=0.50 ) ; ON DOWN aGet[ 4 ]:VarPut( nPuntataIniziale-=0.50 ) MIN 0,50 MAX 200 RIGHTTOLEFT @ nRow,nCol+150 GET aGet[4] VAR nPuntataIniziale SIZE ...

@ nRow,nCol+150 GET aGet[4] VAR nPuntataIniziale SIZE 90,20 PIXEL OF oDlg FONT oFont SPINNER ON UP aGet[ 4 ]:VarPut( nPuntataIniziale+=0.50 ) ;
ON DOWN aGet[ 4 ]:VarPut( nPuntataIniziale-=0.50 ) MIN 0,50 MAX 200 RIGHTTOLEFT

... ),),); )} If bAction != NIL @0,0 BUTTON oBtnAction PROMPT "" OF oDlg SIZE 12, 12 oBtnAction:bAction := {|| oGet:VarPut( Eval(bAction,uVar) ),; oDlg:End(), lOk := .T. } ENDIF * oGet:bValid := bValid * @10,0 BUTTON oBtn PROMPT "" ACTION (oDlg:End(), lOk:=.T. ...

... oDlg:aControls ):Cargo) endif dWork++ next next oDlg:Cargo := dDate ACTIVATE DIALOG oDlg CENTERED dSelect := oDlg:Cargo if oGet != NIL oGet:VarPut( If( oDlg:nResult == IDOK, dSelect, dDate ) ) oGet:Refresh() endif CLOSE FERIADOS return If( oDlg:nResult == IDOK, dSelect, ctod('//') ) //return ...

https://forums.fivetechsupport.com/viewtopic.php?f=3&t=41866&p=250982&hilit=VARPUT&sid=27d4ea68105bc15d0382336b5dad0003&sid=f37f8b30d578778fade8b08fa4a674a8#p250982

Saludos.

... of clipboard    testmail->(dbappend())    testmail->email = cText    obrwmail:refresh()return You can also use the varput and do it in Xbrowse itself Dear Friend. With FWH you do not have to write long code like this at all.

... of clipboard    testmail->(dbappend())    testmail->email = cText    obrwmail:refresh()return You can also use the varput and do it in Xbrowse itself

I tried this and seems to work

@ 10,60 get oGet Var cFirst OF oDlg update PIXEL SIZE 100,15;
valid( (oBrw:first:varput(cFirst),.t.,oBrw:refresh()),.t.)

oGet:bLostFocus :=<|o| end rest is not needed.
....

Giovany Vecchi wrote:Try like this:
oGet:VarPut( oCalendar:dDate )

?????????????????????????????????????????????????????????????????????????????????????????

not run Doubleclick!!!!

Try like this:
oGet:VarPut( oCalendar:dDate )

VARPUT()

Regards, saludos.

I use this to toggle a Logic field with F2 Key

oBrw[1]:bKeyDown := {| k | IF ( K == VK_F2, if(oBrw[1]:uitass:value = .f., oBrw[1]:uitass:Varput( .t. ), oBrw[1]:uitass:Varput( .F. ) ) , NIL ) }

If you use VarPut(), bOnChange also is executed and totals also get modified.
VarPut() is totally equivalent to user editing the data online.

... LEN(oBRWT2:aSELECTED) // obrw:aSELECTED is an array containing recnos marked (oBrwT2:cAlias)->(dbgoto(oBRWT2:aSELECTED[I])) oBrwT2:&nVeldID:Varput( mem_var ) NEXT

oBrw:NET:VarPut( nTotalTax )Not run ok oBrw:AMOUNT:VarPut( nTotalRow ) Not run ok The problem is that ndescount = undifined ?? and it failes at if ndescount > 0 if you comment them out, you get no error, but i'm sure that the ...