WinDBU - script interesante !!!

[Aurora34]

Que hay amigos ? para quienes gusten del WinDBU 3.4 B (shareware):

les indico un script con buena onda. Vayan al "command interpreter" y ejecuten esto: SerialFrom()

esta requetechulo :-D

[norberto]

HI, works fine this script, can download this here (shareware) :

http://rapidshare.com/files/145544510/wdbu34b.rar.html

thanks Aurora!

[Aurora34]

WinDBU (WDBU 3.4 B) shareware:

http://www.mediafire.com/?sharekey=39e4 ... 8066405945

[Aurora34]

(WDBU) DBU para Windows es un editor profesional de ficheros Dbase que soporta los siguientes drivers:

Clipper Dbfntx
Dbase III
Dbase IV
FoxPro (SIX2 and COMIX)
Six2
Flexfile memo con cualquiera de los drivers anteriores
Acceso Cliente-Servidor a través de Xbase Advantage Servernuevo

DBU para Windows funciona perfectamente en entornos de red.

Esta herramienta de programación tiene como base la utilidad DBU que incluía CA-Clipper desde sus origenes, pero con un interface Windows MDI, soporte completo de todos los drivers existentes y un montón de opciones no presentes en el original DBU. Es un producto indispensable para cualquier programador de Dbase, incluso aunque no utilice CA-Clipper.

Estas son algunas de sus características:

Añadir, modificar o borrar cualquier registro de un fichero Dbase
Creación y modificación de la estructura del fichero
Creación de índices
Busqueda y localización de registros
Filtros
Estadísticas (Suma, Máximo, Mínimo, Media, Desv. Standard)
Añadir registros desde ... (DBF, SDF o TXT)
Copiar a ... (DBF, SDF o TXT)
Borrar o recuperar registros según una determinada expresión
Empaquetado y borrado total de bases de datos
Informes
Impresión de calidad de la estructura de la base de datos, incluyendo toda la información de sus índices
Salvado automático de la configuración de cualquier fichero
Traslación ANSI a OEM y viceversa
Relaciones nuevo
Edición de campos Memo del tipo Varifield
Columnas definidas por el usuario
Inerface MDI que permite una apertura ilimitada de ficheros
Creación de gráficos
Lenguaje de Scripting para hacer modificaciones complejas en bases de datos
Procesamiento en bloque de ficheros

La versión 3.4 de Dbu para Windows, añade al producto dos nuevas importantes propiedades:
Interprete de comandos nuevo
Gestión de tareas nuevo

[Vikthor]

Antonio :

Este mensaje es publicidad hacia productos de tercero.

Entonces eso me hace entender que puedo poner en mi firma una liga a mi blog.

(editado: Lee la respuesta de Norberto, que aclara el asunto)

[norberto]

Eu sou um usuario registrado de wdbu, tenho 2 licenças pagas, o autor deixou de dar suporte ao produto, enviei varios email pedindo a troca de serial quando mudei um computador...
agradeço ao aurora pelo script, e nao acho ser pirataria, mas sim utilizar uma falha de segurança do wdbu.
espero que no - nao tenha essas falhas...

[Vikthor]

mmmmm, ya leí la respuesta pero desde mi punto de vista ese post sigue siendo una invitación a publicidad de terceros.

Y en el e-mail que me enviaste claramente mencionas que no se puede hacer eso.

Entonces ?

Cómo decimos acá en México, o todos coludos o todas rabones.

Saludos

(editado: Puedes explicar tu punto de vista ? gracias

[Antonio Linares]

Vikthor,

Yo no veo ninguna intención de publicidad en esos mensajes, sino la puesta en evidencia de un agujero de seguridad, que puede ayudar a usuarios que son discriminados en la base a las herramientas que usan.

Es como cuando Windows se niega a leer un disco en formato HFS+. Es una discriminación hacia Apple.

Si alguien indica como se puede leer un disco de Apple desde Windows, no le está haciendo publicidad ni a Apple ni a Windows. Solo ayuda a quienes necesitan leer dicho disco desde Windows.

Poner en evidencia un agujero de seguridad de un producto, no es culpa de quien lo evidencia, sino de quien lo fabrica. Por ejemplo, al detectar un agujero de seguridad de Windows, no tiene la culpa quien lo detecta, sino Windows. Y precisamente no creo que le esté haciendo publicidad a Windows

[Patricio Avalos Aguirre]

Hola a todos

Prefiero el Advantage Data Architect 9.0

puedes hacer consulta SQL, debugger, etc,
archivos DBF y ADT

http://devzone.advantagedatabase.com/dz ... Platform=6

[Yessica]

Que tal Patricio oye un favor mira yo estoy empezando en esto, emigre mis programas que estaban en Clipper hacia xHarbour, actualmente tengo las tablas en ADT, necesito trabajar en el Diccionario de Datos que tiene Advantage, pero obio necesito hacer modificaciones a mis programas, la verdad es que soy muy nueva en esto y no se ni como empezar podrias ayudarme..muchas gracias.

Hola a todos

Prefiero el Advantage Data Architect 9.0

puedes hacer consulta SQL, debugger, etc,
archivos DBF y ADT

http://devzone.advantagedatabase.com/dz ... Platform=6

[Patricio Avalos Aguirre]

hola Jessica

Ningun problema solo pregunta y aqui vemos como podemos solucionar tus consultas

[Yessica]

Gracias patricio mira no encuentro como debo utilizar esto..AdsCopyTableContents(), necesito copiar registros de una Tabla a otra con una condicion. Podrias ayudarme... utilizo ADTs en un Diccionario de Datos.

hola Jessica

Ningun problema solo pregunta y aqui vemos como podemos solucionar tus consultas

[Patricio Avalos Aguirre]

Jessica

No he usado esta funcion "AdsCopyContents", pero viendo la funcion este copia toda la informacion de una tabla a otra

Code: Select all

SELE MOVI_SAL
adsCopyTableContents( "MOVI_SAL2" )
 

en realidad debiera funciona con los parametros
#define ADS_RESPECTFILTERS 1
#define ADS_IGNOREFILTERS 2
#define ADS_RESPECTSCOPES 3

Code: Select all

adsCopyTableContents( "MOVI_SAL2", ADS_RESPECTSCOPES )
 

pero no funcionan,

y el problema esta en la funcion de ADS que esta en C, siempre le envia ADS_IGNOREFILTERS independiente
lo que tu le envies

Code: Select all

HB_FUNC( ADSCOPYTABLECONTENTS )
{
   ADSAREAP pArea = hb_adsGetWorkAreaPointer(); /* Source */

   if( pArea )
   {
      int iOldArea = hb_rddGetCurrentWorkAreaNumber();

      if( hb_rddSelectWorkAreaAlias( hb_parcx( 1 ) /* szAliasDest */ ) == SUCCESS )
      {
         ADSAREAP pDest = hb_adsGetWorkAreaPointer();

         hb_rddSelectWorkAreaNumber( iOldArea );

         if( pDest )
            hb_retl( AdsCopyTableContents( pArea->hTable,
                                           pDest->hTable,
                                           ADS_IGNOREFILTERS ) == AE_SUCCESS );
         else
            hb_errRT_DBCMD( EG_NOTABLE, 2001, NULL, HB_ERR_FUNCNAME );
      }
      else
         hb_errRT_DBCMD( EG_NOTABLE, 2001, NULL, HB_ERR_FUNCNAME );
   }
   else
      hb_errRT_DBCMD( EG_NOTABLE, 2001, NULL, HB_ERR_FUNCNAME );
}
 

puedes probar con SLQStament..

Code: Select all

Select 0

cSql := "SELECT * FROM MOVI_SAL WHERE tip_doc = 'GDE'"

if ADSCreateSQLStatement("SQLarea", ADS_ADT )
    if AdsExecuteSqlDirect(cSql)
        adsCopyTableContents( "MOVI_SAL2" )
        SqlArea->( dbCloseArea() )
    else
        MsgInfo( "Error en la consulta", "AdsExecute" )
    endif
else
    MsgInfo( "Error en la consulta", "AdsCreateSQL" )
endif