xBrowse
xBrowse
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.
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
- Posts: 2024
- Joined: Fri Jan 06, 2006 9:28 pm
- Location: Guatire - Caracas - Venezuela
- Contact:
Re: xBrowse
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...
Dios no está muerto...
Gracias a mi Dios ante todo!
Gracias a mi Dios ante todo!
Re: xBrowse
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.
Estoy trabajando con SQLRDD y xHarbour Comercial 1.2, podria ser un problema ?
Voy a necesitar un poco de tiempo.
Gracias.
Re: xBrowse
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.
Me estoy iniciando en FWH siento todas mis consultas, y agradezco su ayuda.
Muchas gracias por adelantado.
Pere
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
Muchas gracias por adelantado.
Pere
Re: xBrowse
Hola,
Alguien me puede ayudar con el xbrowse con SQLRDD. He dejado el ejemplo anterior.
Con archivos DBF funciona bien.
Gracias.
Pere
Alguien me puede ayudar con el xbrowse con SQLRDD. He dejado el ejemplo anterior.
Con archivos DBF funciona bien.
Gracias.
Pere
Re: xBrowse
Alguna ayuda para empezar a mirar algo ?
no se por donde empezar ...
Por favor!!
Pere
no se por donde empezar ...
Por favor!!
Pere
Re: xBrowse
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
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
- Posts: 8017
- Joined: Sun Nov 19, 2006 5:22 am
- Location: India
- Contact:
Re: xBrowse
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:
For SQLRDD, after creating XBROWSE, please add the following lines of code:
Code: Select all
oBrw:bKeyNo := oBrw:bBookMark
oBrw:bKeyCount := { || ( oBrw:cAlias )->( LastRec() ) }
Regards
G. N. Rao.
Hyderabad, India
G. N. Rao.
Hyderabad, India
Re: xBrowse
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
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
Re: xBrowse
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.
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.