Usando el Control Microsoft Date and Time Picker con valores de fecha y hora

Articulo original: "Using the Microsoft Date and Time Picker Control with Date and Time Values"
http://doughennig.blogspot.com/2008/06/using-microsoft-date-and-time-picker.html
Autor: Doug Hennig
Traducido por: Luis María Guayán

---

He usado el control ActiveX Microsoft Date and Time Picker (DTPicker). Ayer tropecé con un tema interesante. En primer lugar, algunos antecedentes.

El control tiene cuatro modos diferentes de ingreso de datos, a través de la propiedad Format: fecha corta, fecha larga, hora, y personalizado. Lo bueno de los tres primeros, es que utilizan automáticamente los ajustes de fecha y hora de la Configuración Regional en el Panel de control, por lo que no tiene que preocuparse por cuestiones de localización. La cuarta, se utiliza para los formatos personalizados.

El formato de hora está bien si sólo desea la hora, pero si quiere mostrar tanto la fecha y la hora, tiene que definir la propiedad Format a 3 para personalizarlo, luego, establezca la propiedad CustomFormat al formato deseado. Por ejemplo, "MM/dd/yyy HH:mm:ss" utiliza dos dígitos para la mayoría de los valores y los cuatro dígitos del año (sí, cuatro, aunque la cadena de formato utiliza tres). Sin embargo, aquí está la cuestión: ¿Cómo saber qué formato usar? El usuario puede estar utilizando MM/DD/AAAA, DD/MM/AAAA, o cualquier otra variedad de formatos.

Afortunadamente, VFP tiene varias funciones que retornan los formatos de fechas. SET("DATE") retorna valores como MDY o American para el formato MM/DD/AAAA, DMY o BRITISH para el formato DD/MM/AAAA, y así sucesivamente. SET("MARK") retorna el carácter que separa las partes de la fecha (como por ejemplo "/" o "-").

Tengo una subclase del control DTPicker llamada SFDatePicker (en realidad, es un contenedor que contiene un DTPicker) que ofrece funcionalidades adicionales, incluyendo el soporte a fechas vacías, datos obligatorios, como así también el control de formato. El control de formato se maneja a través de la propiedad personalizada lDateTime; el valor por omisión es .F. que significa que sólo la fecha aparece, mientras que .T. significa que se mostrará la fecha y la hora conjuntamente.

Suelte uno en un formulario, establezca la propiedad cControlSource a el control fuente que desea, configure lDateTime a .T. si desea la fecha y la hora, y listo.

El siguiente código en el método SetCustomFormat de SFDatePicker, que se llama en los métodos Init y Assiggn de lDateTime (en caso de que cambie la propiedad por programación), es necesario establecer CustomFormat:

with This  
  lcFormat = set('DATE')  
  if lcFormat <> 'SHORT' or .lDateTime  
    .oleDTPicker.Object.Format = 3  
    lcMark = set('MARK')  
    do case  
      case inlist(lcFormat, 'AMERICAN', 'MDY', 'USA', 'SHORT')  
        lcCustomFormat = 'MM' + lcMark + 'dd' + lcMark + 'yyy'  
      case inlist(lcFormat, 'BRITISH', 'DMY', 'FRENCH', ; 
        'GERMAN', 'ITALIAN')  
        lcCustomFormat = 'dd' + lcMark + 'MM' + lcMark + 'yyy'  
      case inlist(lcFormat, 'JAPAN', 'YMD', 'TAIWAN', 'ANSI')  
        lcCustomFormat = 'yyy' + lcMark + 'MM' + lcMark + 'dd'  
    endcase  
    if .lDateTime  
      lcCustomFormat = lcCustomFormat + ' HH:mm:ss'  
    endif .lDateTime  
    .oleDTPicker.CustomFormat = lcCustomFormat  
  endif lcFormat <> 'SHORT' ... 
endwith

Parece que este código se ocupa de los diferentes formatos de fecha adecuadamente, incluído el caracter de separación de la fecha, por lo que ¿cuál es el problema? Es muy sutil: Si utiliza SET SYSFORMATS ON, o sea que debe respetar la configuración regional del usuario, SET("DATE") retorna "SHORT". Este código asume que las fechas "cortas" son tratados como MDY.

Ahora el problema es cómo determinar cuál es el formato de fecha del usuario actual.Imaginé que una función de la API de Windows se ocuparía de esto, y encontré algunas posibilidades en MSDN, pero parece que estas funciones no pueden ser llamadas directamente desde VFP, ya que requieren funciones de llamada. Entonces, tomé el planteamiento de la fuerza bruta:

if lcFormat = 'SHORT' 
  ldDate = date(2008, 1, 3) 
  lcDate = dtoc(ldDate) 
  lnPos1 = at('8', lcDate) 
  lnPos2 = at('1', lcDate) 
  lnPos3 = at('3', lcDate) 
  do case 
    case lnPos1 < lnPos2 and lnPos2 < lnPos3 
      lcFormat = 'YMD' 
    case lnPos1 > lnPos2 and lnPos2 > lnPos3 
      lcFormat = 'DMY' 
    case lnPos1 > lnPos3 and lnPos3 > lnPos2 
      lcFormat = 'MDY' 
  endcase 
endif lcFormat = 'SHORT' 

Este código utiliza 01/03/2008 (en formato MDY) como una fecha, lo convierte en una cadena (que respeta la configuración regional de los usuarios), entonces de acuerdo al orden de los digitos para el mes, día y año, establecemos en consecuencia lcFormat.

Feo, sí, pero funciona, así que adelante con ella hasta que una solución más elegante esté disponible.

Actualización: Imaginé que había una forma mejor de hacer esto. Mientras miraba el código de la linda clase ctl32_datepicker de Carlos Alloatti, me encontré que el uso SET('DATE',1). Buscando en el archivo de ayuda de VFP, descubrí que esta era exactamente la función que yo necesito. No puedo creer que no conocia esto (o mas probable) que lo olvide. De esta manera ahrora el código es mas sencillo y limpio:

if lcFormat = 'SHORT' 
  lnDate = set('DATE', 1) 
  do case 
    case lnDate = 0 
      lcFormat = 'MDY' 
    case lnDate = 1 
      lcFormat = 'DMY' 
    otherwise 
      lcFormat = 'YMD' 
  endcase 
endif lcFormat = 'SHORT' 

Si eres curioso sobre cómo las otras características trabajan, aquí están los detalles.

Soporte a ControlSource: Como he mencionado anteriormente, cControlSource es una propiedad personalizada que contiene el nombre del ControlSource si así se desea. También hay una propiedad Value, por lo que el control puede estar ligado otros controles. Refresh actualiza Value desde el ControlSource:

if not empty(This.cControlSource) 
  This.Value = evaluate(This.cControlSource) 
endif not empty(This.cControlSource)

El evento Change del DTPicker, que se dispara cuando el usuario cambia la fecha y/u hora, plantea un evento personalizado DateChanged del contenedores. DateChanged actualiza el ControlSource, lo que podría ser un campo en un cursor u otra cosa, como una propiedad de un objeto:

with This 
  lcAlias = juststem(.cControlSource) 
  lcField = justext(.cControlSource) 
  do case 
      case empty(.cControlSource) 
      case used(lcAlias) 
        replace &lcField with .Value in (lcAlias) 
      otherwise 
        store .Value to (.cControlSource) 
  endcase 
endwith

Value_Access obtiene el valor desde DTPicker, cambiando a un Fecha, si una FechaHora no es necesario:

luValue = This.oleDTPicker.Object.Value 
if not This.lDateTime 
  luValue = ttod(luValue) 
endif not This.lDateTime 
return luValue

Soporte de Fecha en blanco: Si ha trabajado con el control DTPicker, sabe que no le gustan las fechas en blanco. Así, el código en Value_Assign utiliza la fecha y hora actual en ese caso. Además, ya que DTPicker espera que su propiedad Value tome un valor de fecha y hora, tenemos que manejar el paso a fecha:

lparameters tuValue 
local luValue 
with This 
  do case 
    case empty(tuValue) 
      luValue = datetime() 
    case vartype(tuValue) = 'D' 
      luValue = dtot(tuValue) 
    case vartype(tuValue) = 'T' 
      luValue = tuValue 
    otherwise 
      luValue = .NULL. 
  endcase 
  if not isnull(luValue) 
    try 
      .oleDTPicker.Object.Value = luValue 
      if not .CalledFromThisClass() 
        raiseevent(This, 'DateChanged') 
      endif not .CalledFromThisClass() 
    catch 
      endtry 
  endif not isnull(luValue) 
endwith