topic-38282

laritelecom

Posts: 1

Joined: Fri Nov 08, 2019 03:51 PM

PICTURE "@Z"
Posted: Fri Dec 27, 2019 03:55 PM

Hello friends,

in Clipper I could use @Z in the PICTURE command to have empty field if value is 0.

It seems that in Fivewin it doesn't work. I'm doing something wrong ?

How do you set empty field if value in a GET is 0 ?

Thank you

Armando

Posts: 3358

Joined: Fri Oct 07, 2005 08:20 PM

Re: PICTURE "@Z"
Posted: Fri Dec 27, 2019 04:07 PM

laritelecom:

I do this way and it's fine

Code (fw): Select all Collapse

"@Z 999,999,999,999.99"

Regards

SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero

Enrico Maria Giordano

Posts: 9022

Joined: Thu Oct 06, 2005 08:17 PM

Re: PICTURE "@Z"
Posted: Fri Dec 27, 2019 06:33 PM

I confirm the problem. This is a sample:

Code (fw): Select all Collapse

#include "Fivewin.ch"


FUNCTION MAIN()

    LOCAL oDlg

    LOCAL cVr1 := 0
    LOCAL cVr2 := 0

    DEFINE DIALOG oDlg

    @ 1, 1 GET cVr1;
           PICTURE "@EZ 9.999,99"

    @ 3, 1 GET cVr2;
           PICTURE "@EZ 9.999,99"

    ACTIVATE DIALOG oDlg;
             CENTER

    RETURN NIL

EMG

Enrico Maria Giordano

e.m.giordano@emagsoftware.it
http://www.emagsoftware.it
http://www.emagsoftware.it/emgmusic
http://www.emagsoftware.it/spectrum
http://www.emagsoftware.it/tbosg

nageswaragunupudi

Posts: 10733

Joined: Sun Nov 19, 2006 05:22 AM

Re: PICTURE "@Z"
Posted: Sun Dec 29, 2019 01:33 PM

Yes.
We are looking into this.

Regards

G. N. Rao.

Hyderabad, India

nageswaragunupudi

Posts: 10733

Joined: Sun Nov 19, 2006 05:22 AM

Re: PICTURE "@Z"
Posted: Thu Jan 02, 2020 03:27 PM

Fixed in FWH2001

Regards

G. N. Rao.

Hyderabad, India

karinha

Posts: 8523

Joined: Tue Dec 20, 2005 07:36 PM

Re: PICTURE "@Z"
Posted: Thu Jan 02, 2020 05:36 PM

I always do as Armando indicates and it works well.

Code (fw): Select all Collapse

#include "Fivewin.ch"

FUNCTION MAIN()

    LOCAL oDlg

    LOCAL cVr1 := 0
    LOCAL cVr2 := 0
    LOCAL aGet := ARRAY(5)

    DEFINE DIALOG oDlg

    @ 1, 1 GET aGet[1] VAR cVr1 PICTURE "@Z 9,999,999.99"  SIZE 50,12 OF oDlg

    @ 3, 1 GET aGet[2] VAR cVr2 PICTURE "@EZ 9,999,999.99" SIZE 50,12 OF oDlg

    ACTIVATE DIALOG oDlg CENTERED

RETURN NIL

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

nageswaragunupudi

Posts: 10733

Joined: Sun Nov 19, 2006 05:22 AM

Re: PICTURE "@Z"
Posted: Fri Jan 03, 2020 04:03 AM

The standard behaviour of Clipper and (x)Harbour without FWH is that "0.00" is displayed only in the Get having focus. Gets not having focus display blanks only and not digits. But FWH till version 19.12 displays "0.00" in all Gets whether having focus or not. This is fixed in 20.01. Now the behaviour of FWH matches the behaviour of Clipper/(x)Harbour.

For testing we use this program for DOS.

Code (fw): Select all Collapse

MEMVAR GetList

FUNCTION MAIN()

    LOCAL cVr1 := 0
    LOCAL cVr2 := 0
    LOCAL cVr3 := 0

    CLEAR

    @ 1, 1 GET cVr1 PICTURE "@EZ 9,999,999.99"
    @ 3, 1 GET cVr2 PICTURE "@EZ 9,999,999.99"
    @ 5, 1 GET cVr3 PICTURE "@EZ 9,999,999.99"

    READ

RETURN NIL

and this program for FWH

Code (fw): Select all Collapse

#include "Fivewin.ch"

FUNCTION MAIN()

    LOCAL oDlg

    LOCAL cVr1 := 0
    LOCAL cVr2 := 0
    LOCAL cVr3 := 0

    SetGetColorFocus()

    DEFINE DIALOG oDlg TITLE FWVERSION

    @ 1,   1 GET cVr1 PICTURE "@EZ 9,999,999.99" SIZE 50,12 OF oDlg RIGHT
    @ 2.5, 1 GET cVr2 PICTURE "@EZ 9,999,999.99" SIZE 50,12 OF oDlg RIGHT
    @ 4,   1 GET cVr3 PICTURE "@EZ 9,999,999.99" SIZE 50,12 OF oDlg RIGHT

    ACTIVATE DIALOG oDlg CENTERED

RETURN NIL

In this GIF, you will find that FWH20.01 behaves like Clipper/(x)Harbour but not FWH1912.

Regards

G. N. Rao.

Hyderabad, India

wartiaga

Posts: 253

Joined: Wed May 25, 2016 01:04 AM

Re: PICTURE "@Z"
Posted: Fri Jan 03, 2020 04:42 PM

nageswaragunupudi wrote:The standard behaviour of Clipper and (x)Harbour without FWH is that "0.00" is displayed only in the Get having focus. Gets not having focus display blanks only and not digits. But FWH till version 19.12 displays "0.00" in all Gets whether having focus or not. This is fixed in 20.01. Now the behaviour of FWH matches the behaviour of Clipper/(x)Harbour.

For testing we use this program for DOS.
Code (fw): Select all Collapse
MEMVAR GetList

FUNCTION MAIN()

    LOCAL cVr1 := 0
    LOCAL cVr2 := 0
    LOCAL cVr3 := 0

    CLEAR

    @ 1, 1 GET cVr1 PICTURE "@EZ 9,999,999.99"
    @ 3, 1 GET cVr2 PICTURE "@EZ 9,999,999.99"
    @ 5, 1 GET cVr3 PICTURE "@EZ 9,999,999.99"

    READ

RETURN NIL
and this program for FWH
Code (fw): Select all Collapse
#include "Fivewin.ch"

FUNCTION MAIN()

    LOCAL oDlg

    LOCAL cVr1 := 0
    LOCAL cVr2 := 0
    LOCAL cVr3 := 0

    SetGetColorFocus()

    DEFINE DIALOG oDlg TITLE FWVERSION

    @ 1,   1 GET cVr1 PICTURE "@EZ 9,999,999.99" SIZE 50,12 OF oDlg RIGHT
    @ 2.5, 1 GET cVr2 PICTURE "@EZ 9,999,999.99" SIZE 50,12 OF oDlg RIGHT
    @ 4,   1 GET cVr3 PICTURE "@EZ 9,999,999.99" SIZE 50,12 OF oDlg RIGHT

    ACTIVATE DIALOG oDlg CENTERED

RETURN NIL
In this GIF, you will find that FWH20.01 behaves like Clipper/(x)Harbour but not FWH1912.

Hi Mr. Nages. Is possible apply these changes in older fivewin? Thank you!

FiveTech Support Forums

Continue the discussion