FiveTech Software tech support forums

... 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: ...

... = 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: ...

... If( 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 cDefaultMsg ...

... 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: => ...

... := 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

... 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 => ...

... 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) ...

... 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 ...

... give as 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() , ...

... if ! 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() ...