tGet Númerico sin el "0" Inicial ( Solucionado )

[pablovidal]

Saludos Amigos,

Tengo una aplicacion ya terminada y el cliente me ha pedido que en los get
numericos el "0" inicial no este, osea que el campo este en blanco, pero que
sea númerico.

[joseluisysturiz]

Podrias usar la VAR de tipo char y validar que lo entrado sea un valor numerico, aunque con @Z deberia de funcionarte, saludos.

[pablovidal]

El asunto es que los gets estan asociados a una data en Mysql con tDolphin.
y el "@Z" lo probe con habour y xHarbour y no funciona... y tampoco funciona en modo consola.

[pablovidal]

Code: Select all  Expand view

 
METHOD DispText() CLASS TGet

  if ::lPassword .and. ::oGet:Type == "C"
      #ifdef __CLIPPER__
         SetWindowText( ::hWnd, Replicate( "*", Len( Trim( ::oGet:buffer ) ) ) )
      #else
         SetWindowText( ::hWnd, Replicate( If( IsAppThemed(), Chr( 149 ), "*" ),;
                                           Len( Trim( ::oGet:buffer ) ) ) )
      #endif
   ElseIf ::oGet:Type == "N" .and. Val( ::oGet:buffer ) == 0 // Añadir estas lineas
     SetWindowText( ::hWnd, " " )                            // y esta otra y muerto el pollo
   else
     SetWindowText( ::hWnd, If( ! Empty( ::cCueText );
                                  .and. Empty( ::oGet:VarGet() );
                                  .and. GetFocus() != ::hWnd,;  // Focus is outside
                                   "", ::oGet:buffer ) )
   endif

return nil