FiveTech Software tech support forums

... aGet[4]:cText,",","."))), aGet[4]:Refresh(),aGet[4]:SelectAll()) }


Error description: Error BASE/1073 Argument error: <
Args:
[ 1] = C 0.75
[ 2] = N 0

Stack Calls
===========
Called from: ../../../tget.prg => TCLIPGET:PUTMASK( 0 )
Called from: ../../../tget.prg => TCLIPGET:UPDATEBUFFER( 0 )

Stack Calls
===========
Called from: ../../../tget.prg => TCLIPGET:PUTMASK( 0 )
Called from: ../../../tget.prg => TCLIPGET:UPDATEBUFFER( 0 )

The error is with Harbour's Get. Not fivewin's TGet.
This is because Harbour's Get does not allow changing the type of variable during runtime.

... 1] = C
[ 2] = N 0

Stack Calls
===========
Called from: ../../../tget.prg => TCLIPGET:PUTMASK(0)
Called from: ../../../tget.prg => TCLIPGET:UPDATEBUFFER(0)
Called from: .\source\classes\TGET.PRG => (b)TGET(161)
Called from: .\source\classes\TGET.PRG => TGET:REFRESH(0)
Called from: .\estanter ...

... C Don
[ 2] = N 0

Stack Calls
===========
Called from: ../../../tget.prg => TCLIPGET:PUTMASK(0)
Called from: ../../../tget.prg => TCLIPGET:UPDATEBUFFER(0)
Called from: .\source\classes\TGET.PRG => (b)TGET(144)
Called from: .\source\classes\TGET.PRG => TGET:REFRESH(0)
Called from: e:\aba\aba5 ...

... nStyle==0 .and. nCol==2, ;
CLR_YELLOW, ) }

oLbx:lAdjLastCol := .F.
oLbx:nLineStyle := 2
oLbx:bSeek := {|lRet| oLbx:DbfSeek(.T.) }
oLbx:bUpdateBuffer:= {|| UpdateBuffer( oWnd:oMsgBar, ;
cDefaultMsg, oLbx:cBuffer ) }
oLbx:nLineHeight*= 2
oLbx:nHeaderStyle:= 2

SET MESSAGE OF oWnd TO ...

... numérico a alfanumérico y de picture '999999' a '!!!!!!'.

El error se da en:
Called from: => TCLIPGET:PUTMASK(1187)
Called from: => TCLIPGET:UPDATEBUFFER(244)
Called from: c:\desarrol\treball\Ampa0903\prg\TGET.PRG => (b)TGET(149)
Called from: => TJ02GET01:REFRESH(0)
Called from: => TJ02GET01 ...

... cColorSpec, ::Display(), Self
METHOD KillFocus()
METHOD Reset()
METHOD SetFocus()
METHOD Undo()
METHOD UnTransform( cBuffer )
METHOD UpdateBuffer() INLINE if( ::hasfocus, ( ::buffer := ::PutMask( ::VarGet() ), ::Display() ), ), Self
METHOD VarGet()
METHOD VarPut(xValue, lReFormat ...

resolvido assim:


obRRW:bChange := {|o| UpdateBuffer( oWnd:oMsgBar, cDefaultMsg, cvaltochar( o:cSeek ) ) }


obrigado Rossine

Resolvido assim:


obRRW:bChange := {|o| UpdateBuffer( oWnd:oMsgBar, cDefaultMsg, cvaltochar( o:cSeek ) ) }


Obrigado Rossine!

Amigos, com a TWBROWSE eu utilizava:

obRW:bUpdateBuffer:= {|| UpdateBuffer( oWnd:oMsgBar, cDefaultMsg, oBRW:cBuffer ) }

Para mostrar o conteudo do buffer de pesquisa na MSGBAR, mais no xbrowse como posso obter o mesmo resultado?


Muito obrigado

SGS

... MCSPSFGMENORES(111)
Called from: tget.prg => TCLIPGET:VARGET(845)
Called from: tget.prg => (b)GET:GET(131)
Called from: tget.prg => TCLIPGET:UPDATEBUFFER(0)
Called from: TGET.PRG => TBTNGET:LOSTFOCUS(0)
Called from: CONTROL.PRG => TBTNGET:KILLFOCUS(0)
Called from: CONTROL.PRG => TCONTROL ...

... 1073 Argument error: <
Args:
[ 1] = C
[ 2] = N 0

Stack Calls
===========
Called from: => TCLIPGET:PUTMASK(1757)
Called from: => TCLIPGET:UPDATEBUFFER(236)
Called from: .\source\classes\TGET.PRG => (b)TGET(0)
Called from: => TGET:REFRESH(0)
Called from: .\c4.prg => (b)FORM6NEW(6229)
Called ...

... bla bla...
REDEFINE LISTBOX oBrs ;
FIELDS (oDCli)->Nombre, (oDCli)->Codigo bla bla bla ....

oBrs:bSeek := {|lRet| oBrs:DbfSeek(.T.) }
oBrs:bUpdateBuffer:= {|| UpdateBuffer( oDls:oMsgBar, ;
cDefaultMsg, oBrs:cBuffer ) }

ACTIVATE DIALOG oDls CENTERED;
ON INIT MsgBarra(oDls,cDefaultMsg)

STAT ...

... difference :
if ! Empty( ::cPicture ) .and. ::oGet:type == "N"
//tracelog(::Varget())
::oGet:Assign()
::oGet:Picture := ::cPicture
::oGet:UpdateBuffer()
::oGet:KillFocus()
endif

::oGet:SetFocus() // to avoid oGet:buffer be nil

# ifdef TEST
trace( ::oGet:changed , ::oGet:unTransform ...

... Empty( ::cPicture ) .and. ::oGet:type == "N"
trace(::Varget() , ::lPassword , GetWindowText( ::hWnd ) , ::oGet:buffer)
end
# endif
::oGet:UpdateBuffer()
endif

::varget() is changed from negative to positive after ::oGet:Assign()

Where is this method ? In tget i see only :

METHOD Assign ...