Una solución es generar un Segundo cursor en VFP a partir del que traes del motor
Donde traes por ejemplo:
SELECT CAST(FEC_VTO AS DATE) AS FEC_VTO , DMA(FEC_LIQ) AS FEC_LIQ,
TTOD(FEC_PAGO) AS FEC_PAGO FROM TMPCuotas1 into cursor TmpCuotas
Este cursor que armas nuevamente trae de 3 formas diferentes, las fechas ya
sin la hora.
La función DMA por ejemplo seria:
func DMA
lpara _fecha_,M.LOWER
local mef,mes_,resulta
if type("_fecha_")="C"
_fecha_=ctod("01/"+_fecha_)
endif
if _fecha_={} or isnull(_fecha_) OR EMPTY(_FECHA_) OR
inlist(dtos(_FECHA_),"18991230","19000101") or dtos(_FECHA_)<"19000101"
retu SPACE(11)
endif
mef=month(_fecha_)
do case
case mef=1
mes_="Ene"
case mef=2
mes_="Feb"
case mef=3
mes_="Mar"
case mef=4
mes_="Abr"
case mef=5
mes_="May"
case mef=6
mes_="Jun"
case mef=7
mes_="Jul"
case mef=8
mes_="Ago"
case mef=9
mes_="Set"
case mef=10
mes_="Oct"
case mef=11
mes_="Nov"
case mef=12
mes_="Dic"
endc
retu TRANSFORM(DAY(_fecha_),"@L
99")+"-"+IIF(!EMPTY(M.LOWER),LOWER(mes_),mes_)+IIF(year(_fecha_)=1900,"","-"
+TRANSFORM(year(_fecha_)))
De: [email protected] [mailto:[email protected]] En nombre de Nando
Enviado el: Martes, 25 de Octubre de 2011 02:47 p.m.
Para: GUFA List Member
Asunto: [GUFA] Fechas traidas de SqlServer
Como se puede hacer para mostrar las fechas en el formato habitual
(dd/mm/aaaa) sin la hora ni el AM. Estan declarados como smalldatetime, pero
al traer los datos me parecen de esta manera y no me gusta.
De que forma se puede acomodar? Trate de cambiarle el inputmask al textbox
pero sigue mostrándolo como fue guardado en la BBDD
Saludos
Nando
<<image001.png>>
