xBrowse

[pcordonet]

Hola a todos,

Tengo un par de problemas con xBrowse.

El primero, cada vez que hago left-Click en un registro se me posiciona en la primera posición del browse.
Es muy dificil que no lo haga ?

La Segunda, existe un codeblock de Selección donde Doble-Left-Click y ENTER lo evaluaran ?

Muchas Gracias.

[joseluisysturiz]

Colega ambas cosas son posible, pero un poco de codigo como tienes definido el xbrowse y lo usas te aseguro que ayudara a que entre todos consigamos el detalle y podamos ayudarte... saludos...

[pcordonet]

Estoy preparando un ejemplo para poder ver el problema, pero con el ejemplo no me pasa.

Estoy trabajando con SQLRDD y xHarbour Comercial 1.2, podria ser un problema ?

Voy a necesitar un poco de tiempo.
Gracias.

[pcordonet]

Aquí dejo el código para que me puedan echar una mano para resolver-lo.

Confirmado el problema es SQLRDD

También, añado otra pregunta, el parámetro lAllWidth de la classe FOLDER funciona ? por defecto esta en .T. y las pestañas de los tabs son del tamaño del texto.

Code: Select all

#include "FiveWin.ch"
#include "InKey.ch"
#include "xbrowse.ch"
#include "ribbon.ch"

#include "SQLRDD.CH"
#include "mysql.ch"        // Needed if you plan to use native connection to MySQL
#include "pgs.ch"          // Needed if you plan to use native connection to Postgres

REQUEST DBFCDX

STATIC cState := ""

Function Main()
Local oWnd, oRBar,oBtn,oGBtn:={}
Local aGrups[3],nHSqlRdd
Local cServer:= "XXXXX"
Local cDatabase:="XXXXX"
Local cUser:="XXXX"
Local cPassword:= "XXXX"

// Iniciar llibreries
IniciarRdd( )
      
// Treballem amb Sql
SR_SetGoTopOnScope(.f.)
SR_USEDELETEDS(.T.)
            
// Cadena de Connecci¢ amb la base de dades.  
cConnString:= "driver=SQL Server;network=dbmssocn;"
cConnString+= "server="+cServer+";"
cConnString+= "database="+cDatabase+";"
cConnstring+= "uid="+cUser+";"
cConnString+= "pwd="+cPassword+";" 
nHSqlRdd:= SR_AddConnection( CONNECT_ODBC , cConnString, , , , .T. ) 
If nHSqlRdd > 0
    RddSetDefault("SQLRDD")

   DBUSEAREA(.T.,"SQLRDD","CLIE0110")
    DbSetOrder(1)
   DbGotop()
    
   DEFINE WINDOW oWnd TITLE "New TXBrowse class (only for FWH)" MDI MENUINFO 3
   oWnd:oMenu:End()
    // Creaci¢ Objecte Ribbon,
    oRBar:= TRibbonBar():New( oWnd , {"tab1","tab2","tab3"} , , , , 132 , 25  )
    
    // Bot¢ inici amb el Menu Complert.   
    @ 4,4 RBBTN oBtn PROMPT "INICI" OF oRBar SIZE 50,20 POPUP MENU BuildMenu( oWnd )
    oBtn:lBalloon:= .T.
    oBtn:ResetBorder()

   ADD GROUP aGrups[1] RIBBON oRBar TO OPTION 1 PROMPT "GRUP1"
   Aadd(oGBtn,NIL)
   oGBtn[-1]:= aGrups[1]:AddButton( 5 , 5 , 50 , 70 , "Incremental" ,{|| Incremental( oWnd ) } ,,,,,,,)
   
   ADD GROUP aGrups[2] RIBBON oRBar TO OPTION 2 PROMPT "GRUP2"
   Aadd(oGBtn,NIL)
   oGBtn[-1]:= aGrups[2]:AddButton( 5 , 5 , 50 , 70 , "yyyy" ,{|| MsgInfo("2")} ,,,,,,,)
   ADD GROUP aGrups[3] RIBBON oRBar TO OPTION 3 PROMPT "GRUP3"
   Aadd(oGBtn,NIL)
   oGBtn[-1]:= aGrups[3]:AddButton( 5 , 5 , 50 , 70 , "ZZZZ" ,{|| MsgInfo("3")} ,,,,,,,)

   ACTIVATE WINDOW oWnd

EndIf

Return Nil

function BuildMenu( oWnd )
local oMenu

MENU oMenu POPUP 2007
   MENUITEM "Browse RDD data"
   MENU
      MENUITEM "Incremental Seek and Inset style" ;
         ACTION Incremental( oWnd )
   ENDMENU
ENDMENU

Return oMenu

STATIC FUNCTION Incremental( oWnd )
local oChild, oBrw,oFld,oRect, oCol

DEFINE WINDOW oChild TITLE "Proves amb SQLRDD" MDICHILD OF oWnd
oRect:= oChild:GetCliRect()
// Creem els Tabs de l'Actualitzador.
oFld:= TFolder():New( 0 , 0  , {"BROWSE","FORMULARI"} ,  , oChild , , , , .T. , , oRect:nWidth() , oRect:nHeight() ,, .T. ,,)

@ 30,10 XBROWSE  oBrw ALIAS "CLIE0110" SIZE oRect:nWidth()-20 , oRect:nHeight()-50 OF oFld:aDialogs[1] PIXEL CELL LINES

oCol:= oBrw:AddCol()
oCol:cHeader  := "Codi"
oCol:bStrData := FieldBlock("COD_CLIENT")

oCol:= oBrw:AddCol()
oCol:cHeader  := "Nom Fiscal"
oCol:bStrData := FieldBlock("NOM_F")


oBrw:CreateFromCode()

oChild:oClient := oBrw

ACTIVATE WINDOW oChild ON INIT oBrw:SetFocus()

RETURN NIL


Function IniciarRdd( )

   // Llibreries SQLRDD
   REQUEST SQLRDD             // SQLRDD should be linked in
   REQUEST SQLEX              // SQLRDD Extreme should be linked in
   
   REQUEST SR_ODBC            // Needed if you plan to connect with ODBC
    REQUEST SR_MYSQL           // Needed if you plan to use native connection to MySQL
    REQUEST SR_PGS             // Needed if you plan to use native connection to Postgres
    
   SR_USEDELETEDS(.T.)

Return Nil


 

Me estoy iniciando en FWH siento todas mis consultas, y agradezco su ayuda.

Muchas gracias por adelantado.
Pere

[pcordonet]

Hola,

Alguien me puede ayudar con el xbrowse con SQLRDD. He dejado el ejemplo anterior.
Con archivos DBF funciona bien.


Gracias.
Pere

[pcordonet]

Alguna ayuda para empezar a mirar algo ?

no se por donde empezar ...

Por favor!!
Pere

[pcordonet]

Hola,

Como solicitó joseluisysturiz puse el codigo de ejemplo.

Por favor, Antonio o el mismo joseluisysturiz, si me pueden echar una mano se lo agradecería muchísimo.

Gracias.
Pere Cordonet

[nageswaragunupudi]

We have not tested XBrowse with SQLRDD. But you may please try this suggestion.
For SQLRDD, after creating XBROWSE, please add the following lines of code:

Code: Select all

oBrw:bKeyNo := oBrw:bBookMark
oBrw:bKeyCount := { || ( oBrw:cAlias )->( LastRec() ) }
 

[pcordonet]

Gracias, por responder.

Por fin un poco de ayuda.


He probado las lineas de código que me ofreció y no funciona, sigue haciendo lo mismo.
De todos modos muchas gracias por su respuesta, si quiere que me mire algún tipo de dato, solo tiene que comentarlo.

Muchas gracias de nuevo.
Pere

[pcordonet]

Buenos dia, de nuevo.

Ya que nadie me puede echar una mano, seria posible que me respondiera alguien que esté utilizando SQLRDD ?

Y si se puede confirmar la compatibilidad de SQLRDD con xBrowse

Gracias.