FiveDBU para 32/64 bits

[sysctrl2]

Hola antonio, modificando un poquito la funcion Preferences()

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

RDDADS cambiar por ADS

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

Saludos.

Code: Select all | Expand

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  

[sysctrl2]

Hola antonio,

podrias agregar este include ?

#include "ADS.CH"

Tambien esta funcion INITI PROCEDURE

Code: Select all | Expand

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.

[Antonio Linares]

César,

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

[Antonio Linares]

Nueva versión con soporte de "procesos" (scripts):

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

[sysctrl2]

Hola Antonio,

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

Como la tecla de funcion F8 del viejo DBU.EXE

SALUDOS.

[FiveWiDi]

Buen trabajo Antonio,

lo estas "bordando".

[pcordonet]

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]

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=

[lucasdebeltran]

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.

[Antonio Linares]

Esta actualizado el post anterior con la dirección de descarga e incluye todos los bitmaps

[Antonio Linares]

Solucionado el bug de los filtros:

Code: Select all | Expand

   @ 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() )
 

[Antonio Linares]

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=

[Antonio Linares]

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=

[sysctrl2]

Antonio,

los FILTROS

O.K
Gracias.

[Antonio Linares]

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=