FiveTech Software tech support forums

Intenta esto a ver que tal va: Function CheckFile(oTmr) Select 1 Go 1 iF aRetiros->Ventas >= 15000 oTmr:DeActivate() <--------------------- MsgAlert("Favor de Retirar Efectivo de Caja","Advertencia") oTnr:Activate() <--------------------- Endif Return Nil Si no te funciona, inten...

Taiwan, I sugest you to translate, in TGSAY.CH, the worlds COLORSOMBRA with SHADOWCOLOR and HACER with DOGET, ACTIVATE GET or some think like that, to make it easyer for you.

Regards

Sorry Taiwan, I forgot to include it in the header: #TRANSLATE SPPICT( <cVar> ) => STRTRAN(STRTRAN(STRTRAN( <cVar> ,",","#"),".",","),"#",".") It's only for number's pictures in spanish format. You can delete it in the prg. HowEver, you can...

Estimados compañeros, para los que gustan de construir sus propias clases, me gustaría comentaros un problemilla que me ha traido de cabeza durante algunas semanas y que a lo mejor os ha ocurrido a vosotros, pues por si os sirve de ayuda, he conseguido solventarlo. Os cuento: Hace algún tiempo que c...

El problema Luis es que ocupas bGotFocus y bLostFocus y ya no los puedes utizar para otra cosa. Si quieres, yo lo he solucionado de la siguiente forma: Primero hay que definir cuatro Datas DATA nClrFore,nClrBack DATA nClrGFore,nClrGBack // Tu los puedes llamar como quieras Después modificas ligerame...

OK
UN SALUDO

Excuse me Enrico it's a bug. perdona la repetición Antonio, creí que no había mandado ese texto, no leí la página 2. De todas formas, yo lo utilizo para las fechas, pues hice algunas modificaciones para que el cursor se sitúe tras el último carácter de cada Get (no al final del todo) sólo cuando ent...

AND WHAT ABOUT ADD?
... .OR. (Valtype( ::Value ) = "D" .AND. (cText == "/ /" .OR. cText == "- -"))

Could we use:?
if .... .OR. (::oGet:type == "D" .AND. (cText == "/ /" .OR. cText == "- -"))

Excuse my english. I removed it.

Antonio, no se trata de eso, utilizo amenudo el SysRefresh(), Lo que no sé es si pasa lo mismo con otros FW's. El caso es que no me osurre con un sólo programa nin con un sólo ordenador. El caso es que a cada bChange escribo los datos del socio y despliego una serie de tablas de cuotas. Parece que e...

Enrico, I'm remembering, tree years ago,more or less, I modified some methods of TGET class, and I released leading spaces. It's running OK.

Yes it's true. I don't know why. It seems a bug.

I think it's OK because ALLTRIM(" / / ") is exactly "/ /", in the same way ALLTRIM(" - - ") is exactly "- -", and is necesary.

Se me olvidaba, en la clase TGSAY utilizo un par de funciones preprocesadas, que no están incluidas en la propia clase porque las tengo en un fichero de cabecera propio, éstas son: #xTranslate OSCURO( <nColor>,<nVar> ) => ; RGB( MAX(0,nRGBRed( <nColor> )-<nVar> ) , ; MAX(0,nRGBGreen( <nColor> )-<nVa...