Problem With Tget Numeric

[Silvio.Falconi]

on field I set

{ "DimX" ,"N", 9,1 } ,;

Please see this small test

Code: Select all  Expand view  RUN

#include 'fivewin.ch'

function Main()
   local oDlg, oGet, oBtn
   local lTest := .t.
   local cPicture :=  "@E #######.#"
   local nDimx:= 0, nDimy:= 0, nDimz:= 0

   SET _3DLOOK ON

   DEFINE DIALOG oDlg TITLE "A simple GET" ;
      FROM 2, 2 TO 11, 40

   @ 1.5, 2 GET oGet VAR nDimX SIZE 120, 13 OF oDlg RIGHT PICTURE cPicture

 

   @ 2.5, 4 BUTTON oBtn PROMPT "&Ok" SIZE 45, 12 OF oDlg ;
      ACTION ( oDlg:End(), MsgInfo( nDimX ) ) DEFAULT

   @ 2.5, 15 BUTTON "&Cancel" SIZE 45, 12 OF oDlg ;
      ACTION ( oDlg:End(), MsgInfo( nDimx ) )

   ACTIVATE DIALOG oDlg CENTERED

return nil

the test run ok and It is the picture I wish

only at init I with the get ( empty) must be 0 instead of 0.0

I tried also with FWNumFormat( "E", .t. )

How I can resolve ?

[karinha]

Mira se ayuda:

Code: Select all  Expand view  RUN

#include 'fivewin.ch'

FUNCTION Main()

   LOCAL oDlg, oGet, oBtn
   LOCAL lTest := .T.
   //LOCAL cPicture :=  "@E ##,###,###.#" // ALPHA/NUMERIC-SOLO PRUEBA
   LOCAL cPicture :=  "@E ########.#"
   LOCAL nDimx := 0, nDimy := 0, nDimz := 0

   SET _3DLOOK ON

   DEFINE DIALOG oDlg TITLE "A simple GET" ;
      FROM 2, 2 TO 11, 40

   @ 1.5, 2 GET oGet VAR nDimX SIZE 120, 13 OF oDlg RIGHT PICTURE cPicture ;
      VALID( LIMPIA_GET_SIL( oGet ) )

   @ 2.5, 4 BUTTON oBtn PROMPT "&Ok" SIZE 45, 12 OF oDlg ;
      ACTION ( oDlg:End(), MsgInfo( nDimX ) ) DEFAULT

   @ 2.5, 15 BUTTON "&Cancel" SIZE 45, 12 OF oDlg ;
      ACTION ( oDlg:End(), MsgInfo( nDimx ) )

   ACTIVATE DIALOG oDlg CENTERED ;
      ON INIT( INIT_GET_SIL( oGet ) )

RETURN NIL

FUNCTION INIT_GET_SIL( oGet )

   LOCAL cPict := "        .0" // + SPACE(99)

   oGet:VARPUT( cPict )
   oGet:Refresh()

RETURN NIL

FUNCTION LIMPIA_GET_SIL( oGet )

   LOCAL cPict := "        .0" // + SPACE(99) GET ALPHA.

   IF GETASYNCKEY( VK_UP )

      oGet:VARPUT( cPict )
      oGet:Refresh()

      RETURN( .T. )

   ENDIF

RETURN( .F. )

// FIN / END
 

Regards, saludos.