FiveTech Software tech support forums

Antonio, Check the functions for each task that you mention. There you will see where the indexes, etc. are placed: i.e. in ADO_ORDCREATE()      IF aWAData[ WA_CATALOG ]:Tables( aWAData[ WA_TABLENAME ] ):Indexes == NIL .OR. ! lFound        &...

... " records" ( ::cAlias )->( ORDCONDSET( cFor, cFor2,,,, nInterval, ( ::cAlias )->( RECNO() ),,,, lAscending ) ) ( ::cAlias )->( ORDCREATE(, ( cTag ), cKey, { || &cKey }, ) ) RETURN nil and the error I receive is: Error description: Error ADSCDX/5089 The operation is not valid ...

... open the file std.ch from [x]Harbour include directory and search for INDEX ON and you will find that INDEX ON.... is split into ordCondSet() and ordCreate() function calls. With the first call you can specify filters and also the callback function. It seems to me that the progress bar is 50 chars ...

Anda, anda Manolillo!!! anda que a estas alturas!!! Usa StrZero(<nNúmero>) --> cNúmero Y lo debes aplicar así ( dbfFacCliT )->( ordCreate( cPath + "FACCLIP.CDX", "nImporte", "nImporte", {|| StrZero( Field->nImporte ) }, ) ) Para buscar lo mismo: dbSeek( ...

... "Importe",; ( dbfFacCliT )->( ordCondSet( "!Deleted()", {|| !Deleted() }, , , , , , , , , , , .t. ) ) ( dbfFacCliT )->( ordCreate( cPath + "FACCLIP.CDX", "nImporte", "nImporte", {|| Field->nImporte }, ) ) Saludos

... (fFile1)->NOMBRE) > 0", {|| at(rtrim(cCadena), (fFile1)->NOMBRE) > 0},,,,, RECNO(),,,,)),; (fFile1)->(ordCreate(, "FILTRO", "(fFile1)->NOMBRE", {|| (fFile1)->NOMBRE},)),; (fFile1)->(ordSetFocus("FILTRO")),; (fFile1)->(dbGoTop()),; ...

solution included in :

viewtopic.php?f=3&t=28048

best regards
Uwe

... : http://www.pflegeplus.com/fw_downloads/Dbfcomp1.zip tested : Relations normal and selective Index progressbar using ORDCONDSET( ..., ORDCREATE(.... Compare 2 DBF's using relations Cell-color of relation-result Xbrowse-footer show sum / results of relations deleting records using compare ...

Enrico, I only found the function < IndexBuilder() > in DBU. I could try to use the logic from there. I want to include it in my new RELATION-test, Im' still working on, to include the Index-PROGRESSBAR. Footer total on NORMAL relation http://www.pflegeplus.com/pictures/total2....

Uwe,

ukoenig wrote:Hello,

is it possible to add a PROGRESSBAR, building a index with ORDCREATE ?

Yes, you have to use OrdCondSet() function.

EMG

Hello, is it possible to add a PROGRESSBAR, building a index with ORDCREATE ? ORDCREATE builds just ONE index < CUST.cdx > with embedded CUST1, CUST2 and CUST3 DBSELECTAREA("CUST") ORDCREATE( ,"CUST1","CUST_NO", {|| CUST_NO ...

... ordCondSet( 'mv_status < "F"', {|| mv_status < "F"},,,,, RECNO(),,,,,, .T.,,,,,,, ) then the actual indexing is started ordCreate( ( ::cCurDir+cData ), ( "statactive" ), "ld_num+mv_no", {|| ld_num+mv_no},,, ,{} )

... aStruct, cDriver ) ; INLINE DbCreate( cFile, aStruct, cDriver ) METHOD CreateIndex( cFile, cTag, cKey, bKey, lUnique) INLINE ; ( ::nArea )->( OrdCreate( cFile, cTag, cKey, bKey, lUnique ) ) METHOD ClearRelation() INLINE ( ::nArea )->( DbClearRelation() ) METHOD DbCreate( aStruct ) INLINE ...

Solucionado. La función que da el error DBCMD/2001 es es OrdCreate(). El código del programa con el que da error es: use MVTEQUIP new index on MATRICULA tag MATRICULA close Lo he solucionado haciendo un SELECT del archivo inmediatamente después de abrirlo: ...

... xc->(fieldput(13,time())) replace xc->pda with zpda unlock endif . . . . netuse(progpath+"imachine","xx",.T.,3) ordCreate( (progpath+"ipdainfo" ), "id", "id") ordCreate( (progpath+"ipdainfo" ), "code", "code" ...