PARA LEANDRO (DE BOGOTA COLOMBIA)

[Miguel Rivera]

Hola Leandro:

Me he metido en un problema, he cambiado de clipper 5.2e a clipper 5.3, ya que para aplicar el codigo que tu me indicastes tuve que cambiar de version de clipper.

Al compilar con clipper 5.3, Fw 2.2 y Blinker 7.0

Ejecute modulos que estaban funcionando en clipper 5.2e y ahora ya no funcionan. El problema puntual es que USO INDICES CDX. y al hacer un seek codigo, me indica que la base no esta indexsada.

Necesito en forma urgente por solucionar este problema.

Saludos

Miguel

Muestro parte del codigo:

En el LNK, me pide que declare las librerias Dbfcdx.lib y _Dbfcdx.lib, antes en clipper 5.2e, solo indicaba Dbfcdx.lib

ANNOUNCE RDDSys
INIT Procedure RDDInit()
REQUEST DBFCDX // Causes DBFcdx RDD to be linked in
rddSetDefault( "DBFCDX" ) // Set up DBFcdx as default driver

**
.. BASE INDEXSADA

sele 1
Use Departa Shared Alias oDbdep New
Set inde to Departa
set rela to Cod_pro into Proyecto,Cod_pro+Cod_edi into Edificio,cod_ori into Oridep,Cod_tip into Tipodep

** Donde busco y se produce el ERROR que declaro
sele a
DbSeek(Cod_pro1+Cod_edi1+Cod_dep1)

Este es el registro del ERROR

Application
===========
Path and name: C:\UTIL\VTADPTO\INMOBILI.EXE
Size: 430,784 bytes
Max files handles permited: ( SetHandleCount() ) 255
Error ocurred at: 18/01/2007, 17:44:40
Error description: Error _DBFCDX/1201 Workarea not indexed

Stack Calls
===========
Called from DBSEEK(0)
Called from EXISTE_DEP(301)
Called from (b)ACTUDEP1(207)
Called from TGET:LVALID(0)
Called from TGET:FWLOSTFOCU(0)
Called from TGET:HANDLEEVEN(0)
Called from DIALOGBOX(0)
Called from TDIALOG:ACTIVATE(0)
Called from ACTUDEP1(237)
Called from (b)ACTUDEP(76)
Called from TBTNBMP:CLICK(0)
Called from TBTNBMP:LBUTTONUP(0)
Called from TBTNBMP:HANDLEEVEN(0)
Called from DIALOGBOX(0)
Called from TDIALOG:ACTIVATE(0)
Called from ACTUDEP(117)
Called from (b)MENU(128)
Called from TMENU:COMMAND(0)
Called from TMDIFRAME:COMMAND(0)
Called from TMDIFRAME:COMMAND(0)
Called from TMDIFRAME:HANDLEEVEN(0)
Called from WINRUN(0)
Called from TMDIFRAME:ACTIVATE(0)
Called from TUTOR(94)

System
======
CPU type: 486
Hardware memory: 66240 (64 megas)

Free System resources: % 58
GDI resources: % 58
User resources: % 63

Windows and MsDos versions: 3.95, 7.10
Windows total applications running: 24
1 C:\WINDOWS\EXPLORER.EXE
2 C:\WINDOWS\SYSTEM\USER.EXE
3 C:\WINDOWS\SYSTEM\SHLWAPI.DLL
4 C:\WINDOWS\SYSTEM\COMCTL32.DLL
5 C:\WINDOWS\SYSTEM\BROWSEUI.DLL
6 C:\MULTIE~1\MEWLIB32.DLL
7 C:\ARCHIV~1\MSNMES~1\MSNMSGR.EXE
8 C:\ARCHIV~1\WINAMP\WINAMPA.EXE
9 C:\UTIL\VTADPTO\INMOBILI.DLL
10 C:\UTIL\VTADPTO\INMOBILI.EXE
11 C:\WINDOWS\SYSTEM\WINOA386.MOD
12 C:\WINDOWS\SYSTEM\MSHTML.DLL
13 C:\WINDOWS\SYSTEM\URLMON.DLL
14 C:\ARCHIV~1\SPYBOT~1\SDHELPER.DLL
15 C:\WINDOWS\SYSTEM\OLE32.DLL
16 C:\WINDOWS\SYSTEM\DDEML.DLL
17 C:\WORKSHOP\WORKED3.DLL
18 C:\WINDOWS\SYSTEM\DDHELP.EXE
19 C:\WINDOWS\SYSTEM\IMON.DLL
20 C:\ARCHIV~1\WINZIP\WZQKPICK.EXE
21 C:\WINDOWS\SYSTEM\STIMON.EXE
22 C:\WINDOWS\SYSTEM\WEBCHECK.DLL
23 C:\ARCHIV~1\ARCHIV~1\REAL\UPDATE~1\REALSC~1.EXE
24 C:\WINDOWS\LOADQM.EXE
25 C:\WINDOWS\SYSTEM\SYSTRAY.EXE
26 C:\WINDOWS\PTSNOOP.EXE
27 C:\WINDOWS\TASKMON.EXE
28 C:\WINDOWS\SYSTEM\MMSYSTEM.DLL
29 C:\WINDOWS\SYSTEM\MSTASK.EXE
30 C:\WINDOWS\SYSTEM\IENPSTUB.DLL
31 C:\WINDOWS\SYSTEM\SPOOL32.EXE
32 C:\WINDOWS\SYSTEM\MSGSRV32.EXE
33 C:\WINDOWS\SYSTEM\E_S5I4A1.EXE
34 C:\WORKSHOP\WORKSHOP.EXE
35 C:\WINDOWS\SYSTEM\SHDOC401.DLL

Variables in use
================
Procedure Type Value
==========================
DBSEEK
Param 1: C "PR1 DEP1125 "
EXISTE_DEP
Param 1: C "PR1 "
Param 2: C "DEP1"
Param 3: C "125 "
Local 1: L .T.
Local 2: N 4
(b)ACTUDEP1
Param 1: O Class: TGET
TGET:LVALID
Local 1: O Class: TGET
Local 2: L .T.
TGET:FWLOSTFOCU
Local 1: O Class: TGET
TGET:HANDLEEVEN
Param 1: N 2057
Param 2: N 0
Param 3: N 0
DIALOGBOX
Param 1: N 23951
Param 2: C "Departamento"
Param 3: N 2540
Param 4: O Class: TDIALOG
TDIALOG:ACTIVATE
Param 1: U
Param 2: U
Param 3: U
Param 4: L .T.
Param 5: U
Param 6: L .T.
Param 7: U
Param 8: U
Param 9: U
Local 1: O Class: TDIALOG
Local 2: N 2540
Local 3: U
Local 4: U
Local 5: U
Local 6: O Class: TDIALOG
ACTUDEP1
Param 1: L .T.
Local 1: U
Local 2: U
Local 3: O Class: TGET
Local 4: O Class: TSAY
Local 5: O Class: TSAY
Local 6: U
Local 7: O Class: TGET
Local 8: O Class: TDIALOG
Local 9: O Class: TGET
Local 10: O Class: TSAY
Local 11: O Class: TGET
Local 12: U
Local 13: O Class: TGET
Local 14: U
Local 15: U
Local 16: O Class: TFONT
Local 17: U
Local 18: U
Local 19: U
Local 20: U
Local 21: O Class: TGET
Local 22: U
Local 23: O Class: TCOMBOBOX
Local 24: U
(b)ACTUDEP
Param 1: O Class: TBTNBMP
TBTNBMP:CLICK
Local 1: O Class: TBTNBMP
TBTNBMP:LBUTTONUP
Param 1: N 19
Param 2: N 38
Param 3: O Class: TBTNBMP
Local 1: U
Local 2: L .T.
TBTNBMP:HANDLEEVEN
Param 1: N 514
Param 2: N 0
Param 3: N 1245222
DIALOGBOX
Param 1: N 23951
Param 2: C "LISTAMAE"
Param 3: N 2312
Param 4: O Class: TDIALOG
TDIALOG:ACTIVATE
Param 1: U
Param 2: U
Param 3: U
Param 4: L .T.
Param 5: U
Param 6: L .T.
Param 7: U
Param 8: U
Param 9: U
Local 1: O Class: TDIALOG
Local 2: N 2312
Local 3: U
Local 4: U
Local 5: U
Local 6: O Class: TDIALOG
ACTUDEP
Local 1: U
Local 2: U
Local 3: U
Local 4: N 0
Local 5: U
Local 6: U
Local 7: U
Local 8: U
Local 9: U
Local 10: U
Local 11: U
Local 12: U
Local 13: A Len: 4
Local 14: N 1
Local 15: U
Local 16: O Class: TDIALOG
Local 17: O Class: TCBROWSE
Local 18: U
Local 19: N 1
(b)MENU
Param 1: O Class: TMENUITEM
TMENU:COMMAND
Param 1: N 20009
Local 1: O Class: TMENU
Local 2: O Class: TMENUITEM
TMDIFRAME:COMMAND
Param 1: N 20009
Param 2: N 0
Local 1: O Class: TMDIFRAME
Local 2: N 0
Local 3: N 20009
Local 4: N 0
TMDIFRAME:COMMAND
Param 1: N 20009
Param 2: N 0
Local 1: O Class: TMDIFRAME
Local 2: U
TMDIFRAME:HANDLEEVEN
Param 1: N 273
Param 2: N 20009
Param 3: N 0
WINRUN
Param 1: N 2312
TMDIFRAME:ACTIVATE
Param 1: C "MAXIMIZED"
Param 2: U
Param 3: U
Param 4: U
Param 5: U
Param 6: U
Param 7: U
Param 8: B { || ... } CodeBlock
Param 9: U
Param 10: U
Param 11: U
Param 12: U
Param 13: U
Param 14: U
Param 15: U
Param 16: U
Param 17: B { || ... } CodeBlock
Param 18: U
Param 19: U
Local 1: O Class: TMDIFRAME
Local 2: U
Local 3: U
TUTOR
Local 1: O Class: TBRUSH
Local 2: O Class: TICON
Local 3: U
Local 4: O Class: TCURSOR
Local 5: O Class: TBAR
Local 6: U
Local 7: U
Local 8: N 12854

Linked RDDs
===========
DBF
_DBFCDX
DBFCDX

DataBases in use
================

1: => ODBDEP RddName: _DBFCDX
==============================
RecNo RecCount BOF EOF
4 4 .F. .F.

Indexes in use TagName
Cod_pro+Cod_edi+Cod_dep DEPARTA1
Cod_edi+Cod_dep DEPARTA2
Cod_dep DEPARTA3

Relations in use
1: TO Cod_pro INTO PROYECTO
2: TO Cod_pro+Cod_edi INTO EDIFICIO
3: TO cod_ori INTO ORIDEP
4: TO Cod_tip INTO TIPODEP

10: PROYECTO RddName: _DBFCDX
==============================
RecNo RecCount BOF EOF
1 2 .F. .F.

Indexes in use TagName
=> Cod_pro PROYEC1
Nom_pro PROYEC2

Relations in use

11: EDIFICIO RddName: _DBFCDX
==============================
RecNo RecCount BOF EOF
1 2 .F. .F.

Indexes in use TagName
cod_pro+Cod_edi EDIFI1
Nom_edi EDIFI2
Cod_edi EDIFI3

Relations in use
1: TO Cod_pro INTO PROYECTO

12: TIPODEP RddName: _DBFCDX
==============================
RecNo RecCount BOF EOF
4 4 .F. .F.

Indexes in use TagName
Cod_tip TIPODEP1

Relations in use

13: ORIDEP RddName: _DBFCDX
==============================
RecNo RecCount BOF EOF
2 3 .F. .F.

Indexes in use TagName
Cod_ori ORIDEP1

Relations in use

Classes in use:
===============
1 TBRUSH
2 TWINDOW
3 TCONTROL
4 TICON
5 TCURSOR
6 TMDIFRAME
7 TMENU
8 TMENUITEM
9 TMDICLIENT
10 TDIALOG
11 TBAR
12 TRECT
13 TBTNBMP
14 TMSGBAR
15 TFONT
16 TMSGITEM
17 TTIMER
18 TSAY
19 TWBROWSE
20 TCBROWSE
21 TCCOLUMN
22 TBUTTON
23 TSCROLLBAR
24 TBITMAP
25 TGET
26 GET
27 TCOMBOBOX
28 ERROR

Memory Analysis
===============
Static memory:
data segment: 64k
Initial size: 30624 bytes (SYMP=696, Stack=8192, Heap=2056)
Clipper Stack: 34449 bytes
33 Static variables: 462 bytes

Dynamic memory consume:
Actual Value: 864134 bytes
Highest Value: 997254 bytes

[Armando Picon]

Clipper 5.3 viene con las librerias DBFCDX.LIB, _CDFCDX.LIB para poder manejar hasta 4 billones de registros. Lo unico que tienes que hacer es incluir en tu lnk esta última libreria.

[wmormar]

Miguel,

No soy leandro, pero no resistí el contestar...

Code: Select all  Expand view  RUN

Use Departa Shared Alias oDbdep New
Set inde to Departa
set rela to Cod_pro into Proyecto,Cod_pro+Cod_edi into Edificio,cod_ori into Oridep,Cod_tip into Tipodep

** Donde busco y se produce el ERROR que declaro
oDbdep->(DbSeek(Cod_pro1+Cod_edi1+Cod_dep1) )


Si te das cuenta, ya se eliminaron los SELECT, esto es porque cuando usas alias, solo haces referencia a estos y listo.

Ese es el error del dbseek, checalo y comentanos.

Saludos

[Miguel Rivera]

William:

Te agradezco enormemente tu ayuda, pero estaba tan complicado en tener una ayuda, que esta la dirigi a Leandro que siempre me brinda su ayuda, era solo por tiempo de respuesta, tengo al cliente ensima, hice un cambio que dejo de funcionar todo el sistema.

Tu respuesta, me ha ayudado a dar solucion y entender mi problema, desde ya muy agradecido por tu ayuda,

Saludos,

Miguel

Miguel,

No soy leandro, pero no resistí el contestar...

Code: Select all  Expand view  RUN

Use Departa Shared Alias oDbdep New
Set inde to Departa
set rela to Cod_pro into Proyecto,Cod_pro+Cod_edi into Edificio,cod_ori into Oridep,Cod_tip into Tipodep

** Donde busco y se produce el ERROR que declaro
oDbdep->(DbSeek(Cod_pro1+Cod_edi1+Cod_dep1) )


Si te das cuenta, ya se eliminaron los SELECT, esto es porque cuando usas alias, solo haces referencia a estos y listo.

Ese es el error del dbseek, checalo y comentanos.

Saludos

[leandro]

Amigo que pena no haberte podido responder antes.. pero he tenido problemas con mi maquina. Espero se haya solucionado el problema, como siempre ya sabes no dudes en preguntar.

[Miguel Rivera]

Gracias Leandro:

Disculpa mi patudes de dirigir mi pregunta a ti, pero estoy tan urgio que recurri a ti, ya que tuve que cambiar la ver de 5.2e a 5.3 para aplicar el codigo que tu me enviastes para los colores del LISTBOX, te acuerdas.

Por el momento me encuentro tratando de clarificar las dudas de como 5.3 maneja los indices CDX, con tag.

Desde muchas gracias,

Saludos
Miguel

Amigo que pena no haberte podido responder antes.. pero he tenido problemas con mi maquina. Espero se haya solucionado el problema, como siempre ya sabes no dudes en preguntar.