FiveTech Software tech support forums

... el dialogo y xbrowse y llenado
function ShowPopup( nRow, nCol, lin,nFiltro,oLbx)
LOcal oDlg
local oWnd, aData := {}, i, oBrw, oBtn
Local cFiltro,nEstado
Local lAceptar:=.F.

AAdd(aData,"< Seleccionar Todos >" )

Do Case
Case nFiltro="estado"
cFiltro:=XServer:Query("SELECT estado FROM ...

... SET&#40; _SET_DECIMALS, nDecimals &#41;&nbsp; &nbsp;xbrowse&#40;aregistros&#41;&nbsp;for i := 1 to len&#40; aRegistros &#41;&nbsp; &nbsp; &nbsp;cFiltro += ADODEFLDRECNO&#40;&#41; + " = " + aregistros&#91;i&#93;&nbsp; &nbsp; &nbsp;if i != len&#40; aRegistros &#41;&nbsp; &nbsp; &nbsp; &nbsp; cFiltro ...

... SET&#40; _SET_DECIMALS, nDecimals &#41;&nbsp; &nbsp;xbrowse&#40;aregistros&#41;&nbsp;for i := 1 to len&#40; aRegistros &#41;&nbsp; &nbsp; &nbsp;cFiltro += ADODEFLDRECNO&#40;&#41; + " = " + aregistros&#91;i&#93;&nbsp; &nbsp; &nbsp;if i != len&#40; aRegistros &#41;&nbsp; &nbsp; &nbsp; &nbsp; cFiltro ...

... adUseClient
THIS LINE oRecordSet:Fields( aWAData[WA_FIELDRECNO] ):Properties("Optimize") := 1
ENDIF


FUNCTION Filter2Sql(nArea,cTableName,cFiltro)


THIS LINE; IN if substr(cfiltro,at(alltrim(upper((cAliasCorr)->(fieldname(n)))),cfiltro)-1,1) in " (),.##%$=<>"



Next, SET ADO DEFAULT ...

Hello,

I use in DBFCDX this way to filter for all fields:

cWild := "*"+ "value to search A BUSCAR" +"*"
cFiltro := "hb_WildMatch( '"+cWild+"', DbRecordInfo( 9 ) ) .OR.
hb_WildMatch( '"+UPPER(cWild)+"', DbRecordInfo( 9 ) ) .or. hb_WildMatch(
'"+lower(cWild)+"', DbRecordInfo( 9 ) ) "


SET FILTER ...

Hola compañeros,

Para buscar un valor en todos los campos ahora uso:

cWild := "*"+ "VALOR A BUSCAR" +"*"
cFiltro := "hb_WildMatch( '"+cWild+"', DbRecordInfo( 9 ) ) .OR.
hb_WildMatch( '"+UPPER(cWild)+"', DbRecordInfo( 9 ) ) .or. hb_WildMatch(
'"+lower(cWild)+"', DbRecordInfo( 9 ) ) "


SET FILTER ...

Ruben,

Para que funcione la parte del where como lo estas comentando, seria de la siguiente manera:


cFiltro := " a1.planta = '"+alltrim(oQry:planta)+"' "
cFiltro += " AND a1.codprod = '"+alltrim(oQry:codprod)+"' "
cFiltro += " AND a1.verprod = "+alltrim(str(oQry:verprod))

considerando que planta ...

... pero en el reporte cuando cambia de codigo me dele enlazar los registro correspondientes a dicho codigo.

Algo similar como hago con ADO Filter
cFiltro := " planta = '"+alltrim(oQry:planta)+"' "
cFiltro += " AND codprod = '"+alltrim(oQry:codprod)+"' "
cFiltro += " AND verprod = "+alltrim(str(oQry ...

... lo mejor es que te cambies a cdx, no requiere de mucho, y es mas fiable y rapido,,
te recomendaria que armaras tus indices con DTOS(), es mas practico y facil
cfiltro := "fecha>='"+dtos(dDesde)+"' .and. fecha<='"+dtos(dHasta)+"'"
bfiltro := "{||"+cfiltro+"}"
dbsetfilter(&bfiltro,cfiltro)
saludos
paco

... que en la construccion literal el compilador no va a detectar un error de sintaxis hasta el momento en que la condicion es macroevaluada &("{||"+ cFiltro+ "}" ), pero ojo TODA la condicion porque al ser una condicion "condicionada" no esta completa.

Me explico: tu pondrias:
Local cVar1:= "algo ...

Sorry,
other option

cCampo := "CONCAT(paterno, ' ', materno, ' ', nombre)"
cFiltro := "FRAN"
SELECT *,CONCAT(paterno, ' ', materno, ' ', nombre) AS completo FROM empleados " +;
" WHERE "+cCampo+" LIKE '%" + ALLTRIM(cFiltro) + "%'"

Regards
Pak.o

... con varios PC's conectados y accesando a la misma DBF (con 90.000 registros y 25mb). Hacer un filtrado de datos mediante DBFILTER(&bfiltro,cfiltro) tarda aprox. 14 segundos si hay 3 PC conectados simultaneamente y 10 si hay 2 PC. En la RED no se conectarán más de 5 PC.

¿ Considerais este ...

... es la correcta, recuerdo que en Clipper puro tenia el mismo problema si la base de la cual estoy intentando recuperar datos estaba abierta, entonces lo que hacia era cerrar esa tabla y hacerle el APPEND FROM con la condicion necesaria en tu caso :

USE PAGTEM

APPEND FROM PAG FOR &cFiltro


Saludos

... Pag" la tienes filtrada por un criterio, y esa sigue filtrada al momento de pasar por Procesa(), mi pregunta es : Despues del filtro DbSetFilter(&cFiltro,gFiltro), quedan registros para adicionar a "PagTem" ??

Por otro lado no veo ningun Rlock(), tal vez no sea necesario por que no has utilizado ...

... una forma de hacerlo con el append from

De antemano muchas gracias
Mexico

STATIC FUNCTION filtro()
MEMVAR Condi, PrimFecha, UltFecha, SoloCob, cFiltro, gFiltro
PUBLIc Condi, PrimFecha, UltFecha, SoloCob, cFiltro, gFiltro

Condi := ""
PrimFecha := dFechaIni
UltFecha := dFechaFin
SoloCob ...