TGet bug?

[Enrico Maria Giordano]

Enrico,

The problem is that if a PICTURE is used that has a "/" or a "-" in the front, then the code will be wrong, as ::nPos should not be set to 1.

This may be the right code:

Code: Select all

      elseif Empty( cText ) .or. RTrim( cText ) == "  /  /" .or. ;
         AllTrim( cText ) == "0" .or. ;
         RTrim( cText ) == "   -  -"

What do you think ?

Yes. Or just

Code: Select all

      elseif Empty( cText ) .or. cText = "  /  /" .or. ;
         AllTrim( cText ) == "0" .or. ;
         cText = "   -  -"
         ::nPos = 1
         ::SetPos( ::nPos )

EMG

[Antonio Linares]

Yes. Or just

Code: Select all

      elseif Empty( cText ) .or. cText = "  /  /" .or. ;
         AllTrim( cText ) == "0" .or. ;
         cText = "   -  -"
         ::nPos = 1
         ::SetPos( ::nPos )

No, because if there are spaces after the last "/" or "-" then ::nPos will not be set to 1 as it should.

Edit: Or, you mean that because "=" just compare a portion. Anyhow, I prefeer to use RTrim() to notice what is done there.

[Enrico Maria Giordano]

Yes. Or just

Code: Select all

      elseif Empty( cText ) .or. cText = "  /  /" .or. ;
         AllTrim( cText ) == "0" .or. ;
         cText = "   -  -"
         ::nPos = 1
         ::SetPos( ::nPos )

No, because if there are spaces after the last "/" or "-" then ::nPos will not be set to 1 as it should.

Edit: Or, you mean that because "=" just compare a portion. Anyhow, I prefeer to use RTrim() to notice what is done there.

Ok.

EMG

[manuramos]

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

[Antonio Linares]

Manu,

Este valor: " - -" no es para fechas. Suele usarse en números de teléfono internacionales.

[manuramos]

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

[manuramos]

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 entro en él o al principio del todo si está vacio, y utilizo ese trozo de código.
Siento la confución, pensé que Enrico hablaba de fechas, no de carácteres. Te importaría traducirselo a él, pues mi inglés no dá para tanto y no quisiera que se mosquee por esta intrusión en castellano.

[Antonio Linares]

Manu,

Seguro que te entiende bien, gracias.

[Enrico Maria Giordano]

Manu,

Seguro que te entiende bien, gracias.

Si, yo ho entiendido bastante (desculpame per mi espanol).

EMG

[manuramos]

OK
UN SALUDO