Como tirar o zero do GET

[rubensma]

Como tirar o zero do GET (não quero que apareça o zero)

Estou usando picture "@Z 9,999,999.99", mas o zero não some, usando o Pelles. 

REDEFINE GET oDir[v+7]  VAR baseinss[x]  ID 4074 OF oDlg pict "@Z 9,999,999.99";
ON CHANGE ( salvar:enable() , oDir[v+7]:setfocus() )
REDEFINE GET oDir[v+8] VAR baseir[x]     ID 4075 OF oDlg pict "@Z 9,999,999.99";
ON CHANGE ( salvar:enable() , oDir[v+8]:setfocus() )
REDEFINE GET oDir[v+9] VAR inssempre[x]  ID 4092 OF oDlg pict "@Z 9,999,999.99";
ON CHANGE ( salvar:enable() , oDir[v+9]:setfocus() )
REDEFINE GET oDir[v+10] VAR irrf[x]      ID 4093 OF oDlg pict "@Z 9,999,999.99";
ON CHANGE ( salvar:enable() , oDir[v+10]:setfocus() )
REDEFINE GET oDir[v+11] VAR inss[x]      ID 4110 OF oDlg pict "@Z 9,999,999.99";
ON CHANGE ( salvar:enable() , oDir[v+11]:setfocus() )

[kapiaba]

"@K"

[rubensma]

 

"@K"

Agradeço porém não deu, continuam os zeros.

[rochinha]

Imagem?

[rubensma]

[aferra]

mas.....qdo a variável é numérica, aparece mesmo o zero com essa mascara, ou estou me confundindo?

para não aparecer deveria ser "@E 999999999999"

[rubensma]

Também não.

No help tem esses valores abaixo porém o @Z não funciona.

Não sou especialista em Pelles, pode ser que seja lá, mas não encontrei nada nas propriedades.

 

GET PICTURE Format Functions          ---------------------------------------------------------------------          Function     Type Action          ---------------------------------------------------------------------          A            C    Allows only alphabetic characters.          B            N    Displays numbers left-justified.          C            N    Displays CR after positive numbers.          D            D,N  Displays dates in SET DATE format.          E            D,N  Displays dates with day and month inverted                            independent of the current DATE SETting, numerics                            with comma and period reverse (European style).          K            ALL  Deletes default text if first key is not a cursor                            key.          R            C    Nontemplate characters are inserted in the display                            but not saved in the variable.          S<n>         C    Allows horizontal scrolling within a GET.  <n> is                            an integer that specifies the width of the region.          X            N    Displays DB after negative numbers.          Z            N    Displays zero as blanks.          (            N    Displays negative numbers in parentheses with                            leading spaces.          )            N    Displays negative numbers in parentheses without                            leading spaces.          !            C    Converts alphabetic character to uppercase.

[kapiaba]

#include "FiveWin.ch"
	function Main()
	   local oDlg, oGet1, oGet2, n1 := 0, n2 := 1
	   DEFINE DIALOG oDlg TITLE "Testing Gets"
	   @ 1, 1 GET oGet1 VAR n1 SIZE 80, 11 VALID ( oGet2:Refresh(), .t. )
	   @ 2.5, 1 GET oGet2 VAR n2 SIZE 80, 11 PICTURE "@KE 999.99" OF oDlg UPDATE
	   @ 3, 11 BUTTON "Ok" ACTION oDlg:End()
	   ACTIVATE DIALOG oDlg CENTERED ;
            ON INIT( LIMPA_GET( oGet2 ) )
	return nil
	FUNCTION LIMPA_GET( oGet2 )
	   LOCAL cLimpa := "   .  "
	   oGet2:VARPUT( cLimpa )
   oGet2:Refresh()
	RETURN( .T. )

[Theotokos]

"@E 9,999.99"

 

[aferra]

genteemm, isso me deixa loira, kkkkkkkkkkkkkkk, variável / campo numérico mostra o zero mesmo....

[kapiaba]

[Valdir]

Olá Rubens...

Tente assim : @EZ 99,999,999,999,999.99

Abrs.

 

[rubensma]

Valdir,

Grato pela sugestão mas já tentei várias combinações de letras e não muda nada, os zeros continuam lá. Vou deixar assim mesmo com os zeros

Abs.