FiveTech Software tech support forums

... we may use oGet:VarPut() or oGet:cText := ... example: oCol:bEditValid := { |oGet| MyValidFunc( oGet ) } func MyValidFunc( oGet ) if oGet:oGet:VarGet() .... oGet:cText := <replace> endif return .t. If we want to modify another field consequent on a user input in a column we may use oCol:bOnChange ...

... !!!... can I set the valid clausole on second moment on another function when show() the get ? I tried with aGet[11]:bvalid :={|o| ! Empty(o:varGet()) } but make error the user can use the xbrowse ( the obrw is on up) or the other buttons allready tried with bPostKey

... := "Select * from VENDAS Where COD_CLIENTE == _CodigoCliente_" oDs_MyQuery:DsAddVar("_CodigoCliente_",{||oDb_Clientes:VarGet("CODIGO")}) Do While !oDb_Clientes:Eof() oDs_MyQuery:DsExecute() oDb_Clientes:Skip() EndDo Repositorio de tAds https://tads-class-for-harbour.googlecode.com/svn/trunk

... eso cuando detecta en un campo numérico que se escriba el carácter `-` Puedes probar asi @ nf, nC GET oGet VAR nGet .... ; VALID (if( oGet:VarGet() < 0, (oGet:SetColor( CLR_HRED, CLR_WHITE ),oGet:Refresh(), .T.), .T. )) Aunque si funciona, yo crearía una función pasando el objeto get ...

... eso cuando detecta en un campo numérico que se escriba el carácter `-` Puedes probar asi @ nf, nC GET oGet VAR nGet .... ; VALID (if( oGet:VarGet() < 0, (oGet:SetColor( CLR_HRED, CLR_WHITE ),oGet:Refresh(), .T.), .T. )) Aunque si funciona, yo crearía una función pasando el objeto get ...

... modified this line of your code: @ 40, 48 DTPICKER oGet[3] VAR dDat OF oDlg SIZE 60, 10 VALID ( MsgBeep(), .T. ) /* MyValid(oGet[3],'YEAR(oGet:Varget())=2013') */ PIXEL and the beep seems to be fine. Could you please test it and check how to reproduce the problems that you describe ? thanks ...

... modified this line of your code: @ 40, 48 DTPICKER oGet[3] VAR dDat OF oDlg SIZE 60, 10 VALID ( MsgBeep(), .T. ) /* MyValid(oGet[3],'YEAR(oGet:Varget())=2013') */ PIXEL and the beep seems to be fine. Could you please test it and check how to reproduce the problems that you describe ? thanks

... a get should give a msgerror when VALID is used as @ 1, 6 GET oGet VAR cCad OF oDlg SIZE 60, 10 PICTURE "@K" VALID MyValid(oGet,'oGet:Varget()="T"') (see example) 2) The OK button has a when-clausule as @ 3, 7 BUTTON "&Ok" OF oDlg SIZE 30, 12 ACTION oDlg:End() ...

... SetWindowText( ::hWnd, Replicate( If( IsAppThemed(), Chr( 149 ), "*" ),; Len( Trim( ::oGet:buffer ) ) ) ) #endif else If Empty( ::oGet:VarGet()) .and. Empty(::oGet:buffer) SetWindowText( ::hWnd, If( ! Empty( ::cCueText ); .and. Empty( ::oGet:VarGet() ),; "", ::oGet:buffer ...

Antonio, here are still a logical call to ::oGet and should removed! METHOD VarGet() CLASS TComboBox local cRet, nAt := ::SendMsg( CB_GETCURSEL ) if nAt != CB_ERR ::nAt = nAt + 1 cRet := If( ::oGet == nil, ::aItems[ nAt + 1 ], ::oGet:GetText() ) //::OGET!!! else ...

... work just fine in earlier versions of my system before I upgraded FWH/Harbour. Is there a better way of testing for an empty field? I've oSS_Num:VarGet() and oSS_Num:Value() both methods test as empty. VALID ( if (empty(cSS_Num ) , .F., .T. )) ; So I work my

... work just fine in earlier versions of my system before I upgraded FWH/Harbour. Is there a better way of testing for an empty field? I've oSS_Num:VarGet() and oSS_Num:Value() both methods test as empty.

... Trade\Versao9.0\Source\DlgVenda.prg => DETALHEPRODUTO(17114) oGt[4]:cPicture := cMascara oGt[4]:oGet:Picture := cMascara oGt[4]:oGet:VarGet() // not sure about this one oGt[4]:oGet:SetText( oGt[4]:oGet:buffer ) //-- 17114

Try this:

Procedure ChangePicture()
cMascara := "999,999.99"
oGt[4]:cPicture := cMascara
oGt[4]:oGet:Picture := cMascara
oGt[4]:oGet:VarGet() // not sure about this one
oGt[4]:oGet:SetText( oGt[4]:oGet:buffer )

... will try just copy & paste it from my original example you will find that it IS working. My line: ACTION (oGet:oGet:varPut( left( oGet:oGet:varGet(),len( rtrim(oGet:oGet:varGet()) )-1) ), oGet:refresh() ) and your retyped line: ACTION (oGet:oGet:varPut( left( oGet:oGet:varGet(),len( rtrim(oGet:oGet:varGet()) ...