FiveTech Software tech support forums

... ) WHILE .T. oTagActual = oXmlIter:Next() If oTagActual != nil _XmlParse( oTagActual:cName, oTagActual:cData ) HEval( oTagActual:aAttributes, { | cKey, cValue | _XmlParse( cKey, cValue, oTagActual:cName ) } ) ELSE EXIT ENDIF END FClose( hFile ) // Process 997... IF (nBkgRec>0) _Xml997( nBkgRec, ...

... )->( DBCommit() ) METHOD Create( cFile, 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() ...

... COLOR CLR_BLUE oLbx:SetAdo(cMa_Ctes) oLbx:bSeek := {|c| BBus(c,cMa_Ctes,nIndex[cVar]) } oLbx:oSeek := oSay oLbx:bKeyDown := {|nKey| iif( nKey=13,(cKey := ADOField(cMa_Ctes,"ma_rutc"),oDlg:End() ),)} STATIC FUNCTION BBus(cBuscar,oRs,oOrden) Local nLen:=Len(cBuscar) static nLenAnt Default ...

... can be retrieved as : FOR i := 1 TO LEN(h) ; ? h[i] ; NEXT // We can use numeric index In harbour we become the creation order with : FOR EACH cKey IN h ; ? h[cKey] ; NEXT // In xharbour this gives alfabetic order on the key # include "fivewin.ch"# ifdef __HARBOUR__# ifndef __XHARBOUR__# ...

Code: Select all  Expand view

HEval( aHash, {|cKey,cVal| wqout({cKey,cVal}) })

Supongo que en este caso será: cKey = "M-9999-DF" y cVal = "O" (Object)

... TRICH_I_FOUND             => FW_getMessages( "TRICH_I_FOUND" )#xtranslate $_ => FW_getMessages()  #endif el cKey del Hash lo pense en este formato... 5 primeras letras el prg donde se encuentra 1 lentra para determinar donde se usara el mensaje: S = MsgStop ...

Have you tried these other functions?

HB_CRYPT( cBufferIn, cKey ) )

HB_DECRYPT( cBufferIn, cKey ) )

maybe you can fix...

... REDEFINE GET oGet VAR cBusca ID 101 OF oDlg UPDATE FONT oVentPrinc:oFont COLOR CLR_BLUE when .f. oLbx:bKeyDown := {|nKey| iif( nKey=13,(cKey:=SQLField(cExi_Suc,"ma_arti"),oDlg:End() ),(PlisBuscar(nKey,@cExi_Suc,"exi_suc",nIndex[cVar],oLbx,@cbusca,cSelect),oLbx:Refresh(),oLbx:Refresh(),oGet:Refresh() ...

... y me preguntaba si hay manera de realizar el borrado de registros de 275.000 registros de manera muy muy rápida, yo actualmente lo hago así. if cKey != nil while ::oDbf:Seek( cKey ) if ::bOnPreDeleteDetail != nil Eval( ::bOnPreDeleteDetail, Self ) end if ::oDbf:Delete( .f. ) if ::bOnPostDeleteDetail ...

Prueba con:

procedure SendKeysGets(oWnd,cKey)
oWnd:setfocus()
SysRefresh()
SENDKEY(cKey)
return

... test lost 2 bytes word input. METHOD KeyChar( nKey, nFlags ) CLASS TXBrowse ... do case ... case nKey == VK_ESCAPE memowrit("aaa.txt",::ckeychar ) ::ckeychar:="" // a temparary data 'ckeychar' add to xbrowse class ... otherwise ::cKeyChar += Chr( nKey ) ... We open log file ...

... VAR cBusca ID 101 OF oDlg UPDATE FONT oVentPrinc:oFont COLOR CLR_BLUE when .f. y dentro del browse xbrowse oLbx:bKeyDown := {|nKey| iif( nKey=13,(cKey:=SQLField(cExi_Suc,"ma_arti"),paso:=1,oDlg:End() ),(PlisBuscar(nKey,@cExi_Suc,"exi_suc",nIndex[cVar],oLbx,@cbusca,cSelect),oLbx:Refresh(),oLbx:Refresh(),oGet:Refresh() ...

... un SysRefresh() y un .T. al final EVAL, el nEvery saca un porcentaje de 5% al total de registro, para ir indicando el avance: Index On &cKey Tag &cTag To &filex EVAL (oMeter:Set( recno() ), SysRefresh(), .T.) Every nEvery Muchas gracias Antonio, te debo otra mas... Jorge Gayoso ...

Al realizar la instrucción siguiente, el archivo no se indexa pasa de largo y la barra de progreso no avanza: Index On &cKey Tag &cTag To &filex EVAL (oMeter:Set( recno() ) ) igual que con esta instrucción: Index On &cKey Tag &cTag To &filex EVAL (oMeter:Set( ...

Al realizar la instrucción siguiente, el archivo no se indexa pasa de largo y la barra de progreso no avanza: Index On &cKey Tag &cTag To &filex EVAL (oMeter:Set( recno() ) ) igual que con esta instrucción: Index On &cKey Tag &cTag To &filex EVAL (oMeter:Set( ...