Get and picture problem

[AntoninoP]

Hello everybody,
I have a problem with the use of picture with the get, If i compile and run this piece of code:

Code: Select all  Expand view

#include "FiveWin.ch"

function Main()

   local oDlg
   LOCAL cPict := "@KE 9999XXN "
   LOCAL cInput := "/*AUTO*/"
   
   DEFINE DIALOG oDlg
   @ 1,1  GET cInput PICTURE cPict
   ACTIVATE DIALOG oDlg CENTERED
return nil

I get this result:


Instead in the console version:

Code: Select all  Expand view

proc main
   LOCAL cPict := "@KE 9999XXN "
   LOCAL cInput := "/*AUTO*/"
   CLS
   @ 1,1 SAY "TEST" GET cInput PICTURE cInput
   READ
return

I get:


any hint?
Thanks,
Antonino

PS. I am using the 15.3 version

[Antonio Linares]

Antonino,

What is the purpose of it ?

I cant write in the GET and when I can, it ends

If the user can't write in it, you can avoid the picture and disable the GET

[nageswaragunupudi]

What do you get for
? transform( "/*AUTO*/", "@KE 9999XXN " )

[AntoninoP]

What do you get for
? transform( "/*AUTO*/", "@KE 9999XXN " )

I think it is the point, the transform and the get pictures are different, for the GET it should be translated:

• K means clear the input at first input
• E date and number in the European way: the day before the month for the date and the comma for decimal
• 9 in this position only digit are allowed as input
• N Allows only alphabetic and numeric characters
• X Allows any character

see http://www.ousob.com/ng/clguide/ng73148.php
for translate it should be translated:

• K is ignored, in transform it is not used
• E the date is in the European way: the day before the month, in this case take my 6 letter input and swap the "/*" and "UT" and replace A and O with the / because it think it is a date.
• 9, N, X Displays digits for any data type

see http://www.ousob.com/ng/clguide/ng6b445.php

Antonino,

What is the purpose of it ?

I cant write in the GET and when I can, it ends

If the user can't write in it, you can avoid the picture and disable the GET

It is a really strange behavior... I don't explain it... someone has the clipper compiler for test this code in it?

It is code that I inherit.


Anyway, using xHarbour.com 1.2.1 and FiveWin 9.04 the text inside the get is correct.

[Antonio Linares]

Antonino,

As Rao has very clever pointed, it is a Harbour/xHarbour function Transform() issue

I have just built it using xHarbour and FWH 16.04 and it looks (almost) same as Clipper:

[AntoninoP]

I see that the console version does not work too.
The code I provided is wrong:

Code: Select all  Expand view

@ 1,1 SAY "TEST" GET cInput PICTURE cInput

bust be

Code: Select all  Expand view

@ 1,1 SAY "TEST" GET cInput PICTURE cPict

It confirms it is not a FiveWin problem.
I am searching assistance by the harbour developers.
Regards.
Antonino

[Antonio Linares]

I missed that too