xBrowse (con ADS). MAL con Harbour - AYUDA

[rolando]

Buen día,

Sigo en el intento de pasar todo a HARBOUR y ya lo tengo "casi" listo. Aclaro que uso ADS Server y la clase Tdatabase para las DBF's

Usando ADS Server, tengo un inconveniente con la xBrowse PERO SOLO USANDO HARBOUR.

Los mismos prg's compilados con xHarbour (siempre usando RDD ADS), hacen perfectamente el ordenado ascendente Y DESCENDENTE al "clickear" sobre los heads del xBrowse, tal como puede verse en el video:

http://youtu.be/b0xCUxP2Bio


Pero compilando con HARBOUR (siempre usando RDD ADS), NO HACEN EL ORDENADO DESCENDENTE AUNQUE PUEDE VERSE QUE LAS FLECHITAS CAMBIAN, esto se ve en el video:

http://youtu.be/ZTbYv-TuA6Y


Gracias a Carlos Vargas pude generar la lib RDDADS.LIB para la versión actual de Harbour pero el problema persiste.

Agradezco cualquier ayuda. Creo que es lo único que me resta solucionar para poder tener la aplicación funcionando en Harbour.

Rolando

[sysctrl2]

Cuando yo usaba ADS
tenia que poner estas lines al inicio de mi prg.

Code: Select all

#define _ADS_SERVER_
#ifdef _ADS_SERVER_
        REQUEST ADS,ADSKeyCount,ADSKeyNo,OrdKeyCount,OrdKeyNo,AdsGetRelKeyPos,AdsSetRelKeyPos,DBFCDX,DBFFPT
 #else
        Extern ADS,ADSKeyCount,ADSKeyNo,DBFCDX,DBFFPT
 #endif   

FUNCTION MAIN()
RETURN NIL

Sobre todo cuando usaba xbrw.

saludos.

[rolando]

Cesar,

Gracias por responder.

Lo que indicas es necesario tanto para Harbour como para xHarbour y lo tengo declarado en el primer prg. No viene por ese lado el problema ya que en xHarbour funciona normal pero en Harbour no.

Rolando

[rolando]

UP

[reinaldocrespo]

Rolando;

Hola.

Por favor muestra el código de tu xbrowse y lo que asignas a oCol:bClickHeader. ¿Tal vez puedas crear un ejemplo reducido que reproduzca el problema?

Saludos,


Reinaldo.

[MarioG]

Disculpen el O.T.

Cuando yo usaba ADS
tenia que poner estas lines al inicio de mi prg.

Code: Select all

#define _ADS_SERVER_
#ifdef _ADS_SERVER_
        REQUEST ADS,ADSKeyCount,ADSKeyNo,OrdKeyCount,OrdKeyNo,AdsGetRelKeyPos,AdsSetRelKeyPos,DBFCDX,DBFFPT
 #else
        Extern ADS,ADSKeyCount,ADSKeyNo,DBFCDX,DBFFPT
 #endif   

FUNCTION MAIN()
RETURN NIL

Sobre todo cuando usaba xbrw.

saludos.

Yo solo agrego esto

Code: Select all

REQUEST ADS, HB_Lang_ESWIN, HB_CODEPAGE_ESWIN
EXTERNAL ADSKeyCount,ADSKeyNo, AdsGetRelKeyPos, AdsSetRelKeyPos
 

Las preguntas son:
Es conveniente agregar a lo que indica Cesar: HB_Lang_ESWIN, HB_CODEPAGE_ESWIN?
Cuando es ADS_LOCAL porque no es necesario agregar lo indicado en REQEST?

[rolando]

Reinaldo,

Copio el prg de ejemplo (así lo uso básicamente)

Code: Select all

#include "Fivewin.ch"
#include "ADS.CH"
#include "xbrowse.ch"

///// esto es para el ADS, además un init procedure al final ///////////////////
REQUEST HB_LANG_ES
REQUEST ADS,ADSKeyCount,ADSKeyNo,OrdKeyCount,OrdKeyNo, AdsGetRelKeyPos, AdsSetRelKeyPos ,DBFCDX, DBFFPT
REQUEST HB_Lang_ES

  Function Test()   
   
    local cAlias:=cGetNewAlias('Test'), oDlg, oBrw
    local aCols:={"FIRST", "LAST", "STREET", "CITY", "AGE"}
    local aHeads:={"NOMBRE", "APELLIDO", "DIRECCION", "CIUDAD", "EDAD"}
    local aPictures:={"@!", "@!", "@!", "@!", "99"}
    local aColSizes:={160,160,160,160,80}
        
        set date british
    set epoch to 1960
    SET CENTURY ON
    
            use ".\CUSTOMER" shared new alias (cAlias) via rddsetdefault()   
            DATABASE oDbf
    
    

    define dialog oDlg resource "TESTXBR" transparent

            REDEFINE XBROWSE oBrw ID 4001 DATASOURCE oDbf ;
      COLUMNS aCols ; 
      HEADERS aHeads; 
      PICTURES aPictures  ;
      COLSIZES aColSizes ;
      AUTOSORT CELL LINES 



        WITH OBJECT oBrw
  
        :bClrRowFocus     := { || { CLR_BLACK, RGB(185,220,255) } }     //   PARA LOGRAR LINEAS
      :nMarqueeStyle        := MARQSTYLE_HIGHLROWRC                                             //   CON MAS OSCURO EL CAMPO
        :nEditTypes       := EDIT_GET
            :nHeadStrAligns   := AL_CENTER
      :nStretchCol      := STRETCHCOL_WIDEST
      :nColDividerStyle := ;
      :nRowDividerStyle := LINESTYLE_LIGHTGRAY
      :lAllowRowSizing  := .f.
      :lContrastClr     := .f.
            :nFreeze:=1                                      
                         
    END


        activate dialog oDlg 
        
    oDbf:close()
    
  Return nil




//-----------------------------------------------------------------------------------------------------------------------

    


 Init Procedure Inicio()

  RddRegister( "ADS", 1 )
  RddSetDefault( "ADS" )
  AdsSetServerType(1)  //(3)    // (7) para cualquier servido . para seleccionar el tipo de servidor ADS, 1= local, 2= remoto y 3= los dos.
  AdsSetFileType(2)
  AdsLocking( .t. )
  AdsRightsCheck( .f. )
  SET SERVER REMOTE                 
  SET FILETYPE TO CDX

 Return

También subí al box el prg, el res y los exe's.

El compilado con xHarbour funciona correctamente pero el compilado con Harbour no. Lo que deduzco es que en los archivos ".C" de Harbour para el ADS hay algún error ya que genero la LIB para ADS en Harbour y me da ese error.

Está todo en: https://app.box.com/s/r1rt9rldprp8bgy8xgzf

Por supuesto que para que estos ejemplos funciones se debe tener el server ADS activo.

Espero, con la ayuda de Ustedes, poder solucionar este tema y así pasarme a Harbour ya que logré pasar todo pero sigo usando xHarbour por este problema.

Gracias.

Rolando

[rolando]

UP (último intento, si no logro solucionarlo deberé seguir con xHarbour).

Rolando