FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour FiveDBU para 32/64 bits
sysctrl2
Posts: 1144
Joined: Mon Feb 05, 2007 07:15 PM
Re: FiveDBU para 32/64 bits
Posted: Wed Jun 06, 2012 08:13 PM
Hola antonio, modificando un poquito la funcion Preferences()

// ITEMS { "DBFNTX", "DBFCDX", "RDDADS" }

RDDADS cambiar por ADS

// { "DBFNTX", "DBFCDX", "ADS" }

Saludos.

Code (fw): Select all Collapse
function Preferences()

   local oDlg
   
   DEFINE DIALOG oDlg TITLE "Preferences" SIZE 400, 200

   @ 1.2, 1.5 SAY "Default RDD: " + cDefRdd OF oDlg
   
   @ 2.4, 1.2 COMBOBOX cDefRdd ITEMS { "DBFNTX", "DBFCDX", "ADS" } ;
      OF oDlg SIZE 180, 150
   
   @ 4, 7 BUTTON "&Ok" OF oDlg SIZE 45, 13 ;
      ACTION ( SavePreferences(), oDlg:End() )

   @ 4, 18 BUTTON "&Cancel" OF oDlg SIZE 45, 13 ACTION oDlg:End()
   
   ACTIVATE DIALOG oDlg CENTERED
   
return nil
Cesar Cortes Cruz

SysCtrl Software

Mexico



' Sin +- FWH es mejor "
sysctrl2
Posts: 1144
Joined: Mon Feb 05, 2007 07:15 PM
Re: FiveDBU para 32/64 bits
Posted: Wed Jun 06, 2012 08:25 PM
Hola antonio,

podrias agregar este include ?

#include "ADS.CH"

Tambien esta funcion INITI PROCEDURE

Code (fw): Select all Collapse
INIT PROCEDURE Sets()
   
   LoadPreferences()
   
   if UPPER( cDefRdd ) = 'ADS'
      REQUEST ADS,ADSKeyCount,ADSKeyNo,OrdKeyCount,OrdKeyNo,AdsGetRelKeyPos,AdsSetRelKeyPos,DBFCDX,DBFFPT
      rddRegister( "ADS", 1 )
      rddsetdefault( "ADS" )
      AdsSetServerType(1)
      AdsSetFileType(2)
      SET SERVER LOCAL
      AdsSetFileType( ADS_CDX )   
   ELSE
      REQUEST DBFCDX 
   ENDIF
   
   SET DATE FORMAT TO "DD/MM/YYYY"
   
return


esto es para xbrowse funcione con ADS,


Gracias por tu apoyo.

saludos.
Cesar Cortes Cruz

SysCtrl Software

Mexico



' Sin +- FWH es mejor "
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: FiveDBU para 32/64 bits
Posted: Thu Jun 07, 2012 07:35 PM

C茅sar,

Estoy viendo la forma de implemtarlo para no obligar a usar la libreria de ADS para construirlo.

regards, saludos

Antonio Linares
www.fivetechsoft.com
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: FiveDBU para 32/64 bits
Posted: Thu Jun 07, 2012 07:35 PM
Nueva versi贸n con soporte de "procesos" (scripts):

http://code.google.com/p/fivewin-contributions/downloads/detail?name=fivedbu_20120607.zip&can=2&q=





regards, saludos

Antonio Linares
www.fivetechsoft.com
sysctrl2
Posts: 1144
Joined: Mon Feb 05, 2007 07:15 PM
Re: FiveDBU para 32/64 bits
Posted: Thu Jun 07, 2012 09:46 PM

Hola Antonio,

ademas del SET RELATION tambien vas a implementar el SET FILTER ?

Como la tecla de funcion F8 del viejo DBU.EXE

SALUDOS.

Cesar Cortes Cruz

SysCtrl Software

Mexico



' Sin +- FWH es mejor "
FiveWiDi
Posts: 1445
Joined: Mon Oct 10, 2005 02:38 PM
Re: FiveDBU para 32/64 bits
Posted: Fri Jun 08, 2012 08:00 AM

Buen trabajo Antonio,

lo estas "bordando".

Un Saludo

Carlos G.



FiveWin 25.12 + Harbour 3.2.0dev (r2502110321), BCC 7.7 Windows 11 Home

pcordonet
Posts: 111
Joined: Sat Jan 30, 2010 08:35 AM
Re: FiveDBU para 32/64 bits
Posted: Fri Jun 08, 2012 08:57 AM
Hola Antonio,

Vuelvo a tener problemas con las imagenes, serias tan amable de proporcionarlas ?

xRC: fivedbu.rc(37): warning: No newline at end of file.
xRC: fivedbu.rc(13): error: File not found: '..\bitmaps\32x32\bottom.bmp'.
xRC: fivedbu.rc(24): error: File not found: '..\bitmaps\32x32\imp_exp.bmp'.
xRC: fivedbu.rc(27): error: File not found: '..\bitmaps\32x32\process.bmp'.
xRC: fivedbu.rc(30): error: File not found: '..\bitmaps\32x32\top.bmp'.
xRC: fivedbu.rc(31): error: File not found: '..\bitmaps\32x32\relation.bmp'.

Type: C >>>Couldn't build: fivedbu.res<<<
Type: C >>>TMAKEOBJECT<<<
Type: C >>>TMAKEOBJECT:REFRESH<<<
Type: N >>> 1


Gracias
Pere
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: FiveDBU para 32/64 bits
Posted: Fri Jun 08, 2012 11:03 AM
C茅sar,

Implementados los filtros :-) Se agradece si los probais y comentais su funcionamiento. Aqui parece que el filtro no se activa, aunque DbFilter() lo devuelve como expresi贸n.

http://code.google.com/p/fivewin-contributions/downloads/detail?name=fivedbu_20120608.zip&can=2&q=

regards, saludos

Antonio Linares
www.fivetechsoft.com
lucasdebeltran
Posts: 1303
Joined: Tue Jul 21, 2009 08:12 AM
Re: FiveDBU para 32/64 bits
Posted: Fri Jun 08, 2012 11:13 AM

Antonio,

Por favor, 驴podr铆as publicar un nuevo .zip actualizado incluyendo los bitmaps?.

Igualmente, he bajado el 煤ltimo .zip, ejecuto el exe, selecciono cualquier dbf y me dice que not found.

Gracias.

Muchas gracias. Many thanks.



Un saludo, Best regards,



Harbour 3.2.0dev, Borland C++ 5.82 y FWH 13.06 [producci贸n]



Implementando MSVC 2010, FWH64 y ADO.



Abandonando uso xHarbour y SQLRDD.
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: FiveDBU para 32/64 bits
Posted: Fri Jun 08, 2012 11:15 AM

Esta actualizado el post anterior con la direcci贸n de descarga e incluye todos los bitmaps :-)

regards, saludos

Antonio Linares
www.fivetechsoft.com
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: FiveDBU para 32/64 bits
Posted: Fri Jun 08, 2012 11:37 AM
Solucionado el bug de los filtros:

Code (fw): Select all Collapse
   @ 4, 15 BUTTON "&Ok" OF oDlg SIZE 45, 13 ;
      ACTION ( cFilter := AllTrim( cFilter ),;
               If( Empty( cFilter ), DbClearFilter(), DbSetFilter( GENBLOCK( cFilter ), cFilter ) ),;
               oBrw:Refresh(), oDlg:End() )
regards, saludos

Antonio Linares
www.fivetechsoft.com
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: FiveDBU para 32/64 bits
Posted: Fri Jun 08, 2012 11:57 AM
Versi贸n actualizada con comprobaci贸n de expresi贸n en el filtro:

http://code.google.com/p/fivewin-contributions/downloads/detail?name=fivedbu_20120608_.zip&can=2&q=
regards, saludos

Antonio Linares
www.fivetechsoft.com
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: FiveDBU para 32/64 bits
Posted: Sat Jun 09, 2012 09:39 AM
Versi贸n mejorada en la edici贸n de campos memo y fechas:

http://code.google.com/p/fivewin-contributions/downloads/detail?name=fivedbu_20120609.zip&can=2&q=
regards, saludos

Antonio Linares
www.fivetechsoft.com
sysctrl2
Posts: 1144
Joined: Mon Feb 05, 2007 07:15 PM
Re: FiveDBU para 32/64 bits
Posted: Sun Jun 10, 2012 04:07 AM
Antonio,

los FILTROS

O.K
Gracias.
Cesar Cortes Cruz

SysCtrl Software

Mexico



' Sin +- FWH es mejor "
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: FiveDBU para 32/64 bits
Posted: Tue Jun 12, 2012 01:01 PM
FiveDBU actualizado con configuraci贸n de modo compartido/exclusivo y soporte para PACK (borrado de registros eliminados) :-)

http://code.google.com/p/fivewin-contributions/downloads/detail?name=fivedbu_20120612.zip&can=2&q=
regards, saludos

Antonio Linares
www.fivetechsoft.com
Static archive 路 New replies & topics via GitHub Discussions