Problemas con los indices.

[jrestojeda]

Tengo un problema con los Indices al abrir las DBFs
Estoy probando lo siguiente:

Use ("C:\Datos\Stock") VIA "DBFNTX"

Como debo hacer para levantar indices ya creados anteriormente ya que debo grabar unos campos de la base, y actualizarlos.

Con FiveWin yo hacia lo siguiente

//////////////////////////////////////////////////////////////////
Local oDbf

USE Stock Index Stock01,Stock02 NEW
DATABASE oDbf

//////////////////////////////////////////////////////////////////

El tema es que me genera un error si utilizo DATABASE para generar el objeto.
En FWPPC hay alguna forma de reemplazar esto?
Y hay alguna ayuda escrita de como programar con FWPPC?

[Antonio Linares]

En el Pocket PC no existe la unidad C:, etc. tienes que usar CurDir():

USE ( CurDir() + "\Stock" ) VIA "DBFNTX"

Que error te dá al usar DATABASE oDbf ?

[jrestojeda]

Antonio Gracias por la respuesta probé lo siguiente:

USE ("\\NOMBRE_DE_PC_DE_RED\Datos\Stock.dbf") VIA "DBFNTX" NEW
DATABASE oDBf

El error que me tira es el siguiente:
//////////////////////////////////////////////////////////////////////////
FiveCe.lib (DATABASE.OBJ): Error LNK2001 unresolved external simbol "void__cdecl HB_FUN_unsitooem(void)" (?HB_FUN_oemtoansi@@yaxxz)
/////////////////////////////////////////////////////////////////////////

En el foro encontré que para los .ntx proponías usar lo siguiente:

USE (Curdir()+'\Bases\'+("Clientes.dbf") INDEX "Index1.ntx" NEW

en el caso de que los índices ya están creados, como yo ya tengo creados los indices ntx, lo probé, pero me tira un error de apertura.

La base de datos logré abrirla correctamente, el problema surge cuando quiero manejarla como objeto (DATABASE oDbf) o asociarle indices ya creados.
Tambien logré crear índices pero de todas maneras no puedo usarlos.
Desde ya muchas gracias.

[jrestojeda]

Antonio te molesto de nuevo...necesito incluir algun REQUEST??
Vi en algun lado que para los .cdx incluian REQUEST DBFCDX.

O necesito indicarle en algun lado del programa que voy a utilizar indices .NTX??

Gracias nuevamente, Esteban.

[Antonio Linares]

Esteban,

Este ejemplo está funcionando correctamente aqui:

Code: Select all  Expand view

#include "FWCE.ch"

function Main()

   local oDbf

   USE ( CurDir() + "\customer" ) VIA "DBFNTX"

   DATABASE oDbf

   MsgInfo( Alias() + ", " + RddName() )

return nil


De que fecha es el FWPPC que estás usando ?

[jrestojeda]

Ok, la versión que estoy utilizando te la compró Jorge Jaurena, yo estoy trabajando para el, y no se si hubo alguna actualizacón, Jorge Jaurena te compró el FWPPC hace mas o menos un año, pero recien hace poco tiempo empezamos a intentar desarrollar aplicaciones.
Si hay alguna actualización de FWPPC disponible como hay que hacer para bajarla?
Desde ya muchas gracias.
Saludos Esteban Ojeda

[Antonio Linares]

Esteban,

Te enviamos un email

[jrestojeda]

Me olvidé de aclararte que el error que me está tirando es cuando quiero elnlazar.
El ejemplo q me enviaste también me tira el mismo error.
Puede ser que me esté faltando algo?

Estoy complilando de la siguiente manera:

@ECHO OFF
CLS
DEL Compilar.log

ECHO Compiling...

ECHO ** COMPILO DE PRG A C *********************************
HARBOUR INICIO /n /i /p %2 %3 >>COMPILAR.LOG
echo --------------------------------------------------------------------------- >>COMPILAR.LOG
echo . >>COMPILAR.LOG
echo . >>COMPILAR.LOG
ECHO ************************************************************
ECHO ********** COMPILO DE C A OBJ *************************

CLARM -TP -W3 -c /DARM /DUNICODE /I C:\HARBOUR_ce\include /I..\include INICIO.c >>COMPILAR.LOG
echo --------------------------------------------------------------------------- >>COMPILAR.LOG
ECHO ************************************************************
PAUSE

Complila bien si errores.

Y enlazo de la siguiente manera:

DEL LIN.TMP

echo C:\WPSIngresoStock\RESOURCE\INGRESO.res >> LIN.TMP
echo C:\WPSIngresoStock\OBJ\INICIO.obj >> LIN.TMP

echo C:\FWPPC\lib\FiveCE.lib C:\FWPPC\lib\FiveCEC.lib >> LIN.TMP
echo C:\harbour_CE\lib\rtl.lib >> LIN.TMP
echo C:\harbour_CE\lib\vm.lib >> LIN.TMP
echo C:\harbour_CE\lib\gtwin.lib >> LIN.TMP
echo C:\harbour_CE\lib\lang.lib >> LIN.TMP
echo C:\harbour_CE\lib\macro.lib >> LIN.TMP
echo C:\harbour_CE\lib\rdd.lib >> LIN.TMP
echo C:\harbour_CE\lib\dbfntx.lib >> LIN.TMP
echo C:\harbour_CE\lib\dbfcdx.lib >> LIN.TMP
echo C:\harbour_CE\lib\dbffpt.lib >> LIN.TMP
echo C:\harbour_CE\lib\hbsix.lib >> LIN.TMP
echo C:\harbour_CE\lib\debug.lib >> LIN.TMP
echo C:\harbour_CE\lib\common.lib >> LIN.TMP
echo C:\harbour_CE\lib\pp.lib >> LIN.TMP
echo C:\harbour_CE\lib\codepage.lib >> LIN.TMP

echo C:\VCE\lib\arm\coredll.lib >> LIN.TMP
echo C:\VCE\lib\arm\corelibc.lib >> LIN.TMP
echo C:\VCE\lib\arm\aygshell.lib >> LIN.TMP
echo C:\VCE\lib\arm\ws2.lib >> LIN.TMP
echo C:\VCE\lib\arm\mfcce400.lib >> LIN.TMP
echo C:\VCE\lib\arm\ole32.lib >> LIN.TMP
echo C:\VCE\lib\arm\ceshell.lib >> LIN.TMP
echo C:\VCE\lib\arm\commctrl.lib >> LIN.TMP
echo C:\VCE\lib\arm\wininet.lib >> LIN.TMP

C:\VCE\bin\link @LIN.TMP /SUBSYSTEM:WINDOWSCE,4.20 /MACHINE:ARM

PAUSE

El error del que te hablaba en mensajes anteriores se produce cuando enlazo.

Gracias y disculpame las molestias ocasionadas
Saludos Esteban

[Antonio Linares]

>
FiveCe.lib (DATABASE.OBJ): Error LNK2001 unresolved external simbol "void__cdecl HB_FUN_unsitooem(void)" (?HB_FUN_oemtoansi@@yaxxz)
>

El error no será HB_FUN_ANSITOOEM(void) ? En mayúsculas

[jrestojeda]

Si si ese es el error. Porque puede ser?

[Antonio Linares]

Añade esta función a tu PRG principal:

Code: Select all  Expand view

function AnsiToOem( cTexto )

return cTexto


[nolgiati]

Antonio no se que estoy haciendo mal porque sigue tirando el mismo error, esta es la manera en que agregue la funcion en mi main():

***************************************************
#include "FWCE.ch"

REQUEST HB_LANG_ESWIN

// DEFINICION DE COLORES /////////////////////////////////////////////////////////////
#Define Negro 0
#Define Azul 8388608
#Define AzulB 16711680
#Define Verde 32768
#Define VerdeB 65280
#Define Celeste 8421376
#Define CelesteB 16776960
#Define Rojo 128
#Define RojoB 255
#Define Magenta 8388736
#Define MagentaB 16711935
#Define Marron 32896
#Define Gris 8421504
#Define GrisB 12632256
#Define Amarillo 65535
#Define Blanco 16777215
//

STATIC oWnd

// FUNCION MAIN /////////////////////////////////////////////////////////////////////
Function Main()
Local oBmp,oCursor1,oBar,cTexto,oDbf
Local Datos:="\\PIII\C\WPSDatos\"

LandScape()
HB_LANGSELECT("ESWIN")
SET DELETED ON
SET DATE TO FREN
*SET SOFTSEEK ON
SET CENTURY ON
SET EPOCH TO 2000
*SET DEFAULT TO &Datos

AnsiToOem(cTexto)
USE (Datos+"STOCK.DBF") VIA "DBFNTX" NEW
DATABASE oDbf
Stock->(DbGoTop())

DEFINE BITMAP oBmp NAME 'Five'

DEFINE WINDOW oWnd TITLE "Inventario"

ACTIVATE WINDOW oWnd ;
ON PAINT oWnd:SayBitmap(60,10,oBmp);
ON INIT Control()

Portrait()
DBCLOSEALL()
oBmp:End()
Return Nil
//

// FUNCION ANSI //
Function AnsiToOem(cTexto)

Return cTexto
//

Gracias de nuevo.

[nolgiati]

Antonio no se que estoy haciendo mal porque sigue tirando el mismo error, esta es la manera en que agregue la funcion en mi main():

***************************************************
#include "FWCE.ch"

REQUEST HB_LANG_ESWIN

// DEFINICION DE COLORES /////////////////////////////////////////////////////////////
#Define Negro 0
#Define Azul 8388608
#Define AzulB 16711680
#Define Verde 32768
#Define VerdeB 65280
#Define Celeste 8421376
#Define CelesteB 16776960
#Define Rojo 128
#Define RojoB 255
#Define Magenta 8388736
#Define MagentaB 16711935
#Define Marron 32896
#Define Gris 8421504
#Define GrisB 12632256
#Define Amarillo 65535
#Define Blanco 16777215
//

STATIC oWnd

// FUNCION MAIN /////////////////////////////////////////////////////////////////////
Function Main()
Local oBmp,oCursor1,oBar,cTexto,oDbf
Local Datos:="\\PIII\C\WPSDatos\"

LandScape()
HB_LANGSELECT("ESWIN")
SET DELETED ON
SET DATE TO FREN
*SET SOFTSEEK ON
SET CENTURY ON
SET EPOCH TO 2000
*SET DEFAULT TO &Datos

AnsiToOem(cTexto)
USE (Datos+"STOCK.DBF") VIA "DBFNTX" NEW
DATABASE oDbf
Stock->(DbGoTop())

DEFINE BITMAP oBmp NAME 'Five'

DEFINE WINDOW oWnd TITLE "Inventario"

ACTIVATE WINDOW oWnd ;
ON PAINT oWnd:SayBitmap(60,10,oBmp);
ON INIT Control()

Portrait()
DBCLOSEALL()
oBmp:End()
Return Nil
//

// FUNCION ANSI //
Function AnsiToOem(cTexto)

Return cTexto
//

Gracias de nuevo.

[Antonio Linares]

Que error exactamente te da ?

[nolgiati]

El error es el siguiente:

FiveCE.lib(DATABASE.obj) : error LNK2001: unresolved external symbol "void __cdecl HB_FUN_EOMTOANSI(void)" (?HB_FUN_EOMTOANSI@@YAXXZ)
INVENTARIO.exe : fatal errorLNK1120: 1 unresolved externals

Slds!