FiveTech Software tech support forums

JoséQuintas

Another thing is a visible bug on xbrowse.

xControl:bSkip := {| n | ( xControl:cAlias )->( DbSkipper( IfNil( n, 1 ) ) ) }

Xbrowse requires to skip NIL records.
When xbrowse requires NIL records, it is needed to change to 1.

METHOD Skip( n ) CLASS TXBrowse

local nStart
local nSkipped ...

JoséQuintas

Extra comment:

May be this expains why a external database works, and internal may not.
As example using mysql.

Internal

WITH OBJECT xbrowse
:bGoTop := { || :Rs:MoveFirst() } // may use wrong object, anything:Rs:MoveFirst()
ENDWITH

External

WITH OBJECT xBrowse
:bGoTop := RS:MoveNext ...

JoséQuintas

Yes
It is it !
Harbour behaviour using WITH OBJECT !
Check this code:

#include "hbclass.ch"

PROCEDURE Main()

LOCAL a, b, x

SetMode(30,100)
CLS

a := AnyClass():New()
b := AnyClass():New()

WITH OBJECT a
:Value := 10
x := { || :Value } // created here, seems a:Value
ENDWITH
WITH ...

JoséQuintas

On a first momment anything is wrong.

WITH OBJECT xControl
:SetRdd()
:bGoTop := {|| ( :cAlias )->( DbGoTop() ) }
:bGoBottom := {|| ( :cAlias )->( DbGoBottom() ) }
:bSkip := {| n | ( :cAlias )->( DbSkipper( IfNil( n, 1 ) ) ) }
:bBof := {|| ( :cAlias )->( Bof() ) }
:bEof := {|| ( :cAlias ...

JoséQuintas

XBrowse automatically generates all navigation codeblocks internally and correctly for all known datasources like arrays, hashes, dbf, ado-recordsets and all other known classes.
Please do not write our own navigation codeblocks.

Yes, for a standard navigation.
What to do when I need a not ...

JoséQuintas

https://i.postimg.cc/rwfBf0pC/xbrowse.png

Using DBF.
When define a codeblock for skip, xbrowse update fail.

@ 70, 10 XBROWSE xControl ;
DATASOURCE Alias() ;
SIZE nDlgWidth - 24, nDlgHeight - 100 PIXEL ;
OF xDlg ;
ON DBLCLICK ( (nRow), (nCol), (nFlags), FWBrowseENTER( xDlg, xControl ...

JoséQuintas

Found on TSay manual l3D

Code: Select all | Expand

   @ 10, nCol SAY xLabel VAR cFilter OF xDlg PIXEL ;
      SIZE 500, nRowSize FONT oFont COLOR CLR_BLACK, CLR_WHITE TRANSPARENT BORDER
   xLabel:l3D := .F.

How to do a FLAT BORDER ?

JoséQuintas

:bKeyDown := { | nKey | FWBrowseKey( xDlg, xControl, nKey, ... ) }

CASE IsRange( nKey, 32, 127 )
cFilter += Upper( Chr( nKey ) )

If type letters ok
if type numbers from normal keyboard ok
if type numbers from numeric keyboard not
Is it expected ?

Note:
1 from normal keyboard returns ...

JoséQuintas

Code: Select all | Expand

      :bKeyDown := { | nKey | FWBrowseKey( xDlg, xControl, nKey, ... ) }

Code: Select all | Expand

   CASE IsRange( nKey, 32, 127 ) 
      cFilter += Upper( Chr( nKey ) )

If type letters ok
if type numbers from normal keyboard ok
if type numbers from numeric keyboard not
What to do about this?

JoséQuintas

Thanks.

A good option would be an interface like Navigator (Edge/Chrome/Text Editor) with the dialogs.
Not sure if this can be done with folderex, inserting any dialog as part of folderex.

JoséQuintas

I have this error on some situations:

1) On machine with ODBC 3.51
Same query ok on ODBC 5.3 returns that message on ODBC 3.51

2) When update from MySQL 5.6 TO 5.7
I was using INNER JOIN between INT and VARCHAR ( 1 and 0000001 ), this was ok on 5.6.
From 5.7 this is a problem, that requires ...

JoséQuintas

ALL OF THIS POST TOGETHER

Remembering that I use GTWVG as primary library.
This is ONE OF my browse calls, change one column for FIVEWIN:

METHOD GridSelection( nType ) CLASS JPCADASTROClass

LOCAL oTBrowse, cnSQL := ADOLocal()

hb_Default( @nType, 0 )

WITH OBJECT cnSQL
:cSQL := "SELECT ...

JoséQuintas

I can't discuss this with you. When you have a powerful DEMO in FIVEWIN,

Do you understand that this is a FIVEWIN module ?

#include "fivewin.ch"

PROCEDURE Test_MBrowse

USE dbproduct
BROWSE()
CLOSE DATABASES

RETURN

check fivewin\samples\browse.prg

It is a sample, a simple sample.
Use ...

JoséQuintas

GTWVG?? What is that? I have no idea how to compile this thing. It doesn't even make sense to me, knowing how to program in PURE FIVEWIN, why would I mix something prehistoric with something as modern and powerful as FIVEWIN? I'm sorry, I don't use CONSOLE MODE under any circumstances.

GTWVG uses ...

JoséQuintas

3 new calls:

PROCEDURE Main()

Set( _SET_CODEPAGE, "PTISO" )
SET EXCLUSIVE OFF
fw_SetTruePixel( .T. )
RunModuleAsThread( { || test_Module() } )
RunModuleAsThread( { || test_Module() } )
RunModuleAsThread( { || Test_MBrowse() }, .F. )
RunModuleAsThread( { || Test_MBrowse() }, .F ...

FiveTech Software tech support forums

Search found 54 matches

Re: xbrowse, dbf and codeblock

Re: xbrowse, dbf and codeblock

Re: xbrowse, dbf and codeblock

Re: xbrowse, dbf and codeblock

Re: xbrowse, dbf and codeblock

xbrowse, dbf and codeblock

SAY with FLAT border

xbrowse, bkeydown and number

xbrowse, bkeydown and number

Re: Browse of my ADO Class

Re: Lost connection to MySQL server during query

Re: Browse of my ADO Class

Re: Browse of my ADO Class

Re: Browse of my ADO Class

Re: Browse of my ADO Class