topic-27789

Posts: 593

Joined: Sat May 12, 2007 11:47 AM

xBrowse (con ADS). MAL con Harbour - AYUDA
Posted: Sun Dec 08, 2013 01:07 PM

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

Posts: 1144

Joined: Mon Feb 05, 2007 07:15 PM

Re: xBrowse (con ADS). MAL con Harbour - AYUDA
Posted: Mon Dec 09, 2013 08:52 PM

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

Code (fw): Select all Collapse

#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.

Cesar Cortes Cruz

SysCtrl Software

Mexico

' Sin +- FWH es mejor "

rolando

Posts: 593

Joined: Sat May 12, 2007 11:47 AM

Re: xBrowse (con ADS). MAL con Harbour - AYUDA
Posted: Mon Dec 09, 2013 09:44 PM

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

Posts: 593

Joined: Sat May 12, 2007 11:47 AM

Re: xBrowse (con ADS). MAL con Harbour - AYUDA
Posted: Mon Dec 16, 2013 04:46 PM

UP

reinaldocrespo

Posts: 990

Joined: Thu Nov 17, 2005 05:49 PM

Re: xBrowse (con ADS). MAL con Harbour - AYUDA
Posted: Tue Dec 17, 2013 07:16 PM

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

Posts: 1380

Joined: Fri Oct 14, 2005 01:28 PM

Re: xBrowse (con ADS). MAL con Harbour - AYUDA
Posted: Tue Dec 17, 2013 08:48 PM

Disculpen el O.T.

sysctrl2 wrote:Cuando yo usaba ADS
tenia que poner estas lines al inicio de mi prg.
Code (fw): Select all Collapse
#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 (fw): Select all Collapse

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?

Resistencia - "Ciudad de las Esculturas"

Chaco - Argentina

rolando

Posts: 593

Joined: Sat May 12, 2007 11:47 AM

Re: xBrowse (con ADS). MAL con Harbour - AYUDA
Posted: Tue Dec 17, 2013 10:51 PM

Reinaldo,

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

Code (fw): Select all Collapse

#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

Posts: 593

Joined: Sat May 12, 2007 11:47 AM

Re: xBrowse (con ADS). MAL con Harbour - AYUDA
Posted: Sun Dec 22, 2013 04:43 PM

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

Rolando

FiveTech Support Forums

Continue the discussion