Modificacions a les llibreries de Classes _CONTROLS i _UTILS

S'han fet unes modificacions a les llibreries de Classes _CONTROLS i _UTILS. Son les següents:

_CONTROLS.VCX:
S'ha modificat la clase _NAVIGATORCS, en el metode buscar, per tal de poder efectuar búsquedes directes en taules que la clau primaria estigui formada pels camps EMPRESA i CANAL a mes del camp de codi. No afecta a res de lo fet fins el moment.
S'ha fet una altre petita modificació a la classe _TEXTBOX, en el metode PosaValor. Ha canviat el Nom de la variable de treball. (No afecta a res)

_UTILS.VCX:
S'ha afegit una nova clase _PREGUNTA, que serveix per demanar una dada en un procés determinat sense necessitat de crear un form especial. Solsament pot demanar una dada, peró ho fa validant-la, donant missatge d'error, amb textes d'ajuda parametritzables, etc. Us poso un codi d'exemple per saber com s'utilitza:

** Descripció de Paramatres del CreateObject:
** Nom Clase, Titol Form, Texte a presentar, Label del textbox, InputMask, Format, MaxLength, Instrucció de Validació, Missatge d'Error

ValorRetorn = DATE()
oSearchDlog = CREATEOBJECT("Pregunta", "Marcar fins a Data", "Introdueixi fins a quina Data vol marcar les quotes com a Comptabilitzades.", ;
   "Fins a Data:", "", "D", 10, "this.value <= DATE(YEAR(DATE()),12,31)", "La data introduïda no es Correcte.")
oSearchDlog.SHOW()
if type("ValorRetorn") = "L"        && Si fan ESC, es retorna .F. a ValorRetorn
return
endif

En el AdsGest es fa servir en el form MAMORTIZA_QUADRE, per exemple.

----------------------------------------
Pere Pujol i Espuña
mailto:ppujol@adssl.com
----------------------------------------