FiveTech Software tech support forums

Antonio, Thanks. Resent the email. Now it works fine with Browse() and OrdSetFocus(), but not with xBrowse(). With xBrowse() I get: Error description: Error BASE/1074 Error de argumento: <= Args: [ 1] = C LIBROS1 [ 2] = N 2 Stack Calls =========== Called ...

Antonio, No, I didn´t use SET INDEX. Now it Work: SET INDEX TO LUCAS1, LUCAS2 But there is a bug at OrdSetFocus(). It returns numbers, but it should return the tag name, i.e. LUCAS2. For example: LUCAS->(  OrdSetFocus("MYLUCASBIS")  )Alert(OrdSetFocus()) ...

Lucas,

Did you open the indexes with set index to or ordlistadd.

They are not opened with the table by adordd

They must be opened before ordsetfocus gets called
This is not the normal procedure with ordsetfocus that does nothing if the index

Its a guess

Lucas, No, I haven´t tried indexes already, as to fully test a complete application I need LOCATE FOR, DbSeek(), SET FILTER and OrdSetFocus() to be working, and I think they are not ready yet. All should be working (check index array) but Ill post in the next hour a new version of adordd ...

... and all went perfect. No, I haven´t tried indexes already, as to fully test a complete application I need LOCATE FOR, DbSeek(), SET FILTER and OrdSetFocus() to be working, and I think they are not ready yet. Thank you for your work. Now with latest changes I could issue xBrowse(), but if I ...

Hello,

I would like to test with indexes, because that was the only lack in adordd.prg provided within Harbour.

I also use ordsetfocus(), i e:

Code: Select all  Expand view

CLIENTES->(  OrdSetFocus("CLIENTES1")  )

Thank you.

... its up to DB admin. By ordlistadd or createindex it would add to some array in the adordd the name of the indexes attached to that workarea. By ordsetfocus() the code simply asks for new recordset replacing the one in the same work area using SELECT …. ORDER BY…. The ORDER BY is extracted and ...

... Shall I supply always path name in the fie string? With indexes the same? Besides this I notice there are missing some traditional RDD functions: OrdSetFocus() Recno() How do we implement Recno() in traditional SQLdatabases? Can I creat it like this: aMyFunc[ UR_ORDSETFOCUS ] := ( @ADO_ORDSETFOCUS() ...

... if ! OpenDbf("CLIENTES", {"CLIENTES"}, (fFile1 := GetNewAlias()), .T.) ; return NIL ; end if (fFile1)->(ordSetFocus("NOMBRE")) *--------------------------------------------------------------------------- DEFINE DIALOG oDlg RESOURCE "DLG_BUSQUEDA" ...

... = PROD_CON.ID_PROD" AdsExecuteSqlDirect(cQuery) Index On STRZERO(ID_PROD,5) TAG "ID" TO (cAlias) Select(cAlias) (cAlias)->(OrdSetFocus("ID")) (cAlias)->(dbGoTop()) Repito, en una conexion de area Local, sin problemas, pero via Internet en el Index On me genera ...

... = PROD_CON.ID_PROD" AdsExecuteSqlDirect(cQuery) Index On STRZERO(ID_PROD,5) TAG "ID" TO (cAlias) Select(cAlias) (cAlias)->(OrdSetFocus("ID")) (cAlias)->(dbGoTop()) Repito, en una conexion de area Local, sin problemas, pero via Internet en el Index On me genera ...

... ) 7) KeyNo() 8 ) KeyGoTo( nKey ) 9) KeyCount() 10) RecCount() 11) SetOrder( cColumnName ) --> Oldorder name // This should exactly work like OrdSetFocus() Most important method: 12) Skipper( n ) --> nSkipped Compulosry DATA Actually optional, but you can not use columns clause without ...

Solo permite un índice temporal

Cómo se haría esto SET ORDER TO TAG NOMTMP IN CDXTMP con OrdSetFocus("NOMTMP")

Gracias.

Saludos,

Adhemar

... ; DIALOGS "ACTMOV", "ACTMOV" //---- Dialogo 1 -----// dbSelectArea("GUIINGAL") GUIINGAL->(OrdSetFocus("GUIINGA1")) REDEFINE XBROWSE oLbx ; FIELDS DTOC(GUIINGAL->GUIFEC),; Oemtoansi(GUIINGAL->DOC),; Oemtoansi(GUIINGAL->SERIE),; ...

... su opcion") OF oWnd DEFINE DIALOG oDlg RESOURCE "Mantenimientos2" OF oWnd FONT oFont dbSelectArea("MAEREP") MAEREP->(OrdSetFocus("MAEREP1")) REDEFINE XBROWSE oLbx ; FIELDS MAEREP->Codgru,; Oemtoansi(MAEREP->Grudes),; TRANSFORM(MAEREP->Codigo,"@R ...