Xailer & OZ Software

Hola.
Tengo un DBBrowse mostrando una tabla segun un rango de fechas. Como hago
para actualizar el select de la consulta, he probado varias cosas pero no me
funciona. El cSelect siempre va antes que Create(). No?
::oDesdeFecha:Value := AppData:dFechaSis-30
::oHastaFecha:Value := AppData:dFechaSis
WITH OBJECT ::oComprobantes := TSQLQuery():New()
:oDataSource := AppData:oBase
:cProcess := "GENERAL"
:nLockType := adLockOptimistic
:lOpen := .T.
cTituloPrincipal := "Facturas de Ventas"
cBusqueda := "select USUARIO,FECHA,NUMERO,TOTAL from movfactuventas "
cBusqueda += "where fecha >='"+DtoS(::oDesdeFecha:Value)+"' and fecha
<='"+DtoS(::oHastafecha:Value)+"' "
cBusqueda += "order by fecha"
:cSelect := cBusqueda
:Create()
END
::oDBBrowse1:oDataSet:= ::oComprobantes
Luego el usuario modifica los valores de ::oDesdeFecha y ::oHastaFecha. Como
hago?
Gracias
Juan

Encontre la solución
cBusqueda := "select USUARIO,TCOMP,FECHA,NUMERO,TOTAL from movfactuventas "
cBusqueda += "where fecha >='"+DtoS(::oDesdeFecha:Value)+"' and fecha
<='"+DtoS(::oHastafecha:Value)+"' "
cBusqueda += "order by fecha"
WITH OBJECT ::oComprobantes
:Close()
:cSelect := cBusqueda
:Open()
END WITH
::oDBBrowse1:Refresh()
Gracias igual
"Juan Castañeda" <jrcsistemas@speedy.com.ar> escribió en el mensaje
news:4946c04c$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
> Hola.
> Tengo un DBBrowse mostrando una tabla segun un rango de fechas. Como hago
> para actualizar el select de la consulta, he probado varias cosas pero no
> me funciona. El cSelect siempre va antes que Create(). No?
>
> ::oDesdeFecha:Value := AppData:dFechaSis-30
> ::oHastaFecha:Value := AppData:dFechaSis
>
> WITH OBJECT ::oComprobantes := TSQLQuery():New()
> :oDataSource := AppData:oBase
> :cProcess := "GENERAL"
> :nLockType := adLockOptimistic
> :lOpen := .T.
> cTituloPrincipal := "Facturas de Ventas"
> cBusqueda := "select USUARIO,FECHA,NUMERO,TOTAL from movfactuventas "
> cBusqueda += "where fecha >='"+DtoS(::oDesdeFecha:Value)+"' and fecha
> <='"+DtoS(::oHastafecha:Value)+"' "
> cBusqueda += "order by fecha"
> :cSelect := cBusqueda
> :Create()
> END
> ::oDBBrowse1:oDataSet:= ::oComprobantes
>
> Luego el usuario modifica los valores de ::oDesdeFecha y ::oHastaFecha.
> Como hago?
>
>
>
> Gracias
>
> Juan
>