FiveTech Software tech support forums

... //SELECT 1 USE (cSERVER + "MULTIFUN.DBF") NEW //SHARED INDEX ON COD_AVUL TAG TAG_001 TO IND001 INDEX ON NOMFUN TAG TAG_002 TO IND002 DBSETINDEX("IND001") SELECT 2 USE (cSERVER + "ARQSIND.DBF") NEW // SHARED SELECT 3 USE (cSERVER + "MULTIEMP.DBF") NEW ...

...  DbUseArea( .T. ,, cArchivio, cAlias, .T. )   IF VALTYPE( aIdx ) == "A"      FOR i := 1 TO LEN( aIdx )         DBSETINDEX( aIdx[ i ] )      NEXT   ENDIF   oDbf := TDatabase():Open(,cAlias)RETURN oDbf return me a message "TD0001.dbf ...

... LOCAL oDbf Locals oDbf: = TDatabase (): Open (nil, cDbf, "DBFCDX", .T.) IF VALTYPE (aIdx) == "A" FOR i: = 1 TO LEN (aIdx) DBSETINDEX (aIdx [i]) NEXT ENDIF return oDbf or perhaps not need open the indexes

hi Marc,
I have my single file ORDINI.DBF with index ORDINI.CDX, I don't want to use Clipper command or function: DbUseArea, DbSetIndex, DbSkip, Dbseek...
I'd like to use for this file a simple SQL command "Select * from ORDINI.DBF WHERE..." and then to use fields.

... DBSetDriver([<cDriver>])->cCurrentDriver DBSetFilter(<bCondition>,[<cCondition>])->Nil DBSetIndex(<cIndexName>)->Nil DBSetOrder(<nOrdernum>)->Nil DBSetRelation(<nArea>|<cAlias>,<bExpr>,[<cExpr>])->Nil ...

... DBPack DBRecall DBRecordInfo DBReindex DBRelation dbRename DBRLock DBRLockList DBRSelect DBRUnlock DBSeek DBSelectArea DBSetDriver DBSetFilter DBSetIndex DBSetOrder DBSetRelation DBSkip DBSkipper DBSort DBStruct DBTableExt DBTotal DBUnlock DBUnlockAll DBUpdate DBUseArea DBZap Default DefPath ...

... using dbusearea() with UNC path to dbf files but indexes (cdx) will not be opened not with autoopen (as they should by ADS documentation) nor with DBSetIndex() call. Dbsetindex() returns ADS 7041 error (File not found). When I enable access for user to data folder ADS works without problem. Any ...

... Workarea nÆo est  em uso: ORDLISTADD Stack Calls =========== Called from: => ORDLISTADD( 0 ) Called from: source\rdd\rddord.prg => DBSETINDEX( 0 ) Called from: PROG08.PRG => PROG08( 76 ) Called from: SIND32.PRG => HABIL( 1681 ) Called from: SIND32.PRG => (b)ASSOC( 341 ) ...

OK, here is the line erroring out. TLOCKS->(DBSETINDEX(aLockCtrl[1]+RDDINFO(RDDI_ORDBAGEXT,,aLockCtrl[2]) )) I have done a global search and I can't find any .H or .CH files containing the manifest constant RDDI_ORDBAGEXT. So that seems to be ...

EXPORTS HB_FUN_AADD @1 HB_FUN_ABS @2 HB_FUN_ACCELERATO @3 HB_FUN_ACCELERATOR @4 HB_FUN_ACHOICE @5 HB_FUN_ACLONE @6 HB_FUN_ACOPY @7 HB_FUN_ADEL @8 HB_FUN_ADIR @9 HB_FUN_AEVAL @10 HB_FUN_AFIELDS @11 HB_FUN_AFILL @12 HB_FUN_AINS @13 HB_FUN_ALERT @14 HB_FUN_ALIAS @15 HB_FUN_ALLTRIM @16 HB_FUN_ALTD @17 H...

... DBFCDX/1003 Open error: C:\ADORDD2015\TLOCKS.CDX Stack Calls =========== Called from: => ORDLISTADD( 0 ) Called from: ../../../rddord.prg => DBSETINDEX( 0 ) Called from: test.prg => ADO_GETUNLOCK( 2776 ) Also, Append does not work fine. The first time I append a record: http://i57.tinypic.com/nyg3uw.jpg ...

... Local oSALDO,nSALDO:="",nAREA Local nUSRFLT:=IIF(nUFLT<>NIL,.T.,.F.) oXDBF:=APRI_DB(nDBF) (oXDBF)->(DBSetIndex(nDBF)) IF Len(aDB) > 0 IF !Empty( aDB[1][5] ) (oXDBF)->(DBSetOrder( aDB[1][5] )) Endif Endif IF nFIL<>NIL IF !Empty(AllTrim(nFIL)) ...

Esro es lo que sale. Enlazando UTILDISC.exe... Warning: Unable to perform incremental link - performing full link... Error: Unresolved external '_hb_vmProcessSymbols' referenced from C:\XEDIT2\OBJ\EJEMPLO.DBJ Error: Unresolved external '_HB_FUN_SETCOLOR' referenced from C:\XEDIT2\OBJ\EJEMPLO.DBJ Err...

... Error DBCMD/2001 WORKAREA NOT IN USE: ORDLISTADD Stack Calls =========== Called from: => ORDLISTADD( 0 ) Called from: ../../../rddord.prg => DBSETINDEX( 0 ) Called from: H:\spa\files.PRG => Openfiles( 108 ) openfiles.prg: ====================  LOCAL pPath := ".\" [...]  ...

Parece que te falta establecer los indices, porque cerraste y re-abriste la dbf BANCO:

IF SELECT("BANCO")=0
DBUSEAREA(.T.,cVia,UBI+"BANCO","BANCO",.T.)
DBSETINDEX(cIndice1........) ; DBSETINDEX(cIndice2........)
ENDIF

cAlias:=Alias()


BANCO->(ORDSETFOCUS(1))