FiveTech Software tech support forums

Silvio, I think the error is caused for this:

The code You show is: len(rtrim(oGet:oGet:varGet())-1)
I think the correct way is: len( rtrim(oGet:oGet:varGet()) )-1
Regards.

@ 1.3,1 BUTTON oBtn PROMPT "<-" OF oDlg ACTION(oGet:oGet:varPut(left(oGet:oGet:varGet(),len(rtrim(oGet:oGet:varGet())-1)))) FONT oFont SIZE 38,10 You left out the oGet:refresh(). @ 1.3,1 BUTTON oBtn PROMPT "<-" OF oDlg ACTION(oGet:oGet:varPut(left(oGet:oGet:varGet(),len(rtrim(oGet:oGet:varGet())-1)))) ...

I made a button "<-" command with the ACTION ACTION (oGet:oGet:varPut(left(oGet:oGet:varGet(),len(rtrim(oGet:oGet:varGet())-1)))) I have a Get oGet and a GEt oRes if you see msgcalc() function perhaps you understand I put thi command insteas of btnpaste button ...

Maybe something like:

oGet:oGet:varPut(left(oGet:oGet:varGet(),len(rtrim(oGet:oGet:varGet())-1)))

Note that FW's TGet class contains an oGet object thus the syntax oGet:oGet.

Regards,
James

... IsColorPrinter(), thanks to Günther: http://forums.fivetechsupport.com/viewtopic.php?p=142409#p142409 * Fix: Class TComboBox Method Set() and VarGet() were not considering if an editable ComboBox was being used: http://forums.fivetechsupport.com/viewtopic.php?p=142457#p142457 * New: function ...

... 70 PIXELS ; COLOR If( Stok->BAKIYE < 0, CLR_RED, CLR_BLACK), {||CLR_GREEN } ; MESSAGE "Enter a negative number" ; VALID {|o| o:varGet() >= 0} ; ERROR MESSAGE "Value must be"+CRLF+"positive or 0" Best Regards Uwe :lol:

... friends, In the first get oget1: If I press "/" the cursor must jump to the next object without KV_TAB pressed ( or VK_RETURN ) and oget:varget ==>>>> "/ " Please need help! marco #include "fivewin.ch"FUNCTION MAIN() LOCAL oDlg LOCAL oGet1 , cGet1 ...

... GET >2. I don't understand what you mean here. What is the problem ? If I click in a GET cursor position has to be adapted to the ALLTRIM( oget:varget() ) that ias at the end of the last character >3. Here it is working fine. I select the two lines of your example and then paste them in UEStudio ...

... Static Function fAddAttach( oGet ) Local cFile, ; cAttach := oGet:VarGet() cFile := cGetFile( "*.*", "Selecciona el archivo" ) If ! Empty( cFile ) cAttach := Lower( PadR( AllTrim( cAttach ) + If( ...

... a los DATA y METHOD de la clase. Sin embargo si se trata de minimizar código, yo haría algo genérico como esto:      Eval( ::bCodeBlock>, ::VarGet(), Self, ::oWnd, <uparam..>, <Uparam..> )  - Coloco primero VarGet(), porque normalmente es con lo que mas se trabaja ...

... work for character fields only. The feature will be extended to other data sources gradually. Sample: \fwh\samples\xbincflt.prg (b) New methods VarGet() and VarPut(x) in TXBrwColumn class. VarGet() is equivalent to oCol:Value. VarPut(x) assigns new value to the cell as if a value is entered ...

... work for character fields only. The feature will be extended to other data sources gradually. Sample: \fwh\samples\xbincflt.prg (b) New methods VarGet() and VarPut(x) in TXBrwColumn class. VarGet() is equivalent to oCol:Value. VarPut(x) assigns new value to the cell as if a value is entered ...

... VAR cTipuConc ITEMS ArTipConLit( AMPAarra ) SIZE ; 430,500 OF oConcep01 ON CHANGE ( oTDbfConcep:TipuConc := nSetTipuConc(AMPAarra, ; oTipuConc:VarGet() ), If( ("/" + Str(oTDbfConcep:TipuConc,2,0) + "/" ) $ ; "/10/11/12/13/", nCostat := 1, nCostat := nCostatori ...

... ::cMsg ) cMsg := If( Valtype( cMsg ) == "B", Eval( cMsg, Self, ::nCell ), cMsg ) ::SetMsg( cMsg ) Return Nil EndIf uValue := oCol:oEdit:VarGet() If oCol:bCustomEdit != Nil uValue := Eval( oCol:bCustomEdit, uValue, oCol:oEdit, Self ) EndIf If ::lAppendMode .and. Empty( oCol:oEdit:VarGet() ...

... "&Close"; ACTION oDlg:End() @ 3, 8.5 BUTTON "&Date"; ACTION ( oGet:LostFocus(), ; oGet:SetFocus(), ; cTemp := oGet:varGet(), ; cStr := dtoc(date())+' '+Time()+' ', ; oGet:varPut( substr( cTemp, 1, oGet:nPos) + cStr + substr(cTemp, oGet:nPos) ), ; oGet:Refresh(), ...