Query Con Fecha
Publicado por Jesus Ma. Batres (1 intervención) el 04/02/2004 01:16:53
Buenas Tardes, la mayoria de mis aplicaicones las tengo en Clipper, ahora necesito ejecutar una consulta de bases de datos de VFP, pero no logro que el programa de VFP que desarrolle me traiga a Clipper la inf. que necesito.
Desde Clipper ejecuto
run Ejemplo c:\Windows\Temp BDTemp
y Ejemplo de VFP 6.0 es...
Function Ejemplo(lpath, lbd)
Local ltipo_mov, lfini, lffin, ltemp
Set Delete On
Set Century On
Set Date To british
Set Defa To (lpath)
Use (lbd)
ltipo_mov = Tipo_Mov
lfini = Fec_Ini
lffin = Fec_Fin
ltemp = Temp
Select 1
Use Share 'N:\Visual\Dic_Inc\ToBanco' index 'N:\Visual\Dic_Inc\ToBanco'
Select ToBanco.* ;
From ToBanco ;
Where (ToBanco.Tipo_Mov == ltipo_mov) ;
AND (ToBanco.Fecha == DtoC(lfini));
Order By ToBanco.No_Cte, ToBanco.Fecha
COPY TO (ltemp) TYPE FOX2X
Close All
Una veces me marca error de Tipo de Datos otras no pero me ignora el rango de fechas, creo que mi problema es con el rango de fechas, ya intente con >= {^ DtoC(lfini)} y con >= ' " ' +DtoC(lfini)+ ' " ' , etc
Muchos les agradeceria sus comentarios...
Saludos...
Desde Clipper ejecuto
run Ejemplo c:\Windows\Temp BDTemp
y Ejemplo de VFP 6.0 es...
Function Ejemplo(lpath, lbd)
Local ltipo_mov, lfini, lffin, ltemp
Set Delete On
Set Century On
Set Date To british
Set Defa To (lpath)
Use (lbd)
ltipo_mov = Tipo_Mov
lfini = Fec_Ini
lffin = Fec_Fin
ltemp = Temp
Select 1
Use Share 'N:\Visual\Dic_Inc\ToBanco' index 'N:\Visual\Dic_Inc\ToBanco'
Select ToBanco.* ;
From ToBanco ;
Where (ToBanco.Tipo_Mov == ltipo_mov) ;
AND (ToBanco.Fecha == DtoC(lfini));
Order By ToBanco.No_Cte, ToBanco.Fecha
COPY TO (ltemp) TYPE FOX2X
Close All
Una veces me marca error de Tipo de Datos otras no pero me ignora el rango de fechas, creo que mi problema es con el rango de fechas, ya intente con >= {^ DtoC(lfini)} y con >= ' " ' +DtoC(lfini)+ ' " ' , etc
Muchos les agradeceria sus comentarios...
Saludos...
Valora esta pregunta


0