qdate harbor Qt

14/09/2010

El problema que tenia con la fecha QDate y la forma que experaba
la propiedad era un simple OBJ: TEXT , el cual convierto a fecha
mediante :
Todo esto sin senales ni conexiones , de forma directa segun aplica
el concepto anterior

---------------------------------------------------------------------

FUNCTION FecharK( ksosObj,dateTmp,DateFormat)

#define QT_EVE_DATECHANGED "dateChanged()"

LOCAL sDate, dateSos, lexit := .F.

dd := day (dateTmp)
mm := month(dateTmp)
aa := year (dateTmp)

dateSos := QDate():New()
dateSos : setDate(aa, mm , dd)

sDate :=QDateTimeEdit():new()
sDate : setDisplayFormat( DateFormat )

sDate : setCalendarPopUp(.T.)
sDate : setDate( dateSos )
sDate : setStyleSheet(cssK(CSS_GET))

sDate : show()

RETURN sDate

---------------------------------------------------------------------
una lineas de aplicacion de esta funcion es

recordar que para que funcione esto de estar encapsulado en la forma
que indico en el ejemplo : FUNCTION GetSosK(textoTmp,variableTmp)
en el dia 13/09/2010 donde SOS deber ser remplazado por GG

dateTmp := date()
dateFormat := "dd/MM/yyyy" // ojo a las MM , MM:: meses mm :: minutos
SOS := FecharK( Wind,dateTmp,DateFormat)
date := ctod(OBJ : TEXT())