FiveTech Software tech support forums

... cTexte := SubStr(cTexte,1,len(cTexte)-2) ENDIF cTexte := Hex2Str(cTexte) RETURN cTexte FUNCTION Carac64( cBin ) LOCAL nPos := ASC( BinToCar( @cBin ) ) + 1 RETURN SUBSTR( "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/", nPos, 1) FUNCTION Hex64( carac64 ...

... AmPm(<cTime>)->cFormattedTime AnsiToHtml(<cAnsiString>)->cHtmlString Array(<nElements>,[<nElements>,...])->aArray Asc(<cExp>)->nCode AScan(<aTargets>,<expSearch>,[<nStart>],[<nCount>],[<lExact>],[<lASCII>])->nStoppedAt ...

... ADSRightsCheck ADSSetAOF ADSStmtSetTableReadOnly AEval AFields AFill AfterAtNum AIns ALenAlloc Alert Alias AllTrim AltD AmPm AnsiToHtml Array Asc AScan ASCIISum AscPos ASin ASize ASizeAlloc ASort At AtAdjust ATail ATan ATn2 AtNum AtRepl AtSkipStrings AtToken BeforAtNum Bin2I Bin2L Bin2W BitToC ...

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 buenos dias, gracias por la ayuda Agrego la VM.LIB (xharbour), y me manda estos errorres :( :( 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)...

... que quiero se ordenen mis registros, hace tiempo pregunte sobre como definir el AUTOSORT pero que inicie por la columna que quiero y si lo qiero ASC o DESC, creo eso resolveria mi problema, por los momentos he quitado "de nuevo" el DESC de la consulta para poder trabajar con mi xBrowse. ...

... nSum2 nLen := AT( "*", cCad ) nSum1 := HexToDec( Substr( cCad, nLen +1, 2 ) ) // el checksum esta apartir de "*" nSum2 := Asc( Substr( cCad, 1, 1 ) ) // cogemos el primer caracter a sumar FOR c := 2 TO nLen -1 nSum2 := nXor( nSum2, Asc( Substr( cCad, c, 1 ) ) ) NEXT RETURN ...

... nSum2 nLen := AT( "*", cCad ) nSum1 := HexToDec( Substr( cCad, nLen +1, 2 ) ) // el checksum esta apartir de "*" nSum2 := Asc( Substr( cCad, 1, 1 ) ) // cogemos el primer caracter a sumar FOR c := 2 TO nLen -1 nSum2 := nXor( nSum2, Asc( Substr( cCad, c, 1 ) ) ) NEXT RETURN ...

... permite (al dar click en cada cabecera) ordenar todas las columnas, es mas si vuelves a dar click en la cabecera cambia el orden, cambiando entre ASC y DESC en cada click, esto es lo que no logro hacer funcionar. Por ahora trabajo con indices, similar a tu ejemplo, gracias

... the when opened with Notepad, all the data is strung together. If I open the same file with UltraEdit it asks me "Do you want to convert test.asc to DOS format" When I answer "yes" the data is separated into individual lines. This is what I am looking to get via code. Does anyone ...

... LOCAL aToken LOCAL cType, cOrder aToken := HB_ATokens( oQry:cOrder, " " ) IF Len( aToken ) == 1 AAdd( aToken, "ASC" ) ENDIF cOrder = AllTrim( Lower( aToken[ 1 ] ) ) cType = aToken[ 2 ] AEval( oCol:oBrw:aCols, {| o | o:cOrder := " " } ) IF oQry:aStructure[ ...

... clauses> @ r,c, BTNBMP <clauses> FILE/RESOURCE nChr <other clauses> For WingDings add 0x10000 or 0x20000 or 0x30000 to the asc value of the character for WingDings, WingDings 2, WingDings 3 * New: TMenu: New METHOD DelItem * Enhancement: MenuItem: adjust left side of items ...

... 2 and WingDings3. We can use this to pick up the character we need to display the image we want. To use a character as bitmap, simply mention the ASC value of the character as the FILE or RESOURCE while defining BtnBmp or ButtonBmp. Example for Segoe fonts: DEFINE BUTTON OF oBar PROMPT "text" ...

... focus with a Key (or key combination) This are some topics, but none that I can get to work. 1. SetKey( K_ALT_T, { || MyFunction() } ) 2. SETKEY(ASC("Y"), {|| IIF(GetKeyState(VK_CONTROL), EVAL( {|| MyFunction (oTimer,oMain) } ), NIL) } ) The 2. version works when the program is visible ...

... diferentes nombres de campos entonces: oCol:cSortOrder := <fieldnames> Ejemplo: oCol:cSortOrder := "FIRST,LAST" No especifiques ASC or DESC. XBrowse internamente añade ASC or DESC según lo solicitado. Por lo que es posible hacer lo que deseas usando AUTOSORT sin tener que escribir ...