FiveTech Software tech support forums

... know when de user has changed the index clicking on header, then I can write the fieldname in Dialog. For example something like this: 'On change indexord()' msginfo("Active index is "+str(indexord())). My problem is I don't know identifier when user is clicking on header with Xbrowse ...

... TAG ARTICULOS1 FOR !Deleted() ? INDEX ON FIELD->SERIE + StrZero (FIELD->NUMERO,20 ) TAG FACTURAS1 FOR !Deleted() ? indexord() ? LOCATE FOR ALLTRIM(CLIENTES->NOMBRE) = ALLTRIM(CNOMBRE) .AND. ALLTRIM(CLIENTES->APELLIDOS) = ALLTRIM(CAPELLIDOS) si OrdSetFocus(“CLIENTES2”) ...

Alert( "Arquivo: " + Dbf() + " Indice:" + Str( IndexOrd() ) )

... hacerlo, aquí el código: if nIngReg=1 .or. lPasar aIng:=array(2) aIng:={1,Space(30)} lPasar:=.F. endif if ContarReg(BEN)>0 nInd:=Benefi->(Indexord()) Benefi->(dbSetorder(1)) Benefi->(dbGoBottom()) aIng[1]:=Benefi->(Fieldget(2))+1 Benefi->(dbSetorder(nInd)) endif DEFINE DIALOG ...

I think the problem for Silvio is that the index "order" is not the number 3. may be you can use IndexOrd to see what number it is. or get informations by this piece of code (untested): cMsg := ""for j = 1 to OrdCount()   if !Empty( IndexKey( ...

... " + DBF() + " Index ==> " + (cFileName)->(INDEXKEY(nOrder)) + ; " Order ==> " + ALLTRIM( STR( (cFileName)->(INDEXORD()) ) ) ) --------------------------------- The File-change and indexord at runtime on RADIO-selection The file- and index-change works but ...

... IIf(<lCondition>,<expTrue>,<expFalse>)->Value IndexExt()->cExtension IndexKey(nOrder)->cKeyExp IndexOrd()->nOrder Inkey([<nWaitSeconds>],[<nEventMask>])->nInkeyCode Int(<nExp>)->nInteger InvertAttr(<xColor>)->nInvertedAttribute ...

... HMerge Hour HScan HSet HSetAACompatibility HSetAutoAdd HSetCaseMatch HSetPartition HSetValueAt HtmlToAnsi HtmlToOem I2Bin If IIf IndexExt IndexKey IndexOrd Inkey Int InvertAttr IsAffirm IsAlNum IsAlpha IsAscii IsBegSeq IsBit IsCntrl IsColor IsColour IsDbExcl IsDbFlock IsDbRLock IsDigit IsDigit ...

Antonio buenas noches, ahora son estos: Proyecto: Kept5, Entorno: BorlandDLL: [1]:Harbour.Exe Source\Tseguro.prg /m /n /es2 /ki /iP:\32bits\xharbour\include;P:\32bits\FWH\INCLUDE /i /oObj\Tseguro.c xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 6406) Copyright 1999-2009, http://www.xharbour.org http:...

Antonio, aquí la segunda parte: Error: Unresolved external '_HB_FUN_DRAWTHEMED' referenced from P:\32BITS\FWH\LIB\FIVEHX.LIB|DIALOG Error: Unresolved external '_HB_FUN_GETDLGBASEUNITS' referenced from P:\32BITS\FWH\LIB\FIVEHX.LIB|DIALOG Error: Unresolved external '_HB_FUN_CDLG2CHR' referenced from P...

... := SELECT(), cRegis IF SELECT(XARCH) == 0 USE (WPATH + "\" + XARCH) SHARED NEW ENDIF DBSELECTAR(XARCH) cRegis:=RECNO() ORD_ACT = INDEXORD() SET ORDER TO XORDEN DBSEEK((XCLAVE)) IF FOUND() .AND. !DELETED() RET = EVAL(FIELDBLOCK(XCAMPO)) ELSE DBGOBOTTOM() RET = SPACE(LEN(EVAL(FIELDBLOCK(XCAMPO)))) ...

... codigo: FUNCTION facturar( nAlb, cClient, cAltera ) LOCAL oDlg, oBtnCancel, oBtnalb, oBtncli, oBtnrep, oNegre, nfac LOCAL fich := Dbf(), nind := IndexOrd(), cTitle := 'F A C T U R A C I O N' lacces = validapl( ProcName(), ' ' ) IF lacces = 'N' .OR. blo_quea RETURN( .T. ) ENDIF IF ValType( nAlb ...

... lAgenda,lSalvabile) //****************************************************************************** local nArea:=select(),nOldPos,nIndice:=indexord() select pratiche nOldPos:=recno() if lInsert goto bottom skip dDataInizio:=date() cFascicolo:=STR_FASC_ANON cCodFascicolo:=padr("abcd",LUNG_COD_CONTRO) ...

... //Hasta aqui todo correcto mientras no sean mas de 7 indices (el 8 no funciona y siguientes no funcionan)        ? Select()        ? indexord() //v_orden = indexord() menos cuando llega al 8 que me pone 0  Parece que xharbour tiene problemas en las nuevas versiones para cargar ...

Thanks to you both for your suggestions. I ended up using the OrdKeyNo() call in place of the NTXPOS function and that seems to work perfectly. I'm sure there are advantages to using newer browses, but at this point there are enough other things to work on, I'm taking the quickest path toward conver...