Inconsistencias en Tdolphin + xBrowse

[Adolfo]

Daniel....

Code: Select all  Expand view

#include "FiveWin.ch"
#include "xBrowse.ch"
#include "tdolphin.ch"

//-------------------------------------------------------------------------------------
Function Main()
Local nAncho:=WndWidth(GetDesktopWindow())
Local nAlto:=WndHeight(GetDesktopWindow())
Local cSeek:=""

Public oSvr:=ConnectTo("1.1.1.1")

   oDbPrint:=tDolphinQry():New("select * from clientes order by RAZON", oSvr)

   DEFINE WINDOW oWn1 FROM 1, 1 TO 25, 79 TITLE "Test xBrowse"

        oBrwPr:=TxBrowse():New(oWn1)
        oBrwPr:nMarqueeStyle := MARQSTYLE_HIGHLROW
        oBrwPr:nColDividerStyle := LINESTYLE_BLACK
        oBrwPr:nRowDividerStyle := LINESTYLE_BLACK
        oBrwPr:lColDividerComplete := .T.
        oBrwPr:l2007:=.T.
        oBrwPr:lAutoSort:=.T.
        oBrwPr:SetDolphin(oDbPrint,.T.,.T.)
        oBrwPr:CreateFromCode()
        oBrwPr:nWidth       := nAncho
        oBrwPr:nHeight      := nAlto

   SET MESSAGE OF oWn1 TO "Previsualizacion"  2007

   DEFINE MSGITEM oBrwPr:oSeek OF oWn1:oMsgBar ;
          PROMPT "Buscando" SIZE 300 COLOR CLR_RED

   ACTIVATE WINDOW oWn1 MAXIMIZED

Return Nil

//---------------------------------------------------------------------------------------------------
FUNCTION ConnectTo(cServer)
         CONNECT oServer HOST cServer USER "xxxxxx" PASSWORD "xxxxxxx" DATABASE "xxxxxxxxx"
RETURN oServer

Si hago un seek inmediatamente abierro el PRG, ( por ejemplo mi nombre LAGOS JIMENEZ ADOLFO ENRIQUE) este hace el softseek sin problemas, se llena el oSeek sin problemas y se refresca el browse, pero si cambio el orden, o me cambio de columna, a veces funciona otras no.

Tengo un ejecutable de muestra, pesa como 700kb, pueden descargarlo de aqui..

http://www.gigasize.com/get.php?d=5b2732r0nxc

El servidor no es de los mejores, pero para el ejemplo funciona sin problemas.

Alguna luz al respecto...
Saludos

Desde Chile
Adolfo

[Daniel Garcia-Gil]

Adolfo


Revisando, lo mas pronto posible te ofrezco una respuesta

[Adolfo]

Daniel...

Por lo revisado en el codigo de la TDolphinQry, llamas a SetNewFilter() cuando necesitas hacer un SetOrder(), pero reconstruyes todo el query...

Donde se aloja el query, es como con ADO, un tipo de "recordset" o array en memoria con el resultado de la select ?
Porque por lo visto con ADO, este ( si trabajo en modo local ) guarda el recordset en memoria del pc y hace los ajustes de orden,filter, find o seek directamente sobre el, habiendo 0 (cero) trafico hacia el servidor. En este caso sin la necesidad de llamar a LOADQUERY() de tDolphin.

Porque si tenemos una copia manejable en forma local podriamos agilizar los SetOrden, Filtros y demases... o estoy equivocado ?

Saludos

Desde Chile
Adolfo