FiveTech Software tech support forums

... "WColors.ch" //----------------------------------------------------------------------------// function Main() local oWnd, oLbx local cKey:= "Upper(Nombre)", oItem local cDefaultMsg:= "(C) 1994-2002, CeSoTech PC Solutions" local oFont DEFINE FONT oFont NAME GetSysFont() ...

... 0 .and. n <= Len( aData ), aData[ n ], 0 ) Same way for Hashes also: We can either write a TRY,CATCH,END block OR result := If( HHasKey( hData, cKey ), hData[ cKey ], <default> ) ----------------------------------------------

... I received a compilation error, I assumed that Mr.Antonio must have missed the oBrw: in the sample code and changed the code to oBrw:bSeek := { | cKey | oBrw:SeekOnArray( oBrw,, cKey ) } which gave run time error. :oops: My personal advice is not to assign any codeblock to bSeek. The default codeblock ...

... with the focus set on the control. What lines do I have to write to send those keys to the control? I have tried oControl:KeyChar(ckey) and ( oControl:Setfocus() , __Keyboard(nkey) ) but it does not work. Any ideas? Thank you very much Alvaro

Uso SQLRDD y no he tenido problema de búsquedas con (cAlias)->(DBSeek(cKey)).

He revisado un proceso crítico y tengo más de 40 instrucciones de búsqueda a mas de 15 diferentes tablas, digo crítico porque el proceso es usado en forma local y remota en forma concurrente.

... = { || SelColor( RECNO() ) } oLbx:nLineStyle = 1 oLbx:aJustify = { 0, 0, 0, 0 } oLbx:Setfocus() METHOD FUNCTION DOKEY1(nKey,nFlag,oLbx) local cKEY, nSeekrec, ckey2 local nRecNo8 := RecNo() DO CASE CASE nKEY == VK_RETURN cTitle:="Modificacion y Consulta " Alta2 (1,oLbx) CASE nKEY ...

So now we comes closer to the prob: As reported above, the function My_Get_Reg32( cKey, cSubkey, uVar) works well, when calling separately. Also the function TimeZone() returns the right value 2. But when I compile it in my main app the function My_Get_Reg32() returns ...

Found the solution !

do case
case cKey == 'A'
oApp:oGrid:aCols[3]:lHide := .t.
case cKey == 'T'
oApp:oGrid:aCols[3]:lHide := .t.
case cKey == 'G'
oApp:oGrid:aCols[3]:lHide := .f.
case cKey == 'S'
oApp:oGrid:aCols[3]:lHide := .f.
endcase

Nages, ----------------------------------------------------------------------------- do case case cKey == 'A' oGrid:bitmap:lHide := .t. case cKey $ 'GS' oGrid:bitmap:lHide := .f. otherwise oGrid:bitmap:lHide := .f. endcase ---------------------------------------------------------------------------------- ...

... '_index.prg'... _index.prg(24) Error E0030 Syntax error: "syntax error at 'CNAME'" _index.prg(25) Error E0030 Syntax error: "syntax error at 'CKEY'" _index.prg(26) Error E0030 Syntax error: "syntax error at 'CFOR'" _index.prg(27) Error E0030 Syntax error: "syntax error at 'BKEY'" _index.prg(28) ...

... } Note: You must define two public or static vars as follows: PUBLIC cArgume := "", nSeconds := SECONDS() */ FUNCTION DbSearch(nKey,oBrw) LOCAL cKey := UPPER( chr(nKey) ),; nRecno := RECNO(),; nLapso := SECONDS() - nSeconds,; cArgAnt cArgume := IF(nLapso > 1 .OR. nLapso < 0,"",cArgume) ...

... "Cust_no", "! EMPTY(Cust_no)") }, "Sales Maintenance..." ) CLOSE DATABASES RETURN STATIC PROCEDURE CreateTag (oMeter, oText, oDlg, lEnd, cTagName, cKey, cCondition, lDescend) MEMVAR cKeyField, cForCond PRIVATE cKeyField, cForCond IF VALTYPE(lDescend) != "L" lDescend := .F. ENDIF cKeyField := cKey ...

Rubén: Este es el PROCEDURE que uso, la verdad no recuerdo quien la puso en el foro :oops: , hace tanto tiempo de eso !. PROCEDURE Busca(cKey,oLbx,nLong) LOCAL nSeekRec := RECNO() DEFAULT nLong := 0 IF nLong > 0 cKey := STR(VAL(cKey),nLong,0) ENDIF IF GETASYNCKEY(VK_BACK) cKey := SUBSTR(cKey,1,LEN(cKey)-1) ...

... 2007'04 no daba problemas, al menos yo no los detecté. Ahora he actualizado a la versión 2008'01 y en esta función: OrdCreate( ::cFile, ::cName, ::cKey, ::bKey, ::lUniq ) el programa se rompe sin dejar rasto alguno !!! La DBF tiene el campo sobre el que se realizará el índice, los valores ue recibe ...

... ldbf := xrutemp+afiles[j,1] lntx := xrutemp+aindices[x,1] USE &ldbf index &lntx NEW ALIAS ALTEMP cnombre := substr(lntx,at('.',lntx)+1,3) ckey := indexkey() fwrite(wtexto,'I'+cnombre+' '+ckey+chr(13)+chr(10)) dbclosearea() next x fwrite(wtexto,'*'+chr(13)+chr(10)) next j *AGREGA LOS ARCHIVOS ...