Very Old Date problem

[nageswaragunupudi]

Mr Antonio

Try to block one or two characters with mouse and then type.
In case of character variable, the typed character replaces the blocked characters. In case of Date this gives unexpected results.

[Rick Lipkin]

Antonio

Adding Set( 29, .T. ) has no effect ... the trick to the error is to set your cursor directly over and hi-lite the last digit 6 of the year and type over it with a different number like 7 .. you will see how the date becomes invalid.

I have seen this where data entry people make a mistake in entering a date 04/27/2016 and meant to enter 2015 as the year .. they go back and ONLY hi-light the 6 ( not the entire date ) and change it to ( something else ) 5 .. and that is where the date resolves as invalid.

Thanks
Rick Lipkin

[James Bott]

Rick,

OK, now I see the problem. Before I was assuming the cursor was in the overtype mode, and I also tried insert mode. I didn't think to try highlighting the last character. I would ever do it that way, but with many users, someone is going to do just about every possibility.

It does seem to be a bug. I'm guessing in xHarbour, since that is where the old Clipper GET code is.

James

[nageswaragunupudi]

I think the fix is required in fwh code only.
We are looking into it.

[Rick Lipkin]

Rao

Thank you !!!

Rick Lipkin

[Rick Lipkin]

To All

Wanted to keep this on the radar scope .. Thanks

Rick Lipkin

[nageswaragunupudi]

Not yet solved.
But I too have it on top of my mind.
Most likely in fwh 16.05

[Rick Lipkin]

Rao .. thanks

[Rick Lipkin]

To All

Wanted to once again put this back on the radar scope..

Thanks
Rick Lipkin

[Antonio Linares]

It seems as the bug is related with method GetDelSel()

If I comment its call from here (class TGet)

Code: Select all  Expand view  RUN

          ::GetSelPos( @nLo, @nHi )

           // Delete selection
           if nHi != nLo
              // ::GetDelSel( nLo, nHi )
              ::EditUpdate()
           endif

then I can block the latest digit from the year and I can properly replace it

[Antonio Linares]

Please discard my previous message. It looks to me more as an ::oGet:Insert() and ::oGet:OverStrike() issue

going to do some more tests

[Antonio Linares]

I think this is a very good solution

Code: Select all  Expand view  RUN

METHOD KeyChar( nKey, nFlags ) CLASS TGet

...

      case nKey >= 32 .and. nKey < 256

          ...

           ::GetSelPos( @nLo, @nHi )

           // Delete selection
           if nHi != nLo
              if ::oGet:Type != "D"   // new
                 ::GetDelSel( nLo, nHi )
                 ::EditUpdate()
              else
                 ::SetPos( nLo + 1 )   // new
              endif  
           endif

           ...
 

Here it seems to work very well

We do appreciate your tests and feedback

[Antonio Linares]

Changes included for next FWH 16.09

it is working nicely

[Rick Lipkin]

Antonio

Awesome .. and Very Grateful !!

Thank You
Rick Lipkin

[Massimo Linossi]

Thanks a lot Antonio
Massimo